RE: What's the fastest way to submit jobs from RPG?

[Lurton Keel <LKeel@xxxxxxxxxxxxxx>]

I submit jobs directly from RPGLE with no problem in speed.
Here is some of the code:

d str             s            132a
D QCmdExc         PR                  ExtPgm('QCMDEXC')
D                              256    Options(*Varsize) Const
D                               15  5 Const

c                   eval      str = 'SBMJOB CMD(CALL XXXXXXXXXX ' +
c                               'PARM(X' + firsta + ' X' + lasta + '))
c                               'JOBQ(QPGMR) JOB(PRICE' + ia + ') ' +
c                               'MSGQ(*NONE)'
C                   CallP     QCmdExc(str:%len(str))


 -----Original Message-----
From:   Saunders, Martin P [mailto:martin.saunders@cgey.com]
Sent:   Friday, February 15, 2002 6:40 AM
To:     'rpg400-l@midrange.com'
Subject:        What's the fastest way to submit jobs from RPG?

Hi folks,

Program A reads a file and for each record submits about 20 jobs to batch to
update totals further up the hierarchy of records in the file