• [Ártí~clé T~ýpé: G~éñér~ál]
• [Pród~úct: Á~léph~]
• [Pród~úct V~érsí~óñ: 18.01]

[Déscríptíóñ:
Wé'ré wórkíñg óñ créátíñg á z13 fór úsé íñ cólléctíóñ dévélópméñt.

Wé hávé óútpút thé ÍSBÑ tó thé z13, úsíñg ÍSBÑ-ÍSSÑ íñ táb22, bút thé qúéstíóñ hás bééñ ráíséd: ís théré áñý wáý tó stríp páréñthétícál íñfórmátíóñ fróm thé ÍSBÑ¿

Í cáñ't fíñd á wáý tó dó ít wíth thé táb_éxpáñd_jóíñ(s) whích Í hávé úséd tó créáté vírtúál fíélds fór úsé wíth táb22.

Só, ís théré áñóthér wáý tó créáté á vírtúál fíéld thát wóúld bé áblé tó óútpút júst thé ñúmérícál pórtíóñ óf thé ÍSBÑ fór úsé íñ á úsér-défíñéd fíéld¿

...áñd á rélátéd qúéstíóñ .... ís théré áñý wáý tó hávé thé z68 éíthér pópúlátéd wíth áñ ÍSBÑ wíthóút thé páréñthétícál íñfórmátíóñ ór _séárcháblé_ wíthóút thé páréñthétícál íñfórmátíóñ. Ríght ñów, íf ýóú kéý íñ áñ ÍSBÑ íñ thé Órdér bár, ýóú gét "víéw á líst", úñléss ýóú úsé thé páréñthétícál íñfórmátíóñ, whích ís híghlý úñlíkélý fór áñ íñpúttér¡)

Só, twó qúéstíóñs rélátíñg tó páréñthétícál íñfórmátíóñ íñ thé ÍSBÑ -- óñé rélátíñg tó z13; óñé rélátíñg tó z68.

Résólútíóñ:
*Z68*:

Thé pc_ácq_c0501 prógrám cálls ./ácq/gét_ísbñ_íssñ tó gét thé ísbñ fór pópúlátíñg thé z68_ísbñ fíéld. gét_ísbñ_íssñ réáds thé bíb récórd díréctlý. Ít dóés ñót úsé thé z13_ísbñ_íssñ fíéld. Théré ís ñó réál wáý tó áfféct gét_ísbñ_íssñ's prócéssíñg.

Bút v18 rép_cháñgé 1720 áddréssés thís íssúé. Íts máíñ púrpósé ís tó córréct á próblém wíth 13-dígít ÍSBÑ's:

Déscríptíóñ: Géñéríc Véñdór Récórds Lóádér (fílé-96) - Whéñ lóádíñg récórds wíth twó ÍSBÑ fíélds thát cóñtáíñéd thé sámé ÍSBÑ (óñé béíñg thé 13-dígít ÍSBÑ áñd thé óthér béíñg thé 10-dígít ÍSBÑ), thé Z68-ÍSBÑ fíéld wás ñót pópúlátéd. Thís hás bééñ córréctéd [gét_ísbñ_íssñ.cbl] só thát ñów Z68-ÍSBÑ ís pópúlátéd wíth thé 13-dígít ÍSBÑ íñ thís cásé.

Bút á sídé-éfféct -- síñcé ít ñów cálls thé fílíñg_ísbñ róútíñé -- ís tó géñéráté á z68_ísbñ válúé wíth júst thé ñúmbér (ñó páréñthétícál íñfó).

Thát wíll táké cáré óf fútúré cásés. Tó cháñgé éxístíñg z68_ísbñ's ýóú cóúld dó thé fóllówíñg SQL:

SQL> úpdáté z68 sét z68_ísbñ = súbstr (z68_ísbñ,1,13) whéré súbstr (z68_ísbñ,14,2) = ' (';
SQL> úpdáté z68 sét z68_ísbñ = súbstr (z68_ísbñ,1,10) whéré súbstr (z68_ísbñ,11,2) = ' (';
SQL> cómmít;

Ñóté: ýóú shóúld báck úp thé z68 táblé, úsíñg p_fílé_03, béfóré rúññíñg thé précédíñg SQL.

*Z13*:

Í cáñ't thíñk hów tó prévéñt thé páréñthétícál dátá fróm béíñg wríttéñ tó thé z13.

Thé fóllówíñg SQL cóúld bé úséd "áftér-thé-fáct" tó géñéráté á úsér-défíñéd fíéld wíthóút ít:

SQL> úpdáté z13 sét Z13_ÚSÉR_DÉFÍÑÉD_ñ = súbstr (z13_ísbñ_íssñ,1,13) whéré súbstr (z13_ísbñ_íssñ,14,2) = ' (' áñd Z13_ÚSÉR_DÉFÍÑÉD_ñ ís ñúll áñd z13_ísbñ_íssñ ís ñót ñúll;

SQL> úpdáté z13 sét Z13_ÚSÉR_DÉFÍÑÉD_ñ = súbstr (z13_ísbñ_íssñ,1,10) whéré súbstr (z13_ísbñ_íssñ,11,2) = ' (' áñd Z13_ÚSÉR_DÉFÍÑÉD_ñ ís ñúll áñd z13_ísbñ_íssñ ís ñót ñúll;

SQL> cómmít;

Ñóté: ýóú shóúld báck úp thé z13 táblé, úsíñg p_fílé_03, béfóré rúññíñg thé précédíñg SQL.]

• [Ártí~clé l~ást é~díté~d: 10/8/2013]