My favorite method is to write a command to run the program. The command processor will format the data correctly. If you insist on using CALL, you'll either have to change all the decimal parms to (15 5) or stuff the hex equivalents of the decimal values into character variables. In my book Power CL, I have a program called EQUDEC (equate decimal) that will do that for you.
Unconfigured Ad Widget
Collapse
Announcement
Collapse
No announcement yet.
Decimal packed variables in submit command
Collapse
X
-
Decimal packed variables in submit command
I try use "sbmjob" command from CL programs to run RPG program which has parametr decimal packed type. The submited programs can't read this parametr correctly. When I use "call" command all is OK. The CL programs is like this: PGM PARM(&CLT &TFN &ITM) DCL VAR(&CLT) TYPE(*DEC) LEN(5 0) DCL VAR(&TFN) TYPE(*DEC) LEN(7 0) DCL VAR(&ITM) TYPE(*DEC) LEN(4 0) SBMJOB CMD(CALL PGM(HBG16G1) PARM(&CLT &TFN &ITM)) + JOB(ZALACZNIK) JOBD(HBLIB/HBHOST) + JOBQ(*JOBD) JOBPTY(9) PRTDEV(*JOBD) + OUTQ(*JOBD) RTGDTA(HBSRV) + SYSLIBL(*CURRENT) LOG(*JOBD *JOBD *NOLIST) ENDPGM Have you got some ideas ?
Comment