     A****************************************************************
     A*                                                              *
     A*  Database File. . . :   TSRMOQ                               *
     A*  Text . . . . . . . :   File of PEER device name used for    *
     A*                         APPC                                 *
     A*                                                              *
     A*  Author . . . . . . :   Alex Nubla                           *
     A*                                                              *
     A****************************************************************
     A                                      UNIQUE
     A          R XRPAPEER                  TEXT('PEER DEVICES FOR APPC')
     A            APLCLL        10A         TEXT('LOCAL LOGICAL UNIT')
     A                                      COLHDG('Local' 'Logical Unit')
     A            APRMTL        10A         TEXT('REMOTE LOGICAL UNIT')
     A                                      COLHDG('Remote' 'Logical Unit')
     A            APPEER        10A         TEXT('PEER DEVICE NAME')
     A                                      COLHDG('PEER Device' 'Name')
     A            APCTLU        10A         TEXT('CONTROL UNIT')
     A                                      COLHDG('CONTROL Unit' 'Name')
     A            APSEQ#         3P 0       TEXT('SEQUENCE# OF CLTU')
     A                                      COLHDG('SEQUENCE#' 'of Cltu')
     A            APUSRP        10          TEXT('User Profile')
     A            APUPWD        10          TEXT('User Password')
     A            APDSPO         4          TEXT('Display Option')
     A            APTYPE         1          TEXT('Machine Designation')
     A            APAPGM        10          TEXT('System Req. Pgm')
     A            APALIB        10          TEXT('Req. Pgm Lib')
     A          K APLCLL
     A          K APRMTL
     A          K APSEQ#
