Action unknown: copypageplugin__copy
cdc:nos2.source:opl.opl871:deck:rdfp
Deck RDFP
Library Member Format: MODIFY
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M00S00001.rdfp +++|*NOSEQ 00002 M00S00002.rdfp +++|.PROC,RDF. 00003 M00S00003.rdfp +++|* 00004 M00S00004.rdfp +++|* RDF BRINGS UP REMOTE DIAGONISTIC FACILITY. 00005 M00S00005.rdfp +++|* 00006 M00S00006.rdfp +++|*** SENSE SWITCH OPTIONS. 00007 M00S00007.rdfp +++|* 00008 M00S00008.rdfp +++|* THE FOLLOWING OPTIONS ARE SELECTED IF THE CORRESPONDING 00009 M00S00009.rdfp +++|* SENSE SWITCH IS SET *ON*. 00010 M00S00010.rdfp +++|* 00011 M00S00011.rdfp +++|* SSW1 RETAIN USERS IN EJT (DETACHED) IF IAFEX IS IDLED OR 00012 M00S00012.rdfp +++|* ABORTS. THIS WILL RETAIN USERS ACROSS A RECOVERY 00013 M00S00013.rdfp +++|* DEADSTART. 00014 M00S00014.rdfp +++|* 00015 M00S00015.rdfp +++|* SSW2 DO NOT RELOAD AFTER AN ABORT. RELEASE OUTPUT FILE TO 00016 M00S00016.rdfp +++|* THE OUTPUT QUEUE. 00017 M00S00017.rdfp +++|* 00018 M00S00018.rdfp +++|* SSW3 ABORT ON ABNORMAL CONDITIONS. THIS WILL FORCE AN 00019 M00S00019.rdfp +++|* INTERNALLY GENERATED ABORT WHEN AN INTERNAL ERROR 00020 M00S00020.rdfp +++|* SITUATION OCCURS. A DAYFILE MESSAGE WILL BE ISSUED 00021 M00S00021.rdfp +++|* GIVING THE NAME OF THE SUBROUTINE BY WHICH THE ERROR 00022 M00S00022.rdfp +++|* WAS DETECTED. 00023 M00S00023.rdfp +++|* 00024 M00S00024.rdfp +++|* SSW4 DUMP FIELD LENGTH TO THE OUTPUT FILE AFTER OPERATOR 00025 M00S00025.rdfp +++|* IDLE. 00026 M00S00026.rdfp +++|* 00027 M00S00027.rdfp +++|* SSW5 DUMP FIELD LENGTH TO THE OUTPUT FILE AFTER AN 00028 M00S00028.rdfp +++|* INTERNAL ABORT ON ABNORMAL CONDITIONS. THE OUTPUT 00029 M00S00029.rdfp +++|* FILE WILL NOT BE RELEASED TO THE OUTPUT QUEUE UNTIL 00030 M00S00030.rdfp +++|* AFTER IAFEX TERMINATION UNLESS SENSE SWITCH 6 IS SET. 00031 M00S00031.rdfp +++|* THIS SWITCH IS SET AUTOMATICALLY DURING INITIALIZA- 00032 M00S00032.rdfp +++|* TION AND SHOULD BE CLEARED VIA AN *OFFSW* WHILE IAF 00033 M00S00033.rdfp +++|* IS RUNNING IF THIS OPTION IS NOT DESIRED. 00034 M00S00034.rdfp +++|* 00035 M00S00035.rdfp +++|* SSW6 RELEASE THE DUMP OUTPUT FILE TO THE OUTPUT QUEUE 00036 M00S00036.rdfp +++|* IMMEDIATELY AFTER A IDLE OR AN ABORT. 00037 M00S00037.rdfp +++|ONSW(1,6) 00038 M00S00038.rdfp +++|RETURN(RDF) 00039 M00S00039.rdfp +++|IFE(OT.EQ.SYO,OTERR) 00040 M00S00040.rdfp +++| NOEXIT. 00041 M00S00041.rdfp +++| SET,EFG=1. 00042 M00S00042.rdfp +++| WHILE((EFG.NE.0).AND.(EF.LT.SPE).AND.(SW2.EQ.0),LOOP) 00043 M00S00043.rdfp +++| SET,EFG=0. 00044 M00S00044.rdfp +++| RFL,0. 00045 M00S00045.rdfp +++| RDFEX. 00046 M00S00046.rdfp +++| IAFEX2. 00047 M00S00047.rdfp +++| IFE,FILE(OUTPUT,AS),DUMP. 00048 M00S00048.rdfp +++| SET,EFG=1. 00049 M00S00049.rdfp +++| IFE,FILE(ZZZZDMM,AS),DSDI. 00050 M00S00050.rdfp +++| RFL,70000. 00051 M00S00051.rdfp +++| DSDI,F=ZZZZDMM,L=OUTPUT,Z.$EJT.$RDF.$CP,1/X. 00052 M00S00052.rdfp +++| RETURN,ZZZZDMM. 00053 M00S00053.rdfp +++| ENDIF(DSDI) 00054 M00S00054.rdfp +++| DAYFILE,OP=I. 00055 M00S00055.rdfp +++| IFE,SW6,ROUTE. 00056 M00S00056.rdfp +++| ROUTE,OUTPUT,DC=PR. 00057 M00S00057.rdfp +++| ELSE(ROUTE) 00058 M00S00058.rdfp +++| SKIPEI,ZZZZOUT. 00059 M00S00059.rdfp +++| REWIND,OUTPUT. 00060 M00S00060.rdfp +++| COPYEI,OUTPUT,ZZZZOUT. 00061 M00S00061.rdfp +++| RETURN,OUTPUT. 00062 M00S00062.rdfp +++| ENDIF(ROUTE) 00063 M00S00063.rdfp +++| ENDIF(DUMP) 00064 M00S00064.rdfp +++| ENDW(LOOP) 00065 M00S00065.rdfp +++| IFE,FILE(ZZZZOUT,AS),ZOUT. 00066 M00S00066.rdfp +++| ROUTE,ZZZZOUT,DC=PR. 00067 M00S00067.rdfp +++| ENDIF(ZOUT) 00068 M00S00068.rdfp +++| REVERT. RDF END. 00069 M00S00069.rdfp +++|ENDIF,OTERR. 00070 M00S00070.rdfp +++|REVERT,ABORT. INCORRECT ORIGIN TYPE.
cdc/nos2.source/opl.opl871/deck/rdfp.txt · Last modified: (external edit)