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 SndDtaQ         S             10A   INZ('QSNDDTAQ') LINKAGE(*SERVER)

      *********************************************************************
      *
      * Window . . : MAIN
      *
      * Part . . . : PSB_SEND
      *
      * Event  . . : PRESS
      *
      * Description: SEND DATA TO A DATA QUEUE 
      *
      *********************************************************************
      *
     C     PSB_SEND      BEGACT    PRESS         MAIN
      *
      *
     C                   Eval      DQName = %Getatr('Main':'DQName':'Text')
     C                   Eval      DQLibrary =
     C                                    %Getatr('Main':'DQLibrary':'Text')
     C                   Eval      DQData = %Getatr('Main':'DQData':'Text')

     C                   Call      SndDtaq
     C                   Parm                    DQName
     C                   Parm                    DQLibrary
     C                   Parm                    DQLength
     C                   Parm                    DQData
      *
      *
     C                   ENDACT