Re: Command Parameter Grief.

On 05-Aug-2016 13:42 -0500, Michael Ryan wrote:

Here's where I do it from the command line (and it works):

IFMASM ASMFLE((*IFS '/sigpdf/0310000462.PDF')) RESOURCE('')
LOCATION(*LOCAL)
RMTSVRURL('http://127.0.0.1:9615')
OUTFILE1('/dev/null')
RUNTIME((ASSEMBLY_PAGE_COUNTS TRUE))
<<SNIPped output from invocation>>

And here's from my CL program:

CALL PGM(TEM028C) PARM('031' '0000462' '/sigpdf/0310000462.PDF' ' ' 0)
3200 - CALL PGM(TEM028R) /* The CALL command contains parameters */
4000 - ADDLIBLE LIB(RJSIFORMS)
Library RJSIFORMS already exists in library list.
4825 - IFMASM ASMFLE((*IFS
X'61A2898797848661F0F3F1F0F0F0F0F4F6F24BD7C4C640404040404040404040404040
404040404040404040404040404040404040404040404040404040404040400000000000
00000F')) RESOURCE('') LOCATION(*LOCAL)
RMTSVRURL('http://127.0.0.1:9615') OUTFILE1('/dev/null')
RUNTIME((ASSEMBLY_PAGE_COUNTS TRUE))
<<SNIP>>

The data in the variable passed as the second element of the first list of the ASMFLE parameter is corrupted; probably with data from a packed decimal variable [probably defined as *DEC (15 5)] that has the value of zero.

Seems likely to be the common issue of CALL passing a variable with mismatched declarations between the caller and callee, or the caller passing a string literal without including every byte for the entire length of the as-declared *char data-type argument as PARM() in the called program; and that the noted parameter\argument is declared with a length greater than 32.