&ZIRSPCNT

Returns the count of messages queued to an NCL process's dependent response queue.

The dependent response queue is the queue of messages returned in reply to a command issued using the &INTCMD statement, or sent to an executing NCL process from an external source using the INTQ command. Messages on this queue are removed by the NCL process by using the &INTREAD TYPE=RESP or TYPE=ANY statement. The process can check for the existence of messages on this queue that are waiting for processing by referencing the &ZIRSPCNT variable.

Example: &ZIRSPCNT

.RSPLOOP
   &IF &ZIRSPCNT GT 0 &THEN +
   &DO
      &INTREAD ARGS TYPE=REQ
      &GOTO .RSPMSG
   &DOEND
   &ELSE +
   &ENDAFTER &WRITE DATA=NO RESPONSE MESSAGES
.REPMSG
 .
 . 
       -* Processing for responses
   &GOTO .RSPLOOP

More information:

&INTREAD

&ZIREQCNT