Re: How can I retrieve the RQSDTA of a batch job ?

["Simon Coulter" <shc@xxxxxxxxxxxxxxxxx>]

Hello Jeff,

That's more code than you need (unless you actually want to do something with 
the 
request).

            PGM                     
            STRCMTCTL  LCKLVL(*CHG) 
            TFRCTL     PGM(QCMD)    
            ENDPGM                  

is all that is required and it has the added advantage of not truncating long 
commands.

Regards,
Simon Coulter.

«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»
«» FlyByNight Software         AS/400 Technical Specialists       «»
«» Eclipse the competition - run your business on an IBM AS/400.  «»
«»                                                                «»
«» Phone: +61 3 9419 0175      Mobile: +61 0411 091 400           «»
«» Fax:   +61 3 9419 0175      mailto: shc@flybynight.com.au      «»
«»                                                                «»
«» Windoze should not be open at Warp speed.                      «»
«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»
//--- forwarded letter -------------------------------------------------------
> X-Mailer: Internet Mail Service (5.5.2650.21)
> Date: Thu, 23 Mar 2000 15:06:46 +0000
> From: "Bull, Jeff" <BullJ1@Midas-Kapiti.com>
> To: "'stefan.tageson@notes.sema.se'" <stefan.tageson@notes.sema.se>
> Reply-To: MIDRANGE-L@midrange.com
> Cc: "'MIDRANGE-L@midrange.com'" <MIDRANGE-L@midrange.com>
> Subject: How can I retrieve the RQSDTA of a batch job ?

> 
> Rany thanks, the solution is perfect.  I had been trying to receive the
> message from the program queue and getting nowhere ... *EXT gave me just
> what I wanted - I need to start committment control before every submitted
> batch job - this saves amending all the program code and re-compiling.
> Thanks again.
> 
>              PGM                                             
>              DCL               VAR(&RQSDTA) TYPE(*CHAR) LEN(256)    
>              RCVMSG       PGMQ(*EXT) MSGTYPE(*RQS) MSG(&RQSDTA)
>              STRCMTCTL  LCKLVL(*CHG)                         
>              CALL             PGM(*LIBL/QCMDEXC) PARM(&RQSDTA 256) 
>              RETURN                                          
>              ENDPGM                                           
> 

+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---