RE: Submitting jobs in RPG.

["Guy Henza" <guyhenza@xxxxxxxxxxx>]

> 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)
INLLIBL(*CURRENT)                                                        C   
                  CALL 'QCMDEXC' CMDLST

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