Retro1.org codex

*NOSEQ 
.PROC,IAFTM.
*
*   IAFTM 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 ONLY 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(IAFTM)
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)
      DLFP(I=0)
      ROUTE(OUTPUT)
    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)
*
*   TRACIAF IS SUBMITTED BY THE APPLICATION INTERFACE PROCESSOR (AIP)
*   AT SELECTED INTERVALS AND WHEN IAF IS IDLED.
*
COPYEI(INPUT,X)
REWIND(X)
DLFP(I=0,B=X)
EXIT.
**DLFP ERRORS**
DAYFILE.