D DQName          S             10
     D DQLibrary       S             10
     D DQLength        S              5  0 Inz(%len(DQData))
     D DQData          S            255
     D DQWait          S              5  0 Inz(1)
     D RcvDtaQ         S             10A   INZ('QRCVDTAQ') LINKAGE(*SERVER)



      *********************************************************************
      *
      * Window . . : MAIN
      *
      * Part . . . : RCVDTAQ
      *
      * Event  . . : PRESS
      *
      * Description: RECEIVE DATA FROM A DATA QUEUE
      *
      *********************************************************************
      *
     C     RCVDTAQ       BEGACT    PRESS         MAIN
      *
      *
     C                   Eval      DQName = %Getatr('Main':'DQName':'Text')
     C                   Eval      DQLibrary =
     C                                    %Getatr('Main':'DQLibrary':'Text')
     C
     C
     C                   Call      RcvDtaq
     C                   Parm                    DQName
     C                   Parm                    DQLibrary
     C                   Parm                    DQLength
     C                   Parm                    DQData
     C                   Parm                    DQWait

     C                   If        DQLength = 0
     C                   Eval      %Setatr('Main':'DQData':'Text')
     C                              = 'No Data Queue Entry Found'
     C                   Else
     C                   Eval      %Setatr('Main':'DQData':'Text')
     C                               = %Trim(DQData)
     C                   EndIf
      *
     C                   ENDACT