What is this code doing? (BIL630)

["Bill" <brobins3d@xxxxxxxxx>]

V405CD.  I recently had a BIL630 batch job stop in a subsystem at a MSGW
condition.  Looking at the code, this spot waits for a message to appear on
a msgq.  What is the purpose of this code?  It kinda looks like it is
waiting for a completion message from somewhere (maybe that BIL620 is
finished?).  I -think- that in this case, the user didn't run BIL620 first,
so this would have sat there waiting forever.  Is this what happened, or
could there be another cause for the message queue never getting the message
it is waiting for?

              IF         COND(&BIL620 *EQ 'Y') THEN(DO)
              CHGVAR     VAR(&MSGQW) VALUE(&WSMSGQPB *CAT 'C')
 WAIT1:      RCVMSG     MSGQ(&DFTLIB/&WSMSGQPB) WAIT(*MAX) RMV(*NO) +
                           MSG(&MSGQ) MSGLEN(&MSGQL)
              IF         COND(&MSGQ *NE &MSGQW) THEN(GOTO CMDLBL(WAIT1))
              ENDDO

Bill


_________________________________________________________
Do You Yahoo!?
Get your free @yahoo.com address at http://mail.yahoo.com

+---
| This is the BPCS Users Mailing List!
| To submit a new message, send your mail to BPCS-L@midrange.com.
| To subscribe to this list send email to BPCS-L-SUB@midrange.com.
| To unsubscribe from this list send email to BPCS-L-UNSUB@midrange.com.
| Questions should be directed to the list owner: dasmussen@aol.com
+---