Type ASSEMBLE
Source Lines : 231
Fixes Applied : 0
Most Recent Version : Tuesday, December 12, 1978
Last Fix ID : [Unmodified]

Module

       DMSBTB - CMS BATCH BOOTSTRAP ROUTINE

Function

       TO LOAD THE BATCH PROCESSOR ROUTINE (DMSBTP) AND USER
       EXIT ROUTINES (IF THEY EXIST) INTO FREE STORAGE

Attributes

       DISK RESIDENT IN NON-RELOCATABLE (CMS MODULE) FORM

Operation

                 DMSBTB    FIRST   INSURES    THAT   DMSINS    (CMS
       INITIALIZATION) HAS SET  ON THE BM FLAGS  BATRUN AND BATLOAD
       IN THE  CMS NUCLEUS CONSTANT  AREA SHOWING THAT  AN EXPLICIT
       BATCH IPL HAS  BEEN ISSUED OR THAT THE  CMSBATCH COMMAND HAS
       BEEN ISSUED IMMEDIATELY AFTER IPL.  IF NOT, AN ERROR MESSAGE
       (DMSBTB101E) IS  GENERATED AND THE  BM CONSOLE RETURNS  TO A
       NORMAL CMS INTERACTIVE ENVIRONMENT.
       
                 STATE  (DMSSTT)  IS  THEN CALLED  TO  CONFIRM  THE
       EXISTENCE OF  THE BM  PROCESSOR FILE  (DMSBTP TEXT).  IF THE
       FILE DOES NOT EXIST AN  ERROR MESSAGE (DMSBTB100E) IS ISSUED
       AND THE BM CONSOLE RETURNS TO CMS INTERACTIVE ENVIRONMENT.
       
                 USING THE  'STATE' COPY OF  THE FILE  STATUS TABLE
       (FST) FOR DMSBTP, DMSBTB COMPUTES THE SIZE OF DMSBTP TEXT BY
       MULTIPLYING  THE LOGICAL  RECORD  LENGTH  BY THE  NUMBER  OF
       LOGICAL RECORDS (NO DS CONSTANTS). A FREE STORAGE REQUEST IS
       MADE FOR THE  SIZE OF DMSBTP AND THE ADDRESS  OF THE ROUTINE
       IS THEN  STORED AT  ABATPROC IN  THE NUCON  AREA OF  THE CMS
       NUCLEUS.
                 STATE'S ARE ALSO ISSUED FOR THE USER EXITS AND, IF
       THEY EXIST, THEIR SIZES ARE INCLUDED IN THE REQUEST.
       
                 THIS  FREE  STORAGE  ADDRESS  IS  TRANSLATED  INTO
       PRINTABLE HEXADECIMAL  FORMAT AND  THE CMS  LOAD COMMAND  IS
       ISSUED  TO LOAD  DMSBTP  TEXT FILE  INTO  THE RESERVED  FREE
       STORAGE AREA.  ALSO LOADED  AT THIS TIME  ARE THE  USER EXIT
       ROUTINES, BATEXIT1 TEXT AND BATEXIT2 TEXT. IF THESE FILES DO
       NOT EXEIST, AN  UNRESOLVED EXTERNAL REFERENCE ERROR  CODE IS
       RETURNED BY  THE LOADER  BUT IT IS  IGNORED BY  DMSBTB SINCE
       THESE ROUTINES ARE INSTALLATION OPTIONS.  IF AN ERROR (OTHER
       THAN  UNRESOLVED NAMES)  OCCURS, A  MESSAGE (DMSBTB101E)  IS
       ISSUED AND  THE BM  CONSOLE RETURNS  TO THE  CMS INTERACTIVE
       ENVIRONMENT.
       
                 THE  LOADER  TABLES  ARE  THEN  SEARCHED  FOR  THE
       ADDRESS  OF THE  ABEND ENTRY  POINT DMSBTPAB  IN THE  LOADED
       BATCH PROCESSOR.  WHEN THE  ENTRY IS  FOUND ITS  ADDRESS AND
       THAT OF ENTRY  DMSBTPLM ARE STORED IN  ABATABND AND ABATLIMT
       REPECTIVELY IN  THE NUCON  AREA OF THE  CMS NUCLEUS.  IF THE
       ABEND  ENTRY POINT  IS NOT  FOUND  IN THE  TABLES, AN  ERROR
       MESSAGE (DMSBTB101E) IS ISSUED AND THE BM CONSOLE RETURNS TO
       THE CMS INTERACTIVE MODE.
       
                 THE BATLOAD  FLAG IS SET  OFF TO SHOW  THAT DMSBTP
       HAS BEEN LOADED, THE BATNOEX FLAG  IS SET ON TO PREVENT USER
       JOB  EXECUTION  UNTIL  DMSBTP ENCOUNTERS  A  /JOB  CARD  AND
       FINALLY, CONTROL IS RETURNED TO CMS (DMSITS).
       
       _N_O_T_E:     IF AN ERROR MESSAGE IS ISSUED, DMSERR
       TYPES THE  MESSAGE, THE BM FLAGS  BATRUN AND BATLOAD  ARE SET
       OFF  BEFORE CONTROL  IS  RETURNED TO  CMS.  THIS ALLOWS  THE
       NORMAL CMS INTERACTION TO RESUME.

Calls to Other Routines

       DMSSTT - VERIFY EXISTENCE OF DMSBTP TEXT
       DMSLDR - LOAD DMSBTP INTO FREE STORAGE