× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.


  • Subject: RE: How to wait for a submit job
  • From: "Bale, Dan" <DBale@xxxxxxxx>
  • Date: Tue, 13 Jun 2000 15:06:20 -0400

Again, based on what you're telling us, I think you should still be able to
do one SBMJOB.  In your submitted job, read through the temporary file that
contains the selected subfile records in a loop, then CALL your program
(specifying the appropriate parameters specific to the selected "subfile"
record) within that submitted job.

So, if your user selects 3 subfile records that you would now submit 3 jobs
for:
SBMJOB CMD(CALL PGM1 PARM('12345' 'WIDGET12' '20000315'))
SBMJOB CMD(CALL PGM1 PARM('15973' 'HAMMER331' '20000401'))
SBMJOB CMD(CALL PGM1 PARM('28460' 'WRENCH222' '20000229'))

then change it to submit just one program:

SBMJOB CMD(CALL PGM1FF)

Pgm: PGM1FF

     Pgm
     DclF TempFile /* This is the temporary file built from selected subfile
records */ 
     Loop:   RcvF
               MonMsg CPF0864  Exec( Goto EndLoop )
             Call PGM1  Parm( &Cust# &Part# &Date ) <=== Parms from your
temp file
             Goto Loop
     EndLoop:
     EndPgm

This should work unless there are specific requirements for having the
selected options running in their own job.  

hth,
- Dan Bale


> -----Original Message-----
> From: Silvio Santos [SMTP:Silvio.Santos@brainag.com]
> Sent: Tuesday, June 13, 2000 2:10 PM
> To:   RPG400-L@midrange.com
> Subject:      RE: How to wait for a submit job
> 
> 
> 
> I cant do that because at this moment I am submiting the same program (its
> allways this one) when you choose one of the
> valid options. What I want to do is to run each of the submited options in
> sequence not simultaneously but you can submit one or more
> you dont know how many submit jobs will be done it depends on the user
> decision.
>  Any examples would be welcome....
> 
> Silvio.
> 
> 
> "Bale, Dan" <DBale@lear.com> on 06/13/2000 06:12:47 PM
> 
> Please respond to RPG400-L@midrange.com
> 
> To:   "'RPG400-L@midrange.com'" <RPG400-L@midrange.com>
> cc:    (bcc: Silvio Santos/VC/PT/BRAIN)
> 
> Subject:  RE: How to wait for a submit job
> 
> 
> Do one SBMJOB that will execute all of the tasks you were going to submit
> separately.  You already said that you're saving the selected subfile
> records to a temporary file.  Just read that temporary file in your
> submitted program and call the appropriate program "inline".
> 
> hth,
> - Dan Bale
> 
> > -----Original Message-----
> > From:   Silvio Santos [SMTP:Silvio.Santos@brainag.com]
> > Sent:   Tuesday, June 13, 2000 12:04 PM
> > To:     RPG400-L@midrange.com
> > Subject:     How to wait for a submit job
> >
> > I have a subfile in which I can run several options and there are some
> of
> > them that
> > can be run in batch, I have one program that does that. Before those
> batch
> > options
> > start to run I copy all the selected subfile records to a temporary
> file.
> >
> > My problem is that I would like to know how can I wait for the first
> > sbmjob and
> > then run the second, I dont want two or more jobs running
> simultaneously.
> >
> > I could send them for a jobq that only runs a job at the same time, but
> I
> > dont have
> > one and it isnt  guaranteed that if I have one in one customer (for
> > instance
> > QBATCH jobq) I will have the same in another, and also I dont want to
> > create one
> > especially for that.
> >
> > How can I submit one job and then wait for that end and there run
> another
> > one
> > (the same job but with other *ENTRY parms) if it as been submited
> > meanwhile ?
> >
> > I use RPG/400.
> >
> > TIA,
> > Silvio.
+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---

As an Amazon Associate we earn from qualifying purchases.

This thread ...


Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.