MIDRANGE dot COM Mailing List Archive



Home » MIDRANGE-L » November 2006

Passing CL variables to rpgle



fixed

I have a CL pgm calling an RPGLE pgm that expects two variables.

CALL       PGM(SFTP2UPS) PARM(&IFSDIR &IFSFIL)

The two variables created in the CL are defined as *char and len=40 which is the same as in the RPGLE pgm.

I know this works as the CL dump shows the variables at len 40 padded with blanks on the right.

&IFSDIR                  *CHAR           40
'/xfer/Tst/Out/UPSscs/Pick' 61A786859961E3A2A361D6A4A361E4D7E2A283A261D78983 +26 'Ticket/ ' E389839285A3614040404040404040

&IFSFIL                  *CHAR           40
'TSTBR20061124114711.I1INP' E3E2E3C2D9F2F0F0F6F1F1F2F4F1F1F4F7F1F14BC9F1C9D5 +26 'T00 ' E3F0F0404040404040404040404040

When I run the pgm from the command line with variables padded with blanks the pgm works fine.

CALL PGM(SFTP2UPS) PARM('TEST1 ' 'TEST1 '

When I run the pgm from my CL it fails.

Parameters passed on CALL do not match those required.
Error found on CALL command.
CPF0001 received by SFTP2UPS at 5500. (C D I R)
D
Function check. CPF0001 unmonitored by SFTP2UPS at statement 5500,
instruction X'003B'.

Jerry Draper









Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2014 by MIDRANGE dot 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 here. If you have questions about this, please contact