IAFTR 
*NOSEQ
.PROC,IAFTR.
* 
*   IAFTR BRINGS UP THE INTERACTIVE FACILITY WITH AIP TRACE.  TRACIAF 
*   CONTAINS THE JOB CONTROL STATEMENT RECORD FOR PROCESSING THE
*   TRACE FILE.  THE TRACE FILE WILL BE PROCESSED AND PRINTED AT
*   SELECTED INTERVALS AND WHEN IAF IS IDLED. 
* 
***       SENSE SWITCH OPTIONS. 
* 
*         THE FOLLOWING OPTIONS ARE SELECTED IF THE CORRESPONDING 
*         SENSE SWITCH IS SET *ON*. 
* 
*         SSW1   RETAIN USERS IN EJT (DETACHED) IF IAFEX IS IDLED OR
*                ABORTS.  THIS WILL RETAIN USERS ACROSS A RECOVERY
*                DEADSTART. 
* 
*         SSW2   DO NOT RELOAD AFTER AN ABORT.  RELEASE OUTPUT FILE TO
*                THE OUTPUT QUEUE.
* 
*         SSW3   ABORT ON ABNORMAL CONDITIONS.  THIS WILL FORCE AN
*                INTERNALLY GENERATED ABORT WHEN AN INTERNAL ERROR
*                SITUATION OCCURS.  A DAYFILE MESSAGE WILL BE ISSUED
*                GIVING THE NAME OF THE SUBROUTINE BY WHICH THE ERROR 
*                WAS DETECTED.
* 
*         SSW4   DUMP FIELD LENGTH TO THE OUTPUT FILE AFTER OPERATOR
*                IDLE.
* 
*         SSW5   DUMP FIELD LENGTH TO THE OUTPUT FILE AFTER AN
*                INTERNAL ABORT ON ABNORMAL CONDITIONS.  THE OUTPUT 
*                FILE WILL NOT BE RELEASED TO THE OUTPUT QUEUE UNTIL
*                AFTER IAFEX TERMINATION UNLESS SENSE SWITCH 6 IS SET.
*                THIS SWITCH IS SET AUTOMATICALLY DURING INITIALIZA-
*                TION AND SHOULD BE CLEARED VIA AN *OFFSW* WHILE IAF
*                IS RUNNING IF THIS OPTION IS NOT DESIRED.
* 
*         SSW6   RELEASE THE DUMP OUTPUT FILE TO THE OUTPUT QUEUE 
*                IMMEDIATELY AFTER A IDLE OR AN ABORT.
ONSW(1,6) 
REPLACE,TRACIAF.
RETURN(IAFTR) 
IFE(OT.EQ.SYO,OTERR)
  NOEXIT. 
  SET,EFG=1.
  WHILE((EFG.NE.0).AND.(EF.LT.SPE).AND.(SW2.EQ.0),LOOP) 
    SET,EFG=0.
    RFL,0.
    GET,TRACIAF.
    IAFEX(T)
    IAFEX2. 
    IFE,FILE(OUTPUT,AS),DUMP. 
      SET,EFG=1.
      IFE,FILE(ZZZZDMM,AS),DSDI.
        RFL,70000.
        DSDI,F=ZZZZDMM,L=OUTPUT,Z.$EJT.$IAF.$CP,1/X.
        RETURN,ZZZZDMM. 
      ENDIF(DSDI) 
      DAYFILE,OP=I. 
      IFE,SW6,ROUTE.
        ROUTE,OUTPUT,DC=PR. 
      ELSE(ROUTE) 
        SKIPEI,ZZZZOUT. 
        REWIND,OUTPUT.
        COPYEI,OUTPUT,ZZZZOUT.
        RETURN,OUTPUT.
      ENDIF(ROUTE)
    ENDIF(DUMP) 
  ENDW(LOOP)
  IFE,FILE(ZZZZOUT,AS),ZOUT.
    ROUTE,ZZZZOUT,DC=PR.
  ENDIF(ZOUT) 
  REVERT.  IAF END. 
ENDIF,OTERR.
REVERT,ABORT.  INCORRECT ORIGIN TYPE. 
.DATA,TRACIAF.
TRACIAF.
USER(NETOPS,NETOPSX)
COPYEI(INPUT,X) 
* 
*   TRACIAF IS SUBMITTED BY THE APPLICATION INTERFACE PROCESSOR (AIP) 
*   AT SELECTED INTERVALS AND WHEN IAF IS IDLED.
* 
REWIND(X) 
DLFP(I=0,B=X) 
EXIT. 
**DLFP ERRORS** 
DAYFILE.
