A*
     A*  To compile:
     A*
     A*             CRTDSPF FILE(YOURLIB/DSPDTAQDDF) SRCFILE(YOURLIB/QDDSSRC)
     A*
     A*=======================================================================     
     A*%%TS  SD  20021104  135128  I013KMV     REL-V5R1M0  5722-WDS
     A*
     A*%%EC
     A                                      DSPSIZ(24 80 *DS3)
     A                                      CA03
     A                                      CA12
     A                                      CF05
     A                                      PRINT
     A*
     A          R RECORD1
     A*%%TS  SD  20021104  135128  I013KMV     REL-V5R1M0  5722-WDS
     A                                  1  3DATE
     A                                      EDTCDE(Y)
     A                                  1 26'Display Data Queue Description'
     A                                      COLOR(WHT)
     A                                  1 63'System:'
     A                                  1 72SYSNAME
     A                                  2  3TIME
     A                                  4  3'Data Queue:'
     A            QNAME         10A  O  4 15COLOR(WHT)
     A                                  4 37'Library:'
     A            QLIB          10A  O  4 46COLOR(WHT)
     A                                  6  3'Maximum Entry Length  . . . . . . -
     A                                      . . :'
     A            MESSAGELEN    10Y 0O  6 43EDTCDE(1)
     A                                  7  3'Sequence  . . . . . . . . . . . . -
     A                                      . . :'
     A            SEQ            6A  O  7 50
     A                                  8  3'Key Length  . . . . . . . . . . . -
     A                                      . . :'
     A            KEYLEN        10Y 0O  8 43EDTCDE(1)
     A                                  9  3'Force To Auxiliary Storage  . . . -
     A                                      . . :'
     A            FORCE          4A  O  9 52
     A                                 10  3'Include Sender ID . . . . . . . . -
     A                                      . . :'
     A            SENDERID       4A  O 10 52
     A                                 11  3'Number Of Entries . . . . . . . . -
     A                                      . . :'
     A            NUMOFMSGS     10Y 0O 11 43EDTCDE(1)
     A                                 12  3'Maximum Entries Before Overflow . -
     A                                      . . :'
     A            NUMOFALLE     10Y 0O 12 43EDTCDE(1)
     A                                 14  3'Auto Reclaim of Storage . . . . . -
     A                                      . . :'
     A            AUTORCLM       4A  O 14 52
     A                                 15  3'Text Description  . . . . . . . . -
     A                                      . . :'
     A            QDESC         50A  O 15 43
     A                                 24  3'F3=Exit'
     A                                      COLOR(BLU)
     A                                 24 26'F12=Cancel'
     A                                      COLOR(BLU)
     A                                 24 13'F5=Refresh'
     A                                      COLOR(BLU)
     A                                 13  3'Maximum Number of Entries . . . . -
     A                                      . . :'
     A            MAXENTALL     10Y 0O 13 43EDTCDE(1)