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.