Deck RDFP

0 Modifications
Source

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