|
Hi, Don What about exploiting the *DIAG messages issued ? I extract some code from a similar occurrence (only *PGM and *CMD types involved, but it can be extended): CRTDUPOBJ OBJ(*ALL) FROMLIB(ORIGIN) OBJTYPE(*PGM *CMD) + TOLIB(DESTINAT) MONMSG MSGID(CPF2130) LOOP: RCVMSG PGMQ(*SAME) MSGQ(*PGMQ) MSGTYPE(*DIAG) + MSGDTA(&MSGDTA) MSGID(&MSGID) IF COND(&MSGID = 'CPD2104') THEN(DO) CHGVAR VAR(&OBJ) VALUE(%SST(&MSGDTA 1 10)) CHGVAR VAR(&LIB) VALUE(%SST(&MSGDTA 11 10)) CHGVAR VAR(&TYPE) VALUE(%SST(&MSGDTA 21 7)) IF COND(&TYPE = 'PGM') THEN(DO) DLTPGM PGM(&LIB/&OBJ) ENDDO IF COND(&TYPE = 'CMD') THEN(DO) /* ELSE could be used, but less readable */ DLTCMD CMD (&LIB/&OBJ) ENDDO CHGVAR VAR(&OBJTYPE) VALUE('*' *CAT &TYPE) CRTDUPOBJ OBJ(&OBJ) FROMLIB(ORIGIN) + OBJTYPE(&OBJTYPE) TOLIB(DESTINAT) GOTO CMDLBL(LOOP) ENDDO Richard THEIS AS/400 Education, France theis_richard@fr.ibm.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 +---
As an Amazon Associate we earn from qualifying purchases.
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.