Deck IAFTR

Library Member Format: MODIFY
Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.iaftr   +++|*NOSEQ
00002  M00S00002.iaftr   +++|.PROC,IAFTR.
00003  M00S00003.iaftr   +++|*
00004  M00S00004.iaftr   +++|*   IAFTR BRINGS UP THE INTERACTIVE FACILITY WITH AIP TRACE.  TRACIAF
00005  M00S00005.iaftr   +++|*   CONTAINS THE JOB CONTROL STATEMENT RECORD FOR PROCESSING THE
00006  M00S00006.iaftr   +++|*   TRACE FILE.  THE TRACE FILE WILL BE PROCESSED AND PRINTED AT
00007  M00S00007.iaftr   +++|*   SELECTED INTERVALS AND WHEN IAF IS IDLED.
00008  M00S00008.iaftr   +++|*
00009  M00S00009.iaftr   +++|***       SENSE SWITCH OPTIONS.
00010  M00S00010.iaftr   +++|*
00011  M00S00011.iaftr   +++|*         THE FOLLOWING OPTIONS ARE SELECTED IF THE CORRESPONDING
00012  M00S00012.iaftr   +++|*         SENSE SWITCH IS SET *ON*.
00013  M00S00013.iaftr   +++|*
00014  M00S00014.iaftr   +++|*         SSW1   RETAIN USERS IN EJT (DETACHED) IF IAFEX IS IDLED OR
00015  M00S00015.iaftr   +++|*                ABORTS.  THIS WILL RETAIN USERS ACROSS A RECOVERY
00016  M00S00016.iaftr   +++|*                DEADSTART.
00017  M00S00017.iaftr   +++|*
00018  M00S00018.iaftr   +++|*         SSW2   DO NOT RELOAD AFTER AN ABORT.  RELEASE OUTPUT FILE TO
00019  M00S00019.iaftr   +++|*                THE OUTPUT QUEUE.
00020  M00S00020.iaftr   +++|*
00021  M00S00021.iaftr   +++|*         SSW3   ABORT ON ABNORMAL CONDITIONS.  THIS WILL FORCE AN
00022  M00S00022.iaftr   +++|*                INTERNALLY GENERATED ABORT WHEN AN INTERNAL ERROR
00023  M00S00023.iaftr   +++|*                SITUATION OCCURS.  A DAYFILE MESSAGE WILL BE ISSUED
00024  M00S00024.iaftr   +++|*                GIVING THE NAME OF THE SUBROUTINE BY WHICH THE ERROR
00025  M00S00025.iaftr   +++|*                WAS DETECTED.
00026  M00S00026.iaftr   +++|*
00027  M00S00027.iaftr   +++|*         SSW4   DUMP FIELD LENGTH TO THE OUTPUT FILE AFTER OPERATOR
00028  M00S00028.iaftr   +++|*                IDLE.
00029  M00S00029.iaftr   +++|*
00030  M00S00030.iaftr   +++|*         SSW5   DUMP FIELD LENGTH TO THE OUTPUT FILE AFTER AN
00031  M00S00031.iaftr   +++|*                INTERNAL ABORT ON ABNORMAL CONDITIONS.  THE OUTPUT
00032  M00S00032.iaftr   +++|*                FILE WILL NOT BE RELEASED TO THE OUTPUT QUEUE UNTIL
00033  M00S00033.iaftr   +++|*                AFTER IAFEX TERMINATION UNLESS SENSE SWITCH 6 IS SET.
00034  M00S00034.iaftr   +++|*                THIS SWITCH IS SET AUTOMATICALLY DURING INITIALIZA-
00035  M00S00035.iaftr   +++|*                TION AND SHOULD BE CLEARED VIA AN *OFFSW* WHILE IAF
00036  M00S00036.iaftr   +++|*                IS RUNNING IF THIS OPTION IS NOT DESIRED.
00037  M00S00037.iaftr   +++|*
00038  M00S00038.iaftr   +++|*         SSW6   RELEASE THE DUMP OUTPUT FILE TO THE OUTPUT QUEUE
00039  M00S00039.iaftr   +++|*                IMMEDIATELY AFTER A IDLE OR AN ABORT.
00040  M00S00040.iaftr   +++|ONSW(1,6)
00041  M00S00041.iaftr   +++|REPLACE,TRACIAF.
00042  M00S00042.iaftr   +++|RETURN(IAFTR)
00043  M00S00043.iaftr   +++|IFE(OT.EQ.SYO,OTERR)
00044  M00S00044.iaftr   +++|  NOEXIT.
00045  M00S00045.iaftr   +++|  SET,EFG=1.
00046  M00S00046.iaftr   +++|  WHILE((EFG.NE.0).AND.(EF.LT.SPE).AND.(SW2.EQ.0),LOOP)
00047  M00S00047.iaftr   +++|    SET,EFG=0.
00048  M00S00048.iaftr   +++|    RFL,0.
00049  M00S00049.iaftr   +++|    GET,TRACIAF.
00050  M00S00050.iaftr   +++|    IAFEX(T)
00051  M00S00051.iaftr   +++|    IAFEX2.
00052  M00S00052.iaftr   +++|    IFE,FILE(OUTPUT,AS),DUMP.
00053  M00S00053.iaftr   +++|      SET,EFG=1.
00054  M00S00054.iaftr   +++|      IFE,FILE(ZZZZDMM,AS),DSDI.
00055  M00S00055.iaftr   +++|        RFL,70000.
00056  M00S00056.iaftr   +++|        DSDI,F=ZZZZDMM,L=OUTPUT,Z.$EJT.$IAF.$CP,1/X.
00057  M00S00057.iaftr   +++|        RETURN,ZZZZDMM.
00058  M00S00058.iaftr   +++|      ENDIF(DSDI)
00059  M00S00059.iaftr   +++|      DAYFILE,OP=I.
00060  M00S00060.iaftr   +++|      IFE,SW6,ROUTE.
00061  M00S00061.iaftr   +++|        ROUTE,OUTPUT,DC=PR.
00062  M00S00062.iaftr   +++|      ELSE(ROUTE)
00063  M00S00063.iaftr   +++|        SKIPEI,ZZZZOUT.
00064  M00S00064.iaftr   +++|        REWIND,OUTPUT.
00065  M00S00065.iaftr   +++|        COPYEI,OUTPUT,ZZZZOUT.
00066  M00S00066.iaftr   +++|        RETURN,OUTPUT.
00067  M00S00067.iaftr   +++|      ENDIF(ROUTE)
00068  M00S00068.iaftr   +++|    ENDIF(DUMP)
00069  M00S00069.iaftr   +++|  ENDW(LOOP)
00070  M00S00070.iaftr   +++|  IFE,FILE(ZZZZOUT,AS),ZOUT.
00071  M00S00071.iaftr   +++|    ROUTE,ZZZZOUT,DC=PR.
00072  M00S00072.iaftr   +++|  ENDIF(ZOUT)
00073  M00S00073.iaftr   +++|  REVERT.  IAF END.
00074  M00S00074.iaftr   +++|ENDIF,OTERR.
00075  M00S00075.iaftr   +++|REVERT,ABORT.  INCORRECT ORIGIN TYPE.
00076  M00S00076.iaftr   +++|.DATA,TRACIAF.
00077  M00S00077.iaftr   +++|TRACIAF.
00078  M00S00078.iaftr   +++|USER(NETOPS,NETOPSX)
00079  M00S00079.iaftr   +++|COPYEI(INPUT,X)
00080  M00S00080.iaftr   +++|*
00081  M00S00081.iaftr   +++|*   TRACIAF IS SUBMITTED BY THE APPLICATION INTERFACE PROCESSOR (AIP)
00082  M00S00082.iaftr   +++|*   AT SELECTED INTERVALS AND WHEN IAF IS IDLED.
00083  M00S00083.iaftr   +++|*
00084  M00S00084.iaftr   +++|REWIND(X)
00085  M00S00085.iaftr   +++|DLFP(I=0,B=X)
00086  M00S00086.iaftr   +++|EXIT.
00087  M00S00087.iaftr   +++|**DLFP ERRORS**
00088  M00S00088.iaftr   +++|DAYFILE.