[ Converted text/html to text/plain ]

In COBOL
                And in CL
ACBL1001-USERID         PIC  X(08)                                      
VAR(&USERID)
TYPE(*CHAR) LEN(8)
ACBL1001-STATION                PIC  X(08)
VAR(&STATION) TYPE(*CHAR) LEN(8)
ACBL1001-REQUEST-TYPE   PIC  X(01)                                      
VAR(&LOG)
TYPE(*CHAR) LEN(1)
ACBL1001-CONTINUE               PIC  X(01)
VAR(&CONT_NO) TYPE(*CHAR) LEN(1)
ACBL1001-PROGRAMID              PIC  X(10)
VAR(&PGMID)   TYPE(*CHAR) LEN(10)
ACBL1001-PROGRAMVR              PIC  X(05)
VAR(&PGMVER)  TYPE(*CHAR) LEN(5)
ACBL1001-COUNTRYCD              PIC  9(03) COMP-3.
VAR(&CNTRYD) TYPE(*DEC) LEN(3 0)
ACBL1001-ERROR-RETURN   PIC  X(07)                                      
VAR(&ERR_RTRN)
TYPE(*CHAR) LEN(7)
ACBL1001-RETURNCD               PIC  X(07)
VAR(&RETURNCD) TYPE(*CHAR) LEN(7)
ACBL1001-PROGRAMSEQ             PIC  9(03)
VAR(&PGMSEQ) TYPE(*DEC) LEN(3 0)
ACBL1001-RETURNMSG              PIC  X(78)
VAR(&RETURNMSG) TYPE(*CHAR) LEN(78)

Yet when I run the CL program with the following call;
        CALL       PGM(ACBL1001) PARM(&USERID &STATION &LOG &CONT_NO &PGMID 
&PGMVER
+
                                   &CNTRYD &ERR_RTRN &RETURNCD &PGMSEQ 
&RETURNMSG)

I get Parameters passed on CALL do not match those required.


Thanks
Dennis Nel
Technical Consultant: AS/400

*       DNel3@oldmutual.com
(       (021) 509-3459
       (082) 808-2687


As an Amazon Associate we earn from qualifying purchases.

This thread ...


Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2022 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.