[ Converted text/html to text/plain ]

hi, I have the following linkage section in a Cobol program, if I want to call
this program from within a CL program.
How should I define the variables within the CL program?

01  0500-ACBL1001-LINKAGE.
    05  ACBL1001-REQUEST-AREA.
        10  ACBL1001-USERID     PIC  X(08)     VALUE SPACES.
        10  ACBL1001-STATION    PIC  X(08)     VALUE SPACES.
        10  ACBL1001-REQUEST-TYPE
                                PIC  X(01)     VALUE ZEROES.
            88  ACBL1001-REQUEST-LOG           VALUE "L".
            88  ACBL1001-REQUEST-READ          VALUE "R".
            88  ACBL1001-REQUEST-BOTH          VALUE "B".
        10  ACBL1001-CONTINUE   PIC  X(01)     VALUE "N".
            88  ACBL1001-CONTINUE-YES          VALUE "Y".
            88  ACBL1001-CONTINUE-NO           VALUE "N".
        10  ACBL1001-PROGRAMID  PIC  X(10)     VALUE SPACES.
        10  ACBL1001-PROGRAMVR  PIC  X(05)     VALUE SPACES.
        10  ACBL1001-COUNTRYCD  PIC  9(03)     COMP-3
                                               VALUE ZEROES.
        10  ACBL1001-ERROR-RETURN
                                   PIC  X(07)     VALUE SPACES.
               88  ACBL1001-NO-ERROR              VALUE SPACES.
               88  ACBL1001-ERROR-IVRQTYP         VALUE "IVRQTYP".
               88  ACBL1001-ERROR-NOFOUND         VALUE "NOFOUND".
               88  ACBL1001-ERROR-W99ERR          VALUE "W99ERR ".
               88  ACBL1001-ERROR-W42ERR          VALUE "W42ERR ".
               88  ACBL1001-ERROR-W50ERR          VALUE "W50ERR ".
    05  ACBL1001-MESSAGE-AREA.
        10  ACBL1001-RETURNCD   PIC  X(07)     VALUE SPACES.
        10  ACBL1001-PROGRAMSEQ PIC  9(03)     VALUE ZEROES.
        10  ACBL1001-RETURNMSG  PIC  X(78)     VALUE SPACES.

In particular I'm having problems with the Pic 9(03) Comp-3 !!!! (I think)

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.