Re: Omitting retrieve values on a command

["Mike savino" <mikejsavino@xxxxxxxxxxx>]

I had the same problem and posted last week.  I was using the MONMSG but it 
seemed to really slow things down.  It also looks ugly as it show up in the 
Job Log.  Scott Klement suggested the solution below, which I implemented 
and it works great.  Your CL program must be CLLE.


PGM PARM(&P1 &P2 &P3)


DCL &P1 *CHAR 25
DCL &P2 *CHAR 25
DCL &P3 *CHAR 25
DCL &B1 *CHAR 4
DCL &B2 *CHAR 4
DCL &B3 *CHAR 4
DCL &PARMNO *CHAR 4

   CHGVAR VAR(%BIN(&PARMNO)) VALUE(1)
   CALLPRC    PRC(CEETSTA) PARM(&B1 &PARMNO *OMIT)

   CHGVAR VAR(%BIN(&PARMNO)) VALUE(2)
   CALLPRC    PRC(CEETSTA) PARM(&B2 &PARMNO  *OMIT)

   CHGVAR VAR(%BIN(&PARMNO)) VALUE(3)
     CALLPRC    PRC(CEETSTA) PARM(&B3 &PARMNO *OMIT)


   IF         COND(%BIN(&B1) *EQ 1) THEN(CHGVAR VAR(&P1) +
                VALUE('PARM1'))

   IF         COND(%BIN(&B2) *EQ 1) THEN(CHGVAR VAR(&P2) +
                VALUE('PARM2'))

   IF         COND(%BIN(&B3) *EQ 1) THEN(CHGVAR VAR(&P3) +
                VALUE('PARM3'))

RETURN


ENDPGM

_________________________________________________________________
Don?t just search. Find. Check out the new MSN Search! 
http://search.msn.click-url.com/go/onm00200636ave/direct/01/