× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



From what I see, Darryl didn't put quotes around the 3 fields I mentioned.


On 10/10/2017 9:51 AM, Jon Paris wrote:
Only if it appears as a number in the command Peter. In Darryl's case it would appear as a character string.


Jon Paris

www.partner400.com
www.SystemiDeveloper.com

On Oct 10, 2017, at 12:11 PM, Peter Dow <petercdow@xxxxxxxxx> wrote:

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
--
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: https://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at https://archive.midrange.com/midrange-l.

Please contact support@xxxxxxxxxxxx for any subscription related questions.

Help support midrange.com by shopping at amazon.com with our affiliate link: http://amzn.to/2dEadiD


As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 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.