RE: How can I retrieve the RQSDTA of a batch job ? -- MIDRANGE-L

Many 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                                           

-----Original Message-----
From: Stefan.Tageson@notes.sema.se [mailto:Stefan.Tageson@notes.sema.se]
Sent: Tuesday, March 21, 2000 8:43 PM
To: MIDRANGE-L@midrange.com
Subject: Re: How can I retrieve the RQSDTA of a batch job ?



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