cdc:nos2.source:opl.opl871:deck:rdfp
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.
cdc/nos2.source/opl.opl871/deck/rdfp.txt · Last modified: by 127.0.0.1