PDA

View Full Version : Prefix in Cobol???



TobiasHe
07-07-04, 14:19
Hallo zusammen!!

Ich habe da mal ein kleines Problem! Naja.. Problem ist wohl übertrieben...aber trotzdem brauche ich mal Hilfe!

Ich bearbeite gerade ein Programm und habe zu einer Datei noch eine logische Datei dieser Datei einfügen müssen!
Nun das Problem! In dem Programm wurden bereits über 500 mal (!) Felder der einen Datei gebraucht!
Nun mit der neuen logischen Datei müsste ich für alle 500 Felder die Dateierweiterung zufügen (z.B. Kundenname of Datei1 usw.), da ja sonst die Feldnamen gleich sind und das Programm nicht weiß welche Datei er ansprechen soll
! Da muss es doch was einfach geben, oder!??

In RPG weiß ich, dass man für Dateinamen ein Prefix mitgeben kann! Dann hieße das Feld nicht 2 X Kundenname sondern z.B. Kundenname (für Datei 1) und LGKundenname (wegen Prefix "LG" für Datei 2).

Wer kann mir helfen, dass ich mir die große Fleißarbeit sparen kann!!!???

Danke schon mal,
Tobias Heinemann

Fuerchau
07-07-04, 16:49
Da du in COBOL ja mit "of" qualifizieren kannst, hat man sich das mit dem Prefix bei der Copy-Anweisung gespart.
Im RPG kann man ja erst seit V5R2 qualifizieren und deshalb war der Prefix bitter nötig.

Bei COBOL galt schon immer:
Ohne Fleiß kein Preis (bei der Screibarbeit).

TobiasHe
08-07-04, 07:21
Ja schade.... ich glaube ich werde dann mal ein kleines Unterprogramm schreiben! Dürfte wohl schneller gehen, als zig mal "of" einzubinden!

Danke trotzdem...

Tobias

Heinz Bretthauer
08-07-04, 08:15
Hallo,

ich bin ja immer fürs qualifizieren (kdnr of ...)

Trotzdem noch eine Möglichkeit für dich:

Die Felder der logischen Datei beim copy-dds umbennen:

COPY DDS-ALL-FORMATS OF logische-Datei
REPLACING == FELDNAME1 == BY == LFELDNAME1 ==
== FELDNAME2 == BY == LFELDNAME2 ==
== FELDNAME3 == BY == LFELDNAME3 ==.

In der Select-Anweisung geht dann allerdings externally-described-key nicht mehr, Schlüssel muss genannt werden.

Aber wie gesagt: Ich würde die Felder qualifiziert ansprechen.

Gruß
Heinz