Deck IAFP

Library Member Format: MODIFY

Source

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.