A variable of pic(8) comp-4 translates into a 4 byte field. Your call is
only passing one byte, so I suspect that might be part of the problem.
Try the call with X'00000050'.

Rich Loeber - @richloeber
Kisco Information Systems


On 7/20/2012 11:10 AM, Stone, Joel wrote:

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?


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

PROCEDURE division using parm-length

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


Visible links
1. http://www.kisco.com/
2. http://www.symanteccloud.com/

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.