|
midrange.com
--
Hi
For that in CL
every numeric variable shd be
DCL VAR(&OK) TYPE(*DEC) LEN(5 0) and
corresponding variable in COBOL shd be
PIC S9(5) COMP-3 .
every character variable shd be
DCL VAR(&OK) TYPE(*CHAR) LEN(4) and
corresponding variable in COBOL shd be
PIC X(4 ) .
Regards
RAJEEV MITTAL
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 03:15:04 PM
Please respond to cobol400-l@midrange.com
To: "'cobol400-l@midrange.com'" <cobol400-l@midrange.com>
cc: (bcc: Rajeev R Mittal/India/IBM)
Subject: RE: Parameter List from CL to Cobol
--
[ Converted text/html to text/plain ]
I think you misunderstood the question, I want to go from CL to Cobol.
How should the parameters be defined within the CL for the Cobol ones
supplied?
Thanks
Dennis Nel
Technical Consultant: AS/400
* DNel3@oldmutual.com <mailto:Dnel3@oldmutual.com[1]>
* (021) 509-3459
* (082) 808-2687
-----Original Message-----
From: mrajeev@in.ibm.com [mailto:mrajeev@in.ibm.com[2]]
Sent: 09 October 2001 11:30
To: cobol400-l@midrange.com
Subject: Re: Parameter List from CL to Cobol
--
hi
For all numeric fields to be pass to CL program from cobol program ,
define as
Pic S9(03) Comp-3 .
Regards
RAJEEV MITTAL
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
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)
Thanks
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
list
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[3]
or email: COBOL400-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/cobol400-l[4].
--
_______________________________________________
This is the COBOL Programming on the iSeries/AS400 (COBOL400-L) mailing
list
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[5]
or email: COBOL400-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/cobol400-l[6].
ÝÝReferences:ÝÐ 1. mailto:Dnel3@oldmutual.com
2. mailto:mrajeev@in.ibm.com
3. http://lists.midrange.com/cgi-bin/listinfo/cobol400-l
4. http://archive.midrange.com/cobol400-l
5. http://lists.midrange.com/cgi-bin/listinfo/cobol400-l
6. http://archive.midrange.com/cobol400-l
_______________________________________________
This is the COBOL Programming on the iSeries/AS400 (COBOL400-L) mailing
list
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 mailing list archive is Copyright 1997-2024 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.
