RPGLE - Using Data queues in RPGLE

    RPGLE  - Using Data queues in RPGLE

C*-------------------------------------------------------
     C* ENTRY PARMS
     C*
     C     *ENTRY        PLIST
     C                   PARM                    @DTAQ            10
     C                   PARM                    @QLIB            10
     C                   PARM                    @QLEN             5 0
     C                   PARM                    OUT8             08
     C*
     C* RECEIVE DATA QUEUE PARMS
     C*
     C     PRCVQ         PLIST
     C                   PARM      @DTAQ         DTAQ
     C                   PARM      @QLIB         QLIB
     C                   PARM      0             QLEN
     C                   PARM      *BLANK        QDATA
     C                   PARM      0             QWAIT             5 0
     C*
     C* DEFINE VARIABLES
     C*
     C     *LIKE         DEFINE    @DTAQ         DTAQ
     C     *LIKE         DEFINE    @QLIB         QLIB
     C     *LIKE         DEFINE    @QLEN         QLEN
     C*-------------------------------------------------------
     C*  RECEIVE DATA QUEUE - WAIT for ever
     C*
     C                   Dou       1 = 2
     C                   CALL      'QRCVDTAQ'    PRCVQ                  99
     C*
     C* When no more dataqueue entries bail.
     C*
     C                   IF        QLEN   = *Zeros
     C                   Leave
     C                   Else
     C                   EXSR      $RTVA                                     
     C                   Endif
     C                   Enddo
     C*-------------------------------------------------------