*COMDECK NP$SLOF
  
          IDENT  NP$SLOF
          ENTRY  NP$SLOF
          COMMENT  SET LIST OF FILES
          TITLE  NP$SLOF - SET LIST OF FILES
*CALL NP$CRT
*IF DEF,IMS 
*#
*1DC NP$SLOF
* 
*     1. SUBROUTINE NAME     AUTHOR              DATE 
*        NP$SLOF             S.KRULEVITCH        78/11/28 
* 
*     2. FUNCTIONAL DESCRIPTION 
*        MAKES KNOWN TO THE NOS SYSTEM A LIST OF FILES TO BE FLUSHED
*        ON ABNORMAL JOB STEP TERMINATION.
* 
*     3. METHOD USED
*        NP$ PREFIX IS USED FOR AN AIP INTERNAL ENTRY POINT.
*        SYMPL CALL: NP$SLOF(LOFN); 
* 
*     4. ENTRY CONDITIONS 
*        LOFN - ADDRESS OF POINTER TO FILE LIST,IN X1)
* 
*     5. EXIT CONDITIONS
*        NONE 
* 
*     6. COMDECKS CALLED
*        NP$CRT 
* 
*     7. ROUTINES CALLED
*        SETLOF - SETS LIST OF FILES
* 
*     8. DAYFILE MESSAGES 
*        NONE 
* 
*#
*ENDIF
 NP$SLOF  SUBR   =
*IF DEF,DEBUG 
          SETLOF X1 
*ENDIF
          EQ     NP$SLOFX    RETURN TO ENTRY POINT
 OPL      XTEXT  COMCMAC
          END 
