Deck IAFTR

0 Modifications
Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.iaftr   +++|*NOSEQ
00002  M01S00002.iaftr   +++|.PROC,IAFTR.
00003  M01S00003.iaftr   +++|*
00004  M01S00004.iaftr   +++|*   IAFTR BRINGS UP THE INTERACTIVE FACILITY WITH AIP TRACE.  TRACIAF
00005  M01S00005.iaftr   +++|*   CONTAINS THE JOB CONTROL STATEMENT RECORD FOR PROCESSING THE
00006  M01S00006.iaftr   +++|*   TRACE FILE.  THE TRACE FILE WILL BE PROCESSED AND PRINTED AT
00007  M01S00007.iaftr   +++|*   SELECTED INTERVALS AND WHEN IAF IS IDLED.
00008  M01S00008.iaftr   +++|*
00009  M01S00009.iaftr   +++|***       SENSE SWITCH OPTIONS.
00010  M01S00010.iaftr   +++|*
00011  M01S00011.iaftr   +++|*         THE FOLLOWING OPTIONS ARE SELECTED IF THE CORRESPONDING
00012  M01S00012.iaftr   +++|*         SENSE SWITCH IS SET *ON*.
00013  M01S00013.iaftr   +++|*
00014  M01S00014.iaftr   +++|*         SSW1   RETAIN USERS IN EJT (DETACHED) IF IAFEX IS IDLED OR
00015  M01S00015.iaftr   +++|*                ABORTS.  THIS WILL RETAIN USERS ACROSS A RECOVERY
00016  M01S00016.iaftr   +++|*                DEADSTART.
00017  M01S00017.iaftr   +++|*
00018  M01S00018.iaftr   +++|*         SSW2   DO NOT RELOAD AFTER AN ABORT.  RELEASE OUTPUT FILE TO
00019  M01S00019.iaftr   +++|*                THE OUTPUT QUEUE.
00020  M01S00020.iaftr   +++|*
00021  M01S00021.iaftr   +++|*         SSW3   ABORT ON ABNORMAL CONDITIONS.  THIS WILL FORCE AN
00022  M01S00022.iaftr   +++|*                INTERNALLY GENERATED ABORT WHEN AN INTERNAL ERROR
00023  M01S00023.iaftr   +++|*                SITUATION OCCURS.  A DAYFILE MESSAGE WILL BE ISSUED
00024  M01S00024.iaftr   +++|*                GIVING THE NAME OF THE SUBROUTINE BY WHICH THE ERROR
00025  M01S00025.iaftr   +++|*                WAS DETECTED.
00026  M01S00026.iaftr   +++|*
00027  M01S00027.iaftr   +++|*         SSW4   DUMP FIELD LENGTH TO THE OUTPUT FILE AFTER OPERATOR
00028  M01S00028.iaftr   +++|*                IDLE.
00029  M01S00029.iaftr   +++|*
00030  M01S00030.iaftr   +++|*         SSW5   DUMP FIELD LENGTH TO THE OUTPUT FILE AFTER AN
00031  M01S00031.iaftr   +++|*                INTERNAL ABORT ON ABNORMAL CONDITIONS.  THE OUTPUT
00032  M01S00032.iaftr   +++|*                FILE WILL NOT BE RELEASED TO THE OUTPUT QUEUE UNTIL
00033  M01S00033.iaftr   +++|*                AFTER IAFEX TERMINATION UNLESS SENSE SWITCH 6 IS SET.
00034  M01S00034.iaftr   +++|*                THIS SWITCH IS SET AUTOMATICALLY DURING INITIALIZA-
00035  M01S00035.iaftr   +++|*                TION AND SHOULD BE CLEARED VIA AN *OFFSW* WHILE IAF
00036  M01S00036.iaftr   +++|*                IS RUNNING IF THIS OPTION IS NOT DESIRED.
00037  M01S00037.iaftr   +++|*
00038  M01S00038.iaftr   +++|*         SSW6   RELEASE THE DUMP OUTPUT FILE TO THE OUTPUT QUEUE
00039  M01S00039.iaftr   +++|*                IMMEDIATELY AFTER A IDLE OR AN ABORT.
00040  M01S00040.iaftr   +++|ONSW(1,6)
00041  M01S00041.iaftr   +++|REPLACE,TRACIAF.
00042  M01S00042.iaftr   +++|RETURN(IAFTR)
00043  M01S00043.iaftr   +++|IFE(OT.EQ.SYO,OTERR)
00044  M01S00044.iaftr   +++|  NOEXIT.
00045  M01S00045.iaftr   +++|  SET,EFG=1.
00046  M01S00046.iaftr   +++|  WHILE((EFG.NE.0).AND.(EF.LT.SPE).AND.(SW2.EQ.0),LOOP)
00047  M01S00047.iaftr   +++|    SET,EFG=0.
00048  M01S00048.iaftr   +++|    RFL,0.
00049  M01S00049.iaftr   +++|    GET,TRACIAF.
00050  M01S00050.iaftr   +++|    IAFEX(T)
00051  M01S00051.iaftr   +++|    IAFEX2.
00052  M01S00052.iaftr   +++|    IFE,FILE(OUTPUT,AS),DUMP.
00053  M01S00053.iaftr   +++|      SET,EFG=1.
00054  M01S00054.iaftr   +++|      IFE,FILE(ZZZZDMM,AS),DSDI.
00055  M01S00055.iaftr   +++|        RFL,70000.
00056  M01S00056.iaftr   +++|        DSDI,F=ZZZZDMM,L=OUTPUT,Z.$EJT.$IAF.$CP,1/X.
00057  M01S00057.iaftr   +++|        RETURN,ZZZZDMM.
00058  M01S00058.iaftr   +++|      ENDIF(DSDI)
00059  M01S00059.iaftr   +++|      DAYFILE,OP=I.
00060  M01S00060.iaftr   +++|      IFE,SW6,ROUTE.
00061  M01S00061.iaftr   +++|        ROUTE,OUTPUT,DC=PR.
00062  M01S00062.iaftr   +++|      ELSE(ROUTE)
00063  M01S00063.iaftr   +++|        SKIPEI,ZZZZOUT.
00064  M01S00064.iaftr   +++|        REWIND,OUTPUT.
00065  M01S00065.iaftr   +++|        COPYEI,OUTPUT,ZZZZOUT.
00066  M01S00066.iaftr   +++|        RETURN,OUTPUT.
00067  M01S00067.iaftr   +++|      ENDIF(ROUTE)
00068  M01S00068.iaftr   +++|    ENDIF(DUMP)
00069  M01S00069.iaftr   +++|  ENDW(LOOP)
00070  M01S00070.iaftr   +++|  IFE,FILE(ZZZZOUT,AS),ZOUT.
00071  M01S00071.iaftr   +++|    ROUTE,ZZZZOUT,DC=PR.
00072  M01S00072.iaftr   +++|  ENDIF(ZOUT)
00073  M01S00073.iaftr   +++|  REVERT.  IAF END.
00074  M01S00074.iaftr   +++|ENDIF,OTERR.
00075  M01S00075.iaftr   +++|REVERT,ABORT.  INCORRECT ORIGIN TYPE.
00076  M01S00076.iaftr   +++|.DATA,TRACIAF.
00077  M01S00077.iaftr   +++|TRACIAF.
00078  M01S00078.iaftr   +++|USER(NETOPS,NETOPSX)
00079  M01S00079.iaftr   +++|COPYEI(INPUT,X)
00080  M01S00080.iaftr   +++|*
00081  M01S00081.iaftr   +++|*   TRACIAF IS SUBMITTED BY THE APPLICATION INTERFACE PROCESSOR (AIP)
00082  M01S00082.iaftr   +++|*   AT SELECTED INTERVALS AND WHEN IAF IS IDLED.
00083  M01S00083.iaftr   +++|*
00084  M01S00084.iaftr   +++|REWIND(X)
00085  M01S00085.iaftr   +++|DLFP(I=0,B=X)
00086  M01S00086.iaftr   +++|EXIT.
00087  M01S00087.iaftr   +++|**DLFP ERRORS**
00088  M01S00088.iaftr   +++|DAYFILE.