BATCHIO 
          IDENT  BIO1,RIO 
          ABS 
          ENTRY  BIO1 
          ENTRY  MFL= 
          SST 
          SYSCOM B1 
*COMMENT  BATCHIO - BATCHIO RECOVERY PROCESSOR. 
          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992. 
          SPACE  4,10 
***       BIO1 - BATCHIO RECOVERY PROCESSOR.
*         P. D. HAAS.        80/01/07.
          SPACE  4,10 
***              BIO1 INITIATES RECOVERY OPERATIONS FOR BATCHIO 
*         FOLLOWING A LEVEL 3 DEADSTART.
          SPACE  4,10 
***       DAYFILE MESSAGES. 
* 
*         * INCORRECT COMMAND.* - *BIO1* WAS CALLED FROM
*         NON SYSTEM ORIGIN JOB.
          SPACE  4,10 
*CALL     COMCMAC 
*CALL     COMSBIO 
          TTL    BATCHIO RECOVERY PROCESSOR.
          TITLE 
 RIO      SPACE  4,10 
          ORG    BUFR+QFFL
  
 RIO      SB1    1
 BIO1     EQU    RIO
          SA3    JOPR        GET JOB ORIGIN 
          MX6    -12
          LX3    -24
          BX3    -X6*X3 
          IFNE   SYOT,0,1 
          SX3    X3-SYOT
          NZ     X3,RIO2     IF NOT SYSTEM ORIGIN 
          GETJCR RIOA        READ JOB CONTROL REGISTER
          SX1    RIOB 
          SA4    RIOA        CHECK ERROR FLAG 
          AX4    36 
          NZ     X4,RIO1     IF NOT DEADSTART RECOVERY
          SYSTEM SPC,,X1     CALL *1IO* 
 RIO1     ENDRUN
  
 RIO2     MESSAGE RIOC,0,R   * INCORRECT COMMAND.*
          ABORT 
  
 RIOA     CON    0
 RIOB     VFD    18/0L1IO,42/DRET 
 RIOC     DATA   C* INCORRECT COMMAND.* 
          SPACE  4,10 
**        COMMON DECKS. 
  
  
*CALL     COMCCPM 
*CALL     COMCSYS 
          SPACE  4,10 
          USE    BUFFERS
 MFL=     BSS    0
          ERRPL  MFL=-RIO-BBFL*100  CODE OVERFLOWS MINIMUM BUFFER SIZE
          SPACE  4,10 
          END 
