ODP in einem Server-Job schliessen

[schatte]

Man sollte das ganze wohl mit dem API QDMLOPNF hin bekommen.

Hat jemand zufällig ein Beispiel Programm?

[kuempi von stein]

Man sollte das ganze wohl mit dem API QDMLOPNF hin bekommen.

Hat jemand zufällig ein Beispiel Programm?

meint er sowas?
Think400 - iSeries (AS/400) API interfaces

k.

[schatte]

meint er sowas?
Think400 - iSeries (AS/400) API interfaces

k.

Ja genau, das meine ich. Wobei ich immer hoffe, dass jemand auch mal ein API Beispiel in Cobol schreibt.

Viele Dank!

[Fuerchau]

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.