Deck IAFTM

Library Member Format: MODIFY
Source

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