RE: Submitting jobs in RPG.

From the acient archives...

E                    CMD     1   2 68               CL Commands
C           CMD,1     CAT  CMD,2:1   COMD   86
C                     Z-ADD90        LEN    155
C                     MOVELXORDNO    W7ORD   6
C                     MOVELXORDSB    W7SUB   3
C                     CALL 'QCMDEXC'
C                     PARM           COMD
C                     PARM           LEN
**  Table/Array  . . . . . . :   CMD
SBMJOB CMD(CALL PGM(ORDD27C) PARM('W7ORD' 'W7SUB' 'LOUTQ')) JOB(PRT_EXP)

HTH

Guy

------------------------------

date: Fri, 8 Jul 2005 17:01:42 -0700
from: Jason Olson <jolso@xxxxxxxxx>
subject: Submitting jobs in RPG.


Hello all!

I hate using QCMDEXC but sometimes when the right API is not there that is
what I land up doing. Now normally here we try to stay away from as many CL
programs as we can and use APIs or QCMDEXC, but I have hit a problem which
has prompted me to post here.

When we use QCMDEXC normally it is done like this.

BldTmpFilesCMD = 'CRTDUPOBJ '+
                 'OBJ(OPS005LF2) '+
                 'FROMLIB(*LIBL) '+
                 'OBJTYPE(*FILE) '+
                 'TOLIB(QTEMP) '+
                 'NEWOBJ(*OBJ) '+
                 'ASPDEV(*) ' +
                 'TOASPDEV(*ASPDEV) '+
                 'DATA(*NO)';
BldTmpFiles(BldTmpFilesCMD:%len(BldTmpFilesCMD));

Where we have a prototype to QCMDEXC named BldTmpFiles.

This works great until we try to use this using SBMJOB. Has anyone out there had good success using QCMDEXC to do SBMJOB that has a program with

Parms?

Thanks!



Thank you,

Jason Olson

IBM ISeries Engineer
Amkor Technology
480.821.5000.5625
jolso@xxxxxxxxx

"The smart shall inherit the work."