API QGYOLSPL

[Daechsle]

Hallo Welt

Ich möchte in einem COBOL-Porgramm das API QGYOLSPL aufrufen, um eine Liste von allen Spoolfiles in mehreren OUTQs zu erstellen. Die Anzahl und Namen der OUTQs können verschieden sein.

Dafür habe ich im Parameter "Filter Information" für die OUTQ-Namen und -Bibliotheken ein Array mit 100 Elementen erstellt. Den Parameter "Number of output queue names" befülle ich z.B. mit 3 und entsprechend 3 verschiedene OUTQ-Namen (alle mit derselben Bibliothek) in die ersten 3 Elemente des Arrays. Format of Filter Information ist OSPF0100.

Wenn die restlichen 97 Array-Elemente Blanks beinhalten, stürzt der Aufruf von QGYOLSPL mit MCH1210 ab.
Wenn ich das Array mit LOW-VALUE initialisiere, bevor ich die ersten 3 Elemente befülle, gibt es keinen Absturz, aber im Error-Parameter steht "GUI0009", was "0 ist für Anzahl der Statusangaben nicht gültig" bedeuten soll. Der Parameter "Number of statuses" ist aber sowohl vor als auch nach dem Aufruf des APIs mit 1 befüllt, was im Debugger sichtbar ist.

Eine Variable Länge des Arrays (mit OCCURS DEPENDING ON) scheint in dem Fall nicht möglich zu sein, weil dann beim Compilieren eine Fehlermeldung kommt, die besagt, dass das variabel lange Feld das letzte in der Struktur sein muss.

Was muss ich tun, damit das richtig funktioniert?

[Fuerchau]

Da die Filterinformationen variabel aufgebaut sind, kannst du hier nicht mit festen Positionen arbeiten.
Du kannst aber mit COBOL sehr einfach die Struktur dynamisch aufbauen:

* Format OSPF0100
01 Anzahl-X.
05 Anzahl pic s9(9) comp-4.

01 ZielFilter pic x(10000).
01 ZielPos pic s9(9) comp-4.

move 1 to ZielPos

* AnzahlUser
move n to Anzahl
move Anzahl-X to ZielFilter(ZielPos:size of Anzahl-X)

compute ZielPos = ZielPos + size of Anzahl-X

if Anzahl > zero
Move User-Array(1:Anzahl*12) to ZielFilter(ZielPos:Anzahl*12)
endif

compute Zielpos = Zielpos + Anzahl*12

* Anzahl Outq's
move n to Anzahl

move Anzahl-X to ZielFilter(ZielPos:size of Anzahl-X)

compute ZielPos = ZielPos + size of Anzahl-X

if Anzahl > zero
Move OUTQ-Array(1:Anzahl*20) to ZielFilter(ZielPos:Anzahl*20)
endif

compute Zielpos = Zielpos + Anzahl*20

usw.usw.

Wichtig ist, dass der Filterpuffer für alle Werte einen gültigen Inhalt hat, im Zweifel eben auch Zero.

Das Format OSPF0200 ist da etwas einfacher da du hier ein Gesamtformat mit einem Header übergibst.
Du musst nur die Anzahl und Offsets korrekt berechnen (Start ist immer 0).
Hier hilft dir ja "size of" für die Berechnung.