RDFP
*NOSEQ
.PROC,RDF.
* 
*   RDF BRINGS UP REMOTE DIAGONISTIC FACILITY.
* 
***       SENSE SWITCH OPTIONS. 
* 
*         THE FOLLOWING OPTIONS ARE SELECTED IF THE CORRESPONDING 
*         SENSE SWITCH IS SET *ON*. 
* 
*         SSW1   RETAIN USERS IN EJT (DETACHED) IF IAFEX IS IDLED OR
*                ABORTS.  THIS WILL RETAIN USERS ACROSS A RECOVERY
*                DEADSTART. 
* 
*         SSW2   DO NOT RELOAD AFTER AN ABORT.  RELEASE OUTPUT FILE TO
*                THE OUTPUT QUEUE.
* 
*         SSW3   ABORT ON ABNORMAL CONDITIONS.  THIS WILL FORCE AN
*                INTERNALLY GENERATED ABORT WHEN AN INTERNAL ERROR
*                SITUATION OCCURS.  A DAYFILE MESSAGE WILL BE ISSUED
*                GIVING THE NAME OF THE SUBROUTINE BY WHICH THE ERROR 
*                WAS DETECTED.
* 
*         SSW4   DUMP FIELD LENGTH TO THE OUTPUT FILE AFTER OPERATOR
*                IDLE.
* 
*         SSW5   DUMP FIELD LENGTH TO THE OUTPUT FILE AFTER AN
*                INTERNAL ABORT ON ABNORMAL CONDITIONS.  THE OUTPUT 
*                FILE WILL NOT BE RELEASED TO THE OUTPUT QUEUE UNTIL
*                AFTER IAFEX TERMINATION UNLESS SENSE SWITCH 6 IS SET.
*                THIS SWITCH IS SET AUTOMATICALLY DURING INITIALIZA-
*                TION AND SHOULD BE CLEARED VIA AN *OFFSW* WHILE IAF
*                IS RUNNING IF THIS OPTION IS NOT DESIRED.
* 
*         SSW6   RELEASE THE DUMP OUTPUT FILE TO THE OUTPUT QUEUE 
*                IMMEDIATELY AFTER A IDLE OR AN ABORT.
ONSW(1,6) 
RETURN(RDF) 
IFE(OT.EQ.SYO,OTERR)
  NOEXIT. 
  SET,EFG=1.
  WHILE((EFG.NE.0).AND.(EF.LT.SPE).AND.(SW2.EQ.0),LOOP) 
    SET,EFG=0.
    RFL,0.
    RDFEX.
    IAFEX2. 
    IFE,FILE(OUTPUT,AS),DUMP. 
      SET,EFG=1.
      IFE,FILE(ZZZZDMM,AS),DSDI.
        RFL,70000.
        DSDI,F=ZZZZDMM,L=OUTPUT,Z.$EJT.$RDF.$CP,1/X.
        RETURN,ZZZZDMM. 
      ENDIF(DSDI) 
      DAYFILE,OP=I. 
      IFE,SW6,ROUTE.
        ROUTE,OUTPUT,DC=PR. 
      ELSE(ROUTE) 
        SKIPEI,ZZZZOUT. 
        REWIND,OUTPUT.
        COPYEI,OUTPUT,ZZZZOUT.
        RETURN,OUTPUT.
      ENDIF(ROUTE)
    ENDIF(DUMP) 
  ENDW(LOOP)
  IFE,FILE(ZZZZOUT,AS),ZOUT.
    ROUTE,ZZZZOUT,DC=PR.
  ENDIF(ZOUT) 
  REVERT.  RDF END. 
ENDIF,OTERR.
REVERT,ABORT.  INCORRECT ORIGIN TYPE. 
