Cobol: COPY DDS-

[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