Fuerchau
06-12-07, 12:36
In COBOL geht das genauso.
Für einige API's gibt es in der Lib QSYSINC sogar Copy-Strecken.
Strukturen sind in COBOL genauso einfach zu schreiben.
Hinweis: Binär-Felder sind in COBOL mit PIC S9(9) COMP-4 (4-Byte) bzw. S9(4) COMP-4 (2-Byte) zu definieren.
Da COBOL bei diesen Definitionen allerdings einigen Overhead generiert um die Stellengenauigkeit zu gewährleisten, kann man vor der "Identification Division" die Anweisung
Process nostdtrunc
angeben.
In diesem Fall können die Felder vollwertig (+/- 2^32-1) bzw. +/- 32767 verwendet werden.
Für einige API's gibt es in der Lib QSYSINC sogar Copy-Strecken.
Strukturen sind in COBOL genauso einfach zu schreiben.
Hinweis: Binär-Felder sind in COBOL mit PIC S9(9) COMP-4 (4-Byte) bzw. S9(4) COMP-4 (2-Byte) zu definieren.
Da COBOL bei diesen Definitionen allerdings einigen Overhead generiert um die Stellengenauigkeit zu gewährleisten, kann man vor der "Identification Division" die Anweisung
Process nostdtrunc
angeben.
In diesem Fall können die Felder vollwertig (+/- 2^32-1) bzw. +/- 32767 verwendet werden.