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.