Re: Passing a packed field into a command string

Hi Darryl,

The thing to remember is that when you call a program from the command line, or in a SBMJOB command, numeric parameters are passed as packed decimal 15.5.

In your situation, program D1C716 could define the numeric *ENTRY parameters as packed decimal 15.5, then eval/z-add those to mhseq, wManifest2 and wManifest3.

--
*Peter Dow* /
Dow Software Services, Inc.
909 793-9050
petercdow@xxxxxxxxx <mailto:petercdow@xxxxxxxxx>
pdow@xxxxxxxxxxxxxx <mailto:pdow@xxxxxxxxxxxxxx> /


On 10/10/2017 7:41 AM, a4g atl wrote:

I need to sbmjob a job from a RPG program and I have 3 packed fields to put
into the command variable.

I have not done this before and so I thought I would get some help.

Can you put the packed value in the command?

zCommand = 'SBMJOB CMD(CALL D1C716 PARM('
+ Q + %trim(emotid) + Q + ' '
+ Q + %trim(wForProcess) + Q + ' '
+ mhseq + ' '
+ Q + %trim(mhtral) + Q + ' '
+ wManifest2 + ' '
+ wManifest3 + ' '
+ Q + %trim(wUseScreen) + Q + ' '
+ Q + %trim(wPrtManifest) + Q + ' '
+ Q + %trim(wStripPrintWap) + Q + ' '
+ Q + %trim(wErrmsg1) + Q + ' '
+ Q + %trim(wErrmsg2) + Q + ' '
+ Q + %trim(wErrmsg3) + Q + ' '
+ Q + %trim(wOutManifest1) + Q + ' '
+ Q + %trim(wOutManifest2) + Q + ' '
+ Q + %trim(wOutManifest3) + Q + ' '

+ ')) JOB(N' + %char(mhseq) + ') '
+ ' JOBQ(INR500)' ;

I had initially put it as %char(mhseq) but I got a decimal data error in
the called program.

I would not like to create a intermediary CL to convert the character
variable to packed.

TIA

Darryl Freinkel