We currently have a COBOL program that calls an old IBM program to generate a graph using QGDDM. The receiving IBM program is specific in the parameters it is receiving. One of the parameters is looking for a three (3) item table that we have in working storage that is coded as binary. The one that works now is IBM COBOL. We need to use ILE COBOL because of the new postal barcode can only be handled with ILE.
When we took the current program and compiled with ILE, it gives us an error stating that the array we are sending is not subscripted. True, we are sending the AX array, which consists of three (3) items. The current one works because the error is only a warning. ILE is saying it is a fatal error.
Each item in the table is described as:
03 FX OCCURS 3 TIMES INDEXED BY F-INDEX PIC S9(5) COMP-4.
Our call looks like this:
CALL "GDDM" USING CHBATT
The error we are getting is:
* 1285 MSGID: LNC2750 SEVERITY: 30 SEQNBR: 102600
Message . . . . : 'FX' table item but not subscripted.
So we get no valid compile. On the call, we have tried FX (1), but of course it only passes the first of three items.
How can we pass this array to the receiving program????