cdc:nos2.source:opl.opl871:deck:iaftr
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.
cdc/nos2.source/opl.opl871/deck/iaftr.txt ยท Last modified: by 127.0.0.1