*T: FTP exit program control file
      *O: CRTPF
      *
     A*=====================================================================
     A                                      UNIQUE
      *---------------------------------------------------------------------
     A          R @FTPEXIT                  TEXT('FTP exit program')
      *---------------------------------------------------------------------
     A            USRPRF        10          TEXT('User profile')
     A                                      COLHDG('User' +
     A                                             'profile')
     A            ALWFLG        10A         TEXT('Allow flags')
     A                                      COLHDG('Allow flags')
      *----------------------------------------------------------------=====
     A          K USRPRF