I am getting error com.microfocus.cobol.program.COBOLProgramCallException: 181 Invalid parameter error when calling one COBOL program from another. Both are compiled with -J (CobJVM) mode.
The arguments on the call and the procedure division using are exactly the same, call statement and data definitions are below.
Question, how can I find out which of the 22 parameters it doesn't like ?
call 'ts905g' using bad-xptn-tbl
input-ptr
output-len
output-ptr
msg-cnt
msg-id
msg-ptr
msg-status
wk-msg-status
msg-txt
msg-ver
wk-msg-ver
nr-of-input-cols
nr-of-input-rows
nr-of-output-msgs
nr-of-output-cols
nr-of-output-rows
row-cnt
nr-of-input-msgs
information-area
output-area
ok-xptn-cnt.
01 bad-xptn-tbl.
02 bad-xptn-cnt pic s9(9) comp-5.
02 bad-xptn-entry occurs 999 times.
05 bad-xptn-eq-id pic s9(14) comp-3.
05 bad-xptn-eq-init pic x(5).
05 bad-xptn-eq-nr-f pic x(8).
05 bad-xptn-empty-ind pic x.
05 bad-xptn-stn pic x(6).
05 bad-xptn-tk-id pic x(7).
05 bad-xptn-trn-id pic x(11).
05 bad-xptn-msg pic x(175).
05 f pic x.
05 bad-xptn-eq-tp pic x.
05 bad-xptn-msg-tp pic x.
88 bad-xptn-info value 'I'.
88 bad-xptn-reject value 'R'.
01 input-ptr pic 9(9) comp-5 value zeros.
01 output-len pic 9(9) comp-5 value zeros.
01 output-ptr pic 9(9) comp-5 value zeros.
01 msg-cnt pic 9(9) comp-5 value zeros.
01 wk-msg-id pic 9(9) usage display.
01 msg-id redefines wk-msg-id pic 9(9) usage display.
88 msg-stops-processing value 65000 thru 65002.
01 msg-ptr pic 9(9) comp-5 value zeros.
01 msg-status pic s9(9) comp-5 value zeros.
01 wk-msg-status pic s9(9) comp-5 value zeros.
01 msg-txt pic x(512) value spaces.
01 msg-ver pic 9(4) comp-5 value zeros.
01 wk-msg-ver pic 9(4) comp-5 value zeros.
01 nr-of-input-cols pic 9(4) comp-5 value zeros.
01 nr-of-input-rows pic 9(9) comp-5 value zeros.
01 nr-of-output-msgs pic 9(9) comp-5 value zeros.
01 nr-of-output-cols pic 9(4) comp-5 value zeros.
01 nr-of-output-rows pic 9(9) comp-5 value zeros.
01 row-cnt pic s9(9) comp value zeros.
01 nr-of-input-msgs pic 9(9) comp-5 value zeros.
01 output-len pic 9(9) comp-5 value zeros.
01 output-ptr pic 9(9) comp-5 value zeros.
01 msg-cnt pic 9(9) comp-5 value zeros.
01 wk-msg-id pic 9(9) usage display.
01 msg-id redefines wk-msg-id pic 9(9) usage display.
88 msg-stops-processing value 65000 thru 65002.
01 msg-ptr pic 9(9) comp-5 value zeros.
01 msg-status pic s9(9) comp-5 value zeros.
01 wk-msg-status pic s9(9) comp-5 value zeros.
01 msg-txt pic x(512) value spaces.
01 msg-ver pic 9(4) comp-5 value zeros.
01 wk-msg-ver pic 9(4) comp-5 value zeros.
01 nr-of-input-cols pic 9(4) comp-5 value zeros.
01 nr-of-input-rows pic 9(9) comp-5 value zeros.
01 nr-of-output-msgs pic 9(9) comp-5 value zeros.
01 nr-of-output-cols pic 9(4) comp-5 value zeros.
01 nr-of-output-rows pic 9(9) comp-5 value zeros.
01 row-cnt pic s9(9) comp value zeros.
01 nr-of-input-msgs pic 9(9) comp-5 value zeros.
01 INFORMATION-AREA.
02 INF-LAYOUT-REVISION PIC 99.
02 INF-APPL-STATUS.
03 APPL-STATUS PIC S9(10)
SIGN IS LEADING SEPARATE.
88 TP-OK VALUE 0.
88 TP-DISCONNECT VALUE -20.
88 TP-APPLICATION-ERROR VALUE 204.
* Following APPL-STATUS values returned only by TPSERVI
88 TP-SIGNON-INHIBITED VALUE -24.
88 TP-DISSOLVED VALUE -6.
88 TP-RESET VALUE -5.
88 TP-SERVICE VALUE -4.
88 TP-USER VALUE -19.
88 TP-SYSTEM-ERROR
VALUE 101, -8, -1, -9, -27, -22, -18, -28, -21, -7,
-15, -3.
03 APPL-EXTENDED-STATUS PIC S9(10)
SIGN IS LEADING SEPARATE.
88 TP-EXT-OK VALUE 0.
88 TP-EXT-FUNCTION-INITIALIZATION VALUE 201.
88 TP-EXT-FUNC-SWITCH VALUE 102.
88 TP-EXT-SIGNOFF VALUE 103.
88 TP-EXT-ROLLBACK VALUE 118.
88 TP-EXT-CLIENT-FAILED VALUE 111.
88 TP-EXT-REQ-ERROR VALUE 202.
88 TP-EXT-ROOT-TX VALUE 109.
88 TP-EXT-SUB-DLGS VALUE 110.
88 TP-EXT-SUB-DLG-TX VALUE 114.
88 TP-EXT-FQ-UNDEFINED VALUE 203.
88 TP-EXT-SYSTEM-ERROR
VALUE 101, -8, -1, -9, -27, -22, -18, -28, -21, -7,
-15, -3.
* Following extended status values returned only by TPS
88 TP-SIGNON-INHIBITED VALUE -24.
88 TP-DISSOLVED VALUE -6.
88 TP-RESET VALUE -5.
88 TP-SERVICE VALUE -4.
88 TP-USER VALUE -19.
* Following extended status values returned only by RTQ
88 TP-RTQ-ERROR VALUE -101.
88 TP-RTQ-PROTOERR VALUE -102.
88 TP-RTQ-MEMERR VALUE -104.
88 TP-RTQ-PARAMERR VALUE -105.
88 TP-RTQ-NO-SPACE VALUE -106.
88 TP-RTQ-EOF VALUE -107.
88 TP-RTQ-UNAVAIL VALUE -108.
88 TP-RTQ-QDISABLED VALUE -109.
02 INF-SERVICE-NAME.
03 SERVICE-PRODUCT-NAME PIC X(32).
03 SERVICE-FUNCTION-NAME PIC X(8).
03 SERVICE-FUNCTION-QUALIFIER
PIC S9(10)
SIGN IS LEADING SEPARATE.
02 INF-FORMAT.
03 FORMAT-NAME PIC X(8).
03 FORMAT-LANGUAGE PIC XX.
03 FORMAT-TYPE PIC X(4).
03 FORMAT-QUALIFIER PIC S9(10)
SIGN IS LEADING SEPARATE.
02 INF-SOURCE.
03 SOURCE-DATE.
04 DATE-YEAR PIC 9(4).
04 DATE-MONTH PIC 99.
04 DATE-DAY PIC 99.
03 SOURCE-TIME.
04 TIME-HOUR PIC 99.
04 TIME-MINUTES PIC 99.
04 TIME-SECONDS PIC 99V9(2).
03 SOURCE-ENDPOINT PIC X(20).
03 SOURCE-USER-ID PIC X(12).
03 SOURCE-NODE-NAME PIC X(8).
02 INF-REQUEST-OPTIONS.
03 REQ-DISCONNECT-NOTIFICATION
PIC X.
03 REQ-ROLLBACK-ONLY PIC X.
03 REQ-RESET-DIALOGUE PIC X.
03 REQ-DISSOLVE-DIALOGUE PIC X.
03 REQ-GOTO-EXIT PIC X.
03 REQ-FUTURE-USE-AREA PIC X(9).
02 INF-INDICATION-OPTIONS.
03 IND-DISSOLVE-DIALOGUE PIC X.
03 IND-NO-RESPONSE PIC X.
03 IND-INPUT-TRUNCATED PIC X.
03 IND-FUTURE-USE-AREA PIC X(10).
01 OUTPUT-AREA.
02 AREA-LENGTH PIC S9(10)
SIGN IS LEADING SEPARATE.
02 F PIC X.
02 OUTPUT-DATA.
03 F PIC X OCCURS 1 TO 2097152
DEPENDING ON AREA-LENGTH
OF OUTPUT-AREA.
01 ok-xptn-cnt binary-long.
