Seq # *Modification Id* Act
----------------------------+
00001 M00S00001.iafp +++|*NOSEQ
00002 M00S00002.iafp +++|.PROC,IAF.
00003 M00S00003.iafp +++|*
00004 M00S00004.iafp +++|* IAF BRINGS UP THE INTERACTIVE FACILITY.
00005 M00S00005.iafp +++|*
00006 M00S00006.iafp +++|*** SENSE SWITCH OPTIONS.
00007 M00S00007.iafp +++|*
00008 M00S00008.iafp +++|* THE FOLLOWING OPTIONS ARE SELECTED IF THE CORRESPONDING
00009 M00S00009.iafp +++|* SENSE SWITCH IS SET *ON*.
00010 M00S00010.iafp +++|*
00011 M00S00011.iafp +++|* SSW1 RETAIN USERS IN EJT (DETACHED) IF IAFEX IS IDLED OR
00012 M00S00012.iafp +++|* ABORTS. THIS WILL RETAIN USERS ACROSS A RECOVERY
00013 M00S00013.iafp +++|* DEADSTART.
00014 M00S00014.iafp +++|*
00015 M00S00015.iafp +++|* SSW2 DO NOT RELOAD AFTER AN ABORT. RELEASE OUTPUT FILE TO
00016 M00S00016.iafp +++|* THE OUTPUT QUEUE.
00017 M00S00017.iafp +++|*
00018 M00S00018.iafp +++|* SSW3 ABORT ON ABNORMAL CONDITIONS. THIS WILL FORCE AN
00019 M00S00019.iafp +++|* INTERNALLY GENERATED ABORT WHEN AN INTERNAL ERROR
00020 M00S00020.iafp +++|* SITUATION OCCURS. A DAYFILE MESSAGE WILL BE ISSUED
00021 M00S00021.iafp +++|* GIVING THE NAME OF THE SUBROUTINE BY WHICH THE ERROR
00022 M00S00022.iafp +++|* WAS DETECTED.
00023 M00S00023.iafp +++|*
00024 M00S00024.iafp +++|* SSW4 DUMP FIELD LENGTH TO THE OUTPUT FILE AFTER OPERATOR
00025 M00S00025.iafp +++|* IDLE.
00026 M00S00026.iafp +++|*
00027 M00S00027.iafp +++|* SSW5 DUMP FIELD LENGTH TO THE OUTPUT FILE AFTER AN
00028 M00S00028.iafp +++|* INTERNAL ABORT ON ABNORMAL CONDITIONS. THE OUTPUT
00029 M00S00029.iafp +++|* FILE WILL NOT BE RELEASED TO THE OUTPUT QUEUE UNTIL
00030 M00S00030.iafp +++|* AFTER IAFEX TERMINATION UNLESS SENSE SWITCH 6 IS SET.
00031 M00S00031.iafp +++|* THIS SWITCH IS SET AUTOMATICALLY DURING INITIALIZA-
00032 M00S00032.iafp +++|* TION AND SHOULD BE CLEARED VIA AN *OFFSW* WHILE IAF
00033 M00S00033.iafp +++|* IS RUNNING IF THIS OPTION IS NOT DESIRED.
00034 M00S00034.iafp +++|*
00035 M00S00035.iafp +++|* SSW6 RELEASE THE DUMP OUTPUT FILE TO THE OUTPUT QUEUE
00036 M00S00036.iafp +++|* IMMEDIATELY AFTER A IDLE OR AN ABORT.
00037 M00S00037.iafp +++|ONSW(1,6)
00038 M00S00038.iafp +++|RETURN(IAF)
00039 M00S00039.iafp +++|IFE(OT.EQ.SYO,OTERR)
00040 M00S00040.iafp +++| NOEXIT.
00041 M00S00041.iafp +++| SET,EFG=1.
00042 M00S00042.iafp +++| WHILE((EFG.NE.0).AND.(EF.LT.SPE).AND.(SW2.EQ.0),LOOP)
00043 M00S00043.iafp +++| SET,EFG=0.
00044 M00S00044.iafp +++| RFL,0.
00045 M00S00045.iafp +++| IAFEX.
00046 M00S00046.iafp +++| IAFEX2.
00047 M00S00047.iafp +++| IFE,FILE(OUTPUT,AS),DUMP.
00048 M00S00048.iafp +++| SET,EFG=1.
00049 M00S00049.iafp +++| IFE,FILE(ZZZZDMM,AS),DSDI.
00050 M00S00050.iafp +++| RFL,70000.
00051 M00S00051.iafp +++| DSDI,F=ZZZZDMM,L=OUTPUT,Z.$EJT.$IAF.$CP,1/X.
00052 M00S00052.iafp +++| RETURN,ZZZZDMM.
00053 M00S00053.iafp +++| ENDIF(DSDI)
00054 M00S00054.iafp +++| DAYFILE,OP=I.
00055 M00S00055.iafp +++| IFE,SW6,ROUTE.
00056 M00S00056.iafp +++| ROUTE,OUTPUT,DC=PR.
00057 M00S00057.iafp +++| ELSE(ROUTE)
00058 M00S00058.iafp +++| SKIPEI,ZZZZOUT.
00059 M00S00059.iafp +++| REWIND,OUTPUT.
00060 M00S00060.iafp +++| COPYEI,OUTPUT,ZZZZOUT.
00061 M00S00061.iafp +++| RETURN,OUTPUT.
00062 M00S00062.iafp +++| ENDIF(ROUTE)
00063 M00S00063.iafp +++| ENDIF(DUMP)
| Line S00001 Modification History |
M01 (Added by) | ns2651 |
Seq # *Modification Id* Act
----------------------------+
00064 M01S00001.ns2651 +++| IF,EF.EQ.0.SET,EFG=1.
00065 M00S00064.iafp +++| ENDW(LOOP)
00066 M00S00065.iafp +++| IFE,FILE(ZZZZOUT,AS),ZOUT.
00067 M00S00066.iafp +++| ROUTE,ZZZZOUT,DC=PR.
00068 M00S00067.iafp +++| ENDIF(ZOUT)
00069 M00S00068.iafp +++| REVERT. IAF END.
00070 M00S00069.iafp +++|ENDIF,OTERR.
00071 M00S00070.iafp +++|REVERT,ABORT. INCORRECT ORIGIN TYPE.