SY33-8553-4
File No. S370/S4300:36
DOSA^pE Logical Transients
and Dlfmp Phases
Systems Logic
Program Numbers 5745SCCKR
5745-SC-AIT
5745-SC-DOC
Summary of Amendments
Edition SY33-8553-4 documents:
• New processor support
• New device support
3278 Model 2A Display Console
8809 Magnetic Tape Unit
PBTI printers (3289 Model 4, and 3203-5)
328U/3286/3287 console printer
• Dumps in SVA and extended storage dumps
• Deletion of obsolete supervisor options
• DASD volume recognition by means of new VOLUME command
• Mode setting for tne 8809 Magnetic Tape Unit by means of new SETMOD
command
The logic of the Checkpoint/Restart routines is now
included, in this publication. In the library of DOS/VS,
the logic of these routines is documented in the
LIOCS Volume 1 Logic manual.
Eifth Edition (February, 1979)
This is a major revision ot, and obsoletes, SY33-85b3— 3 and
Technical Newsletter SN33-9236. This eaition applies to the IBM
Disk Operating System/Virtual Storage Extended, DOS/VSE, and to all
subsequent releases antil othecvise indicated.
Changes and additions to the text or illustrations are indicated by
a vertical line to the left o£ the change. Changes are continually
Bade to the information herein; before using this publication in
coanection with the operation of IBM systems, consult the latest IBM
System/370 Bibliography, GC20-0001, for the editions that are
applicable and current.
Requests foe copxes of IBM publications should be made to your IBM
representative or to the IBM branch office serving your locality.
A form for readers* comments is provided at the back of this
publication. If the form has been removed, comments may be
addressed to IBM Laboratory, Publications Department, Schoenaicher
Strasse 220, D-7030 Boeblingen, Germany. IBM may use or distribute
any of the information you supply in any iray it believes appropriate
without incurring any obligation whatever. Xou may, of course,
continue to use the information you supply.
© Copyright International Business Machines Corporation 197J, ^975,
1977, 1979
PREFACE
This Program Logic Manual (PLM) is a
detailed guide to the IBM DOS/VSE logical
transient programs- It supplements the
program listings by providing descriptive
text and flowcharts.
The lists that follow give the titles of
companion system control PLMs and
prerequisite publications-
For overall system control logic
description, this PLM is to be used with
the following PLMs:
• DOS^VSE Sup ervisor Loaic, SY 33- 8 5 51.
• DOS/VSE Error Re cove ry and Recording
Transients Logic, SY33-8552-
• DOS/VSE Linkage Editor Logic,
SY33-8556.
• DOS/VSE Librar ian Logic, SY33-8557.
Prerequisite to the effective use of the
PLMs are the following publications:
• MM SYs tem/37Q Principl es of Operation,
GA22-7000,.
• Introduction to DOS/VSE, GC33-5370-
• DOS/VS E System Management Guide,
GC33-537U
• DOS/VS E Data Management Concepts
GC24-5138.
DOS/VSE Serviceability Aids Logic,
SY33-8554,
Guide to the DOS/VSE Assembler,
GC33-4024.
DOS/ygE Initial Program Load and Job
Control Logic, SY 33- 8 5 55,
Titles and abstracts of other related
publications are listed in the IBM
System/370 Bibliography, GC20-0001,,
In this publication, system and component names as listed below
should be read as indicated:
System/component
name
DOS/VS
ECPS:DOS/VS
DOS/VS POHER/VS-E
DOS/VS VSAM-E
To be read as
DOS/VSE (see Note below)
ECPS:VSE
VSE/POHER
VSE/VSAM
Note: Unless that name explicitly refers to DOS/VS Release 34
or an earlier DOS/VS release-
CONTENTS
INTRODUCTION - . ., ^ . ^ ......... ^ -,..,.,,..-,...-,.;. 1 1
Logical Transients ......................... ^ >.. 11
Non-CfiT Transients .................. -^,. ....... 11
CRT Transients ........................>..... 11
Grouping of B-Transients ....................... ,- ., ,, .11
Dump Phases. . . ......,>...*...,... ...--... ^ . . . ..11
LOGICAL TRANSIENT SUPERVISOR CALLS ..... .. ,. ... - .. .-,.--.. 12
ATTENTION ROUTINES ............................... 16
TERMINATOR ROUTINES,. ............................ 31
VARIOUS SPECIAL SERVICE PROGRAMS -.,.,..... .. ...,...--.,. .37
Loading Print Control Buffers. .. ..... .,,.,...-- . . - . .37
$$BSySWR ,.,,...... .,.....,..-,..,-.. .38
$$BCCilHR -..-.....-..,....., .....--. ,38
$$BPCLOS - Automatic Close for 3800 Printer Files. . . ,, . . . . ^38
DISPLAY OPERATOR CONSOLE SUPPORT ,. .,
CRT Transient Logical Interreiati
Differences Between CRT Support a
onship.. ......
nd 1052 Support
$$BOCRTA -
$$BOCRTB -
$$BOCRTC -
$$BOCRTD -
$$BOCRTE -
$$BOCRTF -
$$BOCHTG -
$$BOCRTH -
$$BOCRTI -
$$BOCRTK -
$$BOCRTL -
$$BOCRTM -
$$BOCRTN -
$$BOCRTO -
$$BOCRTP -
$$BOCfiTQ -
$$BOCRTR -
$$BOCRTS -
$$BOCRTT -
$$BOCRTU -
$$BOCRTV -
$$BOCRTW -
$$BOCRTX -
Deletion.
$$BOCRTy -
$$BOCfiTZ -
$$B0CRT1 -
$$B0CRT2 -
$$B0CRT3 -
$$B0CfiT4 -
$$B0CRT5 -
$$B0CRT6 -
CRT Root Phase. > - *
Hard-Copy Disk ERP. .
Write Processor (Part
Write Processor (Part
CRT ERP (Part 1 of 2)
CRT ERP (Part 2 of 2)
Write Screen Message.
Write Hard-Copy Record
Write on 3284/3286/328
Command Entry Processi
Deletion by K-Command
Deletion by Cursor. .-
Screen Management Mode
Line Number Display .
Exit Interface. . .. .
Deletion of Message Li
Read Processor (Part 1
Read Processor (Part 2
Read Processor (Part 3
Update Hard-Copy File
Command £rror Message
Warning During Non-Aut
Verification of Operat
1 of 2)
2 of 2)
7/3288 SYSLOG Printer
ng<. ....... .. . .
,- ,. - .40
,. ., ., -40
. . . .40
. . . .48
- . .. -.48
,. . . .48
. . , -49
. . - .50
- , . .50
. . - .51
. - - ,51
. , . ,55
- ... -55
. .. .. .55
...--.-..-.,,.. .55
Specification. ..-.--..- 56
..,...,..,,..... ,,56
,...-,.......-... . . .56
nes ................ . . - 57
of 3), ............ .57
of 3). ............... .57
of 3),. . ......... . . . ,58
Wrap-Around Address ...... .58
Writer. ............. ,. .58
omatic Deletion Mode. .-.,..- 59
or Commands during Message
........... ^ >>.,.- ^ ,59
Handling of Messages Longer than Eight Lines.l .... .59
Channel Program Analyz
Message Redisplay (Par
Message Redisplay
Message Redisplay
Message Redisplay
Message Redisplay
Message Redisplay
(Par
(Par
(Par
(Par
(Par
er. - . -
t 1 of 6)
of 6)
60
60
60
of 6) ..... , 61
of 6)
61
of 6) ........... .61
of 6) .... , ...... .62
CHECKPOINT/RESTART ROUTINES. . . . ..... , ............ .63
Checkpoint ............................ .63
CHKPT Macro. ........................... .63
Checkpoint Routines (see Chart 23) ............... .64
Restart. .............................. .65
Restart Routines (see Chart 2^).. ............ .... .65
$$BCHKPT
$$BCHKP2
$$BCHKP3
$$BCHKPD
$$BCHKPE
$$BCHKPF
$$BCHKPG
$$BCHK3G
$$6BIISG1
$$BRSTRr
$$BESTR2
$$BRHSG2
- Tape Checkpoint Phase \l ............. . .. .. . , w67
.69
.70
.71
^71
.12
.72
.73
.73
.73
./74
.75
rape Checkpoint Phase
Tape Checkpoint Phase
Disk Checkpoint Phase
Disk Checkpoint Phase
Disk Checkpoint Phase
Disk Checkpoint Phase
Tape and Disk Checkpoint, Last Phase.
Checkpoint Message Writer . . . » ,. .
Restore Checkpointed Partition. . . .
Tape and DASO Verification. .... .
Restart Message Writer. . .... . <>
EXPLANATION OF FLOWCHART SYMBOLS . . ,..,.-....... . . . . .76
CHARTS , . .77
APPENDIX A: ERROR MESSAGE CROSS REFERENCE ...........*.. 211
APPENDIX B: TOTAL MESSAGE CROSS-REFERENCE LIST- «.-....... 280
APPENDIX C: LABEL LIST- ............ . . . . . . . . . . 281
INDEX. ...„..-.>........-...-....-.-. - . . 291
FIGURES
Figure 1. Layout of the Logical Transient Acea containing the
AtteatioD Koutines ...»...««.«..«....... 16
Figure 2. Layout o£ Connunication Areas in $$BAirN8 and $$BATTN9 . 29
Figure 3.. Layout of Parameter Address Tables in $$BATTN8 and
$$BATTN9 - ^ ,.----.....-. ,. . . \ ,, . ., ,- .. - .- 30
Figure 4. Layout of Parameter Value Tables in $$BATTN8 and
$$BATTN9 ,.-»--«.. - . , . . ^ - - . . , - - - - ^ * 30
Figure 5, Error Code Byte in $$BATrM8 and $$BATrK9 --,,,,., 30
Figure 6. Cancel Codes and Hessages . . » . < . ,. . < . . . . ^ . 35
Figure T. Layout of the LFCB Macro Information Area,- -.,-,.- 37
Figure 8.. Layout of LFCB Macro Communication Area. ....... .. ,. 38
Figure 9». CRT Message Format * . .. . . .. -. .. - . . . .. .... . . 49
Figure HO- Screen Control Table (SCT) Entry -....-.„.*-.. 49
Figure ill. Hard Copy . Control Flags, .,•-...,,.....,.,.,,.- 52
Figure 12- Hard-Copy File Format. ,-...,,,.. ^ ---,-,--.... 53
Figure 13. Information Field Generated by CHKPT Macro ,.,..,.. 64
Figure 14. Checkpoint Header and Save Record Format . . - . .... .68
Figure 15- Format of Extent Information Record.. . - - . . . . . , .70
Figure 16. Format of PFIX Information Record. ............ 70
Figure 17, Format of 3800-Printer Information Record.. . , - - . . , 70
CHAETS
General Charts
Chart 01.
Chart 02.
Chart 03,-
Chairt 04,.
Chart 05..
Chart 06,
Chart 07.
Chart 08.
Chart 09..
Chart 10-
Chart 11.
Chart 12,.
Chart 13.
Chart 14..
Chart 15.
Chart 16..
Chart 17.
Chart 18.
Chart 19..
Chart 20.
Chart 21.
Chart 22,.
Chart 23.,
Overview of Supervisor Entry into Attention Transients i18
Logical Transient Attention fioutines (Part 1 of 10) . . 19
Logical Transient Attention fioutines (Part 2 of 10) . - 20
Logical Transient Attention Routines (Part 3 of 10) .. - 21
Logical Transient Attention fioutines (Part 4 of 10) . - 22
Logical Transient Attention fioutines (Part 5 of 10) , , 23
Logical Transient Attention fioutines (Part 6 of 10) - » 24
Logical Transient Attention fioutines (Part 7 of 10) - » 25
Logical Transient Attention fioutines (Part 8 of 10) - - 26
Logical Transient Attention Routines (Part 9 of 10) . . 27
Logical Transient Attention fioutines (Part 10 of 10)- - 28
Terminator Routines (Part 1 of 3) - - - - , ... ^ ... 32
Terminator Routines (Part 2 of 2) . ,, ,. .. - ,- ,. ...... 33
Terminator Routines (Part 3 of 3) . - .- ........... 34
LrCB Macro Processor ............ ... .- . ., 39
CRT fioot Phases ...,.,.......-. ......... 41
CRT Write Processor Phases ...-.-...,...-.„,.. 42
CfiT Read Processor Phases . . . ...,.« ..a. ....... 43
CRT Screen Management Phases (Part il of 2) - ...-.- 44
CRT Screen Management Phases (Part 2 of 2) ........ 45
CfiT fiedisplay Phases .....„.,.«„..,.... 46
CfiT EfiP Phases . .... . .. . , . .. . - . ... .^ ..... 47
Checkpoint/Restart Routines ................ 66
Detailed Charts
Chart AA.. $$BATTNA - Attention Root Phase ,. » . ^ . .......... ,77
Chart AB- $$BATTNA - Control Routine -.,-.,....,,...«. 78
Chart AC. $$BATTNA - Error Message Routines . ......-.-.- 79
Chart AD. $$BATTNA - General Scan Routines ..,..,,>....... 80
Chart AE. $$BATTNB - MSG Command Processor ,..,..--,...,- 81
Chart AF. $$BATTNB - Set Operator Communications and
Exit Linkage ....-,.......-......-<...,.., 82
Chart AG., $$BATTNC - CANCEL Command Processor (Part 1 of 2) ..... 83
Chart AH. $$BATTNC - CANCEL Command Processor (Part 2 of 2)
and NEW VOL Command Processor ,........*.....-,. 84
Chart AJ. $$BATTNC - PAUSE, LOG, NOLOG, and IGNORE Command
Processor ......,.-....-.....,.,.»..,. ^ 85
Chart AK- $$BATTND - MAP Command Processor (/370-Mode) . - . - - . 86
Chart AL.. $$BATTNI - MAP Command Processor (ECPS: VSE-Mode) . ^ . . 87
Chart AM. $$BATTNE - ALLOC/ALLOCfi Command Processor (Part 1 of 2) . 88
Chart AN. $$BATTNE - ALLOC/ALLOCfi Command Processor (Part 2 of 2) - 89
Chart AP. $$BATTNE - SIZE Command Processor (Part 1 of 2) ...... - 90
Chart AQ,. $$BATTNf - SIZE Command Processor (Part 2 of 2) ..... 91
Chart AR, $$BATTNG - BATCH and STABT Command Processor
(Part 1 of 2) . . - . ,. ,. .. . ...-,.,..,... ^ , - 92
Chart AS. $$BATTNG - BATCH and START Command Processor
(Part 2 of 2) . .....'.,...-.,.. 93
Chart AT- $$BATTNH - Command Scanner ,..........,.». ^ , 94
Chart AO. $$BATTNO - VOLUME Command Processor ,.,,.-.....,. 95
Chart AV.. $$BATTNQ - MODE Command Parameter Processor .,....-,.. 96
Chart AW.. $$BATTNR - MODE Command Status Report Processor - . . ,. . 97
Chart AX. $$BATTNS - MODE Command Validity Checker (Part 1 of 2),. . 98
Chart AY. $$BATTNS - MODE Command Validity Checker (Part 2 of 2) . . 99
Chart BA,. $$BATTNT - ALTER Command Processor (Part 1 of 2)- - ,- ,. .100
Chart BB« $$BATTNT - ALTER Command Processor (Part 2 of 2), ... -101
Chart BC„ $$BATTNa - DSPLY Command Processor (Part 1 of 2) 102
Chart BD. $$BATTNO - DSPLY Command Processor (Part 2 of 2) « - . .. .103
Chart BE. $$BATTNV - DUMP Command Scan Routine (Part 1 of 4) • ., . ,.104
Chart BF,.
Chart BG-
Chart BH,
Chart BJ-
Chart BK..
Chart BL.
Chart BM.
Chart BN,,
Chart BP.-
Chart CA.
Chart CB.
Chart CC.
Chart CD.
Chart CE.
Chart CF.
Chart CG,
Chart CH-
Chart CJ,,
Chart CK-
Chart CL-
Chart CM.
Chart CN.
Chart CP.
Chart CQ«
Chart CE-
Chart CS-
Chart CT-
Chart CO.,
Chart CV.
Chart DA-
Chart DB-
Chart DC.
Chart DD.
Chart DE,.
Chart DF..
Chart DG..
Chart DH..
Chart DJ..
Chart DK,
Chart DL
Chart DM
Chart DN
Chart EA
Chart EB
Chart EC
Chart ED
Chart EF
Chart EG
Chart EH
Chart EJ
Chart EK
Chart EL
Chart EM
Chart EN
Chart EP
Chart EQ
Chart EB
Chart ES
Chart ET
Chart EU
Chart EV
Chart EW
$$BATTNV - DUMP Command Scan Routine (Part 2 of H)
$$BATTNV - DUMP Command Scan fioutine (Part 3 of 4)
SSBATTNV - DUMP Command Scan Routine (Part H of 4)
$$BATTNY - CE MODE Command Processor .,.,...
$$BATTNZ - 115/12^/135/138 or 4300 MODE
Command Processor ...-.
105
106
107
108
(Part
(Part
(Part
of 2)
of 2)
1 (Part 1 of 2) ,.
1 (Part 2 of 2) -
2 ...-..- -
$$BATTN2 - PRTY and TPBAL Command Processor
$$BATTN2 - PRTY and TPBAL Command Processor
$$BATTN2 - PRTY and TPBAL Command Processor
$$BATTN3 - ENDSD Command Processor .....
$$BATTN8 - LFCB Command Processor 1 (Part 1
$$BATTN8 - LFCB Command Processor 1 (Part 2
$$BATTF1 - LFCB Command Processor 2 - .. . . . ^
$$BATTF4 - FCB Load Execution for 3203 and 5203
(Part 1 of 2) .,.....--,....,...-;-,.. .
$$BATTF4 - FCB Load Execution for 3203 and 5203
(Part 2 of 2) .
$$BATTF5 - FCB Load Execution for PRTl - . ...
$$BATTN9 - LUCB Command Processor
$$BATTN9 - LOCB Command Processor
$$BATTU1 - LUCB Command Processor
$$BATTU2 - UCB Load Function . .
$$BATTN7 - SETDF Root Phase (Part
$$BATTN7 - SETDF Root Phase (Part
$$BATTN7 - SETDF Root Phase (Part
$$BATTN7 - SETDF Root Phase (Part
$$BATTN7 - SETDF Root Phase (Part
$$BATTN7 - SETDF Root Phase (Part
$$BATTS1 - SETDF Update Phase (Part 1 of 3) . . ,.
$$BATTS1 - SETDF Update Phase (Part 2 of 3) , . -
$$BATTS1 - SETDF Update Phase (Part 3 of 3) , .. .
$$BATTS2 - SETDF Error Phase - . . . . . - - J .
$$BEOJ - Terminate Task and Initialize Partition
(Part 1 of 3) - . - * .. .- ..,.-...-...-
$$B£OJ - Terminate Task and Initialize Partition
(Part 2 of 3) ... ,. ..,...,...,..., ,. .
$$BEOJ - Terminate Task and Initialize Partition
(Part 3 of 3) ,.-...... . . . . ;^ . . , . .. .
$$BE0J3 - Decide Next Step in Termination Handling
$$BE0J3A - Quiesce I/O for T/P Devices ..... .
$$BE0J4 - Clean up Non-TP I/O Devices (Part 1 of 3)
$$BE0J4 - Clean up Non-TP I/O Devices (Part 2
$$BE0J4 - Clean up Non-TP I/O Devices (Part 3
$$BACLOS - VSAM Automatic Close (Part 1 of 2) - . -
$$BACLOS - VSAM Automatic Close (Part 2 of 2) .. . .
$$BE0J7 - Tape and Disk PUB2 Processor (£>art 1 of 3)
$$BE0J7 - Tape and Disk Pu62 Processor (Part 2 of 3)
$$BE0J7 - Tape and Disk PUB2 Processor (Part 3 of 3)
of 3)
of 3)
109
110
111
of 3) 112
. . .113
, . .114
. . .115
. . .116
of 6) ,
of 6) .
of 6) -
of 6) -
of 6) «.
of 6) -
of 3)
of 3)
IJBSDUMP - Dump Monitor
IJBSDUMP - Dump Monitor
IJBSDUMP - Dump Monitor
IJBSDUMP - Dump Monitor
IJBSDUMP - Dump Monitor
IJBSDUMP - Dump Monitor
IJBSDUMP - Dump Monitor
IJBSDUMP - Dump Monitor
IJBSDUMP - Dump Monitor
Dump Monitor
Dump Monitor
Dump Monitor
Dump Monitor
IJBSDUMP
IJBSDUMP
IJBSDUMP
IJBSDUMP
IJBDMPPA
IJBDMPPA
IJBDMPAR
IJBDMPAR
IJBDMPAR
IJBDMPAR
IJBDMPAR
Part
Part
Part
Part
Part
Part
Part
of
of
13)
13)
of 13)
of 13)
of 13)
of 13)
of
13) ..........
Part 8 of 13) .....,--.
Part 9of 13) ...... ^ .. ,.
Part 10 of 13) ,.....-.- .
Part 11 of 13) ^ ...,..* .
Part 12 of 13) . . .. . ,. . ., . .
Part 13 of 13) .....,-. .
Dump Supervisor Control Blocks (Part 1 of 2) -
Dump Supervisor Control Blocks (Part 1 of 2) „
Storage Dump Routine (Part 1 of 5)
Storage Dump Routine (Part
Storage Dump Routine (Part
Storage Dump Routine (Part
Storage Dump Routine (Part
2
of 5)
3
of 5)
4
of 5)
5
of 5)
117
118
119
,120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
Chart FA..
Chart fB..
Chart FC-
Chart FF,
Chart FG.
Chart Ffl.
Chart FJ.
Chart FK.
Chart FP.
Chart FQ,
Chart Ffi.
Chart GG.
Chart GJ-
Chart GK,
Chart GL,
Chart GM.
Chart GN,.
Chart KA.
Chart KB,
Chart KC,
Chart KD-
Chart KE,
Chart KF-
Chart KG.
Chart KH..
Chart KJ,
Chart KK.
Chart LA,
Chart LB..
Chart LC,
Chart LD,
Chart LE.
Chart LF.
Chart LG-
Chart LH.
Chart LJ.
Chart LK,
Chart MA.
Chart MB.
Chart MC.
Chart MD.
Chart ME.
Chart MF.
I Chart MG.
Chart MH,
Chart MJ,
Chart MK.
Chart ML.
Chart MM.
Chart MN.
Chart MP
Chart NA:
Chart NB.
Chart NC
Chart ND,
Chart NE.
Chart NF=
Chart NG.
Chart NH.
Chart NJ
Chart NK,
Chart PA
Chart PB
Chart PC
Chart PD
Chart PE
Chart PF
IJBDMPIO
IJBDMPI6
UBDMPIO
IJBDMPIC
IJBDMPIC
IJBDMPIC
IJBDMPIC
IJBDMPIC
IJBEOJ -
IJBEOJ -
IJBEOJ -
$$BSYSWS
Move LaJDe
$$BCCHHii
$$BATTFO
$$BATTF2
$$BATTF2
$$BATTF3
$$BOCiiTA
$$BOCBTA
$$BOCfiTA
$$BOCi(TB
$$BOCfiTB
$$BOCitTB
$$BOCiiTC
$$BOCBTC
$$BOC£TC
$$BOCfiTC
$$BOCETD
SSBOCSTD
$$BOCBTD
$$BOC&TE
$$BOCfiTE
$$BOCBTE
$$BOCBTF
$$BOCSTF
$$BOCBTF
$$BOCBTF
SSBOCBTG
$$BOCBTG
$$BOCBTG
$$BOCfiTH
$$BOCaTH
$$BOCBTH
$$BOCfiTI
$$BOCSTK
$$BOCBTK
$$BOCETK
$$BOCRTK
$$BOCfiTL
$$BOCRTL
$$BOCBTL
$$BOCBTM
$$BOCiiTN
$$BOCaTN
$$flOCfiTN
$$BOCETO
$$BOCaTO
$$BOCfiTP
SSBOCRTP
$$BOCRTQ
$$BOCBTQ
$$BOCRTR
$$BOCRTE
$$BOCfiTfi
$$BOCRTS
$$BOCRTS
$$BOCRTS
Of
Of
of
of
of
of
- System Dump I/O fioutine (Part tl of 3)
- System Dump I/O fioutine (Part 2 of 3)
- System Dump I/O fioutine (Part 3 of 3)
- DUMP Command I/O itoutine (Part 1 of 5)
- DUMP Command I/O Routine (Part 2 of 5)
- DUMP command i/0 iioatine (Part 3 of 5)
- DUMP Command I/O Routine (Part 4 of 5)
- DUMP Command i/0 koutine (Part 5 of 5)
Cancel Message Writer (Part 1 of 3)
Cancel Message Writer (Part 2 of 3)
Cancel Message Writer (Part 3 of 3)
- Set up a Write on SYSfeES Operation;
1 Cylinder Address to COMREG .....
- Core Image Directory Scan ....
- FCB Load Initiation ,. . . .. . ,. ..
- LFCB Macro Execution for PET1 ^ .
- LFCB Macro Execution Subroutines -
- LFCB Macro Execution for 3203 and 520
- CiiT Boot Phase (Part 1 of 3) . . -
- CRT Root Phase (Part 2 of 3) , . .
- CRT Root Phase (Part 3 of 3) - . -
- Hard-Copy Disk EBP (Part 1 of 3) ..
- Hard-Copy Disk ERP (Part 2 of 3) ..
- Hard-Copy Disk EBP (Part 3 of 3) ,
- Write Processor part 1 (Part 1 of 4
- Write Processor Part 1 (Part
- Write Processor Part 1 (Part
- Write Processor Part 1 (Part
- Write Processor Part 2 (Part
- Write Processor part 2 (Part
- Write Processor Part 2 (Part
- CRT EBP Part 1 (Part 1 of 3)
(Part 2 of 3)
(Part 3 of 3)
(Part 1 of i\)
(Part 2 of 4)
(Part 3 of 4)
(Part 4 of 4)
- Write Screen Message (Part 1 of 3)
- Write Screen Message (Part 2 of 3)
- Write Screen Message (Part 3 of 3)
- Write Hard-Copy fiecords (Part 1 of 3)
- Write Hard-Copy Records (Part 2 of 3)
- Write Hard-Copy Records (Part 3 of 3)
- Write on 3284/3286/3287/3288 Console Pri
- Command Entry Processor (Part 1 of 4)
- Coiumand Entry Processor (Part 2 of 4)
- Command Entry Processor (Part 3 of 4)
- Command Entry Processor (Part 4 of 4)
- Deletion by K-Command (Part 1 of 3)
- Deletion iiy K-Command (Part 2 of 3)
- Deletion by K-Command (Part 3 of 3)
- Deletion by Cursor >.....«. . . .
- Screen Management Mode (Part 1 of 3)
- Screen Management Mode (Part 2 of 3)
- Screen Management Mode (Part 3 of 3)
- Line Number Display (Part 1 of 2)
- Line Number Display (Part 2 of 2)
- Exit Interphase (Part 1 of 2) ,- . ..
- Exit Interphase (Part 2 of 2) .. . -
- Deletion of Message Lines (Part 1 of 2)
- Deletion of Message Lines (Part 2 of 2)
- Bead Processor Part 1 (Part 1 of 3)
- Read Processor Part 1
- Bead Processor Part 1
- Bead Processor Part 2
- Bead Processor Part 2
- Bead Processor Part 2
CBT EBP Part 1
CfiT EBP Part 1
CBT ERP Part
CfiT EBP Part
CBT EBP Part
CBT EBP Part
ntej
-167
,- 1 68
.169
-170
-171
-172
-173
-174
,175
.176
.177
(Pari 2 of 3)
(Part 3 of 3)
(Part 1 of 3)
(Part 2 of 3)
(Part 3 of 3)
,178
-179
-180
.181
-182
-183
,184
-185
-186
-187
,188
.189
.190
-191
.192
.193
.194
.195
-196
.197
.198
-199
-200
.201
,202
-203
-204
-205
-206
-207
.208
-209
.210
-z11
-212
-213
.214
.215
,216
,217
-218
-219
.220
.221
.222
-223
,224
.,225
-226
-227
-228
.229
-230
-231
.232
-233
Chart PG-
Chart PH-
Chart PJ-
Chart PK.,
Chart QA.
Chart QB.
Chart QC-
Chart QD-
Chart QE,
Chart QF.
Chart QG,.
Chart QH.
Chart QJ-
Chart QK.
Chart QL,,
Chart QM.
Chart £A.-
Chart RB-
Chart EC.
Chart ED.
Chart EE-
Chart EF-
Chart EG,
Chart EH.
Chart EJ.
CHart EK.
Chart EL..
Chart EM.
Chart SA.
Chart SB-
Chart SC.
Chart SD.
Chart SE,.
Chart SF.
Chart SG.
Chart SH-
Chart SJ.
Chart SK.
Chart SL*
Chart SM-
Chart SN,
Chart SP,
Chart SU-
$$BOCfiTT
$$BOCETT
$$B0CRTIJ
$$BOCETV
$$BOCRTW
$$BOCETX
$$BOCfiTX
$$BOCfiTY
$$BOCETy
$$BOCfiTy
$$B0CfiT2
$$BOCETZ
$$BOCETZ
$$BOCfiTZ
$$BOCETZ
$$BOCETZ
$$BOCfiTl
$$B0CET1
$$B0CET2
$$B0CET2
$$B0CRT3
$$B0CET3
$$B0CET3
$$B0CET4
$$B0CET5
$$B0CfiT5
$$B0CfiT6
$$B0CfiT6
$$BCHKPT
$$BCHKP2
$$BCHKP3
$$BCHKPD
$$BCHKPiS
$$BCHKPF
$$BCflKPG
$$BCHKPG
on Disk .
$$BRMSGr
$$BCHK3G
$$BESTET
$$BfiSTRT
$$BRSTR2
Routine (
$$BRSTE2
Eoutine (
$$BEMSG2
Read Processor Part 3 (Part 1 of 2)
Read Processor Part 3 (Part 2 of 2)
Update Urap-Around Address ,.««>•.
COMMAND Error Message Writer <.,..,. ,.
Display Warning Message . ^ . . ,. ^ .
Verify Operator Cojnmands (Part 1 of 2)
Verify Operator Commands (Part 2 of 2)
Handle Long Messages (Part 1 of 3) . .
Handle Long Messages (Part 2 of 3) .. -
Handle Long Messages (Part 3 of 3) - -
Part
Part
Part
Part
Part
Part
Part
Part
Part
Part
Part
Part
Part
of
of
6)
6)
of 6)
of
of
- Channel Program Analyzer
- Channel Program Analyzer
- Channel Program Analyzer
- Channel Program Analyzer
- Cuannel Program Analyzer
- Channel Program Analyzer
- Message Redisplay Part 1
- Message Redisplay Part
- Message Redisplay Part
- Message Redisplay Part
- Message Redisplay Part
- Message Redisplay Part
- Message Redisplay Part
- Message Redisplay Part
- Message Redisplay Part
- Message Eedisplay Part
- Message Redisplay Part
- Message Eedisplay Part
- Test Checkpoint Conditions *-,..-..
- Build and Write Checkpoint Eecords ,. - .
- Build and Write 3800 Checkpoint Eecords-
- Test Checkpoint Conditions .*,... ...
- Complete Test and Write Checkpoint Header
- Write Checkpoint Eecords , ,. - , .....
- Write 3800 Printer Information Eecords .
- I/O Subroutines for Writing Checkpoint Eecor
6)
6)
of 6)
of 2)
of 2)
of 2)
of 2)
of 3)
of 3)
of 3)
Part 1 of 2)
Part 2 of 2)
1 of 2)
2 of
Part
Part
2)
- Cheokpoint Message 'Routine .. *. ..... ..
- Checkpoint Erase-Gap Routine .......
- Restore Problem Program (Part 1 of 2) . .
- Restore Problem Program (Part 2 of 2) . -
- Tape Repositioning and DASD Verification
Part 1 of 2) . , ........ . .. . . . - .
- Tape Repositioning and DASD Verification
Part 2 of 2) . . . . . , ,- , ,. ,. .. . . . .
- Restart Message Routine,. ..... ......
.234
-235
.236
.237
.238
.239
-240
.241
.242
-243
-244
-245
.246
.247
-248
.249
.250
.251
.252
-253
.254
.255
.256
,257
.258
-259
,260
,261
.262
.263
-26a
.265
,266
.267
.268
ds
.269
-270
-271
-272
-273
- .274
275
276
10
INTEODUCTION
This manual describes (a) the logical
transient programs and (b) the dump phases
that are executed in the SVA..
LOGICAL TRANSIENTS
Logical transient programs, also referred
to as B-transients, are not resident in
real storage. These transients are loaded
or fetched from the core image library into
a transient area in the supervisor. The
majority of the B-transients are loaded
into the Logical Transient Area (LTA) , when
required,- The CBT transients, $$BOCBTn, are
an exception- They are required for
display operator console support and are
loaded into the CBT Transient Area
(CRTTRNS) when required by the CBT system
task-
NON-CBT TEANSIENTS
An SVC 2 instruction loads a B-transient
phase into the LTA (1/792 bytes) and
executes it. A prefix of $$B to the name of
a phase identifies it as a B-transient. The
normal return of control to the resident
supervisor is an SVC 11, but some of the
transient programs exit by fetching another
B-transient with an SVC 2, In the latter
case, the calling B-transient is overlaid
by the transient being fetched.
Register 1 is loaded with the address of
the transient phase name before the SVC 2
is issued- The fetch or load routine, then,
has access to the name for searching the
directories for the desired transient-
Refer to section 'Logical Transient
Supervisor Calls' for a more detailed
explanation-
CRT TRANSIENTS
CRT transient routines provide support for
the display operator consoles- They reside
in the core image library and are fetched
into the CBT Transient Area by an SVC 48a
This happens each time the supervisor
encounters a request for a display console-
Since these requests may be for different
services, the support is provided by 30
different transient phases.- Each CBT phase
name begins with the characters $$BOCfiT.
Each phase fits in the CRT Transient Area
which is 1156 bytes long.
GfiOOPING OF B-TBANSIENTS
A number of B-transients are not described
in this manual, out in the manuals for the
system components to which they are
related, such as LIOCS and Job Control. The
B-transient programs, which are covered in
this manual, can be grouped by the various
functions performed:
Attention routines
Terminator routines (see also Dum p
Phased, below)
Various special service programs
Display operator console support
Checicpoint/Bestart routines
DUMP PHASES
The terminator routines consist of two
groups: B-transients, which are executed in
the LTA, and the dump phases ($IJBDUflP) ,
which are executed in the SVA,- The LTA is
not used or locked during execution of a
system dump or a PDUHP macro; it is locked,
however, durxng execution of the DUMP
command- When abnormal termination occurs
in the task owning the LTA, the area is not
freed until the system dump is complete-
The system dump routines will then dump the
LTA containing the error or that may have
provoked tne error in the failing task.
Logical Transient Supervisor Calls 11
LOGICAL TEAMSIENT SUPERVISOfi CALLS
SVC is detected by microprogramming, vtlcb.
loads the SVC new PSW from real storage
location 96- Certain SVCs are involved in
processing B-transient operations- This
section describes those supervisor calls
which are directly used in logical
transients. The Supervisor Logic PLM listed
in the Preface contains a list of all SVCs
used in the system,
SVC 0: Execute the channel program (EXCP) ,
The address of the user's command control
block (CCB/IORB) must be supplied in
general register 1 before this SVC is
issued. If POWER/VS is active and the I/O
operation for the device needs to be
emulated, control is given to the SVC
appendage in the POWER/VS nucleus code.
SVC 2: Fetches a B-t
B-transient program
equals $$6) from the
library or a private
the; B-transient area
to the fi-transient a
8 bytes. The directo
may be found in stor
image library direct
core image library d
assigned) .
ransient. Loads a
(phase name prefix
system core image
core image library to
and control is passed
t its load address plus
ry entry for the pnase
age, in the system core
ory, or in the private
irectory (if a PCIL is
The storage address of the B.-transient
phase najne,.' or the" address of a parameter
list must iae supplied in general register 1
before this SVC is issued.
An address in general register is
ignored. The B-transient is loaded at tne
beginning address of the B-transient area.
General register 15 is loaded with this
address and may be used by B-transients as
a base register. Return may oe either to
the interrupted program or to the nighest
priority program ready to run.
Only one program can use the B-transient
area at a time. If the B-transient program
is SVC 7 bound, another program is
selected. This program becomes SVC 2 bound
(waiting for the B-transient area) if it
issues an SVC 2. Another program is then
selected.
Note: SVC 2 also traps fetches for the
former dump routines $$BDUMP, $$BJDUMP, and
$$BPDUMP. Whenever an SVC 2 is issued for
one of these routines, the terminator in
the supervisor is entered and the
SVA-resident dump routine $IJBDUMP is
initialized.
SVC 3: Provides an interface between the
supervisor and $iBE0J4. SVC 3 waits for
termination of I/O requests that belong to
the partition or task which is being
canceled or has reached end-of-job.
SVC 4: Loads a phase from the system core
image library or a private core image
library (PCIL) and returns to task
selection. The directory entry for the
phase may be found in storage, in the
system core image library directory, or in
the private core image library directory
(if a PCIL is supported and assigned),, A
directory entry found in the SDL is not
loaded if it is active and its phase itself
is SVA-resident.
The storage address of the phase name or
the address of a parameter list must be
supplied in general register 1 before tnis
SVC is issued,, Tne user may override the
link-edited load aadress iay supplying a
load address in general register 0- Upon
return to the user, general register 1
contains the phase entry address adjusted
for any changes in the phase's load
address, and general register points to
the active incore directory entry if one
was supplied, or found by a local or system
directory list search.
SVC 6: Cancels a program (task) or
partition. This is usually achieved by the
requesting program, task, or subtask
issuing a CANCEL or CANCEL ALL macro-
If a subtask issues CANCEL, only that
subtask is terminated. If a maintask issues
CANCEL, or a subtask issues CANCEL ALL,
then the entire partition is canceled, the
maintask being always the last to be
terminated.
CANCEL macro issued by maintask without
subtasks: the issuing task is terminated
normally,
* Cancel code X'23' is posted to the
issuer's PIB,
* Message • (issuer) CANCELED DUE TO
PROGRAM HbQUEST*.
CANCEL macro issued by subtasic: the issuing
subtask is terminated normally.
* Cancel code X'23' is postea to the
issuer's PIB,
•• Message • (issuer) CANCELED DUE TO
PROGRAM REQUEST'.
12 DOS/VS Logical Transients
CANCEL macro issued by maintasJc Kith
subtasks attacued: the maxntasJc is
terminated normally; attached subtasKs are
terminated abnormally,,
• Cancel code X'lD* is posted to each
subtasic PIB,
• Cancel code X»17' is posted to the
maintasJc PIB,
• Message • (subtasJc) CANCELED DUE TO
MAIN TASK TERMINATION'-
• Message • (issuer) CANCELED DUE TO
PiiOGEAM REQUEST'-
• A dump is generated at the start of the
termination of the maintasK if the DUMP
option is active (DUMP=YES) .-
CANCEL ALL macro issued by a subtasJc: the
issuing subtask is terminated normally;
other subtasks and the maintask are
terminated abnormally.
• Cancel code X'23' is posted to the
issuing subtask PIB^
• Cancel code X*1C' is posted to each of
the other subtasks PIBs and to the
maintask PIB-
• Message » (issuer) CANCELED DUE TO
PiiOGfiAM REQUEST'-
• Message ' (main or subtask) CANCELED DUE
TO CANCEL ALL MACRO' .
• A dump is generated at termination of
the subtask if the DUMP option is
active.
If linkages to the user's AB routines have
been established through the STXIT (AB)
macro, these routines are entered for all
tasks tuat are terminated abnormally by the
CANCEL or CANCEL ALL macro, so the task
that issues an SVC 6 never enters its AB
routine,. (Exception: the issuer was a
B-transient.)
An AB routine normally terminates through a
DETACH, EOJ, or CANCEL macro, but an
abnormal condition encountered in an AB
routine also terminates that AB routine.
SVC 7: Waits for the completioa of an I/O
operation or for a timer -interruption to
occur. It supplies the supervisor support
for the WAIT macro-
If the traffic bit (CCB/IORB) or event bit
(TECB) has been posted, SVC 7 branches
directly to task selection and task is
dispatcned immediately after the SVC7 call.
If the traffic bit or event bit has not
been posted, the following action is taKen:
«• If a system task was interrupted, the
system task is deactivated,-
• The PIB flag of the interrupted program
is set to I/o-boiind (not ready to run)
and its PSW is set up to reissue SVC 7.
SVC 8: Supplies the supervisory support to
temporarily return from a logical transient
to the problem program. This SVC may be
issued only from the logical transient area
(LTA) and does not free this area- The
entry address to the problem program must
be specified m general register 14. The
task selection exit loads the problem
program registers- General registers and
1 are passed to the problem program.
To return to the logical transient, the
problem program issues an SVC 9.
SVC 9: Supplies the supervisory support to
return to the logical transient after an
SVC 8 has been issued. An SVC 9 may be
issued only by the problem program. The
task selection exit loads the logical
transient registers- General registers
and 1 are passed to the logical transient
programs.
SVC 1 1 : ieturns from a B-transient
releasing the B-transient area, SVC 11 is
invalid if issued by other than a
B-transient, The logical transient area is
released for use by other programs or
tasks.. Return is to the highest priority
program ready to run.
SVC ill is also used to return from the
SVA-resident terminator routine (SIJBDUMP)
to the supervisor. The terminator routine
in the supervisor will release the
SVA-resident terminator routine.-
SVC 14; This is the normal end of job
(EOJ) , Cancel code X'10' is posted to the
PIB for the program issuing the SVC 14, The
next time the canceled program is selected
on general exit, a branch is made to the
terminator routines.
SVC 22: Seizes the system and provides a
release from such a seizure in a
multiprogramming system. This SVC may be
issued only by joo control and logical
transient programs- The PSW protection
field must be zero, otherwise the issuing
program is canceled^
The first SVC 22 issued seizes the system.
Until the next SVC 22 is issued, the task
selection mechanism is disabled so that the
issuing task is the only user task that can
be selected. The next SVC re-enables the
task selection mechanism-
Logical Transient Supervisor Calls 13
If the low-order byte of general register
is zero, the system masJc is set to disable
all interruptions; if non-zero, the system
mask is set to enable all interruptions..
If general register is negative, the user
protection icey is set in tiie user's PSIS*
SVC 23; Retrieves the load address for a
specified phase from the directory entry
for the phase. The program issuing an SVC
23 is canceled if the PSH protection key
does not equal 0- (Only job control and
B-transient programs can issue an SVC 23^)
The user must specify the storage address
of the phase name in general register 1 and
tiie address where the load address is to be
stored in general register 0. The main
fetch subroutine scans the System Directory
List, the system core image library and the
private core image library (if supported
and assigned) for a directory entry for the
phase. The load address is retrieved and
stored at the address specified by general
register 0* The high-order byte of the
storage area is not changed.
If the phase is relocatable tlie load
address returned is the relocated load
address.
SVC 26: Validate address limits,. The
program issuing an SVC 26 is canceled if
the PSW protection key does not equal 0.
(Only job control and B-transient programs
can issue an SVC 26,)
The upper address must be specified in
general register 2, and the lower address
must be specified in general register 1.
If an SWC 26 was issued by a CRT^transient
routine, control is always returned to the
CRT routine,. In case of an error, a flag
byte is set before control is returned. For
any other routine, if either address is
outside the requestor's partition, the task
is canceled (ERR 25)..
S VC 36: Frees a track or block that is held
by the task issuing the FfiEE,. An attempt
to free a track not owned by the requestor
results in cancelation of that task.
Exits on a successful FREE are to task
selection, or to the DETACH routine if the
FREE was issued by that routine..
S VC 39: Performs normal '
subtask. DETACH may be i
subtask being terminated
task. If DETACH is issue
program, the cancel code
end-of-job) is set in th
the terminator is entere
the termination process,
by an EOJ transient rout
termination of a
ssued by either the
or by the main
d by a problem
XMO" (normal
e subtask PIfi and
d« At the end of
DETACH is issued
ine, setting the
subtask 's PIB inactive (byte = X'80'),
and posting its ECB for termination.
SVC 48; Fetches a CRT-transient phase and
makes the CRT task dispatchable. The
program issuing an SVC 48 is canceled if
the PSW protection key does not equal zero.
The first SVC 48 is issued at IPL time to
activate the CRT hooks in the supervisor
and to load the CiiT root phase $$BOCRTA
into the CRT transient area (CRTTENS) . Each
subsequent SVC 48 loads the specified phase
via Fetch into the CRT transient area and
sets the PSW address to the start address
of the CRT phase; exit is taken to th^
dispatcher-
SVC 54; This supervisor call is only valid
in 370-mode- In ECPS: VSE-mode the same
function is provided by PFREE, SVC 54
provides supervisor support for the
FREEREAL macro to release page frames to
the page pool. These page frames may be
released from a real partition or the SDAID
area.
Hhen the r
terminator
real parti
upper addr
address in
upper bein
the area)
to the SVC
and 3.
eguest is issued by the
(the page frames belonging to a
tion are freed) , the lower and
esses (lower address being any
the first page of the area,
g any address in the last page of
of tne real partition are passed
54 routine in the registers 2
A zero value in register 2 indicates that
the request is issued by SDAID. In this
case the lower and upper limit of the area
to be released are .obtained from the
internal page manager address fields.
Control is passed immediately to task
selection if no SDAID area exists.
The page frames are freed, one after the
other, by updating the corresponding Page
Frame Table entries (PFTE) . The PFIX
counter is reset and the partition PFIX
counter in the Storage flanagement Control
Block (SHCB) is decreased by one,.
In the PFTE the page frame is indicated as
unused. The address bits of tne PFTE are
cleared, the storage key of the page frame
is stored in bits 8-fll, the page data set
bit is reset, and the high address bit is
set,. The released page frames are enqueued
on top of the unused page frames selection
queue. The counter for the number of page
frames in the selection queue is increased
by one-
If SVC 54 is issued by the terminator, the
number of active virtual partitions (entry
in SYSCON) is increased by one, and the
translation mode bit in PIBDATFL is set.
14 DOS/VS Logical Transients
If SVC 54 is issued by SDAID, the counter
in the SNCfi (which shows the number o£ page
frames that are fixed in the page pool) is
reset to zero-
The SVC 54 posts any task and the CCW
translation routine ready to run, if they
are in the wait state, and if more than the
minimum number of page frames is available
in the page selection queue (PSQ) .
SVC 59: In 370-mode, SVC 59 initializes the
page table and page frame table entries
belonging to specific pages- In
ECPS:VSE-mode, SVC 59 invalidates the pages
of the area specified by the input
parameters. The task issuing an SVC 59 is
canceled if the storage protection key in
the PSH is not 0.
The following parameters are passed to this
routine:
R3: Address located in tne first page of
the area to be invalidated
E4: Address located in the last page of the
area to be invalidated.-
37Q-mo de o nl y: If the area to be
invalidated belongs to the active part of
the partition (virtual partition: the TfiAM
bit is set; real partiton: the TEAM bit is
reset) , the corresponding page table
entries (PTE) are set to X»00STK4«, where
STK equals the PIK and is stored in bits
8-11. If the area to be invalidated belongs
to the non-active part of the partition,
the corresponding PTEs are set to
X* 80STK0' , where STK has the same meaning
^aS above,. Each PTE within the area defined
by E3 and B4 is initialized in that way. if
the page referred to by an entry is in real
storage, the page frame table entry of the
corresponding page frame is initialized as
follows:
The piage frame is marked as unused
4 in S370FLG is set) and the PFIX
counter is set to zero.
(bxt
• The page frame is removed from the page
selection queue and enqueued at the top
of the invalid page frame queue.
• If a page is found to be 1 LXed, the
system enters the hard wait state
(debug mode only) -
The key of the storage block in this page
frame is set to zero-
ECPS: VS E-fflode onix: Each page within the
area defined dj R3 and E4 is invalidated as
follows:
• If the page is disconnected, the
reference, change, and PDS bit is
reset.
• If the page is connected, the same
action is taken as for disconnected; in
addition, the hold bit of the connected
page frame is reset,.
• It the page iS addressable, the
corresponding page frame table entry is
removed from the page selection queue,
and the page is disconnected by
resetting the reference, change, and
PDS bit>.
Logical Transient Supervisor Calls 15
ATTENTION fiOOTINES
This group of B-transients consists of
phases vhose names start with $$fiATI«
The attention task is activated when the
operator presses the request key on the
console printer-keyboard or on the display
console once or twice in quick succession,
or when he presses the interrupt key on the
system control panel.. The physical
attention transient $$ABERfiZ is fetched
into the Physical Transient Area-
On a display console, the operator may
enter attention commands without pressing
the request key first (see below)..
If the operator pressed the request key
twice in quick succession because he wants
an emergency cancel, $$ABE£fiZ processes the
interrupt and the logical attention
transients are not activated.
I
Control Section i JBATB40
This Control Section is the same
as the Csect constituting $$BATTNB.
Therefore no fetch of $$BATTNB is
required when code in this Csect is
to be executed and this area is
not yet overlaid by another phase.
$$BATTNA —
.J
Logical Transient Area
ROOT
SEGMENT
OVERLAY
AREA
In the other cases, $$BATTNA is fetched
into the LTA. If $$BATTNA is entered
because the operator pressed the interrupt
key, $$BATTNB establishes linkage to the
Background Operator Communication routine.
Control is returned to the supervisor,
unless attention is pending.
To service the attention request, $$BATTNA
reads input statement information and loads
$$BATTNfl, which ^selects the appropriate
command processor.
On a display • console, the operator may
enter attention commands without pressing
the request key first- $$BATTNA moves the
command from the attention buffer in the
CRT save area CBTSAV to the I/O buffer in
$$iiATTNA- It then loads $$BATTNH which
selects tne correct command processor.
$$BATTNA is always loaded together with the
code of $$BATTNB, which is contained in a
separate control section- That code is
overlaid by other attention phases as the
need for execution of those phases arises.
The code of $$BATTNA, which is contained in
the first control section, normally remains
in the Logical Transient Area as a root
phase as long as the attention task is
active.. However, if $$BATTNA is overlaid by
another attention pnase, its code is always
reloaded when the current phase completes
execution. Figure 1 shows a layout of the
Logical Transient Area containing the
attention routines-
Figure 1- Layout of the Logical Transient
Area containing the Attention
Routines
Commands accepted by the attention routines
are:
• ALLOC: Permits the operator to allocate
the virtual address area among
foreground and background programs
($$BATTNE) .
• ALLOCR: Permits the operator to
allocate the r eal address area among
foreground and background programs
($$BATTNE) .
• ALTER: Periaits the operator to alter
one to sixteen bytes of virtual storage
($$BATTNT) ..
• BATCH: Initiates job processing in a
foreground partition, or restarts job
processing in a stopped partition
($$BATTNG) .
• CANCEL: Modifies the PIB of the
specif iea partition to cancel the
current task (s) in the specified
partition ($$BATTNC) .
• DSPLY: Permits the operator to display
sixteen bytes of virtual storage
($$BATTNU) .
• DUMP: Permits the operator to dump part
(for example a partition) or all of
real or virtual storage depending on
whether the partition runs in real or
virtual mode ($$BATTNV) ,
16 DOS/VS Logical Transients
ENDSD: Terminates SDAXD routines
($$BATTN3)..
IGNORE: Used to ignore control
statements that contain errors.. Causes
control to be returned immediately to
$$BATTNA to read next command
(SSBATTNC) -
LFCB: Permits the operator to change
the contents of the FCB (forms control
buffer) of a printer ($$BATTN8, F\, F4,
F5) ,
LOG: Permits logging of job control
statements for all partitions on
SYSLOG^ The appropriate switch is set
in each partition communications region
($$BATTNC) i
LUCB: Permits the operator to change
the contents of the UCB (universal
character set buffer) of a printer
($$BATTN9, U1, U2),.
MAP: Provides a map of storage
utilization ($$BATTND, $$BATT1II) . An
example is given in DQS/ V SE S yst em
CoEirol Statements..
MODE: Provides control over the
recording mode for recoverable machine
checks and allows setting various £MSR
options for recording of device errors
(SSBATTNQ, R, S, Y, Z) .
MSG: Causes control to be given to a
foreground program operator
communications routine previously
activated by a STXIT macro ($$BATTNB) .
NEHVOL: Reactivates job control in the
specified partition, which was waiting
for a volume to be mounted ($$bATTNC) ,
NOLOG: Suppresses logging of job
control statements on SYSLOG, The
appropriate switch is reset in each
partition communications region
($$BATTNC),.
PAUSE: Indicates job control pauses for
operator communication at the end of
the current job step in the specified
partition, or, optionally, at end of
job of the current program in the
specified partition ($$BATTNC)„
PRTY: Allows the operator to display or
change the priorities of the partitions
in the system, which were set when the
system was generated ($$BATTH2) .
SETDF: Allows the operator to set
and/or reset default values for the
3800 printer ($$BATTN7, $$BATTS1,
$$BATTS2)..
SETMOD: Allows the operator to change
the mode of a 8809 tape unit from
streaming to start-stop or vice versa
t$$BATTNK) -
SIZE: Allows the operator to subdivide
a partition permanently into an area
for program execution and a GETVIS area
($$BATTNF),-
START: This command has the same
function as the BATCH command
($$BATTNG),-
TPBAL: Allows the operator to display
or change TP Balancing ($$BATTN2) ,
VOLUME: Provides the operator with the
volume identifiers of the volumes
mounted on a DASD device, together with
an inaication of whether or not the
volumes are in use ($$BATTNO) .
Attention Routines 17
Chart 01- Overview of Supervisor Entry into Attention Transients
(Allowable \
Supervisor I
Interrupt y
External Interrupt-
I/O Interrupt—
Supervisor Call 1
Program Check 1
Ij^achine Check 1
^
YES
See Supervisor
Logic PLM, listed
in the Preface
9
6
(See Chapter ^i
Display Operator j
Console Support /
YES
$$ABERRZ
See Supervisor Logic PLM
The message 'REQUEST
CANCEL' is issued and
according to the operator'
reply the appropriate
partition is canceled
/^rancivtoAREXlA
V in Supervisor^
YES
Post Attention Task
Selectable (X'83' in the
first byte of the Attention
PIB)
if it was an external interrupt
post it in the flag byte of the PIB
$$ABERRZ
See Supervisor Logic PLM
When the Atterrtion task is
selected, this Physical Attention
phase is fetched in the Physical
Transient Area.
Assume that no intervention
is required on any device, or that
tha operator replies 'IGNORE'.
Set up to fetch $$BATTNA and
go through Task Selection.
$$BATTNA
18 DOS/VS Logical Transients
Chart 02. Logical Transient Attention Routines (Part il of 10)
03,04,06
$$BATTNA, $$BATTNH
Charts AA- AD, AT
The first control section of $$BATTN A functions as the root
phase. The second control section, which contains the code
of $$BATTNB; is overlaid by other phases as required.
The following functions are performed:
• If an external interrupt is to be processed,
establish linkage to the background operator
communications routine. When the routine
is busy, the complement of the address is
set in the option table. A bit is set in the
PIB to indicate to the supervisor that an
OC interrupt is to be serviced.
• Read the command and load $$BATTNH, or if the
attention command was issued on a CRT device
without pressing the request key first, move the com-
mand to the buffer in $$BATTNA, display the com-
mand and load $$BATTNH.
• $$B ATTNH scans the command, loads the phase
required to process the command and branches to the
correct routine within the phase by means of a branch
vector table.
• If the command is not a valid DOS/VS command _
and ACF/VTAM and/or POWER/VS are active, and
exit is taken on the ACF/VTAM and/or POWER/VS
interface since the command could be a valid
ACF/VTAM or POWER/VS command.
• Exit via DTCH AT if no more commands are found or if
an external interrupt was processed and there is no
attention interrupt pending.
DTCH AT -^
• Deactivate attention routine and exit from B-Transients.-
CONTROL
• Load $$BATTNH, read next command etc.
$$BATTNA also contains subroutines, storage areas and constants
common with other phases. These routines are used to scan the
operands, to issue messages, and to load other subroutines.
Command
Phase Name
Exit to Chart:
ALLOC
$$SATTNE
04
ALLOCR
$$BATTNE
04
ALTER
$$BATTNT
06
BATCH
$$BATTNG
04
CANCEL
$$BATTNC
03
DSPLY
$$BATTNU
06
DUMP
$$BATTNV
07
ENDSD
$$BATTN3
04
IGNORE
$$BATTNC
03
LFCB
$$BATTN8
09
LOG
$$BATTNC
03
LUCB
$$BATTN9
10
MAP
$$BATTND.I
03
MODE
$$BATTNZ
08
MSG
$$BATTNB
03
NEWVOL
$$BATTNC
03
NO LOG
$$BATTNC
03
PAUSE
$$BATTNC
03
PRTY
$$BATTN2
04
SETDF
$$BATTN7
11
SET MOD
$$BATTNK
03
SIZE
$$BATTNF
04
START
$$BATTNG
04
TPBAL
$$BATTN2
04
VOLUME
$$BATTNO
04
See DOS/VS
ACF/VTAM or
POWER/VS
Logic manuals
( SVC II j
Attention Routines il9
Chart 03. Logical Transient Atteiition iioutlnes (Part 2 of 10)
$$BATTNB
$$BATTNC
MSG PROCESSOR
Charts AE, AF
This pnase selects the correct operator communications routine. It selects
the appropriate operator communications option table entry and establishes
linkage to the selected foreground user routine. The user's general registers
and modified PSW are saved in his OC save area. When the selected operator
communications routine is busy, the phase sets the complement of the
address in the option table.
$$BATTNC
CANCEL PROCESSOR
Charts AG, AH
This routine finds the key of the program identified by the operand, if any,
of the CANCEL command. Depending on the key found, this phase:
• Cancels the program currently being executed in a specified
area, in a multiprogramming environment;
• Cancels the background program;
• Any subtasks of the maintask selected for cancelation are also
canceled.
Cancelation is accomplished by setting the appropriate flags in the PIB(s) of
the task(s) to be canceled. When the background is canceled implicitly (no
operand supplied), branch to DTCHAT in $$BATTNA.
$^BATTNI
MAP PROCESSOR (ECPS:VSE mode)
Chart A L
This phase displays the following information on SYSLOG :
• Supervisor size and amount of PFIXed (real) storage and upper limit
address.
• For each partition: partition size, GETVIS size, amount of PFIXable
storage, partition upper limit, status, priority, and job name if a job
is running.
• SVA size and system GETVIS size.
• Page pool size.
PAUSE/LOG/NOLOG/IGNORE PROCESSORS
Chart AJ
This routine sets switches in one or more partition communications regions.
• PAUSE - Turn on job control switch bit for PAUSE at
COMREG + 56 or for PAUSE-at-EOJ at COMREG + 59 in
the communications region of the specified partition.
• LOG/NO LOG - Set job control switch bit for LOG (on) or
NOLOG (off) at COMREG + 56 in each partition communication region.
• IGNORE - Return control immediately to CONTROL in $$BATTNA
to read the next command.
$$BATTNC
NEW VOL PROCESSOR
Chart AH
This routine finds the key of the program identified by the operand
of the NEWVOL command. It readies the specified partition by setting
the appropriate flag in the PIB.
(J
$$BATTNA
DTCHAT
$$BATTND
MAP PROCESSOR (370-mode)
Chart AK
This phase displays on SYSLOG a map of the current storage allocated to, and
the program active in, all problem program areas (EG, F1, F2, etc.), the
page pool, and the supervisor. Storage allocation is mapped in terms of 2K
blocks as determined from the appropriate entries in the communication re-
gion, and the PIB table, using the EBCDIC. For active par-'
titions, the name of the job currently executing in that partition is obtained
from the partition communication region.
$$BATTNK
SETMOD Command Processor
The SETMOD command initializes the mode of a 8809 tape to Streaming or
Start-Stop by inserting the specified mode in byte 5 of the PUB entry for the
corresponding device. If the nruxle operand is omitted, a default mode of 60
(Low Speed and Short Gap) is assumed.
CUUSCAN — Check cuu operand for validity and convert it to binary.
— If syntax error, issue message ISOnD
PUBSCAN - Scan PUB table for matching entry.
If cuu is not found, issue message 1P40D -
If cuu is not a 8809, issue message 1 P41 D -
MODESCAN - If mode operand is omitted, insert default value 60 in PUB
entry.
- If mode is invalid, issue message 1 P42D —
- Insert mode in PUB entry.
- Add X'03' to mode byte to produce correct CCW op code.
- Write message 1P43I.
- Return
$$BATTNA
CONTROL
$$BATTNA
DTCHAT
$$BATTNA
CONTROL
20 DOS/VS Logical Transients
Chart 04. Logical Transient Attention Routines (Part 3 o£ 10)
^
$$BATTNE
pj
ALLOCANDALLOCR PROCESSOR
Charts AM, AN
This phase performs the following functions:
• Checks t he operands of the storage allocation commands for
validity.
• Converts the values specified in the commands to binary,
builds a parameter list, and issues the ALLOCATE
macro.
• Checks the return code from the ALLOCAT E macro and,
if not zero, inserts the translated code in an error message in-
dicating the reason why the allocation could not take place.
$$BATTNF
SIZE PROCESSOR
Charts AP, AQ
This phase performs the following functions:
• Checks the SIZE operands for validity. If a syntax error is detected,
message 1 P04D is issued and control is returned to CONTROL in
$$BATTNA.
• Converts the SIZE value to binary, builds a parameter list, and
issues the SET LI MIT macro for each partition specified-
• Checks the return code from the SETLIMIT macro and, if not zero,
inserts the translated code in message 1 P03D.
m
$$BATTNG
BATCH AND START PROCESSOR
Charts AR, AS
Initiates job processing in a foreground partition, or restarts job
processing in a stopped partition. If the partition is to be restarted,
the PIB flag is set to X'B3' and the 'partition was stopped' bit is set
to zero.
If job processing is to be initiated, the PIB flag is set to X'81 ' and
switches are set in the PIB to initiate fetching of EOJ routines. EOJ
will load Job Control in the specified partition. The current SYSLOG
and SYSRES assignments for BG are also set for the specified partition.
^
$$BATTN2
PRTY AND TPBAL PROCESSOR
Charts BL-BN
PRTY - Displays the present dispatching order of the partitions (no
operand given) or changes the priority sequence of the partitions.
The order of operands indicates the new priority sequence, in
ascending order.
TPBAL - Displays (no operand given) or changes the present setting
of the TP Balancing function. The operand indicates the number of
batch partitions in which processing can be delayed.
$$BATTN3
$$BATTNA
CONTROL
ENDSD COMMAND PROCESSOR
Chart BP
This routine terminates SOAID routines. Supervisor state
is forced and PER bits are reset in all PSW's. This routine
also frees the alternate area and SDAREA, if present, and
returns the associated page frames to the page pool.
SVC 54 is used for this. Control is returned to DTCH AT
in $$BATTNA.
S$BATTIMO
VOLUME PROCESSOR
Chart AU
This routine checks the parameters of the VOLUME command,
gets the volume characteristics for the requested device(s),
checks the PUB2 and PUBOWNER tables whether the
volumes are in use, and writes the output on SYSLOG.
$$BATTNA
DTCHAT
Attention Routines 21
Chart Ob.. Logical Transient Attention Routines (Part 4 of 10)
$$BATTNQ
MODE COMMAND PARAMETER PROCESSOR
Chart AV
This phase chacks the parameters of the MODE command:
• Valid parameters set indicators in the $$BATTNA I/O buffer.
• 'STATUS' parameter causes load of $$BATTNR phase.
• Parameters are isolated by using $$BATTNA scan routine.
• 'E' and 'T' values are checked for validity, given binary values,
and saved in regs. 4 and 1 2, respectively.
• Maximum length of command is 27 bytes.
When scanning of parameter is completed, $$BATTNQ loads $$BATTNS.
$$BATTNS
MODE COMMAND VALIDITY CHECKER
Charts AX, AY
This phase checks for valid combinations of
parameters. Error messages report invalid parameter
groupings. Valid parameters are posted in the RAS
monitor table, RASTAB, byte MCMODE (See Error
Recovery and Recording Transients Logic). The
phase posts, if specified, in RASTAB:
1. Mode changes
2. Error count threshold
3. Time threshold
$$BATTNR
MODE COMMAND STATUS REPORT
PROCESSOR Chart AW
This phase formulates and prints system status
reports on SYSLOG. It gets information from
RASTAB and the TAS Linkage Area.
After processing the status report, it returns
to CONTROL in $$BATTNA.
02
$$BATTNA
CONTROL
22 DOS/VS Logical Transients
Cbart 06, Logical Transient Attention Routines (Part 5 of 10)
$$BATTNT
ALTER COMMAND PARAMETER PROCESSOR
Charts BA, 88
This phase checks the parameters of the ALTER command:
• A valid address
Addresses that are not 6 characters long, or do not represent
a hexadecimal address cause message 1 141 D to be issued. The
same message is issued if the start address points to an invalid
address space, (see Note). Message 11471 is displayed if some
of the bytes to be altered fall within invalid address space.
• Anaddress within the supervisor area or SVA
If the address is within the supervisor area, or in the SVA message
1I42D is issued to verify that this is the correct area to alter.
• When the address has been checked, this routine reads from SYSLOG 2
to 32 characters of information that is to be stored in 1 to 16 bytes of
virtual storage.
• Errors in the SYSLOG input cause message 1I45D to be issued.
The response to this message is either a new set of data or the END/ENTER
key, which results in a branch to $$BATTNA.
• When virtual storage has been successfully altered, control is returned to
$$BATTNA.
$$8ATTNA
CONTROL
02
02
$$BATTNU
$$BATTNA
DTCHAT
DSPLY COMMAND PROCESSOR
Charts BC.BD
This phase checks the parameter of the DSPLY command:
• A valid address
An address that is not 6 characters long, or does not represent
a hexadecimal address causes message 1 141 D to be issued. The
same message is issued if the address points to an invalid address
space, (see Note).
If the reply to 1141 D is
• a val id command and address, processing continues.
• END/ENTER key, the attention routine is terminated
and control is returned to the supervisor via
$$BATTNA.
If some of the bytes to be displayed are within invalid address space,
only the bytes up to the invalid address space are displayed and the
message 1 1481 is issued.
When the address has been checked, the hexadecimal representation of
16 bytes of virtual storage, starting at the specified address, is displayed
on SYSLOG.
When the display is complete, control is returned to $$BATTNA.
Note:
Invalid address space is the address
of a location
• in the gap between real and
virtual storage;
• beyond the end of virtual
storage;
• in the page pool;
• in a virtual partition, whose
real partition contains a program
running in real mode.
02
$$BATTNA
DTCHAT
02
$$8ATTNA
CONTROL
Attention Routines 23
Chart 07- Logical Transient Attention Routines (Part 6 of 10)
$$BATTNV
DUMP COMMAND ANALYZER
Charts BE - BH
• Checks the operands of the DUMP command for validity.
If invalid, message 1 143D is issued.
• Checks that the device specified in the second operand
exists, whether it is a printer, tape or DASD device, and
whether it is available. If not, message 1 146D is issued.
• If the response to the message is the corrected command,
checking of the operands restarts. If the response is
END/ENTER, the attention routine is terminated and
control is returned to the supervisor
• If the operands are correct, phase SIJBDUMP in the SVA
is called via an SVC2 hook in the supervisor.
$IJBDUMP (in SVA)
DUMP COMMAND PROCESSOR
Charts EJ - EP,
ES - EW, and FF - FK
This phase dumps the following:
• Control registers 0-15
• Supervisor if S was specified in the command
• SVA if SVA was specified
• SDAID buffer if BUFFER was specified
• One or all partitions (with registers), if requested and
active. If a partition is not available, a message is
issued.
• An area of storage located between 2 hexadecimal
addresses. The associated registers are also printed.
If the area to be dumped contains invalid address
space, a message is issued.
The output can be written on a printer, tape or DASD device.
If the output is to be written on a DASD device, a preallo-
cated file named DOSDMPF must be available for the dump
output. Module IJBDMPIC performs the I/O operation for
the DUMP command.
$$BATTNA
CONTROL
( SVC 1 1 j
TERMINATOR IN SUPERVISOR
Returns to $$BATTNV
$$BATTNV
DUMP COMMAND ANALYZER
Charts BE - BH
Returns control immediatly to $$BATTNA at label
CONTROL.
24 DOS/VS Logical Transients
$$BATTNA
CONTROL
chart 08- Logical Transient Attention Routines (Part 7 of 10)
$$BATTNZ
115/125/135/138 or 4300 MODE
COMMAND PROCESSOR
Chart BK
This phase checks the MODE command:
If the CPU is not a model 115,125,135, 138 or 4300 then:
— If the parameter is CE, exit to $$BATTNY;
If the parameter is IR or CR, set the appropriate
switches and return to $$BATTNA;
Otherwise, exit to $$BATTNQ.
If the CPU was either a Model 1 1 5, 1 25 or 4300
and a MODE command with parameters
other than CE, IR or CR was issued, return
to $$BATTNA with message 'COMMAND
IGNORED'.
If an invalid command was issued, exit to the error
routine in $$BATTNA.
If the request is to set the recording mode (to
recording or quiet), the mode is set, and an exit
is taken to $$B ATTN A.
If an invalid command was issued, exit
to the error routine in $$BATTNA. —
If the parameter is CE, exit to $$B ATTN Y, if it is I R or
CR, set the appropriate switches and return to $$BATTN A.
Otherwise, exit to $$BATTNQ. —
$$BATTNY
$$BATTNQ
CE MODE COMMAND PROCESSOR
Chart BJ
This phase checks the CE parameter of the MODE command:
For a Model 1 15 or 125, return to
$$BATTNA with message 'COMMAND
IGNORED' if the device for which the
MODE command was issued is not
hardware recorded
Check for additional parameters. If there are any,
create the bit/byte mask and insert it in the
specified PUB2 entry. Then, set the new mode and
recording limit, and wxit to $$BATTNA.
If the cuu parameter has not been specified, or
too many parameters have been specified, or any
parameter has been specified incorrectly, an exit
is taken to the error routine in $$BATTN A.
$$BATTNQ
$$BATTNA
CONTROL
Attention Routines 25
Chart 09- Logical Transient Attention Routines (Part 8 of 10)
$$BATTF4
S$BATTN8
LFCB COMMAND PROCESSOR 1
Chart CA, CB
This phase skans the operands of the LFCB command.
The functions are:
• Checic the operands for correct syntax and save infor-
mation about the specified operands in tables
FPRMADRTand FPRMVALT. <For layout of these
tables, see Figures 3 and 4.)
• If an error is found, set the appropriate error indica-
tor in the first halfbyte of FPRMECOD (see Figure 5)
and load phase $$BATTF1.
• Translate the (syntactically correct) cuu specifi-
cation into the proper hexadecimal value.
• Store the specified phase name, the value specified
for FORMS and LPt, and the NULMSG indicator
in FINAREA. (For a layout of this area, see Figure 2.)
• After all operands have been scanned, load $$BATTF1.
$$BATTFi'
LFCB COMMAND PROCESSOR 2
Chart CC
This phase completes the necessary operations in prepara-
tion for the actual FCB load operation.
The functions are:
• Find the PUB address of specified X'cuu'.
• Determine whether the device is a printer with an FCB
and whether the printer does not have the device
down condition.
• If an error is found, set the appropriate indicator in
the second halvbyte of FPRMECOD (see Figure 5).
Note: The preciding steps are skipped if phase $$BATTN8
detected an error.
• If an error was found, build message 1 B1 2D and
return control to SSBATTNA to have the message
printed.
• Place the information needed by the execution
phase ($$BATTF4 or $$BATTNF5) into FINAREA
and move the contents of this area to INFAREA at
the end of the phase. (For a layout of that area see
Figure 2.)
• If the printer of class PRT1 load $$BATTF5.
• Otherwise load $$BATTF4.
FCB LOAD EXECUTION PHASE
FOR 3203 AND 5203
Charts CD, CE
This phase overlays root phase $$BATTNA.
The functions are:
• Align forms to line 1
• Retrieve the specified FCB phase from the core
image library and load the contents of that phase
into the FCB.
• If the FORMS=xxxx or LPI=n was specified in the
command, issue message 1 B13A to inform the
operator about the required operator action.
• When the required operator action is finished,
skip the forms to channel 1 position of the new
FCB load, print the verf ication message, provided
NULMSG was not specified, and skip to channel
1 again.
Error conditions that may occur are given below together
with the pertinent functions of $$BATTF4:
• The specified FCB phase was not found — issue
message 1 B1 51 and execute a_F ETCH for $$BATTNA.
• The length of the specified FCB phase is incorrect,
or the contents of the phase do not conform to
the FCB load conventions — issue message IB 161
and execute a FETCH for $$BATTNA.
If the FCB load operation is completed successfully,
execute a FETCH for $$BATTNA.
$$BATTF5
$$BATTNA
FCBLOAD EXECUTION PHASE FOR PRT1
Chart CF
This phase overlays root phase $$BATTNA.
The functions are:
• Align forms to line 1 by loading an auxiliary FCB
load.
• Retrieve the specified FCB phase form the core image
library and load the contents of that phase into the
FCB.
• If FORMS=xxxx was specified in the command, issue
message 1 B14A to inform the operator abbut the
required operator action.
• When the required operator action is finished, skip
the forms to channel 1 position of the new FCB,
print the verification message, provided NULMSG
was not specified, and skip to channel 1 again.
Error conditions that may occur are given below together
with the pertinent functions of $$BATTF5:
• The specified FCB phase was not found — issue
message 1B15I and execute a FETCH for $$BATTNA.
• The length of the specified FCB phase is net 192
incorrect, or the contents of that.phase do not
conform to the FCB load conventibns — issue
message 1B16I and execute a FETCH for
$$BATTNA. _
• LPI=n was specified and the specified value does
not agree with the line spacing code in the FCB
load — issue message 1B17I and executea FETCH
for $$BATTNA.
If the FCB load is completed sucessfully, execute a
FETCH FOR $$BATTNA.
$$BATTNA
B
26 DOS/VS Logical Transients
Chart 10- Logical Transient Attention Routines (Part 9 of 10)
$$BATTN9
LUCB COMMAND PROCESSOR 1
Charts CG, CH
This phase scans the operands of the LUCB command.
The functions are:
• Check the operands for correct syntax and save the information
about the specified operands in tables UPRMADRT and
UPRMVALT. (For a layout of these tables, see Figures 3 and 4.)
• If an error is found, set the appropriate error indicator in the
first halfbyte of UPRMECOD (see Figure 5) and load .
— $$BATTU1.
• Translate the (syntactically correct) X'cuu' specification into
the proper hexadecimal value.
• Store the phase name, the value specified for TRAIN and the
indicators for NOCHK, FOLD, and NULMSG in UINFAREA.
(For a layout of that area, see Figure 2.)
After all operands have been scanned, load $$BATTU1 .
$$BATTU1
LUCB COMMAND PROCESSOR 2
Chart CJ
This phase completes the necessary checking operations in
preparation for the actual UCB load operation.
The functions are:
• Find the PUB address of the specified cuu.
• Determine whether the device is a printer with a UCB and
whether the printer does not have the device down condition.
• If an error is found, set the appropriate error indicator in the
second halfbyte of UPRMECOD (see Figure 5.)
Note: The preceding steps are skipped if phase $$BATTN9
detected an error.
• If an error was found, build message 1 B 1 2D and return control
to $$BATTNA to have the message printed.
• Place the information needed by the UCB load execution phase
($$BATTU2) into UINFAREA and move the contents of this
area to INFAREA at the ertJ of the phase. (For a layout of
that area, see Figure 2.)
• Load $$BATTU2.
$$BATTU2
UCB LOAD EXECUTION PHASE
Chart CK
This phase overlays root phase $$BATTNA.
The function are:
• Retrieve the specified UCB phase from the core image I ibrary ,
load the contents of that phase Into the UCB, and skip the
forms to the channel 1 position.
• If a train (or chain) number was specified, issue message 1 B 1 8A
to inform the operator about the required operator action.
• When the required operator action is finished, print the
verification message, provided NULMSG was not specified, and
skip the forms to channel 1 again.
Error conditions that may occur are given below together with the
pertinent functions of $$BATTU2.
• The specified UCB phase was not found — issue message
IB 151 and execute a FETCH for $$BATTNA.
The specified UCB phase does not have the device specific
length — issue message IB 161 and execute a FETCH for
$$BATTNA.
If the UCB load operation is completed successfully, execute a
FETCH for$$BATTNA.
02
$$BATTNA
Attention Routines 27
Chart 11. Logical Transient Attention Routines (Part 10 of 10)
$$BATTN7
SETDF COMMAND ROOT PHASE
Charts CL-CR
This phase allows default values to be set and/or reset for the
3800 printer. It scans the operand field of the SETDF command
and loads the update phase or error phase accordingly.
The functions are:
• Check the unit specification
• Process any keywords that are specified
• Validity check the keyword values
If all are valid, save them for $$BATTS1.
• Pass control to the appropriate phase.-
(a) $$BATTS2 Error phase
Error detected. Process the message.
— (b) $$BATTS1 Update phase
This phase updates the PUB2
$$BATTS1
SETDF COMMAND UPDATE PHASE
Charts CS-CU
This phase updates the PUB2 for the 3800 printer and lists
the PUB 2 defaults.
The functions, if requested, are:
Find the correct PUB
Check for 3800 printer device type
Invoke the EXTRACT and MODCTB macros to update
the PUB2
List the PUB2 defaults, if specified
Pass control to the Attention routine root phase if the update.
of the PUB2 is successful
Pass control to tne error phase if an error is detected
($$BATTS2)
$$BATTS2
SETDF COMMAND ERROR PHASE
Chart CV
This phase processes and outputs the messages produced
by the SETDF command.
The functions are:
• Prepare the message for output
• « Output the message
$$BATTNA
28 rOS/VS Logicai Transients
FINFAfiEA
Byt
es| Contents
0-
7 1 specified phase name
8-
filiform number, if specified,
|or blank
12
|not used
13
1 number of lines per inch,
|if specified, or blank
11 ti-
i5|hex value of specified
1 unit address
ll 6-
191 address of PUB
20-
22 {specified cuu as printable
1 characters
23
|not used
24
1 Information byte
|bit - not used
Ibit 1 - FOLD was specified
Ibit 2 - NOCHK was specified
|bit 3 - NULMSG was specified
Ibit 4 - FOfiMS=xxxx was specified
Ibit 5 - LPI=n was specified
Ibits 6 and 7 - not used
25
IX'OO' (used to clear table
jFPEMADET)
r •
UINFAKEA
|Byt
.esl Contents
1 0-
71 specified phase name
1 8-
fl3| train number, if specified,
1 or blank
1
1
i
1
1
114-
151 hex value of specified
1 unit address
|16-
■191 address of PUB
|20-
221 specified cuu as printable
1 characters
123
|not used
(24
1 Informations byte
1 bit - not used
1 bit 1 - FOLD was specified
Ibit 2 - NOCHK was specified
Ibit 3 - NULMSG was specified
Ibit; 4 - TfiAIN=xxxxxx was specified
|bit 5 - LPI=n was specified
Ibits 6 and 7 - not used
125
IX'OO" (usea to clear table
lUPHMADET)
L : J
J
Note: This area (FINFAfiEA in $$BATTN8 aad UINFAitEA in $$BATTN9) is used to build an
information record. This record is built by phases $$BATTK8 and *$BaTTF1 for an LFCB
command and by phases $$BATTN9 and $$BATTU1 for an LUCB command. Phases $$BATTF1 and
$$BATTU1, respectively, move this record to INFAiEA before they call the appropriate load
execution phase ($$BATTF4 or $$BATTF5 for an LFCB oimmand, $$BATTU2 for an LUCB command) .
Figure 2. Layout of Communication Areas in $$BATTN8 and $$BATTN9
Attention iioutines 29
Byt
esj Contents
0-
3 1 address o
f keyword
4-
5|length of
keyword
6-
7| sequence
numJDer of
operand
1
8
Inot used
9>
1 delimiter
10-
13|address o
f keyword
value
14-
151 length of
keyword \
/alue
16-
171 sequence j
Qumber of
operand
18
Inot used
19
1 delimiter
Note: Tills table is called FPhMADivT in
$$BATTN8 and UPiiMADhT in $$BATTN9-
Figure 3.. Layout of Parameter Address
Tables in $$BATTN8 and $*BATTN9
Code
1
Meaning |
(in hex)
1 i
FO (Operand is invalid, |
70
1
Length of positional operand or |
of keyword if incorrect or the |
cielimiter or the operand or the |
key«#ord is erroneous, |
30
Keyword value has wrong length |
or the value's delimiter is |
erroneous- |
10
Keyword is specified more than |
once* 1
07
No PUB entry was found for the |
specified channel and unit |
address. (
03
Specified Uevipe has no fCB (fori
an LFCB command or macro) or no |
UCB (tor an LUCb command) , |
01
Specified device is down- |
j BytesI Contents
, +
I 0- 9 1 specified keyword
, +
1 10-19 (specified keyword value
Note: This error coae byte is called
FPIiMECOD in $JBATTN8 and UPhMECOD in
$4vBATTN9,
Figure 5- Error Coae Bytes in $$BATTM8 and
5$BATTN9
Note: This table is called FPEMVALT in
$$BATTN8 and UPfiMVALT in $$BATTN9-
Figure 4. Layout of Parameter Value Tafiles
in $$BATTN8 and BATTN9
30 DOS/VS Logical Transients
TEhUlUkTOk iiOUTINES
A program is terminated under its own
control by issuing an EOJ, liUti9, or CANCEL
macro or through operator action or a
program error or certain I/O failures. When
a program is terminated, the tollowing
actions are taken:
1. All I/O operations that the program has
requested are allowed to quiesce.-
2- DASD extents used by this program rpr
DASD file protection are dequeued. This
feature is a system generation option.
3,
If the program is terminated normallyr
SJOijCTLA is called.
H. l£ the program is terminated
abnormally, an error message is printed
and a dump is issuea on SYSLST if tne
dump option was specified-
5- If the terminating task is a suctask,
it is detached from the system's task
selection mecnanism.
For a list of cancel codes see Figure
6.
Terminator Routines 31
Chart 12- Terminator Routines (Part 1 of 3)
if teleprocessing
( $$BE0J4 )-•
Called by Supervisor if teleprocessing
not supported
CLEAN UP NON-TP I/O DEVICES
Charts DF-DH
If IPL is not complete, fetch $$BEOJ.
If partition has 3800 extended buffering DTFs to close, fetch
$$BPCLOS.
If RAS Is active, wait until RAS is finished. Reset user exits.
If ATTN routine is canceled, release resources owned
(SVC 64), deactivate ATTN routine, reset cancel flags, and
exit (SVC 11).
Reset XECB exits occupied by terminating task.
For maintasks, if the partition has open ACBs to close, fetch
$$BACLOS.
Dequeue outstanding I/O (SVC 3).
Zero MICR DTF table address, if available.
For subtasks, if nornnal termination, issue SVC 64 and
DETACH, else fetch $$BEOJ.
If POWER/VS is In this partition, fetch $$BPOWIN.
For POWER-controlled partitions, reset all spool requests.
If Job Accounting is supported, update the Job Accounting
partition table.
If a job control open failure occurred, override the cancel
code with X'35' and unassign the LUB entry.
Clear trackhold entries.
NO
TAPE AND DISK PUB2 PROCESSOR
Charts DL- DN
For opened tape units assigned to this partition, RMSR
records are created and the PUB2 entries are updated.
For opened 3330, 3340, 3350, and FBA units assigned to
this partition, counters in the control unit are emptied and
the PUB2 entries are updated, provided the supervisor was
generated for a model larger than 125. If PUB2 is for 3540
and being used as a problem programmer unit, then bits are
reset in PUB2 to signify file open on device. If overflow
occurs during PUB2 updating, a record is created which is
written on SYSR EC.
( SVC 2 $$BEOJ j
TERMINATE TASK AND
INITIALIZE PARTITION
Charts DA-DC
If IPL is canceled, issue message and enter hard wait.
Release all resources owned.
In case of cancel code X'35' or LTA-cancel, output message.
For subtask termination, detach the subtask.
The following is done for maintask termination:
If rotational position sensing is supported, delete any RPS
phases, dynamically loaded into the SVA for the terminating
partition.
Invalidate page table entries for virtual partition (SVC 59).
For real execution, release the page frames to the page pool
(SVC 54).
Clear and reset the GETVIS area (SVC 62).
Load $J06CTLA into the partition.
Initialize the PSW for the partition.
C SVC 11 N-
Return from 1
B-Transient/
-f $$BPL0S Y
C SVC 11 N
Return from i-
B-Transient J
($iBACLOs\_
ChartsDJ, OK /"
-/ DETACH y
■/ $$BPOWIN \
Called by the Supervisor
Teleprocessing is supported
C$$BEOJ 3 )
y
DECIDE NEXT TERMINATION STEP
Chart DD
If IPL Is not complete, fetch $$BEOJ.
If OLTEP is terminating, fetch SSBTOLTP.
I n all other cases fetch $$BE0J3A.
CSVC2 \ /" SVC 2 ^
$$BE0J3A^ I $$BT0LTP*/
Documented in OLTEP
publication
HALT I/O ON T/P DEVICES
Chart t)E
T/P devices are disabled and halted (if on the queue) for
a terminating task. Channel queue entries which point
to themselves are brought into the list of free entries
CSVC2 \
$$BEOJ4 y
^r HardWait^
C SVC 39 \
DETACH J
32 DOS/VS Logical Transients
Chart 13, TerminatDr Routines (Part 2 of 3)
(DUMP/JDUMpN /^Any ABENdN ^ CANCEL ^
Macro J V Condition J VCommand/IVIacro/
SUPERVISOR "
TERMINATOR IN SUPERVISOR (called by SVC 2 and SVC 6)
Prepares parameter list for system dump (Cancel code and save
areas address(es))
$IJBDUMP (INSVA)
— See Note below
SYSTEM DUMP PROCESSOR
Charts EA - EH, ES ■
and FA
EW,
FC
Determines the cause of the dump request. No dump is given in
the following cases:
— a CANCEL macro has been issued without subtask attached
— a subtask being canceled due to maintask cancellation
— a maintask or a subtask being canceled due to a CANCEL
ALL macro issued in another subtask
— SYSLST was not assigned
— OPTION NODUMP was in effect.
Calls IJBEOJ to get the terminating message(s) written.
Dumps the LTA registers if the failure occurred in the task
owning the LTA.
Dumps the registers of the ending task (general registers, floating-
point registers, and control registers).
If OPTION DUMP is active, the supervisor is dumped.
If OPTION PARTDUMP is active, the following supervisor con-
trol blocks are dumped: COMREG, SYSCOM, PUB, PUBOWNER,
PUB2, LUB. JOB, Extent Block, DIB, DIB extensions, SYSFIL
buffers, PIB. In addition, the LTA is dumped if the terminating
task owned it.
Dumps the terminating partition including the used part of its
GETVISarea.
If the failure occurred in the SVA, the SVA phase containing the
error is dumped.
If OPTION DUMP is active, the used parts of the system
GETVIS area are also dumped.
{ SVC 1 1 j
IJBEOJ
CANCEL MESSAGE WRITER
Charts FP - FR
Writes CANCEL messages for abnormal task termination.
Gives status of the problem program area at the time of cancel-
lation by printing the user's PSW (message 0S07I).
Note:
$IJBDUMP contains the follow
ng routines:
IJBSDUMP (Charts EA-EP):
— System dump monitor
- PDUMP monitor
— DUMP command monitor
IJBDMPPA (Charts EQ-ER):
Dumps supervisor control b locks
IJBDMPAR (Charts ES- EW):
Prepares an area of storage for output
and validates addresses
IJBDMPIO (Charts FA -FC):
Performs I/O for system dump and
PDUMP macro
IJBDMPIC (Charts FF-FK):
Performs I/O for DUMP command
IJBEOJ (Charts FP-FR):
Writes termination messages on
SYSLOG and SYSLST
Terminator Routines 33
Chart 14. Terminator Routines (Part 3 of 3)
(PDUMP A
Macro )
SUPERVISOR
TERMINATOR IN SUPERVISOR (called by SVC 2)
Prepares parameter list for PDUMP (save area address(es))
$IJBDUMP (in SVA)
—See Note on Chart 13
PDUMP PROCESSOR
Charts EA - EB, ES - EW,
and FA - FC
Provides a means of dumping a portion of storage as
desired. Records on SYSLST (which can be disk, tape
or printer) the contents of storage specified in the
PDUMP macro. The printout is in the format:
— General registers 0-1 5
— Floating-point registers, if present
— Control registers 0-15
— Storage area specified by parameter limits.
The area is printed 8 words to a line in hexadecimal,
followed by the same 32 bytes in printable character
form. If the area to be dumped crosses an invalid address
space, a message is written on SYSLST.
{ SVC 1 1 j
Returns to supervisor which returns to problem program after
SVC 2 of PDUMP
34 DOS/VS Logical Transients
Cancel
Message
Descriptive Part of Message
Code (hex)
Code
or Condition
OF
0P80I
Invalid read from or write to system
file on FBA
10
■•••.■••"»
Normal EOJ
11
OV07I
No channel program translation for
unsupported device
12
0V06I
program translation
13
0V05I
CCa with count greater than 32K
14
0V04I
Page pool too small
15
0V02I
Page fault in disabled program
16
OVOII
Page fault in MICfi stacker select or
P.F,. appendage routine
17
0S02I
Program request (same as 23 iaut causes
dump because subtasics were attached when
maxntask issued CANCEL macro)
18
1 .......
Eliminates cancel message when maintask
issues DUMP macro with subtasks attached
19
0P74I
I/O operator option
1A
0P73I
I/O error
IB
0P82I
Channel failure
1C
0S14I
CANCEL ALL macro
ID
0S12I
Main task termination
IE
0S13I
Unknown ENQ requestor
IF
0P81I
CPU failure
20
0S03I
Program check
21
0S04I
Illegal SVC
22
0S05I
Phase not found
23
0S02I
Program request
24
0S01I
Operator intervention
25
0P77I
Invalid address
26*
0P71I
SySxxx not assigned (unassigned LUB code)
27
0P70I
Undefined logical unit
U i
Figure 6i Cancel Codes and Messages (Part 1 of 2)
Terminator fioutines 35
Cancel
1 Message
1 Descriptive part of Message |
Code (hex)
1 Code
1 or Condition |
2A
1 0V10I
1 I/O error on page data set |
2B
1 0P84I
1 I/O error during fetcii from private core |
1 image liDrary |
2C
1 0V09I
! Illegal parameter passed by P. F- |
1 appendage routine |
2D
[
1 0P88I
1 Program cannot be executea/restarted due |
1 to tailing storage block J
2E
0S16I
1 Invalid resource request (possible aeadlock) |
2r
0V03I
More than 255 PFIX reciuests for 1 page |
30
0P/72i
Reading past /& statement (on SYSRDR or |
SYSIPT) 1
31
0P75I
I/O error queue overflow (error queue |
overflow) J
32
0P76I
Invalid DASD address |
33
0P79I
Invalid first CCW |
34
Reserved J
35
0P85I
Joi) control open failure J
36
0V08I
Page fault in I/O appengage routine |
37
Reserved 1
38
0V11I
Wrong privately translated CCW |
39 1
Reserved I
40
5J95I
Invalid termination of VTAM j
41 1
5J96I 1
Invalid VTAM conaition code |
42 j
0P86I 1
Violated DASD xile protection |
0P83A** 1
Supervisor catalog failure |
0P87A**
1
IPL failure |
all others
0P78I 1
Unrecogized cancel code xx |
* If the CCB is not available, the logical unit is SYSxxx..
♦* Tne cancel code is not significant in case of a supervisor
catalog or IPL failure, because the system is placed in the
wait state without any further processing by the Terminator.
Note: In addition to recognizing the cancel codes above, the Terminator
also recognizes the same codes with the X'80' t)it on (cancel
occurred in LTA)..
Figure 6- Cancel Codes and Messages (Part 2 of 2)
36 DOS/VSE Logical Transients
VABIOUS SPECIAL SERVICE PROGRAMS
L2ading. Print Control Buffers
The print control buffers of a printer can
be loaded as follows:
• Automatically during IPL. SSBUFLDu
together with $$BUFLD1 and $$b\iFLL2 are
provided to load the FCB and UCB of a
pertinent printer with the standard
control information* (See DOS/VSE
initial Program Load and Job Control
Loaic- )
• Dynamically by issuing the LFCB or LUCB
attention commands (See tne section
Attention Routin es) .
• As a separate job step by executing the
SYSBUFLD program- (See DOS/VSE Initial
£r og:r am Load and Job Con t r oi Lo^i c, )
• Dynamically by issuxng the LFCB macro
in a problem program- (This macro can
only be used to load the FCB of a
printer) .
$$BATTFO is executed
issued in a problem
This phase performs
"unctions for the re
operation and calls
printer) or $$BATTF3
printer) . The phases
return control to th
issued tlie LFCB macr
the result of the lo
problem program by m
in register 15, Thes
when an LFCB macro is
program (see Chart 15),,
the necessary checKing
quested FCB load
$$BATTF2 (for a PRTI
(for a 3203 or 5203
$$BATTF2 and $$BATTF3
e problem program that
o. The phases indicate
ad operation to the
eans of a return code
e return codes are:
keturti
code
Meaning
00 I The FCB load operation has been
completed successfully.
OU I The assigned printer is of class
PRTI and the LPI operand specified
in the macro does not agree with
the FCB image,
08 I No LUB is available for the
specified logical unit.
OC IThe speciried logical unit has not
been assigned or is currently
unassigned.
10 IThe specified logical unit has
been assigned to a device without
an FCB.
14 IThe printer assigned to the
specified logical unit is down.
18 IThe specified FCB image has not
been found.
IC IThe specified FCB image is invalid
for the printer assigned to tue
specixied logical unit-
r
1 Bytes
Contents
1 0-7
1 _ _ _ _ _
1 Specified phase name
1 —
1 8-10
1
l_ __ — — _ —
I XXX of SYSxxx specified in tne
[macro
1 — —
111
l_ _ _ _ — _ _ _ _
{FORMS indicator: X'FI* =
|FOiMS=xxx was specified
112-15
1 — — ~ ~ — "
IForm number specified in the macro
116
1
1 — ~ — ~ ~ ~ —
J LPI value specified in the macro or
IX'FO*
1 — —
117
i
1 _ - - - — - -
jNOLMSG indicator: X'FI' = NULMSG
1 was specified
Figure 7. Layout of the LfCB Macro
Information Area
Various Special Service Programs 37
1 Bytes
1 Contents I
1 0-7
1 ~ ~ — 1
Specified p^ase name 1
1 8-11
_ - _ — _ J
Form number, if specified, or blank |
1 12
— _ _ _ - ~ - -j
Not used J
1 13
1 ~ ~ ~ ~ — ~ — - -j
Number of lines per inch, if |
specified, or blank |
1 14-15
_ _ _ _ _|
Logical unit class and number |
1 16-19
_ _ — 1
Address of PUB |
120-23
Address of user register 15 save |
area |
124
— _ — _ — 1
Information byte |
Bits 0-2: Not used |
Bit 3 : NULMSG was specified i
Bit 4 : FORMS=xxxx was specified |
Bit 5 : LPI=n was specified j
Bits 6-7: Not used (
125 1
Not used 1
figure d- Layout of LFCB Macro
Communication Area
$$BSYSWB
4$BSySWR is used by MAINT, IPL, $LNK£DT,
COEGZ and $LIBSTAT to turn on a bit in tiie
communications region, which allows
programs to write on DASD devices that are
DASD file protected- In addition, tne
transient moves the address of the label
information area to the communication
region..
$$tiCCHHE
i$BCCHHfi is used by IPL to scan the core
image directory for all modules whose names
aegin with $$RAST. It builds an in-core
directory (load list) for the RAS phases.
This directory is located in the RAS table
in the supervisor- The directory
facilitates the fetching function of the
RAS modules into the RAS transient area
(ETA) .
IMilCLOS - Automatic Close for 3800 Printer
Files
The objective of this routine is to perform
close processing for any 3800 printer files
opened in extended buffering moae and left
unclosed by the user program; tiiis ensures
that all buxrered data is printed.
Entry: From SSBiOJU when a main task
terminates; from 4i$BCL0SE and $$BCL0S2 when
close processing initiated by $$BPCLOS is
complete-
Exits: To $$BCLOSE to close a 3800 printer
file lert unclosed by a user program; to
$$B£0J4 when all 3800 printer files have
been closed-
Method: This module uses the chain of
DTFXWAs (DTF extension work areas) to
identify 3800 printer files opened in
extended buffering mode and left unclosed
Dy the user program-
The DTJrXWA chain is anchored in the anchor
table extension (ATX). The ATX is created
when the 3800 open routine IJDPR3 issues
CDLOAD for the non-executable module
IJDANCHX. When the IJDANCHX module is
loaded, it becomes the ATX itself.- Thus,
tne ATX is pointed to by the entry in the
anchor table for module IJDANCHX-
$$BPLCOS selects the first DTFXWA on the
chain, builds a close parameter list using
the DTF pointer in th.e DTfXWA, and
initiates close processing for the tile by
transferring control to $$BCLOSE,. Before
invoking $$BCLOSE, $$BPCLOS marks the
DTiXHA as having been already selected for
close processing- Thus, if close fails and
the DTFXWA is left on tte chain, it will
have been marked as already processed;
After completing their processing, the
close routines will fetch $$BBCLOS which
Will initiate close processing for the next
unprocessed file on the DTFXWA chain- This
will continue until all files have been
processed-
If all files have been processed, but there
are still DTFXWAs on the chain, this
indicates that one or more of the files did
not close successfully- In this case, a
message is issued to inform the user of the
situation. Afer all of the 3800 printer
files habe been processed, $$BPCLOS returns
control to $$B£0J4»
38 DOS/VSE Logical Transients
Chart il5^ LFCB Maciro Processor
f $$BATTFO j
FCB LOAD INITIATION PHASE
Charts GK
This phase receives control when an LFCB macro Is being executed.
The functions are:
• Process the macro operand information contained in MINFAREA,
the 18 byte are pointed to by register 0. {For a layout see
Figure 7). .
• Check whether a LUB is provided for the specified logical unit.
• Ignore the command if the logical unit is assigned to a 3800
printer.
• Ignore the macro if the logical unit is assigned to a 3800 printer
with an FCB and whether the printer is not in a device down
condition.
• Move the information needed by the FCB load execution phase
from MINFAREA to INFAREA. (For a layout see Figures 7
and 8.)
• If an error occurs, place the appropriate return code in register —
1 5 and return to the problem program
• If the device is a PRT1 printer, fetch SSBATTF2.
• Otherwise, fetch $$BATTF3.
f $$BATTF2 j
LFCB MACRO EXECUTION PHASE FOR PRT1
Charts GL-GM
This phase executes the buffer load request.
The function are;
• Align forms to line 1 by loading an auxiliary FCB load.
• Retrieve the specified FCB phase from the core image library and
load the contents of that phase into the FCB.
• If FORMS=xxxx was specified, issue message 1 B14A to inform
the operator about the requiredoperator action.
• When the required operator actions is finished, skip the forms to
the channel 1 position of the new FCB load, print the verification
message, provided NULMSG was not specified, and skip the forms
to channel 1 again.
• If an error occurred during any of the above operations, set the
appropriate return code in user register 15.
• If no error occurred, set user register 15 to 0.
• Return control to the problem program that issued the LFCB
f $$BATTF3 j
i
LFCB MACRO EXECUTION PHASE
FOR 3203 AND 5203
Chart GN
This phase executes the buffer load request.
The function are:
• Align forms to line 1.
• Retrieve the specified FCB phase from the core image library and
load the contents of that phase into the FCB.
• If FORMS=xxxx or LPI=n was specified, issue message 1 B13A to
inform the operator about the required operator action.
• When the required operator action is finished, skip the forms to
the channel 1 position of the new FCB load, print the verification
message, provided NULMSG was not specified, and skip the forms
to channel 1 again.
• If an error occurred during any of the above operations, set the
appropriate return code in user register 15.
• If no error occurred, set user register 1 5 to 0.
• Return control to the problem program that issued the LFCB
macro.
Return to
Problem Program
D
Various Special Service Programs 39
DISPLAY OPEEATOE CONSOLE SUPPORT
CfiT transient routines provide support for
the display operator consoles 125D (DOC)
and 327/7, and 3278 Model 2A,, CfiT
transients reside in the core image liijrary
and are fetched into the CJiT transient area
(CETTBNS) each time the supervisor
encounters a reguest for a 125D or
3277/3278- Since these requests may
require different services, CfiT support is
aivided into 30 transient phases. Each
phase fits into the CfiT transient area
(CRTTfiNS) which is 1156 bytes long.-
ggj Transient Logical Interrelationship
Each time the CRT support is activated,
control is first transferred to phase
$$BOCfiTA (see Chart 16), Since this phase
is also the last phase executed before the
CfiT support is deactivated, $$BOCfiTA is
always in the CRT transient area (CRTTRNS) ,
even when the CRT support is not active..
The CRT transient phases perform the
following functions:
• Channel Program Processing. The channel
programs for a printer-Keyboard console
I/O request (refe|:red to as SYSLOG
channel programs, although the device
may be assigned to any programmer
logical unit) are interpreted and
translated (see Charts 17 and 18).
• Screen Management,
Screen management performs two
logically different functions:
a. K-command processing and/or
automatic screen management durxng
any I/O, This is handled by phases
$$BOCfiTK through $$BOCfiTQ, $$BOCRTV
through $$BOCRTY (see Charts 19 and
20) .
b. fiedisplay of messages recorded on
the hara-copy disk file. This is
handled by phases $$B0CRT1 through
$$B0CHT6 (see Chart 21)..
Error Condition Handling-
Errors may arise from wrong parameters
of K- and D- (redisplay) commands. These
errors are detected and their repair is
included throughout the screen
management phases,
The hard-copy file phase $$BOCfiTH, the
redisplay phases $$B0CRT3 and $$B0CRT5,
and phase $$BOCfiTU must write to (or
read from) the disk on which the
hard-copy file resides,. Disk errors
that cannot fie handled by the
supervisor-resident ERP routine are
processed by $$BOCfiTB (see Chart 22).
Errors that appear during screen I/O
operations are handled by phase
$$BOCRTE, which in turn may fetch
$$BOCfiTf (see Chart 22)-
A summary of tne CRT transient phases is
given in Charts 16 through 22., It is
followed by a detailed description of each
phase in alphabetical order.
Differences Between CRT Support a n d 10 52
Support
CRT support and 1052 support are compatible
with the following exceptions:
• CRT does not support program-controlled
interrupts (PCI) . The ^CI Dit in any
user-supplied CCW chain xs ignored,
that is, the CCW is handled as if the
PCI bit had been generated off.
• An SVC given for a display operator
console always causes the associated
data to be displayed on a new line,
even if the preceding SVC has ended
with a 'Write without carriage return'
command. (Tnis applies only to read
and write operations.)
• When a Read command is encountered
whose Skip-Data bit is generated on,
the user is ailowea to enter all bis
data. iiowever, the data is not
aisplayed in the message area.
• Ix an incorrect length is detected for
a read operation, the Incorrect-Length
bit in the CSI* is set on only if the
byte count is not exhausted and tne SLI
(Suppress Length Indicator) bit in the
associated CCW is zero.
40 DOS/VSE Logical Transients
chart 16, CRT Root Phases
From Charts:
I ^ I 17 C Start I/O ^
$$BOCRTA
CRT ROOT PHASE
Charts KA-KC
This phase is always fetched as the first and last CRT phase:
One entry fronn the Start I/O routine, phase $$BOCRTA:
• flags the CRT device 'busy' in its PUB;
• activates the CRT task;
• replaces the SYSLOG-requesting CCB/IORB by the
CRTCCB;
• stores the address of the first CCW in a save area.
If the CCW specifies special interface, $$BOCRTU is fetched.
All other CCWs are passed to $$BOCRTZ for further aiTaiizing
One entry from the I/O interrupt handler, it is determined if
more CCWs are to be executed. If so, $$BOCRTZ is fetched
to analyze the CCW.
When an attention request is encountered, $$BOCRTK is
fetched.
After completion of the channel program, $$BOCRTA:
» Restores the CCB/IORB in the channel queue;
» Moves the CSW that has been set up by the CRT phases
to location '40' in low real storage;
» Moves the cannel and unit address of the CRT device
to location X'BA' in low real storage;
> Deactivates the CRT task;
» Returns control to the I/O interrupt handler via
register 9.
$$BOCRTU
UPDATE HEADER RECORDS
Chart PJ
This phase performs one or more of the following functions:
• Forces writing of the hard-copy file buffer, calls
$$BOCRTA.
Sets new wrap-around address in header record, calls
$$BOCRTA
Invalidates wrap-around address in header record, calls
$$BOCRTB.
19
$$BOCRTZ
CI/0 Interrupt A
Handler y
$$BOCRTK
22
$$BOCRTB
CHANNEL PROGRAM ANALYZER
Charts QG-QM
This phase checks a CCW for valid OP code,
valid byte count, unused bit setting and valid
or protected I/O area address. The status of
the checks is registered in a CSW that is returned
to the user.
$$BOCRTZ calls the following phases:
• $$BOCRTA if the next CCW to be processed is in
error ;
$$BOCRTC if a Write, NOP, or Alarm CCW is to be
processed;
$$BOCRTR if a Read CCW is to be processed, or
if Write without carriage return CCWs are
followed by a Read CCW;
$$BOCRTG if an error is encountered in a CCW
which is not the first CCW in the chain;
$$BOCRTE if the nect CCW to be processed is
a Sense CCW.
$$BOCRTE
$$BOCRTC
$$BOCRTR
1
$$BOCRTG
Display Operator Console Support 41
Chart 17. CRT Write Processor Phases
^
$$BOCRTC
From Charts:
16
18
22
WRITE PROCESSOR (Part 1
Charts KG-KK
This phase transfers all the read or write data
from a SYSLOG channel program to the screen image
buffer, inserts the relevant information in the screen
control table (SCT) entries, and analyzes the message
header.
If the screen message area is full, $$BOCRTQ is
fetched.
$$BOCRTA is called if command-chaining is indi-
cated in the current CCW:
If the current CCW is not chained, $$BOCRTG is
fetched
Control is transferred to $$BOCRTD if the data
exceeds one screen line.
$$BOCRTD
JVi
$$BOCRTQ
^
$$BOCRTA
$$BOCRTG
WRITE PROCESSOR (Part 2)
Charts LA-LC
This phase handles the line overflow caused by
successive 'Write without carriage return' CCWs,
by data-chained CCWs, or by single CCWs with a
byte count greater than the capacity of a single
line.
If the channel program is to be continued,
$$BOCRTA is fetched
Control is returned to $$BOCRTC if no chaining
is encouritered.
$$BOCTRO is fetched if no line is currently
available. >
22
$$BOCRTE
$$BOCRTA $$BOCRTK
[7)
$$BOCTRQ
^
From Charts:
20
22
$$BOCRTH
From Charts:
16
22
WRITE SCREEN MESSAGE
Charts MA-MC
This phase writes the screen image buffer to the
Kreen after the data has been completely
transferred to the buffer.
$$BOCRTE is fetched if a screen I/O error occurs
If no hard-copy support and no console printer,
$$BOCRTA is fetched.
Attention requests are handled by $$BOCRTK.
If no console printer is supported, $$BOCRTH
is fetched.
Otherwise, $$BOCRTI is fetched.
$$BOCRTI
WRITE ON CONSOLE PRINTER
Chart MG
Writes internal protected lines on console printer.
If no hard-copy support, fetches $$BOCRTA or
$$BOCRTQ (if calledfrom $$BOCRTY).
Otherwise, $$BOCRTH is fetched.
WRITE HARD-COPY RECORDS
Charts MD-MF
This phase writes on the hard-copy file the
new lines that have been displayed on the screen.
If a hard-copy disk error occurs, $$BOCRTB is
fetched
$$BOCRTQ is called if a message exceeds the avail-
able message area.
$$BOCRTU is called if overlay mode is entered to
invalidate wrap-around address
$$BOCRTA
{7) qpiiT]
$$BORTU $$BOCRTQ $$BOCRTB
42 D0S/V5E Logical Transients
Chart 18, CRT Bead Processor Phases
^
$$BOCRTR
From Charts:
16
22
READ PROCESSOR (Part 1)
Charts PA-PC
This phase is the root phase of the read processor.
It reads an operator command or analyzes a Read CCW.
$$BOCRTK is fetched if an operator command is to be
handled.
If a Read CCW is preceded by an erroneous Write CCW,
$$BOCRTC is called.
On screen I/O errors, $$BOCRTE is fetched.-
$$BOCRTS
[T] [T] [^
$$BOCRTE $$BOCRTC $$BOCRTK
READ PROCESSOR (Part 2)
Charts PD-PF
This phase allows an operator to enter data
corresponding to a Read CCW, or if the Request key
is pressed, to enter a command.
Acommand is handled by $$BOCRTK.
Control is returned to $$BOCRTR if the Read CCW
Is canceled.
On screen I/O errors, $$BOCRTE is fetched.
$$BOCRTT
^ y
22
$$BOCRTE
$$BOCRTK
READ PROCESSOR (Part 3)
Charts PG, PH
This phase moves the data (corresponding to the
SYSLOG channel program) into the requestor's input
area.
On screen I/O errors, $$BOCRTE is fetched.
If the read channel program is to be continued,
-control is given to $$BOCRTR.
$$BOCRTC is called if SYSLOG Read CCWs are to be
handled.
$$BOCRTC
22
$$BOCRTE
Display Operator Console Support 43
Chart 19. CRT Screen Management Phases (Part 1 of 2)
* From Charts:
$$BOCRTK
COMMAND ENTRY PROCESSOR
Charts MH-ML
This phase analyzes operator commands and branches to the
appropriate phase.
$$BOCRTA is fetched if system commands are to be handled.-
On screen I/O errors, $$BOCRTE is fetched.
Redisplay commands are handled by $$B0CRT2.
$$BOCRTL through $$BOCRTP are called to handle screen
management commands.
$$BOCRTL
$$BOCRTM
DELETION BY K-COMMAND
MM-MP
This phase handles K-commands with
the subparameter E except K e, N.
If a command is in error,
$$BOCRTV is fetched.
DELETfON BY CURSOR Chart N A
This phase determines from the
cursor address the range of
message lines to be deleted.
On invalid cursor operation,
^BOCRTP is fetched.
$$BOCRTV
* From Charts:
17
20
22
$$BOC RTQ
DELETION OF MESSAGE LINES
Charts N J, NK
This phase deletes message lines.
Control is given to $$BOCRTP on exit from a
deletion command. — '■ '■ -
Exit isto the calling phase if message lines have
benn deleted.
$$BOCRTW is called during non-automatic deletion mode
and if only non-deletable messages are on the screen.
If line numbers are to be displayed/erased,
$$BOCRT0 is fetched.
\T) \T) {Z}
$$B0CRT2 $$BOCRTE $$B0CRTA
$$BOCRTN
$$BOCRTO
SCREEN MANAGEMENT MODE
Charts NB-ND
This phase processes the
specification K-command.
If a command is in error,
$$BOCRTV is fetched.
KD
LINE NUMBER DISPLAY
Charts
This phase proce^es the display
K-command.
If the system is in conversational
mode, $$BOCRTX Is fetched.
If a command is in error,
•$$BOCRTV is fetched.
$$BOCRTV
* From Charts:
20
21
22
$$BOCRTP
i
$$BOCRTW
1
$$BOCRTX
EXIT INTERFACE
Charts NG, NH
This phase establishes the interface between the
xreen management phases and the supervisor.
If a K-command had been entered because the message
area was full, control is given to the phase whose
name Ps passed in CRTNAM1.
On screen I/O errors, $$BOCRTE is fetched.
"Otherwise control is given to $$BOCRTA.
$$BOCRTA $$BOCRTE
44 DOS/\SE Logical Transients
Chart 20. CUT Screen Management Phases (Part 2 of 2)
$$BOCRTV
^
$$BOCRTW
COMMAND ERROR MESSAGE WRITER
Chart PK
This phase displays error messages related to invalid
K— and D— commands.
On screen I/O errors. $$BOCRTE is called.
$$B0CRT1 is fetched when the system is in redisplay
mode.
Otherwise, exit is to $$BOCRTP.
$$BQCRTP
$$B0CRT1
^
From Charts:
19
22
$$BOCRTX
VERIFY OPERATOR COMMANDS
Charts OB, DC
This phase displays a message deletion request,
given by the operator, in the form of a K— command
and waits for the response of the operator.
If the operator presses CANCEL, $$BOCRTP is fetched.-
Control is given to $$BOCRTK if the operator changes
the parameters or command. ■
$$BOCRTM is called if the operator sets the cursor .-
If deletion may be performed, exit is to $$BOCRTL.
From Charts:
19
22
DISPLAY WARNING MESSAGE
Chart QA
This phase displays the message '0D05A MESSAGE
WAITING' if a message cannot be displayed beca'.ise
the screen is full.
On screen I/O errors, $$BOCRTE is called.
$$BOCRTK is fetched to analyze the operator's action.
If the message to be displayed exceeds the message
area, $$BOCRTY is called.
^
$$BOCRTY
HANDLE LONG MESSAGES
Charts QD-QF
^
19
$$BOCRTQ
This phase handles messages that are longer than
the message area.
On screen I/O errors, $$BOCRTE is called.
$$BOCRTQ is fetched if the hard-copy file is closed.
If a console printer is supported, $$BOCRTI
is fetched.
If the hard-copy file is open, $$BOCRTH is fetched.
19
$$BOCRTL
$$BOCRTM ' $$BOCRTP
$$BOCRTE SSBOCRTI
$$BOCRTH
19
^
19
$$BOCRTK
Display Operator Console Support 45
Chart 21, CRT Redisplay Phases
$$B0CRT1
G>
^'
rom Charts:
20
22
MESSAGES REDISPLAY (Part 1)
Charts RA, RB
This phase allows new display commands to be entered when
the system is in redisplay mode.
$$B0CRT6 is called if the operator pressed only EIMTE R.
On screen I/O errors, exit is to $$BOCRTE.
If a D-command is entered, $$B0CRT2 is fetched.
$$B0CRT2
$$BOCRTE
MESSAGE REDISPLAY (Part 2)
Charts RC, RD
This phase examines the parameters of the redisplay
command on first entry to redisplay.
If the command contains a syntax error, $$B0CRTV is fetched.-
Otherwise, exit is to $$B0CRT6.
$$B0CRT6
^
$$BOCRTV
MESSAGE REDISPLAY (Part 6>
Charts RL, RM
This phase checks the current redisplay command
parameters for logical consistency.
If the command contains a logical error, SSBOCRTV is fetched.
$$B0CRT5 is fetched on first entry to redisplay, while
$$B0CRT3 is called if only the hard-copy disk CCWs and the
CCB have to be relocated.
$$B0CRT3
$$B0CRT5
MESSAGES REDISPLAY (Part 3) Charts RE-RG
This phase reads records from the hard— copy
file according to the parameters specified
in the current redisplay command.
On disk errors, $$B0CRTB is called.
$$B0CRT4 is fetched to write to the screen.
$$BOCRTB
$$BOCRTV
MESSAGES REDISPLAY (Part 5)
Charts RJ, RK
This phase saves the current screen image on
entry to redisplay mode and restores the screen
image on exit from redisplay mode.
On disk errors, $$BOCRTB is called.
$$B0CRT6 is called on entry to redisplay mode.
Exit is to $$BOCRTP if the hard-copy file is closed.
$$B0CRT4 is fetched on exit from redisplay mode.
J|>$B0CRT4
MESSAGE REDISPLAY (Part 4)
Chart RH
This phase displays eight message lines read from the
hard— copy file.
$$B0CRTP is called on exit from redisplay.
On screen I/O errors, $$BOCRTE is fetched.
Otherwise, exit is to $$B0CRT1t
\t) [7}
$$B0CRTE
$$B0CRTP
46 DOS/VSE Logical Transisnts
Chart 22. CRT ERP Phases
$$BOCRTB
From Charts:
17
21
HARD-COPY DISK ERP
Charts KD-KF
This phase processes all hard-copy disk I/O errors
that are not handled by the supervisor-resident disk
ERP routine. $$BOCRTB tries to repair the error and
controls any subsequent messages. Hard-copy overflow
conditions are indicated to the operator.
To display messages, $$BOCRTG is fetched.
$$BOCRTQ is called if no line is currently
available to display the message.
$$BOCRTE
From Charts:
16 19
17 20
18 21
$$BOCRTQ $$60CRTG
CRT ERP (Parti)
Charts LD-LF
This phase analyzes irregularities detected during
xreen I/O operations and processes sense commands
appearing within SYSLOG channel programs.
Exit may be to any phase after an intervention
required condition has been fulfilled. —
$$BOCRTA is called if a sense command is
command- or data-chained.
Exit is to $$BOCRTC for a sense command without
chai ni ng.
$$BOCRTF is fetched to handle all errors except
intervention required.
$$BOCRTF
CRT ERP (Part 2)
Charts LG-LK
This phase handles all screen I/O errors except
intervention required.
Exit may be to any phase after screen I/O errors
(except intervention required) have been handled.
$$BOCRTE is called if a unit check condition occurs
■during the retries.
After operation check, command reject, and on
programming errors, exit is to $$BOCRTH, provided the
hard-copy file is open.
If the hard-copy file is not open, exit is to $$BOCRTA.
The hard wait state is entered when no recovery is
possible from any channel errors.
^ [5]
$$BOCRTC $$BOCRTA
( Hard Wait j
I I7-21J
$$BOCRTG
$$BOCRTR
$$BOCRTS
$$BOCRTT
$$BOCRTK
$$BOCRTP
$$BOCRTV
$$BOCRTW
$$BOCRTA $$BOCRTH $$BOCRTY
$$B0CRT1
$$B0CRT4
y ^
Display Operator Console Support 47
$$BOCRTA - CRT Root Phase
$$bOCJiTB - Hard-Cot>Y Disk ,ERf
Any request for a display operator console
(125D or 3277/3278) is passed directly rrom
the Start-I/0 routine in the supervisor to
this phase to initiate the CRT transient
routines- The CRT routines handle all
requests on the display operator consoles..
Entry: From the
supervisor when
is encountered;
$$BOCRTE, $$BOCR
execution of the
completed; from
and $$bOCRTE whe
contains command
$$BOCRTK after a
been handled; fr
PRINTLOG utility
phase $$BOCfiTP a
command has been
$$BOCRTF when an
error has occurr
is not open-
Start-I/0 routine in the
a 125D or 3277/3278 request
from phases $S30CRTG,
TH, and $$BOCRTZ when
channel program has been
phases $$BOCRTC, $$B0C2TD,
n the channel program
chaining; from phase
n attention interrupt has
om phase SSBOCfiTU after the
has been completed; from
fter a screen management
completed; from phase
irrecoverable screen I/O
ed and the hard-copy fxle
Exit: To phase $$BOCRTZ to analyze the
channel program; to phase $$60CfiTU to
update the wrap-around pointer of the
hard-^copy file; to phase $$BOCRTK to handle
an attention request.
Method: On entry from the Start-I/0
routine, the CRT device is flagged »busy«
in its PUB, The CRT tasK is activated and
the SYSLOG-requesting CCB/IORB in the
he. channel queue is replaced by the CRTCCB,
The address of the first (or only) CCW of
the scheduled SYSLOG channel program is
directly taken from the CAW and stored in a
save area that can be referenced by other
phases. If the CCW specifies wrap-around
updating, phase $$BOCRTU is fetched.. All
other CCWs are passed to phase $$B0CRT2 for
further analyzing. User CCWs are checked
whether or not they start on a doubleword
boundary before being passed to $$BOCfiTZ..
On entry from the I/O interrupt handler,
$$BOCRTA determines whether more commands
are to be executed for the current channel
program. If so, $$BOCRTZ is fetched after
the new CCH address has been saved in
CRTSAV,
If the channel program has been completed
or if it is discontinued, tne channel queue
entry is restored to reflect the user
status. In addition, the CSH set up by the
processing phases is moved to storage
location X'40', and the channel and unit
address of the CRT device is moved to
storage location X^BA*.,
After the CfiT task has i3een deactivated,
control is returned to the I/O interrupt
handler.
Hard-copy disk I/O errors, which are not
nandled by the supervisor-resident disk ERP
routine, are processed by this phase,
$$BOCRTB tries to repair the error and
controls any subsequent messages. In
addition, hard-copy overflow conditions are
indicated to the operator.
Entry: From the CRT transients that access
the hard-copy disk file (SSBOCkTH,
$$B0CRT3, and ii$B0CRT5) and .from SSiJOCRTi^
when the message area was full.
Exit: To phase $$BGCRTG to display
messages; to phase $$BOCfiT0 if no line is
currently avaiiaole,
Method: If less than two tracks are
available for recording on the hard-copy
file, phase SSBOCitTil sets a warning flag
(see Figure 11) and, if subsequently the
beginning of the rile is overlaid, also the
overflow flag. Since both indicators give
rise to a warning message, they aire set off
together by $$BOCfiTB in orier to avoid
repeated display of the warning message.
Phase $$BOCjaTH does not ca.Tl $$BOCRTB but
$$BOCRTA if the warning flag has already
i-ieen set previously by phase $$B0CR1'H-
If disk errors occur auring redisplay, the
messages already redisplayed on the screen
are removed and the redisplay mode is set
off- If the disk error is disastrous, CSta
and sense information passed via the disk
CCB/IORB and the field HCSNS in the save
area CRTSAV are displayed in a second
message line. Further recording on the
hard-copy file is then prevented by setting
off the open indicator (see Figure 11) ,
SSBOCRTB may issue the following messages:
Oi;20£ HARD COPY FILE SHOULD BE PRINTED
0D25E HARD COPY FILE IN OVERLAY HODE
0D26E IRitECOVEiiABLE I/O ERROit, HC DISCONTINUED
CSW=XXXXXXX SNS=X
0D29E INCORRECT LENGTH DURING I/O FOB HARD
COPY
iliOCRTC - Write Processor (Part 1 of 2)
This phase transfers all the read or write
data from a SYSLOG channel program to the
screen image buffer, analyzes the message
type, and inserts the relevant information
in the screen control table (SCT) entries.
The format of an SCT entry is shown in
Figure 10,
Entry; From phase *$BOCfiTZ for Write, NOP,
and Alarm CCWs; from phase $$BOCRTT for
48 DOS/VSE Logical Transients
fiead CCWs; from $$BOCiiTR if phase $$BOCfiTA
ha3 indicated tuat a CCW chain is to be
discontinued; from phase $$BOCfiTQ when the
message area was full; from phase $$BOC£T£
and $$BOCBTD if the last CCW in a chain has
been processed and the message type must be
evaluated.
Exit: To phase $$BOCfiTA when the current
ecu indicates command chaining: to phase
$$BOCRTG when the current CCW is not
chained; to $$BOC£:TD when the data in a
single CCW or in data-chained CCWs exceeds
the space available in one screen line; to
$$BOCRTQ when the screen message area is
full.
Method: Data of fiead CCWs that are
contained in the channel program passed to
$$BOCBTC has already been entered in the
screen entry area. However, since the data
is part of the message it must be moved to
the screen message area buffer like the
write data. If a Read command had been cut
off, that is, the operator pressed ENTER
before the byte count had been exhausted,
such CCWs are indicated by the read
processor phases, which store the relevant
information in the save area CRTSAV. The
address of the last Read CCW wit^ data is
stored in CONTCCW and the byte count is
stored in CONTRDSV, Residual count and CCW
address are stored into the requestor's
CCB/IORB. If a Read CCW has the SKIP flag
set on, no data is moved into the message
area.
A message header
the whole messag
into the screen
message that is
program via an S
begins with a CC
preceded by the
identifier (BG,
is followed by a
9 for the messag
analysis is performed when
e text has been inserted
image buffers. Each SYSLOG
issued after IPL by a
VC interrupt aiid that
W other than a Sense CCW is
appropriate partition
n, etc). This identifier
message iieader (see Figure
e format) .
If the message begins with a Sense CCW, the
header analysis resolves the message type
as 'undefined'. This is also the case if
the message is less than five characters
long, since the type will then always be
indicated by a blanic, which is resolved as
undefined.
BG
F1
F2
Fn
-b xyyy
iJ text
where:
X - hexadecimal
y = alpnanumeric
Z = alphanumeric except A, D,
E, i
A = action
D = decision
E = eventual action
I = information
Messages which do not fit this format are|
consiaered as undefined.
C : 1
Figure 9. CLT Message Foroat
Byte - Line Status;
Bit
0: 1
Bit
1: 1
Bit
2: 1
Bit
3: 1
Bit
H: 1
Bit
5: 1
Bit
6: R
Bit
7: 1
= A-type message
= JB-type message
= D-type message
= I-type message
= Continuation Line
- Free Line
Reserved
1 = Protected (not yet
on hard-copy file)
Byte 1 - Partition Indicator:
Bits 0-3: Contents of PID in
xxCOMREG
Bits 4-7: Contents of IJBTIK
in SYSCOM
Byte 2 - Reserved
Byte 3 - Line Numiser
(X'OI* - X»08'
for l-iSD)
(X«01« - XM4»
for 3277/3278)
Each message he.s a corresponding SCT entry.
The format of an SCT entry is shown in
Figure 10. The line status information in
byte is required for screen management.
Figure 10. Screen Control Table (SCT) Entry
$$BOCRTD - write Processor (Part 2 of 2)
This phase handles the line overflow caused
by successive Write without carriage return
CCWs, by data-cnained CCWs, or by single
CCWs with a byte count greater than the
capacity of a single line.
Display Operator Console Support 49
Entry: From phase $$BOCBTC, which Has
detected the line overflow; from phase
SSBOCETQ when the message area was full-
Exit: To phase $$BOCJRTA when the channel
program is continued ; to phase $$BOCBTC if
no chaining has been encountered: to phase
$$BOCETQ if no line is currently available..
Method: For the 125D, each line of the
message area offers 33 bytes for the
message text; for the 3277/3278;, each line
offers 76 bytes for the message text. Since
this is much less than tie line capacity of
a printer-keyboard console, messages must
often be split up and distributed over
several lines.
If a message does not fit into one line, a
backward scan by 22 character positions is
performed on such a message for a blank,
comma, or full stop. The message is split
up at the first of these separation
characters, if any, and continiled in
position four (for 125D) or five (for
3277/3278) of the next line. Apart from
this separation method, $$BOCBTD follows
very closely the method of $$BOCfiTC,
$$BQCiiTE - CRT E^P (Part 1 of 2)
This phase analyzes irregularities detected
during screen I/O operations and processes
Sense comihands appearing within SYSLOG
channel programs.
Entry: From $$BOCRTZ for processing of
regular Sense CCWs; from any other phase in
which a screen I/O error occurred-
Exit: To phase $$BOCBTA on a Sense command
with command or data chaining; to phase
$$BOCBTC on a Sense command without
chaining; to phase $$BOCfiTF for handling of
any error except 'intervention required';
to any other phase when an intervention
required condition has been fuilfilled-
Mgthod: Sense co
programs are exe
the channel prog
is broken off,,
(disabled) with
Only one retry i
during the Sense
routine is also
errors.
mmands from SYSLOG channel
cuted as they occur within
ram. CCH chaining, however.
The I/O routine works
SIO and TIO instructions,
s performed on any error
operation. The I/O
used to analyze screen I/O
If intervention is required for the SYSLOG
printer, message 0D33A is displayed in the
instruction line (for the 125D) , For the
3277/3278, the message 0D38A is moved to
low core. The Post flag and the Disaster
flag in the CBTCCB are set orf and the
phase waits for the 'ready* interrupt. If
these interrupt conditioiiS are error-free,
the calling phase is fetched again. The
name of this phase is taken from CfiTNAM2 in
CRTTAB. Before tJxe phase is fetched, its
registers are reloaded from the save area
located at the end of $$BOCfiTE, where they
were stored on entry to phase $$BOCfiTE,.
$$BOCi(TE may issue the following message:
0D33A INTEfiViNTION REQUIitED FOi SYSLOG
PBINTEB
$$BOCBTF - CfiT EBP (Part 2 of 2)
This phase handles screen I/O errors except
•intervention required' .
Entry: From phase $$BOCiLTE.
Exit: To phase $$BOCfiTE if a unit checK
condition occurs during the retries; to
$$BOCfiTH after operation check, command
reject, and on programming errors (program
check or protection check) , provided the
hard-copy file is open (otherwise exit to
SSBOCRTA) .
The hard wait state is entered when no
recovery is possible from channel chaining
checks or channel interface checks. In that
case, the code X'OOOOOCCC is entered in
general register 11 and in bytes through
3 in low real storage..
Meth od : The method is similar to the one
used by phase $$BOChTE.. Three retries are
carried out in the following cases: on
channel errors, on equipment check, and on
undetermined errors (that is, the unused
sense bits are on) .. The retry counter is
passed between phases $$£OCfiTE and 4>$B0CBTF
in field DOCEIND in the save area CETSAV.
An equipment checJc may occur only for the
SYSLOG printer. The hard-copy open flag is
reset if recovery fails. Each message is
displayed in the instruction line, because
it is possible that $$BOCETG cannot clear
the entire message area, for instance, if
an extremely long message is currently
displayed.
If there is no recovery from operation
check and undetermined sense indications,
command reject, protection check, or
program check, all the interphase
conditions (indicated in DOCxIND in CETSAV)
are reset to the initial status. Thus, for
example, a redisplay may be terminated,.
50 DOS/VSE Logical Transients
$$BOCiiTF iaay issue the following messages:
0D34E EQUIPMENT CHECK ON SYSLOG PfclNTEE
0D35E IRSECOVEEABLE SCfiEEN I/O ERROR
0D36E UNDETEEMINED SCfiEEN I/O EfifiOA.. SNS=X
$$BOCRTG - hrite Screen Message
This phase writes the screen image bafier
to the screen after the data of the SYSLOG
channel program has been completely
transferred to the Jjuffer-
Entry: From phases $$BOCRTB, $$BOCiiTC,
$$BOCRTE, and $$BOCRTF. The pnase may also
be fetched when an attention request is
encountered and after an attention reguest
condition has been fulfilled.
Exit: To phase $$BOCRTH for writing the
hard-copy file; to piiase $$BOCRTI for
writing on the console printer; to phase
$$BOCfeTE on screen I/O errors; to phase
$$BOCRTK when an attention request is
encountered; to JSBOCiiTA when the hard-copy
file IS not open or does not exist.
Method: Partition and subtask indicators
are inserted into the relevant SCT entry
(see Figure 10) . The sound indicator DOCC02
in DOCxIND (in CRTSAV) and the message-type
indicator are examined in order to
determine whether or not the audible alarm
should be generated- The screen message
area buffer is scanned for messages
belonging to the same partition and subtasK
as the current message. If there are any,
the relevant lines are indicated as
deletable by screen management. When a Read
CCW is in the current channel program, the
relevant message will also be indicated as
deletable but the original message type
will nevertheless be recorded on the
hard-copy file. The latter does not apply
for E-type messages.
The new message to be displayed is scanned
for unprintable characters whose
representation is smaller than X'40*. Such
characters are replaced by blanks to avoid
that screen control characters appear
within the data- Before the screen image
buffer is displayed, it is checked whether
phase $$BOCETB has indicated that
intervention is required for the hard-copy
disk device. If so, message 0D26A is
displayed in the instruction line.
Subsequently, a WAIT is issued on the disk
CCB/IORB, which is passed in the CRTSAV
CSECT.
The CRTIC macro is used for the screen
write operation. Before the exit is taken,
the line print control flags (for SYSLOG
printer) in the Attribute Bytes in CRTSAV
are set ofr. If the hard-copy file is not
ojjen, tne line protection is reset (see
Figure 10) . Otherwise, the address of the
first line to be printed on the hard-copy
file, the numiaer of lines to be printed,
and the relevant SCT entry address are
passed to phase SSBOCitTH in general
registers 6, 2, and 13, respectively-
$$BOCitTG may issue the following message:
0D28A INTERVENTION EEQD FOR HARD COPY DISK
DEVICE
$$BOCRTH - Wri te Hard-C opy Records
This phase writes on the hard-copy disk
file the new lines that have been displayed
on the screeni
Entry: From phase $$BOCfiTG; from phase
$$BOCBTI if a console printer is supported;
from phase $$BOCRTF after irrecoverable
screen I/O errors; from phase $$BOCfiTY when
messages that exceed the message area
capacity are to be handled..
Exit: To phase JSBOCiiTA; to phase $$BOCRTB
on hard-copy disk errors; for a message
that exceeds the message area capacity to
phase $$BOCRTQ when the maximum number of
lines per message area has just been
written onto the hard-copy file; to phase
$$BOCETU when overlay mode is entered in
order to invalidate the wrap-around address
in the header record-
Method: Starting with the message line in
the screen image buffer pointed to by
register 6 (and for as many lines as
indicated in register 2) a hard-copy record
is built in the nard-copy file buffer (for
record format see Figure (12).- Whenever the
buffer is full, it is written to the actual
disk address (ACTDSKA) of the hard-copy
file by an SVC15-SVC7 sequence, then the
actual disk address is updated- Incorrect
length or irrecoverable I/O errors
indicated in the CCB/IORB are passed to
phase $$BOCRTB for recovery (see Figure 11,
bits 6 and 7) .
A test for remaining free space in the
hard-copy file is then performed..
If there is only space left for two
records, an indicator (see Figure 11, bit
2) is set which causes a warning nessage to
be issued by phase $$BOCfiTB.
If there is no more space left, i.-e- the
wrap-around point is reached (ACTDSKA =
HRAPSKA) , overlay mode is entered (see
Figure 11, bit 1) and $$BOCRTU is called to
invalidate the current wrap-around address
in the header record.
Display Operator Console Support 51
If overlay mode is active (see figure 11,
bit 1) , the wrap-around point (WRAPSKA) is
made equal to the actual disk address^
If the physical end of the hard-copy file
extent xs reacned (ACTDSKA = LASTSKA) , then
the actual aisK aaaress is reset to tne
start of the message area (ACTDSKA =
STRTSKA) and the cycle bit is inverted (see
Figure 12) «
iCRTFLGHC Hard Copy Control Flags:
CRTHOPN - Bit 0: 1 =Hard-copy file is open
CRTHCOVB - Bit 1: 1 =hard-copy file is in overlay moae- This bit is teset
together with bit 2 by $$i30CiiTB after the
correspondxng messages have been issued,
CRTHCHKN - bit 2: 1 =Warning message should be issued
CfiTIPL - Bit 3: 1 =IPL switch
HFtOPEN - Bit 4: 1 =Hard-copy file must be created
HFEQUNO - Bit 5: 1 =:Hard-^copy file not in use
HCERR - Bit 6: 1 =Hard-copy fxle has irrecoverable error
HCINCL - Bit 7: 1 =Incorrect length during recording
Figure 11, Hard-Copy Control Flags
52 DOS/VSE Logical Transients
CRSTSAV
Hard-Copy File
FRSTSKA
STRTSKA
LASTSKA , ,
WRAPSKA
ACTSSKA
header-record
^
screen image buffer
save area
■*
1
1 1
1
L.
1
p— ^,«— n
cycle
_01
01
^1
01
^1_
m ~_
_01 s
m
oi_|_
01
00
00
i ;
^'
^'
V ^-^
flag
wrap-around address
I L -J
Flag:
X'OO'
not set
X'OV
: valid
X'02'
invalid
Wrap-around address :
forCKD: CCHHR
for FBA : BBBBR
6 J j^ 59(82)
header record
FBA device
\
CKD device
•Figures for 125D (3277/3278)
y^
^
^
~
ogical record
ogical record
ogical record
.^ ^
j control info
y
\
\
\
RDF
1 1
RDF
CIDF
X-S
1 2
Control interval
■^V
57(80)58(81)59(82)'
message line
date
logical record
byte : bit - 4 : message type
same as byte of SCI entry (see Fig. 10)
bit 5,6 : reserved
bit 7 : cycle bit
byte 1 : bit - 3 : partition indication
AR=0; BG=1 ; F1 =7; F2=6; F3=S;...
bit 4 : reserved
bit 5 * 7 : number of partitions in system
VSAM control information
date
mmddyy
Address
Description
CKD format
FBA format
FRSTSKA
Start of har^-copy file
CCHH
BBBB
LASTSKA
End of hard-copy file
CCHHR
BBBBR
STRTSKA
Start of message area
CCHHR
BBBBR
WRAPSKA
Wrap-around address
CCHHR
BBBBR
ACTDSKA
Actual address
CCHHR
BBBBR
Figure 12., Hard-Copy File Format (Part 1 of 2>
Display Operator Console Support 53
Notes:
Messages displayed on the screen of a display operator console are collected in the hard-copy file, which occupies
one extent on the DASD device allocated to SYSREC.
Logical Format
The hard-copy file contains a header record, the screen image buffer save area, and the message area.
The header record is the first record in the file. It contains the wrap-around address, which is the disk address of
the first record in the message area which was not printed by the PRINTLOG utility.
The header record can be:
'not set', then wrap-around address = STRTSKA
'valid', then the wrap-around address is valid
'invalid', then the wrap-around point was overlayed and wrap-around address = ACTDSKA
The screen image buffer save area starts at the second logical record. Its length depends on the screen size: for
125D it consists of 8 records, for 3277/3278 it consists of 20 records. The current contents of the screen image buffer
are saved in it during redisplay processing.
The message area starts at STRTSKA and ends at LASTSKA. Records containing the message are written to it in
wrap-around mode. Each logical record contains a cycle bit which is inverted every time a new cycle is started,
i.e. whenever writing starts again at STRTSKA. The point where the cycle bit changes from one record to the next
defines the actual address ACTDSKA. New records are added to this point.
Physical Format ^
The hard-copy file starts at FRSTSKA and ends at LASTSKA. The logical records have a fixed length which depends
on the device type of SYSLOG: it is 60 bytes for 125D and 83 bytes for 3277/3278.
For hard-copy files residing on CKD devices the physical record equals a logical record. The last record is an EOF-
record with a zero data length. Minimum size is 10 tracks.
For hard-copy files residing on FBA devices a number of logical records is blocked in a VSAM-format control inter-
val. The CI length equals the FBA block size. The last CI of the file contains a SEOF (software end-of-file). Minimum
size is 50 blocks.
Figure 12- Hard-Copy File Format (Part 2 of 2)
5M DOS/VSE Logical Transients
$$BOCRTI - «rite on 3284/3286/3287/3288
SYSLOG Printer
This phase writes all lines from the
message area to the console printer if the
appropriate support is generated.
Intrj: From $$BOC.RTG or $$BOCfiTy after the
message area is written to the screen.
Exit; To $$BOCRTA if no hard-copy support
and call from $$BOCRTG; to $$BOCfiTQ if no
hard-copy support and call from $$BOCBTY;
to $$BOCRTH if hard-copy support exists.
M et hod; The message
internal protected 1
protected lines are
area of the console
are scanned for trai
byte count for the p
reduced accordingly,
operation (SVC15, ph
not successful, a me
the instruction line
answered by the oper
following ways; igno
current line, or ret
current line, or can
support.
area is scanned for
ines. All internal
moved into the output
printer.- The contents
ling blanKs and the
rint operation is
When the print
ysical addressing) is
ssage is displayed in
, whicii must be
ator in one of the
re printing of the
ry printing of the
eel the printer
$ $BO CRTK - Command Entry, .frocessinq
This phase analyzes operator commands.
Entry; From phase $$BOCJtiTA and $$BOC£TG to
handle an attention request; from phase
$$BOCRTW during non-automatic line
delection; from phases $$iiOCRTR and
$$BOCfiTS when operator commands have been
encountered in the input area.
Exit; To phases $$BOCfiIL through $$BOCRTP
and $$B0CRT2 on screen management commands;
to phase $$BOCRTA on system commands; to
phase $$BOCiiTE on screen I/O errors; to any
phase which was interrupted previously by
an operator request.
Method; The input area is read and the data
checked. The exit taken depends on the
result of the test.
are unique in DOS/VSE, A check is made for
•K» only, 'K' followed by blank (s) , and for
'K' accompanied by subparameters; * E* , *S',
and 'D'. The full command is converted to
uppercase characters.
$$BOCRTL - Deletion by K-Command
This phase handles K-commands with the
subparameter E except K E,N.
Entry; From phase $$BOCRTK; from phase
$$BOC£TX during message deletion in
conversational mode.
Exit: To phase $$BOCiiTQ; to phase $$i30CRTV
on erroneous commands.
Method: The syntax of the command is
checked and an error is indicated when the
command is incomplete or has invalid
parameters.
The following commands are correct;
E
t,SEG
E,n where
1^n<8 (for 1250) , or
1<n<20 (for 3277/3278)
K £,m,n where 1<ffl,n<8, and m<n
(for 125D) , or
1<m,n^20, and m<n
(for 3277/3278)-
All these commands must be followed by at
least one blank- The SEG parameter
corresponds to the value specified on a
specification K-command, that is K E,SEG is
equivalent to K E,t!,n.- K E,n is equivalent
to K E,m,n.
If the line numbers specified in the
command do not point exactly to the
beginning or end of tne message, the
specified deletion range is reduced in
order to include only the beginning of a
message to be deleted.
The fxnal value of the line range to be
deleted is passed to phase SSBOCRTy in
field SEGVAL2, fcihich is contained in the
save area CRTSAV,
PL-essing the CANCEL key has no effect at
all as the exit interface routine $$BOCRTP
is fetched. The cursor in the message area
indicates a deletion request. System
commands (and the Bequest key) are passed
to the Attention routine..
Valid redisplay commands must begin with
•D' followed by one or more blanks only or
ny several blanks and an 'L'. K-commands
$$BOCtTM - Deletion b^ C urso r
This phase determines from tiie cursor
address the corresponding range of message
lines that must be deleted.
Entry: From phase $$BOCRTK.
Display Operator Console Support 55
Exit; To phase $$BOCBTP on invalid cursor
operation; to phase $$BOCRTQ on valid
cursor operation.
Method; The address, of the cursor is
compared with the addresses o± the
different screen lines- If the cursor
address lies beyond the message area, the
error message 0D02I is set up, which is
later displayed by $$BOCfiTP- The message is
not set up if the cursor is set to the
first position o± the input area^
If the cursor address can ae assigned a
message line address, it is checiced whether
the line contains the end of a message. If
not, the line range must be redefined*
The range of lines to be deleted is passed
to phase $$BOCBTQ in field SEGVAL2, whicn
is contained in the save area CETSAV-
This phase may set up the following
message;
0D02A ILLEGAL CURSOR ORATION
$$ BOC RTN - Screen Ma nage ment Mode
Specification
This phase processes the specification
K-command,
DOCNIND Bit 0; = DEL=N
1 = DEL=y
Bit 1; = CON=N
1 = eoN=y
Bit 2: = ALM=N
1 = ALM=Y
Bit 4: = PfiT=N
1 = PfiT=y
SEGVALH-1 = SEG value
$$BOCRTO - Lin e Number Display
This phase processes the display K-command-
Entry; Prom phase $$BOCfiTK, from phase
4i$B0CRTQ for display/deletion of line
numbers^
Exit: To phase $$BOCRTX when the system
operates in conversational mode (CON=y) ; to
phase $$BOCRTP when the system is not in
conversational mode; to phase $$fiOC£TV in
case of error^
Method; In general, this phase is fetched
for processing of the commands
K D
Entry; From phase $$BOCRTK.
Exit; To phase $$BOCRTP; to phase $$BOCiiTV
in case of error.
M eth od; The commands processed must be of
the form
K S,&Ef
K S,parm where parm is at least one of the
parameters:
DEL=
,CON=
, ALM=j SEG=n (where l<n<8
N for 125D,
il<n<20 for
3277/3278)
K D,N
K D,N,HOLD,
In all cases, the line numbers are inserted
into the appropriate buffer locations, but
K D,N,HOLD causes a flag to be set (J)OCO08J
to prevent the numbers from disappearing
when the next command is entered..
Whether or not the phase that handles the K
E,N command is fetched, is indicated ny
flag DOCO01. This is the special case, not
included in phase $$BOCRTL, where the
subparameter *L* xs operated on, DOC00 4
indicates that the paase is fetched during
processing of a deletion command in
conversational mode.
PfiT=
DOC002 indicates that the line numbers must
be deleted. This takes place during message
deletion in conversational mode.
The command K S,PET,REF results in the
current DEL,CON,ALM,SEG,PRT parameter
values displayed in the instruction line
(by phase $$BOCETP) .
The command K S,parm updates the screen
management parameters. These parameters
are represented in CRTSAV by the fields
$$BOCRTP - Exit Interface
This phase establishes the interface
isetween the screen management phases and
the supervisor.
56 DOS/VSE Logical Transients
Entry: From phases $$BOCRTO, $$BOCRTM,
$$BOCfiTN, $$BOCRTV, $$B0CRT4, $$B0CfiT5;
from phases $$60CiiTE and $$BOCRTF after
recovery from screen I/O errors; from phase
$$BOC£TK uhen a command is canceled; from
phase $$BOChTQ after line deletion by
command; from $$BOCRTX vhen a deletion
request has been canceled during
conversational mode.
Exit: To phase $$BOCETA when the next
Attention interrupt should he handled hy
the supervisor; to any interrupted phase
whose name is passed in CRTNAUI as
indicated in CRTQPD (in the table CRTTAB) ;
to phase $$BOCRTE on screen I/O errors.
Method: The line numbers are deleted, if
the HOLD parameter is not active:* The
instruction line and entry area are
blanked. When entry was from phase
$$BOCfiTV, only the entry area is hlanJced,
while the message area is displayed, that
is, the error message from phase $$BOCRTV
remains on the screen.-
$$BOC£TQ - Deletion of Message Lines
This phase deletes message lines.
Entrj^: From phases $$bOCRTB through
$$BOCfiTD during channel program
interpretation; from phase $$BOCiiTX during
deletion in conversational mode; from
$$BOCiiTL for deletion of messages by
K-command; from $$BOCRTM for deletion of
messages according to cursor positioning;
from $$BOCbTY during processing ox
extremely long messages.
Exit: To the calling phase; to phase
$$BOCRTP on exit from a deletion command;
to phase $$BOCETW during non-automatic
deletion mode (DEL=N) and durxng handling
of messages that exceed the screen
capacity; to phase $$BOCfiTO for
displaying/erasing line numbers during
message deletion in conversational mode.
Method: The number of lines representing
the range of deletion is passed in field
SEGVAL2, which is contained in the save
area CRTSAV. The lines following the
specified range are checked to determine
whether they belong to the message (s) to be
deleted.
A-, D-, and E-type messages within the
specified range are not deleted- Messages
of this type are deleted only when directly
pointed to by a command or by the cursor.
If the cursor is set to line n, not only
the message pointed to is deleted
(irrespective of its type) , but also all
deletable messages contained in lines
through n. The screen image buffer may also
contain lines protected against deletion,
that is, if they have neither joggh
displayed on the screen nor recorded on the
hard-copy file*
$$BOCitTR - Bead Processor (Part 1 of 3)
This phase is the root phase of the read
processor and analyzes the read commands or
reads an operator command.
Entry: From phase $$BOCRTA; from phase
$$BOCRTS when an operator command is to be
read; from phase $$BOCRTT when processing
of the Read CCW is to be continued; from
phase $$BOCRTE and $$BOCfiTF after
successful recovery of a screen I/O error.
Exit: To phase $$BOCRTS; to phase $$BOCRTK
for handling of operator commands; to phase
$$BOCBTC if a Read CC« is preceded by an
erroneous Write CCW; to phase $$BOCRTE on
screen I/O errors,.
Method: On first entry into the phase, the
input area is read to determine whether an
operator command is dealt with or a SYSLOG
channel program is to be interpreted. If
the phase is fetched again by phase
$$BOCfiTT, a Read channel program is
processed and the data may not fit in the
entry area.
If a Read CCW is preceded by the CCfc
sequence • Write without carriage return -
TIC*, the data of the Write CCW up to 80
characters is moved into the entry area
before the operator is allowed to enter
data.
If the operator wants to enter a command
while a SYS LOG Read CCfc is handled, he can
do so by pressing the REQUEST key, but the
message 'BEAD IS MAITING' appears in the
warning line. The operator can then press
the Cancel key to cancel the command just
entered and allow the SYSLOG channel
program to be continued..
$$BOCRTR may issue the following messages:
0D05D READ IS WAITING. CANCEL OR CONTINUE
$$BOCBTS - Bead Processor (Part 2 ox 3)
This phase allows the operator to enter
data corresponding to a Read CCii,
Ent ry : From phase $$BOCBTR; from phases
SSBOCRTE and $$BOCRTF after successful
recovery of a scree:u I/O error-
Display Operator Console Support 57
Exit: To ptiase $$BOCfiTT; to phase $$BOCRTK
when a command has been entered; to phase
$$BOCiTE on screen I/O errors; to phase
$$60CBTR if the £ead CCH is canceled.
Meth od; The mess
•"entee command*
instruction line
area is started,
data to be enter
corresponding SY
However, if the
command may be e
age 'ENTER RESPONSE* or
is displayed in the
and a read of the input
The latter allows as much
ed as specified in a
SLOG channel program^
Request key is pressed, a
ntered instead of data.
Pressing the Cancel Jcey, whetJ?.er
accompanied by entered data or not, allows
the data to be reentered.
$$BOCfiTS may issue the following messages:
0D08A ENTER COMMAND
0D07D ENTER RESPONSE
$$BOCRTT - Read Pr oces sor (Part 3 of 3)
Moves the data (corresponding to the SYSLOG
channel program) into the requestor's input
area.
Entry; From phase $$BOCETS; from phases
$$BOCRTE and $$BOCRTF after successful
recovery of a screen I/O error.
Exit: To phase $$BOCRTR for continuation of
the read channel program; to phase $$BOCRTC
when the SYSLOG Read CCHs are handled; to
phase $$BOCRTE if an error has occurred
during screen I/O,
Method: The read byte count is reduced by
the residual count of the previous read
operation in phase $$BOCfiTS. If the number
of bytes is less than the length of the
entry area and the current CCW is not
data-chained, the data just read is moved
to the requestor's input area, the screen
entry area is cleared, and control is given
to $$BOCRTC.
If the byte count exceeds the entry area
length, the read operation may have to be
repeated. The data is moved to the
requestor's input area and phase $$BOCRTR
is fetched again- The data is not moved if
the corresponding CCW has the sJcip flag set
on.
The fact that a byte count exceeds the
amount of data entered and that the entry
area is not yet exhausted indicates that
the read channel program has been finished.
$$B OCB T0 - Update Hard -Copy File
grap-Around A ddres s
This phase updates the wrap-around address
in the header record, or invalidates the
wrap-around address in the header record,
or forces writing of the current hard-copy
buffer;-
Entrx: The Prmtlog utility or IJBJC7
issues an SVCO instruction accompanied by a
special CCH. Tiiis activates $$BOCfiTA, which
fetches $$BOCRTU.
$$BOCRTH fetches $$BOCRTO if overlay mode
is entered.
Exit: If overlay mode is active to
$$BOCBTB, else to $$BOCRTA.,
Method; For the update function, the
wrap-around address WRAPSKA is written to
the header record (see Figure 12). For the
invalidate function, the header record is
invalidated (see Figure 12) . For the force
I/O function, the current hard-copy bufter
is written to the hard-copy file-
$$BOCRTV - Command Error Message Writ er
This phase displays error messages related
to invalid K- and D-commands-
Entry; From phase $$BOCRTL, $$BOCRTN,
$$BOCRTO, $$B0CRT2, and $$B0CRT6; from
phases $$BOCRTE and $$BOCRTF after recovery
from screen I/O errors.
Exi t: To phase $$BOCRTP; to phase $$B0CRT1
when the system is in redisplay mode; to
phase $$BOCRTE in case of screen I/O
errors-
Method: The cursor is set to the position
passed in field CRTPOSil in CRTSAV by the
different phases. This indicates to the
operator the invalia character or
parameter- Lines 1 through the instruction
line of the screen are displayed.
$$BOCRTV may issue the following messages:
OD01A CONTROL COMMAND ERROR
ODOUA DELETION REQUEST INCONSISTENT.
INVALIL RANGE
0D30A INVALID DISPLAY COMMAND
58 DOS/VSE Logical Transients
$$BOCRTW - Karnina fi]i£.ing. Non- Automatic
Deletion Mode
This phase displays message OD05A:
1- When the system operatfes in the
non-automatic deletion mode {DEL=N) and
a message is issued bat cannot be
displayed because the screen is full,,
2, When a message is issued but cannot be
displayed because the screen is full
with non-deletable messages,
Entrx: irom phase $$BOCfiTQ; from phases
$$BOCETE and $$BOCRTF after recovery from
screen errors.
Exit: To phase $$BOCfiTK to analyze the
operator's action; to phase $$BOCiiTy fehen a
message should be displayed that exceeds
the message area capacity; to phase
$$BOCfiTE on screen I/O errors.
Method: When the message area buffer
contains lines that belong to the same
message and these lines have not yet been
displayed on the screen or recorded on the
iiard-copy file, phase $$BOCfiTY is tetched-
Otherwise, 'MESSAGE WAITING* is displayed
in the warning line and control is passed
to phase $$BOCRTK upon the response of the
operator. The message area is displayed to
show the operator that it is completely
full.
$$BOCitTW issues the following message:
0D05A MESSAGE WAITING
$$BQCgTX - Verification of Operator
Commands during M es sage D ele tion
This phase displays a message deletion
request given by the operator in the form
of a K-command, and waits for the response
of the operator.
Entry: From phase $$BOCfiTO (display numbers
preceding the lines) ; from phases $$BOCHTE
and $$BOCRTF after recovery from screen I/O
errors^
Exit: To phase $$BOCETP if the operator
cancels the deletion; to phase $$BOCRTL if
the operator does not change the deletion
parameters; to phase $$BOCfiTM if the
operator sets the cursor; to pnase $$BOCETK
if the operator changes the deletion
parameters or enters a command other than a
deletion command.
Metho d; The range of deletion passed in
field~SEGVAL2 in CETSAV is displayed in a
corresponaing aeletion command in the entry
area together witii the message 'DELETION
ixEQUESTED' , which is disiplayea in the
instruction line. The system waits for tne
operator response. The answer is read and
analyzed. If only tne Request Key is
pressed, the answer is considered invalid.
If the answer modifies the deletion range
or the type of command, then control is
passed 'to $$BOCi(TK.
$$BOCRTX issues the following message:
0D03A DELETION REQUESTED
$$BOCRTY - Handling of Messages L onge r than
li3.k:t Lings
This phase nandles messages that are longer
than eight lines. The support is for both
DEL=N and DEL=y,
Entry: From pnase $$BOCETW; from phases
$:fBOCRTE and s>$BOCRTF on successful
recovery from screen I/O errors.
Exit: To phase $$BOCRTH when the hard-copy
file is open; to phase $$BOCfiTI if a
coasole printer is supported; to phase
$$BOCRTQ when the hard-copy file is not
open; to phase $$BOCfiTE on any screen
error.
Method: The message buffer is displayed on
the screen and, at the same time, the
message lines are printed on the SYSLOG
printer, if available.. The latter is
controlled by the print-line control flag
in the Attribute Byte in CRTSAV. After the
lines have been displayed and printed, the
print flag in the corresponding Attribute
Bytes is reset. If the system is in
non-automatic aeletion mode (D£L=N) , the
message 'MESSAGE TOO LONG CONTINUE BY
ENTER' is displayea and the system waits
for the operator response. Any response
other than pressing ENTEfi is ignored,.
Depending on whether or not the hard-copy
file is open, phase $$BOCRTH is fetched
(file is open) or the internal
line-protection flag (see Figure 10) is
reset and phase $$BOCRTQ is given control-
If a console printer is supported, $$BOCRTI
is fetched.
When DEL=Y is active, the message 'CONTINUE
BY ENTER' is displayed in the instruction
line, the message 'MESSAGE TOO LONG' is
displayed in the warning line, and the
operator's response is waited for. Then the
procedure follows the method for DEL=N
above, but the number of lines to be
printed is taken from the value of the SEG
parameter.
Display Operator Console Support 59
$$BOC&TY may issue the following message:
0P06A MESSAGE TOO LONG
CONTINUE BY ENTEfi (in warning line)
$$riQCitTZ - Chann el Program Analyzer
After tne various checks have been
completed, phase $$BOCETZ fetches the
proper processing phase to handle all CCWs
that are considered valid by $$BOCfiTZi If
phase $$BOCJiTZ finds that a CCW chain is to
be discontinued, it also passes tfte address
of the first invalid CCW in the chain to
the processing phases.
This phase diagnoses and checks any
user-supplied CCW or CCW chain for
validity. The status of the diagnostic run
is reflected in a CSW that is returned to
the user.. In addition, provisions are made
to discontinue a CCW chain at the point
where an error is encountered.
$$B0CfcT1 - Message Bedi s play (Part J[ of 6)
This phase allows new display commands to
be entered when the system is in redisplay
mode.
Entr y; From phase $$60CfiTA to analyze the
channel program.
Exit; To phase $$BOCBTA if the next CCW to
be processed is in error, to phase $$BOCi(TC
if the next CCW to be processed is a Wrxte,
NOP, or Alarm CCW; to phase $$BOCBTE if the
next CCW to be processed is a Sense CCW; to
phase $$BOCRTG if an error is encountered
in a CCW which is not the first CCW in a
chain of CCWs; to phase $$BOCiiTfi if the
next CCW to he processed is a liead CCW or
if one or more • Write without carriage
return* CCWs are followed by a Read CCW.
Note that TIC commands contained within a
chain of CCWs have no effect on the exit
sequence described above.
Method: On entry from phase $$BOCfiTA, the
address of the next CCW to ne processed is
loaded and the CCW itself, as well as any
CCW that is data-chained to the preceding
CCW, is checked for validity. The
following checks are performed;
1. Check for valid OP-code (omitted in
case of data-chained CCWs) .
2. Check for valid byte count (omitted in
case of a TIC command) «
3- Check for unused bit setting (omitted
in case of a TIC command)..
4. Check for valid or protected I/O area
address (omitted if the CCW is not a
user-supplied CCW, if it is a NOP or
Audible Alarm CCW, or if the Skip bit
is set to 1) -
The current status of the checks performed
is registered in a CSW that is returned to
the user. This CSW will contain the correct
resxdual count, the correct status
information, and the correct CCW address +
8. However, before the CSW is returned to
the user, it may be modified by the
processing phases if these phases detect an
error or if an interrupt condition occurs
during processing..
Entry: From phase $$B0CET4; from phases
$$B0CttTE and $$BOCi(TF after recovery from
screen I/O errors; from phase $$BOCRTV
after a redisplay command error.
Exit; To phase $$B0CfiT6 if only the ENTEfi
Key is pressed; to phase $$B0CfiT2 if a
D-command is entered; to phase $$B0CilTE on
any screen I/O error-
Method: Any pending request indicated in
CicTFLG2 in C&TTAB or a second entry in the
channel queue causes 'MESSAGE WAITING' to
be displayed in the warning line.. The phase
waits for an Attention interrupt provided
such an interrupt is not already pending.
The entry area is read and the input
checked.. A CANCEL encountered in the input
area causes the process just described to
be repeated,.
Pressing the Request key is an invalid
operation during redisplay and causes the
message 'REQUEST IGNORED' to be issued.
The message 'INVALID DISPLAY COMMAND'
appears if any data that does not begin
with a 'D' has been entered.
$$B0CRT1 may issue the following messages:
0D30A INVALID DISPLAY COMMAND
0D97A REQUEST IGNORED
0D05A MESSAGE WAITING
$$B0CRT2 - Message Redisplay (Part 2 of 6)
This phase examines the parameters of the
redisplay command on first entry to
redisplay.
Entry: From phase $$BOCflTK on entry to
redisplay; from phase $$B0CRT1 during
redisplay.
60 DOS/VSE Logical Transients
Exit : To phase $$BOCRTV when tiie command
contains a syntax error; otherwise, to
phase $$B0CfeT6.
Method; The whole command is transformed
into uppercase characters. The command is
scanned and an indicator is set foi: each
parameter which is essential for redisplay
(for instance, partition parameter or
forward or backward parameter).
If the syntax of the command is violated,
exit is to phase $$BOCfiTV. This happens in
the following cases:
• First character is no 'D',
• Second character, if any, is not blank-
• Second character is clank but the next
non-blank character is neither 'L' nor
• E» ,
• An 'E' is immediately followed by a
non-blank character.
• An 'L' is not immediately followed by a
blank or a comma.
• One of the parameters 'ALL*, 'BG',
•AE', 'Fl*, *.., 'B', *F\ is not
followed by a comma or blank.
• A parameter that follows one of the
preceding parameters is neitner 'fi' nor
a decimal digit, or is a decimal number
with more than three digits.
Entry: From pJiase $$B0CET3 to display the
screen during refdisplay; from phases
$$BOCiiTE and $$BOCETF after recovery from
screen I/O errors; from phase $$B0CitT5 on
exit from redisplay.
Exit: To phase $$i30CfiTP on exit from
redisplay; to phase $$B0CfiTl; to phase
$$b0CBTE on any screen I/O error-
Method: When redisplay should be finished
according to the current command, the
screen is restored as it was before the
redisplay mode was entered.
•**« END OF FILE ***» or • *** BEGIN OF FILE
***• is indicated on the .screen when the
disk address ACTDSKA (where the next record
is to be written by phase $$BOC£TH) Jaas
been reached by redisplaying forward or
backwara 'NO aORh MESSAGES ON tiC FILE'
appears xf attention routine messages or
all messages are redisplayed and no more
messages are available.
In any case, tue instruction line is
written to indicate to the operator:
• That the system is in redisplay mode.
• Tae direction of redisplay (forward or
backward-)
• The numbier of lines between the current
image and the (curren-tly) last record
on the file..
If the partition is specified in the
redisplay commana, it is also indicated-
$$B0CRT3 - Message Redisplay (Part 3 of 6)
iiB0CRT5 - Message Red i spl ay (Part 5 of 6)
This phase reads from the hard-copy file
according to the parameters specified in
the current redisplay command.
Entry: From phase $$B0CRT6.
Exit: To phase $$B0CRT4 to write to the
screen; to phase $$B0CRTB on a disk error.
Met hod; Using the current redisplay command
parameters, which are passed in flags and
counters, the disk channel program is
updated to read the hard-copy records to be
displayed next.
$$B0CRT4 - Message Redis£lax (Part 4 of 6) |
This phase displays eight message lines
read from tae hard-copy file.
This phase saves the current screen image
on entry to redisplay mode and restores the
screen image on exit from redisplay mode.
Entry- From phase $$B0CRT6.
Exit; To phase $$B0CRT6 on entry to
redisplay mode; to phase $$BOCfiTP if tne
hard-copy file is not open; to phase
$$B0CRT4 on ^xit from redisplay mode; to
phase $$BOCkTB on hard-copy disk errors.
Method: Th
and CCB/IO
screen ima
from) reco
1 through
screen ima
(see Figur
I/O error
redisplay
be lost-
e hard-copy d
kb are reloca
ge area is sa
rds 1 through
20 (for tne 3
ge buffer in
e 12). If an
occurs, phase
and the curre
isk channel program
tea- The current
ved in (or restored
8 (for the 125D) or
277/3278) of tne
the iiard-copy file
irrecoverable disk
SSBOCiiTB rinishes
nt screen image may
Display Operator Console Support 61
$$B0CfiT5 may issue the following message:
0D37I EC FILE NOT OPEMED, REDISPLAY NOT
POSSIBLE
$$B0CBT6 - Message Redisplay (Part 6 of 6)
This phase checks the current redisplay
command parameters for logical consistency.
Entry; From phase $$B0CfiT2 on entry to
redisplay; from phase $$B0CRT5 after saving
the current screen image; from phase
$$B0CB:T1 if only ENTER has been pressed
during redisplay-
Exit: To phase $$B0CfiT7 if any logical
error in the command is detected; to phase
$$B0CRT3 if phase $$B0CRT6 is fetched—only
for relocating the hard-:;opy disk CC«s and
CCB/IOKB; to phase $$B0CRT5 on the first
entry to redisplay.
Method ; The partition parameter is the only
essential subparameter allowed on entry to
redisplay. If the partition parameter is
specified in the first redisplay command,
the line counter used during redisplay is
set to zero and phase $$B0CRT5 is fetched.
The same is true if 'ALL* is specified
explicitly or applied by default-
62 DOS/VSE Logical Transients
CHECKPOIMT/RESTART ROUTINES
Checkpoint is a record of the status of a
problem program taken at desired intervals.
R est art is the resumption in the execution
of the program from one of the checked
points, rather than from the beginning, if
processing terminates for any reason before
the normal end-of- job-
Hhen a problem p
for an extended
should be made f
information peri
This information
the job and the
scatus, register
are written. Thu
checkpoint posit
processing is te
before the norma
processing termi
such as a power
CHECKPOINT
rogram is expected to run
period of time, provision
or taking checkpoint
odicaily during the run,,
describes the status of
system (storage, I/O
s) at the time the records
s, restarting at the last
ion is possible if
rminated for any reason
1 end-of-job. For example,
nates if a malfunction,
failure, occurs-
A CHKPT macro must be issued to write a
checkpoint- The CHKPT macro expansion
fetches the checkpoint transient program
$$BCHKPT to write a checkpoint on a
specified tape unit, or $$BCHKPD to write
the checkpoint^^Ntt^ ^ disk.. Any number of
checkpoints (up to decimal 9999) can be
taken on the same unit. A number in the
checkpoint header label identifies a
particular checkpoint.
If the checkpoin
magnetic tape fi
(defined by the
the labels must
OPEN macro or by
before the first
the checkpoint i
user must define
MOUNTED=£'INGLE,
the file before
A CISIZE paramet
is ignored by th
routines.
t is taken on a separate
le with standard labels
user with a DTFPH macro) ,
either be checked by an
passed by an MTC command
checkpoint is taken. If
s taken on t disk file, the
(by a DTFPH macro with
TYPEFLE=OU?'PUT) and open
a CHKPT macro is issued,
er defined with the DTFPH
e checkpoint/restart
Checkpoint does no t save the following:
• The SVA and the system GETVIS area- If
a checkpointed program uses phases in
the SVA or occupies space in the system
GETVIS area, the user must make sure
that the same locations are occupied at
restart time-
• The floating-point registers.
• Any linkages to the checkpointed
program set up by the STXIT or SETPFA
macros.
• Any XECBs defined by the checkpointed
program.
• Any timer values set by the SETIME
macro.
• The program mask in the checkpointed
program's PSW.
If reguired, this information must be
defined at restart time by a user restart
routine.
Note: A checkpoint must not be taken if any
gating mechanism is in use by the
checkpointed program (for example,
USE/RELEASE) .
CHKPT Macro
The CHKPT macro instruction has the
following format:
Name
Operation Operands
[name] CHKPT
SYSnnn, trest-addr | (r1) }
[ ,end-addressl , (r2) ]
[ ,tpointer | , (r3) ]
[ ,dpointer | , (r4) ]
[ , filename 1 , (r5) ]
For an explanation of the operands, see
DOS^SE Macro Reference, GC2U-51U0,.
The checkpoint macro generates a 28- or
32-byte field with the format shown in
Figure 13 when the fifth and/or sixth
operands are specified- If these operands
are omitted, bytes 14-19 do not appear, and
a 22-byte field is generated.
The macro then generates a calling seguence
that places the address of this field in
register and the address of the tape or
disk checkpoint logical transient name in
register 1, and issues an SVC 2 to fetch
the transient phase.
Checkpoint/Restart Routines 63
£ii§£K£oiili i21itise§ (see Chart 23)
The CHKPT macro determines the checkpoint
device type and fetches the appropriate
routine. If the checkpoint device is a
tape, phases $$BCHKPT, $$BCHKP2, and
$$BCHKP3 are fetched.- If the checkpoint
device is a disk, phases $$BCHKPD,
$$BCHKPE, $$BCHKPF, and $$BCHKPG are
fetched. The phases check the conditions
necessary to take a checkpoint and write
the checkpoint records on the specified
device-
1o write an error (or the 'successful*)
message, the common phase $$BR{1SG1 is
called. If the checkpoint was successful
and a tape reposition table is specified,
$$BCHK3G is fetched to perform an 'erase
gap on open tape output files'. Control is
then returned to the problem program.
Bytes
0-3
(0-3)
4-7
(4-7)
8-1, I
(8-B)
12
(C)
13
14-21
(E-15)
14-15
(E-F)
16-19
(10-13)
20-27
(14- IB)
20-23
(14-17)
24-31
(18-1F
Contents
A four-byte address or X'FF'
followed by a three-byte
register number to specify
a restart address,
A four-byte address or X'FF'
followed by a three-byte
register number to specify a
high byte address. This field
is zeros if the end address is
not specified,
A four-byte address or X'FF'
followed by a three-byte
register number to specify
tape reposition status infor-
mation. This field is zeros
if 'tpointer' is not specified.
X'01'
The system unit number from
sysxxx-
C'$$BCaKPT' if CHKPT device
is a tape and 'dpointer'
is omitted.
X'OOOO'
A four-byte address or X'FF'
followed by a three-byte
register nusiber to specify
DASD verification information.
This field is zeros if
•dpointer' is not specified.
C'$$BCHKPT' if the filename
parameter is not specified.
A four-byte address of the
user-specified DTFPH for the
disk checkpoint file, or X'FF'
followed by a three-byte
register number (where the
register must contain the four-
byte address of the DTFPH
table) .
C'$$BCHKPD' if the filename
parameter is specified^
Numbers in parentheses are displacements^
in hexadecimal notation-
Figure 13, Information Field Generated by
CHKPT Macro
64 DOS/VSE Logical transients
RESTART
Control statements necessary to restart a
job from a checkpoint are:
1. JOB statement specifying the same job
name as the checkpointed job«
2. ASSUN statements for assigning I/O
devices to symbolic unit names.
3. DL6L and EXTENT statements of the
checkpoint file if the file is located
on disk and if user labels are used.
4. RSTRT statement specifying the unit:
that contains the checkpoint, and the
checkpoint ID number taken from the
message that was printed when the
checkpoint was taken.
The format of the RSTRT statement follows:
// RSTRT SySxxx,nnnn,£ filename]
SYSxxx Symbolic unit name of the device
on which the checkpoint records
are stored^ This unit must have
been previously assigned.^
nnnn Identification of the checkpoint
record to be used for restarting.
This serial number is four
characters. It corresponds to the
checkpoint identification used
when the checkpoint was taken.
filename Symbolic name of the disk
checkpoint file to be used for
resi^.artiug. It: must be identical
to the filename of the DTFPH to
describe the disk checkpoint file
and the fifth parameter of the
CUKPT macro instruction,. This
operand applies only when a disk
is specified as the checkpoint
device.
fiSStaEt £2ii tines (§ee C ha rt 23)
The job control phase $JOBCTLK checks the
RSTRT statement for syntactical correctness
and buildG a parameter list. Control is
then passed to tne'job control phase
$JOBCTLB which determines the restart
device, locates the checkpoint, reads the
header, save, 3800-printer, and Extent
records, checks the RSTRT partition whether
the required functions are supported and
whether the partition allocations match
those at checkpoint time, restores required
parts of the partition communication
region, and clears the partition.
Job control then fetches phase $$BRSTRT
which restores PFIX information and the
problem program area.
If DASD verification and/or tape
repositioning is required, $|iBRSTR2 is
fetched.
If no error condition occurs, control is
passed to the restored program. $$BRI1SG2 is
fetched to write an error message and
cancel the program or to write an
information message and continue fetching
$$BRSTR2 or cancel the program, depending
ou the operator's reponse.
Checkpoint/Restart Routines 65
Chart 23, Checkpoint/Restart Routines
/entry FROftA
\CHKPT macro/
SSBCHKPT Chart SA
1. Test if checkpoint
can be taken
YES
2. Build CHKPT
header record
DISK
$$BCHKPD Chart SD
1. Test if checkpoint
can be taken
NO
$$BCHKP2 Chart SB
1. Write CHKPT header
record
2. 3800-Printer infor-
formation to save
YES
3. Build an'd write
extent records if
applicable
4. Build and write
PFIX records if
applicable
5. Write core dump
records
iRMSGI Chart SJ
1. Write message
on SYSLOG
YES
2. Set CHKPT -ID in
partition commu-
nication region
and partition
save area
$$BCHK3G Chart SK
Erase gap on unclo-
sed output files if
required
$$BCHKP3 Chart SC
Build and write 3800
information records
NO
ERROR
YES
YES
2. Build CHKPT
header record
$$BCHKPE Chart SE
1. Complete test if
checkpoint can
be be taken.
2. Complete and write
header record
3. 3800-Printer infor-
mation to save
$$BCHKPG Chart SG
Build and write
3800 information
records
I 'YES
-*^ pre
ERROR
NO
$$BCHKPF Chart SF
1. Build and write
extent records
if applicable
2. Build and write
PFIX records if
applicable
SVC 1 1 to
problem progra
m)
66 DOS/VSE Logical Transients
(ENTRY FROmN
SJOBCTLK J
$J0BCTLB
1. Locate CHKPT
on specified file
2. Read CHKPT
header record
3. Check if RSTRT
possible
4. Restore 3800
information if
applicable
5. Restore
extent infor-
mation if appli-
cable
YES
6. Write message
on SYSLOG
and
7. Set up required
partition for
restart
(Cancel A
SVC 6 y
J RSTRT Ch.SL,SIVI
Restore PFIX
information if
applicable
Restore core
dump records
Error
detected
NO
3. Tape repositioning
or DASD verifica-
tion required
<r
4. Set up user-speci-
fied restart
address
Un
$$BRSTR2 Ch.SN, SP
1. Reposition required
tapes
2. Get required
DASD information
3. Set up user-speci-
fied restart
address
$$BRMSG2 Chart SO
1 . Write message on
SYSLOG
YES
(Cancel A
(SVC 6) J
SVC 1 1 to
problem progra
im y
iiBCHKPT - Ta^pe Ch ec kpoint Phase J.
This phase detecmines if the checkpoint can
be taken and starts building the checkpoint
header and save record-
Entry; From a ChKPT macro expansion when
the unit on which the checkpoint is taken
is a magnetic tape device.
Exits: To $$BCHKP2 to complete the
checkpoint, or to ISBRMSGI to print an
error message indicating the error
contlition-
MetLiod ; The CHKPT macro provides phase
$$BCHKPT with the address (in register 0)
of the checkpoint parameter list (see
Figure i13)-
This phase determines if
- the checkpoint is issued by a maintask
- no subtasks are attached to this
maintask
- no I/O is pending on a TP-device
- no tracks/blocks are held
- the checkpoint device is a tape
- the user-specified end address is
valid-
If the end address is not supplied by the
user, the partition logical end address
will be used (PPEND from the partition
communication region) -
If the GETVIS flag in the partition
communication region is on, the
user-specified or logical end address is
ignored and the whole partition will be
saved-
The phase then calculates
the number of fl6K partition dump
records-
the number of PFIX information records
(if PFIXing has taken place)-
the number of extent information
records (if DASD file protection is
supported and an entry in the JIB table
or system extent area exists).
the number of 3800-printer information
records (if the 3800 printer is
supported and assigned) -
The calculated values are stored in the
checkpoint header and save record area in
the common workarea of the tape checkpoint
phases -
$$BCaKPT also retrieves and stores (in the
header and save record area) any necessary
partition communication region information,
the updated checkpoint-ID, and the
partition allocations.
Tiae layout of the header and save record is
shown in Figure 14.
Checkpoint/Restart Routines 67
r 1
1 TAPE i DISK I 1
1 Bytes i Bytes 1 CONTENTS j
1 0-11 10-11 i /// CHKPT // (Checkpoint header record-id), |
1 (0-B) 1 (0-B) 1 i
1 12-13 1 12-13 J Number of program dump records (in binary format) |
r (C-D) 1 (C-D) 1 (
j 14-15 1 14-15 1 Disk: Not used |
1 (E-F) 1 (E-F) 1 Tape: Number of checkpoint records following the header record (in|
1 j ( PFIX information records, the program dump records, the save and |
1 1 i the trailer record- This field is used by MTMOD to skip a CHKPT J
1 1 1 file located in a user data file and by Restart to skip a CHKPT j
i 1 1 file while scanning a tape for a requested CHKPT. |
i 16-19 j 16-17 i Tape: Checkpoint identification number in unpacked decimal f ormat- |
j (10-13) j (10-11) a Disk: Checkpoint identification number in binary format- (
i i 18-19 j Only for checkpoints on FBA-devices: |
1 1 (12-13) 1 Byte 0: Number of blocks needed for information records |
i i 1 Byte 1: Number of blocks needed for program dump records {
i For tape checkpoints the above is the header and trailer record layout.. The following |
j information is stored in the save record- (
i For disk checkpoints this is one record (header record). j
i 0-3 1 20-23 i Highest storage address checkpointed |
1 (0-3) i (14-17) 1 i
1 4-67 1 24-87 J Values of general registers from the partition save area (9-15, |
1 (4-43) 1 (18-57) 1 0-8) i
1 68-87 i 88-107 1 Partition communication region bytes 12-31 |
J (44-57) 1 (58-6B) i |
1 88-97 J 108-117 i Partition communication region bytes 36-45 |
i (58-61) i (6C-75) J 1
1 98-99 1 (118-1.19 i Partition communication region bytes 56-57 |
1 (62-63) 1 (76-77) i 1
i 100-101 i 120-121 1 Partition communication region bytes 92-93 |
1 (64-65) 1 (78-79) | {
i 102 i 122 i Partition communication region byte 78 1
1 (66) J (7A) 1 i
1 103 i 123 1 Partition communication region byte 98 bit and byte 134 bit 7 {
1 (67) 1 (7B) 1 i
i 104 1 124 1 Byt6 12 of the partition PIB 1
1 (68) i (7C) ( 1
Figure 14, Checkpoint Header and Save Record Format (Part 1 of 2)
68 EOS/VSE Logical Transients
105
(69)
106-107
<6A-6B)
108-127
(6C-7F)
,128-147
(80-93)
148-149
(94-95)
150-151
(96-97)
1152-153
.(98-99)
154-151
(9A-9F)
125
(7D)
126-127
(7E-7F)
128-147
(80-93)
148-167
(94-A7)
168-169
(A8-A9)
170-171
(AA-AB)
fl72-173
(AC-AD)
174-179
(AE-B3)
Checkpoint configuration flag:
X'01« Real (runmode of CHKPT
part.)
X'02' GETVIS flag on
XI 04' PFIX records saved
X'08' DASD file protect option
XM0« CHKPT device FBA
X«20' CHKPT device tape
X«40' ECPS:VSE-Mode
X«80' 370-Mode
Length of job label area saved from the partition save area
Temporary partition boundaries
Permanent partition boundaries
Number of PFIX information records
Number of extent information records
Number of 3800-printer information records
Volume serial number of SYSCAT
Figure 14. Checkpoint Header and Save Record Format (Part 2 of 2)
ilBCHKP2 - Ta£e Checkpoint Phase 2
This phase completes and builds the
checkpoint records and writes them on the
specified tape-
Entry: From $$BCHKPT to start writing the
checkpoint and from $$BCHKP3 to continue
the checkpoint after 3800-printer
information records have been written-
Exit; To $$BCHKP3 to build and write 3800
printer information records, to $$BRHSG1 to
write an error (or the 'successful')
message.
Method: The information needed to continue
the checkpoint is passed to $$BCHKP2 in the
common workarea located in the second part
of the logical transient area and pointed
to by a register loaded in $$BCHKPr-
To complete the header and save record, the
number of checkpoint records following che
header is calculated and stored, and (if
tequired) the volume serial number of the
device assigned to SYSCAT is retrieved and
stored.
The phase then
writes the header and save record on
the checkpoint tape (for format see
Figure 14).
calls $$BCHKP3 if 3800-printer
information records are to be written
(for format see Figure 17) .
builds and writes extent i
records if DASD file prote
supported- For disk device
programmer units, extent i
saved from the JIB and the
extent area^ and for SYSCA
information is saved from
extent area. (For the form
information records, see F
nf ormation
ction is
a assigned to
nformation is
system
T extent
the system
at of extent
igure 15) -
builds and writes PFIX information
records. The PFIX information is
retrieved by using the PFIXCHPT macro
which returns the PFIX information in ;
supplied workarea (for format see
Figure 16).
writes program dump records-
writes the trailer record (same as the
header record) -
Checkpoint/Restart Routines 69
Bytes
0-2
(0-2)
3
(3)
4-5
(4-5)
6-7
(6-7)
8
(8)
9
(9)
10-11
(A-B)
12-13
(C-D)
10-13
(A-D)
14-17
(E-11)
Contents
'XTN' (extent record-id)
Flag Byte:
X'00« extents from JIB table
X»01' extents from system
extent area
X'02« SYSCAT extents saved
Number of extent entries
in this record (max. 20);
each entry is 12 bytes long
and is formatted as follows:
cuu of logical unit
PUB device type code
Extent type-id:
a) if extent is from JIB table:
X«20« 2311, 2314 or 2319
XMO* 3330, 3340 or 3350
b) if extent is from system
extent area:
X*40« Short form used
X»00' Long form used
Lover and upper extent for
2311, 2314 or 2319;
Lower extent for 3330,
3340 or 3350
Not used for 2311, 2314 or 2319;
Upper extent for 3330,
3340 or 3350
Upper extent from system
extent area
Not used if extent is from
JIB table;
Lower extent from system
extent area
Figure 15. Format of Extent
Information Record
Records are written without repositioning
the user-specified tape. The following
record lengths (in bytes) are used:
Header record
Save record
3800-printer, extent,
and PFIX information
records
Program dump records
20
160
each 256
16K
Last program dump record
(multiple of 2K) 2 to 16K
Trailer record
20
If end-of-reel is encountered while
checkpoint records are being written, the
tape is backspaced to where it was
initially positioned, and the header record
is scratched. Alternate tapes assigned for
the checkpoint file are not checked.
TJhen $$BRMSG1 is called to write an error
message and to return control to the user
program. Header and trailer records are
written in user mode, while the save
record, extent records, and program storage
dump records are written in data conversion
mode. The density remains the same for all
records.
When a checkpoint has successfully been
taken, $$BRMSG1 is called to write the
•successful' message and to return to the
user program..
I Bytes
Contents
J ,
•PFIX' (PFIX record-idj
Information as retrieved
via PFIXCHPT macro ■
I 0-3
I (0-3)
I
I 4-256
I (4-100)
Figure 16. Format of PFIX Information
Record
Bytes
0-3
(0-3)
4-5
(4-5)
6-7
(6-7)
8-76
(8-4A)
Contents
•PRT • (3800-printer record-id)
Logical unit number
Reserved
Information as retrieved
via QSETPRT macro
Figure 17. Format of 3800-Printer
Information Record
M&£SK£3 - Tape Ctiieck£oint Phase 3
This phase builds 3800-printer information
records and writes them on the specified
tape checkpoint file.
70 DOS/VSE Logical Transients
Entry: From $$BCHKP2-.
Exit: To $$BCHKP2 or, in case of errors, to
$$BRHSG1.
Method: The information required to build
and write the 3800-printer inforiaation
records is passed to $$BCHKP3 in the common
workarea of the checkpoint phases pointed
to by a register loaded in $$BGHKPT-
This phase detects the logical units to
which a 3800 printer is assigned, sets up
t:he workareas and I/O areas, and retrieves
^he 3800-printer information using the
QSETPRT macro-
Xf no error is returned by the macro, the
3800-printer information record is written
on the checkpoint tape, one for each
printer assigned- (For the format of the
3800-printer information record see Figure
17)- If the whole partition LUB table is
scanned, phase $$BCHKP2 is fetched to
coatinue the checkpoint.
$1B.CHKPD - Disk Check£oint Phase 1
This phase determines if the checkpoint can
be taken and starts building the checkpoint
header record,
Entr^: From the CHKPT macro expansion if a
disk device is used as the checkpoint unit.
Exits: To $$BCHKPE if the checkpoint is to
continue; to $$BRMSG1 to write a diagnostic
message on SYSLOG and to re»-urn control to
the problem program if a checkpoint cannot
be taken.
Method ; The CHKPT macro provides phase
$$BCHKPD with the address (in register 0)
of the checkpoint parameter list (see
Figure 13) ..
This phase determines if
the checkpoint is issued from a
maintask
no subtasks are attached to this
maintask
no tracks/blocks are held
the DTFPH is open, mounted single, and
an output file
the checkpoint device is valid
the user-specified end address is
valid-
If the end address is omitted, the
partition logical end address will be used
(PPEND from the partition communication
region) -
If the GETVis flag in the partition
communication region is on, the
user-specified or logical end address is
ignored and the whole partition will be
saved.
The phase then calculates
the number of 2K program dump records
for 2314, 3330, 3350, and FBA devices,
or of IK program dump records for 2311
or 3340 devices-
the number of blocks needed for
information records and program dump
records for FBA devices,
the number of extent information
records (if DASD file protection is
supported and an entry in the JIB table
or system extent area exists) ,
the number of 3800-printer information
records (if the 3800 printer is
supported and assigned) -
The calculated values are stored in the
checkpoint header record area (see Figure
14) in the common workarea and I/O area cf
the disk checkpoint phases-
$$BCHKPD also saves the registers from the
problem program save area, the temporary
partition boundaries, and the volume serial
number of SYSGAT, which is necessary if
extent information is to be saved (provided
VSAM is supported^ SYSCAT is assigned, and
extents are found in the system extent
area) -
;bCHKPE - Disk Checkpoint Phase 2
This phase continues checking the required
checkpoint conditions and building the
checkpoint header rtjcord, and writes the
checkpoint header record on the checkpoint
file.
IHiEi: ^^om $$BCHKPD.
Exit: To $$BCHKPF if the checkpoint is to
continue; to $$BCHKPG if the checkpoint is
to continue and 3800-printer information is
to be saved; to $$BRMSG1 if a checkpoint
cannot be taken. The message writer is
called to write a diagnostic message on
SYSLOG, and to. return control to the
problem program-
Checkpoint/Bestart Routines 71
Method: Ttie iaforniation needed to continue
the checkpoint is passed to $$BCHKPE in the
common workacea located in the second part
of the logical transient area and pointed
to by a register loaded in $$BCaKPD«
This phase
calculates the number of PFIX
information records needed (if PFIXing
is supported and has taken place) «
determines if enough space has been
allocated for this checkpoint. If
checkpoints are already in the
specified file and the remaining spiace
does not suffice to contain the current
checkpoint, the file is used from the
beginning and the existing
checkpoint (s) is (are) owerwritten by
the current record-
checks that no I/O request is pending
on a teleprocessing device belonging to
the checkpoint partition-
completes the checkpoint header record
by moving the required partition
communication region information,
setting the checkpoint-id, and saving
the permanent partition allocations.
initializes the channel programs for
the specified checkpoint device^
writes the header record on the
checkpoint file.
$$BCHKPF - Disk Check2oint Phase 3
This phase builds and writes checkpoint
records on the checkpoint disk file..
Entri: Prom $$BCHKPE or from $JfBCHKPG if
3800-printer information records are
written-
Exit ; To $$BRMS61, the message writer,
which writes a message on SYSLOG indicating
that a successful checkpoint was taken.
Method; The information needed to build and
write the checkpoint records is passed to
$$BCHKPF in the common workarea of the
checkpoint phases located in the second
part of the logical transient area and
pointed to by a register loaded in
$$BCHKPE.
The phase
builds and writes extent information
records if DASD file protection is
supported. For disk devices assigned to
programmer units, extent information i^
saved from the JIB table, and for disk
devices assigned to SYSCAT, extent
information is saved from the system
extent area. (For the format Of extent
information records, see Figure 15.)
builds and writes PFIX information
records. The PFIX information is
retrieved by using the PFIXCHPT macro
which returns the PFIX information in a
supplied workarea (for format, see
Figure ^6) .
writes program dump records on the
checkpoint file..
The records are written with the following
lengths (in bytes) :
Header record 180
3800-printer, extent, and
PFIX information records each 256
Program dump records on
2314^ 2319, 3330, 3350,
and FBA devices 2K
Program dump records on
23111 and 3340 devices IK
The block numoer needed to write an
information or program dump record on an
FBA device is calculated by $$BCHKPD and
depends on the block size of the device.
5$BCHKPG - Disk Check£oint Phase 4
This phase biilds 3800-printer information
records and writes them on the disk
checkpoint file.
Ent£i: From $$BCHKPE.
Exit: To $$BCHKPF to continue the
checkpoint, or to $$BfiHSG1 to write an
error message on SYSLOG.
J!§^ll2S: The information necessary to build
and write the 3800-printer information
records is passed to $$BCHKPG in the common
workarea of the checkpoint phases pointed
to by a register loaded in $$BCHKP£.
This phase detects the logical units to
which a. 3800 printer is assigned, sets up
the workareas and I/O areas, and retrieves
the 3800-printer information using the
QSETPfiT macro.
If no error xs returned from the macro, the
3800-printer information record is written
on the checkpoint file, one for each
72 DOS/VSE Logical Transients
printer assigned. (For the format of the
3800-printer information record, see Figure
17), If the whole partition LUB table is
scanned, phase $$BCHKPF is fetched to
continue the checkpoint-
$$BCHK3G - Tape and Disk Checkpoint, Last
Phase
Objecti ve : To perform an erase-gap command
for output files that are not closed from
the tape repositioning table for logical
files-
Entrx: From $$BRMSG1 if a successful
checkpoint was taken..
Exit: To the user via an SVC 11; to
*$BRMSG1 to write a warning message if
errors in the user-supplied reposition
table are detected-
Method: The addresses of the checkpoint
parameter list and the partition save area
are supplied in registers by $$BRMSGi.
If a tape reposition table for logical
files is specified, that table is scanned,
and for each specified output tape an erase
gap command is performed- Any entry which
is not of the expected type (DTFMT) or not
for a tape device is ignored and message
0C18I ERRORS DETECTED IN REPOSITIONING
TABLE is issued.. When the end of the table
is reached and no error was found, control
is given to the user issuing an SVC 11, If
errors are detected, $$BRMSG1 is called to
write a message.
iiBRMSGl - Checkpoint Message Writer
This phase builds and writes checkpoint
messages and returns control to the user,
or fetches the erase-gap routine $$BCHK3G-
Entr^: From phase $$BCHKPT, $$BeHKP2^
$$6CHKP3, $$BCHKPD, $^BCHKPE, $$BCHKPF,
$$BCHKPG or $$BCHK3G, with registers 2 to 6
loaded with information necessary to get
and complete the message text-
Exit: Depends on the kind of message
written-
• For an internal error message a dump is
issued and the job is canceled..
• For an error message, register zero is
cleared and given to the user via the
partition save area. The user is given
control via SVC ill..
• For the ■successful* message, the
checkpoint cumber is updated^ in the
partition communication region and
stored in register zero within the
partition save area (in unpacked
decimal format), if a logical
reposition table is specified for the
current checkpoint, control is given to
$$BCHK3G; otherwise control is given to
the user via SVC 11-
Method: The specified message number is
used to gat the address of the
corresponding message text, and to
calculate the values necessary to convert
and complete the message text.. The message
is written on SYSLOG using physical lOCS-
$$BRI1SG1 may issue the following messages:
OCOOI CHKPT MO- xxxx kAS TAKEN ON
SYSxxx=cuu
0C02I CHKPT LOGICAL UNIT NOT TAPE
SYSXXX=CUU CHECKPOINT IbNORED
0C03I I/O REQUEST PENDING ON TP DEVICE
CHECKPOINT IGNORED
0C04I INVALID END ADDRESS SPECIFIED
CHECKPOINT IGNORED
0C05I CHKPT DTFPH IS NOT OPEN
FILE=filename CHECKPOINT IGNORED
0C06I CHKPT DTFPH MOUNTED=ALL
FILE=filename CHECKPOINT IGNORED
0C07i CHKPT DTFPH NOT OUTPUT
FILE=filename CHECKPOINT IGNORED
0C08I CHKPT UNIT NOT A VALID DISK
SYSXXX=CUU ChECKCOINT IGNORED
0C09I INSUFF- SPACE ALLOCATION
FILE=filename CtiECKJPOINT IGNORED
0C10I SUBTASK ISSUED CHKPT
CHECKPOINT IGNORED
0C11I SUBTASKS ATTACHED
CHECKPOINT IGNORED
0C1 21 TRACKS HELD
CHECKPOINT IGNORED
0C13I INSUFF.. SPACE FOR CHKPT ON
SYSXXX=CUU CHECKPOINT IGNORED
0C1UI CHKPT DEVICE NOT ASSIGNED SYSxxx
CHECKPOINT IGNORED
0C15I CHKPT LOGICAL UNIT INVALID SYSxxX
CHECKPOINT IGNORED
0C16I QSETPRT FAILED RC=X' oonnXxrr '
SYSXXX=CUU CHECKPOINT IGNORED
0C17I INTERNAL CHKPT ERROR IN $$BCHKxX
macroname FAILED RC=X'nn«
CHECKPOINT IGNORED
0C18I ERRORS DETECTED IN REPOSITIONING
TABLE
0C19I CHKPT DEVICE NOT READY SYSxxx=CUU
CHECKPOINT IGNORED
$$BjRSTRT - Res tore Checkpointed Partition
This phase restores PFIX information saved
at checkpoint time and the problem program
area..
Checkpoint/Restart Routines 73
Entrx: From $JOBCTLB,
Exit; To $$BRSTR2 if a tape repositioning
and/or a DASD verification table is
specified in the checkpoint parameter list;
to the problem program via SVC 11; to
$$BRMSG2 if an error is detected.,
Method: The values necessary to continue
with restart are supplied in the first 200
bytes of the cleared partition by $JOBCTLB-
$$BRSrRT
saves the information passed from
$JOBCTLB,
corrects the partition logical end
address if the checkpoint partition was
running in real mode and GETVIS is
indicated.
reads and (if applicable) restores PFIX
information using the PFIXREST macro.
reads the program dump records into the
partition,
positions the checkpoint tape after the
trailer label (if tape checkpoint),
updates the checkpoint DTFPH (if disk
checkpoint) .
The checkpoint parameter list is then
retrieved from the restored problem program
to check if a tape reposition or DASD
verfication table is specified- If
specified, phase $$BRSTR2 is called. If
not, the restart address is retrieved from
the checkpoint parameter list, stored into
the PSH, and control is given to the
problem program issuing an SVC 11.
$$BfiSTR2 - Tape and DASD Verification
Thij phase repositions tapes as specified
in the user-supplied tape reposition table
and/or verifies DASD devices as specified
in the user-supplied DASD verification
table, both pointed to by an address in the
checkpoint parameter list..
Entry; From $$BRSTRT or $$BRMSG2 if an
information message was written and the
operator response was retry or ignore.
Exit: To $$BRMSG2 to write an error or
information message, or to the problem
program via SVC 11.
Method: Pointers to the information needed
to handle the tape reposition and DASD
verfication table are supplied in registers
loaded by $$BRSTRT,
Tape repositioning:
• Logical repositioning, if specified:
The entries in the logical reposition
table are checked and a message is
issued if the DTF type is incorrect
(not DTFMT) , the device is not
assigned, and the assigned device is
not a tape. If the DTF is not
specified for output or is not open,
the entry is ignored.
The number of records specified by the
DTF are read. If a V0L1 label is found,
the volume serial number and the volume
sequence number are printed on SYSLOG
so that the operator can determine if
the correct reel is mounted, or mount a
new tape, or cancel the job, or
continue. Standard Labels and tape
marks are bypassed and do not decrement
the record count.
If a backward direction is indicated in
the DTF, it must be a non-^standard or
unlabeled tape; if it is not, the entry
is ignored. If the file was open at
the time the checkpoint was taken, the
ustr mur.t position the tape to a point
past th*! tapemark following the last
record, but before any non-standard
trailer labels. This phase then moves
the tape backwards over the tapemark
(and any noise record) , and positions
the tape the prescribed number of
records from the end of the file.
Physical reposition
After the logical r
processed, **BRSTR2
reposition entries-
defined logical uni
it is assigned to a
a message is issued
is spaced forward b
number of files (ta
the specified numbe
ing:
eposition table is
checks for physical
If any, the
t is checked whether
tape unit. If not,
; otherwise the tape
y the specified
pemarks) and tnen by
r of records.
• Logical and physical repositioning:
If any checkpoint records are detected,
they are skipped without incrementing
the record count. If an unexpected
tapemark is read an error message is
issued,
DASD verification:
After tape reposition is processed or is
omitted, the DASD verification table is
handled. The logical unit specified in the
table is checked whether it is assigned to
a DASD device. If it is^ the V0L1 label is
read and the volume serial number is
written on SYSLOG for verification.. The
operator can cancel the job, mount a new
pack and retry, or ignore the message and
continue. After the verification table is
processed, the restart address is stored in
74 DOS/VSE Logical Transients
the PSH and cootroi is given to the problem
progcam issuing au SVC !11«
I '
$$BRMSG2 - R estart Message Writer
This phase builds and writes messages on
SlfSLOG* For information messages the
operator response is analyzed to continue
the orogram.
Entry: From phase $$BRSTRT and $$BRSTR2
with a register containing the message
number and pointers to information
necessary to complete the message text.
Exit: For error messages the program is
canceled. For internal error messages a
dump is issued and the program is canceled.
For information messages the operator
response is checked for validity and the
program is canceled, or control is given
back to $$BRSTR2,
Method: The given message number is used to
find the corresponding message text and to
calculate the values necessary to convert
and complete the message text. The message
is written on SYSLOG using physical IOCS,
If a response is expected the answer is
compared with a table entry for that
message^ If the response is not valid, the
operator is notified to repeat his answer.
If it is valid, the program continues.
$$BRHSG2 may issue the following messages:
0R09I INTERNAL RSTRT ERROR IN $$BRSTRx
SETLIMIT FAILED RC=X«XX» SIZE=yyyyK
0?^13I INTERNAL RSTRT ERROR IN $$BRSTRx
EXPECTED RECORD NOT FOUND
OEir>I INTERNAL RSTRT ERROR IN $$BfiSTRx
macroname FAILED RC=X*nn'
OR20A RIC TAPE REPO: SER xxxxxx SEQ xxxx
SYSxxx=cuu
0821A IC TAPE REPO: TAPE MARK IN DATA
SYSXXX=CUU
0R22A IC TAPE REPO: DEVICE NOT A TAPE
SYSxxx=cuu
0fi23A IC Tape REPO: DTFTYPE X«nn« INVALID
filename
0E24A IC TAPE/DASD: UNIT NOT ASSIGNED
SYSXXX
0E25A RIC DASD VERI: SER XXXXXX ASSIGNED
SYSxxx=cuu
0E26A RIC DASD VERI: VOL. SER. NO- INVALID
SYSxxx=cuu
0E27A IC DASD VERI: DEVICE NOT A DISK
SYSxxx=cuu
0E28A RIC DASD VERI: DEVICE NOT READY
SYSxxx=cuu
0R29A IC DASD VERI: LOG. UNIT INVALID
0I39A
SYSxxx
INVALID RESPONSE
Checkpoint/Restart Routines 75
EXPIANATION OF FLOWCHART SYMBOLS
■A1-
Process
*B2
C1-
Label 1
BW
Subroutine
■D1-
Preparation
-El
Predefined
Process
■F1-
fInput/Outputi
r — ^
I Terminal ]
©
|BD
D4
Filinp
DESCRIPTION
A group of program instructions that per-
form a processing function of the program.
The label, if any, is shown above the block.
*B2
If any additional explanation is required,
its location on the chart is identified by an
asterisk and the block I D.
Description of a subroutine. The starting
label of the routine appears above the stripe.
If the subroutine is documented in detail on
another flowchart, the ID of this flowchart
is also shown.
An instruction, or group of instructions,
that changes portions of a routine or initia-
lizes a routine for given conditions.
A group of operations not detailed in the
flowcharts in this manual, such as user's
routines.
Any function of an input/output device or
program, usually branching to an I/O routine
to perform the function stated in the block.
Points where the program branches to alter-
nate processing, based upon variable condi-
tions such as program switch settings and
test results.
The beginning, end or point of interruption
in a program.
On-page connector. An entry from or an exit
to another function on the same flowchart.
The number in the connector identifies the
corresponding entry or exit on the chart.
Off-page connector, an entry from, or an
exit to, a given point on another flowchart.
The characters in the connector identify the
chart and block. The corresponding label, if
any, is placed outside the connector. For mul-
tiple entries and exits, an asterisk appears in
the connector and the characters are listed
nearby.
EXAMPLE
BB-D4, INITLI
BC-B2, 0PENX4
BL-JL, ENDPRN
r — N
( End of Job J
Print
76 DOS/VSE Logical Transients
CHARTS
Chart AA, $$BATTNA - AttentioQ Root Phase
(Refer to Chart 02)
• «
* $SBATTIIA •
* *
•••*B1******«**
• *•*
* •
» B2 •
• *
* •
» Bl *
* •
• ESTkBLISH <
k .* EXTEBNAL
*
.* CBT *. NO
*»DD8ESS»BItITT <
> *. IMTEBBUPT
*....
•. ACTIVE .♦
• • •
• >
> *.SHITCH ON.
«
,
•- ••
* 1
I *. .«
*. .*
••***••**••••*••«
*. .*
X
*, ,*
X
* NO
*«*«»
« XES
«**••
•••*
•AB *
•AB *
• AB *
* B3*
♦ Bl*
* E3 *.X.
• •
• «
• • .
*
*
•••» X
EXTINT
i
THl'ABI .*.
X
•••**C1*********
► C2 *.
••***C3«**««**«««
• HOVE CORNAND •
• miTKLIZB
► •• SVSLOG
«
10
* F80B CBT SAVE •
• AND SAVE <
> *. EQUAL
> *. CONSOLE .
• • .. .
•ABEA TO BUFPE8 •
* RESISTBBS
•
,
• IN SSBATTHA •
► •• .»
• •
„••...*..„*.«.
* YES
I
• *••
• •
• 85 •
•**••*««•*•**«•*•
« •
* OTCHAT •
« «
««««««•*«•««♦«•
BTCBAT X
«•«♦*•««*««««*•*«
**C5***>>**
• BESBI BED •
CANCEL AND
FETCH LI A
FLAGS IN
• ATTN PIB •
GETCBD
.».
02 ».
* *
NO ••
COMMANU
. ..*•
AVAILABLE
«
^
•. .*
X
• • .•
♦ ♦•♦•
• »ES
•AB •
,
♦ B1»
« *
X
♦
****
COMIBOL
• •
.* IS BUFFEB *,
(ES
EHPTl .•
*. .*
*
*. .*
♦. ••
X
• NO
»*•••
• AB *
,
* Bl*
* *
*
,
CONTROL
X
****B3**********
EXCPBG AC*
-*-*-«-*-*-«—*-*
DISPLAX THE •
COIHIANB *
*•**•*****•«****•
••••»U!>******^*^«
« 4
• SVC 22 •
• DISABLE *
• INTEB8UPIS *
« 4
«•«•*•*••••«••••«
•♦B5»*»***»
•UEACTIVATE ♦
> ATTEH'IION
TASK ('da* IN
• PIB BITE 0)
• SVC 11 •
• EXIT faoa •
• Ll'A •
Charts 77
Chart AB- $$BATTNA - Control Routine
<Refer to Chart 02)
* «
• COHTBOl «
t »
****^ -BEFBRRNCISS
• * -TO »BB1:
rgoL X
«*«•***««♦*«*
* RBSET THE *
*OPEB*ND NUHBE5 *
• IM LOC. OPMnilB »
• TO ZERO •
* *
*♦«*
X
»tt**i)1* *********
•8DSTMT »C«
*.*-*-«-«-«->*-*-*
• CLEAB I/O •
•BUFFER AND EXCF*
♦ FOB INPUT *
*^#^**^*m* *******
EXTINT X
m****^i**********
* PtIT THE BG *
» STORAGE KEX *
• HEX ■ 10* INTO •
♦ A REGISTER •
♦ *C't •
******** **w******
* ESTABLISH
* LINKAGE TO
* nSBB BOOTINB
♦•D3**»»»**
♦RESET ATTN •
»PIB SN AFTEB »
TESTING IT ♦
•FOH FETCH LCA*
* *
***********
THE REGISTER
P0INT4 IS USED
IN THE STEXCD
SOBROUTINE
FETCH
*
MO
TA S« ON
*
*• •• .
• *
**. ••'
X
» YES
*****
*A» *
* B5*
X
* *
***m*
*AA *
DTCHAT
**f\*******
t**********
********««***«*
•***H1 **«•**•*•
* BRANCH TO
» CHKSTT IK
• $*BATTNH
***************
78 DOS/VSE Logical Transients
Chart AC- $$BATTNA - Error Message Routines
(Refer to Chart 02)
• «
» FHRRTN •
iillRRTN
*••••{} 1 ••»*«*»•■
• PUT MESSAGE
INTO THE
OUTPUT
BUFFER
•F2
..X*
••••
«
• POT LEMGTH OF
• HBSSAGE INTO
• sysLOG ecu
• POT OPERkHD •
• NUMBER INTO •
• MESSAGE •
• •
«*««««*•*««*•*•■
**««A 2* ********
• «
» E»CPRC. •
****
**F *
• Fl *.X
«*»*
KXCPMG X
*««**B2* ******
***««*•******«
• TRAFFIC
BIT POSriiD
*. IN CCB .
****02******>**
*«**•*•*••**•*•
****A ]•********
t <
• nSGOUT «
****BJ*********
DETEROINB
MESSAGE
LENGTH
•**••**»*•**•*•
SET UP
FOR WRITE
OPER.VriON
*•*•**•••*•***«
****£2*********
» RETURN TO •
• ADDRESS IN •
• LINK REGISTER •
***•«*««•*****«*
****E3*********
• RETURN TO «
• CALLER *
*•****•***««*••
••••Ad*********
« •
* RDSTHT •
* *
••»••*•****•*•*
• •••
* «
* Bii *...
* * .
• •** .
STMT Z
***»*B<I**********
*•*•*•«*•••*»«•«*
• SKT UP REG. \ *
• IIITH THE •
• SISLOa CCR •
• ADDRESS •
••**•••••••••••••
-•-•-*-•-»-•-
**tt5*******
• *
• SET UP TO •
*MOVE PROPER BS6*
• TO BUFFUR •
• •
«•••*•*••»•
.* UNIT ••
. eXZEPTION .
•.POSTED II.*
•. CCB .*
X
*F2
*****
THE MESSAGE IS MOVEl/
*AB *
TO t'HE OUTPUT BUFF £8
* B1*
BIT EXECUTING THE
* •
MO»E INSTRUCTION
«
THAT FOLLOHS THE
CONTROL
BAL to THE ERHRTN.
* TEST FOR ALL *
* BLANKS TO SET *
•CONDITION CODE •
* •
•*•*•*•*••*•*•**•
» RETURN TO •
• ADDRESS IN *
* LINK KEG •
•*«•*•••••••••*
Charts 79
Chact AD, $$BATTNA - General Scan Routines
(Refec to Chart 02)
••**( I*********
• SC&NIt2 •
• HMD SCailRJ •
• '•
•••••B1**«« «•«•**
• *
* RESTOBB •
* POIITEB AND •
*BBSIDUaL CODMT *
• •
* PRBVioas *. M
SCAN SIOP = .».
>. COHH* .*
• •••
* •
» D1 •.X
«*««*01**** «*•***
••*•••«•««•*•>•••
BJ •
• THIS H •
NO
*
COMTmOkTIOM
*. CUAB .*
*. ••
»....
•• .*
X
• YES
• •«♦
• *
• B3 •
• •
• **»
X
• *•
PI *.
.» ».
•*»*f2*******<*
* PBECEDIM6 *
NO
• BBANCH TO
•
COHHA
*.......
X* MTSEBB IN
*• .*
* «»BATTNA
**•*••*••***«•*
*
BEAU *
NEXT «
IHPUf •
*
• •*«
NDSCAR X
•*•••••••*••*•••
* COHPUTE
« AND SAVE
•8BSI0UAL COUNT
•
««*««B3* ********
• OETEBHINB
• AND SAVE
• POINTER
«
•«««*p3**»*****i
•
« UPDATE
• 0P8KAMD
• NOBBEB
****»Q3*********
* COBPABE LAST
» OELINITER
* mTH COHHA
*
• BETUBN •
> TO CALLER »
> *
• *
* D1 *
« *
80 DOS/VSE Logical Transients
Chart AE- $$BATTNB - MSG Command Processor
(Refer to Chart 03)
> •
• ssB&rrHc •
* «
•SCAHBZ ID*
♦ GIST FIBSX •
* OPEMHD •
« •
.* SCM
•
. sioppeo »T
*. A BLANK .*
•• ••
*. .*
* IliS
« «
• Ci *
flSG2 X
««»**C J********* «
« UET P£K IN »
• BBG eOXIII4 fU •
« L£X SOdBIM *
• BOUtT TO •
• COBttiSCi.- PIS «
• fSIAtlLISil *
•LXHKAGB to OSati*
* oc Booriifi »
* SBANCa 10 <
* comsoi. IN •
* tSBATTHA «
• «
» «
• «
• POXMT PAST •
*PIB OF aiGDESI •
• PABTXTIOII *
• •
» SOIBX ♦
» TO MBIT ♦
• LUtIBB PXB *
• *
» «
• C3 •
« •
«***K1* ••*•••••
^ BBAMCtl TO *
• livsiiBfi xa *
• itBkTIUh *
• K1 «
Charts 81
Chart AF.. $$BATTNB - Set Operator Comnuoications and Exit Linkage
(Refer to Chart 03)
• •
• STBXCO *
STEZCD
•••••B I**********
• ACCESS THE •
• PIB TABLE »T •
• THE CORBBCT •
•PROBLEM PBOGBAH*
• PIB •
••»**C1 ••••••••••
* LOAD THE SAVE •
• AREA ADDBESS •
•OF THE COBBECT •
•PBOBLEd PBOGBAH*
•INTO A BBGISTBR^
•••••••••«•••••••
• ••••{))••••••••••
•DIVIDE THE PBO-»
• GBAH KEY BI 2 *
•AND ADD RESULT •
•TO START OF OC •
•EXIT TBI •D2^
••••••••*••••••••
••••*E 1*^^*^^*^**
• PUT THE •
• DOUBLEHOBD *
• OPTION TABLE •
• ENTBT INTO •
• PAIR OF REGS •
••••*•*••••••••••
F1 ••
.* USER •.
.* ADOR *
.HAS POSITIVE
•. SIGN .*
•• *P2 .»
•• ••
• NO
•••••Q1* **•«•»••
* CLEAR THE
• I/O BUFFER
* FDR MESSAGE
• USE
•
•••••••*••*•••••
* LOAD I/O •
* BUFFEB HITH •
* MESSAGE FOR •
* NO ROUTINE •
* LINKAGE ICttOI *
*••••*•*•••••••••
» SET UP THE
• CCH COUNT
• FIELD HITH
* LENGTH OF THE
* MESSAGE
•*•***•**•••*••
>U2
THE OC EXIT TABLE KEFEBRED
TO IN THIS PHASE is COH-
MOMLI CALLED THE OC OPTION
TABLE. THE ADDRESS OF
THIS TABLE IS FOUND IN
THE COMMUNICATION REGION
AT DECIMAL DIPLACEMENT lOX
• ••
B3 •.
.•COMPLE-*.
NEHT OF
USEB ADDR
. FOUND .
•• •m .•
•• ••
• YES
• LOAD I/O •
• BUFFER NIIH *
• MESSAGE-PROC- •
•ESSING ROUTINE •
• ACTIVE, 1C50I •
*•••••«••••••••••
• SET UP CCN •
• COUNT FIELD •
• HITH THE •
• LENGTH OF •
• THE MESSAGE •
••••••••••••*••••
.•SYSLOG •
EQUALS A
CONSOLE
. OR CRT
••••
• •
• B5 •
• •
••••
SET EXT
k
• ••
BS *.
«
OC
PENDING
REGISTERS HILL BE
BEOBOEBBD FROM 9-B
TO 0-15.
•*Ci*»*****
•*••••«*•••
.• PARTITION *.
FBICil
*. BOUMO .*
•F^
THE POSSIBLE VALUES ARE—
1. POSITIVE ADDRESS
(BOUTINE PRESENT, NOT ACTIVE)
2. COMPLEMENT OF ADDRESS
(ROUTINE PBBSISNT, ACTIVE)
J. ZERO (BOUTINE NOT PRESENT)
•
• POINT HEG1
• TO SYSLOG
• CCB
•
••**•••••••••••*
**•••
•AC •
• B2*
• •
EXCPBU
••••p«**^******
• RETURN TO •
• ADDRESS IN *
• LINK REGISTER *
*••••••••••••••
•«**«P5****»»**»«
•••«•••••••••••••
•*««G3««« •*«•««
• RETURN to *
• ADDRESS IN •
> LINK BEG •
82 DOS/VSE Logical Transients
Chart AG. $$BATTNC - CANCEL Command Processor (Part 1 of 2)
(Refer to Chart 03)
* . *
• »»6iITIiC «
* •
t *
* CAMCiil. •
VSCAIH2 AD*
« SET KIKSI ♦
• OPBBAND «
• *
*B2
aS£ SIAKIIKG
AODUeSS OF iLB
TABU PLOS A
DISPLACEItSliT
IkBI TALUS) no
FIRST
OFEBAND
K)0(IO
•CI
A HEi 'au*
IHOICATBS Tȣ
Ait2A IS SOT
ZES ACTIVE OK aSt^QitiO.
* POT BG KH, •
» xMO' mio •
* UEG POIlli;'* »
* *
«*•«•£ 1*«««*«****
*CNLBTII AG*
♦-•-*-»-•-•-*-•-«
* SET C4IICE1. *
» C(»E I» PIH •
« *
* bBANCa TO •
» UTOiAT X» •
• SSbATTSA <
**««*«*♦««»«>»««
* •
» Fb •
«««««p 2* *********
« *
* LOAD \'ie. *
* TABLf •
* AliUHESS *
* *
*•**•**•«»•*«••«*
■J**********
* Giil tROl>tKa *
* PoOGhAa *
* SiSK •
*A j**«**««**
*
«
*«*•«*****••
JSLaTH
**«**B J**********
* POIMI *
* TO Pia OF *
* PAST, to BB *
* CANCiiLED *b/ *
» •
«***«***«♦*«*«*«*
.* PIB *.
BUTHi ♦. iES
OBTACdEO .*....
*C2 .*
** ***AI|**********
* GE-r PIK •
* IH EHiGISIEil •
* «0i.HX4 FUii •
* USE BK CNi^Xa *
* «
«•«*«****••«*•*••
*•**{) l|«******«*
• EXI'j: TO AUDli >
* Xt tHK. 'iSG *
.* PAiir. IN •
► . SIOPPBl)
*. SIAfE .*
****D14«** «*«*«*
• BtANCU 10 *
• EKRKtII *
• IN iiek'tliUli «
****A!> ********
> GEXtIK
*
*******
* poim TO •
* •a.&nsst *
* PARTIIlui PIB •
« *
««*«**«««««**««•*
.* TiilS *.
.* PABT. *.
*I0 BE CAltCEi.hU.
**«««i)5***«*4
»«*«:»«« **«««««*« *
CAIiC£L *. lES
AUIEAUl .*....
ISSUED .*
»•**
* * .
* FJ *.X.
* * .
****
X
****«Fi**********
* (10¥B CAMCEl. •
* CODE i'O *
» OlBHBCr PIfl *.
* CiSCEl, CODE *
*B«rE * HJ *
«**«***«***«**«« V
*****
♦AH *
• A^*
Irti. CANCEL COUEd
A«B SSr fOtI OfEKAIUH
lid'hRKESriOi CANCSL.
**««*^4 ****»*«« 4
«
* iiSaEl-
* if- ACTiyt
* INOlCAloil
*
*« *******««««***
*««««{lt4** *«-******
****«****««
.* EIlD
OF *.
HO
Loor
*•.. •
*- .*
.
*. .*
*. -*
1
• JES
•*»•
•*•*
* «
•
• cs*
Fa *.i
« «
*
»**«
•««*
i
****Fb***>****<
bB&MCU I'U
*
HVSEJtii
V
IK *%lilLtttth
•
-*-*-*-♦
m** ************ 4
****J J*** ******
» SiA-JCii 10 <
» . EKRSrN *
* i.i liBAi'l'MA >
***************
'**i!^***»****
BKi^aCB 10
COlll'auL li
Charts 83
Chart AH- $$BATTNC - CANCEL Command Processor (Part 2 of 2) and NEWVOL Command Processor
(Refer to Chart 03)
*****
•AG *
• E3*
♦ POST CANCEl. «
•• AMJ »
III fflOGHEiS. *
..X*. SUjiTUSK^
♦ AMD PiTCH EOJ*
•.AJTACaiiD .*
» IK PIB *
♦ - .♦
***********
*. .*
*♦•* » JES
• *****
• *2 * » .
♦ * oZ *.i.
***** *
****
.*.
suaLOOi' I
»1 *.
*****ii^** ******
.♦ • .
*
.* TASK ••
* POXSl' i.0 ntXi'
III 'jrih .*
* flB, STAHTlili;
» FSon MAIS
• . UAIC .*
*. .*
* TASK Pit!
♦ . -*
***************
.» TASK *. SO
*. COPTBl-OCK .♦...
♦ . 80DSD .*
•*D1* •***•*
* *
********
****
* *
* Ai »
* •
oa«D]{
**k^*******
* *
*
♦ BJiADf I'ASK
« *
X
****
* *
* A.i *
* *
****
.» IdlS *
SUBJCASK
ALUBAIII
.CANCELiD
*****f^**********
• S£r SOai-ASK *
• CANCil. CUUL m »
»flS. POST CMCL ».
• IS PHOG ♦ fETCti*
*aoJ aiiADY lASK »
*****************
****i}j*********
» Bill' I'O 1
• ADOUcISS lla <
» l.lJIKiIfiii »
«**«A4*«* ******
• *
• Ht-lHOi. *
• *
***************
it&KVOi. 1
*****^ll*** *-**«*«*
*SCAtiH^ AD*
*-*-•—•-*-*-*-♦-*
* *
* GliX Ol-iilijiSiU •
* •
*****************
«*«**i£4*** *******
««*«*«*«*««**4
• r.li'J.lClr Ati
*
**«*«*********«
» usa Ki.1 ro *
• tiU'l AUDh Uif •
*C0.1rf£G ?0i 'i'dXS*
• fASiil'IJII *
.* tAai'iTiJii '
». i< Alii sit fOK
*. loLoat .*
►♦»*jj****»'
oSA^Ca IQ
»*bAfrHA
**J4*«*«***
* *
>TUn» kAITIKu
► SOUMl- 131 £ lit
•coakto Off »
******■-:«***
*****iJb **********
• UiJI Dli »:1B •
• kM'O *
* BG KeX *
* *
*****************
»*il5*******
i'Ubi ili«l?FiC»
tilr ojr CLo i<dt-
• fii^ JOdCual'tiOi. *
m t'j.lll'iiiON IS
*JAilJ.i«» l'U«*
***********
«*J^**«»«**
* «
*
***********
♦***KS *********
» cilAMl.:! XO *
* KiVUMl ili •
» t*i.'Al'iaA »
84 DOS/VSE Logical Transients
Chart AJ. SSBATTNC - PAUSE, LOG, NOLOG, and IGNOEE Command Processor
(Refer to Chart 03)
•••*itt *********
* *
» P4USE •
* *
•••*A5**«******
* «
• LOG »
***************
PAUSE
**«
*SC«NR2
-*-*-•-*-*-*
G8r *
OPERAND *
****************
.* LAST *.
» CHARACTER *
IS AN EQUAL
*. SIGN .*
****C2******»**
• BRANCH TO *
• NVSERR »
• IN $$BATTHA <
•*»*»******«»»*
*•**
* *
* C» *
* *
**•*
.* LAST *.
NO .* CHARACTER *.
...*. IS A
*. BLANK .*
**BS*******
♦SET UP FOB •
• EXECUTE *
* INSI8 TO TURN •
• ON JCILSH •
* FOB LOG •
*•*•
* ♦
* Fb •
•«***U1 *««»*••••»
• *
• GET ADDB OF *
• PIB TABLE *
• GET BG KB» »
• *
****D5*********
• «
• NOLOG •
• •
**es*******
•set up fob *
• EXECUTE •
« INSTR TO lURM
• OFF JCTL SH *
• FOR LOG »
• «**
**f 3*«»*(**
*TURH ON Bit*
*FOR PAUSE IN
* JOB CONl'SOL
* SNITCH At
» COBREG+56 •
**F(|*******
*TURN ON BIT*
*FOB PAUSB-AT-*
* EOJ IN JOB *
CONTROL SNITCH*
* CO«RBGt59 *
***********
««*«*f^**« **«•«**
« USE EXECUTE *
* INSTB TO TURN *
* OFF/ON SNIICH •
• IN ALL PART *
• COHH REGIONS •
««****«*****«****
* C2 '
• a
****
**f**Q|**********
♦GETPIR AG*
*-*-*-*-•-*-*-*-*
* GET PROBLEM «
» PROGRAH KEJ *
* *
*****************
****Q3*********
• BRANCH TO •
• CONTROL *
• IN S$BAItNA *
***************
****S5*«*******
» BRANCH TO *
• CONTROL *
• IN StBATTNA *
********««**««*
*****H1 ***«*•**«*
* USE KEl TO *
* GET AUOBBSS *
* OF COHH. *
*REGION FOR THIS*
* PARTITION •
«*********$«*****
****Hl»* ********
* •
* IGNORE *
> *
***************
PAUSE2 X
pmtittK 1******
*SCANR3
*****************
• IGNORE gRROB *
* CONDITION IN •
* CONTROL STHNt •
• *
*••*•***********•
****Kl|*********
• BRANCH TO <
» CONTROL IN «
• StBATTNA *
**««*«****«****
Charts 85
Chart AK., $$BATTND - MAP Command Processor (/370-Mode)
(Refer to Chart 03)
««*«*i) \****r*****
:»♦«•*««*««♦*****»
•aSSOOT AC»
•-♦-•-•-•-•-•-♦-«
• UOl'PUT ♦
•HBADlSR LI8£ «EJ*
* •
SET UP •
SDfUIVISOlJ «
DATA *
♦ b2 *
**«««*«4> ««*«««««*
»««««»«««
**«•*«*****•»•*<*
» ALl. ♦.
f AJiTIi'lOrJlj .
•.PBOCiSShU*
•aSGOOT AC»
» ODTFOX •
• iBifiOOS ♦
• *
♦ WIHI «
• lO H£iT •
» i-A*rlTlUN ♦
* «
• *
• sja." UP •
• j'Aitrii'ioir »
• SiZi i, LiailS •
• *
m* ********* ******
*****ii-i*********
*
• GBT
• PkRTITIOl
• FIIOIITI
•************»**i
****
* *
* e2 »
*-*-*~*-*~*-*-*-*
* ourtux Lasr •
* •
» SBI OP •
* ARB OUTPOT •
• S«l LIIB •
• •
*****i^^* ********
*
* SET OP
* AID OUTPUT
* VIS Line
*
****************
• SET OP
• AMD OOTPDT
• SP LIES
«
****j^*********
• BIABCR TO •
• COITBOl IN •
• SBBITIEI •
86 DOS/VSE Logical Transients
Chart AL,. $$BATTNI - MAP Command Processor (ECPS :VSE-Mode)
(Refer to Chart 03)
» •
» «
'•••Bl******'
^«***«««
*«*«4t****«*4'^
*«* «*C 1**** *«**^*
*nS60U'f AC»
•—♦-•—♦-•—»-*-*-•
• ourpuT •
• 1.IKE ♦EJ •
ssT at-
iDSKXlfXiSfc
• •
• SiSl' UP ♦
• SOPiaVISOK •
• Ilkth *
• *
» ALL
PASTIX'iOa
».PSOCESSa
(••••Li**********
•BSbOUt AC*
•-•-«-•-•-•-•-*-«
• OOtPUI *
• I'UKVXOUS •
• LIKE *£J *
********•«•*«**•«
*****F !*****«•*«*
* *
* POINT *
* TO H2XT *
* PAlUrilXUk *
* *
«******•*****••**
*««*«f^** ***•*««*
*••*••*****«•*«•*
***»«^ !•«•««•«•••
• «
• SET OP *
• PA film OH •
• siw; A LiaxTs •
• *
*«*****«****•***•
► ****(, ^*****»»*
► AKD OUTtni
• HclAL STOhAtili
•*»**ai* ••*••*•»•
• SKT »
• fAKTXTXOII •
• FiJjOiJITI •
• «
*******«**•***•*«
• **rt^********
dgiiiICa I'U
CUM til JL L«
J$i-AXT«A
Charts 87
Chart AH. $$BATTNE - ALLOC/ALLOCR Commaad Processor (Part 1 o£ 2)
(Refer to Chart 04)
* •
> S»B«TTH8 *
• *
• IMIT. P«8TII* *
• 0SIN6 VPtBTAB *
»(POH ALLOC) OR •
»«¥««*««•«««»«**•
••••*C1 **********
• S«»E NO. •
♦ OF PkHTITIONS «
• POIHI TO *
* APL LIST *
* •
*«•«***«««*******
• **•
GETPID
*****0 I**********
*SCANB2 AD*
•«•*****«•(«*«**««
.IS 0BLINIVE8*. NO
*. LENGTH OK
«••«*)) 1*** ••*•*«*
••••**»*•»«*••*«•
*«**
• *
• B3 •
GBTK X
*SCAMR} AO
•-*-•-*-*-*-*-•-
•«*•««•«••««••«•
X ..*. LENGTH >7
NO .* DELlnlTEH *.
...♦. COHHA OB .«
*. A BLANK .*
****H2*********
BRANCH TO *
NVSEBR IN «
t»BATTNA •
***«***•*«•«««*
«**««G3**********
«****««*«**«**«««
-«-*-«-*-«-*
*•*♦•»*»•*••••«
* CHUCK 6 »
* CONVERT VALUE •
* TO BINARX *
«•***•«***•*****«
• •••
• «
• BO *
• •
*«**
«****U5««***«*«*«
* «
« •
I* ADO ONE •
« «
••*•*••*•••**••••
****
• •
• H2 •
****D<t **********
'«*****«*«**«***
*. .*
*. .»
X
* ItES
♦ NO
*••*•
*AN *
* B1*
* *
*
• *•
X
ti :
>«**«p 4* **««**«**
.* *
POINT TO
•
.* IS LAST
*,
NbXT ENIRIf
•
•CHARACTER A
K»*
IN PABTITION
•
*,
«
TABLE
•
*. .*
*
*. .*
«*
• «ES
.
•
POINT TO *
NEXT APL •
ENTRY *
*
***«*«•**«***««*
END *. tBS
OF APL .*....
LIST .*
* NO **•*
. * *
* H2 *
X * *
*••• *•**
• •
♦ D1 »
* *
• •**
«***
* *
* Bl »
88 DOS/VSE Logical Transients
Chart AN. $$BATTN£ - ALLOC/ALLOCR Cofflmand Processor (Part 2 of 2)
(Refer to Chart 04)
* Eo*
• •
• CHKPABT «
> «
• •
« CHKCMV «
* •
• •
• INDICATE •
• (REG 5) •
*****g3***»**«***
»•***••««••«•*••*
••••*l)5«*«****«*«
»••»•«••••••••••«
••*«#C1 **********
•••«*CJ*****«»***
*•**«***««•*««•*«
• *
• ISSUE *
• ALLOCATE •
• HACRO •
• «
*••••[! 2***«*****«
« •
* STORE •
* PAHTITIOH *
* ID IN API. •
* *
*•** I
* * •
* D3 *.X.
* * •
• •** t
LOOVI .*.
>••••«••••••*••*•
«***«B1**********
««*«i*** ••**••*•«
«***E2*********
> BETOBN •
r TO CALLBB •
*«*»*E3*«*******«
• IMCBBHBIIT •
• PARTITION •
• COUNTER *
*«***«**********4
*«**p 2* ********
• EXIT TO *
.X* CONTROL IN «
• »*BAITNA •
*•«•»***•*•*•*•
* BBANCR TO «
* NTSERR IN *
* SSEAITNA *
*«*•*«**•««•*«*
END or SCAN .*.
*««*«G 1**********
* *
* TRANSLATE •
* DETBRN CODE *
* TO EBCD •
* *
••«**G3*******«**
* •
* POINT TO •
* NEXT ENTRf IN •
* PARTITION TABLES*
* •
•«*«***•••••«•••*
>***«Ub**********
»*«««»*««•*•*««««
««***H1 •••***«*•*
* •
* HOVE *
* HETURN CODE *
* TO RESSAGE «
* *
• «*•
• *
* DJ *
« •
♦ »»*
****IIS*********
• RETURN *
• CO CALLER •
• •
*•*««*•**«***«**•
» EXIT TO •
* CONTROL IN ♦
» StBATTNA ♦
Charts 89
Chart AP- $$BATTNF - SIZE Command Processor (Part 1 of 2)
(Refer to Chart 04)
•••*A I*********
* «
* SUBATTNP *
* *
*«*******«•««***
•••••CI**********
•SCAII82 ID*
*-*-•-•-•-•-•-•-•
* GET PARTITION *
* lOENTlrlER *
* *
•*****•*•***•*•*•
• SET UP AUD *
*ISSUB setLIHIT •
• HACBO *
*«**«****«****«•*
INVSIM^ X
«****02**********
• SET PABAHBTliB •
* POINTER TO *
. ..X* 'OPEBAIIO *.
» Hissma* *
•«***«•*•*******«
*•••••«•*••»•****
.*.
mvsxiii X
PI *.
•••••P2********«*
.* *.
•INCREASE LENSTB*
■0 .* PART. ID *.
• OF LAST •
...*. CORRECT .*
..X* PARAMETER TO *
*. .*
* GET DELIMITER *
*. ••
* *
X *. .*
***• * YES
,
* *
***•
* G2 »
»A0 •
* ?1 *.X.
* *
**•« .
• *
• **•
> ••
INVSITN X
G1 *.
*«**«G2**********
• * *.
» •
BLNK .• CHECK *. OTHR
* HOVE LAST *
...*. DELiniTBR .*
• PABABBTEH *
• . .*
* INTO BESSA6E •
*. .*
* *
X *. .*
*••••*••*••***•••
*•*• * «
* - • ,
,
* D2 *
* •
•***
SBTSIZE X
X
*****H1 ***•***•»*
•****H2**********
*SCAHR2 AD*
• *
*-•-•-*.*-*-•-*-*
♦ HOVE HSSGE •
* GET SIZE *
• lPO<tD INTO •
* VALUE *
• 80FFE'? •
*••*******•**•*•*
*•««•»*•***••••••
****03*********
* RETURN TO *
* CONTROL IN *
* SSBAriHA *
****•*•****•***
• *
• SBTDP •
» *
**•••••••••••••
m**»Bn»*«m*»»t*
*••*••**•*****■
****CI|*********
*•*••••••••••••
ISSDE
SEILMIT
MACRO
• ••••••••••••••<
• •••^((••••••••^
••••••••••••••»
INVAL1 X
•CONVBBI RBIUBN •
• CODB TO *
..X* PRINTABLE •
. « CHABACIBRS *
*****••••••••••••
*••*
* *
* BS •
* •
****
* NOVS PART. ID *
* AMU COavBBIBO •
* RBtUai CODB *
* INTO asSGB •
* •
•••«••••*•*••••••
•••**D5******«***
• •
• aOVB BSSGB *
• 1P03D •
• INTO BUFFER *
• •
•••••••••••••••••
HBITB
BBSSAGE
•JJ
•*•*••••
••»****•*•**•••
• •••Glt*^*^***^*
• RETURN *
• TO CALLER «
• •
***•***«•••••••
*JJ
VIA ATTDOINT
FUNCTION
SIZE
VALUE
FOUND
*****K1**
♦CHKBYTE
•-*-*-*-*
AQ*
-•.•.*.•
♦ CHECK
•CONVERT
AND *
K-BYTES*
*
liRITE *
MESSAGE *
*JJ *
**•••***•***•**•
••••K2*********
• RETURN TO *
• CONTBOl IN •
• («BATTNA •
***»**•«*•****«
90 DOS/VSE Logical Transients
Chart AQ* SSBATTNF - SIZE Command Processor (Part 2 of 2)
(Refer to Chart 04)
* •
» A2 »
* «
» *
• CHKBITB *
»«*« 4^2* *********
■> *
>NOVg CONVEBTED •
• NUMBER OF •
» K-BITBS •
• TO SLPL *
*•«*•*****•«***«•
*«*&3*«« «*«***
«
CHKPABT •
,»
***«*«******«*
****B2*** ******
» BETURll *
« TO CALLER •
» •
ii«***U3* **•••«•«*
*«****•**•••**
• SET LOOP •
• COUHTBBS *
• TO LAST *
• CHARACTEB OF *
• OPEBAMD •
.*OPBRAND*.
.* EQUAL TO ». H
.*.CD8RENT PBTAB.*.
*. ENTRX .*
• *
• STORE LOOP •
• COIINTEB IHTO *
» SLPL •
• •
••*••***•****«**«
«•••»*•*«••••*««*
••*«E3*********
• RETURN •
• TO CALLER *
• *
*«**•
*AP •
* G2*
* *
*
INVSYN
***«*m •«**««•*«*
««***«*********«*
nOVBD .
. .*
♦ . .*
* KES
* ••••J 1* »••«•«•«*
> PACK ANU •
* CONVERT VALUE *
* TO BINARY, *
* ROUND IT *
* IF ODD «
* DOES IT
FIT INTO A
v.HALFHOBD .
*»*»«K2****«***««
Charts 91
Chart AK. $$BATTNG - BATCH and START Command Processor (Part 1 of 2)
(Refer to Chart OH)
» $»B»rTNG »
* 4
BRANCH TO *
NVSERR *
IN *tI)«TTII« *
STtBT
BATCH X
•IMITOPB »S«
«-*-«-«-*-■«-*-*-*
* GET OPEBAHD *
• ANU CHECK *
» AREA *
91* ***************
SECOND PART OF PIJB TABLE
PLUS DISPLACBHEHT
CALCULATE!) IM POINT « BY
INITOPR SUBROUTINE.
*****f^t\**********
*ASSGIILOG AS*
* ASSISB SXSLOG *
* TO FOREGROUND *
* PARTITION •
»*•**»*»*»»*«♦♦♦•
*****fH**********
• CALCULATE •
• ADDRESS OF *
• CORHUNICAIION *
• REGION FOB •
» PARTITION *EJ •
**QU*******
•TURN ON BIT*
• FOB "BATCH »
' COHHAMD JUST *
ISSUED'. BIT 7*
IN C0nBBG*59*
***********
*****^n**********
* *
* INSERT 'NO *
* NAME' IN COBB •
*BEGION JOB NANE*
* *
*****jH**********
* *
* aOVE ADDRESS *
♦ OF PABTIIION •
*SAVE AREA INTO *
• THE PIB •
*****************
•♦••»C5*********i
* SET UP TO
« DISABLE
* INTEBEUPTS
* ON SVC 22
*
****************
***** Oi*********i
• * *
• • SVC 22 *
• * SEIZE THE •
• * SISTEH •
• * *
****************
'TURN ON tiXT*
U IN LAST *
BITE OF PIB
FUR 'ajF IN *
• FG' *
***********
**fS*******
» TURN ON •
• 'FETCH EOJ'
AND 'CANCEL'
> IN PBOGB
* «
***********
**Q^*******
* SET PIb *
•FLAG TO X'81'*
*AaO SET CANCEL *
* CODE IN PIB «
» FOR EOJ *
***********
**t*«H5*********
* * •
* * SVC 22 *
* *BBLEASE THE*
* • SYSIEH *
* * «
****************
****JS*********
* BRANCH TO •
» UICHAT *
> IN «»BAITNA •
***************
****
* *
* C5 •
* «
92 DOS/VSE Logical Transients
Chart AS- $$BArTNG ♦ BATCH and START Command Processor (Part 2 of 2)
(Refer to Chart 04)
»***A1* ********
«
INlTOPa •
«
»****««*«*«**«*
»«<*as*********
• assghlog •
» *
IHITOPE X
•SCANK2 AU
*»****««««*****««
••b2********
***************
'LOAD AODBBSSeS •
• or LUB TABLE •
• AHD OF •
• PIU2 TABLE *
*****************
**«««(;b«***«*****
« SIST SISTEH *
* CLASS INDEX •
* IFICL) FaOH •
* PIB2 TABLE •
* *
*****************
*****Q^**********
* CALCULATE •
* SISIEH CLASS *
* LUB TABLE •
* ADDRESSES •
* •
*****************
*****Q2* *********
t POIMT TO *
• HIGHEST HAIN *
• TASK PIB *
• *
*«*«*«******«**«*
• BOVB SXSLOG •
• AHD SISBES *
« ASSIGNHBIIIS «
* TO DESIGNATED •
* PABI UF TABLE *
*****************
.* THIS
PARTITION
*. SPECIFIED.
>*»**U2*>*****<
• POINT TO
» NEXT LOWES
* PIB
*
***************
.* DDKS *•
. X*. PARTITION .
*. EXIST .»
****
*
G1 *
*•**
* 3b * *•*
****
X
CKPIBFLG .*.
Gt
.* IS «. YES .«
. PARTITION .* X*.
*. ACTIVE .» «
****g^*********
• BBTUBN TO »
• AUDBESS IN *
• LINK BBGISIBB *
•«•*»•*•••««*•«
POINTING
TO AB PIB
NOH
'***HJ**********
INCSENENT *
COUNT IH *
SISCON OF *
HO. Of ACTI»8 *
»IRT. PA9T. *
****************
****Hn**********
*****************
****
* *
* JS •
*****j*^**********
• SET UP I'U *
• ISSUE BSG •
• 1P10D ABEA •
• AVAILABLE •
• •
*****************
***fK1*********
• IIRANCH TO »
• NVSE8R *
• IN JJBATTNA *
***************
>**«KJ**<******
BEruaN •
TO CALLER *
***************
**fm*******
* BESIABI •
PABIITION
AND RESET
STOPPbD
» SalTCH •
***********
•>**K &****•***>
• bBANCU TO •
• DICHAT IN •
> «»BAITNA •
***************
Charts 93
Chart AT. $$BATTNH - Command Scanner
(Refer to Chart 02)
«
StBATTNH *
* NOTE VEBB TO «
* COHPiRB AREk •
* ANU TO Dunny *
*eNT81I IM TABLE *
* *
• •
• CUANUE *
• SUPPIX OF •
• HAP PROCESSOR •
• *
CHKSTT1 X
••••*U1 **•«•*••»*
* INITIALIZE •
•REGISTERS WITH •
* BUFFER LBHQTH •
* AND POINTER •
* •
* *
* •
* SAVE POINTERS *
* •
* *
-*-•-•-*-*
«*»•*•**•••«*«•**
•••••03*********»
• HOVE Duanx «
• ENTRY UP •
• TO EXCLUDE •
• HP COHHANDS *
« •
BTLOOP X
**»**e3**«»««**«
• COMPARE
• INPUT VERB
..X* NITU NEXT
• TABLE ENTRX
*»***Di«*********
* REGISTERS
■•-•-•-*-*
«*••••••**••••«••
HAS
II VTAH
COBHAHO
* K2*
> *
••••*CS**********
• G£T VOMER *
• BP, SET UP *
• NOBBAL BETURM •
• ADDRESS •
• •
* POHBR/VS *
* BBkNCH TO •
* POWER BMTRt «
* ADDRESS •
****ES<********
* BKADCU TO •
* DTCHAT II *
* «»BtrrBA *
*. LENGTH >6
.* *.
*««*GU********
.* IS THIS •.
lES
» BRANCH TO
. DUBNX ENTRK .»
* DTCBAT IN
*. • •
* tSBATTNA
*. .♦
*- -•
X
• NO
» ♦
» BD •
• *
• ***
X
««**H3**********
SET UP »
LOAD OPERATION ♦
4
•***J3*»***»»
BRANCH TO
LOADIT IN
StBArTNA
BBANCH TO
NVSERS IK
«iBATTNA
94 DOS/VSE Logical Transients
Chart AU,. $$BATTMO - VOLUME Command Processor
(Refer to Chart 04)
* t$B«TTMO *
-»-•-•-•-
• GET DBVICB
• kDOBBSS
• PA>«HBTB8
• *
» SEt VOLID •
* FROM GETTCB *
• IN OUTPUT •
* •
* «
* SET fOLID* •
* *IIO«B* III •
* OUTP0T •
* «
« 4
• SBI *OLIU> •
I* »OOIIII* *
• 1* OUTPUT •
• •
•••••BS«****«*»«»
**»••»•••••••••••
IBS .* PABH *
...•.PRESENT (ALL
•.DEVICES) .*
LENGTH ' *.
TOO LONG
. (COHHENT).*
• • 6BNI0BU • *
• «GET AN I08B* *
• 'FOB CONSOLE* •
I/O
• •
* •
••••*••*•««••*•••
••**«{> 1 ••«»••*•••
«««*jj 2* *********
CHECK AND *
*CONVeBT DEVICE *
AOUBBSS TO *
HEX FORMAT *
« «
.X*
.* ONNEB *.
Its .* IN PUB •
...*. OMNER TABLE
.» PnB2 *.
.* INDICATES *. NO
*.OPEN DATA SET.*...
• .ON VOLUME.*
*****Dlt«*********
* IN OOTPOT •
* •
•*•***•«••**«•«**
***»*Eit******»**»
***••***•••*••«••
««**•;]•**•*»•*«*
*••*•••«•«•«••*•»
»*••
«***««««•«*****•*
• Gt *
* •
*••*
END OF
• ,
YES
PUB TABLE
*'
*... .
*. .•
^
• *•*
». ••
X
•
• NO
*•«•
• M2
* *
*
.
• G<t •
*»**
.« MAS *.
.* BEQUEST *
*.FOR ONLY 0MB
*. DEVICE .»
• PBIHI A LINE •
.X IP ONE IS
• LEFT •
**«*•******•**«»•
• EXIT TO •
• UTCHAT IN •
• SfBATINA •
•«*««***««««•*•
.•FILLED •.
.* A FULL •. YES
LINE OF ......
*. OUTPUT .•
**********
***H<t* •****••••••
PKINt A LINE
• TO CONSOLE •
(SYSLOG)
***************
*****ji**********
* *
* GO rO NEXT *
.* OUTPUT ENTRY •
* ON THIS LINE *
* 4
*****************
*****l/^ }*********
*TRANSLATE DE«.
*ADDR IN PUB TO
* PRINTABLE HEX
* IN OUTPUT
* BUFFER
****************
*****^2* *********
* * * *
* •GETVCE FOR • •
n* * VOLUME ID • •
• ***
* *
» A3 •
• *
Charts 95
Chart AV- $$BATTNQ - MODE Command Parameter Processor
(Refer to Chart 05)
« «
• *
• Bi •
• *
• ••*
*
• RESET
• INDICATOR
» BITE
• IN SSBHTTNA
PIRCKBTN
•SCANS! AU
• •***•***««**«*«'
•*««F1 «•«»*««««
*»«*•**••*••«•«
BRANCH IF
IPA8AH£TEB IS
HiR, ecc, R,
Q. ^H,
*****B }•*****•***
« •
» POST 'E* OB •
• '!• IN •
*INDICATOB BYTE •
• •
•SCANR3 AO*
* GET THRESHOLD *
* VALUE »
« '•
D3 *.
VALID
• *«•
4t *
• Jl *
• •
• •*•
****E2*********
• LOAD «
• tSBAITNB •
• *
•••♦
• *
• • .
* B3 *
• Jl «.x.
* «
• *
*«**
••»*
X
»
»
• UNABLE
•
• 'STATUS*
«
«•«««*♦****«•««««
• BRANCH TO •
» NVSER8 •
• IN tSBATTNA •
*****f 3****«««»*«
•*•*«*•••••***«••
«1 ••
««««*G2** ********
G3 *.
» ♦
• POST •
.* »
SEE
*
(ES
• C0B8ESP0N0INS *
.* LAST
*,
NO
NOTE »C2
*•••••
..X* BIT IN *....
. ...X*. PABANETER
«
•
•IMUICATOR BYTE •
*.
*
,
♦. .•
♦ *
*. .*
*. ••
*»******•*•*****«
*. .*
X
* NO
• YES
**•*
« •
• 01 *
* *
X
**«•
HI *.
X
* *
****H3******«**
•E'
*
lES
♦ LOAD
*
08 <T'
*. . . .
* «$BATTNS
*
«««»«««**«««**«
96 DOS/VSE Logical Transients
Chart AW. SSBATTNR - NODE Comoancl Status Report Pcocessor
(Refer to Chart 05)
» *
• SSBAT'tNB *
* •
• CLEtB
» OOTPUI
• BUrPBB
IISIMBJ ^t^
• •***C1*********'
IB
BliCOBDING
MODS
• COBVBIT.tHD •
*****B1*«****«*«*
*••**•••••••*•*•*
•••««D2**********
*INSaTABa AH*
*SBI UP TO OSt>LI*
* BHB CTBS hito *
* THBESH VALUBS *
1H5-J-
*. OB 1<l§
• ir AVAIUBLB •
COIVBBT ABO
SIT UP TUB
tHBBSROLD
«««««>B5******
•IXCPBQ
• •••
AC*
•
OISPLAI
•
•
BBSSA6B
«
*
•
***«iCS*********
• •
• BBX TO CALLBB •
• , •
•INSBTABB AM*
*SET UP TO DSPLI*
* BSR CTBS AND *
* THRESH VALUES *
•••••••**••••••••
•••*»ai*********i
• •••t'2*******«*
SET UP TO
DISPLAX
BUr DEL •
• ••••(;2**********
SET UP TO
DISPLAY
ECC.B.C
••••*•••
HI *.
.* *.
.* CPU«1il5, *.
*. OR lite .*
*• •*
*. .*
• KES
. i
• SET UP TO
• DISPLAY
• ECC.B.n
.* IN *. NO
*. RECORDING .*...
*. RODE .*
•••*••«•
*DISPLAI BUFFER *
« •
*IRSBTAEB AN*
•SET UP TO DSVLI*
* ERR CTRS AND •
• THRRSa VALUES *
*. QUIET NODE
SET DP TO
DISPLAI
ECC.Q.C
••4
>««Jb*******
>••
SET UP 10
DISPLAt
KCCU.CtH
>••
****K2*********
• BRANCH TO *
• CONTROL •
> IN SBBATTRA *
Charts 97
Chart AX- $$BATTNS - MODE Coma and Validity Ciiecker (Part 1 of 2)
(Refer to Chart 05)
* *
* »»BATTMS' •
» «
4i***B1* *********
*
ENTEH *
SIIPBRVISOR *
STATE •
*
****************
» SET UP *
• BETORN *
» POIMTS *
* *
*****************
• BJ*
* *
*
X
CKECCHQ
C3 ».
* *
.*
HODE
«
IBS
*.
scc.n.Q
*.
*
•
*. .♦
X
• MO
*****
•AY *
• B»*
REFBBENCKS
TO AXD5:
AyC), AYH2
*****
PBOCeOOBX
*****
• A« *
• B2»
.* CPU=
145, •
. YES
Mkb-i
.*. . . .
• . OR 1<»b .*
♦ . .*
*, .*
f NO
t
****j 1**********
FORCE a BIT
IN INDICATOR
BYTE
**************
•*
X
E8R0R COONT
*
***************
«*«**ti2* *********
« *
< CHANGE HIB TO *
*BeCOBOING HODE *
* IN CTL REG 1<» •
* *
*****************
«**««J2**********
» CHANGE ECC TO •
•8EC0BCING HOOe *
• VIA DIAGNOSE *
• INSTRUCTIONS *
• *
*****************
>***K2*********
BBARCH TO *
CONTROL «
IN StBATTHA •
>«*************
*****
•AY *
• 85*
*
NO
*****
•AT •
* G2*
* *
*
X
CKECCCTH .*.
H3
*,
.*
*
.* BODE
*
YES
*. ECC.C
TH
.*... .
****K3*********
* BRANCH TO *
* NYSEBB *
* IN SSBATTNA *
***************
*****E5***««*****
* SET UP NEH •
* EHBOB COUNT •
* LIBIT m *
* BUS TABLE •
* •
*••***•*«•*••••••
»***«S5********«*
* *
* SET UP MEN •
*' IIBE LIHIC III •
* BBS TABLE •
* «
***«**•*•**•***«•
****H5*********
• UBAHCB TO *
• CONT80L *
• IN $«BATTNA «
98 DOS/VSE Logical Transients
Chart kY $$BATTNS - MODE Coamand Validity Checker (Part 2 of 2)
(Refer to Chart 05)
Foa HtR,R
• »•»»
*kX *
• K1»
*hi *
* F1*
FOH ECC.a.B
*AI *
» BJ»
FOR ECC.H.U
*»I *
» CI*
* *
FOR ECC.C.R
» Fi»
• POST HIR in •
*RBCOgDItla NODE •
« RESET HIR •
» EBROS COUHT •
« «
* CHkllGK HIR *
* TO RECORDIMG •
* MODE IH *
* CTL REG in •
•AX *
» Db*
*««««{j 2* *********
»•*«•****«««•
«««««C2* *********
* *
* CHARGE HIR *
* TO UOIET MODE *
* IH CTL REG Mt *
« *
«*««««***«««***««
««**02**********
CHARGE ECC *
TO UUIET HOUE *
««*••«*•*••«««
.*.«-«.«.*.«.*.
*****************
«****C3»*********
* POST ECC HAIM •
*RECORDIN(i RODE *
* RESET ECC «
* BHHOB COOHT *
* *
*****************
•****03******««*»
* CHARGE KCC to •
•RECORDING ROOB *
* VIA DIAGNOSE *
* IHSTRUCIIOHS *
« «
««***•••«•**«*•**
*****Bi»**********
•*««**«••«**«•»*•
• «»**Clt**********
« CHANGE ECC IN *
• QOIEI RODS *
• ONLY BAIM IF *
• CPU » U5 •
• «
*****************
«-*-«••-•-«-»-••
* TEST IF HiR *
* IR QUIET BODE •
* *
*****C&*****«****
VPOST ECC CONTBl.*
• IN RECOSDIHG •
« BODE RESET *
*ECC ERROR COUNT*
* «
****««••••••««•••
**«**DS****«*****
• CHANGE BCC •
* CONTROL IN *
•RECORDING RODE •
* VIA DIAGNOSE •
• •
FOB ECC.C.U
• ***li
♦ IX *
* GJ*
FOB BCC.C.TH
• *•**
•AX *
*•*•;(»•***•«••*
* *
* HIRQUIEI •
* •
•••••••**«**••*
*«**«e2******«**
«
• POST BCC
« CONTROL IR
» UUIET RODE
****************
*MIRQUIET Alt*
•-»-«-•-•-•-»-*-•
••*•*«*••**•*••*«
HIR
IR gaiET
. BODE
»**«*H2* *********
* CHANGE ECC •
* CONTROL IN *
* UUIET BODE *
* VIA DIAGNOSIS *
* •
*****************
*****}i^* *********
* *
* POST ECC *
* CONTROL IN *
*IHBESHOLD BODE *
* *
*****************
***«tl5*********
» BRANCH TO *
• NVSERB •
* IN StBATTNA *
«*•*«*«**«*•«•*
*****
*AX *
• D5*
****»J3********«*
* CHANGE BCC *
* CONTROL TO *
*THRESHOLO RODE *
* VIA DIAGNOSE *
* *
Charts 99
Chart BA- $$BATTNT - ALTER Command Processor (Part 1 of 2)
(Refer to Chart 06)
► A3 *
****^} *********
* *
* $»BATTNT •
t *
***************
IJBATTUO
START X
*****Q-\****m**
**************
*****Q-}******m**
* *IMITI»LIZB *
• *PC EXIT B» *
» •STXIT HACRO*
SVC16 *
* *
********
It*******
.*.
A2 *.
.* START *.
.* ACDR ♦.
•.EXCEEDS VIRX..<
*. KNE OP .•
*.PA8T .♦
♦. .♦
• NO
*f^2*******
* CIBAS »
' SMITCH FOR
P80GB. CHECK
►EXIT ROOTINE
***********
»»»»»C2****»*»***
* USE A DDHFIIt *
* INSTRUCTION ♦
* FOR THE STA9T *
* ADDH *
* »C5 *
**m* *************
****
READ
***B3*
SDSTHT
*****
*BB •
» h2*
*********
READ DATA TO
BE ENTERED
INTO CORE
(*******«*
****D I**********
SCANR2 AD*
-*.*.*.*.*-*.*-*
SC»!I FOR •
OPERAND *
*
******«•****«•**
.* ADDR *.
• WITHIN
SUPERVISOR
****«F1 **********
********
****
*aB ♦
* E2 *.X
****
RESETSW X
*****[)3**********
* *
* SET UP ERROR *
* BSG FOR •
* SSBATTNA *
* *li5 *
*****************
*****E3*********
* SET TO SCAN
* THE LESSER
*0F 32 BYTES OH
*NaRR£B OF CHAR
* ENTERED
****************
SAVEH3
*****f 3*4
*SCANHEJ(
***************
.PBOGH. CHECK
.* DUE TO
*. INVAL. £N0
*. AODR
*****Cif **********
* *
* SET UP *
* SISIEU RBBOR *
* RSSGB *
* *
*****************
> ISSUE riESSAGE*
****************
•***E1* ********
BRANCH 10 *
CONTROL IN ♦
XSBATTNA •
***************
t***fH*********
BRANCH TO »
DTCHAT IN *
*$UATTNA *
It**************
INVALID1
*****QH**********
* MOITB nSG *
••IrtSD INVALID *
...X* ENTRY' TO *
♦ OUTPUT *
******
IS INVALID. A PROGB.
CHECK OCCURS AND THE
PC EXIT ROUTINE GETS
CONTHOl, KHICH R8TDHNS
TO LABEL •DUIIBI>
ERRROUT X
*****\i2*******'>
* SET HP
* WSSGE lltlU
..X* 'INVALIU
* ADDRESS'
***************
L0ADR3 X
*****j ]********
♦SCANHEX B
*************
ISSUE flSSSAGE*
«***»*»«***«**
*«*K2*********
BRANCH TO *
CONTROL »
IN $$BATTNA •
**************
H3 *.
.» END *.
» ADDS. *. YES
BXCEEDS VIST. .*....
►. END OF .♦
•.PART..*
*. .* X
• NO ***
**J3*******
* CLJiAH »
• SNITCH FOR
PBOGR. CHECK
•EXIT ROUTINE
* *
***********
«***K3«**«******
USE A Dunnx *
INSTRUCTION *
FOR THE END *
ADOR. *
*K<1 *
****************
«***J4*********
BRANCH TO »
NVSERR IN *
SiBATTNA •
***************
•Kt
IF
IS i.n«ni.xu. It rnuun.
CHECK OCCURS AND THE
PC EXIT RnuTINE GETS
CONTROL, WHICH
RETURNS TO LABEL
•DUHI1I1'
*Kb
1II«:>D
INVALID
ENTRY
* A« •
* <
«***
100 DOS/VSE Logical Transients
Chart BB. $$BATTNT - ALTER Command Processor (Part 2 of 2)
(Refer to Chart 6)
*****
*Bk *
**»**HEFERENCES
• ^*T0 BB»2:
*^ **BA*3, BAE2
***•*£ 1 ********»«
« SET UP BSfi •
* •1I»71' XX •
♦BYTES CAN ONLY •
» BE ALTERED' •
* «
*******««***««**«
****************
****
X
INVALID X
CI ♦.
***»*C2**********
.* *.
• MOVE HSG ♦
.* START *. «liS
I ••1II12D IHTALIO *
*. ADDH ALSO .*...
* RESPONSE' *
*. IN SVA .*
* TO OUTPUT *
*. ••
* *
*. .*
*****************
* MO
»**•
**** I
* * .REFBREHCES
•BA *
* • •.X.TO BBDl:
* G« ••X.
« * .BASa, BAH3
* *
.**•*
***•
ALTER1 X
. CCwLNG X
*****[) t **********
***D 2* *********
• CALCULATE *
PUTnSG BB
* MOBBEa OF •
*-*.«-*-*.*.*.*.
• BYTES TO BE »
PRINT ERROR HSG
• ALIEBED «
* ANU READ REPLY*
*****************
*****************
****A 3* ********
* «
> SCAKUBX «
* •
***************
****
.* CHABACTER *. NO
****AS*********
* «
* POIHSG *
* •
****•*•*•****»*
0-9 OR A-P
****B4*********
> BRANCH TO *
' EBRRIN IN *
> t$BATTNA *
***************
PUTHSG X
***D5****
EXCPBG
>••*****
*****C3**********
>********«**«****
* ALL
CHARACTERS
*. SCAM
*****E3****»**«
• CONVERT
• IMPOr TO
» PACKED FORH
***************
*****************
READ REPLY
********
****D<«********
* BRANCH TO
* DTCHAT IN
* JSBATTNA
****E<t*******>
* RETURM 10
* CALLER
**************
ANY REPLY .*
****jj5*******«»
* *
* RETURN to •
* CALLER •
***************
* SVC 22 *
* SEIZE THE *
* SYSTEM •
* *
*****************
• PC ROOT
* *F5
***************
*****G 1**********
* *
* ALTER CORE TO *
* END-OF-EMTRY •
•OR EMD-OF-CORE *
* *
*****************
.* CAUSED BY
.DUHHY IHSTB.
*NEAR LABEL.
♦.DUMMY.*
*****H 1**********
* •
» SVC 22 •
* RELEASE THE •
* SYSTEM *
* *
*****************
.* CAUSED BY
.DUMMY INSTR.
*NEAR LABEL.
*DUMMY1.*
****j ^*******
* BRANCH TO
* CONTROL IN
* SSBATTNA
*************
1IU2D ADDRESS
WITHIN SUPERVlSOa
OB SVA
**jl|*****«t
'SET INDICATOR*
FOR ANY P.C.
► HAPPENED •
*SfiT INDICATOR*
* FOR INVALID
* ADDRESS •
***********
SET INTERRUPT
ADDRESS TO
LABEL DUHHY1
«****Kt>*****«***«
* * SVC17 • «
* * BRANCH • •
X* TO INTiiHRUPT* •
* * ADDRESS * •
» * * «
*****************
Charts 101
Chart BC, $$BATTNU - DSPLY Commant' Processor (Part 1 of 2)
(Refer to Chart 6)
* *
ueATum
BEUIM X
**»***««*«**«««
INITIALIZE •
PC EXIT BY »
SXXII MACRO •
SVC 16 *
•*••*»**»**•*«**•
* *
♦ C0NVB8T •
» ADORBSS TO *
• PACKED FORB •
* *
.EXCEEDS VIRT..
*. ERO OF .*
•.PABT .*
* CIBAB
SWITCH FOR
PC BUT
SUBROUTINE
*
***********
*****ij^**********
• BSE A DUflHK •
• mSTHUCTIO* »
• FOR THE START •
• ADD8 •
• *K1 •
*****************
****
* *
» AH «
* *
****
****
* *
* Ab •
* «
*
X
-*.
A* •.
.♦P80GR. *.
CHECK ODE «. IBS
TO IHVAL. ......
.BNU ADOB .*
DSPUXI i
*****A5**********
* CALCULATE *
* NUHBEB or *
...X« BtlBS TO BE •
» DISPLAYBO •
*»«**BU********«*
* SET UP HSSGE *
* 1S41A 'SISTEM •
* ERROR, PBOG. •
* CHECK III LTA> *
* *
* ISSUE NESSAGE*
*«**0>t*******«*
• BRANCH TO •
• CONTROL IN *
• $$BATTNA •
***************
*****************
«SBT UP HESSAGE •
» •1I4UI XX *
* BITES CAK *
* OILI B£ •
* DISPLAIED' •
**«C5****»«******
EXCPRG AC
ISSUE MESSAGE
* *
**** *
* • .
» 05 '.X.
* * -
**** ,
DSPLI X
*«**«05**********
« * « «
• * S»C ^2 • »
• * SEIZE THE * »
• ♦ SISTER • •
****f1 *********
* BRANCH TO *
• MVSBRR IN *
» JJBATTNA •
***************
****
SROUT 1
t****(i2**********
t *
' SET OP •
► HSSGE IIUIU *
» 'INVALID *
» ADDRESS* *
■>**»*********•***
• ISSUE NESSAGE*
****************
***j 2* ********
BBANCH TO •
CONTROL IN •
tSBATTNA *
**************
*****f j**********
* CALCULATE •
* END ADDR= •
* START ADD8 ♦
* ♦lb *
*****************
G3 *.
.* END *.
.* ADDR *. IBS
'.EXCEEDS VIRT .*....
*. END OF .*
•.PART .»
• . .* X
* NO *•
**\ii*******
» CLEAR •
SWITCH FOR
PC EXIT
SUBROUTINE
t *
***********
*****j J**********
* USE A DOHHI *
* INSTRUCTION *
* FOB TUB END *
* ADDS •
* »Ki *
*****************
*****g5**«*«*****
* •
* HOVE DATA *
* TO WORK •
* AREA •
« «
*****************
*****fi**********
* * * *
* • S»C U2 » *
* •RELEASE THE* •
* • SISTEB • »
* • • •
*************i****
••••&&••*••••••*
*****************
STCCK7 X
•••H5»*^^»*^*^»^*
EXCPRG AC
PRINT DATA
• ON SISLOG *
*****************
****J^*********
* BRANCH TO •
* CONTROL IN •
* (SBATTNA •
***************
*.
OCCURS AND THE PC EXIT
ROUTINE GETS CONTROL
VHICH BETURNS TO LABEL
•DSDUHHI'
OCCURS InD THE PC EXIT
ROUTINE GETS CONTROL
WHICH RETURNS TO LABEL
•OSDUBHIl'
. CHECK
.»
**'»ES
X
t*t*
****
* m
* Db •
* *
102 DOS/VSE Logical Transients
Chart BD. $$BATTNU - DSPLY Command Processor (Part 2 of 2)
(Refer to Chart 06)
► BSPCBOOI »
t PBOGB. CHECK «
>lilClT SUBSOUTIHE*
».
.*.
B2 *
• • P.C.
.* CAUSED BY *.
.DUBHY-INSia. .
•KEAH LABEL.*
• DSDUBIIY*
♦ • -*
» NO
.• P.C. *.
.* CAUSED BY
. DUMRY-IMSla.
*II£AEI LABEL.
' INDICATOB
F08 ANY P.C.
> HAPPENED
« 4
*«***£2*** *******
* *
* SET INTESBUPT •
* ADDRESS TO *
'LABEL DSDUnnH 1 *
» *
>**««*«*«********
DSPCB0UT1
**D3*******
• SET *
♦ INDICATOR
* FOR INVALID
* ADDRESS
• «
«*«*«««*«*«
* • SVC 17 • *
* * BRANCH TO * *
» • INTEB8UPT * »
* • ADDR. » *
*«***« *««*«**«*««
Charts 103
Chart BE. $$BATTNV - DUHP Cooiiiiaad Scan Routine (Part 1 of 4)
(Refec to Chart 07)
* •
* tSBATTNV «
* *
• •
• Point TO BG ♦
• COMRBCi 6 •
» SISCOH •
« •
* SCAH FIBST •
* PARiHBTBB OF »
* DHRP COHHINI) •
• ANI *. NU
PASABSTSR .». ..
•.SPECIFIED.*
ERM
.* LENGTH OF *.
.FIRST PARAN. .
•. ' ••
• SET Bits TO •
K* DOHP ALL •
• PARfiriOliS •
• *
X
.*.
F1 ».
.* *.
.* *. KES
*. DELINITER .*....
*.=,.•
*. .*
». .« X
• NO ••••*
•UH *
• Bt»
• •
, «
X PUONP
.•-
TOL .*.
Gl *.
G3 *.
.* *.
.* ».
.» •• NO
.» •.
•0 I
*. LENGTH .*
...X*. LEVGIH .*
*. =6 ••
♦. "I .•
•. .*
*. .»
^ ^
*. .*
tt, ,«
X
• KES
• XES
•••••
•BF •
• 81*
• ♦
•
X
X
NORNAL
.».
• •.
HI *.
HI *.
.* *.
.* ♦.
.* PARAH ■ *. HO
NO .* *.
•. BUPFKR .*....X
......*. PABAN .*
• . ■ S .*
*•• ••' '.
*. .*
•• .• X
*. .*
• IBS •••••
* IBS
• UG •
• BS»
• •
•
EBB
.
X
• •
• SET BIT TO •
« SET BITS to •
* DUHP SOAID «
• DUMP S(PVS * *
• BUFFER •
*ALL PARttTIONS *
• *
.
••••••••«•« *»*••
!x
It
.•......•...•.*..
104 OOS/VSE Logical Transients
Chart BF- SSBATTMV - DUMP Command Scan Routine (Pact 2 of 4)
(Refer to Chart 07)
•BE •
• G3»
• •
• SKT bXtS 10 *
.X* DOHP SIA AND •
• •
•••••
•BG •
• Bb»
•••••B 1»**«*« ••••
•••••••••«••••«•*
♦ SET an FOB •
.1* FABTITIOII TO *
» BE OOaPED *
«es •
• fli*
•an »
* B5»
Charts 105
Chart BG, $$BATTNV - DUMP Command Scan fioutine (Part 3 of 4)
(Refer to Chart 07)
REFESENCKS
TO BSB1:
BBJ1, BFB5
• *.
OELIH
*«****«****«*«•«*
XO .* LENGTH
*«*««**«««««
•••••C3**********
• CILL SIJBDU8P »
• FHISE IN SVk *
*TH!ta STC2 HOOK *
• FOR SSBPDORF *
• *
«***1)3*«******«
* BRANCH TO «
• CONTROL IN 4
' SSBATTNl *
REFER F.HCBS
TO B&8S:
BB01, BEH1
BFD3, BFE2
BHG1, BHUI
• •*«•
* *
«»***BS**********
• *
* POT INVALID •
..X*OPBB*NO BESSAGC*
. • IN SS8AITN1 *
. * BOFFliil *
• B5 • ♦ .
* » C5 •.X.
* HBITB DBSSIGB •
* ON CONSOLE •
* •
****D&***««****
• BBINCH to •
• CONTROL IN •
• «SBtTX«i •
****
> 4
• B5 »
PINDPUB X
•CHKAOB
* CHECK AND *
♦CON»ERT DEVICE •
♦ ADDS •
H»CllSGb
« PUT INVALID *
• DUBP FILE •
. ..X» HSG IM »
( <S*bATTNA BUFFER*
X
• ***
* «
» C5 «
. FBA OR .
♦PRIMTER*
.* OUHP ••
.SDAID BUFFER .
•ON PRINTER.*
UEVOK X
• SAVE PUB
♦ DEVICE TYPE
• AMD IHDEX TO
♦ PUB ENTRY
m
» Ai •
* •
106 DOS/VSE Logical Transients
Chart BH,, $$BATTNV - DUMP Command Scan Routine (Part U of 4)
(Refer to Chart 07j
• *
* CUKkOB •
LoaP3
HO .•
•••••CI *•*••*«*«*
«CHKADR BH«
•-•-«-•-•-•-•-•-•
*CHBCK & CONVERT*
* ADDRESS *
• •
«««««•**«•••«•*«•
•••*•••**••*••***
-•-•-•-•-•-
»•••«•••«••••••••
DISH *.
= VALID HEX .
♦ DIGIT (»-F)»
••••*C<I********«'
• **•«*••***•••••'
•••••^((••••••••**
• *
• COHVBHI •
* ADB TO PACKED *
♦ HEX •
* •
••*«•••*•«**••«••
•••••F5***»^*^^^«
••••••••••••«••••
* BEGIH
«
HO .
ADD8 < END
*..X.
*. ADDBESS
*. .*
,
*. ••
X
* XES
• •*••
• BG •
• Bb*
• •••G !(»••*•••*•
> •
» RETDRH »
> «
«•••«•**•••••«•
Charts 107
Chart BJ.. $$BATTNY - CE MODE Command Processor
(Refer to Chart 08)
* «
* SStBATTKY •
* *
* POINT ro •
♦8BC0RDINS FILE »
* TABLE *
* *
» b2 »
* SKI1> CE P«R»n •
VALCUUOO K
»SCiN»3 AD*
• GET CCJU •
• PABAMKTER »
• *
»««*«C 2* *********
***************
*«*«!; 2* ********
UfiANCH TO
CONTROL
IN SSBATIRA
***************
*«*««G1****«*****
• PEEPAMli TO »
***********
• **H1***>* ******
SEARCH PUB *
FOR THIS *
DEVICE *
VALUBOO X
*****BS*********«
*SCANB3 AD*
*****************
VALNOOOO
*«***C3**********
*SCANR3 AO*
«-*-*-«-*-*-«-«**
•GET I, D, OH II •
* PA&ANKTER *
*****^j*»********
* *
* SA»E *
* COBREStONDING *
* DEVICE MODE *
* *
*****************
«***«D5**********
« *
* CONVERT 10 •
* BINARI AMD •
* SAVE VALUE •
*****************
*****g^**********
vSCAHBi AD*
* GET BIT *
* CABAHETEB •
* *
*****************
* BRANCH TO *
* NVSERB •
* IN ASBATTNA •
•*••*•**•****•«
•****G 3* *********
* MASK TO X'FF'
*
***************
*****fi^**********
* ue BYTE AND *
* BIT VALUE TO *
* SET BITE/UIT *
* HASK *
* «
*****************
****J 2* ********
* BRANCH TO *
» NVSERR *
*****f^^* *********
* *
* POINT TO *
* PUB2 ?oa *
* THIS DEVICE *
* *
*****************
SETUPOO X
*****ji**»*******
* SET IN PUB2 *
* BYTE/BIT HASK •
* NRH DEV MODE *
* AND LIBIT *
« *
*****************
****H ^*********
* BRANCH TO «
* CONTBOL «
* IN XSBATTNA *
***************
108 DOS/VSE Logical Transients
Chart BK- ^SBATTNZ - 115/125/135/138 or 4300 MODE Command Processor
(Refer to Chart 8)
* •
* •
*••*•*•••••*•••
•***A }*••**•••••
GET COHl'BOL •
IR SUPEBVISOR •
STtTE •
*
*•«••*•••**•••••
• ••••^-{•••••••••:
• •••••••••••••**i
SHS ACTIVE
»0 .* CPa=13b, *.
••*•
• •
• UJ •
•••••02**********
••••*•••••*«•*•••
****E2*********
> BBARCH TO *
• »SB»ITNX •
* •
*«•«••••«•••«••
PIBIHOO .•.
D3 «
, •
lis .* HO08
• E3 '.X
• *
*•**
X
•••**£3**«»»**^*
«
• POINT ro
•RBCOBDING FILE
• TABLE
•
«••«•«•«•••*««••
• •**
• •
• H2 *
• *
• •««
•••••^••••••**«»
• SETUP •
• STATUS •
• MESSAGE •
•••••••*•»••*••*•
• ••••U ^••••••c***
•EXCPBG AC*
*-•-•-•-•-•-•-*-•
• DISPLAY •
• STATOS *
• MESSAGE •
••••••«•*•••••*••
G3 •
HOUE
• •*•
• *
» H2 •
• •
• •••
X
•••««H2*^«*****^*
• •
• SET OP AHD •
• ISSUE MESSAGE *X
• •
• •
•••**•*••*••••*••
YES .* MODEL *.
...... 115/125
•.OR 4300^.*
• POST •
•BECORDIRS RODE •
• IR CB 1» •
• •
•••••••••••*•*•••
• POST •
* UUIBT BODE •
* IR CB 14 •
• •
«*«•••••••«•««•••
••••{'■■••••••••«
lES
* BBARCH TO •
* CORTROL •
• IR iSBATTHA •
••*••••••••••••
YES
•••••Ull^ •••••«•«•
* *
* BESET IB •
* IR BECORDIRG •
* FILE TABLE *
* •
••«••••••••*•••••
•••••{^^^•••••••••^
• •
« POST IR. •
• IR BECOBOIRG •
• FILE TABLE •
• •
«•**•••«••••••••«
••••J2*^****«**
• BRANCH TO *
• CONTROL IR •
• itCBATTRA •
«•••••••••••««*
*•••« J 3 ••«*•«••*•
•••••*•****«*•«••
• •••jil«****^*^^
• BRARCH TO *
• CORTROL •
• IR *SBATTRA *
•••••••••••••••
•***K J •••***•**
• BBARCH TO •
• SSBATTHQ «
• •
••«•••«••••••«•
Charts 109
Chart BL, $$BATTN2 - PfiTY and TPBAL Command Processor (Part 1 of 3)
(Refer to Chart 04)
• *2 •
* AJ *
« *
« «
****
*x
****
P8TJ20 i
'. PBTtSO i
•••♦«A2****»*»»**
*****A3**********
****At* *«*****■*
* «
* PBTKOS »
* *
» ClAEB »
•-*-*-»-»-»i»-*-»
* »»BATTN2 »
* BUFFER+i •
» BE-INIT 'X...
♦ •
* *
• POINTERS *
***•********«*»
♦ *
* ■ * .
**4i**«4' *«*«***«**
.NO •
' • ,* *,RliFti«ENCES
; »iTO BLAJ:
I »»»*;BI1C5, BNE2
X
.*.
PBTY X
X
•••*«B1«**«»*»»*»
*»*»*B 2** **»**•«•
B3 ♦.
*SC»HH2 AD*
.* «. ****BM*********
*-*-»-•-*.»-•-*-»
♦ BETPRTJ *
.* TPBAL *. NO * BBARCH TO
* GET OPERAND •
* IN PBIYPID •
*. ACTIVE .* X* COITBOL III
* «
*. .* • SSBAITMA
* •
* •'
*. .» »»»»♦♦»»•»♦»««•
•*ci*******
TO PRTJ15
•»*•«*♦*♦**
PRTY05 X
♦ SEX •
» HPABT *
» AND *
• HKET •
* *
****E1********«
• BRANCH TO *
• EXITADORESS •
PBIY15
.*•
n *.
» •
tES .»
IS
*,
THERE AN
,
«
OPERAND
♦ . .*
*
X
*. .*
*«««•
* NO
*Bfl *
• *1*
* •
*
PBTYSET
Gl' '*.
* IS *
NO .*
DELIHITEB
....*.
A BLANK
LOAD •
NPABT IN *
HRKBG2 «
«
****************
• SET •
• EXITADORESS «
• TO PBTtiO »
»***»C2**********
•*«****««***
paTy2i
«**«»D2** ********
•CONVERT PIK IN ♦
* PBTYFLD TO •
• PART HAHR IN *
* BUFFEEI *
• *
«««*««*«*********
*****E2»*******»
* HOYE
* DELIHITER
* TO BUFFEB
*
«••*«*•***«*•**«
.* ALL *.
PIKS
*.PBOCIiSSED. *
**•*•«*•********
****H2*********
• BBAHCH 10 •
• EXITADORESS •
• *
**»*•**»•******
•**••******
• BRANCH TO *
• NVSEBR IN *
• $$BATTNA *
••••••*•••*•••*
*•**
* «
* A2 *
**C3**»**»*
* SET «
• EXITADDBESS *
• TO CONTROL •
*m***m*.m***
*****D3*********
» BO»E
* 'TPBAL'
» TO BUFFER
•«*•«*«*********
110 DOS/VSE Logical Transients
Chart BM. $$BATTN2 - PRTY and TPBAL Commana Processor (Part 2 of 3)
(Refer to Chart 04)
•BJ. »
* F1»
••••
•••• t
part52 .».
B1 <
•**»«4it«** •••••••
• Si.t OP tOU •
• loot SlkHTLte •
• »ltU LAST •
•Pkutttioas * \ •
• •
••••
•••••••••••••*•»>
.rjis .• MKriixcHi •.
X...*. AUtBADI
*. DKFUKD .*
• ••••£ 1***«*««***
• STCBE PIK *
• Alio UBUaaLtEB •
• III CBTTFUI •
• *
• *
m *
• U8T *
• CDKBerr •
• PIK «
• «
POUBH •.
la cms
.PAMIITIO*.*
••••••«••••••••*«
•bJu •
« •
.X*. Di!I.XHXTIiil
.* MBTiriuii •.no
*.B( tOBBB .*
•••••***•«*••**•*
• «
• GST OPBBAUD •
• «
.• ktL •. HO
. SkkTlTXOU .*...
*. DliPIKBD ••
••••
* V
• *
• *•«
* a
• H3 «
• «•• It j*********
• BBtaca TO •
• MVSBBB £1 *
• SSBATTIA *
Charts lit
Chart BN, $$BArTN2 - PKTY and TPBAL Command Processor (Part 3 of 3)
(Refer to Chart 04)
• *
« TPBAL •
• *
* GET OPBBANO *
■0 .• IkLUB *.
[..*. =NuiiBiiR or .
•PHBIITIOHS-*
«
STORK »
V4L0B IM *
SYSCOH *
*
••***H I ••*«••*•*
******««**«*««««
****j )***••»••*•
REgoesT
TPBAL
RBSHT
• ilBANCH «
.X» TO NVSEBR •
• IN SSBATTNA *
• GET TPBAL
* VALUE PROH
!• SYSCOM
*••••*•••••••••*
•**E3******«*****
»BL •
• A3*
•••*•*••«•«*•*«*«
> BRAMCH TO «
• CORTROL III *
* S»BATTMA •
112 DOS/VSE Logical Transients
Chart BP.. $$BATTN3 - ENDSD Commaad Processor
(Refer to Chart 04)
• *
> «
• SSBkTTO •
* •
* •
* OSIMG CTLXST *
* BUILD PSBLIST *
* AS FOLtOHS •
* •
• HC 32,5 •
*INTCPT BY SDAID*
• to PBIBT ITS •
• COBS HBAP BUF •
••**»B3*****«***«
• *
•PS« tODBESS OF •
• EkCH SIStBH *
• SIfB tRBk •
• •
• J3 •
* •
• *««
«****C3**********
•FSB XDDBBSS OF •
• EkCa BXISTIMG •
• SISTBH CkSK •
• SATE ARBt •
• •
• • • •
• • SBtZB THE * •
• SISTER ♦ •
• ♦ • •
■> - » »
• •
• FSB kOOBESS •
• IK lift •
• SAVE ABEi •
• •
•••*•£ 1* »••••••«•
•••••«••*•••••**•
••***E3*«««**«**»
•FSB aODBBSS III •
• B&CH TASK OR •
• SDBTASK •
• SkVB ABEt *
• •
• BESTOBE *
» CONTBOL *
• 8E6ISTEBS *
• 8 TO 11 •
••**«F3»*««******
« «
• USIHG PBBIISI •
•SEROVe PBR BIT *
• IB AIL PSB*S •
• •
• •
• REMOVE FEB *
*BIT III FROGRAn •
• REH FSB *
• *
•»***G3*«*****«**
>*•*»•««•«**•*•«*
•••**|]1»****««**»
• BUILD CtLIST »
• HITH PUB ADUR «
• OF BACH *
•TASK OR SUBTASK*
« *
•••**H3»»*»*»»*»^
* FREE REAL •
• STORAGE •
♦ ALLOCATED TO •
♦ SDAID •
* *
* * .
• J3 •.!.
.*.
****K3*******«*
BRANCH TO *
DTCHtl IN *
SSBATINA •
• *
• SVC 11 *
««««*«••**«*«•«
Charts 113
Chart CA. $$BATTN8 - LFCB Command Processor 1 (Part 1 of 2)
(Refer to Chart 09)
» •
» tSBATTHS •
•••»•*•**•*•*••
**«*
* *
♦ B2 ♦
« *
• •«•
(•FOPBPID X
PFCLEART X
»»***B1**«*******
««**«ft 2* *********
• »
« •
• INITIALIZE *
• CLBA8 ADOHESS *
• OPEBANO *
* AMI) VALOE •
• FIELD LOOP ♦
• TABLES *
• *
« *
«•••«•*•••*••****
• •*• *
■
♦ • .
,
• CI •.I.
.
• ♦ .
«*•* .
,
pmxtoPR X
X
**C1*******
••**«C2**********
• •
*PFUETOPB CB*
• IMCHEASB «
•-•-•-»-»-*-*-*-•
• OPERAND NB8 *
• GET OPERAND *
• BY ONE •
*ANU PUT IT INTO*
• *
• liOBK TABLE *
••••*•••*••
«***
*CB *
• G3 V.X.
• • .
*•*• X
«,
PFOPR .*.
D1 •.
D2 ».
.* *.
.» *.
.* OPEBAND *. NO
.* 0PE8AHU *.
*. NUHBEa ......
*. «TH .*
♦. GT 5 .*
•.KBYVALUe .*
• »
*INSEST INVALID *
• END CONHA IN •
• OPERAND FIELD •
• •
•••••*•••*•••••••
*•••
'REFEREMCISS
TO CAF1;
CBF2. CBH2
• •••
PPEOPR X
•*F|****a**
* •
* SET APPBOPB *
..X* ERROR CODE *
• IN FPRflECOD *
* *
•*••••••*••
•*•*• *
• •**
PFOPRFCP
* *
* PREPARE *
* LOADING OF •
* MBATTF1 *
« *
****H1****«****
• BBANCH TO •
• SSBATTF1 *
• *
**•*•••••»***••
* PROCESS
X* FOBBS=
• OPEKAND
*
**•******•••*••*
• PROCESS
• LPI =
> OPERAND
*
»*»•
« *
* F1 *
• «
*•**
PROCESS
OPERAND 1
X'COU*
****«****«**«*«
* PROCESS *
X* OPERAND 2 *
* PBASENAHE *
* *
*****************
..X* KS *
* *
****
NULHSG
*••*•)( 3*** *******
• *
• PROCESS *
X* OPBBAND *.
* NULHSG *
* *
»««*•****•*******
• »«*
* *
* H *
* *
***«
-*.
PFSTMENO .*.
du *.
Kb *.
•
* *
ERROR
'♦
NO
«
OPERAND
*
YES
IN
*. .. .
. ...X*
OELlniTEB
*... .
OPERAND
I*
«
m
,
> *
*• • *
*. •*
*. .*
X
* YES
* NO
*«*«
« *
• CI*
X
X
» •
***•
*«**
****
* *
* *
* F1 *
* G1 ♦
* *
***♦
****
114 DOS/VSE Logical Transients
Chart CB. $$BATTN8 - LFCB Command Processor 1 (Part 2 of 2)
(Refer to Chart 09)
I" PFGETOPR
PFNIOPB X
**««>*B 2* *********
*SCANe3 «D*
*-*-*-*-«-*-*-«**
. ..X* SCAM NEXT *
VOPERAMD HtTHOOT*
•LEADING BLANKS *
* SCAN HEXT •
• OPERAND WITH »
•LEADING BLANKS *
STORE OPERAND
ADDRESSES AND
DELiniTER
*«««**««*«
.*LENGTH *.
.*0F OPERAND »
. ♦ DELIfllTER
.•LENGTH ».
*0F OPERAND *. YES.
* OELINIIEB .'..X.
*****F1**«*******
* *
* REDUCE LENGTH •
* OP PABAHETRK •
» TO 10 •
* •
•••**•••«*«*••**«
*«••*
*CA »
» F1*
• HOVE OPERAND «
• OR PART OF IT »
• TO FPRHVALT *
« *
*•••••••**•***«*•
••G3»«»***«
* RELOAD •
P0INT4 MITH
ADDR OF
PFeOPR
• •
***•**••**«
»CA •
• D2*
• *II1*****«*
• *
INCREASE
F.RROB EXIT
AOOBBSS
• BY « «
END OF
KEY ?ALOB
. TABLE .
**H3***»***
• INCREASE •
<iBKBa« TO
ADOR OF
FKIVALAM
> •
•»*•*•*••**
*****
*CA *
* F1*
Charts 115
Chart CC, $$BATTFI - LFCB Command Processor 2
(Refer to Chart 09J
*«**A1 *********
* *
» JSBATTF1 *
ft *
***************
* ESTABLISn *
*AODBesSABILIl'ir *
* FOB COHBEG *
* *
*****************
•*»**B2*** *******
* PBEPABB FOB *
* LOADING *
* »»B«TTF5 *
« *
*****************
****
CI *.
«****C2*** ******
.* *.
• HOVE
.* tJBATTHB *
(ES
* INFOBHATION
*. FOUND SYHTAX
*
* FBOR FINFABBA
*. EBBOR .*
,
* TO mFABEA
*• •*
*
*. -♦
X
*•**•**•»•******
♦ HO
**••
,
«
*
* BJ
*
*
*
***«
X
• LOOK UP
****02*********
•r POB TABLE FOB
♦ BBAIICH TO
» SPECIFIED
* JJBATTF* 08
* X'CUU'
* *iBATTP5
*
**««*••«
*««*«**
*****************
*•**
*
* BJ
PFBSinrx X
•****II3«**»***«
* INITIALIZE
* BUILDING nse
* FOB SINTAZ
* EBBOB
*
****************
* P<<BPABE HO»B *
*0F APPBOPBIAIB *.
* HESSAGB TEXT *
* *
*****************
* PBEPABB NOVB *
.X*OF APPBOPBIArG •
* MESSAGE TEXT •
* *
***«****««**•***«
**»* I
• BOILD HESSAGE *
.X*AIID PBEPABE FOR*
*IIBSSAGE OUTPUT *
* •
•*•****«••**•*«•*
.* PUB TABLE *. NO *SI!T APPBOPBIATB*
>. ENTBY FOUND .* X* EBBOB CODE *
*. .* X * IN FPBHECOD •
««*•****••******«
»***»f 2**********
* INITIALIZE *
« BUILDING nSG *
* FOB SEHANIIC *
* EBBOR *
* «
*****************
.* *. »ES
*. 3211 .*....
*. .* .
*. .*
^
*. -*
X
* NO
****
* *
;
* B2 *
• •
.
****
NJ211 X
*****J1 **********
* *
* PBEPABE FOB *
* LOADING *
* $»BATTF<» *
*****************
DEVICE
HITHOUT
FCB
* PBEPABE HOfB *
.X*OF APFBOPBIAIE *. .
* HESSAGE TEXT *
* *
*****«***«»««««**
* PBEPABE aOVE *
. X*OF APPBOPBIATB *..Z
* HESSAGE TEXT *
« •
•***•****•*••••«•
• PBEPABB HO?B *
.X*OF APPBOPBIATB *.
• HESSAGE TEXT *
• *
4(*** *************
• •»*EII«***«**«»
BBAMCH TO *
SSBITTNA *
«
**•****••*•**«*
116 DOS/VSE Logical Transients
Chart CD. $$BATTF4 - FCB Load Execution for 3203 and 5203 (Part 1 of 2)
(Refer to Chart 09)
* *
* SSBATTFt *
* *
» B2 *
• B3 *
* ISITIAIIZK »
• PHASE AND *
• RELOCATE CCHS *
* *
.♦ LEIIGTH •• HO
». OF PHASE .*....
». CORBECr . •
LSTIO CE
LOAD FCB
*****«****««**«**
.* FOBHS ».
08 LPI
♦.SPECIFIED.*
OOSKIP
***Bb*** *********
LISIIO CB
«*«*««****«****««
* •COBBEG AMD * »
* * SYSIH TO * *
* • GET ADD8 • *
* • OF SYSOSE * *
* * LUB * •
•*••******•******
* STOBE ADDBESS *
•OF VEHIFICATIOM*
*HESSAGE IN CCH *
• •
***«•«**«*«*****«
*«C3*******
♦ DEACTIVATE *
• OSEB BBBOR
SOallME IN
t CCB
* *
«*««****«*«
• CU ♦.!.
* *
SEND nSG TO
• OPEBATOR •
BEAD REPLY
*»««***»*••«**•**
* *
* COHPOTE PUB *
* DISPIACEBBNT *
» OF PRIMTER *
* «
*****************
«««**D2*****^****
« *
♦ STOBE DEVICE ♦
• SPECIFIC FCB *
* LENGTH IN CCU ♦
* •
«***«******«**•**
.♦ DID *. NO
►. I/O ER80R .*..,
*. OCCUB .*
PRINT VBRIFICA-
• TION HSG •
SKIP TO CHAN 1
*****************
LOAOPHAS X
««*£ 2* ♦♦*♦♦*♦****
LOAD NEH
* (REQUESTED) *
FCB IBAGB
• INTO *
STORAGE
*****************
*****ZH**********
* *
* PREPARE *
* MESSAGE TO *
* OPERATOR *
* •
****«*»•***««****
*****Bb**********
* *
* BESTOBB *
*P8EVI00S SISUSE*
* LUB VALUE *
* •
*•••*•****•**••••
**»*»f1 •*»•**«•**
* *
» PREPARE *
* MESSAGE TO »
* OPEBATOR *
* *
***«*****«*«***«*
PRINT
BEQUEST
PENDING
* RESTOHE
* PREVIOUS
* SYSOSE VALUE
*
***************
****F5 *********
• FETCH *
' *«BATTNA *
* *
«**«»**«*******
***Q-\************
♦LOAD DIRECTORY *
ENTRY OF
' FCB PHASE •
****************
t****Q2**********
* SAVE SYSUSE *
»LUB VALUE HAVE »
» LUB POINT TO •
* PRINTER PUB *
* *
*««**»***«««**«**
♦ *♦*
PRINTEBR X
***S J***** *******
LOGIOH CE
*****************
**an*******
* *
NOP
INSTRUCTION
lOERR
***********
.* PHASE IN ♦. YES
♦. CORE IMAGE ......
*. LIBRARY .*
»***«**«***«
»****H3^^^**^****
* * * *
* * WAIT FOR ♦ •
* ♦ I/O • »
* *COHPLETION » ♦
* * « *
*****«*«**««**«*•
PREPARE
MESSAGE TO
OPERATOa
^««*****
ACTIVATE
USER ERROR
ROUTINE IN
• CCB
****J3**«****«*
» FETCH •
♦ tCBATTNA •
• 4
***************
Charts 117
Chart CE. $$BATTF4 - FCB Load Execution for 3203 and 5203 (Part 2 of 2)
(Refer to Chart 09)
• *
• I.06IOH *
* *
* *
• HOP I/O •
» COnPLETION •
* IMSTBUCTIOK «
• *
POT umT •
OP sxsioc •
MTO CCB •
•
*
• sToaE ecu
• ADDRESS IN
• CCB
*
* •
* •
* • SVC
• *
• LOGIC •
» *
***************
****IJ*********
* «
* LSTIO »
* «
• STOBB CCfl
• ADDBESS IN
• CCB
•
****************
•****Ci**********
• *
• PUT UNIT •
• OF SISUSB *
• INTO CCB •
• «
*****************
•****•*•«««*••**•
LOU
STILL
COB SECT
•***F3**********
•••*•••*••••••**
*****Elt***«******
*•*•••»«*•***•***
»*»»fH**»******»
****************
I/O
nPLBi
****fmt********
* BEIOBN TO *
* CALLER *
* *
118 DOS/VSE Logical Transients
Chart CF. $$BATTF5 - FCB Load Execution for PRT1
(Refer to Chart 09)
* «
• SSBIITTFS •
• ••*
* •
* B« •
* •
• B5 •
• •
• •••
**•**••*«•*••*••
.• LENGTH OF *. NO
P81SB .*....
». COBBECT .•
.TIILOE AGREES*.
. HITB FCB
*. 10»D .•
• IS •. IBS
C1BBI16B ON .*
*. LINE 1 .*
• •
• PRBPABB *
• NESS&GB TO •
• OPBBkTOB •
• •
•••••D1»«*»»*«***
•••*•••«*•••••**•
• « * •
• •COHBEG AND * •
• SrsIR TO GET* *
• * kODB OF * *
• *SISUSE LAB * *
•••**F1 •••*•*••*•
• •
• COBPDTE PUB *
• OISPLICEHENT *
• OF PBINTEB *
• •
* SIOHE iDDBESS •
*0F VBHIFICATION*
*MESSAGE IN CCU *
• LOAD NEB *
(BEQOBSTEO)
» FCB IFIAGE •
* PBEPIBB *
* NESSAGB TO *
* OPEBATOB •
* «
• ••*
P8INTBBR
LOGIOH CE
I****************
E2 *.
••«**£]••*•«••*••
.* *.
• * * •
.* 1PI=«N *.
rES
• * IIAIT FOR • ♦
•. SPECIFIED .•
• • •
* • I/O * *
*. .*
,
• * OPERATION • *
*. .*
• • • *
*. .*
X
•*•*«*••••*«•«•••
* NO
««*«
• •••
•
«
* * .
* 63
•
* F2 *.X.
•
«
* * .
• •*•
**T*
BOFF X
BBTBRR
•••••F2**********
X
* «
****F3*********
*IEST SPECIFIED •
• FETCH *
• FCB PHASE FOB •
* SSBAITNA •
*COBaECT LOADING*
• •
LISTIO CE '
LOAD AOX
• FCB. SKIP 10 ♦
CHANNEL \
PBBPARB *
TO LOAD •
FCB •
*
• «B<)*******
• ACTIVATE •
* OSEB EBBOl *
* ROUTINE III •
* CCB »
» *
• ••« I
* * .
* F« ♦.X.
* ♦ •
• *•* .
RETBI X
• ••Fll************
LISTIO CE
LOAD BEQOESIED
SBHO BSG TO
* OPEBATOB *
BBAD BEPLI
**««•*»**•*•*****
••****•*•*****•
tEQI
FC;
B
«****BS**********
* *
» PBBPABB •
.* NBSSAGB TO *
« OPEBATOB •
• •
DOSKIP X
LSCIO CE
•«••«•••*••••••«•
LOAD
• DIRBCTOBY •
ENTBY OF
* FCB PHASE •
EBBOR
IN FCB
PHASE
• •Git*******
*DBACTITATE *
* USES ERBOI *
• BODIINB IN
* CCB •
• •
•••••••••••
* PHASE IN
CORE IHAGB
*. LIBRARY .
PRINT
REQUEST
PENDING
DID *. NO
I/O B^ROB .*...
. OCCUR .*
***H5************
LSTIO CE
•-•-•-•-•-•-•-•-•
PRINT VBBIPICA-
• TION nSG-SKIP*
TO CBAN t
•••••••••••••••••
• PREPARE ♦
• (lESSAGE TO •
• OPERATOR •
• •
•••«*•••••«•«••««
•••••J2*^^^*^*^**
* SAVE sisose •
* LUB VALUE •
•HAVE LUB POINT *
•TO PRINTER PUB •
* *
«••«••••**•*•«•*«
• RESTORE *
* PREVIOUS *X
* SISUSfi VALUE *
• *
*•****•••••••**••
* BESTORB •
•PBBVIOUS SISUSB*
* LUB VALUE *
* •
««««•«•••«•«•«•••
READ FORMS
CONTROL ADOB *
REG AND OLD FCB
»•«•*••**•••••«
..X* B3 •
* •
*•«•
•••••KJ««* •««••••
• •
* COUNT *
.X* AUXIIIAHI FCB *
• FOB ALIGNKBNT *
* •
•«•«•*••••«*•«•«•
NOP *
INSTRUCTION *
lOERR •
• •
•*•«•*••••*
****k5*********
• FETCH *
• »*BATTNA •
• •
••*«*«•••••••*•
• •••
« •
* BU *
« «
• •••
• ••»
• •
• FU •
« «
• •**
Charts 119
Chart CG, $$BATTN9 - LUCB Command Processor fl (Part 1 of 2)
(Refer to Chart 10)
* •
• XSB&TTH9 •
• IRITIALIZB
• OPEgtND
• FIEtD LOOP
•
• ***
• •
INCREtSli
OPEBAKD MO
BY ONE
« •
• B* »
» *
• CLEAB ADDSESS *
* AND VALUE •
• TABLES »
* «
•PU6BTOP8 CH*
* UET OPEKARU *
* AND PUT IT •
*IMTO HOBKTABLE
»••«•••*••**«**•*
«**»
•CM ♦
« HJ •.!
• •
*•** X
PU0P8 .*.
D2 «.
.* *
.« OPEBAND
♦ ,
*. HITH KEK
«
*. VA
.08
«
PBOCBSS
OPEBAND
TBAIN'
BBBOB IR *.
KBIHOBD
»ALDK .*
* NO
» ,
« *.X.
• •
» IHSEBT •
• INVALID END *
» COHBA •
• *
BEFBRBNCBS
• ♦.I
POGOPB X
••F1*******
• SET *
• APPBOPBIATE
..X* EBBOR CODE
• IM UPBHECOD
* *
* *
* PREPAKE •
* LOADING OF *
» S*BATTU1 •
* *
* B8ANCU TO *
* $«BATTU1 •
* •
» PBOCBSS •
t* OPEBAND *.
* X'COO* •
* »
PROCESS *
OPEBAND •
PHASBNAKE •
•
* »
* *
• PBOCESS •
K* OPERAND *.
• FOLD •
• «
* PBOCESS
I* OPEBAND
* ROCHK
• PBOCESS
(* OPEBAND
* NDLHSG
«
• •••
* *
* 61 *
« •
• •••
.*
* . .* X
♦ NO *•••
. « •
» CI •
X ♦ ♦
* G1 »
* •
• •*•
» ri *
* •
» YES
**•*
* *
,
• E* *
X
« *
****
««*•
* *
• F1 »
* *
• •«•
120 DOS/VSE Logical Transients
Chart CH.. $$BATTN9 - LUCB Command Processor
(Refer to Chart 10)
1 (Part 2 of 2)
* *
» POGSTOPB •
• «
•SCkNB2 »D*
»-»- »-♦- »-•-•-•-•
* SCAM NBXT •
•PkHkHETEB KITH *
* LEtDING BLANK *
PUNIOPR X
• SCtliBS *0*
» SCk* NEXT *
• PkBH BITHOOr *
• LKtBINU BLINK •
• STOBB OVBBkND •
• kDDBESS AND •
• DBLIHIIEB •
• •
• •
• BEOUCB LENGTH •
• OF OPERAND *
• TO 10 •
• *
•HOVE OPERAND OH*
* PARI OP IT TO •
* OPRHVALT •
* •
**H1*******
» - •
INCREASE
ERROR EXIT
ADDR BI
* *
.•LENGTH •.
OP 0PE9 * I
0ELIHIIE8
F2 *.
.•LENGTH •.
OF OPE<l *
DELInlTBR
.* DEtlBITEB
•
YES.
. OPEN PARBN
• ..X.
«.
«
•. ••
•• -*
X
• HO
»••••
•CG •
• F1»
• •
•
X
POGOPB
H2' '».
**H3**«****
. • •-
* RELOAD •
.•
•
NO
» POINT* MTH •
. DELIHITER
........
.X* ADDR or
•. • = •
»
• POEOPR •
*. ••
* •
•. .*
• YES
••••
• •
• E2 *
*•••«
•CG •
• D2«
END OF
KEY «ALOE
. TABLE .
••K2*^^**^«
• INCREASE <
MSdRGt TO
ADDB Of
UKYVALAD
• «
•••••••••««
• •••
• •
• C2 •
• ••••
•CG •
• ri»
Charts 121
Chart CJ. $$6ATTU1 - LUCB Coffloiand Processor 2
(Refer to Chart 10)
••••1 t*********
* *
• »»B«TTU1 •
• «
• ESTABLISH
•AODReSSABILITT
• rOR C0H8BG
•
•• DID ••
.* StbATtnS *
*. FliD SIMTtX
*. BRBOR .4
• miTIALIZE •
• BUILDING •
.1* MESSAGES FOR *
• SYKTAI BniOB •
• «
LOOK UP
PUB TABLE
FOB X'CUU*
•SBT APPBOPBIATE*
• BBBOR CODE IB •
• UPBBECOD •
• IRITIALISB •
• BUILDING •
• BBSSIGB FOB *
•SBHABfIC BBBOB •
**««*g2**********
• •
• PRBPABE nove •
•OF APPBOPRIATE •
• BBSSAGE TEBT •
* PBBPABE ROVE
•OF APPBOPRIATB
• RESSAUli TEXT
• •••
» •
• FZ ••
• BUILt HBSSAGB •
• AH» PBEPABE •
•HBSSAGB OUTPUT •
« •
•••••*••••••••••«
• BRANCH TO •
• XBATTNA *
• ■ «
•••••••••••••••
.* IS ERROR •. IBS
•DEVICE HITHOUI.*....
*. UCB .*
• PRBPABB BOVB
.B*OF APPBOPRIATB
• RBSSAGB TEXT
• PREPARE HOVE *
.X*OF APPBOPRIATB •.
• BBSSAGB TEXT •
• PBEPABE BOVB
.X^OF APPROPRIATE
• HBSSAGB TBXT
•••••H ^»m»*m»m»»»
• HOVE •
• IMFOBHATinH •
• FSOn RINFARBA •
• TO IRFABEA •
122 DOS/VSE Logical Transients
Chart CK,. $$BATTU2 - UCB Load Function
(Refer to Chart 10)
* «
» SSBIl'XTU2 •
* «
* «
* B2 •
t*«**B1 **********
*«****«***««****4
YESFOLD .*.
*. 3211
SHI UP
THE FOLD
ecu
* «
•LOAD gEQUESIED •
UCB PHISE
* mrO OCB *
*****ci **********
««*«*«4i «*««**•*«*
* PHEPtfte *
* LOaDIHG UCB *
* HITH THE *
* PoiD ecu *
*•«**•*********««
kHI P1IHI *. KES.
REUUEST .*....
. peSdimg .*
>««**D1*4t« *««***«
* •C0HSE6 »ND * *
» SYSIR TO GET* •
* •ADDRESS OF * *
* *STSDSB LUB • *
* * • *
*•***•***»•******
«**»*[) It**********
» S*VE SYSUSE *
• LOB HkLUE •
• H»VB LUB •
» POUT TO LUB •
• •
«•***•«•«*•*««•**
*••«*£ 1 **********
• *
• COMPUTE PUB *
• DISPLiCSniiNT •
• OF PRINTER •
« *
**««********•*•**
•*e2*******
* •
• SET UP THE
• CHECK OB
• UNBLOCK CCH
* «
«****•*•**«
***E>t«*****«*****
LISTIO CB
*-*-•-«-•-*-*-•••
SKIP 10
* CHAMNEL 1 •
LOAD UCB
*»***•*«*«***«***
«LO*0 DXRECTOSt
ENTRY OF UCB
• PHASE «
>*«*••***«**«*«•*
.* PHASE *.
.* IN C03E *.
*.INAaE IIBBAflY.
.* LENGTH OF *. YES
.X*. PHASE .*....
*. CORRECT .*
*****Gll* «*•*****•
* •
* PBEPABE •
* HESSAGB TO ♦
» OPERATOR *
* «
*««*****•*•*«««**
**«**a5«*********
• PBEPABE 10 *
• PRINT •
» VERIFICAIIOII •
* HESSAGB *
* .*■
«•*«•******>»***«
«*tl1****«*«
k «
SET UP
THE UNFOLD
ecu
* *
***********
«**««H2**********
* «
• PBEPAae «
• MESSAGE TO »
» OPEBATOH *
* «
*«*******«***«*•<
* PREPARE «
* HBSSAGE TO »
* OPERATOR »
* «
*****************
*-*-•-»-*-*-*-*-*
SEND nSG TO
» OPBRATOH *
READ REPLY
****************
PBINT VEBIFICA-
IION HSS SKIP*
TO CHAN 1
***************
*•**
*
* D2
P8XNTER8 X
***J2************
LOGIOH ce
*-*-***-*-*■-*-*-*
PRINT HSSSAGE
• ON SYSLOG •
*****************
* BESTORB *
•PBEVIOUS SYSUSE*
> LUB VALUE *
« *
**«**««******«***
•COMPLETION
«***»****«*•
•***K3*********
t FETCH •
• *»BATTNA •
» 4
***************
**«**Kil**********
* *
* PREPARE *
.* HESSAGE TO *
* OPEBATOa •
* *
*****************
****KS*********
• FETCH *
• »»BATINA *
• *
***************
Charts 123
Chart CL, $$BATTN7 - SETDF Root Phase (Part 1 of 6)
(Refer to Chart 11)
*«*«A2* ********
II «
» »»B»ITN7 ♦
» *
*>**«*«*********
**********
**(;2*******
* PREPARE •
• £BBOB CODE •
• INVALID OB NO
•UNIT SPECIF. *
* •
*****«*«*«*
.* FIRST *.
■> PABAHETEB *. <ES
LENGTH > .*....
««P2*******
* LO*D •
• EBROB CODE
NO PtBAHETER
► SPECIFtED
« 4
***********
DEVABDI? .*.
E3 ».
.* *
.» FI8ST
*
NO
*. PARAHETER
*. . . .
».LEIIGTa=5
*
*. .*
*. .*
i
• KES
*****
♦en *
• B2*
*m***tii* *********
»««*«:«««»
124 DOS/VSE Logical Transients
Chart CM.
$$BArTN7 -
(Refer to
SETDF Root
Chart 11)
Phase (Part 2 of 6)
*****
*CL •
• £3*
DV3800 .*.
COUADOB .*.
B2 *.
83 *.
.* FIBST *.
.* FIBST *.
.* PABkHBTBS
*,
MO
.* PiRAdETEB ».
IBS
*. LENGTH = 3
*. . ..
....X*. LEHGTH = 2 .*
••
*
*. .*
'
*. •*
*. .»
*. .*
*. .*
X
* YES
* HO
••**•
*CP •
* K3*
* *
X
;
•
• ••
x
C2 ♦.
*****C3*********<
• • *.
HO .* FIRST
*
*S«VE PRmUBlB
...*. PABtHBTeR
»
* FORK COU
*. =3aoo .
*
• • .♦
X *. .*
*****««******«*
«**« *
«Cl •
* J3 *.X.
* * .
**•*
CHKIIBIT X
**E3*******
* PBEPtRE *
• SBBOB COOB
. ..X* NO PiRkHETER
* SPECIFIED
* •
***********
.* *. YES
. DBLlnlTER .*.
*. = 'BL«IIK» .*
**G3**«****
* PREPABE «
• ERROR CODE •
• INVALID OR NO *
•UNIT SPECIF. *
* *
***********
«. DBLIRITER
»*J3*»****«
* PREPARE *
' ERROR CODE
NO PARAHETE8
t SPECIFIED
* •
•*•***«***«
*****
*CP *
* K3*
Charts 125
Chart CN- $$BATTIl7 - SETDF Root Piiase (Part 3 of 6)
{Refer to Chart 11)
•CH *
• J J*
» BJ »
••••»e2* ♦♦*•♦*♦»♦
« «
• GET P»SI •
• DeLIfllTER TO »
• KEIHOROS *
• «
• ••• .
•ce »
Knntomo X
*«**«C2** ********
* SCAKB3 *
*-*-•-*-*-*-«-*-«
* SCAR FOR •
* KEXHORDS *
* «
«*«**«*«*«*•*«***
PROCKEl
**BI|*******
• PREPARE
* ERROR CODE
...X* oaPLICATED
* KEIRORO
»***•••«**•
*****C3**********
» *
• mCREHEHI TO *
• NEXT TABLE •
• ENTRY *
• •
»••*••••»•«»**•«•
.* KEXHORD *. YES
ALREADY .*....
•.PROCESSED.*
*****
*CP *
* Kl*
NO .* KEYWORDS *
. NO
•
END OF *
...*. SPBCIPIEB
•
. . . .*
KEYWORD TABLE
• *• • *
•
. «
. *. ••
*. .*
X *. .*
*. .*
*•••* * YES
• YES
•CP •
• Hi*
,
* *
X
•
X
•*•*•
♦ CP *
• Hi*
*****E2»*»*******
« *
«
«
*
* STORK KEYUORO
*
• ADDRESS ARU
*
• LENGTH
*
••*••***••••*••••
«*P2*******
• «
* PREPARE TO •
•SEARCH KEYWORD
• TABLE ♦
* *
••«»*»•«**«
••Q2*******
* PREPARE •
* ERROR CODE *
•INVALID KEYWORD*
*0R PARAHBTER •
* •
*****
•••«*Dl|*****««*«*
* «
* INDICATE *
* KKYNOBD TO *
* BI UPDATED *
* •
•**•«***«********
KEYWORD
WITH
OPERAND
****Fi) •**•*•««•«
**•••**•****
«•«•*•*•«•••••••*
• «**•
•CP •
* a2»
••***
*CP *
* B2*
126 DOS/VSE Logical Transients
Chart CP. $$BATTN7 - SETDF Root Phase (Part 4 of 6)
(Refer to Chart 11)
« «
• BJ *
* «
**B2******«
• l>REP&<<B *
• eiBOB CODE •
•INVALID OPBBAMO*
•OB UBLlnlTER •
* m
.* KBKMORD •. NO
. HITH 1 OR II .*....
*. OPUBIND .•
• •♦
X
• YES
*****
•
♦CO •
NO .* DBIIHITER *.
• •*•
* •
* KJ «
* *
• *«•
• ••**l)2*********
•••••***•******•
•••**B2******«***
* SCtBR3 •
• SCHIi BEIT •
*OPEB*MO BITHOOT*
*LEtOI«G BLANKS •
•••••f 2**********
• •
• STOBE OPEBBKD •
• tOOBESS ABO •
• LEBGTU •
• •
• *••
* *
• KJ *
*****Dil*»******«
*
• nOVB BUSST'I
.1* INTO KETNOBD
• TABLE
m
«***•••*«••**•*•
E3 •.
« *
• ••••El|********««
• *
BUBST - N
*. .*'
•
NO
»
• BOVE BOBST'N •
...X* INTO KBTUOBD •
• TABLE *
• «
• - .♦
» YES
Z
• ***
* *
* K3 »
X
• ••*«F1>**********
»**•**•*•*•••«•••
.X...
X
*•••
RBrEBENCBS, ,
TO CPH2:, • • 1
CNE5. con; ♦ •*
••••
CHECKEBO .
H2
.* OELlnlTBS
• •«•
• •
• H2 •
• •
• **«
>•«*««*«*•*
**»*K2*********
• *
* SBBATTSI •
«*H3*******
• PBBPABE •
• EBBOB CODE •
.X*INfALIO OPEBAHD*
•OB DELIBITEB •
• •
••»••**••••
J3 *.
.* *.
• •
.• DELIBITEB *. lES
• GET RBXT •
•• *"•' .♦»......
.X^ KBYHORD •
• • •
*. .*
• *
•. .•
* *
^
♦. .*
*•*•••«•••**•*•••
X
• NO
•••••
»•*• •BBFE8ENCES
*C» •
• * -TO CPKJ: CHCt,
CND2
• C2*
• • •.X.CLg2, CLP2CN03,
CNH2
• •
• • -CLbI; CHBJCQB2;
•***. •CBC2^ CBH3C8D3
CQG2
*
L0ADBBK1 I*-"*-"
••R3^^*^***
* •
****Klt* •**•••••
• PBEPABE FOR •
• •
..X* ERROR PHISR *
.X* SSBATTS2 •
• •
• *
* •
•**•«*•••••
*•••
•
K3 •
•
• **«
Charts 127
Chart CQ- $$BATTN7 - SETDF Root Pfaase (Part 5 of 6)
(Refer to Chart 11)
»CP *
* B3*
TTPifOMB .*.
B2 ».
• • *.
.* OFBRAMD
• ,
IBS
*. LBMGIH >«
♦
•• .
• '
• • .♦
*. .*
X
• NO
*****
*«•«
*cp •
• •
• K3*
• c/ •.X
« *
* •
•
• **•
SEARCH X
**C2******«
•
*
• PIBBkBB TO
«
• SBABCH VALI-
•
• OITY 1
r«BLB
«
*•••••••**•
.* CHABtCTSB *. IBS
. BATCH III .*....
*. TABLB .*
DJ *.
.• ALL *.
.•CHABACTBRS *.
.1*. IN OPBBARD .
•.fBSIFIBO .*
••*»•[)«**•••••«••
• •
• IBCBBHBBT •
I* TO RBZI •
• CBABICTBB •
• •
••**«••••••«•««••
»****B2**********
« •
• mCREREMT •
» to BBII •
• TABLE BNTRI «
• •
BUD OF
VALIDITI
. It BLR
* HOfB OFEBABD *
* TBLOE INTO •
* KETBORD TABLB •
* •
*•••••«*••••*•••*
**»*P3*********
■••»•••*••*••••
**e2*******
•LOAD K8S0B *
•CODE IHfALID
• OPBBABD OB
• UBLIBITER
• •
•«•••••*•••
*•*•*
*CP •
• H2*
*»♦*»
•CP •
128 DOS/VSE Logical Transients
Chart CR, $$BArTN7 - SETDF Root Phase (Part 6 of 6)
(Re£er to Chart 11)
* •
• HEXCOII *
••B2*******
•••••••*•*•
**C2*******
••«••*•***•
•.CHkRACIEHS
•. 10 .•CHAKICIBRS'*. HO
.* I*. DIOII 0-9 .*...
• ••*•
**B2*******
• •
INCBBREIIT
TO RBXT
CHABICTBR
• «
**a2******«
• EOIRT *
BRCK TO
BBGIBBING
OF CDO
• **«*|12**********
• PACK CUU «
» TO 2 BITE »
• HEX cnu *
****J2******«**
* •
> RBTUBN •
* •
Charts 129
Chart CS^ $$BATTSil - SETDF Update Phase (Part 1 of 3)
(Refer to Chart 11)
« «
> StBkTTSI *
• *
***************
.* 3800 ».
.» SPECIFIED *. NO
••AS DEflCEITPE.*...
*****C\**********
«••*•***••»*•****
»****01 **********
*
GET HEX *
CaU F08 *
PUBDTE •
*
****************
•***«**«*«****«*
****Q-i* ********
• »
► StBATTN? *
* *
***************
DEVICE
TYPE=
3800
•*D2*******
«
IHCREBENT
I'O NEXT
PUB ENTRY
EHD *. NO
OF PUB .*. ..
ENTBIBS .*
•♦F2*******
* PSEPADB *
• EBSOR
* CODE INTALtD
• Oa KO UHIT
» SPECIFIED *
***********
.* HAS •
AT LEAST
ONE 3800
. FOUND
PUB COU='
SPECIFIED
CUU
*«DJ*******
k *
INCREflENT
TO NEXT
PUB ENTRI
* *
***********
END
OF PUB
ENTRIES
**j/^*******
*LOAD EHSOH *
► CODE
UNKNOMN
» DEVICE
* ADDRESS «
PUBFOUHD
*«C4*******
• P8BPA8B
* E8R0B CODE
...X* DEVICE MOT
* A 3800
***********
*****************
****fH*********
* *
* SSRATTN7 •
» *
***************
**H 2*******
* *
PDEPARE
FOR ERROR
PHASE
* «
***********
*****
SEKEHENCBS
TO CSH2:
CTE2, CnE2
***************
130 DOS/VSE Logical Transients
Chart CT. $$BATTS1 - SETDF Update Phase (Part 2 of 3)
(Refer to Chart 11)
• *
* PUBUPOTB •
* •
• *
• B3 *
• *
• •••
* FBEPkBB •
• ERROB CODX •
•SETDF F&ILEO •
• *
• •••«B<I*******«**
••••••»***•*«**•*
>****C1**********
*****Cit**********
»•••**«•*•*••«••*
•******••••»•••••
* m
* ISSUE EXTRACT *
* BiCRO TO •
* COPT PUB2 *
* *
m «
• BOVB PCB •
I* ViLUB IBTO *
• THE PDB2 *
• «
• GET DEVICE •
(• HUHBER FOR •
• SETDF FAILORB *
• •
«*«**Eit*****««««4
• «
• HOVE CHIRS *
I* VALUE IMTO *
« THE P0B2 4
« «
*****F1 ••***••••*
**••••••*«••*•*«»
*****F<t**********
• •
• HOVE HODIFY •
X* VALUE INTO *
• THE P0B2 *
• *
* «
* HOVE FLASH •
t* VALUE INTO •
* THE PaB2 •
* •
• •*«*){ t**«««*****
«•*•*«•**«•*••••«
• *
* HOVE FOBHS *
IC* VALUE INTO •
• THE P0B2 •
* «
••***J 1»»»»»**»»»
•cu •
* B1»
*****************
Charts 131
Chart CU, *$BATTS1 - SETDF Update Phase (P^rt 3 of 3)
(«5fer to Chart 11)
**B 1***»*»»
* *
• PHBPARE
ERROR CODR
»SETDF FAILBU
***********
*iii*********
****************
*************
*****Q J **********
* *
* issue hodctb »
* hacso to *
* update pub2 *
* *
*****************
¥**********
*****tm********
*****************
****tF1 *********
***************
GET DEVICE *
NUBBER FOR *
SETDF FAILOHE *
*
f*****^ *********
*****
*CS *
* H2*
.* 380O *.
•* SPECIFIED
». FOR DEVICE
*. TlfPE
****Q2* ********
* 4
« BETUHH •
****H2**********
COHVEBT PUB/! *
HEX CUU TO *
PRINTABLE CUU *
* BOVE PUB2
* DEFAULTS TO
* OUTPUT AREA
*
***************
* BOVE LIST *
* OUTPUT IMTO *
* BUFFER *
* *
*****************
**S3*******
PREPARE TO
OUTPUT LIST
MESSAGE
* *
***********
»**H3********
$«BATT(tA
*************
132 DOS/VSE Logical Transients
Chart CV. $$BArTS2 - SETDF .''Irror Phase
(Refer to Chart 11
*«**A 2* ********
* *
» *iBirTS2 »
* «
***************
* PBEP&TE
» TO SEARCH
* E8R0R TABLIi
•*B3*******
fe
PREPIBE
to OUTPUT
HESStGE
*CaDE BATCH
III EBEI08
». TABLE .
***t*ci*********
*
$»BATTNA •
*
***************
*************
'***E2**********
INCREMENT *
TO NEXT *
TABLE ENTBJ *
*
»•*****«*«****«*
END
or E8H0B
. TAtlLE
♦*G2*******
«LOAC ERSOa *
» TABLE TO »
FOBCE INVALID *
> MESSAGE «
* CODE *
***********
• MESSAGE *. NO
WITH .*...
». FILL-IN .*
•»******•«••
Charts i133
Chart DA^ $$BEOJ - Terminate Task and Initialize Partition (Part 1 of 3)
(fefer to Chart 12)
k *
* tSBKOJ *
» *
* *
« B3 *
• RESET IIOCS *
•OPBN mOICHTOR *
» AND PCH •
• CONDENSE *
• INDICATOR »
*****oi*** •*••••«
«*«•***«**««****«
• «
• LOAD PIB •
. X*FBOH BG COHBEG <
• INTO RA •
• *
.*TBR8INAT0R *. XES
>. ROUTINE .*....
♦.CANCELLED.*
**•**»•**«••****•
* HOVE CANCEL *
.1* CODE - X'80" *.
* INTO HESSIGB *
* •
*•*•*•••*••«*•••«
•••**D5*****«****
•HSSOUT DC*
.X'OUIPUT HBSSAGB •
• 0P91I •
• •
•**»*f 1********»»
• •
• POINT TO PIB *
•OF TBRHIIIATIMG •
♦ TASK *
* •
*
• B3
«CONVBBI CANCEL *
X» CODE INTO •
• HESSAGE *
« *
*****gl|***«**«i*«*
• •
« RELEASE ALL •
I* BESOORCES *.
*0«NED (SVC 6I») *
• •
* DETACH •
• (SVC 39) *
•*»**H1**********
• LOCK CE ♦
• APPENDAGE *
•ROUTINE AND CE •
•APPENDAGE EXIT •
• •
••*••••**•«••****
•«*•*••••****•**
*»*«*G2** *••*•*•
«
* HOVE CANCEL
* CODE INTO
* LOM CORE
•
••••*•***•••••**
****H2*********
• HABOHAIT •
» •FDO' «
¥ *
»DB •
• B1*
•ACTIVATE SYSBES*
• DASD FILE *
•PROTECT AND SET*
•CANCEL BIT OFF •
• IN PIB *
•*«***•*««««««•••
••***K1********
•
• BPSLOAD
• CLEAN UP
• SPS TABLE
•
*•••*•••*•*••••
134 DOS/VSE Logical Transients
Chart DB.- $$BEOJ - Terminate Task and Initialize Partition (Part 2 of 3)
(Refer to Chart 12)
» At •
****
EXTBACT
PARTITION
bOUNOARIES
*RESEI JCL OPEN •
• INl;ICAr08 *
♦ -jcsm- *
mOXCATE
£NU OF
TEBHINITUH
eOUIIKES
INDICATE
•HO FUEEVIS
DONE*
• *
f SUNNING
IN VISTUAt
*. RODE
*****B<t*********«
• BBIUBN •
• VIA SVC 11 »
t «
*****C1 *•**••****
•*C2»*****»***
****««**«««•*«««
«**»•***•
*««4t«[}l*««« ****»«
•****••**•«
***D 2* *********
*«*««««***««*««**
«**»*CU**********
**«*««**«**
a£AL370 X
*«***D5**********
* POINT R^ *
* TO PBEGIN •
* AND Bi TO «
* PBNDLOG •
**««*B1*«« *******
* *
* POINT 811 *
* TO PABTITION *
» C0H8EG •
* 4
*****************
***«*g 2* ********
***«*E'4* *********
* *
* HOVE PEBBII *
*AliD SXSTEN HASK*
* IN PSN •
» »
*»*«*•«***«*****»
«****p )****«*«**«
***pit***«******
»»***F5**********
**«**•»•»*
*«**«****»*«*«*«*
««G1*******
«**««G2**********
* *
* ♦
* F8EEVIS ALL •
««***«*«««*
»*********«**«
*«*****«****«**«
«*«««H2**********
**«HU*******«**
**H5******»
>********««**«
**«*«*««»*«
«»»»*j 2* •*•****«*
m *
» RELEASE ALL *
• BES0U3CES *
• 0»NED (SVC 6l») *
*t******^****
*«*«*KU**********
* ♦
* STORE NEK *
* SAVE AREA •
* ADDS *
* *
AS *
«***
*«*««J5««*««****«
* ♦
* PEEVIS ALL •
Charts 135
Cliart DC. $$BEOJ - Terniaate Task and Initialize Partition (Part 3 of 3)
(Re£er to Chart 12)
* ' a
* HSSOUT *
* •
**«**B l*********:
*•••«•**•••••••*:
••••*C1****»«****
•*•••••**•*•*••••
*
• HOVB HESSASB
• TEXT TO
« LGLINE
•
*••*•£ 1**»***«***
••••*•••****«»•«•
TASK'kTTH .
. BOUXIHB .*
• ~ •
• BESBT CATIL •
• tND SUPVB *
• SHITCH IH •
• JCStl2 •
* *
••••
i
DISKBTT .*.
.* *•
YES .* EKO
...*. OP BZTEIT
*****B3«********
•
• RBLOCATB
• kOOB OP
• 1ST ecu
•
• ••*4ll***«»««»*
•••***••••««•••
**«**B<I**********
* •
* LOIO CCB •
* IDDB IB *
* BEGISTEB 1 •
* •
****D3****«****
> BBTOBil «
* TO C&LLEB *
t •
••••••*•••«««*««•
•••••Ob*********
* SVC 103
••••••••••••*•••
•••»«e2******«***
•*«•••*••••«•••*•
P2 ».
.• IS *.
.* SYSLST *. IBS
. k PBINTBB .*....
•••••F3«*****«^^*
• PICK UP CC» ♦
• ADOB OP •
.1* PRINIB8 CCM *.
•*••••««••*•*••••
• •••
* •
* K2 •
* •
• •**
•••**H ^••••••••*
••••*•••*••«••••
TPTlfPB .*.
FGUST .*.
G2 ♦.
G3 •.
• • ♦.
.•IS *
.•
*. MO
.* SYSLST
♦
*,
*. .♦
• • •*
*. .♦
*. .»
• IBS
• NO
• •«•
,
• * .
• U2 ».X.
,
• • . ■
• ••« X
X
TPTKPE1 .*.
DKIYPB .*.
H2 *.
H3 *.
.» IS *.
• •IS *
.* SYSLST
*. NO
.* SISLST
*.
•
♦ . .♦
*. .♦
*. .*
*. .*
♦ YKS
• NO
•••••••••••••••••
••••f !!•••••••«•
• BBTOaH TO •
• CtLLBB *
• •
•«••••••«•«••••
• •
• RELOCATE •
(* CCM ADOB *.
• IH CCB •
• , »
••*•••**•**«•••••
•-•-•-•-•-•-•-•-•
(• •
• SBHSB •
« •
*•••••*••••••••••
.* SYSLST *.
EXTENT
*. PILLED .*
•••••••••*••••***
• •••K ^••••••••«
• BETORN •
• TO CALLER *
• *
*•••••••••••*•«
• PICK DP •
• ADDR OP •«
• TAPB-CCN •
• •
•••••••••••••••••
• ••• I
• • .
• K2 '.X.
• * .
• ••«
CCB X
•••••K2^*********
• •
• BELOCATB *
• ecu AODR •.
• IN CCB *
• •
•••«•««•«•*«•««••
J3 *.
.* IS ••
• SYSLST *
AN PBA DISK
• •**
» •
* A3 •
• *
• •••
•••••••*«•••*••••
•••••Ji)*«*«**^^^^
• •
• *
• HOOIPY CCH •
• •
• •
•*•••••••••«•••••
I *•••
* *
..X* K2 ♦
• •
• •••
• •••((((••••••••^
* BETUBN TO *
* CALLBB «
* «
•*••••••*•*•••*
••••J5****«****
• RBTUBN TO •
• CALL8B *
• •
••«••••••••«•••
136 DOS/VSE Logical Transients
Chart DD- $$BE0J3 - Decide Next Step in Termination Handling
(Refer to Chart 12)
• SSBE0J3 •
> •
k *
SET UP
TO PBtCH
SSSOJ
* •
IJBEJ33!i X
• POINT RRG V •
• At BG COHBEG •
• BBG 8 tT BG «
• COHBEG •
• eXTENSIOIl •
• •
• •
• •••
SUPPORTED
•••••E2**********
•»***l{3*»»*****«*
>••**•••••••*•••«
•••* *•*•••••*••*•
* sk»E ID m *
» BEG 7 FOR •
* SSBECJJk *
* «
•«*»*G2******«***
• •
•CkLC PIB ENTBI •
• OF FIBTITION •
• OMIIING LIA •
• •
• Duap »
HkCBO IN IB
'. ROUTINE .*
**J2*******
• TBRHINATOB
• BIT *
**J3»*«****
* SET UP TO »
FETCH SSBTOLTP*
• • SEE OLTBP «
PIH *
• *
* •
SET UP
TO FETCH
SSBEOJit
• •
**««K2******«**
» SVC 11 »
' BETDBN TO *
• SUPEBVISOH *
(•**K3*********
FUTCU NEXT «
PHASE «
Charts 137
Chart DE. $$BE0J3A - Quiesce I/O for T/P Devices
(Refer to Chart 12)
♦ -jisr Jt ♦
» smcoti »
« «
****** ***^****m*it
• *
• LOAU Hr;G b ♦
» mm ADDatSi, •
• OP WBOWKjifi »
• UULi! •
« *
* STOBi l-XK 1» *
»CLi i!lS'faUCTiOi<*
* *
lliiSATi X
*****A^******^*
* Aoa I iO Al
* {i(0 ;>!' iUli
«*4>*««*«*«4tifr««*««
« 4
•Si'OBi, BAiH tiK «
» Of 'laSK IM •
*CLI INSMUCtiO.i'
r**a %**********
POIW lifiG b ♦
AT PHOPia ♦
LUa XASLi ♦
(SirSTBH i-uk) •
^«*«« ***********
• con WIS flK ♦
• VAiUE 10 •
• coHRtaeou uiMi *
*PUtlOll KliK lABLc: «
• XII HEG U *
*****************
*****^ \*****^****
* *
* Ol" RtG Jz •
* w rn ■•
• Gff 3i-4t(l;il»t, *
• lAiiii la a<* •
* siji h; ^ •
* .iliiOa 1 •
*****************
***** i^S*********
* * SKC J •
♦ ♦OXjABLii Xiii*
• ♦JiiViC£ A-^J •
* • 4AXr fOH ♦
• •coAi'j.ai'Xuji ♦
• iSGXSXcia 4 <
♦ fo i»oxnr I'j <
*****i^i****^**** t
* Aul) i; Xu •
* HliUXSTia o »
* XO l-OXaX xa «
>a£XX /rJS OriNl^li <
» TaBl-i. •
• ♦ SJiXii Tat. • •
» • iiSXBlS • •
• ♦JXbAil.S i/0» •
• ♦XMXt.iKUfXS * •
• • • •
*****************
**** *
• • ,
• • .
**** i
*.lllii'Alll UcViC!^.*. .i.
♦- .*
"»".10
• iO Xiila *
+ *
*****************
*****i^^** ********
* SEX UP CCr •
• AlJi)aESb in *
•StGXSlBH I AJ!> ♦
♦ COli «DD«u.ib ♦
• la COc •
ISS .* DL«XC£ OK
«*«**£; j*««*» «• 4
**************** ^
*****fj**********
* sax OP siscoA *
* POiaXia. ti£i *
*****\^ti*** *******
* uHT *
* CCa yOlBtzit *
* CJ-iAo ♦
* UXl>o OHuhu *
* •iitm *
*****************
. * CCB • .
iM Xlllb
•.iTAhxX'lioa.*
««««*tiit**« *«•*•**
IfUtiPUAXc ^
« POINT XO »
* M^XI ctliiNMtL *
* Utl£U£ KbXiti *
• OPOAIE fl-tXP •
• •
*****************
*lfOl»I dt-ti J AX
> CdANw AUUlt
> li£'X CUiittiiCX
* CUAKU j::ili'ill
.» «liwOr,SX
♦ .
«U
. i^Oa XuXii
•••• •
♦. XAiV .♦
,
•• .♦
,
•• •♦
A
• Kits
«•«•
• •
**iii>**** ******
UA^X X/u • *
i ^XjAti,t
v:i.A^:^ .
***** a i******t **
* ton viHroAi.
.* PAk'XIXIUK
* tyOakaAHHS
*
****************
*»***bi}*** *******
* * * *
* * SKI. ^b * *
* • aAX.X I/O • •
* • * *
* * * *
*****************
* AOIB uaiL 4
• PAiiTXTXoa 4
• aoUHDAiiXEj '
* 4
**************** 4
* CaAMNiiL wilbUii 4
♦ iJMIiiX i-oxax 4
« ANU <
• nSGXSXiH O 4
• • diiLcA^a * *
• * SiSlfca * ♦
• »l!JiAsl.i. I/O • •
• *III'Xi:.ilKUll'S • •
• * * *
*****************
• iiX u» •
• l-O fttct. •
• **Bi.OJft ♦
« «
*****************
* ***!in*********
* iiatOti't *
***************
138 DOS/VSE Logical Transients
Chart DF,. $$BE0J4 - Clean up Non-TP I/O Devices (Part 1 of 3)
(Refer to Chart 12)
• *
* A3 •
* «
• •**
» •
> »$BEOJIt •
* *
kTIEMTIOII .*....
T»SK ••
* * SVC 6lt * •
* •BBLBASE ALL* *
.1* • RESOURCES • *.
* • OHMEO « •
« • * *
«BESEXII DH*
BESEt USBB •
» EXITS •
• •
. x»
SDPEBVISOR
• •
• LOAD UK •
* FBOB SISCOH *
♦ IBTO KA »
««««B 2* ********
* S»C 2 FETCH •
* tSBEOJ *
* «
»••*•***•••**«*
•*«**C2**********
m *
* LOAD PID FBOB •
X* BG-COHREG *
* IMTO RA *
* *
«**•*«*******♦«**
HSTXBCB X
••'***B1**********
• BESET XBCB *
• EHTBIKS *
• OCCUPIED BY *
• lERBItlATIMG •
• TASK *
• CLEAB LIOCS *
» BYTE IN *
• COBBEG *
• •
*****************
»«**•«•••••*•«•«*
•••••B5«*********
* •
* HAKB ATI* •
* INACTIVE •
* IB PIB TABLE «
* »
*****CS****«*****
* BESET CABCBL *
« CODE, TASK •
* CABCbL rLAGS. •
* AND ATTN •
» SBITCHES »
****DS*********
* SVC 11 •
* RETOBI •
* •
SUAUTOCL .*.
* HAINTASK *. YES .* VSAH *. NO
TEBNINATING .* X*.AUTOH. CLOSE .*...
*. .* *. DISABLED .*
«**»F2*** ******
* SVC 2 FETCH *
« *»BPCLOS •
« «
• SVC 3 DEUUBUE *
*ALL OUTSTAMDIRG*
• I/OS *
• *
••••*P5»«**«*»«*«
•*••••*•«••*••••«
«*««*G1* *********
* *
* CLEAN UP CRT *
* BOFFER FOR *
* PARTITION *
* *
.» DTP'S FOR *. YES .* TASK
*.HICB SUPPOBT .* X*. USING HICB
*. .* X *. DEVICES .
*****|1U«*********
, *
*. UPDATE .*
,♦
*. .*
*. .*
*. -*
* NO
* YES
X
* •
X
* »J *
BASUAII .*.
* «
J2 *.
****
.* *.
YES .* RAS *.
HO
...*. ACTIVE
*..X
*. . *
*. .*
*• .*
X
»
« «
* A3 *
* *
«4
**
>«*•****•*«*•••*•
*****•**•***••*••
*DG *
* A1*
*V«**GS««««*«*«**
••*«•*•••*•«•••••
****HS*********
* SVC 2 *
* ttBACLOS *
* «
Charts 139
Chart DG- $$BE0J4 - Clean up Non-TP I/O Devices (Part 2 of 3)
(Refer to Chart 12)
KH *
****B 2* ********
» FETCH •
« iSBBOJ •
» * «
«***********««*
•rOB HHITING
THE CANCKL
HESSAGE
**««*C1* *********
* CHANGE •
* 'PHASNAII* TO *
» *$BE0J7 *
* (INITIALIZED *
* lIlTH JtBEOJ) •
*****************
D1 *. •***«ij2*********
.* IS *. *
. * ESEP TASK *. IBS * BESET EHEP
ENDING .* X* ONNEBSHIP
». .* * FLAG IN SFTAB
*. .* *
*. .* *«««•«******««««
• NO
l'. '.
Ix '.
X
fl .*.
El *.
.* IS *. »«»»E2*********
. * POHEB *. KES » SVC 2 FRTCH
. PAKTITION ..........X* StBPOHIN
*TE88IN*TXNG* *
*, .* ««•*»•«•«•*«*«*
*. .*
• MO
* LOCK CHANNEL *
* APPENDAGE *
I* EXIT IN PI8 *
* TABLE *
* •
»•*****«*•*******
**««B3**«***«*«*
* SVC 6<t * •
•RELEASE ALL* *
* RESOUBCBS * •
* ONNEO • *
* * •
***•*•*•*******«
****CJ***»*****
» SVC J9 «
• DETACH •
•> *
*•**•*****«**•*
.* PARTITION *. ItES
*. SPOOLED By .*....
*. POHEB .*
****************
.* JOB *. NO
*. ACCOUNTING .*...
*. SUPPORT .*
*»«**H1 **********
• *
• BEHOVE PIK •
•F80H ACCOUNTING*
• TABLE *
« *
«•*****«****«***«
CAKCiiLCO X
• HOVE CANCEL •
• CODE TO ACCT. *
• TABLE IF 1ST •
• TIHE THROUGH *
• CANCEL *
*****************
••***B<t**********
* «
* POINT TO *
* FIBSI STSLST *
* DIB *
* •
***••*******•*•**
AGAIN
.* IS LUB
*. UNASSIGNEO
•OB IGNORED.
* FU •
« *
• ••*
• *••
* *
• F<» '.X
• •«•
NEXTDIB X
• *
• POINT TO *
• FIRST STSPCH •
• DIB •
• *
*****BS******^*^*
******«««»*»«*«•*
UNASSIGM
THIS LUb
Evxax
****«*♦*«**•«
SISPCH
ALREADT
CHECKED
«***
• * .
• H« '.X.
.•POINTERS.
.•TO TRACK - *. N
•. HOLD TABLE .*.
*. AVAILABLE.*
****H5*********
• SVC 2 FETCH *
• 'PHASEMAH* *
• • •
•**«******««*««
*«$BBOJ OB SSBE0J7,
DEPENDING ON RESULT
OF •RFCHBCK'
140 DOS/VSE Logical Transients
Chart DH, $$BE0J4 - Clean up Non-TP I/O Devices (Part 3 of 3)
(Refer to Chart 12)
• «
* >
••***A I*** ••• «•**
*•*•*•••**•*•*«••
• tOLta fiD lO •
• PtSl'IIlOHS *
• SISLDB AMD M *
• ro POBT«B •
*•*•«•«
»•••«**
*»»»*i3**» **•»♦*•
•«***« «•*******« <
* *
* CLE&fi ccnaof «
* *
» *
• *
«S1'XX PC. CLftAU •
•PC liBli £IITBt •
• •
IBS
.•
BUD OP *.
• -••
,
tOB BBACtiEO .*
••
*. .*
*. ••
••*••
• MO
•JXS *
• H5»
,
• •
•
,
FETCH
4
* B
I •a.
•
• .
«*
'• 1
0EI.IH2
-••
£1 *.
■ • •-
.»
niiAB
*. INDIX POOND
NOiiOLO
«IliCBEll£HX BB 10*
*»Btt POB nitm •
..1* h»D IMCBEASE *.
* POB IHSHLX *
* «
••♦•*D J** *••♦*•*
♦«*«««••*«****«*
*••*
* HO
* «
• J5 •
• •
•*«*
PSA X
X
•**«*DI| *****•*•««
m*** *Db********* *
* «
«
«
• 0UXI.D •
• ST XI
X> CJ.i!AM •
* FilA
ecu *
♦IT
TABlJl i.H'^ltt •
♦♦««««*««***
««**«P1« •«••••••*
• POIMT B2 TO ♦
• COB BENT ABO «
« Bb ID BBR *
• THTAB EllntI •
« «
*•«****•*«•*«**«
«*««*f j**«**«*** «
•*#**«*«*«*4i*««««
**«* *••
• THAna CAac&j. •
• CLJiAH TXJ.atH •
• tBTjiX *
•♦♦♦♦y5*»**
• poiirr 82 lo •
I* HEX* lalAB •
* tHTUt •
♦ •
*. BAXA'ifiJK
• •
• ZEBO •
• 1-h-OODNTEB •
« •
X
• «
• A3 •
• *
• El •
•**»*dS»*«*
• • .*
• •*• ■
kSSext '.
X
• . JSIOJIJI •
Z lO CAiLBB ;
Charts 141
Chart DJ. $$BACLOS - VSAM Automatic Close (Part 1 of 2)
(Refer to Chart 12)
* tBiCLOS
S*
****
* B2 •
> «
» B3 ♦
* *
• •*•
• *
« B« *
* «
• *
• UELOCkTE *
• ADDRUSS •
• COHSTANTS »
• •
*«*««(;1 **«***«**«
*****«*««****«*««
*«*«*l>1**»»***«*«
****«**«««***««**
• *•••
»0K *
• B1»
RETURN *. NO
CODE IN .*...
R15 .*
* *
* TBAHSLATE •
* ERROR CODE *
* i?08 BESSIGB •
* *
*mmt*m** *********
********
*****************
****Qn*********
» s»c 2 •
* SSBBOJit «
* *
***************
****
* *
• Bit *
» •
««*»«£2**«*******
»•***£ j**********
*****************
*****************
•
*«** ,
*
• UK * .
♦
♦ J2 •.X.
• * -
0&L2A X
«***l*p 1*««*«*««
«*
«*«4t«p2*********«
*
*
* «
* LOAD NEXT
m
• RESiiT ACLOS AND*
•SEGKKNT PTK *HD*
♦ ACTIV FLAG *
* ENTHH NUHBBH
*
* «
*****************
*****************
*****(;■{**********
OALi X
*****(i2**********
VULLLOG OK*
****************
*****************
* HI *.X.
* ♦ .
»•** X
***********
****
* Bi *
♦ Bl »
* *
****
142 DOS/VSE Logical Transients
Chart DK, $$BACLOS - VSAM Automatic Close (Part 2 of 2)
(Refer to Chart 12)
*****
*DJ •
* U/*
***•
*
* B2
****tlt******»**
> •
* •
••»•**•••«•**•*
*«*******«**«**«*
•***B2*** *•*«**•
OALLDG X
***B(|«******«****
HBITE
• RESSISE •
«227I OH
* SISL06 •
*•***•••*•*•*«*««
* LOUD ACB PTR »
* *
* *
*****************
AHBL
AODBESS
VAtlO
ACB *. NO
ADDRESS .*....X.
VALID .*
*****(] 2* *********
* * * *
* * s»c b^ * *
* • BELBASE • •
* • ALL • *
* * * *
*****************
»***E2*******
•**f1* *********
*********
****F2*********
» SVC 2 *
• SSliCLOSE •
t *
***************
***pi|*****»***»«*
SKIP TO
• CHAMIIBL 1 •
SISISI
*****************
**«*J2********
****
* «
* B2 *
***G4 *••***•*•••*
PRINT
• HESSASE •
«227I ON
* SYSLST •
****«•«****»*»***
****H1**********
***«H4*********
* BETOBN VIA •
* LINK RES •
* t
•**••*••••*•***
Charts lUJ
Chart DL. $$BE0J7 - Tape and Disk P0B2 Processor (Part 1 of 3)
(Refer to Chart 12)
* *
► STkTOO *
• •BE»D (SVCOl* •
• *SRR08 StATS* •
• * AND MIT » •
• •(S»C7) FOR • •
• COHPL OP I/O* •
*****************
SIATOS
*•*••(; I**********
• STIIT20 DL*
* kCCUHULATE *
• BYTE BYTES- *
* BKkO COUNTBB *
******««*«««**««*
4t**«*D }**********
•St»T25 DL*
»-*-*-*-*-*-*-*-*
• HCCUNOLkTE •
• BYTE D»TA •
• CHECK COUNTEB *
*«**•«***«***«*«*
«••*•£ I**********
•STAT25 DL*
•-•-•-•-*-•-*-*-*
• ACCUMULATE •
• BYTE SEEKS *
• COUNTEB *
*****************
*****f 1**********
•STATJO DL*
*-•-*-»-•-•-•-*-*
• ACCUnULAIE *
• BITE SEEK *
• BftBOS COUNTEH *
**«****•*•••**••«
* ACCUHULATB *
* BYTE OVBBRUN •
* A COUNTEB •
***••«**•***••*«•
* ACCUMULATE *
* bYTE OVEBRUN *
* a COUNTEB *
*****************
****
* *
• B2 •
**************** 4
• »«*«I)2**********
• GET OS DEVICE •
♦TYPE CODE NITH *
• GBTVCE (S»C 99) «
• *
*****************
■'«*»E2**********
• BEQUEST • •
• ISVCII<t) • *
«SYSBEC SBC * •
• NAIT ISVC7I •
.* J330 IN •. NO
• .COMPATIBILITY.*. ..
*. MODE .*
•***«U2**********
» C0NVB9T •
• MODULE ID «
• FBOM *
• 1/a TO 3/6 •
*B5
tftS LOGIC FLOV POI
SrAt20
STAT25
*B5 •
*
STAT30
*•««**«•***••««
IS lOEiTICAL.
••••Ci(*****«***«
ADD COOKTEBS •
*•••••**••••••••
••**«B<I**********
• •
• STOBE COOMBB *
• AMD POUT *
• TO NEIT *
• •
*****************
* SET TO
* BECOBD
* COaNTEI!>
****************
****-sn*********
* REYUKN TO *
* CALLER •
* «
•••**••••*•••**
*****H2*******«*
*
* PUT
* MODULE IE
* IN PUB2
****************
••♦» J 2* ••*♦**♦*
MOVE COUNTESS
TO PUB2
ENTRY
***************
t********
144 DOS/VSE Logical Transients
Chart DM. $$BE0J7 - Tape and Disk PUB2 Processor (Part 2 of 3)
(Refer to Chart 12)
» «
• S$BE0J7 •
ItklNOU
♦ SET »
•tOOBESSABILITI *
• AND INHIBI'C •
•FILE PHOTECTION*
* *
••*•••**»•***•*«
SUPERVISOR
»»m»^B^**^*^****
*•*******<•***«**
**«««f )««•«««***«
• Bt •
« •
• •**
• «
• kSSGH SYSUSE *
» PUB ARD PUT •
• IN CCB »
» *
GET ID OF
PtBTITIOM
OtmlEU LTA
• SET MASK FOB *
* TEST AT •
• --IIAIII05- •
• •
• ••» I
* • •
» G1 *.X.
* * .
• *** X
HAINOS .».
G1 ♦.
.• DOES ♦.
.•ACTIVE TASK*.
•. Olill THIS .«.
• • •
*. PUB ••
,
*. •*
*. •*
X
• YES
♦ **v
* •
» Ett •
* «
***•
*****||t ••*««*••••
• *
• HAP TO P80PEB •
• PUB2 BNIBY •
• G2 •
(i2 *.
.* *.
• .HO
3510 ......
DO *.
•••••DS**«»«*****
• • *.
•STAtOO 0L»
.* TAPE •. YES
•-•-•-•-•-•-•-•-«
*. DEVICE .*....
• 6BI DISK •
*. ,* ,
• STATISTICS •
*. .•
• *
♦. .* X
• NO *••••
EKBaBNCEs"**. • *»; *
MU», DHK3? • ••X. * •
(lilNtO X
•••**E4**********
• •
•UPDATE TO 18X1 •
..X» POB 'X......
* •
. * *
•*«*
• •
* El •
• •
•*•* ,
•••••pit**********
• •
• UPDATE TO •
•ASSOCIATED POB •
•OHNESSHIP EITBY*
• *
••••••*••••••«•••
Gl»
».
*. END OF POBS .*.
♦. ••
*. .•
'•'yes
••••
• •
• G1 *
• *
• ••*
•«*••••••••••*•••
•••••••••••••••••
•••*»j )•»•*»•••••
••J2*^^***^
•««*•«•*•*••«••«•
••*»•*•*•*«
••«••••••••••••*•
• 02 •
• •
• •«•
• ••*KII«********
• SVC 2 - PETCa *
• S*BEOJ *
• •
•«*••••••••••••
• •••
* •
* •
«*••
Charts 145
Chart DN- $$BE0J7 - Tape and Disk PUB2 Processor (Part 3 of 3)
(Refer to Chart 12)
• INlr EXIT li *
» PUB2 TO C'RD* •
*«!ID CLEAR PUBZ *
* URSOL BIT •
• •
• NO BECORDIH'i •
• UPDATE TO •
• iEXT PUB •
• •
EBB08
COUHT
» 'EXCP (S»CO»»
• •SEHSE I/O ♦•
» •WAIT JSVC?)*
» * FOB •
• •COHPtETIOE »
• CLBAB
• STATISTICS
• AMU FLAGS
• III P0II2
• BE »
» E«»
•••••
»DH *
* E<»*
BUILD
TAPE
BSCOBD
•••««G3«»»»***««
• »EEQ IS»CH«»»
• •SISREC BEC •
• *IIAIT (
• •FOB RE
• • CORPLETE
*«•«**••• '
146 DOS/¥SE Logical Transients
Chart EA. IJBSDUMP - Dump Monitor (Part 1 of 13)
(Refer to Chart 13)
«
IJBSUUMP •
*
«««««ij 2* *********
« *
•GEl ADDRESS Of •
*COBHEG, SISCOB,*
»A8 PIB, DUNPCA *
* *
*€?*•*•*••*••
**«*****«**«****«
«»*««D2**«****
«**«««****«***«««
POINT xo pia
FOR CURRENr
tASK
**»««****««**«
lES
*
AtTENTION •
. . . ♦
TASK
*
CALLINS .*
X
'*. •**
»**♦»
• MO
»fij *
,
* »1*
« «
X
*»•••
UUflPCS
»EB •
* B1*
* •
«
PDUnPR
Charts 147
Chart EB. IJBSDUMP - Dump Monitor (Part 2 of 13)
(Reier to Chart 13)
RligUEST *
iUDBESS *
VALIDATION *
«
.•ADDBBSS*.
PAIR OH *. HO
HOBD .*...
.BOUNDARI .*
••••E2*********
SVC 11 •
RETUSN TO •
SUPERVISOR •
**««*F2'* *********
* *
> END ADDR *
.X* = END OP CORB *
* ADOS *
*****************
»**«*«««««**
«**«««»«««4(4
*-«-*-*-*-*-*-*-*
* *•
* SPACE A LINE *
»****««**««««*«««
tt*«**«**««***4
XDUNPENO
*****
*KL *
* Et»
148 DOS/VSE Logical Transients
Chart EC. IJBSDUMP - Dump Monitor (Part 3 of 13)
(Refer to Chart 13)
• P2*
* *
* »J •
* *
• ••*
HO .• VS8/ICCF • *.
....*. PABTITIOR .
«TE8HIHATING*
.» IIAIN *.
TASK
»TEBIim»TIMG»
OUHP
08 JDUHP
(lACRO
IIOETSS
TES .»■
X
« C3 •
* «
SDOHPR X
•IJBEOJ Fl>*
*-♦-«-»-»-•-•-•-•
• ISSOE HESSAGE *
• FOB CANCEL •
• COIIDITIOM •
*PBOV0KE CANCEL *
» OF ALL TASKS •
X» OF VSB/ICCF •
• FABTITIOB •
* *
«**«*C 2* ********
* RESTOUe DUDF
(* OPTION IN
* JCL FLAG
*
****************
VTAH
USEB
TASK
»»**Blt»********
» SVC11 «
* REIU8N TO *
* SUPEBVISOB *
•*•••***•*•••*•
INITOOHP .«.
C3 «.
.* *.
YES .* •
...*. OPTION NODOaP.
*X...
*. .*
*. .*
^
♦. •*
* MO
***•
* *
* C3 *
* *
**•*
• on *
* •
*••*
.*. I
D3 *. •••**D<t**********
.* ». • SET SN TO »
.* *. MO * PgOVOKE DUMP *
► . OPTION .* -X* OF SOPERVISOR •
•.PARTDURP .* • AND SISTEH »
*. •• * GET*IS »
*. .* «••••••*•*•••••••
• »ES •
xjf i
*LTADaBP INItIA-*
*LIZE SXSLST FOB*
• DOIIP •
********«•••«**«•
OPTION
. NODUHP
».
*• •*
*ED *
* B2*
« *
LtADUHP
ii*«[(2*********
sven *
8KT0BN TO »
SUPEBVISOB «
»«««**«««**««*
• AJ •
» «
«*«*
Charts 149
Ciart ED, IJBSDUMP - Damp Monitor (Part 4 of 13)
(Refer to Chart 13)
>•-•-*-•-
• SPACE t LINB •
•PBXHl TITLE FOR»
« LT» BEGISTEKS •
» •
.*-*-«-*
«****«**«*****«**
SfACe A LINIi •
NOLIADUHF X
♦PRINT EP»
«*»**«***««**•**«
» PBINT C9'S, »
•UPB'S AND FPfi'S*
• •
♦PRINT SUPERVI- ♦
♦ SOB COMTROl ♦
♦BLOCKS AND AUOR^
♦ IBS
Ilblpr
150 DOS/VSE Logical Transients
Cliart EF- IJBSDUMP - Dump Monitor (Part 5 of 13)
(Refer to Chart 13)
• *
« «
DUHPPkBT I
•OUflPtH EP*
• DUHP CtKCELEO •
• PABTiriOM •
• •
SOPDUNP X
♦PRINT
*-•-♦-*-♦-*-•
• SPACE A LIN
*****************
*****************
LBLPR X
*****]) y**********
•PBINI EP*
*-*-*-*-*-*-*-*-*
• SPACE A LINE •
.*FAILUBR IN
SVk
MO
•..X
♦. .•
». .»
* «gs
X
X
•••••
• BH •
• B1»
• •
•
• KG •
• B2»
« *
NOSVAOHP
*
SVtDBP
•••***»**«***«*•*
EITBACr
PABTITION
BOUNDABIKS
***************
*****************
•PRINT PABTITION*
*****************
.* VIRTUAL *. IBS
». PABTITION .•
• . .*
•. .»
*. .*
• »0
• AEDB = *
..X» END OF •
•PABTITION ADDS •
• * .
X
. *.
J1 ♦.
.♦ ♦.
.•GETVIS ABEA*. NO
*. INITIALIZED .»
*. .*
*. . *
♦ . . *
» JES
* * r
• END OF DUMP • X
..X» ADUB = GBI»IS •....
• ABEA ADDB •
• •
X
•*«**K1*** »•*•*•*
* END OH DU1P •
* ADDS = EKD OP •
* DSED GEIVIS *
* AREA ADDR «
* *
*****************
Ix
Charts 151
Chart EG. IJBSDaMP - Dump Monitor (Part 6 of 13)
(Refer to phart 13)
»EF «
» Ct*
>•**«•*•**•»«
••***45*****
•**•»•*«•«•*•«•••
• •
* HIN liSDR = *
* eukse »uDg •
• IN SV« *
»•••*(; 3«*******«*
**«**•«**•«*****«
.• PHiSU III *
.SVt FOB THIS
•. EMTRY .♦
.•PHASE ADDS
. > FAILURE
*. ADOR
•***62*********
SAVE THIS SOI
ENtBt AS
RIN ADDB
H2
.»
*PHASE ADDB
•**«*J2**«*«*«**«
* *
* SAVE THIS SDL •
.• EMT8X AS HAX *
* ADDB *
«. *
•««*««*««««*«*«««
••*••••*•*•*•*•••
****lf3******«««
**«•*«««««**««*
• RAX ADDB = •
• BEGm or THIS •
• PHASE *
• *
* *
•Bin ADDB - THIS*
* PHASB ADOBESS •
* IB S»A •
* •
•••••Jl|****«**«**
« •
•HAX ADOB = END •
• OF THIS PHASE •
• III SVA •
• •
«•••••**•*••*••••
•-•-•->•-•-•-•-•-•
• *.
• SPACE A LIHB •
• •
*••••••••••*«••••
PABI Of SVA •
« •
••••••••••••*•*••
152 DOS/VSE Logical Transients
Chart EH. IJBSDUMP - Dump Monitor (Part 7 of 13)
(Refer to Chart 13)
**»*»HBFK8B1IC!!S
♦ ♦TO EHBl:
• ••EFC«, EGJ5
». OPTION DOBP .».
.* SYStBR *. NO
GETVIS .•..!.
*IRIII4LIZB0*
•El »
» B<l«
•PRINT EP«
«-•-*-»-•-•-♦-•-»
• SPACE A LINE *
•••••••**«•••»•••
• •*«
* «
• «
• •**
♦PRINT BP^
♦PRINT TITLE FOB^
♦ SISTER GETVIS ♦
♦ ARE* ♦
♦ PREPARE TO ♦
♦ PBOCESS NEXT ♦
♦ b12-BTTE ABBA ♦
« •
♦ DUMP ANCHOR ♦
♦ TABLE AND BIT ♦
♦ PATTERN ♦
♦ •
♦POINT TO BEGIN «
♦ OP SYSTEM ♦
♦ GETVIS ABRA ♦
♦ *
•••• *
♦ ♦ .
♦ HI ♦.X.
♦ ♦ .
• •••
♦ 512-BltTE ♦
♦ AREA ♦
♦ ALLOCATED •
♦ •
• •••
• *
• HI ♦
• *
• •**
.♦.
*****gs*««***«»**
.♦ ♦. ♦ouhpar bp^
.♦ ant arba ♦. ibs •-•_•.•-•-•_•-•_»
♦ .left to dohp .♦ i* dump the ♦
♦. .♦ ♦ abba(s) lgfi ♦
♦. .♦ • ♦
*, •* «««««•«««««*««*«•
♦ MO
Ix I
X
♦ EL ♦
♦ tH*
♦ •
DUHPEND
.♦ ANI ♦
.♦ PREVIOOS
*. AREA
♦.TO PRINT
EURPIT X
*•»••)( I**********
♦DORPAR EP*
♦ DOnP THE USED ♦
♦!>12-B«TE AREAS ♦
♦ JUST CHECKED ♦
.X...
X
» •
« E<t ♦
*»***J2^^*^^^«^^^
•*•«»«*•«*•**««•«
Charts 153
Chart EJ- IJBSDUMP - Dump Monitor (Part 8 of 13)
(Refer to Chart 13)
• G2»
••••♦BBFE8EHCKS
• 'TO EJ».1:
* ••EKP2, EKH2
* INITIALIZE
* PIBTS OP
* UDRPCA
•
N0TP8T X
•PRIIIT EP*
»****•*••*•**•***
•*•••«••«••••*•*•
-•-•-*-•-•-*-*-•
««**«•*»«*«**•*«•
•••••••••*•*•*•*•
•***•**•••*•••*
* «
• OUHP SVA *
» *
*****
»EL ♦
» B1*
•-•-•-•-•-•-*-•-
«***••****•******
***«*G1*»** ***••«
*DUnPAS EP*
•-•-•-*-•-*-•-•-•
• DUHP »
• SUPERVISOR *
• *
*•**•*•••••*•***>
154 DOS/VSE Logical Transients
Chart EK. IJBSDUMP - Dump Monitor {Part 9 of 13)
(Refer to Chart 13)
* BEUUEST •
« ADDRESS •>
* VALIDAIION «
* •
SDAID
BUFFEB TO
. ODNP
»«**•*•••***•••**
» URIIK »
* tAalltlOR NOT *
* tVAILABLK OM *
* COHSOLB •
* *
* HBITE SDAIO •
* BUFFER Tlllli »
* AND ADD3ESS •
PR'fPA X
•EXTRACT El>»
•-»-•-♦-♦-♦-»-•-*
• EXTRACT *
♦ PARTITIOK'S »
* BOONOAHIES •
•HBITE THE SAHE •
• HESSAGB ON *
• OUTPUT DEVICE •
SDAID
BOFFEn
ACTI»S
*«*«****«*«*««***
-*-»-»-•-*-•-
-•-*-•-»-*-
»««*«««««*«**« 4
««***»*•*««••««•*
AHI *.
PABTITIUN .
. TO DUMP .*
* * •
» .X
svADunv
UPDATED X
•••«»G2*»**«««»««
• POINT TO NEXT •
* PiB AMD BUILD «
• PIK OF NEXT 'X
* PABTITIOS *
m «
• ALL
PARTITIONS
». TESTED .
CURRENT
PARTITION
. TO UUHP .
* AU •
* •
Charts 155
Chart EL, IJBSDUMP - Dump Monitor (Part 10 of 13)
(Refer to Chart 13)
*****
*EJ *
♦ Di»
TMOADUHP .*.
*****************
•• ULL •.
.« ktlBk TO *.
DUMP IN
•SUPERVISOR.*
•DUHPAB UP
*-*-*-*-*.*.*.*.
.X*DUnP BEQOBSTEO
* kRKk
*
«*•**»*****«*•**
SEFEHENCKS
TO ELEI»:
EBK2, EHC1
EHGU, EHEt
ilieS. EPR4
*****
DUHPBIIO X
»***«E«****«*****
*PRIIIT EP*
*****************
EUHPSUP
*«*«*f I **********
•DUnPAR EP*
DUBPeHDI X
«««**F'***********
•P«I»T EP»
*****************
*•»»****•*******«
>***Glt*********
STC11 •
RBTDRN TO «
SUPERVISOR <
***************
156 DOS/VSE Logical Transients
Chart EM.. IJBSDOMP - Damp Monitor (Part 11 of 13)
(Refer to Chart 13)
♦♦♦••befbheiices
• ITO EHBI:
♦ ••ELC1, BLF1
• BBGPtR •
•• S/370 •
*.BEAL STOBAGB
•• TO OUHP .«
VLOOP
•***«g3*«»»*«»«**
• POIVT TO REIT •
• PIE AMD BOILO *
...X* KBI or NEXT •
I * PARTIIIOI *
• *
«-•-•-•••-•-•-•-•
•••«**•••••••••••
• POIHT TO HEX! *
• PIB ADD BUILD *
• KBl OF NEXT *
• PARTITION •
• •
• ALL
PARTITIONS
*. TESTED .
OSVA
•PBIIIT BP*
•***•*««•••***••«
-•—«-«-*-•-«
•«•••••**••««•••*
• ALL *. IBS
PARTITIONS .*....
». TESTED .*
PAUBPOOL
•PA8IM*
-•-•-«-•
.X* bURP PAST OB
* ALL OF THE
» PAGE pool
* GET PARTITION •
* BOUNDARIES *
« •
*PBINT TITLE FOR*
• S»A •
* •
05 ».
.* HHOLB •.
ARBA *. HO
IR THIS .*...
.PARTITION.*
*. .*
*. .*
•EXTRACT BP*
«-••>*-•-*-•-*-*-*
* GET PARTITION *
* BOONDABIBS *
* *
**•••••«••*•*«*•*
.* AREA *.
TO DUHP *.
IN THIS
•PARTITION.*
*****B<t**********
•DUBPAB EP*
»-•-«-*-»-*-•-•-»
* DUHP SIA *
* STORAGE AREA *
* *
*****************
*****jl^**********
•OUHPAR BP*
*-*-*-•-*-*-»-•-•
* DUHP BND OP •
*BBaUBSIBD ABBA •
• •
*****************
HO .* AREA TO *.
...•.DUHP IN THIS .*
*. PARTITION.*
*****n**********
• ISSUE A *
• HESSAGE IF •
• PARTITION NOT *
» ACTIVE *
• *
*****************
*****
*BL *
• Bi|*
• **••
•El *
• B**
•••••G1**********
* *
*ISSUE A HESSAGE*
* IF PARTITION *
* NOT ACTIVE *
* *
*««**•*******«***
-*-*•*-*-*
•«««*****«***•*«•
*-*-•-
. ..*UUHP PARTITION *
* HEGISTEBS AND *
• STORAGE *
*««***•********«*
****ll &******•**
• RBtUBN *
• TO CALLBB *
• *
**«*«**•******•
•****j 1**********
*RBGPAR EN*
*-•-«-*-*-*-*-*-*
.*DUnP PARTITION *
* REGISTERS AND *
* STORAGE *
*****************
Charts 157
Chart EN. IJBSDUMP - Dump Monitor {Part 12 of 13)
(Reifer to Chart 13)
***«A I*********
» •
» P8BGS •
> •
* *
* BJ •
* *
•coaviiuri bm*
•**•«•«*••«»•••**
*coiirKirr eh*
•-•- « - « - > ■ ♦->-♦-«
• DDliP GPB'S *
• 0-7 •
• •
•-•-•-•-•-•-•-•-♦
• IlOBP SPB'S •
• 8 - lb •
• •
***«*C j****« *««* «
•***•**•«••*««««*
♦COKVBKI E««
♦-♦—»-•—♦—♦-♦-•-•
» DOS? COIIXBOl. •
• *36S 0-7 •
* UUItP COMTBOl. *
• UBttb d - 15 ♦
* a£IUHH «
* 4
•***S3*******«*
« a
• CONfBBf 4
• 4
««*««m«******«**
* ODAP FPK'S «
« SBT HUHBKii OF »
• ajjius ro ••
• COM rear lo a ♦
• *
• •
• CO»»i;HIl •
» «
• •
• UH^ACk AHU •
.1* l-BAIISi.&XiS UMi; •
• UOUD UF [>A1'A *
« *
***»K3*««*«****
» RblUilll •
• TO CALLS B «
* 4
««»**K4«*«'**«*«4>*
♦tBiHT Bt*
.* tUXUT COKBisMT *
* OOae uiMb •
• •
158 DOS/VSE Logical Transients
Chart EP. IJBSDUMP - Dump Monitor (Part 13 of 13)
(Reter to Chart 13)
» PBINt
B1 *.
• * *.
• • *. II
•.DOflP COBBHNU .».
.X*. AN( PHOBLEn .* X*
.* DUBP ».
.* CANCELLED «. YES
. BY OPEMTOe ......
»«««***««**«*«
♦ EL ♦
• E«»
••••C3»»*»*»**«
* RETUHN
» TO CALLER
*
**•*****«»«••*•»*
••♦C»***»*»*»»
3»C2 •
BETUBN 10 •
SOPKiVISOR *
• *«•
* «
• BJ •
« «
• *•«
EXTBACT
• DUHPAH
• «
• EXTRACT *
» PARTITION •
• BOUNOARIBS •
* DUBP AREA *
* DELiniTBU Bt •
* REGS 5 ANQ B *
****««««*•«**«♦**
>«*«f 2*********
RETURN
TO CALLER
Charts 159
Chart EQ. IJBDMPPA - Dump Supervisor Control Blocks (Part 1 of 2)
* *
* *
••**A I*********
f «
» IJBORPPt •
» •
DO RFC 8 X
••»**B1**********
•PRHEAD E8*
-***-*-«-*-
PRINT COHEIBG
HBkOEB •
AND ADR •
*DUnPiR BR*
• DDHP *
• COR REG •
• *
****!) 1**********
PRHEtD BR*
-•-*-*-•-*-•-•-•
PBIHT SJtSCON *
HBADBg *
AND ADB *
*•**•••*••«••**•
•••****•••*••*«*
*****F1 «**««*«***
*PRHEAD EB*
*-*-*-*-*-•-*-*-*
• PRINT PUB •
*HEAOER AND ADR *
* •
**««••*••••••*•••
« OOHP PUB •
• •
*****************
* PRINT PUB *
* OHNKR HBAOEil »
* AND ADR *
*»••*••*»••«*«***
*****(;2****«*<***
*DUHPAB ES*
«-•-*-•-*-*-*••-»
• DUMP PDU *
* OMNER *
« «
••»•••*•••*•••«*•
•***•*•**•*••••••
»-»-•-»-
•**•••*•***••«•**
K0PUB2
«««««G 2* *********
•PRUEAO EB*
*-*-*-*-*-*-•-*-*
««««««****««««««*
* DUMP LUB •
* *
•**«*»******•«**•
HO .* BXIEMX
,..*. BLOCK
*. EXISTS
• PRINT EXTENT *
• BLOCK HEADIHS *
• AND ADR *
***•*********«••*
•****C3**********
*DOHPAR BB*
•-*.*-*-*-•-*-*.*
* DUBP *
* EXTENT *
* BLOCK *
*•*••*•***•******
POIB
••••«|)3*****«««*
*PaBBAD ER
* -•-*-•-«■.*-«.*-
* PBINT DIB
* HBADING
* AND ADR
***•***••*«*•***
*-*-*-*-*-*-*-•-*
*****************
•••*«P3*********
«*•*•**••*•**«••
* PRINT BUFFER *
* BBADIHG *
* AND ADR *
-•-*-•-•-*
* HAS *.
*
DIB AN *. NO
..X*
EXTENSION .*..
I
*
.*
*. .*
*. .*
»***
* YES
* *
• GJ *
* *
****
i
*«***HJ*««*****»«
*P8HEAD SB*
••*•••******••***
* POINT TO
• NEXT DIB
• BNT8K
* .
*•***•*••*******
ALL
DIB'S
TESTED
****
* •
* G3 •
* «
• ***
* PRINT PIB *
* HEADING *
« AMD ADR *
***>*•***********
*****************
*PBHBAD BR*
*-*-••*-•-»-•-•-•
* PBIMT LIA *
* HEADING •
* AND ADB *
**•••*•**•*«*••*«
-*.-*-
* PRINT DIB EX- *
*1'ENSI0N HEADING*
• AND ADR *
*****************
* DUBP LTA •
* *
***«****«**«***•«
****Jb*********
• BEIUBN *
> rO CALLKN *
* m
•******«*««*•*«
««*«**««**«****««
• ***
¥ m
• A<t *
* *
****
tUHP JIB «
«
*****«****«**•
160 DOS/VSE Logical Transients
Chart ES. XJBDHPPA - Dump Supecvisoc Control Bioclcs (Part 2 o£ 2)
• PRHEiU *
.♦ 2K •.
BLOCK .*
*. OUTPUT .•
*. (BS
OPTION .*....
DUHP .*
• **«
* *
• •
• •*•
••••BJ*********
* IBTUBI •
.l* TO CtLLCB *
* •
.*.
D1 *.
.* *.
.* PIBIII *.
*.ID TO BK PUT .
*IM HEIDIIIG.*
•• .*
*• .*
• IBS
PUT PABTH
ID IB
HEBDIMG
•PRIBT SH*
• PIIBT CONTROL *
• BLOCK HKkDIMG *
• AMD lOR •
****G1*********
• BBTURM *
• TO CALLER *
,m •.
9 .• LESS *.
.•.(Hkl a HOBPS .*
*. TO DUBP .*
*• •*
*. .*
IBS
PBBPIBB TO
DUBP 1
PABTItL LIIB
CUVfBBT
B NORDS
(OB LESS) or
DATA
«PIIRT SB*
* PRIRI A LIRE *
* or CORTROL *
* BLOCK •
• A"* •
• •
• •••
• •••Git*********
* HEIURH *
• TO CALLEB *
» •
«••••«.«••«•««••
****G5*********
» •
• PBIMT *
• •
•••«««••••••«•»
* PRINT LINE *X
* ON SISLST •
* •
•••»*•••**•••••••
It
. . • ••
•
«
>•
J
• *
BLOCK .*
OUTPUT .*
*> •*
*• ■*
* IliS
***J3*********
RETURN TO *
LOCAL CALLER *X..
♦
X
T8C .*.
J« *.
.* *.
NO .* AIT •.
.....*. P80BLEH .*
*. .*
*. .♦
X
**JS**********
9 BHPIC rp*
-•-*-•-*-*-*-»
WRITE 2K *
BLOCK ON •
SISUBP •
•••«•««««•«««*«•«
• •••Kit*********
* RETURN TO *
•EXTERNAL CALLER*
* *
•••••••••••••••
Charts 161
Chart ES, IJBDMPAR - Storage Dump Routine (Part 1 of 5)
(Refer to Chart 13)
****A 2* ********
» «
• IJBDHPAR *
» *
«***«*******«**
««**
flliriiRBNCliS
TO ESB2:
EUSl. KVfit
* ROUND EieSIN *
**DCRESS TO »a»T*
LOHEB PAGE *.
• BOONOARr *
» *
*m ******** *******
.1*
.* ADD« «
.1*. VALIDAIIOK
♦.BEgUESIED."
* ♦
*I'SECABE to UUHP*
. X*TUE MHOLE ASEA *.
« AT ONCE *
* *
**********^^^m*m*
* YES
t 'rkfeOences
».X.TO ESC2:
****C 2* ********
RETURII 4
TO CAtLEB «
4
..*.BCPS:VS8 MODE.*
* •
ISTEAOB
.» PAGE IH *. YES
*. VALID ADDRESS.*
*. SPACE .*
.* PRE»IOUS ».
PAGE
*. INVALID .*
♦ PRIMT 'IN^ALHi
• ADDR SPACE'
« MESSAGE
***************
»**#«£)5««»« «*««**
*********
* B1*
* *
*
PYALIU
*****Q^***
****
• *
• B2 •
• *
****
362 DOS/VSE Logical Transients
Chact ET- IJBDMPAR - Storage Dump Routine (Part 2 of 5)
(Befei to Chart 13)
TSIEtDDB .«.
B2 •.
•••••{I3^««»***««*
.•I1IV»II0».
.•ADDS SPACE
..I*. BESSAGB
IBS
•■....
•PBINI^ ....!"!
_
..x»
.........
*.T0 PBim .
• '
•
SPACE A LIIB *
•. .*
•
•
• *. .•
••*•••*••»••««*«•
**•• • NO
* ••**•
• B2 • * .
» • C2 '.X.
«••«« • .
*«»• X
TEA .*.
.*.
C2 •.
C3 •.
.* *.
.* *.
.•START ADOB
• a
IBS
•END ADDB IB*. IBS
• .IN SUPBBVISOB.
......
..x^'
SOPEBVISOB .*
•••••Bi|»****^****
•PBIMT £«•
•-•-*•«-•-•-•-«-•
X*PBI«T •INVALID *.
* ADDK SPACE' *
» BBSSAGE •
••••••••*••*•••••
•••*«C <*•*••***••*
• PBEPABB TO •
•DOBP UP TO END •
Z* OF BBQOBSTED •
-•-•-•-•-•-•-•-•
[• •
• SPACE A LINB •
* «
*•••••«•••••*•••«
•••••C5^*****«***
•••••*••••*••••••
••*••••••••••«•••
m»***D2**********
•••*••**••*••••••
ALL *
lES
PABTITIONS
«
...
. TESTED .•
,
*. .*
♦ . .*
X
• NO
••••*
• BO •
• B1^
• •
•
X
•*F 2* •••••*•*•
•
BXTBACI
•
PARTITION'S
9
BOUND
tRIBS
*
•••••({^•••••••••*
• PREPARE TO •
•DDHP UP TO THE
• END OF THIS
• PARTITION •
• •
••••**•*•••*••**•
•X.
«•••«••*««««*«••«
.« NEXT *.
NO .• ADDB TO •.
,..*.DUBP IR THIS .
••PARTITION. •
.•END OF *.
■• AREA TO •
.DUHP IN THIS
•.PARTITION.'
••••*K1 •*•••••*«•
» •
•PREPARE TO DUHP^
• UP TO GETVIS •!
• AREA •
« «
•*••••••«*••«*•«•
MO
• RBAli
. . . •
PARTITIO*
*.
a
•. .•
X
• . .•
««••«
• IBS
• EO •
• B1»
,
• •
•
^
PVALIO
X
.•.
K2 *.
• • *.
NO
• PARTITION
.•••....•
GBIVIS AREA
». IN USE .
•••••U3******»*«*
* PBEPABB TO •
•DUMP UP TO THE
• BID OF
• SOPEBVISOB
* «
••••••••••••*••••
• .<
.•GETVIS AREA*. YES
. FILLS UP .*..!
•.PABTITIOB.^
GJ •.
.•BID OF •.
.• AREA TO *.
•.DBBP IN VALID.
• ADDR SPACE.*
• .
.»
,•
•••••H3^*«**^««*^
• PRBPABB TO •
• ISSUE BESSAGB •
• FOR INVALID •
• ADDB SPACE •
• *
••*••••••••**«*•*
•••••J3^^^^^*««*
• PREPARE TO
• DUMP UP TO
• INVALID
• ADDR SPACE
••••••••«•*•*•*•
.* BEGIN *.
.•OF AREA TO •. IBS
•.DUHP IN VALID.*..!
•ADDR SPACE.*
* HHOLB
*,
10
ABBA
*....
•. OUHPBD
*
,
•. ■
«
,
•• .•
X
• IJIS
• •
,
• C2»
X
•••»•
*•••
•BS •
• C2^
• •
•
EXIT
XPVALID
• ••••
• ED *
• B1*
Charts 163
Chart EU- IJBDMPAR - Storage Dump Routine (Part 3 of 5)
(Refef to Chart 13)
•****RBFBREHCBS
• »T0 BUBI:
• ••BSD5, etE2
* • BTJ2, ETK3
FIRST LINE
.« FIRST *
XXBS .* LINE OM A
..*. 32-BYTE
•.BOONOART
* •
•BME LINE ADDS *
* OH A 32-BXTE •
* BOONOARI •
* •
•COHPOTE HOHBER *
• OF CHARACTERS ♦
• TO CLEAR IN •
• FIRST LINE *
• •
*HRITE 2K BLOCK *.
•COHTAIRIHG THE *
* HESSAGES *
««•••**»•»•«••*••
•****C3**********
•PRINT BV»
•WRITE 2K BLOCK •
• IN TAPB/OISK/ •
••***D3*»***«c«»*
•*•***•>
••*••***
IBS .* NEXT PASS *.
...•. INVALIDATED .
•AODR SPACE. •
*•*•*
• ES •
* B2*
•»***H I**********
•*•*•••**»»«*»••
• «
•DURP UP TO END •
t*OF PAGE on END *
• or PARTITION •
• •
•••••*••••***•*••
• COMPUTE *
•NUriBER OF NORDS*
• TO Duap •
• •
•**•*
•E¥ •
• Bl»
164 DOS/VSE Logical Transients
Chart EV. IJBDMPAR - storage Dump Routine (Part 4 of 5)
(Refer to Chart 13)
*****ci ********
•CONVERT «0U8 OP*
* DATA III LINE *>
• TO HEX •
********
********
*CONVERT 8 HOBDS
* OB LESS TO
* PRINTABLE HEX
•
********
* KBPLACE *
* NON-PRINTABLE *
* CHARACTERS BY *
* BLANKS *
» *
*****************
»PBINT THE LINii *
«*(*«•*«•*«******
.* PREVIOUS
. LINE HAS
*EUUAL LINE.
»«**Clt **********
«««***«•««****«**
^
* C2*
• *
*
.*.
EH *.
EXIT
.* *.
.* PAGE OR *
[ES
*. PARTITION
*
♦.COSPLEIE .*
*. .*
*. .*
X
* HO
*****
*ES *
* B2*
• *
*
TSIADDB
X
***»*FI4**********
*
*
•SUBTRACT a FHOH*
» BOBD COONT TO
*
* UOHP
*
****
* «
» B1 *
* «
****
FIRST LINE
*«***«**
**«««***«*******«
«*«**j |****««***«
* PUT 'SANE' IN *
* THE LINK AND *
* CLEAR REST OP *
* LINE *
* *
*****•***•••*****
*********
*«**«*«««««««**«»
Charts 165
Chart EW, IJBDMPAR - Storage Dump Routine (Part 5 of 5)
(Refer to Chart 13)
* •
• PRIHT *
* *
, • BLOCK ••
. ODTPUT OR .
DnnP COHHAND*
*IJBCRPIC FF»
t-*-*-*-*-*-*-*-*
. X*MRIIIi BLOCK OS *
•LINE ON OUTPUT •
• DEVICE •
;
•*»**C1**********
*IJBDRPIO
FA*
»-»-»-•-«-•-•-•-•
• NRITE LIME
CM »
* SKSLST
•
•
*
•*«***«*
X..
»»•*•
•***02*********
• BETURN *
» TO CtLLBB *
• *
• ES •
» C2*
166 DOS/VSE Logical Transients
Chart FA. IJBDMPIO - System Dump I/O fioutine (Part J of 3)
(Refer to Chart 13)
••»A2*******»*
«
IJBDdPIO ♦
• FB »
* B5»
• Cb •
CLOSE HEQ .»
...
*. -**
*. .*
X
* NO
***»»
•FB «
* B2»
* *
*
CLOSEfi
X
**]i2* *********
*
HEFRESH I/O •
FIELDS •
IN DUMPCA *
* *
* AVOID HEsrOEE •
* OF 3800 CB AI *X
* DUHP END •
* «
*****************
ifmm*****m*****
SYSTEH
DUMP FOH
. FOMEH .
•.PABTN.*
• SEPBI •
• SET CU to •
• SIANOABO SET •
• •
*****************
*****f2* *********
* *
* EXTRACT PUB *
K» DEVICE TXPE »
* FOB SYStST •
*****************
***Ei**********
MRITE PURER •
rBRBINATIOII '
nSG, BEAD *
SYSLST »
ASSIGNBEHt <
***************
*PUT PROPER CCS •
..X* AOOB IN CCH *
. * (GENIORB) *
I *****************
F3 *.
*****fH**********
*«***FS«*«*«**»**
*
*
*
REPLII= *. YES
* SET IHTALID
• PUT
riHB STAMP •
NO OH .•
..X* SYSLST RETURN
• IN
TITLE AND *
ENTER .»
* CODB
•FORCE PAGE SKIP*
.*
*
*
*
*. .*
***************
*«
*****************
* NO
X
*****
X
*****
i
*FB •
*FB ♦
. *•
* E2*
• 8i»
GJ *.
* *
*.
*
*
VALID *.
RESTREGS
PRINT
• **>*1j3**********
» *
• ASSIGN *
» SYSLST *
« FOR POUER *
• PARTITION *
»«******«*******«
**w**j 2* *********
• *
• gSETPRT *
• (COPY 3800 *
• CU STATUS) *
• *
*****************
* C5 •
* 4
****
Charts 167
chact FB^ IJBDMPIO - System Dump I/O Routine (Part 2 of 3)
(Refer to Chart 13)
*F» *
♦ C2*
• *
REPE8RNCES***»»
TO PBBb: * •
P4B2, FIIP5» ••
CLOSER .*.
B2 ».
• • *.
MO •• »
...*. SISLSI=>3B00
•- .*
*. .*
*. .•
• ItES
••**«C2******«***
••***•**««•••*•*•
•***» rRBFEBBHCES
• • ».xrTO PBE2:
• • .rhtt, FCD1
• ••• ,
BBSTREGS X
****»E2**********
• •
• •
• RESTOBE BB6S •
4t *
• •
****F2*********
• BETURB *
• TO CALI.BB •
t «
PAGE POLL .•
• PUT JOBNAHE. •
• D»TB, SIBB. *
•CPUXO ABO PAGE *
*NDBBBB IB IITLB*
• •
• PBIBT TIILB *
• SPACE k LIBB *
* •
PBIBIO X
••••• f 5«**«*»»**«
•PBIBI1 PC*
....* PBIHI CUBBBBT •
* OUBP LIBS •
• •
• «
• «RITER «
• *
•»«**II3******«*«
**•••«•••**•••*•
•••J3*«*»****«
BAIT
• *«*K 3«**«**«*«
• RETURB *
• 10 CALLBB ' *
• •
168 DOS/VSE Logical Transients
Chart FC, IJBDMPIO - System Dump I/O Routine (Part 3 of 3)
(Refer to Chart 13)
**«*A2*********
» PBI*T1 «
B2
«.
,•
*.
*
MO
SKSLST'FBl
•
••••*B<I**********
X*. SYSLST'OISK
••«*••*•*••*••*••
>*C2**********
*•••••••«•***•*••
D2 *.
.• *.
• •
BXTBNT PULL
'. ••
•• •*
• • .•
» no
uuttss
m m
•»••»■••••**••••«
.* ».
res
•. BXTBNT FOIL .*
*. ••
• • .•
♦ . .•
X
• BO
••••
* *
.
* 01 »
,
» *
•
•«*•
X
•••••OK**********
* «
• BUILD •
• SBEK/SBtRCH •
• kBGbHBBtS *
*••••*•••*•*••••*
X.
ST4BTI0 i
*****B4******«***
*ilBITBB FB*
*-«-*-*-■•-*-*->«-•
....* HBITB LINE ON *
» SXSLST •
• «
*****p 3* «*»* ««!•*•
»****f||»****C»*»*
***«*f 5«««^9«««««
*»•**«•••••••••*•
••*••**»*•••••»*•
**«*«***««•*»***•
• •
• D1*
t *
****62*********
• BET08N *
• TO CtlLBR «
l> •
Charts il69
Chart FF- IJBDMPIC - DOMP Command I/O Routine (Part I of 5)
(Refer to Chart 13)
* *
• *
* •
• IJBDHPIC •
*
HO •»••»
,
•PH •
,
• B1*
• •
•
X
PUTDtIk
.*
01
• .
•
*. KES
CLOSE
BEQ .*....
• *
CLOSES
*H EIDER r%*
•1»0T DUBP COHII.,*
VO&TB. TIRE k*D •
••••*g1*****«****
•HBIIBB FK*
(* SKIP TO NEK •
• PAGE •
* •
*HS*U8B FK*
*PUT DOHP COB«.,»
•D»£. IIBB tBD •
«*«**CS**********
*«***••**«•••••••
PBINTO X
«««*«DS**********
*VBItBB FK*
•-•-«-*-*-•-•-•-•
•PBIBI IIILB OB •
« LISIIBG •
* •
*HRIIEB FK*
« SPICE 1 LIME •
*•*•*«•***•**••*•
••***•••••***••*«
*»*»*f2**********
* INCLUDE THE •
• 2K BOFFEB •
.1* m FIXLIST •
• FOB lOBB «
* •
.•NESStGES TO*.
*. BE HBITTEN .
*. OUT .*
««**«(; t*******
•»*•••*•«****•***
*. -•
• XES
G3 *.
.* *.
• *. YES
NO
BOPFEfl EBPTJ .»...
• • • ■
♦ , . ♦
*. .*
♦ . .*
* HO
(
»»»»»
»FH *
» 81*
« *
*
POTDAT*
•******•••*•*••••
•HBITBB FK*
• HBITB CilRBEBt *
• DUBP LINE ON *
• PBIBIEB *
.*.
X
OKBXIT .*.
GO *.
G5 *.
.* *.
.* *•
.* BESSkGE *.
YES .* DUBP CHD *.
♦. 4L8EADY .•X..
*. CANCELED 8i .*X...
*. PBIBTBD .•
*.OPEBAI0B .*
*. .»
*. .*
*■ .*
*. •• •
• KES
• NO *
•«•« * •
•FJ » . * •
♦ Hi '.X. * •
•••• . REFEBBNCES
REIOK X TO FFGb:
***»»US*«««**«*»*FGHb, FHD2
• •FHEH, FHK1
• SET DUBP »
• SET BETUBN *
♦CANCELED BETUBN*
• CODE=0 *
• CODB •
« •
**«•«*««*«««****•
• «**«*«**«***««•«
••***•**•«*«*•••*
***«JS*********
• BETUBN *
• TO CALLEB •
• *
• Ai *
* «
170 DOS/VSE Logical Transients
Chart FG. IJBDMPIC - DUMP Comntand I/O Routine (Part 2 of 5)
(Refer to Chart 13)
* PUT rilDEX TO *
* OUXPUT PUB IN •
* BG SYSONP LUB «
* FOR DORP •
* COBflAND *
ItPE OB
PBINTEB
OUTPUT
ODASD X
•***»C2**********
• OPKN »TOC IND ♦
• BEAO FORMAT I •
• LABEL FOB *
*DOS0nPF ♦ CLOSE*
• VTOC «
•BBITBR FK»
•-•-•-•-•-•-•-»-♦
*HBITE 'INVALID *X.
• DUBP FILE* «
» MESSAGE •
• *** .
BE X
*»«**lj1**««»*****
* SET INVALID »
• OUHP FILE •
*RETUKII CODE AND*
• RESTORE BBSS •
* *
••*•**•****••«*••
• TAPE •.
ASSIGNED TO .
*. A PAB'IN .*
• G5 •
* •
• •*•
•KHITBR PK*
*-•-*-*-*-*-*-*-*
• WBITE 'TAPa *
•ASSIGNED* RSS 6*
• READ BESPOHSB *
**«•*«**«*•*****•
• C5 •
* «
* SATE FILE •
* EXTENT •
* LIHITS •
* •
«•••«•••*••••••*•
* • •
* * .
TPUL X
•HIITBB rX*
»•«-«-*•»-••••«-•
* BEAD •
« POINIEB •
* BECOBD *
.•POINTBS*.
.* TO NEXT *. ■
. FBEE BECOBO .*.
• .m EXTENT.*
««*«f )*«««*****
* BBTORN *
» TO CALLER •
• •
••***•*••***«••
«****P2** ********
* SAVE DEVICE •
•CHARACTERISTICS*
* AND FILE *
* EXTENT LIRIIS *
* *
m ******* *********
*****fi******t***
« •
• SET RODE *
• FOR 7-TRIl AND *
• 8B09 TAPES *
• *
*****************
•HBIYBB PK*
•-•-•-•-•-•-•-•-•
* BBHBXTE •
* POI NXEB •
* BECOBO •
**•*••••*•****•••
OPKNENO X
«****S5*<
•
« SAVE
AND
* EDIT
IIHB
•X
* or TBI
UAI
,
********4
***••*•*
>•••
•
*
*
«•>•
•
•
*****^n**********
* *
* SBI2E •
* SYSTBB *X
* (SVC 22) •
*****************
*****
*FF •
• US*
* •
OKEXIX
Charts 171
Chart FH. IJBDMEIC - DUMP Comnand I/O Routine (Part 3 of 5)
(Refer to Chart 13)
*****REFEBRIICI!S
• •TO FHB1:
• ••FFC1, FFGJ
i
PUTDATH .*.
.♦. TiPBIO
CI *. •»»»«C2*********«
.* •. *HKITliB FK»
.« «, X£s «.*-*.*.«.*-*.«.«
*. TAPE OUTPUT .* X*«iaiIE 2K BLOUK •
*. .» • OH T»PE ♦
*. .* * •
DISKS
YES .«
•HRITEB . FK*
*<IRITE 2K BLOCK •
* ON FBA *
* •
<i«***F-)*««««***«*
*««**«***««**«*»*
« BOVE DiXik MOT •
• HBITTEN THIS
•*••***•*••***•**
.»2K OF DAT* •.
. LEFT TO BE ."
•. WBITTBN .•
TAPE FOIL
• WO
. 'FF *
..X» G5 *
EXTiiNI FDLL .*
CLOSED
•KSITEB FK»
...X* URITB-'FILE •
* FDLL' RBSSAGB •
**************«*4
***«*; 3«««*«««*««
•••*•*••*•***••««
• *•••
»FJ •
* B1»
* *
*
CLOSER
*HBIIER FK*
•MRITE 2K BLOCK *
* OH DISK •
« *
••**»BI«***«*«**««
•UPDCCHHR FK*
«-•-•-*-•-«-*-*-•
• POINT TO MBIT •
• RECORD •
• •
*•••****••*•*•**•
*****
*FF *
* G5*
MOT FULL
*****J 1**********
* POINT BEHIND *
* DATA HOVED TO *
* BEGIN OF *
« BUFFER *
* •
*****************
*****K1 **********
•LENGTH TO HOVB *
* NEXT TIHE = *
* LENGTH HOVBO *
* THIS TINE ♦ 8 *
* *
*•*****•*•••*•**•
172 DOS/VSE Logical Transients
Chart FJ- IJBDMPIC - DUMP Command I/O Routine <Part 4 of 5)
(Refer to Chart 13)
CUISX
•MRITEB FK«
•♦•••BKFeBBHCBS
» 'TO FJB1:
♦ ••FP01, FHF3
************ **m*
DISK OUTPUT
****************
*****************
.*. CFB*
D1 *. »***«02**********
.* *. *MBIXEB FK»
» *. KES »_•-«■»■».«_♦-•-»
FBI OUTPUT .* X'HBITe 2K BLOCK •
». .* *CONTAIIIING EOF •
AT EMD
MO
•«**•*«***••*••*•
*«***03**********
* COHPUIE •
• NUHBBR OF *
♦TRACKS LEFT III *
•*•*****•**•«*«•*
.CTiPE X
•*•«•£ I**********
*IIBITKB FK*
* HSITE TAPE •
* n* BK *
* •
***««E 2* *********
*UBITEB FK*
«-*-«-•-«-«-*-«-«
* WBITE ANOIHEB *
*2K BLK H. ONLK *
* EOF IM IT •
•**•**•*«**«*•*«*
• HEAD *
• POINTEB *
• EECOBU *
««****«*«*******«
*****************
*****f 2**********
•MBITE8 FK*
•-•-•-•-*-*-*-*-•
• BEAD *
» POINTER *
• BECORD *
•••*****«**«*****
*BEilBITE POINTEB*
*BEC. TO BEFLECT*
* CUBB. ounp *
*****************
•****G I**********
•HBITEB FK*
• BACKSPACE *
* BECORO *
*****************
•BEHBITE POINTER*.
*BEC. TO BEFLECT*
* CUBE. DOHP *
*****************
CONV X
****«G 3* •**«*«**«
* COMVEBT NO. *
* OP TRACKS/ *
. ..X*BLOCKS LEFT TO *
* DECIHAL »
* *
***•*•****«»*****
CPBIHT 1
*****HJ*"
*WRITER
.*•*****•
* ilRITE 'DOaP *
* COBPLETE' •
* HESSASE *
*****************
*****j 3**********
* RESTORE *
*COHTEIITS OP lUB*
* ENTBT FOE 8G •
*syS0HP FOR DDBP*
* COMMAND *
*****************
««*«*K 3 **********
* BELBASE *
*SYSTEH FOB DUMP*
* COHMAMU IF IT *
* HAS SEIZED *
* •
*****************
Charts 173
Chart FK. IJBDMPIC - DUMP Command I/O Routine (Part 5 of 5)
(Refer to Chart (13)
t *
► UPDCCHB *
» *
*. TRACK FULL
m****Q2**********
«««««****«*«**«««
• •
• POIHT TO MKXI •
(• THkCK I« *.
« CYLINOEB «
• •
• •
• POIHT TO HEXT •
• CTLIIDBB III *
• EXTEIIT •
• »
* RETURN •
» TO CHLLBB *
» *
• *
• HBITEB *
• *
* •
* EXCP *
* *
« «
«tIT
* •
* *
* CLBtB BOFFEB •
* *
• REiatii *
» TO C&LLEE *
* *
9 •
> HEtDEB *
* •
• PUT UUBP •
* COHHAHU, UAIB •
«**•*•**«•••••*«•
*****cs*** •«•••••
••*••••••••*•*•••
****!) 5*********
* •
• BBTUBN •
174 BOS/VSE Logical Transients
Chart FP. IJBEOJ - Cancel Message Writer (Part 1 of 3)
(Refer to Chart 13)
••••
* *
» i» ♦
•**••*•*•*•**•*
*****B1*** *******
•«*••••*******•«*
**««*Ct **********
««««****•••**«««•
• «««*£) 1 **********
*****************
*•*««£ 1 ••»*****«*
*•*•••*•»»*•**•*•
«*F1*******
* «
SET LTA
IMOICATOS
TO ZERO
• •
«**»««*««*«
*t***A2**********
»«««**«****«**»**
• BOVB SXaBOlIC •
.(•UMIT IkflS lltO •
* as6 0P71I •
CHCLTESI .*.
«-•-*-•-*-*.*-*.*
.1* OUTPUT P80GR. *.
•CHECK N£SSAe8S •
* •
**•***«•*•»*«**«*
*. ILLEGAL STC .*.
•*m*»**«**
•****•****«
*****j i*«*««***»*
* *
* HOVE nessAGE •
* ososr TO *
* OUTPUT A8EA *
*****************
•**•***••*•*•«***
. X* OUTPUT PHASE ».
* NOT FOUID *
* MESSAGE *
*********««**«**«
«***f2**********
HOVE CANCEL *
HKSSAGE TO *
OUTPUT AREA •
*
«***«**«****«***
.•SUPERVISOR •
•.CATALOGED OR
*.IPL JUST .•
*.RADE .*
CAaSE2
*****G3**********
• FIHU THE •
• APPROPRIATE *
. ..X* MESSAGE TEXT *.
•FOR THE CANCEL •
• CODE •
*»•***•*••«*•*«•*
»i»*««y 2* *******
• BOVE 0P8JI
• 10 MESSAGE
*«****»*»»•»
*F0 *
• 32 *.;
•••••J2^»*******^
•MOVE CONDITION •
• CODE FROM •
• LTl SAVE AREA •X.
•IN OUTPUT AREA •
« *
*«««*«***««***«*«
.•CANCEL *.
.* COUE= *. NO
. DEVICE NOT ......
•.ASSIGNED .•
*****B<t **•••**••*
*•*****•***«•*•*•
• »*• I
* * •
* CO *.x.
••*•
TESTAP X
••••*C4*******«*'
• ADDRESS
• PlBTiriON
• COMRBG
•
*•****«••*••*••*
.* HAS *.
.* ATTENTION *. IBS
►. ROUTINE .*....
*. CANCELED .*
* RBPLACB 'JOB* •
* HI 'LIA* III •
OUTPUT ABBA *.
* 'LGUIIB' •
* •
•*•*••••«»•«*«•*•
■ X*
NOAP X
*****G1(*** *******
* MOVE JOBNAHB *
*FBOH COMRES TO •
• OUTPUT AREA •
• •NAME* *
* *
*****************
HOVESUB
«*«»*p5»«»*««****
* BEPLACg 'JOB* •
* al 'SUB' IN •
. ..X* OUTPUT ABBA •
* 'LGLINB* •
****•«**•**«*««**
H0VBSUB1 X
***»«(i^«*«*«»*«**
• BOVB TASK •
• NAME TO *
• OUTPUT ABBA *
• •NABB* •
• *
•*•*•*•*••••••••*
*****Hlt******^^^*
* *
* MOVE MESSAGE *
*T0 OUTPUT AREA *
* 'CAUSE* *
* «
• •••*jit***«******
*LOGGBBR FB*
*-*-•-*-•-*-*-*-*
* PRINT HF.SSAGE •
* ON SISLOG •
• AND SYSLST •
**•***«******•*«•
***»«•**•«•«**••«
***»***••••**•*•»
****
*
*
* JS
♦
*
•
• •••
«****Kl(********
► •
X
*PRTPSll FU*
H
•
SBTUIN
* PRINT THE PSN
•
BB lit
* HHEBB BBROR
m
• OCCURRED
n
Charts 175
Chart FQ- IJBEOJ - Cancel Message Writer (Part 2 of 3)
(Refer to Chart 13)
» *
» PRTPSH •
* *
• VBOQCHK ♦
« «
t *
• SVC£gB •
* t
****m*****«*«*
•«••*•*••*••**•
• POINT 10 •
• Suva AREA OF •
• THE FAILING *
• TASK •
• •
•»»»*B2****«****«
* HOVE SKELETON •
• OF HSG 0S03I •
*T0 OUTPUT AREA *
««***«*«
««***B3*****»«»«»
* HOVE SKELETON *
« OF HSG US04I *
* TO OUTPUT ♦
» AREA *
* »
• BOTE •
SKELETON OF •
••*••••«••••«•«*•
PBIPSH1 X
* HAKE THE *
* APPB0P8IATE •
* PSN PRINTABLE •
• «
• HOVE HESSAGE *
• 0S07I TO •
• OUTPUT AREA *
• •
• HODIFt TO •
**PROBLEH PBOGR.*
• PSH' OR •
• 'IIA PSN' •
• *
PRTPSH2 X
*ONLIST FR«
• PRINT HESSAGE •
• ON SYSLST •
• •
* •
» POINT TO *
* SAVE AREA OF •
• THE PARTITION •
• «
♦CONDITION CODE.*
«AMD INTERUPIIOR*
•CODE OF CAUSING*
* INSIR^ *
»«**«1)2**********
» HAKE IT •
« PRINTABLE AND •
* MOVE IT INTO *
* OUTPUT AREA *
< *
«*«*»lj2**********
» HOVE TEXT OF *
* INTERRUPTION *
* REASON TO *
* OUTPUT AREA •
••»*«f 2**********
« •
• «
• MODIFY ecu's •
• *
.X.
LOGGING X
«»*««G2**********
*LOGGEB FB*
* P8INT HESSAGE *
* ON SYSLOG AND *
* SYSLST •
***««II2**********
•****C3**********
• GET ADDR AND *
• SVC CODE OF •
• CAUSING •
• INSTRUCTION *
• •
*****D3******«*«*
« RAKE IT *
• PRINTABLE *
• AND HOVE II •
• INTO OUTPUT «
• AREA *
*«***li3»**«****««
• *
• •
• nODIFY CCM'S »
• *
•••••C4**********
•*••••••*•«••••••
«**»*D4**********
•••*•«*••••*•••••
• HODIFY ecu's •
• *
« •
««*«44i«**« *»*««««
*FP •
* 3b*
*«***J2**********
*>>^« «•**** «**«««*
176 DOS/VSE Logical Transients
Cfaairt fR,. IJBEOJ - Cancel Message Writer (Part 3 of 3)
(Refer to Chart il3)
> •
-• IS •.
.« SISLSX •.IKS
• •'
• PICK OP ecu •
» " •
"•. """'^^
• ecu •
•• ••• ••«•• •••••
•••*•••«•••••••«•
.i.
•••••««•••••*••••
X
•••••0 1* •••••••*•
oca AUM
!■ CCE
••••••••••*•••••«
«*«»*B5****«***«*
•••••*•••••••••«•
••••
* * .
C2
•.
CJ
IS
•• SISLSI •. IBS
*. SISIST k .* I*. * CKD DISK .*....
•. MPB •• •- .*
•- •• ♦. ••
•. •• *. .•
• IBS • ao
Ix '.
X
TkBBDtlt X . .*.
•••••02********** . Oi •.
• • . .• IS •-
• PICK DP ton • . i£s .* srsui *.
• OP nPB COI • ......*. k» FBI DISK .*
• • *. .•
• • •. .*
••*•••••••••••••• *. .•
• «o
**** . .
• • .
• B2 *.i.
• • .
•••• , .
BLCCB X
• •
• BBL0C4TE CC3I •
« ADOM IK CCB •
• •
• *
•4.
a
iitt .*.
Pi •.
.* *.
.* raaia. •. tas
J.
ei •.
.* *.
> .* IBSaiB. *.
.•.TASK 'is JOB .«
••••••*•«•••••••«
X
•••««p^********«»
VPBIBT etf
• -•-•-•-•-•-•-«-«
•ODTPOr BESSIGB •
• OB Sf SLSV •
• •
UXSKBTT
,•
(BS .*
• ••••••«•••»••*•*
•••••II2**********
• ••••*«••«•«*••••
» HBTOBB to •
• CALLBil •
• ' «
•••**j>l|***«««***«
• HODIPC tXk •
• •
. * *
..!• B2 •
« •
• PBXBf •
•••••rit**********
• •
• lOkl) CCB •
• BOCB IB •
• «B«iISTBB 1 •
• •
• MiTOb* TO «
• GkULtM «
• •
••**«BJ*********
BBUCAIB
*DDB. OF
1ST CCB
• src •
• SVC lUJ •
*• ••••••*• •••»•••
•*•••( t**********
»•••••«••••«••••*
• BBIUilB to •
• CBUBB •
• «
.1..
• ; «
• *2 «
• :: «
••••
Charts 1177
Chart GG. $$BSySBR - Set up a Write on SYSRES Operation; Move Label Cylinder Address to
COMREG
• «
* tSBSISHB *
TBST
.ZBBO P.OB
• .SYSIia.*
• LOAD DISK
• BDDB IBIO
• BO AND STOBB '
• IN SEEK car
• LOAD DISK
• ADDR * 2
• INTO BO
• IND STOBB IN
• SEtBCH CCN
•••**EI ••**•*****
« LO&O lODB •
• OF SEABCH CCH •
• INTO BO *
• AND STOBB IN •
• TIC CCB *
«****F 1 •*•»••••••
• SET UP BEAD *
* CCH NITH iDDB *
*0F BOFFBB ABBA •
•BND STORE SEEK •
*CCH ADOB IN CCB*
SET DP
TO BBTRt
10 TIHES
* LOAD CCB
* A DOB ESS IN
* REGISTKB 1
•
****j )••••<
• * •
TENTH •.
BBTRI
.*
♦ •- • •
• NO
IBS
X
BEIBI *
EOF .*'
• *
*. .*
• HO
• l
• .1
....r
••••
• D2 ».X
• •••
LABIIV3
»***«02*********
• LOAD ADOB
• OF COHREG
• INTO B2
• AND ISSUE
• S»C 33 *D3
• 03
BLOCKS BB6INNIN6 AT
LABHV3 BBPBESBHT
AN EXPANSION OF THB
STSIB HACBO.
• LOAD ADDBBSS •
• OF COHBBG •
• INTO BB6 « •
• •
•••••C«*********>
• SET REG 3
• TO LOGICAL
• IRANSIBNT
• KBT fALDB
*
••DH*******
• SET X«80' »
*IN FLAG BASK *
* POSITION •
• OF PIB •
• *
•••••••••••
».
E2
.* HAS
HIGHEST
PABTITION
.BEEN PRO-.
».CESSD.*
*. .*
• YES
••••F2*********
• SfC 11 ♦
• EXIT TO •
• PBOBLEB PBOG *
••***F3**********
• •
• GET AND SAVE *
• REIT KEX FOR •
• EXBCUTION •
• •
••••«G]******«**»
• GET PABTITION «
• COHBEG AND *
• HOVE LABEL *
• DISK ADDBBSS •
• TO COHREG •
• ••*
• •
• D2 *
• •
• •**
•• cohpLetb
•«»**K2**********
* * « •
• • SVC 7 • •
.X» • HAIT * •
» * • •
• *»•
* *
• B2 •
« «
178 DOS/VSE Logical Transients
Chart GJ- $$BCCHHR - Core Image Directory Scan
•**»A1«*«******
• *
• S^BCCUHB *
• *
***************
* *
* *
« «
• GEI ADDRESS *
» or HAS •
• LOAOLIST *
• *
FB»-S«SaES .♦..
FIBSI
CALL TO
HODOLE
LUUCHECK X
*«*«*C2** ********
* IHSERT DEVICE *
* AUDBESS OF *
♦SJSBES. SYSREC,*
* SYSLOS *
* *
*****************
.FBAPHASE X
*«***C3**********
* CONVEST PHASE *
* REL. BLK. WO. •
* INTO ABSOLUTE *
* FBA BLK-NO. »
*********
*******
«*CI<*******
«*««««*»***
* J2 •
• *
*•**
**«**Dtt**********
» • * •
* * CALL RAS * *
* * (S»C 33) • •
* * • ♦
* * * •
»««««4i 4c* *•**«**««
* SET I =H0. *
* OF BAS •
*LOA0LIST SLOTS •
* *
*****«**«****»*«•
* COHVERI PHASE *
* TIB IltO *
* CC.HH.R *
* *
.* HIS
.IKS .* STILL
....*. ACIHE
«**»*f 2**********
*«**«•*«*«*•***«*
RHSPOST X
* POST RAS •
• ACTIVE III »
•EACH PABTITIOH *
• COHBEG *
*****«••••*
* GET SCXL-DI8 •
* PHASE BNTRI *
* FOR SSRASTZX •
* *
•«•*•**••**•«•*•*
* Gl *.X.
* » •
*«*•
BXITt X
*«*«»GII«***»*»*«»
* « • *
* • EXIT * •
* * (SVC 11) * •
* * * •
* * * «
***•••**•••••«•••
*«•••***••*•*»»*•
***«
* J2 •
« *
• ***
****
* *
* B4 •
* •
• ***
****H<t*********
* *
• BEIOBN •
> •
**«******«***i««
Charts 179
Chart GK. $$BAfTFO - FCB Load
(Refer ?:o Chart 15)
Initiation
» *
• SSBATTFO •
t *
•**»*B1**********
* ESTABLISH •
*AODHESStBILITY •
* F08 PHASE *
•connuNicATioNS *
* ASEAS •
* DETEBHINE •
* LOGICAL UNIT *
* CLASS ♦
* •
*****B<t**********
• •
• CALCOLATE POB •
• ADDRESS AND *
• STORE IT IK •
• INFAHEA *
* •
* HOVE PHASE »
* NAME TO •
* INFABBA •
* •
*****************
♦♦***C2**********
« «
« ESTABLISH «
•ADUBESSABILITX «
» FOB COHBBG •
« «
DEVICK
WITH
FCB
• nOVE FORHS MO »
• TO IHFABBA •
• SET FORHS *
• INDICATOR •
• •
•»*«»l)2******««**
•FIND AND STORE *
• USEE) REG 15 *
• SAVE A!(EA •
* ADDRESS *
* *
•«***g2*«********
• »
• OBTBRRINB LOB *
• ADDRESS OF *
• SPECIFIED ♦
• SYSIXX •
• fi *
* *
• •*•
•HOVE LPI VALUE *
* TO INFARBA •
* SET LPI •
* INDICATOR *
* *
.vpROGBAHHEtt *. IBS
f. LOGICAL ......
♦. ONII .♦
PFSUNIl' X
*****G2*** *******
• OBTERHINE •
• CORRECT LUB •
• DISPl/2 VALUE •
• FOR SISLST *
• OR SISLOG *
m*** ************ ^t
*****QJ**********
* OBTEBHINE *
* CORRECT LOB *
* OISPL/2 VALUE *
*FOR PROGBAHHBB •
* LOGICAL UNIT *
*****************
*****flt**********
•••*•••*»***••*«*
****Qlt*********
* FETCH *
* JJBATTP3 *
* •
***•*•••***•**«
***••••*••«••
****S5*********
• FETCH »
• SSBATIF2 •
• •
***************
*****J y********w
****************
*****************
• JJ *
* •
****
I
.*.
J2 *.
* *.
.PFHE X
*****j J*** *******
* *
LUB *. NO
ASSIGNED .*....
*. .*
* INSERT PROPEB •
* RETURN COOK •
*I» OSES BEG 15 *
* *
*. .*
*«*•»******•****•
• ItES
•***JU*********
* RETURN *
» TO USBR *
* *
••*««**•*******
.* PRINTER A *. tiS
SPOOLED .*....
*. DEVICE .*
**KJ*******
*SET SWITCH *
> IN INFARBA
TO INUICATB
» PRINTER
* SPOOLED *
180 JOS/VSE Logical Transients
Chart GL- $$BArTF2 - LFCB Macro Execution for PRT1
(Refer to Chart 15)
» »
• J»B«TTP2 *
t *
♦TEST SPSCIFIKD
* PHASE FOR
♦COBBECI CODING
*
* imxIULIZB •
• PHASE AND •
• BEIOCATB ecus *
* *
*•••«•*
.* SBBOR
. IN CODE OF
*.FCB PHASE.
DOSKIV
***BS***
LISIIO
. ..X SKIP ID
I * CHANNEL 1
«»•*««•»•*•••»«••
* CONtfEHT CUU •
* AS IM PUB TO •
* FBINTABLE •
* CHABACTEBS •
* *
.* PRINTER •. IBS
. SPOOLED BT .*....
•.POVEB/VS -•
•••CH************
LOGIO GH
SEND HSG TO
» OPERATOR ♦
BEAD REPLY
•**0 I ******•*•*•*
LOAD
• DIKECIOBK *
ENTRY OF
* FCB PHASE »
BEAD FOSRS
• CONTROL AODR •
EtEG AND OLD FCB
LISIIO aa
PRINT VEBIFICt-
« HON HSG SKIP*
TO CBAN 1
.* PHASE IN
'. CORE IMAGE
*. LIBRARY .
NOTFNO
»«E2*******
*SEI ElilURN «
• CODE X> 18'
. ..X* INTO USEB
* REG IS
* <
* «
* COUNT AOX •
* FCB FOR •
* ALIGNHENT *
* *
*****************
****»BI«**«*******
* *
« PBBPARB •
* HBSSAGE TO *
* OPERATOR •
PBINIEHD X
***E5«***********
LOGIO GH
PBIIZ END
• BBSSAGE ON •
SYS LOG
.*. INVPHASE
Ft *. »*f2*******
.* *. 'SET BBTORN •
» PHASE *. NO • CODE X'1C> •
LENGTH .* X* INTO DSEB
• . COBBECT •• X • REG 15 *
,«
••••*•***•*
♦ *»•
« •
* F2 *
* «
• **•
• *
• C« *
« «
• •••
« *
• G» •
• •
**F5*******
•SET BSIUBN •
• CODE X»00'
• INTO USEB
• BBG IS
* •
* GET COBBECT *
* START ADDRESS •
♦OF VERIFICATION*
* HBSSAGE *
* *
***G3************
LISTIO GH
LOAD ADX. FCB
• AND SKIP TO •
CHANNEL 1
• *«Gi|************
LISIIO GH
PASS SPECIAL
* BBCOBD HUH •
LFCB INFO
•***S5*********
• BBTUBH TO *
• USBB •
• «
LOADPHAS I
LOAD NEH
* (BEQOBSTED)
*****««•***«*«***
* ACTIVATE •
USEB EBBOB
ROUTINE IN
CCB
t *
••J2*******
♦SET BETORN •
• CODE X'OM»
INTO USEB
» REG 15
♦ «
LISTIO GH
»-♦-♦.-*-♦-♦-♦-«-*
LOAD FCB
«««♦♦♦♦♦♦♦♦♦♦*♦♦*
.« DOBS ♦.
• SPECIFIED
LPI VALUB
*. AG»BF .
♦♦♦♦K2****^»^**
* BETUBM TO 4
• USER •
♦ 4
♦♦♦•♦♦♦•♦♦♦•♦♦•
♦ ♦♦♦
• ♦
• Bl ♦
• ♦
♦ ♦♦♦
Charts (181
Chart GM. $$BATTF2 - LFCB Hacxo Execution Subroutines
(Refer to Chart 15)
• «
« LJSTIO •
• «
• LOGIO *
• POT USER «
• DNII INTO •
• CCB •
• *
. * PBIHTBR
. SP00L8D BI
*.POHEB/«S .
• BETDRR TO *
• CtLLBI •
• •
• *
* STOBE CCI *
• ADDRESS IM •
» CCB •
* *
PUT DNIT
OF SISL06
IITO CCB
••*««g2******«***
• • • •
• * * •
• • S»C • •
• • • •
• • • •
«««*«F2**********
• • • *
• • H»IT POB • »
• • I/O • «
• *CONPLETIOII • «
• • * *
**»*Q2*********
• BETORB TO «
* CALLER •
» •
182 DOS/VSE Logical Transients
Chart GN- $$BATTF3 - LFCB Macro Execution for 3203 and 5203
(Refer to Chart 15)
* •
» »»B*TTF3 «
•••««B1**********
**««***««**«**«**
* «
* COMVEBT CUU *
* AS IM PUB TO •
» PRINTkBLE *
* CHkRACTBaS •
* *
* *
* RELOCATE ecus »
* *
* *
•••B2************
«I.OA0 DIRECTOBI *
BMTBI OF
« FCB PHASE •
' PHASE III
COBE INAGE
». LIBRARY .
• •
• nOVB PORB MO *
• TO MESSAGE •
• AREA •
• •
****«B 1«««*««««**
* «
•HOVE LPI »ALUE •
• TO RESSAGB •
• AREA »
* *
LENGTH OF
PHASE
. COBBECT .
«***«B2*********
«
• GET ADDRESS
•OP VBBIFICATIOM
« HESSAGB
*»**»P2********«*
« *
« STORE DEVICE *
• SPECIFIC FCB *
• LENGTH III ecu »
« •
• FCB IHAGB
***m* ***********
MOTFND
**C3***«***
*SET RBTUB*
» CODE »• 18*
. ..1* INTO USER
♦ REG 15
*•••«•«••**
INVPHASE
••D3*******
•SET BETURI •
» CODE X" «C« •
...A* INTO USER
X • REG 1& *
•••**•«••••
««««
HACRBT
*•••
****
« •
* *
• B* *
» Bb •
» •
• •
••••
• «««
X
X
OPHESS .*.
OOSKIP
.♦.
B<» ».
m *.
• • •.
• IS •.
.•FOBHS=XtXX ». NO
,•'
PRINIBB •. IBS
•• SPECIFIED .*....
•• . .X*
«,
SFOOLBD .*....
*. .•
• • •
». ••
*. ••
• • .*
*. .»
* (BS
• NO
***•
• * .
» c« *.x.
• * .
••••
BAL X
X I
**»C<I*****«******
**>c&****>******* .
LOGIO GH
LISIIO GB
«-•-•-•-•-•-•-«-•
SBND NSG TO
SKIP TO
• OPEBATOB *
*
CHANNEL 1 •
■BAD SBPLY
••••••*«*••••*•••
•
!x*«.*«*»*..r
•
• RETDBN TO «
• USEB 4
• «
* *
* FJ «...
* * .
• •**
X
•DEACTIVATE •
• DSBB ERBOR •
* ROUTINE IN
• CCB •
* •
•••«•••••••
•••••E<l^**«*«*^*'
•
• PREPARE
• HBSSAGE TO
• OPEBATOB
«
•••••••*••«•••••
•••^^•••••*
LISIIO GB
•-•-«-•-•••-•—••
PRINT
• fBBIPICATIOl •
BSSSAGB
•••••••*••••••«••
.• PBIMTBB •. XES
.»
NO
*. SPOOLED BT ......
*.
CHANNEL
•.PONEB/VS .•
FOUND
PBINTBND X
***fi9*»9*»»m»»m»
losio ea
•*•-•••-•-«-«—•—•
PRINT END
• HBSSAGE ON •
SXSLOe
••••••«••••••••••
••GS*^*^***
•SBZ BEIURN *
> COOK X*00'
IHTO USEB
f Bse 15
* «
***********
• RBTU8N TO •
• 0S8B •
•««••••••«•••*••«
•••J 2* ••***••«***
LisTio sn
•*«-•-«-*-•-*-«-•
ALIGN FORMS
• TO LINE 1 •
>•••••••*••••*«••
**ji»******
• •
NOP
INSTBUCTION
lOEBR
* *
***********
««*J <!•«••••••••••
LISZIO GH
•-•-*-•-•- •-•- •-•
PASS SPECIAL
• BBCORD NIIH L
FCB INFO
•••••«••••*•*••••
••K2^^*^**«
• ACTIVATE »
USEB ERROR
ROUTINE IN
CCB
• 4
••••••••*••
LISIIO GH
«••-•-*-•-*-•-*••
LOAD REQUESTED
• FCB IHAGB I
RTO FCB
•••*•*••*•••*•••«
• •
• F3 *
• *
****
Charts 183
Chart KA- $$BOCRTA - CBT Root Phase (Part H of 3)
(Refer to Chart 16)
• *
» «
• SSBOCBTk *
« «
«*«*C2******«***
*
SAVE CHJLIIMEL *
SCHEEULE8 •
BEGISIEBS •
*
SAVE •
lOS •
BkSE •
RBG •
«
««**E2******>***
INDICATE *
CBT BOSX *
AID SET •
DEVICE •
BOSX •
***«»F2**********
* *
• SAVE «
* OBIGIHAL *
• BEgiD *
«*»*G2**********
•
POT CHT »
BEQID •
TO CHANQ •
««***H2**********
• GET *
• AODBESS *
• OF CBT •
• BLOCK »
• *
*»*»«J2******«**«
• PUT PIK *
• TO CBT •
• BLOCK AMD •
• SAVE TIK •
• IN CBTSAV •
mmm* *************
*****************
****B3*********
••«*•«•••••••*•
••••«C3****«*****
• •
• SAVE TASK •
*BEQUESIOR-I0 EN*
• CBTSAV •
« •
*****D}*******m**
••**»«•**••••*•••
*****fi*** *******
* *
•SET TIK AND PIO*
•AND SAVE PIK IN*.
* CBTSAV *
* «
*****************
• GET ecu *
I* ADDRESS *
• FBOa CAN *
• •
••••«•••••••••••*
•••••B«**********
« «
» POT CCi •
• ADDBBSS *
• TO NEXICCN *
• •
«*•••••••••«••••«
•••••Clt^*********
• •
• CLEAB SBVEBAL *
•BITS IN CITCSM *
• AND III CBTCCB *
• *
•••••••••*•••••••
*****JiH**********
* *
* SET OP PIOPBB *
* LOB DISPL. *
* IN CBTCCB *
* •
••*••••••••••••••
.* IS TBIS
A POTB
•. BEQUEST
•••••Fl>*^*^******
• •
• SAVE POTB *
• INDICATOB IN •
• CBTCCB *
••••*B5****^^****
• •
• CISAB •
• ATTSanON •
• BOFFBI •
•••••
•KB •
* A2*
•»*•••••<
••••••••
.* IS FIRST «. XES^
COHBAND .*....
•. A TIC .*
•••••||ll«**^«***»*
*****************
• SKt IIP CSN *
.X* ACCUBDIMG TO •
• PBOSBAB CHECK •
• •
••««»•••••••••••«
•••••IJS^*«****«*«
• •
• •
• CLEAB CBINEXT *
• •
• •
«•«»••*«*•«•«••••
**Ji******* JH *.
* SET • .• ».
INITIALIZATION* t^S .* *.
FLAG. CLEAR *l *IHITIALIZAIION.*
•••••
•KB •
• DJ*
«***«K %*****»**
* HAKE
* INTERRUPTED
* TASK
* DISPATCHABLE
•
*••*••*•
• NESSASB •.
FROB SYSTED .*
». TASK .*
» SELECT BUTE
*•**•»*•*••
* RETURN •
• VIA REG6 *
> «
•*••«••***••••*
>••••«••
SET OP *
SXSCOH *
POINTER *
••••••*••••••*••
184 DOS/VSE Logical Transients
Chart KB, $$BOCRTA - CRT Root Phase (Part 2 of 3)
(Refer to Chart 16)
•K» *
• 85*
• AS •
* *
• RESET HSITE •
• MXTHQOT CAB8. •
• BETUBM SWITCH *
• «
SET OH DBIIE •
VITHOUI •
C4BBIAGB •
BETUBN •
INDICAIOB •
.* CCH CHAIH *.
. TO BE DIS- .
• .COmiNUBD.*
* *
• G1 •
> •
• *••
• «
• GET NEXT CCM *
• A0D8ESS PBOH •
• NEITCCil •
• «
«***«C5*********
««•««*«**<
•ItC •
STUBECCN X
•••»*£2**********
••*•••••*•*•***•*
• SET CS» TO •
MO .• IS ecu OH
m
* BBFLECT 'X...
*. UOOBLEHOBD
• PROGBAH CHECK *
•.BOUMDARK .
*
* *
•• .*
••«••*«•«•**•••««
*• .*
• IBS
•••* l
* • .
• 61 '.X.
• * .
• »••
SBTPLAG X
•••••G1*** ***••••
• •
•BESET CBT-rLAG •
• AND ERSOH •
•INDtCATOB BITS •
• •
• CLEAR CRTMEXT
*
*
•••*J1*********
• FETCH •
• SSBOCRTG *
• «
«**«*e2**********
* *
• CLEAR CRTNEXT •
* «
• *
IS THIS
A TIC
COHflAHO
*m **************
*****gi*********
****************
ATIBNTIOR
. PENDING .
*****QJ*********
* INDICATE
* tSBOCBTA MAS
• INTBRBOPTED
• PHASE
»
****************
• FETCH •
• (SBOCRTK *
• «
***************
IS THIS
A TIC
COMRAND
* «
• POINT TO ♦
* CONTINUATION •
• CCN •
« •
************
• HO ♦»•••
»KC *
• ***
• At*
* *
• * *
• J3 •...
•
* * .
X TICHT
**** .
*. FETCMO X
J2
♦ ,
*****ji**********
•
*,
* *
BAP
AROUND*. YES
* PROVIDE FOR *
UPDI
ITIHG .•
.X* PROPER CSN •
.*
* «
*,
.»
• •
•
.♦
*****************
CRTEOJBT
»****fH**********
* GET AODBBSS *
* OF CHANNEL •
...X* QUEUE AND •
•CHANNEL BUCKET •
*•*•»•«*•**•****•
•••••G ■•••••••••••
•DESTROY DEVICE •
• AND CHANNEL •
• AODBBSS IN •
• BUCKET •
• *
•*••••••••»•»••••
••&&•*•••*•••
FETCH •
««BOCBTZ •
«
*•«•••«••••••
•••••Jl|^***^^****
• SET UP PROPER •
* STATUS BYTES *
•••••••*•*••«••**
.» NBITE •
HITHOUr
CABBIAGB
. RETURN
****l!ii*********
• FETCH «
• tSBOCRTU •
• «
*«•«*****««***«
• •*••£■••*••**••••
•**•••««•••••••••
Charts 185
Chart KC- $$BOCRTA - CRT Root Phase (Part 3 of 3)
(Refer to Chart 16)
mi
BSBOR
FOUND
« «
» SEr UP ST»TUS •
•BITES AS SIOS£D*
• IH CBTCCB •
« *
EBB08 DUE *.
TO UNIT .«
. CHECK .•
«»***02*********
* SET ON DUHRK
* SENSR
* INCICtTOR
*
NOUNITCH X
**»»*E2**********
• BESIORK *
« CHAHNEL-QUEUB *
• ENTBY TO •
* BEFLECT USE8 •
* ENTBT »
«*X)*«*«***
*•**•*«*«*«
» SET UP *
» INTERBUPT »
• INFOBHATIOM *
• m LOW CORE •
» «
«****C3**********
* *
• PROVIDE »
• EXIT *
♦ INTERFACE «
* «
*****************
****03**********
*
DETACH •
CBI •
TASK •
*
****************
****E3*********
♦ EXIT TO •
♦ I/O INTERRUPT •
♦ HANDLER *
***************
.* ecu ON ».
PBOPEB
•.BOUNDABI .*
»**««BI|*********
•*•*•*•**•«*•*••
TIC
*. IBS
AFTBB TIC
*
«. .*
*. ••
X
• NO
*•*•«
*KB *
,
* P1«
X
• *
*•••*
«
*KB •
PBOGCHCK
• E2*
186 DOS/VSE Logical Transients
Chart KD, $$BOCRTB - Hard-Copy Disk ERP (Part 1 of 3)
(Refer to Chart 22)
* *
* SSB0C8TB *
* •
* *
« SET OFF •
• DISASTER FLAG •
» IM CCS *
« «
KABNXIIS *. lES
AMD/OB .*....
. OTEBLAY .*
*.FLAG .*
« CLEAR
(• HESSAGB
• ABBA
*
» GET FIBST •
* PBOTBCtEO •
• SCRBBil LINE *
•*F1**«****
• «
SET OFF
PROIECIIOII
FLAG
* •
•»«*»G1 **••*•••••
•OPD KF»
• GET VEXT *.
• PBOTBCTSD •
• SCRBBR LINE •
REFERENCES
TO KDn2:
KEB2, KBH1
• ***
* «
* H2 •
* *
.X.
* *
« SET SYSLOG 10 *
«* IN FRONT OF •
* MESSAGE •
* «
««*«*J2******«***
« *
• HOKE HESSAGii *
« INTO SCREEN «
• BUFFER •
« *
*««*K2*********
• FETCH *
• tSBOCBTG *
• •
LINE
•ONELINE KE*
...I* GET A FREE *
* HESSAGB LINE •
••*•*••***«*•«••«
• SET ON LINE
• PROTECTION,
♦INDICATE E-T»PB
• MESSAGE
«»«**F3«*****«*«
* INSERT
* PABTIIION AND
* TASK ID
*
REDISPLAI ......
*. HOPE .*
•• .»
». .» X
• NO •«*»•
• ItE •
* AJ«
* *
. •
X KOSPLAX
.». HARN .♦.
H3 *.
HU *.
.* *.
.» *.
* HARD COPY *. NO
.* BARD COPY *. NO
OTBRLAT BODE .*
.X*. WARNING FLAG .*....
*. •*
•• SET ••
• • .*
». ••
•. .*
•. •• X
• YES
• YES •••*•
•KB •
,
• A1»
♦ •
^
»
,
INCOBRL
X
X
**«J3****«****«
••***jll*«*«**»*««
•RESET HARD COPX^
• NARNING AND •
• OTEBLAY FLAGS •
• •
•»***K3*****»***»
•••••**•••••*••••
•GET AOOBBSS OF •
* APPROPSXAIB •
* MESSAGE •
* «
•••••*•••••••*•••
Charts i187
Chart KE- $$BOCfiTB - Hard-Copy Disk EfiP (Part 2 ot 3)
(Refer to Chart 22)
*****
•KO •
• H«*
*****
•KO •
* GJ*
*****B 1**********
• RBSET FLAG *
• IH0ICATIN6 *
• OHBECOVBRkBLE *
• EBB08 *
• *
*************i***
****** 2**********
*****************
**B2*******
• BESET ♦
UABS COPT
OfEli AND
EBBOB FLAGS
* 4
***•*•*•*•*
*****
•KO *
• H2*
BESET
REDISPLAT
nOOE FLAS
r *
•••*•**••**
.• *. IBS
*.IRTERVEMTIOI .*....
• .BEUaiBED .*
**D1*******
* •
* BESET HA80 •
* COPY OPEN •
* mOICATOB *
• •
••**•
I*****
**•*
* *
• El *.X
* «
****
LIIB2 X
•*••*£ I**********
*ONELIIIE
KB*
*-*-*-*-•-*-*-•-«
• GET A SECOND •
• MESSAGE LINE •
• •
*****************
*****F 1**********
* •
* INDICATE *
* PROTECTION ON •
* AND CONTINUE *
* *
**•***•*******•*•
****G 1**********
NOTE HESSAGE *
IN FIBST •
LINE *
*****H 1**********
* *
*PBOVI0E SECOND •
*LINE NITU SENSE*
* INFO. AND CSH •
* •
*****************
*»**
• *
• D2 *.X
«*D2*******
* *
*SET ON FLAGS *
* FOB SSbOCBTG *
* AND -H *
* •
•**••*•••**
**E2*******
***********
*****
*KD »
* K2*
••**Aii*********
* GET FBSe *
* SCBBEN •
* LINE *
•*•***•********
* PBOVIDB FOB •
* SBABCH •
* ABGOMENT •
* *
*••••*•**•*••••••
-*-*-*-•-•-•-*-*
GET FBBB SCI •
GNTRI •
*
****************
*****DI|**********
* DEFINE *
* BESPECTITE *
* SCREEN LINE •
* ADDBBSS •
* •
*****************
****gll*********
« *
• BETORN *
> •
***************
188 DOS/VSE Logical Transients
Chart KF., 3>$B0CRTB - Hard-Copy Disk ERP (Part 3 of 3)
(Refer to Chart 22)
• SEARCH SCT •
• STRING •
• «
• PROVIDE •
• kDDBBSSIMG •
• REGISTERS *
• 4
• ••* *
• CI •.
« ♦
.•APPROVBIATB*. NO
•• SCT EHTBT -•...
*. FOUND .•
»*«*1I2****«****
• UPDATE «
• STRING •
• •
m****C2**********
>••*••***•«*
t •
• RETURN *
» •
STRING END
HESSAGE
EXCEEDS
SCREEN
•INDICATE SCREEN*
.X* FULL AND ONE *.
• LINE PROVIDED *
• •
««**«g4«** «**««*•
* «
♦ CLEAR FIRST •
.X*SCREEN LINE AND*
• SCT ENTRlf •
• «
i**««F 1**«««*«««*
•*«•••*•••*••*•<*
F2 «.
.•SECOND •.
U .* LINE
.«. NEEDED AND
». FULL
•SCREEN.*
• CLEAR SECOND •
.(•SCREEN LINE AND*
• SCT EHTRI •
• *
• »«»FI»***^*****
* *
• BETORH •
t •
••*••*«**••«»*•
•***G 1******»*«
• FETCH »
• StBOCRTQ •
• •
***««***«**«**«
****G1*«^****^*
>
• RETURN
*******«4t*****«
Charts 189
Chact KG. $$BOCRTC - Write Processor Part 1 (Part 1 of 4)
(Refer to Chart 17)
• *
• •
• S«BOCRTC *
• «
• ••*
* •
* B2 •
* •
.DUCtiEX X
»****B2**********
»SKlPISt KK»
• HEUEF. LINE •
• STATUS IF »
• •KEIII)*SKIP' •
•DOCCEX^
•SEARCH KJ*
• GET FIRST •
• LIME OP •
•CUKRENT RSSSkUE*
• GET FREE •
• (lESSAGE AREA *
• LIME »
* •
• SET OM LIME *
• PROTECTIOM »
• FLAG •
* •
• INDICATE *
» CONTINUATIOM »
• LIME IF •
• NECESSARY •
• •
* «
>*GET ADDRESS OF *
• FIRST CCM TO •
* BE PROCESSED •
• *
«*««*B1 •*•«•«•««'
••*••••••**•••*•
•RELOAD CURRENT *
• SCREE* BUFFER *
• ADDRESS AND •
• SCT POINTER •
• •
« *
*RESET ALARM/NOP*
• AND READ-CCW *
• INDICATOR *
• •
DEFINE
HESSAGB
TYPE
****E2*********
* FETCH •
* SS60CRTG *
* •
• •
• GET CCM DATA *
• ADDRESS AMD •
• BYTE COUNT «
• *
.* ANY DATA «.
TO BE
*TRAMSF£BRRO*
• •
• JJ «
• *
* FETCH «
• SSBOCRID *
» •
BliFBaENCF.S *. .*
TO KGJ1: *. .* X
KNH&, KJB2 • YES »•♦••
•••* . «KJ *
» * . • A2«
* • •.X. • •
• YES ••••
* *
» Hi •
X • •
•••• »•*•
• *
• Ai •
• *
•«***U3*»»**»****
• TRANSFER DATA •
• INTO SCREEN •
•BUFFER. UPDATE •
• ADDRESSES *
♦ •
REFERENCES
••*• '.
TO KGJ3;
* • .
«HF5, KJG2
• J3 *.X.
«••••
» • .
* •
• •*• X
* •• NOBOKE •••
• •
J3 ••
*
.• ♦.
^
.• CHAINED *. MO
.!♦. ecu •••...
*. .*
•• .*
•. •• X
» YES ••••
• •
• B2 •
X • •
«•**« *•••
• KH ♦
• AJ»
190 DOS/VSE Logical Transients
Chart KH. $$BOCRTC - Write Processor Part 1 (Part 2 of 4)
(Refer to Chart 17)
• AS •
« «
* •
« »
* GET IIEXI ecu •
* *
* I.. • • J. r ur \.t^m »
•IITO iOBK AB£A •
**•«*«««««*«••«•*
• >*••
• C2*
»*«***«****««**«
• *•«
*
«5 •
••••»D2******»»**
*««««*«*•*•**«**«
**«B 3* *********
*****************
**«*
* «
* D« *
* •
«••*
**«**p1« ***«•«*«
******«««*«*«****
• »**
8ZPEAT2 X
*****0l)********
«***«♦*«**«««****
DOCABX X
****•£«*••**•****
•SKIPISI KK*
•-*-•-*-*-*-•-«-•
• BEOBF. LIIE •
• STATUS IF *
• 'BEAD*SKIP< *
• •«*Fl|****«**«*
* FETCH *
* *$BOCBTA *
* *
*••••**••**••••
.* LAST
*. MO
*. •BEAD* CCH
••. •••
*.
« ,
•• ••'
X
• IBS
• ••••
«•«•
• KG *
•KJ *
• 03*
* k2 ••X.
• •
* * .
«
••••
XFBI
BBAOCRO X
••••*05*«***»»«**
*
•
• SBT RBAO-CCII
•
* IHDICIIOB
. ■•
•*»•*•**•••••••••
.• LAST BEAD •. NO
>. CCM IM .*...
*CHAIIilBL fCa*
« G1*
* •
BEPEATO
•••«*S5****»««*«*
« «
* SIOBB •
* BBSIOUAL •
* COailT *
* •
**««**««««••*«*«*
•••««HS*»***
* «
« IHOICATE •
« IBCOBBECI •
* LBIGTil IF KEU. *'
* *
«*«*««*«««*•««•««
*•*«•
♦ KG •
• J1»
Charts 191
Chart KJ. $$BOCfiTC - Write Processor Part 1 (Part 3 of 4)
(Refer to Chart 17)
A2 *.
.* •
.»
*. YBS
• SEARCH set •
. READ CCH
•*.•••
• BNTBi •
»,
•
» •
*. .*
^
•»*••••♦*•»•*•♦
• • .*
X
• NO
•••••
♦KH •
• D5»
• *
*
X
BEADCBO
-••
SBABCH X
82 ».
****«B3* ***•*•*•*
.* *.
• •
,*
• • tes
• PBOVIUE •
.WHITE K/O ca ......
• ADDRESS •
• .
•
• REGISTERS •
• • .♦
• •
*. .*
X
* NO
•••••
*KS •
«««* *
• J1»
• • .
,
• «
• CI ".X.
•
* • .
X
NENL
*••• X
• •.
STRGSNO .*.
C2 ••
a *.
.* *.
• • ».
.«
«.
.♦ RIGHT SCT ».
TIC ecu
.*
•. SNTRt FOOND .*
* CALCULATE •
X* APPBOPSIATE •
* Ltai ADDBBSS •
* •
GOONit X
•••»»02**********
• SAVE CORRENI *
• SCBEEM BOFFEB •
• AODEBSS AND •
• SCT POIMTEB *
• «
• •Ii2*******
• •••D3***>*****'
••••••••*»••*••
> •
> RBTUKI *
INDICATOR
* m
STRING END
«*G2**«****
»••*•••*•**
.* MESSAGE
»,
IBS
•. TIPE
.*
•OEFIHIIION
•
,
*. .»
*. .*
X
• NO
♦KG •
• B2»
• •
•
D0CGBX1
DOCQtfX X
•••**G3***»******
•••••
•KG •
• J 3*
**•*«****•*«♦*•«*
•***H3*********
• FETCH *
• StBOCRIQ •
• *
192 DOS/VSE Logical Transients
Chart KK. $$BOCRTC - Hcite Processor Part 1 (Part 4 of 4)
(Refer to Chart 17)
* DBFIHB *
* RBSSkOB *
» IIPB »
.•RESStSE*.
.* HITH *. IBS
*. RBUUEST FOR .*....
*. REPLY .* .
* •
* Hi •
• *••
PAKtlL
.* *. «BS • IRDICkTB •
*. PROGRkHHBB .* X* IRFOBHITION *
*. URIt .• • StkTOS *
SKIP
PIRTITIUR ID
IKITIALIIB
RB6ISTBRS
.• FIRST •.
.X*. CHtSACTER .
•HBXaOBCIHkL*
.* HBtORB *. IBS
.X*. FOLLOHBD BI .*....
*. BUIB .*
*. •*
.* VALID *.
.X*. TXPR
•.IIDXCIIOB.*
*. .*
• OBt TIPB XRD •
I* PBOVIDX •
* IRDICXIOB *
••••H2*********
• 8BLBXSE «
• LIRE *
IBS .*
*
1
•
NO
•
. *•
*. .*
X *. .*
•*•• • 10
• *
*
*• .*
*. .*
• IBS
•••*K1********* I
* BBTURM * '.
K2**'*.
.* *
,*
. PHOGBAHHES
• *
• XRSBRI TIPB •
• XBUICXTQB IH •
• SCT BRTRX •
• *
• IRSBRT XSIBBISM
.* IH FRONT OF •
• BBSSXGB •
Charts 193
Chart LA- $$BOCRTD - Write Processor Part 2 (Part 1 of 3)
(Refer to Chart 17)
* «
* SSBOCBTD •
* «
. * BEIU8N *. IBS
FBOD .*....
*.ISBOCBTQ .•
••***A3*****«*«**
***•»•«**••*••*«•
t *
•••***•****•«•*••
• *
• *
*GET CCH ADDRESS*
*««*B2* *********
««*««**«««*«**«*•
.* «SBOCBTQ *. KKS
BETUBN .*
*.INDIC»TOB.*
•«***•*•*••«•*•**
*- •*
,
* HO
••**
**»*
* * .
*L8 *
* D1 *.X.
• El *.X.
* *
* * •
••*•
*•*• X
TBSPB X
NEHLXME .*.
•****01**«*******
D2 *.
« *
,«
• »
.* HEW LIRE
•COT OFF MESSAGE*
*. 8EQ0IBED
• *
»,
• *
*.
*- .*
«**« I
«*«« I
* * .
*LB •
• B3 *.I.
• Ei *.X.
• • .
* * •
»*••
*••• X
XEHLIHE1 X
HOHOVE .*.
•«***B3**********
B» *.
* SET OH *
-♦ ♦.
* »»BOCBTQ *
.* *.
• BETUBM *
..X*.CCII CBIIIIIIIG .*
* IHDICAMR *
*. .*
* 0« *
*. .♦
******•*•«***•*«»
• *. .*
*•»» » XES
* * •
* B« *
* *
• *»♦
i
i
***«*C3*******«**
»*«**CI( **********
*S£ARCH LC*
* *
*-*.*.*-*-«.«.*-«
* *
* SEARCH FOR A *
* GST IIEXT ecu •
* FREE SCBEBIl *
* *
* LINE *
* *
4t****«*««4i*******
*««*D^***«**««*
» FETCH *
* *»B0CB3C •
» *
«*««*****«*****
TBSFBl
**«**£ ^******«««*
* CALCULATE *
* NUHBEB OF *
* BYTES to BE *
* TBANSFBBBRD *
* «
*•**«•*••*»**•***
**•»
ENOUGH
SPACE IN
. COBBBNI
*.LINE .*
**E2*******
» SET ON *
SSBOCRTQ
BETURN
INDICATOH
* 08 •
***••*****•
***«*F2*******
•SEARCH
*-*-*-*-*-*-•-
• SEABCR FOB A
« FBEE LIKE
»**»*|| I**********
» *
* TRANSFER DATA *
* IHIO CUBBENI *
* LINE *
* *
»****•***«*****«*
***4*J I*********
«
* UPDATE
* ecu BITE
* COUNT
*
****************
«■**«******«*
•*G2*******
* BESET •
«»BOCRTQ
r****«****«
*****U2*******»**
* *
*ADJUST STARTING*
* POSITION IN •
* MEN LINE *
* *
*****************
*«**«{) 3*********
* RESET
* $«BOCBTQ
* RETUBN
* INDICATOR
* CM
****************
*****e3*********«
* *
*ADJDST STARTING*
* POSITION OF *
* NEH LINE *
* *
*****************
****
*LB *
* G4 *
t.
* «
****
TRSFB3
* DATA *
IBS
CHAIRING IN
♦ • . - •
*.LASX ecu .*
,
*. .*
*. •♦
X
• NO
*****
*LB *
****
,
* At*
*LB •
* *
♦ D2 ••X
.* BORE THAN *. NO
..X*. ONE LINE TO .♦...
*.BE XFRD. .*
F4 *. *****F^****««**«*
.* *. * •
.*IASI CCH = *. NO * ANALYZE EXIT •
.WRITE N/0 CR .* X* CONDITIONS •
*. .* * *
*. .* * *
*. .* *****************
****
* *
* F3 *
* *
*•**
• ***
* *
* PI *
* *
****
* D1 *
* *
****
*««**Qf|* *********
****G5*********
• FETCH *
• ttBOCBIA «
• *
***************
*****************
BEFEBENCES*
TO LAHU:*
LBA4, LBD2*
**********
**«*
* *
* F3 *
* *
****
*.LAST RBAD-CCM.*
*****
• LB •
» A1*
194 DOS/VSE Logical Transients
Chart LB. $$BOCRTD - Hrite Processor Part 2 (Part 2 of 3)
(Refer ^.o Chart 17)
♦ LA •
• ***«
• Jtt*
• •
• STOBE *
..X* BESIDUtL •
. • COOKT •
• •
• INDICATE •
• INCORRECT •
• LENGTH IF *
• REQUIRED *
*2 *.
.* *.
.♦ *
«.USITE V/O CR
• Li *
* Hit*
01 •.
» •
«•
•
*,
SKIP FLAG
*
«,
•• .•
•• .•
• HO
«
**«•
• LA
• ,
• Hit *.X.
«
*
••«*
lEHCHD
X
•••**B1 •••***•••*
•
•
«
GET DATA
*
«.
ADDRESS
*
••••C2**********
**•••*••••••**••
* SEI OH *
.X* ALABH/NOP AND •
•SENSE IHDICAtOg^
• •
i»**««C 3* •*•*•••*•
• SAVE CURBEHT *
• SCREEN BUFFER •
• ADDRESS AND •
• SCT POINTEB •
• •
«****«*•*««•««*»«
•••••Bit***^******
• •
• BOTE BXtBS •
• 1...,7 OF ecu •
•INtO ftORK ABBA *
• •
••**••***••••««••
*•***•**«**«*••«*
•••*•
• LA •
• D2*
ALARM ecu
««E3***««**
•••*•••••••
• ••••
•LA •
• Bit*
• *. XES
LAST •REAO< .*....
*. CCH .*
*. .*
• NO *•**
* *
* «1 *
* *
***•
.*.SKIP FLAG SET.*
•••••G>t^**^***^**
• •
• GET DATA *
• ADDRESS AND •
• BXIE COUNT •
• •
**•*•*••«•••«••**
**•••
• LA •
• FJ»
Charts 195
Chart LC* $$BOCfiTD - Write Processor Part 2 (Part 3 of 3)
(Refer to Chart 17)
» GET fHEE LINE •
m** ************
► PROVIDE •
» ADDBBSS •
• 8EGISTERS *
t •
ti*** ****** *******
*****Q2**********
*****************
* CAtCUL«TE *
.X* IPPBOP. LINE *
* ADDBESS *
* •
*****************
*****Qi**********
* IMDICAIE *
•PROTECTION AND *
* CONTINOATION *
* «
•***E3*********
* •
• BETUBN *
***************
**f2*******
***********
•«*«*Q2**********
*****************
****H2*********
► rsTCH *
' tSBOCBTQ *
» «
196 DOS/VSE Logical Transients
Chart LB.. $$BOCRTE - CRT ERP Part 1 (Part 1 of 3)
(Refer to Chart 22)
•IE •
• G2*
• •*•
> *
****k I*********
• 4
• SSBOCRTE 4
• 4
**C1***«***
t «
RESET
OBK SENSE
INDICATOR
• «
**D1**»*»**
* RESET •
RETURN FROM *
SJBOCBTF •
INDICATOR •
• *
*«*•»•••»•*****•*
.* HARD
..X*. CHANNEL
*. ERROR
•• UNIT CHECK
*»***A3»«****»***
•«******«*•*•«**•
»***B3**********
*»*«»**«•»••*»•••
•****A4***«******
*••«••*•***•••••*
• **»«Blt*********»
**««*♦*«****««««*
• YES ♦»•»
* *
* K3 *
* *
• *«*
.• ONN *.
SENSE *. NO
NECESSARY .*...
«»****4***«******
**D3***»»*»
* *
• BES2T *
» SENSE •
* INDICATOR *
* *
* J5 »
* *
* •
•SA»K REGISTERS •
* OF FAILING •
* PHASE •
* *
*****************
*****Q ]*********
*****************
*»***H1 •*•••••«**
*•••*»•*«»***•
*****j )***»*«»*••
*••*«•»****«***•*
*.NORHAL SENSE
• SA»E CURRENT •
• CSK SIATOS »
• BYTES *
• *
*****************
*****f2**********
%**************
*****Q2*»********
*STBTIO LP»
♦-»-»-«-•-»-•-»-•
* GET SENSE «
* INFORRATION •
* *
*****************
.X* REDEFINE CON *
* *
* *
*****************
****
* *
• C3 »
t****Q^**********
*****************
• INDICATE THAI •
• SENSE MAS •
• PROCESSED •
V *
*****************
****as*********
• FETCH •
> «SBOCBIC •
» «
***************
H2 *.
**)S3******.*
.* *.
* *
.» *.
«0
•RESET ERROR- •
•- ERROR ON ••
* OK-SENSE •
•. SENSE .*
♦ INDICATOR •
*• .*
* *
• *••
*. .*
***********
* *
♦ YES
*LE •
* 42*
* Jb *
* *
****
i
• •
•
.».
X
X
J2 *.
••**«j 3 *«*»•««*»*
*****] ^**********
*****j^**********
.* *.
* *
• *
* »
YES .* *.
• INDICATE I/O •
* *
* PICK UP SENSE •
...*. FIRST TIME .*
* RHROR FOR ♦...
• . • . . X* CLEAR (
:htnext *
!LU *
* INFORMATION *
*- . *
» SiBOCRTA *
» FIl
• «
*. .*
« *
* *
* *
*. .*
*****************
••»*«*••«••»»♦»•*
* SO
,
****
****
***•
• LE »
* *
* *
• K3 *.X.
» K3 «...
• K<t *.X
X
• • .
♦ *
* *
• •**•
»*♦»
**»•
****
• LE •
DOCFtXI X
OOCFBX
DOCAEX
* B2*
*****fll2**********
X
X
* •
* *
****/, i* ********
****fm*********
*
• INDICATE •
* FETCH •
• FETCH »
• HARD Bill *
. .X* tSBOCRTF *
« $SUO(
ZHtk *
***************
***********
Charts 197
Chart LE. $$BOCRTE - CRT ERP Part 1 (Part 2 of 3)
(Refer to Chart 22)
•****t2**********
«•«•••**•****«•* 4
*w«*
*LD •
♦ Ji ••X.
• ••• JC
COCFEX
• FETCH •
• tSBOCHTF •I...
.»
B2
.*
NO ••
*.INIEBTE
«*••••*••••«*•«
•.B8QUISR0 .*
* RESET *
* OIStSTEB Alio •
• POST FLtG •
» IH CCB •
• •
• BO»B •
• MESSAGE CODE *
• IBTO LOB •
• COBE •
« *
*GBT AODBBSS OF *
.X» IHTEBVEHTIOII *
* MESSAGE *
* *
« *
•RESET DISASTKB •
* AND POST FUG *
• m CCB ♦
« *
• *
• SEND MESSAGE *
••*«*F2*********
«**«*««*«**«*•«*
****A3*********
* •
*SEND ERBOB RSG *
• «
♦LD *
* A2*
*••*••*•*•***•*•*
»«***(;3********«
*
• CLBAB
• INSIBUCTIOH
• LINE
*
****D3********4
GET StSLOG ID
• HOVE EBBOR •
• MESSAGE TO *
• INSTBUCTIOB •
• LIME *
• •
••*«*P3***««***»«
*SATB LAST FOUB •
• CRABACXERS OF *
* LAST MESSAGE *
* Line «
• •
*«***G3****««***«
•IRSB8T CONTROL •
• CHABACTEB II •
• FRONT OF IM- *
•SIROCTION LIIB •
• •
• •••
• INDICATE
• RETURN
• FROM ERP
••••*J2******«***
• •
• RELOAD •
• REGISTERS OF «
• CALLING PHASE *
• *
****K2*********
• FETCH PHASE *
• *
• •••
HSG3 X
««**»il3***»***««*
*STRTIO IF*
•DISPLAX MESSAGE*
* •
•••*•*••******•*•
.*. FIRST TINE
HSG2
* RESTORE LAST *
«« CHARACTERS OF*
...X* LAST MESSAGE *
* LIIB *
» *
•«•*•*«*•*••***•*
• •
• RETURN •
» *
*«•*•••*•••*•••
• «••
* «
* Hi *
* •
**«*
**••«
*LD »
* K2*
198 DOS/VSE Logical Transients
Chart LF. $$BOCRTE - CRT ERP Part 1 (Part 3 of 3)
(Refer to Chart 22)
****A1* ********
*
* I/O ROUTINE
*
* SkVB ECSU HMD •
* CSK ST&fUS »
* BYTES *
« *
*****************
STBTIO X
**Q}*******
BMABLE, THEN*
DISABLE FOB I/O
***********
****
* * .
* C3 *.K.
SET OhIi
SENSE
INDICATOR
.*PS0GB*I1 OR *. lES.
*. PROTECTION .*..!.
*. CHECK .*
*****Q1**********
* *
* RESET I/O *
« EBHOH *
* INDICATOR •
*****************
*****************
ti**** ^-i**********
* SIO
*
****************
*****************
****Jf^*********
* *
* RETURN *
» *
***************
*. CSW STORED
. X*. ATTENTION
*****H2** ********
* TIO •
* *
* *
*****************
************
**««»j 2* *********
r «
« PROVIDE •
► RETURU *
» ADDRESS •
*. DEVICE END
*****************
««*««K J ***••**«*<
* 4
* 4
. X* LPSU 1
* 4
*****************
Charts 199
Chart LS. $$BOCRTF - CRT ERP Part 2 (Part 1 of 4)
(Be£er to Chart 22)
• «
• SSBOCBCP *
• *
•***«B3«***««*«««
****•*••••••••*•«
•«*«*C3**««******
•«*••*•••••••«•••
•*»**DJ*****««***
»«•«*«**««*••«««•
• LH •
» E2*
• *
• »
• J2 *
• •
• •••
»««««««***•«««*
«»«««e2*********
•••»•*«•**••**»«
.« RETRY
*. KO
*. COUNT EQUll
.*... .
*. ZERO
«
*. .*
*. .*
it
• YES
•••*«
*••*
•LH *
* * .
* B2*
• J2 '.X.
• •
• * .
•
• •••
BQCHKI
HARUMtlT
••••J2»******«»
«
•
• HARD NtlT
•
•
•
«•«•«••••*•**•*
HARD
CHAMN8L
ERROR
*. UNIT CHECK
.* OPERATION *. TES • PROHIBIT •
', EXCEPT. OR .* X* rURTHER SENSE *.
• • COHBAIIO .* • BY SYSTEM • »
• REJECT.* • *
• *
*
UHRECOV
OUIPHEBI
......
CHECK
•
• •
•• .•
X
• NO
••*••
•LH •
,
• A5^
X
* «
••*•*
•
• LH •
BQCHK
• A1»
• •
200 DOS/VSE Logical Transients
Chart LH. $$BOCRTF - CRT ERP Part 2 (Part 2 of 4)
(Refer to Chart 22)
•••••k 1*****«**»
••••«•*••«•••«*•*
• BKTKY *. NO
COUNT BUUM. .*...
*. ZBRO .*
B2**********
**•«***•■
I********
• B2 •
* «
• •••
*••*
• ••♦♦
* «
* *
« •
• •••
*
i
• *
£UCHK i
« •
•SET OH PHISe •
RKTORN •
• laoiCHOB •
« OPUATE BBIBI •
• COUBT •
• •
••«••••••*•
••BO*******
• *
» SBT OFF •
OISISIBR fLkli
» IN CCB •
* •
******••**•
•••****••**••••••
• BBIBI *. N
COUNT BUUAL .*.
*. ZBBO .*
•***
• ' •
• B2*
• •
***•
* *
* LOAD ERBOB *
* NESSAGB *
* ADDSESS *
* «
*••**•*••••*•*•*•
«**»»(;2**********
*ST8TiO LK*
•-•-«-•-•-•-•-•-*
• BBTBY t/O *
• Oi>EBATION *
• •
•••••*••••*•*•***
•****CI»**********
• *
• RBLOAO *
• BE6ISTBRS OF *
• CALLING PBASE «
• «
****«CS* ***•***••
****••*«*«*»•••*•
•••••0 f ••*•••«•**
« *
• INSERT SENSE •
•BTTB INTO ERROR*
• RBSSAGB *
• m
•••*»*•*•*•**«•«*
EBBOR
DURING
RETRY
.* IS *
.* CALLING
PHASE
*.SSBOCaTE
•*•*
* *
* F1 *
* •
•«*•
»»»»mg^****•**•*»
•*••*••**••***•«•
HARD
CHANNBL
ERROR
*****
•LJ •
• F5*
«•£«***«***
» SET *
(CBOCRTF
RETOBN
INDICATOR
• •
••****••••*
• PI *.X.
• * .
*••»
EIIT1 X
•****F |»«***«**«4
•SENDRSG LJ*
*-*-•-«••-•-*-*-*
• SEND ERROR «
• HBSSAGE •
• «
••*•••••••**•*••«
». YES * SET ON BRTURN •
JNIT CHECK .* A* TO StBOCRTB •
.* * INDICATOR •
*. .* • *
*. .* *••*••••«•*■•••••
**•*••••••«*••*
• •
• RESET CONSOLE •
• PRINTBB *
• CONTROL FLAG •
• *
•••*•*•*»*****••*
«***(;3««»*«****
» PBTCH •
• StBOCRTB •
» •
••••*••*****«•«
Charts 201
Chart LJ. $$BOCRTF - CRT ERP Part 2 {Part 3 of 4)
(Refer to Chart 22)
*****BKFE8EHCES
• ^'TO LJ«1:
* ••IGHI, IHF2
*••••***••*•*»•**
**tlt*******
• «
• SET OFF •
DISASTBg FLAG
• IR CCB •
SEMDHSG LJ*
-•-♦-»-»-•-•-*-»
SEND EBROR *
(lESSlGE •
•***D1 **•*«**•*•
•••«**•*•«••••••
••«*t3**«**«***
» DISPLkl «
* ERROR «
• MESSAGE *
»****C3**********
««*«♦*«*«*»**»**«
****E2*********
• FETCH
• ftBOCRTk
*
• «**|i1***«**«***
•***«*•••••*••*«
«***G1 *********
» FETCH •
• SSBOCRTH *
• *
* CLEAR *
* INSTRUCTION *
* LINE *
* *
*****e3********«*
* INSERT SISLOG *
*••*••••*•«*•••«•
•****F3*»»»***»*«
• BOVE •
* RESSAGE TO *
* INSTRUC'CIOR *
• LINE *
« *
»»***G3***«******
*****************
*SAVE LAST FOUR *
* CHARACTERS OF *
* LAST MESSAGE «
* LINE *
* *
***«*«******«***«
*«**«J3«**«****«»
*IISERT CONTROL *
* CRARACTEHS III *
* FRONT OF IN- *.
*STRUCTIOII LIRE *
« *
flSG3
•****A<t**********
•SIRTIO LK*
*-•-•-«-*-*-*-•-*
..f *
• SCREEN X/0 •
• *
*****************
HARONAIT
X
•«**oii***«*«***
* •
* HARD WAIT *
* «
*•«**•••*****••
*********•*•*»•*•
*****C5*********<*
* BESTOBE LAST •
•FOUR CHABACTBBS*
*0F LAST MESSAGE*
* LINE *
* •
**•*«**«*****«••«
*****05**********
* INDICATE TEAT •
* $»b0CBTF GETS •
* CONTROL AFT SB *
* ATTENTION •
* INTEBBUPIiON •
**••***«»*•»•••*•
*»*»«jj5***»*»»i
*********»***«i
.* DISASTER •
. FLAG IN CCB .
*. .♦
IBS
*. .*
*. •*
* NO
«**••
•LH *
» F3*
• •
«
DOCBBX
• «
* BETUHN «
202 DOS/VSE Logical Transients
Chart LK, $$BOCRTF - CRT ERP Part 2 (Part 4 of 4)
(Refer to Chart 22)
• SCREEN I/O *
• 80DTIIIE *
« «
* *
» 14 »
X
* *
* SIVB BCSli tllO •
* CSV STkTOS •
* BITES *
* *
**B2****«**
« «
« EtitBLB
• THEN DIS&BLE
• FOB I/O
* SET CNN SBMSB •
• INDICATOB, «
»«**««***«*«*««««
***»*02**********
« *
• BESET I/O •
• EBBOR »
» INDICtTOB •
• •
••**
• • .
• c« *.x.
* • .
• •»» X
CHK3 .».
C* ••
• * ••
.* PBOSRAB *
IBSX
*. CHECK
• • •• •
.*. UNIT CHECK
• SIO •
« 4
« «
*••••••*•••••••••
BDSX
•••••••••**••••*•
*. CSV STORED .* X«. tTTENTlOII
NO
* BBIORH •
.X
tlO X
»»*»«h2**********
t TIO •
*«**«H3**********
•**••«•*••«•*•••«
J2 *
BOSI
• PBOVIDB •
• BBiaBN •
• tODBBSS *
•«*••*•••••**«••«
*. DEVICE BHD
* «
* LOiD PSU •
* *
* •
**«**KI|«*»*****»«
•••••*••••••*•••*
Charts 203
Chart HA. $$B0CfiT6 - Write Screen Message (Part 1 of 3)
(Refer to Chart 17)
•HC •
• •
••••
• «
• AS •
• •
• SSBOCRTG »
••CI*******
••«•*««••••
• ••••I) '!•*••••• ••
•
* BRANCH VIA
* REGISTER 7
*
*•••••*•••••*•*•
Ix
.X
••El*******
* •
• RESET »
• INDICATOR FOR
• StBOCaiN *
• *
••••••••»•*
•••••f {•••••*«*i
NilSSAGB ID
*•••*«*••»*•«••
* SEARCH FOR •
* 1ST PROTECTED *
* MESSAGE *
•«•♦•••***•*•«•«•
• ••*
RESTK X
**H1*******
• •
•SET OFF ALARM*
* AMD UNLOCK •
* KEYBOARD *
* *
**••*«•«*•*
•••••A2**********
.« SET OH ALARM *
* BIT IN SCREEN «
..X* ecu IF •
. • NECESSARY •
. * ♦
. ••••••••••*••••••
••**^B2**********
**•••••*•*••••••»
•••••C2*^**^*****
• INDICATE LINE •
••OELEIABLE* IF •
• 'READ' IN *
« CHANNEL PROG. *
• •
•»*••****•**•***•
• ••••I)2**»****«**
*AUVAMCB MC*
• -•-•-•-»■-•-»-•-•
• GET FIRST »
• SCREEN LINE •
• »
*•**•••••••**••*•
•••«•( 3«**^******
• •
• CLEAR •
• INSTBOCTION •
• LIMB •
• •
*•**•***•*••*•••*
•••*«B3***^**«»»*
« •
• INSERT •
• INTERVENTION *
• SEQ. MESSAGE •
• •
••*•••••*••••*•••
•••••CJ*********
*»•*•*•*••****•*
STARTIO X
•«***D3**********
•«••*••••*•*••••*
***••*••
• •
•SET OFF/RBSTORg*
•CONSOLE PRINTER*
* CONTROL FLAG *
• ••••
• MB •
• A*^
.• LINE •.
•BELONGS TO *. NO
CURRENT .*...
• . TASK .•
•••••Q2*«^*^^****
« FLAG LINE •
* DELETABLE IF *
* no REPLY «
* REQUIRED •
w *
••••••••*••*•••••
•••H2**********
*•••••*•••«•*•«••
LAST LINE *.
•*•*••••
*•••*•••
••••*•*•
••••••••
•••••G3^*^******^
•lOROOT MC*
«->•-•*«-•-*-«-•-•
• HRITE BUFFER •
• ONTO SCREEN •
• •
•••«•«••*••*•••••
.* INTERV. *.
•.REQUIREO FOR .
*. HC DISK .*
SET OFF
POST FLAG
IN CCB
k •
*•••*•*••••
•••**A<t**********
**•*•**•••**•••*•
*****AS**********
• •
• *
• GET NEAT LIMB •
• •
« «
*•••••*•••»••••••
••BO*******
B5 *.
• •
• *
• SET OFF •
NO
•
* INDICATOR •
.. .*
LAST LIME
* FOR GETTING *
,
•
» CONTROL •
,
*. ••
X
*• >•
•*•*
• IBS
*•«• *
* •
* * .
• HI *
,
• C«'*.X.
• •
X
* * .
••*•
*•*•*
**•* ,
♦MB *
>ET1 X
• A2*
•••**C4**********
• •
• •
•
• BESET FLAGS •
GOON
CONTROLLING
•CURRENT CHANNEL*
* PROGRAM •
•••••*••«•»••••••
**0<l*******
• •
RESET
INTENT. REQ
INDICATOR
• •
••*••«••••«
•••••EK»**^«^*^**
•SEARCH MC*
•-•-•-•-•-•-•-•-*
*SBARCU FOB 1ST *
* PROTECTED •
* MESSAGE *
****••••*•*•**•*•
•••••fil****^^^^*^
• •
• SAVE THAT •
• ADDRESS FOR •
• HARD COPY *
• •
«*•••••••••••••••
* ••••(;((•••«••••••
* •
* RESET LINE *
* COUNTER *
* TO ZERO *
* •
***•••••******•••
*•*••
•MB •
• ■A2^
• ••••J !(••••••••••
•••••••••••*•••••
REFERENCES* « *
• INTERV. •
tlEQ. FO^ HC
•. IISK .•
• ••••{^•••••••••*
• INDICATE THAT •
• SSBOCRTG GETS •
• CONTROL AFTER *
• ATTENTION •
• INTERRUPT. *
«**••*•••••••*•«•
• •{[^(••••••*
• •
RESET PHINT *
BIT IM •
ATIR. BYTE •
V •
•••••••*••*
• *••
* *
• Ai •
204 DOS/VSE Logical Transients
Chart MB, $$BOCRTG - Write Screen Message (Part 2 of 3)
(Refer to Chart 17)
•••-RKfeBEIJCliS
*T0 811*2;
*«* •
• E2»
RESKr
* BBSBt *
» PRorKcrioK •
. ..X*llir OP HiiSSkGK »
« ARK* LINES *
.* PSOTBCTED
•
HO
LINK
*- • . .
m
• . .*
^
*• .*
X
• IBS
• K2»
***«B2*********
• FEICH ♦
• »«IIOCRTU •
•»»»B3»»*****»*
* FETCH «
• $«BOCeT* *
k «
.» 'RtlAD* IK *. 1
CHAHNBL .*....
*. PKOeR*(l .*
»«***CI4»*********
» *
•DELETE »STBRISK*
* III FSONT OP •
* HESSAGE «
« *
«*»«*pu* *••*****•
•««***»***««****«
« *
« INSERT PRINT •
• FLAG INTO •
• AIIBIBUTE *
• OKIE *
* SUBSTITUTE •
* BLANKS FOR *
* CHARACTERS »
•LESS TRIM X'<tO'»
•*«••*••**«*««•••
>*Jl|**:»^^**««*
»•«••••*«••«
* YES
I 102
Charts 205
Chart MC, $$BOCRTG - Write Screen Message (Part 3 of 3)
(Refer to Chart 17)
• SCREEN I/O
• BOUTIME
••** X
loaouT .*.
NOATTENT
Bl *.
«*»«*U2******«***
• ♦ *.
• •
.* »TTEMTIOH «. NO
♦ PBOVIDE •
•• PENDING .*....
. ...X* SUPEBVISOR •
*. .*
♦ 1/F »
•••**ci ••«*«•*•«*
•****•••***•«»••*
• FETCH
• SSBOCHTK
*'
|(*« ****** «*«*««*4<
***»C2**********
*
bBANCH INTO *
SUPEBVISOR *
(SIO) «
****************
****ei*********
• FETCH *
• S$BOCBTE *
****A4*******»*
• SEARCH •
» SCT ENT8K •
• «
***************
* PBOVIDE »
* ADDRESS *
* BEGISTBRS *
* *
*•«••**********•*
***»Bb******«**
« *
• ADVANCE *
* «
«•«**••*•••*•••
»*«*Dit**********
****************
SCT
STRING
END
«*«******««**«***
****05********«
* *
* BETUBN •
* •
****«***«*****•
*»**f 2*********
t *
» BETU.tN •
It *
***«***«**«***«
•• INTERV. *. NO
*. REQ. FOR HC .*....
«. DISK .»
UOCAKX
X
***«*HI4***«******
***«***«*«*
*»***J «*****•*«
*«**•***«*****»«
206 DOS/VSE Logical Transients
Chart MD. $$B0C8TH - Write Hard-Copy Records (Part 1 of 3)
(Refer to Chart 17)
* •
• »»BOCBTH *
* *
*mm**ci**<^*****>r*
*««******«««***«*
* INS£RT DATB *
(* imo HABD- *
» copy BEC09B •
« «
.* INPUT *.
► ONII FBOa *
INSTBUCrlON
► . LINE .«
* *
* SET LIME •
» POINTBB TO *
* IHSTRUCTION •
* LIIIE *
*****************
RESET
INSTIIUCTION
LINE INPUT
• INOICATOB *
*««**U1**** ******
* MOVE *
* BRSSAGE TEXT *
• IBTO HtBD *
• COPY BBCOBD *
« *
«*****«***«**«*««
^***«B 2** ********
* *
• SAVE ACTUAL *
' AO0BESS FOB •
» BEDISPLAY •
*«**« 02* *********
* BEliEFINE •
* LINE STAIOS »
* ir 'BEAD' IN *
* CHANNEL PSOQSAII*
« 4
«»**««*****«*«*•«
«*««*g 2* *********
••**F2* *********
INSKRT *
PABTITION-IU *
INTO HABD *
COPY BECOHD *
*
lc«»**^ 2* *********
» INSEBT *
' CYCLE BIT *
• INTO HABD *
* COPY BECOBl) *
» *
»*««****«****«*««
CHTM110
«*«v«H2**********
*llHITE (IF*
* WHITE BECORD •
* TO HARD •
* COPY FILE «
.*ACTU«L *.
► = IIRAP- *
ABOOND ADDK
C3 *.
.* BBAP- *.
.*A80DND ADDR*. YES
■TO BE UPDATED.*...
*. *Clt .*
*.
*«£ J«*««***
HODE
CBTH120
***«*F3******«**«
*UPDAIE BF*
«-*-*-*-*-*-«-*-*
* UPDATE ACTUAL *
* DISK AODBESS *
* *
*c«
PSIMTLOG JUST PUNTED
HABD COPY FILE « HRAP
AROUND ADR BILL BE
nPDATED SOUN
»4««4IE4**********
* *
* R8SET *
* PBoreciioN OF *
* CUBBENT LINE •
* *
*«*««********«*«*
«***F 4* *********
SET LINE *
POINTER to *
NEXT LIH£ *
*
********** ****m*
< ANOTHEB *. YES
LINK TO BE .*...
•.BECORDBO .*
.* INPUT *.
• ALSO FHOH *. YES
INSTBOCTION .*..X
•. LINE .*
***•
* *
* Et *
Definitions:
actual address
wrap-around address
overlay mode
disk address of the next free record position in
hard-copy file
disk address up to which hard-copy file was already
printed by system utility PRINTLOG
parts of the hard-copy file which were not printed
by system utility PRINTLOG are overwritten
Charts 207
Chart HE. *$BOCRTH - Write Hard-Copy Records (Part 2 of 3)
(Refer to Chart 17)
••••C I*********
CALCULATE
CRITICAL
ADDRESS
BAIGR *C2
.• CRITICAL *. IBS
*. ADR. BAM6B .*....
*. BMTBRBO .*
«C2 IF TRBBB IS SPACI
LEFT FOB 0*LI 100 OR
LESS BECOBOS BEFOBB OVEB-
LAI HODE IS ERTEBBD.
THEN THE CRITICAL
ADOBBSS RAR6B IS BRTBRED.
•*B2*******
aO .* OVBRLAI
*
• SET •
..». BODE
I*
• UARBIRG FLAG
• .
»
• •
•• .•
• «
♦. .*
•«»*••••«•«
• lES
••*«
,
•HF •
,
• Gl '.X
« •
,
• •••
Z
BOTOK
•
«
•***F2*********
• SET BBAF
•
• FETCH
« ABODBO >
•
• S«BOCBTB
• •f3
•ACTUAL ADDRESS
«
«
*
•••••*•*«•**«••»*
.* •.
• OVEBLAI •• «ES
HODE JUST .*
•• ENTEBEO .•
*• ••
«»*«62* ********
* FETCH
. . X* SSBOCRTU
• •G3
•• ••
• NO
xl
«F) ISSUE A HARRIBG
THAT OfBRLAI BOOB
HILL BE EHTERBD SOOB
OR HRIIE AN ERROR RSG.
*GJ INVALIDATE
HRAP-AROONO ADDRBSS
IB RARO-COPt HEADER
RECORD
**»*H2*********
• FETCH •
• SSBOCBTQ •
• «
•**••••**••*•«*
«***J ^**«*****«
» FETCH •
* fSBOCRTA •
• •
•••***••**•••*•
208 DOS/VSE Logical Transients
Chart MF, $$BOCRTH - Write Hard-Copy Records (Part 3 of 3)
(Refer to Chart 17)
» HRITB •
» *
• •
• *
* «
• oPDite *
«
laCBEHEMT •
B-VkLUB •
Br 1 •
*
***»D1*»»*****»
*•••••••*•*•«••
«
* BOVE
* HC RECORD
* TO BLOCK
*
«
• UPDATE
• COBTROL
• IIFORBATIOM
•
****************
*****************
.» ».
YES
,♦
•. BLOCK POLL
*. I/O ERROR
*. ••
».
•• ••
». ••
•. .•
X
*. -•
* NO
****
» B2 *
* *
****
• NO
****r i*********
INOICITB
INCORBBCT
LEBGTH
***************
*«***G)******«*«
****************
'***IiH*********
**•*•*••*«••••*:
IHCBBHEBT
***»*fH*********
****************
****ii^*********
* •
> RBTUBN •
m *
***************
•••••
• HE •
• F2*
****iii*********
• *
• BETUilM •
• m
***************
****H2*********
• «
• BETURN •
• *
***************
t****fm**********
••***••••••••••••
****jit*********
* *
» RBTURR «
• *
***************
Charts 209
Chart MG- $$BOCRTI - Write on 3284/3286/3287/3288 Console Priater
(Refer to Chart 17)
* *
» ISBOCBTI *
» *
•••••B1*********»
* •
i
BBGIII .*.
CI ».
.* tRIi *.
.* THEB8 *. IBS
• •••
♦ *
« C2 •
* •
• *•*
BEUIN1 X
**«**C2* *********
• HOVE LINE •
* COITEHTS •
*. RBcoaos .*
• •• .*
». .*
•»•• . • NO
• •
• CI •
• *
Dl' *».
.* •,
.•IHSTBUCTION*. IBS
*. imB TO BE .*
*. PRIIITED .«
t « PBIBTOUT ABE* •
• •
i
•••••02**********
• •
•AVOID PBINTIKG •
• OF TBAILma *
• BLiBKS *
•••••*•**•**•*••*
***B2************
SVC lb
* PBIM •
RECORD
• BAIT «
• ••pil************
* HRItB BBBOR
.X flBSSkSB IB
• INSTB. LIRE *
•••**II1* ••«***•*•
RBSTOBE
..X*
REGISTERS
«
*••***«*••*••
••*•
B1 *
••••
•••••*••«•••*••••
•• IBI •.
I) .* HORB *. IBS
.*. RECORDS TO BE.*....
*. FRIRTBD .*
**•*•*•*•••••«•*•
•••eii»****«******
CLEkB
• IMSTROCTIOII *
LIBE tND
• IBPDT *RBt *
• •••
• •
• CI •
• •
• •••
•***J3***«*****
• FETCH •
• SSBOCRTG •
• «
*••*
* •
* C2 *
» FETCH *
* SSBOCRTH *
» *
*••••••**•••*•*
***«K2*********
• FETCH *
• SiBOCRTi *
( «
•*••
* «
* HI •
* •
«**•
• ••«
* *
* FJ •
* •
***•
210 DOS/VSE Logical Transients
Chart MH.. $$BOCRTK - Comtaand Entry Processor (Part 1 of 4)
(Refer to Chart 19)
*•**•***•*••*«*
1 ».
»,
PIHSI *. MO
CBTENTHI
*
* SET cai
.•
• BOSK
**[ll***«***
••••***•••«
*««*«E^ ««««**«***
«*«*«*«***«****««
•«***p 1 •**•*««••
••••*•**•••*•**•
•••••**••«
» SAVE PIB&DOa *
* Alio REGISTEgS •
• OF CBARIIEL •
• SCHECULSB •
* •
*«D2*****'**
«««*«*****«
•***F2**********
••••*•*»*••*«»«•
* *
* A3 •
*«A3*******
* *
* EHABLE *
• CHAMNEL *
• INTEBRUPTS *
* *
***********
****
♦ UK *
* AJ *.t
****
t
*«***B3*********
•*•«•«*••****••*
*****C3**********
*•••*•**•••«•*•••
« FLAG •
.* IPL ♦.
rES
C-TBAMStBMT •
*. IR PROCESS .*
• ASEA BUST •
•• .*
.
• *
*•«*•*••*•«
». ••
X
*
• NO
*****
*I!J •
* B3*
* •
*
I I6MORR
X
X
**e2*******
*****2-^**********
• SET aSER »
•lOROUT RL*
EBP ARO DEVICE*
•-*-♦-•-•-•-»-»-•
END POSTIRS *
•EXECUTE BEAD HO*
• IR CCB •
« DIFIBD •
*****************
*****f3**«******
• COHPUIE
* ROIIBEB OF
• CHABACTBKS
* BEAD
•
****•****•»****•
.* FROH AH *.
. IITBaauPTED .
•CRT HODULR.*
••••*H1**«*******
» SET PIK,
• TIK.
COR BEG
ADDRESS
•••••*•*•*•*••***
• *. HO
ORSOLICITED .*...
••IIITEBBUPT.*
****«II3********«*
•*•**«***«•*••«•*
.*.
• *-
HAIRLR .*.
J1 *.
02 *.
J3 *.
.* *.
.* *.
.* KOBE *
.* ERTBT *. (£S
I NO .• CARCBt *. RO
NO .* IRAN 1
♦• FBOH •*...
...*. KEY .*....
.....*. CHARACTER
*.»»BOCHTX .*
*. PRESSED .*
*. BEAD
*. .*
*. .*
*. .*
*. .*
X *. .»
*. .*■
* «0
***** * IBS
*HK •
* A2*
* XBS
• •
•
X
.*.
***K^ «***•****««•
K3 *.
.* BOBK •
* DUHHT •
* FETCH •
.* TEAR 3
BEQUEST
• TO CHARQ *
• S«BOCRTP •
*. CHARACTERS
* *
*. BEAD
*. .*
*'
♦. .*
* lES
'.X
X
X
**••
*****
.* CUBSOR
.X*. IR IRPUT
*. LIRB
*****
*HJ *
* B3*
****KS*********
• FETCB •
• »*BOCRTIt •
• *
*******••***«**
Charts 211
Chart MJ. $$B0C8TK - ConnBand Entry Processor (Part 2 of 4)
(Refer to Chart 19)
•an ♦
* •
* CONVEBT 10 *
* UPPEB C«SE •
* CUtBtCTEBS *
* •
« SKIP BLINKS •
.* Olll
ULiNXS
*. BNTBBBO
BEPE8BMCBS
TO NJBJ:
HHD3, HHK«
IGNOBB X
•••«»|I3*»**««**««
«IOBOUT BL*
..X* BBASB ALL *
• ONPBOtECTBD *
• LIMBS »
-«-*-•-•-•
* DEPINB EXIt *
« «
«»«*D3*********
* FETCH *
* AMI PHASE *
* «
POHBB *
YES
COHRAMD
•••••
• *
. .•
»• ••
.1
• HO
• BK •
» A3*
• •
•
SISTDBO
DOC02EX
z
•*»»Blt*****«***
• •
•FETCH StB0CBX2 •
• •
••*••••••••*•••
MU .• ONLK 1
...•. CUABACTEB
•. ENTEIBS .
KCOHHOR
•SET 1-BKTE •
• COHBAHO *
...1* IMOICATOR
G2 *.
.* CUD ••
• BEGINS *. IBS
KITH 'K ......
I*. BLANK* .•
♦ . .»■
*••••••••••
• •••G 3*««**«*^«
* FErCH *
* SSBOCBTM •
* •
«•«••••••«•••••
H2 •.
• • CUD *.
.• BEGINS *. NO
•• NITH "D" .*...
•• .*
XSISTHRO
• YES
••••*
• HK •
• A3*
X
• •
*
• •
• AO •
• *
• ••*
212 DOS/VSE Logical Transients
Chart MK. $$BOCRTK - Command Entry Processor (Part 3 of 4)
(Refer to Chart iI9)
*••*•
•••♦•REfBRBNCBS
»HH •
• 'TO BKAS:
« J2*
• •»HJ»I«, HJK2
* *
* «
*
•
it
X
.*.
SYSTBRD .*.
*2 *.
A3 *.
* *.
.* ».
BEQUEST
«
NO YES .* LIA *.
• X...*. RBaOIRED .»
PRESSED
«
*. .•
*. .♦
• *. • *
♦. .•
X *. .*
• IBS
••*»• • HO
*I!B •
* BJ»
* *
*
IGNORE X
• ••
B2 «.
B3 «.
• IS *.
- * *.
ATTEMTIOR
*
»0 .* ATTEMTIOR •. IBS
TASK
•.... •. TASK ......
ACTIVE
•
*. ACTIVE .•
•• .*
*, , •
*. •*
X *. .*
• YES
**** • NO
• *
• F2 »
• •
* «
* ACTIVATE »
* AITEMIION *
* ROUTINE •
* «
***»«£}2*«* *******
• INDICATE *
• THAT •
• CANCEL IS •
• REQUIRED *
r *********** *m***
SYSTMPDI X
*****jii**********
* INDICATE »
* THAT •
* LTA IS •
* REQUIRED *
* «
*****************
ATTENTION *.
TASK LTA
. BOUND .*
**** .
* * .
* F2 '.X.
*****f^^**********
* *
* CLEAR »
• ATTENTION *
• BUFFER •
« •
• ATTACH
» ATTENTION
» TASK
*
**************^
*****fi**********
• INSERT •
• COKBAND •
• AND STORE •
• COUNT ♦
• *
*****************
• INDICATE •
» PTA »
« REQUIRED •
* «
*****************
Charts 213
Chart ML.. $$BOCETK - Command Entry Processor {Part H of 4.)
(Refer to Chart 19)
****41*******«*
*•••••«••••*•••
•*••••••••**«••••
• *
• BRAMCH INTO •
• SaPEBVISOR *
• JSIO) •
• «
* EXIT BOUTiaS •
BETOBN TO *. IBS
CALLUS .*....
. FH4SE .•
» FBTCH •
• SSBOCBTA «
« «
••*••*•••**•***««
• *
• FBTCH PHASE *
• *
* *
* RBTUBH •
* •
v«»««B 2* *********
••*•***»«**•***••
•»**F 2* ********
• FETCH •
* «SBOCRTB *
» •
*•********•*«••
••**£3«* *»•*•••
* •
* SKIP BLARKS *
* «
***************
• •**
* «
* F3 ».
X
• «
*•**
k
SKIPBtNK
• ••
F3
».
.*
*
.» CHARACTER
•
*. =
B
1.AIIK
«•**••••***•*****
•**G3*»***««**
RETUBH *
*
.* *.
• Iemd of inpot '.*
*. .*
•0
»• .*
*. .*
* YES
X
*«**
* *
* F3 *
* *
****
****Hl»*********
• *
• RETURH *
* ■ *
*«*•**•••»*«•«•
214 DOS/VSE Logical Transients
Chact MM. $$BOCRT.L - Deletion by K-Command (Part 1 of 3)
(Refer to Chart 19)
« •
• SSBOCBTL •
* *
••••***•••**•***«
* 0P04IE *
» POSITIOI to »
* BE TESTED •
* •
**«*«B1 **********
* *
• IHITHIIZB *
* IHD LOAD *
» REGISTEBS *
• •
-•-*-*-*-*-•-»
* SCUM SCT •
» BBTBIES TO •
* ADJUST RUNGS *
*«********«****•«
• •*•
* «
* »3 »
* »
•«**
*««««C2* *********
• *
* *
*UPDiTE SES«1L2 *
• «
* *
*****************
COflBI
'*. .*'
**|)1******»
*«««*«*****
• *** *
» * •
• El *.X.
• * .
**•*
X
««•**£ 1 **«•**«**•
*****************
*****02**********
*****************
* SCAH SCT *
* EHIBIES TO •
* ADJUST RAHGB •
*****************
*****j)i**********
* *
* UPDATE *
* POSITION TO *
* BE TESTED *
* •
«****««««*«******
****il^********»
• FETCH *
> SSBOCRTf *
• *
«**•**•**••*•••
****«f 2**********
•*«*••••••*•*•*••
.* K B,SEG *. YES
.I*UPDkTB POiaiER «
*••*•*•*•*•«••*•«
.* SEGVAL2 *.
EQDAI.
*.SEGfAl2»2.*
*»*««H2**********
« *
« INDICATE nSG *
*NUST BE DELETED*
* IN ARK CASE •
* *
*****************
*»Q^*******
• SET OFF •
* SECOND TIRE •
* SHITCH *
* •
• «
***••**•***
**«* I
*H« •
* J1 *.I.
* * .
•***
Fiasix I
*****H3******«*«*
*«**•*••«****••••
*«**«e<i* •••**••*•
• «
• UPDATE •
• POSITION «
• TO BB TESTED •
• «
•*««**•*•******••
****J2*********
* FETCH «
* »$BOCBTQ »
* •
***************
*****
• RN *
* A1»
Charts 215
Chart MN. $$B0CRT;. - Deletion by K-Command (Part 2 of 3)
(Refer to Chart 19)
*HII *
• **•
* *
» A3 *
• *
• »•«
••••1 |**»******»
••••••«*••«•***•
S8COII0 *. IBS
SNITCH .*
•«**»A3******»*«*
* Bove »
* SSCOHD •
* DIGIT TO •
» SEG*tl2*2 •
* *
•***B3*********
OPOATE
rosiiioH
SO BS
STEO
* A3 •
• •
• •••
•
HOVE •
DIGITS TO •
SEGirAI.2 •
*
» SET 01 •
* SECOKO Tint «
• SirlTCH «
•••••*•*•«•
UPDATE
POSITIOII
TO BE
TESTED
IBS .
• SEGHBIIT
..•••
COBBBCT
^
• .
• . .»
X
•• ••
**•»•
* NO
•an *
» A2*
* *
•
DI6IT2
00CV1
]
•••**B3*<
**«•*
«
SET POIBTEB
•
OB FIBST
•
DIE
.11
«««**«««•**«**««
»«•*«••«•*••••«••
• IIDICATE •
• HESSAGE *
• lOHBEB •
• •
• • .X
• 63 *.X.
UPDATE
POSITION
TO BE
TESTED
* SCAN SCT *
* ENIBIBS TO *
* ADJUST BAN6E •
••••»B2*********
* OPOTE
• SEGVAL2
* ANO
• SBGfAI.2*2
•
****G3***«*****
» FETCH •
* »BOCBTf •
» •
BLANK *. IBS
FOIIONS .*..X
• •*
• • .• X
« NO ••**
•
• G3
X •
*••*• ••••
•MH »
• B3*
• •
*
FIBSTX
216 DOS/VSE Logical Transients
Chart MP- $$BOCfiTL - Deletion by K-Command (Part 3 of 3)
(Refer to Chart 19)
> BBOEFINE *
• BtRGB •
> *
•••««B2*«********
•••«**••••*••«•••
• C2 •.«.
.•COaTIIOEO/ *. tBS
>. PBOTBCtBD .*....
*. LINE .*
«***02*«*******
> *
> BETOBM •
••***C3**********
•••••••*•••••••••
•••**E3**********
***•**«*«*
* •
• SBTOBK *
Charts 2il7
Chart NA- $$BOCRTM - Deletion by Cursor
(Refer to Chart 19)
* •
* «
* SSBOCBTB •
* «
• INSERT *
• BESPBCTIVB •
• JklBB BDBBBB •
» to SEG»»L2*2 *
• *
CUBSOB IB
HESSAGB
. BBBB
••*«*C2*********
•••••••••••••••*
**02*******
*»•*••*****
****E2**********
••••*•••••«•*•«•
.*COHTI«UB0/ *. NO
. PBOTBCTBI) .*..,
». LIBE ••
»»**G2*********
«••••••••**••**
«•**•*••*••••«••«
•***«C3*********
«»«••*••*•••*••*
****D3*********
• FEtCfl *
• SSBOCBTP •
• •
• INDICATE
• OEtETIOH BY
• CUBSOR
•*«**••••***••«•
•****CI|**********
• CLEBB •
• INSTBUCTIOI •
• LIBE BDFFBB •
• •
► FETCH •
' SSBOCBTQ •
> *
***************
****J2*********
***************
218 DOS/VSE Logical Transients
Chart NB,. *$BOCRTN - Screen Management Mode (Part 1 of 3)
(Refer to Chart 19)
* «
« *
• «**
• *
• A5 •
***••****•**«*«
Kconn
*»***A2******«***
• GET CHT ♦
* IMPUT *
...tL* AREA *
*•***«*•*******••
••CI*******
► SET OFF •
IHOICATOR
FOR K H/0
OPERANDS
» •
**»***•«•*•
•***•**••*•
*••• I
• * .
• El ••X.
•***E1 *********
» FETCH »
• »$BOCHTL •
* *
••*•«••••*••**•
••C2^*****«
• RESET »
».-PASS
INDICATOR
•••**•••••*
.* COHHAND *. lES
BEGINS .«...
•WITH 'K E'.*
.* COHHAND
BEGINS
•MIIH "K S'
...I*. OPERAND'N*
**B3*******
»*••*»»*•*•
****C3*****^***
• FETCH •
• SSBOCBIO *
• «
*•****•***•••*«
*«««*«*•«••*••*«
••***g3«»***»*«*
*•*****••»••**••
PROVIDE
SPECIFICATION
COHHAND
•••«**••
:••*«»»»
I********
* CtEAB *
* ENTHJI *
* AREA *
* BDFFEB *
* *
•••«*••***«**«•«*
• •C't*^*****
* SKT OM *
* VBItE *
• INDICAT08 FOR
* »$BOCBTP •
» •
•***««••♦*«
*«DI|***»**«
•*••*•••••*
«**«Eil*»*«*»***
• FETCH •
• SSBOCBSP •
• •
•«••**•••••*••*
COHPASS X
«**•« A &******<
« UPDATE
* COHHAND
* ADDRESS
* RBGISTEB
*
*«*•••***•*»••«•
*«**«B5*«««»*«*«i
• •*•****•••:
• •••
* •
* G«*
* •
**••
• A* •
* ■ •
• •«•
****F1*********
• FETCH *
• SSBOCRIV *
» •
***•*•*••••••••
.* COHHAND
BEGINS
•MITH 'K D»
SEFESRHCES
TO NBG«:
NCC3, NCG1
NCGU, NCJ1
NCJ4, NDJ2
•••*•
****G2****«****
» FETCH *
• *»BOCRTO •
• •
•««•««••••••***
SAVE
ERROB
LOCATION
••***H3*********
**«*••*•
****HI(**
» FETCH
• SfBOCRTV
••*•********«••
• G"» •
• *
****
.* NEXT *. NO .»
*. PARAHETER .* X*.
•. 'REP' .* «
.COHPASS
X
• •••
* •
• AS *
NEXT
PARAHETER
. "DEt'
.*
* XES
Idblpass
X
«••*»
*NC •
* A1*
•
NEXT *. IBS
. ..X*
PARAHETBB .*....
*
■COM* .*
*. •• •
*. .* X
• NO •»**•
♦ He •
• Alt*
• •
«
X COHPASS
.••
J5 ••
• •.
*
NEXT *. YES
*
PARAHETER .*....
•ALH' .»
• • •• .
*. .• X
• MO **•••
•ND •
* A2*
* *
•
X ALHPASS
.*.
Kb *.
* ••
*
NEXT *. YES
♦
PABAnET£B .*....
*
•SEG' .*
'*. .*' SBGPASSX
• MU ****«
• HD •
.DOCVEI * A«*
X • •
«••• •
Charts 219
Chart NC. $$BOCRTM - Screen Management Mode (Part 2 of 3)
(Refer to Chart 19)
•MB •
* •
*UPDkTB COHHAKD *
• 4DDBBSS *
• BBGISrSR •
• •
•
• &VOID TB&T
*>OBL* IS TESTED'
• ham*
««*«ci**********
•••••*••*****•**
♦ . ••
*. .♦
* YBS
••••PI* *»«•*•**•
«••••*••«•*•••••
••••
•••••
• •
• IB •
• »3 •
• B5^
• •
* •
«•••
•
CHalBIIG X
COIPtSS X
•••••t3^«^*^****<
»*m»mm*»**»****»
• 4
» •
* GET (BIT <
•UPDITE COHBAHO •
..X* CBABtCIBK 1
• BODBESS •
• <
• BBGISTBB •
* *
• «
•••*•«••••••••••«
* »
••••••«•••••••••«
•
•NO •
«
» K2*
,
•••*•
X
.••
X^
B3 *.
.* ••
• •
.* ••
IBS
* AVOID THAT •
*. BLANK .*....
••COB' IS TESTED^
•. .•
,
• AGAIH •
•• .•
• •
•. ••
X
••••••••••*••••••
• HO
•*•••
• BB •
* D«*
* •
•
1
X DOCPBZ
,
• ••
X
C3 ».
•••••C <>••*••«'••••
• • *.
• •
.» ••
HO
• GET HBXI •
♦. ',' ......
• CBABACTBB •
*. .*
• *
*. -•
^
• •
». .♦
X
*••••••*••••••*••
• YES
•••••
•HB •
• G»*
I
X
• •
^
*•*•*
•
•MB * DOCVEX
X
• H3»
.•.
« *
DO *.
*
• • ••
8PT
• • *.
••••pll»****«**«
**••*•••*•*••**
•. KES.
BLANK
.»..X.
*
,*
• . ••
X
• HO
*•**«
*HB •
• G4*
* ♦
•
DOCVEX
.*.
DELXES
1 *.
••••*H2******^^**
*
• •
*. tes * IHOICATE *
•I'
• • i* AUTOHATIC ♦
• • DEIETIOH •
,•
♦ •
*. .*
•••••••••**••*••*
••••*
• HB •
• GO*
* •
* IHOICATE •
.X* COHVEBSIOH *
• BODB •
« «
*•••••«•«••••«•«•
X
• •«
Jl •.
• • *.
.* *.
NO '.
•H' .♦
• • • • •
*. .*
*- -•
,
•• ••
X
• JES
««•««
• MB •
• GO*
* *
*
DOCVEX
ii
••K1**«**^*
• •
• RESET DEL=Y •
INUICtTOR »
• *
• «
♦•«•«•«•*••
X
Jo'
" HO
.* *
«,
HO '.
•H*
*
'*. .*
,
*. .*
X
* lES
*****
*HB *
• GO^
• * .
♦
COCVBX
♦ •KO*
i****«
«
SET OPP
•
COHVEBSIOH
«
no DP.
•
•
«•******•••
X...
«**«
* •
* *J »
* *
**••
***«
« *
* A3 *
220 DOS/VSE Logical Transients
Chart ND. $$BOCETN - Screen Management Mode (Part 3 of 3)
(Refer to Chart 19)
• HB *
» J5*
•••••
•HB •
* K5*
•UPDATE CONfllMD *
• kOOBESS •
• BBGISTEB •
*aPOATe COBHAIID •
• IDDBBSS •
• BBGISTEB •
• •
m *
• AVOID THAT •
••ALB* IS TESTED*
« AGAIN •
• •
••»**Bit**********
• •
* AVOID THAT •
♦•SEG" IS TESTED*
• AGAII *
* *
•**•*•*•*•*•**•••
*****C2**********
••••»C<t********«»
•«*«••**»•*««•«•«
••*•••*•***«***•«
*. BLANK
BLANK .*
**»**F2**********
•****Fi|**********
»•••••*••*«•••**•
••*•**••*••*•**»«
•****•••*••••*•*«
X NO .* DIGITS *.
*. HITHIN
*. VALID .*
*.BANGE.*
*•**<
• HB •
• GU*
* «
UOCVBX
••K2*******
« *
• SET OFF *
* ALABH *
• IHCICATOB »
* *
«•••*••*•*•
ICHAINING
*••*•
*NC •
* A3*
***«*Jlt***«******
• INSERT •
• DIGITS *
• INTO •
• SE6VAL1 •
• FIELD *
•«*••***••*••••«•
Charts 221
Chart NE. $$BOCRTO - Line Number Display (Part 1 of 2)
(Refer to Chart 19)
* •
* »i •
• •
• SSBOCBTO •
• *
«*«**B1 **********
**«**I13*******«*»
••***•*«***•**•**
X.
•BF •
OPBTKUR Z
• K3*
•«*«*llt«****«****
* •
* INSEST/DBLBIB *
* LINE MDHBEBS *
«
• IN HESStSB •!..
• *BEk *
******«*•**••«***
>*B5*******
*****«*«***•«•***
**«*••*«***
LIMB KO. *. KBS
DELEIIOH .*
.IRDICATOil.*
». SET .*
* RO
*****
*»r *
♦ *j*
* •
*
SKIPTOB
• *.
01 *.
« *
COHVEBS
•
IBS
DBLETIOR
*• .. •
• •••«2^«******«*i
•••«*••••*••••••<
**•*
* •
* »• •
* •
*••*
•••**H1*********
• *•*
*RF •
* H3 '.l
••**D3*»**««***«
•*•*«•*••«**•••*
••••«Q3*»*»***««*
• •
•OPDAIE coaniMD *
• lOOBBSS *
• REGISTBB BT 3 *
• •
•**•**••*•**«••«*
•••••H3********»*
*••••••«•«•••«**•
****«J2**********
* *
* GET ICDRBSS *
* OF INVALID •
* CHABACTBB •
* *
****•*«•***•*****
****K2*********
• FETCH »
• •IBOCBTY *
• «
***•»•***•*****
*****K3******«*««
«••••••*****«*«•*
•***Clt*********
• PEICH »
• SSBOCRII *
• *
•*••**••*••***•
****C5*********
» FETCB •
* SSBOCBTF •
• •
«*******•*«*••*
• ■•«
* »
• 13 •
****
* »« *
• *
***•
222 DOS/VSE Logical Transients
Chart NF. $$BOCRTO - Line Numuer Display (Part 2 of 2)
(Refer to Chart 19)
•SB •
• CU
«««>*••«•«•««*«*•«
»«***D]********««
•«**«•*••»••*••*«
E3 *.
BLANK
»**«*g3«»*******«
»«•*•*«»•••••••••
•••••
• IB •
* J2»
• •
COHBSC
•••*•••»•••
•••••|[3*«**««**«*
• •
• IHOICtTB •
• DELBTIO* or «
• LINE HUBBERS •
• •
. OPBTBOB
X
•••••
Charts 223
Chart NS. $$BOCRTP - Exit Interphase (Part 1 of 2)
(Refer to Chart 19)
• •
• StBOCBTP *
**C2*******
»•••••**•*•
*«**02*********
BRtlCU VIA
HBGIStER 7
X
•*«*S2******«**
SET OFF
AUDIBLE
11* BN
.* HUE •. a
*.IIURBIBS TO BE.*.
*. DELBTBO .*
••••*G2********«*
• *
• DELETE LIES *
• MURBEBS IR •
• BBSSEGE ARE* •
• »
• SCBBEB I/O *
• RODTIRB •
• •
PBOTIDE
CHABHEl
PROCRAR
• PBOflOE
• I/F TO
• SUPBBTISOa
*
•••••Oil**********
• *
• BRARCH IHTO •
• SUPBRflSOR *
• (SIO| »
• *
•**«••**•*****•**
•******••*••**««
••••Q^*****«*«*
» FRICB •
> tSBOCRTE •
» a
••••*****•••*•*
-••*-•-•-•-*-*-•
HKITB MESSAGE •
AREA *
•
•••••••*••••«••*
****||l|***»*****
* «
• 8ET0RR *
» ■ «
•*••••*•••**•«»
.* INVALID *. «0
CURSOR .*...
•• SETTING .»
♦ VES ••••♦
*NH *
.connoNi * Ai*
•••**
• B<l*
224 DOS/VSE Logical Transients
Chart MH. $$BOCRTP - Exit Interphase
(Refer to Chart 19}
(Part 2 o£ 2)
*N6 *
PBVDIISttI .*.
.•INSTBUCIIOII*. XgS
•. LINE TO .*....
*BB CtBlBED.*
•••••0 )*••••••••*
• CLBIB •
• IRSTRUCTION *
*IINE tND BIIT8T •
• »BB« BUFFBB •
• •
«
CLEiB *
INSTBUCTION *.
LIRE BOFFEB *
•
COBHON
•xpBooii na*
* WBIIB SCBEBI •
••»*••••••*••**•«
COBHOII X
••••*Blt»*********
*•*•••*••••••••**
•I0F0DT1 BO*
•-•-♦»•-•-•-•-»-•
* HRITB IRSIB. •
* LIRE TUBOUGH •
* NABRIRG LIRB •
•••• I
ROCURS
•I0ROUT1 RG«
...X* RBIIE BBSSAGB •
* ABBA ARD •
•IRSXBOCT. LIRE •
EXIT X
•*•••••**•••*•**
• SET CDBSOR *
• TO 1st *
• IHFOI LIRB *
••*••••*•*«•••*••
ATTBXIT ^,...,^
*
*••«••••••••*••••
.* RRITE SCBEER •
•RITROUI HARRIIG*
* LIRE •
* FETCH «
* SCBOCBTA *
|i*«**F2**********
•••••••*••••••••«
• FETCH •
• PHASE *
Charts 225
Chart NJ,. $$BOCRTQ - Deletion of Message Lines (Part 1 of 2)
(Refer to Chart 19)
• tSBOCBTQ *
.•BRTKI FBOH *.
.« AMD SCRBBM .*
*. FOU .•
.* tOTOHATIC
. DELETION
*. HOOB
♦ Bit *
• E2*
•••••ei**»*»***«*
*•««•••*•»••*•*••
• ■ f Dunncn
•.ROT FDLt
*. .♦
• • .*
• IBS
**E2*******
••••••«*•••
****]) 14* ««****«*
• FETCH ♦
• SS BOCBTH *
• «
SB6LIH
•••**F1**********
• TBIHSFBB •
• HESSkGB TIPES •
•m COBIIMakTIOK*
• LIIBS ALSO •
• •
***»*6 1*******«*
•
* GET HURBBB OF
•LOWEST LIRE TO
• BE DELETED
•
••••
*Rlt *
• F1 •.!
CORHKRO OB
•BQUIVILERT.
*.BMTBX FSOn X
••H2*»*»**»
BESET
X-PASS
IREICAT08
•»********•*•**«
****H3***»«****
* FETCH •
* S»B0CBI0 *
* t
*****
• NK •
• Kl*
• DELETIOR
*. RO
BI CUBSOB
.*....
♦ ,
*
• • .*
,
♦ • .*
X LSTSEG
• YES
*****
*RK •
.
* BI*
*****
*RK •
• A1»
226 DOS/VSE Logical Transients
Chart NK. $$BOCRTQ - Deletion of Message Lines (Part 2 of 2)
(Refer to Chart 19)
COBBEHT *. IBS
LIRE EQ. .*....
. OPPBE .*
•.LIBIT.*
IHY LIBES
kLBE&DY
. DBLBTED .
*****C I**********
* •
• SHiri CUB8EMT *
• imE IN *
* PBBVIODS ONE •
« •
UPDtTEl
••••*01*
* GET NEXT LINE
••*•*•**«»•••••*
• *. IBS
laSTBOCTION .*....
*. LIME .*
.* DELETION
.X*. DOE TO
*. CONHkND
» KETCH *
• tSBOCRTP •
* •
•NJ »
* B«»
.•OPPRB LINE *. MO
LIMIT .*...
•.EXCEEDED .*
»MJ •
* H1»
10 .• COMT. *.
..•.POLLOHS UPPEB.*
«. LIBIT .*
* GET NIBE OP •
* PRISE NUICH •
• HXS BEQUIBBO •
• THE DELETION •
« •
****G3***«**«**
* «
* FETCN PBkSE •
* •
.* K-CBD OB
«
XES
..X*. CUBSOB
*• . . .
*.
*
♦. .*
• . .•
••*» • MO
HI * I
• .
•*••
Jl' *•.
.♦ ♦
BO .• IS LINE
*
....*. PBOTECTED
«
X •.
*
*. .*
• . .»
• IBS
*••*
•NJ • .X...
• Jl ••X.
. * * .
. *«•* X
.INPBO .*.
K1 •.
.* •
.lES .* LIME
*
MO
....*. INTEBNAL
•
*,..,
•.PBOTECTED
» *
« «
X* DELETE LINE *.
* •
Charts 227
Chart PA- $$BOCRTR - Read Processor Part 1 (Part \ of 3)
(Refer to Chart 18)
*****
*PB «
* J1*
• «•*
* *
« *
• •*•
****A I*********
• *
• StBOCSTR *
• *
•««*****•**«***
»0 .» •
. ..*. SEIURII FROM
*.SSBOCBIE .*
•**«*C1 **********
* *
* RBSET BETURM *
* ZHDIC. BBtNCH *
* VI* BEG. 7 *
* •
*****************
***«*01*** *******
»***•••********
•*21*******
» SET OH *
•SDPPBESS ICL*
BIT' IN *
CBTCCll *
» *
***********
.* IS THIS *. IBS
.CONimotTION .*...
*. BEAD ON .*
•• CBT .*
*****G1 **********
* *
* LOCK KBIBOABD *
* IF IPL IH *
* PBOGBESS *
* *
*•*•*••*««•**•***
****«H1 **********
*BEADBT PC*
*-»-»-*-•-*-«-*-•
* ISSOE BEkD ON *
* CBT TO CHECK *
* CONDITION *
***•<*********•**
****«J1 *****•*•>
*
* CALCULATE
* NUHBBB OF
* BITES BEAD
*
••*«»*****•••*•*
.* nOBE THAN *. N
.3 CHABACTEBS .*.
*. BEAD .*
CONTBD X
*****A2**********
* LOAD •
• BEGISTER 11 *
*HITU LENGTH OF *
• INPUT AREA •
* «
••**«********««**
*****B2* *********
•LOAD BEGISTEH F*
* KITH BEGIN *
* ADDRESS OF *
* DATA IN *
* INPUT AREA •
*****************
*****C2* *********
* *
* CLEAB INPUT *
* AREA WITH •
* ZEROS *
» *
*****************
*****02**********
* *
* HOVE STABT *
* FIELD ORDER *
*IIITO INPUT ABEA*
* »
*****************
*****£2**********
* SAVE BEGIN *
* ADDBESS OF *
* UNPROTECTED *
* INPUT AREA *
* IN BEG. 6 *
*****************
***•
* •
* F2 *.X
* *
• ***
LOOP X
*****f2**********
•IICCHK PB*
•-*-*-*-*-*-*-*-*
* *
* TEST FOB TIC *
* *
*****************
***««H2**********
* HOVE STABT *
* FIELD ORDER *
* TO PROTECT *
* REMAINING *
* INPUT AREA *
»••***«*••••*****
• •*•
• *
• AU *
• *
****
* CALCULATE END •
X* ADDRESS OF *
* INP AREA *
* *
*****************
****H3*********
• FETCH •
• StBOCBIS >
• «
*•**•••*•*****•
*••****•****•«***
•****B4**********
* •
* *
*CL£AR BEGISTER •
* •
* *
*****************
•****Cit****«*****
* ISSUE 6ET0ADR *
* HACBO TO GET *
* VIRTUAL I/O •
* AREA ADDBESS *
* •
***•••***•*****•*
*****D«**********
•LOAD BEGISTER 5*
* HITH VIRTUAL •
* I/O AREA *
* ADDBESS *
* *
*•*••******•***•*
*****Eit**********
* *
* BBSIOBB *
* BEGISTEBS *
* 8 4ID F •
* •
•**•***»«•****•••
****«pi|*«**»*****
* •
* LOAD ADDRESS *
* OF DATA TO •
* BE IIOVBD •
* *
*****•••••***•«••
* ****GI|* •*••*»**•
* SKIP CCN IF *
* HOBB THAN 80 •
* BXIES ILBBADX *
* BOVED *
* «
***•****•**«•*•••
•****Hll******«*«
*
• UPDATE END
• ADDBESS OF
• HBITE DATA
*
**«*****•****••*
*****Jl|**********
* *
* ROVE DATA •
* IITO INPUT *
* ABEA •
* *
*****************
*****A5*********«
*****************
*.DATA CHAINING.*.
* TEST FOR TIC •
• •
•*•******•»••••••
HODAT X
****«D5**********
* SAVE BEGIN •
* ADDRESS OF •
* UHPKOIECTBD •
* INPUT AREA •
* IN REGISTER 6 •
*****************
***** g5*»»*******
* REDUCE END •
*ADDB. OF NRITB •
* DATA BI 1 •
* BECAUSE OF SI *
*FLO OBOES BITE •
**********•***•••
•••**r5**«****»**
* BOVB SIABI •
* FIELD OBDBB •
* FOB BEAD •
* BEHIND HRIIE •
* DATA •
******•***••«••••
*****GS**********
* ADD LENGTH OP •
* STABT FIELD *
* OIDBB TO END •
* ADDBESS OF •
* HRIIE DATA •
••*»*••****••••••
*****H5*********»
*LOAO LENGTH OF •
* SCREEN IflAGB •
* VITHOUI •
* NARNING LINE *
* •
******•*****•*••*
*****J5**********
*ADD 2 TO LENGTH*
• OF SCalBG •
• BECAUSE OF •
• ADDITIONAL *
• SIFOROBR •
********•••**••*«
* F2 *
* *
••**
' XES
Inoibeady
*****
*PB *
* Al*
228 DOS/VSE Logical Transients
Chart PB- $$BOCRTR - Read Processor Part il (Part 2 of 3)
(Refer to Chart 18)
NOTBEADI X
*tLARM PC*
* *
* ISSUE ALARM *
***«A2*''*******
* *
• TEST FOB TIC •
« *
*«**Al|*********
• WAIT FOB *
<■ OPEBATOB »
• RESPOKSE *
* HRIIE HABNIMG *
* HESSAGE 'BEAD *
* IS HAITING' *
.» *. ««**B3«********
.« CHAIH TO *. YBS • FETCB »
*.Be BBOKEN OFF.* X* SSBOCBIC •
». ,* * •
*. .* «***«*«««**««**
••***•*•***
HAITI X
*****C1 ********
*ATT»AIT P
*-*-•-«-•-*-*-«
*****************
It* «**(;3*« «**««*««
*****************
» ATIBiriOl
INTEBRUPT
'. peNDiMe .
*****C5**********
* •
* SET INDICATOB •
.X*tQ 6KT CONTIOL *
•AFTEB IBtBBBUPT*
* •
*••***•******••••
****«Q1**********
*BEADBT PC*
*-*-*-*-*-*-*-•-•
* READ MHOLE *
* INPUT ABEA *
* *
* ****************
****02*********
* *
> HEtUBK *
* «
**««•****««****
• B2 *
* *
****
« *
• BEIURN *
> •
•«****•«**••*«*
*****l)5»**»*»«*««
••«»«*•••••*•••«•
*****BS**********
* *
* BESET *
*INDICAIOB AFTEB*
* IKTEBBUPT *
* o
***«*««*»««*«*«««
««*«*p^***«*««*t**
**•*********•*•«*
****FS* ********
• •
• RBIUBH *
> *
*****•••••**«••
**G1*******
***********
•***»||1 ••**»•••*•
*HBTIIRNG PC*
•-•-*-*-•-•-•-•-•
* HRITB HABIIIIIG •
* tmE (FOB *
* CLEABIBG) •
*****************
• •*•*
*PA *
• A2*
* *
*
CONTBD
*****
♦ PC »
* G2*
Charts 229
Chart PC. $$BOCRTR - Read Pcocessoc Part 1 (Part 3 of 3)
(Refer to Chart 18)
****A2*********
• •
•BEAD EiTBI »RB««
« •
* 8RITB lABBtBG *
* BBSStGB •
* *
• «
• ISSUB ItUBB «
• •
• PBOVIDB »
• CHBHNBL «
• eaOGBAB •
• «
• PBOVIDB •
• CBklNBL •
• PROGRAH •
• *
• PROTIOB •
• CHABBBL •
• PR06BAB *
• »
« *
* ISSUE BEAD •
•****C3****«****«
*IOBOUT PC»
* ISSOB 8RITB •
••CIt*******
• «
SET ALABH PXIG*
••••••*•*«*
* •
• BBTURM •
» «
****03*********
* •
* RBIUBH *
* •
*ioaooT PC*
* VRITE BBSSAGB •
* ABBA *
* «
«««4>B2*** ******
• SCBBBR I/O
* BOOIINB
*
•
•
«
»••* I
* * •
* P2 *.X.
* * .
*••• t
loaouT .*.
NOATTERT
F2 *.
•****F ]********•*
.* *.
* •
.* ATTBBTIOH
*.
NO
* PBOVIOE I/F *
*• INTEBRUPT
«
*• •• •
••..X* TO SUPBBVISOR *
*.
* «
*. .*
• •
*. .*
••*•••*•*•«•*•**«
* YES
• •«*
♦PB •
* K1 *.X.
* * .
•*•»
lORETRR X
X
• ••••G3*.********«
•***G2*»*******
• * • *
• FEICH
«
* * SVC 7 • *
• tSBOCBTK
*
• * IIAIT • •
****B<I******«**
•**••*•****•*•*
•«•••••*••••••*
* • • *
• * • *
* F2 •
• *
• FBTCH •
• $SBOCRIB «
• •
* •
* BBTUBN *
» *
***•**•«*»•*••»
230 DOS/VSE Logical Transients
Chart PD- $$BOCRTS - Read Processor Part 2 (Part 1 of 3)
(Refer to Chart 18)
• *
* SSBOCBTS •
* •
*PE *
• B3*
* *
*
* hi *
* *
♦•**
Fin X
« *
•PROTECT IMPOT*
• BBID FIELD •
»*C1***»**»
• BESET •
INDICITOBS
BBtHCH VIA
REGISTEB 7
* *
***«*««*«*«
*IMCBENEIIT BKIE *
* CODHT BY 1 *
• BECAUSE OF •-
* IDDITIOIIAL ST *
• FIELD OBD *
*****************
**Q-)*******
* SET OH •
•SOPPBESS
ICl BIT'
iM careen
* *
.*IS PHASE S *.
•. ENTERED FOB .
•.COMT.BEAD.*
*****f1*****»****
* *
* LOAD DSEB CCR *
* ADDRESS INTO •
* BEGISTBB D •
* •
*****************
**** ',
*PE •
*C3 *.X.
* *
•LOAD BECISTBB 1*
*«ITH BTTE COOHT*
* OF BEAD ecu •
* •
*****************
•LOAD BEGISTEB D*
X*HITU ADOBESS OF*
•COST. BEAD CC« •
• •
««««•*••«*•••*«••
*»***f2**********
* CALCULATE •
•REHAIMIHG BITE •
•COOHT FOB THIS •
* READ ecu •
* •
C0BTBD1 X
•••••HI**********
* UPDATE DATA *
* ADDRESS OP *
*IHPnT AREA HITH*
* BYTE COUNT OF *
* READ ecu *
*****************
****************
•••••B4*^********
* •
* CLEAB •
* mSTBOCTIOK •
*LIIIE fllTH ZBBOS*
* •
••***«•*••••«••••
•••••C4* *******«•
* HOVE HSSSAGE *
* 'EIITEB •
* BESPONSE' *
•INTO IHSTBUCT- *
* ION Lias •
**•••*•*****••*••
**j^l^*******
* SET 'REST *
*KBIB AND ATT ♦
* IDENT' AND *
*>SOOIIO ALABE**
* BITS *
•••*•••••••
**«**E<t*******«**
*IOROUT PF*
*-**«-*-*-*-*-*•>*
* VBIIE SCaBEM *
* IHAGE *
* •
•••••••••••••••••
* »AII FOB
* ATTBRTIOM
* IHIEBBUPT
*****«********««i
•••••Cll^«*^^»^**
•
* LOCK KEYBOABD
* IF IPL IS IN
* PBOGBBSS
•
**•**•*****•••*•
*****^H**********
*BEAORT PF*
*-*->*—*****-«-.*—*
* ISSUE READ *
* HODIFIED •
* COHHAHD •
••••••«•**••••*««
AREA
, •
. .*
* MO
•IS
KEI
*.
BEQOBSI •
PRESSED
YES
♦ . ...
*.
.♦
•• .*
* NO
X
• •***
•PE *
• A5^
* •
*
X
COETBOL
* YES *•*•
InEXTCCWI • Ai •
XRBTBX
«***•
• PS *
• A«*
Charts 231
Chart PE.
$$BOCRTS - Read
(Refer to Chart
Processor Part 2 (Part 2 of 3)
18)
•PD ♦
.* IS IT •
. IBS
*.C0IITIMD4TION
.*........
*. REtD .•
♦. .*
*. .•
* HO
*•*•
• * .
• B1 *.X.
* * •
«•*•
IBtDHI X
••»*»g1**********
* SUVE AODBSSS
• OF BBID CCH
• IR coiirccH
• (FULLHOBD)
••••**••«*•*•••**
••CI*******
» SET OH •
• INDICATOR *
• (00CB01) tS *
•COMTBOST HOST*
•BE UPOBTEO •
•••*•«*««•«
*»«**D ^c*********
••«*••••••••«••«•
•LOAD tDDBESS OF*
X*COMI. BEAD ecu •
•IBIO BB6ISIEB «•
• •
••••*••*•*«•*•**•
•«*»*B2**********
* *
•LOAD BUBBEB OF *
* BITES HOVBO *
*IIITO BE6ISTBB S*
* •
*«**«C2**********
* LOAD BEGISTBB •
* J Hlia BITE *
* COOHT OF •
* CORTINOED *
* BEAD ecu »
«****j)2******««**
* SUBTBACT BYTE •
* COaVT OF DATA *
* ALEEADI MOVED *
* FBOH •
* BBGISTES 3 *
•••••*•••••«•••••
BEXTCCH 1 X
•••**13**«»*«***«
* LOAD BEGISTBB *
* D HIIH THE *
•AODBESS OF THE •
* RBXT BEAD CCH *
« •
•«***•••••***••••
• CLEAB *
• mSTBDCIIOB *
•LIIB HITH ZBBOS*
• •
••••••«•*••••••••
•****D3«**«**«**«
••*•**••••**••***
•-•-•-•-*-•-•-»-*
* ISSOB *
,
*IBITB (*
,
• FOB CLEABIHG) *
••••••••*•••••»•«
X
••••«
*PD •
• G1*
• •
HAII
i
* FETCH *
* SSBOCBTB •
••*••*«••••••••
• CLEAB •
• IISTBOCIIOH *
•LIBB NITB ZBBOS*
• •
••••*••••••••••••
••B4*******
••*«»B5****«***«^
* BESET *
« BOITB BBSSAGB •
BS
* •SOUBD* ABD *
••BHTBB COBBABD'*
* • BEST *
* IBtO •
.
* KEXBOABD' *
• IBSTBUCTIOB •
,
* BITS •
• LIBB •
X
••••«****••••••••
*••••
^
^
•PD *
.
.
•*C5*******
•SET BIT FOB*
* 'BEST KEXB •
*ABO ATT IDBBI*
* ABO 'SOaBO* •
* BITS •
•»••*•*••••
••••«D5*********«
•HBITTBB PF*
•-•-•••-•-•-•—•-•
* ISSOB MBITB •
* SDBBOUTIBB *
* •
•••**••*•••••••••
•••**g1**********
• •
*CLEAB BEGISTER *
•••••••**«••*••••
••***p )••••••*«•*
• ISSDE GBTDAOR *
• HACBO TO GET *
• VIRTUAL I/O *
• AREA ADDRESS *
• •
••••*•****•«•*••*
••••*S1 ••••*«*•»•
* LOAD VXRTOAL *
* I/O AREA *
* ADDBESS INTO *
* BEGISTBB 5 *
* FOB EX IISTB. *
••••••••«••••*•••
»****B2**********
•*••*••*•***•«*«*
•••»*F2**********
•••••**•••••*•«•*
«****G2*******«**
••••••*•«•••••«••
HO .* ASXHOC> *.
...*. IBS
•.GENERATED.*
•*••
• •
• All *
• •
•*••
•••••G3**«******«
* SIBOLATE •
* RESIDUAL •
* COO NT FOB
* ENTER *
* •
*•*••••«•••*•••««
• X.
BO * ATTBHIIOM
. ..* TASK
* BEADX
***•••••***
•••••BS**********
* ATTN AIT PF*
•-•-•-•-•-•-•••-•
• HAIT FOB •
• AITEBIIOH •
• IHTEBBOPT •
••••••*••**••••••
•BBADBT PF^
•-•-•-•-•-•-•-•-•
• ISSUE READ •
• BODIFIED *
• •
•••••••••••«•••••
•*«**H1*^^*^^^^^*
* •
* BBTOBE *
* BEGISTEBS 8 •
* ABD F •
* *
**••*•••••**••***
••••*j I**********
• •
•LOAD UXTB COUHI^
•INTO REGISTER i*
• FOB EX IHSTB. •
• •
•«***••••••••••«•
• •
•CISAB SAVE ABEA^
•FOR BYTE COOHT •
• (CONTBOSV) •
••*••«•••••*•****
• •••«II2*^********
REGISTER 5
« m
•*•••»«•••••*••••
•*«»»J2^*********
••*••••••*•***•**
«*»*K2*********
• FETCH •
• St BOCRTT *
• «
••**•••••***•••
••Ba^*****^
* •
INDICATE
BBQOEST
PBIDIH6
• •
•*•«••*••••
••J<l«**«*^^
• •
•PROVIOB THAI •
• REfgBH IS TO •
• SiBOCRTB •
• •
••••••*••••
* FETCH •
* SSBOCRTK •
* •
••••••«•••*••••
• •••
• •
• A5^
• •
•••*
232 DOS/VSE Logical Transients
Chart PF- $$BOCRTS - Read Processor Part 2
(Refer to Chart 18)
(Part 3 of 3)
•***ti*** •••••*
••••••*•••••«••
••••(2*********
• •
• REAOBT •
» *
» «
» KBItB »
■> «
* MIT FOR •
* OPBRATOB •
* KBSroNSB •
*•**••••••••*••••
BEAOBT X
**B2*******
•SET SCREBI •
•IB*GE lOORESS*
• or lEPUT LIIE *
• liTO CRtCCH *
• «
* CLBIR IRPOr *
• *RE1 HITH *
« ZEROS •
« •
••*••••*••»
•••••CI**********
* BRANCH TO •
• SOPBRflSOR •
» (SIO> •
********••***•*••
•*C2*******
* SET BYTE *
COUET FOR
HflOLB IRPOT
ktEk into
* CBTCCV •
•••••••••••
••***C3****^^****
* HO»E START •
* FIELD ORDER *
* FOR WRITE •
*I1II0 INPUT tRB4*
* •
*•*••••*•••••**••
**»**cs**********
• •
• PROVIDE THAT *
I* RETORI IS •
• TO SSBOCRIS *
« •
***••«••••••••••*
••***D1*«********
•*•••«••••••••••*
••02*******
* SET READ •
* HODiriBO
* COailkRD lETO
* CBTCCI
* *
•••••••••••
**D3*******
• SET BITE *
COUNT FOR *
BRITB RHOLB *
SCRIEG INTO •
• CBTCCU •
•••••••••••
••••D4*********
• . •
• BETURN •
« *
•*«•••••••*••«•
••***DS**^*****
•*•*•*••*••*•••
•••••(2*******^**
*ioBoai PF*
•-•-•-•-*-*-*-•-*
• PBBPOBH I/O *
• OPBBATIOE *
• *
••••••••«*•»*••••
••g3^»***^*
• •
* SET kOORESS *
*0P SCREEN IlltGB*
* INTO CBTCCB *
* *
*•***•**•*•
**85*******
• *
SET OFF
RETUBB
INOICUUB
• •
**•••••••••
••••P2*********
• *
• BETORN *
• •
•*••••«*•****••
••P3******»
• •
• SET yRITS
COHHANO INTO
• CHTCCN
* •
**••*«•••*•
•**«F5*********
* •
• RETURN •
« •
•••«•••**•«•••*
••••6 ^****»*»*»
• FETCH •
• SSBOCBTE *
• •
•***•••*••*••••
•••••G3«»****^^**
•lOHOOI PF*
•-•-*-•-•-•-•-•-*
* PERPORa I/O *
* OPERITION •
* •
*•***•••**»**•***
• BETORN •
• •
*****•*•••****•••
Charts 233
Chart PG- $$BOCRTT - Read Processor Part 3 (Part 1 of 2)
(Refer to Chart 18)
* •
• (SBOCBTT *
• *
■OTXT X
• BEDUCB N0IIB88 •
* OF BYTES BEkD •
•BT 3 UII ID ♦ •
• COBSOB BOFFBI •
* tDDBBSSI *
•***«t3»***«*****
• SOBTBACT BIIB •
•COOHT (REGISIBB*
• 3) Bt 1 FOB *
• BOVB •
• INSTBOCTXOa •
* SCBBBB I/O •
• BOUTIBB •
• BBSS! *
• INDIC4T0B, •
• BRtMCB Ilk •
• SE6XSTEB 7 •
• •
**D1*******
• «
• SBT
* SUPPRESS ICL
• IBTO CRVCCH
• «
«****B2**********
« «
*10*0 RE6ISTEB C*
•KITH BEGIR IDDR*
• OF IRPUI tBBk *
« *
•••••C2**********
• *
•CALCaUXE SIXB *
* OF INPUT ABE* *
* FOR THIS BEAD *
• *
«****|)2*>********
••••••••••«•*«•*•
•****B3**********
*««*••*•••***••••
*«***C3«*********
• ADD 1 TO *
• REGISIBB a *
• TO RBSTOBE *
• HUHBEB OF •
• BITES flOfBD •
• D3 *.X.
• • .
ROMT X
•****03**********
• UPDATE DATA *
• ADDRESS OF *
• INPUT ABBA •
• (BBGISTEB A) *
lOBOUT X
••••••*••*•«•••••
• •
• BBAHCB INTO •
• SUPERVISOR •
• (SIO) •
• •
• • • *
• • BAIT FOB • •
• • RKSPOBSB • •
**«•«*••••••••••«
••••*E1**********
• •
*LOAD REGISTER D*
•RITH LERGTB OF *
• INPUT AREA •
• •
• SUBTRACT •
•RESIDUAL COUNT •
• TO GET NUMBER •
• OF BYTES READ *
• •
•••••HI**********
• REDUCE RUBBER *
• OF BITES BEAD •
• BI 3 (SET •
•BUFFER AODRBSS •
••••
BOVBDATA I
•••••E2*^^*******
• •
• ADO COURT OF •
• DATA TO BE •
•ROVED TO RB6 F •
• •
••••••••••••••*••
.*BXTB COUNT •. YES
•.BORE TBAR THO. *...
•. LINES .•
.* BOBE DATA *.
*. TO BE MOVED .
*.TBAN ENT..^
.•IS CONTBDSV^.
*. RALFVOBD TO .<
•.BE INCBH .*
• •
• ADD NUMBER OF •
•BITES ROVED TO *
•UPDATE COMTRDSV*
• •
•**««*•*«*•«**•**
• FBTCB •
» SS BOCRTS •
« •
«••••
•PB •
• A3^
•SAVE BITE COURT*
• IR CONTBDSV •
• HALFHOBD *
• •
••••••*••••*•••••
• •
• RBTURR •
m «
*••*•••»•••••••
NO DATA •
YES
.• IS ecu
TO BE MOVED .
•••* •
«. HITH DATA
.•
,
• .CBAIRXIIG
». ••
•• ••
• . .*
X
•• .•
• RO
«••••
♦PH •
• EM
• IBS
• *
• A2 •
• •
• •••
•»«*»J3****«*****
SKIP FLAG •. IBS
• LOAD ADDBESS *
IN CCH .*....
• OF NEXT CCW •
• • • '
•INTO BBSISTBR «•
•• .* .
• »
• . .» X
«••**••*••**•••••
• no ••••
• • *
•*•• *
• D3 *
•PH •
X • •
• BI •.X.
•••• ••*•
• • .
• •
•*•• X
* A3 • SXIP1 .*.
• *
K3 •.
• ••*
.• ••
.• CHAIN TO ••
• .BE BBOKBB OFF.^
• CLEAR FIBST •
•BITE OF CORTCCH^
• FULLRORD •
* •
•*•••••••••
•••••Ji|^^^*««^^^^
•FIRE PH*
•-•-•-•-•-•••-*-•
* HBITB SCREEN •
* IRAFE FOR •
* CLEARIR6 •
*•••••••«•«••••**
• •••Kil**^******
• FETCH •
» SSBOCRTC *
» •
234 DOS/VSE Logical Transients
Chart pa. $$BOCRTT - Read Processor Part 3 (Part 2 of 2)
(Refer to Chart 18)
*****
• PG *
« G2*
*«***B1 *****•**••
*••*•*•**••*•**••
*10»0 BYTE COUHT*
.JC*OF CHAINEO USEB*
*CCN INTO REG. 3*
» *
««*****•*****«***
•*B2*******
• «
*SAVE HODR OF
* HEAD CCH (IN
» CONTCCB)
•**••**•«**
INDICATE
10 SET UP
CONTBDSV
> 4
•*•*******«
•«»»*l)2*******«*
•*•**•**•*•*•«••
»*«*«g2* *••**•*•'
»••»••**•*******
***«*r2**********
• ISSUE GETOAOB •
• HACBO TO GET •
• VIBTOAI. I/O •
• ABEA AOOBBSS *
• «
**«*•*••*•*•••*••
»****G2**********
• •
*LOA0 BEGISTBB 5«
• NITH VIBTUAL •
• I/O ABEA ADOB *
• *
***•**••**•••««••
«****H2*********
*
• BESTOBE
• BB6ISTEBS
• 8 AND F
*
*«•*****«****«*«
*****
*P6 *
* E2»
*****««***«**«*«*
***«B ]*•****•*«
»****«********••
«****C3*********
*
*GET BITE COUNT
• FOB UAIA
• A7AILABLB
*
***•*«**•***•***
•****D3*«********
* «
* LOAD VBKB6 1 •
* KITH HOVE *
* LENGTH *
* *
••***********«**•
NO .*IS CONTBDSV*.
...•NALFHORO TO BE.
*. IMCBEH .*
••***F3**********
* ADD HUHBER OF •
•BITES HOVED TO *
* HOVE LENGTH •
* (REGISTER 1) •
*****************
NOAD01
»*«**G3**********
• SAVE BYTE •
♦ COUHT 78ES •
* 1J IN •
* CONTBDSV •
• HALPHOBD *
*•«*•*••********«
**I13*******
• RESET •
• UPDATE *
INOICATOB FOB
» CONTBDSV •
* (DOCB01I •
***********
***««Blt *•*••**•*•
* •
* SUBTRACT HOVE •
* LENGTH BX t •
•FOB NOVB INSTB *
* •
*•*•••••«•*••*•••
•••••C'l^^^***^^^*
*•****«*«*•*««***
«**••]> !(••*•••••*•
****••*•**•*•*••*
• B2 *.X
*••*
MODATA X
•••**£<•*•*•••••••
• CALCULATE *
*BBSIDOAL COUNT •
..X* FOB THIS USEB «
. • BEAD CCR •
« *
•••*••••*«•••••••
*****Flk**********
• *
•STOBB BESIDUAL •
* BITE COONI IN •
• USEB CCB •
* •
••**•*••**•••***•
•••••GK**********
**••••••*•***••**
•***A5>********
•ZBBO OUT INSTB •
• LINE AND •
* INPUT ABBA •
*•**•*«*••*»•••
FINE
*****il5****«*****
* aOVE START •
•FIELD OBUEB FOB*
* 8BITE INTO •
* INPUT ABBA •
* •
•••••••««••••«•••
**C5***«***
• •
> SET AODB OF •
SCBEBN IRA6B •
> INTO CBTCCN •
• •
•*•••••••••
••OS*******
• •
•SET LBN6IU OF*
* SCBBEN IHAGB •
• INTO CBTCCH •
• •
• ••••«•••••
*>gS***»«»«
• •
• SET VBIIB
* coaaAHo INTO
• CBTCCN
• •
• •F!>**«****
• •
BESET
CONT BEAD
FLAG
• •
•«••••••*«•
••G5*******
» •
BESET
•SOUND ALABH*
BIT
» •
«*RS«**«««*
• SET •
• 'BBSTOSB •
> KEXBOAaO* BIT •
•IF NOT IPL IN*
• PBOGRESS *
* H**
RAINLINB
• *jl|»«*««»*
• SET ON •
• INOICATOB *
FOB CONT
• BEAD •
• (DOCB02I •
•••*•*•••••
•***KI|********^
* FETCH •
* SSBOCBIB •
* •
»•*•*••••»*••••
*•*••
•PG •
• Bi»
Charts 235
Chart PJ. $$B0CSTII - Update Wrap- Around Address
(Re£er to Chart 16)
• «
• SSBOCHIO •
» •
***B2************
HBIte CUBSBKr
» BLOCK TO •
HC-FILE
••••••*••«•*•••*•
CBTUIO .*.
CI *•
.* ••
.* OVEBJ.iI *. MO
• ••
C2 ••
.• HBAP- *.
.* ABOUHD *. BO
"" C3-*-..
.* OVSBLII
*. BRTEBBO .*
•. *rj .•
*.0PD»tE»G3.«
••
•*«*CI>*********
• rBTCH •
• SSBOCBT* *
• •
•*!))•*••««•
*•••*•*«••«
**02*******
••••*•*••*«
••••OH*********
* FBTCB •
* (SBOCRTB *
* •
••«•*£ I**********
**•••**•••«••*••«
* *
* COPX •
* FLIG INTO *
* HEkDEB BBC08D •
* *
OVEBLAK
MODE JUST
. ENTB8BD .
• COPY llEU *
• MBAP AROUHD *
.X* ADDRESS IBTO *
• UliADER RECOBD •
« *
•F3 OVBBLAI BODE:
OVBBLAI RODE IS BKEBED
HBBRBVEB THE HBAP-ABOUID
POmt OF THE UABD-COPI
PILE IS OVEBB BITTER.
SSBOCRTH DETECTS OVBBLAX
RODE AMD CAUSES IMfALIOA-
TION OF THB HRAP-ABOOHO
AD0B8SS IR HEADEB BBCORO
VIA ttBOCBTD.
*G3 MRAP-ABOBRD ADOBBSS
UPDATE:
PHIRIL06 ROVES TBB HRAP-
ABOUHD POUT OF THE HABD-
COPY FILE BY PBIRTIN6 ITS
COHTBNTS DP 10 THB REM
HEAP-ABOUND POINT. VIA
SSBOCRTU IT UPDATES THE
HBAP-ABODRD ADDRESS IR
THE UEADEB RECOBD.
• HHITE HEADER
RECOBD TO
» HC-FILB •
* RE-BEAD •
CURRENT BLOCK
• FROH HC-FILE »
•H3 FORCE HBITIN6 OF
CURRENT BLOCK:
FOB BLOCKED HARD-COPY
FILES A BLOCK IS NOT
HBITSBM URLBSS IT IS FULL.
ON SORB OCCASIOHS (I.E. AT
SYSTEH CLOSE DOMR TIRES.
BEFORE PBINTLOG STARTS
HARD-COPY FILE. FOB THIS REASON
SiBOCBTU IS CALLED BY
PBINTLOG AND BY THE IJBJC7 ROD
CONHANO PROCESSOR. .
236 DOS/VSE Logical Transients
Chart PK. $$BOC£W - COMMAND Error Message Writer
(Refer to Chart 20)
• A2 •
••**A1*********
> •
• S«BOCSTV •
• «
•****A2**********
«I0B00I1 PK»
• UBIIE SCRIJEH •
« •
****A<I*********
• SCRiiBI I/O *
• BOOTml •
• •
**B2*******
» *
SET OFF
ALIRH
FL4G
« «
• PBOTIDE •
* CUiMBL •
• PBOGRAH •
* *
••C1*»**»**
••••*•***••
«****C2* *********
• •
« SET COBSOB •
* AT IB VALID *
* CaiBACntB •
• - •
****••*••*•**«•*,•
»*•••••*•••••••*•
• ••*•{) I**********
*•••*•«»*«••*••*•
• HBXTE SCREEN *
t *
*»*»*Dlt*********<
• •
• BBANCH IKTO *
* SOPEBVISOB •
* <SIO) *
* CAICOLATE H/ll *
* AOOBBSS FOB •
* COBSOB *
* POSITIOKIIG •
* *
•****£ 3*»*«»*»***
********«*••**•*«
•••**Elt******««
***••*****••*•*
* *
* CLBAB *
* INSTBUCTIOB *
* LIIE *
* •
****F2*********
• FETCH *
» JJB0CRT1 *
• *
••••f 3******«»*
• FETCH •
• SSBOCBTP •
> «
••Gt*******
• •
SET ON
AlABH
FLAG
* ' *
* F«ICH •
* «»BOCBTE *
* «
.X*SEL£CI HBSSASE *
• *
* •
• *
* BETORM *
» *
* •
* INSEBT EBROB *
* MESSAGE FOB *
* REDISPLAY •
* *
»*««*J2**********
* INSEBT INTO *
« INSTRUCTION *
* LINE BOFFER *
* •
Charts 237
Chart QA>. $$BOCRTH - Display Warning Message
(Refer to Chart 20)
» •
* StBOCBIii •
* •
••CI ••••••*
•••*«•««•••
•••••Ol***^*****'
•*••••••
•••••£ {•••••••••^
• •
•COa» IHIBBIItL *
• PROIECIBD •
• LUES •
• •
•••••••••••••••••
•••••t2****^****^
• •
• IIOICAIE THAT •
.X« $»BOCBTII BIS *
• H*D COBTBOL •
• «
••••••••••••««•••
••B2******«
«••««•«*«••
•••••C2**^****«*^
*IOB00t1 01*
*-•-•-•-•-♦-•-*-•
• *
• ISSUE ALiBB •
• *
•••••••**•••*••••
•*D2****^**
« •
SEI OFF
ALtBH
FLAG
* •
•••••••*••*
•••••g2**********
* PBEPABATIOB *
* FOB HS6. «
* •MESSAGE •
* HAITIHG* •
* •
*••••••••••••••••
•••••P2**********
•I0B0UT1 QA*
*-•-•-•••-•-•-•-•
* •
* HBIIB SCBBEB •
* «
*••••••••••••*•*•
• •••^••«******
* BAIT FOB «
* OPBBATOB *
* B8SP0BSB •
•*•••••*•«*••••
•••«•••*«**
•••«A5«********
• SCBSEM I/O •
• BOaXIBE •
• •
•••*••••«•»••••
• PBOflDB •
• CHABIEL •
• PBOGBAB •
• •
•••*••*•*••••••••
****D3*********
• *
• BSiaaii *
» •
••••••••«••••«•
•••••ca****^*^***
• •
• PBOVIDB THAT •
.X* SSBOCBTH BILL •
• 6BX COMTBOl •
• •
*•••••••*••••••••
•••••DO**********
**••*«*•****«•***
••EH^******
• •
S8T OFF *
IHDICATOB FOB
GEITIBS *
* COBTBOL •
••••••••«•«
****F<I*********
* •
* BBXDBH *
* *
•••••«•••••••«•
*****************
*****])5*********«
• *
• BBABCB imo *
• SUPBBVISOB *
• (SIO) •
• *
****••••*•****•••
•••••g5^*^*«»»***
••«••••••••••••••
••••C ^••••••••»
» FETCH •
* SSBOCBTI *
• «
****•••**••••••
•••••g2**********
•ATTHAIT QA*
•-•-•-»-*-*-*-*-•
• HAIT FOB *
• OPEBATOB *
• BBSPONSE *
•••••••••••••••••
•••••*•••••••••
• ••••l)2***^^*****
••«••*••••*••••••
•••*H5*********
« •
« BETUBII •
* «
*•••»••••••«•••
•••••J 2*** *******
*I0B0DT1 QA*
•-•-•-*-•-•-*-*-•
* DELETE *
* 'HESSAGB *
* UAITING* •
*****************
••••K2*********
» FETCH *
• StBOCRTK •
• *
«••**•••***•*•«
238 DOS/VSE Logical Transients
Chart QB, $$BOCRTX - Verify Operator Commands (Part 1 of 2)
(Refer to Chart 20)
» »i» *
« •
* •
• «
> «
» tSBOCBTX •
* 4
***************
*****^3**********
* PBOTIOE tnkt •
* SSBOCBTX HILl *
* SET CONTROL «
» iPTEH »IT. •
* mTBBBUPT •
*****************
****^H******
PBOTIDB
TO FITCH
SSBOCRTK
****************
**C1*****«*
•••***•*••*
*****l}1*mm*******
*****************
**•••£ 1*** **»••**
• CLEAH *
» INSIBUCTION *
..X* AMD IMPOT •
. * LINE BOfFER *
. • •
*****************
****
* *
• *
*****f^**********
* *
* GET BANGE OF •
* DELETION FBOn *
* SBGVAt2 *
* •
*****************
>*B3**»*******
>**•****•*«««*
*****(;i*********
* SET OFF
* INDICATOR
* FOB SETTING
* COHTBOL
• *** *
* • .
* D3 *.l.
* • .
• «*•
AT-IPENDO X
**D3*******
KKIBOABD
m 9
***********
* BEAD *
* OPEBATOB'S •
» INPUT »
*****************
ONLI ONE
CHARACTBB
. INPUT .
• «
» C5 •
• *
• •**
*****Bb********»
*
• PBOVIDE TO
« FETCH
• tSBOCBIL
*
****************:
****
• *
• C5 •.!
1 X
••***C5**********
•I0B00I1 QC*
• BLANK •
• INSIBUCIIOM •
• LINE •
*****0S**«******'
*****************
• FETCH •
• PHASE •
• «
*****Q 1**********
* *
* PBOVIOB FOB »
* AUDIBLE *
* ALARM *
* *
••**G2*********
* FETCH *
* SSBOCBTP *
* *
• OP TO 1
CHABACTEBS
*. INPUT .
***»*ll\**t*******
♦lOROUTl QC*
•WRITE •DELETION*
• RE(i.' AND *
* K-COHHAKD •
*•«**«*« *«♦«***«*
**J1*******
.*. DOCNBX
X
*.
•••••H«**********
«.
B,» *. YES
HHAND .*....
PROVIDE TO *
FETCH *
.♦
MBOCBIH *
• •
*
. .* I
**«**««««*««****«
• NO ****
^
• •
^
• Ab *
^
X • ♦
X
*••« **••
***•
*
» *
A« *
* C5 *
*
* *
*•*«
*•••
IN CCB
* *
••***•****«
* AJ •
* •
**••
• Di *
« •
• **•
Charts 239
Chart QC- $$BOCRTX - Verify Operator Commands (Part 2 of 2)
(Refer to Chart 20)
****Ait»*«**»***
•••••**«•*•••••
lOBOSTI
• PROVIDE
• CUUIBI.
• PBOGRtH
•«•*•••»••••«««•
PBOVIDB
i/r to
S0P8B?ISOB
i»*****»****«»**'
••••DH* ••••••••
BBABCH
IBIO
SUPBBVISOB
(SIO)
«****Eit***«**«***
•••••••*•••*•••••
• FBtCB •
• StBOCBTB •
••••Hit*********
• *
• BBtOBM *
• *
*•**•«•*•***•*«
240 OOS/VSE Logical Transients
Chart QD. $$BOCRTy - Handle Long Messages (Part 1 of 3)
(Refer to Chart 20)
* tSBocBxr •
•*Cl*******
• •
SET OF
SCBBB* BBP
IBOICiTOB
* «
•••••D I**********
••••••••I
••••••••
SSBOCBTH
PISSBD
. ALBBADY
•»BSI OF*
• DBFIBB *
• MESSAGE •
• TYPE •
• INDICATE THAT •
• SSBOCRTV HAS *
• BEE! PASSED •
• ALREADY •
• •
• •
» mSBBT •
• PIK/TIK •
• IBTO SCT •
• «
• PBOVIDB FOB •
• AODIBLB ALBH •
• IF BEQUIBBO *.
ADVANCE
» GET RANGE
• OF BESSA6E
..X* LINES
*••••••*•*••*•»•
•**«*B2**********
•SCBPII QB*
•-•-♦-•-•-»-«-#-•
•WRITE IINBS 0* •
• SCBBZN AND *
• PBINTEB *
.* AUTOMATIC
*. OELIIION
• . MODE
*. BITEB (BI
••••
• •
•••• .
2 X
*I0B00T1 OP*
•ISSUE COMTINUE •
• BY ENTER •
• MESSBGB •
•I0800T1 OF*
•-•-•-»-•—»-•- *-♦
• •
• ISSUE ALARM •
• •
*•••••••*••••••**
•••••F2****^*****
•I0B00T1 OF*
•-♦-•-•-♦-•-•-•-•
• HRITE HABNING •
• MESSAGE •
• •
•***••*•••*••««*«
•••**G2*******^**
«ATIMAIT QE*
*-•-•-•-•-•-•-•-•
• BAIT FOB •
• ATTBIIION •
• INIBIBOPI •
••••••••*•«•••*••
•-•-•-•-•-•-•-*-•
• READ *
• OPBBATOB •
• RESPONSE *
•••*•••••*•*•••••
• *
•RESET INIBBB4L *
• PBOTECTIOR OF •
• LINES PBINTBD *
• •
****B3* •*••***•
• FETCa •
• SSBOCBTQ *
• •
••*•••••••*••••
• PROVIDE •
I* INFORUriON •
• FOR SSBOCRTB *
• •
•••••••••*•••*•••
•***DI|****«**««
• FETCH *
• SSBOCRTB •
• •
**•**••*•••••••
•••••8S«*«»***«»«
• CLBAB *
* INSIIOCTIOB •
* LINE *IBPUT •
*LINBS IN BOFPU*
• •
*****cs**********
•BSTHBN6 QB*
•-•-«-•-•-•-•-«-•
.• CLBAB NABNIN6 •
• LINE •
•*•••**•*••••••••
CORSOR
OB ENTEB
RET
*••**( 3**^*******
• CLEAR *
• INSTRUCTION *
• LINE * INPUT •
*LINES IN BOFFBB*
• •
•••••*••••***•*••
Charts 24 1
Chart QE. $$BOCRTY - Handle Long Messages (Part 2 o£ 3)
(Refer to Chart 20)
* NKITB •
* BBSStGB •
* LIIBS •
•••••••••••••••
SCBPBT X
•BSTPBI QB»
• SET ON PBINI •
• BIT IB »««. *
• BITBS •
• tUBH CCB
IB CUABBBL
*. PBOGBiB .
• •
• PBOVIDB FOB *
• tUOIBLB *
• ALB8B *
• •
> BBITE «
• NIBBIBG «
• «
BSMBBG
•«***B2*********'
• PBEPABB
• NBBBIBG
• LIBE
• BDrPBB
«
••***C2**********
*ioBouti or*
• HBItE BOFFEB *
• OBTO BBBBIBG •
• LIBE •
• •
• •
• BETUBM •
•••••••••••••••
Bill FOB
OPBBttOB
BBSPOBSB
•••••••»*•»••*•••
•flODIPI P8IBTBB •
• FUG II BTTB. •
• BITE •
• •
•••••D3»******«««
• GET BEIT LIBE *
*•*••«••*•**••«••
•IOBO0I1 OF*
* HBITB TO •
* SCBBEN BBD •
* PBIBTEB •
••••OH*********
*••••••••••••••
•****cs**********
* PBOVIOB TBBt •
• SSBOCBII GETS •
.X* COBIBOL BFIBB •
• BtlBBTIOB •
* IB1BBBUPI •
•••••OS**********
•*»«•*•••••••••••
* SET OFF •
INDICtlOB
FOB GEXtlBG
COBIBOL
• •
•«pt****>**
• *
SET OFF
kLIBH
FLAG
• •
«***F3*********
••••••••*••••••
••••F&*********
•«*««•**•««••«•
*BSTPBT QE*
* SET OFF PBIBT •
* BIT OF LIBES •
* HBITTBK •
• •
• BETUBN «
242 DOS/VSE Logical Transients
Chart QF- $$BOCfiTY - Handle Long Messages (Part 3 of 3)
(Refer to Chart 20)
• SCBEER I/O *
» HOOtlUE •
» •
> DBPIMB *
* HBSSIGE •
» T»PE «
• CBOVIDE *
• CHINHBL •
• PBOGBAN *
• •
* *
* G« •
* *
• •••
»*•••••*•••*•***•
.*nS6 READBB *. 10 « *
*.»LPB*MUMERIC .*.. X* BET08N *
*. .* X * •
• *
• BBAIiCH imo •
• SOPERVISOB •
• (SIO) •
• »
•***»E2*«********
• * * •
• • SVC 7 » •
• * Hill * »
>««*••**•*••••*•
* BEtDEB •
FOLLOIED BI
». BLIMK .*
•«***F3***«****«*
••••**•*•******«•
.* •• TES
.X*. laFOBRAIIOM .*.
*. BBSSASB .*
•***G3*««******
• «
• BETUBK *
• *
*INSBRI BBSSAGE *
*IYPB IMDICIIOB *
• liTO sot BITE •
* •
***«U2* ********
• FETCH *
• tSBOCRTE *
• *
«****«******«««
•••«*I|«*******»**
* mSBRI *
* tSTEBISK •
* II FBOBI OF *
* HESSAGB *
* *
*•*•********••••*
PAVilL X
*****Jit«*********
* IMDICIIB THAT *
* IINE IS *
« DELETIBLB *
* (IB SOT *
* BIIB) *
****Kl|« ********
* *
• BETURH *
***************
Charts 243
Chart QS, $$BOCRTZ - Channel Program Analyzer (Part 1 of 6)
(Refer to Chart 16)
» «
• SSBOCRTZ *
» «
•»«**B2* *•*•*••**
••••A3*********
•*«•••*•••*«•••
***^^B3**********
* ST08E CSH-CCi »
•••«•••*•••••••••
BEGINZt
•••••C2**********
•TESTCBO QL*
*-•-•-*-*-*-•-*.•
•CHECK FOR VkLlD*
• OPEBITIOR •
• CODE *
•*•*•*••••*••****
•••********••••••
•-•-•-•-•-•-*-•-•
* TESI FOR BITS •
* 38,39 IN ecu •
* •
**••••*•••****•*•
BBGINZO
*.
F2
• .
,*
*
YES .*
coRhand
• • ■ *•
IS
NOP*
, «
'*.
.*
*
.*
«*«»«
* NO
• OJ •
* k1*
.
* *
•
■OPCHD
i
*.
G2
*.
,*
*
YES .*
CORHAND
IS
ALH'
•
^
• ^
.*
X
*
,*
*****
* NO
»QJ •
* A2*
* *
•
tLRRCND
***
»*H2*S****
*PROICHK
*-•
-*-*.
.*-*-•
CHECK FOB
•
!>ROTECTION
VIOLATION
***••••*••**•***•
*-•-•-•-•-•-•-<-•
• •
• SKIP All TIC *
• •
••••••***•*•••*•*
****
*0H *
* KH *.X.
* * .
****
BEei«Z2 X
•••••02**********
***^^D3**********
« *
*TESIC«T OK*
*.*-*.*-*-*-•-<-*
* SAfE COHHANO *
• COBBERTtl *
* CHECK FOR *
* PROCESSED •
* VALID COOIt *
*********•«•*•***
«*«•••••«•*******
•«***H3«********
•
* POST CHARIIEL
X* AND DEVICE
• END IN CSV
*
****•****•»•*••*
*Q3 *
• A3*
* *
.* DATA
*.
XES
X*. CHAimiiG
*• • . •
*.
•
*. .*
*. .*
X
* NO
***•
* *
* A3*
X
* *
*****
****
*UH *
* A3*
* *
«
BBGINZ5
244 DOS/VSE Logical Transients
Chart QH. $$BOCRTZ - Channel Program Analyzer (Part 2 of 6)
(Refer to Chart 16)
.* mcossEcr *. ies
•. LENGTH .*....
•.SDPPSIiSS .*
• •*•
• •
• D3 •
« *
RBFERBNCeS
ID QHE1:
QJG3. QJGU
• PROVIDE TO
• FEICU fttkSe
• SSBOCRTR •
*****C3**********
«*******««***««*«
»•**
**g^*«««««*
E2 ».
* SET OH *
.*
• INDIC4T0R »
NO
• COBB AND
..I* FOR BHOKEM •X..
»
CHAINING
• ecu CHAIN *
♦ .
* *
♦.
*«*******•«
*. .*
••»•
• YE
* «•**
* El »QJ *
• * B1 •.!.
X
•*•*• *
»»♦*
••«•
• *
EXITZ1 X
* H5 *
*m*«"¥f 1******m*mm
* *
* «
*•••
•GET ADDRESS OF •
• HEXT ecu •
* *
« *
*****************
**** l
* *
• G1 ».X.
* • .
*****
*«*♦ .
• QJ •
EXITZIA X
• GJ»
*****G 1**********
* *
• *
*
* SAVE ADDRESS *
*0F CURBBKT CCH *X..
HSITE WITH
*****************
••***G3*«*******
• REJECT
*
****************
**fl3*******
» «
SET OFF
cei-OE IN
CSH
« *
***********
*»**
*
*.x.
REFERENCES*
TO gHJ3:a
QKDS, ttnD2,
****
CHECK 1 X
«»***J3***«******
* *
* INDICATE TBAT *
* CCN CHAIN IS *
* BROKEN OFF *
* •
*****************
* PROVIDE TO *
I* FETCH PHASE •
* StBOCRTC •
* *
IBS .* INCORRECT *.
...*. LENGTH IN .
♦. CSN ••
* •
» El •
* •
« *
• Hi •
« *
*SIORB THAI ecu •
* ADDRESS IMIO •
* CSN •
* •
*****************
*****jii********»*
•TICSKIP OL*
•-*-»-•-♦-•-»-*-•
« •
• SKIP ANI TIC •
• *
*****************
*****J5*****
• *
«GET PHASE NABIS •
• APPROPR. 10 •
• COHBAHD CODE •
• *
************
.* ERROR •-
NO .* 00RIN6 ».
...*. INITIAL
♦.SELECTION.*
• YES
Iabbnuexit
.* «. ****i/i^*********
.* •. YES • FBTCH •
*. MRITE HITH .*.... « PHASE •
*. CR .* . • •
*. .* *•«*••*•»•»••••
•. .♦ X
* NO •»•*
* *
.BBGINZ2 • G1 *
X * •
• QG •
♦ D2*
Charts 245
Chart QJ.. $$BOCRTZ - Channel Program Analyzer (Part 3 of 6)
(Refer to Chart 16)
• ***•
» F2*
» •
*
*****
•OG •
* G2»
» •
«
VOPCHD i
• *
• PBO?IDI! TO »
• FETCH PHASE •t. .
• ijBOCRTC •
kLBHCHU X
**t2*******
*
• IHDICATB
• ALARM
• COMHAND
•••••«••«••«****•
••*••••••**
* PROVIDE to »
* FETCH PHASB *
• SSBOCRTE *
• *
*****••*•*•**•*«•
B3 *.
.* *.
• VALID
BXIB COUIT
**C3******«
* *
• IMDICAVB *
*IIICORB. LBMGIB •
• IM CSM *
* •
•*[)1*«»***»
• SBI on *
INDICATOR
FOR BBOKEN
CCM CHAIN
• INITIAL
SELECTION
• F1«
EXITZ1
NO .* INCOBRBCT *.
,..*. LENGTH
•.SOPPSBSS .*
**r3*******
***»*c <)•••*******
« •
* INSERT CCH •
* AOOBBSS INTO •
» CSN •
* *
•«***D4***«*««»*»
*IICSKIP QL*
•-•-*-•-•-*-*-«-•
* •
* SKIP ANT *
* TIC •
••••*»•*••*•***••
**«»*II|***«*««***
•TESTCNT OK*
* CHECK FOR *
* VALID RYIB *
» COUNT •
•••*«•••••**•••••
* SET OFF *
.• INCORRECT •• IBS
•INCORB. LENGTH
•
*. LENGTH .*....
* III CSN •
*.SOPPRBSS .*
• *
». ••
****••****«
*. •*
• NO
* *•»• I
* ♦ .
, ,
• G3 *.X.
« •
* * •
• *** X
, ,
.SENSB1 .*.
X
G3 •.
**6lt*******
• • *.
* • .
.* COHNAND *.
IBS
• SET • .
*. CHAINING
♦ ....
•INCORR. LENGTH •
». .*
,
• IN CSN •
•• .*
* • .
• • .•
X
***********
• NO
*****
^ ,
*0H •
, ,
!••••••■••• xl
• G1*
* *
•X. .•••••••••
X
X
1*****
*
*****
•QH »
EXIIZ1A
•OH ♦
• Kl*
• E1»
« «
* *
*
•
BXITZ
BXIT1
246 DOS/VSE Logical Transients
Chart QK. $$BOCRTZ - Channel Program Analyzer (Part 4 of 6)
(Refer to Chart 16)
• •
* INSBBT CC» *
* ADDBESS •
* into CSll •
* CLBkB IDDBESS *
* riELD FOR *
* NEXT CCi «
« «
• CHECK CCH «
• FLtG BXIB *
• •
* I>B0V1D8 PHtSB •
.X* NABE IPPBOPH. *
• TO COflHKND •
« •
•cgj*******
> •
SET OPP
DEtCB
I* CSN
» •
BITS 38
BID 39 OP
.ecu ZBSO .
*«C1«***«**
• BESBT «
IMDICATOB
FOB BBOKEN
CC8 CHAIN
* •
****C2*********
• FETCH •
• PHASB •
• «
•***C3*********
* FETCH «
* SSBOCBTA *
* •
••**Cit****** ••*
» CBBCK CCH •
* BITE CODHI *
• *
• •
• CLEAB AODBESS «
• FIELD FOB *
• BEIT ecu •
• •
• •
. IBS * XBDICATB *
.* X* PB06BAH CBBCK •
• IB CSV •
» FETCH •
* SSBOCBTA •
* *
• «
• BBTOBB «
• «
Charts 247
Chart QL. $$BOCRTZ - Channel Program Analyzer (Part 5 of 6)
(Refer to Chart 16)
• CBSCK CCH •
• OPBBATIOII *
• CODE •
• «
• TEST FOB TIC •
« HOVE •
•OVBBATIOB COOB •
• TO NOBK FIELD •
• *
• HOVB •
•OFERBTIOII COOB •
• TO HOBK FIELD •
• •
« ALL LOU
OBOEB BITS
•. ZBBO
.* AMI
. HI6B OBDBB
•.BITS ORB .
E3
.•
• • O
•.CODE «
•««**C<I*<>********
•PBOTCac OR*
PBOTBCTIOI •
• CBBCK •
• •
.X*
••••D3*****«**«
• «
• BBTUBM *
• *
* •
* GBT BDDBESS •
* OF ecu •
* POIBIBD TO «
* «
*****B<I**********
• •
• BOVE •
*0PBB1TI0R CODE •
• TO HOBKFIELD •
* «
CBOBEJCT
• «
FB06CBCK
•***e2*********
• *
• BETOail •
• *
• «
• BETORN •
• 4
248 DOS/VSE Logical Transients
Chart QM- $$BOCRTZ - Channel Program Analyzer (Part 6 of 6)
(Refer to Chart 16)
••••11 ••*•••»••
• PSOTECTION *
• CHBCK •
• •
*«••••••*•••«••
• GET fIRTUAL *
• DATA ADDBSSS •
• OF ecu •
• •
•*••«••••••••••*•
•••••^•••••••••^
* •
* Boyg •
•OPKBATIOR CODE •
* TO NORK FIELD *
* . •
•••••«••««•••••••
• IMOICAIE THAT •
.1»CCII CHAIR HOST •
• BE BBOKEM OFF •
• «
•••••••••«••**••«
••02*****^*
* «
IRDICATB
VBOTECTIOll
CBECK
» «
•••••«•*•••
..X* J 3 •
• •
• ••• CHECK 1
TIC
•- .•
• YES
•••••^(••••••••*
•••••••••••••••CI
• ADD LBBGTB *
.X* COUBI TO DATA •
• ACDBESS •
• «
••«*••••••*«•••••
• RESSA5B
FOB SlStBH
•. TASK
.X*. HBItE
•
*,
XES
•
A)OBBSS BR BOS
•....
*,
«»
.•
•
• «
-•
I
> RO
• •••
• *
• C2^
• •
•••♦KS^
•
•
•
BET
IRR
•
*
*•<
•
Charts 249
Chart RA,. $$B0CRT1 - Message Redisplay Part 1 (Part 1 of 2)
(Refer to Chart 21)
* * .
kITl .*.
Bl <
.*
BBQD8ST
PBROIHG
PLkG
"•• ••'
• **•
• ♦••
• •
• •
* hi *
• *« •
• •
• •
• •••
• «••
•••»•
"
*
♦ KB »
,
,
• J2»
MTBI I
X
♦ *
•
*
♦lOHOUT BB*
*
t *•
•-»-*-•-•-*-•-»
-..I* DB/INE ecu *
ISSOB RB&O *
• • • •
*
noDiriED •
*
k *
»
> B1 •
SECOBD
EMTRI IN
. CHklMBL .
•.OaBOE.*
•••<
X
aONBITE
.«.
01 •
,*
ERBOB
*.
8BTUBII
•ROT DOCanBHTEO)*
**F1*******
• «
• SET OFr
• AODIBLE
• ALIBH
• «
• •**
• •
• G1 ».X.
• «
E
••«**«***«•**««»
PROVIDE
CBARHEL
PBOGRAH
SET ON
AlARH
FLAC
« «
♦-*-»-»-•-•-*-»-
«NBITE TO SCREEN*
• •
**F2*******
* •
SET OFF
AOOIBLg
ALABH
PROVIDE
NABBING
HESSAGB
*HRITE TO SCBEKN*
• »•*
• •
• D1 »
• SET ON
ERROR BEIORN
• FLAG
* «
***********
*ilRIIB TO SCREEN*
• *
*•*••••*••**•*••*
•*D3*******
t «
SET OFF
AOOIBIE
ALARB
> *
*****••**«*
****
*RB •
• D1 ».X
*«*•
X
**E3*******
* *
• SET OFF
t* POST FLAG
* IR ecu
* *
***********
**cu*******
• *
R85ET
BRROR FLAG
• •
**••***•**•
X
***•
t *
» Bl •
• *
****
****
•RB *
* A1 *.I.
* * •
•♦•• BB
EBBOR X
*»**«CS**********
* PRBPABe •
* IBSTBOCTXON •
*•••••••••••*••«•
*****
• IB *
* A1*
««B5*******
» *
* SET
* ALARB
• FLAG
• *
******«*»•*
••**
* •
* G1 *
* •
•«***G3*** **••*••
• INDICATE THAT •
* SSB0CRI1 GETS *
• CONTROL AFTER »
* ATTENTION *
♦ INTEEKUPT •
««***«**««***«***
****lij**********
* * *
* * *
****************
**J3*******
* SET OFF •
INDICATOR
FOR GETTING
CONTROL
t •
**•*«*•***•
» AU *
« *
****
250 DOS/VSE Logical Transients
Chart KB. $$B0CRT1 - Message Redisplay Part 1 (Part 2 of 2J
(Refer to Chart 21)
•B4 •
• B5*
* *
****i3**«»*****
• YES
«*****•*•**•••«
• C5»
• •
ERBOR
• C2 *.%
.* OMLT SIX «. IBS
■>. CHARkCtERS ......
•. INPOI .*
•• ••
• SBT DEFkUtl •
X« PA6IIIS *
• PABlHEtERS *
• *
«*«*«««• *««««•««*
•
BRANCH INtO •
SUPERVISOR •
(SIOI •
D1 *.
• * *•
X
****02*******«*
•«««*03«»«»**«««»
.• MORE THkM *. XES
«. SIX CHARS .*....
*. IMPUI .*
*. .*
• FETCH *
• $$B0CRT6 •
• »
• * SVC 7 ♦ •
♦ ♦ M»IT • •
•• ••
X
* NO
• ••*«
,
•*••*£)•••••••««
• R» •
• EJ*
« *
•
X
• *.
E3 •.
.* ••
• GET INPUT
• LENGTH
.* ONIT *.
*. EXCEPTIOi .*
•• .*
•. .*
*. .•
««**«p 1«««««**«««
«»••«»•«*•*«•*•««
• •
• RETURN •
• *
« *
• CONVERT FIRST •
• CHARACTERS TO *
• UPPER CASE •
« *
* •
» PROCESS *
* FAILURE II «
* SfBOCRTE *
* •
« «
* •HO
INVCOH
«**««H 2* *********
* PROVIDE CCa *
* COUNT AND •
. .-X* INSTRUCTION *
» LINE CONTENTS *
* *
*****************
««***«**«*
*****J 1*********»
**«**•*•*****«**•
»*J2*»****»
****J 3**«**««**
* «
* RETURN «
* «
***«*****«**«**
****
* *
* c:a *
* «
****
****K2******«**
» FETCH •
» »»B0CRT2 •
> <
***************
Charts 251
Chart RC. $$B0CRT2 - Message Redisplay Part 2 (Part 1 of 2)
(Refer to Chart 21)
«««*j(2* ********
• »»B0CST2 *
* «
*B2**********
,*
*,
NO
*. BLANK JillSIS .
*... .
*. •*
,
*. . *
,
*. •*
X
* KES
*••«
• •
• F1*
• •
***•
X
*»B5******»
• *
* B&Sei ULANK >
* INDICATOB
«
***************
**••«*•*•*»
SEFEBBMCBS
TO 8CF1:
8DB3. SOKI
***** 02** ********
•**E2******«***
TRAHSLATE *
INPUT INTO *
UPPER CASE •
CHABACTBBS *
*
*. -*
I
* NO
*»•••
*BD *
.
* *1*
*•••
* •
* Fl*
* *
••*•
**E5***«***
»**«**«****
*••*
SBFEBKNCKS* *
TO RCF5: » • •.x
RDE2. RDKU* «
*•*»
ERA
*****************
•»**
« 4
• ri *
* «
•*•*
«****Q1 *«*««****«
*****************
****H1*********
» FETCH
* SSB0C8TV
•
v**************
*. JES * INDICATE THAI *
.* X* NO PARAMETER *
.* * IS SPECIFIED »
•*•*•***«•***»*«*
REFERENCES*
TO RCHJ:*
aOCi, RDE5*
****H2*** ******
««*»****«««
****U3*********
» FiiTCH
* JSB0CRI6
**«**K2* *********
« V
» INDICATE THAT ♦
.* BLANK IS *
* PRESENT *
*****S 5* *«*«**«*<
BLANK .*
252 DOS/VSE Logic?.! Transients
Chart RD- $$B0CRT2 - Message Redisplay Part 2 (Part 2 of 2)
(Refer to Chart 21)
•sc •
• C5»
• «
• 4"* •
«***«A 3**«** *••« <
*.BIID OF IHPOt .*.
•*«**B 1«*>»***»*«
••*«**««««•«*•*««
« *
• C2 •
* «
•BC •
» G3»
• «
-*.
».
CDIHA
• .*'
• IBS
• PI*
BSROaCtS
X
••• ««F 1**** •« «
««**•*••**••••«**
las
,*
iEIT •
,
.. ••
PAUAHJ^rtfi
.•
^
*
•B" .•
^
*. .•
X
•• ••
♦••♦•
» HO
♦ EC •
• F5«
* «
*
I
• ««««ir2*««*«««*
>•
«
XHDICATE TtaX
•
NU FlbST
•
»AK&afc't'i:K
*
txl.
>IS
•**«*«•*«•*•**•««
aM. 4 *. ao
OJBIIS .»...
I0...9J .•
•••**C3***«*****
*
• PBUVXUls
• Kilt
• COUDLtlOttS
«
•BC •
• U3«
• «
• i>4 •.Jt
• *
• ISOlCAtu
• fABflCXOk
«**««c<t«*«******
• *
*.iiMO or INl^U't
* •
• IHUlCAIfi •
I* BiCKaABD *.
• usuiseLki •
* •
• •*•«*** j»«*
« iaDXCAT£ 4
* POimABU <
!• BEBXSi'Lil »
««*•*«*•*««*«•«««
r£s
• KBXT •
.. .*
fXMAiilJJ) .
*
.
• • 'ALl.' .•
.
». .*
X
•- ••
••**
* HO
* «
• A<t •
,
• •
,
*•«•
X
• *.
Ul *.
.♦ KfcXT *.
• tAhXAKIUi *
RU
*
BU, fH, OR AB
♦. .♦
*. ••
.....
•• ••
£
» «£S
* *
• ♦
.**»*J l« ««««*««*«
«*•«**«***««««**
•«**«S3**********
« «
• MJSXT •
• CdABACTKB «
« «
>***dj*********i
XKDXCXXfi <
OXHiiCTXail «
PAKAKE'TBii <
eK£seiix <
4
* «
* 04 •
« «
• *•«
• *
« XKDXCAVi: I'dXI <
*. ihs A • no iiiscuai) «
ili.AIIK .•........!« {■AfcA5i:iT£U <
.• • Ll.l.:ti!i «
.* • «
•at •
»riH«*«««**««*
»««*••«««**•
* IJ£S
••••
X
XIIUXCA'X;2
l>AUA4i:Xl^U
• »
**««««««•«
Charts 253
Chart BE- *$B0CRT3 - Message Redisplay Part 3 (Part 1 of 3)
(Refer to Chart 21)
• «
* $SB0CRT3 «
* *
BEDISPLiX
. AODR
• SET LIME *
« POIHTBB TO •
• LAST HESSkSB *
• LINE •
• •
• INDICATE *
* BACKNARO
AOOHSSS
* UPDATE
« *
••HI*******
* INDICATE *
• 'BEGIN OF
* FILE" TO
« LIBIT LINE
*•••)
>•*»•
• SET COUN- •
• TERS TO LAST *
• HBSSA6S LIKE •
• COUNTERS •
• •
*****************
*****Q1**********
* SET START •
* ADDRESS TO •
* LAST HESSAGE »
* LIME ADDRESS ♦
* *
*****************
PIBIITION
BBDISPLAI
*. YES
*
X
♦ BF,»
*• .*
*• .*
• NO
FORW
*****Q2**********
• SET LINB •
• POINTER TO •
• FI8SI HESSASB •
• LINE *
• *
*****************
**C2*******
• INDICATE *
FOBHARD
BESSASE
OPCATB
• *
••£2*******
* INDICATE *
• 'END OF
FILE* TO
> LIBIT LINE
* «
**»»«F2** ********
* SET COUNTERS *
* TO FIRST •
* BESSAGE *
* LINE COUNTERS *
* *
******jt**********
*****G2* *********
* SET START *
* ADDRESS TO *
* FIRST MESSAGE *
* LINE ADDRESS *
* *
*****************
••** .
*BF *
• F3 *.X.
• •••
* *
* JO *
* *
• DBCBEASE •
• SKIP LINE *]
• COUNT BI 1 •
• »
•*«**•*****•**•••
«••*
•BF •
• D1 *.X
*****f i*********
****************
****
UPDkl X
•****G3*********
*UPDTBOUT RG
•-*-*-«-«-»-*-*-
* UPDATE
* REDISPLAY
* ADDRESS
****************
•*Ei|*******
* *
SET
DISPLAY
FLAG
* *
••****••**•
*****eit*********
* PASS CURRENT
* LINE COUNTERS
TO FIRST
*****************
*****G5******«***
* PASS CUBBENT *
* LINE COUNTERS *
* TO LAST •
* HESSAGE LINE •
* COUNTERS *
*••****»**•«**••*
BESSAGE LINE:
SPACE IN THE SCREEN IMAGE
BUFFER FOR THE DISPLAY OP
ONE MESSAGE LINE
LINE POINTER:
POINTER TO THE CURBENT
MESSAGE LINE
LINE ADDRESS:
HABD-COPY PILE DISK
ADDRESS OF THE HESSAGE
IN THE LIME
* At *
* ■ *
****
»****Hlt**********
*PASS REDISPLAY *
* ADDRESS TO *
* FIRST BBSSAGE *
* LINE ADDRESS *
* *
*****************
****
* * .
* JU *.X.
* * .X
«*** X
PL .*.
Jl *.
*»***HS**********
•PASS REDISPLAY *
* ADDRESS TO *
* LAST HESSAGE •
* LINE ADDRESS *
* *
*****************
REDISPLAY ADDRESS:
HARD-COPY PILE DISK ADDSESS
OF THE MESSAGE CURRENTLY
REDISPLAYED
SKIP LINE COUNT:
NUMBER OF MESSAGE LINES
TO BE SPACED FORUABD OR
BACKHARD DURING RE-
DISPLAY PROCESS
* ****Xit**********
*DISI(IO RG*
•-*-*-*-*-*-*-*-*
* READ RECORD *.
* INTO BESSAGE *
* LINE •
****»*«***«**•**»
254 DOS/VSE Logical Transients
Chart BF- $$B0CRT3 - Message Redisplay Part 3 (Part 2 of 3)
<Refer to Chart 21)
CODNT BI 1
PkBTI 1
•DISKIO aG»
* READ BECOBD •
* IKTO BESSiGK •
* LIMB »
LIBIT X
• SKI UP 10 •
* DlSeLkl FIJ.B •
« LIBIT IITO •
**VAILtBLE LIBB •
conetBE
PIBTITIOH
IDEHTIFIBS
» •
* SET LIRE *
» POINTEB 1 •
• LINK UPNARO *
« *
• SET LIHB •
• POINTER 1 •
• LINE DOBBHIBO •
• *
•.
«
X
•
IBS
*•**«
•••»
*8E *
* * .
• Bi*
• El *.X.
« *
» • .
*
•••• X
BNDRED .*
•0 PUT BOUT RG*
• UPDUB ■
« BBDISPLAI •
* ADDBBSS •
» El*
• «
••••
• •
SBT LIMIT
laoICATIOB
• •
• •••
* «
• F2 •
« »
• RB •
* S3*
* PASS CURRENT *
* LINE COUNTERS •
* TO FIRST •
* NSS LI IE *
* CODNTBRS •
*4i««*f 2**********
• PASS CURRENT *
« LINE COUNTERS '
• TO LAST RSG
• LINE COUNTERS
m *
••**««*••*••*««**
•X.
FORUABO *. IBS • *
REDISPLAT .*....X* Al •
•PASS REDISPLAY *
* AOOSBSS TO *
* FIRST RBSSAGE •
• LINE ADDRESS •
• •
••*••••*•**•••***
««*«*G2**********
•PASS REDISPLAY •
• ADDRESS TO •
• LAST RBSSAGE •
• LINE ADDRESS •
• *
«•»•«•••••••*••••
• ••*«
• RE •
• on*
YES -• LIBIT
...... INDICATION
*. SET
RESSAGE LINE COUNT:
GIVES THE NDHtlEB OF
HESSAGE LINES KHICB
ARE STILL FREE IN
SCREEN IRAGE BUFFER.
IT IS SET BY $$B0CRT6
TO RAXIHUH HHICH IS U
FOR 12SD AND 20 FOB 3277
• FETCH •
• tSBOCRTlt •
• *
••••••»*•••••••
Charts 255
Chart RG, $$B0CRT3 - Message Redisplay Part 3 (Part 3 of 3)
(Refer to Chart 21)
* •
* DISKIO •t2 •
* *
•112
BKkO BE-
OISPLAI
BECOBO
•»5
OPOklB
RBDISFUY
ItOOBBSS
* «
* UPOTBOOt •hS •
* «
URBLOCKBD
HABD COPT
. PUB
.* BBCORD
. ALBBADI III
*. BOPFBB .
BACKKABD
AOOBBSS
. 0P0AT8
«****Ci|**********
• •
• IHCRBHBHT'-I •
• BOF'StBISKA •
• StABI'LASTSKA •
• «
• •
• 1IICBBHBIT«» 1 *
• BOF«LASXSKA •
• StABT'STBISKA •
• •
• •
• SET SBABCH •
• AB6URBIT TO •
• BEDISPLAT *
• ADDBBSS *
* BEAD BECOBO •
FBOfl HARD
* COPY FILE •
•B2
«B2
BBBOB TYPES:
IICOBB. LBBGTH
DBBECOVEBiBLE
I/O EBROB
•
» UPDATE
* ALL LIME
• COUITBB
«
••***E<I*********
• *•••••*••*•••••<
•••••QIC*********
• •
* BOTE »
» HECOBD IMTO •
• MESSAGE LIME •
* •
••••HI*********
• «
• BBTOBM •
» •
STBTSKA *
SCABT ADDRESS OF HARD-COPK
FILE MESSAGE AREA
LASTSKA :
EMD ADDRESS OF
BARD-COPT FILE
REDISPLAT ADDRESS IS
FOR CKD: CCHHR
FOR FBA: BBBBB
••P2*******
••*••••*•••
••••S2*********
• FETCH ♦
• *SBOCRTB •
• *
•••**p^*»*««««»«i
••••••*«****»*««
««*««65««*»4
*«••*•••*«•«*••••
* SET BEDISPLAK
* ADDR TO
* START OF
* FILE
«*«*KI4* ********
> «
• SSTORM *
* •
**»**•**•*•**•*
256 DOS/VSE Logical Transients
Chart Bh. $$BOCRTi( - Message Redisplay Part 4
(Refer to Chart 21)
» •
* $SBOCBT<» «
» BBTURI *
FBOH SCB8BI
». BBP .«
••C1***«*«*
••••**•*•*•
••••*l) 1**»««*****
••••••***•*•*«•«•
•••••g1****«*«*»*
••*••*«•*••**»••*
• IP BEQUIBBD •
* TRAISLUE IN «
* HBSSIGE kBEl •
* BOFFBB *
* aRPBINTtBLB •
* CHkBACTBBS *
BEUSP
IMIIIILIIE
IISTROCTIOII
IIIB HITR
DEEIOLI
DISPLIII
* CLBtB SCBEEI *
•***B2******«**
IRSBBT
OIBECIIOII IITO
LIBE
*«***C2**********
« •
* IRSBBT LIBIt •
* COOBT IBIO *
* IINB *
« •
•••••02**********
* •
SUPPBKSS
kODIfiLE
4LABB
• •
****Ci*********
PBOVIDB
CHIRBBL
PBOCBAM
• PBOTIDB I/r •
• TO SUPEBflSOB •
• (SIO) •
E2
*,
IS ♦.
.* THEBE t *. HO
*. PtBTITIOR .*...
*. LIBE .*
*.CO0HT.*
*,
• YES
****F2*********
IRSBBT
PBBTITIOH
LIRE COURT
IRTO LINE
SCIP X
••**«G2******«***
•URIIS RH«
« CLBIR SCHBBH *
• •••Ii2*********
• FETCH *
• SBBOCBTI «
• •
****B3*«*******
• S»C 7 •
• RMI •
* • .
* Q] *.X.
* « .
• •««
.*
GJ
.».
,*
• ••
* TBS
» FETCtt *
• SSBOCBTE 4
• 4
• •••Qll*********
* *
* BBIURB *
* *
*NBITS BH*
* •
* CLBBB SCBBBM •
* *
•••*K I*********
• FETCH •
• S*BOCRTP •
• •
Charts 257
Chart EJ. $$B0CRT5 - Message Redisplay Part 5 (Part 1 of 2)
(Refer to Chart 21)
**2
OD37I HC-FILE NOT
OPEMKD, NO REDISPLAI
» 4
* J»B0CRT5 »
» a
m *
• PROVIDE *
t« HESSIIGE *.
• 0D37I *
• •42 •
FETCH «
$«BOCBTP ♦
4
«*•***•***•*•**
***** 04***4* ***4t«
* GET DISK *
* ADDRESS OF »
* SCREEN IMAGE *
* SA»E AREA *
* 4
«»*••**»**«*•«*•*
RESTOBE *.
SCREEN
IHAGB .•
*•••*£ 1 ••«*«•*•**
•SIO BK*
•-*-*-•-*-*-•-•-*
* SAVE CDRBENT •
*BDFFEB COHTENTS*
• •
••*••»•••*•*•**«*
••»**D2*** *******
*IOROUT RJ*
*-*-*-»-*-*-*-»-*
* RESTORE *
* SCREEN •
* IMAGE *
*****************
**E2*******
4 4
RESET
BEOISPLAI
RODE
* *
«****«*«***
* «***n****«***«
*iORoai Rj
•-*-•-•-•-•-*-*-
* SAVE SCBEEN
* IHAGB
* *J1
•***•*«•***••***
**Q1*******
* *
mDICATE
REDISPLAT
NODE
• *
•*••«••*•*•
•••*|J1«*******»
» FETCH «
* $«B0CBT6 *
4 *
•*•*••••****•*«
•-*-*-*-•-*-*-*-*
>«*••********•***
****H2** *******
• FETCH *
* *$BOCRT<l *
***************
*****Dit******«***
* HOVE LINES *
* FROM SCREEN *
* IHAGB INTO •
* BUFFER *
* «
***«***«**«****4i*
•-*-•-*-<
* NHITE BOFFBR •
* TO SAVE AREA •
* •
*•••••*••*•**••*•
*-*-*-•-»-•-*-•-•
*BEAD FROM SAVE •
AREA
***«*B5*«********
***••***••*•*••••
•****pi(*«*****»**
* •
* INCREMENT *
* SCREEN IMAGE •
* POINTER *
* *
***«««««•**«**** «
.* SAVE/
RESTOBE
*. FINISHED
****G5*********
4 «
• 8ETUSN *
* *
*««*»****««***«
****«*«*«**«**** 4
*J1
SAVE SCREEN IMAGE:
THE CONTENTS OF SCREEN
IHAGB BUFFER ARE SAVED
IN THE SCREEN IHIGE SAVE
ABBA. IT IS PAST OF THE
HABD-COPT FILE. IT STARTS
AT RECORD NUHBEB 2. ITS
LENGTH DEPENDS OK THE SIZE
OF IRE SCBEEN (B BECORDS
FOR 125D: 20 RECORDS FOB
3277).
*Ji
RESTOBE SCBEEN IMAGE:
THE ORIGINAL CONTENTS OF
SCREEN IMAGE BUFFER ARE
RESTOBBD FROM SCREEN IMAGE
SAVE ARSA IN UARD-COPK
FILE.
258 DOS/VSE Logical Transients
CHart RK. $$B0CRT5 - Message Redisplay Part 5 (Part 2 of 2)
(Refer to Chart 21)
••••a I*********
• *
• OPDITE •
• «H1 *
* 4
* SIO *
* 4
• *
• mCBBREIT •
« R-fltU8 BX «
•BLOCKING FACTOR*
• *
***B3*»»»*******«
••«***«*4**«****4
•B« KBkD FBOH
OB HSIIB 10
HiBD-COPI FILE
*.HH INCBEHBHT
*. •*
• . ••
*. .*
» •
• RETURN •
**C<t*******
• *
• IIDICRTE
.X* IICOIRBCT
• LBMOTH
ii«i***D )«••*•••*••
• *«!••*•**••••***•
•*DH*******
• •
• IHDICAIB •
.X* URBECOTBRiBLB *.
• I/Q BRBOB *
* •
****os** *******
» FEICB *
* SSBOCBIB •
» •
**»•*•*••**••»•
El *.
.* *.
CC
mCRBBERT
****E2*********
» 4
• RETURN 4
* 4
•••••**»•••••••
****B3*********
• •
• RETURN *
• «
«*••**•*»•****•
• ••••F t**********
*****************
••••61*********
* *
* RBTORM *
* *
•••*•««*•••«**•
•HI FOR CKD DEVICES:
TRE DISK AOORBSS CCHHR IS
INCBBMBNTBD BY 1 (BLOCKIMG
FACTOR « 1)
FOR FBA DEVICES:
IBS RELATIVE BLOCKNUHBER
EXTENDED BX A ORE BXTE
RBCOBD VAIU ""
TREATED AS
Charts 259
Chart RL* $$B0CRT6 - Message Redisplay Part 6 (Part 1 of 2>
(Refer to Chart 21)
* •
* tSB0CBT6 •
* *
.* BIPtSS *. IBS
COflHkND .*....
*.CiiECKIIIG .*
*RII •
.* PtBTITOII *. NO
*.0B OIBECIIOI .* X*.
*. SPECIFIED.*
BETORH *. IBS .*
SPECIFIED .* I*. BEDISPLkl
.* *. BODB
■0 .* ».
lES .*
COOKT
«
...*. BEDISPLtY .'X..
•..••*.
SPECIFIED
*
*. RODE .*
*
♦
*. .*
•. .*"
X «. ••
». ••
•»•• • »ES
*
H3 *
• HO
•
«
»»»•
X
X
.».
••***G1* •••*****•
G2 *.
* *
• ' *
* TRAHSFEB *
.*
«
* ti»B coum •
».
REDISPLAY
«
* •
•
NODE
*
• *
• • .*
***•*•••**«***•**
*. .*
****»D5******«***
.*
"»
PABTITIOB
SPECIFIED
». .*
*. IBS
.*. .. .
*
*
COOHT
SPECIFIED
». ••
.*
*
lES
BEDEFIIE •
BBDISPLAY •....
mOICATOBS •
•
*. .*
X
•• .*
X
*«**••***•«»«•••• X
• HO
*BH *
• A2*
* >
*
• BO
*BB *
* A1»
* *
*
• •
* •
.»
*»
.**
E3 *.
* «
DIBECTIOa
SPECIFIED
*. .*
*. -*
PABPA
.*
*
*
*
X
.«.
E<» *.
* *
REDISPIAI
HODS
• • .*
*. .*
C01
*
CASE2
«**«*BS**********
• SET LME •
YES • COUBT BQBAL •
X« TO HUBBBB •
• OF BESSASE •
• IIBBS •
• ***
• *
• H3 *
• «
•*•*
MO
*SET IIBB COUNT
*EQU*I. TO NUHBEB
« OF MESSAGE
• LINES
*
****************
'REFBEIENCES
* * • » »'T0 RLBJ:
, * % •"•RIIAI, BHA3
»,*» ;rhb2
ERROR X
****************
• ••*
* «
» B3 *
« *
REDEFINE
REDISPLAY
INDICATORS
>****K2******«**
**»*«******«*««*
••***j 3*«*******
•*******••*****•
» FETCH »
* SSBOCRTT *
*
• REDEFINE
• REDISPLAY
• PARAHETERS
* REDEFINE
I* REDISPLAY
* IHDICATOBS
*Ba *
• B2*
* RBDEFXNB *
* REDISPLAY *.
* INOICAZOBS •
« •
»G5****»**
«*«***«•***
**•*
LINECOO X
• •**
* *
• JS ».x
BXIT1
* •
*
EXII2
» FETCH *
* *»BOCBIb *
* «
260 DOS/VSE Logical Transients
Chart RM. $$B0CfiT6 - Message Redisplay Part 6 (Part 2 of 2)
(Refer to Chart 21)
BEFSRENCSS
TO RHAt:
BLB3, RLJS
*****
♦ BL *
* HJ*
* *
*
ERBOH
•***«B1 **********
* RBS8T *
• BKPASS *
* FLAG *
• *
*****************
*»***B1I********
*****************
*****
*B1 •
* PS*
*****
*BL *
* H3*
*****C3**********
* •
* REOEFIME *
X* BEDISPLAY *
* INDICATOBS •
* *
*****************
It************
*****C 4* *********
*•****•**•*
REDEFINE
BEDISPLA!
INOICATOBS
*************
**>**D4* ********
» FETCH *
* JJBOCRTJ *
» «
•*•♦*****»*****
•*♦***♦***♦**»*♦*
*****
*RL *
* H5*
Charts 261
Chart SA. $$BCHKPT - Test Checkpoint Conditions
(Refer to Chart 23)
* UBCHKPT •
•**«*B1*** •*•*•••
• •
• SkVE POIiTEB «
• to CHKPT •
•PABKHETEB LIST *
• «
.• A5XBCHB. *.
. PB0CBSSIB6 .
*SUPBRVISOR.*
.* CHKPT •. BO
. ISSOEO FBOH .*..X
•.BBIBTtSK .*
.• SUBTASKS •
>. kTTACHED TO
*.RBIBT1SK .•
AHY
IBBCKS
HELD
CHKPTOUO X
♦ * EXTBkCT: • •
• *GEt DEVICE • *
* IIPE OP CHKPT •
* • DEVICE * •
» • * •
.» CHKPI *. lES
DEVICE .*..X
•.ASSIGNED .*
CHKPT
DEVICE A
. TAPS
«*««»A2**********
* * BXTBACT: * •
• •GET DEVICE • *
•TXPB OP CHABMEL«
• *QaEOE EHTBY* •
* » • •
• *
» K1 *
CHKPT090 X
• SET CHKPT-IO »
♦ IB CBKPT *
• HEAOEB •
* BECOBD •
« •
*****P2******«***
• » BXTBACT: • »
• GET TEHPOBARX *
• BOONOABIES OP «
*CHKPT PABTITIOB*
• • • •
*. GETVIS DOHK .«.
U2 *.
.« USBB *
.*CHKPT EBD-
ADDBESS
*. GIVEH
♦ . .*
. * USES *.
SPECIFIED
ADDRESS
. VALID .
• SET CHKPT •
• EBD AOOBESS •
. X* TO PABTITIOB •
• PHYSICAL BBO •
• •
**«**)I3**«*«***«*
* SET CHKPT •
* BRO ADDBESS *
.X* TO PABTITIOB •.
* LOGICAL EBD *
* *
*****************
» PPIX •
IBFOBHATIOB
*. TO SAVE .*
***«*BM******** •
* CALCOLATE *
*BOHBER OF PFIX •
* BECOBDS ABD *
•STOBB TO HEADER*
* BECOBD •
CHKPT 180 X
••**«C «••*•*•*•**
• * EXIBACI: • •
• • PEBHBHBBT • •
• •BOORDABIES * •
• • OF CHKPT • *
• • PABTITIOB • •
*****IIH**********
• GET HOBBBB OF *
• SISTEH LOBS, •
• PBOSBAHRBR *
•LUBS. ABD BICL •
• •
.« EXTENT *. HO
. IBFOBBATION .*. ..
•. TO SAVE .•
*****rn**********
* CALCULATE HO. •
* OF EXTEBT *
•BECOBDS NEEDED •
* ABO STORE TO •
« HBADEB BECOBD •
*****************
.» 3800- •.
.* PBIHTEB •
. IBFOBBATIOM
*. TO SAVE .♦
*****flU**********
•CALCOLATB 3800 •
•PBIBTEB BECOBDS*
• HEEDED ABD •
•STOBE TO HEADER*
• BECORO •
*•••***«•*•••••*•
CHKPT360 X
••***JI|*«*****»*«
•STOBB PARTITION*
• IBFOBBATION *
• NBCESSARX FOR •
•REST. TO CHKPT •
• HBADEB RECOBO •
CUKPIBBQ I
•••••B5**********
* SET OP •
* IBFOBHATIOH •
* BBBDBO FOB •
* BBSSA6B •
* •
•••«*•*••••••••••
•***CS*********
• FBTCB •
• SSBBBS61 «
• •
••••••*«*•••*••
.•CHANBBL*.
.•QUEUE EMTBI*. MO
•.FOR BAINTISK .•...
.• CALCULATE •.
*. NO. OF IbK .
OUBP BECOBDS^
****fiH*********
* FETCH •
* SSBCHKPZ •
* •
•*•••**••••*•««
262 DOS/VSE Logical Transients
Chart SB. $$BCHKP2 - Build and Write Checkpoint Eecords
(Refer to Chart 23)
* *
» $$BCHKP2 •
* *
* «
* B2 *
* *
.* liXTENT *.
. IDFORHATION .
*I0 BE SAVED*
* COHPLJJTE •
» CHKPT •
* UE1D8S *
* HBCOBO •
* *
«*««**««***«*«***
« EXTENTS
FOB SYSCAT
». TO SAVE .
tm***f1* *********
* * * *
* * GETVCE * *
» *GET VOLSEB * •
* • OF SYSCAT • •
* * * *
*****************
*****Q1**********
* *
* OBTAIN AMD •
* SET TAPE •
* DENSITY *
* *
*****************
*-•-*-»-»-♦-»-»-*
************
CHKP2170 1
*****Blt**********
*IOBT SB*
*-•-*-•-•-•-•-*-•
*»liITE PARTITION*
* DUMP BECOBOS •
* «
•*•••**•*•••••*••
*****cn**********
•lOBT SB*
•-*-*-•-*-*-•-*-•
* HBIIE TBAILBB *
* LABEL •
****AS*********
« «
» I08I •
« •
***************
««***B5****«»****
* *
*SBT UP CCB AND *
* OPDAIE BECOBD *
* COONIEB »
* *
*****************
****
lOBH X
***Q^************
CHKP2040
*****Q2**********
* OBTAIN EXTENT *
* INF. FROa *
* JIBTABLE •
« AKEA AND HOVE <
♦TO EXT. BECOBD *
*****************
CHKP2110
*****lj'i**********
* OBTAIN EXTENT •
* INF. FROM ♦
* SYSTEM EXTENT •
* AREA AND HOVE *
•TO EXT. BECOBD ♦
*****************
EXTENT
BECOBD
•COBPLETE
CIIKP21;>0
«*«»«P2* *********
*IOBT SB*
*-»-»-*-•-•-*-•-*
* MBITE EXTENT *
* IHFOBRATION *
* BECOBD *
»♦♦*»•***♦*♦****♦
HOBE
EXTENTS
TO SAVE
**************
CHKPEB1 X
*****j^H**********
* SET DP *
* INFOBBATION *
* NEEDED FOB *
* HESSAGE *
« *
*****************
*«**E4*********
» FETCH *
• SSBBHSGI *
» «
***************
*****fH**********
* MODIFY *
* CHANNEL *
* PBOGBAN TO
* BACKSPACE
*****j)S****»*****
* * * *
* * * *
* * BAIT * •
* • « «
* * * •
•*****••••*«»•**•
BACKSPACE
"*. -*"
*. .*
*X.
»*♦*»*♦***♦♦**»♦*
.* PFIX •. NO
.X*. INFORMATION .*
*. 10 SAVE .*
»*««G5*********
* BETUBN *
* TO CALLEB *
* •
»•«•*•**«*«••••
.* 3800 *.
.* PBIMIEB *
10
. INFOBMATION
*
...
«. TO S»VE .*
,
*. .*
*- -*
X
* YES
»***
* *
* B2 •
* »
X
*«»»K1*********
FETCH
*
S$BCHKP3
*
.X
YES
****
* *
* B» *
* *
****
CHKP2165
*****H3*
*********
***************
* * PFIXCHPT: * *
* * BUILD • *
* *PFIX-BECORD* *
* • « *
*****************
» iRITE PFIX *
* INFOBBATION *
♦ BECOBD *
*****************
.* MORE ».
.PFIX BBCOBDS .•
*.T0 BBITE .*
• *•*
* «
* C5*
* *
• **•
Charts 263
Chart SC, $$fiCHKP3 - Build and Hcite 3800 Checlcpoint Records
(Refer to Chart 23)
*****»**••*••••
* *
» lOHt •
* *
•••••••••••••••
* IMITI«LIZB •
* CHKPT BECOHD *
* MD VORKABSa •
* FOB 3800 *
* PBINTBB IHF. *
♦ SEI OP ♦
*CH1IIIBL PBOGBAH*
• AID OPDATE *
• BECORO NOHBEB *
* *
*•••*(; 1**********
• *
•LOCATE LOGICAL •
• OMIT ASSIGNED •
*tO 3800-PBIIITEB*
• •
• ♦ QSETPBT * ♦
• • BETBIEVB • •
• 3800 PIIHTBR* •
• *IIIF08BATI0II* •
• •
• •
••••••*•»•*«»••*•
B1 *.
EBBOa
•••CIt************
EXCP
* •
•••••Dl**********
•*•*••*••••**••**
«*«*«F1*******«*«
•lORT SC»
♦ HHITB 3800- •
*PBIHIEB IBFOB- •
* HATIOII BECOBD *
IBS .* BOBE
...*. LDBS TO
*. PBOCBSS
••***••««*•••••
•**«»g2**********
• •
» SET UP FOB •
.X*BACKS»CE CHKPT*
• BBCOBOS •
• •
•••**F2*«********
•I0BI2 SC»
* BACKSPACE *
• BECORDS *
» »
• SEI UP •
• BESSAGE •
* IBFOBHATION *
* •
••••H2*********
* FETCH •
* SSBRHSGI «
* «
****E3* ********
» •
* I0BI2 •
• *
••*••**••»•••«*
* HOOIFX CCVS •
* FOB BACKSPACE •
* CHKPT RECORDS *X.
*. BACKSPACE
• *
• C«*
> •
••••
X
•*••
* •
* c« *
* •
••••GH*********
* BETOBN TO *
* CALLRB •
* •
•••***•*••••••*
264 DOS/ySE Logical Transients
Chart SD. $$BCHKP'D - Test Checkpoint Conditions
(Refer to Chart 23)
> •
* SSBCHKPD *
« StTB POIKTER- •
• 10 CHKPT •
• PIKAHKTBK •
• LIST •
.* ISIICHB.
. PBOCESSIRG
•SOPBBVISOR.
• GBt SPECIFIC •
• BECORD LENGTH *
• OF CHKPT •
• BEflCE •
• *
CHKPD110
••«**C2**********
« GET NOHBEB •
• OF BBCOBDS •
• PBB TBACK FOB *
•DOHP k«D IBFOB.*
• RECOBDS •
CHKPD120
• * GETVCB: • •
• ♦GET BLOCS- • •
...1» * SIZE OF • •
• *PBA-DEVICB • •
• * • •
CHKPOUO
• CtLCOLBTE 10. •
• OF BLOCKS •
•HEEDED FOB DUBP*
*4MD IIFOBBBtlON*
• BBCOBDS «
> EZTBMTS
FOB SISCBI
». StVBD .
«••••€«•••*••«*•«
• » GETVCB: * •
• •&£! VOtSEB • •
• • OF STSC» • •
• « • •
• « • *
••••
• «
• B5 »
• «
CBKP0B10 X
•••«*B5«*********
• SBt OP *
• BBCBSSIBX •
• IBFOBBATIOI •
• FOB BBSSiGB •
• •
•***CS*******«*
• FBZCH *
• SSBBBSGI •
• •
01 •.
.* ••
CHKPoiao .*.
D2 •
,•
• CRKPT *. NO
ISSUBD PEON .*....
•.RBINUSK .•
•• ••
•• GETVIS
*. DONE
CHKP0220
*»***03«***«««**«
• SET CBKPT END •
« tODBESS TO •
...K* PtBTITION *.
• PBISICBL BIO •
• •
CHKP0670 .*.
.* iUOO •.
• PBIBTBB *. BO
IIFOBBkllON .*..
». to S»»E ••
.• SOBZISKS *. IBS.
. tTTICBBD to .*.
•.RklNtASK .*
.* USEB *.
. CBKPt END- .
*. ADOBESS .*
*. GIVEN.*
• SEt CBKPt •
• END iODBBSS •
.X* to PBBtltlOH *.
• LOGICAL ElU •
• •
• *•••£<>•*••••••*•
• CBLCDLAtE *
* 3U0O PBINIBB •
* IBPOBBRtlON *
• BBCOBDS AND •
* STORE *
ANI
TBACKS
. RBLD
*. .
CHKP0200 .*.
F2 ♦.
.« OSES *.
NO .* SPECIFIED *.
....*. ADDBBSS
*. VALID .*
••••F«******«**
• rstCH *
> SSBCBKPB •
• •
caKPDO«0 . X
•«**»G1******«***
• • EXtBACT: • •
• • tBRPORABI * •
• *BO0 BO ABIES • •
• • OF CBKPt • •
• • PABTItlON • •
CHKPD290 X
•••*«e2**********
• CALCVLAtE •
• NORBEB OF •
• DOBP BBCOBDS «
• AND StOBE •
• to BEADBR *
*«***ll |«**««««***
•GBT POIBTBB tO •
• CBKPt DTPPB •
• FBOB CBKPt •
•PARABBtBB LISt «
• «
• GET NICL FOB •
• PABTITION AND •
• POIBTBB TO •
VPBOGRANHBR LOBS*
• •
.* DIFPB *.
. OPEH SINGLE .
*BBD OUTPaT.*
*. •*
.* *.
• EXTBIt •
IRFORBAtlON
*. to SAVE .*
• CBKPt •
DEVICB-TXPB
*. VALID .*
CHKPD420 X
*****K2**********
•CALCULATE EXT. •
• IBFORHATION •
• RBCOBO NDHBIR •.
• AND STORE TO •
• HBADBB BECORD •
•••«•**•••*•***•*
Charts 265
Chart SB. $$BCflKPE - Cooplete Test and Write Checkpoint
(Refer to Chart 23)
Header
••••
• •
* 12 •
* •
• •
• StBCBKFB *
• GET Alio SITE •
• SISTER HODS •
• OF CHKPt *
• SISTER •
• •
» PFIl •. 10
IRFORRftllOH .*...
*. TO S«<B .*
• CaLCOLtTE RO. •
•or PFIX-IIPOK- «
•RtTIOB RBCOIDS •
• tRD STOBK TO •
• BE&DBR BICOSD •
CBIIPB260 .«.
t2 *.
.CBIRRBL-*.
.•QOBUB ERTBI*.
****»B2**********
• • BXTBACT: • «
» •GET DEUCE-* •
• • IIPE FOB • *
• CHARBBL-QOEUB •
• • BRIBI * *
* SET CBKPT-ID *
t* IR HB40BB •
* BBCOBU •
* •
•STOBB PkBTITIOR*
* IHPOBBtllOR •
* RBCBSSBBI FOB •
•BSTBT IR CBKPT *
* HEBDEB BECOHD •
• ••
CiiKPE380 .*.
C2 •.
C3 ».
.* *.
.• ».
♦. IBS
• • ».
T/P DB*ICE
•*••••
*. FBt DEVICE .*
♦
*. .*
*•• .*
^
•• ••
». ••
X
*. .*
• HO
••••
* RO
•
•
,
• BS
«
X
•
•
• •*•
*•••
• •
• *2 *
CBRPB400 X
* *
•••**03***»******
*•••
• SET UP CKD- *
• CRXRREL •
• PROSBXB BRD *
• I/O BOOTIRE •
• lODBBSS •
« •
• BS •
• •
CHKPBBB1 X
•«***B5**********
* SET DP •
« RBCESSXBX •
» IRFOBBAIIOR •
* FOB BBSSA6B •
* •
••••CS*********
• FETCB *
• SSBBBSei *
• •
• SET OP •
• FBB CBABREL •
• PBOGBXH XRD •
• I/O BOOTIRE «
• CXLCDLXTB RO. •
• OF TRACKS OB *
• BIOCKS BEBDBD •
• FOB DORP •
• BECOBDS *
CHKPE080
• CtLCaLiTE •
• TOTXL SPACE *
• REEDED FOR •
• CHECKPOIRT •
• FILE »
.* EROUGH *.
SPkCB
•.XVXILRBLE.*
.*SBEK-IDOB.
*. OR lOaBR
*. EXTBII .
*.LIIIIT.*
•SET SEEK-BODB. *
.* TO LOKEB *
» EXTERT IIRIT •
* •
«*•••*•*••••••*••
•. 8PS DEVICE .*...
«****p3*«»***««*
• BODIFI
• CBkNREL
• PBOGBkH
• FOB BPS
*
CH|[PEIt«0
•••••G3«*****«*»«
•i/0 HOOTIHB SB*
• RRITE CHKPT *I
• HBBDBB *
• BECOBD *
.* 3800 *.
* PBIHTBB *. IBS
IRFOBHATIOR .*....
*, TO SAVE .•
• •••Hit*********
• FETCH •
• SSBCBKPS •
• •
•***J3*«*******
» FETCH •
< SSBCHKPF •
* •
266 DOS/VSE Logical Transients
Chart SF,. $$BCHKPF - Write Checkpoint Records
(Refer to Chart 23)
* *
* SSBCHKPF *
• *
* PFIX *. MO
IMFOBH&TIOII .*...
► . 10 SAVE .»
.• EXTENT »
. IIF08H4TI0H
*. to SAVE .«
► SET I/O »
* BOOTIME •
• AODBESS *
>«*«**♦*******«««
EXTENTS
FBOM JIB
. TABLE
..X.
.CHKPF200 i
•«***C3*********«
• • PFIXCHPT: • •
• *BalLD PFIX * •
• *IMFOBBATION* •
BBCOBO
* •
* •
*****************
.CHKPF020 X
• OBTAIN EXTENT *
* IMFOBNATION *
*FBOH JIB TABLE *
* AND HOVE TO *
• EXTENT BBC. •
CHKPF090
•••**I)2**********
• OBTAIN EXTENT »
• IMF. FBOH •
* SYSTEH EXTENT *
* ABEA AND HOVE •
*T0 EXTENT BEC. •
m***9**** ********
* HBITE PFIX •
* IMFOBBAIION •
* BECOBD *H2 •
.* EXTENT *. lES
BECOBO .*.
•.COHPLETE .*
.YES .* HOBE *.
*.PFIX 8BC0BDS .*
*.T0 NBITE .*
.* ROBE *.
EXTENTS
*. TO SAVE .•
CHKPF220 X
*****fi**********
*I/0 BOUTIME SH»
•WRITE PABTITION*
• DUHP RECORDS *
• *H2 •
• SET I/O- •
• BOOTIME *
• ADDBESS *
t****************
CHKPF300 X
*****(iJ**********
* SET UP »
* NBCESSARX *
* INFOBHATION *
* FOB HESSASE *
* •
*****************
.CHKPF160 X
*****fl\**********
•I/O ROUTINE SH*
*-*-*-*-*-*-*-*-*
* NRITE EXTENT •
* INFOBHATION •
* RECORD •H2 *
*•»•*••***•••••*•
bCKO OB lOFBA
0t**n3*********
* FETCH •
• SSBBBSGI •
» •
Charts 267
Chart SG. $$BCHKPG - Write 3800 Printer Inforiaation Records
(Refer to Chart 23)
» •
* SSBC8KP6 •
* •
•••••••••••••••
• miTIkLIZS •
• HBCOBD AND •
• HOBK tBBl FOR •
• 3800 IBFOBHA- •
• TIOI BBCOBDS *
CHKPG030
•••**C 1*«****«***
• LOCATE *
• LOGICAL OBIT •
• ASSIGBBO TO •
• 3800-PBIMTBB •
• •
BETBIBVB • •
3800 PBIBTBB* •
« *IBrOBBAIIOB* *
• • • •
El ••
BBBOB
•••••••••**••••
•I/O BOUTIHB SH*
* BBIIE 3800- •
•PBINIB8 IBFOB. *
• BECOBD 'HZ *
.* aOBE
LUBS
•TO PBOCBSS.
•«*««B2**********
• «
• BBSBT *
.X* SEEK AODBBSS *
• III DTFPH «
• •
•••••F2**********
• SET OP •
• lECBSSABI *
• IBFOBHATIO* •
• FOB MESSAGE *
• *
**»«G2*********
* FETCH •
* ISBBHSGI •
* •
•H2
CALLS CKD OB FBA I/O
ROUTIIIE (lOCKD OB lOPBA)
•••*j f*********
* FETCH •
* SSBCHKPF *
* •
268 DOS/VSE Logical Transients
Chart SH- $$BCHKPG - I/O Subroutines for Writing Checkpoint Records on Disk
(Refer to Chart 23)
* •
• lOFB* «
t »
* lOCKD •
« «
*^m***** *******
***B1***********<
* *
Bxce
* *
»«*«*B2**********
• *
• UPDATE *
• SEEK IDOHESS *
» III DTFPH *
• *
♦**C1* ♦•»»**»•*
* * *
« * *
« UAH * •
* * •
« « *
***************
***C2************
* *
EXCP
* *
*****************
*****j)'\**********
* UPDATE SEEK *
• ADDRESS III •
* DTfPH »ND •
*B10CK NUHBER IN*
• LOCATE ecu •
*****li2*** *******
* * * *
* * * *
* * WAIT • •
* * * *
* * * *
*****************
****E1 *********
* »
* RETUBM •
* TO CILLSB *
***************
•***E2******»**
» 8ETUBN *
• TO CALLER •
* *
***************
Charts 269
Chart SJ. $$BRMSG1 - Checkpoint Message Routine
(Refer to Chart 23)
• A3 *
* •
* «
* BRflSGt •
* *
***»»B1**»»»*****
* SAVE HESSiGe *
* NOHBEB AND *
* SET ADDBESS •
* OF MESSAGE *
* TEIT *
•• DTP •• lES
*. FILBHAae .*....
*. GIVEII .»
♦OPDATE CHKPT-ID*
* IH PABTIIIOII »
* COHHONICATIOM *
•SESIOH AND HOVE*
* TO MESSAGE *
*****************
*****q2**********
* *
* HOVE FILENAME *
t* TO MESSAGE ».
* TEXT •
* *
*****************
MSG12<»0 X
***CJ************
EXCP:
• WfilTE •
...X MESSAGE
* ON SYSLOG *
*****************
*t***j)^**********
*****gf **********
• * EXTRACT: * •
» • CUD FOB • •
• • SPBCiriED * *
• • LOGICAL • •
• • ONIT • *
■ SG10<»0 X
• CONVERT *
• ODD Ate •
• LOGICAL UNIT *
• AMD ROVS TO *
• BBSSACe •
*•*•••••**««**••«
.* MESSAGE
FBOM
*.S$BCUK3G
t****fj**********
• SET CHKPT »
•RETUBN CODE IN *
• REGISTER ZERO *
• OF PARTITION •
• SAVE AREA *
REID8II •. NO
CODE TO .»...
CONVBBT .*
INTERNAL
CHKPT
. ERROB
•CONVERT RETOBN •
• CODE. MOVE •
.X*MACRO NAME AND *.
» PHASE-IO TO *
• MESSAGE *
NSG1140 X
•****J1*»******«*
* CONVEBT ♦
* RETOBN CODE •
* AND MOVE *
* TO MESSAGE •
* *
. X»
****G5*«*******
• SVC 11 RETURN *
TO PROBLEM •
PROGRAM •
MSG1280
I
****B3*********
• •
» FETCH •
* SSBCHK3G «
****gH*********
* FETCH »
• SSBDURP *
270 DOS/VSE Logical Transients
Chart SK- $$BCHK3G - Checkpoint Erase-Gap Routine
(Refer to Chart 23)
• «
* SSBCHK3G *
« *
* B2 *
B1 ♦.
.* T»PE *.
.BEPOSITIONING. NO
•TABLE SPECIFIED*...
.» AMY *. IBS
EBBOa .*
•-DETECTED .•
CHKJGI80
• SBI UP •
• INFOBHATIOi •
...t* MECKSStBV *
• FOB HESSASB *
• «
••••**•*•**•«•••*
• SVC IT TO •
• PBOBLBH «
• PBOGRAH *
••••*****««•••*
« FETCH •
* SSBBHSG1 *
• •
••••••*«•*•*•*«
* D1 *.%.
* * .
*•««
CHII3G060 X
* * EXTBACT: * •
* »GET DEVICE » •
* • TYPE OF * •
* • SPECIFIED * •
* * DTF * »
CBK3G080 .*.
CBK3G100 .•.
F1 *.
.• DTF ••
.♦TYPE VALID *. NO
*. OPEN AMD .*...
•. OUTPUT .*
• EXCP ♦
PEBFOBH
• EBASE GAP •
»««f) '!**«*««**««
• •*«
* •
* D1 *
« *
«•«•
Charts 271
Chart SL,. $$BRSTRT - Restore Problem Program (Part 1 of 2)
(Refer to Chart 23>
» SSBRSTBI *
♦EBTBIBTB IHFOB-*
• HtTIOR PISSBD •
• PBOH SJOBCTLB *
*PBOH PIBTITION *
• SAVE ABBA *
* BEIBIBVB CCH «
* mFOBHAIIOH •
*F80n PkBT. S«VB*
* kBEJl IlHD set *
*I/0 BOOTIHB *DB*
GETVIS
DONE AT
CHKPT
* * SETLIHIT: • ♦
* •SET COBBECT* *
* • PABTITIOM » •
•lOGICAL END*
• •
* •
««•**««««««****•«
•***«A J**********
» * PFIXBEST: • •
• • PFIX • •
♦ • BEQOESTEO * •
PAGES
• •
• «
BSTBT150 .♦.
♦ . .•
X
• NO
*•«•
* «
.X.
* B5 •
« «
,
• *••
.* PFIX- *. NO
*. INFORMATION .*
•TO BESTOBE.*
* *
» CJ •
• READ PFIX- 'X
• INFORHATION *
• RECORD •
PFIX-
RBCORD
FOUND
•••*•*••••••••••*
.* ROBE *.
» PFIX •
IHFOBRATION
*. BBCDBDS .*
• •••
• * .
• C3 '.X.
CHKPT
DEVICE
TAPE
BSTBT2II0 X
•I/O BOOTINES SB*
*-•-»-*-*-•-•-•-•
•READ PARTITION •
• DDHP RECORDS •
* •
LAST *. IBS
RECORD .*...
READ .•
NO ,» LAST •.
,..*. RECORD TO .
*. BE RBAD .*
• CALCULATE •
• LAST RECORD *
.* LENGTH AND *
• STORE TO ecu •
• •
* SKIP •»
* TRAILER *
* LABEL *
*»•««•*•**»•*•*««
RSTRI300
•I/O ROUTINES SB*
•-*•«-•-•-»-•-•-•
. ..X^BBAD PABTITION •
• DUMP BBCORDS •
•••••**••••••**•«
• *••
• •
• D« •.X.
• *
»•••
X
• *
• GET AOOBESS •
• OF CHRP! •
•PABAHETEII LIST *
• •
••••
• *
• Bb •
• •
••»•
BSTBTBBI X
• SET PP •
• IBFOBSAIION •
. . X* N8CBSSABI •
. • FOB HBSSAGB •
• •
••••CS^««*« •*••
* F8ICB •
* *»BBHS62 •
* •
••••••••»«•••••
CHKPT •. YES
DEVICE .*...
TAPE .•
•POINT SEEK ADDB^
• IN USER DTFPH *
• AFTER CDRREMI •
• CHECKPOINT •
• •
•*••••*••*•**••*•
RSTRI560 .*.
•• TAPE *.
*. REPOSITION .
•TABLE GIVEN^
.* OASD •.
.VERIFICATION .
•TABLE GIVEN*
••««B5*«***«*^*
• FBICB •
• S»BBSTS2 •
• •
«•««*•*««••*«•«
• OBTAIN RSTBT- •
• ADDBESS AND *
• BODIFI PSH •
« *
**««K4« •*•*••••
» SVC 11 TO •
* PROBLEM •
• PROGRAM •
**••••••••••••*
*•••
» *
t AJ *
272 DOS/VSE Logical Transients
Chart SM,- $$BRSTRT - Restore Problem Program (Part 2 of 2i
(Refer to Chart 23)
• «
» lapiooo •
« «
• CKDIOOO «
• «
• •
» FBIOOO «
•*«*«B I**********
•«•••••*•«•••••••
«****g3***««*«***
SorrPH •
BSS klD •
• ROOIFI •
• SEBK ADOBBSS *
« •
••*«*B!>**********
» *
* GBI •
► DtFt>H •
> kOOBBSS •
« •
••*C I************
• EXCP •
RBAO
• BECOBO •
* BXCP
BBkD
• BBCORD •
• BXCP •
BBAD
• BBCOBO *
( • •
• * *
• BJIIT • *
• • •
• • •
••»03«»****««««
• • *
» * «
K « «
» ' • •
•••••1)S«*«*«*«»»*
*•••••••«•••*••••
• 8BIURII *
• TO CkLLBR •
• •
••••EU*********
• BBTOSN •
• TO CBLLBB •
• •
* IRCBBiSB •
• BLOCK lUHBBB •
* IN OIFPB ABD •
• LOCtTK CCM •
•****F3*»*******«
*«•***•«**«*•*«««
• BBTUBN *
• TO CkLLBB •
• •
.* UPPBR *.
.* EXT8IIT
LIIIIT
*. SEACHSD .
• ••**
•St •
• B5«
Charts 273
Chart SN, $$BRSTR2 - Tape Repositioning and DASD Verification Routine (Part 1 of 2i
(Refer to Chart 23)
> «
• ••*
• •
• SSBRSTB2 •
• *
.* PHYSICAL *. I
*.ReP0SItIOII«6.*.
*.IIIDIC*IEO.*
.* OkSO *. 10
. X*. f 8RIFICATI0H .*....
*.I«DIC«TeD.*
*B2
OB BBANCH TO
i
GBMERkTEO BETOBII
.*.
ICOBESS B1, B3,
BS, OB DS
B1 ••
.* •
• CtLtEO
*. NO
FBOH
.«. ...
*.tSBBSTBT
•
•• •*
•• ••
X
• IBS
•«••*
*SP •
.
• Bl*
BSTB0020 .*.
.* TAPE *. HO
. BEPOSITIOmilG. • . . . .
•.INDICATED.*
.* LOGICAL *. NO
.REPOSITIONING.*...
•.INDICATED.*
.* ALL *.
.*BNTRIBS IN *. IBS
. REPO TABLE .*....
*.PBOCESSED.*
RSTR0II60 X
• * EXTRACT: *
• 'GET DEVICE •
• • TYPE OF •
• * LOGICAL *
• * DNIT *
LOGICAL *. NO
UNIT A .«...
TAPE .*
••••
« •
* HS •
• •
••••
«**«*G1 **••*•*•*•
• • EXTRACT: • *
• •GET DEVICE • •
• *TIPE OP DTF* *
LOGICAL UNIT* ~
* •
* *
•••*•********••*•
LOGICAL
UNIT t
TAPE
• *•*
BSTB0300 .*.
• SET OP CCB * .* *.
* AND BBCORD * .* BACRNARD *. YES
• COONTER FOB * X*. REPOSITIONING.*. .. .
* RBPOSITIOMING •
***E3************
SPACE FORRARO
» TAPE *
SPBCIFIEO
• NORBER OF •
FILES
••***••••••*•»***
.* BECOROS *. N
•.SPECIFIED FOR.*.
*POSITIOHIRG*
RSTR2000 X
•****(;3»a»»******
*REPOSITION SPA1*
•-«-•-*.•■.•-•-•-«
•REPOSITION TAPE*
• FORHARD *
* DIRECTION *
•••*•***•*••*••*•
* Bb *.X
RSTR0660
•«***BS*********
• • GBIVCE: •
• •GET VOLOBE •
• * SERIAL *
• • NUHBER •
« • •
•BSSSAGES SR*
• SET UP FOR •
• RBSSAGE •
• •
****•«••«•••••*«•
RSTR0700 .*.
DS *.
.* ALL *.
.•ENTRIES IN •. HO
•.VERIFY TABLE .«...
•. PROCESSED. •
• •
•OBTAIN BBSTABT *
• ADDRESS AND •
• STORE TO PS* •
• •
•••••••••••*•••••
* BETUBN TO •
* PR08LEB •
* PROGR. •
RSTHSG600
• •
• HBSSAGES •
• •
••*«•••••••***•
•••*
• *
• E5*
• •
*•••
REFERENCES I .
TO SNHS: I -*
SPC3, SPESI *,
• •*•
SPH2
• SET HS. CODE •
•PLUS NECESSARY •
..X^ INFOREAIION •
. • AND RETURN •
. * ADDRESS •
*•••
• H5 •
••*•••***•*••••••
«,
••••JS**«««^***
» *
* *SBRBSG2 •
> «
RSTR2000 X
•••**K2^^********
•REPOSITION SPAI^
• REPOSITION •
• TAPE FORRARD •
• OIRECTIOR •
RSXR2S0O X
••«*«K3»««*««*«**
•REPOSITION SPAS*
•REPOSITION TAPE*
* BACKHARD •
* DIRECTION *
*•••*••*••*•**•••
274 DOS/VSE Logical Transients
Chart SP. $$BRSTR2 - Tape Repositioning and DASD Verification Routine (Part 2 of 2)
(Refer to Chart 23)
BSTB2000
**«*A 1**««*****
» BEPOSITIOM *
* FOBHIBD *
• *
*•*••*•*«*••**«
*«** *
•S* *
• B1 *.X.
* • .
*••• X
.*.
BS'fB2080
B1 *.
««*B2* ***********
.* ».
• • SMHDABD •. HO
• BEAD A *
♦. LABELED .*...*
••.•X BECORD
». PILE .*
* *
••••*****•«••**••
IBS .* VOL
...«. LABEL
*. BEAD
««*«««******«***«
TAPE
HABK
BEAD
*•**
* *.
* J2 •
* •
****
***«A5******«**
* BEPOSniOM •
• BACKMABO *
> *
*•*••*•*••«*•••
***BS************
* BACKSPACE *
OHB BECOBO
• AMD BEAD •
*********•••••••«
MOB- *. res
STANOABD .*....
. FILE .*
TAPE
■ABK
BEAD
BDB1 *. XES
LABEL .*....
BEAD .*
.X*
**M*g2**********
*HESSAGBS SB*
•-*-«-*-•-*-*-•-*
sbbial amd *
*se5demce no. to*
.•AMI HEADEB *.
LABEL
*. READ .*
* SPACE
.X FOBBABD
* PILE *
«••*•******«•***•
*****
•SB *
* H5*
>«•«***••*•*•*•••
,**
TAPE
*.
BABK
*,
BEAD
*. .*
• NO
••*
*
« .
* J2
*.X.
*
•
*«•
> X
BSIB2140 .*.
J2 *.
.*
CHKPT
*,
HEADER
*.
BECOBD
*. .*
* NO
****
* *
* G2 *
* *
****
• *«»•
*SM *
* H5*
» J5*
• *
**•*
***os***** •*•***•
• BACKSPACE *
BECOBD
• AMD BEAD •
*•*•***•••••«••••
TAPE
HABK
BEAD
F5 *.
CBKPT
***S5************
• SKIP •
CBKPT
* RECOBOS *
*•*«***•**•*•••*•
• SKIP •
.X CHKPT
• BECOBDS •
*••*•******•*«•••
.* ALL •
.*. BICOBDS
• I
•.PBOCBSSEO.*
*. •*
* lES
«***
• •
• Ji *.X
* *
*«**
****J5*********
* IBI IBM
•
* TO C
ILLBB
••**•*•*••*••••
* BBTOBM •
* TO CALLER *
* •
•••******•*•*••
TES .* ALL *.
....*. BECOBDS .*
*.PBOCESSBD.*
*•**
* *
* G2 *
* •
• *••
Charts 275
Chart SQ. $$BRHSG2 - Restart Message Routine
• «
• SSBRHSG2 *
* •
••*«*B1**«*******
• Sirs MESSAGE •
* ROMBER AND *
* LOAD HBSSAGE •
• TEXT AODBESS •
« •
.* 0PE8AT0B *.
*. RESPOHSB
•.EXPECTED .*
•COBfBRT DIFIXPB*
• AND HOVE *
.X* DTF FILBIAaB *.
• TO HBSSAGE *
• •
BSG2080
» CORVBRI •
• LOSICAL DHIT *
• Alio HOVE •
• TO MESSAGE •
« •
Hse2300 X
BXCP
• IIRITE •
. .X HESSAGB
• 01 STSLOG *
****Clt*******
••*••••*••*•«
* COMVEBT •
* BETUBII CODE *
* AMD MOVE TO •
* HBSSAGE •
* *
• * EXTBACT • •
• ♦ COU FOB • •
• • SPECIFIED * ».
• LOSICAL OIIIT* «
• • • «
*****Gt *•***•*•**
**••**•*••*•*****
* MOVE »
*TBANSIEIII NAME *
* TO MESSAGE •
* •
MSU20«0
* **»«(j2**********
* COMVEBT -AND •
* HOVE SIZE *
» VALDB TO •
* MESSAGE •
* *
• ***
• *
• 81 *
• *
• ***
• COMVEBT Cau •
I* AND HOVE •
* TO MESSAGE *
« •
.* SEBIAL
RDHBER
*. FOB HSG
««***(;3««»***»***
• MOVE VOLUME •
* SERIAL NUHBBB *
•OR TAPE SERIAL •
* NDMBEB TO *
• MESSAGE •
.*.
HSG2500 .*.
D<» ».
05 •.
* *.
.* *.
•
OPEBATOR •
MO
.* IHTIBIIAL *. *0
RESPORSE
EXPECTED .*
• ... .
....X*. BSXBI .*....
*
*. EBBOB .«
*. .*
•. .•
•• •♦
• • •• X
• TES
• TBS •••*
» *
• HS*
• •
X
HSG2510 I
*
»«E4************
X
BXCP
«***BS*********
BEAU
*
• FETCH •
OPESATOB
• SSBOUHP *
BESPOISE
•
• »
••***•**••**•••••
•****F4*********
•**•*•***«**«**•
*••••••«•••««•«
OPEBATOR
•
HO
RESPONSE
*. • . .
VALIO
*
,
*. .»
•••»
• • .•
X
* *
* YES
» *
* B« *
* *
« «
,
.*.
HSe2520
^
Hit •.
. X
* *
****as*********
CANCEL
•
IBS
«
INDICATED
•
• .
x»
•
CANCEL
*. •*
* «
• Bl •
MS62't20 X
**««*J !(•*•**•«••*
SET OP •
VALUES TO •
BBTURN •
TO CALLER *
» FETCH *
* $SBRST82 *
* «
276 DOS/VSE Logical Transients
APPENDIX A: ERROR MESSAGE CROSS REFERENCE
Message
Phase
Chi
OCOOI
$$BCHKP2
$$BCHKPF
SB
SF
0C02I
$$BCHKPT
SA
0C03I
$$BCHKPT
«$BCHKPE
SA
SE
0C04I
$$BCHKPT
$$BCHKPD
SA
SD
0C05I
$$BCHKPD
SD
0C06I
$$BCHKPD
SD
0C07I
$$BCHKPD
SD
0C08I
$$BCHKPD
SD
0C09I
$$BCHKPE
SE
0C10I
$$BCHKPT
$$BCHKPD
SA
SD
ocni
$$BCHKPT
$$BCHKPD
SA
SD
0C12I
$$BCHKPT
$$BCHKPD
SA
SD
0C13I
$$BCHKP2
$$BCHKP3
SB
SC
0C14I
$$BCHKPT
$$BCHKPD
SA
SD
0C15I
$$BCHKPT
SA
0C16X
$$BCHKPG
$$BCHKP3
SG
SC
0C17I
$$BCH,^PT
$$BCHKPD
$$BCHKPE
SA
SD
SE
0C18I
$$BCHK3G
SK
0C19I
$$BCHKPD
SD
0D01A
$$BOCRTV
PK
0D02I
$$BOCRTM
NA
0D03A
$$BOCRTX
QB
0D04D
$$BOCRTV
PK
0D05A
$$BOCRTW
$$B0CRT1
QA
RA
0D06A
S>$BOCRTy
QD
0D07D
$$BOCRTS
PD
0D08A
$$BOCRTS
PD
0D09D
$$BOCRTR
PA
OD20E
$$BOCRTB
KD
0D25E
$$BOCRTB
KD
0D26E
$$BOCRTB
KD
0D28A
$$BOCRTG
MA
0D29E
$$BOCRTB
KD
0D30A
$$BOCfiTV
PK
$$B0CRT1
RA
0D33A
$$BOCRTE
LD
0D34E
$$BOCRTF
LG
0D35E
$$BOCRTF
LG
0D36I
$$BOCfiTF
LG
0D37I
$$B0CRT5
RJ
0D38A
*$BOCRTE
LD
0D39D
$$BOCRTI
HG
0D40A
$$BOCRTI
MG
0D41D
*$BOCRTI
HG
0D97A
$$B0CRT1
RA
0P70I
IJBEOJ
FP
0P71I
IJBEOJ
FP
0P72I
IJBEOJ
FP
0P73I
IJBEOJ
FP
0P74I
IJBEOJ
FP
0P75I
IJBEOJ
FP
0P76I
IJBEOJ
FP
0P77I
IJBEOJ
FP
0P76I
IJBEOJ
FP
0P79I
IJBEOJ
FP
0P80I
IJBEOJ
FP
Appendix A: Error Message Cross Reference 277
0P81I
IJBEOJ
FP
0P82I
IJBBOJ
FP
0P83A
IJBEOJ
FP
0P84I
IJBEOJ
FP
0P85I
$$BEOJ
DA
0P86I
IJBEOJ
FP
0P87A
$$BEOJ
DA
0P88I
IJBEOJ
FP
0P91I
$$BEOJ
DA
0R09I
$$BRSTRT
SL
0R13I
$$BRSTRT
SL
0R15I
$$BRSTR2
SN
0B20A
$$BESTR2
SN
0B21A
$$BRSTR2
SN
0R22A
$$BRSTR2
SN
0R23A
$$BRSTR2
SN
0R24A
$$BRSTR2
SN
0R25A
$$BeSTR2
SN
0R26A
$$BRSTR2
SN
0R27A
$$BRSTR2
SN
0R28A
$$BRSTR2
SN
0R29A
$$BRSTR2
SN
OSOOI
IJBEOJ
FP
0S01I
IJBEOJ
FP
0S02I
IJBEOJ
FP
0S03I
IJBEOJ
FP
0S04I
IJBEOJ
FP
OS05I
IJBEOJ
FP
0S07I
IJBEOJ
FP
0S08I
IJBEOJ
FP
0S12I
IJBEOJ
FP
0S13I
IJBEOJ
FP
0S14I
IJBEOJ
FP
0S16I
IJBEOJ
FP
03171
IJBEOJ
FP
0V02I
IJBEOJ
FP
0V03I
IJBEOJ
FP
0V04I
IJBEOJ
FP
0V05I
IJBEOJ
FP
0V06I
IJBEOJ
FP
0V07I
IJBEOJ
FP
0VO8I
IJBEOJ
FP
0V09I
IJBEOJ
FP
0V10I
IJBEOJ
FP
0V11I
IJBEOJ
FP
1B12D
$$BATTF1
$$BATTai
CC
CJ
IB13A
$$BATTF3
$$BATTF4
GN
CD
1B14A
$$BATTF2
$$BATTF5
6L
CF
IB15I
$$BATTF4
*$BATTF5
$$BAITU2
CD
Cf
CK
1B16I
$$BATTF4
$$BATTF5
$$BArTU2
CD
CF
CK
lBfl7l
3)$BATTF5
CF
1B18A
$$BATTU2
CK
IB19I
$$BATTF2
$$BATTF3
GL
GN
1B20A
$$BATTF2
$$BATTF3
$$BATTF4
$$BATTF5
$$BATTU2
GL
GN
CD
CF
CK
1C40I
$$BATTNA
$$BATTNB
AA
AE
1C50I
$$BATTNA
$$BATTNB
AA
AE
1I30D
$$BATTNC
AG
1I41A
$$BATTNT
$$BATTNU
BF
BH
1I42D
$$BATTNT
BF
1I43D
$$BATTNV
BE
1I44I
$$BATTNX
BN
278 DOS/VSE Logical Transients
1I45D
$$BATTNT
BF
1I46D
$$BATTNV
$IJBDOMP
BE
EA
1I47I
$$BATrNT
BF
1I48I
SSBATTNU
BH
1I49I
SIJBDOMP
EA
1I51I
SIJBDUMP
EA
1I52I
SIJBDOMP
EA
1P01D
$$BATTNE
AH
IPO 21
$$BATTNE
AM
1P03D
$$BATTNF
AP
1P04D
$$BATTNF
AP
iPlnD
$$BATTMG
AT
1Q62I
$$BATTHC
AG
iSOnD
$$BATTNB
«$BATTNC
$$BATTNE
$$BATTNF
$$BATTNG
$$BATTNH
$$BATTNN
AE
AG
AH
AQ
AT
AV
BA
$$BATTNQ
»$BATTNS
$$BATTNT
$$BATTNU
$$BATTNY
$$BATTNZ
$$BATTN2
BB
BD
BF
BH
BT
BH
BV
5J95I
IJBEOJ
FP
5J96I
IJBEOJ
FP
P100I
$$BATTS1
CS
PI01I
$$BATTS2
CV
P102I
«$BATTN7
CL
P103I
$$BATTN7
CL
P104I
$$BATTN7
CL
P105I
$$BATTS1
CS
P106I
$$BATTS1
CS
P107I
*$BATTN7
$$BATTS1
CL
CS
P108I
$$BATTS1
CS
P109I
$$BATTN7
CL
P201I
$$BPCLOS
Appendix A: Error Message Cross Reference 27^
APPENDIX B: TOTAL MESSAGE CROSS-REFERENCE LIST
All messages issued by the DOS/VS system Supervisor Loc[ic, SY33-8551- For cause and
control programs, with a reference to the action o± each message^ see pOS /V S
PLM and issuing phase, are listed in DOS/V S Messages, GC33-5379-
280 DOS/VSE Logical Transients
APPENDIX C: LABEL LIST
Label
Phase
Location
ADVANCE
SiBOCBTC
KJC4
ADVANCE
$$BOCRTD
LCC3
ADVANCE
$$BOCBTG
HCC5
ADVANCE
$$BOCRTY
QDA2
AENDBXIT
SSBOCBTZ
QKA3
AGAIN
$$B£0H4
DGCii
AGAIN
$$8E0J
DBA2
ALABn
$$BOCBTR
PCB*t
ALLP1
$$B0CBT2
RDA4
ALLXFB
*SBOCBTD
LAAU
ALHPASS
$$BOCfiTN
NDA2
ALHIES
$*BOCHTN
NDH1
ALHHCHD
$$BOCBTZ
Q4IA2
ALTER
$$BATTNT
BBF1
ALTER 1
$$BATTNT
BBD1
ASSGHLOG
$$BATTNG
ASB5
ATTEXIT
$$BOCBTK
HLB3
ATTEXIT
$$BOCBTP
NHE1
ATTN RET
$$BATTF4
CDE5
ATTPSNDO
$$BOCBTX
QBD3
ATT8AIT
$$BOCBTB
PBBa
ATTHAIT
$$BOCBTS
PFB4
ATTN AIT
$fBOCBTH
QAB3
ATTBAIT
$$BOCBTY
QEB4
AOTOCLOS
$$B£0J4
DFC3
AOTOEMD
$$BE0J4
DFF3
B
IJBEOJ
FPJ2
BAL
$$BATTF2
GLC4
BAL
$$BATTF3
GNC4
BAL
$$BATTF4
CDC4
BAL
$$&ATT02
CKH4
BAL
IJBDHPAB
EHC1
BATCH
$$BATTNG
ABCi*
BCOUN
$»B0CBT2
RD04
BEGIN
S$&ATTNO
BCB2
BEGIN
$$BOCBTI
MGC1
BEGINZ1
$$BOCBTZ
QGC2
BEGIIIZ2
$$BOCBTZ
QGD2
BBGI8Z4
$$BOCBTZ
QGF2
BBGINZS
»SBOCBTZ
QHA3
BSGINZ6
$fBOCRTZ
QHD3
BBGIlil
SSBOCBTI
H6C2
BGP1
$$B0CBT2
BDB4
BLOCKED
S$BAXTa2
CK02
BLOCKPOT
IJBDfiPAR
EOBS
BTLOOP
SSBATTNH
ATE3
B»P
$$B0CBT2
RDE3
BTPASS
SSBSBBOP
GHD4
BIPSTH
$$BATTN3
BPCl
CALC2
IJBSDUHP
EGF4
CAHCELCD
»$BE0H4
DGJ1
CASEBA
$i;bocrt6
RLJ2
CASSIA
$$B0CBT6
RLG5
CASS 10
$$B0CBT6
RLG4
CASE 2
$$B0CBT6
RLE5
CASE4A
$$B0CBT6
HLF5
CA0SS2
IJBSOJ
FPG3
CCRLMG
$SBATTNT
BBD2
Label
CDISK
CD3
CEX
CFBA
CHAINING
CHAIHTST
CHECK
CHECK
CHECKEND
CHECKKB
CHECK 1
CHECK3
CHHIRQ
CHK
CHKAPRT
CUKBLK
CHKDIGIT
CHKLIBIT
CHKHXT
CHKPD
CHKPDR10
CHKPD020
CflKPD040
CHKPD060
CHKPD090
CHKPDIIO
CHKPD120
CHKPD140
CHKPD180
CHKPD200
CHKPD220
CHKPD290
CHKPD420
CHKPD660
CHKPD670
CHKPD740
CHKPEER1
CHKPBB1
CHKPE005
CHKPE080
CHKPE140
CHKPE220
CHKPE260
CHKPE360
CHKPB380
CHKPB400
CHKPB440
CHKPB500
CHKPF020
CHKPF090
CHKPF140
CHKPF160
CHKPF180
CHKPF200
CHKPF220
CHKPF300
CBKPG030
CHKPG050
CHKP6060
CHKPG080
CHKPTEHO
P base
Location
IJBDHPIC
FJA3
$3iBOCRT6
RLF1
$$BOCRTB
PBB3
IJBDHPIC
FJD2
SSBOCRTN
NCA3
$$BOCHTE
LDE4
Si^BOCRTN
flBC2
$$B0CBT1
RBK2
$SBATTN7
CPH2
$$BOCRTK
njG2
$$BOCHTZ
QHJ3
$$BOCBTZ
QKB2
$$BATT«S
AXFt
$$BOCRTE
LFB3
$$B£0J4
DFF1
$$BATTN2
BnF2
$$BATTH7
CRD3
$$BATTN7
CHE3
$$BOCBTS
FEB 3
$$BCHKPD
SDB1
$$BCHKPD
SDB5
$$BCRKPD
SDF1
$$BCHKPD
SDG1
$$BCHKPD
SDJ1
$li»BCHKPD
SDK1
$$BCHKPD
SDC2
$1»BCHKPD
SDB3
$$BCflf(PD
SDC3
$$BCHKPD
S0D2
$$BCHKPD
SDF2
$$BCHKPD
SDD3
$$BCHKPD
SDG2
$$BCHKPD
SDK2
$$BCflKPD
SDB4
$$BCHKPD
SDD4
$$BCHKPD
SDF4
$$BCHKPE
SEB5
$$BCHKP2
SBD4
SSBCHKPE
SEC1
$$BCHKPE
SEF1
SSBCHKPE
SEJ1
$$BCHKPE
SEGt
SSBCHKPE
SEA2
$$BCHKPE
SSA3
$$BCHKPE
SEC 3
$$BCHKPE
SED3
$$BCHKPE
SEG3
SSBCHKPE
SEJ3
$$BCHKPF
SFD1
$$BCHKPF
SFD2
$$BCHKPF
SFG1
$$BCaKPF
SFHl
$$BCHKPF
SFA3
$$BCBKPF
SFC3
$$BCHKPF
SFF3
$$BGHKPF
SFG3
$$BCHKPG
SGC1
$$BCIiKPG
SGD1
$$BCBKPG
SGF1
$$BCHKPG
SGJl
$$BCHKPT
SABS
Appendix C: Label List 281
Label
CHKPT020
CHKPl!0«tO
CHKPT060
CHKPT090
CHKPT150
CHKPTieO
CHKPr320
CHKPT360
CHKP2030
CflKP20(IO
CHKP2110
CHKP2150
CBKP2160
CHKP2165
CHKP2170
CHKPJERI
CHKSTT
CHKSTTI
CHKSUB
CHKSOB
CHKSUB 1
CHKS?A
CHKSV&1
CHKIItB
CHK2
CHKi
CHK3
CHK3G040
CeK3G060
CHK3G080
CHK3G100
CHK3G160
CHK3G180
CKDI001
CKDPHASfi
CKECCCQ
CKECCCTH
CKECCM
CKECCHQ
CKFOfiTSS
CKHIfiEOT
CKPIBFLG
CLEANUP
CLEAS
CLEAHNXT
CLI
CLOSAPHT
CLOSEB
CLOSER
CLOSED
CLRPASS
CLRSCRN
CBDBEJCT
CHCLIN
CNCLTEST
CNLRTN
COMMON
COHMON 1
COHMSG
C0HPARE2
COMPASS
CONPASS
CONT
CONTHD
CONTBD
CONTHDE
Phase
Location
$$BCHKPT
SAP1
$$BCaKPT
SAG1
«$BCHKPT
SAK1
$$BCHKPT
SAE2
$$BCHKPT
SAK2
$$BCHKPT
SAC4
SSBCflKPT
SAG1
$$BCHKPT
SAJ4
«fBCHKP2
SBB2
$$BCHKP2
SBD2
$$BCHKP2
SBD3
$$6CHKP2
SBF2
$$BCHKP2
SBG3
$$BCHKP2
SBH3
$$BCBKP2
SBB4
$$BCHKP3
SCG2
$$BATINR
ATB1
$*8ATTNH
ATD1
$$BEOJ
DAE3
$$BE0J4
DHG5
$$B£0H4
DGA1
$$BATTNT
BAE2
$$BATTNT
BBA1
$$BATTNS
AXE1
$$BOCfiTE
LDC2
$$BOCRTS
LFC3
S$BOCRTF
LKC4
$$BCHK3G
SKC1
f$BCRK3G
SKDl
$$BCHK3G
SKEl
3;«BCHK3G
SKF1
$$BCHK3G
SKB2
$$6CHK3G
SKB3
SSBRSTRT
SMC3
$$BCCHHR
GJE3
$$BATTMS
AXG3
$$BATTNS
AXH3
$I>BATTNS
AXB3
$$BATTNS
AXC3
$$BATTNS
AXE3
$$BATTNS
AXG1
SSB&TTNG
hSGU
$$B0C8TQ
NJH1
$$B£0H4
DGF2
S$B0CRTA
KBH1
IJBEOJ
FPF<I
$$B£0J4
DFF2
IJBDMPIC
FJB1
IJBDMPIO
FBB2
IJBDMPIC
FHE3
*SB0CST0
NFJ3
$JPB0CRTB
KDD2
$$BOCRTZ
QHG3
»$BATTNC
AG01
IJBEOJ
FPB2
$$BATTSC
AGB3
$$BOCBTP
NHB3
$$BOCRTP
NHB4
$$BOCRTO
NEJ2
$SBATTN7
CRD2
$:(BOCBTN
NBAS
S$BOCBTN
NCA4
filBEOJS
DDF2
«$BOCRTR
PAA2
fSBOCfllT
PHA3
*$BOCRTS
PEA2
Label
C0HTHD1
COMTREAD
CONTROL
CONTROL
CONT I
CON?
COHYES
COUNT
col
CPRINT
CRT
CRTDSBL
CRTDSBL
CRTDSBL 1
CRTEND
CRTENTHt
CRTEOJRT
CRTHOtO
CRTH110
CRTH120
CRT010
CRTUi»0
CTAPE
CORSENT
CORSENT
CURSOP
COUADDR
D
DATCHAIN
DECK
DECRE
DEFAULT
DELPASS
DELTHO
DELTHl
DELTH2
DELTH3
DELYES
DERRRODT
DEVOK
DEV3800
DIAG135Q
DIAG135R
DIGIT 1
DIGIT2
DIPA
DISABLE
DISKB
DISKETT
DISKETT
DISK1
DKTYPE
DKTYPE
DKTYPE1
DKTYPE1
DOCAEX
DOCAEX
DOCAEX
DOCAEX
DOCCEX
DOCCEX
DOCDEX
DOCEEX
DOCFEX
DOCFEX
Phase
Location
$$BOCRTS
PDH1
$$BOCETS
PDE2
$$BATTNA
ABB1
$$BOCRTS
PEAS
$$BATTNV
BGB1
IJBDMPIC
FJG3
$$BOCRTN
sees
$$BOCRTG
MAH4
$$B0CRT6
8MA1
IJBDMPIC
FJH3
$$BE0J4
DFG1
$*BOCRTA
KAH4
$$BOCRTK
MHC1
$$BOCRTA
KAK4
$$BOCRTA
KBD3
$*BOCRTK
HBB2
$*BOCRTA
KBF4
$fBOCBTH
MDD1
SSBOCRTH
NDH2
$*BOCRTH
MDF3
$$BOCRT0
PJC1
$$BOCfiTU
PJH1
IJBDMPIC
FJE1
$$BOCRTX
QBG4
$$BOCRTY
QDAS
SiBOCRTK
MHK4
$*BATTH7
CMB3
IJBEOJ
PPH4
$$BOCBIS
PDGl
$$B0CRT2
RCG2
$SB0CRT3
RED3
$$BOCRTL
MMFU
$$BOCRTH
NCA1
$$BE0H4
DGH4
$$B£0J4
DHC1
$$BEOJi|
DHE1
$$BEOJi|
DHG2
$$BOCETN
NCH2
SSBATTNU
BCG2
$$BATTHV
BGJ1
SiBATTSI
CSC2
$*BATT»Z
BKE5
$$BATTIi2
BKE4
$$BOCRTL
MNF2
$$BOCRTL
MMA2
$$B0C»T6
HLE2
$$BE0J3A
DEK2
IJBDMPIC
FHCa
$$BEOJ
DCA3
IJBEOJ
FHF3
$$BE0fl4
DGE4
$fBEOJ
Dca3
IJBEOJ
FRC3
$*BEOJ
DCH4
IJBEOJ
FRC4
$$BOCSTC
KHE4
$$BOCRTE
LDK4
$$BOCeTF
LJE2
$*BOCRTG
MBB3
$$BOCRTD
LABS
$$BOCRTE
LDF5
$$BOCRTC
KGG4
$SB0C8TF
LHF3
$*BOCRTE
LDK3
$$BOCRTE
LEB1
282 DOS/VSE Logical Transients
Label
DOCFEXl
DOCGEX
DOCGEX
DOCGEX 1
D0CGEX2
DOCHEX
DOCLEX
DOCLEXl
DOCHEX
DOCNEX
DOCOEX
D0C02EX
DOCPEX
DOCPEX
DOCQEX
DOCQEX
DOCQEX
DOCQEX
DOCQEX 1
DOCQEX 2
DOCQEX i
DOCQ02S
DOCVEX
DOCVEX
D0C¥1
D0CV2
DONE
DOSKIP
DOSKIP
DOSKIP
DOSKIP
DOOPDATE
DOHN
DSDOMMYI
DSPCR00T1
DSPCBO0T2
DSPL
DSPLY
DSPLI1
DSVA
D'fCHAT
DTINOtI
DUHMf
D0MBX1
DUnPALLP
DOHPABI
DUHPCfi
DOWPCR
DUBPEND
DOHPENDI
DOHPIT
DOMPPAHT
DOHPSUP
DV3ttOO
ECCCTBIT
EMBL
EHBL
END
END
ENDBED
END1
END2
ENTEfi
EQCHK
EQCHK1
Phase
Location
$$BOCfiTE
LDK2
SSBOCRTB
KDK2
SJBOCRTC
KGB2
*fBOCB!rC
KGE2
SSBOCBTC
KGC2
$$BOCBTY
QDCH
$$BOCfiTN
NBA3
$$BOCBTN
NBEI
$$BOCBTX
QBHa
iSBOCHTQ
NJD4
$$BOCBTQ
NJG3
$SBOCBTK
HJB4
$$BOCBT0
NEBS
$«BOCBTQ
NKE4
*$BOCRTB
KFE2
$$BOCBTC
KJG3
$$BOCRTD
LCF2
$$fiOCBTL
HnG2
$$BOCRTB
KFF1
$«BOCBTB
KFE3
$*BOCRTB
KFF3
*:»BOCBTQ
NJD3
$$BOCRTL
HNG3
**BOCBTN
NBG4
$$BOCRTL
HNE3
SSBOCRTL
HNF3
$$BE0J3A
DEJ'i
$$BATTF2
GLB5
**BATTF3
GNB5
$$BATTFU
CDB5
$$BATTF5
CFF5
$$BE0J3A
DEF4
$$B0CRT3
RFC2
$$BATTNa
BCK3
$$fiATTNU
BDD3
$$BATTNa
BDF2
$$B0CRT3
REJ4
$5BATTNU
BCD5
$$BATTNO
BCA5
IJBSDOHP
EHCa
$$BATTNA
AAB5
$$BATTNA
Acca
$$BATTNT
BAD2
*$BATTNT
BAA4
SSBATTHV
BEE4
IJBDMPPA
£RAt4
IJBDMPPA
EQB1
IJBSDOHP
EJA1
IJBSDUHP
ELEI
IJBSDUHP
ELFt
IJBSDOHP
EHK1
IJBSDOHP
EFA4
IJBSDOHP
ELF1
$$BATTN7
CMB2
$$BATTNS
AYG3
$«BOCBTE
LFE3
$SBOCRTF
LKF4
$$BOCRTI
HGH1
J|i$B0CRT2
RCH3
$*B0CRT3
HFEI
$$BOCRTQ
NKG1
$$BOCR3;2
RDE5
$$B0CRT1
BBA1
$$BOCBTF
LHA5
*$BOCRTF
LHB2
Label
Phase
Location
EBA
$$B0CBT2
HCF5
ERASE
$*BOCRTC
KKK4
EBAI
$*B0CRT2
SCE5
EBEPIN
SSBSDROP
GHB4
EREPOOT
$$BSDfiOP
GHG3
ERR
$$BATTNV
BGBb
ERR
IJBDMPIC
FGD1
ERRE
IJBDMPIC
FGE1
ERROR
$3>B0CRTE
LDA2
ERROR
$*B0CRT1
SACS
ERROR
$$B0CRT6
SLH3
ERRORCAS
$*B0CBT2
SCF1
EBR0R4
$*B0CRTF
LGF2
ERRROOT
$$BATTNT
BAH2
ERRRfN
$$BATTNA
ACB1
ERR1
SSBOCRTE
LFD4
ERR1
$$B0CRTF
LKEi*
EBR2
$*BATTNT
BBA2
ESETID
$$BATTNI
ALC2
ESKIPRTI
$$BATTNI
ALB 2
ESOPV
$$BATTNI
ALD1
ETEST
$SBOCRTL
MMA3
EX
$$BOCRTE
LFG2
EX
IJBDHPIO
PAF2
EXCPRG
$$BATTNA
ACB2
EXIT
$$BCCHHR
GJB4
EXIT
$$BOCRTE
LEH2
EXIT
$$BOCRTF
LHAU
EXIT
$$BOCRTO
NEB4
EXIT
$*BOCRTP
NUDi
EXIT
$$BOCRTQ
MKE3
EXIT
$*BOCRTO
PJC3
EXIT
$*BSYSWR
GGF2
EXIT
IJBDHPAB
8SC2
EXITA
$$BOCRTK
HKA2
EXITA1
$$BOCaTK
MKE2
EXITA2
$$BOCRTK
nK62
EXITZ
$SBOCRTZ
QHE1
EXITZIA
$$BOCRTZ
QHG1
EXITZl
$$BOCRTZ
QHF1
EXITZ2
$$BOCRTZ
QHHS
EXITOO
$4>BEOJ7
DHH4
EXIT01
$$BE0J7
DHJ4
EXIT1
$*BCCHHR
GJG4
EXIT1
$$BOCBTF
LHF1
EXIT1
$SBOCRTV
PKE3
EXIT1
$$B0CBT3
SFJ1
EXIT1
$$B0CRT6
RLJ5
EXIT2
$$B0CRT6
BHA^
EXT
IJBOHPAR
EfD2
EXTINT
$$BATTHA
ABB3
FBAPHASE
$$BCCHHR
GJC3
FETCH
$$B£0H4
DGHS
FETCH
$$BE0J3
DDK 3
FETCHO
$$BOCRTA
KBJ3
FETCHZ
$$BOCRTA
KBGS
FGLST
$*BEOJ
DCG3
FGLST
IJBEOJ
FRB3
FIN
$SBOCRTS
PDA3
FINDKEY
$$BATTN7
CNB3
FINDPOB
$*BATT8V
BGE1
FINDPOB
$$BATTS1
CSC3
FINE
$*BOCRTT
PHB5
FINISH
$SBATT»7
CQE3
FIRSTX
$*BOCRTL
HHH3
Appendix C: Label
List 28.
Label
Phase
Location
FMDHATCH
»$BATTS2
CVC2
FOLD
$$B0CRT2
BCE2
F0B6STIf
S$BATTN3
BPJ3
FOBW
$fBGCRT3
REC2
FOOND
$$BATTNF
AQ03
FREEBl
$$BBOJ
DBG5
FREBTRK
$$B£0J4
DHE3
FRET
$SBOCfiTB
LDB2
FULL WORD
$$BAT!I!NU
BCF3
F«
f$B0CBT3
BFF2
Ftp
$fB0CfiT2
RDF3
F8P1
f$B0CfiT2
BDG3
GETS IT
IJfiDHP&R
EUJ1
GETCHD
$$BATTNA
AAD2
GEfK
$$BATTND
AHB3
GETPIBXT
SJIBATTNC
AHG4
GETPID
$$BAXXND
AHDI
GETPIK
$$BATTNC
AGB5
GETPIKl
fSBATTNC
AGC5
GETSIZE
$$BATTNF
APH1
GO
SfBOGBTE
LEA2
GO
$$60CRT6
HAE1
GO
SSBOCfiTK
HHF1
GO
$$BOCBTP
NGE2
GO
fSBOCBTR
PAD1
GO
$$BOCaTS
PDD1
GO
SSBOCBTT
PGD1
GO
$$BOCBTV
PKE1
GO
fSBOCBTW
QAE1
GO
$$BOCBTX
QBE1
GO
$$BOCfiTI
QDE1
GO
f$B0CRT4
BHE1
GOON
$$B0CBTG
NBA2
GOON
f$BOCBTT
PHA2
GOON 10
$$B0CBTD
LBA2
GOON 11
SfBOCBTD
LBB3
GOON 14
$$BOCBT0
LAJ2
GOON 30
$$BOCBTC
KHD1
GOON 4
$*BOCBTC
KJD2
GOl
$fBOCRTH
NAF2
G01
$$BOCBTY
QDC3
G02
$fBOCRTH
NAAK
G02
$$BOCfiT¥
QDD2
HALTIO
S$BE0J3a
DEBS
HALT01
$$BE0J3A
DEG5
RAROH&IT
$$BEOJ
DAE2
HARDVAZT
fSBOCRTF
LGJ2
HARDH&If
$$BOCBTF
LJD4
HERE
$$BSISBH
6GB 1
HIRQaiET
$$BATTNS
hlGH
IGNORE
$$BATTNC
AJJ4
IGNORE
*$BOCBTK
HJB3
IJBATTF2
$$BATTF2
GLB1
UBATTFa
iSBATTFU
CDB1
IJBAaCTFS
$$BATTF5
CFB1
IJBEJ33S
;|$B£0J3
DDC2
IL
$$BOCBTB
KEA2
IMCORRL
$$BCCBTB
KEA 1
INCREfl
UBSDOHP
EGD1
INIT
SfBATTNT
BAC1
INITDUNP
UBSDOHP
ECC3
INITIAL
f$BATTNU
BCC2
IHITLOOP
$$B£0J3A
DEK3
Label
Phase
Location
INITOPR
$»BATTNG
ASB1
INIT0PH1
$$BATTNG
ASF2
INITOPR 2
$$BATTN6
ASF 3
INITPAHT
$$BEOJ
DBB1
INITPH
$$BCCHHa
GJE2
INITOO
$$BE0J7
DSC1
INIT05
$fBE0J7
Dfl£2
INPBO
$J6B0CBTQ
NKK1
INSOPH
$$BATTNA
ACD1
INSBTAEB
$SBATTNB
AirB4
IHTEBR
$$BE0J
DAB3
INT?
$fBOCBTB
KED2
INT?
$$BOCBTE
LEC2
INVALID
$$BATTNT
BBC2
IN7ALID1
$$BATTNT
BAG4
INVALOOT
$$BOCRTH
NAB3
INVAL1
$$BATTNF
APB5
INVC08
SSBOCRTI
BBH2
IHVLSTS
IJBDHPIO
FAF4
IHVP
IJBDHPAR
ESE4
IN¥PG
$$BEOJ
DBC2
INVPHASB
$$BATTF2
6LF2
INVPHASE
$$BATTF3
GND3
INVPHASB
$$BATT02
CKH3
IHVSYN
$$BATTNF
APG2
INVS¥N1
SfBATTNF
APF2
INVSYH2
$4iBATTNF
APD2
10
$$BOCRTV
PKA2
lOEBR
$$BATTF3
GNG3
lOERfi
$$BATTF4
CDD3
10 EBB
$$BATTF5
CFH«i
IOBEG05
$$BE0J7
DHE3
lORETN
$$BOCfiTK
»L£1
lOBETfiS
fSBOCBTG
HCD2
lOBETBN
$«BOCBTP
NGE4
lORETBN
$$BOCBTB
PCG3
10 BOOT
$$BOCBTG
MCB1
lOBOOT
$$BOCBTK
HLB1
lOBOOT
$$BOCfiTP
NGC4
lOBOOT
SSBOCBTB
PCF2
lOfiOOT
$$BOCBTS
PFB1
lOBOUT
SSBOCRTT
PGB5
lOBOOT
$$BOCBTV
PKC4
lOBOOT
$$BOCBTH
QAC!>
lOROOT
$$BOCaTY
QFC2
lOBOOT
$$B0CBT1
RBB3
lOBOOT
$$B0CfiT4
5HD3
IORO0T1
$$B0CBTP
HGB4
IOBO0T1
$$B0CBTV
PKB4
I0B0UT1
SSBOCBTH
QAB5
I0R0UT1
$$BOCBTX
QCB4
lOROOTI
$$BOCRTY
QFB2
I0RT1
$$BCHKP2
SBC5
I0RT1
$*BCHKP3
SCC4
101
$$BOCBTG
HBF4
106
$SBOCBTG
MBAU
IRCROO
$S6ATTNZ
BKH5
ITERATE
$$BE0J3A
DBA 2
JAEXIT
$$B£0H4
DGAtI
JCLFAIL
$$BEOJ
DAC*
KCOHB
$$BOCBTN
NBA2
KCOBHfl
$$BOCBTA
KCA3
KCOHHON
$$BOGfiTK
MJF3
KCOHHON
$$BOCBTN
NBDI
284 DOS/VSE Logical Transients
Label
Phase
Location
KEYWORD
S*BATTN7
CNC2
LABHV
I$BSKSRB
GGC1
LABHV1
$JgBS¥SHB
GGH1
L&BHV2
$$BSYSHH
GGC2
L&BHV3
*$BSYSHH
GGD2
LAMBVI
$$BSZSH5
GGG1
LASTPOB
$$BE0J3A
DEB3
LBLPB
IJBSDOMP
EFD1
LEN3
$$BATfNV
BFE2
LIBIT
f$B0CeT3
RFA5
LIHE
$$B0CRTB
KDD3
LINECOO
$$B0CRT6
RLH5
LIHE2
fSBOCBTB
KEE1
LISTIO
$*BATTF2
GMC2
LlSJflO
$$BATTFU
CEB3
LO&O
$$BATTF2
GLH3
L0ADERH1
$$BATTN7
CPK3
L0ADERB2
$$BATTSt
CSH2
LOADIT
$$BATTNA
ABG1
LOAUPHAS
S$BATTF2
GLH1
LOADPHAS
$fBATTF3
GNG2
LOADPUAS
$$BATTF4
CDE2
LOADPHAS
JPSBATTFS
CFD2
LOADPHAS
$$BATTU2
CKB4
LOAD B 3
*$BATTNT
BAJ1
LOADUPDT
$$BAITN7
CPJ2
LOG
$SBATTNC
AJB5
LOG
$$B0CRT2
RDA1
LOGGING
IJBEOJ
FQG2
LOGIO
$*BATTF2
GHD3
LOGIC
$$BATTF4
CEG1
LOGIOW
$$BATTF4
CEB1
LOOP
$$BATTF4
CEF1
LOOP
$$BOCRTR
PAF2
LOOPS 3
$SBATTNF
APC3
L0OP1
$$BATTIIE
AND3
L00P1
*$BATTNF
AQC3
L00P2A
$$BATTNF
AQEl
LOOP 3
$*BATTHV
BHB4
LPIEfiB
S$BATTF5
CFC3
LSTSEG
S$BOCRTQ
NKB1
LTADUMP
IJBSDUMP
EDB2
LOBCHECK
$*BCCHHR
GJC2
LUBLOOP
$$BATTF4
GED3
HACFAIL
**BATTS1
CTE2
HACF&IL
*$BATXS1
CUE2
HACfiET
$$BATTF2
GLK2
HACBET
$:iiBATTF3
GHE3
HAINLIME
fSBOCBTR
PAG3
HAIHLINE
$*BOCfiTS
PEK2
MAINLIHE
$iBOCaTT
PGH4
HAINLH
$$BOCBTK
HHJ3
nAINOO
$«BE0J7
DMB1
HAIN05
$$BE0J7
DHG1
HAIH07
$SBE0J7
DHK2
HAINIO
$$BE0J7
DMEU
HATCH
$$BATTN7
CQD2
HAXFHD
IJBSDUMP
EGE4
HICB
f$B£0J4
DFGit
niCRl
$$B£0J4
DFJ4
HISHATCH
$$BATTFlt
CDF3
MISMATCH
$$BATTF5
CFJ3
MOVALUE
*$BATTS1
CUB3
MOVEDATA
*$B0CBTT
PGE2
Label
Phase
Location
HOVESOB
IJBEOJ
FPF5
HOVES0B1
IJBEOJ
FPG5
HO¥ETIC
$$BOCRTA
KCC4
MSG
$$BAT'£NB
AEfil
MSGO0T3
$$BATTNA
AGC3
HSG02
S$BATTS2
CVJ2
HSG1
$$fiATTNB
AEG1
HSG1
$$BOCRTF
LJD3
MSG1020
$$BR«SG1
SJD1
HSG1040
$$BRnSGl
SJF1
HSG1120
$$BRMSG1
SJG1
MSG1140
$$BRHSG1
SJJ1
MSG 1200
$$BRnSGl
SJA3
HSG1240
$$BHHSG1
SJC3
MSG1260
SSBRHSGI
SJG5
MSG12B0
$$BBSSG1
SJH3
HSG2
$3>BATTNB
A EC 3
HSG2
$$BOCETE
LEJ4
MSG2
$$BOCfiTF
LJB5
HSG2020
$$BRMSG2
SQHl
MSG2040
$$BRHSG2
SQG2
MSG2060
$$BRMSG2
SQA2
HSG20B0
$$BRnSG2
SQB2
MSG2120
$SBRHSG2
SQC2
MSG2160
$$BRnSG2
SQE3
HSG2300
$$BRMSG2
SQB4
HSG2420
$SBEnSG2
SQJ4
MSG2500
$$BRHSG2
SQD5
MSG2520
$$BRBSG2
SQH5
HSG2540
$$BRHSG2
SQE5
MSG3
$$BOCRTE
LEH3
MSG3
SfBOCRTF
LJA4
HVCBSG6
SfBATTHV
BGF2
MVERDY
$$BATT»C
AHD1
MVREMAIH
$$BATTS1
CUE3
N DSC AN
$$BATTNA
ADC3
NEHCHD
$:j>BOCRTD
LBE1
NEHL
$*BOCRTC
KGJ1
MEHLINE
SSBOCRTD
LAD2
NEWLINEI
$$BOCRTD
LAB3
NEHHIN
IJBSDOMP
gGD4
NEHVOL
$$BATTBC
AHB4
NEXT
$$BATTN7
CRE2
NEXTCCW1
$$BOCRTS
PEA 3
NEXTDIB
$$BE0H4
DGF4
NEXTDIB
IJBDHPPA
EQD4
NEXTEHT
IJBSDUMP
EGC2
NEXTEHTRY
$$BCCHHR
GJJ2
NEXTLINE
$SBOCHTI
HGG2
HEXTPH
SSBCCHBR
GJG2
NEXTO
$«BATTS1
CTD3
HEXT2
$iBATTS1
CTF3
NEXT 3
$$BATTS1
CTG3
NEXT4
$*BATTS1
CTH3
NOADD
$$BOCRTT
PGG3
N0ADD1
$fBOCRTT
PHG3
NOAP
$$BEOJ
DAE1
NOAP
$$BE0J3A
DEEl
NOAP
IJBEOJ
FPG4
NOAP
IJBSDUMP
EAE2
HOATTENT
SSBOCBTG
HCB2
NOATTEHT
$$BOCRTR
PCF3
NOCRT
$$BE0J4
DFHl
NOCUHS
$$BOCRTP
NHC5
NODAT
SfBOCRTB
PADS
A
ppendix C: Label
List 28f
Label
Phase
Location
NODATA
fSBOCRTT
PH£tl
NODEL
$$BOCBTQ
NJD2
NOETSS
IJBSDOBP
ECD1
NOFIPA
$$B0CfiT6
RLC4
MOPOBHS
$$BATTF3
GNG1
NOHOLO
$$B£0J4
DHE2
NOKCOHH
$$BOCBTA
KCA2
NOLOG
$$fiATTNC
AJE5
NOLTA
IJBEOJ
FPA5
NOLXADOHP
IJBSDUnP
EDG2
ROHOVE
$$BATTS2
CVB3
HOnOVE
$$BOCRTC
KGJ3
sonovE
f$BOCBTD
LAB4
Nonv
$$BOCRTT
PGD3
NOOPBHD
$$BATTN7
CNE5
NOPABT
$$B£0H4
D6G1
MOPCBD
$$BOCBTZ
QJA1
NOPOHEB
$$B£0H4
DGF1
HOPSOT
SfBOCBTS
PDA4
H0PUB2
XJBDHPPA
EQG2
H0P2
j($BOCBTZ
QJD1
NOB AS
S$B£0J4
DFA3
NOBEAD
$fB0CfiT3
BFA1
HOBEDSP
$$B0CRT7
PKH2
NOBEQ
i$fi£GJ3A
DED5
NOBHAL
$$BATTNV
BFB1
N0BHAL1
$$BATTNV
BFD2
NOBHDHP
IJBSDUHP
ECG1
NOSOUND
$$BOCBTI
QEE1
NOSVADflP
IJBSDOBP
EHB1
NOSYSTSK
$$BOCBTA
KAA3
NOTFHD
$$BATTF2
GLE2
HOTFMD
S$BATTF3
GNG3
NOTFND
$$BATTF4
CDJ1
NOTFHD
$$BATTF5
CFJ1
NOTFND
$$BATT02
CKH2
NOTFOLL
$$B0CfiTH
QAA2
NOTFOLL
IJBDHPIC
FBJ1
NOTIC
ji$B0CfiTC
KHA5
NOTOK
$$B0CaTH
HEF2
NOTPBT
IJBSDOHP
EJB1
NOTBEADY
SSBOCBTB
PBA1
HOTXT
$$fi0CfiTT
PGA2
NOON ITCH
SSBOCBTA
KCE2
NOVOLIDl
$$BE0J7
DND4
NOHBITE
$$B0CBT1
BAD1
H032 1 1
$$BATT02
CKC2
NVSERB
$$BATTNA
ACBS
N370BP
IJBSDOHP
EHD1
OALL06
$$BACL0S
DKB4
0AL1
$$BACL0S
DJH1
OAL10
$$BACL0S
0KB1
0AL12
S$BACL0S
DKC1
0AL2A
$$BACLOS
DJF2
0AL3
SSBACLOS
DJG2
0AL4
$$BACLOS
DJH2
0AL6
$SBACLOS
DJB3
OALI
$$BACLOS
DJB4
0AL8
$$BACLOS
DJC3
ODASD
IJBDHPIC
FGC2
OFBA
IJBDBPIC
FGC5
OKEXIT
IJBDBPIC
FFG5
OKEXIT
IJBDHPIO
FBD2
ONELINE
$$BOCBTB
KEB4
ONETST
$$BOCBTC
KKJ1
Label
ONLIST
ONLIST
ONLYD
OHLYENT
OPENEHD
OPNESS
OPHESS
OPHESS
OPHESS
OPRSHT
OPBTHUH
OBBD?
OUTCALL
OOTSTAT
PAGEPOOL
PARAHOO
PABCKBTN
PABINV
PABH
PABPA
PABTI
PABT1
PAUSE
PA0SE2
PA VAIL
PAVAIL
PGBOOTI
PCB00T2
PDEND
PDIB
PDOHP
PDOHPB
PFBLTHSG
PFCLBABT
PFDDNCOO
PFEOPB
PFBSHT
PFESYHTX
PFFETCH
PFFOBHS
PFGETOPB
PFKEYDPC
PFLPI
PFLPI
PFLDBAD
PFHE
PFNKSCOO
PFNKYVAL
PFNOL
PFNOLHSG
PFNXTOPB
PFNiOPfi
PFN3211
PFOPB
PFOPRFCP
PFOPBFLD
PFOPBIN?
PFPBMHVC
PFPOBCNT
PFBCOHBS
PFSTHEND
PFSTRPBH
PFSONIT
PFUNIT
PFWOFCOO
Phase
Location
$$BEOJ
0CA2
IJBEOJ
FBF1
$$B0CfiT2
8CG3
$*B0CfiT1
1BC2
IJBDHPIC
FGG5
$fBATTF2
G1B4
$^BATTF3
GNB4
$$BATTF4
CDB4
$$BATTF5
CFB5
$*BATTNC
AGE2
SiBOCBTO
NEA4
$*BATTNC
AUE1
$$BSDBUP
GHJ2
$*BATTMB
AUBS
IJBSDUHP
SHD2
$$BATTNZ
BKD3
$*BATTHQ
AVD1
IJBSDUHP
BHD5
$$B0CBT2
RCAb
$$B0CBT6
BHA2
$SB0CBT3
aFA3
IJBSDUHP
1HB1
$I>BATTHC
AJB1
$$BATTHC
AJK1
$$B0CHrC
KKD2
S^BOCBTY
QFJ4
$$BATTST
BBJ5
$$BATTHT
BBK5
IJBSDUHP
EL64
IJBDHPPA
BQD3
$$BATTMV
BHB1
IJBSDOHP
EBB1
$$BATTF1
CCD4
$*BATTH8
CAB2
$$BATTF1
CCJ3
$$BATTH8
CAF1
SiBATTFI
CCE2
$$BATTF1
CCB3
$$BATTFO
GKF5
$$BATTN8
CAE3
$$BATrN8
CBB1
$$BATTF1
CCD3
$$BATTFO
GKF1
$$BATTN8
CAF3
SSBATTFO
GKH2
$*BATTFO
GKJ3
$$BATTF1
CCG3
$$BATTN8
CAH2
$$BATTFO
GKB1
S$BATTN8
CAK3
$$BA7TN8
CAC1
$$BATTHB
CBB2
S$BATTF1
CCJ1
$*BATTN8
CAD2
$$BATTN8
CAG1
$$BATTN8
CAB1
$*BATTF1
CCC4
$$BATTN8
CBG1
$$BATTFO
GKC4
$*BATTF1
CCBl
$$BATTN8
CAK5
$$BATTN8
CBD1
$$BATTFO
GKG2
$$BATTFO
GKB2
$$BATTF1
cca3
286 DOS/VSE Logical Transients
Label
PF10PH
PF20PS
PG8EGS
PN&VAIL
PN&VAIL
PNDUHP
P0HCHK1
POBER
PP0CT5CTT
PREPOHSG
PREPVMSG
PREPVMSG
PRESENT
PRINT
PRINT
PRINTEHD
PSINTEND
PRINTERS
PRINTERR
PRINTERR
PRINTO
PRISTO
PRINT 1
PRINT!
PRINT1
PROCEDORT
PROCKE?
PROCMSG
PROGCHCK
PROGCHCK
PROTCHCK
PROTCHK
PROTCHKl
P80TCHK2
PRTEND
PHTPA
PRTPA
PRTPSai
PRTPS82
PRTY
PBTILOP
PRTYSET
PRTY05
PRTY15
PRTY20
PRTY21
PRTJ30
PRTI52
PRTY56
PRTI57
PRTI58
PRTf59
PRVDflSGI
PUBFOUMD
PUBLOOP
POBLOOP
POBLOOP
POBLTHSG
POCLE&RT
PUDDNCUO
POESMT
POFOLD
POGETOPR
PUGOPR
POKEIDPC
PDKEIWRO
Phase
Locatxon
$$BATTN8
CAH3
SSBATTNB
CAJ3
IJBSDOMP
EHD1
$$BOCRTC
KKH5
$*B0C8TI
QFG4
IJBSDOMP
BKF2
*SBaTTFO
GKK2
$$B£0H4
DGE1
$$BiTTNS
AXF5
$$BATTF4
CDC2
**BATTF2
GLG1
$$B&TTF5
CFC2
iSBATTNC
AHD4
IJBDHPIC
FFA3
IJBDHPIO
FBB5
$$BA1TF2
GLE5
SilBATTFB
GNF5
$$BATTF*»
CDG3
**BATTF5
CFD3
$SBATT02
CKJ2
IJBDHPIC
FFD5
IJBDHPIO
FBF5
$$B£OJ
DCD4
IJBDHPIO
FCB2
IJBEOJ
FRH4
$$BATTNS
AXD5
$iBATTN7
CYtBk
f$BATTS2
C¥H2
$$BOCHTA
KBF1
S$BOCBTZ
QKD5
$*BOCRTZ
QMC2
SSBOCRTZ
QHB1
$$BOCRTZ
QME2
$$BOCBTZ
QHGt
IJBEOJ
FRG2
IJBSDOfiP
EKA3
IJBSDOMP
BKC3
IJBEOJ
FQC1
IJBEOJ
FQF1
$$BATTN2
BLB1
$$BATTN2
BHG1
$$BATTN2
BHA1
$$BATTN2
BLD1
*SBATTN2
BLF1
$$BATTN2
BLA2
$SSATTN2
BLD2
$$BATTN2
BLA3
$$BATTN2
BHB1
$$BATTN2
BHD1
$$BATTN2
BHG2
$SBATTN2
BHB4
*$BATTN2
BHC5
SSBOCRTP
IiHA2
$$BATTS1
CSC<J
$$BATTF4
CDF2
*$BATTF5
CFH2
$$BATT02
CKCft
$SBATT01
CJF2
$$BATTN9
CGB2
$$BA1fT0l
CJG5
$$BATTU1
CJC4
$$BATTN9
CGG3
$$BATTN9
CHB1
$»BATTN9
CGF1
$$BATT01
CJE3
$S6ATTN9
CHJ2
Label
PONKSCOO
POMOCHK
POMULHSG
POMIOPR
POOPR
POOPRFLD
P0PRHH7C
PORCOMBS
POSTRPRH
PUTDATA
POTHSG
POTMSG
POTHSG 1
POTRAIN
PUMOUCOG
P010PR
P020PR
P02OPR
PVALID
QEX
QOEUE
RASSY
RASWAIT
RASHAIT
RDSPLAY
REACHED
READ
READCHD
READCHD
READDIR
READH1
READRT
READRT
REAL370
RECOG
REC0V2
REDSP
REPEAT
REPEAT
BEPEATO
REPEAT2
REQCANC
REQCAHCO
BEQPEND
REQPE8D
REQPR
REQU
RESCODE
BESET
RESET
RESET
RESETSM
BESET 1
RESEXT
RESTK
BESTREGS
RSTSRR
BBTERR
RSTEBR
RETX
RETOK
RETRY
BETBY
BETHY
Phase
Location
$$BATT01
CJE5
$*BATTN9
CGH3
$$BATTN9
CGJ3
$$BATTN9
CHC2
$$BATTN9
CGD2
$$BATTN9
CGB1
$$BATTN9
CHGl
$*BATT01
CJB1
$$BATTN9
CHDl
IJBDHPIC
FHB1
$$BATTHT
BBB5
IJBDHPIC
FFB3
IJBDHPIC
FFE3
$*BATTN9
CGC«*
$*BATTal
CJF5
$*BATTH9
CGE3
$$BATTN9
C6E4
$3»BATTH9
CGF3
IJBDHPAR
EUB1
$*BOCBTL
MHJ2
$$BE0J3A
DEH2
$:iiBCCUHR
GJB1
$$BCCHHR
GJE4
$$BE0J4
DFJ2
$$BOCRTB
KEA3
$$B0CHT3
RED4
$$BATTNT
BAB 3
SSBOCRTC
KHD5
$$B0CRTZ
QHD2
$SBATTU2
CKF2
$*BOCRTS
PEB1
$$BOCRTR
PeB2
$*BOCRTS
PFB2
$$BEOJ
DBC5
$$BOCRTG
HAE2
$$BOCRTF
LGH*
$SB0CRT4
9HA2
$$BOCRTR
PAA4
$$BOCRTY
QEC3
$$BOCRTC
KGG1
$$BOCHTC
KHD4
$$BOCBTX
QBF2
$*BOCRTY
Q0K3
$$BOCRTK
nLB4
$$BOCRTP
NHE2
$$BOCRTK
HKF2
SSBOCRTI
RAB5
$SBEOJ
DBH2
$$BOCRTB
KDFl
$$BOCRTG
MBA 3
IJBDHPIO
FCE2
$*BATTBT
BAD3
$$BOCRTG
HAC4
$$BE0J4
DHJ5
$$BOCBTG
HAH1
IJBDHPIO
FBE2
SSBATTF^
CDJ3
$$BATTF5
CFF3
$$BATT02
CKK3
$$BATTF5
CFJ5
IJBDHPIC
FFHS
$$BATTF2
GLJ3
$$BATTF3
GilK3
$$BATTF4
CDB3
Appendix C: Label List 287
Label
Phase
Location
Label
Phase
Location
RETBY
fSBATTFS
CFF4
BETRI
«$BOCRfS
PEA4
RETURN
SSBATTNS
AXC1
RSTORN
S$BATI02
CKJS
RETl
$$B0CRT6
RLC5
RET 2
$$B0CfiT6
RHA3
RFC HECK
$$BE0H4
DGB1
RLCCB
SSBEOJ
DCK2
RLCCfi
IJBEOJ
FRE2
RHSPOST
»$BCCHHR
GJF4
RPT
$$BOCRTN
NBH3
RSTflS6600
$$BRSfR2
S1IG5
RSTPRT
$$BOCRT¥
QEB3
RSTBTEfil
:^$fiBSTRT
SLB5
RSTHT150
$$BRSTRT
SLH1
RSTRT200
$$BBSTRT
SLC3
RSTBI240
$$fiRSTRT
SL03
RSTeT300
$$BRSTRT
sLca
RSTHT560
$$BRSTRT
SLG«»
RSTeT600
»$SBSIRT
SLJ4
RSTRT700
SSBBSTRT
SLH5
RSTB0020
$$BRSTR2
SNC1
RSTR0140
$$BBSTR2
SND1
BSTB0180
$$SRSTR2
SNE1
RSTB0200
»$BBSTR2
SHF1
RSTB0300
$$BBSfR2
SNJ2
RSTB0400
$$BBSTR2
SNA3
RSTR0460
$$BRSTR2
SNC3
RSTB0480
S$BBSTB2
SNF3
RSTB0600
$$BBSTR2
SNA5
RSTfi0660
S$BRSIB2
SNB5
RSTRO/00
$$BBSTfi2
SHOS
RSTB0800
S$BBSIfi2
SNE5
RSTB2000
$$BRSfR2
SNG3
RSTB2000
$SBRSTR2
SNK2
RSTR2000
$SBRSfR2
SPA1
RSTB2020
$$BRSIR2
SPC1
RSTB2060
$»BRSTR2
SPF2
RSTB2080
$SBRSTR2
SPB2
RSTB2100
»$BRSXR2
SPG2
RSTS2140
$SfiRSTR2
SPJ2
RSTR2160
$$BRSXR2
SPK2
RSTR2500
SSBBSTR2
SNK3
RSTtfRNG
^UBOCBTY
QEB2
RSTXECB
$|iBE0J4
DFB3
RTSTflT
$SBATTNA
ACBa
RONREAL
$SB£0J3A
DEJ3
SAVEfi3
$$BATTNT
BAF3
SA?ID
«$B0CRT6
RME2
SCAMBL1
$$fiATXNA
ADD1
SC&NBL2
f$6ASTNA
ADE1
SC&NOPN
$$BATTNA
ADB3
SCAN1
$$BAII{l!r
BBB3
SCIP
$$fiOCRT<»
RHG2
SCR
$$BOCRTL
HPB2
SCRPRT
$$BOCRTI
QSB1
SCH1
S$fiOCRTL
MPC2
SDDUHP
IJBSDOHP
EKB2
SDEOV
IJBDflPIO
FCD1
SOOHPR
ZJBSOUHP
EC At
SDOHPB
IJBSDOHP
ECE1
SEARCH
$$BAITN7
CQC2
SEARCH
$SBOCBIB
KFB1
SEARCH
$*BOCRTC
KJB3
SEARCH
SfBOCBTO
LCB2
SEARCH
$$fiOCRT6
aCB4
SECPA
$$B0CRT2
SDJ4
SEEIFHOR
UBSDUHP
SHE4
SEGLIH
$$BOCRTQ
NJF1
SEGPASS
$$BOCBTN
l«DA4
SEMDHSG
$$BOCBT£
LEB3
SEMDHSG
$*BOCRTF
LJB3
SENSECflD
$$BOCRTZ
QJA3
SEBSS1
$$BOCfiTZ
QJG3
SENSE2
$$BOCRTZ
QJB4
SETCOHRG
$$BOCRTA
KAA4
SETEXT
$$BATTNB
AFBS
SETFLAG
$$BOCBTA
KBG1
SETID
$$BATTND
AKC2
SETP
IJBDHPIO
FADS
SETDPOO
$$BATTNY
BJJ3
SETTAL
IJBOHPAR
S0G1
SHIFT
IJBDflPAR
EVK1
SIZE
$SBATTNF
APB1
SKIP
$»BOCfiTP
N6H2
SKIP
$$BOCRTT
PGH3
SKIPBLNK
$SBOCRTK
HLF3
SKIPBLH1
$$BOCBTK
HLF4
SKIPLOAD
$$BATTF5
CFD4
SKIPRTX
$$fiATTIID
AKB2
SKIPTOE
$*BOCRTO
NFA3
SKIPTST
$J[>BOCBTC
KKJ2
SKIP1
$$BOCRTP
HGK2
SKIP1
$$BOCRTT
PGK3
SRCHLOOP
$$BE0J3A
DEB4
START
$$BATTNT
BAB1
START
$$BSDfiUP
GHB2
STARTS
$$BOCBTE
LDD1
STARTIO
$$BOCRTG
nAD3
STARTIO
IJBDHPIO
FCE4
STARTUP
$$B0CBT3
R£A4
START 1
$$B0CBT1
SAB1
STAT05
$iBE0J7
DLCl
STATIC
$$BE0J7
DLC2
STAT 12
$$BE0J7
DLF2
STAT15
$$BE0J7
DLJ2
STAT35
$SBE0J7
DLSS
STAT40
$$BE0J7
DLK2
STCCH7
$$&ATTNO
BCHS
STDOHP
$fBATTM?
BGB3
STEXCD
$$&ATTNB
AFBl
STIO
$$BOCRTE
LFEl
STIO
$$BOCRTF
LKE2
STLNGTH
$$BATTF3
GNJ1
STORECCW
SSBOCRTA
KBE2
ST0RE1
IJBDHPIO
FAES
STORES
IJBDHPAR
E/D1
STR6EN0
$$BOCRTC
KJC3
STBGEND
$$BOCRTD
LCC2
STRGEND
$$B0CBT6
HCC4
STRTIO
$$BOCRTE
LFB1
STRTIO
$$BOCBTF
LKB2
SOBLOOP
$$BATTNC
AHB2
SOBTASK
$$BE0H4
DGA2
SOPDUflP
IJBSDOHP
8FB1
S0P7
$$BATTND
AKD1
SVADHP
IJBSDOHP
SGB2
SVADQHP
IJBSDOHP
&JA3
SVAST
$$BATTNV
BFB4
SVC26
$$BOCRTZ
QHH5
SBAOTOCL
$$BE0J4
DFE4
288 DOS/¥SE Logical Transients
label
SHTCHOFP
SYSTHPOI
SYSTHBO
SYSWR
TAB1
TAPEOEV
TAPEDEV
TAPEIO
TAPEOO
TAR
TASK
TBIT
TDISK
TEA
TEND
TEHD1
TERN
TERHCANC
TEST
TEST
TESTAP
TESTBRST
TESTCHD
TESTCNT
TESTBRB
TESTIO
TESTIO
TESTLPI
TESTHAX
TESTNOSD
TEST02
TEST02
TPOL
TICCHECK
TICCHK
TICBRROB
TIGHT
TICSKIP
TB
THPAB1
TOL
TPBAL
TPTYPB
TPTXPE
TPTXPE1
TPTIPE1
TRC
THC
TBEAL
TRKFBA
TRSFB
TRSFR1
TBSFB2
TRSFB3
TRYNXT
TSAMB
TStADDR
TSTBJF
TSTBUFF
TSTBUPF
TSTBADDR
TSTJBF
THOADUNP
THOBDS
TXPEONE
Phase
Location
IJBDHPAR
EV62
¥$BOCRTK
NKD3
$$BOCBTK
HKA3
$SBSYSHR
GGB4
$$BATTNV
BFE3
$$BEOJ
DC J 2
IJBEOJ
FRD2
IJBDBPIC
FBC2
$$BE0J7
DNA3
IJBSDUnp
EAG2
$$BE0J3A
DEC5
IJBSDUNP
BBB1
IJBDHPIO
FCB3
IJBDHPAB
ETC 2
IJBOHPAR
Esca
IJBDHPAB
EVCd
IJBEOJ
FPJ5
S^BEOJ
DADa
«$BOCRTC
RKBt
$$BOCRTY
QFB3
IJBEOJ
FPCa
$$BATXS1
CTB3
$$BOCRTZ
QLB2
$$BOCBTZ
QKD4
»:iiBOCRTA
KBA2
$$fiOCBTE
LPH1
«$BOCRTF
LKfl2
«$BATTF5
CFE2
IJBSDUHP
E6B2
$*BOCBTZ
QKB4
$$BOCfiTC
KKG3
f$BOCBTY
QFE3
IJBDHPIC
FGD5
S$BOCBTA
KAGa
y^BOCBTB
PBB2
$$BOCfiTA
KAGS
$$BOCBT&
KCA4
$$BOCfiTZ
QLB3
$$BE0a3&
DEB2
$SBATTNA
AAC2
SSBATTNV
BE63
:ii$BATTN2
BNBI
$$BEOJ
DCG2
IJBEOJ
FfiB2
»SBEOJ
DCH2
IJBEOJ
FRC2
IJBDBPAR
EHDI
IJBDHPPA
EBJ1»
IJBDBPAR
ETJ2
$»B£0J4
DBD<)
$$B0CBTD
LAD1
$$BOCBTD
LAE1
f:iifiOCBTD
LAF1
$$BOCBTD
LAF3
fSBATTSI
CSD2
IJBDBPAR
EVC2
IJBDHPAB
BSB2
IJBEOJ
FRJ1
*$BATTF2
GI.A3
$$BATTF5
CFF2
IJBDHPAB
ETB2
$$B£OJ
DCD2
IJBSDUHP
ELB1
IJBDHPAR
EVB1
$$BATTN7
CQB2
Label
UI
UNAV
ONRECOV
UNI
UPO
UPDATE
UPDATER
UPDATE1
UPDA1
VALBBOO
VALCUUOO
VALIDATE
VALHOD05
VALNODOO
VERIHSG
VLOOP
V0LUME62
VBBL1
VTAHHOOK
HAITI
HAITI
HAITI
HARN
HBITEH
HBITECHD
HBITEH
HBITEO
URITB20
HRITS
HRTIHSTL
HRTHRNG
HTE
HTE1
XFB
XFR1
YESFOLD
Phase
Location
$$B0CRT3
HFFi
$$BATTN6
ASJ5
$$BOCRTF
LJA1
$$BOCRTX
QBC5
SJBOCRTB
RFC 2
$$B0CBr3
HEE3
IJBSDUHP
BKG2
$$BOCRTQ
HKD1
$$B0CRT3
REG3
$$BATTN¥
BJBS
$$BATTNY
BJS1
IJBDHPAR
BSC4
$*BATT1IY
BJF3
Si^BATTNY
BJC3
$iBAT'rU2
CKF5
IJBSDUHP
BHB3
$SBATTNO
A0H2
SJSBOCRTN
!iBA4
$$BATTNH
ATB4
$$BEOJ
DCE<»
$$BOCBTR
PBC1
IJBEOJ
FRJ4
$$BOCaTB
KDB4
$$BOCRTS
PFH3
$$BOCBTZ
QHE4
$$BOCRTS
PFB3
$3»B0CRT1
HAC2
$$BOCRTH
HFE2
$$B0CHT4
RHBS
SSBOCRTI
*1GF3
$$BOCHTR
PCB3
$$B0CRT1
RAG1
$$B0CHT1
BAA3
$$B0CHTC
KHC2
SiBOCHTC
KGD3
$$BATTU2
CKB2
Appendix C: Label List 289
290 DOS/VSE Logical Transients
INDEX
I «
I A I
L J
ALLOC command processor
detail chart 88
general chart 21
text 16
ALLOCS command processor
detail chart 88
general chart 21
text 16
ALTER command processor
detail chart 100
general chart 23
text 16
attention interrupts 16
attention routines 16
DUMP command processor
detail chart 104
general chart 24
text 16
DUMP macro 33
dumps 24, 33, 31
I n
1 £ 1
L J
ENOSD command processor
detail chart 113
general chart 21
text 17
error message cross reference
277
r 1
1 B I
L J
B (logical) transients 11
BATCH command processor
detail chart 92
general chart 21
text 16 ,
buffer load phases 37
f n
I C I
I J
cancel codes and messages 35
CANCEL command processor
detail chart 83
general chart 20
text 16
cathode ray tube (CRT) 40
checkpoint/restart routines 63, 66
CHKPT macro 63
CRT (cathode ray tube)
area (CRTTRNS) 40
functions 40
logical interrelationship 40
message format 49
routines 40
r 1
f F I
flowchart symbols, explanation of
forms control buffer (FCB) loading
r 1
I H 1
hard-copy control flags 52
hard-copy file, format of 53
r~ 1
\ I I
L J
IGNORE command processor
detail chart 85
general chart 20
text 17
r 1
i J I
L J
76
37
JDUMP macro
33
r 1
I D i
t J
I — -I
I L I
L J
Display operator console support 40
DOC (Display Operator Console) 40
DSPLY command processor
detail chart 102
general chart 23
text 16
label list 281
LFC6 command processor
detail chart 114,
general chart 26
text 17
LFCB macro processor
116
Index 291
detail chart 181
general chart 39
LOG command processor
detail chart 85
general chart 20
text 17
logical ($$Bj transients
area 11
attention routines 16
checicpoint/restart routines 63
CRT routines HO
terminator routines 31
LUCB command processor
detail chart 120, 122
general chart 27
text 17
r n
i H I
I J
MAP command processor
detail chart 86, 87
general chart 20
text 17
NODE command processor
detail chart 96-99, 108, 109
general chart 22, 25
text 17
HSG command processor
detail chart 81
general chart 20
text 17
r~ 1
I N I
c J
NEHVOL command processor
detail chart 84
general chart 20
text 17
NOLOG command processor
detail chart 85
general chart 20
text 17
r 1
1 P 1
1 J
PAUSE command processor
detail chart 85
general chart 2C
1
text 17
PDOMP macro 34
phases (see also SVA
phases)
$$BACLOS
detail chart
142
general chart
32
$$BArTFO
detail chart
180
general chart
39
text 37
$$BATTF1
detail chart
116
general chart
26
text 17
$$BATTr2
detail chart
181
general chart
39
text 37
$$BATTF3
detail chart
183
general chart
39
text 37
$$BATTF4
detail chart
117
general chart
26
text 17
$$BATTF5
detail chart
1'9
general chart
26
text 1 7
$$BATTNA
detail chart
77
general chart
19
text 16
$$BATTNB
detail chart
81
general chart
20
text 16, 17
$$BATTNC
detail chart
83
general chart
20
text 16, 17
$$BATTND
detail chart
86
general chart
20
text 1 7
$$BATTNE
detail chart
88
general chart
21
text 16
$$BATTNF
detail chart
90
general chart
21
text 17
$$BATTNG
detail chart
92
general chart
21
text 16, 17
$$BATTNH
detail chart
94
general chart
19
text 16
$$BATTNI
detail chart
87
general chart
20
text 17
$$BATTNK
general chart
20
text 17
$$BATTNO
detail chart
95
general chart
21
text 17
$$BATTNQ
detail chart
96
general chart
22
text 17
$$BATTNfi
detail chart
97
292 DOS/VS Logical Transients
general chart
22
text 17
$$BATTNS
detail chart
98
general chart
22
text 17
$$BATTNT
detail chart
100
general chart
23
text 16, 17
$$BATTNO
detail chart
102
general chart
23
text 16
$$BATTNV
detail chart
104
general chart
24
text 16
$$BATTNy
detail chart
108
general char^
25
text 17
$$BATTNZ
detail chart
109
general chart
25
text 17
$$BATTN2
detail chart
110
general chart
21
text 17
$$BATTN3
detail chart
113
general chart
21
text 17
$$BATTN7
detail chart
124
general chart
28
text 17
$$BATTN8
detail chart
114
general chart
26
text 17
$$BATTN9
detail chart
120
general chart
27
text 17
$$BATTS1
detail chart
130
general chart
26
text 17
$$BATTS2
detail chart
133
general chart
28
text 17
$$BAITU1
detail chart
122
general chart
27
text 17
$$BATTU2
detail chart
123
general chart
27
text 17
$$BCCHHE
detail chart
179
text 38
$$BCHKPD
detail chart
265
general chart
66
text 71
$$BCHKPE
detail chart
266
general chart
66
text 71
$$BCHKPF
detail chart
267
general chart
66
text 72
$$BCHKPG
detail chart
268
general chart
66
text 72
$$BCHKPT
detail chart
262
general chart
66
text 67
$$BCHKP2
detail chart
263
general chart
66
text 69
$$BCHKP3
detail chart
264
general chart
66
text 70
$$BCHK3G
detail chart
271
general chart
66
text 73
$$B£OJ
detail chart
134
general chart
32
text 31
$$BE0J3
detail chart
137
general chart
32
text 31
$$fi£0J3A
detail chart
138
general chart
32
text 31
$$6£0J4
detail chart
139
general chart
32
text 31
$$BE0J7
detail chart
144
general chart
32
text 31
$$BOCRTA
-detail chart
184
general chart
41
text 48
$$BOCETB
detail chart
187
general chart
47
text 48
$$BOCRTC
detail chart
190
general chart
.42
text 48
$$BOCBTD
detail chart
194
general chart
42
text 49
$$BOCRTE
detail chart
197
general chart
47
Index 293
text 50
SSfiOCfiTF
detail chart 200
general chart 47
text 50
$$BOCBTG
detail chart 204
general chart 42
text 51
$$60CBIH
detail chart 207
. general chart 42
text 51
$$BOCETI
detail chart 210
general chart 42
text 55
$$BOCRTK
detail chart 211
general chart 44
text 55
$$BOCBTL
detail chart 215
general chart 44
text 55
$$BOCRTM
detail chart 218
general chart 44
text 55
$$60CfiTN
detail chart 219
general chart 44
text 56
$$B0CBTO
detail chart 222
general chart 44
text 56
$$BOCETP
detail chart 224
general chart 44
text 56
$$BOCBTQ
detail chart 226
general chart 44
text 57
$$60CRTB
detail chart 228
general chart 43
text 57
$$BOCBTS
detail chart 231
general chart 43
text 57
$$BOCBTT.
detail chart 234
general chart 43
text 58
$$BOCBTU
detail chart 236
general chart 41
text 58
$$BOCfiTV
detail chart 237
general chart 45
text 58
$$60C£TW
detail chart
238
general chart
45
text 59
$$BOCfiTX
detail chart
239
general chart
45
text 59
$$BOCRTY
detail chart
241
general chart
45
text 59
$$60C£TZ
detail chart
244
general chart
41
text 60
$$B0CfiT1
detail chart
250
general chart
46
text 60
$$B0CRT2
detail chart
252
general chart
46
text 60
$$B0CRT3
detail chart
254
general chart
46
text 61
$$B0CfiT4
detail chart
257
general chart
46
text 61
$$B0CRT5
detail chart
258
general chart
46
text 61
$$B0CfiT6
detail chart
260
general chart
46
text 62
$$BPCLOS
general chart
32
text 38
$$BRMSG1
detail chart
270
general, chart
66
text 73
$$Bfi-MSG2
detail chart
276
general chart
66
text 75
$$BfiSTRT
detail chart
272
general chart
66
text 73
$$BBSTE2
detail chart
274
general chart
66
text 74
$$BSYSWfi
detail chart
178
text 38
printer buffer load
phases
PfiTY command processor
detail chart 110
general chart 21
text 17
37
294 DOS/VS Logical Transients
r t
I B I
Restart routines
65
r" 1
I S i
screen control table (SCT) entry 49
SETDF command processor
detail chart 124
general chart 28
text 17
SETHOD command processor
general chart 20
text 17
SIZE command processor
detail chart 90
general chart 21
text 17
special service programs 37
START command processor
detail chart 92
general chart 21
text 17
supervisor call interrupt (S¥C) 12
supervisor
calls 12
cancel codes 35
SWA phases 11
*IJBDUMP 33, 24
IJBDHPAB
detail chart 162
general chart 33
IJBDMPIC
detail chart 170
general chart 33
IJBDBPIp
detail chart 167
general chart 33
IJBDHPPA
detail chart
160
general chart
33
IJBEOJ
detail chart
175
general chart
33
IJBSDUNP
detail chart
147
general chart
33
SVC (supervisor call
interrupt)
system dump 33
r 1
i T 1
L---J
12
terminator routines 31
TBBAL command processor
detail chart 110
general chart 21
text 17
r ""1
I I
I -J
universal character set buffer (UCB)
loading of 37
r "%
I V I
< --J
VOLUHE command processor
detail chart 95
general chart 21
text 17
3800 printer files
automatic close of 38
Index 295
SY33-8553-4
O
O
CO
<
o
3
a
D
c
3
•o
O
(D
a.
5'
c
C/5
>
(/J
-<
CO
CO
do
oi
w
CO
I K.^ft
internationai Business Machines Corporation
Data Processing Division
1133 Westchester Avenue, White Plains, N.Y. 10604
itsm ilvorid Trade Americas/Far East Corporation
Town of Mount Pleasant, Route 9, North Tarrytown, N.Y.. U.S.A. 10591
IBM World Trade Europe/Middle East/Africa Corporation
300 Hamilton Avenue, White Plains, N.Y., U.S.A. 10601
DOS/VSE Logical Transients
and Dump Phases Logic
SY33-8553-4
READER'S
COMMENT
FORM
This sheet is for comments and suggestions about this manual. We would appreciate your
views, favorable or unfavorable, in order to aid us in improving this publication. This form
will be sent directly to the author's department. Please include your name and address if
you wish a reply. Contact your IBM branch office for answers to technical questions about
the system or when requesting additional publications. Thank you.
Name
Address
What is your occupation?
How did you use this manual?
As a reference source
As a classroom text
As a self-study text
Your comments* and suggestions:
* We would especially appreciate your comments on any of the following topics:
Clarity of the text
Organization of the text
Accuracy
Cross-references
Index
Tables
Illustrations
Examples
Appearance
Printing
Paper
Binding
YOUR COMMENTS, PLEASE . . .
This manual is part of a library that serves as a reference source for system analysts,
programmers and operators of IBM systems. Your answers to the questions on the back of this
form, together with your comments, will help us produce better publications for your use. Each
reply will be carefully reviewed by the persons responsible for writing and publishing this
material. IBM may use or distribute any of the information you supply in any way it believes
appropriate without incuning any obligation whatever. You may, of course, continue to use
the information you supply.
Please note : Requests for copies of publications and for assistance in utilizing your IBM ^stem
should be directed to your IBM representative or to the IBM sales office serving your locality.
FokJ
Fold
FIRST CLASS
PERMIT NO. 1359
WHITE PLAINS. N Y.
BUSINESS REPLY MAIL
NO POSTAGE STAMP NECESSARY IF MAILED IN THE UNITED STATES
POSTAGE WILL BE PAID BY . .
IBM Corporation
1 133 Westchester Avenue
White Plains, N.Y. 10604
D
O
CO
<
m
o
3
a
D
c
3
■D
-a
3"
Attent ion : Department 8 1 3 BP
o
-o
5'
5'
c
CO
>
<
CO
00
Ol
01
CO
Fold
Fold
IBM
Intarnatiorwl Business Machines Corporation
Data Processing Division
1133 Westchester Avenue, White Plains, N.Y. 10604
IBIM World Trade Americas/Far East Corporation
Town of Mount Pleasant^ Route 9, North Tarrytowvn, N. Y., U.S.A. 10591
IBM World Trade Europe/Middle East/Africa Corporation
360 Hamilton Aveniie. White Plains, N.Y.. U.S.A. 10601
