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