Deck IAFP

1 Modification
Source

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