Cobol: COPY DDS-

[Rafer19]

meine Frage bezeiht sich speziell auf eine PRTF:
prtf mit mehreren FMT's
FMT-0
FMT-1
FMT-2

im Cobol beziehe ich mich mit einer 01 Stufe auf die einzelnen FMT's
01 FMT-0-REC
COPY DDS-FMT-0 OF prtf
01 FMT-1-REC
COPY DDS-FMT-1 OF prtf
:
meine Annahme war, das die 01-Stufen jeweils separate Speicherbereiche belegen. Funktioniert auch einwandfrei solange die Reihenfolge der Abarbeitung(füllen -REC --> WRITE -REC) eingehalten wird..
Aber wenn ich FMT-0-REC fülle und dann FMT-1-REC fülle und ausgebe und dann erst FMT-0-REC ausgebe, dann steht der Inhalt von FMT-1-REC in FMT-0-REC????
Ist dem so, oder mache ich einen Fehler?
Danke!!

[KingofKning]

Die Frage die sich stellt ist, ob Du Unterprogramme mit Linkage Section aufrufts und dort evtl eine Redefinition drin hast.
Weil vom Prinzip her sind 01er Stufen getrennte Bereiche.

Welches OS Release setzt Du denn ein?

GG

[Rafer19]

ich benutze V6 R1.

Nee, keine Unterprogramme!
Könnte es damit zu tun haben, dass die 01-Stufen in der File-Section definiert werden..??

vielleicht müßte ich die 01-Stufen (RECords) in der File-Section in der Working-Storage Section redefinieren... aufwendig!!

Rafer

[KingofKning]

Im Realia Cobol gab e die Möglichkeit zu sagen das er Felder aus der File-Section überlagern darf. Wie das jetzt auf der AS/400 aussieht kann ich nicht sagen, da ich dort erst einige kleinere Programme geschrieben habe.
Wir setzen hier vornehmlich RPG ein.

Aber ein Redefine ist doch eigentlich simple mit der Copy-Strecke.

GG

[K_Tippi]

Hi,
Cobol ist zwar schon etwas her, aber ich denke du mußt die Copy DDS in der WS machen.
Damit hat dann jede Stufe 01 wirklich einen eigenen Speicherbereich. Damit kanns du dann jede 01er einzeln füllen.
Wenn du das in der FS machst ist das ja eigentlich nur ein Redefine auf den Ausgabepuffer.

Also bei der Ausgabe dann Write DRUCKSATZ from XXX (01er)
Klaus

[Pikachu]

Cobol ist zwar schon etwas her, aber ich denke du mußt die Copy DDS in der WS machen.

Ich denke das ist der entscheidende Hinweis. Ich habe das gerade hier ausprobiert, mit dem beschriebenen Effekt. Die COPYs müssen in die WORKING-STORAGE SECTION und dürfen nicht in die FILE SECTION.

[Fuerchau]

Bei COBOL war es schon immer so, dass die Stufe 01 in der File-Section immer die selbe Adresse belegen.
Die ist auch der kleine Performance-Vorteil von Cobol, dass weder beim Lesen noch beim Scheiben zusäzliche Moves erforderlich sind.

Bei der Definition in der WS ist jede 01-Feldgruppe ein eigener Bereich (ausser Redefines), so dass mit "read .. into .." "write .. from .." gearbeitet werden kann.

[Rafer19]

Danke für die Hilfe!!
werde ich umgehend ausprobieren...


Rafer