Very nice - thanks!!

-----Original Message-----
From: cobol400-l-bounces@xxxxxxxxxxxx [mailto:cobol400-l-bounces@xxxxxxxxxxxx] On Behalf Of Richard Casey
Sent: Friday, July 20, 2012 11:15 AM
To: 'COBOL Programming on the iSeries/AS400'
Subject: Re: [COBOL400-L] CL pgm calling COBOL pgm

Try
CALL PGMA PARM(x'00000032' 'Jon Doe')

PIC 9(8) COMP-4 is treated as a 4-byte binary. 50 in decimal is 32 in hex.
The leading zeros pad the parameter to the necessary 4 bytes.

Have fun!

Richard

-----Original Message-----
From: cobol400-l-bounces@xxxxxxxxxxxx
[mailto:cobol400-l-bounces@xxxxxxxxxxxx] On Behalf Of Stone, Joel
Sent: Friday, July 20, 2012 11:10 AM
To: COBOL Programming on the iSeries/AS400
Subject: [COBOL400-L] CL pgm calling COBOL pgm

How can I pass a the parm below "parm-length" from a CL pgm?

I am trying to get parm-length = 50 (length of parm-data in decimal)

Call PGMA (x'50' 'Jon Doe')

Doesn't work - any ideas?

Thanks


LINKAGE SECTION.
01 parm-length PIC 9(8) COMP-4.
01 parm-data PIC X(1000).

PROCEDURE division using parm-length
parm-data.

______________________________________________________________________
This outbound email has been scanned for all viruses by the MessageLabs
Skyscan service.
For more information please visit http://www.symanteccloud.com
______________________________________________________________________
--


As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

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.