RE: Batch Submissions from RPGIV

[Scott Mildenberger <Smildenber@xxxxxxxxxxxx>]

John,

Here is a method to execute any system command using the C function 'system'
instead of QCMDEXC.  It makes for a lot cleaner code and allows you to do a
SBMJOB directly as shown below.  Just modify the command string to include
all your parameters and you are all set.  We are starting to use this method
to replace QCMDEXC in our programs.

h dftactgrp(*no) actgrp('QILE') bnddir('QC2LE')                        
                                                                       
d x               s              5i 0                                  
                                                                       
d syscall         pr             5i 0 extproc('system')                
d   cmd                           *   value options(*string)           
                                                                       
c                   eval      x = syscall('sbmjob cmd(call web_purge)')
c     x             dsply                                              
                                                                       
c                   eval      *inlr = *on                              
c                   return                                             


Scott Mildenberger

> -----Original Message-----
> From: JFinney@omnia.co.za [SMTP:JFinney@omnia.co.za]
> Sent: Sunday, November 14, 1999 11:18 PM
> To:   RPG400-L@midrange.com
> Subject:      Batch Submissions from RPGIV
> 
> Hi All,
> 
> I have a procedure which needs to submit another procedure to batch. Now I
> have done simple compile-time tables in
>  conjunction with calling QCMDEXC but this has been without passing parms.
> Now I need to pass +-35 of them and I'm, well,
> stumped on this one. I really don't want to have to create a CL proc just
> to perform this action ( seems a waste. Call a pgm to call
>  a pgm to batch). Is there any API which I could use to do this ?
> 
> Any help forthcoming would be appreciated
> 
> Regards
> John.
> 
> 
+---
| 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
+---