A*%%TS  SD  19970303  112500  MROWE       REL-V3R7M0  5716-PW1
     A*%%EC
     A                                      DSPSIZ(24 80 *DS3)
     A                                      PRINT
     A          R SFL                       SFL
     A*%%TS  SD  19930422  092449  MROWE       REL-V2R2M0  5738-PW1
     A            CAFNAM    R        O  5  2REFFLD(PFCAR/CAFNAM MMSPFCA0)
     A            CAUSER    R        O  5  9REFFLD(PFCAR/CAUSER MMSPFCA0)
     A            CAJOBN    R        O  5 21REFFLD(PFCAR/CAJOBN MMSPFCA0)
     A            CAJNBR    R        O  5 33REFFLD(PFCAR/CAJNBR MMSPFCA0)
     A            CADESC    R        O  5 41REFFLD(PFCAR/CADESC MMSPFCA0)
     A N40        CATIME    R        O  5 73REFFLD(PFCAR/CATIME MMSPFCA0)
     A                                      EDTWRD('  :  :  ')
     A  40        CADATE    R        O  5 73REFFLD(PFCAR/CADATE MMSPFCA0)
     A                                      EDTCDE(Y)
     A          R SFLCTL                    SFLCTL(SFL)
     A*%%TS  SD  19970303  112500  MROWE       REL-V3R7M0  5716-PW1
     A                                      CA03(03 'End')
     A N70                                  CF05(05 'WRKJOB')
     A                                      CF07(07 'Option/user')
     A                                      CF08(08 'Date/time')
     A                                      CF09(09 'Delete old')
     A N70                                  CF10(10 'STRSRVJOB')
     A N70                                  CF11(11 'ENDSRVJOB')
     A N70                                  CF21(21 'Command')
     A N70                                  CF24(24 'More keys')
     A                                      ROLLUP(27 'ROLLUP')
     A                                      ROLLDOWN(28 'ROLLDOWN')
     A                                      INVITE
     A                                      OVERLAY
     A                                      SFLCSRRRN(&RELRCD)
     A  36                                  SFLDSP
     A                                      SFLDSPCTL
     A N36                                  SFLCLR
     A  35                                  SFLEND(*MORE)
     A                                      SFLSIZ(0017)
     A                                      SFLPAG(0017)
     A            RELRCD         5S 0H
     A            COMPNY        40A  O  1  2DSPATR(RI)
     A                                  1 43USER
     A                                      DSPATR(RI)
     A                                  1 54SYSNAME
     A                                      DSPATR(RI)
     A                                  1 63DATE
     A                                      EDTCDE(Y)
     A                                      DSPATR(RI)
     A                                  1 72' MMSRG032'
     A                                      DSPATR(RI)
     A                                  2  2' '
     A                                      DSPATR(RI)
     A                                  2  5'Display active fastpaths'
     A                                      DSPATR(HI)
     A                                  2 43'Auto-refresh:'
     A                                      DSPATR(HI)
     A            USRVAL         2Y 0B  2 57EDTCDE(Z)
     A                                      DSPATR(HI)
     A                                  2 60'(secs)'
     A                                      DSPATR(HI)
     A            CURTIM         6Y 0O  2 71EDTWRD('  :  :  ')
     A                                      DSPATR(HI)
     A                                  2 80' '
     A                                      DSPATR(RI)
     A                                  3  2'Position to'
     A                                      DSPATR(RI)
     A N55                              3 14'fastpath:'
     A                                      DSPATR(RI)
     A  55                              3 14'user:'
     A                                      DSPATR(RI)
     A  55        #PUSER        10A  B  3 20DSPATR(RI)
     A N55        #PFNAM         5A  B  3 24DSPATR(RI)
     A N55                              3 30'                                 T-
     A                                      otal Active:'
     A                                      DSPATR(RI)
     A  55                              3 31'                                To-
     A                                      tal Active:'
     A                                      DSPATR(RI)
     A            TOTRCD         4Y 0O  3 77DSPATR(RI)
     A                                      EDTCDE(Z)
     A                                  4  2'F/path'
     A                                      DSPATR(HI)
     A                                  4  9'User'
     A                                      DSPATR(HI)
     A                                  4 21'Job name & number'
     A                                      DSPATR(HI)
     A                                  4 41'Fastpath description'
     A                                      DSPATR(HI)
     A                                  4 71'Start'
     A                                      DSPATR(HI)
     A N40                              4 77'time'
     A                                      DSPATR(HI)
     A  40                              4 77'date'
     A                                      DSPATR(HI)
     A          R FOOTER1                   OVERLAY
     A*%%TS  SD  19940520  113205  MROWE       REL-V2R3M0  5738-PW1
     A N70                             23  2'F3=Exit   F5=WRKJOB   F7=Option/us-
     A                                      er   F8=Date/Time               F24-
     A                                      =More keys'
     A                                      DSPATR(RI)
     A  70                             23  2'F3=Exit   F7=Option/user   F8=Date-
     A                                      /time   F9=Remove old entries      -
     A                                                '
     A                                      DSPATR(RI)
     A          R FOOTER2                   OVERLAY
     A*%%TS  SD  19940520  113205  MROWE       REL-V2R3M0  5738-PW1
     A N70                             23  2'F9=Remove old entries   F10=STRSRV-
     A                                      JOB   F11=ENDSRVJOB   F21=Cmd   F24-
     A                                      =More keys'
     A                                      DSPATR(RI)
     A*
     A          R MSFL                      SFL
     A                                      SFLMSGRCD(24)
     A            MSGKEY                    SFLMSGKEY
     A            PGM                       SFLPGMQ
     A*
     A          R MSFLC                     SFLCTL(MSFL)
     A                                      OVERLAY
     A  26                                  SFLDSP
     A  26                                  SFLDSPCTL
     A  26                                  SFLINZ
     A  26                                  SFLEND
     A                                      SFLSIZ(0002)
     A                                      SFLPAG(0001)
     A            PGM                       SFLPGMQ