Re: SBMJOB From RPGLE Passing numeric Fields

QCMD evaluates the string and if it sees something that is a number it
converts it to 15/5 numeric field and passes it that way. Yes, you can send
but the receiving program must receive it as 15/5 packed numeric. Better to
convert to alpha and receive as alpha string and convert.

On Tue, Oct 27, 2015 at 12:30 PM, gio.cot <gio.cot@xxxxxxxxxxx> wrote:

Hi all



I would from RPGLE run a SBMJOB that call a program passing numeric
parameters .. is it possible ?

Example





D Runcmd PR EXTPGM('QCMDEXC')

D Cmdstr 3000A CONST OPTIONS(*VARSIZE)

D Cmdlen 15P 5 CONST

D Cmddbcs 3A CONST OPTIONS(*NOPASS)



D Q C ''''



D Command_String S 3000A Varying



Command_String = 'SBMJOB CMD(CALL PGM('+ q + MyPgm + q +')
PARM(' +

Q + DbTrgDs + Q DbTrgLen '))';

Runcmd(Command_String : %LEN(%TRIMR (Command_String)));




N.B. DBTRGLEN is B(9,0)



How can I do it ?



Thanks



--
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.