Re: Omitting retrieve values on a command -- MIDRANGE-L

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/

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.