Re: Command Parameter Grief.

Thanks Chuck.

Sent from my iPhone

On Aug 5, 2016, at 2:58 PM, CRPence <crpbottle@xxxxxxxxx> wrote:

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.

--
Regards, Chuck

--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.

Please contact support@xxxxxxxxxxxx for any subscription related questions.