For all numeric fields to be pass  to CL program from cobol program  ,
define as

Pic S9(03) Comp-3     .

IBM Global Services  Ltd
BILT Site ,
FIP Tower  'C'
Block - A , Sushant Lok  I
Mehrauli Gurgoan Road ,
Haryana  - 122002
phno-    916-389491 thru 498,  916-804242 thru   43 (Ext - 377 , 378 , 379)
e-mail   : mrajeev@in.ibm.com

Nel Dennis <DNel3@OLDMUTUAL.com> on 10/09/2001 01:33:17 PM

Please respond to cobol400-l@midrange.com

To:   cobol400-l@midrange.com
cc:    (bcc: Rajeev R Mittal/India/IBM)
Subject:  Parameter List from CL to Cobol


[ Converted text/html to text/plain ]

hi, I have the following linkage section in a Cobol program, if I want to
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
This is the COBOL Programming on the iSeries/AS400 (COBOL400-L) mailing
To post a message email: COBOL400-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/cobol400-l
or email: COBOL400-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/cobol400-l.


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.