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

[Stefan.Tageson@xxxxxxxxxxxxx]

Here's something from the old archives, it's more cut than paste so beware.
Create this program and use it instead of QCMD in an routing entry.

// Stefan Tageson
+>----------------------------------------------------------------------<+
  tel:         +46 40 693 3500
  fax:         +46 40 693 3600
  mobile: +46 708 51 3543
  e-mail       stefan.tageson@notes.sema.se
+>---------------------------------------------------------------------<+

PGM

             DCL        VAR(&MSG)                +
                        TYPE(*CHAR)              +
                        LEN(512)

             DCL        VAR(&MSGLX)              +
                        TYPE(*DEC)               +
                        LEN(5 0)

             RCVMSG     PGMQ(*EXT)               +
                        MSGTYPE(*RQS)            +
                        RMV(*YES)                +
                        MSG(&MSG)                +
                        MSGLEN(&MSGLX)

well, do something...................


             SNDPGMMSG  MSG(&MSG)                +
                        TOPGMQ(*EXT)             +
                        MSGTYPE(*RQS)            /* resend RQS */

                 TFRCTL     PGM(QSYS/QCMD)
                 MONMSG     MSGID(CPF0000 MCH0000)
ENDPGM



                                                                                
                                         
                    "Bull, Jeff"                                                
                                         
                    <BullJ1@Midas-Kapit        To:     
"'MIDRANGE-L@midrange.com'" <MIDRANGE-L@midrange.com>             
                    i.com>                     cc:                              
                                         
                    Sent by:                   Subject:     How can I retrieve 
the RQSDTA of a batch job ?               
                    owner-midrange-l@mi                                         
                                         
                    drange.com                                                  
                                         
                                                                                
                                         
                                                                                
                                         
                    2000-03-21 17:57                                            
                                         
                    Please respond to                                           
                                         
                    MIDRANGE-L                                                  
                                         
                                                                                
                                         
                                                                                
                                         




> I need to retrieve the RQSDTA of a batch job in a CL program variable.  I
> have tried RCVMSG but get nothing in  any return fields - I can see it in
> the joblog, but I don't seem to be able to get at it.  Can anyone give me
a
> pointer, or am I running up a blind alley?




+---
| 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
+---