Table of Contents

BATCHIO

Table Of Contents

Source Code

BATCHIO.txt 
  1.           IDENT  BIO1,RIO
  2.           ABS
  3.           ENTRY  BIO1
  4.           ENTRY  MFL=
  5.           SST
  6.           SYSCOM B1
  7. *COMMENT  BATCHIO - BATCHIO RECOVERY PROCESSOR.
  8.           COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
  9.           SPACE  4,10
  10. ***       BIO1 - BATCHIO RECOVERY PROCESSOR.
  11. *         P. D. HAAS.        80/01/07.
  12.           SPACE  4,10
  13. ***              BIO1 INITIATES RECOVERY OPERATIONS FOR BATCHIO
  14. *         FOLLOWING A LEVEL 3 DEADSTART.
  15.           SPACE  4,10
  16. ***       DAYFILE MESSAGES.
  17. *
  18. *         * INCORRECT COMMAND.* - *BIO1* WAS CALLED FROM
  19. *         NON SYSTEM ORIGIN JOB.
  20.           SPACE  4,10
  21. *CALL     COMCMAC
  22. *CALL     COMSBIO
  23.           TTL    BATCHIO RECOVERY PROCESSOR.
  24.           TITLE
  25.  RIO      SPACE  4,10
  26.           ORG    BUFR+QFFL
  27.  
  28.  RIO      SB1    1
  29.  BIO1     EQU    RIO
  30.           SA3    JOPR        GET JOB ORIGIN
  31.           MX6    -12
  32.           LX3    -24
  33.           BX3    -X6*X3
  34.           IFNE   SYOT,0,1
  35.           SX3    X3-SYOT
  36.           NZ     X3,RIO2     IF NOT SYSTEM ORIGIN
  37.           GETJCR RIOA        READ JOB CONTROL REGISTER
  38.           SX1    RIOB
  39.           SA4    RIOA        CHECK ERROR FLAG
  40.           AX4    36
  41.           NZ     X4,RIO1     IF NOT DEADSTART RECOVERY
  42.           SYSTEM SPC,,X1     CALL *1IO*
  43.  RIO1     ENDRUN
  44.  
  45.  RIO2     MESSAGE RIOC,0,R   * INCORRECT COMMAND.*
  46.           ABORT
  47.  
  48.  RIOA     CON    0
  49.  RIOB     VFD    18/0L1IO,42/DRET
  50.  RIOC     DATA   C* INCORRECT COMMAND.*
  51.           SPACE  4,10
  52. **        COMMON DECKS.
  53.  
  54.  
  55. *CALL     COMCCPM
  56. *CALL     COMCSYS
  57.           SPACE  4,10
  58.           USE    BUFFERS
  59.  MFL=     BSS    0
  60.           ERRPL  MFL=-RIO-BBFL*100  CODE OVERFLOWS MINIMUM BUFFER SIZE
  61.           SPACE  4,10
  62.           END