SY33 8555 1_DOS_VS_IPL_and_Job_Control_Rel_29_PLM_Nov73 1 DOS VS IPL And Job Control Rel 29 PLM Nov73

SY33-8555-1_DOS_VS_IPL_and_Job_Control_Rel_29_PLM_Nov73 SY33-8555-1_DOS_VS_IPL_and_Job_Control_Rel_29_PLM_Nov73

User Manual: SY33-8555-1_DOS_VS_IPL_and_Job_Control_Rel_29_PLM_Nov73

Open the PDF directly: View PDF PDF.
Page Count: 320

DownloadSY33-8555-1_DOS_VS_IPL_and_Job_Control_Rel_29_PLM_Nov73 SY33-8555-1 DOS VS IPL And Job Control Rel 29 PLM Nov73
Open PDF In BrowserView PDF
SY33-8555-1
File No. S370-36

DOS/VS
I P L and Job Control
Systems

Logic
Program Numbers 5745-SC-IPL
5745-SC-JCL

Release 29

Second Edition (Ncverrter 1973)
This is a major revision cf. and ctsoletes. SY33-8555-0. It
includes changes tc reflect the s~PFcrt fcr Systerr/370 ~cdel
115. the new devices 3340. 5425. 5203 and 3203. and other
DCS/VS system enhancerrents.
This edition applies tc versicn 5. Release 29, cf the IEM Cisk
Operating systerr/virtual Storage. CCS/VS. and to all
subsequent versions and editicns until ctherwise indicated in
new editicns cr Technical Newsletters. Changes are
continually made tc the inforrraticn herein. Before using this
publication in connection with the operation of IBM systerrs.
consult the IB~ Systerr/360 and Systerr/370 Eitlicgraphy.
GA22-6822. for the editions that are applicatle and current.
Requests for ccpies cf IBM putlicaticns shculd te rrade tc your
IBM representative or to the IEM tranch office serving your
locality.
A form for reader's ccrrments is prcvided at the back of this
publication. If the fcrm has teer. rerrcved. comments rray te
addressed to IE~ latoratory. Futlications Cepartment. F.O. Eox
24, Uithoorn, The Netherlands. Corrrrents tecome the property
of IBM.
©

Copyright International Business Machines Corpcraticn 1973

This Program Logic Manual (PLM) is a
detailed guide to the IBM Disk Cperating
System IPL and Job Control prograrrs. It
supplements the prograrr listings by
providing descriptive text and flc~charts.
For overall system contrcl lcgic
description, this PLM is used with seven
other PLMs:

•

DCS/VS Error
l~~en~§,

•

Introduction tc DCS/VS, GC33-5370.

•

DOS/VS System
GC33-5371.

•

DCS/VS Data Management Guide, GC33-5372.

•

DCS/VS Supervisor and I/O Macros,
GC33-5373.

•

DCS/VS System Generation, GC33-5377.

•

DCS/VS CFerating

•

DCS/VS

Manag~~n!~id~,

Reoovery-and-B~££~ding

SY33-8552.

•

DOS/VS

~2g~£al Tr~~sie~~§,

•

DCS/VS

serviceabil~~id§,

SY33-8553.
pr~dur~§,

GC33-5378.

SY33-8554.
~essages,

GC33-5379.

~itles

•

DCS/VS_~1££~Volu!~lL-lE!~2QE£~~2~Q
Irrp~~~iv~_~~Q§,

and abstracts cf cther related
publioaticns are listed in the IEM
Systerr/360 and~~~!t370 Eit.1ic:9i~,
GA22-6822.

SY33-8559.

prerequisite publioations that will aid in
the use of 'CIli::: Illdl1Udl ci:i..e,

•

DOS/VS §.ysterf. Control Staterrents"
GC33-5376.

•

CS/VS and DOS/VS Assembler
GC33-4010.

This rranual consists cf fcur rrajor
sections. The first section is an
i~trc~~~tir~ t r the IPL Hnd Jct Ccntrol
prograres. The next two sections are a
discussicn cf contents of the IPL and Jot
Control phases. The last secticr. cf the
rranual. the appendixes, contains label
lists, errcr rressages, charts, ar.d tatles
for use as references in analyzing prograrr
details.

Languag~,

Publications related in sutject rratter tc
the eight systerr control PL~s are:

The detailed flowcharts are identified
ty letters AA through ZZ. Numerals such as
CO fcr the prcgrarr level flc~charts
identify the more general flcwcharts.

CON'IEN'IS

INTRODUCTION • • • • • • • • • • • • • • 11
Initial Program Load (IPL) • • • • • • • 11
Job Control Fregram ($JOBC'ILA-$JOECTLN) 11

.....

IPL PRCGRAM
$$A$IPLl and $$A$IPL2, Chart 01
$IPLRT2, Chart 02
$IPLRT3, Chart 03
$IPLRT4., Chart 03
$$ECAR'IR
$IPLRT5, Chart 04

·
·
·
·
·

· 13
· 13
16
· 16
· 16

·· 17
· 17

JOE CONTROL PROGRAM
• •
I/C Flew • • • • • • •
• •
Prograrr Flew • • • •
• • • • •
$JCECTLA (Charts 05 and 06)
• • • • •
$JCBCTLB (Chart 07)
••••
$JCECTLD (Charts 08 and 09)
$JOECTLE (Chart 10)
••••
• •
$JOBCTLF (Chart 11)
••••
$JOECTLG (Charts 12 and 13)
$JOBCTLJ (Charts 14, 15, and 16) • • •
$JOECTLK (Charts 17 and 18)
•
$JCBCTLM (Chart 19)
••••

25
25
25
26
26
26
26
26
26
26
26
26

(Chart 20)
$$ELS'IIC • • • • • •
Fhase-Vector Table •
$JOEC'IL~

• • 26
27
• • 27

....·...
AFPENDIX A: LAEEL LIE'I
·
APPENDIX E: ERROR MESSAGE CRCSS
REFERENCE . . . . . .
·....

CHAR'IS

.

AFFE~DIX

REFERENCE

C: TOTAL MESSAGE CRCSS
••• • • • • • • • •

45
• .265

.277
.279

AFPENDIX t:
SYMEOLS

EXPLANA'IICN OF

AFPENDIX E:

SAMPLE LIS'IIC PRIN'IOU'IS • • 289

FLC~CHAR'I

• .287

AFFENDIX F: VARIOUS CONTROL ELCCKS AND
'IAELES •
• • • • • • • • • • • • • • 291
GLCSSARY •

• .337

INI:EX

• .341

FIGURES

Figure 1. I/O Tables for ~~o-Device
System
• • • • • . • • • • • • • 14
Figure 2.
IPL Real Storage ~ar
• 15
Figure 3. IFL Corrmands (Part 1 of 3)
• 18
Figure 4. Phase-Vector Table Entry
Farrrat
• • • • • • • . • • • • • • • 27
Figure 5. DFB Format • • • • • • • • • 27
Figure 6.
Samrle LISTIO Printouts
• • 289
Figure 7. Fartition Communications
Region (Part 1 of 6)
•••••
..291
Figure 8. System Communications
Region (SYSCCM) (Part 2 of 2)
• • • • • 298
Figure 9. Command Control Block (CCB)
(Part 1 of 3)
• • • • • •
.299
Figure 10. Fhysical Unit Block (PUB)
Table
• • • • • • • • • . • • • • • 302
Figure 11.
NICL, FICL and LUB ~ables .304
Figure 12. ~are Error Block Table
(TEBTAB) •
• • • • • • • • • • • • 305
Figure 13. Disk Inforrratien Bleck
(DIB) Table
• • • • • •
.306
Figure 14.
Program Information Eleck
(PIB) Table (Part 1 of 2)
.308
Figure 15.
I/C Table
Interrelationshirs (Part 1 of 3)
• • 310
Figure 16. Job Information Bleck
(JIB) Table • • • • • • • • • • •
.313
Figure 17. Job Accounting Interface
Partition Tatle (ACCTxx) (Part 1 of 2) .314
Figure 18. Job Accounting Interface
Comrrcn Table (ACCTCOMN) (Part 1 of 2)
.316
Figure 19. Recorder File ~atle (Fart
1 of 2)
• • • • • • • • • • • • • • • . 318
Figure 20. Accessing the FUB2AREA
(PUB2 Table)
• • • • • • • • • • • • • 320
Figure 21. FUB2 ~able Entry Forrrat for
Unit Record and Unsupported Devices • • 321
Figure 22. FUB2 ~able Entry Forrrat for
3886 Optical Character Reader
• • 321
Figure 23.
FUE2 Table Entry Forrrat
for DASD
• • • • • • • • . • • • • . . 322
Figure 24.
FUB2 Table Entry Forrrat
for Tapes (Part 1 of 2)
• • • • • • 323

Figure 25. Counter overflow, Device
ECD, and sVC-Requested Record Forrrats
en IJSYSRC for 1030, lC5C, lC6C, 1130,
115A, 2020, 2260, 2701, 2702, 2703,
• .325
Figure 26. Counter Cverflow, Volurre
Dismount, Device ECD, and
SVC-Reguested Record Formats on
IJSYSRC fer 2400T9 (Part 1 of 2)
• • • 326
Figure 27. counter Cverflow, Velurre
Dismount, Device ECD, and
SVC-Reguested Record Forrrats on
IJSYSRC fer 3420
•••••••
• .328
Figure 28. Counter Cverflow, Volurre
Disrreunt, Device ECD, and
SVC-Reguested Record Forrrats for 3410
en IJSYSRC
•••••••••••
.329
Figure 29. Unit Check Condition,
counter Cverflow, Device ECD, and
sVC-Reguested Record Fcrrrats en
IJSYSRC fer 1017, 1017~P, 1018,
• • • .33 C
Figure 30. Unit Check conditicn,
Device ECD, Counter Cverflow, and
SVC-Reguested Record Forrrats on
IJSYSRC fer 1287, 1288, and 1419S • • • 331
Figure 31. Unit Check Cenditicn,
Devioe ECD, Counter Cverflow, and
SVC-Reguested Record Forrrats on
IJSYSRC fer 3504, 35CS, 3525 Punch,
• .332
Figure 32. ceunter cverflcw, Velurre
Desmount, Device ECD, and
SVC-Reguested Reeerd Fernats en
IJSYSRC fer 3330 and 3340
.333
Figure 33. Ccunter Cverflcw, Device
ECD, and sVc-Requested Reccrd Fcrrrats
en IJSYSRC fer 3211 • . • • • • • • • • 334
Figure 34. IPL Record Fcrrrat on
IJSYSRC • • • • • • • . • • • •
• .335
Figure 35. System End of Day (SECD)
Record Forrrat on IJSYSRC
• • • • • • .335

CHARTS

Chart 00. risk Cperating
System/Virtual storage Program Flow • •
Chart 01. Initial Program Lcad
($$A$IPLl and $$A$IPL2)
••••••••
Chart 02.
Initial Program Lcad
($IFLRT2)
••••••••
• • • •
Chart 03. Initial Program Lcad
($IFLRT3 and $IPLRT4)
Chart 04. Initial Program Load
($IPLRT5)
••••••••
• •
Chart 05. Job Control ($JCECTLA) Root
Phase (Part 1 of 2)
••••••
•
Chart 06. Jot Control ($JCEC~LA) Rcot
Phase (Part 2 of 2)
••••••••••
Chart 07. Jot Control ($JOEC~LE)
Restart Processor • • • • • • •
Chart 08. Job Control ($JCECTLr)
Statement Processor (Part 1 cf 2)
•
Chart 09. Job Control ($JCECTLr)
Statement Processor (Part 2 cf 2)
•••
Chart 10. Jot control ($JOEC~LE)
Statement Processor • • • • • • •
•
Chart 11. Jcb Control ($JCECTLF)
Statement Processor • • • • • • •
•
Chart 12. Job Control ($JCECTLG)
Statement Processor (Part 1 of 2)
•
Chart 13. Jcb Control ($JCECTLG)
Statement Processor (Part 2 cf 2)
•
Chart 14. Job Control ($JCECTLJ)
Statement Processor (part 1 of 3)
Chart 15. Job Control ($JCECTLJ)
Statement Processor (Part 2 of 3)
Chart 16. Job Control ($JCECTLJ)
Statement Processor (Part 3 of 3)
Chart 17. Job Control ($JCECTLR)
Statement Prccessor (part '1 of 2)
Chart 18. Job Control ($JCECTLR)
Statement Processor (Part 2 of 2)
Chart 19. Job Control ($JCEC'IUO
~
Chart 20. Job Control ($JCECTLN)
•
Chart AA. $$A$IPLl - IPL Ecctstra~ • •
Chart EA. $$A$IPL2 - Clear Storage
and Load supervisor • • • • •
• •
Chart EB.
$$A$IPL2 - Initiate Systerr
(Part 1 of 2)
•••••••••••••
Chart BC. $$A$IPL2 - Initiate Systerr
(Part 2 of 2)
•••••••••••••
Chart ED.
$$A$IPL2 - Input/Cutput
Sutroutine • • • • • • • • • • • • • • •
Chart CA.
$IPLRT2 - Initializaticn
Routine (Part 1 of 2)
•••••••••
Chart CB. $IPLRT2 - Initializaticn
Routine (Part 2 of 2)
••••••
•
Chart CC. $IPLRT2 - Mcnitcr, Read
Control Card, and operation Scan
Routines • . . • • • • • • • • • . •
Chart CD. $!PLRT2 - Monitor Storage
Usage for Arr, DEL, CAT and rPD
Corrnands • • • • • • • • • • • • • • • •
Chart CE. $IPLRT2 - Mcnitcr Stcrage
Usage for SET Corrmand • • • • • • • • •
Chart CF.
$IPIRT2 - Mcve Rcutine • • •

10
21
22
23
24
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
45
46
47
48

Chart CG. $IPLRT2 - Update IUE, Get
Cperand, and Conversion sutrcutines • •
Chart CH. $IPLRT2 - I/O sutrcutines • •
Chart CJ. $IPLRT2 - Allccate Core
Routine • . • • •
• • • . • • . •
Chart DA. $IPLRT3 - Arr a Device
(Part 1 of 2)
• • • • •
•
Chart DB. $IPLRT3 - Arr a Device
(Part 2 of 2)
• • • • • • • •
Chart DC. $IPlRT3 - Delete a PUE
(Part 1 of 2)
• • • • • • • • • • •
Chart DD. $IPLRT3 - relete a PUE (Part
2 cf 2)
••••••
• • • • • • •
Chart DE. $IPLRT3 - Build PUB Tatle
Subroutine • • • • • • • • • • • • • • •
Chart rF. $IPLRT3 - Device Ty~e
Ccnversion Subroutine • • • • • • • • •
Chart DG. $IPlRT3 - Ccnversion and
Update FCCl Subroutines • • • • • • • •
Chart EA. $IPLRT4 - SET staterrent
Processor and Assign SYSLCG (Part 1 of
2) • • • • • • • • • • • • • • • • • •
Chart EE. $IPLRT4 - SE~ Staterrent
Processor and Assign SYSLCG (Part 2 of
2) • • • • • • • • •
•
Chart EC. $IPLRT4 - Assign SYSRES and
~ove I/O Tables
•• • • • • • • •
•
Chart ED. $IPLRTQ - I/O and CbeCK
revice Type Subroutines • • • • •
•
Chart EE. $IPLRT4 - Find PUE and I/O
Sutroutines
• • • • • • • • •
Chart EF. $IPLRT4 - Date and Tirre
sutroutines • • • • • • • • • • • • • •
Chart EG. $IPLRT4 - Copy Sutroutine • •
Chart EB. $IPLRT4 - Set Job Ccntrcl
Flags Sutroutine • • • • • • • • • • • •
Chart EJ. $IPLRT4 - Recrder MPX
Channel LUEs and PUBs • • • • • • •
Chart EK. $IPLRT4 - Euild PUE2 Tatle
sutroutine • • • • • • • • • • . • • • •
Chart EL. $IPLRT4 - Test for Not
cperational DASD Devices • • • • • • • •
Chart EM. $IPLRT4 - Check Latel
Cylinder Crganization
• • • • • • •
Chart EN. $IPLRT4 - Make a PUB Search
fcr a rcc revice • • • • • • • • •
•
Chart EP. $IPLRT4 - Model 115/125 RMS
Su~port

49
50
51
52
53

54
55

56
57

58
59
60
61
62

63
64
65
66

67
68
69
70
71
72
73
74
75

76
77
78

• • • • • • • • • • • • • • • • 79

Chart EQ. $IPLRT4 - Set Line Mode
•
Chart ER. $IPLRT4 - Check Eurst and
MICR Device on Multiplex Channel (Part
1 cf 2)
•.•..••.........
Chart ES. $IPLRT4 - Check Eurst and
~ICR Device on Multiplex Channel (Part
2 of 2) • • • • • • • • • • • • • • • •
Chart ET. $IPLRT4 - Channel Switching
Routine • • • • • • • • • • • • • • • •
Chart FA. $IPLRT5 - CAT and rpr
Frccessor • • • • • . • • • • • • • • •
Chart FB. $IPLRT5 - DPr Frccesscr Cpen
Chart FC. $IPLRT5 - Check DPr Cverlap •

80
81

82

83
84
85
86

Chart FD. $IPLRT5 - DPB processing
Forrratting • • • • • • • • • • ••
• 87
Chart FE. $IPLRT5 - DPD prccessing of
Cperands • • • • • • • • • • • • •
88
Chart FF. $IPLRT5 - DPD Unit Check and
Assign • • • • • • • • . • • • • • • • • 89
Chart FG. $$BCARTR - 3340 Cartridge
Reccgnition Routine •• • • • • • • • • 90
Chart GA. $JOBC~LA - Initializatien
(Part 1 of 2)
• • • • • • • • • • 91
Chart GB. $JCBCTLA - Initializatie~
(Part 2 of 2)
• • • • • • • • • • 92
Chart GC. $JCBCTLA - Centrcl Statenent
• 93
Read • • • • • • • •
Chart GD. $JCBCTLA - Test ECJ, ECP,
CANCEL and SYSRDR Assignment • • • • • • 94
Chart GE. $JOBC~LA - Phase Vectcr
Table Lookup • • • • • • • • • • • • • • 95
Chart GF. $JOBC~LA - DSKIN~ Subrc~tine 96
Chart GG. $JCBCTLA - Initialization of
• 97
Procedure Processing
• • • •
Chart GH. $JCBCTLA - Error Routine for
Handling Lost JIBs • • • • • •
98
Chart GJ. $JOBCTLA - Message
Subroutines • • • • • • • • • • • • • • 99
Chart GK. $JOBCTLA - Cperand Scan
Subroutines • • • • • • • • • • • • • • 100
Chart GL. $JOBCTLA. Miscellaneous
Subroutines • • • • • • • • • • • • • • 101
Chart GM. $JCBCTLA - Read Control
Statement from SYSLOG or SYSRDR
• 102
Chart GN. $JCBCTLA - Subroutines for
Cataloged Procedure cverwrite Handling .103
Chart GP. $JCBCTLA - Subroutines for
Cataloged Procedure Overwrite Handling .104
Chart GQ. $JOBC~LA - EXCP Subrcutines
(Part 1 of 4) • • • • • • • • • • • • • 105
Chart GR. $JOBC~LA - EXCP Subrcutines
(Part 2 of 4)
• • • • • • • • • • 106
Chart GS. $JCBCTLA - EXCP Subrcutines
(Part 3 of 4) • • • • • • • • • • • • • 107
Chart GT. $JOBC~LA - EXCP Subreutines
(Part 4 of 4) • • • • • • • • • • • • • 108
Chart GU. $JOBCTLA - Miscellaneous
• .109
Subroutines • • • • • • • • •
Chart GV. $JOECTLA - Error
Subroutines (Part 1 of 2)
.110
Chart GW. $JOECTLA - Error
Subroutines (Part 2 of 2)
• • 111
Chart GX. $JOECTLA - Relocation
.112
Subroutines • • • • • • • • • •
Chart HA. $JCBC~LB - Disk Restart
Preparation (Part 1 of 3) • • • • • • • 113
Chart HB. $JCBCTLB - Disk Restart
Preparation (Part 2 of 3) • • • • • • .114
Chart HC. $JCBCTLB - Disk Restart
preparation (Part 3 of 3) • • • • • • .115
Chart HD. $JCBCTLB - Test Restart
Partition • • • • • • • . • • • • • • • 116
Chart HE. $JCBCTLB - Test Restart
Reccrd (Part 1 of 2) • • • • • • • • • • 117
Chart HF. $JCBCTLB - Test Restart
Record (Part 2 of 2) • • • • • • • • • • 118
Chart HG. $JCBCTLB - Restart
Subroutines • • • • • • • • •
• 119
Chart JA. $JOEC~LD - ASSGN Staterrent
Processor (Part 1 of 16) • • • • • • • • 120

Chart JE. $JCBCTLD - ASSGN Statenent
Processor (Part 2 of 16) • • • • • • • • 121
Chart JC. $JCBCTLD - ASSGN Statenent
Prccessor (Part 3 of 16) • • • • • • • • 122
Chart JD. $JOBCTLD - ASSGN Statenent
Processor (Part 4 of 16) • • • • • • • • 123
Chart JE. $JCECTLD - ASSGN Statenent
Processor (Part 5 of 16) • • • • • • • • 124
Chart JF. $JCBCTLD - ASSGN Staterrent
Processor (Part 6 of 16) • • • • • • • • 125
Chart JG. $JCECTLD - ASSGN Statenent
Processor (Part 7 of 16) • • • • • • • • 126
Chart JH. $JCBCTLD - ASSGN Statenent
Processor (Part 8 of 16) • • • • • • • • 127
Chart JJ. $JCBCTLD - ASSGN Staterrent
Processor (Part 9 of 16) • • • • • • • .128
Chart JR. $JCBCTLD - ASSGN staterrent
Processor (Part 10 of 16) • • • • • • • 129
Chart JL. $JCBCTLD - ASSGN Statenent
Processor (Part 11 of 16) • • • • • • .130
Chart JM. $JCBCTLB - ASSGN Staterrent
Processor (Part 12 of 16) • • • • • • .131
Chart IN. $JCECTLD - ASSGN Statenent
Processor (Part 13 of 16) • • • • • • .132
Chart JP. $JOBCTLD - ASSGN Staterrent
Processor (Part 14 of 16) • • • • • • .133
Chart JQ. $JOBCTLD - ASSGN staterrent
Processor (Part 15 of 16) • • • • • • .134
Chart JR. $JOBCTLD - ASSGN Staterrent
Processor (Part 16 of 16) • • • • • • .135
Chart JS • $JCECTLD - CLCSE Staterrent
Processor • • • • . • • . • • . • . • . 136
Chart KA. $JOECTLD - Miscellaneeus
Subroutines (Part 1 of 9) • • • • • • • 137
Chart KB. $JOECTLD - Miscellaneous
Subrcutines (part 2 cf 9) • • • • • • • 138
Chart KC. $JOBCTLD - Miscellaneous
Sutrcutines (Part 3 ef 9) • • • • • • • 139
Chart RD. $JOECTLD - Miscellaneous
Sutrcuti~es (Part 4 ef 9)
• • • • • • • 140
Chart RE. $JCBCTLD - Miscellaneous
Sutrcutines (Part 5 ef 9) • • • • • • • 141
Chart KF. $JCBCTLD - Y.iscellanecus
Subroutines (Part 6 of 9) • • • • • • • 142
Chart RG. $JOBCTLD - Miscellaneeus
Subroutines (Part 7 of 9) • • • • • • • 143
Chart RH. $JOBCTLD - y.iscellanecus
Subroutines (Part 8 of 9) • • • • • • • 144
Chart RJ. $JCBCTLD - Miscellaneeus
Subroutines (Part 9 of 9) • • • • • • • 145
Chart KR. $JOBCTLD - SYSxxx Cperand
Frccesscr • • • • • • . . • • . • • . . 146
Chart KL. $JCBCTLD - EXCP Sutroutines .147
Chart KM. $JOECTLD - Errer Subrc~tines .148
Chart RN. $JOECTLD - Test Precedure
and GE~PUE Subroutines
.149
Chart LA. $JOBCTLE - EXEC Staterrent
.150
Prccesscr (Part 1 cf 8)
Chart LE. $JOECTLE - EXEC Statenent
.151
Precesser (Part 2 cf 8)
Chart LC. $JOBCTLE - EXEC Statenent
.152
Processor (Part 3 of 8)
EXEC Statenent
Chart LD. $JOECTLE
.153
Processor (Part 4 of 8)
Chart LE • $JOBCTLE - EXEC Statenent
.154
Processor (Part 5 of 8)
Chart LF. $JCBCTLE - EXEC Statenent
.155
Prccessor (Part 6 of 8)

.······
·······
·······
·······
·······
·······
·······

Chart LG.
$JOEC'ILE - EXEC Statenent
Processor (Part 7 of 8)
• • • • • • • • 156
Chart LH.
$JOECTLE - EXEC Staten-ent
Prccessor (Part 8 of 8)
• • • • • • • • 157
Chart LJ.
$JOECTLE - FCMAIN'I Rcutine
(Part 1 of 2)
• • • • • • • • • • • • • 158
Chart LK.
$JOECTLE - FCMAIN'I Rcutine
(Part 2 of 2)
• • • • •
• .159
Chart LL. $JCBC'ILE - SEEKINI'I
Subroutine. • • • • • • • • •
• .160
Chart LM.
$JOBCTLE - 'ISTSLC and
CILPCIL Subroutines • • • • •
• .161
Chart LN.
$JOEC'ILE - RDSYSCIR
Subroutine. • • • • • • •
• .162
Chart LP.
$JOECTLE - EXEC PROC=
Statement Processor • • • • • •
• .163
Chart LQ.
$JOECTLE - Syntax Checking
Subroutine • • • • • • • • • • • • • • • 164
Chart LR.
$JOECTLE - Miscellanecus
Subroutines (Part 1 of 3)
• • • • • • • 165
Chart LS.
$JOECTLE - Miscellanecus
Subroutines (Part 2 of 3)
• • • • • • • 166
Chart LT.
$JOEC'ILE - ~iscellanecus
Subroutines (Part 3 of 3)
• • • • • • • 167
Chart LU.
$JOEC'ILE - Error Subrcutines 168
Chart MA.
$JOECTLF - LISTIC Statenent
Processor (Part 1 of 5)
• • • • • .169
Chart ME.
$JOEC'ILF - LISTIC Statenent
Processor (Part 2 of 5)
• • • • • .170
Chart MC.
$JOEC'ILF - LISTIC Statenent
Processor (Part 3 of 5)
• • • • • • 171
Chart MD.
$JOECTLF - LISTIC Statenent
Prncessor (Part 4 of 5)
• • • • • • 172
Chart ME.
$JOBC'ILF - LISTIC Statenent
Processor (Part 5 of 5)
• • • • • .173
Chart MF.
$JOBC'ILF - RESE'I Statenent
Processor (Part 1 of 2)
• • • • • • • • 174
Chart MG.
$JOBC'ILF - RESE'I Statenent
Processor (Part 2 of 2)
• • • • • • • • 175
Chart MH.
$JOBC'ILF - OVCDN Statenent
Processor (Part 1 of 2)
• • • • • • • • 176
Chart MJ.
$JOBCTLF - CVCDN Statenent
Processor (Part 2 of 2)
••••
• .177
Chart MK. $JCBCTLF - MAP Connand
Processor (Part 1 of 2)
••••
• .178
Chart ML. $JCBC'ILF - Map Ccnnand
Processor (Part 2 of 2) and tVCUP
Statement Prccessor • • • • • • • • • • 179
Chart MM. $JCBCTLF - UNBATCH Connand
Processor • • • • •
• • • • • • • • 18C
Chart MN. $JCBCTLF - UNA Statenent
Prccessor (Part 1 of 2)
• • • • • • • • 181
Chart MP. $JCBCTLF - UNA Statenent
Processor (Part 2 of 2)
• • • • • • • • 182
Chart MQ. $JCBCTLF - Miscellanecus
Subroutines (Part 1 of 3)
• • • • • • • 183
Chart MR. $JCBCTLF - Miscellanecus
Subroutines (Part 2 of 3)
•••••
.184
Chart MS. $JCBCTLF - Miscellanecus
Subrcutines (Part 3 of 3)
• • • • • • • 185
Chart NA.
$JOECTLG - JOB Statenent
Processor (Part 1 of 3)
• • • • • • • • 186
Chart NE.
$JOEC'ILG - JOB Statenent
Processor (Part 2 of 3)
• • • • • • • • 187
Chart NC. $JCBC'ILG - JCB Statenent
Processor (Part 3 of 3)
• • • • • • • • 188
Chart NO. $JCECTLG - /& Statewent
Prccessor (Part 1 of 3)
• • • • • • • • 189

Chart NE. $JOECTLG - /& Statenent
Processor (Part 2 of 3)
• • • 190
Chart NF. $JOECTLG - /& Staten,ent
Processor (Part 3 of 3) and CANCEL
Statement Frocessor • • • • • • •
.191
Cbart NG. $JOECTLG - OFTICN Statenent
Frccesscr (Part 1 cf 4)
• • • • • • • • 192
Cbart NE. $JOBCTLG - OFTICN Statenent
Frccesscr (Part 2 cf 4)
• • • • • • • • 193
Cbart NJ. $JOBCTLG - CF'TICN Statenent
Frccesscr (Part 3 cf 4)
• • • • • . • • 194
Chart NK. $JOECTLG - CFTICN Statenent
Frccesscr (Part 4 cf 4)
• • • • • • • • 195
Cbart NI.
$JOBCTLG - 'Iirre stan~ing
SUbroutines • • • • • • • • • • • • • • 196
Cbart NM. $JOBCTLG - Miscellanecus
Subroutines (Part 1 of 3)
• • • • • • • 197
Cbart NN.
$JOBCTLG - Miscellanecus
Subroutines (Part 2 of 3)
• • • • • • • 198
Cbart NP.
$JOECTLG - Miscellanecus
Subroutines (Part 3 of 3)
• • • • • • • 199
Cbart NQ. $JOECTLG - Label Processing
Subrcutines (Part 1 cf 2)
• • • • • • • 2CO
Chart NR. $JOECTLG - Label Processing
Subrcutines (Part 2 cf 2)
• • 201
Chart NS. $JOECTLG - /+ (End of
Procedure) Statement Processcr •
• .202
Chart NT. $JCECTLG - ECF Subrcutines
(Part 1 of 2)
• • • • • • • • 203
Chart NU. $JCBCTLG - ECP Subrcutines
(Part 2 of 2)
• • • • • • • • 204
Chart PA. $JOECTLJ - HCLt Connane
Processor
• • 205
cnar~ ~~.
$~CEC~~J - ~C2 C~~rra~d
Processor (Part 1 of 2)
• • • • • • • • 206
Cbart PC.
$JCECTLJ - ucs Conrrane
Frccessor (Part 2 of 2)
.207
Chart PC.
$JCBCTLJ - AC'IION and
INCLUDE Statement Prccessors • • • • • • 208
Cbart PEe $JOECTLJ - M'IC Staterrer.t
Frocessor (Part 1 of 2)
• • • • • • • • 209
Chart PF. $JCECTLJ - M'IC Staterrent
Frocessor (Part 2 of 2)
• • • • • • • • 210
Chart PG.
$JCBCTLJ - SE'I staterrent
Processor (Part 1 of 3)
• • • • • • • • 211
Cbart PH.
$JCECTLJ - SE'I Staterrent
Processor (Part 2 of 3)
• • • • • • • • 212
Chart FJ.
$JOECTLJ - SE'I staterrent
Frocessor (Part 3 of 3)
• • • • • • • • 213
Chart PK.
$JCBCTLJ - UPSl StaterreDt
Processor • • • • • • • • • • •
• .214
Chart PLo $JCECTLJ - PAUSE, LCG, and
NCLOG Corrrrand Prooessors • • • • • • • • 215
Chart PM. $JOECTLJ - S'IOF Staterrent
Processor
• • 216
Chart PN.
$JOECTL·J - CA'IALR Statenent
Processor • • • • • • • • •
• .217
Chart FP.
$JOECTLJ - SE'ISVA a~a
SE'ISOL Statereent Processcrs
• • 218
Chart FC.
$JOECTLJ - ALICC Statenent
Processor • • • • • • • • • • • • • • • 219
Chart PRo
$JOECTIJ - ALLeCR Staterrent
Processor (Part 1 of 2)
• • • • • • • • 220
Chart PS. $JOECTLJ - ALLCCR Staterrent
Prccesscr (Part 2 cf 2)
• • • • ~ • • .221
Chart P~.
$JOECTLJ - Miscellanecus
Subroutines (Part 1 cf 2)
• • • • • • • 222

Chart PU.
$JCECTLJ - ~iscellanecus
Sucroutines (Part 2 of 2)
• • • • • • • 223
Chart PV.
$JOBCTLJ - Error Sucrcutines 224
Chart CA. $JOECTLK - LBLTYP. VCl. &
TPlAE Staterr.ent Processors • • • ••
.225
Chart CB.
$JOECTLK - TLBI Staterrent
Prccessor •• • • • • • • • • • ••
.226
Chart CC.
$JOBCTLK - label Precessing
Sucroutines (Part 1 of 2)
• • • • • • • 227
Chart CD.
$JOECTLK - label precessing
Sucroutines (Part 2 of 2)
.......228
Chart CE.
$JOECTLK - DLBl Staterrent
Processor • • • • • • • . • • • • • • • 229
Chart CF.
$JOECTLK - DLAB Staterrent
Processor • • • • • • • . • • • • • • • 230
Chart CG.
$JOECTLK - XTENT Staterrent
Prccessor (Part 1 of 2)
. • • • • • • • 231
Chart CR.
$JOBCTLK - XTENT Staterrent
Processor (Part 2 of 2)
• • • • • • 232
Chart CJ.
$JOECTLK - EXTENT Staterrent
Prccessor (Part 1 of 3)
• • • • • • 233
Chart CK.
$JOECTLK - EXTENT Staterrent
Processor (Part 2 of 3)
• • • • • • 234
Chart eL.
$JOBCTLK - EXTENT Staterrent
Processor (Part 3 of 3)
• • • • • • 235
Chart eM. $JCBCTlK - label Processing
Sucrcutines (Part 1 of 3) • • • • • • • 236
Chart eN. $JCBCTlK - Label Processing
Sucroutines (Part 2 of 3)
• • • . • • • 237
Chart CP. $JCBCTlK - Label Processing
Sucroutines (Part 3 of 3)
• • • • • . • 238
Chart CQ.
$JOECTLK - RSTRT Staterrent
Processor • • • • • • • • • • • ••
.239
Chart CR. $JCBCTlK - Miscellanecus
Subroutines • • • • • • • • • • .
..240
Chart CS.
$JOECTLK - Error Sucrcutines 241
Chart RA. $JCECTlM - Recorder File
Initializaticn (Part 1 of 2) • • • • • • 242
Chart RB. $JCBCTlM - Recorder File
Initializaticn (Part 2 of 2) • • •
243
0

••

Chart RCo $JCECTLM - RCD Staterrent
Prccessor •
o.
•
•
244
Chart RD. $JOBCTlM - MDR Recerds fcr
3330/3333/3340 • • •
• .245
Chart RE. $JCECTLM - Build ECB
Cutbcard Record
.246
Chart RF. $JOECTlM - Phase
Initialization Routine.
.247
Chart RG. $JOBCTlM - Euild Channel Ma~
Rcutine • • •
o.
.248
Chart RH. $JOBCTLM - Miscellanecus
Subrcutines (Part 1 cf 10 .
..249
Chart RJ. $JOBCTLM - Miscellanecus
Subreutines (Part 2 ef 1e) • • • • • • • 250
Chart RK. $JOBCTlM - Miscellanecus
Subreutines (Part 3 ef 1e) • • • • • • . 251
Chart Rl. $JOBCTlM - Miscellaneous
Subrcutines (Part 4 cf 1e) . • • • • • . 252
Chart RM. $JOBCTLM - Miscellanecus
Subrcutines (Part 5 cf 10 • • • • • • . 253
Chart RN. $JOBCTLM - Miscellanecus
SUbrcutines (Part 6 cf 10 • • ••
..254
Chart RP. $JCBCTLM - ~iscellanecus
Subroutines (Part 7 cf 10) • • • • • • . 255
Chart RQ. $JCBCTLM - Miscellanecus
Subrcutines (Part 8 cf 1e) . • • • • • . 256
Chart RR. $JCBCTlM - Miscellanecus
Subroutines (Part 9 cf 10) • . . • • • • 257
Chart RS. $JOBCTlM - Miscellanec~s
Sucroutines (Part 10 of 10)
• • • • • • 258
Chart SA. $JCBCTlN - Jcb Acccunting
Interface (Part 1 of 2)
• • • • • • • • 259
Chart SB. $JOBCTLN - Jcb Acccunting
Interface (Part 2 cf 2)
• • • • • • • • 260
Chart TA. $$BLSTIC - Initializaticn • • 261
Chart TB. $$BLSTIC - Cferand
Identification Sucroutine • • • • • • • 262
Chart TC.
$$ELSTIC - Euild Print line
Sucroutine
• .263
Chart TD.
$$ELSTIC - Build Header
Subroutine
• .264
0

•

0

0

•

•

•

•

0

0

0

•••••

0

•

•

• • • • • • •

0

••

o
::r

------~.--------------~r ....... _............ . .
DOS/VS
IPL.ndJob

Control

1\1

I

I

SuPlrvIIl"

IPl
IPL BOOTSTRAP'
IPL BOOTSTRAP 2

•

IPL - PHASE 1

ISSASIPL21

TASK SELECTION, INTER-

IRool ph_, ADD, DEL
;ET.DPDandCAT

AU" PROCESSORS. PAGE
MANAGEMENT, PHYSICAL

;lateml"1 P'OCftMlrs

IOCS, DISK ERROR "ECOY·
ERY, PHVSICAL ATTENTION'

rt

DCISIvS Error RKOWI'V and Recotdl"l Tr......

I

W-

R·T.-ENTS
ON" eHick
CHINNiL

.
o
o

I

CHECK. MACH,"E CHECK

I

,RlCOVERY AND RECOIl-

I
I
I
I

LOAD AND
INITIALIZE
THE SUPERVISOR
tSlASSUP1}

SIPLRT2-5

t;

------------------- -r---------- - ------- ------

DOB/VS

....ent1

;DlNG TRANSIENT fIOU·
TINES

I

~------------------~
I
I
DOSfVS Loec-I Tr....-nt.

I
I

,,
,,

1\1

LOGICAL ATTENTION
TERMINATOR IEOJ ••
CRT AND OTHER
TRANSIENT ROUTINES

....rt::s

,

..1I1I1I1I1I1I1I1I1I1I1I~..IIIIIIIIIIIIII....IIIIIIIIIIII-.-.-I1-.-.-.-.-.
II

EXEC LANGUAGE PROCESSOR

II EXEC

•

II EXEC LNKEOT

r-----

~

------.

$LNKEDT

LANGUAGE TRANS

PLII tDl RPG,
fORTRAN COBOL
AS$EMBLER

EXECUTE PHASE
JUST LINK EOtTED

•

r-I
I

I

SORT

~RGE

1.. - - - - - - - - -

I

DOSjVS

I

Lobrarlilft

MAINTENANCE
RQOTPHASE

~

~-V~:~:'~~"~"-I---:

I

I
I
I

r--'
I

r
I

,
I

.,,,,
I

,--

I

l.!nk~

CATALR

-.

1\1

~

C1l
rt

n

CONDENSE ANY

t;

SVST£M OR PRIVATE

1\1
P"r~CI<_ '1
<')
rc x' 7A ,,~-- - ( -' ~-,- 7,
c.~!:', tJ ::s "-'" ~,r'" ~ ~(r J

+'lO J

t

The operation field of the ccntrol
statement is compared to each entry in the
taele until an equal is found.
~he equal
entry identifies the ccrrect phase and the
displacement within the phase of the branch
instruction that directs the prcgrarr, te the
correct processing routine. The entry also
contains a 1-byte condition switch bank
used to control processing fer forrrat
verifioation, logging conventicns, and
cancel procedures for the staterrent.
Figure 4 sho~s the forrrat cf an entry in
the Phase-Vector table.

6 7

!~~~f

rc

The Phase-Vector table contained ie the
root phase ($JCBCTLA) is used te deterrrine
the correct phase and processing rcutine
required to process a given contrel
statement.

Byte 0

Phase Identification Letter: Contains the
EECDIC character A:-r,--F;G. J, K, M, or N
and identifies the jce ccntrcl pbase
containing the processing routine.

8

9

Phase
Branch
Identification
Vector
Displacement Letter

Phase-Vector Table Entry Fcrrrat

ALl(12)
C' G •

:c c

{

\

,

is to te processed \
eyetrif a cancel is teing executed'i

(~j{-"~Ogging

on both SYSLCG ar:d SYSIST is
sUJ;:pressed.

~he s~m,ent::~os_§ta_:rt~jJ::hCJ1J;. .II.)

3.

and «ust s~a~5s1ulr.Ii,::~:(5~,--.., .._. __.• '

~.

~he

1____..,

tranch-vectcr tatle entry is
located at a displacerrent of 12 ~ytes
\frcrr the teginnir.g cf the [hase with
'suffix 'G' ($JCEC'l'lG).

--r

DFB

DS CL6 - - - - - - - -

OFBCBL

os

DFBCBA

DS CL4
CCWaddress
DS CL4 _ _ _ _ _ _ _ _ _ .

tL2

DFBCWA DS CL4

Symbolic unit address

OS CL2

Channel and unit

DFBDVC

DS CLl

Device type

DFBFLG

DS CLl

Flag byte (see Note)

OFBCCU

CCB

ASA CCW address

U!R
TAPE
DASD

DFBCCW OS CLa _~~J!'I~ ~e~f~ ~~L
OS CLa - S e e k - - - - - - - - DS CLa

Search

OS CLa

TIC

DS CLa

Write (count I key I and data)
(chained data)

o

DS CLa

Writ e (data)

DS CLa

Search

Displacement
within the phase that is added to the phase
origin address to develop the address cf a
erRnch instruction wnicn transfers control
to "he C:OL.t€ct processing rcutine.

\-

1

"~'rhe ~Ql~-sf~~';rrent

1

~!~P-E~Y~£!9!_~isEla£§~ent:

- - -"" ... ~

-~

QEerati2Q-Ei§lQ: EBCDIC representation of
the operation field.

- reserved.
- statement is to be processed even
though a cancel condition exists.
2,3 - Both on; suppress logging.
2 off, 3
on; unconditional SYSLCG logging and
conditional SYSIST logging. Both
eff; conditional logging cn SYSLCG
and SYSLST.
q
- statement may start with II.
5
- statement may start ~ithout I I .
6
- statement may start in colurrn 1.
7
- statement may start in other than
column 1.

~- ~

'L--"j

DS CLa

TIC

DS CLa

Verify (count field) (chained data)

OASD
Only

OS CLa _ Verify ~~aL _ _ _ _ _ _
Note:
OFBFLG - flag byte bit
bit
bit
bit
bit
bit
bit
bit

Figure 5.

0:1 = Open
1 :1 = Unit Exception processing
2:1 = U/R device
3:1 = Overlap requested
4:1 = ASA is supported on this device
5:
Not used
6:1 = Attention routine switch
7:1 = CCB has been initiali

TABLE B
SJOBCTLD

PhA:';[

PHASE

Up,'!();lon

C"ort
-

Operation

ASSGN
CLOSE

08
09

DVCDN
DVCUP
LlSTIO
MAP
RESET
UNBATCH

the phase vector table.

2. The operand is checked for val idity.
3. The statement (command) is logged as
specified in the condition switches of the
found entry.

+$JOBCTLF
Chart
-11
11
11
11
11
11

4. If the correct processing phose is not in virtual

storage it is loaded (SVC 4).
5. Processing for II, I', *, IGNORE or
OVEND is in the root phase and they are
processed as fol lows:

TABLE C
PHASE

/ / - The statement is scanned to make the

next operand (operation field) available
for processing. Exit to
1* - Ignored. Exit to
, - Ignored_ Exit to
IGNORE - The Job Control input switch is
set to indicate SYSRDR. Exit to ---1----1
OVEND - Switches are set to prevent any more

---------+---------------1----.
-----------I----f

more overwrite statements being

+-__

read for this procedure. Exit to _ _ _
6. Control is transferred to the correct processing
routine as specified by table A, B, C, D, E,
F, or G for all other operands.

~ CONTROL

....l._~

05

(Stml. 6)

TABLE D
$JOBCTLG

PHASE

Operation

Chart
-

Operation

CANCEL
EOJ-/&EOP-/+-

13
13
13
13
12

ACTION
ENTRY
PHASE
INCLUDE
DATE
SET
UPSI
MTC
UCS
HOLD
CATALR
LOG
NOLOG
PAUSE
STOP
ALLOC
ALLOCR
ZONE

lOB

I OPTION
05

~

I

CONTROL

Operation
RSTRT
LBLTYP
VOL
TPLAB
DLAB
XTENT
DLBL
EXTENT
TLBL

$JOBCTLJ
Chart
-15
15
15
16
16
16
16
16
15
15
16
14
14
14
14
14
14
16

TABLE F

TABLE E
PHASE

~

$JOBCTLK

PHASE

$JOBCTLM

Char'

O~eration

Chart

18
17
17
17
17
17
18
18
18

ROD

19

PHASE

$JOBCTLE

Operation

Chart

EXEC

10

Jot Centrol Fregrarr

29

Chart 07.

Jcb Centro 1 ($JCECTLE) Restart Processor

y

RSTRT

* Chart 18
$JOBCTLK

RSTRT STATEMENT PROCESSOR

Charts HA-HG

Function:

1. Locate proper checkpoint records on specified device
(tape f 2311 f 2314 f 2319 f 3330/3333 or 3340).
2. Restore communication region and PIB for checkpointed
program.
3. PFIX pages which were PFIXed when CHKPT was issued.
4. Clear partition. (If a job to be restarted is running in
virtual mode the page table entries are set so that a page
is cleared when it is requested.)

,

Error exits:
1. ~xtents for SYSxxx (restart file) are not equal to those of
checkpoint file.
1. Two consecutive tape marks found on checkpoint tape.
2. No more free JIBs for restart.
3. Invalid restart device.
The following conditions cause a message to be issued by
$J OBCTLB foil owed by an SVC 6 (CANC EL):
1. Incorrect location and/or size of restart partition.
2. Checkpoint record not found on specified device.
3. Incorrect location and/or size of real partition (for realmode jobs or for virtual-mode jobs with PFIXed pages).
4. No PFIX option in the supervisor of the restart system
(for virtual-mode jobs with PFIX records).

I ...

I ,.

f$$BRMSG 1 ** issue
msg. and cancel

$BRMSG2 **issue
msg. and cancel

~(

t
If there is no error f an SVC 58 is issued which resets the page
table entries for the partition and sets the PSW to call the fetch
routine for $$BRSTRT '-*

c
30

t
SVC 58 )

DOS/VS IPL and Job Contrcl

*" See LlC;- <;

I

,

\'vi 1

inr)otion cl

$$BRS i"R1, $$2,Rtv\SG i and $SBRMSG2.

CANCEL

)

Chart 08.

Job control ($JCECTlt)

State~ent

Prccesscr (Fart 1 cf 2)

* Chart 06
Table A
ASSGN
INITIALIZE, SCAN AND CHECK STATEMENT Charts JA-JC

1. Initializes fields and swit~hes.
2. Tests for statement or command and sets switch for tempo-

YES

UAoriGN
Assignment

rary or permanent assign.

1

3. Checks and converts SYSxxx to the symbolic unit address,

NO

logical unit and class.

• The unit may be SYSREC when

RF~YES

or

HC~YES,

~

and

the recorder file is not yet open. The assign for SYSREC
must be permanent.

ASSGN20

• The unit cannot be SYSRES, SYSVIS or SYSCAT.
• Assignment of SYSCLB is only allowed if the supervisor
supports PC IL.
• Assignment of SYSLNK in the foreground is only
allowed if PCIL i, supported.
• Assignment of SYSLOG is only allowed in the

ASSGN9
VALID DEVICE TYPE VERIFICATION

Charts JE-JH

Checks for physical compatibility between the devices
candidate for the assignment and the logical unit to which
they are being assigned.

background.

4. ASSGNO:
• The unit cannot be SYSLOG if any foreground program
is ~oqdedr or if the Attention Routine is active.

5. SCNOPRS:
~ond and following operands are scanned, and

I

•
•
•
•
•
•
•

information is stored in INFOTAB.
HI and H2 are only valid for MFCM/ MFCU devices.
MODE (X [55') can only be specified for topes.
SHR can only be specified for disks.
ALT can only be specified for tapes.
VOL = can only be specified for tapes and disks.
SYSyyy cannot be SYSOUT.
If SYSyyy is SYSIN, SnlPl and SDkuK musr ae

SELECT THE PUB THAT CAN BE ASSIGNED Chart JJ
1. Checks the status: of the candidate devices, the volume

assigned to the some device.

2.

DEVSCAN

serial numbers and the ownership to find a device that
can be assigned matching the specifications in the
_~5s,r;t-..~

3.

f/'"j_0<:::n

~t""b::>mpl1t

Requests to mount a volume with the specified volume
serial number, if it had not been mounted.
Informs the operator of the cuu of the assigned device.

ENDOPSCN

J

PERFORM ADDITIONAL ERROR CHECKING ON
SPECIFICATIONS
Chart JD

1. If the second operand is UA or IG N, no other operands
except TEMP and PERM are allowed.
llEGXCUU
PREPARE THE ASSIGNMENT
Chart JL
The MODE byte and the the device type in the DTFs

2. Only programmer logical units can be assigned to a 2245
printer.

3. SYSRLB and SYSSLB can anly be assigned to the some
device type as SYSRES.
4. SYSCLB and SYSREC can only be ass igned to disk.
5. If SYSRDR, SYSIPT or SYSIN is assigned, SYSLOG must
be assigned to a 1052 or CRT device.
6. If SYSLOG is assigned to a non 1052/CRT device, SYSRDR

I

are initial ized.

must be assigned.

7. An assignment for SYSCLB or SYSOUT must be permanent.
8. If a system 1/ 0 unit is assigned to disk, SYSFIL must.be
supported and the assignment must be permanent.

9. If a system

All
Assignment

YES

V

0 unit is assigned and the old assignment
was to a disk, the system file must be closed.
lO.lf an ALT assignment is made, the logical unit must already
be assigned to tape.

11.1f an ALT assignment is made for SYSOUT, the ,ystem must
be in SYSOUT mode (SYSLST and SYSPCH must be assigned

NO

ASSNALT

I MAKE ALTERNATE ASSIGNMENT

09

I

to the same dey ice).

12.0f the system units only SYSPCH, SYSLST and SYSOUT can
be assigned ALT.
13.lf the All assignment is TEMP, the logical unit must be
temporary assigned.

14.lf the ALT assignment is PERM, the logical unit must be
permanent assigned.

15.lt is not allowed to give a TEMP assignment for SYSPCH
or SYSLST if the system is in SYSOUT mode.
16.For 0 TEMP assignment of SYSIN, two jiBs must be available.

I

I

Chart JR

Make an alternate assignment in the JIB and set the ownership
byte in the ownership table.

ASSGN20
EXIT

I

~

Chart JR
EXIT ROUTINE
1. Inform the operator of the device assigned.
2. Give file protect message for system output units on tape
if necessary.

~

CONTROL

Jct Ccntrcl Frcgrarr

31

Chart 09.

Job Control

($JCECTL~)

Statement Prcc€sscr (Part 2 of 2)

ASSTEMP
PREPARE TEMPORARY ASSIGNMENT
Chart JN
1. Complete the CLOSE for the file if one in progress before
continuing.

2. ASSGN28:Ntach a JIB to the new LUB in the workarea.
'>.!..:;~

________________

3. Save permanent assignment in the JIB.

If the assignment is for SYSRDR or SYSIPT save and reset
the 80/81 bytes indicators.
5. If the assignment is to a MFCU/ MFCM,set hopper

~_I4.

specification.
6. If the device is a tape and MODE was specified, update

MODE In PUB+5.

ASSPERM
PREPARE PERMANENT ASSIGNMENT

Chart JM

1. Complete the CLOSE for the file if one in progress before
continuing,

....-

<3>'"

Chart jp

OPEN SYSCLB

-

1. SYSCLB is opened.
2. The FETCH table entry is filled in.
3. The second level directory is build.

NO

2. If SYSOUT is assigned and the assignment is for SYSLST,
the JIB pointer in the SYSLST LUB is nulled.
3. If SYSOUT is assigned and the assignment is for SYSPCH
or SYSOUT, the JIB pointer in the SYSPCH LUB is nulled.
4. ASSGN23A: Reset the LUB to permanent unassigned.
5. If the new assignment is to UA or IGN, go to ASSGN24.
6. If the new assignment is for MFCU/ MFCM, the hopper
information is set in PUB+5.
7. If the new assignment is for tape and a MODE was specified,
the standard MGDE in PUB+7 is changed.
S. If t-he assignment is for SYSIPT or SYSRDR, reset the SO/ SI

ASSGN38
System

1/ 0

file

YES ...

OPEN SYSTEM I/O UNITS ON DISK/TAPE
1. Set up the DTF for OPEN.
2. Open the file.

Chart jp

3. Initialize DIB entry if system file is on disk.

NO

4. Set the SO/ SI bytes indicators (a record is read to find
out the record size) for SYSIPT! SYSRDR.

bytes indicators.

9. ASSGN25: Update the SET MODE byte of the PUB (PUB+5).

~

Chart 06
Table A

EXIT

CLOSE
CLOSE STATEMENT PROCESSOR

ASSGN24
MAKE ACTUAL ASSIGNMENT
1. Make the actual assignment
workarea to the LUB table.

Chart IN

by

moving the new LUB from the

2. For multiprogramming and assignment of SYSREC, SYSREC is
assigned for each partition.

3. Set the open flag off in all DFBs using the device.
4.lf the assignment was for SYSIN,SYSIPI must also be assigned.
5.lf the assignment was for SYSOUT,SYSLST must al", be
assigned.
6.,lf SYSLST has been assigned, reset the line count to one.

Chart JS

1. Close a logical unit.
2. The unit may optionally be reassigned to another device,
made UA, made IGN, or if tape it may be specified as an
alternate (ALT). If the unit is a system unit, one of the
optional operands must be specified.
3. If an optional operand is not specified, the programmer
logical unit is closed and the assignment remains unchanged.
4. If an optional operand other than ALT is specified, the

ASSGN statement processor is entered at label ASSGNO·
to make the new assignment.
5. An ALT assignment specifies that the logical unit is to be
closed and an alternate unit is to be opened and used.

The $$B-transient $$BCMT07 is fetched to open the
alternate device.

•
Programmer>-N;.;O;......_ _ _ _ _ _ _ _ _ _...J
UNIT
YES

os
EXIT

32

DOS/VS IFL and Job Contrel

•

The ALI operand is val id only for the system output
units SYSPCH, SYSLST, or SYSOUT assigned to tape.
SYSRDR, SYSIPT, and SYSIN cannot be closed during
procedure processing.

.~.

CONTROL

Chart 10.

Job Control ($JCECTLE) Statement Precessor

7·

Chon
Table "G

EXEC
SCAN AND CHECK FIRST OPERAND

Charts LA-LH

1. If the EXEC statement {or command} is for a catalaged
prodecure, transfers control to the procedure processor
2. Tests if a program name is present and checks it for correct
length.
3. Checks for the REAL and SIZE= parameters. If the REAL
parameter is specified but there is no REAL partition, the
job is canceled. If SIZE= is specified to be 0, the job
is canceled.
4. If job accounting is supported and if this statement
(command) is not the first EXEC. after a JOB statement,
transfers control to $JOBCTLN {after it has first been
loaded by $JOBCTLA}.
5. If a phase name is present, preparations are made to execute
the phase. If the phase name is LNKEDT, the linkarea
descriptor entry will be build. If there is no phase name,
the first Iinkedited phase will be fetched.
6. If any procedure overwrite statements are present, they are
saved in the procedure Iibrory for processing after the job
step has executed.
7. Saves PRCDFI into PRCDIB entry if extended procedure
support is not available.
8. Loads a fetch routine·for the phase to be loaded into registers
9 thru 14. This routine will be called when the partition is
next dispatched.
9. Issues SVC 58 to initialize the page and pageframe table
"ntri" •. SVC 58 will modify the saved PSW to call the
stored fetch routine when the partition is next dispatched.

t

CALL

READ PROCEDURE FROM
PROCEDURE LIBRARY
Chart LP
1. If the procedure name starts with $$, the second $ will be
replaced with a partition identifier.
2. Gets and checks procedure name as well as additional
operands, if any.
3. Searches the procedure library for the desired procedure and
checks the procedure for SYSIPT data.
4. Initializes the system to read SYSRDR and possibly SYSIPT
data from the procedure library.

.~

$JOBCTLN

~

C

SVC 58

)

~

~

CONTROL

* Chart 13

FCHMAINT
CHECK FOR NEW SUPERVISOR CATALOGED AND
CHECK AUTOMATIC CONDENS LIMITS
Charts LJ-LK
1. Check for new supervisor cataloged. If yes, issue message

le90D
2. Check the automatic condens limits:
If a limit is reached, give control to MAINT.
Otherwise issue SVC 14.

JO~

Centrol

Fregra~

33

Chart 11.

Job Control ($JCEC'ILF> Statement Processor

•

DVCUP

~

DVCUP COMMAND PROCESSOR

DVCDN
Chart ML

DVCDN COMMAND PROCESSOR

Makes a device available after it has been dawn. The
procedure is to:
1. Compute the PUB address of the device specified by
the operand X' cuu' •
2. Set the job control flag in the PUB to indicate the
device is up.
3. If the device is tape, the standard mode is restored.

~

MAP COMMAND PROCESSOR

Chart MK
RESET

Displays on SYSLOG the current allocation of each
storage area (supervisor, background, and foreground
partitions (real and virtual), and main the page pool).
Included is the uppper limit of each area as well as
the name of the program currently being executed.
The partition priorities are also displayed. See
map output in 'Logical Transients PLM'.

RESET STATEMENT (COMMAND)
PROCESSOR

~

LlSTIO STATEMENT (COMMAND)
PROCESSOR

Charts MA-ME

Lists the I/o assignments of the system as specified by
one of the following operands.
SYS
PROG
BG
Fl
F2
F3
F4
ALL
SYSxxx
UNITS
DOWN
UA
,
X' cuu
Fetches $$BLSTIO into transient area
Refer to Appendix E for sample printouts.

~

34

DOS/VS IPL and Job Contrel

Charts MF and MG

Reset logical unit assignments to permanent or standard
as specified by one of the following operands:
1. ALL-Resets all assignments in current partition.
2. SYS-Resets all system logical unit assignments in
current partition.
3. PROG-Resets all programmer logical unit assignments
in current partition.
4. SYSxxx-Resets a single logical unit assignment.
• SYSRDR, SYSIPT and SYSIN cannot be reset
during procedure processing.

I
LlSTIO

Charts MH and MJ

Indicates that a device in the PUB table is no longer
available to the system. The procedure is to:
1. Indicate in the PUB for that device that device is
down.
2. Unassign all standard or permanent assignments to
the device in LUB and JIB.
3. Unassign all temporary assignments to the device in
LUB.
4. Remove all alternate assignments to the device.
5. Log all assignments that have been artered.

I
MAP

Chart 06
Table B

UNBATCH
UNBATCH COMMAND PROCESSOR

Chart MM

1. UNBATCH is refused and a message is issued if
SYSRDR, SYSIPT, SYSPCH, or SYSLST is left
assigned to tape or disk.
2. All assignmenfs are reset to UA exept assignments
for SYSLOG, SYSRES, SYSREC, SYSVIS, and
SYSCAT.
3. Detaches the foreground partition by inserting
hex 80 in byte 0 of PIB.
4. Issues a WAIT to a nonexistent CCB, to prevent
the partition from being selected by task selection.

~

CONTROl

Chart 12.

Jeb centrol ($JCECTLG) StateKent Prccessor (Fart 1 ef 2)

7.

Chart 06
Table C

~

OPTION

OPTION STATEMENT PROCESSOR Chart NG
Records the job control options requested

by the

Toble;!,l
PARAM

ROUTIN E LABEL

CHART

DECK

DECK
Set DECK opHon ON, COMREG+.58, b;! 0

NH

f--

NODECK

NODECK
Set DECK option OFF, 'COMREG+58, bit 0

NH

'---

LIST

LIST
Set LIST opHon ON, COMREG+.58, b;! 1

NH

f--

NOLIST

NOLIST
Set LIST opHon OFF COMREG+.58 bit 1
LlSTX
Set LlSTXoption ON COMREG+.58 bh 2
NLlSTX
Set LlSTX opHon OFF, COMREG+.58, b;t 2

programmer. The parameters of the

OPTION statement ore scanned, one at a
time, and control is transferred to the
correct processing routine as shown in

Table 1.

~
~~~/

NO

YES

~ CONTROL

LlSTX
NOLlSJX
SYM

SYM
Set SYM option ON, COMREG+58, bit 3

NOSYM

NOSYM

NH

f-f-f--

NH

f--

NH
NH

Set SYM option OFF, COMREG+58, bit 3

NH

f--

XREF

XREF
Set XREF option ON I COMREG+58, bit 4

NH

I--

NOXREF

NOXREF
Set XREF opHon OFF COMREG+.58 bh 4
ERRS
Set ERRS option ON, COMREG+58, bit 5

ERRS
NOERRS

NOERRS
Set ERRS op!;on OFF, COMREG+.58, b;t 5

48C

C48

NH

f-I--

NH

I--

NH

Set 48 character set opti on

ON, COMREG+.58, bh 6
60C

NH

C60

-. ,- _.

Set 60 character set option
'~~,'"

",:,-...

,.

,

...~t..t

VI", ,-...,.tv"~""V-'-", .... ,"''' '"

LOG

NOLOG

USRLABEL

OPT LOG
Set the SYSLST-LOG opHon ON, COMREG+.59,
bit 3

NK

OPTNLG
Set the SYSLST -LOG option
OFF, COMREG+.59, b;t 3

NH

NJ

DUMP
Set job control dump option ON,

NK

NODUMP
Sef job control dump option OFF, COMREG+59,
bit 1

LINK

NK

LINK
Set LNKEDT control bits, COMREG+57, bits 0,2
Valid for BG only, unless SYSClB assigned.
NJ

NOLINK

NOLINK

CATAL

CATAL

Set LINK option OFF, COMREG+57, bit 0

NK

Set LNKEDT control bits, COMREG+57, bits Q,2,3
Valid for BG only, unless SYSClB assigned.
NJ

SYSPARM

f-f--

PARSTD

COMREG+.59, bh 1
NODUMP

I--

NJ

Initialize job control label processing for
PARTITION STANDARD LABEL processing. Labels
available to programs in only ONE partition.
NJ

DUMP

I--

STDLBL
Initialize iob control lobe! processing for
STANDARD LABEL processing. labels available
to programs in ANY partition.

PARSTD

f--

USRLBL
Initialize iob control
lobel processing for USER LABEL processing

STDLABEL

I--

SYSPRM

-

-----,...-.

NK

f--

Set ALIGN option ON, COMREG+141, bit 1

NH

I--

NOALIGN NOALIGN
Set ALIGN opHon OFF, COMREG+141, bH 1

NH

f--

Save character string

ALIGN

EDECK

ALIGN

EDECK
Set EOECK option ON, COMREG+141, bit 0

NH

NOEDECK NOEDECK
Set EDECK opt;on OFF, COMREG+141, bh 0

NH

ACANCEL Set ACANCEL option on COMREG+141, bit 7
NOACANCEL
Set ACANCEL option off COMREG+141 t bit 7

I-f-f-~

Jot Centrcl Frcgrarr

3S

Chart 13.

Job Control ($JCECTLG) Staterrent Prccessor (Part 2 of 2)
* Chart 06
Table C

CANCEL
CANCEL COMMAND PROCESSOR

cr
2

~

Chart NF

This command is ignored if a job was not in process when it
is encountered.

1. Calls EOP processor if procedure is being executed.
2. Displays the message "JOB - job name - CANCELED
DUE TO OPERATOR INTERVENTION".
3. Sets the cancel code in JCSW2.
4. Sets the SYSRDR input switch on (also in the PIB).
5. Resets all 1/ 0 assignments to permanent or standard.
6. !f a jab is canceled and SYSRDR (or SYSI N) were
temporaily assigned, step 5 is bypassed.

~EO~J~____________~~______________- ,
/&

STATEMENT P.ROCESSOR

Charts ND-NF

1. Calls EOP precessor if procedure is being executed.
2. If the CATAL bit is an transfer control to the EXEC
processor ($JOBCTLE) to check for new supervisor
cataloged and for the automatic condens limits.
3. Clears user label cylinder.
4. Restores permanent or standard I/O assignment.
5. Insures that SYSIPT is at EOF.
•
6. Resets job control options to standard.
7. Sets job status bit OFF (see item 2).
S. Displays EOJ message and logs the time and job duration
9. Resets the job name field in the communications region
to NO NAME.
10. Lists all nonzero TEBs.
11. Resets all bits in COMREG+57.
12. Transfers control to the JOB statement processor at
the label RSTCOM.

JOB
JOB STATEMENT PROCESSOR
Charts NA-NC
1. Resets all bits in COMREG+57.
2. Simulates a SYSRDR EOF if the /& statement has not
been read. Fetches $JOBCTLN if jab accounting active.
3. Restores all LUB assignments to permanent or standard.
4. Moves the job name to the communication region.
5. Saves JOB start time in reg save area of the partition.
6. Logs the JOB statement on SYSLST/SYSLOG. Logs the
time on SYSLOG, if TOD is supported.
7. Restores all options to standard.
S. RSTCOM: Restores the communication region to
standard.
9. Resets the EOF indicators in all PUBs.
10. Sets switches to initialize, check, or bypass the
Recorder File.
11. If TOD is supported resets jobzone in communication
region system zone.

~CONTROL

36

DOS/VS IPL and Job Contrel

FCHMArNT

J
20

EOP
END-OF-PROCEDURE STATEMENT
PROCESSOR

Charts NP-NR

The EOP-Processer re-initializes the system at the end
of a procedure. It is also called if an /& statement or
CANCEL command is issued while a procedure is being
processed. Initialization includes:
1. Clearing of procedure area in communication region.
2. Closing the following DFBs: PRCDFB, ORDRDFB,
OLOGDFB (if procedure was called by the operator)
and IPTDFB (if the procedure processed contained
SYSIPT data).
3. Dequeueing of procedure library.

8

CANCEL

Chart 14.

Jcb Control

($JCEC~~J)

Statement Prccessor (Fart 1 of 3)
*

t

NOLOG

* Chart 06
Table D

LOG

NOLOG STATEMENT (COMMAND)
PROCESSOR

Charts PB-PC

If the NOLOG command is used, the log-on-SYSLOGswitch (COMREG+56, bit 3) is set OFF. If the statement is used, the log-on-SYSLST -switch (COMREG+59,
bit 3) is set OFF.

LOG STATEMENT (COMMAND)
PROCESSOR

Chart PL

If the LOG command is used, the log-on-SYSLOGswitch (COMREG+56, bit 3) is set ON.
If the statement is used, the log-on-SYSLST -switch
(COMREG+59, bit 3) is set ON.

I

t

STOP

PAUSE

STOP COMMAND PROCESSOR

Chart PD

A WAIT macro pointing to a dummy CCB is issued to
force entry into the supervisor task selection routine.
This removes the partition from the task selection
mechanism.

I

+

ALLOC

ALLOC COMMAND PROCESSOR
--~

~

t

PAUSE STATEMENT (COMMAND)
PROCESSOR

Chart PL

If the command is used, the i ob-control-pause-switch
(COMREG+56, bit 5) is set ::IN to cause a pause
before the next job-step. If the statement is used, the
iob control input-on-SYSLOG-switch (COMREG+56,
bit 2) is set ON. This forces a pause on the next iob
control read operation.

Charts PP-PQ
-----

~-

This routine reallocates the virtual address area
according to the number of 2K blocks specified for
one or more virtual foreground partitions by the
operand(s) at the ALLOC command. To reallocate
the virtual address area, this routine:
I. Builds a table (ALLOC -table) containing the
number of 2K blocks requested by the ALLOCcommand and the number of 2K blocks already
available in the system for a partition. Source
information is the ALLOC -command and the
boundary box (a table in the supervisor containing
size information for every partition). The program
checks to insure that the size of a virtual partition
is OK or equal or larger 64K .
2. Updates the boundary box using the information
from the ALLOC-table.
3. Updates the part of the page table corresponding
to the virtual address area according to the informotion in the ALLOC table.

I

1

~

CONTROL

~

CONTROL

ALLOCR

+

ALLOCR COMMAND PROCESSOR

Charts PR-PS

This routine reallocates the real address area according
to the number of 2K blocks specified for one or more
real partitions by the operand(s) of the ALLOCR
command. To reallocate the real address area this routine:
1. Builds a table (ALLOC table) containing the number
of 2K blocks requested by the ALLOCR command
and the number of 2K blocks already available in
the system for a parti t i on. A separate tab Ie entry
exists for the background and each foreground
partition. Source information ;s from ALLOCR
command and boundary box.
2. Checks to insure that at least 16K of real storage
is left for the main page pool (if PFIX is permitted) or that the smallest real partition plus the
main page pool equals or exceeds 16K (if PFIXing is
not permitted).
3. Updates tQe boundary box using the information
from the ALLOC-table. The number of 2K blocks
is converted into lower and upper limits for each
partition and inserted into the real part of the
correct boundary box entry.
4. Updates the part of the page table corresponding to
the real address area.

~

CONTROL

Jet Centrel Fregran

37

Chart 15.

Job Control ($JCECTIJ) Statement Prceesscr (Part 2 cf 3)

*

UCS

+
UCS COMMAND PROCESSOR

* Chart 06
Table D

HOLD
Charts PB-PC

HOLD COMMAND PROCESSOR

Chart PA

1 • All I/o assignments for the foreground partitions
specified are to stay in effect from job step to job
step.
2. The operands of the HOLD command, Fx, can
appear in any sequence.
3. The hold flag, bit 4 of PIB+12, is set ON(I).

The 240-character Universal Character Set (ueS) array
specified by the operand phasename is loaded into the
buffer of the IBM 2821 Control Unit specified by the
operand SYSxxx. The phase is loaded from the core
image library.
I. The operand SYSxxx specifies a 1403 with the ues
feature.
2. The operand 'phasename' specifies the core image
library phase to be loaded.
3. The operand FOLD (optional) specifies that the buffer
is to be loaded with the folding operation code
(X'F3') in the 3rd CCW.
4. The operand BLOCK (optional) specifies that data
checks are to be inhibited. The inhibit data check
operation code, X'73' is set in the 2nd CCW.
5. The operand NULMSG (optional) specifies that the
80-character verification message is not to be
printed. The chain bit is set off in the 3rd CCW.

I
ENTRY

~

ENTRY STATEMENT PROCESSOR

ACTION
Chart PD

ACTION STATEMENT PROCESSOR

This statement is invalid if the link option (JCSW2, bit 0)
is not ON. If valid the ENTRY statement is copied to
SYSLNK.

I
PHASE

+

PHASE STATEMENT PROCESSOR

Chart PD

This statement is invalid if the link option (JCSW2, bit 0)
is not ON. If valid the ACTION statement is copied to
SYSLNK.

+

cb
38

DOS/vS IPL and Job Contrel

Chart PD

This statement is invalid if the link option (JCSW2, bit 0)
is not ON. If valid the PHASE statement is copied to
SYSLNK.

CONTROL

Chart 16.

Jeb centro 1 ($JCECTLJ) Statement Precessor (Fart 3 of 3)

UPSI

*

,

,

Chart 06
Tobie D

CATALR

UPSI STATEMENT PROCESSOR

CATALR STATEMENT PROCESSOR Chart PN

Chart PK

This statement is invalid if the LINK option
(JCSW2, bit 0) is ON. If valid, CATALIV
SYSPCH mode switch (JBCSW5, bit 0) is set
for handling the PHASE statement. CATALR
statement is validated for syntax. The version
and modification number r:J .M.) is checked
for valid characters. Valid statement is
punched or written on SYSPCH. If statement
is invalid, job is canceled.

The operand of this statement is converted

to a single byte and stored in
COMREG+23.
• A character 1 sets the bit ON.
• A character 0 sets the bit OFF.
• A character X leoves the bit unchanged.
SET

t

,

SET COMMAND PROCESSOR

Charts PG-P J
Provides the operator with the capabil ity
of changing the UPSI byte, the system date,
the line count, the system time, and the
remaining disk capacity of SYSLST or SYSPCH
when they are assigned to disk. Permits the
operator to define to the system the status of
the recorder file on SYSREC, which is used
by RMS functions to store Information concerning I/O errors and hard copy files to
store messages from the Model 125 video
Display/Keyboard Console.
Processing is as follows when the operand is:
DATE =the MM/DDjYY or DD/MM/YY

DATE

DATE STATEMENT PROCESSOR

Chart PH

Moves the date from the operand Of the statement to the communication region (byte 0).
Sets Date bit in COMREG + 59.
~

parameter is converted to binary and

INCLUDE

stored in COMREG+79 through 84.
The Julian day is computed, adjusted
for leap year, converted to EBCDIC,
and stored in COMREG+85 through 87.
Date is stored in COMREG of each
partition. This operand is invalid if
TOD is supported.
tlNECT = The parameter is converted to
binary and stored in COMREG +
78. The job control line count
for the remaining lines on the
current page is adjusted.
RF = After the specified parameter is checked
for validity, the proper option bit is
set in the RF table status flag byte
(byte 1).
CREATE - X'OS'
YES- X'04'
NO - X' 10'
HC = After the specified parometer is checked
for validity, the proper option bit is set
in the CRTSAV table status flag byte.
CREATE - X'08'
YES - X'OO'
NO - X'04'
UPSI = See UPS I Chart
RCLST = The parameter of this operand is
converted to binary and stored in
the SYSLST DIB.
RCPCH =The parameter of this operand is
converted to binary and stored in
the SYSPCH OIB.
SVA = (nK,nK)
Parameters are converted to hexadecimal, and the SYSCOM and the boundary
box are updated.
SDL = CREATE
Building of the system directory list in
the SVA is started and control cards will
be read from the input device.

-.

INCLUDE STATEMENT
PROCESSOR

Chart PD

This statement is invalid if the LINK option
(JCSW2, bit 0) in not ON. If the statement
rO'1tnfnl> nn ooernnd~ tha complete statement
is copied to SYSLNK. If the statement dees
not contain an ~erand, SYSIPT data is
copied to SYSLN K unti I a/* statement is read
on SYSIPT. INCLUDE and /* are not copied
to SYSLNK.
~

+

MTC

MTC STATEMENT (COMMAND)
PROCESSOR
Charts PE, PF
Permits initiation of tape operations on
specified logical units or physicol I/o device••
Th. routine checks the op code, computes or
locates the PUB pointer, assigns it to the
SYSUSE LUB, and executes the operation.
It also opens the recorder file (for RMS and
hard copy file). The third operand (duplication
factor) determines the number of operations to
be perfarmed. If the third operand is left blank,
a duplication factor of 1 is assumed.

ZONE
ZONE STATEMENT PROCESSOR

Chart PH

Checks vailidity of operands. Converts value
to seconds and moves it into the communication
region zone field. The statement is valid
with TOD support only.

I
I

~

CONTROL

Jot centrel Fregrarr.

39

Chart 17.

Jeb Centrel ($JCECTLK) Statement Precessor (Fart 1 of 2)

*

+
TPLAB STATEMENT PROCESSOR

TPLAB

* Chart 06
Table E

LBLTYP
LBLTYP STATEMENT PROCESSOR

Chart OA

Chart OA

1. If the first operand is TAPE, the size of the label
area is set to 80 bytes.
2. If the first operand is NSD, the second operand
(nn) is used to calculate the number of bytes
requird to contain the specified number of extents.
This computed value plus 84 bytes determines the
size of the label area.
3. The size of the label area is stored for subsequent
use by L10CS and the linkage editor.

The sequence of the TPLAB statement is checked. It
must fallow a VOL statement. If there is a continuation punch in column 72, a second statement is read
into the input area contiguously with the first statement.
There are 49 characters read from the first statement
and an additional 20 characters from the second
statement. If a continuation statement is not indicated,
a default value of 0000000 DOS Version 5 is inserted
at the end of the 49 character record in the input
area. The label is moved from the input area to the
label output area.

I
DLAB

i

DLAB STATEMENT PROCESSOR

XTENT
Chart OF

XTENT STATEMENT PROCESSOR

The sequence of the DLAB statement is checked. It
must follow a VOL statement. A continuation
statement is required. It is read into the input area
contiguously with the first statement. The disk
format 1 label is built in the label output area, one
parameter at a time.
Param 1 (51 bytes) make up fields 1, 2, and 3.
Param 2 (4 bytes, max.) is the vol. seq. no. It is
converted to 2 bytes binary and stored in
field 4.
Param 3 (5 bytes) is converted to 3 bytes binary and
stored in field 5.
Param 4 (5 bytes) is converted to 3 bytes binary and
stored in field 6. The creation and expiration
dates are tested for validity (fields 5 and 6
respectively).
Param 5 (13 bytes) is stored in field B.
Param 6 (optional) is tested
if blank or SD, set field 10 to an S.
if DA, set field 10 to aD.
if 15C, set field 10toa C.
if ISE, set field IOta an E.
if VSAM set field 10 to A.
A switch is set on to indicate that a DLAB statement has
been processed and only an XTENT statement can follow.

~

40

DOS/VS IPL and Job Contrel

Charts OG,OH

The sequence of the XTENT statement is checked.
It must follow a DLAB statement or another XTENT
statement. The parameters are processed one at a ti me
{parameter 1-7}. An XTENT statement is required for
each extent to be defined for a given set of VOL and
DLAB statements. The extents are built in a label
output area and are written in the SYSRES label
cylinder information area.

VOL
VOL STATEMENT PROCESSOR

Chart OA

The 1st parameter SYSxxx is tested, converted, and
the symbolic unit address is saved in the label save
area. The 2nd parameter, filename, is tested and
moved to the label output area. A switch is set to
indicate that the VOL statement has been processed
and that DLAB or TPLAB statements are to follow.

J
CV

CONTROL

Chart 18.

Job Control ($JCECTIK) Staterrent Prccessor (Fart 2 of 2)

* Chart 06
*

rLBl

~

TLBL STATEMENT PROCESSOR

Table E

DLBL
Chart OB

I

I

t

EXTENT STATEMENT PROCESSOR

RSTRT
Charts 0

s-o L

1

RSTRT STATEMENT PROCESSOR

The sequence of the EXTENT statement is checked
and default values are set from the default table
built by DLBL statement processor for vol. serial,
extent type, seq. no., upper and lower extent
limits, logical unit, and bin no. The operands are
then processed and overlay the default values. If
the operands are omitted, the default values remain.
When extent processing is complete, the extents are
written in the volume area on SYSRES.

t

Chart QE

Default values are inserted for all operands from
file ID through data security. A default table is
built to be used when processing the EXTENT
statement(s}. The filename operand is tested and
moved to output area. The file ID and date
operands are checked, converted, and moved to
the output area. The date operand may be omitted,
or may be retention period or an absolute date
"yy/ddd". If the file ID was omitted, the file name
is inserted as default value. The proper filetype
code is inserted for SD, DAr or IS. If DSF is
specified, the data security indicator is set ON.
A switch is set to indicate that only extent
- statement{s} may toiiow.

Default values are inserted for all operands from the
file ID through the expiration date. The file-name
operand is tested and moved to the label output area.
The file ID and date operands are checked, converted,
and moved to the output area. The date operand may
be omitted or may be a retention period or an absolute
date "yy/ddd". All the remaining operands (file
serial, volume sequence, file sequence, generation,
and version numbers) are then checked and moved
to the output area, in turn, overlaying the default
values (the default values will remain for any missing
operands). Default values are then inserted for file
security, block count,. and system code. A switch is
set to indicate that no other required statements are
to came and that neither TPLAB nor DLAB will be
accepted.

EXTENT

1

DLBL STATEMENT PROCESSOR

Chart QQ

Computes the LUB and PUB pointer for SYSxxx and
saves the checkpoint number. Insures that all
label processing has been accomplished and
closes the user label area. Causes $JOBaLB to
be loaded (by $JOBCTLA).

l

~ $JOBCTLB

t

c:v

CONTROL

Jct Centrol Frcgran

41

Chart 19.

Jeb Centrel ($JCECTLM)

'7 ·

Cho"
Table 06
F

MAIN 00
RECORDER FILE & HARD COPY
FILE INITIALIZATION

r---

RODOO
ROD COMMAND PROCESSOR
Chart RA

Recorder file is initial ized in accordance with the option
specified in the SET command. For Models 115 and 125
with no RMSR support, initilization is omitted. Exit is to
create a hard-copy file. If open is not successful, message
1 184A is issued and system enters hard wa it state.
If RF=YES, on active recorder file exists.
If RF=CREATE, the system creates a new recorder file.
Hard-copy file is initialized in accordance with the
option specified in the SET command. If open is not
sllccessful and the display operator canso Ie (DOC) does
not have a printer attached message 1195A is issued and
system enters a hard wait state. If open is not successful
but the DOC does have a printer, message 11971 is issued
and system does not enter the hard wa it state.
If HC=CREATE, the system creates a new hard-copy file
If HC=YES, an active hard-copy file exists.

CREATE RECODER FILE

Charts RA-RB

Creates and formats recorder file.
If irrecoverable I/o error during bui Iding or formatting,
message 1186A is issued, and system enters a hard wait.

Charts RC-RD

Recorder file is initialized. If SYSREC not assigned,
message 150nD is issued. Bui Ids records according to
device type; if 3330, 3333 or 3340, builds MDR record.
If RDE specified builds device EOD record; and if end
of day, writes EOD record. Computes the percentage
of filled space in the recorder file and prints the message
"RECORDER FILE IS xxx% FULL". If the recorder file is
more than 90% full, "RUN EREP" is added to the end of
the message.

I

~

CREATE HARD COPY FILE

Charts RA-RB

Creates and formats hard-copy file. If the extent for the
hard-copy file does not have a minimum of ten tracks,
message 1199A is issued and the system enter a hard
wait state. After formatting, the message DOS/VS IPL
SUCCESSFULLY COMPLETED will be written as first
record to the hard-copy file and the current address
wi II be updated (no statement issued before the first
JOB statement, or the first JOB statement itself is
written to the hard-copy file). If an irrecoverable I/o
error during formatting or writing, message 1196A is
issued and system enters hard wait state.

MAIN05
CHECK RECORDER FILE

Chart RA

Build channel ID mop. Reads SYSREC serial number for
PUB2 table. Builds a load list for RMS. Reads and puts
header address in RF table.
If irrecoverable I/o error during reading of record,
message 1186A is issued on SYSLOG, and system enters
a hard wait. If RDE specified, builds and writes IPVEOD
record. Computes the percentage of filled space in the
recorder file and printes the message, "RECORDER
FILE I xxx% FULL". If the recorder file is more than
90% full, "RUN EREP" is added to the end of that
message.

SCAN HARD COPY FILE

If on active hard-copy file exists, it is read until the
current and the wrap-around record have been found.
The current address marks the location in the hard-copy
file to which the next record from the DOC will be
written. The wrap-around address marks the first
location in the hard-copy file that has not yet been
printed during the previous run of the PRINTLOG
utility. When the current and the wrap-around address
have been found, the message DOS/VS IPL
SUCCESSFULLY COMPLETED, will be written to the
hard-copy file and the current address will be updated
(no statement issued before the first JOB statement, or
the first JOB statement itself is written to the hardcopy file). If an irrecoverable I/o error occurs
during the search for these two addresses, message
1196A is issued and the system enters a hara wait
state.

~CONTROL
42

DOS/VS IPL and Job Contrel

Chart RB

Chart 20.

Jeb Control ($JCECTLN)

* Chart 10
$JOBCTLE
$JOBCTLN
JOB ACCOUNTING INTERFACE

Chart SA and SB

1. Store registers and set exits.
2. If last user exit from job accounting was not normal,
exit to ----------------------------------~--------------------------------__,
3. Other $JOBACCTs in progress? YES - Wait for their
completion. NO - Post $JOBACCT active.
4. Calculate and store final CPU time.
Turn off Job Accounting Interface support
5. Save base registers and initialze user
switch in COMREG. Post cancel Job Accounting
5. Save base registers and initialize user pointers.
Interface to other partitions. In order to reactivate
Job Accounting the Supervicor must be reloaded
(lPL mode).
LOAD $JOBACCT
~~~-~-~------ --_c~=I~==--

RETURN

,

JOB ACCOUNTING INTERFACE

1.
2.
3.
4.
5.
6.

Chart SB

Restore base registers, turn off user in charge switch.
Dequeue any waiting partitions.
Re-initialize accounting table for next job step.
Turn off $JOBCTLN active switch and label switch. ~_-----------------------------......
Restore job control registers.
Return:
• If entry was from EXEC, return to phase vector
table in $JOBCTLA.
If entry was from EOJ, return to CONTROL in
$JOBCTLA.
If entry was from simulated EOJ (Job statement
06
TABLE G
Processor), return to $JOBCTLG.-------If-----.....,

8
clJ.

-----------+----------.....,
-----------+-----.....,

1

• Otherwise:

c

05 CONTROL

~JOB
EOJ
)
SVC l~

Job Centrol Fregrarr

43

CHAR'IS

Chart AA.

$$A$IFLl - IPL Ecctstrar
Refer to Chart 01.

~um~I~8R T~~umDT~p Mlm~~02~A~lwmo

•••••••••
*' *.··83
OPERATOR SET ...

•
...

UNIT PRESS
LOAD KEY

THE UA$lPL RECORD FROM SYSRES(CYL O.TRK O.REC 11
INTO REAL STORAGE LOCATI ONS O-I7(HEXAOEC IMAlI.
THIS RECORD CONSISTS OF'

..
...

** •••••• ** •••••

:HEX·COC":O····:· s······: ·io······· is:'

:cofHENT·:· ·psw·:"" (cwi":"· ·ccwi-:· . ···

j(

CCNI

***C3*·*.****
••
READ 40
BYT ES

,CYLINDER 00,
06
CCW!

00

00

18

60

00

00

28

:;m~Dogl

••••• **** ••••••••

READ DISK INTO STORAGE LDCHIDN HEX
18. (40-BVres Of DATA. .. CHAINED Ctw,
AND SUPPRESSED NLR.I

00

00

30

60

00

00

06

X

..

CCW3 FOR
RECORD 5

00

32

60

00

00

05

18

60

00

00

00

TRANSFER IN CHANNEL (TICI TO CCN3 UNTIL
THE SEARCH ADDRESS SPECIFIED BY CCN3
IS FOUND. (CHAINED teN AND SUPPRESSED
WLR"

CCW5

•
06
ceN5

00

30

00

20

00

10

THE M.ICROPROGRAM TRANSFERS CONTROL TO IT BY

X

CCW4

F3

*.
00

BB IS BIN NO.
CC IS CYLINDER NO •
HH I S TRACK NO.
P.. IS RECORD NO.

AT THE COMPLETION OF THI S BOOTSTRAP OPERATION,
$$A$IPLZ HAS BEEN L~ADED INTO REAL STORAGE AND

******.*.*.******

.*. *

00

WHERE

LOADING THE PSW REAL STORAGE LOCATION D.

SEARCH FOR THE DISK RECORD SPECIFIED
BY THE 5-BYTES OF DATA IN STORAGE
LOCATION HEX 32 (SeEK ADDRESS PLUS
2-BYTES I. THE CCW IS CHAINED AND NLR
IS SUPPRESSED.

08
CCW4

THE SEEK ADDRESS (HEx LOC 30\ CONTAINS THE
SYSRES DISK ADDRESS OF THE UUIPL2 PROGRIlM. THE FORMIl T OF THE SEEK ADDRESS
FIELD IS

:MEANiNir "B· '"s·oo c··coo· H'" '"H·· R'"

X
·**E3*****···****

CCW3

... SEARCH USING
00

ADDRESS.

ARE CHAINED TOGETHER.

.CONTENT.

m~htmHEg FA~A ~*O ~~GlHtDti ~~ ON
HEX 30. (CHAINED CCN AND SUPPRESSED
NLR.I

ceN3

•

THE CCNS (I-51

: HEX "loc :30: :it: ;;;: 3; :~4: 35:56:
: DEC iMAL : • 0: • 0:' 0: • 0: • 0: • i : . ;:

******** ••

SEEK THE DISK ADDRESS SPECIFIED BY

31

THE NEXT 4o-eVTE RECOPD TO BE PEA.O FROM SVSRES

INTO READ STORAGE LOCA.TIONS 18-3F(HEXADEcrt.tAL)
THIS RECORD CONSISTS of:

:CONTENf: ·CCW3:·CC.W4: 'ms: ·sEW .. ·· uNuSED:

SEEK US ING
CCW2

.*•.....

SPECIFYING SVSRES AS THE UNIT AND CCWI (HEX
LOC 8) AS THE FIRST CCW. THIS COMMAND CAUSES

:HEX ·loc:is·· '":20····28···: 30·"··· ··37· :·3F:

***D3***********.
•

CCW2

•

:x .............. .
CCW2

07

*.

*

THE MICROPROGRAM INITIATES A. SID COMMAND

00

*.

*.

.* ..

.....

FOUND

* .*.

.*

.*

NO ..

.* .......

* •.
* *YES
X

***G3********·***
READ 4096
BYTES
$SASIPl2

****.************

READ DISK INTO STORAGE LOCATION HEX
3000. (4096-BYTES o~ DATA, SUPPRESSED
WLR.I THIS CCN IS NOT CHAINED.

**'

X
****H3*********

•

THE PSw AT LOCATION 0 CONTAI NS
THE ADRESS OF THE FIP.ST EXECUTABLE
INSTRUCTION OF THE $SA$! Pl2 PROGRAM.

SSAS IPl2
*
•********.******
•

Charts

45

Chart EA.

Su~erviscr

$$A$IFL2 - Clear Storage and Lead
Refer to Chart 01.

•****.
•
A4 *

•**** •

•...*A3•••*

····Al·········

X
• ****81.· ••• ***.·
•

:

INTERC EPT

Pf7~~~G

:

'"

INTERRUPT

'"

•• *A3**********
*••
••
*• DEVICE
LOCATE
TABLE •
* USING
F4
-*
..
LABEL
..

•*****
•
• 82 •'"

....

RMSMCRET

82

***-**************

.*.X *•

X

.* SYSTEM *. *. YE S
*... '" DAMAGE
.* .......

*•

*. *.

********.****.* ••

*0

*

.* .*
.. '"

•*****c 1 ***.**.* •••
•••'" seT TIMER •'"•*

•*****************
*
* *

NO

C2

*.

*. *.
PSW

DAMAGED

*. *.

STORAGE

,.

'"

*••••**************

.
VESX

.. "' ......

MESSAGE

'"

•.*.******** •• *****

C3 .* .* ..

.*
*•
YES .. * EXTERNAL * ..
....
*. INT ERRUPT .*
*. *..
.* .*
*.o •

.*. * .

.*
*. "' .. YES
*..* MACHINE
CHECK
.* .•.•
*. *.
.*
.*
x
* ..
*
• NO
*'"****
*
B2 '"
.*

.*.x *.
Fl

'"

X
****E2*********
ENTER

'"

03
*.
*. * .. NO
.o* .*ATTENTION
*.
.* ....
*.. *.
.*
..*
*. * l>*YES

X

*****E3**********
'"

HARO WAIT
•***************
•'"

* •
****

CaNTIN

*****F2**********
*. *. YES
** SAVE END
..•
.*
•.......
x* AODFIESS OF
..
.*
* REAL CORE *

*...
* •• *
*

NO

i<
*.***c 1.*********
UPDATE
•..•
**
PO INTER
..
TO NEXT
*
•
256 BYTES
*
••***************

•

*

SCAN D tREeT
CYL INOER FOR

•*

*

SAV E

*
DEVICE
**
*
ADDRESS
*************.****•

*
*
********.*.******
X

*****G2**********

•*..

BUI LO
INFORMATION
MESSAGE

**

*
*
01041
*
*****************

*

x

:IOINTIA

**F3*******

•

**
•

INDICATE
NO DISK
DEVICE

*
•

•****.****** *

*

x

***** B4**********
** SET DISK •*

·

.

*ADDRESS Tn NEXT*
en INDER

*

*

*****************

.*.i<

.
.* (4 END *. *.o *.
.YES.*
.oo.....
OF
••
* .CYL INDER .*
*. *.. * .*
* NO
X

NXTENTRY

•*****04**********
* SCAN DIRECT. •
*
*..
*

BLOCK FOR
**
SUPERVISOP
ENTRY
*
*****************

E4

.*..x *.

E~POT

* •• *
* YES

**********.****.*

X:

*****F4**********
•
*
* CALCULA TE
* S HE OF *'"
..

*

SUPERVISOR

*
•

*****************

X

*****G3**********
BO •
*-*-*-*-*-*-*-*-*
READ
*..
*• SUPERVISOR
..
NAME
*
**************.**

*IORTN

a2A

*****E"i**********
*. *. NO
*
.* .o* FOUND
ENTRY
* BU! LD LOW ••
*..
.* •••• .o .... x*
COPE
•
*. * . . * .*
*
MESSAGE
•
*
t"Jlt"J2A
..

SUPVRFNO

**

•

* SUPVP ENTI)Y -*
*****************

:x •..•...... :

•• ADDRESSING
EXCEPTION

*. *.

.*NO

j.

:IOINTl

x

El

X
[ORTN
80 *
******A4**********
*-*-*-*-*-*-*-.-*

:N XTORCYL

x

. *. *.

• *• * OLD

.* .*
*••
*
.****.*******.***
• NO
'" **** * ..x ............................. ...
'" 01 •• X.
* *.
**** .
HAROMC
i<
(L e::.**Ol.:
•• ******
*.***02***·*·*·*·
*'" CLEAR 256 •'"
•'"'" lOWBUILD
*'"'"
• BYTeS OF MA IN '"
CORE
'"

******B3**********
•
.. *
* *
* * ENT ER
* * S OFT lolA IT * *
* *
...

x

X

EGIPl

X

SCANDEV

•• UASIPl2 •'"
••• *•••••••••••• •

*
*
****

............. x:

X

****F5*********
ENTER
*•
*'* \.lA~O
WAIT
•********"'****** *

****
*BB *
* El *.•.
x
:.** *
•
ERPOIOOA
X
G4
*.
*****G5 **********
.*
*.
'
"
.*
BG PART *. NO
*
BUILD
**
*. *. AT LEAST
.. * •••••••• X*
COR.E
**
16K.*
* LOW
~ESSAGE
*.oo*
*'
0100A
*
* •• *
****************'"

.*.

'" YES

x

***** •*
***** *

.. 01

x

X

*****H2*****.****
*IORTN
BO *
*-*-*-*-*--*-*-*-*
*
READ
*
** VOLUME
1
*
LABEL
*
***********-******

H3

.*
*... *
*. *.

.* .....
EOB

X

*. *. NO
.* .•..
.* .*

* •• *
* YES

•*****H4*******·"'*
•*
*
MOVE
* $$AttPL2 '*"
* TO BG PART
+ 12K
'"
*
*****************

:............. x:
X

•*·***J2**********
•*
* GET VTDC
*•

ADDRESS FROM

VOLI LABEL

*

-*

• ***************•
••

X
*****J3******.***
* SET DEFAULT **
•
.$SASSUPI
*

EXTINTl

•

•

•
*
*****************

:x ...•..••.. :
X

*****K2 **********
BD *
*-*-*- ......- *-*-.-*
-*
READ
**
* FORMAT4
*
LABEL
*
***.***********-**
*IORTN

x

•*****
•
A3 *
•****
•
46

DOS/VS IPL and Job Control

·

.

X
**K3******·
*
INDICATE *
*
DISK
*

*

*
•*********** *
DEVICE

x

•..****
"'4 •*
•

****

*

X

•*****J4**"'****"'**
•*
•
RELOCATE
..
AOCONS TN
*
..
$SA$IPL2
'"
*
•
***********"'*****

x

*****

*

*BB
* A1*

••
*

NXTBLK

.
'"

*

X

****H5 ****.****
ENTER

f"'!ADD WA IT

.

***************

*'*

Chart EE.

$$A$IPL2 - Initiate System (Part 1 cf 2)
Refer to Chart 01.
•*
••• *A2
••*•

••

................... x:*

x

:NXTBlK

:

CONVERT

'"

TTR TO DISK

X

**042*******

*• SET STORAGE**
* PRQTECT KEY *

:

'"

ADDRESS

X

SETKEYZ

•••• *Al******.***
'"

, .**.*
A3 *
•****.
•

***.

**"''''.

"'SA '"
'" J4*

•

'"

*••••• ****** •••••••

OF PP

*

AREA TO 1 ..

*

****.A3**********
•
•
•

SWAP SUPVR'S

•

•

*

I/O AND EXT

*

PSWS FOR OWN
PSWS

'"

..*.* •• ******.*.**
•

***.**.*** •

O'.O'O' • .o . . . . O'.x:
X

X

******B2**********
•
SET CHANNEL *

•• ***81**********
'" IORTN

BO '"

*-*-*-*-*-*-*-*-*
•
READ 1
..

..

..

..

..

TEXT

•

* rN

..

BLOCK

..

******.**********

**

STATUS

CHANNEL
TARLE

..

*****************

x

·

.

X

*****************

*****e2***··***** Move XFER
*
*
ROUTI NE
..
*.. TO AREA
COMM.
*
*
*****************

x

X

*****c 1**********

*
..
..
..
'"

•

*
..

UPDATE
TTR AND
DATA
AOOR ESS

..
..

X

.*.

EXTINT3
••• X*..

NOT

..ASSTGNED

*..*
* ••
*
• NO

x

C3

.*. *.

*****02****·****·

.* READIN *. "' ..
COMPLETED
.*
*. ...
.* .*
"' ...
*
'" YES

• NO .*
.....
*.

x
.*. "'.

.* El t.G

*•
*

'"

...

DEVIce

ADDRESS

...

•

FPOM PUB

*

'
*.x.

.

·
'"
..

INITIALIZE
TIMEP

*

•

THREE PUBS

*

..
'"

*

•

*****.***********

•*
*

x

ERROIQOA

F2

. *. *.

*. *. YES
.* .* SYSTEM
WITHOUT
.*oo •••

*oo

*****************,

*.

TESS

*. *•
*

'"

LOAD

...
...

TYPE IN
NEW PUB

**•
*
*** •• *********"'**

..

'"

•**Gl*******
•'"
INDICATE
IPL IN

*

PROG~ESS

..

..*

.*

.o*

NO

X

*****G2**********
•
•
'"

•"''''*'''.''''''''''''.''' *

'"
•

i<

•

*••*c 5ENTER
****.**** *

*

*

HARO
WAT T

•

***************

*

.

ICE

...
...

******.***.******

X
.* .*.
E3
**E4*******
* .. *.
* INDICATE *...
_* .*
*
*. ATTENTiON ••••••
•
:!>':iKUI'!
...
IN COM'"
*. *O'
.\11
...
AREA
*
.*
x
*..
*
***********
* NO
, **** *
. . G3 . .
• *
****
x
X
.* .'* .
F3
**F4*****•••
.*
"'
O
'
•
...
INDICATE
•
.. NO • '*
•• YES
** ON
JeL INPUT
...
. ... *. DEVICE END .* ....
SYSROR
•
*.
O'.
*. * •• * .*
•** •• *******•
x
****
**** *
,•... 04 ...•
VF~

•'"

X

...

•
* X.
···**04******·*·*
*•
seT 2501
**...
•
AS DEVICE

ADDRESS
FROM INT,
CODE

**

..

0101A.

PR.SYSRDR

•*****03**********
•
DEli
*

*

****************.
.***

·.*.*

..

MESSAGE

x

X

·*·**E2*·**-*·***
,
Z ~~6~F~~~t •

•
*. *. PARTITION
.* .....
GTE 16K .*
*. * •• * .*
x
.. YES
"'.**.
*BA *
* G5*

,

*

AND PUB

·

,. ..

X
*****F 1**********

*..

Move FOCL

** TO AREA
COMM.
*
*
*****************

lOW COR.E

.*•.•..*••*•• *•••

..

X

x

:IOINTJ

••••
,.*****85***.***
BUTlO
...

YES
'"
.* ........
x*
.*
'"

•***.·*C4**.*******
•*
LOAD

.*
*. * .. 'fES •
*.oo. EXTERNAL
INTERRUPT
.......... .
*. *.
.*
.*
* ...
, *
NO

... 04

.'. *.
Dl

ERROIOIA

.* 84 *oo *. *.
.o* SYSRDR

***·*83******.*··
*• *'" ENT ER ** **
* * SOFT WAtT. *
** •*
*'" *'"
**.**** ••••• *****

Hove TEBS
TO COMM.

•

*

..
AREA
*
*
•
*.****.*.********

.

**.....

G3

.***

• **** * X.

PRSV$LOG

*****G3**********
*... SET 1052 •...
'"
DEVICE
*'
* ASTYPE
IN
...
...
NEW PU B
...
.*.....*.**** •••••

: x•••••••••• :

X

X

NOTEBS

•"''''HI'''·*··'''· •

.. ..'" ~~f~N~~bN
'"'"
ROUT1NE
'"

********.**
******H2
•
MOVE FICl
..
* AND NICl AND *

***********

*********.*.*****

*

•

X

•
'"

lUB TO
COMM. AREA

UNASlUB

*

X

*****J2**********
UNASSIGN
•** BG
*'"
SYSTEM
LUBS
,**'"
*****************

X

X

USE END OF

*

•

*'"'"
CORE ADDRESS
..
AS END OF
..
* PP AREA *
***.*******.***.*

*****J 1**********

•....

X

...

•**H3*******
INDICATE •...

**

SVSLOG
IN CQMM
AREA

****** *****

...

*

>Ie

X

*****J3**********

...*

SAve'"•

*...
*

OEVICI::

ADDRESS

'"

...

•

"'*.*•••****"'''''''''"*'''

:x ..............•........• :
SETKEYl

..

•

1 ***.*.*
•**K
seT STORAGE •*

*

***********

*****K2 **** •• ****
* BUILD PUB
**
*'"• FORANDSYSRES
LUB
*
..
*
*
**************.**

x

x

PROTECT KEY

•

Of SUPVR

AR EA TO 0 •

*..****
•
A2 *
•
*
****

*
*

.

, ****
•**** •
'" A3

'"

BUllOCQM

X

••
. . ***K3***********
'"
...

*

...

'**.**K4**********
" RESTORE •
• SUPERVISOR'S *
*
••••...•
X"'Y/O AND RETURN *
AND
*
...
LUB'"
* NEW Psw'5 ...*

COMPLETE'"
PUB FOR

SYSUSE

BUILD

*****************

*****************
x
******
*8C
.. AI·

••
•

Charts

47

Chart BC.

$$A$IPL2 - Initiate Systerr (Part 2 cf 2)
Refer to Chart 01.
••••*

*86 ...
... K4*

••
•
X

.*.*.A
• 1**********•
•

SEQUENCE

,..

•

PUB AND LUB

...

BUILD

...

•

...

FOCl

...

•••• *****•••• *•••
X

•*•••• SI*·.·*****.
PUT
*•

...
...

ADDRESS OF

,. SYSR ES PUB
•
SVSCOM

...

IN ...
•

*.*****.*.*******

x

C1

•* •*NO

*oo

"'..

*.

.'. .....
MPS
AND

*. *oo

...... .*
NO TP

YES
••••••

.*

• NO

X

•• ***.*.
•••••*01.*
•...
BUILD
•*.***************•

...

...
...

CHANNEL
BUCKET

NOMPSTP

.0.

...
...

:x ................. :

X

E1
"' ..
*•
•* .*MESSAGE
*..*NO
*oo
DEVICE
. e••
... PRESENT .*
*. * •• *.*

*

YES

X

**F 1******.

...

*

...
...

INDICATE
NO OJ SK

DEVICE

•...
...

...

•*.********* •

X
*****Gl****·**·*·
... lOR TN
BO*

*-*-*-*-*-*-*-*-*
GIVE
...

...
...
...

MESSAGE
0]041

...
'"

*•••**.**********

:x .................... :
NOMSG

X

'*****Hl·*·*******
" . . ENTER *... ...'"
* * PROBLEM * *
• * STATE
* *
'" ... ***** .....***.
* *
••••
"'...

X

*••• *J 1**********•
* LOAD $IPLRT2 *
*•
••
*

******* **********

XCTL

X

1*********
*****K
TRANSfEIt
*
•
CONTROL TO
**
•
SYPlRT2
***************

48

DOS/VS IPL and Job Contrcl

$$A$IPL2 - Input/cut~ut Subroutine
Refer to Chart 01 •

Chart ED.

•..••••
A2 •
..
••••••
X

····*A2.·.···**.·
•
•

•.. **A1·········•

..

lORTN

•

..
..
..

..

• •>it ••••••••••••

•

**Sl*·**.··

X

•

START

SENSE

DEVICE

*
**********.*.* •• *

•.••.....•.
x:X
•

•••

.• NOT.* .* 01TEST *. •. ...

.*
••

D2

.*.x *.

*. *.

.*** *'
YES.

NOT
CSW
••.•
*. STORED
.* •••• X* F2 ,..
•. DEVIce ... .* .*OPERe
*.
.•
•
*
AVAILABLE.
*
.
.*
****
x
*.• *
*...
*
*
NO
•
***** •

.... ....

.. H3 •

••*** *

.
:

SEN SE3

*. *.

*.

.• .*

x

* •••
o NO

.*
NO.*

•

.X ................. *.

.*
*. *_
DEV1CE
.* ....
*. *.
.* .*CHANNEL

.*

Tj:<:T

*. . *

.................... ~~"":**.

BUSY

•
****
•* A2 * ..*****
' .
F2 *.x.
•***** * * x
***. .".
CHKCSW
X
F2
*.
.* UNIT *. *.
.. ****~l*.***.***
RETURN
*
YES.*
..
TO CALLER
..
.... *.
CHECK
.*
•_••••• *•••••••••
*. *.
.*
.*
*..•
• NO

*

*

NO

COMMAND
REJECT

YES.*

..*****.***** *

COMMAND

REJECT

CHKCSWI

X

****Kl*********
RETURN
..
* TO CALLER *
***************

..

•

x
. *. *.
J2

*. *.
.* .*
**.. .• **
* NO

.*
**X........... *.

lNDICATE'"

•

K2

.*-

.*

.*

*..
*
'" YES

E4

.*.x

"' •

~~;~~;

CORRECT

*.

*.
"' .
.*

.*
*.•
* *YES

·

*.**

'.
x
.*.
G4
*.

'" G4 *.X.

.".x *.
H2
•
*
*-.
• NO.* CHANNEL *.
X ••• *.
END
.*
*. *.
.* .*
x
*..•
* YES
****
* 82 **
..
**,..

* .*.

seT UP FOP
**'"
*••* CORRECTlON
ERROR
*
***.*** •• ***** ••***

• *****
ECFLOOP

... YES.. .* ERROR *. *.
• X •• *.
.*
*. POSTED
IN CSW
.*
*. *- •• *- .*

**Jl*******

DATA

CHECK

X

x

***** *

x
.*. *.

*****F4**********

. *. *.
G2

*

04

*. *.

:x
.......... .
x
.*.
E2
*.

•

X

** ****B5**-*******
~ETURN
**
TO CALLER
*****************

x

***C2****.*******

•••••••••• ** ••***
.TOEVI

*.

.*. * .
C4
•
YES.* •* PERM. *. *.
.X .................. *..
ERPQP.
••
*. *.
.*
.*
*.•
*
* NO

X

SENSE2

*

DEVICE

x

•••

84

.*NUMBER OF*.. *. YES
.* 24 *. *.
NO.*
*..- RETRIES
EQ
.* ................... X ••••••••••••••••
*.
SENSE
.*
*. *. 10 .*.*
*. BYTES .*
*.
.*
*••
*••
* *NO
* *YES

••• e 1************

•

**A'5 •••• **.
*. *. YES
.. TNf)ICATE .. ..
..
.. *............... X*
END OF
..
..CYLINDER .*
.. CYllNOER
..
*..*
*
..
.... • .*NO
***********
END

OF

CHKCSW2

*.

82

• RESET •..
1/0
*
..
SWITCH
..
•••••••••••• •

SDEVl

....

.*.x *.

A4

.* .*

..
..
..

·

..

..

SAVE
CSW ANO
CAW

•••••••••••••••••••
••••
.. B2 '•• x..
••••• • x
SENSE
•••

X

IORTN

•.. ••••
Ait •
..
* •
••••

.*.x *.

**.*
*** H3 *.
*.X.
* .x •••••••••••
****

ERRORO

ECFlOOPl
.* .
••
*.
.* (;5 EC *. *. *. YES
.*
ERROR
*.
YES
.*
*. WITHIN
.* ......... X*.
~YTE
.*... .
*. SEGIo'IENT .. *
*. ZE~O .*
**..•.**
**.•..**
* NO
'" NO

.*.x

•

X

•*****H3**********
•*
* RESTORE
* CSW AND *
**
CAW
•*
*.*"'********"''''''''''*

X
*****J3**********
•
BUllO
* LOW CORE *'"

* MESS AGE *
•
*•
* X'07E6'
*.****-.*.****.*-.

•

H4
*.
.*
*•
YES.* CHANNEL *.

......*.

TRUNCATE

*. *..

.* .*

.*

* •.
*
* NO

X
****J4*********

** TORETURN
CALlEP
*'"
• *""*********** •• *

X
*****H5·*********

**

•..
**
*
*
****************-*
BYTE

rN

ERt!:OR

:x .......... :
ECF1NCR

X

J5

.* .

*.

.*
*. NU
*..* Fl Nt '5HEO *.• *•...
*. *.
.• .*
x
* •.
* *YES
•*****
*
G4*
******
X

X

.*
*. *. NO
*'" ****K3**.******
ENT ER
*'"
*..* DISK
.* ....
HARD WAIT
*.
.*
* *.****.**.** •• **
*. *.. *.*
x
* YES
•*****
*
H3 *
x
****'* *
*****
..
A4 *

CORRECT

*..

****KS*********

*
* TO CALLER *
• ****************
..

RETURN

•**** •

Charts

49

$IPIR~2 - Initializatier. Routine (Part 1 ef 2)
Refer to Chart 02.

Chart CA.

•*****
•
A2 •

......*

*

****

*
*
* *************** *

X
*****81**********

BEGIN

*

..
ESTABL I SH
*AOORESSABILITY

**

'*
•******************
.FOR THIS PHASE

x

*****c 1*********.

*

*

.RELOCATE AOCONS*
.. LOAD THE ROOT ..
..

PHASE BASE

..

•******************

01

x
•*. ....

*. *. NO
IS
....
COHDEV
.* ....
.... LOGOEV .. *
*. *.. * .*
.* •*

.. YES

--·.*A2·**·*·*-*·
* FIND END
*
.*****.*.**.***.*

..... *. *....

*..

*. *.
.. *

B3

*.*

*. •. TYPE .* .*
*..
* *YES

•SET SWITCH •*
TO LOAD
*
$lPLRT4
•*****.*._**
••
: ................. x:
X

*•

$IPLRT5

•*****02**********
••
•
CALCULATE
LENGTH FOR

•

..

•***** •••******.**•

.
X

oO • • •

YES

X
*****03**********
*., INCREASE SEEK •*

*
*•

ADDRESS BLOCK ...
(S AB) COUNT
•
BY 5

X
*****A4**********
SAVE PROGRAM *
*CHECK NEW PSWoo *
**OF
STORE ADDRESS *
RETURN POINT*
*
IN PSW
*
**********.******
•

...

*********.J<*.*****

.

,"****84**********
*PUT RETURN P SW •

*

]NTO PROGRAM

*'

• CHECK NEW PSW *
*****.**********.

•

.*. *.
C3
NO.* .* SEEK *. * .
*. ·.SPECIF]ED.*
OVERLAP
.*
*. * •• * .*

*

CB84, CBeS
CBD5, CBEl

X

x

**•

NOTFOR4

.'.x *.

•

X
**·**C4**********

RASUPR

**

INDICATE

*

., PRIVILEDGED
CODE
..*
*****.***********
•
*
•

*****•

A5 •
•*•••
*•

REFERENCES
TO
CAA4:

C6E4, CBH2
CBK2, CBK4 CLEARFI~

READCO

NO.* . *DIRECT *. *.
••• • *.ACCESS DEVICE.*

*••
* *YES

X
**C2*******

X

*******04****"*****
,*
SAVE

*OLD PSW STATUS.

,.
•**.* ..FOR**.. *RETURN
.. ***..*•• •*

X

**********
******,1\5
**
RESTORE
*** MACHINE
CHECK *
NEW PSW
*
*
*
.****************

B5

.'x.*.

. *•*MACHINE "'. *oo NO
*.
CHECK
.* ....
*. *.
.*
.*
x
*•.
.. *
YES
*****
*ec *
* 81*
•*

*

X

MCRETURN

MONITOR

oo* •

C5
*.
.* SYSTEM *. *. YES
*..* DAMAGE
.*.oo ••
••
.*
*. *.. *.*
•
~O

x
.' .*.
05
•
*'
*. * . NO X.
* MC OLD
*.. *.
PSW
.* ....
VALID .*
*. *•. *.*
.. YES

:.......... x:

x

El

X

.*oo

82
oo* IS
NO •• THERE ROOM *oo
FOR $] PLRT3
$lPLRT4.

*

.*
*oo
•• IS THIS *oo YES
*.THE LAST PUB .* ....
*. *.
.* .*
*..
* *NO

PARTllION. *
**• OF DETERMINE
•
LENGTH SOR
OF
*,.
_
SUPERVI

PPBEGOR

•** •.**

*

x
.*.
A3
*.

X

•••• AI-•• • •• -...
SIPlRT2

.*.*.

*****
•
A3 *

,*

x
•*•*.
E2
.*

.*. ....

.* t S DOC *. .... NO .X
*..* SUPPORTED
.* .....
*. *.
.* .*

*.•
.. *
YES

NOOASO

FOR *. NO
*.•* ROOM
SlPLRT5
.* .....
*. *.
.* .*
*•.
*
• YES
*oO

X

.

,*****E3**********

*
*
*
*
•**************.,***
INCREAS E PUB
*COUNT 8Y L ENGT H*
OF PUB 18)

x

E4

.* . *.

.*
*•*.
NO .*
.oo •• *. MODEL 155 .*
*. *..
.* .*
*••
* *YES

.

X

,

·****E5 *****"'***'"
..

SET HARD

*MACHINE CHECK.
ACTIVATE

**

•

*

*

$'!iRA<:;T03
*
** ..."'*.**"'**** .. "'*

x

X

*****F
*OOCRTN1*******.*.
CB_

*-*-*-*-*-*-*-*-*
INITIAL lZE
..

..

..

*

DOC SCR EEN

..

•

*****************

,.*** ,

• A3 *
***** •

X

•**F2*·*"'·-*•
** SET SWITCH **
••
•
.********** •
YES5

.*.x

x

• *oo

NOTFOR5

....

.* DOC *. *. NO X.
*..*... ATTACHED
.* .* .•..
*. * .• * .*
.. YES

G2

TEBCLC

*.

.*
*. *.
*.
oo*
*. *•• *.*

... LI NE MODE
NO
*.TABLE PRESENT.* ••••
... YES

*****H2**********

MODIFY
DEV ICE TYPE
IN PUB

• TURN ON LINE *
•*MODE
FLAGS AND *
NUMBER
** GET
OF LINES
**

*..

*

..

*..

..
..

•*****************•

X

*****G3******.***
* ER COUNT FOR.•
*AU
FOCL.STORE •
** SAB
AND PUB •
**.*****.*********
COUNTS
*

x

X
*****Hl**********

X

*****************

·

FOR

155

..

: ............ x:

: x•••••••••• :
Gl

X

*****F4**·*·*****
•*
**• SET MODE
•***.** .. *.*"'******,•

.'.* •
H3
•*ARE THERE*. *. NO
.*
*.
TEB'S
.* ....
*. *.
.* .*
* •.•
• YES

MODEOK

*

• GET EXTeNDeo

..
..

LOG AREA
ADDRESS

***-****.. ** ... **.*

............... x:

X

*****G4**********

.. RESTORE PSW'S

X

,*****FS*"'********
* GET ~ASBLOCKoo **
• I\CTIVATE RAS. *
..
CAUSE
*
.. TASK SELECT •

*
***

:RASWAIT

.• YES.* .*

oO~.

RAS

••

*. * .
.*
. .. .*

• ••• *.STlLL ACTIVE

*. *.

*..**"'*"'****"'***"'*

·,

G5

* •.
, *
NO

X

*****H4**********
*FETCH $$8CCHHR *
..
TO BUILD
*

*

,

LOAD LIST

.
*

*****************

: X •••••••••• :

X

*****Jl*********·

LOAD
•..* $$BOCRTA
*....
*
*
•******************

X

*****J2**********

•**
*

·

]NITIAL1ZE
PUB COUNTING
LOOP

X

*****K 1****** •• **
*ALCRTN
CJ*
*-*-*-*-*-*-*-*-*

*•
*

VALIDATE

CORE

ALLOCATION

*

,•

...

...

x

..
•.. ****
AZ *
..
****

DOS/VS IFL and Job Contrel

*****************

X

****"'J4******·***
SAVE Me PSW '"

'"

**
..*

,•

*,

•

*

..

:x ........... :

x

*****
*ca
*
* A3*

AREADGOn.E
AOOQ,ESS OF
MC ROUTINE

IN MC PSW
..*
********.*****.. **

:X •••••••• oo. :

it

****
.. A3 *
****

***.*************

50

,

*******.*********

:x ........•. :
NOTCRT

*•
*

X

******J3**********
TURN ON
*
• TEB FLAG AND *
** CAlCU
LAT E
**
NUMBER OF
.. TEB'S USED
*

CL EAR

X

******K4**********,
* CL EAR STORAGE *'

*.,

TO END

OF REAL CORE

*

..

•*********.*****"'*•
x
****
*• A5 *•
* •
****

PASSMC

X
*·**J5 ****"'*"'**
Me P$W.*

*PESTORE

*
*

PASS CONTROL
TO RA.S

***************

*
*

Chart CEo

$IPIRT2 - Initialization Routine (Part 2 of 2)
Refer to Chart 02.
_
*CA •
* J3*

....
••
•
X

*AI TEXT OF MES SAGES

EAST
01301 DATE: • • 1 •• 1 •• ,CLOCK- • • 1 •• 1 ••• lONE=WEST I. of ••
EAST
0131A DATE REQUIREOI,CLDCK REQUIREOI,ZONE=WEST/ •• I •• ))
01321 TOO INOPERATIVE: NO TOO SUPPORT

••• **A3.*** ••••••

•*'
•*'
GET
*' ClOCKVAl
..
••
•
•
•••••••••••••••••
83

.'.x

.. •• X. 'CLOCK NOT SET

.OR IN ERROR' •

x

•• 54

*. *.

**C2*.*****

* .• *
•

*•

.• .*

x
*••••

YES

*CA *
* A4*

••
•

x

.*.X *.
C3

.*
*.
'*.X ••••••••••
YES .* CLOCK NOT *.
OPERATIONAL ••
• OPERAT10NAl' '*
*.
.*
****.*.***** '*
**.•..**
• INDICATE IN.

'* *

.' .*.

.> IS COMDEV ' . NO
'.
SYSLOG
••••••

• NO

CLNOTOP

*

•..**.******•

••

*.
OR '*. YES
..
' . CLOCK NOT SET . . . . . . ..
*. *.
.*
.•
*.••
.* • *ERROR

CLNOTSET
•• AIt•••••••
>INDICATE IN>
• SET SW ITCH •

seT SWITCH

·CLOCK NOT

.*

*..**.

C4

.>.

READeO

*.

**•••C5.* ••••••••

*. "'. NO
*MSGRTN
tH.
.* ........ X**-*-*-*-*-*-.-*-.
J SSUE MESSAGE *
.*
*OT31A (W1THOUT •
*..*
*lONE)
*Al*
TOO

SUPPORT

* •• *
•

• NO

***.********.*.*.

YES
..

.x'. *.
02

NO

.. -.

El

x
.*. *' .

.* .*; ... TOO -. '* .
*. IN SV .*
*. * •• * .*
;::~

'*

;:;'",-;'

E2

X
••• **fl**********
•
PUT MESSAGE
*
.NUMBER OF 'TOO *

• CLOCK INOPER- •
AlIVE' INTO
LOW CORE
*

*'* **_.IIt••• _._* ..'*
•••

x
*****
*CH •
'* • 01·
*

•

ABNCHK

.'x.*.

.* TOO *. ..... NO
*. :::~~7~G7 ..
*. *oo • *.-

••

NO

YES

.' .

.* ISSV$lOG
COMQEV *.
.*
*. *.
.* .*
*
*...
* YES

•• ...... ••• ••••••••••

,*"

x

*****
*CA '"
* A4*

'" 'YES

••
•

REAOeD
LOG1PL

03
*.
.* COMDEV*. *. NO
*..* ISSVSLOG
.* ..•...

*. •.

.*

X
*****E3**********
*"'~~'.:~e:::~
VALUE 2;INTO
::!::t:: ...'"
- AND NUMBER *
* Of S EtONOS
*
-****************

*... Of

C~.

DATE,CLOeK
!~~~

,~!:!n

*....

• IPL MESSAGE •
•********.***.*.***

*****F 2**********
SET TOO
'"
*** SUPPORT
Bl T *
OFF
*
•
*****************

•

•

.*. *.
F3

*.***F4**********
.* TOO *. *. YES
*USE ZONE VALUE.
* FROM TOOCQMRG *
*.••*. SUPPORT
<1* ......... X.
TO A.DJUST
*
.*
• TIME OF DAY *

:x•......... :
X

*****G2**********
*MSGRTN
CH*
*-*-*- *-*-*-*-*-*
* ISSUE MESSAGE *
**
01321
'"
*Al*
****"'**"'*********

X
*****H2**********
*MSGRTN
CH'
*-*-*-*-*-*-*-*-*

*

* I SSUE MESSAGE
•
0131A I WITH •

*ZONE)
*Ai*
*****************

*

*..*
*.. *
•

x

*

*****.*******.***

•*
.•.
r:-rr"T','
•***************•

*****
*CA ..
* A4*

.

*

x

X

•

.*
*..
*
'" YES

'" CONVERT CLOCK '"

•

**
••
*CA"

• 'OX* A4 •
****READel
X
*****04*******.**
*****05**********
** FROM
MOVE lONE
*
*MSGRTN
CH*
TODeOMRG *
** MESSAGE
INTO
**•••.•. 'O. X**-*-*-*-*-*-*-*-*
J SSUE MESSAGE *
*
ot31A (WITH *
*
*
*ZONE)
*Al.
*** ••• *******.***
*****.***********
****
• *eA *
.. 'O X* A4 *
•****READC
•
X
*****E4***.****.*
.NO CALCULATION.
****E5****·*.**

• •

x

>

READCO
OOCRTN

•

X

·*·**F5 **********
ADDRESS *
*'** GET
OF SCREEN
**
IMAGE
*******.******.**

•
•

•
•

NO

:x .•...... 'O ••••••••••••••• :

x

X
*****G5********.*
• STnRF AOORES~ *
*OF SCREEN I MAGE.
IN
*•
** DOCCCW

*****G3**********
** CONVERT
DAYS *
TO NUMBER Of *
*'
** VEARStMONTHS,
AND DAYS
*
•***************.**

*

x

X

**H5 **********
•***
•*
*
T SSUE

*****H •• ********
ERT
*
SE
TO
*•*NUMB
HOURS**
•

HI

AND

*

S
********

ERASE/WRITE

*

CO"1MAND
*
•******************
•

*'

S
*
*******

•

•

*.******.*.******

x

*****
*CA *
*>A4*
•

•
READCD

X
*-*·*J3*********DATE *
•-- INSERT
AND TIME
*
*' INTO
MESSAGE *
*****************

·

X

******J5*********
•*
RETURN

.

• ****************

x
.* .

*****K2**********
*****K4**********
*MSGRTN
CH*
.* K3 TOO*'. *. *. NO
*MSGRTN
CH*
*-*-*-*-*-*-*-*-*
YES.*
*-*-*-*-*-*-*-*-,..
• ISSUE MESSAGE *X •••••••• *.
SUPPORT
•••••••••• x* ISSUE MESSAGE *
* 01301 {WITH •
*.
.*
*01301 (WllHOUT *
*lONE)
*AI*
*..*
*ZONE)
*Al*
••***************
*.. .*
*****************

•

READCO :

X

*****
*OCAA4**

*•
*

: REAOCO
X

*****
*CA *
* A4*

*•

•

Charts

51

Chart CC.

$IPLRT2 - Mcnitor, Read Control Card, and Operation Scan Routines
Refer to Chart 02.

·•••A2·········

•
•••••••••••••••••'*
•*CH••• * ..

•'*

•••••
•••••••
•

REFERENCES
TO
CC81:
CAB5, CHE1
08E5, DDK4
ECK5, F883

..•....... .x:

• E3 • .oX •
0

READRT

···**S1****·*····
*REAORT
Ct.
'*-*-*-*-*-*-$-*-.
*'* CONTROL
READ
*'*
'* STATEMENT
••••••••
*•• *•••••'*

.* pRrR KYBO *.
*.
.*
**.....**
* NO

x

* ..

NO

*****C3.~***.****

•
NO.* .* DEVTYP *. ••
....... *.
FOR
*. MFCM
.* .*

•****·03*·****··**
•..
•
TURN OFF

FOR

*

SV$RDR

-**•••••••••*****

*

x

02

.0 •

X

*.

*'*

YES

..

E2

*.

*•

•

X
*.B4******* 0
TURN OFF
..
END-Of-CARD

*

SWITCH
*
*
***********

X

X

**~*';'C4**********

*****[5 *******.**
*TRTBPC
CH.
*-*-.-*-*-*-*-.-.

*TRANSlATE CARD *
* INTO INNER CODE.
AND TR..&.NSLATE
AND TEST FOR •
.. THE OP CODE *

**

*

**

*****************

x

X

*** **05 ***. **.***

*****04·*********
*TRTBRC
CH*
.-.-*-*-*-*-*-*-.

**

TEST fIPS(
CHAPACTER fOP,

*****E3*******·**

.*.*HOPPER 2 *. *..
••••••••••••• x•••••••••••••••• *. SPECIFtED .*

*•

STORE

* ADDREC)S

*

*
!.*.~;.2~*2~.~***:

.. FJqST

*

*. *.. *.*
* YES

.****F
1******* •• *
o
•

*
*

SET
OPCOOE

..
•

FOrt READ
•*****************
•*

*

READR T4

•*

*0

CLEAR
INPUT
BUFFER

*
*

.•

..
•

o
•
**.*********.****

X

:REREAD

o*****FZ**********
•

F3

J. ••

X

***·**E4**·*******
TEl' THE
*
* AL
DEL I..,ITER
•
*
ICOMMA IS
..
• AN ERPOR STOP)

*·***F5 **********

*
•
*

LOAD SEARCH *
TNCREMENT ANO •
SEAPCH FOR
*
!')P CODE t N
*OPf.RATtON TABLE.

*

*

*

**********.********

**************.**

*. ••• * .*

F';

4***.******
****.*F
TR. ANSLATE
•
•
AND TEST
*

..

*

o

FOR END OF
OP CODE

.*
••

*

*.

..

•

* YES

*****************

X

*·***G2******·***
*tOHLD
CH*
*- .-*- :;t.-*-*-.-*-*

X

X
*****G4**********
*TRTBRC
CH*
*-*-*-*-*-*-*-.-*

***.*G3**********
**
ALLOW

**

**o

*READ STATEMENT '"

•* CARDFROM
*
READER •
**************.**
***** • ••
• H2 *.x.
.. **** * •

H1 *
*****
•

•

0

•

X
H1·*·..

•*

*. ••

*

..

•

*********.***** ••

:X ....

*****H3.*****·*.*
CH*
*-.-*-*-*-.-*-*-*
*READ STATEMENT *
.IOHLD

**

*
*

TEST LAST

FROM
LOG DtV ICE

*

*
****************.

*. *•• * .*
*

*****J2**********
.* SET *. *. YES
*MSGRTN
CH*
*-*-*-*-*-*-*-*-*
*..* COMMAND
.*
•.......
x*
1 SSUE
*. .o ••••
*. GIVEN .*
**0150AMESSAGE *K4** X
•• .. *
*******.*********

*...
NO

..

*.***************

•*****
•
B5 *

X

INTERRUPT

o

0

****

.*.x

• *H5 ADD *. •• *.
ADD.*
••• .t<.

x

*****
·CD •
*• A2*
0

*.

OR
OEL

*. *.. * .*
*

**.................. .•
*K4*

.******.*********

52

NONE

DOS/VS IPL and Job Contrcl

**.*

*

..•

*

x

J5

**'**

RESPONSE
*.EXPECTED

.

...*
* •• *

x

*.***

*CD *
.. A1.

.* . *.

•

GET DEL

.* SET, *. *. CAT
SET.*
...
*.
OPO
.*....
*. •.
.* .•
x
x
*•• *
* OPD
*****
*****

x

*

*****

*..*. *
.* .*.o ••• x*• H2 *'*

****

.

*
*' *[4*
•

GETSET

•*
*.
NO.* OPERATOR *. YES

Hl *X.. ••••

*

.0.x *.

DEL
.. *.....

o •

*

GET'DO

*CE ..

K3

.*

C4.T,O~

*•

****************.

X

*

TO IT

o •

•
ISSUE
**0118A
MESSAGE

YES

**************.**

.. Al*
**.**K 1 ***.******
*MSGRTN
CH*
*-*-*-*-*-*-*-*-*

NO •

x

*

X
******H4*********.
THE *
**' RESTORE
DELIMITER
..
(COMMA IS
*
*o A VALID
STOP) *'
*

*****J3*·********
o
*
* SUPPRESS
*
•
ATTENTION
•
•o

*.

.* .*....

**G5 ADDRESS
****.*****•
****LOAD
•
OF ROUTt NE
*
*FOUN" IN TABLE,.
*
BRA~CH
*

CHARACTER
*
**.**.************
FOR BLANK
*

x

x
.*. *.
J1

*•

= SEARCH
TABLE
ENTRY

o.o. ........ o.. :

X

X
****H2··***·*·*

YES
* RETURN
**
*..* BLANK
INPUT
.* ........
X*
*. * . . * .*
****************•
* ..
*
o NO

*

ATTENTION
INTERRUPT

x
.0.

• *Of> CoDE*.

:.....•...•.....••......• x:

****

•

•

X

COSC H

X

• * IS
*. •• NO
*..* (OHOEV
.* .....
*. DOC .*

* SET FOR
OPCODE
*
*
*
• READ HOPPER 2 *
*****.***.*****.**•

READRT3

*

of

OPERAND.

**********.***.**

............... X:
X

READRT2

*
*

TEST fIRST
OPERAND FOR

*VAtIO CHARACTER.
*************** ••

: x .................. ~

X

lOG RED

*.

NO

*.

*
*

****

*• 85 *•
• *.** *

:x ..•....... :

:............................. x:x
REAORTZA

FIRST ENTRY
SWITCH

•***.********.** •••

*. *.. *.*
o

..

YES

*MSGRTN
CH*
*-*-*-*-*-*-*-*-*
*
ISSUE
..
'"
MESSAGE
*
*0110A
*K4*
.**.*****.*******

GET OEVTYP
FROM PUB

x.... •• ......... ..

•

•

*...
*.. * ••

*0

OPR TN

***************

DPRTN

**
*'*
0

''**
*

.......... .....
*.

*.

"''''**$C2******·*·*

*-*-*-*-*-*-*-*-.
•
EVALUATE
*
•
CONTROL
•
'_* STATEMENT
_ *

.*
*. * .
NO _*
•...
*. *. OEVTVP
FOR
.*
MFeu
••
*..
.*
* ••
* *
YES

.*ENTRY FROM

X

*****C 1**********
CC.

• 0.

YES

.*.

..* B3FIRST* . ...

-.COMMUNICATION •••••••••• X*.CONSOlE PRTR ••••••
DEVICE
KYBO
••

*OPRTN

01

LOGSTR

B2

... CONSOlE*'.

****A4********* 0

*o

••* *. .*.x
*.

X

:MON ITOR

•

REAORT

*CD

GETooQ
*K4 TeXT OF MESS~GES
DnOA GIVE IPL COMMANDS
OIlSA SET COMMAND NOT (;1 VEN

ot 50/\ DPD COMMAND NOT GI VEN

*co ..

* 84*
*o 0

GETtH

Chart CD.

$IPLRT2 - Meniter Sterage Usage fer ADD, DEL, CAT and DPD CClnrands
Refer to Chart 02 •

••••*

••••*

*cc
•
• HS-

*CC •
• H5 •

•••

••
"

.·*' ....1··········
X

GETDEL

GET
• DISPLACEMENT
• TO DEL RTN
IN $IPLRT3
•

*'•
•
•

•••••••••••••••••••

it
•••••
*' A2·····*····

GETADD

GET

•

.. 01 SPLACEMENT
.. TO ADD RTN
* IN $lPLRT3

•
..
•

..*.

•
•
.................

·xx ........................... ..
GETDELl

.*

Bl

•••

*'..

*. *.

seT.*

.. VES

OF SlPLRT3

X

••••• t l ••••••••••

·

COMMAND

..

C2

•••

•*

••

.*
1ST
ADO OR
••
DEL

*.

*..*
*••
.. *
yes

..

.*

NO

C3

x
•••

••
*.
*cc *'

••
•

•

•
•

GETDPD

*.

.*
IS
•• VES
•••••••••• X•• $IPLRT3 IN
••••••
••
•• CORE
.*

**.••.**
.. NO

••

...........
FIRST CARD

•

••••

..

*

POINT TO

•.. LOAD

•

•
•

x
··.··F3··········

*

.•

it

**G3 •••••••

*

•

..................
:

•

*

•

*

X

.

•
*

*

.................

•

*

x
*• ••••
83 •
•
*•••••

INDICATE
S1PlRT3
IN CORE

••

••••••••••••

IN OVERLAV
AFTER
ROOT PHASE

•..
•
..

•

*

*.Hl*····**

•

*

•••••••••••

..x •••••••••••.

.. ..
....•
x

GET4
;.
••••• J2 ••••••••••

•

LOAD $1 PUtr5

* INDICATE •
$IPLRTit
*
NOT IN CORE •
•
• ..
AFTER
ROOT
•

•
•
•

••••••••••••••••••

*

*..

•
..
•

X

*H2······*···

• LOAD $) PLRT3 ..
" AND UPLRT4 *
CONSECUTI Vel V *

X
.**.*E5***•••••• *

X

.....Gz.* ........

LENGTH
$I PLRT3 TO
LOAD POINT

..
•
•

•••••••••••••••••••

• VES

*"*•••ADD

$IPLRT5
AFTER
SIPLRT4

•

*
**
LOAD
• $IPLRT3 AFTER •
•
ROOT
•

.. ..

•

.

• 01·
* •

*.

**B2'
•

:GEn

l8AD
POINT

;.

:~~.:

•••••••••*•••••••••
•••••••••••••••••*
· •••••••••••••••••••••••••.
xx
•••••
.FA ..

*••••••••••••••••••

.•.x

*•
*

••

*

* $1 PLRT3 LOAD
•
POINT

•

.*F2ROOM •• ••
• *1 N CORE FDR*. ND
•
". $1 PLRT3 AND .* •••.••
•• $IPlRT4 ••

$1~mI

• •••••••••••**•••

x
.....EIt·····.····
•

x

• •••• E3 •••••......

...........•

•

.MAND NOT GIVEN.

• YES

:LOAD3NDW

•:

tH •

.-*-*-*-.-.-.-$-*

.:.*.AVAILA8lE:.*
~~gWX~E .:.~~ ••••••••••••• ~~~CHK

•

ic

*.

.MII)GRTN

• .•. P~g2~~~~D ••. * •••••••• x:om~h~fS~~~ :

04

••E2 •••••••

•

• •• **C5 . . . . . . . . ..

•• NO

• VES

•

IN CORE

••

SET

....
........

••• ~~D~~m •*.
•

..

.

*. ••

··02.·it.....

*

C4

••••

x
•••

• INDICATE ••
READ

..

• J5 •• x.
•••••
• ic

••

..
..

•••••••••••••••••••

X

ILLCD •••••
*CH ..
• Cl.

CAT
COMMAND

*

•

NOT4NDW

*. *.

.SET SWITCH FOR •

...........•

111

ic

•• REJECT •..
•
•
•••••••••••••••••..
•

*'

START

•

ic

GETCAT

•• 83 •••• • ••

• INDICATE *
"BOTH SIPLRT3 *
* AND $IPLRH ..
..
IN CORE
•

*'
*'
•••••••••••••••••

**.••.**

·..···84·····.**··.

X

•••••82 ••••••••••
*' POI NT TO •*'

*.

.*ADO DR DEL •• NO
•
GIVEN AFTER •••••••••• X.

•*CC
•••••
.. JS*
•••

•.. 83 •..
*••••..

J3

DEL.*
• ••••

x
••••*
·OC •

• At*

•••

DELRTN

••

.* .••
ADD

OR

*.

DEL

•• ADD

.• .*

••••••

x
•*OA·
••••
• 81•

*•

•

ADDRTN

Charts

53

Chart CEo

$IPLRT2 - Mcnitcr Stcrage Usage for SET Corrrrand
Refer to Chart 02.

-*•••

*cc •

'" JS*

••
•
X

GETSET

Al

.'.

"..

• •• **A2.***** •••-

.* SET *.. *. YFS
•
"•
REJECT
*.•• ALREADY
.* .•...... X.•
COMMAND
*'
*. GIVfN .*
*'
*'
*"... .. **
*•• *•••••• _•••• _.-*
o NO

x
****.*

*CH
,. Cl·

X

*.***s 1*****.*.*.>
>

*'
>

GET AODR

> •

•

ILLCD

"

>
>

AfTER END OF
> ROOT PHASE

•*****************•
Cl

.*.x

" ..
•*
THE FIRST ."' ••••••••••••••••••
*. *. CARD .* .*
* •.
* *YES
*'" ****
o.
01 •• x.
x
•.*"'* * X.
,SETFIPST
.0 •

•• THIS[S SET "' • •• NO

*.

o • *01******- 0

*>
*

02

*

INDICATE
S IPLRT3 NOT •
IN CORE
'"

*

•******.***

•

X

,.

0

FIRST seT

'"

CARD READ

o

***********

..FI·······

IS

.• *

X

*****E2
•
ADD LENGTH
'"

*

*

0

,

,*

***********
X

."'."'*G 1*.*******.
•
0
TO
'"
*'"o POINT
SIPLRT4
'"
*
•
*
.***************.
X

•····*Hl·*********
••
•
POINT TO
ADDRESS

*
•

'FOLLOWING ROOT'

***************.*
X

*****J 1••• ******.
"•

*
0

LOAD

••'" SIPlRT4 ••*
••***********.***
. ......................... ..
xx
• *••*

*

*EA
• 81·

••
*

SETRTN

54

DOS/VS IPL and Job Contrel

•

•
OF $I PlRT3
*•
•
TO ADDRESS
•
FOLLOWING
•
**._._.*
ROOT
*
•• *.*•••**

X

'"

*_.

X

.*.
.* E3 IS * . *.
.> SIPLRT4 ' .

NOT4AND3

NO
*.LOADED AFTER ••••••

*.

ROOT

*. *•• *.*

·• x......................... ..

o

*

*. *.

*...
*
• YES

* INDICATE *
*$ IPLRT4 LOADED *
• AFTER ROOT

••

*••••••

··EI"'··"'''''''·*

oo INDICATE

.* .*
*. *.

SIPLRT4
NO
*.lOADED AFTER ••••••••••••••••••••
$lPlRT3 ..

o YES

••

x

•• *•••
•
01 •
•••••
•

Chart CF.

$IPLRT2 - Move Routine
Refer to Chart 02.

···*A2····***··

*
•* SYSMVC
••••••••••••••••*

SYSMVC

...

B2

.*.X *.

*.

*. N O "
*..*TOANYBE BYTES
MoveD ........... x*

.·**83·.·······

..
RETURN
*
.. •••••••••••••••..

*. * . . * .*

*•••
.. YES

.*.x

RIGHT
C2
*.
.*.*.C4*••••• *.* •
MOVE *.
*
..•
•* RIGHT
.
*
*.
RIGHT
*. *. OR <1
LEFT
.* ......................................... X.• CALCULATE
TO
..
.*
.. SEAMOUNT
SHY FTED
*. *. .." .*
........................

··••...*.-.....

• LEFT

..

.. 02 •• x.

DECRL

······04··*·*····*.
X

X

·••••*02···**·····*•
•
•

DECREMENT
SHIFT caUNT

..

BY 256

•

..

.*.

.;;.'"'".~~;l"O

....

X

CALCULATE
SIZE OF

**·.*•
..

.*••.•.•......•_.
..

•

BLOCK TO

LASl BLOCK

*
*

•

'"

•

••••

....• .

•...

•*** ••F2 ••**••
•
..

ADDRESS OF

... ,,~~ ... ~~~~

••• **F3

•..

DECRR

•

DECREMEN'T
SHIFT COUNT

'"

..

BY 256

••

*•

*.

•••••• *••••••••• *

F4

.*.x ••

• ••• *F5*•••••••••

.* SHIFT "'. •• NO
••
•*
UPDATE
'F~O"'I AND
'"
*. COUNT 0 .'" •••••••••• x.'" 'TO'
P01'NTERS
*
*
•. • .•YES
••••••••••******.

••
...

*••••*••••••••••*

x
•• ••••
•
02 •
•••••
•

X

-r*'::~lo-t:c,.~.;.lo-;-~';':::';::';';

•..

X
*•••••••••

UPDATE
•
III
•
• FROM' AND
., 'TO' POINTERS ..

* .

E4 •• x.

•

*. *. NO
..
....
SHIFT
256
*. *. COUNT
.* .......... X..... Move
BYTES TO
•
0
.. "
NEW AREA
..
**.. ....*
..
..
.*.*.*
•••
****
••••
* YES
RESIDL

'"

•
BE
MOVED
'"
•••••
* •••
* •••••••

x

Ii: 2

DETERMINE

'"

•••••••••••••••••••
•*. *

...

*...

lit

X

RESIDR

•*'*****G4****.**.*.
•'"
UPDATE
* 'TO' POINTERS.
• *•••••••••••
'"

I

FROM I

AND

•

1It • • • • •

.••••••••••••••••••••••••••••••••••••••••••••••••••• x...

•
•

•*** •• ***.*••••*•••*
*

NEW AREA

x

X

BLOCK

.,OVE 256
!3yTES TO

· .•
• • IIt•

•****·H4·····*····
•'"
•
MOVE LAST
'"
NEW
••••"'••• *.*.*••••••
III

X

•
*****G5··.·····.·
*

••

TO

•

AREA

•

••

F4 •

*"''''*

·••••••••••••••••.•
X

*·**JIt·*··*·*·*

'"

RETURN

•

Charts

55

Chart CG.

$IPLRT2 - update LUE, Get
Refer to Chart 02.

··*·AI··**···.·

****A2*********
*..
*..
lUDRTN

* LUURTN
*
..
*...************* *

..

X
*****61**********
•
..

GET ADDRESS
OF UPDATE

..

lUB ROUTINE

..

1

UPLUP'

..

*******************

FDSRTN

X

FOSRTN

*.. OF GET
AODR
..
DCWN DATE
..
.. LUB ROUT! NE
..
*
'OOLUS'
..
*
•
*****************

..

****A4*********

*•
•

*****82**********

*..

and Cenversien Sutreutin€s

•***** ••********•
LUORTN

lUURTN

o~erand,

****A5 *********
*o•
DECRTN
*0
•
***************

•..

*************** 0

B4

X
.*.
••

X
***********
******B'5
GET NUMBER

DEeR TN

*. *. YES
OF
*..* END
CAPO
.* ....
*. *.
.*
.*
* •• *
* NO
e*

**

OF CHARACTERS ..

TO CONVERT
•
*AND GET ADORES

s*

*OF END OF FI ELO.
*******.*********

; x..... .o.o ......
X

: x ............................................... :

X

X

MlUUR

*****C4**********
GET START
*

*****Cl**********
GET LENGTH
..

..

******'t<***
•'******C5
•*
GET NEXT

..

*

AND ENDING
..
*'"• TABLE,
ADDR ESS OF
•
ADDRESS *
.. OF FIRST lUB
'"
*****************

·,

DECLP

ADDRESS OF

·

•

* BYTE
TI1 BE
..
CONVERTED
*
*****************

* OPERAND AND ..
*LENGTH TO SCAN *
*****************

•

'"

•

,

**** ' .

*

,

01 •• X.

x
**** 01 .'.
....

LUBLPL

•*

••

LUB WIlL NOT
BE UPDATED
IF IN MOVE

YES.* IS lUB
••
•••••• UNASSIGNED
,.c.

*. *•. * .*
,

.* .*

AREA ..

NO

.0.x * .
El

Fl

.*.o

DOlUB

E2

..
.* ]$ PUB •. *.
XYES.*
•.. .*. *.
IN MOVE AREA .*
*02
.*
*. * .. * .*
• NO

•*

*.

.*.x *.

*.o

•

*. *.

*•o.o"NO.*

UNASSIGN
JIB IN THIS

*
*
0

LUB
*•
*****************

•o

: X.............. :

x
1**********
*..*****G
•..
INCREASE
** PO
THE PUB
**
INTER
,

X

:UPLUB

•*****G2**********
•*
.. REDUCE THE

.

* LUB POINTER *
*
BY ONE
..
*****************

•

*****************

•

*.

•

TURN ON
END-Or-CAR 0

SWITCH
*.*********

•
: ......•... x:

: •••••• .o • .o •

*

•*

J1

~EOUCE

NUMBER

*

OF CHARACTERS ..

•

X
*****G5**********
•
PUT PLUS
*
• SIGN (X'OFi) *
*IN THE CONVfRT ..
*<
FIELD
*•
*****************

X

*.o

.o*

•

*.o YES.
•••• X.
.o*

* ••
*
• NO

x

*****
.CH •

•*****H5·*********
•*
..
cnNVERT
*
*

THE FIELD

*

TO BINARY
•***.*************
•*

* C 1*

.' .* •

I

*.o

END
*. NO
*..**. OFTABLE
LUB
.* .* ....
*..
••

* •• *
* YES

.• x ,•
****

* 01 ..
****

X

•****K 1*********•*

RETURN
•***************
•

•

56

*•*. NO •
.* ..••

•

**

x

LBLPEO

OF

B V 1 AND
* PACK
NUMBER *
*
*****************

•

OPERAND AND
CALCULATE

.*.x *.o

END

*. FILE .*
*. *•• *. *

•

*LENGTH OF FIELD*
*****************

*..

x:

**

*
*
•

X
*****G4**********
* STOPE ST,M.T ..*
* ADDRESS OF
..

.'.x *.

X
*****F'5 **********

X

*

E5

• YES

o **F4******* 0

*
*

.<.x *.

•. *•
* .*CHARACTER
GTq
.*
*. *.
.o*
.*
*•.
*
• NO

..* .*

*.o

.o*

. * FIELD
*..**.o LENGTH
= 0

•

..

0'5

:ILtCD

*••
*
*Bt ANK

H4

*****Hl**********
o
,
* THE
STORE
*
PUB
*
*
POINTER
*
*
*****************

•• *****
x
.*CH *
.*
Cl*
·

•
E4 *.
0 OR.
INV.
COMMA .. * .*FUNCTION *. *.CHAR.
•••• *.
OF
.*.o.X •
*.
TRT
.o*

:x ...•...•..•...•.......•. :

x

:RSTLUB

.o •• *.o

x

X
*****F 2*******.**
•*

YES ..

.*.o

IS
.o* THlS PUB *.o YES
••• X* .. BELO\tt THE ONE.* ••••
REMOVED .0

.* UPDATE *.o *. DOWN •
01<. OR DOWNOATE .o*.o ...... .o
*. *.o lUB .o* .*
* ••
*
• UP
.o*

X
*****04**********
* TRANSLATE AND ..
* TEST FOR END ..*
* OF OPERAND
* «BLANK OF! *
COMMA)
*
*
************.****

*02

DOS/VS IPL and Job Contrel

X
****J4*********

•.. RETURN
•..
•***************•

••
•

LlCD

X

•.. ****J5*********
••
RETURN
•.************** •

Chart CH.

$IPLRT2 - I/O Sue routines
Refer to Chart 02.

*A5

T~n:~DSU~~2gTmHl~ THE
DELIMITER TA~LE OR
THE TEST FOR NONBLANK
TABLE. THE TRT FUNCTION
CONTROL S THE RETURN
ADDPESS.

~lELD

•• •• A3 •••••••••

• ••• A".. ••••••••

• MSGPTN ••
•• •••••••••••••••
•

••
••
IOHLD
••••••••••••••••
•

...•*
•*····02······
IOHL2
*••••••••••••••• *

•••••
••
•

*• ••*

REFERENCES
TO
CHC!:

·····C1*····****·
:msmR5iM~ :
•
'PREVIOUS
•
*
COMMAND
*
*•• * ••••
~NV.' ro** •••• ** ••*
••••
•
...

':;F\:l,

*.

*.. *

EBA4

•

~m: ~m

ESH2., FAA4

AEr~ON

*

AND

:

COREO_2YTES

•

FAC4. faDI

~~~~: ~~~~

•
•

:

••••

•

...

.. E2 *.x.

FBGl, F8Hlt

..

x

*.*.*el •••• *.*.**
.MSGRTN
CH'
*-*-*-*-*-*-*-*-*
• PR tNT SELECTED"

*
•

MESSAGE
*
ON SYSLOG'

••••••••• ***•••

*.

IOST~:··
..

*
•

***

X

p S"" I NTD

PROGRAM NEW

PSW IN
LOW CORE

•
..
*
*

•••••••••••••••••

*.

.*

.* 03

.". ' .

•.

•.

....

'.1/0 ERROR.*

•.

* ..•

..

,x
.* £3 ' . •.
. : ' EX~mION ":.:~~.
*.
.•
*.
.*
x

* •.•
• NO

••
***
*ce·
BZO

••
"

it
****F2** •• ··***
WAIT FOR
OPERATOR
ACTION

...

••

•••••••••••••••

X

"
"
"

•o····F3······*··
•
RETURN
••••••••••••••••
•"

X
·····e4·.*·
....**

*.

•• C1 ••
•**.*•

IDHALT

•
GET CHANNEL
• AND UNIT AND
• MESSAGE CODE
" INTO LOW CORE
•
BYTES 0-3

•
•
0
*
•

• ••• *••••••••••••

D5

.0.x *.

•.
cmmh
.. ...:•

.*x..

.*

• NO

READRT
•
•
•

*~

.
.*
!c;~~.:'

YES
*.UNRECOVERA8LE.* ••••••••••••••••••

•

i
*••••
*CC *
• 81.
MONITOR

...

••
***E2 •• *•••• ***
>MOVE HARD WAIT •
..

•

••
••
••

x

:**;~~2=·;·:G:··:

•••••••••••••••••

YES

.".

C5
*.
.*
*.
YES . ' CONDITION ••
.... *. CODE 0
.*

" NO

i

ABNEND

••• ~EVICE.*.*

DEJ4: OfK2

SVC 0

ISSUE
110
COIolM"I\IO

.

X

TRTBRC

••
•

5~b~' 5g~~ '.COM~UNICATlON.* •••••••• x. CODES IN LOW

OFK5,

·.5

* • •••• *•••••••**

• •••• *•••••••••••

* H2*

FEJ2

.'.

• •
••

***.*
*FC •

\i;~(4

EFGI, EFJ4

REFERENCES
•• 01
.-..
TO
CHO!:.* LOG IS
•• NO

•• ···*85·*******.
••
TRTBRC

•••••••••••••••••

X
····*C3*·········
* •*

•• ••

DFB3
OF04
OGEI
EBA3

FAD3, FAH3
FAH4t FAK2

••••

" PUT MESSAGE •
•
ADDRESS, OP *
.CDDE, AND COUNTO
:
t~BCi~bp~~~ :

IOHL2

OBG3, D8H2

~~E~! ~~~~

: "lie * .x.
ABNCHK

DABI, OAGI
DAJ3, DAJ5
DBB2, DBEZ

DCCl.
OFtl,
OFE5,
EAD4,

X
·**.*84* ••• ·****.

MSGRTN

.••..•.•••••••..•••••.•••. x.x. ...•.••••••.••••••••••••..

COCl, CEA2
eG05. CGH4

X

ILLCD

X

83··*·······••
•••..•
•
GET ceB
•
ADDRESS
"
•
READ
"
• **FOR
•••
•••••••••••••

IOHLD

.•

*..•
• NO

i

•

*

****E5·.**.*.*.
VALlO
RETUpN *A5

•
•

•*********••••*.•

x

****

••• E2 •*•

••*.

Charts

57

$IPLRT2 - Allocate Ccre Routine
Refer to Chart 02 •

Chart CJ.

••• **A2 •• • •••••••
...

ALCRTN

...

*••••••*•••••••• *

ALCR'TN

*.oo.

82

.*.X *.

83

.* .. ,....

..***84•••••• *•••

*. *. YES
.* IS *. *. YES
*MSGRTN
CH.
.* .......... x...**. COMOEV
.* ........... X.*-*-*-*-*-*-*-*-*
ISSUE
...
SYSlOG .*
. . MESSAGE
01481 ...
**.. ...'"*
*"'.
..**
,.
*K4*
.
.
•••••••••••••••••
... NO
... NO

.*

R5IZE
l T END OF
•• REAl CORE..

•• x•••••••••••••••••••••••••••••••••••••••••••••••••••
x
•
X

*****C2**********

••

GET NPART
FOR
lOQPCTRl

'"
...

*

**
...

.*****.* ••••**.*.*
: x•••••••••••
X

Ale NEXT

•*****02*···*****·
... STORE BEG I N •
*
...

AND END OF

,..

*'
••***.***********

"'REAL PARTITl ON
...
IN 8BOX
...

x

.*. *.
E2
.*
*. *.
STORE
YES .* PARTsrZE
PARTSIZE
.X..........
LT
.*
fOR'"
*. MINSIZE .*
MINSIZE'"
*..*

•••• *el**********

...•
...
•
•

*...

*. *..'"NO

.*.***********.*.
:

. . . . . . . . . . . . . . . . . . . O' . . . . . . . . . . . . . . . . . . . . . . . . . .

F2

.*
*.*
. BBOX
*.

x:
.*.x *.

*****F3********·*

*•••.

*. *.. *.*

* YES
X

*****GZ**********

**

•'"
*
'"

GET NUMBER
OF PAGES IN
'"
MI NI MUM
*REAl PARTITION
*****"'***********

*

*"'***HI****.*****

*'"

**

*

ALCPFIX

.*

H2

.*.X

*.

*. *.

ADO PAGES OF
NO.*
PFIX
MINIMUM REAL *X ...........
INDICATED
* PARTITION TO
t:
PAGE POOL
*
*************.***
••• *

*

*

*.

*. * . . *.* .*
•

.*. *.

*. *. NO .*.* ENOUGH
*.•*.AVAILABLE.*
PAGES
.* ...•••

*. *.• *.*
*

*'" CLEAR NUMBER **
'" OF PAGES FOR *
* MINIMUM *
*REAl PARTITION *
.****************
X

·**.*G3*****····*
PPBEGIN *
* TOSETSTART
AND •
* END Of ALL
*
•
PAPT IT IONS
*
IN 8BOX
•
****"'************

*

*

•*

.*

H3

x
.*.
*.

ENOUGH
PAGES

*..

•• NO

AlCERR 2
***>It*H4**********
*MSGR TN
CH*
** **HS ******"'**
.-*-*-*-*-*-*-*-*
*
*
X*
ISSUE
"' •••••••• x*
HADO WAIT
'"
* MESSAGE 01001
*'
'"
*
*K4*
*."'*"'*"'***"'."''''*
.**"'***"'***"'**.**

*. *.AVAIlABlE.* .* .........
*..*
*. .*
* YES

YES

: •••.••.•••••.••••••...•• x:x
J2

x

:NOPAGE

*. *.

ALL
NO •
ENTRIES ..
HANDLED • *

*

.*.x ••
J3
*****J4**********
.*
*. *. YES
*MSGRTN
CH*
IS
*-*-*-*-*-*-*-*-*
*..**. SVSlOG
COMOEV
.*
........
X*
ISSUE
*
.*
* MESSAGE 01471 *
*..*
* ••*
•

YES

*
*K4*
*****************

NO

: •••••••••••••••••••••••• x:x •••••••••••••••••••••••• :
X

****K3*********

*
**

RETURN

*"'*************

58

DOS/VS IPL and Job Contrcl

*
*•

*K4 TEXT OF MESSAGES
01001 lESS THAN 16K OF REAL CORE LEFT FOR
PROBLEM PROGRAM EXEcunON
01411 INVALID ALLOCATlON OF REAL PAPTtTIONS
ALL REAL PARTITIONS REOUCE() TO OK
01481 REAL STORAGE GT q,SIZE.QEJIIAINDEI:I:
NOT USEO

Chart CA.

$IPlRT3 - ACD a Device (Part 1 of 2)
Refer to Chart 03.
***.

•• .*A4•• ••
•*••••

••• A3 ••*
••••

:X •••••••••••

•••••*A3··*·······•*

··**Al·········

LINE
•• YES
•
MODE FLAG •••••••••• X'
••
SET.*
•

83···..

•*

**.••.**

*.

X
• ···*01 ••• ***** ••

••

•

INITIALIZE
*
• THE TEMPORARY.
..
PUB AREA
..

•••••••••••• **•• **•

84

LAST

.•
* ••
> *
LAST

•*
•
·····C

CLEAR DEV ICE •
* HOLD AR EA AND *
* MOVE IN THE •

•
m=Y1CF TYPE •
•••••••
** ••••••*.

l~AGF

*.

MICR

••

.*.....

• •• *

YES

E4

•

NO..

.* .*•

IS
MODE

••

VAL 10

• ... F5

* •• *

~*

*E5 VAlID MODES

~~g4 ~; ~\~8 ~ '02',

*.••

X'lOI,AND X'20'

••

• YES

:x ...•..•... :

x

.. ..

• ••• *F 2

.....*
.... .."

••••.
F3········.·
*-.-.-.-*-.-4-.-•
*
X

*•••••••**•

TOO
•• VALID..
•
STORE
SIfJRT ••OPERAND FOR*. YES
* REGISTER FOR
•••••• SWITCHABLE
•••••••••• X. EVALUATION OF
•• DEVICE .*
* SWITCH ABLE
DEVICE KEY

.

'FNDTYP

•
..
*
..

KEYCHK2

.* F4

OF"

ANALYSE THE
DEVICE TYPE

•
•

.. ..

x

• >.

*.
••

••

NO..

•

• Cl.

••

. .••••. . *. *.

X

•*OB
•••**

• NO

G3

*•••••Hl··········*
'GET CHANNEL AND.
• UNIT ADDRESS *
AND
••
*•
LENGTH

••• *••••••••••••*

...*
*
•••

A2.

•

*•*

*..*

••
IS
••
CHANNEL
•• VALID

.*

*FDSRTN

H4

CGO

GET THE THIRD *
• OPERAND FROM •
*ADO CARD IMAGE'

•
NO.*
.X ••••

*. ••

•••*••••••••••• *.

••

*.

OJ.

5 TO 9

KEYCHK2B

..

••

•

BYTES IN
•••• X.
•• OPERAND ••

•. * ••• .*

x
••
*.*
·CH •

• YES

•••

ILLCO

X

• AND UNIT INTO •

•••
**K3*·····***·
*HEXRTN
OG*
*-*-*-*-.-.-.-.-*
*
CONVERT
•

••••••••••• **•• 1\.*

***.*•••*••••••••

•
• *

x*
•••

•

PUT CHANNEL

•
•

TEMPORAR Y
PUB AREA

i-• • •

A3 •

••••

*

•

•
*

*..
•

•

CLASS

•

J4 •

*

x

••

VAL 10

H5

* .*
•

IS
MODE

*.

••

••

*.

.*. *.

IS."
DEVICE
.'
TAPE
••

NO.*
•••••• *.

*. *•.•.*
" YES

• YES

••

••••• •

x

.*.••

J3

*

PICK UJ)
DEVICE

•••• *••••••** ••••

****

x
•* •

.*•••••"••

..
"

• J4 •• X.

• C1·

•.....Kl····.·.·•••*'

X

• NO

····*H3···.··
••*·
•*-.-*-*-*-$-*-*-*

•••••••**••••••••
X

••••

*• G5 *•
*•••*"

*

•• YE S

.* •...
.* .*
x

•.

YES

X

OG.

.CONVERT CHANNel.
• AND UNIT TO •
* HEXADEC IMAL *

.* .••

•

X

• HEXRTN

*

.*••

.. .. ····*GI)
•
•
....
·••••"
.. ..
.. ..
.. ..
.*••
G4

*

···*·Jl
••••••••••
.-$-$-*-*-.-$-.-.

••••

x

*.

IS
••
THERE
A THIRD
OPERAND

KEYCHKl

X

•. *.

• YES

..
.•.xx· *............................
*.

•
.* Gl
.YES.* CHANNEL
x••• *. NUMBER
*. GT 6
x
*•. *
•••••

••

*...
* •••

•
••••••••••
*••••••••

**•••••••** ••••**

x
.*.

••
IS
NO
•
•
•• COMH DEV
•••••• X. J4
•• 3105.*
••

• NO

*'•

*.

IS

DEVICE

x

•••• - E3 ••••••••••

ABNCHK

* GET THE FIRST.
• OPERAND FROM •

...

•

x

.. 01·

.* •

.. ..
.. ..
.x.. ..•.
.*

•• DEVICE CODE*. YES •
•• MORE THAN ._ •••• x.
•• 6 BYTES ••

*••••••••••••*•••

• • •• *El ••••••••••
.FDSRTN
CG.

"

SET MODE IN
TEMPORARY
PUB AREA

• GET THE SECOND •
• OPERAND FROM •
.ADD CARD IMAGE.

•

*•

KEYCHK

*.
••

X

j(

*GET ADORES S OF *
• MESSAGE OIl5A.
•
* -PUB ALREADY OX •••
..
EXISTS'
..

• C2·

••

OPERANO
LENGTH
BYTES

*····C3···.······
*-*-*-.-$-*-*-.-•
.FDSRTN

·····02·····**···

x

•••
* *YES

x

•
ILLCD

•

•·OR
••••*

.. .". ..
•. ..5 .. .*

NOT:

*.

.PUB

..•••••
TAB

.. YES

PU8

EXISTS.* ALREADY *. PU8.
ND.*
•• •••••• EXISTS OR IS •••••• ••••••
>.LAST PUB ••

•• IN TABLE FOR •••••••••• X. leA
••
PUB.*
• INS

*CH• ••

•
•

MODE AREA

x

X

Bl
*.
*. *. NO
*.*OF END
*..••
CARD
••••••
..*
*. * •• * .*
x
.. YES
***
••
OCH *
.. Cl·
**
i
ILlCD ..
•••
PUBEXD
C1
*.
•••••
.* SPACE *. *. NO
.GET
••
* MES

:SKPKEY

MODE INTO
TEMPORARY

••••••*•••••••••••

• NO

•••

...

..* •• A5 ••**••••••
• PUT LINE ••

...

••

SCAN PUB

••••
*co" •
•• J3••• x.
IJBIPLAD

F1

Alto

*• FIELD
WITH
•
PUS TO 8E
•
*••*•••••••
ADDED
_••••••*
•

••
$IPLRT3
**
•***.**.*.*••••• *

AOORTN

x
.*.
.*
*.
*.
*...
•• .*

X

DBLSCN

OPERAND TO
HEXADECIMAL

..
•

J4

.*.

ic

••

*. ••
.* .* DEVICE
IS
•
••
*. •. TeR .* •• • * •• x.
x
*•••
• YES

."*,,.
.08 •

j(

• ••
cz*

••••
r;5 *
••• ••••
•*

.* .*

*. ".

J5

•.

.*. ••

IS
MODE
VAllO

•. *.

.* ••

NO
.*•..•

x

*••
*
• YES

•••••
·CH·
•*

*

*
KEYCHK

X

C1·

•

lLLCD

• ••• *K5*•••*.*.**

*•

COMPLETE

•

COMMAND

..

SET

*

•
•

•• .................••*
:KEYCHK

*

•

••••••

•

A4 •

x
•••••
*OB •
• *cz.
••
Charts

59

Chart DB.

$IPIR~3 - A~D a ~evice (Part 2 cf 2)
Refer to Chart 03 •

•••••

*OA •

'* G3*
***

KEYCHKl

.*.X *.

••••• A3 ••••**••••
•*
*. yes
'*
•'*
MODE
*..**. 3705 •*.
•••••••••• X.
WAS
'•**
*
• REQUIRED
**.. .. '**
'*
'*
•••••••••••••••••
* NO
A2

••••

•'•* 81) *'•

*.*.

x

B2

.*. *.

X
***.*85 ••••••••••

PUBMKI

*

*. *.
*. *DEVICE
MeR
*.•*.
.* ......•.xX•••••••••.
* . . *.*
•••••
*•.
*CH *
'* *YES
'* Cl.

:"'....
'*'* *. x· REFERENCES
: •••* : 6~A5rD8~3~

LOAD ADDRESS
• OF PUB TABLE
IN PARREG
•
TO BUILD PUB
•
SUS"OUlI NE

.................
'*

'* '*

X OAK 5

X

•• ••·t5 ••••••••••
'SLDPUS

GET KEY

SWI TCHABlE

DEVICE
•••••••••••••••
**•

•••••••••••••••••

.'.x

X

*·*.*05······
••••'*
'*-*-*-*-*-*-*-*-*
*

.*02 KEY *. •. *.
NO.*
.••.
*. *. PRESENT
FIELD
••
.*

*CHUl:nN

••

.*.x

••

KEY

X

• •••• ES ••••••••••

*. *.

*LUUIHN
CG*
.....-*-*-*-*-*-*-.

FIELD
YES
*..*••LARGER
THAN ••••••
3 BYTES .*
*. ••• *.*
x
• NO

• ADO A LOGICAL.
•
UNIT BLOCK
•
• FO~ THE PUB

•••••••••••••••••*

•••••
*tH •
• Cl·

.•.

*•

X

.*

F2

I LtCD
••

.. ..

*.

.•

..
....

F3

.

...

x

•••••
• ce •
• 81·

•*
*

*.

TCHABLE *. YES
.* CHANNEL •• NO
*.••••SWIDEVICE
•••••••••• X..
SWITCH
••••••
••
..SUPPORTED.*
*..*
••.•
*NO

:NUMCVT

.'.x

x

.* G3 ' • *.
•• DEVICE ON *.

.-.-*-*-*-*-.-.....
•
CONVERT
*
• PRIORITY NO. *
•
TO DECIMAL
•

••

CHANNEL 6

...*
*

.*.x

.
X
.* ......•.

••••x *
*CH •
11 Cl •

NO

•••

X

KEY GT
255

*. *••• .*

••

YES
••••••

.*•. *
x

NO

**
_•••*••••••••

·.··*H3.··*.*.***
FLAG AND *
*• SET
MAXIMUM KEY •
*

•
•

FOR
SWlTtHABLE

•
•

••*.....DEVICE
*.*.***••••*

*tH ..
• Cl·

PUBMKE
X
*****J2·**·*·*·*·
• LOAD ADDRESS
OF 'StHTST'
IN PAR REG
•
• TO BUILD PUB •
•
SUBRoun NE ** •••

•*•

ILLCO

**

.

X

·*·**J3
••****•
* LOAD *.**
ADDRESS
•

•
* OFIN SCHStH'
PARREG
•
T~uG\\AbM~B :
***.****••**•••••
I

:

.

.x •••••••••••••••••••••••••
x
_.-.
• •

'*
*• *** •

.. 85

60

.*

ILlCD

H2
*. * •
•*••PRIORITY'.

.••••••••••• x.*.

*.

•• ••

• *.********.*****

*.

MONlTOR

.YES

••• ·*G2****··••• •
*OECRTN
CG*

••

DG*

A LOGTCAL
* 400
UNIT BLOCK
•
FOR T~e PUB *
•
*••••
••••••••••••

*. *•.• .*
'* yes
E2

DE'

•*-*-*-*-*-*-*-*-*
UPDATE THE
•
• FOCL TO SHOW '*
'* THE PUS '*

REG I STERS FOR •
EVALUATION

•

'*

•

lLteD

'*
·····e2*·········
**'*
'*
'**

KEYCHK

•
•
•

DOS/VS IPL and Job Contrel

Cbart CC.

$IPLRT3 - Delete a PUE (Part 1 of 2)
Refer to Cbart 03 •

•••••*
• J3*
••
•

**** •

*•

·CD

•**** •*

•.......... x:
:OEllOP
J. "'4O
A3

X
*.*.*A I ••••••••••

OElRTN

*FOSRTN

CC*

•*4O* ON
IS

*-*-*-*-*-*-*-*-*
GET FIRST
*'
OPERAND FROM
•

*4O

*•

•
CARD IMAGE
*
•••••••••••••••••

Bl

.'.x

••

.*
*. *' . YES
* ..* LOPERAND
H GT
.. *' ........
*. 6ENGT
BYTES .*
.*
*.
* ..
• NO

"'4O

*4O

*. *.

S3

*

4O*

4O*

*.4O*.404O4O.4O
NO
.... 4O .. 4O ... 4O.4O .. 4O

4O*

YES

.'x.

*

o

*.

*4O

.*

4O*

.*

*. * 4O*YES

... YES

X

*

**

HOlO

PUB ADDRESS

**

•
'"

...

*•

**************"'**

C 1.

o

*4O

X

.* .
B4
*4O
.* WAS *.
**** *
.'" THE SCAN *. NO
...
"'4O SUCCESSFUL
.* .... X*H2
*
*. * . . * 4O*
***** *

SCNEND

*4O

*****(3**********

··

X

..

*****(4**********
*
oeTEPMINE
*
*THE DEVICE TYPE-

•******************

0

: X•••••••••• :

ILlCQ

X

:SCNLOP

*****01**·******·
•.INITIALIZE FOR *

*'

*•

IS
*4O
.* THIS PUB
NO
* .. TO BE DELETED.* ••••

x

x

*****03 *******"'**

*...

•'"
...
*
•
*****************

*
*
•*••••••••••••••••*
•

PUB
THIS

CHANNEL

4O*

.*. *.
C1
.* CHANNEL *. *. YE$X.
.
*
*. *'.. NUMBER
.* ....... .X
GT 6 . *
**....**
*****•
*CH
.. NO

A3

*
*o

CONVERSION TO
HEXADEC IMAL

INCREASE

PUB ADDRESS
TO NEXT PUB

04

.'"

.'x.* .

•* DIRECT *. *.

NO

'" .A(CESS DEVICE.* ••••••••
*..
TYPE.*
X

*..*

****'"

* ...
* *YES

*00 '"
•

Al'"

*o •

NOSOOl2

x

. .*.

X

*.
". *. NO
SEEK
*..**.SPECIFIED.*
OVERLAP
.* ....
*. * •• * .*

*****El**********
~~~~X?,P~
~'? ..

E4

*-*-*-*-*-*-*-*-*
•
CONVERT
*
•
OPERAND TO
*
•
IMAL
.*
••HEXAOEC
* ••••••••••
_.•

'" YES

X

X

*****Fl**********
••

GET CHANNEL

•
NU~BER AND
• FOCL ENTR Y FOR

******F4*****"'****
SAVE S~B
*
* PO INTEP FROM *
'"
DEL ETED PUB
'"
'" DECREASE SAB
**
* COUNT BY 4

*
,.
0

*
*--_TH••IS_••CHANNEL
_••••••• ..*

Gl

*****************

4O ......... 4O

.*.x * .

YES

'" H2

o

*

0

fIRST*

*PUB ON CHArm EL

... Of DEVICE TO
BE DELETED

*
...
*

*****************

x

***** •
•* A3 **
****

'"

·
*

'"

SET PO INTEP
TO

NEXT PUB

*
*""

.

*****************

* **** *.

X
*****Hl**********

**DETERMINE

x

*****G4**********
*
0

.* DEVICES
ANY *.
* ..••••••••••••••••••••
NO
*..**. ON
THIS
CHANNEl .*
*. * .. * .*
*

.x:

:GNXPUB

*.X4O
•

****

X
*****H2
**********
*GET ADDRESS
OF *
* MESSAGE OIl2A ...
... 'DEL COMMAND I s*
... FOR

NON-EXIS- ...

... TENT DEVICE

I

*

***** ************

x

*****

*
*o01*
0

*CH

o

A8NCHK

.* .*

H4

.0.x *.

"'. *. YESX.
.* ........ .
.*
x
"'..*
*****
*••
*
* NO
**00A4**
**

IS IT
*.THE LAST pus

"'4O

*

NOSODll

x

.*.

J4
*.
.* OIRECT *4O *.
.. NO.*
.ACCESS DEVICE.*
.....
*
X
*. TyPE .*
*. *~ .* .*
'" YES

X

***"'*K4**********
THE SAB *
*•*UPOATE
PO!NTEP S FOP ,..
* THIS PUB AND *
* THE NEXT PUB *
*****************

Charts

61

Chart DD.

$IPLRT3 - Delete a PUE (Part 2 ef 2)
Refer to Chart 03.
••• **

****
•
.DC •

• DC ..
* 04.

• H4*

••

"""

............. xx"

X

NOSODL2

At

•••

NOSODll

•••
Ait
••
.*
••
NO •• ARE THERE ••

••

.*
*.
•• 2703 ON •• NO
*. CHANNEL 0 .* ....
*.. *.
.*
* ..• .*

••••••

*.

TEB'S

*. •.. * .*
•

• YES

Bl

.".x *. * .

.*
•• LINE

*. * ••• .*

•

.*

INITIALIZE
FOR SCAN OF
PUB TABLE

*84**· ••··***
••*•••GET
••
NUMBER

•

OF DEVICES

..

WITH TE=B'$

ic
*****C4******* •••

:TEBlOP

••

••
•
*

DETERMINE
TEB FOR
THIS PUB

•
•

***** ••• *** •• *.*.**

.*

01

J. ••

04

•*.*TEB
IS

*.

.:.*. l~Ak~~L D~ .*.:"~~ ••••••••••••••••

••

*. * ..• .*

*.

• YES

.•.x

MOO MOVE

.. NO
•••••• TABlE POINTER ••
X
.TD BE DECR.*

*.

X

••••• E2 ••• • ••••••

Et
".
2103 *.
.* . *WITH
MODE *.

* •. *- .*

•:NUM~~~R~~EN NE S:*
N USE
•
*•*.*.**I ••••
*•• *••••

• YES

X

X

*

• ••• *F2 ••••••• **.
•.GET
ADDRESS OF •
•

*.*
• •• *.****** ••••*

*•••••••• ***•••••

OECRE"ENT
,.
POINTER TO
*
.L tNE MODE TABLE"

X

•*·*·.Gl*******.*.
•
• UPDATE LENGTH.
• OF LINE MODE
•
TABLE TO SE

..

MOVED

•
*

*

*******.**.*****.

Hl···.···***•
X

•••*••
• INCREASE

PUB

•
•

.*.x

••

*.

THIS *. NO
TO BE
••••••••••••••••••••
DELETED .*

*.

.*

* ..
* *YES

:TEBOEQ

x

.

*****E4*****•• ***

":DEl~~~

:::~BB~OR :

* DELETED •
•*••• **** ••••• *.***

•

TO
*•
*• ADDRESS
NEXT PUB
••••• ** •••• _••••••*

• L1NE MOOE TABLE.
• ENTRY TO BE •
DELETED
•
•

X

PUBDEQ

•****.F~****.***.*
* GET ADORESS •
*
*
*
..**.*****.******

• AND LENGTH OF
•
PUB TO BE
•
•
DELETED

X
·····G2··.···.·.·

**··*G4* ••• **.**.

•• **.** ••••••••• *

.****.****.*.****

.GET ADDRESS OF •
• LI NE MODE TABLE.
• ENTRY WHICH •
" WILL OVERLAY "
• DelETED ENTRY •

X

X

• GET ADOPESS
• AND LENGTH OF
• ENTR I ES WHICH
• WILL OVERLAY
•
DEL ETED PUB

*•
•
•
•

*-*-*-*-.--.-*-.-*

ic
****.H~.**.**.***
*SYSMVC
CF.
.-*-.-*-*-*-.-*-*

• ***.**** •• *.***.

******** ••••**** •

•••• *HZ ••••

*SYSMVC

·**CF.
•••

• MOVE UP OTHER "
ENTRIES TO
*
"DELETE THt S ONE"

*

• MOVE UP OTHEP •
•
ENTRIES TO
*
.OELETE THI S ONE.

X

.*.**J4 ••• ****.**
OG*
.-*-*-*-.-.-*-*-*

*CHURTN

.CHANGE THE FOCL.
• TO ELIM INATE •
• THE DELETED PUS*

*.*.********* •• **

ic
***K 4**** •••CG*
**•
•••LUDRTN
*-*-*-*-*-*-*-.-*
*NULL THE LUB'S •
*WHICH PO tNT TO ..

• THE DELETED PUB'

•••*•• *.**** •••••
: MONITOR

••
*x••
*cc •
• 81*

••
•

62

E5

x
.* .••

••
•• END

••

*.

OF
TEBtS

*.

DOS/VS IPL and Job Contrel

* . *.

.*
* ..
*
* YES

: •••••••••. X:
:x .••...••.•....••.••...•. :

" ••• FI •••• *.*-•••

•••

••

•••** •••***********

•••.•.•••.. x:
:MODLOP

*•

:X •••••••••••••••••••••••••••••••••••••

x
*.*.*c 1***••****.
*
•

YES

•••••••••*** •• *•••*

* YES

•*

.*

X

"DOE *. NO •

•• TABLE PRESENT.* •• X ••••••••••••••••••••••••••••••••••••••••••••••••••• x.

*.

.*

.*

NO •
••••••

Chart DE.

$IPLR~3 - Build rUB
Refer to Chart 03.

~atle

Subroutine

•• ••••
A3 •
...
*

•••• •

A3

*.*.A I ......... .

*

..

*•••••••••••**••*

X

,

82 ..

••••
i<

**.·*82···.······,
.*.*.*•..•..*••••
,

••
***81*·*·*···*·
* GET CHANNEL ..*
..
:.. ~g~~~~lt~~B
:
PUB ORIGIN
•••••••••••
**** ••..

.. [NCREASE PUB ..
'SEARCH REGISTER'

..
..

TO NEXT
ENTRY

..
..

: x.............................................. :
x

CHCLOP

Cl

•••

....

.* THIS .... .... NO ..
*..*•• PUB
ENTRY
.* .... X...
AVAILABlE..

.....*
* •• *

*.*.

X

•·*·**B3··******·*
* CALCULATE .-*
*

CHANNEL END

:x ......•... :

•

*

82 ..
..

*

****

...

PUB USED
BY

PUB LENGTH

.•..............-

.....*
. I N Foe l
....* .."
... x................................................ ...

CHCNT

.* •*

*.

<

El

.*.X ....

LAST
CHANNEL

*. *.

*..... ..**

YES

*

....• •• **E2*****.****
....
DETERMINE

.* .* ..•..... X......

LAST PUB

ON CHANNEL

...
•

'" ••••• ** •••*.*•
.***

* NO

**

*•

GET FOCL

X

*****E3***··.****
*SYSHVC
CF*
*-*-.-*-*-*-*-*-*
** MOVE
PUBS TO
*
MAKE ROOM FOR *
lFt-4t:W pub
.t~
*************.***

<

•

:SCHTST

••

NO

.. .!. ..

:........... x:

*****J 1**********
DETERMINE
•...* LAST
PUB
**
•
ON CHANNEL
...
*************.***
•
*
**.*

·
*

...

'.

Kl *.X.

x
.*. .....

GET LAST PUB

** ONFROM
CHANNEL
FOCL
*
****•• *•••• ***.*.

NO

••••••

X
**••*E5 **********
** ! NCREMENT
**
* NUMBER OF
*

* esc
i...i
~

OR.. SIS

\~t:;

I,.;SL~

•
...

*******.*********

··***F5 *******.*.

*
...

CALCULATE
ADDRESS OF

*FJ:l:EE l! NE MODE
* TA BlE ENTRY

**

**
*

.********.*******

X

...*****GIJ
MOVE**.*******
MODE
*

: NOSQAQ

TO NEXT SAB

*...
...

x
.*.
J3
*. *.
.*.**J4***.******
.•
*GET AOOPESS OF ...
WILL
..... NO
* MESSAGE
0124A *
*..**. NEW
SAD
•••••••••• x*
'CANNOT ADO
•
FIT.*
... INSUFFICIENT ...
*..*
*SAB TABLE SPACE.
*. * .*YES
****•• *-**-*••

*.-

•

X
*****K3******.*.*
•
*
...
SAVE SA8
*
... POINTER AND *
* INCREASE SAS *
... COUNT BY 4
*
**.*••***********

X

***.*H5 ********.*
*
•
* INSERT NEW *
*SAB IN DES IRED.
* LOCATION
...
•******************

*****************

*•
...
*
•

.*
*••
*.*
... YES

.* SEEK *. *. NO
* MPORARV
FROM
AREA **
*..**. SPECIFI
OV ERLAP
.* ................................................. . *TE
ED ••
TO
*
*
*LINE
MODE
TABLE.
*. * ... * .*
***************.*
... YES
x
•
•
................ x. x................ .

0COMMUNICAT IONS

X
***:to*J2 **.***** ••

•o

* . *.

X

.*. *.

• REGION. POINT

CHF I N

* .X ............................... .
•• :to*
•
x
•••• *Kl****·.*·**
*
•
• GET DES IRED *
POSITION
•
*• FOR
NEW pue *
******************0

ENFNO

G3

...

NO

X

SCHSCH

,1".""

*****H3**********
...
GET SAB
...
* ADDRESS FROM ...

.* FOCL
NEXT
•• YES
••
USED
.* .................. .
*.
.•
*. * •• * .*
o

..

ALL PUB ENTRIES 8EYOND •
THE DESIRED LOCATION
MUST BE MOVED UP ONE
PU8 LENGTH TO MAKE
KoLiI"i '...-i.J1<. (Ni: I-ti:: .. t:1'I

X

*.

Hl

*E4

x

TSTSO
BRANCH ADDRESS OF THIS
INSTRUCTION WAS PLACED
IN REGISTER ·PARREG'
IN ADO ROUTINE.

tT AN

DEVICE

i<

* YES

*G2

• *. *.

.****05********·*
•* INtTtAltZE
*•
*AND GET ADDRESS.
• OF LtNE MODE
•
•
TABLE
•
**.*.*.***••• **.*

•*
*
*
* ••********** ... **
.**
GET ADDRESS
TO MOVE
PUB

.*
*. NO
•.
*..* DASD *.......................................
*. *.
.*
.*
* •• *

CHANNEL

.*.x ' .
Gl
.*
* ..
..YES
.•*..*SWITCHABLE
.*
*.*.DEVICE
*G2
.*
.*
* •• *

...

*

...

X

**
...
*

F3

*
*
o
••••
** ••• ******-**
OF NEXT

•

C5

.*IS
*..* teA
*. *.

****.03*••*******

x

**** 0
•
* Kl ...
****- •

X
*****F 1**********

SCHST A

o

................ ·x

*** ••****.***•• **

X

YES

0

:.**.*p8~~:~a~
:
••****.*****
X
•• ••*C3**.******·
...*
INCREASE
*0

.*.
••••CALCULATE
*02*** ••• *•••
.* 01 ANY *. ....
..
..
.'DEVICES ON *. NO
• DISPLACEMENT • •
*. *.
THIS CHANNEL .* .............. x* STORE CHANNEL ..
.*
.. PUB ORIGIN ..

...

* •.
*
• YES

SPRSW

.. YES

BeHEST

*..* NO
..•.
.• *

' . PAS T CHANNEL
END
..

*••• •
*

,..
BLDPUB

.*
*. *.

*..

BlOPUB

.*.x ••

•• IS
••
POSITtON

x

• ••• * J5 ********.*
**
STORE PUB
*•• ORIGIN
AND
...

·
•

DISPLACEMENT

.
...

****.****.*.*****

x
*****
*CH ...
... 01*

• *
*

ABNCHK

i<

****K5****.***:t
**
RETURN
**
• .****.***.**.** *

x

*.*.

••**** •*
•

A3 •

Charts

63

Chart DF.

$IPIRT3 - Device !y~e Ccnversion sutroutine
Refer to Chart 03.
o**** 0

**"'*

**o

• A2 •
•

*•••• A2*******.**
o SET MODE AS *
o
0
o REQUI REO FOR •

•

FNOTYP
•** •••••
*.*.* •• *•

*

7-TRACK OR
.. 9-TRACK TAPE

···**81**.·······

82

** SCAN
AND GET
•
lENGTH •
••••••••• ** •••***
•

.SCH..OP
Cl

.*
*.•**. Of
...

x:x

.*. *.

*****

*OCHC 1**
***

x
.'.
...

IllCD

****
•* K4 *
*
****

• •

X

•

INCREASE

**

'TEB USED'

•

TEB SEARCH

NUMBER AND
*INITJAL[ZE FOR

*..•
• YES

**
*

x
.0 •
C3

.*
*..* 3330
OR
*.

*.*.*e 1*.****.**.

•'SET

•

SCHEDUL ER
FLAGS

x
.*.
*.

Fl
BURST

.*
ON
*. *.

NO.*

••••••

•

MPX

* •• *

RPS BIT

.*
* •••
* NO

**
*
*
*

.*

STORE TEB
NUMBER
DESIGNATE TEB

•I N

USE

*

JZ

*

ADDRESS OF_

*-OEVICE
REQUIRED
'"
ROUTINE *
•
0
*****************

**
•

x

.*
* .• * .*

.* NO
.....

... SUPPORT IN

••

x

*

*****

YES

SUPVR

•*

NO •
•••• X.

*. *.. *. *

*CH *
'" C1*

*
*
ruco

YES

o

.*.x *. *.

ic

E5

.*. * .

.* DEVICE *. *. NO •
*..**.CHANNEL
2QS"i ON
.* ... X.
0.*
*. * ... *..*
x

.* DEVICE *. NO
*..**. CHANNEL
2703 ON
.* ....
0.*
*. * •• * .*

* YES

YES

*****

*CH '"

**n*
•
o

x
.*.
*.

IllCD

*4o
.* .*LINE
MODE *. NO •
..
TABLE
*. PRESENT
.* .* ... X. X.............. .
*. * .. *.*
x
• YES
****

"'***

*

* K4 **
•
*

0

X

I

*****G3**********

*
*

*

INCREASE
* ITEB" USED' •
NUMBER AND
*INITIALIZE FOR
TEBV SEARCH

**
*

*

***.**.**-***•• *-

****

YES

*

.*
*.
*. TO BE ADDED o.._ NO
••••
*. *ooA TAP E .* .x
* •.
* *YES
****
*
*

****

INCREAse
TEBV COUNT
BY 1

**
*
*

*******************

• MESSAGE OIl4A
*'CANT ADD TE8- *
.. INSUFFICIENT *
* TABLE SPACE' ..

*****************
: ABNCHK

X

******
*0
****
*
DOS/VS IPL and Job Contrcl
*CH
• 01*

.,

•
*
******.**********

X

*****H4**********

•**

SET
OEFAUL T
LINE MODE

*
*

**
*
0

***.***.*.****.**

*

Kit 0

x

x

J3

.*.*.

*****K3******** **

X

OR START/STOP *
leA l !NE
•

*

•

*****K2*.********

*

*
*

*o
'"
*

.* .* IS *. .4o YES..
*4o TEBV IN USE .*.4ooo.

*GET ADDRESS OF ..

."4 .

*****H3 ** ** **** **

****

. *. *.

X

*****G4**********
•'" INDICATE Bse *

:x ............. .
X

TEBVEST

• *I S THERE *. *. YES
*.••*.NEW
SPACE FOR A .* .. oo.
TEBV .*
*. *.. * .*
x
* NO
•• **
*o *G3
_
•
*• .***
*.
K2 *.Xoo
*
*
*
*.
*.*****
•

TEBEXD
"'.

. ' IS DEVICE

64

*

K4

.* . *.
D5
. *• *PETAJN *• *.

RACOVC

*. *.

TP
SUPPORTED

*. *.

E4

*

*

x
.*. *.
*

•*****
*
G3 *

*

*o

*****J 1**********

•*****
*
A2 *
o
*

**••

• *
...x*

"'.

''**

x

X

x

*.

F4

**
*

: x•••••••••• :

.*.x

04

•* .*

*oo

•*** .*.
x
HZ
*.
.*
*. *oo NO
.*
ARE
*.THERE TEBV'S .* ....
*.
oo*
*. *•• *.*
x

**
*
**
*
****************.*

K1

••• ****.*.* •• *.

o**** *..

TURN OFF
BURST FLAG

*-LOAD

RETURN

* H2 *.X.
*
* •

X

BSTOK

*. * . . * .*
*•• *
* YES

."' .. "'. **"'*
.*C4TP *. *. * .. NO
.*ISC5 DEVICE
*• *. NO •
.*
.*
*. DEVICE .*.4o ....... x*.
2955
.. *•• x.
*. * . . * .*
*. * . . *.*
*•.
*
*•• *
* YES
* YES

*

*****************

*****Hl******·***
*
•
*

o

X

:...•••...• x:
BSTOFF

**

•

*.

B';

....x

*

****E3*********

*

*****G2**********

*. *. YES
.* .*CHANNEL
DEVICE
0 .* .......
*. *.

YES

X

•

*.

****

x
.*.
*.

* .ON

.*.x

.. *

******* •• **

..YES.* .* IS ... *.
...... *. TEB IN USE .*
*. *.
.* .*
*.•
* *NO

"'. ••
.*
.* .*

'" YES

Gl

COUNT BY 1

FZ

C1*
••
*

*. * •
*... *NO
......

ON IN PUB

X

********.*.******

oo*.

*. *MICR
.. *
...*
*...
*
'" NO

:x ............. :

: I ~g:~:~~T T~~D :

*'
**'
*****•••• *******.
•

*.* •• *.*
x
* NO
****
*
**** *
••
** K4*
• 4ox* H2.*
•
***** * *.* •
.*.

* • *. NO
.* .* DEVICE *. *. YES
.* .*SUPPOPTED
MICR
... TO BE ADDEO .* •••• oo •• 4o x*.
.* ......

X

seT

•

**.**E2**********
•*
GET TEB
*

DEVICE TYPE'
AND CHANNEL •

•

IllCO

3340R

...•..•.... x:
: TEBEST

*"* .••. *

84

*.

.*

•........•••. 'x
*. * •

*. * •• * .*

*

*o*

*

*.

*'

o **03******* 0

0

*.

TE8VOET

*4o

*

**.**************

X

•

.* DEVICE
NO.*

.4o .4o*.

.* .* SUPPORT *. NO
'.FOR 3330/3340.* ••••
••
..*
*. * ..* .*
x
* YES
*****
*CH '"

RPSSET

*****02·*********

.*
*.
• NO.' DESIRED *.
•••••• DEVICE TYPE .*
*. *.
.* .*

.' •
B3

C2
o.
•*IS THERE *•*. NO
*.oo* SPACE
FOR A .*oooo ••
*. NEW TEB .*
*. *oo .* oo*
x
* YES
****
** K2 **
o
0
****

* •' . YES
.* ....
.* .•
x
*•.•
• NO

.*

X

CHEK3330
CHEK3340

x
•*.

.*

.*.x *.

•••
A5
*•
.*IS THIS ••
YES
A TAPE
YES
TO BE ADDED .*4o ....... ooX*..
CARTRIDGE
.* .... .
A TeR
4o*
*. ~EADER ••
44

*..
* *YES

•*. *.

*••
* *YES

END
TABLE

01

*. *oo 3340

*

..

*. *. NO
*. * THERE
ARE
*.•*.
.* ....
TEBIS
.. *
*.
.•
x

• GET START AND *
END ADDRESSES *
'OF DEVICE TABLE'

. ·· . ·· .
.0.x·······
*.

.* DEVICE *. *. NO
*..* 3330
OR
.* .••.

x

TEBDET

*

• • • • • oo . . . . . . .

A3

.****************

X

**

A4 0

~*$:~

0

X

•....Al····...··•*'

FNDTYP

••••

*. *.

.* .*

*. o 4o*NO

J4

..* IS SPACE*.
*. NQ
*..*THERE
IN THE LINE .* .................. .
.*
*. *. MODE
TABLE.*
* •• *
****

***
X

**
*

SET TEBV
POINTER
*OES IGNAT E T EBV
I I N US E I

*'

**
**
*

*****.**.****** **
****

.• 4ox** Kit **
**•• *•

.* .*.

K4

****

*

YES

'
...
*.X
•
MDDEXD

X

•*'"

RETURN

*************.*

X

*****K5**********
*GET ADDDESS OF *

****K 4*********

*
*

•

MESSAGE 01604 '"

'" 'CANT ADO-INSUf*
FJCIENT LINE
"'MODE TAB SPACE'*

*

*

*****************
:

X

ABNCHK

**."'**
* 01*
*••

*CH

$IPLRT3 - Ccnversicn and Update FOCI sutrcutines
Refer to Chart 03.

Chart DG.

•
..

•

•• •• A4* •••• •• ••
CHURTN
..

•••_.*•••••.....•
X

CHURTN

*NUlL FOCl LIST,.
··*.·8~·*···*·***
: i~~OG~¥Bs~~Rt :

·.**81........ .
••

o

•0

HEXRTN

•

..
..

••••*.*.*••••• *

X

HEXRTN

X

..
o
..

PUB NUMBER
BY 1 TO
.. FORce BRANCH

• OF CHARACTERS.
•
TO CONVERT
•
.ANO GET ADDRESS.
oOF ENO OF FIELD*

*••••**••••***.*.

•••••••..•• x:
o
..

BYTE TO BE
CONVERTED

04 -".x.
•***.
• •

•

STARTING WITH
END ADDRESS
MINUS 1. EACH
BYTE IN THE FIELO
I S CHECKED IN
THI SLOOP.

CHEXT

..

· ...0.

*••••*•••• *****.*

x
.*. ....
El

.*

-. -.

*.

•• CHARACTER o. YES

*..

.* ........ ,.

GT X'OF'

* •.
* .*
* NO

x
.0.

*. *.

Fl
•* END OF
.. NO.*
••••••
FIELD

*. *.

*

..

*

C1·

••
•
ILLCD

;';'Ub

*. *.

•

4O*

.•

NO

x

X

....

.* .*

.*

* ••
.. *
YES
X

•

.....

*****

*CH

•••• *G 1*.****.* ••
..
•

X

*·***04**********
ADO ONE TO
*
PUB NUMBER
*
* AND UPDATE
*
*,.. SCAN *05
AOOR ESS *
*
***** •• **.***.***
****
*o E4 *.x.
•
x
****
CHULOP
E4
*•
.*
*4O
YES .*
*..*
4O.4O ........... 404O.4O4O4O.*.
LAST
•
•

0
..

*02

0

*'"

•
0
***********.*****
o **.* o .

*02

x

••••
*o *01*···*·*·*·
0
GET NEXT
0
..

..
..

····*C4*****
••*.*'"
DECREASE

··***el·····***"*
..
GET NUMB ER
..

:CHKLP

ADDRESS OF
]/0 TABLE

•••• *.**********.

PACK fIELD
TO CONVERT

HEXADEC ] MAL

*0
..

..

•
••
***.***********0

X
•• •• HI·•• • . .• ••
RETURN
•..
*..
•••*••••** •••*•• *

****F3*********

**
* RETURN
**.************* •
o

F4

.*
...... *..
HI

4O*.

*4O

•• COMP *4O
CHAN. NO. *4O LO

4O*

TO SEARCH .* •••• 4O.4O. x*.
*. CHAN. 4O*

*..*
*4O • .*EQ

:SETFCL

x

*****G4-·*·*******

**
*

seT THE
FOCl ENTRY

*,..

••
*0
*****************

F5

4O*.

*•

••

• *SWI TCHASLE

DeVICE

* .. NO
.*.4O ••

*. *.4O..*
*4O • .*YES
i<

*****G5**********

o
**

*'"

DECREASE
CHANNEL
NUM8ER

*
*
*
RY 1
**
*****************

:...•..•••. x:
CHUPD

x

X

•*****H4*·********
* UPDATE THE •*
* NUMBER
CHANNEL
*
**
*
•
**** •• ***********

H5

.*. *.

*. *.

.

PUB
CHANNEL
NO X
*.EQUALS SEARCH.* ••• .o

.*

.o*

*.

CHANNEL

*. *•. *.*
*

.*

YES

x

****
E4 *
••• ****
•*

CHSLOP
X
**·**J5**********
STO'E FQCL
0
ENTRY AND
*

**
•

ADO 1 T8

•

*CHANNEL NUMBER ..
... TO RESTORE
•

....*******•• ******
*

: x ................ :
x
****

*

• 04 •...
****

Charts

65

Chart EA.

$IPLRT4 - SET Stateltent Processor and Assign SYSLOG (Part 1 cf
Refer to Chart 03 •

2)

••• *A 1*••••••••

•..
S IPLRTIt
••• *•••••••••••• •
•..

•• *.
x.
••• *.• .
*CE"
..
.. J 1 ...

SETRTN
..

*

..

X
**SI •••••••
~

ESET

SET SWITCH

•..

..

**
*
** •••••••*. *

.**.

*

.*. *.
.*C2
•. *. YES
.*
END OF
..
.. lOOP TO LOOP *•••...•. X..
*. COMMAND .• ••••••••••••••••••••••••••••••••••
.. THREE TIMES ..
••••**.********.*...
**.. ..."*
* NO
x

.ENOLOOP

*****c
1 ••• * •• *.**
..
..

.*.

(4

*.

*.

*. *.. * .*
* YES

••••••••••••• x........................ :

x

x
·*·*·01****····**
*FDSPTN
CG*
*-*-*-*-*-*-*-*-*
..
GET NEXT
*'
OPE"AND

*. *.

•• CLOCK

.'NOT SET O'
NO
NOT
...... .
*OPE"ATlONAL*

.INITIALIZE NEXT.

..

*

(4 ..
•**.*
••
...
.....
...
x:
•
x

04

.*. ••

.•OATE AND *. *.
... *..* CLOCK
NOT ••
*. PEAO .*
*. ••• *.*
x
*••• *
* NO
*CH ..
YES

..

**************.****

.. C1*

ILLCD ..

x

E1

.*. ....

....
..*****E2*********...
.. **E3****.*_ ..
*..* YES
..
SAVE"
BIT ..
DATE
.•..•...
X.
DATE
* •••.•••. X. .SET DATe
IN
* •••.
*. .....* .*
.. SPECIFICATION"
.. seT SWITCH ..
..
..
..
*
..... *
•••*****.*.*.****
•••• _••• *••

.*
*..*

*

:CLCKCHK

.* .*
••••

F1

j. ....

•. •.

CLOCK

*.*
*.•*.

G1

*

X

*****E4*******·**
*OATIMEPT
EF*
.-*-*-*-*-*-*-*-*
PROCESS
•
*OATE AND CLOCK ..

*

•**.* ••• * ••• *.****•

NO

•*.
••
•
.*
* NO

:ZONECHK

*

.t*.

ZONE

•**•••• F2**********
•*
SAVE

**.F3** ••••• •

••••••••••••••• *..*

***.********•

*.***F4**··*·"'**·

•• GZ.*.*******
*****G3****.*****
*. * . YES
•***VAll
..
* SET ZONE I N . ..
DATE AND *
*COMMUN ICAT IONS *
X
.* ........ X.* CONVERT
lONE ••••••••• X. REGION AND
..... .
.*
* SPECIFICATION"
•
COMREG
•
**.* ••• **••• *.*••**
..*.*••
EXTENSIONS
*
** •• ** •••**.

• NO

·

:IOP~~ITb~o~~ST

:
SET TOO CLOCK •
SWITCH TO
•
'ENABLE SET') ..

*..•

*.** •• **.* ••• *.**

*...
•• ••

X

S ETClOCK

.SET CLOCK BIT*
•
.* •••••••••• X: SPEC~~~~~TlON : •••••••• x.* SET ~~ITCH ** •• x.
YES

X

MYJOBDTE

*.***G4****.*·***
OA TE OF
*
* MOVE
SET COMMAND ..
INTO COMREG ..
* •••• * •••••• ***.*

**
*

•

•

•

.

: x•••••••••• :

• x.................................................................. .

:CYCLE

.

• NO.*

.... *.

J. *.
H1

.*LOOPED * •*.

THREE TIMES ••

*. *.

.• .*

TESTTOD

H4

.*.x *.

*. *. NO
.* .* .....•........•.•.
*. * ... * .*
* YES

•• .* TOO
•• SUPVP.

•• SUPPOR T IN

*•.
*
• YES
x

•• ***.
C4 •
•
***•• •

ISSGETI"

X

*****J4**.**·**·*

*•
*

ISSUE GETl"E

MACRO IN

••

*

TIMER UNITe.; *
••• **.*
•
•• *.* •••• *.*

x

• ** ** JIj **** •• *.**
*
CONVERT
•
11 "'E (IF DAY •
*TO TI MER UN! TS •

•*
*

**••• *.**••••••••••

:x•.•..................•.. :
SETlNTVL

X

*****K4.··*.··***
• PUT TIME INTO •

*
*
•

•

LOCATION
84

•
•

*
•
•••••••
***.* •••••
: USNRES

x

••• **

*

*EB
• A3·

••
*

66

DOS/VS IFL and Job Contrcl

Chart EB.

$IPLR~q - SET State«ent Processor and Assign EYSLOG (Part 2 of 2)
Refer to Chart C3 •

•·EA
*••••

•• ••••
•
A5 •
•••••
•

*

K4*
••
•

.. ..
A3

.'.

••

YES.'
MORE
•••••••• *. OPERANDS

.••••

*.

X

*CH •
* Cl.

*...
*•• *
IN SET

*

••
•

....."4..........

:~~~~;~""'i

X

USNRES

•

GET ADDRESS

• AND LENGTH OF
• MESSAGE Oll7A
.. 'NO PUB GtVEN
.. FOP SYSlOG'

'.
.'

.*

•

.* • '"

*.

• •••••••••••••• **

NO

A5 .a.
TS

*.

*. *.

•
NO
PUR VAllO
*x •••••••• *.cn~MuNICATION.*
•
DEVICE
•

.*
*...
*•. *
'" YES

x

lLLCO

.*

.*.i *.•.

*.

.*

83

*****
• *

*CH '"

• 01·

•

ABNCHK

.'UNASSIGNEO ' . YES
•• COMMUNICATION.· ••••
' . DEVICE . '
LUB

X

*****85 ****.******

.MAKE PEIHflANENT
_tUB ASGNMT FOR

*

* COMMUNICATION.

*oevlCE !N Htr;H •

*CI'lPE Y10 TABlES*
****•• _*** •• **.*.

* ••
* -NO

X

X

**.
*
*
•••*•••••••••••••

*****C5 ***** •• ***

••••• C3 •••••••

*PBFRT~

•
CALCULATE
'" ADOR Of PUB '"
'"
FOR
'"
• COMMUNICATION
'"
DEVICE
•

EE*

*-.-*-*-*-*-.-*-.
FlND PUB
•
FOR SVSRES
*
OEVYr.E
..

•
•
...

* •• ** •• * •••• ***.*

:x •.•.•..... :
x

·····03·.·····.·.
X

COMOOK

*

0'5

•

*SET POINTER TO •
* COMMUNICATION *
'" DEVICE PUB IN '"

NO.*

•... *. *.

'" •• *•••••••••••••
LUB TABLE
'"
_

X
*·*·*e3.*
•• *.*.**
*PBFRTN
EE*

F3

G3

F5

•

*•*

*·***G5·*********
GET AnORESS
•

..

*

~NO

Le~GTH

I')F •

*Mf5SAr.ECi 0116A •
• INIJ PlJ'3 GIVEN

*

FOP

svsqes I

*
•

**************.*.

x

****.

*CH *

.. 01*

*.
.*

,'SYSLOG
IS
*oo NO
•• COMMUNICATlON.* ••••••••••••••••••
*. DEVICE

•••

ABNCHK

.*

.. YES

X

X
*****J4*****·****

RDRTST

*****J3**.*******

E FOR'
HECK • •
IS.
CATION'
CE
********

**

*

*EC
* AI*

X

PESNFO

CPBFENO

*INIT I
OEV
S
- C
•****

x
.*. ••

:•••••.•••. x:

x

oo*

*
*

..

DUB * .
.* .*15
Y4Ltn FOR *. YES
*. SVSPES
.*.•. oo
*. IlEVYCE .*
*. *•• *oo*
x
*•• 111.
* NO

.*.x *.

*. *.

.*

*.*********.***.*

.*.X *.

.'. *.

••

f1)P SY'5~E:S
oeVlCE

..
•

* •

H3

.*
*••
*
.. YES

• VALlOATE PUB

. * INVALID*. •• yes
*.•* DEVICE
.* ••...••.
*. * . . * .*
x
****.
*•.
*
*ee
'* NO
'* H3*•

.*

•.

*. *.

FOUNO

X

*."'. NO •
*. PUB WAS
FOUNO
.* ...•..
*. *.
.*
.*
* ••
*' *YES
.* •*

••

OEVTCE
"NO DUB

*****El) ********.*
*COMCHK
ee*
*-.-.-.-*-.....*-.-*

*-*-*-*-*-*-*-4-.
* F!~D PUB Fnp *
'" COMKJNItATION '"
'"
DEVICE
•••••••
** •• ***•••*

PBFFIN

.>,

oo* VAllO

*'

E FOR *
*'
HECK.
IS
*
ATlON *
**********.**.**.*
0
ICE
*
• tNtTI
DE

*

.. CO

:x .•.•.•.... ,.....•.•.•••• :
X
*****K3****·*.***
*CQMCHK
EE*
*-*-*-*-*-*-*-* -*

CHKCCM

*'

VALIDATE PUB

•

TION DEVICE

*
*'

-FOR COMMUNICA- •

••• ***********.**

....
x

•*

•

*

•.*.*
A5 •

Charts

67

Chart FC.

$IPIRT4 - Assign SYSRES and Mcve I/C !atles
Refer to Chart 03.
******

****

•

*EB
'" F5*

X

**********

*****A PERMANENT
1
*MAKE
'"
.LUB ASSIGNMENT '"

'"
FOR SYSRES
*
*OEV ICE IN HIGH-.

.CORE 110 TABLES.

"'*.*.*"'.****••*"'*

x

1**********
•*****c
•
... SET STANDARD *

·
'"

*

*
•
.. A3 *
•**** *

X

*****A2 **.******.
*SYSMVe
eF*
*--*-*-*-*-*-*-*-*
*
MOVE THE
PUB TABLES
•
TO LOW CORE
***************.*

*'

**

*

X

.* .
81
"' ..
• * .* ODES * • *. YES
*. *.SYSRES
LUB
.* ....
A .*
*.HAVE
JIB .*
"' ...
*
• NO

LUBHLP

.
*'"

JIB FLAG IN
SYSRES lUB

*****************

X

*****B2**********
*SVSMVC
CF*
*-*-*-*-*-*-*-*-*
MOVE THE
*
LUB TABLES
,..
* TO LOW CORE *
*****************

**

X

*****01**********
*CH$WR TN
ET.

***-*-*-*-*-*-*-*-*
CHECK
*
CHANNEL
* SWITCHING
**
*****************
X

*****El**********
*BMPXRTN

ER*

*-*-*-*-*-*-*-*-**
'" MICR DEV ICE *
*
*****************

'" CHECK BUR ST I

.ON HPX CHANNEL

.*
NO .. *
..... *.
*.

02

.*.x *.

ARE
THERE
TEB'S

*.. :f: • • *
*

.. A4

X

*****A3**********
*REORGLC
EM*

.*

A4

.*.x *.

x

A5

*. *.

*-*-*-*-*-*-*-*-*
.. CHECK LA BEL *
*
CVL INOER
*
ORGAN[lATION
*****************

YES.*
IS
..... *.
SVSLOG
.*
*.ASSIGNED .*

X

:SVSLOGUA
*****84**********
.. SET USE EQUAL
* TO LOG, AND
*USESW EQUAL TO *
* NOASLGfSVSlOG *
* NOT ASSIGNED} •
*****************

*

*

*. * ... * ..*

x

*

C3

.'. *.

DOC

*. * ... * .*
*

:CHKRAS

.*

C4

.~.

.*

*. *•. * .*

.* .*

••

*
******************•
*

: LDOKLOOP
X
*****03**********
**s EARCH PU B FOR **
* COHM.DEVICE: ..
*3210,3215,ETC. *

****
05 * •••

***** •

X

*****04**********
*MSGRTN
CH*
*-*-*-*-*-*-*-*-*
... ISSUE "1ESSAGE '"
.. 'NO RMS SUPPORT*
*fOR THIS MODEl'*
*****************

•*****************•

YES

*****(5 **********
*PUBSCAN
ED*
*-*-*-*-*-*-*-*-*
*
SEARCH
* .......
* FOQ 3211

·.

* YES

NO

X

*****B5**********
*MSGRTf<.J
CH*
*-*-*-*-*-*-*-*-*
* J SSUf ME'$SAGE '"
* '! 10 ER~OR DUR-*
*!Nf; IN MOD I NIT*
*****************

X

*.

IS
"'.
.*
NORAS
*. NO
*..
MESSAGE
...... .
*.REQUIRED .*

........... x:
*. *.

•*
*. *.
*.
.* .. *
*. *•. * .*
* YES

:•••••••••• X:

x........... x.•

.* .* IS * •*. YES •
* .. COMM .. DEV ICE .. * ••••••
*.

**

.*. *.

110
NO .* ERROR IN
•••• *.
PREVIOUS
ROUTINE

• NO

*****83**********
*CHKDOC
EN*
*-*-*-*-*-*-*-*-*
* CHECK I F "
* COMM .. DEVICE *
IS DOC
..
*****************

X

*****C2**********
*CLDRTN
EE*
*-*-*-*-*-*-*-*-*
*UPDAT E CHANNEL *
* BUCKETS IN
•
*
MPS
*
*****************

•'" ****
•
A5 '"
•*.**
•

*

•• **** •*

x

:x .•........ ;

CYlOP

****

****

*

A2 *
•,..****
•

•••

•
NOlOG
X
*****05 **** ******

*
*

*
*SET USESW EQUAL*
TO NOCNLG
*
'"
I NO CONSOLE '"
* WRI TER FOUNDl '"
*****************

:)( ................ :

X

*****E2 **********
*SYSMVC
CF*
*-*-*-*-*-*-*-*-*
..
MOVE THE
*
*
TEBS
*
* TO LOW CORE *
*****************

X

YESlOGl
X
*****E4**********
*BlOP2TQO
EK*
*-*-*-*-.-*-*-*-*
BU flO PUB2
*
* TABLE IF
'"
*
NEEDED
*
*****************

*****E3**********
*PUBSCANW
ED
*-*-*-*-*-*-*-*-*
* SEARCH FOR
:I<

*
*

*

*
3340
•
*
*****************

X

*****ES **********
*BlDP2TO()
EK*
*-*-*-*-*-*-*-*-*
*
8UILD
*
* PUB:! TABLE
*

•*****************•

: ............ X:
X

**********
ED.
*-*-*-*-*-*-*-*-*
*UNA$S
IGN SYSTEM'"
• ****F 1
*OPNRTN

'" INPUT IOUTPUT

*

'"

'"

TAPES

*****************

x

X

NOMTEB

*****F2**********
*RESTORE PROGRAM*
*
MASK TO
*
* REACTIVATE
*
*
* INTERRUPTS
*****************

•

•

F3

.' .* ..

X

.* END *. *. YES
*..*
OF
.. * .....
*. PUB .*
*. * .. * .*
x
• NO
*.**

.• .•
*

X

*****Gl**********
*ASNRTN
EH*
*-*-*-*-*-*-*-*-*
* VALIDATE THE *
*ASSIGN FlAGS IN*
THE PUB TABLE *
*****************

*

X

*****H1**********
*DSDRTN
ED*
*-*-*-*-*-*-*-*-.
* CHECK D1 SK
•
*
CHANNEL
*
ASS I GNMENTS *
•
**.************.*

X

*****J 1**********
*FPRTN
EJ*
*-*-*-*-*-*-*-*-*
*
CHECK
*
*FLOATING POINT *
OPTION
•
*
*****************

ONINT
X
*****G2 **********
*RE STO~E SV STEM *
PSW AND CLEAR *
* PROGRAM CHECK *
OLD PSW
..
*****************

•*
*

*

X

*****H2**********
*IOHL2
CH*
*-*-*-*-*-*-*-*-*
*
READ
*
SYSTEM
*
*
DIRECTORY
*
*****************

*

x

05

.'. *.

YES

X
*****H3**********
*
•
*s ET SYSUSE LUB -+
* EQUAL TO
*
*

SYSLOG LUB

*

•******************

*****G4**********
*T125CH
EP*
*-*-*-*-*-*-*-*-*
125PA$
..
*SUPPORT ROUTINE*

.

.

*

*****************

•

•

*

J3

.* . *.

.*IPL ISCOMM*.
.. *. NO
*..** DEVICE
CARD .. * ••••
.. READER
.*
*. * •• * .*
*

YES

X

X

*****J4**********
*MODER TN
EO*
*-*-*-*-*-*-*-*-*
*
SET
*
*
LINE MODE
*

.

.
.' .
..

*****************

* ALL CHANNEL ,..
* AND EXTERNAL •
INTERRUPTS
*
*****************

*

x

. .
•*****
•
A2 *
****

68

X

*

*

x

****

*

A3
******
•

DOS/VS IPL and Job Contrcl

A5

*

POINTLUB
X
*****K3**********
*****K4**********
'"
'"
*'
*SET
SYSUSE LUB *
* . .X
"'SET
USESW EQUAL'"
*
EQUAL TO
* ......... X*
TO SYSLGA
* SVSRDR. LUB
'"
*
($VSLOG
*
>I<
'"
ASSIGNED}
'"
****"'************
*****************

*

•*****************•

YES
. .•.
*.

H5

·.
****

•*

.x'. *.

*. *.
.*
*. * •. * .*

.*.*

COI'1M.DEVICE
1052
.*

*.

*

NO

X

*****J5 **********

•*

HOLD READER

*

•
•
•******************••
: . . . . . . . .o . . . . .

X:x •••••••••• :

COMLOG
X
*****K5 **********
* tNDl:CATE THAT *

•

•
'"

*

THE SET

*

COMMAND HAS *
'" BEEN HANDLED *
*****************
: MONITOR

x

•
*

*

X

****

x*

****

*****K2**********
*CPVSLB
EG*
*-*-*- *-*-*-*-*-*
* COPY SYSRES, *
* SYSREC,SYSLOG *
LUB 'S INTO FG
*****************

**

*****G5 **********
*T125CH
E p*
*-*-*-*-*-*-*-*-*
*
125 RAS
*SUPPO~T ROUTINE*

*

• .o

1 ********.*
•******K
•*
MASK OFF

SET

L!NE MODE

*****************

X

*****H4**********
*OVCONOO
EL *
*-*-*-*- *-*-*-*-*
*
CHECK FOP
*
*NON-OPERATIONAl *
DASO
*
*****************

x

X

*****J2**********
*INSERT ADDRESS *
* OF LABEL
*
CYLINDER IN *
* COMREG+6D
*
*****************

*
*
*

*

X

*.
.*
*.
.*
*. * .. * .*
*

*

*******************

X

*****F5 **********
*MODERTN
EO*
*-*-*-*-*-*-*-*-*

****

G3
.. NO.* PUB FOR *.
•••• *. COMM.DEVICE
FOUND

.*

*****F4**********
*MOOERTN
EO*
*-*-*-*-*-*-*-*-*
*
CHECK
*
leA MODES
*

*

A4 *
****

X

***"'*'"
*cc
*

61*
••
*

$IPLRT4 - I/O and Check Device Type Subroutines
Refer to Chart 03 •

Chart ED.

o

•••• Al ••••

..

o

OPNRTN

····A2········.*

***••0

•e•

..

•••••••••••••••

•

PUBSCANW

•••••••••••••••

•

OSIlRTN

o··***81.·.*****
GET ADDR OF ••
•
WB AND PUB

•
..

•

TABLES FOR
..
* PARTITIONS
•
•••••••••***** •••••
*•••••.
.. C1 •• X.

....

o

•

..

OPNlOP

•••
B2

DSDRTN

*. •.

.* .*Of END
*..*
PUB
*. TA8LE .. "
*. *••• .*

YES

.* .*

•

***.

GET SYSTEM

•..

*• LIST
lUB
*•
*••••••ADDRESS
*•••••••••••

*.

NO

x

•••

01
*. *.
IS
.* .*THERE
A *. NO
o .PUB FOR THI S .0 ••••
*. lUB .*
*. *.• * .*
• YES

CALC PUB

o

..

ADDR FROM PUB 0
PTR IN lUB
•

YES

: •.••.•.••• x:

•

•••••••••••••••••••

····E2·········
CALLER •

•

• 0.

*. * •• * .*
•

•• • *F 2 •••••••••

•

•

PUBSCAN

•

•.*.**•••*•••**.*

YES

•*

YES..
••..
*. *.

G2

•••

X

o

••

TABLE

••

*•

•

••••••*•••••••••••

.•
.:.

*.

:x •.•.•..••• :
:OPNEND

•• NO

JI

.t

••

.*
•• All

*.
lUBS - .
••••••
HANDLED
.*
*.*.
.* .*
*•••
o YES

.*

••

**••• G3.*** •• ** ••

•e INCREMENT ••
•
POI NTER TO
•
NEXT PUB
•
•
•****
••••••**••***•
x

NO

ic

·*•••••

UNASS IGN lUB

-. ••

*. *•• *.*
•

• •••• Hl··••

••

END

OF PUB

H2

.*. ••

•

*.

....
D~mE

*••
*
- YES

.*

H3

.•.*.

NO

•.

*.

....

·:*~~ ...... X.:· 52~~830R

.*

Uji

•• SSBUFlDR
FETCH
**
• •• ** •••• *.**•• **

flHP R68Tf~~OT ~E~~~EuTED.

* e.
• E5 *.x.
•
**.- *.
DSDRET

ic

•

3203

••••
• YES

.:.

••

e
*
• &4*

..
....
.x

ic

.*. *•
G5

•*•••*

•*G4 -. *. e. NO
.* 2321 *•*. YES
*..**. 3330/3340
SUPVR.
.* ••...• *.•• SUPPORT
.*•.•.
SUPPORT .*
*. *.
.*
.*
*.
.*
x
*••
*
• NO
•••*
• YES
•
•
****
: •••••••••• x:
•• H4·•
H4 *.X.
•*****
• •
••••
DSDP]
X
*****H4**********
•
GET
L
*NUMBER
L**
.. MASK
, *
*- SUPPOR
AND
*
AG *
**.***********.*.

· ..

:x ....•...••...........••• :
x
• ••• J2 ••*••• *.*

DEVICES THAT ARE FILE

PPOTECTEO DURING THE
I Pl PRDGRA~. IT IS

*... .

.•.x

i x•••••••••••••••••••••••••
SRCH3211

*C5
COMMUNICATIONS
REGTON DTS~lACEMENT
92 I S T~E CHECK POINT
APEA, BUT I ~ USED TI)
KEEP TPACK OF THE DASO

***_E5*********e
..• *. *. 2314
OR
.*
**
RETURN
*
.*
•
*. • •• *.*
**.*.*.**••****•
x
*••*
• NO
•• *•
****
x
.*.
NOT3'330
.*. *•
F4
*.
F5
.*
*.
.*
.* 3330/3340 *.••••••••••
NO
.* 2321 * . *.••••••
NO
••
X..
*. *... .*
*. * . . *.•
x
* ..
•.•
*
* *YES
• YES
••••

-

•.*•••••*.*.***.*

•

**••

.* E42311 *. *. *.
YES.-

x

•* FlOEV *.
A *.
.
••TAPEl DISK •• NO X
• ·2!MsK~~~~0~ ••••.. :

**•• *

YH

X

DSOP2

X

RETURN
TO

•

..

FOR CARTR lOGE •

*

NO

.x
04 *. *.
••*
.*
******05********
TI-IE
LAST
*..*YES
* ZEItO
BYTE AT
*
*..**. PUB
IN
••.•••••
X* COIlo1REG + 92 *
TABLE
.*
_
_C'i
•
**.••.**
- *•••**********...
••
• NO

*• •••RECOGNITION
*-*.*•••*_••••

•

*...
...

••***•
*.*·**C4*****
• INCREASE PUB •

ic

ic

·····El······*···•

••

*. *.

TO
•
*•* AOOPESS
NEXT PUB
•
ENTRY
•
.**.***.********.

·*·**02·****·····
•*• SSBCARTR
FETCH
*•
•

.

OAse

DSDP I

••••••.•.•• x:

•.NEXTSYS

.*.X *.

•••• •
••• C4 •*.
*. x.
**.* .

C2" *. *.
•••••C3.**•••••••
.*
*. NO
III
*'..
..
INCREMENT
*..**. 3340 .**............
x- POINTER TO ..
.. NEXT PUB •
**.. .. **
*
***.******
•••*****

*

Bit

•• FILE PPOTECT •••••• X. E5 OPTION..
••

.... ••••

ic

X

•••••C 1**••••

•..

SRCH3340

•

• .** •• ***•••••••*

ix•••••••••••••••••••••••••
X

OPNRTN

·*·

•*.·*AIt*••••• •

_e

OSOPIt

X
.*.
••

J4

*.

.-OEVICE
SUPPORTED •• NO
•
ON THIS
•••••••••••••••••• X.

*..*...

CHANNEL

*. *•• *.*
•

.*

YES

ic

KI

.t

••

:N03211

•• *. YES .X • ····K2*··"***.
All
RETURN
•
*.*~A~I~6l~~S.* .* .••••••• X:
CAlEER
:
•• .*

••••
• .*•
o

x

NO

*• ****
CI •
•
•***. •

*****••• _**••**

••****
C4 •*
*

.***

•

ERIl21

ic

****.K5**********
MESSAGE Ol23A e
**• FllE-PROTECTED
'OASD ON NON- •
*
* CHANNEL'
•
**.*•••••******••

*GET ADOR.ESS OF *

x

ABNCHK

*****
.. 01*

*Cfof ..

•••

Charts

6'

Chart EE.

$IPLRT4 - Find FUE and I/O Subrcutines
Refer to Chart 03.

*Al

mn

SYSRES LUB POINTER
IDbhV~S!HE PUB

•••• AZ ••• • . . . . .

•• COMCHK ••
•••••••••••••••••

.

•

•• LOAD

REGISTER'
WITH LENGTH •
Of ENTRY ON •
DEVICE Ll ST •

•
*

.. •••• *.

•••••••••••••••••

*.

ON LIST

*. * ••• .*

COMLOP

.'.ic

.• . '

··**C3*····*.*·

* NORMAL RETURN •
•
•
VIA LINK
• REGISTER+4
•

*..••••
83 •
..

••··.··84····***·**
•
CALC ADDR OF •
'PUB TABLE ENTRY*
•
FOR SYSRES
•
.Al
•

**** ••••••••*••••

C4··········•
X

X

.*C2 PUB ' . *-. *. NO
•'
*.
*. *.INVALID•• .• .* ••••
ic
*•••
* YES

ic

CLDRTN

.. YES

:X •••••••••• :

0

•••• •

x
83 .' ...
.*
•. ' .
NO.- DEVICE

ic

••••• 82 ••••••••••

·.··A4•••••••••

CLDRTN
•
•••• *.**
•••••••••

•••*
•.. 83 *..
*

COMCHK

*•

•••••••••••••••

*•••••STORE

..
•

•

PUB

•

ADOPESS

..

FOR SYSRES

•

••••••••******••• •*

•*••••
ic

••• *••••••
••*···*04
•
GET FOCL AND •
'CHANNEL BUCKET'
•
ADDRESSES
•
••••••••***•••••• •*

•····01····***·*
•
PBfRTN
•• •••••••••••••••
••
PBfRTN
ic
••••• E1*•••••••
_
CALCULATE
PUB ADDRESS
•
• fROM LUB PUB
•
POINTER

*.

•

*

•
•
*
•

···.EZ.........

* ERROR RETURN
*
VIA LINK
REGISTER
•

····*E4****······•

o

................-

*
•
•

• POINT CLDWKI

:clM~XtDF2~~t

•••••••••••••••

•••••••••••••••••

.x •••••••••••
X

CLDLPI

ic

•

CHAN BUCKET

••••••••••• X:
ic
***•• F 1*•••••••
*.

:PBFLOP

•

•
•
•

INCREMENT
TO NEXT
PUB TABLE

..

ENTRY

•

.*

F4

.0.x *.

•
:
•

*.

NO.*
ANY
••
•••••• DEVICES ON .0
•• CHANNEL

•
*
•

*. • •. * .*

..

•••••••••••••• *-••

.*

.. YES

.. .'. ..
ic

X

*-.

Gl

••****·G4*·**-****·
••
CALCULA Tf

•'
CIU IN
' . YES
*. SYSTEM PUB .* ••••••••••••••••••
*. SAME AS . '
IPL ••
*• NO

*.

.-.
ic

• NO.*

.•

.... *. *.

HI

*-.

LAST
PUB IN

*.

TABLE

PBFEND

*.' .

••
.• .*

* ••
.. *
YES

-•.

1****.***.•

•••*••••*******

•
*

.. G3*

J.

CPBFEND

ic

..*..

X

•

•••• J2 ••••** ••
RETURN TO

• Ll NK ADDRESS
•
PLUS 4

*•

•

••**.***•••• *••*

·**·J3···**··***

*

PLUS 8

•• *****••**.***

•

•

X

··*··H4········*·

*

•

• STORE ADDRESS*'

_OF FIPST PUB ON*'

•
CHANNEL IN
•
*CHANNEl BUCKET'

_••**•••••••*****

: •••••••••• X:
X

CLDLP2

X

•
RETURN TO
* LINK ADDRESS

ADDRESS OF

• FIPST PUB ON

• THI S CHANNEL
•••••
**** ••••••••..

HZ
*. *.
•• ****.*
..****.H3**
.*.*DEVICE
VALID
*.• *YES
..
CAL UlATE
*..
••
.••••••.
X.
PUB
'"
••
TYPE
••
•
AND
•
*.
.•
• A
S
*
*. • .•NO
*
•••***

ic

•••• J
•
RETURN TO
• LINK ADDRESS
lERRDR I
-

•

•·eB
••*...

*••

*

*

.*
*..*••

J4 . ' .•.

*. *.

.. ..
LAST

FOCl

ENTRY

NO •

.* .* •...

* ..•
o YES

X

•• •••*K4***.*·.*.
••
RETURN
• **.***.*********

70

DOS/VS IPL and Job Contrc!

Chart EF.

~i«e

$IPLRT4 - Date and
Refer to Chart 03.

Subroutines

••••••*.*
•*• ••*AlADREST
••

•••• AI •••••••••

...............

"**

"•"

DATIMERT

DATlMERT
81

•*

"•••••••••••••••..

••••*
•·82
•
o
•••• *

.t*.

.".it

ADREST

IS
••
."DATE FIELD ". NO
" ••• I\a~~ES ••••••• :

82
-.
."YEAR EQUALS •• YES
•••• 1900
••••••• :

• YES

• NO

•*

-•

.... ....

*.*•.• .*

.0 •

•*C2
•"

".

*. ••

..

NO X

•••• LEAP YEAR ••••••••

.....

.

*. *•.•.*
" YES

*CH"

.. Cl.

ol.i•••••••••
••••••
"
SET UP TO
•

"
"

ILLCD

.................
•
"

CHECK MONTH
FIRST

"
0

•

*ADREST

EF*

:G~tii~ii;itFtlo:

**

•

ADDRESS AND
LENGTM

**

•••••••••••••••••

SET VALUE

OF FEBRUARY
TO 29

*•
•

"•••••••••••••••••*

0

it
..... el ••••••••••

•••••
02.! •••••••••
*
*
•

:x••••..•..• :

COMPDAY

E2

•*

.*

••

*.*.

.... ....

"·"D2t~

I~

NO
FIHt ••••••• :

.. YES

it

.".it

.* Cl IS ".*.
.
':;REAl~RTHAN ·:.~~i:
*. *. 99 .* .*
it
*••
• NO

••

•••

it
.*.
".

*.
••• ;~~":. OUHI8~YTHE·:.
.
*. MONTH .*
.
*..*
*•••

··

•

"..

TIMERT

. ••.•.••••• x:
:TIMERT
J. ••
B4

it

B3

••"4•••••••••
·. "•••••••••••••••
.

••

.*

TIME

X

• •••·85 ••••••••••

*•••

X

*. •• FIELD
IS
••••••
14 BYTES ••
•• * ••• .*

•

•

••• ••C5.*I11 •••••••

:
•

•
•
"

•• ••••••••••••••**•

Ii
••••*D3.~* •••••••
:C~\~~bA A~D~m T:

• •••• 04 ••••••••••
• DECPTN
CG.

s~~8~~S~I~rD

•
:

SKPINC
..
..
..

AND GET
SUBFIElD
LENGTH

•
"
"

•••••••••••••••••

.
.

..................

..

:
..

RETURN

•

FI~H r8H~ESS
AND LENGTH

.-*-.-*-111-.-.-.-•

.OECRTN

CONVERT

..
•

•

YES..

.x ••••••

•
•

•••••••••••••••••

.... ... ....
........

•*
••

" NO

.

*.

RESULT

•• YES •

IS GT 24

•••• x.

it

•••••
·CH •

• NO

*.

.ic

••

fPESUlT
JS GT 60

••

••

.*

• ND

it

Elt

.. .. ..
.. ......
05

•

HOUR FIELD
TO DEC IMAL

•
•
"

•••••••••••••••••

•-*-.-.-.-.. . -....

..

CG.

CONVERT
SEcnNDS
TO DECIMAL

X

Ii

•••• E3.· •••••••

it

ic

• ••••C4 ••••••••••

"
•••••••••••••••••..
:x .••.•••.•• :
CALCULATE

•.. GET SECONDS ••
** FIELD
ADDRESS.
ANO LENGTH
•
•••••••••••••••••••

NO

• YES

••••• C3 ••••••••••

•
:

.

•• *•••
85 •
•
. ••••

..*·.E5····.·
•••••
•
X

..

AOO SECONOS

•

•
•
..................

•

TO TOTAL

*

•

IN TIMREG

•

• Cl·

• *

it
•••••fZ ••••••••••

"

UMH~A~IYS/:*

.*.it

*.
.
*. MONTH 0 OR *.._ YES.
•• x.
*. GT 12 .*
*. *••• .*
x

.....

o NO

it
•••·.G4*· •• ••••••

•
•
····*G2··········

it

•

SET INITIAL
o VALUE OF 28
• FOR FEBRUAR Y

:~~limA6~ 6~W:

..•••••••••••••••••"
•

SINCE 1900

..

*CH.
• Cl.

·•••••Hl····.·..·•"*
"

•••••••••••••••••••*

URS •

X

*

•
•
..

TO
AND
IN TI

..

it

••••

*. *.

•. '.NO

.•
*..•.•

••••••

• •• ·*G5 •••••

*

•

• •••••••••••• *.**..

DUE TO ZONE

•

•
VALUE
•
•••••••••••••••••

·.x •••••••••••.

..

..

••••*Hz ••••••••••

: CONVE~6 DAYS
•
SECONDS

••

TOO

SUPPORT

..
TRANSFORM
•.TIME
*•
«SECONDSI •

•..•

ILLCD

.•.it

x *••••

..

·

F5

• YES

•
GET MINUTE
..
• FIELD ADDRESS
.. AND LENGTH
..

X

.

• •••• H5 III • • • • • • • • •

.

·•••••••••••••••••.
• CONVERT TI ME
•
TO 08TAIN
•
TlMER UNITS

:
..

.•••••••••••••••••

it

0

••

••

.

*• ••••
0
82 *
"

.*
••

.

CONY

..•••••••••••••••••

S TO GET •
EM DATE

ENOMONTH

".

*····F4···*····*·*
•

..... ...........

:
"
•

Gl
.* .* IS

Il~CO

it

J4

.•.x

••

*.

•* .*RESULT ••.*YES
•• IS GT 60
*. •.
.• .••.
it
••• * .*
• NO

it
•••.*K4*·*·_·_···
*
-

CONVERT

•
MINUTES TO
•
SECONDS AND
• ADO TO TOTAL
•
IN TIMPF.G

•••••
·CH •
* Cl·
••
•
ILLCD

X

••

" •• JS ••••••

•
•
•

.

*••

..••••••••••••••••
PETURN

•

•

*•

••••••••••••••••••
it
••••
*
•••••

••

• 85 •

Charts

71

Chart EG.

$IPLR~q - Ccpy Sucrcutine
Refer to Chart 03.

•..****A3********·
•..
CP'tSLB
••**************•
X

CPYSlB

•*

.... . *. **.
NO ..

53

•• oo

....

MPS
FEATURE

CPVSRT

••

PRESENT

*.

*..
* .*
'" YES

.*

.*

*'"

*
_* ••*

OF lUB TABLE
AND Of 2ND

HALF OF PIa

-._* ..

TABLE

*-** •••

..

..

X

*****03******.**.
•*GET
ADOR ESS OF •
..

·
..

FOP,EGROUNO

.
..

'*
PI B
..
."'***************
X

.·*·*E3.*.··-.-**
*-*-*-*-*-* -*-*-*
*CPY$RT

EG*

..

COpy LUBS

..

FOREGROUND

..

FOR

X

'"

*

FROM PIa

*

.
*

*

X
*****C4*********.
*'
CALCULATE
*
.. ADORES S OF
..
* FTRST SYSTEM ..
* L UB FOR FG
*'
*'****************

•

•

X
******04*****.****
COPY SYSLOG
..
*' SVSRES AND
..
*' SYSREC lUBS ..
*FROM lUB TABLE*'
*****************

•

•

X
*****E4**********
*GET ADDRESS OF *
* FOR EGR DUNO
*
*COMMUNICATIONS *
*
REG TON
*
********'*'********

•

.

•***'**'F4**********
•*
*
COpy

*****F3**********

• GET ADDR ES S OF ..
.. FOREGROUND
'"
*
PI B
'"

•

_* ••••• _•• "'.•
:................ x:
*••••

X

·
*

Of SYSTEM
LUB INDEX

..

*****************

·

..
*

******.**********

X

..

X

*****84**********
GET ADDRESS
..

..

....

*****e3*********.
..
GET ADDRESS
..

*

•.. ****A4*********
•'"
CPVSRT
•••** •••
_*...... •

•*****G3*********
•..
RETURN
•*************** •

•

X

• SYSTEM DATE *
DATE *..
*• USER'S
MOVE ZONE
*.***************

X

•*****G4**.*******
•*
*'
COpy
**'
CYLLABEL
INDER
•
ADDRESS
*
*.***************'

*•

X

•• ****H4*********
•
RETURN
•***************
•..

72

DOS/VS IPL and Job Contrel

Chart EH.

$IPLRT4 - Set Jot Contrel Flags sutroutine
Refer to Chart 03.

•*.*.
•
A3 •
•*••••
•
A3

•••• A1*.**.*.*.

•
•
•*****•••••• *.**•
•

ASNRTN

x
.*.
...

.* THIS LUS*.
*. YES
*..*IS
FOR SYSLOG .* ................. .
*..
.*
*. * •• * .*

..

•

·

X

ASNRTN

*****81*·*·*****·
LOAD NUMBER ,.

X

..
..

• OF PARTITIONS. ,.

GET FIRST
lUB ADDRESS

••• *** ••• ********

.••••.•.... x:

x

****.C 1*********.

•,.
,.
•

•..
..
•

GET NEXT

FICL ENTRY

.. "

*.

·•

ASSIGNED

*. *.

****

*

.*
* ....
> NO

.*

YES

.. * ......

e2

.*.x *.

•*.*

02

*

.

ARRANGE MASK

*BITS TO SWITCH

*ON APPROPRIATE
.OWNERSHIP BITS

* ..

.*.x *.

*****03**********

•..

LOAD
BACKGROUND

·
*

*

FLAG

;x

X

:(I:

•

+

t-LII-<.tl.ittiJuNu

*****E3**********

**

*

PARTITION
*AND ADJUST FOR
• SYSTEM UNITS

SWITCH ON
OWNERSHIP

*

".

cHi::.

>

:(I:

**********'****.**

RETURN

•**************

..
*

•

*

OWNERSHIP
FLAG';

*
*

*

·

$.

**
*

·

•

X

GET NEXT
LUB ADDRESS

.
*
•

*

.

.*.x ....

H3

.*
*.
NO .* LAST LUB *.
. ......
*. IN CLASS .. *
*. *.
.* .*
*oo ... .*YES

.*. *.
J2
.* IS LUB *. *. YES ***** *
.*
*.. ASSIGNED
.* ..... X* G3 *
*. * . . * .*
*
**** *
*...
*
* NO

ASNLPl

**

•

*.

: ............ x: x.............. :

x

....

*****************

X

*

...

*****G3**********

.*IS THIS A *.
.... *..**.PARTiTION.*
FOREGROUND
.*
*. *•. * .*
* YES

•*******.*********•

b:" -\:,

G3 *.X.

**'**

ADO NUMBER
*•
•
OF SVS LUBS
*FOR FCREGROUND •

TO RESET

..... 1.J'.. I.. t:~:;,n'l ~

*******************

:x ......................•. :

•'*

•*

*

*****************
****

x

**.**H2 *******.**

•

•*****F3**********
•*
*
STORE

.'. *.
G2

NO

*""

X

*****E4**********
•* SET MASK
*
*

x

i<
*****F2**********
*
>
*'* NICl GET
ENTRY
**
**
••
*****************

GETNICL

****F 1********.

•*

*****************

: x•••••••••• :

•*
*

.

:x ................ :

·*·**E2**********
.. INDICATE FG *

*

•

*
*
*

*****************

'.

X

*

*•
. * .* MASK
IS
*. NO
*oo
*. *. ZERO • • .* .* ....
....
*
• YES

El •• X.

..

:(I:

X

MPS

•

**

x
.*.
*•

C3

• YES

.
**** .*x•
.ASNEND
El
....
... NO.* .* LAST *. *.
...... *..
NICl
,,'. .*
*. ..... *.*
.. YES

.

******.**********

*. *.NOX.
*..
FEATURE
.* .....
* .. PRESENT .*
*. *•• *.*

..

X

*****B3**********

IS THIS A *. NO
*.• *_.PARTlTlON.·
FOREGROUND
.. * .......
*. *•• *.*
.. YES

••****** •• *********

x
.>. ....
01
.*
,. .
•* IS CLASS *.

·

ASNOWNI

,.

*
*.. NICL AND
..
ENTRY
..
.***********.****

,. LOAD REGISTER ,.
,.
FOR LOOP
,.
•
CONTROL
*

:ASNLP2

.

*****82*********-

..

ND

x

****

*•
*

El

****

*
•

X

*****K2**********
*• GET PUB/lUB *>

*
*

ADDRESS AND
ADDRESS OF

*

*

*OWNERSHI P FI ElO*

*****************

x
•****
•
A3 *

*
*

****

*

Charts

73

Chart EJ.

$IPLRT4 - Reorder MPX Channel LUEs and PUES
Refer to Chart 03 •

•••• *A 1*********•

•...........-..•

•
•

FPRTN

_._*.
• •

,.

REFERENC'ES
TO
EJB2'
EROS.

•••**

.. ..
.. .-

•

X

FPRTN

Bl

.*
•••• *..
NO

*.

•••

~PXRTN

••

FLOATING
POINT

*..-

FEATURE ••

·oo

.•

•• _.*e 1*.*******.

•,.

,.

HOLD
NEW

•

PSW

•*

.....-_.... .....

•

OZERO BURST DEV.'

:c~rm1iEFH~ST:

.*.•-•••..•.._..•*

·

x

•

•

_

*

X

·****82**·******·
•
•
•

,. YES

PUB NUMBER

**** .
,. C2 '
••.
x.
* •
**** X.
MPXLOP

,.

FLOATING

,.

POINT

,.

SWITCH

******* ••**

,.

•

GET NEW

*

•

... .... ..
seT

.*.x *.
E2

*.

0

..
..

·*._._......._.*...
..

•*

*

····Gt·········
................

.* ........

x
.'.*.

.* .*

*.

.*

•••

*****04**********
*
•
*
SCAN lUB
*

..

*,.

TABLE AND

..

CHECK FOR

* A~SIGNED LUB "*
*********** •• ****

.*

E3

....•...... x:x
*. *.

E4

*.

**..•.**
X

YES
.* ....

*. *•• *.*

*****F3*·****·***
*SVSMVC
Cf*
*-*-*-*-*-*-*-*-*
• MOVE PUBS TO •
* MAKE
SPACE
*
FOR NEW PUB
*****************

*

TABLE

*. * •• *.*
•

... YES

*. *.

.* .* •

.*
*•*. YES
*..* OF END
lUB
.* .................. .

BURST
... NO
x*.
ORIGIN
••••••
'ESTABLIS HED*

YES

*

:MPXCHK
F4

.*

NO

.*.x *.

• NO

:x ........... ".
•*

X

•*****G2**********
•
• TURN ON BUR ST •

*****G3********··

* AND STORE *
* ORIGIN Of PUB *

NEW BURST
ORIGIN

*

DEVICE FLAG

*

******.**********

X

:MP XGO

**

*******G4**********
•'"
SCAN PUB
... TABLE TO FINO ...
* PUB ASS IGNED '"

**********.**.**.

********"'**"'*****

*
•
**•

INSERT NEW
PU BAND
CALCULATE

•

...
..

•

TOlUS

.*
*..*

H4

*

•
x
•
•
• X........................... X ............. .
x

****

x

•
0
• C2 *
• **** 0

*. *.

.'. *.

*•

*..*NO
....•
.*
.*
* •• *
PUB

FOUND

*

YES

X

*****J4**"'*******
'"
RESET LIJ8
*'
•••• *o ASSIGNMENT
'"
•
•

•

•

******************•

74

DOS/VS IPL and Job Contrel

X

RSTCHQ

..VES.* .* IS *. "'.
• ••• *.LUB ASSIGNED .*
X
*.
.•
*. * .. "* .*

• NO

it

X

RETURN

*.

F2
BURST
ORIGIN
*ESTABlI SHED*

:..••.•.... x:
••*

MPXMOV

**....**

X

*

X

CAN
• * DEVICE BE *. NO
OPERATED IN
'BURST MODE. *

*

• ****Fl**********
RESTORE
PSW

.'.x ••

• VES

PT •
*' ,. FLOATING
BYTe ON IN
COMM.
_ REG
_ ,. *

*..

ENDING
ADDRESS

*
*******.*********
•
*

*•• :$

·:IIEI···_*··•*

*

•..
*

LOAD MPX

..
..

.*
*. *. NO
. ' OEVICE
•
•• ON MUlTIPLEX ••••••••••••••••••••••••••••••••••
*. *.CHANNEL•• ••

X

*

*****C4**********

**

•

** AND
PUB NUMBER
*
ADDRESS
*'
•******************

02

*

X

*****t2
•••••• • ••*
o
0

X

**Ol:Qt******
*• TURN OFF *,.

ESE3

•****"'F5**********
•*
*
RE STORE

**
'"

CHANNEL

QUEUE
POI NTER

'"

...
'"

"'***"'************

x
"'**"'**

*EP

*

Fl*
••
•

S"4PXZER

Chart EK.

$IPLRT4 - Build FUB2 Tatle sutrcutine
Refer to Chart 03.

.

•. .*.*•

• A3 *

*••*

••

o

•.••AI·········*

•*
*.

.'.x

' •

*.
.*
*. *..• .*

.>UNSUPPDRTEOO. YES
••
DEVICE
.> . . . .

0
0

BLDP2TOO

A3

•••• *.* •• **••••

CODE
•

x

NO

o**** •
•

>

it

BLDP2TlO

04

•***

*****83*********·>

..

••***.*.**••••••*

•*
o

>.

RMS ... ... NO
..
*..* •*GENERATED
•••••••••• X.

...* . . * .*

x

* •.
.. *
YES

..

··**C2·········
RETURN
TO

..
..

•••**CALLER
•••••••••••

X

•••••01*···**····**
o

>
..

•

GET ADDRESS
OF RF TABLE

C3

*••* .X' .
C3
*.
.* .* DEY *.•• NO •
•• TYPE MATCHES .0 . . . . . .
*. •. CODE .* .*
*••
> *
YES

••

..

•*

POINT TO
PUB2 DEY
tNFORMAT ION

•

..

*
******•••••• *•• *•
*'
o

•

· ..

.> .*

El

.I.1.:u

E3 •• x.

•

••** > X•

-.

*.

it::S

*. * •• * .*

•

.Ito

.;.

INITIAL
;::l~(;S

>

••••*••****

.. YES

X

****.****.

. . . . .F 1
..
POINT TO
•
•
fiRST PUB2
..
ENTRY

.* .•

..
0

••••••••••••**•••>

•

i'c

•
•
>

AREA AND
ADDRESS OF
1ST PUB

>
>

o

..

*

•o

0

·

•
>

•

..

>
..
•

••••••• *** ••••*••
i'c

•>••••••
.. A3 ..

••*.

NO

*

..
•

•*

.

ENTRY

BLDP2T40

·

i'c

***.*K2·***···***
•
••
TO
*•• POINT
MSG
*
01291
•******.*.**.***.*•*
:

X

0

X

.
*
•**********•••*.*.

>
•
•

NO

COpy
AoDR OF
THIS PUB2

E3 •

*.*. 0

····*J3 ******** **

*. •• YES
•'
OF
...
PUB2
••
TABLE
.* ••••••••••••••••••••
*. * .•• .*
.* END

..
•
..

PUT NAME
IN FIELD

•

.0.x *.

•••••K1*.*••• ***.

-

it
••••
>

*
** ••*•••••••••••*
•

*•••
o NO

X

•

•

*. *.

-

*-••. . YES:
....
.* .*

o

•

>

•••••••••••••••••

8LO:~Ii2H3*~ •••*••••
*• NEXT
POINT TO
*>
PUB2

.>.

HI·.

J1

••

IS

>
•

:X .......... :

•• -. END OF
••
PUB TABLE

*. *.

PU82

**.***.*** •••*.**

.. HI -.X.

• ••** >

BUILD
MINIMUM

*.*·*G3**···*·***

•

.****** ••••••*•••
>*.*.• •

BLDP2T05

•

>

it

•••••Gl**.·····.*

..

*

•

..

*. •• USED .* .* .- . . . .
*••
• *
YES

0

GET LENGTH
OF TOTAL

.0.x

>.;

•• NAME fIELD

..

•
..

F3

•

••••

X

*****04.*****.***

•

•**E~**.*.**
•*
•
SET UP

..

.it *.

.

•

BLDP2T25

RMSR
•• NO •
_.GENERATED fOR •••• X•
...

•

Cit

•*

END * .
.* OF
•• NO
o. DEV CODE
......
*. TABLE .*
*. *.•* .*
i'c
* YES
.*.*.
.***
*
C3
>
*.
• 04 •• X.
• ••
••

••*•• •

X

***.

.-.x

IN TABLE

BLDP2Tl2

*****03***··*****

•••••• ***••••••••>

-

•o

>

>
.
•• x.
'.

BLDP2T20

•

•

****•• ********.*.
**.* .

o

C1

•

> POINT TO NEXT _
.. .X.
DEV CODE
-

POINT TO
DEVICE CODE
TABLE

..

x

****.81t*.** ••••••

•
•
•

..
•

• >.

*•

UPDATE
NEXT PUB
ENTRY

•
•

.

..•••x *
. ..
• Hl •

****

ABNCHK

.**.*
*CH •
• 01 •

•••

Charts

75

Chart EL.

$IPLRT4 - Test for Not cperational
Refer to Chart 03.

Devices

........... ...•
• •• *A 1********.

*

..

~AS~

DVCONOO

•

_

•..

X
*•••• S 1 •••••••••
_

OVCDNOO

**

..
..

SET UP P sw
TO SWAP
PSW'S

*•..
..

•_••• *•••••••••••••
x

•••• -C 1 •• *•••••••
• GET NUMBER OF
PARTITION.
,.
CALCULATE
..

..
..
•
..

*

NUMBER
OF LUBS

..
..

*••••••••••••••••

x
*****01**·*··*·'·-

·•
..
..

GET END
OF LUBTAS

-•*'*

••• *** •• ***********
X

···-*EI··········
*
*

.. GET PUB TABLE ,.
,.

ADDRESS
SAVE PROGRAM
..
CHECK
•
NEW PSW

..............._.

..
..
,.

X _--_.
.****F 1_••••

•..,.

SWAP
PSW'S

*,.
..

*_ •••••••••·••••••
_.**
·• •
•

,. G1

•

.t ••

* *
••••• *
,. F2 ..

.-

X

OVCON15

*

*****F2**********

...

UNASSIGN
lUBS

..

*

-

*****************

'*.x.
.

DVCD~!~* j..
Dve ON25
X
G1
....
*****G2********* •
•*
*.
..
*
DASO
*..*NO
* Te
UPDATE
*
*..*•• DEVICE
OR
.........
X*
NEXT
..
DISKETTE .*
X"
PUB
,.
*..... .. **
..••• _••••••• _•••••*
.. YES

HI

-.

.x

x

....

.* DEVICE *. *. YES •
*..* OPERATIONAL
.* ..... .
*oo
,.,..
.* .*

*...
*
* NO
X

1**********
•*****J
•..
* DEVICE

*..*

.*

*oo

H2

.*. *.

END OF
PUBTABlE

*oo

... NO

OVCDN30

X

*****J2**********

*

*

*SWAP BACK Psw's*
*RESTORE PROGRAM*
.. CHECK NEW PSW ..
ZERO PROGRAM

*****************

*****************

·
*
*

DOWN
THE PUB

.x -

-

** CHECK

OLD PSW

*

*

****

* F2 *

•**** *

X

******K2*********
RETURN
*
TO
*
* CALLER
*
***************

76

DOS/VS IPL and Job Control

*** •

..

*

Gl *
.* .* •••• X*....
*oo.*
***'"
:too • *
* YES

Chart EM.

$IPLRT4 - Check Label Cylinder Organizaticn
Refer to Chart 03.

o

. . . .A1 •••••••••

•

•

.*
•0

...............•
REDRGLC

•

•

*.

•

··*··81*···..··*·
X

REORGLC
•
•
•
•

RELOCATE
CCW ADDRESSES
ALLOW WR ITE
ON SYSRES

.*. ••

•
•
•
•

-.

•*
•• PART

I

•

••

IS

LABEL
VALID

83

*. *.

NO

........

................. x.
•

ON

••

* .••
• NO

x

*-*-*-*-*-$-*-*-*
lABH

~R

~JiANG~D

LAB.CYL.
DESCRIPT.

•

•••••** ••••••••••

Ft

•*
••

.•.x *. *.

PARTt

·•

Gl

•• YES

•

•
•
•

.

*;IC~~ ....... ~

••
*•• *

•

..

••

•

G3

.•.x

NO

*•••

·

X

Fit

•••

••

•

••••

VALID

.*

~FT~~~RL~~T.

••

WRITE
VALID LABEL
BACK

x

••••
a,4 *
•
•••• •

..
••

.

*

X

*-*-*-*-*-*-.-*-*
•
WRITE
•

*

EOF REt

•

•
***.*.*.**.**
•• **•
•

X

EN •

•
•
•

•••••••••••••••••

NO

•

****.f5
*•••***••
*
.wq !TELAS
EN.

••••••••••• x.

G4··········
.••.•••.-.-*-.-.-.-.-.
• WRITELAB
•
•
•

....

• F5 -.X.
* •
..

• WRITEEOF

•

* •••

.. ..

••••••

••

YES ••
LABELS
••
.. •• "' ....... '" "' ............. TO BE SAVED ._

••••••••••••**•••

....

NO

.. G4 •• x.

.....--..-......

84 •
•• ••••
•

•
•
•
•
•

•

*ALL AODIT • • • NO X
*.• 'UB
PARTIT
••••••
TRACKS ••
*.
••
•

* •••

*•••

READ STARTS
AT THE END
OF CYl TO
EXPAND THE
LA8EL AREA

...x

05
..enF
TO*. ••

NO

FIRST
NO
•
• LABEL ON TRACK . . . . . . X.

•
•
•

••• **Hl ••••••••••

•
•
•
•
•

• YES

....

.* ••

X

MOREPART

•

...*.*

TESTLA82

.

*

•.

•

•....*•••
J3 •
..

R IGHTSHIfT.

.. A4 •

••••

~*

..••••..

.• LA8EL *. •• NOSHIFT
.
SHIFT
. . . . . . X.
*.*.
.*
x
* •• * .*

••

.•.x

x

LEFTSHIFT
.....

....

INITIAL! ZE
RECORD
COUNT

•••

AREA
*. NO
*..*..EXPANDED
TO 8E
.* ••••••

ONE LABEL
*••••••••••••••••••
••

••••••••••••••••••

••

READ

•

X

C5

••••.
.* E4 •• *. *.
•
• XYES .*
• I=as
F;nF
.. *

••••• FZ ••••••••••

NO

.•.x

x

.. ..
........

TESTENO

.. ..

·•x•••••••••••.

:NOLABMSG

NO

.•.x

•
MSG OIl9I
••••••••••
**•••••..

*. ••IN LAB.CYL
.* •••. x.
tl
••
*. *••• .*
•

DESTROYED

.*YES
.•........•.......

•• 04END*. *••• YES
••
••
OF
••••••••
*. *. TRACK .• .*

CH •

.5rANIJ~pp

•
•

L tMIT

•• REACHED ••

•

*-*-*-*-*-*-*-...
**
".
IT IE

•
•

.MSGRTN

••

·.*
*-.-......-*-.-*-.-•

•••••••••••

X

EN.

B4

.* UP/lOW •. ••

YES

..... E2 ••••••••••

• ROWRDESC

•

..

X

NO
......

•••·.El••••••••••

..

REAO/WIU TE

TRACK"
..
••••••••••••••••••
•

••
••• C4••••••• EN.
*READLAB

••

SYSLOG

UPDATE

..
•

x.x ••••••••••••••.••••••••••

•••

•

SET OFF •
• FIRST TI ME •
•
SWITCH
•
•
DECREMENT ..
•
TRACK'
•

·••••.

X
•••••A5·····
••••••

•..

*•••

•

•• ••••
•
Glt ..

••
••

YES

*•
DEV ••

o

X

.*

.. .... ...-..

•*'
•• COMM

••

X

YES

.•.x

READLA82

•• C3 •••••••

o•

*•••.•

• •••• •

••

ON

X

C2

02

•• YES

••

.
.. ..

.. 84 ••

•• FIRST TIME •• NO
••
SWITCH
........

••

YES

•

LAB.CYl ••

•

82

EOF

•
•
..
•

..•••• x..

..
.- ..
....... ..
.x

READ STARTS
AT LOWEST FG
PARTITION TO
COMPRESS LAB

•••••••••••••••••••

NO

X
._.

*. *.

•
•
•
•

.* ••.•.•....•••.•..•

••FIRST TIME •• NO
••
SWITCH
......

··.~~A~¥."t~C~. . . . . . . . .

•

s-

X

.. .*. ..

•••••••••••••••••

.•.x *.*.

*. •

A5 ..
•• ••••
•

•·•••A4·.·····.··

•• YES

.* .*

*. *•.•.*

VALIDLAB

EN.

• DESCR IPT CYL 0 •
• TRLK 1 R EC 4
•

01

EOF

•

X
•.....····C1
.........
-.-.-.-.-.-.-..

• READ LAB.CVL

*. *.

..••••

.. A4 ..

••••••

0

.•.x *. *.

TESTLA81

•••••••••••••••••••
• RDWRDESC

A2

••••

.

.

..••••

•• ••••
•
A2 ..

G5

NO ••
•••••

....
· .
x
•• A5 ••
*•••

.'x.*.

.* INVALID•. ••

*.

lABEL

*. *•• *.*

••

••

·x.x •••••••••••.
.. YES

•• .**.
•
J3 •

•**•••

··••••....-.x.
•••*

.. J3

··J1.·•••••
X

• SET FIRST ••
•
TIME SWITCH
•
..
ON
..
•••••••••••• •
•

X

•••·*J3···.**••••
•••••••••••••••••
..

RETURN

•

:x ........................ :

·.···Kl••·•••••·•
x

• READLAB

EN.

*-$-$-*-*-*-*-*-*

.READ ONE LABEL ..

••
•
•••••** ••• **•• •
+-11.

x

.
o

••••..
..*
••••

.. AZ

Charts

77

Chart EN.

$IPLRT4 - Make a FUE Search for a Dec Device
Refer to Chart 03.

···.A3**.···***

*.. REAOLA8 •..
*•••• *•••••••••• •

READLAB

X

*****63**********

•

.. LOAD ADDRESS

*•

•..

*
*
•
*****************
OF READCCB

X

*****C3*********·

•••• c 1 •• ** •••••

...

•,. CHCKDOC •,.
••••************ •

CHCKDOC

..

INSERT

,.

INTO SEEK
ADDRESS

•*************** *

··

..•

X

WRITELAB

*****84*********·

* LOAD

ADDRESS

.. OF WRItE

..

eee

..

•*****************

*****C4*********·
"'rNCREMENT REC- *

..

* INSERT

*

*****************

*****02* •• ***** ••
''"" SET RETURN *'"
.* .* IS *. *. NO
*~CRTTAB (DOC) .*~"",. .... X*
FOR NO DOC
'"
* .GEN ERAT ED.*
X
*..*
,.'" GENERATED ,.•
,... * .."YES
*****************

... ORO COUNT UP-

x

1*********•*****ESEARCH
•*
'"
'"

PUB

..

'"

•******************

X

X

SVCO

*****04**********

..* **
.. '"
* *

.. ..

EXECUTE

.... **
if;:

..

.. *'"

CHAN PRO!; ..

*****************

"'***"'**********

*

"' •
*. *. YES..
.* . * OF
END
....... ..
*. PUB .*
*. * ••• .NO

x
.'. *.
Gl
.*
* • *. YES •
*.•*DOC 1250
DEVICE
••••••••
*. *. FOUND .• .*

.. .NO

X

•*****Hl**********
•..
..
POINT
'"
TO NEXT PUB
..
*
•***********.*****••

X
*****G2 **********
•'"
*'"
ASSIGN

·
*'"

SY$USE
TO DoepUB

.
'"
'"

*****************

.*.x *.
H2
*****H3**********
.*
*. *. NO
*DOCRTN
CB*
I S DOC
*..* INITIALIZED
.* ........ X**-*-*-*-*-*-*-*-*
ISSUE
*
*. * . . * .*
** ERASE/WRITE
*
FOR. TEST
*
*. *. YES
*
*****************
: x........................................ :

X

DOCINIT

*****J2**********

•*

*'"

*

LOAD

TRANSIENT
S$BOCRTA

*

*
'"

•

*****************
X

''""
•

78

****K 1*********
RETURN

****"'**********

*****K2**********
** SET RETURN **
*x ........ *
DOC IS
*

*

*

X

***************

*

....

•

·•
•'"
*

LOAD AODR
OF WR!TE

'"
COMM.OEV
*
*
*
*****************

DOS/VS IFL and Job Contrel

*

*

eee

.••
..

'"

*****************

*****************

•'" ****E4*********
•'"
RETURN

.* .

*

X

*****85*********_

*

•'" ****E2*********
•'"
RETURN

x

Fl

RDWRDESC

*DATE LAB COUNT ...
TRACK NO*AND DATA COUNT ...

.•........• x:

.. FOR DOC DEV.

~DWPOESC

: ....................................... x: x........................................... :

X
.*.
01
"'..

:LOOKDOC

•'" ****.1.5********.•'"
•***********.***•

X

*

..
TRACK AND
..
.. RECORD NUMBER ..

..

•.. ****A.4*******"*
•'"
WR ITELAB

Chart EP.

$IP1RTQ - Medel 115/125 RMS SUFFcrt
Refer to Chart 03.

--......
••••

..-

• •
••••••
•

····AI·········
Tl25CH

X

Tl25SCA

.*
••

A3

.'.

•

RMSR

······81··········X

Tl25CH
•
:

SET TO

•••••••••••••••••••

C1
•*

e2..........•'*

••••• it
*.
** R.ESET
= YES *. YES
*.•• RMS
IN SUPVR
•••••••••• X. PROBLEM
*. *MACRO
.*
*
..*
•
Tl25EXT

*.

.

•• •*'

TO

STATE

·

'1ES.*

••

•

•

CPU 10

•

CHAN

OR

YES

STORE HW
CODE IN

-

•

LOW CORE

Tl25HW

·-

X

•

.-

****Hl*··******

•

••

._

*

••

NO

••

••

TAPE

_. YES

DEVICE

••••••

.

x

_ NO

HARD WAlT

03

••• *.**.*******

•

.'.

••

TAPE

-

*. *.... .•

YES

..- .* ....

••
••

CHAN

E4

' •

ZERO

*

.-.x

••

CHAN
ZEPO

o

NO

-.

••

.'.x

... NO
•
•
........ X. A4 •

YES

••

•• .• oeVIce *. ••

*.*.

*...
...

••

••

.

AOOR

•• l T X40..

YES.
•
•••••• X. A4 •

_ NO

YES

•••• *

.... .'. .... ..
....
....
....
-...
04

*. ••

.... .-. ....
...... ..

NO.'

••• •••

o

x

x

.*••

.
'••••
•• X.
Gl •*

.. ..

.* DEV ADOR _. NO X.
X FF . . . . . .
*.
.*
• ••
_ *
YES
••

.••••-

.. ..

•

' . HO -

:.......... X:

*.
'.X.

X
*·*·*Gl* ••• *••

•
•

YE S .

•••••• X. C2

x

C4

•. ••

DEVICE

E3

.111 •••••••••••••••• x.

-.*••- ·*.
.*
-••••******.*.**••GI

..

.•

F3

*. -.

'MCH SUPPORT_

••••

END

DB
PUBTAB

•

*. *•••
.*
_ NO

••

*.

*••• •

....
.... ....
.. .-. ..
-........ .....
••••
OF

• .. PUBTAB..

-

X

*. *... ••

••
-.

* •••
• NO

•*

••

.~

.x

.'

.
•

x

'.
•*ElMODEL*. *. *. YES.•••• *'
•'.
1151125
. ' .... X' A3 *
*. * . . * .*
*
••••.

••

X

.'.

•• 84 END *. •• ••
••

*. .*

X

STORE

••

-•

•

••••••••••••••• **

• Gl •

•

.'.x

C3
.*

••••••

*•

NEXT
PU8ENTRY

Tl25NOR
•

PUB2 AOOR

Tl25BG.'.

-

POINT TO

•
•

C3 ••

*X. ••• ••• •••

·.··*01·····*····
.•
•
·•••••••••••••••••-

Fl

•

•••••••••••••••••
••••
'.
*
x.

•••••••••••••••••

~

X
CALCULATE

••

• •
• C2 •
••••• •

X

.-.

·-

...-

•
:

sUp~~mOR

YES

··.**83 ••• •••••••
_

it

• •••• A4.· ••••••••

·
: •••••••••• X:

*•••
•

A-4 •

Tl25PT

••

*. *. NO
'.
••••••••
*. GENERATED
*.
.• .•

•
•
•••••••••••••••• •
•

•

A3 •

.-

ic

-

···*G2··**···*·

•

RETURN

*.*** ••********

*

Tl25NOC

X

·**·*G3**········*
• SET PUB2 FLAG •
••

TO
NO RECORDING

•

•*._****._••••••**""•*
MODE

·•x•••••••••••.

**
.*
-••*.******.**••*..

Tl25EN

X

••••• H3 ••••••••

•
•

POINT TO
NEXT PUB

•
•

ENTRV

X

***··J3··***··*·*
•* CALCULATE •*
•
NEXT PU82
•

-***•••_**.*•••**.•
-

TABLE ENTRY

•

.

.
'••••
.. x*
C3 *
•••••
•

Charts

79

Chart EQ.

$IPLRT4 - Set Line Mede
Refer to Chart 03 •

•*••
••

*

Al •

••••• *
X

···.A2·····.··.

••• Al***.*.** ••••
ISSUE
SET LINE MODE
I/O OPERAT. *

•

MODERTN
•*
••• ****.*****
••••*•

•••••*********.**

Bl

x
.*. ••

* .*UNRECOV. *. *. NO
*.•*.1/0
.*....
ERROR ••

*. * ..• .*

B2
115/125
NO"
.Pl¥~B~~N~R~~~;.* •••••••• X:
RETURN
SENT .. "
.........

.* .."
*.

• YES

X

* I/O ERROR •
•*.* •••• **** *

•••*..

x

* TO MODE TABLE.
*
••••••••
** ••••**.*

.

X

·*·**01***··.**.·

••

*...
* "YES

..

:

..
MOVE MODE
.TABLE COUNTERS ..

•• 01 ••
* x..x •••••••••••
*••*. * .
POINT TO
NEXT PUB

** •••••

X

.. UNRECOVERABLE·

•
*

·*·*S3**·*·····

*. *.

·····C2.·····.·*.
*
*

*·Cl····**•

• SET FLAG •
• TO INDICATE •

LHODOG

.*i< . *.

HOOERTN

•*
•
*

* ****••• *•• **.•
••••

.•.••
* 02.··.····.·•
X

LMOD07

:
Fo~EIS~~ING :
• SET LI NE MODE *

*
*

•
..******
••• *.****•

•

.*.*.03*•••• **.*.

*

..

RESTORE
SYSUSE
lUB

•*
*

..

**•••********.*.*.•
x

:.•••••..••..•••••••.•.•. x:X
LM0002

E2

•••

••

•*
•. NO
..
*.•* PUBIS ON *..* ...........................
.
*. CHANO .*
*. too .* .*
> YES

x

.*.
•*F2 *. •. *.
NO.* DEVICE
•..•. *oo IS 2103 .* .*
*. too .* .*
x
*' YES
**'••••
•
> 01 •*'
****
x
.>.
*oo

G2

oo·SIS LINE *•*. YES
*.. *AND
NEW LOW .* ..........•.......
*. LINE' .*

*. too

••

.-

> NO

x

.>.

.•HZ sse *. *. *. YES
..
*.•*'
*. LINE .> .••.......•...••.. x.
*. too .*.*
* NO
X
*·*·*J2**********

* SET UP
*
...
* TO TRANSfER
*
... ONE
BYTE ...
*****••••• *****.*.>
...

~ODE

x

*:+***.
Al >
...
*••••>

80

DOS/VS IPL and Job Contrel

X

*·*·*J3****.* ••••
*... SET UP TO **'
>TRANSFER THREE >
*

MODE BYTES

>

*
***.***
•••***.****

x

****

>
•
• Al ...
•
>

•••*

Chart ER.

Multi~lex

$IPLRT4 - Check Eurst and MICR Device cn
Refer to Chart 03.

Chanr.el (Part 1 cf 2)

..-.

••••• •
• •
•

....

• .5 ••
•• ••••
•

A3 •

.•.
i

•···Al•••••••••

.*
YES..

•* 8MPXRTN ••
••••••• **••••••••

••••••

•

GET ADDRESS

•

CHANN EL TABLE •

•••••••••••••••••••

.•.ic

..

.. -.
Cl

seT MleR
SUPPQR T
SWJTCH

....

..

*••
• yes

81;

...ic

••

BYTE

*. *.

NUL TI PLEX
••
•• CHANNEL ••
YES

*Copy BuoST MODE.
SWITCH INTO

•

•

.>. *.
~

.*

..

05

•.

.*

••
BURST
•• YES
•• SUPOORT FOR ••••••
•• CHANNEL

•.

* •• *
•

.*...

*..•

x
•••••
·EJ •
• 82·
•••

MPXRTN

.* E5 *. •.
.*MP)( CHANNEL*.

.. XYES
':1 .X......
'"
••

*...

.*

NO

j.

:BMPXSW2

••

•

*.··.•*.

.*

.*

CH'NNEL TABLE.
•••••••••••••••••••
•

~J

••••..

*. *.

·····C5······.··.
•
•

•*CHANNEL•• •• YESX• • •• ** •
••
*EMPTY
.*_." .. X*
..
*.
.*
...
**.
.
.
****
•.•

•••••** ••*.*•••••

*.

•

*•
..
•

LOAD

.•.x

••

BURST

MODE
SUPPORT ••

X

f3

•••

*. 'III • • • .•

•••••••••••••••••

:~~~~m ~g~m:

X

• x....

• CHANNEL NUMBER •
..
PICK UP
..
•
FOCL ENT RY
•

·····El··***···**

• *. *
••

SW ITCH

BMPXSCN

•
•
..

*.

A5

X

MODE FLAG

*

.-

.*
...

.. NO

•••••••••••
:•••••••••• X:

!• R~~!~J~~~l~a~ :>
..

••

* X..

*• SET

..

X

•

.•.x

.TO RES ET BURST •

..x •••••••••••.

••••
*eJ·

NO

·.C3 ••• ••••

••••*•••••** •

BMPXINT

•

·.···03·········.
•
•

•··01.·*····•
X

•
..

•

.BMPXNBT

••

MlCR
*........
NO
*..* SUPPORT
*. *.
.• .* ••
* -YES

•

NO.*

.. •••••

.* BURST •. .... NO
*..**. SUPPORT
MODE
••••••
._
*.
••
*•. •••• • YES
•* C3 *.
•• x..

•

OF

•

83

X

BMPXPT

•. ••

*. *••• .*

•• •••• Bl ••••••• •••*
..

••

BYTE
MULTIPLEX
••
•• CHANNEL ••

X

BMPXRTN

A3

SWITCH
alii

. *.•••
.*
•

NO

••

.*

NO

• F5 •• X.X ••• Fl •

. ....
••

BMPXZER

•
• ZERO

•• FI ••

•

X

~fiFER~~~~~
ESf5, ESG2

:.*..*.*.x.x. ••:_***-•
:

X

>
•
•

*

**•••**••••

INCREMENT
PUB
ADDRESS

ic

•

*
•

INCREMENT

H3

•
•
•

*. *•. * .*

BMPXSWI

•.

••
LAST
•• NO
••
CHANNEL
••••••
•• CHECKED ••

*. * •. * .*

YES

ic
.*.
J3
*•

*.
.* .*
*. O N . *
**....**
*NO

x
••••••

)(

*-* ••

*ES *
*82-

•••

• A3

X

X

•••• Kl·.·**·.**

•

••
RETURN
••••••••••
**•••••

A5

BURST
'.
..CHECK SWITCH ••••••••••

••••*•*
•

*.*.x

• •
•• *•• •*

NO

•

ic

•

....•

•

•
•
•

.•.x *.
•

.'.••

~

*

.. C3 •

••

•••••**•••• *.* •••••
JI

41

•••••••**••••

*.' . YES
•*.* CHANNEL
PUB ON
••••••
•.
.*

•

CHANNEL

NUMBER

•*

•

MPX
•
SWITCH •

•*••****•••*.*•• *.*

• •• **Hl •• *•••••••

•

ON

..*.•

G3 :

•**. X. ****
BMPXLP
•*··**G3*··***··*·•

**Gl·······

'SET SWIUH •
FOR BURST
•
• CHECK. RESET
• SWITCH FOR
•
• MPX CHANNEL>
•

•

•*****•• *•••••****•

*... .

BMPXNXT

*• SET
'CHANNEL

GET FIRST PUB

••••*••••••• •
••••
•
>.
•• Gl •*.X.
•

ic

.*F5***.** •

•·****F3·*********
•*
*
: oIM~~~mT :

SWITCHES'
'MICR FOUND'
•
t BURST FOUND t ..

•

•

•

•*·K3··*****
•*
RESET
BURS T MODE

FLAG

*•

••••••*.....*

x
••••••
••*.* •
•

G3 •

Charts

81

Chart ES.

$IP~RTq - Check Eurst and MICR Device cn
Refer to Chart 03 •

~ulti~lex

Channel (Part 2 cf 2)

•••••
*ER ..
• J3*
•••
82

.*.it *.

BMPXUNS

83

•••

....

64

• ••

*•

•*DEVICE *. *. YES
*•*. NO
.* .* 3277 *.*............
NO
.* .*
*.•*UNSUPPORTED
•••••••••• X..
X•• UNSUPPOPTED . . . . . . . . . . . . . . . . . . . . .
•• OR 3211 .*
*.
.*
*. DEVICE .*
**....."*
**.••.**
**....**
.. NO

it
e2 .*. *.

YES.*

•*

.. YES

: ....................................... )(~

-.

TAPE
••
CARTR t DGE
.. "

. .... . *. *.

.. YES

READER

*. *••• .•

YES.*
••••••••••••••••••••••••••••••••••

•

J.

*.
.*..
:.BU~O~pa~yE ·:.~~

*.*.

E2

J. *.

~ICR

*. ' .

.*.* ........

SUPPORT

*..*

*. *. *YES

•··F2·_·.···•
*'
*
it

• SET SWITCH •
'BURST FOUND'
*SAVE CHANNELl.
•
UNIT
•

*....._.*.**

.

.*

x
.*
•••••• ••••
x
*.

••••*
*ER •

• G3'

G2

.•.it

.*-. .*

*.

••

DEVICE

FOUND

05

... *•

.*'
* . *.
• NO.* DEVICE
• x•• *.
SUPPQctT
>II.
.* • *
*. *..• .*

**:••

::~V~ ~~~ I~~A2~L:
•••••••••••••••••

•

• SET SWITCH
X*. 8URS~O~OOE

*CH •

* YES

01.
••
•
ABNCHK
•

X

**E5****'***
**SET SWITCH •*'*'
'" 'MleR FOUNO'

••

**••• ***•••*•

••••••

.SAVE CHANNELl.

*

x

*.**.
*EJ *'

UNIT

*.****.**.*

*' *82.
MPXRTN

•

•

F5

.*

X NO .. *
. .•..•..
*.

X

*****

*EA. *
• (;3*

••
•

"'.

.•.it *.

BUJtST

*. *•
.*

**.•..**
• YES

•. *.
.* .*

• YES

MSGMICR

i<

*****H2***·····*.
• X 'CUL' BURST
*
.Mooe AND X'CUU· •
• MICR CONFLICT *
•••*•• *.***.*.*••
*GET ADDRESS OF •

• MESSAGE 0\340' •

x
*••••
*' 01**

*CH

••
•

ABNCHK

DOS/VS IPL and Job Contrcl

•

FOUND

DEVICE

·• x............................................................................. ..

BMPXBP

••

**.••.** .*
.. YES

BMPX8P

MICR

••

MICR
SUPPORT

...*
*•••

• •*

82

*.

•.GeT
••••03
••••••• **.
ADDRESS OF •

**E3 •••••••

NO

NO
NO.*
•••••• X••••

•••••• X:ME~~~3~.gm~: : ••••••••

* YES

•*.*

*. *.

.*.

~

*. *. *... ".*""

:BMPXMCR

SUPST
DEVICE

x

C5

* .•
.. *

* NO

02

.*. *.

*. * . . * .*

••

:x ....•..... :
:BMPXTST

.*

C4

.*

Chart ET.

$IPIRT4 - Channel switching Routine
Refer to Chart 03.

••••••
••••••
•

A3 •

:x ..••..•••••

CHS

•••• Al •••••••••

•
•

•

•..•

CHSWRTN
••••••••••••••••
••

•:.

B1

•••

•*

...

s~~tm~G ·:.;~~

•• SUPPORTEO..
•

•

..... x:

..

INW~~ue

•

:
•

NUMBER

.... .
·····*(2
......••••••••••

**..•.**

..
..
•••••••••••••••••

NO

..

X

•o INCREMENT ••
•
CHANNEL
o
NUMBER
•
•••••••••••••••••••
0

:X •••••••••••
CHSWNXT 02

X

····01**······.•
•
RETURN

•••••••••••••••

NO.. .•

••• r:.-.

....
·......

o.

i

•• C2 ••

.*. *.
MP X

~li-"fti>.~l.

YES.O . -

•

*. * .. * .*

•

o
•

•• Fl •••••••

.

.*

E2

·• ..
•••

.. C3 ••

o

*.•
.. *
YES

..F2.~

o

•

..

••

•

•••••••••••

..

.....•

SET
HUL TI PLEX
CHANNEL
SWITCH

•*

•••••••••••

E3

*. *.

*••
.. *
YES

01351

*f4 MESSAGE 01351,

SWlTtHABLE OEVICE REDEFINED
NON-SWTTCHABLE

0

:x .......... :

i<

•

GET CHANNEL
NUMBER
FOCL ENTRY

0

•

0

•••••••••••••••••
•

0

CHSWFtL
X
••••• G3_•••••••••

..
•
•

GET

..
0

NEXT PUB

•
•

•
0

•••••••**********0

ic

.*.
11

• 0.

o.
. *H2
•. o.
YES."
CHANNEL
.. ••••
EMPTY
.*
*. *.
.*.*

••ic*. ..

CHO

*F4*
•••• *••••** ••••••

0

o

o

**·.··**

*-*-*-*-*-*-*-*-*
o ISSUE MESSAGE.

•
..

·····Gz.··.··.·.·
o

Uci:;:C~

11
..

*. •• NO
......... ..
.* .*

IS

•• COMM. DEY

.... i.Gb

............................. x..
•
•

.*.x *•

• •• **F3 ••
*MSGRTN

..

•

*.*••

**RESETFORFLAG • • ..
..
* SWITCHABLE 0
*••**•••••••..

**.•.•
.*
.. YES

•

.*.

11

NO ."
BYTE
••
.,;:;;. .......... ..;...
fi.Ut i~lll;::)( .'•• CHANNEL .0

RESET
..
MULTIPLEX
•
CHANNEL
•
SWITCH
•

x.

*.D3 ••

*. ••

.*.ic ••

•

.*** 11
C3
*.
.*.* DEVICE *.....* NO
•• SWITCHABLE
•.....
*. *.
.*
.*

CIiSWIST

_•

LAST

*•.•
o NO

*. ".

SWITCH
.0
OFF
.. YES

.0.X

······•· •. *.p~~mUo.*.•·•

X

..
•

El

•0

•

.0.x * •
83
.*
•.
YES .0 CHANNEL o •
••••• ••• LOW OR EQUAL .0
*. *.
.* .*
* ••
.. *
NO

.. .x •••••••••••
..

.. C2 •• x.

•

**•

•••••••••••••••••*
• •••• B2 ••••••••••

*.

INCREMENT
PUB
ADDRESS

•

X

CHSWRTN

=it •• A3 .!••••••••

*•••
• NO

H3

.. ..

H4

.* .....

*••••H5.*** ••••••

X

•**** •*
• *
••••

.* SAME *.*. NO
.*
*. *. NO
•
•..
*..* CHANNEL
.* ......... Xt...* CHANNEL
HIGH
.*........... x*.. tHY TeST
S DEVICE ..
*. * . . * .*
*. * . . * .*
....
....
* ••
*
*•.
*
••••• ***.***•••••
• YES
• YES

.. C2 ..
•

••••

x

0

X
••••• J2 •••••• ** ••

•
:
•

GWM~LpUB

•
:
•

...................
I N CHANNEL

•

*

x

o .***•

....

• A3 ..

o

•

11

..***J3***•••••••

•••
..

INCREMENT
PUB NUMBER

IN FoeL

*•0
..

*••••••••*****.*.

•

0

tHSWOFF

• ••• *J

,..*********

SET
•**' CHANNEL
*
EMPTY •
"
IN FOCL
*
*
***.*.**.*.******

.. C3

0

............................... .ox..
ic
**•• *K 4* •••••••••

o
**'
NEXT
* TRY
CHANNEL
•
•****•••*.*****•••

·•

.

..

11

•..••••
t2 •
..
••••• •
Charts

83

Chart FA.

$IPLRT5 - CAT and DPD Processor
Refer to Chart 04.

•****•*•••
•

A4

***••*

..

SI PLRT5

*••• * .
*co
.. E4 -.x.
,
**** ,',
x

·.

"

•* CAT *. *. YES
*.•• COMMAND
••••••
*. *.
.• .*
.:t • • •
x
• NO
****

• SAVE INITIAL
SV INFORM
• OF DPD MACRO

*'

x

.*

*. ••

02

NO.*
PUB
"'.
•••• FOR CONSOLE WR.*
...

K
•• t.

•• G2 •...
• •

*. FOUND .• .* ••
.. *
YES

****

i<
,',

X

x

****

*•• G2 ••*'
***.

i<

•

*

•*****E2****····*·•

...

... SVS USE EQUAL
..
SV5l0G

..

...

..

•

ASSIGN

SYSUSE

TO PUB

..

•

.******.*********

...

MAKE

C3

" ,

x
,.,

...
•

ocuu
"

.

•

SYNTAX CHECK
OF OPERAND

**** •••
X
HZ
*.
*
•
"
NO MORE *. *, YES
"
OPERANDS
......
*. *.
.*
.*
x
*••
• *
NO
•*•***
•
83 *
•**.*
•
X

••x** ** ••*************
** H2 **

•****•
84

"

•

.

-*
•

SAve DAY (IF •
VEA.R fOR.
•
• CREATION DATE.

**.* •• *******.****•

* ••
*
.. NO

,',*.

UNZYSV

*oo
.* •*CYL WAS
*."
*. IN OPRND
CMNO ••
*. *. oo • .*
* YES

NO
....

X
*****J3*.********

x
*.**
*CH •
•
* Cl*
••*

H4

x
.',
*•

.* NO *oo •• YES.•
*.••..FOR
SV INFORM.
• ••• Xoo
UNIT .*
*. *CVl
.*
x
•.
*
* NO
***.*..
.CH
.. C1*

ILLCD

x

•*****************•

•********.*.***.**•

UNIT CUU •
AND START
CYL ..
FROM DPD CMND •

x

YES

*..
. * . . .*CHCl*•
....
tlLCD

•*****
•
85 *
•****
•

• GET UNIT CUU •
FROM SV I FORM ..

.. AND STAPT CYl ..

*

x

•****
•
B5 •
•*••••
•

••
•

ILLCD

•

IN
.* ••.••••.l(
*. *NOT
TABLE
. . * oo"
•••••

CHECK AND
ASSIGN ROUT

•
•

,-,x *.
/';11)
.*
,- INVALID *oo . , YES
*. OEVTCF TYPE .* •..•
*oo

*. *..• •.. .*
• NO

••.·**J4**.****·*·•

**

*'

DOS/VS IPL and Job Contrel

•

F5 .ooX.
"
•• ** ..
UPLI OK
x
**•• *1:5.·•••••*.*

X
••*.*FS.*********
*CHEe
KCU
FF*
.-*-*-*-*-*-*-*-*

x_

H3

,',

.x •••••••• *.

****

*

••••• •

•• GET

•
OPERAND AND •
BRANCH TO
.. CORRESPONDI NG ..
OPER.RDUTINE ..

*

·•

*'

UNZYCO

******J2**********
FIND NEXT
..

..

•

•• •••**••••••••****•

••Cl•

*oo * oo*V ES

x

•

X

• AND INDICATE
•
VOlTO CHECK

.*.*'
.
*'

oo·.
G3
*.
G4
*.
.* WAS *. *. NO
.* WAS *. •• YES
.*
.*
*. *.UNIT INoo*
OPR.ND oo* ••• oooooo. ooX*oo CYL OPRNO .* ....
•• IN COMNO oo*
*COMMND.*
...*

..

*'
*****************

••••*

YES

:x •. oo.oo ••••• :

•**··*05****·*****
•*
•
SA,VE VOlIO

.*.

DPDCODE

X

K2 *.
*OPERAND
*oo
*.

••
•

ABNCHK

***.

TECARD

•

..

•**.*••*.****.****•

.. H2 •• X.

NO.*

.****
*CH •
• 01·

G3 * .....
•..•.***
• x

· .,

** ••• Kl**.*****..
cc*
*-*-*-.-*-*-*-*-*

....

•
•

PHASE I PLRT5'
•'OF
•**** •••• ***.**•••

*OPRTN

*oo

*. *•. *.*
*

•..****
E5 •
•
• •

x

...
..
•

*****G2*****.****
* RELOCATE
..
:D5~Bt8CM8~~f :

..

..

•

,',

.. lOX_ E5

"

FOR EACH OPERAND
EXIST ONE SUBROUT
FORMR - TYPE
UNITR - UNIT
ZYLR - CYL
VOLIDR - VaLID
SEE CHART FE

•*

'SAVE UNIT OPRND'

*

... G2 "'.X.

·...."

x

•

X

*1 N PACKED FORM

··-*.'"" .
****

*•

·*.•
•
•****.************•*'
......*'

•********.*.**.***•

NOLOGAV

FOR.
NOT
OEFINED

ILLCD

*****F2*·*****·*·
SET CC W
•

..

****

•

0140A
DEVICE

**********.******

....

.. YES

X

TO READ
FROM
lOG.DEV.

G3

••

C5

*oo
.* oo*VOllO
OP ••
INSVIFO
••

NO
•• •••

*****E3*** ••••

:.......................... x:
*•*'

•..

• NO

•*****
•
C4 * •••
•****
•
X
*·***C4****·*****
•
•
• GIVE MESSAGE •

* PARM* •*. NO
.* •UNIT
"
AVAILABLE , . . . . . . . . .
*.
.*
x
**.•..**
*CH *'

CATCODE

•******.*****.****•
LOG USE

....

.',

.* ar; *•••
oo* VOLYO OP *. YES
*oo
•• *ooTN OPD .* .* .*oo •••
*•. *

ABNCHK

•
..
•

X

VOLIDCO

••01*
•

CAT
COMMAND

03

*. *. NO
.* .*
• CONSOLE WRI TER ••••••
*. *. FOUND .• .*

•*****E 1***.*.***-•

*CH

* .*' . NO
,...
.* ........
*. *.
.*
.*
x
* ...
.. *
YES
•*.*. •

~,

*•.•
'" YES

..:**
* *'

x

.*
.. "

.. YES

,',

•• *.**
•
85 *
•****
•

•*****.*.********.•

****
x
,',
e2
*. •.
.
*
NO.*
SVSLOG
••
••• •••• ••• ••••••••••
ASSIGNED
.*
*.
.•
*. *.... .*

01

•

•
TYPE
..
•••••
******.*.***

•**83•••*•••
•****.
• .
SVI Fa
x
*****63*·***···**
•
•

••* HZ •..*

NOASGND

*****

GIVE MESSAGE •
014}A FOR
..
*INVAL 10 DEVICE ..

..

..

•••••••****•• *** •

B2

X

••••• A4.* •••

*
•

•**••A2*····****•

HS

,.,x *.

****

*•*. YES
.*....

oo·
oo. NO PUB
*oo
FOUND FOR
*. SYSVIS ••
.oo

*•• *

.*

• NO

x

*****
**FBB?**

••
•

x

*.*.
*•• A4*••

x

•• ****
•
C4*

•*****

Chart FB.

$IPLRT5 - OPO Prccesscr
Refer to Chart 04.

O~eD

•••••
-FA •

o

o $I • • • *

***
x

.-. *.

82
•• "-

*. *.

CAT

COMMAND

YES

CATR~a~tCH

:

.* .* ••...... x*•

GO TO READ

NEXT

_

·

:

COMMAND

•
...
•

*

*

•*••••••••••••••••*

x
.****
$ICC *
... Bl*
oo*

···e2•••••**•••••
READ
VOL 1 LABEL

FOR SV$VJ S

.....
01..........
:o¥!Xi

MONITOR

• NO

X

.-.

*.

04

x

VOLFND

*'

t
t

.*

x
....
E2

*OLD EXTENT.*

••

***E3 *****.******

••

*.
.*
.. *

IN
OPO

*•••
_ NO

pos LABEL

-•••• F2 •••••- ••••
*
III
*. MATCHING .* .••.•.•• X.* SAVE VOLIO •*
*•••
•
*.**.••.** .*
* _._ •••••••• _••
* NO
.*

VOL 10

*. *.

*

YES

...

***** -

.'. *.

F4

*. *.

.*
• .. * .•
•

·

INDICATE
FrlPJoil"TTI NG

..

• "'.X. TO

*

..

... MUC;T RE nONE

•

-

:*** *'

:

...

• FeD3" FCGl

..

.*

REFERENces

FBES:

··
..
•
•
·••.*"'.*.' ..
•X

MOVEp.r~

*****F"****.*.· ••

*'N'T

*F"'R

CCW CHAIN.

LA~EL

.***"'.* ••

READ '"

*•••••••

F5 :.X.

NEXTLRL

•• NEW ••
•
NO.* EXTENT IN "'.
•••••••• LIMITS OF
OLD

lit

•..'"

!

x

•• 05 •*

-•

QVLAPCK
X
****.01) *.*"'* •••••

****

FORMATrr"'G
•
•...•••••
*•••*••••• **•

**.*.***********.
i

• 111

..*.

'" n-; ..

********** ••** •••

·****E4***··***·*
** INDICATE •*
*
PAPT IAL
*

DELETE

X

NOVOLCUO

*•.
... *
YES
X

X

t-~,...

.t *.
Fl

.*

:X •••••••••••

ABNCHK
YES.*
VOLIO
-•
•••••••••••••••••• *CHECK INDICAT •••

*. *.

.'.*. *.

.* COMMON *.
...... .. .... ....... .. *..* EXTENT
WITH • *
NO

YES

• 01*

.•

.••••••••••• x..

j(

*...
*

:~~.:

'III

****

02

*

•
..

.

.-.x

•

.*
*.
O~[S~G~OT:X ....... ~~.:· ~gbN6 *:.
•
FOUND·
*.
...
•
*'
•••••••••••••••••
*.••

•

SEARCH
VTOC FOR:
PDS LABEL

C4
*.
.*
*.
' NO RECORO ' . VE S
*..*.
FOUND OP
.* ••••••
CYl EN!'} ....
*. * •• *.*

•••••••••••••••••
NRfVDLl

j(

*.***********••••

NO

X

•

-**.*.84*·*·*.···..

XTNTOKAV

• •••• 83 ••••••••••
••••

**.. ....*
*

•••• *

• 84 •

• HS*

X

···**FS *********.
..
• SET AOOR
*..
* NEXT LABEL *...
*FOP
*.*.*••** •••••••••-

YfS

i

**

GIVE MESSAGE
Ol46A WRONG
VOLlO

.
•
-

*
*
*•••••••••••••••••*

******

*Fe
E4·

X

X
•••••G1 *••••• _-_.

*

*

•
*
•
F4 LABEL
..-••• _••••••• **.

i

... ...

H2

•••

••

••** ···Jl·····.

**.. •

**...
**••*.****•• *****.•
GIVE MESSAGE

• Ol45A Fit NOT
...
FOUND

J2

*
..

FOUND

..

OVERLAP
ONVTOC

.•.

ABNCHK

*•

*

i

..

*..*

J"5

.*. * •

.* END

OF
IITOC

..

"'. ••

*. *••• .•

YES

...... .

• NO

K4

**•

.*. *.

x

*"'***•
... F5 *
*

*****

x
. ...
••

K,,)

.• Fl *. *.
.* END "'. *.
NO..
LABEL
."'X •••••••• *.
OF CVL
••
*. * . . * .*
*.
.*
*. ... .•YES
*••
* *VI:S
"5EAPCH :X ...........
i(
_x
*****
.FC ..
• Fe ..

NO.*
••• _.

...

: •••••••••••••••••••••••• x: ABNCHK

x

• NO

*"'.*.

•****.**••**.*****•
*****
OCH •
• 01*

*. . '"

*Cl-t ...
... 01*

X

*

*. * . . * .*

i

*****K2*******.**

*

*..

••••• ***••••• ****

.* PDS *. *. NO ***** ...
*.. **. OVERLAPS
.* .... x*... 84 **
VTce.*
**.•..**
****
... YES

•

*

x
.* . *.
*•••• *
HI)
'"
..
*
*. ••
MESSAGE Ot49A *
YES .* NO I:!:ECORD
NO RECORD
*x •••••••• *.
FOUND
••

.'.x *.

• MESSAGE OI3BA

LABEL

***.*H4 ••••

•
.* LABEL *. *.
ABNCHK
.......... .......NO. *..* F4FOUND
.*
*. 'III.
.*.*
*••
*
• YES
i

VTOe

•

*••***.* •• *••"'.* •

x

• 01*

~EAO

POSWPITE

REAO

:t~*:

X

***GS ••••• *••••••

••

•• *G2********.*·*

*...

-•.

• 82·

....
..·

*

*

(4·

Charts

85

$IPLRT5 - Check ~FD Cverlap
Refer to Chart 04.

Chart FC.

-•*

.

*.*.

A3 ..

****

•

x

•••

INVRESPM

*.**.Ait*•••••••• *
.* A3BLANK... *. •• YES
*MSGRTN
CH •
••
It-*-*-.-*-._*_*_.
*. RESPONSE
.......... X.
INVALID
•
*. • • • • .X . RESPONSE MSG •
•
OI39A
•

••••
.Fa •*

... ..

•• .*

• K4*

**.**•• **.*••****
**••
• .x* K2 •
****

• NO

• *

*

·.··*82······.···
*
*
*
i<

•

SET POINTER
TO FIRST
EXTENT

*•*

83

•

*

•

•••••••••••••••••

·•

••••

**** •
•* cz *.
_.x.
*
••
••••

•

x

.*.

•••••••••.•••••••• *.

'.. ..

VALID

t •••

....

'.
x.
***.• •

X

***C3***••*******

it

•

NO..
.....

EXTENTS

NO.. OVERLAP
•• X.......... WITH POS

1* FURTHER *. ••

*.

-..*

x
•.,••••
Gl •
•
••••••
INCREMEN
•• SET

.,

.*
*.

.t:

•. ••
••
.•

.*

·····El········.·•
·•*••••••••••••••••
..••••.-*
POINTER *
*TO NEXT EXTENT.

• YES

.··EZ ••·•••••••••

•••••••••• **** •••
EXP IREO

•.*•••

.•.x *.

• t: GI

.,

NO.. FURTHER ••
• ••••
LABEL
••
•• IN CHAIN ••

*.

x

•••••
_FB .,
• ES*
••
•

-...
*

.t:

YES

••••HI·········.··
•
X

READ

LABEL
*
** ••*
•••••••••••••

.•.it

J1

_x

*.

••

F3 LABEL

• YES

•., Gl •.,
*•••••

it

•*••••
•
82 •
*

••••*•••••••*****•

•••••

*.
.• ••

it
*·***J2**********
*MSGRTN
CH*
*-*-*-*-*-*-*-*-*
* OVERLAP ON *
*UNEXPIRED FI LE •

* **.*.*.*.***•••
•••
**** •
•* K2 *.
*.X •
•**** * .•X
GETRSP
***K2************
READ
*
OPERATOR
*
RESPONSE
*
****************.
it

A3 *
••**.**
•

DOS/VS IPL and Job Contrel

•*

FOUND
..
.*••• '** ••••••••••..

•

F4

x
•·CH
••••...

X•

.-

* In*

*

ABNCHK

•***.* •
••• ** •

it

·**F4***********·
WR ITE

*'"

.*..•

LABEL

****••****

.'.it

.* G4 * ••.
..FORMATTING *. YES
• .MUST BE DONE .* ....
*. *.
.• ••
• NO

•*
*.
. ' LeG DEV •• NO
' . AVAILABLE . . . . . . . . ..
*. * . . t :.*
x
*****
*•.
t:
*CH *
• YES
* 02*

••••

86

,fI

• MESSAGE Ol5lA •

••• *

••

ABNENO

.,.

... -... .. ..
• ....

-

• I NSERT UNIT •
• VOllD INTO
*
• MESSAGE OI37A •

•••

• t:

NO .t:

·•

.•.it

' . NO

*.**

C3 •

••

DATE
EXPIRED

H2

*

SPACE

*. * . . * .*
•. .. .*YES

x

*. -. YES
.* ....
*. _. _. It: .t: .•
it
• NO
•• .***
•
C3 *
•*.***
X
···**G2 *.********
•'
••

•• _.*.
•
Gl * •••

F2
.t:

.•.it

** •••*
*FB

.'

·

.. X. C2 .,

•••**•

' . NO

..

.x *.

*****05.******.**
.*..
*
*. FOUND .* .•.••••. X. NO SPACE *
04

X

READ BACK
•
FIRST LABEL
OF CHAIN
•

*

*

·FB.
•
••E5·
• • •* .
***.
.
PDSWRITE
it
*•• E3**.***.***.*
••• *.***
••*·*·*E4.*
•*
READ
*
UPDATE
LABEL
•
'* POS LABEL •****** ••***.****•••
*********.***.** •

it

FILEOVLP

SEARCH
VTOC FOR
FREE SPACE

*************** ••

.* ......
*.
.•
x
*•• *

• YES

it

.-.x *. *.

03
••
MORE
•• LABEL IN
•• CHAIN

t:

• YES

it
• •• C4*******.****

SEARCH
*

******••••• ******

*...
*••

.t:

••
•

LABEL

i<

CHECKXNT 02 ••• ••

*Fe
*
.. KS*

DELETE

••

• YES

01 ••• _.

*****

• YES

C3 ••

DELETION

.*C2 *. •. ••
NO.' EXTENT

.*.it *.

.*
*. ' . NO •
•• ANSWER
'.
DELETE
........
*. *.
.*
•.• *.•

H4

..

.x

••
.*
•.
.
.*FORMATTING *. YESX
••
WANTED
.*....... .X
*. *
IN DPD .*
.*
••** •
*....
* *NO
•.FO82 ••

it
••••
*
*FD ...
• E3*

* •

•

ENOFORM

•••

Chart FD.

$IPLRT5 - DPD Precessing Formatting

Refer to Chart Oq.

•• ****A4*********
•*
PFOftHAT
*.***,.
.Fe

• ******.*.****** *

.. H4*

*•

•

B2

.*.x *.

*.

FOR~ATTtNG

••

*. *... *' .*

.*

'* •
.* 3330/3333* .. *..o*.o.o.o.o.o
YES
••• .o.o ...... .o.o.
*. '*.
.o'* .*
*...
'
*
• NO

NO

X

*****************
X

***·*02**********
FO*

*PFOfl,MAT

*-*-*-*-*-*-*-*-*
*
•,.
... FDRI"ATTING

•*****************•
X

X
****.C3**********

*..

·
..
..

SET LOWER
AND UPPER
LIMIT

X

•*****C4**********
•*
'* INtT FOR

•..

** THREE
RECORDS ..
PER TRACK
*
•**.***************

.
*
'"

•••• *•••*.* ••••••

·

*****03**********
*PFORMA.T
FD*

•..*-*-*-*-*-*-*-*-*
•,.
FORMATTING

.* .* PARTIAL *. *.

1 NIT FOR
SI X RECORDS
PER TRACK

*

RECORDS

*****************

x
.* . ....

x

*.
NO
.* .*AVAILABLE
LOG DEV .... NO
*. FOR ... ATTING ............
X••
••••••
* .. AT END.*
X
*.
.*
*.
....*
*."" ,*"'*
-"'-YES

**
*
*
•***** ***.*********

'*

..

WR HE

.*"'
• Fe •*
.
* H4 •• X.
E3

.* .*

*.

E4

.' .*.

ENO
OF CYL

*****E5**********
*
UPDATE
***
T~ACKCNT
*..
**
*****************
****

*. *.

*. * . o . * .*

NO
*
........... X*

• * '"YES

... YES

·• oox**

X
*****F 2 **********
..
SET NEW
•
*..
.. EXTENT LIMITS *

*•

FOP. END

•*

.********.*******

X
*****F3**********
*MSGRTN
CH ..
*-*-*-*-*-*-*-*-*
.. IPL COMPLETE '*
..
MSG 01201
*
*
•
.****************

F4

*-*- *- *-*-*-*-*-*
** FORMATTING *•
*
*
*****************

:IPlN03

G3

j.

**

.*.*.

*****f5******.***

**UoDATE CYLINOER*•
.* .* END OF *. *.oo*.o.oo
NO
*.o FORMATTING
...... x*
NUM8ER
*
*.
.*
*RESET TRACKCNT •

**......**

*
*
*****************
****
•.. .ox** 04 *•

.. YES

**.** •

*. * ..

.* SV
'*..* NO
*..*•• WITH
DOC
.......
SUPPORT .*
*. *•. * ..*
*

04

.. **** *

X

:X •••••••••. :
X
*****G2*·*·******
*PFORtoIAT
FO*

.

X
*****C5 ****.*****

.

*

*.*•• *•••• **•••• **•

ENDFORM

.

****
.. 04 '*.x.
•
*
* .x ••• oo •• .o •• oo • .o ........... .o .... .
****
X
·**04************

X

:.....

. *. *.

B4

••

••••••••••••••••••••

•****·(2*********·
•..
...
SET NEW
• eXTeNT LIMITS'
...
FOF START
...
•
•

•••

.o*

,. YES

E2

X

PFORMAT

• *• * PARTIAL *. *.

X

******G4*********
•*
RETURN

•*************** •

YES

X
*****H3**********
RESET
'**
*•
INDICATOR
*
FOR DOC
*
*IPL IN PROCESS *
•
*
*****************

:x ..... .o.o.o.o ...... :
X
*****J3**********
*•
ALLOW
*
*
ATTENTION
*•
* INTERRUPT
*******.*******.**•

X
*****K3**********
**
*•
RESET

..*IPl

IN PROCESS

*.~

*

*
*
***.*.***********

... .o ... X*....

****K4*********
SVC 14
..
EOJ GO TO
JOB CONTROL

***************

..
•

Charts

87

Chart FE.

$IPIR~5 - DPD Prccessing cf
Refer to Chart 04.

O~erands

••··•·.•••
•····AlFORMR

...............

••

• ••• A3.· •••••••
•

•

x

FORHR

• 0.

.. ,.

••
'.

,*

B3

.'.

...

*,

• YES

.. ..

····A.5··•••· ••·

0
•

ZYLR

.. ..
X

ZYLR

*,

B';

••
••

OPERAND ' . YES
ALREADy
••••••
o. HANDLED . '

*. •• ERROR ••

x
•••••
*CH ..

••

••••••••••••••••*

X

UNITR

*. -,

Bl
NO.. OPERAND o.
• •• *.ALREADY FOUND ••
OR
,.

.*

0

UNITR
•• •••••••••••••••
••

*. *.

••

•••

••

CAT
COWlNa

*•••

•• YES
••••••

•• .*

• NO

• NO

• C1.

oo*

,. .,
x

ILLCD

Cl

*.•**.

•*. o.

.... .. ,TVPE=F

,. C3

*. NO
.• .-••••••••••••••••••

*.

x
02 •*. _.
•
*
*. NO
*.•* TYPE N *..*....
*. *.
.*
., .*,.
x
* ••••

*·*·*01*·····*·*·

*
*
..
*•
o
*
* *•••••••••••*
•••••
INDICATE
FORHATT ING
WANTEO

* YES

••
HEX
•• NO •
*. REPRESENT
x.

*.

.*

*.

.•

.* ..

•

IllCD

••
*.•*

..

OPERAND
AVAILABLE

E3

.0.x

••

• • • • • (=., • • • • • • • • •

.
YESX

••••••••••

x

•••••

·CH •

NO

•

C1•

• *

•*

* VOllDR
*•
.*.*****•••*•••

RETURN
•
•• ***•••
**•••*••••

•

0

SAVE OPERND
INDICATE

•

OP.AVAIL.

•
•
•

.._
• •• _•••••• *••••*

X

VOllDR

.•
NO.*
••••••

X
··*··F3.·
•••*•••·*
•

••

G2

.'.

O.

*. ••

.... .-..
OP

EQ

VOLID

••

.-

X

**··G3·*·······

•* RETURN
*•
••.......**•••••*

• YES

.*.x *, .,

..ves.*.*H2 QP
.X....

•,

... ,-..
A>lREADY

,

AVAIL

.,
,•

••

• NO

• NO . '
x ••• ' .

*.

x

•••••
• Cl.
o •
•
lLLCD

,*

J2

.'.x *.

*,

OPERAND ' .
CORRECT
LENGTH .0

.*

*. ••• *... YES

OCH 0

X

•·* ••*K2*···.**···

..*.K3**** •••••

:••••••••••••••••
~~DAlAl~K:
*

*••••••••••••••••

•

TRANSLATE.

BACK TO BCD • •
• CODE INDICATE ' •••••••• X'

88

DOS/VS IPL and Job Contrcl

RETURN

•
•

*

•
•

·.x •••••••••••.

*

•
•

SAVE OPRNO
T NDICATE

** OPe AVAtl •*
*•••••••••••••••••*

ILLCD

•••• F2 •••••-·._

••

X

*. *.

•• ••

•••• FI_.·X ••_••••
*

••

.*

*

CHAN
GT 6

*

*. *•

IlLCD

*.* . . * .*

•••••••••••••••••*

....
OP... NO
EQ
CYLt

••

• YES

•*

.*. ••

x
.*. *.
1}5
.XVES.* .* OPRND * •*.
. ....... *. ALPEADV ••
X
'.
•••••
*•AVAIL
.• •.** . '
·CH •
t C1.
• NO

••

• C1.

·.··*El*·*··.····
*
*
*
**
o
o

*.

x

03

C5

• YES

.. .*. ..
....

·CH •

:x .•.•••.•..•.•...•...•... :
x

INDICATE

.•

• YES

X

..

........

.•
NO.*
••• •••
*.

OPERAND ' . NO •
*,. ' 'UNIT=X'
•••••• X.

o YES

o

x

.*.x o. *.

X

*•

*·*.F5·· •• **.*·

*

Q.ETURN
•
••••••••••
*••••••

Chart FF.

$IPIR~5 - DFD Unit Check and Assign
Refer to Chart 04.

*•••

* At; •,.

•

*

••*.A2······••••*

**

CHECKCU

*•••••••••••**•••

····81·.····***

.*.ic *.

CHECKCU

.***
* 83 *•
* ** ••*

.*

* ERR RETURN
.............**....

*.

....

*. *..*
.*

'RELAT
•

GET PUBS

·...01.........*

•
..
..

DEY.NOT OEF

x
.*. *.
02

..
*.
*.

..

x

:~~*:

x

*. *.
. ...*

.* ••
••

*.*.

03
UPLIM

...... ..

*...
.-

GT

•

•

X

~

~

.

.*.
.*F2 *. *.
..
..
NO.*
IS
*....
.. ERR RETURN
*X •••••••• *.
DEVICE
...............**..
*. VALID .*
•• *. *YES

.. -. ....
X

*

..

*• DEV.DEy.
TYPE
*
DESCRI PTlON*
••••••••
**
•••••••
•
*

.*.x *.

*•.•

NO

X

••••••KZ*****··***
•..
UPDATE

..
..

*

PARAMETER
FOR LOAD
LEVELLER

•

•
**
•****************

.xx •••.••••.•..

•• **•
•.83
*
• *

EXTENTS

TOO SMALL

x

LUB ADDRESS
OF SYSYIS

• 01·

•*•

ABNCHK

•
•

3340 LI KE

G3

•*
*.a**.

•* •••

.*................*

•
.............
.
x.

*

..

..
~

X

**** ••••••*
**····E5
UPDATE
• FAYPTR IN SY •
• INOICATE END ill
• OF JIB CHAIN *
1";:"

....

~

**.....**••* .......

*

.
*.

... Fo;

*.x •

••••*•

ASGENo

CAT
COMND

* .*., NO
.• ••••••

:Fo~F A~~I~A=¥rT.!
****.*••**••***.*•

.*
*..**.

AOoR OF
•
*•
SYSCAT
•
* ****•••••••••*
••••

X

OF UNIT

*•

*•

••*.

*..** •
ON
•••••• X. A5 •
.*
...
*..*
*.**
• NO
• *•• *
· * F5 *
..x*
* •

.....

H5

x
.* . * •

'II.

.. .......
MPS

*

•

*6

NO X

.• .*....

YES

•
COPY lues
•
•
fOR SYSCAT
•
AND SYSVI S
•
*lNTO FG OAR.TIT ..

*

*

•*••**** •••****•• •*

·• x•••••••••••.

x
.*. * •
K3
CASD

*.

*. •• YES
•• .. *.....
.
..
*..
* *NO
CAT

COMNO

.****JS*******•••

•

***••••*••***•••*

•*
*..*
*.

...

••

••

.*. *.

X

••***J3 •• *•• *•• **
SET POINTER
IN lUB
TO
PUB

G5

..

X

••• ****H3******··*·
•
GET REL LUB *

**

.

X

••**.******
*.**.*F5
STORE
* OWNER
BITS
..

it

.... ....

•
•,.

..

•

**.*******•••*••••

ASSGN

*. *. YES
ONE
*. PARTi
11 ON ••••••
*. •.
.*.*

pos

*.*
*CH•••

:x ••.•••.... :
•* •*

*

• YES

•••••HZ.· ••••••••

J2

o

*
**
**••• *.**.*.****•

.**•••• **.*** ••••

**
••• F3*********.
** GET RELATIVE ••

NO

HOLD

•

BUILD FIRST •
JIB FOR 3330( •

x

•* CAT -. *. YES ..
*..* CDMND
••••••••
•• •*

*..

~

x

x

•*. *.

*

MESSAGE 0143A

•

.•....•. ..• x:

*...
G2

••*'

~

:UPL20K

X

*****C5 •• ***•••••

**

*
*

X

••*.***•••••••• *.

*
*

••

• BUI LD SECOND
• JIB FOR. 33301 ..
3340 OR FIRST
'"
FOR 2314

*****E4··***····*

•
LOllM AND
•
*UPL 1M IN OPDTAS.

•

...

NO

X

*
* CHARACTERIST.
BY DEV TYPE *
•••••••••••••••**

.•..FI.........

•*

*
*.••••••••••••••••••••
YES
ABNCHK

***·*E3·**··*····
*
SAVE
•
• REL TRACK OF *

it

LIKE

*. •.. *.*

X
• •• **05 **** ••••••

01·

.DEV.LlMITS.'

o YES

GET DEVICE

..

• NO

·····E2······. •·••*
*

•*

YES

••• •••

*.*•••••

.. *.

NO.. I S UNIT
..X ••••••••
SUPPORTED
ReTURN"

•••••••••••••••

.>.x *.
85
.*
•. *.
.. *
2314

x

..................
OF CHANNEL

*• .*
••

• YES

C3 .'.* •*.
••C4*.*****.***
.*CYLINDER
•***
•
*
•• YES
• MESSAGE 0142A •
*NUMBER GPEATER ............ x*
• ILLEGAL
*'*
*THAN DEVICE.
CYLINDER
.LIMITS.*
*,.**•••••••
NUMBEP'
*. .•
***••• **•
* NO

*
*
•

••

**.••.**

RACK •
S·

.*••• *

YES

ic
*****e2 ••••• •••••

*
*
*

ERR RETURN

.•.x

JIB")
••
AVAILABLE

****.*.***.****

*****83***·*****.
*
CONY T
•
R
*
*• ADOtv
NTO.

*...
*

NO.*

X

LLNOUPDT

82
..
NO.*
CHAN
*X •••••••• *.
SUPPORTEO

..

····A4**··..···.X..........
*
.,.
,.
*
•.
•,.

AS

•••• 0

YES

X

*·.*KS.**· •• ***
*• RETU'RN
*•

* •••••**•••••••••

**.*

****

Charts

89

Chart PG.

$$BCARTR -

3340 Cartridge Reccgniticn Rcutine

•••• AI . . . . . . . . ..

*..

SSBCARTR

_._.

*

..

*••••••••••••••• *
IJBCARTR
R ElOC

•

x
·****81*********.

•..•

RELOCATE
ADCONS

••

..

••

DECIDE

.*.. *. .

•..
*

x

·

NEXT

•.. GeT LUB ..*
•** FOR SVSUSE •**
************* •• **

·

* x.•
••..

._..C2

X

••••• C2*********.

•..
**

POINT TO

••

NEXT PU8
fNTR.Y

'"
•

•• **.*
•
Fl •

·*·**01*******·*·
•
•
GET PUB

STARTADOR
SET FOP

..

PUB SCAN

OEVOPER

84

*. *. EPROR .• .*
*••
*
• NO

'.

X

•*****C4***·*****·•*
•
•

UPDATE
OEV1CE CODE

•
* TN P ue
..
•**.***************

•*

..
....

D3

..

*

x

•**••*•

.x *.

C2 ..

***** *

••••• **•
.. C2 ..

X

····*el········".
*
*
*
..

...

•..

SAVE

PUB
ADDRESS

'"

..

•....*•••• _....... _.•
_

X

X

•*
SVSUSE
*• POINT
LUB TO 3340 •
•
PUB ENTRY
•*••••••***.*****.•*
•

*.

*.. Fl '
••.
X.
***** * x
L ASTPUB
TESTUNIT
.*.X *.
Fl
....
f2
••
III •
•
*
*.
END OF
*. NO
DEVICE
*. NO
*.. *OPERATl
ONAL .* ..•.
*.••*. REACHED
PUBS
.* .* .....
*.
.*
*. * •. * .*
*. *.. *.*
x
x
.. YES
* YES
****
•• ****
•
•• 83 •*
•**82•• •*
•
*

.•.
X

..*.

X

••• **G 1 ••••••••• -

*.***G2 *.***••***

..
..
•

*.

*

*..
..
•*.*.*.************•
RESTORE
SYSLOG AND
SVSUSE lUBS

*•

• •

seT
DEVQPER

x

X

•••• H1********.

•
•

....."'.........•

•

SVC 11 RETURN'
TO S1PlRT4
•

*•

• '"

••

•* *• TO NOP *'" •*'
.*.*.***.***.**.*

•• **.*
•
C3 *
**.*.•

••

X

*****F3***••*****

* GET ADDR *•
..
OF CCB
*
*
•
******.************
•

.***

*• G3 *.
*.X.
***- * X•
•
SENSE
*****G3**·***··_*
*•
**
..* ..*'" SVC 0 .'.." . *.
*•*
***************.*

·

-

•...•.•..•. x:X

.*.

H3
*.
.* tlO *.*. YES
*. COMPLETE
••••••
*. *.
.* .*
• '"

x

*•.
*
• NO

****

*• 84 •
•***. •
lie

x

*.

.**** J3 ** .**.***.
* * WAtT 7 ...
* '"
•• SVC

*.

.... *..
** ..•
*•• **.*.*********

90

DOS/VS IFL and Job Contrcl

.•.x·· ......... .

E4
*.
.* .• TRIED *. *. NO

*****e3******* ••*

*··**EZ******-**·
•* **' FOPCE PGM •••*
•• *- GET
CHECK TO * *'
INTO ••
•*••**.*.*
SV STATE
•••••••*•

•••

*.
*.
* .UNRECOVE~ABLE*..* YES
.•••

.• .*

.*
*. *. YES
*..* SETSWITCH
TO NOP
.* ....
•• *.
.• .*
x
* NO
.***

•***. *

..

.........."'.....-*

..
..

.

X

TSTERR

* *•• ***.****.***.
• '"
**

x

..

'"

*•

.*• •• *•• ****.***.**

X

B~

X
*****83******··*·
** **'" OEVOPER
seT
**
** ** TO BRANCH.*••*'"
.**********.****.
***'"
• C3 *.x.
*.*** •
X
*****C3***··*··**
•* •* PELEASE '*" *
•• SVST EM
• *

•••

.* 823340 *. 1Ic. *. YES
*..'"*. ENTRY
PUB
.*.* .....
*. *•• *.*
* NO

***************.*

•***** •..
•**** •

* 83 •*
******
•

X

TEST

*•..

••••• e 1*********.

*.*.

*.. 82 •*
*_ '" *

3 TIMES

*. *.

.*
*..
*.*
* YES
x
.***
* C2 ..*
..
*.****

••••••

;;
****
*• •
(;3

..

• **** *

Chart GA.

$JOEC~LA - Initializaticn (Part 1 of 2)
Refer to Chart OS.

*•••

•*****
•
A,4 *
•****
•

•• A2 ••
•*••• •

•....AI.·····_·· •
'"

SJOBCTLA
'"
•••*••
***** ••••• •

x

X

*****A2·*.*
••• ·**
.MOVE FICL FROM ...

A4

• PI B TBL FOR ALL*
* PARTITIONS
'"
'" TO LOC. FItLS *
*Kl
*
*

*A5
1.

.* JflB * .
.*ACCOUNTING * .

NO

· .... *. *. tNTEQ
FACE
•*
SUPPOPT .*

2.

*. * .• * . *

•*.***
•
B3 *

·.

*******.******.**

.* . *.

*

x

*****B1*********_
..
INITIAL lIE
*

*'"

BASE

'"

REGlSTERS

'"

.HI
'"
•*******.***.*.***
•

'"

x

*****c 1*.********
*MTNCNT

GU '"

*-*-*-*-*-*-*-*-*
'"
SErlE
•

*

SYSTEM
•*******.*****.***
•'"

X

*·*·*01*··*******RElJBC
ex '"
•• -*-*-*-*-*-*-*-*
RELOCATE JOB
'"

·

_-*._._.**..

*
CONTROL
*•••••

'"

X

*****E 1**********
;:,,; .:

'T~,,~~l;:'

*-*-*-*-*-*-*-*-*
RELOCATE
'"

...

*

EXTERNAL
FUNCTIONS

*'"

*
.****************
X

FICNIC

*****F 1*********.

"'MOVE N leL fROM '"
*p IB TSl FOR ALL'"

•
PARTITIONS
'" TO LOC NIelS
'"
*K 1

'"
'"
'"

.*************.**

·

X

.

*****B2*.********

YES

**

SET
SYSTEM
FICLS

*

...

•*.***************•*

•

X

*****C2**********
•*
SET NUMBER

*•

'" OF PART! 11 ONS •
• INTO NUMPART •

•.****************•
i

*****02
*****.****
* INSERT
PUB- *
OWNER BIT FOR *
*• CURRENT
PART. *

INTO OCMASC
*
•*.***************
•

'"

X
*****E 2**********
~ID~~+I~'i~~~~OR ~
* CURRENT PART .. '"
'"
INTO PIB
'"
*
•
"'****************

N02314
X
*****C3**********
'"
ZEPO
*
** CQMMUNICATION
*
REGION
*
'*
ADDRESSES
*
'"
*A5
*
*****************

X
*****03**********
*LOGCHK
CL*
*-*-*-*-*-*-*-*-*

* SET
SYSlOG
ASSIGNMENT
**
**SWITCHES
*B5*

'" A2 '"

it

*****G2**********
* SET OCMASK *
'"
AND
*

'*

•*
•*
******************
NCMASK

x

*.
..... *. *. PROGRESS
IN
.* .*
YES .. *~

A~JOB

*. * ..* .*
•

NO

CONTROL STATEMENT
READ ROUTINE.
BASRG2-POINTS TO
BEGINN ING ADDRESS

OF OVERLAY AREA

-OVRVCT-. THIS IS
AREA WHERE JOB CONTROL

*INDICATOR OFF*
IN COMREG
*
+56, BIT 4 *

*

***********

Bf!.SRG3-SET TO BASRG2
+4096.
BASRG4-POINTS TO THE
COMMUN ICAT ION REGION.

BASRGO-POINTS TO

~OUTINE

04
*.
.* .*!JDBACCT *. *.

*.

*-*-*-~-*-*-*-*-*

..
'"

INITIATE
DISK

*

*
'"
SUPPORT
*
"':to***************

'CONTROL I +2

TABLE

*

*
*****************

.*.X

•
.ACCTIGN3

CANCELED

*. *.

.*
* •• * .*

NO

.* ....

.. YFS

X
*****E4**********
u;~~~'j~B

;

;

*
NAME TO
*
*
COMPEG
*
**"'*******"'*****"'*•

F4
*.
.*
*.
.*FOREGPOUND *.

*.

"'.

pUNN ING

*. * .. * .* ..*
*

X
*****G3**********
*O$KINT
GF *

*
*

ON.*
*..*

*••
*
• NO

•

X

******H2**********
PUT LUB TABLE *

**
*

DISPLACEMENT
FOR
SVSRES IN

'"

•*****
A4 •
•****
•..

*
'"
*
~RKRG3
'"
*****************

.

.
.* NO
....X

YES

.

X

*****G4**********
*
GET
*
'"
PARTITION
*
p IB
*'"
•
*
*****************

X

******H4**********
RESTOPE
*
*
*
*

JOB NAME
TO <;AVE
AP EA

*
*

'*

*
•
********"'********
•............ x.•x..............................
x
.•
x

~~~BE6~gEO~NO $JDBCTLJ

5.

*.

.*.it

PHASES $JOBCTLD,

4.

x

.*.
*****C5**********
.* (4 IPL ,.,.. *. *. YES
* CLEAP AceT
'"
.*
IN
*
*. SWITCH
.* ......... X** FTELfl
DAPTlTTON
*

X
**F3*******
*SET CANCEL *

*
*

THE A 0:;<; J r;f<4"'FNT
FOR SVSLor; I C;
DETf:qMT NEO A"lD
SW!TCHE<:; TN CO",QEr,
+56 AQE C;ET.

.

.

*****************

.* . *.-f<.-

*A5

x

BASRGl-SET TO THE

JOB CONTROL ORIGIN

-BASVCT-. THIS REG
ALSO USED AS A COMMON
BRANCH REG TO THE

3.

X
**B4*******
*SET BRANCH *
*AT 'ACCTBR1' *
** TO
PPOCESS
*
ACCOUNTING *
***********

:.............. x:

•**** •
•**** •

2.

•'"

DISK
CaNST ANTS
*K3

*
'"
'"
*
*
*********'********

X

*****F2**********
INSERT
*
*
*
REVERSE
*
*'* INTO
OF OCMASK
*
NCMASK *
*
•
*****************

x

'HI
1.

X

SET

E3

NUMBEP

HIr:;HF<:;T CflRE AnDPESS
OF ll)N(~E~T PROBLEM
ppnGQA"1 °HA.<:;f:
-CQ~Q,Er;+40-.

*****B3**********

**
*

P~OBLEM

-CO~Q,fr.+92-

'3.

****

JOBCTl

LENGTH OF

ppnr,Rf\.M LABE L AREA
-Cf']~R.F..r,"'44-.
lAST CHErKPOINT

*****

*GB

X

*

* A 1*
* •

*****J2**********
*CHKA SG
GU *
*-*-*-*-*-*-*-*-*

*

ACC T IGN4

'" IF ASSGNO GET '"
*PUB TABLE ADDR *
'" FOR SYSRES
*

*****************

*~AE

FORMAT

FOR

LOCS NIelS + FICLS

X

****

• BG
• F4
• f3 • f2 • Fl • *
........................................
* B3 ***
NIClS.SS PP.SS PP.SS PP.SS PP.SS PP. *
F ICLS :SS ·PP :S5 ·PP: 55 ·PP: 5S· PP: 55" PP:
****

2314
*K3
MAXIMUM BLOCKS lIE
PER TRACK
7294
CORE IMAGE DJI~:e
RECORDS PER TQACK
15

3330

3340

13030 8368
26

16

WHERESS
SYSTEM CLASS
PP = PROGRAM CLASS

=

BG-ENTRY EVEN If FEWER THAN 5 PARTITIONS

Charts

91

Chart GE.

$JOBC~LA - Initializaticn CFart 2 ef 2)
Refer to Chart as.

• ••• *

.•-

*GA •

*

H4*

X

ACCTlGN4

.-.

. *A1 - • •. ••
NO.. SYSRDR

.....*..

*.

ASS IGNED

*.

.*
*.•*ON

.•

.•

.*

* ..
'* *YES

B1

.•.x

••

*.

SYSIN
*..* YES
OISK OR
....•........... , .
•• DISKETTE ••

*.

* ..• .•
• NO

...x

...YES.- .* Cl IS *. •. _.
X••• -. EOJ POSTED

.*x••

-

.. 1:1

*.

*. * ..•
_ NO.*

.*

••

.-

-.

••

*.

C2

.•.x

o.

EOJ

*.

IN SYSIN

*. *..• .*

*. NO
.-....
.*

x

••**

- YES

*

-• El *'"
-**** *

:X ........................ :
-*.**
*
x
TSTPAUSE •••
*.

01

IS SW-. - •
YES ._ . *
PAUSE
..... • ON-COMREG+56 ••

*.

*..

BIT 5

·• ..•
'*

* .. *

.*

.*

• NO

****

El _.X.

.-.x

..• NOPAUSE
*.*•

El
*.
WAS * •
••LAST INPUT •• NO
•• ON SYSLOG ......
••

*.COMREG+56.*
-.BIT 2 ••

x

* ..•
o YES

**.*.

*GC ..
.. 81·

••

X

CONfROl

•••

F-l
'*..
BATCH *.
._ .* COMMAND

*.

*.

YES

JOBCTl5
..F2" ••••• '* 0
0 '*
RESET

JUST IssueD .* ....•... X. BATCH INIT
*.COMREG+59.*
*
FLAG

*.8IT 7.*

•

.•.••.•.•..•*' x..... *

*.*.* ••••**

'*

..

..

• NO

.

X
**Gl*·****-

JOBCTL4

-

.

ACCTBR1
G2

SET
•
- PAUSE SWITCH •
OFF
..

*.* •••***.*

-

*.•
* *YES

x

X

····*Hl*···**·*··

INITIALIZE
I/O-LOAD
*- FOR
AOOHSS OF
- SYSLOG OFB IN
* REGISTER 1

.*.ic *.

.* JOB *.
..~~*:*A~~v~~m~ 0:0
*. SUPPORTED.*
*.
.*

•_
*

.* H2

.-.

OTHER
*.• _ PARTITIONS

*.

ACTIVE

**H3*******

* TURN
OFF '"
-. NO
•
NO ACTIVE •
._ ........ X. PARTITIONS
•
.'"
* SWITCH
'"

**.** •• *********.

**.. .• '"*
* YES

X
··.··Jl**·****·**
GQ*

*****J2**********
*
INCREMENT
*

*EXCPPG

"'-*-*-*-*-*-*-*-*
DISPLAY MSG *

*
•
'"

HOOA READY
FOR COMM.'

_

........ ** ••••••".*

• AI*

**

-

ACTRSP

X

*

*******************

:x ........................ :
:ACC TCL

ic

•• K2 *"'********
o***CLEAR
TI ME
•

* COUNTERS IN *
.PARTITION TABLE.

-*
*
*****************: .......... X:CONTROL

x

*****

*GC -

'" 81*

-

-*

DOS/VS IPL and Job Contrel

'" ***********'"

•
PARTITION
• COUNT BY 1
-IN COMMON TABLE.

x

•••
**
.GC •

92

ACCTlVl

*. *.

Chart GC.

$JOECTLA - Contrel Statement Read
Refer to Chart 05.
'II • • • •

REFERENCES
TO
GCAI.
GBJ I, GFJ4

•* ••*

••
•

ACTP SP

GVD3,

GWH3

•

REFERENCES
TO
Gce 1:
GSEI, GBK2

GE83, GPF4
GWB2

CQNT6
**.**A4**********

X

.*A 1**** •••

*•• **A2*········ *
•
•

.. seT INPUT ..
.. FROM SYSlOG ..

..

SW ON-COMREG
*&56 ~1T 2 OFF

*•
• _.** ••••••• *

...-

CONTROL

**
• •••• x*

BTLOOP
X
••• *
,*****AII)***.**
** F'NDIN VER8 ***
* COMMAND
•
*
"fABLE
*
*****************

•*
F['1P
**
..
SCAN
******************•

..

•••••••••••••••

INITIAL UE

.... * * .x..
.
* .. .x .................................... X..

.*.*

11=

X

CONTROL 61···..

.*

'II . . .

NO

..

'*

•*

RESET

DEl ETE FLAG
IN JBCSh6

...

'*
••• *****.* ••••••••*

•• ****
D2 •
•
. *.

X

1*****.'* **D
SET FLAGS '*
FOR lIST'*
'* *... LOG
OUTPUT
I~ JBCSw4
*'*
'II • • • • • • • • • •

*****03**********
.* 02 IS *. ••
* SET
POINTER •
CNCL .* CONDITION *. NRDR
•
TO ERROR
**
.... *. *. N~OR
Olt
.* ...••.•. x*
CNCL
••
* MESSAGE
1CIOA
•

...*
*.
THER

•

*

E1

*

, •• ** *
it

•

.'x.

****************.*•

NE I

x
******
*GV
* B3*
*•
•

ic
E2 .' .••

'II ..

.X NO.* .* OERRTN *. *4O
••• 4O *. OR OVREQ. • *
*~ POSTED
....
*4O
•*

•*
'* . *.
. .. *..* MODIFIER
STATEMENT
.*
PFNOING p*
"'. *•. * .*
x
• NO

YES

*~

*••H2** ,*

X

X

*****F 1*********.
**
**
CLEAR
•
BUFFER
**
•,
AREA
*
**************.**

TO
ZERO

·

SROR

.***

•

G3

.'.*. *•

.* 15
... NO •
*..**. STATEMENT
.* .....
BLANK .*
*..
.*
* ••
*
* YES

•

* rEST

FOR EOJ,

*

: E~C!R 5~NmG~ND:

.* •• ***•• ***.*.*.

x
.*. ••
J1

.* .* IS *. * .*
. YES
*. CONDIT ION
....
*EOP OP EOJ.*
*. * •• * .*
it
* NO
*****
*GE *

x

.***
** 02 *•
*.*.* •

*.

IGNORE

*
* STHT-PENDING **
* FLAG
*
*************
..

**83*
•

•

EXIT

*

•

*X. *oo

*

*****
*GW *
* 82*

YES

>

x
.*. *.
E5

*

*

CHKCNL

*

YES

X

•*****FS*·*******·
••
*
SUPP~ESS

**

OUTPUT ON
*
SVSLC;T
*
*.***.*************

: •.••.••••• x:

CONT;***
X
**H2*******

X

ERRR TN

*,..

.
* H2 '*.X.

*.**.H1**********
*PTEST
GO*
*-*-*-*-*-*-*-*-*

I)~

.* VAllI) *4O *. NO
*..**.FOR
FORMAT
.*.....
~TMT .*
*. *•• *.*
x

x

*****G2*****·****
*RltNDT
GM*
*-*-*-*-*-*-*-*-*
** STATEMENT
READ
**
*
•
*****************

.* INPUT *. *. SLOG •
*..**.OR
FPOM SVSLOG .* ..••..
SYSROR.*
*. * •. * .*

.•

* 02·
,

*****************

x

:CONT4

*
..*

NUMBER

:.4O .......... x:
.•.••.••.•. x:

x
.*. * .
G1

TSTTVDE

*****
*GW *

OPERAND

*

:x ........... :

:.............. x:•X NO

~ESET

•

****************.

•

81 *
•

****

*. *. VES.. NO .. *.* 1 S * . *•
•*. *COPPECT
LENGTH
.* .... .... *. *_ OPERAND
.*
ur,c:
.. *
*~
.. *
*. *.. * .*
*. *.• *.*

X

*
..*

X

******04**********
GET SYNTAX
*
BITS FOP.
**
*** SYNTACTICAL
FUQTHEP
*
*
CHECK
•

•
.*
.*
.>

••

.****F3**********

*****F2**********
*REAOQV
GN*
.-*-*- *-*-*-*-*-*
** OVERWRI
READ
*•
TE
,
STATEMENT
*
••• ***It*••*.****.

YES

it

**.*
*• F3 **
***** *

•

CONB

.'.x

. *elippnc.*. *•
NOoo* STMT IN *.
...
*. *. SOITE
OF
.*
CANCEL .*
*. *•• *.*
x
.. YES
****

•* •*.
E4

OERRTN

*••
*
* YES

•**** •

*

*.•
* *YES

it

.*. * •
•*C4BLANK
DID * .
NO.*
*.
..... *. *. STOP
C;CAN
.* .*
*. *.. *.*

X
••••• t 1*****.***.

NO INCL

•'*

.* R"'NDUT*•••
.*FPOM C;YSPOR*. ~o
*.
Aro.Il)
.*... oo
*. *POSTEn
CANCEL • *
...

•• ****84**********
C;CANP 1
GK*
.-.-*-*-*-*-*-*-*
.GET FIPST OPPNn*
COND CODE *
*>POST
FOP STOP Ct-fAR.. *
*****************

•

UNIT
*..* YES
*..*_fOR
eXCEPTION
••••....
**
SYSLST.*
* . .**
'•••••••••••
*
..
_•••••

*

.*.x

X

• •••• 82 ••••••••••
If-.iFORM
...
•
OPERATOR
X. ABOUT UNIT
..
EXCEPTION
..

....

*

•... x******
,
81 *
******

J2
••
*oo
'
DELET
*. YE S
*..'.IN
FLAG SET
JeCSW6.*

.*...•

* NO
x
,.*.*
* F'3 *
***.* *

.

**

* ************

.x' .*.

*. *... *.*

X
**H3*******

• SET JCSWI •
, TO INOICATE *
INPUT FROli4
..
SVSRDR

RESET

x

.*
.*TO

(;5

*. *.

UJG
SUPP
•••••••••••••••••• *.GEO OR LISTED.* ••••
*. 00 Suo*PQ.E'SSEO*

.*

*...
*' *OPT

**"'*

•

•* H5 *.
• •*.X.
UNCLOG
X
T'STL~~** • t
*****H4**********
*LOGOUT
r.J*
.* HS TO *. *.
YES .*BE WQ:JTTGN *.
***-*-*-*-*-*-*-*-*
LOG STATEMENT *x •••••••• *.
ON
.*
ON SYSLOr,
*
*. *
SVSLOG .*
*
•
..*
*****************

*••
*
• NO

·......... ................. oo .x
X40

.*

.*BE

*.

*.

JS

•
H5 *
•.***
•

.*.

*.

*. *. NO X.
*.*....

TO
WRITTEN
ON
$VSLST
•

*.

****

•*

x
.* . *.

<;T~T
BE LOG-

.*
*•.
*' *YES
it

*****KII)
*LT STOUT**********
f;J*
*-*-*-*-*-*-*-*-*
*u ST ST4TEMENT •
* ON SYSLST •
*****************
•
*
EXIT

..X ........... _.
X

*****
*CE *, 8~*
*

*

Charts

93

Chart GD.

$JOBCTLA - ~est ECJ, ECF, CANCEL and SYSRDR Assignment
Refer to Chart as.

.*••

* *
* •
****

.. A3 ..

X

*****A3·****·*···

• ••• AZt ••••••••

•
"'It.

*,.
*
PTEST
..
*••••••••••••••• *

*
•••••••••••••••••

x
83 .'. ...
.*
... *. YES
* PROCEDURE
*..*.
END
.• .* .•...•
*. *•. * .*
* NO

X
,. ,.
,. ,.
**··*82.·
••••••••
POST

,. ..

* ,.

,. .. AtRNAFER)
.. '" AS BRANCH" '"
"',.
ADDRESS
'" '"

******.*.***.*.*.

X

X

*
*····t2*·*····**·
*-*-*-*-*-*-*-*-*

*CHKASG
,.

•• ****
•*··**C3****
••
• •
*

GU

TE ST $VSROR

*

POST
,.,..
• • A(CONT4)
•
,. • AS BRANCH
••
ADORES'; ill

* ***

'"

ASSIGNMENT

*

*•**•••••••******.•

02

..

....

03

*.••

*.

•**04**.*.**•

*.

....

.*

X.

•• .*

•• 04 ••
••••• •
•

****E3 **** *** ••

••

.. ..

* ..

.... AS BRANCH
....
ADDRESS
....

RETURN TO
CALLER

•**••*.******••

*.**** ••********.

3

.
•

•••••••••• -

X

X

.. ..

.

CANCEL •• YES
,.
POST
..
POSTED
.* •••••••• X*CONDITION cnOE •

*

..

POST

AlEXIn

••

.*IS

*•• 04 ***
***.

: .......... Xi

j.

.*.x *. *.

X
...*****E2 ***.**** ••..

••••

•••••••••••••••••

. IS
* SVSPOP *. NO
*.•**. ASSIGNED
.* ••••
.•
*. *•• *.*
x
.. YES
••••

...

ENTRY IN THE.

.. COMMAND TABLE ..

PTEST

,.,.

*

.. SET OFFSET TO ..

*•
•

•

****E4*******_*
PETURN
•

•*

•

TO CAlLEP
**** ••• **.*.* ••

X *•••••
.****F 2 _•••

*
..
**
*
****.*************-

*..

MODIFY CC
* IF READER IS
MFCM/MFCU

.

-

............ ...*

_ SET OFFSET TO •
ENTRY I N THE'
• COMMAND TABLE

*,&

*_

_

HZ

.*.•• *.
• YES

X

*·*·*GZ*.********

*

.*

• ••

G3

*.

•

..G4***.***

*...
•. .•
*

.•••*.*•••••*

.-.x *.

•* SYSROR*. *. YES •
*.. *ONIS DISK
OR ••••••••
*.01 SKETTE .*
*. *••• .*

*

P tt:s rL

J2

NO

:x .....................•.......•..................•• :
.*.x *.

. * POSTED*. *. YES".*.* *
*._.eOJ
*
*.IN THE PUB .* .* .... X*. 04
..
**.••.**
****
• NO

x

•..**.*
A3 •
..
***** *

9q

DOS/VS IPL and Job Contrel

..

.*EOJ POSTED
NO
•
RESET EOJ
•
x*_ •• IN PIB ••• * •••••••• X** ~~~WD~NL~~E ••

Chart GE.

$JOECTLA - Phase Vector Table LookuF
Refer to Chart 06.

TABLE A .OnT PHASE IA I

•••• AIt·········•

••

•••••
.:

:

REFERENCES

".. " ~2Jl' G~~~~

x

EXIT

83

.*.

0,

.. 84 ••••

**···84··········

...

POST EO

*. *.

•

• ••• ** ..X
FETCHPF

.* . *'DELETE' •. *.

*.

FETCHRF

•••••••••••••**••
*••••

.* .*

o

o

YES

x*.
•••
*GC •
* 81·

*•••
o NO

SET PHSNUM
TO P~OPEP
PHASf

..
..

.* ••••

-.

•

0

•
•

•••••••••*•••••••••

·····C3·**.······*

CONTROL

•

**··:RI~~·t~*·*.

.........**.....X..........

.'.x *.

••

IN ROUT
PHASE
._

**.•.•
.*
• NO

.* ...... .

PHAS E-AODR

*..

: STMNT··: pme: RoutiNe: cHARt:
:ACi-iON':·· j". :lctiON·: ·po·:·
: AlLoc····· j •. : ALLoc··:· po·:·
:ALLOCR .: • .o j_.: IltoeR.o: .p~":­

'". '" '".~ '" '"; ry~rljD··· .;.~ ," ...

:ENTPY··:·· j. -: ActioN'" '" :·po·:

:eoj· is": ··G·· :enj'"· '" '".: '"No":
X
····*E4···.···..••. :eop" j;.:" ·G'" '" :PENO· .. • .. : '"Ns":
....
:EXEC···: ··f· ·:mc···· :'n·:
svc

.

...

: :

LOAD

4

RE~~l~~O

••
..

* :exec·PRoc·€:·· :CAl.l· '".: ·lp·:·

::

•••••••••••••••••

: EXTENT·: '". K"": EXTENT··: .gj.:
:HDlD···:· j.': HOLD·····:·PA·:
: iNCLuoe:·· j •• : iNCLUDe· : ·po·:
: JOB····: T· :jiJR····:· NA·:··
X
:LSi.TVp·: .oK··: lOlTYp·:· 01·: ....
*•• **F4·*····***·
.MTNCNT
GU •

NO

*.••
IS
.* F3 IT
NO.*
....

.*
*. *. PHASE
K
••
.*
* •••
• YES

:i.iSTio·:T· :mTio· :'M1":"
.-*-*-.-*-*-*-*-..
•
SEIZE
•
..
1HE
.. :lOG····· '" . j •• :tOG··· '": ·Pt.·:·
•
SYSTEM
•••••••••
*•••••••* :MW·····T·:m·····:·;,.. ·:

: .......... x:

X

··.**G3
.... **.***
• LBLOUTF
QN*

*-*-*-*-.-*-*-*-.
•
put OUT
*
_VARIABLE LENGTH>
LABEL INFO
•
o

....

.*.***.*.**** •••*

..
..
.........
... x."
... X.

i

~~RE6-ro

E TO GET
THE NEXT nf)
SCANR2
EXITS BY BR
G 1I NKRI
WHICH CONTA!
THE
ADORE SS OF C_ TROl (GCBl)

~5~c,j~

.0.x

.

STATEMENT
1 + 2 THE

SYSTEM
•• •••• *.*.**.**
•• *• :ovcDN··: '" '" r=" '": DvcDN'"·: '"MH'".o·

*. *••• .*

.... ....

~~ T;lH5 ,c~~TPOL

EM~~iSl HG
T... e SC4NR2

:HOsi:·:·· D·· :WJsi:·:· js·:·
:iii.Ae······ K·· :OLAB···:· of·'·
.-*-*-.-*-*-.-*-•
•
P ELEASE
•
•
THE
• :om······K··:Ol8l .. ·:·QE···

i
.*.

o

'B5

cp

X
*•••• 04•••
****GU....• :OATe'" '" •• '"'" j'" '" :oATE·· ,".o: '"PH'":
*MTNCNT

.0

E3
••
••
IS
••
REQUIPEO •• YES
PHASE
*. LOADED . '

*..*

GC
GC

*•••••••••••••••••* :HSGN··: ··0· ·:mw·: 'j!' ••
:cANcel -: •• r,". :cANceL -: '"N;:'"· '"
:ciTllR -: •• j" '" :CiTAL. '" .. : • PH" :.

YES •• ··RoJfINe*·••

• PROPER ROUTINE
•
ITABLE Al
0

AODP. OF ROOT

..

.OF Loe CONTROL III

•****••********.*.•
03

x

:··;~~~·e~Gi~···:

o

.MOVE BR. TABLE *
'DISPLACEMENT TO'
• REG -POINT2- •

• • • • COI'fTqOl.o
IGNORE. tr,~OR.f

aVENO • OVENO

JOB CONTROL STATEMENT TABLE

o

X

: STMNT.o:· RouTiNE·:· cHAPT:
: .o~r -: ·~~A~:~~·:·· 2r·.o·

..

84 •

*••••*

X

: MTC " •••••• j. '" : MTC '" .... : .. PE· :.

:NDLDG····· j.' :N5liIG··: ·PK·:·
:oPTi oN·:·· ~".: oPTi oN·: '"NG·:·
:PAU~E· •••• j. '" :PAuse··: ·Pl":·

•••• *.* ••
*• .***G4
EXIT
• :PHASe··:·' j'.: Acfi ON·:· po':'
PEP TABLE
•

F·· :PE SET··: ·MF·:"
.*••••**.*••**.• :REset··:··
:ROO·"""· '". M"·: ROO· .. ,,··: ·RC·:

•

:m,W·:·T·:m,W·:·oo·:·
: SET······· j".: SET··' '": "PG·:'"

: STOp···· .'j'.: STop····: ·014':

:TLBl·"":·· K·· :tlSl. ..... : ·08 '":
: TPlAS··:·· it :i'PlAS·"·: ·0;'·:
:UCS .. ••••• j' ·:ucs····: ·pe·:·
10

: uNs! TCH:·" j: •• : DeTAcH': ·MM·:·

:upsi·· ": .. j. '": uP~i··": ·PK·:·
: VOL······· K'"·: VOL'"···:· 01·:"
: XTENt· .. : "K"·: XTFNT"·:· oir:··
:ZDNE·· .. '.j. ·:iONe·· .. :.p,;.:

Charts

95

Chart GF.

$JOBClLA - CSKINT Sucrcutine
Refer to Chart 06 •

•• **

•* •*
•.* •• •
x
.*.
A2

••

*..-

• >.

*****B
1**********
*
SET PROS
PROG *

**

PIB

.. :+:

*
*•*

flAG TO

AllOW SYSRES
\ojR ITE 110

*
*

x

x

X

DSK INT

.*.

CHKLST
A2
*.
A3
* ..
.* SYSPCH *. *. NO
.* SYSlST *. *. NO
*. ASSIGNED .* ........ X* .*
..
ASSIGNED
••••••
*. *H2.*
X
*.
.*
**.....**
*
...
*
.YES
*VES

•••• A1****.***.

•.. DSK INT
•*
•.*••*.*.**••••• •

82

*. *.

83

.*
*. •• NO ..
*..* SYSlST
A DISK
.* .. X.
*. *.
.* .*
*..
* *YES

*..* NO
*... " ASYSPCH
DISK
......
*. *.
..'"
x
.*

-* ••• _••• *_ •• _•• -

.'. * .

:t . . . *

,.. YES

*C4
1.

x
-*.c
1***********.
READ
SYSTEM

*****e2*********·

*CHKCNT

GJ*

*-*-*-*-*-*-*-*-*
* RECORD COUNT ,..
* ON SYSPCH *
************.****

DIRECTORY

RECORD 4
FROM SYSRES

X

X

.

*

• CHECK AVA I LABLE ........

*

*****************

2.
3.

*****C3**********
*MODIFY WARNING *
* MESSAGE 1C700 •
TO INDICATE •
..
SYSLST

*

•

*

4.

****************.

5.

:x ............................................. .

X

.* I/O *. ,.. .. NO
* *
** .*.
svc 7
*..* COMPLETE
.* ......... X** ** WAIT
FOR * *
*
* *
I/O
* '+
*..*
* *C01-lPLETI ON * *
* ..
*
*****************
* YES
:0<

4"

*

•*****************•

:x ............. :
.......•..... x:
NODSYS
X
*****E3*****"****
.. INITIALIZE
POI NT ERS fOR ..
LU B T ABL E
*
LOOK UP
..
'*
*G5
*****************

X

.****E 1**********
*RESET DISK ADOP*
OF LABEL AREA *
•
WITH VALUE
SYSTEMS OIR •
., COMREG+60,61
•• ***************

*
*

E5

*

**
*

*
*

NO .*
..............•...
*.

*

x

*

*

*

.'x.*.

*

X

.*. *.
J1

*..* NO
................................ .•

*. * •• * .*
* YES
x
****
•* A2 **

..
•• **

*.

*. * •• * .*
> NO

•*.**
•
05 *

•**** •

x

*

*
*

•*****************•

POIND IS LOADED
FROM POINTl AS
PREVIOUS JIB POINTEP.
POINT1 IS INCPEMENTED BY 2 TO POINT
TO THE NEXT LUB.

*G"
pnYNT4

r S ADDRESS OF
FAVP.
WRKRG2 IS
NU"'1Sf:R OF PROGRAMMER
U'JITS FRf)M NICl.
prJ'!NTl rs ADDPESS
MI NUS 2 BYTES f1F THF
1ST PROGRAMMER, LUB.

.*LASTHASPROG*. *.
.... *..**. LUB
BEEN
.*
CHECKED .*
*. *•. * .*
*

YES

'J5

X

~

J3

.*. *..

~..

•
ZERO
ON *. YES
*..*RECORDS
SYSLSr OR ..... u
*. SYSPCH .* NOP

*. *J5 .*
*. oo*
•.BR
NO

**J4*******
~ SET r'AU$[ ~
.. SWITCH OFF *
•••• X* JC$Wl, COMREG *
'" PLUS 56,
*
*
SIT 5
*
***********

x

X

******K3*********
RETURN TO
*
CALL ING
*
SEOUENCE
•
***************

DOS/VS IPL and Job Contrcl

*

.'. *.
H3

*

96

*G4
1.

x

*

CTRlSW

:-*
*
DASD
*.SYSTEM FILES
*.SUPPORTED.*

.*

*.

:*H2
SYS UNITS THAT ARE
..
ASSIGNED TO A DASD DEVICE
AT SYS GEN TIME ARE
UNASSIG~ED DURING IPL.
THEY MUST BE REASSIGNED
USING JOB CONTROL ASSGN
.. NO
STATEMENTS ..

•*****************•
:X •••••••••• :

*.

G3
DOES * •
.* .* CURRENT
YES
*ooJIB POINT TO .* ....
A JIB
.*

.*PROCEDURE*. *. NO
*..* PROCESSING
.* ......
*. *.
.*
.*
* ••
*
• YES

*****Hl**********
*PRC IN IT
GG*
*-*-*-*-*-*-*-*-*
* INITIAL IZE
*
PROCEDURE
*

*
*

J1 BPTP.
•
DCUXTN
X
*****F'5**********
* UNA$STGN THIS
J!B AND PLACE
*1T TN FQE"f llST*
*
*C4
*

•• x .................................................................
x
..
x

.> •

:NXT JIB

X

X

*****F4**********
*UPDATE PREV!OUS*
JIB POINTER, '"
.. POINT3 FROM
CURRENT JIB *
*POINTEP ,POINT2*
*****************

*
*
*

POTNTI BY 2
*G4
..
*****************

•*****************•

PFTIO

I NCREMENT REG

..

.*THIS
om:c; * .
JIB *.
CONTAIN
.*
EXTENTS .*
*. *•. *. *
.. YES

:NXTLUB
*****F3**********
*INITIAlIZE REG
* POINT3 AND ..

*

.*.x *.

*.

........... x:
X
*****F 1**********
SET THE CC
*
., OF WRITE ANO *
.,
SEEK/SEARCH *
.OISK ADDR ESSES

G1

.

·

*****03**********
*CHKCNT
GJ*
*-*-*-*-*-*-*-*-*
*CHECK AVAIlABlE*
* RECORD COUNT ..
ON SYSLST
..
*****************

•

•* **'**
•
0'5 ..
•****
•

CHKJI8
X
*****05 **********
*COMPUTE ADDRESS*
"OF NEXT JIB IN *
* PFG, POI NT2 *

X

*****02*********.

01-*°..

PREVIOUS CHAIN FLAG
HAS BEEN SAVED AT
CHKJ lB.
ZERO THf 1ST :3 AYTES.
MOVE CHA IN FlAG,
4T~ BYTE, FPOM
CURPENT JIB TO
PREVIOU~ JIB.
MOVE NEXT AVAllABLE
JIB POINTEP HOM FAVP
TO CURPENT JIB.
UPDo\TE FAVP \HTH
CHA IN FLAG FoOt-l
SAVE APEA.

..•

*****
*GC *
'" A1*
ACTR$P

THI S SW1 TtH HAS BEEN SET
TO A NOP BY THE CHKCNT
SUBPOUTINE IF THE RECORD
COUNT WARNI NG MESSAGE

1C700 H/.S ~~EN "';SU[n •
-NO. OF AVAILABLE PECORD

FOP.. THI S FILE 1'S LESS
THAN OR E I')UAl Tn THE RC
VALUE OF THE 01 B.-

Chart GG.

$JOECTLA - Initializaticn of Procedure Processing
Refer to Chart 05.

....'".
****

*•

X
**.**83**** •••• *_

****82.· •• •••••

•* PF!CINtT •*
•••*••••*•••• *•••

'"

'"
'"

'"

LUB ADDRESS

'"

X

***C3************
READ
HEADER. OF

PROCEDUR E
lIBRARY

'"

ANO SA VE IT'"

_.*•..••

.*.x

X

*. *. NO
.* ....... ..

*. *... '" .*
'" YES

it

~",,,,.,,,,,:~,,,"!<,,,,,,,,,,*,,",

•*'"

GET ADDRESS
OF THt S

JIB ENTRY

x

F2

. '"
•• JIB

. *. *.

*****03**********
** ** WAIT
* *
'" *
FOR tlO * *
** ** COMPLETE
'" *
*
* *
******************

X

...... ,,,,

**",**~::I".*"

*

'"
**

~¥~~~~~~f

:

'"

F3

USED BY"'. NO ..

*. *. PROCEDURE
THE
.* .. x.
••
*. *•• *. '"
x
* YES
******
*GH
* C3*

•••

SYSERJ<

*****G2**********
PROCESSl NG

.* . '"

.*.x *.

..

CVER*..*YES
*. *PROCESSI
~RITE
.•..
NG .. '"
*. It • • *.*
x
'" • NO
•****
•
*
B3 *
•'" J2 *.
"'.X.
*
*
****
* * •

...

•"''''*

X

x
.*.
"'.

X

***G3************
READ SAVED
OVERWRITE
ST AT EMENf

'"

*******************

H2

•

:

• * .*OVERWRITE* .*. YES
*..
.* ....
*. PEOUEST
POST EO
.*
*. *. e* .*
x
* NO
•*****
•
* J2 *•
*"'**

'" SAVE STANDARD *
'"
•*LUB
FOR FU~THER*
'"

*'"

*****************

..

it

•• ***"

tOMPUT E
'" OISK ADDRESS
'"
OF SAVED

·••*"'''''''.'''••''''''''''''''''''..
*

*

.****************

02
••
.*IS JIB
ENTRY
CHAINED TO
*.THIS LUB

*..*

•
..

*

• •• **.** ••••••••
***

2**********
•'"*****c
•*
GE T SY$RDR

**•••••• _••

*

GET

PROCEDURE
HEADER FROM

". SYS.RECQRO 4

it

PRCINlT

*

83 '"

*

*****************

X

*****H3**********
'" * WAIT
'" ,.
,. '"

*,.

* '"

* * COMPLETE * *
**************"'***
*
'" *

'" '"

FOR 110

x

.****J3**********
**
MOVE
*'"
•
*X •••••••• *
STATEMENT
*
'"
TO CALLER
*
* INTO BUFFER *
*****.*********
•
•
***********.**.**

* ****J2*********
RETURN
*

Charts

97

Chart GH.

$JOBCTLA - Error Routine for Handling Lcst JIEs
Refer to Chart 05.

•****B3*********•
•*************** •
..

SYSERR

..

•***'" *
* C4 '"
***** *

****
*GG '"
* F2 *.. x.•

•**** •

SVSERR
'"

..
**C3*******

'"

POST
RETURN

CNCLMD
'"

*ADDRESS CNClMD

'"

*'" TOPROCESSOR
PROC. END '"
*

*

'"

TO MFSSAGE

...
•

X

PHASE

NAME OF

PROC ..

END

PROCESS OR

X
*****E3**********
'"
* GET ENTRY

**

*

POINT TO
RPDC.ENO

•
'"

'"

PROCESSOR

'"

•

*****************
X

**F3*******

'* •SET

**

•

$YSLOG

..

*..

•*'

I~~U~~s~IAG *..

***********

X
**G3*******
SET
FLAG IN
JBCSW6

$YSERROR

..

•

'"

..

..

..

• *********** *

X

***H3************
FETCHRF
GE

..

*-*-*-*-*-*-*-*-*
FETCH
$JOBCTLG

*****************
X

*****J3**********
*PEND

NS*

-*
**-*-*-*-*-*-*-*
PROCESS END *
OF PROCEDURE
..

*

•
*
*****************

x

•*****
•
C4 *
• **** *

98

DOS/VS IPL and Job Centrcl

*

'"

X
**D4*******
RESET
...

.
...

'"

*'"
•*****************•*
*'"'"

**

***"'."'***********

*****03**********
GET

'"

IMIOA
*C5

•

***********

'"

*C 5
JOB CONTqOl FAILURE

X
*****C4**********
'"
SET POYNTER *

X

...

*

SYSEPP
FLAG IN
JBCSW6

***********

x
***"'*

...

*GW *
'" F4'"

CNCLMDDI

*...

.
...

Chart GJ.

$JOBCTLA - Nessage sutrcutines
Refer to Chart 05.

****A2**·*··***
MSGOUT
...
•...
*
••****** •••• ***

·
·

.

****

... B2

.

•...

****B 1********.
LOGOUT

...

SYSLOG

...

.****** •• *•• ** •••
... *.* ....

* C2

(2

X

*.

;;:

...

*'"

X
**OZ*******
* SET CHAIN *
* BIT IN CCW *
'"
If TIME
..
* LeGGING
'"

**01*******
SUPRE:SS
...
SV$LOG
OUTPUT-SET

BIT 2

'"

IN

J8CSW4

***********

...

...

*

• *.***.***** *

X

*****E2**********
• MOVE MESSAGE
...
*0
* TO PRINTOUT *
AREA
*
*

*-*-*-*-*-*-*-*-*
CHECK SV SLOG
...
:(0

ASS IGNMENT

...

o

...

*,--:-::,;',

0

***·*84***·****+*

*. * . YES
.* • *SYSLST
OUTPUT
... SUPPRESS ED .* .......
*. *.
.* .*
* ••
o *
NO

*
*
**'
**
*
*Bt;
*
*****************

*COMPUTE NUMBER
OF RECORDS
* AVAILABLE FOR
THIS 'fILE

**t3*******

x

X

.. 93

•

.***

*****F 2 **********

*

MODIfY SYSLOG *
.. CCW BYTE (NT '"

*TO Dt SPLAY ONLY*
.. SIGNIFICANT *
*CHARACTERS *H4 ...
*****************

X

ZRMVlP

********.********

•******************

.

*

.

E3

x
.*. * .

*. *. NO ..
.* .. X.
*.ASS IGNEO .. *

• * .. * IS
*.o
SVSlST

...*

*.....

.*X.

ZRMVON

E4
*.
.*NUMBER
.* PECORDS
AVAILABLE
GT

*. *.

**E5 *******
*. *a NO
*SET SWITCH *
* CTRL$W TO ..
.* ......... X*NOP IN CALLING *
*
<;EQ.
*
*. RCOIBOF .* .*
*
*G4
*

'*

v

s~g~E

*.

*. * •• * .*
* NO

*****G2**********
*E XC.PRG
GQ*
*-*-*-*-*-*-*-*-*
OUTPUT
*
*'" STATEMENT
*

*:.

.*

*

ON SY$LOG

X

********** ..

,:to

YES

***** 0

x
.* .*.
F3

.* CURR ENT *. * .. NO
*... * LINE
COUNT .. * ....
*. *.EQ
MINUS 1 .*
0 .*
* ••
* *
YES

X
******FS**********
MOVE Er:tPOR
*
.. ME SCiAGE fOR *
* 1C700
TO
*
*
BUfFER
*
*
*HIS
..

X

*.. ****F4*********
RETURN TO
*
CALL ING
..
..

seQ..

..

***************

'* ****H2******-'**
RETURN TO
*
.. CALLING SEQ *
****************•

*

SYSTEM

*****************

X

******G3**********
RESET LINE
*
* COUNT VALUE *
* TO VALUE FROM *
* COMREG+78
*
*
•

*****************

*****H3**********
SET SKIP TO 1
*FLAG IN BYTE 0
OF PRINT LINE
* -BUFFER
LESS *

**'
*

*

'*

*

1 BYTE-

*

*****************

: x. ................ :

X:x

*. *.

.* J 1
.* PREVIOUS

*~

YES

*. *.COMPlETE
110
.. * ..... ~
**... ..o** .*
o NO

*****J2**********
*MTNCNT
GW *
*-*-*-*-*-*-*-*-*
...... X*
SEIZE
*
THE
*

*
******************
SYSTEM
*

x

X

*****K 1**********
SVr. 1
WAIT

**
*,.
.. *

* *
**
**
*****************

**

*G4

THIS SWITCH, IN THE OSKINT
SUBROUTINE FORCES THE

62

**

***** 0

PAUSE SWITCH TO BE SET
OfF ANa A CONTROL

STATEMENT

TO

BE

READ ..

*****************

X

X

*****Hl*·********
GU •
#-*-.-*-*-*-.-*-*
1i'
RELEASE
*
...
THE
•

.0.

*

x:

: ........ a ••••

*MTNCNT

** **
*,.
* *

*

*****************

*

. . . . ., e • • • • • •

r

x

X

*

..

mm/~mN~~~N PLUS

mkt ~n/;N~~~CK§:

****

.* .••
Gl

... SYSl5T

..

PEMAINYW; TRACKS,
T!MP; RECORD/TRACK,

0

*****04**********HIGH *
•* REPLACE
ORDER ZEROS ""
* wITH BLANKS *

X

x

:~~*:*

4.

*****************

*****03**********
*CHKASG
GU *
*-*-*-*-*-*-*-*-*
* CHECK SYSlST *
*
* ASS I GNMENT

l~_;:'::_~:""::;:~~:;--c':·~

• 0.

x
****

3•

PRESENT TRACK, 1$
PEMAINtNG- RECORDS.

*
*
o

***********

0

~ ~

UN'T.

IS R.EMAINING CC.
REMAININr" CC, TIMES

*****C4**********
o
•
'" CONI/EFt T TO
*
BCD ANO
*
UNPACK
*

* SUPPRESS *
*SYSLST OUTPUT*
* 5 ET BIT 1 ON *
*• IN JBCSW4 0 *

*.**
0
* K4 *

.•

$YS

~~~p~~~R~65p~§~ f~~S

X

•

Fl
*.
.* SVSLOG *. *. NO ..
*..* ASS
fGNEO
.* .. X.....
*. *.
.* .*
"' ...
... *
YES

POINTl IS OIB
ADDRESS FOR DESIRED

2•

PLUS r:tECORDS ON

X

CHA t N

*****El*
••••*.***
*CHKASG
GU ...

X

CHKCNT

X

.*SYSLOG *.
.* ONLY"'.
*.
OUTPUT
*........
YES
YES.*
*.•*SUPPRESSED
x...... WAIT SWITCH .*
*. *.
.*
*.
ON
e*
**.....'"* .*
"' ... *
'" NO
... NO

...

'65
1.

x

.* .• .o
83

* ....

. . *.*.'" X
. *.

.*..x *.
C1

LSTOUT

O.

*.x.
•

B3

****

... ON SYSlST AND ...

: x ................... :
lOGOUT

.
X

A4* ••••****
•**••• tHKCNT
•*
•***************•

••

•

***************
****

*···*B2**·******·

* *************** *

LSTDUT

*o

o.

... seT BITS QFF
...
..
IN J8CSW4
...
.. .. .. .. .. .. *TO AL lOW OUl PUT.

*...

****A3*********

o

*

' .x.
*.

•••*
MSGOUT
•

*•

••
*

****
C2

****

**
•

oH4
REVERSE SCAN THE

BUFFER AREA UNTIL

THE FIR ST NONBLANK
CHARACTER 1 S SCANNED.
IN CASE OF OVERWRITE
STATEMENTS, THE NAME
FIELD I COL. 73-791

*H5
WAPNI NG MESSAGE
1C70D 00000
REe O~OS REMAt Nt NG
ON SYSPCI-l/SVSlST.

THE ACTION CODE (COLe eO)
ARE ALSO LOGGED •

X

******J3**********
STORE NEW
*

*****J4**********
*EXC?RG
GO*
*-*-*-*-*-*-*-*-*
IN
* ............ x*
OUTPUT
*
*
RlNCNT
*
STATEMENT
*
* ON SYSL ST *
*
*****************
*****************
****
o
*.
"" K4 *.x ..

*

*

lINE COUNT"

*

*

*

****

*

X

****K4*********

*
*

RETURN TO
CAllING SFQ

**

**************** •

Charts

99

Chart GK.

$JOBCTLA - Operand Scan Subroutines
Refer to Chart 05 •

••••Al . . . . . . . ..

..*
*
SCANR2
*
.. •••••••••••• *** *

····.2····..···

* SCANRl
....
- •••••••••••••••*

*

···*A3·········

* SCANR)
-*
*•••••••••••** ••*

*

*B4

X

X

INITIAL IZe.

·····83·······**·

••••••••*** ••••••

******.*••*****.*

.***.81·········.

SCANR2

.*B~

*
REG ISTERS
.. POINTl AND
•
POINT2 FOR
.. CURRENT SCAN

SCANR3

**B4 INITIALIZE.
*
REGISTERS
•
*
POINTl AND
•
•
•
POI NT2 FOR
• CURRENT SCAN •

*
..
•
*

:........................ x:
X

X

·····C2*······.*·

SCANRI

• •• ··C3 ••••••••••

* INIT PARAM
•
-LENGTH TO ZERO.
* AND STOP CHAR *
.. TO A BLANK
..
..
*<:4
..

..

ZERO PARAM

..

t~EB~0~m~E60 A~~EN~~m ~~L
COL REMAINING APE

~TOPED

IN POINH

AND 2 RESPECTIVELY FRO,", SAVE

AREA TMPAPI.

*C4
PARAM LENGTH IS MAINTAINFO IN
H8~smRP~~N~~!NTAINED IN
CORE LOCATION SCNSTP.

.LENGTH COUNTER •
..
-POINT3..

*•

•••••••••••••••••

••

•••••••••••••••••

........... x:X

•
.SCNRll

02

.. "

.*.

IS

••

*.
.* .*

.

.:CHA~U~RmNK .:.~~ . . . . . . . . . . . . . . x:

*. *.

*•.•
• YES

****
*.
E3 *.x.
• **** * X..
SCNRL2
*****E3**********
* STORE CURRENT •

•*'

·····E2······.···
*
X

*

INCR POI NT!

.
•

•
•
..•••••••••••••••••

•
CHAR. IN
**
•
SCNSTP
*•*****************••

.'.x -.
F2

x
.'.
F)
*.

FOR THE NEXT

..

CHAR

• NO..
......

•*

..

*•' .
..* .*

END
OF CARD

*. *.

· ..
·
••**

..

.. THI
* SCHAR
IS
* •*.
A COMMA
.*
*. *.
.*
.*
*..
• *
NO

YES .*
.......
*.

*•••
• YES

.

.. G2 •• X.

•

......
NDSCAN
X

X

..

.. .x •••••••••••

••• *.G2 •••

*-

..

..

**••***
*
..

INITIALIZE
FOR NEXT
SCAN
*G4

..

.*
*. *.

*****H2**********

*

*
'SET I NFORMA TI ON.
FOR CALLI NG •
•
• SEQUENCE *H4 •

•*****************•

*.
.• .*
*. * •. * .*
* NO
IS

x
.*.
H3 *.
•* IS *.
• YES.* THIS CHAR *.
•••• oo. *. AN EQUA.L
.*
*. *. SIGN oo* .*..
*
* NO

* POINT3,
•
•
BY 1
•
*
*
****************.

K3

..• *.

x

•• *.**
G2 *•
***** *

.0.x * •

.* END *. *. NO
Of CARD
.* ....
*. *.
..*
x
* •.•
*
**••E3*'* ••
*•••• •

YES.*

DOS/VS IPl and Job Control

*H4
1. THE LENGTH OF THE PARA~ETER
MINUS I BYTE IS IN PFGISTER
POIN13 •
2.UPDATE THE OPERAND NUMBER
IN OPNUMH •
). TES T THE SCAN STOP CHARAC TER
AND SET THE CONDITION CODE •

*****J3.**.*.****
•
INCR PARAM
*
*LENGTH
COUNTER,.

****J2*********

RETURN TO
*
CALLING SEQ *
•.** •• ***********

100

*G4
I.COMPUTE POINTER TO NEXT CHAP.
2.COMPUTE NUMBER OF COLUMN~
LEFT TO BE SCANNED •
3 '~~nR INp[e~E 4 A~~~~Emmy~ND

X

X

•

.•.x
G3 *.

•
YES.* THIS CHAR -.
.X ••••
A BLANK

**.*** ••••*.*****..
X

/

~: [8~~L! S

2, HIGH,

'1

GL~~~MA

IS AN EQUAlS SIC,N

Chart GL.

$~OBCTLA - ~iscellanecus sutrcutines
Refer to Chart 05.

•••••
••••• •

•,. ****
A5 **

o

.. A3 ..

o•• ·*A1 ••

*

X

INC1l5

**·····*•

•**** •

*··A3*···***•0

• SET INSERT

0

........-..•
....

,. REQUeST FLAG

INCLUDE

•••••*••••••••••

• IN P-SWITCH •

..

•
••••
•
o

X
*****A5 *****.*•••

GU *
*-*-*-*-*-*-*-*-*
*- CHECK SV$l$T
•
ASSIGNMENT
*'*

*.**A4·*·**··** *
>

*CI1KI\')G

*

•*** •••***********•

..

LOGCHK

••**.**********

*
*

.. 83 •• X.•

o

X

INCLUDE

RESET INSERT-

*

o~~m~~~QBm:* 0

INITIATE
• EXECUTION OF
..
OVERWRITE

AND ERROR *
FLAGS
..

..

••••

....

•..
*

x
.*. ••
C1

01

x
.*.
....

..

E1

x
•••

X

•••• D3 ••••••

..

lNCl05

....

EQUAL

E2

*'

*

*H5

•

.'.x *4

*.
1S
* .. NO
*. *.4SSIGNED
SVSl "T
.* .. *......

*. *~

*•• **.********.**

*

.. *

..*

YES

** •

..

*

x

X

*****C4***·******

*

• RESET SVSU1G
*BITS IN COMREG

*

**

•
+56, BITS 6
*AND 7 SET TO 0

C5

*.

*
•
•••••*.*.*•• *••• *

X
*****04**********
*CHKASG
GU *
.-*-*-*-*-*-*-*-*
* CHECK SVSlOG *
'** ASSGINMENT •'*
***************ott*

.* . *.

*. *. NO X.
••••••
.*
*. *... *.*

.*SV$LOG
.. *AND SVSLS T

*.

En SAME

DEVICE

,. YES

X

*******

..

**D5 $VSLOG ..
*SET

**

*

En SVSlST
BfTON-

COt·mEG +
'56 BIT 1

***********

'*

*
,.

*'
a ...... :

.*. ••

. • *·6vcbtk.E~·*. YES

YES

I.. AI"lt:.::. .......... " ........
..

-""\'I"o}l:/..'
AFTER)

*.

NO

.*
...*
*•.•
•

x

.. '." .... .

x

•..****
C3 •
..
•.*** •

NO

x

.*. *.

F2

.* /+ *. *. YES
STATEMENT
.* ....
*.. *.
.*
x
*•• * .*

*.. *

PIB TABLE

AJ:i

:X . ., ........

*.***

*
.....
••• *

Fl

RETURN
TO

CALLER
•••••••
_•••••• *..

•*••••
83 •
..

,AND be~~wRjje.
•

..

·
•
..

*

PARTITION IN

.* .. *

*

*:;".AI':ru:rtJ

*.

SAVE AREA

•••••••*•••••••••••
•••••• X•
.. 03 '
.
••••••
INCL30

*. *. OVEPWR
ITE
.* .•..
*. END .• .*
x
*.••
• NO

X

'SAVE OVERWRITE'
o
ST ATEMENT
•
..
INTO

YES

•

*

* .
* .

···_·e')··········*

•.. 03 ••
*••••*

•. * ..

..

it
•••·.*.***
****.*B4
LOG tD OF *
* SET CURPENT
*

LOGCHI<

C3 •• x.

INCL25

.•
*. ' . YES
*.. ' CANCEL
POSTEO
.. *....
*. *.
.*
* ..• .•
*,.it••

•• . *

STATEMENT

•
•

*

•••••••••••••••••

•••••••••••

• NO

.

X

****.83*·********
-SAVE PROC STHT •

·*Sl •••••••

*..

•

INCL20

....

> NQ

•* B3 •*

.*. ••

•*OVCODE
[S
*.
**.* *
EQ *. yes *
*.• * '8'
(INSERt .* .... X. A3 •
*. BEFORE) .*
..
*
**.•..**
****
• NO

*•••*'•

.*.x *.
G2
•
*
IS
*. ' .
. ' OVCODE

..

NO
•• 'O"OELETION) ..... .".

*.

it
•• ••••
•
03 •

....*
*...

•***.*

LOGPRT

***************

X

*****H4**********

*'"

•*

CLEAR LOG 10
:$
IN PIB TABLE
...
*H5

'"
...

•*****************•

X

INeL10

.*..........

:(I

*H5

GET PR!1PEP

PIB 8V .11.1)01 NG
P'!K-P~OGQ:AM

INTERRUPT "EVTO PIS TA8LE
ADD!).

: X.............. :

• A3 ..

...***•• *••*. •

X

• NO

.$

it

X
G4"·-*.

rs
*..
. * ..* SYSlOG
*. YES
'* ****G5*********
~tTU~N -;0
* .. CONSOLE PRTR "'* ............. x* CALLING SEQ *
*. KEYBD .*
'*
'"

**"
••.**

i<

**J 1*.*****
*.. SET ERROR •*
*. ~k~~w~N

• NO

: .......... X:

**H2*.*****•
*.
*• SEt
DELET •
.. :*.
~YC9~~S~~T·:. !~~ .
FLAG 11\1
.•
J8CSW6
•
•• AFTER) .*
*
*. * •• * .*
it
•••••• *** •••
• NO
•••** •

.* HI IS

.*.x *.

.* ts * •*.YES
*.. * SYSLOG
.* ...... .,.,~" ....... ., ... ~X.•
*. CRT .*
*.. * •• * -*

*

• YES

*
•
****

.>.x *.

F4

**.J2****.** *
SET OV-REQUEST*

X*.

IN

~:~21TCH

•••••*•••*** *'

.*

X
**J 4*******

*SET SYSlOG ..

*
'$

...

...

EO PR INTER

BIT ON
COMREG+56
BIT 6

***********

*

,.

*

'"

x

•*.**.
•
83 •
• *
****

X

•*****K4**********
•*'
'"
SAVE SVSlOG
,.. PUB POINTER *
* TN REGISTER *
•
•
*****************

x

•• ****
*
Ai) ..
*
•
****

Charts

101

Chart GM.

$JOECTLA - Read Centrol Statement
Refer to Chart OS.

fro~

SYSLCG or SYSRDR

•.***•

•• A3 ••
****
X

RORIN
•••• A1 ••••• ****
* RDSTMT
••
..
•••••••*••••** •• •

··**A2·**••••••

""
"

RLINDT

• ••• t ••••••••••

.*••*A3"•••**••*

····*81·*·****·*·

SYSRDR.OFB
ADDRESS

B3

.'.x *.

.* INSERT *. ' . PINS
••.. *..* REO
FOR
.* •••.••••••••••••••
*. *.. PROC. •• .*
*••
*
* PRC

NEITHER

*

CLEAR
BUFfER
AREA

*
..
..

.** ...••*******.*."
..

"*
**
* *••***.*******
••••

"*
"

GET

X

• DSTMT

•..*

**
**

~X •••••••••••••••••••••••• :
RUNDT

.*.

LOGIN

...
..**.C2.** •• *••••
*.
....
POST
....
•*
* *
*. *. SVSRDR .* .* ........ X•..* •..*AIN IIGNORE)
POINT]- * ..
PR
*..*
.... E)(tT 0 .... ....
Cl

INPUT
• "FROM SYSlOC*. SLOG
OR

... .. ...SRDR

x
••••

"

.***••••••*******

: P~g5R Ef~B :
* ••• *.*.*******
.*.*

:....•.••.. x:

*

····.02.·········
X

.. A3 ..

.*.* *

*

X

******C3**********
••
*
GET

....

POST

* *..
BRt ..

* AI RDSTMTl I N*
.. "POI NT2 -

EXIT
....
..•**. ••••••••••
.. ...
** ••

....

X

.. ..
. ..
··_·*E2··"·.····.

.".tEI··•••• "·.

.... .._._............. ...
...

LOGINl
•*
•••••••••••••••••
•

POST

....

.. A(BUFFER} IN . . .
.... POINT 3
....

•

X
*****03*****·****
oEXCPRG
GO'
*-*-*-.-* -* ---*-*

RORIN3
*

ISSUE

*

10
•..
•***-*******-*-***

.x •••••••••••

.t
E3 *.

.PROCEDURE.

.*COVERwR1TE *.

YES

*****E4*.*.*.****
**-*-*-*-*-*-*-*-*
INCLUDE
GL*

*. *.PROCESSING .* .* •••••••• X*•
*..*
*. .*

*

NO

X

RDR IN5

INCLUDE

:•••••••••••••••••••••••• X:x
LOGINl

F2

***.

.*.

*. *.

...
*.
*. *.. .. .*
*••
.. *
YES

•••• F 1** •••
IS
RETURN VIA"
NO .* SYSLOG A
REG POINT!
"X •••••••• *CONSOLE DEVICE."

•
•

*•••****••••****..

***.************.

.*
*. *.

X

...

*
**.****.***.*

1*****.**.
* ****J
RETURN Y ! A "
REG PO INT2

***************

X
***··H4**********

••
*

•

•

*>

•• **•••••••••***.

.*.x

.****
**GW02**

STATEMENT
SVSlOG

FRO~

J2

0
*

x

*•
*

o.

• • UN{T *. *.
*. o. EXCEPTION .0 .*

ERRRTN

YES.:!"

*X ••••••••
0

seT PO INTEP
TO ERROR MSG

tM20D
•
******•• ******.***>

o
o

*o

**·G4*******
•*
RESET

.. OPRND NUMBER •
TO ZEPO
•

*•

X
*****H2******·***
0EXPRG
GOo
*-*-*-*-*-*-*... *-*
READ

*.
.*

* •.
* -YES

*.********.****.*

•

.*.x * •*.

*...

x

X

JBCSW4

•

F4
*.**F3******·*·
_
RETURN TO.
NO.*
ERROR
*X ..........
FLAG SET
CAllER
*
IN JBCSW6.'

****·G2
*********.•
* SUPPRESS
:
ou~;a~O~IA :

*o

*

SUBROUTINE

..
•
.****************

* . .*

*•.
* *NO
x

*****K2********.*

.*.

NO

*****K4**********
.*K3 IS •• *.
* EXCHANGE
I NPUT FROM
**
.>ERROR FLAG *. YES
** •
*" LOWER
CA.se
.......... x*.
seT IN
.* .......... X** SUFFER
AND
•••••
* ALPHA TO *
*. JBCSWb .*
* OVBUFFER
*
•
UPPER
*
**.. ..**
*
*
.*******.********
*****.***********
•

TRANSLAte

*

102

DOS/VS IPt and Job Control

(
\,

\

Chart GN.

$JOBCTLA - Subreutines fer Catalcged Prccedure Overwrite Handling
(Part 1 of 2)
Refer to Chart 05.
1*.*****.*
•.. *•• *AREAOOV
•..

*

*****.*.***** ••

•*****A4*********
•*
POOVEP

*
o

*-•••

* **********.**** *

•

.. B3 ..

*

X

R EADOV

STATEMENT

*****.*.
GP*
*-*-*-*-*-*-*-*-*
..
TEST ov-snn
..

*****63 ••
.lESTQV

..

.. FROM OV8UFFER ..

..

INTO BUFfER

*

X

ROQV08

*·.**81·*********
HOVE OV..
..

..

..

.*.* *
*'

..

*-POST CONDIT ION
"'FOR BlANKyaVEND.

*

*.*****.******.*.

.****************

x

x

X

RDOVER

******84**********
~(lVE STMT
*'
* FROM BUFFEP *
*

TO
*
'* OVBUFFEP
*
•******************
*C5

******* *

1
.. **c
seT
OV.REQUEST FLAG ..

YES.*

. ...................................................... *.

*-FOR SUPERV1SOR ..
... IN P-SWITCH ,..

*****.****** *

*****01**********

**

CLEAR

..

OV8UFFER

*.

C3

.' .....

WAS
BLANK
POST ED

*. * .. *
•

X

ROOV02

.*

*..
..

*
*
•****************.*

*. *.
.*
.*
.*

NO

X
*****(4**********
*'*
FETCH
''**
MESSAGE
..

*

! NVA LI 0 CON<>OlE
I1EVTCE

*
*

INOQI
*c 5

•
*
*****************

X
**03*******
* RES Ef OV- *'
*REOUEST FLAGS*
* FOR JOB CTL *
'* *SUPERV
AND
'*
IS OR *
***********

X
*****D4*********·
*MSGOUT
GJ*
*-,*-*-*-*-*-*-*-*

X

* **** E4**********
*LSTOUT
GJ*
*-*- *-*- *- *-*- *- *
* PRINT MESSAGE *

'*

•

LOG MESSAGE

*

•

*****************
•
*

:x .............. :

.*.X

ROOV04

ROOVIO

El
*..
IS
*. *.
.* .*PROCEDUPE

..******E2**********
.POST RETURN . . .
*ADORESS FOR* *
* .. CALLED BY .* .......... x* * EXITO IN * *
* .. OPERATOR .. *
'" *LOGINI SUB *- *
*..*
* * (RDOVER) * *
YES

*.. .*

*****************

"~

X
.****Fl**********

ROOV06

GET
**
OR IGINAL
*•
* SVSRDR LUB TO *
* READ nV-STMT *
•
1ST BYTE
*
*****************

X

X

*****F2 **********
** *POST
RETURN* *
*ADDRESS FOR* *
*EXITl IN LOGINl*
* *SUBROUTINE * *
* * fRDOVQ2J * *
*****************

X

*****G1**********
GET ADDRESS **
** OV-ROR-DFB
OF
*
*
•******************

*****G2**********
* *POST AODR. * *
* * OF OVER- * *
* *
\IIIRI TE
**
* * BUFFER IN * *
******************
* POI NT3 * *

X

X

**

****E3*********
RETURN
'*'*
*
TO
*
CALLER
*
*********'******

*

x

*

*

•******************

X

'******F4**********
* MOVE
CONTENTS *
OF OVBUFFER '*
* JNTO BUFFER *
.CLEAR OVBUFFEP *

*******************

X

*****G4**********
MOVE
**
..
OVEND
*
COMMAND
*
** OVBUFFER
INTO
**
*****************

*

x

****

*****H 1**********
*EXPRG
GQ*
*-*-*-*-*-*-*-*-.
*READ OVERWRITE.

·
*

STATEMENT

.
*'

*****************

X

1**********
*******J
ALTER
*
SV$RDR LUB
*

* FOR PROCEDURE *

*
*

PROCESSING

*
•

*****************

*****H2**·*******
* POST ADDRESS* *

* OF QV-LOG-DFB *
* *
IN
• *
* * WRKR.G3 '" *
* *
******************
*

** B3 **

*

****

•

X

*****J2**********
*LOGINl
GM*
*-*-*-*-*-*-*-*-*
*REAO OVERWRI TE *
** FRO'"
STATEMENT
*
SYSLOG *
*****************

x

•

****

*

B3 *
•*****
•

X
**K2 *******
* SET FLAG *
*SYSLOG OUTPUT*
*
IN
*
* JBCSW4
*
***,.*******

•

•

x

****
*
B3 •
*****•

•*

Charts

103

Chart GP.

$JOBCTLA - Subreutines fer Cataleged Prccedure Overwrite Handlir.g
(Part 2 of 2)
Refer to Chart os •

·*.*44*********

**• ***A2***··****
•'"
lESTOV

,•'"

*•• ******* •••••• *
X

TE STOV

• '.

. '"
YES.*

62

*.

IS

.
*'"

aVEND

***************

.*..X

OVEND

OVDERR

.* 64 1o.. *.
..* PROCEDURE *.

"'. *.

....... *. *. OVBUFFER
.*
BLANt( .*
*. *... ".."

yes

"'.AND OVERWRJTE.* . . . . . . . .
.PROCESSING .. '"

, NO

'"

X

*GW '"
'" 02*

'"

*

·

'"

RESET
'"
DV-FlAG
IN P-SW!l'CH '"

.

*

*

REtURN
TO CALLER

*05
IM3NO VALID ONLY

**.*"''''****'''****

DUP.JNG PtlOCESSTNG

X

,'"
'"

*****04**********
* SAVED
PROVIDE
*
*
AND
*
* UN INTERPRETED ct

*

*STMT IN BUFFER

•
*
***********.*****

·
·

X
*****E4**********
*
CLEAR
*,
•

.

OVBUFFER

*

'"

*

****************.

X

**F4·******
'"
•

•

·

*

SET FLAG
$TMT

PENDING

x

.****

*GC *
* B 1*

*•
*

CONTROL

DOS/VS IPL and Job Control

*•

.

***********

104

Ef!RRTN

***********

: x ............................................... :

X

..•

*****

•**C4*******•

*"'*"'*"''''*''''''.

:...•.•.... x:

..

'"

x

*. • . NO
'"

.

'"

*05

'"
'"
*****************

• NO

. *. *.
e2
"''-C3*******
• *OV-STM
IS
*. *. YES
.*
** SET aVEND *..
*.
aVEND
................. x '"
FLAG
'"
*. * . . * .*
'" '"
'" '"

****02*****"'***

IM~ND

**.••.**

x

TESTENO

**********'"
..*****81:i
POINT TO
'"
MESSAGF
,.

x*

**

Chart GQ.

$JOBCTLA - EXCP Subrcutines (Part 1 cf
Refer to Chart 05 •

·•

.

••• *A! •••••••••

•

EXCPRG

q)

·•.._.••••-•

•

••••*.*••••••• *•

*•••
** 84 ••

•• ••*•

• 83 •

-62
1. REGISTERS WRKRG3
AND WRKRG4 ARE
SAVED IN 10RGSA.
2. THE LINK REGlSTER,
L1NKRl, I S SAVED
IN lINKSA.

X

eXCPRG

B1*•• ***.* ••
•*****
•*
•
SAVE

·

*

REGISTE~S

•

OUDFB

.•
••

• •

*

•••••••••••••••••-

•

*82

·.**.
*-*-*-*-*-*-*-*-*

'C2
IF THE FLAG BYTE,

• PROG AND SET •
*SYS MASK XtFF' •

HAS ALREADV
BEEN I NIT !All ZED

••••••••••••*••••

X

.-.

* F3·*

*GR

••*

·

*.

*

-

••• *******•••*•••
X

•
•

COMPUTE LUB
POINTER IN

•
-

•

*G2

*

·

WRKRG3

-

*' 8,
•••••

X

X

•

•••
•··05*···
*•
TURN ON

• ACCEPT OATACK _
... OF8 + 2.,
...
•
X '08'
...

** ••••••**.

x

*

•

.
•• *.

x
••••

*

~t.

.***
•*
·GP
• 82·

.

X

··E4*···.*·

*'.••••••
YES
.*

X

•

.

·····04**······**
•
DISK LIOCS
•
* CODE IN DTFPH *
•
.H2
••••••••••••••*•••••
.SET APPL ICABlE •

-MVDU
*

.p ESET OPEN ...
• SW ITCHES IN •
OTFPH
...

•

TABLE

*••••*•••••••

•

••••

*
*

..~~~

•

···.·F4··········
*
X

•
•

•

8A*
••••••••

FETCH
OPEN IJ SYSLN
SSBOPEN

-SYSLNK-

-

... F5 •

e

MOVE THE DISK • 110
CHAIN.
•
ADO
TO.
• CCB.
PLUS'

*

,x

TAPINT

*

•• ••

•

••

•

F5

.*. *.
IS
AS..

•• _. NO
._ •• oo.

SUPPORTeD

*oo ON THI S ••
·DEVlCE._

...

••••*••••***••*****

x
•••••
• GR •
•••

*•.
*
... YES

•

-G2
1.

X

.CHKASG

..

WHEN DOUBLED,

..

ASS IGNMENT
• FOR THIS FlLE •

.-.x

*.
-:.~~
.*
.*

•:'*. xmGm E ..
IS

*. *•.•

X

·**··G5·*****··.·
• MOVE T
A *

·.***G4···.**·.**
•
INIT DFI
•
TABLE FROM
•
THE DTFPH.,
...
•
lJSYSLN
•• •••••••••••
*K5 *••• •*

*

*

x
...**

• YES

·····Jl·.·.•·····

~~~8 ~:8::

*OGTE3**
••
* EXPEXT

X

RESTORE DFB
ADDRESS IN
WRKRG3 FROM
IORGSA

.H2
1I0CS CODE
2311 X'OO'
2314 X'Ol'
3330 X'O""
3340 X'08'

• tew
•

*

SYSRES*

it

04 •
•• ••••
•

•

•

**

*

CH~IN

81T OFF IN

ASA CCW

*
*

•

*

***.**••••• ** •••••

.

.

••••••••••••••••••••••••• X.

x

.*.**•
*r,R

• 82*

... H2·

"VOU

DSKIND

*•*

•

•
..

•

..***H'5 ••••••••• _

• SET THE

.SYSLNK

x
*••••
·GR *

•

••••••••••••••••••

.* •*.

•. . *. SVSRDR
.* •.•.
*. *.
.*
.*
x
x
•••
*
*••••
'OTHER
·GR *'
••••••
* H2·

•*
* NO
DSKt

s.

TO TH

... -OFB PLUS
•
OFBCBA-

.. ..
H3

1(2 •

F1NOPN

X

X

·*··*G3·••******.
* SET CHAIN •*
ON IN
•
** BIT
CCw
*
• 5TH
••••••
*..........•
x

HI·.

.*

UNIT

THl S VALUE I S THE LUB
POI NTER FOR THE
SYMBOLIC UNl T.

GU.

CHECK

mAnuM's~mr~t
ADDRESS.

·**·*Gl··········
*-*-*-*-*-*-*-*-*
••*.**.*•••••*.*.

*

LINK INT

*•

*
·····F3··
••·.·***

••** •••••*.*****.

•
•

*•.•
* NO

•
•

AOOR. I N .

04 ••••

FINOPN

:;:

-F2
1.
2.

•.••.Fl········**

3540

....

•••••

.. ..
.. ..
DEVTYPE

.*••

CCW ••••••••• X.

*GR •
• K2·

x

.*. *.
E3

*.••

•
DEVICE TYPE •
• AND FLAG BYTE •
*F2

•

.PCH OR L ST

*•
*

• DASD

- •••• *

••••
*El**··.**···
• IN IT !AlIZ E DFB -

X

•
tN WRKRG2.
DFB
••••••••••••••••••
• ••• ••••••••••••••••
••

•* F5 •-

EXCECP

STDUC~N

* OFBCBA••••••••
*••*••••••

.-..

.....

•
•

•

••••••••••• *•••••

X

.* .*.
03
•* CHECK *.' . U{R..
TAP E.*
... *. DEVICE
*. TYPE .* •••• X.
*. •• •* .*
x
x

01
-.
•* .*THE ISFILE•. *..* YES
••
.•..
*. OPEN .*
*.
.*
x

*'•

LOAD INPUT
tr. W AODR
IN WRKRG2

*••C4••****••*.
C5.******•••
•••
•
••• ••••STORE
••
• LOAD AOOR OF
•
CCW

x

x

X

• •••*85 ••••••••••

*. *. YES
•
•
........ oo •• x*
••
.*
*
*...
•

• MOVE THE CCW

··*··C3·*···***··•
•
ADDRESS TO
-DFB
***
*- CCB.
PLUS 8'1'

y~BAP~U~HPlc~lT 1,

*

* .•
• NO

••

IS
IT
INPUT

• NO

X

ENABLE MULTI-

.*.X

•. .*

*••••C1*.* •• GU •
*MTNCNT

*

84

***

*•••••••••••••***.*

*.*
••K1**X••••***._ SET DEVICE

*

•
TYPE AND
•
CHANNEL AND •
• UN IT INTO DFB •

.K2
1.

•••••*.*****.**.*

2•

•

FROM PUB *K2

..

*K5
SET
SET
SET
SET
SET

CURR ADDR
WR SRCH AODR
UpPER LI MIT
LOWER HEAD 1I MIT
UPPER ~EAD II MIT

x*
•••
*• 83 ••
•**.* •
Charts

105

Chart GR.

$JOECTLA - EXCP Subroutines {Part 2 of 4}
Refer to Chart 05.
FORMAT OF DIBS AND POINTERS ARE
DIBS

l UBPTR

ND SVSFf L

SYSFIl

-SVSLNK •

• SYSLNK.

•* *.
.,.

GODS,

GSG3

• SVSIN •

• IPT ..

••••• REFERENCES
il!I: TO
GRel:

GQH3

*

.peri .. -

-

... SYSPCH.

.LST. -

-

SVSLST.

LE"NGTH -

9

BYTES

.PROC •
LENGTH OF EN'TRY -

24

BYTES

X

.* . ,. ..
*.
83
.* TEST *. *. SROR
.* REoueST * •,. .. NO
.
*
.*
.... *. *. LOGICAL
.* ........ X*.FQR
PROCEDURE . . . . . . . . . . . . . . . . . . . . .
UN] T
.. "
*.ST ATEMENT ••
*oo.*
*oo ,..*SIPT
* ••
*
,. YES
,",YOU

62

...

*..

OTHER

*...

x

C2

.

.*. *.

.* PROC. *. *oo
.*
*. DATA .*
*. *oo .* .*

X NO.*

•••••• WITH SYSIPT
,. YES

C3

.'.x *.

.*
'*. *.
YR$ .* SY5F Il
......
*. *.AVAILABlE.*
SUPPORT
.*
*..
.*
* ...
*
* NO

: x•••••••••• :

x

:PRCDIB

X

*****02*.********,.

,. GET OFFSET
,. OF PROCEDURE
,.

Drs ENTRY

,.

*A4

·

•*****04**********
* GET OFFSET •*

·

* OF PROt.
*
* DIB ENTRY
*
*****************

*
*

*•***.*************

:•••..•...• x:

X

INOI B

•*****03**********
* GET AOOR •*

,.

.

**'

.

SYSIN
**
ENTRY
*****************
OF

OIB

:x ........................ :
x

·.
****

DOFF SET

X

*

·****E2**********
* COMPUTE 01 B •
'"

ENTRY ADOR.

,. USI NG POSTED

*

*
OFFSET
*
•******************

• •
•

****
* F2 *.x.

' .X

CURR AoOR

KEV AND OATA LNG.
END ADDR.
UPPER LIM IT
lOWFRlJMTT

EXCECP

*****F 2** ••••• *.*

*

'*

'*

! NIT DF!

~

TABLE FROM
01 B

'"
'"

*

*****
* ••
• *

··"'.**' .

HI

f2

• **** *

,.

F3

.*.x *. *.

*Fl
*'" •• **.*•••
*•• **.**

X

QUOFT

.* IS
* .. NO
*..**. TYPE
DEVICE
.* .....
DISK.*
*. *•• * .*
x
* YES
*****
*GT *

*-lST 20 BYTES- '"

• **** *
* F4 *
***** •

REFERENCES
TO
GRF3:
GOol, GSBl

..

*'*****F4**********
* POINT TO
*
#;

**

•*
•******************
DFB

* 01*
*

X

X

*****G2**********
•'* INIT SEARCH *'"
* ADDRESS AND * ••••

'*
*** ••••••*•••••*••* x
** ••
******
•
F4 *
*'" H2 ** •••
'" CURR ADDRESS

REFERENCES
TO
GRH2:
GQH3,

."'.*.

GQH5

..

NOTDISK

G4

*****G3**********
..
SET WRKAG4
*
•* TO
POINT TO *
* OFl TABLE *
•
*
*****************

*. *. NO
.* .* IS
IT
.*....
*. 3540 .*
*. * •• * .*
x
.. YES
•*****
*
H2 *

*'.

****
'* ****.
'*
x
HEADNO
X
.* .*.
H3
*****H2
***********
'
"
RESTORE
.*
UPPER. *. *. YES
•
'"
WRKRG3
'"
•••••• • X.
FROM
'"
*.• **. EXCEEDED
EXTENT
.* .* .....
'"
IORGSA
*
*. *•• * .*
* *•••••••• "' •••"'.*
••
x
* NO
*****

'** ***
'" '* '*

.*.x *.

DSKIND

*

****

•

X
*****H4**********
•* GET AOOR ..•
..

OF OF!

••

*
**

*****************

*GT ..
**02*
•

X

X
*****J3**********

UPDHDN

**J2*******
*SE T SWI TCH ...

.ON TO INDICA-*
*TE NON UN! T RE-*
.CORD DEVICE- *

OFBflG 8IT2-*

*Kl
BIT a IF ON
INDI CATES THE FILE
IS OPEN.

~~tdA~~SO~HE

FILE IS
NOT UNIT RECORD.

:*...>. .

*****K2**********

'*
'"

FLIP-FLOP

'*
'"

'"

*Kl

'"

BI TS 0 AND 2
'" IN THE oEBFlG '"

*
*
*****************
x
*••••
*GS *
'* 81*

106

DOS/VS IPL and Jot Control

S EARtH ADDR
AND CURR

ADOR

-CCHHR-

**
*
*

x
.* •

*

*****J5**********
.* J4 Hi *. *. *. YES
** ADJUST CYL
••
* .*
.LIMIT RECORD ........... X* AND PECOR.D
*
*. *..oo*
NO
1
.*
* TO ACTUAL
*
*
EOO
*
<:

*oo • .*NO

*****************

x

X

••
•

*

UPDATE DISK

*****'************

***********
REfERENCES ****
~803. G~m
* x:
FINOPN

*
*
*..

•

EOFPRC

*****
*GT ..
** 01*
•
*
NOTOSK

X
*****K4**********
*'* RECORD
SUBTRACi
*
NO BY *
**ONE FOREODACTUAL ..*
*****************

NaTO 1

•

•

:)( ....... oo .......................... :
x
****
*
* HZ **
***** *

Chart GS.

$JOBCTLA - EXCP Sllbrclltines (Part 3 cf 4)
Refer to Chart 05.

.'.i

••••*
81 ..
•••• •

**
*

****

•*****B2*****··***
•
*

*. *. NO
TVPE
...... ..
3540
.*
*. * •• * .*
x
* YES
•*GR
****..

..
'"

SET REC NUM

•

TO 21
INITIALIZE

'"
..

x
.*. * ..
Cl

.*
•• ees

*.

*.

'"
OlF
'"
•••
******.*.****.

• *
*

•*. *.
C2

•.

CHAN <} .... YES

BIT ON

FOR PWR

.*

.. "

*..

••••••

*.

x

NO

•*

*****

JS
IT
INPUT

-. *.

•

e·

••

.*

*..* .....
YES

••

.. 02·

"

01

EOFPRC
SETOUT

.". "' ..

.* EXTENTS*. *. YES
EXCEEDED
.* .....
*. *.
.*
.*
it
* •• *
* NO
•.***•

*..*

·

•
X

YES.*

..... *..

.*

.*. *.
El
TRACK

eXCEEDED

*. *.

.*

*

REC BY ONE

CURRENT

'"
•

..

1 TO CVL

•..

SET REC NUM
ONE

'"
..

ADD

to
•'"*****************
•

* OFF SWITCH; *
TURN ON
..
* ACCEPT OAT A *
* CHECK
..
***********

x

*

.*

*..*

04

.* .*.

UNIT

*. *.

it

FEED

*

CHANGE CCW

..

RESET CHAI N

..

..

CHECK

05

*. *.

.* .*

.'.x *.

.*
*. *. NO ..
OP
*..* crw
CODE IS
•••• X.
*. X'21 ' .*
*. *•• * .*
x

.* NO
...... ...

* ••
.. *
YES

.. YES

.

*****
*GT *

E4

***.
•• F3 **
***** -

X
·*.F2***•• *******
svc 0
FOR
FEED

•

•••••••••••••••••

*

"

.*
*.
*:* o~~~
*:*~~ ..
*. GOOD .*
*. * •• * ..*

.*
*:*
*.

*..
.. *
YES

*

•

•

TURN OFF

***********

x

• *

*GR *
* 82*

."'-H2 "'- ••• "'-"'-_

*

..

NOTDSK

TURN ON
SCONT SW.

..

.RESTORE CCW

**
TO *

" *

•

**'

MVDU

x..............

X

-*

FETCH

$SBOPEN

..

.*.........•

*
*••••
..

it

..

.. "

..

*

**K2

*******

RESET

*..

SWITCH

..

SCONT

-* •••*"'-••** *

x
•.*..*•*
,. F3

•**** •

..*

. . . . . . . ..

* ..*
•

*

X

•*****G5**********
•
CHANGE ccw
*•
*
•

TO WR,T F RFC
FROM BUFFER

*
*

*********.*********

*•*

ONE FROM
REC NUM

*

"
*
.*.**************

*****J2**********
FOR NEW
VOLUME

u

WRTERR

SUBTRACT

**

•••• *••••••

..

61

****

*****H4**********

.. CHAIN BIT ..

..
..

***** *

**

x

RDERR

_SEEK RESTORE •

,..

!*

: x•••••••••••••••••••••••• :

.****

X

*'

YES

ACCEPT
.. DA.TA CHECKS

*

OP conE TO

:x'02~II~E~I~RE :

** ••• **********.*.•

*:*~~ •••• ..,,, ..

X

..

*

.*

**G4******'.

**G3 *****.*
*• TURN OFF •..
*
*•
•*
********** •

x

*****

*GT
'"
.. Dl.

*.

INPUT

*

YES

OFB FLAG

If

81

**********
*·****E5
RESTORE CCW *

****

*. * •. *.*

X

... G2 I/O *. *.
• NO.*
....
*. COf.'>PLETE
.*
*. *.
.* .*

x
.*. *.
F4

*

10COMPl

X

!*

x
.*. *.
•

.•.••..•..• x:x
.". *.

:X •••••••••• :

F3

.-. *.

.* 0 OR F *. *. YE S
~ECORD
.* .....
*. *.
.*
.*
x
*••
• *
NO
****

*..*

*,..

BIT

"

x

TSTDF

**"

TO FEED

•..

*****Gl.*********

••• X.

• *

IOCOMPl

.*•••••••••••••••

*******************

*

X

**C5*******
TUPN
*

.. E4*

X

UPDATE

..

E4*

: x•••••••••••••••••••••••• :

..

*..
*
* NO

: ERROFF

*GT •

*

".. INO
SE T OUTPUT
IN OTF
**
** TO
SET FILE NAME ..
PCH OR lST *
••• ** •••• ********

*****Fl·*·******·

•

..

·****E2 **********

* .. *.

'"

TO SYStN

..

***. "

.* .*

..
INO IN OfF
...
.. SeT FILE NAME *
..

.' .*.

.* IS * • * •
. NO.*
.. *. *. OeV1CE
.*
3540
.*
*. *.• * .*
it
* YES
*.***

• ****02**·*******

* B2 *

x

•..

.. YES

x

C4

•*.*.

" *

x

SET INPUT

•••

EOFPRC

.• .*•••••"'-•••••••••

x
".. *.**
83 ..

NO

*GT "

NPWR

•..

.

"•

*GT *
* 02*

it
*****C3 *•••••••••

'.
. *85ERf:!OR* . * • *. NO
.*
.. •• X*.
SWI TCH ON .. *.....
*.
*. *•• * .* .*

*****
*GT
• H2**

x
** •••

*•••
., YES

x

EXECP

*. * •• * .*
•

*..

.

MORE
*..* NO
*..* EXTENTS
.•..
*. *.
.* .*

• F3*

DUlO

..

*"
*.*• "
x
•* •
83
*. * •
•*
.. 83

X

GET VOL

Bl
"' ..
IS DEVICE

•*

.*
.. • X*..
*.

··

•.. ••82***-•
••*"'* •

.****
*GR '"
'" K2*
*•*

J3

e

.*.*.

X

.. *
*. *. NO
MORE
*..* EXTENTS
. ' ••••
*. *..
.* .*
* •• *

*

YES

.

it
*****K3****"*****
..

,..

*
*

*

ISSUE MSG
lAB1!
DISKETTE VOL

OPEN FAILURE

..
..
..

**J4*******
...

*•

TURN ON
ERROR

...

SWITCH

* **
*

•***********•
x

-*

"

****
Bl

****

**

*

•

*****************
EOFPRC

:X •••••••••• :

X

.

*****
*GT
* 02.*
"
*

Charts

107

Chart GT.

$JOECTLA - EXCP Subroutines (Part 4 of 4)
Refer to Chart 05.

*.*.
_...

*

•

o

AZ 0_ •••

o ...

x
•••**A2.····
•••••

EXCPGO

CHKOVR

A3

•
SET UNIT
•
o EXCEPTION SW •
.OFF IN DFB FLAG.
-OFBFlG•

*

•*••••••••••••••••*

82

.'.

•• UNIT

••

83

••

*. NO ..
*.••*. EXCEPTION
ON THI S
.......... ..
1/0.*
x
*. *•• *.*
• YES

C2

•

..

TO

GTOI:

RESTORE DF8

EOFPRC

*****02**********
* seT UNIT
*

•*

*eXCEPTION SW ON*
IN DF8 FLAG
-DF8FLG•

**

..... ...........•
'AOOR IN WRKRG3 •
FROM IORGSA

•*

*'

_

X

*

•*** •••• *.*.******•
****

.
•• X'
lie
x

.'. *.o
El

fl

•****•

SETWR T

•*OE'"IS VIR *. *. NO
*.••••AND
IS ASA
.o* •••
SUPPORTED ••
*. * ••• .•
* YES

84

*lie

CCW,

x

*x •••••

.'.x *. *.

X

•

.*. *.

'.

o

*****
•

o

*•••

* Hi **.x ••

*GC

SEIZE
SYSTEM

•

*

X

10COMPL

.'.

E4
* ••.
.* SYSIPT
••
Oil:
SYSROR
.* .*
*. *•• *.*

NO.*
. ...
*.*.

•

OVRLPI

•
*
•••••••••••••••••
•..• .•••.. .x:X

.'.* .
J1
.* I/O *. ' . YES
*.. COMPLETE
.* .....
*. *.
.* .*
•'

*•. *

••*.
i<

o
*
** H3 •*

• NO

****

X

••*_*K 1**********

** **
**

.......... ......

*

*.

**

CALL ING
SEQUENCE

*****.*********

**

•**.**
•
H3 * •••

•.***• x
.*.

.*.

i<

. •••

*****0

*****J2**********

•* **

* • WA I T FOR
•• 'COMPLETION
* [/0
SVC 7

.,*.*
*.,
*> *•

*******.*.**.**••
i<
o**.* 0
*o HZ •*

*.*.

**

•
110
•• .COMPLETION
••

.*.ic ••

.* 81 *. *. NO
*..* BYTES
.*....
*. *.
.* .*
*..
*
., YES

•*****G4**********
* SHIFT BUFFER •*

*'•

TO lOSE

*

ASA CODE
*
•*.****.***.*.*
•••
*

·

.

.x •••••••••••
X

***.
*•o A2 ••*
****

X

*****J3*********.

** SET SKIP TO 1 ••
COMMAND IN
•
•
*' CCW,
DFBCCW *'
********.*.**"'**"'**
X

····*K3 **.* *.** *•
•* MOVE A BLANK •*

* TOBUFFER-I
ASAINO,
*
*
*
*
.**-**.**********
x
****

••*****•*

• Hl

DOS/VS IPL and Job Control

F4

ic

X

*****G3******.**
ReTURN TO
•

HZ
*.
*.
..YES .* .* H3
WAS * .
.* . * I/O *. *..0 YES
SPACE I *.
' . COMPLETE
•••• • ••• '.L1NE COMMAND . '
*.SPECIFIED.*
*. *.
.• .*
*. *J5 .*
x
*••
*•• *.**.
* *NO
• NO
*GS *
***'*
*
C4*
.
'
••. * J2 *

EXECUTE
CARR IAGE
CONTROL

YES

: ...•.•.... x:
*

ISSUE
I/O
COMMAND

REST ORE

•*• REGISTER •0•
**.**.**•••*****.

**.** *.X

.

X

**0

'0* MFERa~m
GSC4, GS05

•**..• .
X

EX PEXT

X

• HZ *.X.

•-*-HI············

108

••
•

ATNCUU

WA IT
FOR
COMPLET ION

+*"".F3+·****·***

*••**.*.*••******
***. •

HI *.X.

_

x

* Sl*

**** •• ***••**-***

•
•

0

.*.*
*GV ••

X
***03***.******.*
•
Cb~~~~D I~20 *

EXCPSVC

X

SET SPACE I •
• LINE COMMAND •
*IN CCW. OFBCCW •

svc 1
WAIT FOR

SEIZE

:X •••••••••• :

x

F2

***G2************

*_ •••• IIe ••••••••••••

•• **
• •

•

•
SYSTEM
*
*.*
••**.***.**.*.*•

•

I SSUIO

.·.·*Gl····*·····•
*_.*'

i<

*****C4**********
*MTNCNT
GU 0
*-*-*-*-*-*-*-*-*

•••••••••••• • X.

**

SPCEXC

*• FOR
POST WAIT
*
DEVICE
•
*o
END
*•
*••••*••••*••** ••

*
•.*-******.********

IN

.o.

*

*****C3·******···
o
•

*

x

*.*.
•• E3 *•
•
**"'* 0

o YES

DF8CCW
*
•*.-*.*.*
••*******•

COMMAND

**

*.
.*
*•
*.
.*
*. *.. * .*

.'
ATTN.
' . NO
' . ROUTINE SW ••••••
ON

* ••
• *
YES

•>MTNCNT
****E3**********
GU •
*-*-*-.-*-.-*-*-*

.,

•• IS
.
.*
*.
IT
*..* ..
YES. YE S . ' OVERLAP ' •
*.•* SYSPCH
••. *. *. REQUESTEO
.'
*K5
••
*. *.
.*
.*
*. *•.• .*
x
*•.
* NO
• NO
o**** •
*o HZ *•
*.*.

·••••••

.. ..

*

o*****E2**********
SET UP WRITE *

.o • •

x

.0 •

84

X

: g~~~: g~~~

:*** *

X GSGI
*·***01 ••• *******

•

•*

• NO

GRF3, GRJ3

*
•*•••
•
84 *
••••*•

•*****

.*.x *. ••

*. NO
*..*••FOR WAIT
OEVICE ••••••
END
.*

:*** * : REFERENCES
* . . *.x. TO GT02:

NOTOSK

•

.*.x *. *.

.* EOF
ALSO
ON
*. YES..
*..* SYSROR
*. S't'SIPT OR • *.* ....
*. *•• *.*

•••••••
•
•*•••REFERENCES

'.

•*' E3 •*'

x

EXCCON

.>.

.* OVERLAP*. ' . NO
... X.. *. REQUESTED
.* .••.
*. *K5 .+ .*
x
* ••
* *YES
.***
.0

*K5
BIT 3 OF THE OFB
m~eo?FBFLG. IS

Chart GU.

$JOBCTLA - Miscellanecus Subroutines
Refer to Chart 05.

•••• A3.· •••••••

•••• Al••••••• ••

•
•
•••••••••••••••••
•

MTNCNT

•*

•

CHKASG
••••*•••••••••••
••

•

*B2

MTNi=I•• Bl.~••••••••
••
*•• INITIAL
IZE
REGISTER
*
..

*82

X·03 1 TO SET SYS MASK TO

ALLOW INTERRUPTS

·····83··········
*
i

CHKASG
..

COMPUTE

..

•
LUB ADDRESS •
* FOR THIS UNIT •
IN WRKRG3
•
..
*84
..

..

*•••••••••••••••••*

~

~

SVC22

• ..

*t2

.... ....

..
..
.... .....
~

....

.. ..

.................

*

CHKASG3

*B4
THE LUB TABLE 01 SPLACEMENT
FOR THE UNIT TO BE CHECKED
IS SUPPLIED IN WRKRr.3. THE
LUB ADDRESS IS OBTAINEO 8Y
ADDING THE LUB T~BlE
ADDRESS TO WRK.G3.

~? T~~ ~T~~y z~~S O~A~~ lEA S ES

THE SYSTEM.
1'0 S'5!l~ S:'f~ !,!:: rn nl~A,.tt:=:
NUL Ti-PROGRAMMI NG.
TO RELEASE SYS I S TO
ENABLE MUL TI-PROGRAMMI NG.

i

•• ••••e3 ........•••
..

SAVE

•

DISPLACEMENT

..

LU8

*C4
IN BYTE 0 OF THE LUB,. X'FE' INDICATES
IfGNOPE' AND X'FF' lNO'C6.TES lUB T<;
UNAS<;IGNEO. IN ETTHFQ CASE THE
CONDITION CODE IS SET TO 1.

..

..

•

•*••••••••••••••••*
*04

i

:

••••01····**·••
Rm~~N~O

:

........i~i•••••••

•

·A5
•
•••••••••••••••

•••••••••••••••••

*e2

i
••••• el ••••••••••

....Alt·········*

••

.A5
LABEL CHKASG~ USED
IN 'JOSCTtO. THE
ENTRY POI NT IN
'JOBCTLA IS CHKA5G+4
(J N THE BPANCH
VECTOR TABLEl.

1.

i

CHKASG3

.*.

03

.* •*

IS

2.

*. ••

THE
•• NO
*.LOGICAL UNIT . . . . . .
*.ASS IGNEO ••
*C4
• YES

*. * •• * .*

8YTE 0 OF THE LU8

CONTAINS THE PUB POINTER.
THE PUB POI NTER
MULTIPLIED BY 8 EOUALS
THE PUB 0 I SP LAC EMENT •
THE PUB TABLE ADORES<
PLUS THE DISPLACEMENT
EQUALS THE PUB ADOPE~S
FOR THI S UNIT.

X

·****E3*·*·······
..

COMPUTE PUB

..

•
ADDRESS FOR
• THIS UNIT IN
..
WRKRG4

•
*
..

..

*04

••••••••••••••***..

:X .......... :
***

••••RETURN
F3.!•••••••
TO
•
CALLING

SE~UENCE

•

••••••••••••••••

Charts

109

Chart GV.

$JOECTLA - Error Subroutines (Part 1 of 2)
Refer to Chart 05.

*
.****
***
X

OERRTN

**** *******
******81
SET UNIT
**'
*•

OERRTN

******.******.*
****
:G53 *• .oX:.
* * .
***.

*GT •
• C4-

ATNCUU

*.*.A3****·***·

*

**
*

*B4

:M ESSAGE·· ·omR jPtiON···················· ••••••
:iCOOA···: ·ATTN: ·CUU········ ••••••••••••••••••••
: iCiOl···: ·PlEAse· miGN· i svsRDR; miPi-; sVSLNK1:
: icaoD···:· END· OF· EXTENT· oN· i SYSRDR; SYS i PT;·····
• SYSPCH, SYSLST,SYSLNKI
; i i 50i··": ·joB· xxxxxxxx· CANCELED ·otJE· TO·········

X

*****63******·**·
'" CLEAR BUFFER
*
-AREA TO BLANKS *
.. x* MOVE DESIRED *
* MESS AGE TO *
'"
BUFFER
*

EXCEPTION
SWITCH OFF
IN OFB FLAG

*'"'"
*
***********•••***
-OFBFLG-

. **************.*.
.***
* **
- .****

•

END OF EXTENSION ON

SYSLNK

'" 83

C1

.*.x * ..

X

*****C3*********_
*MSGOUT
GJ*

.* JOB IN *. *. NO
*...* PROGRESS
..... ..
*.
.*
*. "' •• * .* YES

x

01

•••

*-*-*-*
.....-*-*-* -**
* DISPLAY
'"
MSG ON
*
'"
SYSlOG
*
******••*********

NTINJB

*..

02

•••

X

*•

*. *. NO .X
.* IS TYPE
*. •• YES
.* .* UNIT
IS
t:.
.* ••.•.•.• x*.._OEVICE
DISK!
._ . . . . . ..
*. ')VSL.NK .*
*.0] SKETTE .*
*...*
*...
*
* •• *
*•• *
*' YES
* NO

•*****03**********
*
* CLEAR
outPUT •
*
BUFFER
* •...
**
**
*

X

•• ***El**********
• CL EAR OUTPUT *
•
BUFFER AND
• INITIALIZE
*•
•

MESSAGE

*11501

*
.84*

$I!!$**************
****

*

*GW

X

AND UNIT TO
EBCDIC FOR
PRINTING

*
*
*

•

:NOEERT

•

*
*

•*********.***.***•

******E3**********
INIT tALI ZE
*
*
ERROR
... x*
MESSAGE
***
* FOR SYSRDR

• >to .*

•

*. *.

*
*
**********.******

E4

****
x

AI*

• *

ACTRSP

*****E2**********
*CONVERT CHANNEl*

**
*

****

x

*************>to*** **.>to.
*GC •

E4

•
*
*

.*. *.

IS
UNIT

SYSLST

•.

* •• *
•

.

*• *.YES

.* .*

.* ....

NO

- J4 *.X.

•-*** •

ATNCUUl

"

X

X

_****F 1**********
.HSGOUT
GJ*
*-*-*-*-*-*-*-*-*
•
DISPLAY
*

******F2********·*
MOVE CHANNE l
•
.. AND UNIT TO
*

*****************

**********.******

•
•

MESSAGE
ON SVSLOG

*
*

X

*****Gl**********
*LSTOUT
GJ*
--*-*-*-*-*-*-*-*
•_

DISPLAY
MESSAGE

*

**
*

ON SYSlST
*****************

*
..

*

ATTENTION
MESSAGE

*

*

•

X

*****G2**********

•*
*
..

POINT TO
DESIRED MSG
1COOA

•*
•
..

•
*B4
•
**.**.********>to**

F3

*****Hl*-********

•

*
-

SET

CANCEL

INDICATOR
-COMREG+56,

•

*

*'*
•*

BIT 4*-*.***************

*
*'
*
*
*******************
•

H3

ERROR
MESSAGE
FOR SVSlNK

•

NO

x
.*.
*.

INITIALIZE

*'"

x

X
******G3******>to***
INITIALIZE
*
* MESS
ERROR
*
*
AGE
*
*
* FOR SVS IPT
*******************

•'" ****
•
83 *

•**** •

X

*****F4***·******

.* IS *. * . YES
*. *. SYSROR
UNIT
.* .* •.•.
*. *.. * .*
••

x

X

.*.x *.

G4

.'. *.

IS
*. *. YESX.
.* .* $Y$lNK
UNIT
.* ....
*. *.
.* .*
*••
*
* NO

"'.

X

.* IS *. *. YES..
*.• ** .. SYSIPT
UNIT
.* .. x•••
~*
*. * •. * .*
• NO

WA. TTERR

INITIALIZE

ERROR MESSAGE

*
*'

FOR
**'************.*.**
$YSRES
*'*'

**

* ****************

WAITER?

*****H4**********

••*'

****G5 *********

**

X

*****H5 **********

**

CLEAR
OUTPUT
BUFFER AND

**

seT UP ERROR

*

ME SSAGE

*•

*
*
*

.**************.*

: •••••••••• x:x •••••••••• :
X

•

****J 1*********
RETURN TO
*

CAllING
*•
*• ••••••••
SEQUENC E
* ••****

X

*****J3*"'********

*
*
**'

INITIALIZE
ERROR
MESS AGE

FOR SYSLST

*'*'
*'
•

•
...................
*oic"' •••• "''''.*

x

****

** E4 *•
* •
****

*'*'

X
*****J5**********
*fo1SGOUT
GJ*
*-*-*-*-*-*-*-*-*

•

**

X

*****J4********'**

**
**
*

POINT TO
DES IRED
MESSAGE

-ICBOO*B4

*
*

••••• "' •• *********

*

Dl'SPLAY

ME SSAGE ON
SVSLDG

x

****

*

-*

B1

.

****

*
*

X
****K5*********
SYSTEM 1 NTO.

-PUT

**

A HARD WAIT
STATE

*****"'*********

110

DOS/VS IPL and Job Control

**

*

**************** •

*...

Chart GW.

$JOBCTLA - Error Subroutines (Part 2 cf 2)
Refer to Chart as.

•••••
*Ge •

••••

*• 84 *
•

.. 05.

............. ...

CHKCNL

•••
.*.x *.
132

*

****
x

*. *. YES
*.
.* ••••••
*. *... *.*
x
* NO
*****'"
*GC

•..**··SI·****····
•'"
NVSERR

.. '"

•*

"'

. .... *. *.

REFERENCES

TO

GCE4,
GD 85

GWD2:

GMH4

*'"

P(JINT TO

*

DESHlED
MESSAGE
1 SOOO

...
..

*
""
*

ERRRTN

*.************.

**C4******·
*•RESET AUTO •*

•

**

*•

CANCEL

SWITCH

*

**.****** ••

*'" '" '" *. x... x........................................... •..

ON
SVSLOG

04

.*. * •

E4

.*. *.

x

X

*lSTQUT

..

GJ*

*-*-*-*-*-*-*-*-*
I.IV';
'"

.~. ~._~ ~.

~TMT

*

ON

..

$'VSlST

'"

XYES.*
___

<6 . . . . . . .

*..

..*

LOG

*GH *
•

X

ERRAP

*****G 2 **********

*INSERT OPERAND *
*POS] TI ON NUMBER*

NTO BUFFER

PLUS 3 FROM
OPNUMH *K2

..

*
•

***.*************

x

.

•.. ****
*
B4 *

,

•

04 •• X.

CNCLMOOl

* BUFJ=ER *J2 *
*****************

t

*

•
X
*****F4******** ••
*MSGOUT
GJ*
*-*-*-*-*-*-11&-*-*
'"
OISPLAY
'" MESSAGE ON
*••
* SVSLOG
************ •••• *

X

***********
*AREA TO BLANKS *
* MOVE DESIRED *
* MESSAGE TO
*

**

..

•*****

*****F
2 BUFFER
..
CLEAR

..

*. *.

ON SYSlOG

•• ~Pt:C 1f-H:o ••

*. *.. * .*
* NO
****

***** ••• *********

ERRRTN2

*

.* INPUT * •*.
*. *. SYSRDR
FROM
.*
.. *
*. *. o.* .*
* YES

*****E2**********
..

•

• NO.*
.X ...

..
..

*****************

..

•

x

..
X

****"'02**·*·****• LOGOUT
G J*
*-*-**-*-*-*-*-*
.. lOG STATEMENT '"
*'"

... .*

x

:ERRAPl

****C3*********

• *******.**.**.*.
•**** * .

ERRCNL*
ERRRTN

*. *.

*. *.. * .*

••
•

*****C2*********·
'"
'"
'"

.'. * •

AUTO
CANCEL

* YES

CONT ROL

X

•*

84

.. 81 *

:...................................... x:
til VSERR

.*

NO.*

IS
JOB BEING
"'.CANCELED

****

X

*****G3**********
."'SGOUT
GJ*
*-*-*-*-*-*-*-*-*

DISPLAY
*
*** MESSAGE
ON
*
SYSLOG
*
.***••• *.*••• ***.

X

**.**H3**********
*lSTOUT
GJ*
-*-*-*-*
**~*-*-*-*
LIST MESSAGE
*
...

*

ON
SVSLST

*
*

*****************

X

*****G4**********
GJ*
*-*-*-*-*-*-*-*-*

*l STOUT

*

*

'"

LIST MESSAGE
ON
SYSLST

*

**

*****************

X

*****H4**********

*

**
*
*

Cl EAR BUFFER
AND PUT
JOB NAME
IN CANCEL
MESSAGE

**
•

*****************

x

*J2
REGISTER PDINTl
CONTA I NS ADDRESS
OF DESIRED
MESSAGE.

******
*GC
* A1*
• *

•

ACTRS P

X
******J4******·***
MOVE JOB NAME *
: ~gGMiho~O¥a :
* OUTPUT
*

******************
BUFFER
*

x

*K2

IF NUMBER
EXCEEDS 9
CONVERT TO
HEX CHARACTER.

*****'"
*GV
'" F1*

*•
*

ATNCUUl

Charts

111

$JOECTLA - Relocaticn Suexoutines
Refer to Chart 05 •

Chaxt GX.

*

***************

...

•*.**_A3···._···*
•,.
EXTRlC
•*************** •

1*********
•..• *.*ARElJBC
•,.

•

-:ACI-I ENTRY

CONSI5T'; OF A
PArR DF -<;TyDE ADCONS.

****
** B3 *.
•• x.
RElJBC

***** * .
X

X

EXTRlC

*****83**********
* PUT ADDR ESS *
* OF EXT ERNAl '"
* SYMBOL TO BE *
* RESOLV ED IN *'
""
A REG.
*
***""*************

*****SI*********·

.PICK UP NO. Of ..

,.
..
..

ENTR IES IN
RELOCATION
AOCON TABLE

.. IN A REG -A5

..
..
..

..

*************** ••

x

X
*****C3**********
*EXT RTN
GX *
*-*-*-*-*-*-*-*-*
* RELOCAT E *
**
THE
AOCON
**
*****************

*****c
1**********..
..
PUT TABLE
..

ADDRESS IN
A REG.

..
..

..

POINT3

•

$.

*
*****************

•

·

****84*********

*

EXTPTN

.
'"

• *************** *

EXTR TN

X

*****[4**********

**'
**

·

CLEAP MJD
MOVE ADCON
TO WORK MEA

•*

.
""

*

******""**********

:x ............. .
SElRLD

X

X
*****03**********
*MOVE RELOCATED '"
** BACK
SYMBOL
*'t.
TO ITS

*****01**********
INCREMENT
*
BY 4 TO
*

,.

..
..
,.

NFxT TBl
ENTRY

..
..

*

•._.*....*••••• *•••

PTR
AOR

SECOND AOCON

..

*****************

E3

.' ."'.

:/**:~1~~~*;;****
YES .. *.* ALL *-*.
CALLING SEQ *X ......... *.
SYMBOLS
.*
**""****.******......
*
*.RESOLVED .*
*..*

x

.*.

Fl
*. ....
.*.* OF
END
-.NO.
....
.* .....
*. TABLE .*
*. * •• * .*
..

*

·
'"

TO ADCON

.
""

****"'*"'*."'**"'***'"

x

•

X

1**********
******E
PUT THE VALUE *
.. OF THE FIRST *
INTO
*
** AOCON
ADDR OF THE
..
*

YES

X

********* ..

1
,. *.**G
RETURN
TO
•
CAll JNG SEQ

•*.*.*.*********••

112

ORIGINAL

:****:2£;~~~****:

X

*****04**********
ADO
'"
** PElOCATlON
*
*
FACTOP
'"

DOS/VS IPl and Jot Control

* ...
* *NO

X
*****F3 *******.**
•'"
*
GET NEXT
*
SyMBOL
*
*
*
*******************

x
•*****
*
83 ""
•**.*
•

X
RETURN TO
*
*****E4*********
* CALL !NG SEQ *
***************

•

•

Chart HA.

$JOECTLB - Cisk Restart preFaraticn (Part 1 cf 3)
Refer to Chart 01.

.. ** ••..
:

•

....

.

A3 : •••

••••••A3·····..••••

.RST0080

..

..
..•••*** ••***••••..
•••• Al •••••• •••
..
SJOBCTLB
..

.."'

..

•

X

SAVE

•••••C2 ••••••••••
.,• RELOCATE CCB .,•

DASD
•••••
RESTART
•••••••••• x.
•• DEVICE ••
•

.

•••••
•
A3 .,

. ••••
•

•
..

X

.•

x

.$$BRMSGZ CANCEL.

••••••••••••••••

*****
USER•••• *
•
LIED

..

..

.,
TO ..

••••••••*••••••**

··..

X

..
..
*.........*••••••
••• **EZ •• •• ••••••

.
~

-'-

.. OPEN THE FI LE ..

••••*BS······**··

ic

.-*-.-*-.-.-.-.-$

.

REWIND TAPE

C3

o
•o

..

ic

·····FZ*·········
*-*-*-*-*-*-*-*-*

•
..

READ FIRST
RECORD

.

HG.
•
•

..
•••••••••••••••
**

.•.x

ic

TO READ•
.STANoARD LABEL, •
*TPANSlATOR ON, •
•
EVEN PARTTY •
oP~EPARE

•• •••••••••• *••••*0

.

•.. ****
J5 •
..

X

••03 ***. *••• *.
•*·*
•
• ACCEPT ERRORS •

••••

ic

···*·05····***·.·

*TAPIO

HG •
*-*-.-*-*-.-.-.-.
•
PEAD A
•
..
RECORD
•*•••• *••••••••••••*

** ON TAPE *•
o
•••••••
*••••••••••
X

·.***E3··••****
HG•••

* *****

.TAPID

~~t'~~~.... ~~=~~~-~=.,

READ FIRST
RECORD

•

0

*
*•.....**** ••*.*•••

....
. :"'
F3

-.

...

.*.x

...

~m

*...
*. .*

.*
••*
·HC *
*o AI·
0

.

.. NO

*..
.:....

..

*.

*

G3

.•.x

·
•
o

BACKSPACE

• HC •

••
•

••

••

NO

•• YES

.•

...•

0

X

*****GS ••*••*.*.*
HG •
*-.-*-*-*-*-*-*-*
•
C;PACE
..
•
BA.CK
*

*
*.*****
•• *****••*-

x

RECl

..

*IOCALL

••
*.*
.HC •
• AI·

.*

• •••*••••••••••••"'

NOTPMK

••

•

*...
X

•***••*.**.*.**•••* ••*ic••

*****
*
•• DATA CHECK
AS *
•.
.* .* .... X.. .
.
*..*
****
*..•
••

•• .~

•**••·.FS*****··*··
••
PREPARE TO

* 01·

• A2·

.•.ic *.

*••
* *YES

*CCWADDR TO CCB *
X

* ••

IIln

E5

KS *X ••• ~ .. ~ DATA CHECK

X
••••• F4••••••••
**

RETURN

O:*;~~ ••••• xM~o~~; ~~8m

REAO._

ic

0

•0

·.···cs.···.•....

".

*••
.. YES

•·HB
*****

,R STI• 030

SPACE
BACK

••• *•••**••••••••

*
*.
.- •TRACK
*.7
TAPE*..* NO
••••
*. *.
.* .*
x

•
•

HG •

*tOCA.ll

o

*SDASDOOIO

•

•••

***··83··········
..•
.•

..

..•·.·01.........

.RST0050

AND CCW
INFORMATION

•••**••••••••••••••

TO

BACKSPACE

*•••• *.*••••••••*

'RSTlOIO

**.••.**
.. BAD

••

o

••••••**•••••*•••

"'

••••*.*.********.*•

i

..

..

...
..
*.****•••** **••••

.. INFORMATION ..
.. FROM SJOBCTLK ..

x

.

P~EPARE

•

X

.,

•••
C1
*.
.*
*. ••
TAPE.. PROPER

.·***AS**···*.·.·
o
0

_

ANO tCW

A5 •

X

X

• RELOCATE CCB

.....
• 81··········•

IJBJOBRS

•..**•
••••• •

.

ic

..

.*•• *H5 *••••••***

• CHANGE TO USER.

·•••• .
··.........
.....-.....*-.-*-.-.-.
·
"'
· .. .*. ..
.. ..
•

MODE, TO NOT

*

• ACCEPT ERRORS •

*•••••**•••••••*•

*

J5 *.X.

ROUSE>
x
***.*JIj •••••••••
*lAPJ 0
HG •

*

• PEAD tN USER *
..
"'ODE
•
••••• **.**••••***
***. .

*-

*.

KIj •• X.

**..' .X

TSTTM

KS
*.
YES.*
WAI)
*•
•• •••• ••• ••••••....
*. TAPEMA~K
READ ••
*. *••• .•
• NO

••
*x••
*HC 0

~ECl

• o.
A1·

-

Charts

113

Chart HB.

$JOBCTLB - Disk Restart
Refer to Chart 07 •

Pre~araticn

(Part 2 cf 3)

•*HA
****,.
... F2 •

•••

xx ............................................................. .

'RSTl030

.*. *•

A2

•*

*•

HEADER
1!':. NO
*.• t: RECORO
REAO • * ••••••••••••••••••
*. *.
.*
*.... .*

*

YES

.*.x *. *•

82

•• 00.00 •• 0

oX:
X

: 'RS Tl020

.*
*o.•*CORRECT 10 *..* NO
...... .•
*. *.
.*
.*
*...
* *
YES

**···S3.**.*·.···
*-*-*-*-*-*-*-*-*

*$04S0000
...

RECORD

*

:......

. *. *.
(2

*
* ........
...
•

********••••****.
._.*
* •• _
*HG ...
... H2

x

HG

READ A

...

.

IIRST4ERR

X

.****C3***** •• ***

*
.. . C4
*. .
*************.*.*

.*
*. *. NO
..
*..* JOBNA"'ES
EQUAL
.* .......... X....
*. *.
..'"
..'"
.*.

*. ... ..'"YES

PREPARE

MESSAGE OR031 ...

*****02**********
...
PREPARE
...

X
·*.**03 **********

FOR.
• THE SU8ROUTI NE ..

•...*

•

...

X

.1NFOR~ATION

$RSTlSUB

•

•
*
**********.*.**.*

*...
*
**********.****
••*
•

X

*.***E 2**********
HO *
*-*-*-*-*-*-.-.-*
** PQSSI
RESTART
*
BlE
*

*$RSTlSUB

*

•

******lIi**********

MSGOUT

ON
SYSlOG

X
****E3*********

*

•

CANCEL SVC 6 *
•***************
•
•

X

·****F2*******·**
*
*
*RESTOFtE COMREG '"
AND PIBTAB
'"

•*

•

•*.****************

G2

•*

.'.x *.

*•

EXTENT *. NO
*.• *ANVRECORDS
.* ................. .
*. *.
.* .*
*••
*
• YES

X

.RST2000

*.***H2*.********
*SOASOOOO
HG:+:
... *-*-*-*-*-*-*-*
.hX*
READ AN
..
** EXTENT
RECORD
**
*****************
it

***·*J2**********
*XTENT
HE*
**-*-*-*-*-*-*-*-*
PROCESS THE
*
*

•

*

EXTENT

REL.URU

•

*****************

..YES

.* K2

.t *.

X

flRSTBOOO

*****K3**********
*.
CASO *
** PREPARE
SPECIFIC
•
.*.* ........ X:INFg~M~~~~~DTO :

.*MORE EXTENT*. NO
•••••••• RECORDS

...*
*. •*
*

..****************'"

:HRST9000

x

.****
*HC *
•

114

DCS/VS IPL and Jot Ccntrcl

A4*

••
•

*C4

CHKPT XXXX NOT FaUNa ON SYSXXX CUU

Chart HC.

Pre~aration

$JOECTLB - tisk Restart
Refer to Chart C7.

(Part 3 of 3)

_.-.•

:***:
•• :* ~~fER~~xi~
•

X

REel.'.

.*
•*

• ,.

Al

*. ••

VOL LABEL

*..*NO
....... .
x
*••••
*HA. *'

NR5HOOO

*

*•

*PARAMETERS fOR *
'"o
SVC 58
*•
"'***"'**.*.** •• "'.'"

*
*

__

*

X

•.****A4**********
•*
'" SET UP ALL

.. ._.._--......
.FOR SUBROUTINE
SRSTlSUB

*

• F4*

•

RETURN

X

•

'" K3*

•• *****
•·****A3.*·
* PREPARE INFO •
..

·

X
·****83********··
*SRSTlSUB
HO.

•• ***B 1*•••••• **.

*

...............••~M~!:

..

POSSIBLE

*

...

•_......._...._*_.•

x

x

.*. *.
C4
.*
*.
.*ANYTHING
TO*. NO
*. BE CLEAPEO .* ....
*. *.
.* .*

•*·***C3**********
•
-RESTORE COMREG ..

.-.*._. ..... .... •

*-*-*-*-*-*-*-*-*
SPACE
*
*
** __ FORWARD
_ _-

*
*

•

.

•*****************•

X

*••• -C 1*********.
* IDeAlL
HG*

X

*****B4*******"'**
*• INFORMATION
MOVE PROPER *
TO *
THE SAVEAREA *

**-*-*-*-*-*-*-*-*
REST ART
*

_PREPARE FORWARD.

: m~h
•

•

X

NRST0200

*. * . . * .*
* .•
*' *YES

.•.

**"'**
*HB *

·••••.
*• A3

HAG3. HAlt 5

*

AND PIBTAB

•

* .•
• *YES

•
••••
"'*"'*"''''*''' .. ****0

*HA"
•
.. F4 lOX.

*'

* •
*.-.
.
·****01***·*****·

NOTPMK
..
••• x*•

·•

x
.' .*.
03
.*
....
.*ANY EXTENT"' ..

X

ZERO TAPEMARK
COUNT ER

***'

.•

*..

•• 111.*•• -•• -_ •••• -

*..

RECORDS

*. * •. * .*

UfA "fD

"*. *..

El

*.

E2

CHKPT
"' .. NO
.* ..*HEADER 10* • *..* ....
NO
*..* HEADER
READ .* ........... X*. CHKPT 10
.
*.* . . * .*
*. * . . . * .*
x
*...
*
*
•.
'*
* NO
* YES
****

·•

****

'

*

.

•

•
X
*****F 1**********
*TAP 10
HG*
*-*-.-*-*-*-*-*-*
'"
READ
*X ....
*
TAPE
'"
*******.*********

.R EADHDR

•

.* .*

NO
•••• "'.

•

.lI<

• NO .*
.....
*. NO

*. *.

. *. *.

.'.x *.

7

TRACK

*. "'.

x

Gl
..

F2

*. *.

.* .*
*••
*
* YES

.*

TAPEMARK

*..*

.* .*

* ....
.. *
YES

•

•

* RECORD
•*****************
•*

•*****Hl**********
••
INCREASE
*** TAPEMARK
'"
COUNTER
•*****************•*

*****H2 **********
*TAPIO
HG*
*-*-*-*"-*-*-*-*-*
*
READ
'"
* SA \IE RECORD *
***"'** •• .-**"'***"'*

J1
*.
.* 2 *. *.
NO .*
...
*. *.CONSECUTIVE
.*
TAPEMARKS.*
*. * .. * .*
x
* YES
***"'* •

fl *
•'" .***
•

X

•

X
*****F3**"'****"'**
*xTENT
HE*
*-*-*-*-*-*-*-*-*
* PROCESS THE '"
'"
EXTENT
'"
'"
RECOPD
*
"'*"'****"'***"'***"'*

G3

.' .*.

.*
*.
.*MORE EXTENT"' .. YES

*.

RECORDS

*. * . . * .•
* .•
o *
NO

'"

•••••• X.

· ..
**.*

#RST0900

****

'"

E3 '"

'" **** *

•

.X

*****H3**********
0
..• PREPARE TAPE *
** TO
SPECIFIC INFO *
BE PASSED *
******************0

it

.0 •

J2
*.
.* NAME:S*. *. YES ******
*..* JOB
IDENTICAL .* .... X* A3 *
*. * . . * .*
*
**** *
*•.
*
• NO

****

•*****
•
A4 *
•****
•

•
*.x ..
****
•x
SKI P
*****K2**********
o
•
* SKIP CHKPT *

*oo K2

****K 1*********
.•••••••
•*SSBRMSGI
CANCEl*•

•********"'****** *

.•

x

x

• 0.

X

•

,

****E4*********
*SVC 2 $$BRSTRT *
***************

•

o

ROCOMM

·•

****
* H3 * .. X,.

: •••••••••• X:
X

:X •••••••••• :

•

x

*****G2**********
•*
PREPARE TO
READ 1-TRACK '"
TAPE
*
*****************

**
*
*

•

•

X

"'.

x

*****04**********
** *SVC 58 CLEAP** *
*
* * PARTITION· *
* '"
* *
******************
*
'" *

K2 '"
•**"'**
•

.. Fl *.X.

**** •

.* ......

* YES
o**** •
****
'" H3 *
*'" E3 '"'.X.
.
****
***'"
•
~R$T()8()O
)t'
*****E3**.* ••• * ••
*TAPIa
HG*
*-*-*-*-*--*-*-* -*
*READ AN EX.TENT '"

•

.*

.*

X

NO

'.

'.

RECORDS

•

***.**************
•*
•

Charts

115

Chart HO.

$JOBCTLB - ~est Restart partiticn
Refer to Chart 07.

.

. ..·*A4*·.····**
..

SRSTlSUB

*

.. ......**** ••• *11: *

*B5
MESSAGE
OROll

X

TEXT
WRONG LOCATION

*84***·*****.
•••••
• OBTAIN ADDRESS •
*
• OF SYStOM AND •
•
BDYBOX
•
•
-._ ..

........... ...
SRSTl050

•••- •
•

NO

.. D5 .X......

•
•
••••
·R~SSAGE
ORl71

.*.

.•.X

.* C3 *. *.
•• START ADDR *.
&. SIZE OF

*. *
PRDG OK ••
..*

C4

.* .*TEST

VIIU

•• X••••••••••

- •

•.

MODE ••

OF CHKPT

•• PROGRAM .*

••

*..o.

* •.
*
* YES

o**** •

* •.•
* REAL

*• 05 0*
****

TEXT

WRONG LOCATION AND/OR SIZE OF REAL PARTITION

.*

04

.t*.

*.

*.

& SIZE OF
PART OK

*..*
*. * .*YES

x

.*. *.
.o*. ...
E2
E3
.*
*.
.*
*.
.~~*:.*. Su~~MTED .**:.x ...•. !~~*:·*. Aretb'~~ ••*:.
*..*
*...
x

*._. •

**

*..
* *YES

* ..•
* NO

X
• •• **05***.******
•OPREPARE MESSAGE.*

SRSTIERR

*.

.>START ADDR •• NO

.*

.* ........ X.
*
*
CROll
*
*
*85
*
.****.***********

X

X

****'*E4**********
*SSIZE
HG*

**********
•******E5
••
MSGOUT ON

•
•

'"
•*****************
•

*• -*-*-*-*-*-*-*-*
TEST
..
PARTITION
SIZE

•
..

***.*.*********.*

*'

SYSlOG

.
*'

G4 ..

••••• •

it
••••• F2.**
•••••••

X

F3····*·*·*
•*•••RETURN
•
•• ***************
••

••.. PERFORM 110 **
**
**
•••••••••••••••••
SRsnERR

*.*••

..

G
I............

.*

G2

*.

X
•••**Ha •• ·.** ••

•
••••••••••••• *•••••••

•..• RESTART

•
..

*
•

PERFORM
PFI X

·· .....

.*.*.********** 0

****

..···Hl.·.···..·.•
X

..

•X

*****G4******.**.
•.PREPARE
•
MESSAGE.

MESSAGE TEXT
'NO PFIX OPTION
IN SUPERYISORCANNOT REST ART'

•

QR191

*

*G3

o

*

•

•

*.*.*************

• YES

MSGOUT ON
SYSLDG

•

RETURN

$RST2ERR

*G3

•.

MESSAGE*
•• REAL PART '".
:oOPREPARE
O~Arl
:x ........NO *.•.
SIZE: OK _ •••
...................•
*...
*.••

•..

•

•o..***.
G4 •
* •..
•

X

.*.

X

o*.**F4.*******. •

·

*.•

X

*****H4**********

.

•

•
•

o
o

•

•

***.******.*••** •
•• ** .

MSGOUT ON
SYSLOG

..
•
•

•..

******.**********

.. J2 *.X.

..·.··Jl.·.······..
X

• CANCEL SYC 6

•

••••••••••• *•••• •

****
$RSTl080

X
•••

X

*• • ***K2*********
••
RnURN

•• **** ••••*****.•

116

SRSTi090

J2 *.
.*
*.
.:**. MR~fotS1X .**:*!~~ .. ...
*..*
*. • .•NO

OOS/VS IPL and Job Control

*****J3*.*.**.***
*
..

x:*

PERFORM 110

:

..
•
•
*******.*********

X

*****K3 **.****** •

•••

PERFORM

*•

RESTART PFIX *
••
••
*****.***.****.**
. ****
.
'
• • X. J2 *
•**.*•

.

X

****J4*********

•* CANCEL SVC 6 *'*
• *.******.*******

X

*

****f5*********

• CANCel SYC 6

•

•***************••

$JOECTLB - ~est Restart Reccrd (Part 1 cf 2)
Refer to Chart 07 •

Chart HE.

•• •••••••
•• •• ··AIXTENT
•
••••••••••••••••••

XTENT

81

J,*.

•*HF•••••
*••
E5'
•
it
•••••82 ••••••••••

FINDVICE

•*
*.
..
..
• :;JRST EXTENT" :.~~.""""" x: LDE~l~l ~21 T :
*. * . . * .*
....
•
*.. *
••••••••••••••••••
• YES

it

••••• C1 ••

**·•••••

•:UNWFbRG~~~h :*

•

DEVICE
••••••••••••••••••
••

·••••.,
.. D1 •• x.

"

• • • • 111 .. .x
•••••••••••••••••••••••••
•

FIND2
X
•••• ·01 ••••••••••

••

•
•••••••••••••••••••
CALCULATE
•
:ADDRE~~T~~ LUB :

E1

.•.it

••

.•
*. ' . YES
,.
..
<"* .............
*. * . . * .*
x
•••••
*••
*
*HF ..
.. NO
.. Al •
~.:rDc:.T

F~lr;Nr

~

•••

.t

BILDJI~ONGJla

•• ,

F2
."
.* Fl *. *.
.:if!
*•
•:·H~Al~~8m ':"!,~~ ..... X.: 'LO~~dl~6ENr.:.~~ ••••
*. * . . * .*
*. * , . * .*
*••
*
*•••
• NO
• yES

•••••
*HF.
* K3*
••
•
:•. "•••••.• x:

it

••

CALCtlLATE
ADDRESS DF
PUBENTRY

·.................... .•. .. ·········x
•
•

x

•
•

*...
t~b~~~O

••

•• ...
• NO

.•H3

*SVC 2 SSBRMSG1 •

-

x
.*.
••

MORE
*..* EXT~NTS

MORXT.* •

*.

.*

.• H4

*. *.

•.......
.-*-*-.-.-.-.-....
Tir :
Ij • • • • • • • • • •

.MT~CNT

•• yes
SAME
•• YES
TO .......... X•• LDGICAL UNIT .......... X-

••• ~ OCES~...

.. .:~ BEFO~i'·

• •• *

*

...
• •
....

it

. ··:;fa~~·~j:···.•

•_

REGISTER

•••••••••••••••

_

_

NO

*

J4.!*•••••••
••••••
.INDICATE END OF-

CHAIN

-

• ••••••••••••••••

.Hf·

a ILDJI8

GU •

S~tzE

~~c

:

•• ••

.. NO

•••

·••·Jl····..**·-

...............

••...

• • POINT TO NEXT
ADAPl POINTER ."' ....... X.
ExteNT
•

*HF •
.. A1.

it

*
*

-

*.

Hl
• *IS THIS AN -. YES

••••

**....• Nj(T~~II.G3.i
•••••••••
*
••
.•**•.*.*............
.•...*•••••••***••..**
...•.
• G2.= ••

••••• Gl •••• • •••••

••

*

•• **•••••••••• **
••••
•
•••••*
.. X. 01 •

*•••••

•

• J4 *.X.

LODE

.

X

••••• JS** ••••••••

•* POI NT TO NEXT'•
*
JI8
•
• 01 SPLACEMENT •
"'-

............•....
x
•*HF
••••
•
- C2•
'FAVD

-.

Charts

117

Chart HF.

$JOBCTLB - Test Restart Reccrd (Part 2 cf 2)
Refer to Chart 07 •

*•***** REFERENCES
:* TOHEEt. HFAU
HEHl
*

*.

"*-*-*-*-*-*-*-*-*
••• AI········_X

BILOIB

*HTNCNT

..

**

DEQUE

*****AIj *******•••
•* MOVE FAVP TO *•
: ... x:p~j~tE~O¥8 ~l~p:

GU *

SEIZe

,.

SYSTEM
SVC 22

..
..

****.***********.

****.**************

*****' .
• 81 .'Ox.
*
**** * X.
CLEAR
.*.**81****·**·*·
•*Cl EAR REG I STER **•
•*
**
.**********.**.*.

X
*****85 **********
*
•
* DECHATN JIB *
•
*
*****************
•
*

.

·
******

*HE
,. J5*

* •

•

j.
C1 ,...

.* .*IS

*.

*. ,....* .*
,... *' .."YES

NO

*'

AODR OF ,.
FAVP
,.

*

,.,.
.*•••• ****.******

*

J IS

,.

**
*
.*.***************

.'.x * .

.*
.NO .* STANDARD *.
•• •••• ASSIGNMENT
.*
*. *.
.* .*
* •• *
YES

.* D2
*...
. J:IRSl'
*. *.

.*. *.

* .. *.

eXTENT

*. oo* .*
*

.*

YES

•

.* .............................................................. .

FIPST EXTENT
..
SWTTCH
..

***********

'"

*

PElEASE

SYSTEM
<;VC 22

X

-

*****Fl**********
..
!NDICATE
*

*... ASSIGNMENT
STANDARD
,.
,.
•**************.*.*

.* .*

Gt

X
*****F 2 **********
*MTNCNT
GU *
*- *- *- *-*-*-*-*-*
•
RELEASE
*
SYSTEM
*
*
SVC 22
•
*
***.*************

X
.*.
* ..

-. *.
NO
•••••• FIRST EXTENT .*
*.*.
.*
*.. * ..*

*

HI

•

X
**··G2**·******

**
*• ************** •

-UBRMSGI SVC 2

Yes

.-.x *.

.*
*.
*.•* EXT ENT J 18 *..* YES
.•..•.•
*. *.
.*
*•. * .*
•

: •••......• x:
NXTJIB

NO

X

..

RFCORD

..

*****
*HE :9* 82*
*
FINDYICE

*****F3**********
** SET UP PROPER.•
* ASSIGNMENT
...

*
***.*********.*
••
•• *
X
*****G3***·******
*
•
**POINTER
MOVE CHAIN
*
TO JIB *

NOTST AND

-***************.**

x
.* •*.

J3

x
.*.
"'.

•

:.......... x:
NXT

X
*****K3**********
*MTNCNT
GU •
*-*-*-*-*-*-*-*-*
*
RELEAS E
**
..
SYSTEM
SVC 22
*
*
*****************
: NXTUN IT

X
••••
*
*HE •

* G3*
* •

•

118

DOS/VS IPL and Jot Ccntrcl

NOTZERO

*****J4**********

.* EXT ENT*.
*. NO
** PO INT TO 2ND •*
.*LONG
*. PROCESSED .* .......... X*EXTENT OF 2321 *
*.
.*
* 3330,334(1
*
*...*
t***************:
•* ·~ES

.**.******* •• ****

.•• X.* Bl ••
***** -

H3

NO .* .*EXTENT OF* .* •
• ••• *. 2321 3330, .*
*.. 3340
.*
*. * •• * .*
* YES

X

****

.

-

..

• ** ** ******.*.**
"'**

X

TSTSTND

*****J 1**********
*
* POINT TO NEXT.•
JIB
*'" DISPlAce"'ENT
**

•

..
'"

'" nF F)(TENTS IN ..

:................... x:
NONSTND

..

*******.* •
•***.*E5
.. OBTAt N NUMBER •
..

YES

x

·

*

X
*****05 *.********
*MTNC NT
GU *
*-.-.-*-*-*-*-*-*

XTENT2

FREEJIB

*. *.

**C5*******
*
TURN OFF
*

*****************

NO

.*.x *.

..

'"

*****E3*****.****
**CHAIN NEXT JIB.•
•• ANY FREE JI 8S.* •••••••• x* &. MOVE EXTENT ...
*. * . . * .•
*AND TYPE TO IT *
...
...
*~ ••
$****************
* NO
E2

• *• *

•
*

*

x

X

*

,.*OBTAIN

.*oo •••••• 'Ox*
x *

·****01*********·
*,. ADDRESS NEXT **

El

X

.*.*.e2*•• ****.*.

,... *.

A JIB
CHAINED

,.

X

,FAYP

x

*****
*HE *
* J5*
**

•

LODE

Chart HG.

$JOECTLB - Restart 5ucrcutines
Refer to Chart 07.

·~rZE

·..

•••• Al •••

•

.

**••••

SDASDOOO

..

••••••••••••••• .
X

SDASDDOO

.

..••••• 81 ••••••••••
•
•

SETUP RECORD
NUMBER

•
•

••
•
••••••••••••••••••

......
..
.. .x .••••..•••.

·..
·•
•
•

C1 •• x.

••••..

50AS0010

•

X

•

SDA50010

READ A OASO
RECORD

..

•

·..
·
..
..

·

.

•
'"

·
• •••• e2 ..........
•
...

**,•..**
• NO

.*

•

··...................
RETURN

•

•'"

...............••

•

.SIZE

'SIZE

•

it

•• ,

*.
,.P~R!f~K~Iz~· ••
B4

. , LESS RSTRT

-,PART SIZE.-

• •••• 81) ••••••••••

NO
: PREPARE INFO
. . . . . . . . . . x. FOR MESSAGE

..

**,
.**
..

OROl!

.
:•'"

:
•

..

..
.A5
..
•••••••••••••••••

'" YES

it

.

'" ····c"'·····**··
ReTURN
•• •••••••••••••••
•'"

it
·.···C5·····.·
..'·"
'"
'"

..

MSGOUT

ON

.
•

..

..•••••••••••••••••
•

SVSlOG

X

•

.

05** ••• • •••
'.." ** ••RETURN
..

.

• ...............•

•••• E3.a .......
•• RETURN •'"

·...............

...

...
...
•••••••••••••••••

•••• FI.!.......

•

ItECORu 1

ze

• ••• AIt•••••••• •

X

:• ~aAlLH~
•'"..........**** ••

REC
•• YES
.INCREASE TRACK ..
•• FOUND COND
•••••••••• X. NUMBER. SET •

*.

.
•
•

·**··03 .. • .. ••••••

•

*.

READ A TAPE
RECORD

'"
'•"•••••• *•••••••••'"

..

.•.x *.

..
•

IOCALL

•
..

.

El

SET UP READ
COMMAND

·"". "' ...••.......•....••.. x..
X
···.·C3....•.....
'"
'"

••••••••••• **••••

•*
•• NO

•

..
•••••••••••••••••..

·••••••Ol.!........•..
WAIT 110
COMPLETE

..

X
··.··83·.··
...··...

•• 10CALL ..•
•••••••••••••••••

..
••••••••••••••••••

•
..

TAPIO

••••••••••••••• .

TAPIO

•••• 82 ••• • •• •••

•••••e1 ••••••••••
•
•

. ··

•••·'3 •••••••••

.
.
.................
•••• A2 .......• •

OF RSTRT PARTITION LE
THAN SI
OF CHKPT PARTITT

'"

.•.it *,

F2

.*
t,
••HEAO LIMIT •• NO
*. REACHED .* .. ,.
*.

*.

.•

.. tr

•

·.......
x

*•. *

YES

'"••••

• CI '"

x

: ••• j~~ .::.:••••:

CVlrND~R

•
'"
•
NUMBER SET 0
.TRACK NUABER TO.
•
LOWER LI ~IT •

.................

..
it

H2

,

.*
• • UPPER

••

*.

••

*.

LI MITO. NO
REACHED
........

*.

*•• *

.*

• YES

..i..

.

*HB •
• C3 •

.*

·.
..x*.

C1 ''""
''""••••

'"

*

nST~ERR

Charts

119

$JOBC~LD - ASSGN Statenent Prccesscr (part 1 cf 16)
Refer to Charts 08 and 09.

Chart JA.

•• ·_.*AI···_·····
•*
SJOBCTlD
•****.**********
•
*****61**********
*lNlTl

B2

KA '"

FOR
RElOCATION

•*
*oo

'"
'"

C1

"' ..

START

.*
*. WITH
1/ .*

.*NO
....

"' ...
*
'" YES
X

**01*******

•

'"
..

•

INOICATE

TEMPORARY

*

ASSIGN

***********

•'"
•

**

.

X

****"'E 1*********.
*SCANR2

GK

IS
UNIT
SYSREC

*

*-*-*-*-*-*-*-*-*'"

'" POINT TO 1ST

'"
OPERAND
'"
SYSXXX
*'"
*.***************

~

*.o

*•

•*

•

***.

NO

*•

•**** * x
A SSGNR
~ *.
f2
*.o

x

'" ~ * ..

***.

•

x

.* .. * .

DID A

X

<

X

..

.. RESTRICTIONS *
•******************

***.*******

ASSGNC

*..*.YES
oooo.

NO

x

****

**
•

120

82

****

**
*

TO ALLOW
*oo •••
*SYSLINK IN FG*

•••••••.•• "x

oo*
*oo
• *PROGRAMM ER
_.
UNIT
oo*
oo*
*oo oo*

*

**HZ***·**·
*•SET ASSGNVZ •..

*

x
.*. *oo
J1

*. *.

x

•* .
. *H3 ATT *. *oo *. YES.•
.*
*oo
RTN
.* .. X.
*. ACTIVE
oo*
*0
.*
x
* •• *

X

**********
KN '"
*-*-*-*-*-*-*-*-*
- TEST LANGUAGE *
••• *.H 1

*TSTPROC

x
•**** •
J3 *
•*****
•

. '•

J2

•

x

•
***** *
****
** B3 *. . .* J3 *.
*. x.

****

*.

.* AS$GN *. *. YES
*..**. SY$ClB
FOR
.* ....
•*
*. *•• *.*
'*'

.

•*
F3
* .. *oO NO •
oo* MUlTI... PROGRAMMING
X.
*oo SUPPORT

NO

x
.***

•,. 83 •..
*.**.•

DCS/VS IPL and Jot Control

.;.I~.;.

*****
*KH *
01*

NO

• 05 *
•*****
•

*

x

B4

HEX

X
*****G4***·******

•

•

MOVE CUU TO
*
* INFO TABLE
AND INDICATE
A CUU LIST
*
.****************
•

**

**

x
.* . *.
H4
.*
* .. *. NO
oo*
DEVICE
*..
A
.* .. oo •
*oo
DISK
.. *
*. * •• *.*
* yES

•*

•*****

X

*
**

**J4*******
FORCE $HR

••

***********

•

. • ·•
·.
•• •••

************* .. ***

•*

TO

••*

*

****

*

*
•**.**************
•*

*

..
•
ENDSSXX*
•
T IAERR
SCNOPRS
X
*****J3**********
*SCANR3
GK
*-*-*-*-* -*-*-*-*
•
GET NEXT
*x •••
OPERAND
*

·
•

*****F4**********
• HEX CON
KC *
.-*-*-*-*-*-*-*-*
CONVEP T CUU

*

*****

REFERENCES
TO
JAJ3.

JBQ3, JBEl

JBE4, JBF5

JBG2,
JCC2,
JCF2,
JCJ 1,

JBJ4
JCD1
JCH3
JCJ5

.

*

: X •••••••••• :

x

*.**

**

•

J3 *
•****
•

....
B5

.. 05 ..

**

****

*

X

ASSGNOO

*•

.

• * IS
*. *. YES
.*
"' . "' .. NO
...
...
COMMA END
.* ......
*. *oo SYSRES
UNIT
.* ....
...
.* .* ..
*. SCAN .*
*oo
oo*
*. * •• * .*
*.
.*
x
x
x
* ••
*
*oo .. "
* YES
*****
****
'" YES
• NO
*KM ..
*
•
*..****
•
05 *
.. Bl*
• J3 *
*
*
*•
***** *
****
•
ILUS
x
x
AS SGN3
.* .••
.*.x *.
G3
••• **G 1**********
62
*SYSXXX
KK '"
0*
*.
.*
*. *. NO
NO.*
PCIl
*oo
All FG
*-*-*-*-*-*-*-*-*
.... *. SUPPORT .*
*..**.DETACHED
PARTITIONS
'"
CHECK xxx
'"
'" SYMBOLIC UN IT '"
.* .* ....
*. *.
.*
* ADDRESS '"
.*
*.
.*
*
••
*
*.•
*****************
* *YES
• YES
•* .*

.'x.* •

64

.

·.

****
.
F2 '
*.X.

Fl

.'.x

83

·

0

:x .................. :

BBGSSXXX

*. *oo

•*

•

***.

·

DID "' ..
.* •*STATEMENT"'
..

*. *.

ASSGNV!

·.
*

84 •

..IIt

*****************

.'.x

.*

.'. *.

****

•*****
•
85 *

****

•*

•

*oo YES
MORE
*..*NO
.* NO
......
*..*BACKGROUND
PARTITION
.* ... oo
*..* OPERANDS
....
>CO.
.. *
*. *.
.*
*.
.*
*.
.•
*.
.*
x
x
*
•••
x
*oo .*
*•.
*
* YES
****
****
*****
• YES
• NO
*JD *
•
•
•* F2 **
* 81*
* 03 *
* •
**** ,
• **.* *
x
x
x
ENOOPSCN
ASSGNV2
.*
.
.
'.
.
'
.
C2
*.
C3
*. * •
C4
*.
.*OPERAND* •
• * TEMP *•
•*
*.oo* ....
YES
.* FOREGROUND
VALID fOR *oo NO
oo*ALLOWED IN *. NO
*.• *ASSIGNMENT
FOR
oooo
*.
.*
.....
*.
THIS
.* ....
*oo SVSREC
oo"
*.POSITION .*
*..
*oo
oo*
*oo
.*
*. .... * .* .*
x
x
x
*oo • *
*
••
*
.. YES
* YES
* NO
****
******
****
*KM
•*****
•
•
•
* B1*
05 *
05 * *
*.x.
•****
• •* 03 •*.
•*****
•
•
*
•
x
lLUS
x
**** X.
ASSGNO
OPX
.'.
.'.
*****03**********
02
*. *oo
D4
*.
*. *oo NO
•*• *COMREG
SOR
*oo NO
* INIT IALIZE
*
.* .*OPERAND
IS
* DEV ICE TVPE *X •••
*..
••••••
*oo
.*
...
** INTO DEVTYPE
XiFOt
..
*ooAV.dIlABlEoo*
*.
X'CUU'
*
*. *oo oo" 'O*
*. * •• * oo* .*
x
x
*****'************
• YES
* YES
*****
****
*J8 ..
•
•
**** ' ..
*JS
•
*
81·
•
*
* 85
*C5 .;.:
* E2 *.x.
••
*****
***.
***** ' .x
OPUA
x
X
.
*.
.*.
**E4******·
E2
*.
E3
*.
*. *. NO
.*
*. *.o YES
• IND ICATE •..
• * .* IS
•
*..**. RECORDER
FILE
.*
....
*.
UNIT
.* ......
* • STATEMENT
OLD
*
READY .*
*. SYSLOG .*
*0
*. * •• * .*
•***********•*
x
*. oo* .*
'" V ES

*-*-*-*-*-*-*-*-*
INITIALIZE
'"

'"
'"
'"

*

x

X

ASSGN

•• *.**
•
B3 *

***** •

82 *
•****.
•

*.

.* CRTTAB * . *. NO
*.• * AVAILABLE
.*.•..
*. *.
.*
.
*
*••
*
* YES

x
.'.*.
1':'5
.*
. * HARD COpy* • *. NO •
*. *.. FILE
READY
.* .* •. X.
*.
0*
x
*oo .*
* YES
****•
****
•
.
* f2*
* 05 '
*.X ..

..

****

'.

X

..

*****05*********
BRANCH TO
*

*

NVSERR IN
•
****************
•
~JOBCTlA

****

Chart JE.

$JOECTLD - ASSGN State«ent Processor (Part 2 of 16)
Refer to Charts 08 and 09 •

•••••
*JA •

••••

* 04*
***

•o•

••••

X

DPUA

•••
81

•*
• :.

*.

*•••

*'.

DPIGN

*.

DPtiAND

•••

.*

·:o~~ •••••• xo:·

*.

UA.*

**.••.**
• YES

82

*.

OPCLASS

•••
83

opliAND
IGN

**.••.**
• YES

...

.* IS *.
·:O~? ••••• X.:·D~~~~~N~Y~EO:.~~ ••
.*
*. CLASS .t;

*.

.0.x *.

OPH2

.• 81t IS

,.

*. *.

*..* •• -

*•
*

**

84 •

OPERAND

OPMODE

*. *.

H2

-. *.•• .*

NO

••••••

••

••o
it
•• Cl ........

•
•

*' •

INDICATE
OLD
STATEMENT

•

*·e2***····

•

•••••••••••••
•••• •
*JC·
•*' •
IN~l··
X
•
* INDICATE •*
F5 •• X.

•• D1 •• • ••••

*' •

UA
ASSIGN

•

•

•
•o

*

*Jt·

*'

E5

•••• *•

INDIGN

*' *'
•

o

•

........... .....
'::

•

r.:::::.~:

_

....-

••

•

•

•

*'

•

1 N0I~~TE
ASSIGN

............

·····03*····***·
•
*
BUI LD DEY ICE
• TYPE LIST IN
.. INFO TABLE

*

.*

*.••....

*

.*.

IS
UNIT

*. ••

!:'\f5'rl~

*. *••• .-

_.

YES

*. * •• * .*

*JA •
J3*

*'• *

OPHi
F3

*

SCNOPRS

".
*.

*
**KM
0'3.. *

.

*
*' **

.•

•
•
····*G2**····.·.·
o MOVE IGN MASK •

•

•
•

TO NEWLU8

MOVE IGN
I N MESSAGE

..

•
•

G3

•

*. *.

*.

....

.*

.-

*JA •
• J3·

o
*•••
.
*o H3 '_.X.
*••••..

*
SCNOPRS

*.**H3******.··
•
BRANCH TO
*

:X
•••••••••• :
x

•••*.

NO

_

•
..

E5

.*.x *.

All·.

UNI TS *. NO
*.• *TAPE
OF MATCHING .*••••
*. .... ,;;...11.
TYPE
.*
....
*•••
• YES
•••it *
*.. H3**

.

*•••

..

X

**FI5"·*·*··0

.

.
••••

'"

. ••••
* *

.. G4 0

* •••

*

.*••***••**

•

•
•

•

x

.** ••

.*X.••
G4

*JA

*

• J3·

.* IS *. *. NO
*.••*. ADPEPANO
X'CUU'
••••••
LIST
.*
*. * •• *.*
x*
•••
* YES

·.·.·H4._
••-.····*
**
CONVERT All

•

• * INDICATE
MODE
'" SPECIFI ED

*

X

............ ..
NVSERR IN
SJOBCTLA

.*

•*

SWITCH

•

X

..
o

TURN ON
HOPPEP

SCNOPRS

OPXlIST

YES . ' ALL MFCUI o.
•••••••• MFCM DEV ICES
*.SPECIFt ED ••

•••••••••••••••••
o.

* H3 **

* ** •• *

x
•••••*
*....
J3*

.. *••• *
.. 84

.1Ie

.

'"
'"

t NFO TA8lE

*JA

*. *. NO
.* .* ....
.•
x

x

X

MOVE '"'ODE
f\YTE TO

•••••• **.*********•'"

.**
••••••••••

.•.x··*.......... .
• 0.

•

*

x

X

*.* ".YES

FNIOAG

it

•

SS TO HEX

.·E4•••••••

••
IS
•••• OPI\~AND

x
*••••

CONVERT

•

•

• NO

x

KC '"

•

•
•

.***

.. YES

SCNOPRS

. t ••••

*

OPSHR

• ••••1)1:)**••••••• *

x

O•

·JC •
• 81*

o •

·

III.

* .MFCM
_.SPECIFIED.·

•••••
*JA *
• J3*
•o•

x

E2

YES

•• ALL MFCU/

o
•
*-•••••••••••••••

*

.......x

'" YES

•**•• ** ••••• *•••••*

*. NO ..
DEVICES •••• X.

•0
0
•

•

.0 •

*•. ¥ .'"

NO

••••••
••

.-.-.-.-.-.-.-.-*

x

04

*. ••

X'SS'

**···CC)·**··*·· ••

.. .,

X

Ill •

t~

npEOA~O

.HEXCON

NO
*.••..ORSvStPT
••••• ,
SYSPCH.*
*. • .• * .•

*

..

.*.•

x

*. *.
SVSROR,

•••••••••••*

BC)

****

*•

C4
••
•• UNIT

0

t.x.•

•X

G4

•***

.0 •

INDICATE
..
DEVICE TYPE •
LIST
..

•

o

•·02····**·•*'*'

*

X

• MOVE UP MASK
•
TO NEWlUB;
MOVE UA IN
•

*•

•
•
_•••••••••••••
*

*••••••••••• *

••••*EI···.···.·.*

I NCHKDIB
OLD
STATEMENT

··C3·••••••
X

it

••

x

.*

••

x
*•••

o YES

• YES

••
••

..
•

85 •

*
*
SCNOP~S
o

•

*• 85 '"•
****

•

*

CUU TO HEX

AND MOVE THEM ..
*•• •••••••
TO INFO TABLE 0
*••••••••

•

.

X

.*J4******* 0

•

•

INDICATE
CUU liST

o

•••••••••••

*

.*

..

it

*1Ie.**

*JA '"
• o J3*
•

*

SCNOPRS

Charts

121

Chart JC.

$JOECTLD - ASSGN Stateaent Processor (Part 3 ef 16)
Refer to Charts C8 and e9 •

.....

*'*JB85**
***
x

OPSHR

Bl

.*

-•

.-. *' .

.* •*

IS

.*

Cl

.'. -.

*. *.

*.

ALL
*..*NO
*..*'.SPECIFIED.'
DISKS
....
*. *..• .*
.:fIx.•
-

X

•

x

E2

VOL

**.•..**
*'

.* •*.
84
* • *. NO
.* .* OPERAND
IS
*. SVSyyy •• ••••••
x
*••
'* *YES
•*' .***
•
H2 '*
• •

OPSYS

*. *' .

IS
OPERAND

.*

NO
•••••••••• Xt.

YES

**'

-*..*

-**'*'

C3

.'.x

'.

.* TAPES
ALL * .
*..- NO
*..**.SPECIFIEO.*
OR DISKS
....
*. *•• * .*
'* YES

••••••••••••
x
*****'*
*JA
*•• *'

x

•.. E2 •..

•.. .***
•
H2 *

•*._- •
x

OPPERM

E2

•*

*..*
*.

.-. *.
IS

OPERAND

PERM

X

X **.*
__ F2* ••

...

.* IS *. *. NO
*.... OPERAND
.* ....
*. Al T .*
*. * •• * .x

•: ****
•
B2 :

YES

x

****

.*.. *.
Gl

•

*• TURN
OFF
TEMP
•

INDICATOR

•****•
'" 83 *

·

****

•*
•

..

•*********** •

*• *
•

•••********* •

QUOTES

*. * •• * .*

.*

'" YES

-

•*J3*
•
*

X

'PAOD VOL S ER NO'
t 10 THE RIGHT
"

• .... -WITH BLANKS AND.

• MOVE TO INFO •
• TABLE AND MSG •

._••_*••• *•••••••

****"**H2*********
BRANCH TO
NVSERR IN
***
•
tJOBCTLA
******.****** ••

i<

*****G3**********
• PAOD VOL SER NO*
.. WITH ZEROES *
• to THE lEFT ..
• MOVE TO INFO

T AalE AND MSG

*•

*******.*********

:.......... x:
X

•**H3******* •

INDICAT E
..
*** VOL
SER NO
..
SPECIFIED *"

•*.****.****•

.

*' • Bl·
*
*
IlUS

*****D4***·****** GET lUB AND *
* PUB POINTERS *
* FOR SYSyyy ..

•-*_.............•x

E4

.*. "'..

E'5

.*. *.

*. *. NO
.* LUB *. *. YES
.. "
*. *. SystN.*
=
.* ........
x*.
x
*. IS
IGN
.* ••••••
**.••.**
x
*
•.
*
'" YES
'" NO
.* .. * SVSVyy

*...

X

**·**F4**********

•

***

GET lUB AND
PUB POINTEf{ S
FOR SVSIPT

•*
*

*

•****.**********.*•

.-.

.*

*..'"*.

•••••
.. 02*
••
•

*. *.
.*
*.
.*
*. * •• * .*

G4
PUB
.*PTRS SYSROR*. YES •
' . AND SYSIPT . . . . . . . .
EQUAL

F5

...x *.
LUB
IS
UA

INDIGH

*. *.

*. *•• * .*

••

.*YES
.......

x
**JB
••••
* 01.•

• NO

i<

X

*

•••••
*KM '"

• NO

*J8.

*****F3**********

:j:*:

X

**H1*.*.***

*.

x

*. *. NO
* •* TAPES
ALL
SCNOPRS
*.•·.SPECIFIED.••••••••••••••••••••
*. * •• * .*
• YES
***.
** H2 -.
*.x.
***** *.
X

*.

x

*•••

x
.*.
*.

•• .* SV$VYY *- *. YE S
*. '* . SYSOUT
=
.* .* ....
*. *•.• .*
i<

•••• •

•• VOL S ER* ..
.NO SPECIFIED>. NO
BETWEEN
••••••

*..* NO
.....
.*

.. YES

••• *. *

C4

*

x
E3 .'. * ..

*Oo

*. *... ".*

'*....

·

-

•*' ****
•
Fl *

INDICATE
ALTERNATE
ASSIGN

*. *.

.*..x *.

"•

SCNOPRS

**•

oo·

**
*

• J3*

•••

•

••

••••

•*
•

INDICATE
TEMP
ASSIGN

x

•

*..* NO
......

.* .*

*•.
*' *YES

·•

*••*.

.'.

*•

83

83

****

SCNOPRS

*JA '"
'" J3*

Fl

OPVOL

X

-***********.

OPALT

IS

TEMP

.. *

SHR
SPECIFIED

•*. *.

OPERAND

•**01******.
INDICATE ••

• ..

82

··C2*··****

•

*' *'

*'•• H2 ••*'
.*••

YES

82

*.

•:+ Fl *
•*•••*

x

**.*

**
•

**

-***.x -

OPTEMP

*. *. NO
*. *. OPERAND
.* ....
SHR
••
*. * •• * .*
x
*' YES
****
••

**••

X

••
•

INDUA

•
•*****r,s*********
.. GET CUU FRO'" •
*
• PUB AND MOVE
.. 1 TIN fNFO

*

TABLE

*•
*

**************.**

• NO

x

*****•
.KM
• 81*

••
•

lLUS

X

•**H""*******
•*
1 NOICATE
•
..
*• cuu
•*
***.******.
..

LI ST

x

X

•.****J 1**********•
: . AS

A~9~~NATE

I

:

IN MESSAGE
••************.****
••

x

•• **.
·JA •

•••

SCNOPRS

X

**J5**** •••

•
*•FOq,
FORCE SHR *
•
OEVSCAN
•
ROUTINE
•***********
•*

*

x

..***

• J3*

*JA ..
• J3 •

SCNOPRS

SCNOPRS

•••

122

*****
*
* J3*

*JA

DOS/VS IPI and Jot Centrol

•••

Chart JD.

$JOECTLD - ASSGN Statewent Precesscr (Part 4 cf 16)
Refer to Charts 08 and e9 •

•••••
*JA •

• 84•

•*
*

ENOOPStN

B1

.*.X

III

82

10

.*.

••

*. *. YES
.* CNLV *•*. NO
'
IGN
'
*.• ••
OR UA
.* ........ X.....SPECIFIED
TEfliP/PERM
••••••
SPECIFIED..
••
•*

**....**
*'

**.•.•
.*
• YES

NO

·
.*. *.

.

lOX •••••••••••••••••••••••••

X

NOUAIGN

C1

t2

.'. *•

•• NO
•• -- 2245
•••• YESX
• ·*·;~l~t~·T~···.
*.••*.P:OGRAMHE~·
LOGICAL
PRINTER
•••••••••• x.
NVSERR IN
•
UNIT
.* .* ....•... x.. •. SPECIFIED..
* SJQBCTLA
III
*'..*

III...

* ••
*
• YES

••••••_••••••••

It • • •

0 NO

·• x•••••••••••••••••••••••••.

.0. *.
X

PROTP

D1

ASSGNP1

02

.0.

••

*. *. YES
.* SAME * •o. NO
*.*SYSRLB
*DEVICE
*.•*r
OR.
.* ....•... X••• *"A5
TYPE ••••••
~YS~I R
.. *
SY~R.f'S ••
**.••.**
**.•••
.*
• NO
* YES

· •••••••••••••••••••••••••.
xx

•*. *.
EI

ASSGNP2

•* .• SYSREt *. ' .

•••• SV~rt8

YES

.*.*

E2

•

*. *.

ALL

*•*.

...*
*...
·.x ............................ ..
x
••

••

•

NO •

•••••••••••• X·· •• Sp~l~~~eD.*·*··X:
t •••

NO

•

YES

x

**.* •

• J(M '"
82*

*

**

*
.*.*.
.•. *.
.* . .
.*
*•
•:* ~~~~~~ ·:.~~~ ..... X*:* A~~~~~~O .:*~~ ............................. .

ASSGNP

*.

Fl

I NDVTP

F2

.*
*...
* •.
**

*.

SYSIN

.*
*...
*•• *
TO 1052

*

NO

YES

:x •.••.......•..•........• :

x
ASSGN"t03

G1

.'.

.* •*

*. *.

•••• SYSlOG

*.

.*.

.*.

* •*.
.*.. *.
.* .•
.•••••••••••
*...
*..*
*. .•
• .••
G2

YES

••

'.

ANY NON

•••••••••••• X•• *.~Ba~{~V~O

G3

YES

SYSRDR

...*
*•• *
· ••••••••••••••••••••••••..x............................
xx
•

NO

••
*.*
*JE •
• A1_
*•
*
ASSGN"t04

.. NO

.

•• NO •

X* ••• ASSIGNED •••••• X:
'" YES

x
•••••
*KM •
*

03'

***

FNJOAG

Charts

123

Chart JE.

$JOBCTLD - ASSGN staterrent ProcessCr (Part 5 cf 16)
Refer to Charts 08 and 09 •

••**.

*JO •
• Gl*

••
•

ASSGN404t

A1

.*X. ...

*•*. YES
*. *.SYSOUT .• •• .* .....
•*

•*

IS
.ASS IGNMENT FOR

•• ••••
•
83 •
•••••
•

* •• *

• NO

81

x
.*..
*..

.* IS *.
• *ASSIGNMENT *.

.
YESX

.* .*

82

. *. *.

x

.lII.

83

....

.* DASO * .••
TEMP
YES
NO.*
*.
fOR
.* ........ X.. ASSIGN
.* ....
X•••• *.SVSTN/SYSQUT ••
*. $YSCLB .*
*.
.*
*. OPTION ••
• -••••
'".
• •••••
'".
x
*'" •••• '".. NO
.. NO
•••••
.. YES
*KM *
.. D3·
x
•*
•• *••
FNIOAG *
x
*JF ..
ASSGN21
AS SGNB60
.*X. ....
* 82·
.* .lIC.
C3
C1
•
•
••
IS
* ..
.*
*•
*
•• ASSIGNMENT *. NO
CHKDIB
• - PREVIOUS *. NO
•• ASSIGNMENT TO ••••••
*. .. $VSLNK
FOR
.* ....
*.
DISK
*. * •• * .•
*. .... * .• ••
x
.. YES
.. YES
*••• *JG ..
*. *.

o.

~

.•

,

.. AI·

X

*.01******* ..

.. SET JCSW

03

IS
*.. *FILE

SY$LNK ..

* YES

X

X

*"""E 1****.** *
** SYSLNK J 18 **

*****E3**********

ZERO THE
*CURP.ENT ADDR ...
FIElD OF THE

***********

*ClRDIB

a*

Fl

.*X.

*.

*

*****************

IS
* ..
.*ASS IGNMENT
YES
*.FOR A PROGR • •
UN!T

*.

*. * .. * .*
* NO

GI

•*

*.•*
*.

.*.x * .

IS
DEVICE
DISK

.

x

*****

*

*JG
• AI*

*.*.NG

x

Hl

.•

CHKD IB

.

.'. * •

.*

.* .•..

x

.

*****

*, 82**

*JF

CHKD IB

•

*•
•*
TEMP
*..*NO
*..* ASS
IGN
....
*. *.
..* .*
x
* •• *
* YES
•*****
*
B3 :+:
x
* *
****
*****
*KM *
:+: 03*
••*
FNIOAG

124

DoS/VS IPL and Job Control

.

.. x ........... ..
x
*****
*JF *
* 82*
,

*. *•...
.*

,
•
A SSGNB6

*. * •• * .*
* YES

KD*

.-*-*-*-*-*-*-*-*
•* CLEAR 018 •*
*
•

:x ........... :

ASSGN86A

ASSGNB6

.* THE * . *. NO
*. ClOSBE!NG
ED
.* .* .••.
*. * •• * .*

*

*•••• ******

•

.' .*.

YDI SK

.Bn 0 OFF TO
.. PROHIBIT LINK ..
.. EDIT OUTPUT ..
.. ON

x

Chart JF.

$JOECTLD - ASSGN Staterrent Processor (Part 6 of 16)
Refer to Charts 08 and e9 •

••••• REFERENCES

:.,."*= JEGI
J~BZ. J~m

CHKDIB

82

.*.x *•

C2

.*. *•

.. '"
*. *. YES
*.•* TEMP
ASSGN
.* ....
*. *.
.*
x
*•• *.*
* NO
******
*JG
'" Al·
***

x

ASSGNB6

. * IS "' • *. YES
*.• "'ASSIGNMENT
FOR SYSROR .............................. .
*Sl~~~!IN?~·*

*•.
* *NO

****

*

x

•*.
. *02 IS *. *.

**** .* .
"' ..
.* 03 HAS
*•
FILE *. YES
*..**. THE
BEEN
CLOSED
.* .* ••••
*. *•. * .*
* NO

ASSGNDIB

... ~~.: "'.DR
*~6~1~~~~~~ *: '"
SYSOUT.*
*.

*.

'" D3 *.X.

..*

*.•
* YES
x

. *.. '"

*.

E2

.*. *•

* • *.

HAS
SYSIPT BEEN

*.

CLOSED

*. *•• *.*
*

:................. x:
ASSGNLST
F2

•*

.. '"

YES

X
.*.
*.
IS

.*NO
.... x •••••••••••••..
x
****.
*KM '"
'" 85***

SFNC

••

ASSIGNMENT *. NO
..
*.••*.FOR
SVSLST
•••••• X . . . . . . . . . . . . . . . . . . . . . . . . . .
OR $V$DUT .. '"
*.
.*
x
*...
* *YES
*****'"
*JG
'"
x
••Al*
*
****
ASSGNB6
* *

•.***•

'" 03 '"

Charts

125

Chart JG.

$JOBCTLD - ASSGN Staterrent Prccesscr (part 7 cf 16)
Refer to Charts 08 and 09.

_.**..: 1~C3, J~~~i

REFERENCES

:

..$:

ASSGNB6

.*

*"

JF82i .!FF2

.*.X * ..

* .*. NO
~* .. ~ ...
.*
*. * .• * .*
x
* YES

•*

*..

Al

*

All

~SSGN

*.. ****
•
82 ..

• **>11*
*JH *
.. B3* •

•

X
.. *.
B2
*.
.*
*•*. YES
IS
*.• *ASSIGNMENT
.* ..................... .
*. SYSLST .. "
X
*. *•• * .*
• NO
• ***. * •

ASSGN36

X

A$SGN35

*****81***.******
..
LOAD LUB
*
..
ADOR ESS OF
*
* UNIT
ASSIGNED ..
*
TO IN A
*
..

•**** •

*

REGISTER

*._** ••••• *.*_.**

.. C3

*

x

*.x.
•

**** .*x.
. *. *.
C3
* ..
C2
•*
*. *. YES.. NO.* .*THERE
IS
*.
NO.*
IS
A *.
......... ASSIGNMENT
.* ..... .... * .. JI BATT ACHED
.*
*. SYSPCH .*
*. *.TO LUB
THIS .*
.*
*.
.."

x

*.***e
1**********
*CHKASG3
GU*
**-*-*-*-*-*-*-*-*
CHECK
..

.. ASSIGNMENT OF ..
..
THIS UNIT
*

ASSGN34

*.. *

*****************

* •• *

*

•

*04

x

.* . ....
01

•******03**********•*
*

......
x

El

fN IOAG

.* .* .

*
*

.*

F!

x
.*. * ..
IS

****

•• ASS [GNMENT
.... FOR $Y$QUT

*. *.

*..*NO
.....
x
*:t ****
•
B2 ..

•

•*

G2 ..

.* .*.
F3
.
.* IS "' • ...
X NO .* ATT ACHED
..•... *. *.STANDARD
JIB
.* .*
*.
.*
"' ••
.. *
YES

****
x
.*. *.
G2

.*
*.
NO .* IS $VSlST *.
. ...
*. :too ASSIGNED .. *.*
*. *... " . *

GU*

*->I!-*-*-*-*-*-*-*..
* ASSIGNMENT ..
*.*•••*••••• *** ••••

.. CHECK 'SYSPCH

HI

****

•*

• **** *

*****Gl*********.

*CHKASG

.. YES

.*..x ....

H2

.*.X *.

G3

.*.x *.

.* IS *. "'. NO
*.0* ASSIGNMENT
•••••
*. TEMP .*
*.
.*
x
*•.
*
.. YES
*****'"
*KM
'" 03*
**

•* IS *. *. NO .. NO .. " .* $V$OUT *. *oo
*... **.ASSIGNED
SV$PCH
.* .* .... X.X •• *. *. ~OOE
*04
.* .*
**.....**
**....."*
.. YES
.. YES
: X•••••••••• :

X

ASSGNqOl

*.***J
1**********
..
SAVE SYSPCH *

..

..

*

PUB ADOR ESS

IN WRKRGI

FROM WRKRG4

**

..

•
••••••
** ...... .j. ......... *'"

X

..

•

YES

0

•• x •••••

,

*****
*KM '"
* 03*
*•
*
FNIOAG

**-*-*-*-*-*-*-*-*
CHECK SYSLST *
..
ASS IGNMENT
..
*
*
*****************

x
*.. ****
G2 *
***** *
DCS/VS IPL and Jot Control

X

*.

*.
.* IS *. *.
*ASSIGNMENT
.*
*. TEMP .*
*.
.*
*
J2

*****K
1**********
*CHKASG
GU*

126

'"

x

.*
..... * .*
* YES
X

'"

*

X

* (3 ..
•
****

....

J r BCHN

*****E3**********
*SCNJIB
KJ*
**-*-*-*-*-*-*-*-*
CDMPUT E
•
'" ADDRESS OF
* ATT ACHED J Ie .-•
***.******.****.*

·• x .

NO

WORK AREA

*

.*ASSGN
IS
*•
FOR *. YES
*. *.PROGRAMMER
.* .....
UNIT
.*
*oo
••
..... *

MOVE lUB TO

*********"'*******

•*

•

SYSLST AND SYSPCH PUB
ADDRESSES AH COMPARED.
IF THEY ARE EQUAL, SYSOUT
MODE IS IN EFfECT.

X

....
.* .*ASS
IS UNIT *oo NO ..
IGNED
.* . eX.
*. *.
.* .*
x
* YES
*****
*KM ..
'**03*
•

....

YES

'F • •

•

ND

: x•••••••••••••••••••••••• :

x

*****
*JH ..
.. 83·

••
*

A SSGN36

0

FN lOAG

*

Chart JH.

$JOECTLD - ASSGN Staterr,ent Processor (Part 8 of 16)
Refer to Charts C8 and C9.

:•••*:*.

REFERENCES

*..•

JH83:

JGAl, JGJ2

x

ASSGN36

B3

•*

"
*... *.

TO

.'.....

TEMP

ASSIGN

*. :te • • *

*•

.... NO

.* ....
.• .•

x

**••
*.. H3 *
..

.. YES

*.*. *

*

x

.* •*.

..e· •...
C3

NO.*
........
*.

SYSOUT

....

MODE

*.

.*

.•

* ..
.. *
YES

x

03

.'.....

•*
.... *. YES
*.• * OF ASSGN
SV$PCH
.* ....
*. *.
.* .*
* .. *
•

E3

NO

x
.*.
....

•*
*. .... YES ...
*..* OF A$SGN
SVSlST
..... X.
*. *.
.*
x
* •. * .*
*

: •••••••••• X:
A5SGN26

F3

•*

*****

NO

*KM ..

.. 03*

.*.* •

••
*

I=NTD,At:

*•

.... NO
*.. * OF A5SGN
SVSIN
.* .....
*. *.
.*
.•
x
*oo * .*YES

* •••• •

.. H3 ..

*

****

x

.* .* .
G3

•

•*
* .*. NO
TWO
*..** .. FR.EE
JIBS
••••••
AVAILABlE ••
*. * .. * .*
x

*
******
.
H3 '
*.X.
*••• **

ASSGN27

.. *

H3

.*.*.

YES

.*.x * •

*KM •
• 04*

* •

•

NOMRJ B

*•

IGN
*..- YES
*.•**.SPECIFIED.OR UA
••••

*. * •• * .*
*

x
*****
*JM '"

NO

*

C1·

• *
*

ASSGN20

X

*****J3**********
..
SCAN CROSS
..

*ASSGN TABLE FOR*
* ALL SPECIFIED *
*DEVICE TYPES IN*
INFO TABLE
*****************

*

*

.*

*.• **.

K3

x
.*.
*•

VALID
DEVICE
TYPE

*..

* .*. NO
.* ....
.*

.*

* •• *
* YES

DEVSCAN:

X

INDVTP

*****

.JJ *
• 61*

x
******

*KM
• 62*

* *

•

••
•

Charts

127

Chart JJ.

$JOBCTLD - ASSGN Staterrent Prccesscr (Part 9 cf 16)
Refer to Charts 08 and 09.

•• ••••
•
82 *

"'*JH
' ' ' ' '*..
'" K3*

••
•

o

X
***8Z****.*******

X

DEVSCAN

•**81******* •

••'m~A2~
g~81
SWITCHES

*

o.
0

'"

****

***.
•

* Kl '"
***********
"'
'
'
'
*
•* Cl *.
*.x.
• .**** X.
GETNEXT
*****Cl·******···
*GETPUB
KN '"
*4-*-*-*-*-*-*-*
• GET NEXT PUB *
•
FROM INFO
•
'"
'" TABLE LIST
***********.*****

83

******** •• ***.***

x

.0.x ...

.'. o.

•* OUMMY *. *. NO
*. *.DEVICE
SRCH .* ... ,
IND
*. OFF
.* .*
x
*.•
*
**••
* YES
o

C3

.0

.' .*. *.

.*DEVICE
OWNEO

*. *.

*
*
****

By

x

x
• 0.

.'.

.• Dl ENO "'. *. o. YES
'
*..*.
Of
lIST
.* .* •...
*. *.. * .*
x
o NO
o**** *

02

*.

•*•* ASSGN *. *. NO
*.;~SX~~p~ ICU~~. *••• :
*. *•• *.*
o yes

•

*'"

TURN OFF

••••••
* .*
x
* .•*
o ** •• •

OTHER
•• PART ••
o NO

..

*.*.*.**.****

**

o'"

x

C4

.' .••

*.

.. ..
•••
* *YES

.*

*•

ic

****

**C5***** ••
TURN OFF

UCUA
SWITCH

**

* ************

**

•*

H5 •*
•****
•

.*.*

03
*.
.* OLD * •*. YES
*..**.INDICATED.*
STATEMENT
•••• ,.
*. *.•* .*
* NO

**

X

ic

···04************
o
SENSE

•

o

**05*******

*..*

TURN ON

**

SWITCH

..

MOUNT

************0

****.************

•

• J5 •

•**** *

x

.0.

EZ

El
'.
DEVICE
DOWN

.*
*..*
*. *.

*. ' . YES
.* ••..
.* .*

,0

ASSGN

*. o.

NO •

*,~;SXN~~YSY;X····X:

x

*•.
o *
NO

.*

.0.ic *.

*. *•. *.*
* YES

E3

x
.'.
*.

E4

.'DEVICE ' •
OWNED
*. NO •

*..**.

BY

THIS
*.PART ••

*.*

.* .. X.

x

.0.x o.

x

.* ICE *. *. NO
*'..* DEV
READy."' ••••
*. *.
.*
x
*•. *.*

*** **F5 **********

*
*
•

SAVE
NEWPUB

IN PUBC;AVE

*•
*

•*********.**.*••••..

* ••
o *
YES
* YES
****
***•••
*JK
o
• 81*
*' 85 •*
*..****
0,
F3 *.X.
ic
oo*
*
0
•***.•
• * x
****
ic
TESTe lOA
x
•***Cl•••*
**** F3 •* •o.
X
OWNED
.0 •
.
'.
o
•
F4
*.
*****F 1**********
.*F2 SER *.NO*. *. YES..
*. •• YES
****
••
•• .* DEVICE * ••• NO
.* •* SWITCH
MOUNT
SAVE PUB
*0'"
*.,'VOL
SPECIFIED •••• X.
*.
••••••
*.
A TAPE
.*
.•..
'"
PTR IN
'"
NEWPUB
•
*.
e*
*. ON
.*
*. *.
o
•
.* .*
*. * •• * .*
*. *•. * .*
x
*.••
••••*.*.*********
•• ****
•
• NO
•
YES
* NO
r;5 *
o**** *
•****
•
*.**
.
** G2 *.
•
Cl
*
*.X.
• •
****
x
X
***** * :X
X
SHOFFl
X
.'.
NODUMMY
Gl
*'..
**G2******.
G4
*.
**r,5****** •
o **G3******* •
.*
•
*
*.
*
*
.*
DEVICE
.... YES
... TURN OFF
'"
NO.*
TAPE *. ••
*
TURN OFF
*
TURN ON
*
•
**'"
'.
2955
.o •••••••• X. OUMMY DEVICE 0
••••• POSITlONED .*
* UCUA SW ITCH *
* .. SWITCH
MOUNT
•
*. *.POINT.*
AT LOAD .*
*. * . . * .*
*'* SRCH
IND IN '"
* * *Kl
*
COMREG
*
*
0
•
***********
***********
*•.
*
•• ****
x
"' ...
***.*.*****
• *
NO
*
YES
•.x •••••••••••.** 85 •*
****
••••
:x ..••.••••. :
*JK '"
..
* H5 "*.X.
X
0
*
05·.X.
••••••
•
****
****
*
**** * X
•
X
X
RDVOl
X
SWOFF2
*o Cl *..
••••*Hl****·****.
·.*H4*******·****
**HZ*******
**H5**·****
*
*
* TURN OFF •
o
*0
••••
o
o
ASSIGN
•
READ
OFF *•
* VOLUME
***• TURN
UCtJA
•
10
'"
SVSUSE
*
o
o
LABEL
* SWITCH
**
SWITCH
*•
o
0
*.***.**.****
• ***********0
*****************
•••**•••*********
****

*

• Cl 0
..

.*.

·

0

0

****

X

•

**J 1*••• **. 0

•

INDICATE
0
o DUMMY DEVICE 0
'"
SRCH IN
'"
'"

COMREG

.**********

x
******
0
BZ *
* *.** *

OKl

OND =
lOS a
CIOA=
UCUA=

'"

.*.ic

J2
*.
•*PENDING
MOUNT *.
•
*
*. YES
*. *. ON
THIS
.* ....
DEVICE .*
*. •.• *.*
x
o NO
o **** •
*
F3 '"
ic
•****
•
• ***
•* 83 *•
•• **

·.

DEVICE NOT DEFINE~
INVALID DEVICE STATUS
CONFLICTING I/O ASSIGNMENT
UNIT CURRENTlY UNASSIGNABLE

x
.*.* •

.. * ........

K"t

.*
*. *.

•

'.

J5 *.X.

*,

*'

*. *.
.*

.*VOL SER NO
YE S
*.READ = ONE IN ••••••
INFO
TABLE.*
ic
o *NO

*•.

**' ****
0
G5 •

•..****
85 •*

*

****

DOS/VS IPL and Joe Control

*

**** •X
ENDSCAN
*****J" *.****** ••
** UNAScaGN
•
.* UNRE- *. *. VE S
•
•
*
o .COVERABLE 110.* ••••
*
SYSUSE
*
*. ERROR .*
•*
*. *•• *.*
**
ic
* NO
*•• * **************.*.
•* 85 *
x
* •
*.**.*
****
x
*Jl
J4

ic

128

**

0

•**** •

.•.
~l*

F3·
0

••••

X

•• *. NO
.* ....

.'VOL SER NO
' . SPEC IFIED

'" F3 •
o
0

x
.0 •

x
.0.
85
*.
.*
.* DEVICE *. *..* YES
•• OWNED BY
••••
*. *.PART
ANY
.*
.*
x
*••
*
• NO
o*•• •*

NOTDRY

CIDA
SWITCH

.*

' . YES

0

****

o **84******* 0

TESTC lOA

• G2 •

o

o

X

ASSGNB4

x

.0

******
•
85 *

*

.* SHR *. ' . YES
.0
o. SPECIFIED .* ...•
•• •.
.* .*
x
*••
o *
NO
** •••
*JK *
* 81*
*•*

o

NOP

C2

****.
*JK
'"
• 05·
o •

0

83 •
•• ****
•

*

$JOECTLD - ASSGN Staterrent Processor (Part 10 of 16)
Refer to Charts CS and e9.

Chart JK.

••••

••••• REFERENCES

:* JJ83.

•

• TO

*' ..

o

JK81:

>

*

T ESTC lOA
X
>
>
'INITlAlIZE FOR'
• CROSS ASS IGN- •

**···93····••••••

ASSGN8

•···*91**·**···*..
•

MENT TABLE
LOOKUP" Kl

0

* 84 **

JJE3

•
..
• •• x>
..

>
..
>

SAVE CROSS

ASS I GNMENT
MASK IN

*' TABXAS" Gl ..'*
•••••• **.******.*

*'*

•••••••••••••••••

****
X

ASSGNIO

.0 •

B4
>.
PftOG ••
.* .*LUBONLY
SCAN *. NO
••
.* .....•....•...•••.
... -PROG SW- ...
*. ••• *.*
• YES

................... x ..

x

..

WRKR4 BY 5

..

*'

Dl

.*.x

....

.. ONLY PROG. ..
..
LUBS
..

TABLE

ENTRY
Fl

.*.

ASSGH7

*.

.*02DOES *. *.
.'UNIT EQUAL ' .

X
• •• *.03**.*******

ND

•

FIRST
.- ••••••
.* .* ........ X.. *. *.ENT~Y
TABlE.*
X
.*
••

*.**•• *
.. NO

*...
*
.. YES

x

ic

• 0.

.• El END*. *. ••
OF
.*
*. TABLE
••
'*. .... * .*

• NO.*
•• ••••

.*

E2

• *. ••
IS

*..

•
*..* VESt
.....

*. *. coo •• .*
:t ....
• NO

..

PROGRAMMER

..

CLASS

..

*

.****************

**C4*******
TURN OFF
•
PROGSW TO

·

** LUBS • *
**.*.******

*
*

>

AND COMXAS
INTO TA8XAS

*

*

SET REG [STER

POINTl TO 0
TO INOICATE

SYSTEM CLASS

'>*

•

•

•

•

• •• ****.*******.*

.>.x *.

X

*

..
•

>

****·04··*·*·***·
o
>

..

.

X

*****C5****·****·

..

05
•• DOES
•• RESULTANT
TABXAS eQUAL
COMXAS
•*

*. *.

**.****•••• ******

*. *.

*. *•• *.*

.*YES
....
x

** •••

> NO

*JJ •
• HI·

x

:X •••••••••••••••••••••••• :
**·:t
*GETlAN
KA *
*-*-*-*-,*-.-*-.-*
•
COMPUTE LUB
*
• ADOR AND NO. •
* ••IN*••CLASS
.**
*._ •• *•••..

••
>

•••••*

.JJ

* 84 •

····*E3.·••••
X

ASSGNLOI

.. * ACTUAL
*.DEVICE TYPE,
DEVTYP,

• vr:::c;

.. LOAD REGISTER ..
.. POINTl WITH A ..
• 1 TO [NOICATE •

•

> INDICATE SCAN
ONL Y SYSTEM •

***••••••••

UNIT
.'EQUAL THIS ' . YES

*. ....

•

• INDICATE SCAN'

•• ***•••****.* •••

X

ASSGNI2

TURN ON •
*PROGSW SW ITCH.

..

BYTES TO
..
> PO [NT TO NEXT >
.. TABLE ENTRY ..

.. *

··C3·· •••••
X

:ASSGN6
**
c 1*****.***...
.. •••INCREMENT

••
*

AS5GN84

:x ................................ :

x

.*
•• *
.KM *

*

B2·
••
•

INOVTP
LOG[CAL UNIT TYPE, NEWTYP,ANO THE

'T~l
~'mE3 T~~hsO~~Tl~l ~~hl2M~m~ ~~T~~~

G3

.*.x ...

G4

.*. ••

**.**G5.****.****

.* END *.•• NO
.• PROG *. *. YES
** SET CROSS **•
*..**. LUBS
OF
.* ........ X....*..-PROGSWlUB SCAN ONLY.* ......... x. ASSIGNMENT
••
.*
..
BYTE TO HEX
•
*...*
**.••.**
•*.***
BOOO IN CTVPE •
* ••
*
••••• **.** ••
• YES
... NO

x

•• ****
•
B4 •
• •••• >

: . . . . . . . . . . . . . . . . . . . . . . o. ................

x:
X

ASSGNll

**•••H5**····**··

*>UPDATE
..
•

LOGICAL

UNlT TYPE
... Jl

*•

..
•

•**** ••• ***** ••*.*•
* EACH
J1

TIME AN EQUAL PUB POINTER [$ FOUND, THE VALUE IN CTVPE [S
OREO INTO COMXAS TO BUILD A LOGICAL ACCUMULATION OF BITS TO
Be
ArA~~?TT~y~~EA~AHEwl~ !Wt~· N~emSB~O~W ~~RRWfINE
X. CTYP CONTAINS THE LOG [CAL UNIT TYPE HEX BO IF
GRAMMER LUBS ARE BE ING SCANNED, OR THE COMPUTED
VA UE SET [N THE SUBROUTINE SFPPE [F SYSTEM LUBS ARE
BEING SCANNED.

x

J5 *********
* *.**RETURN
TO
**
c)FPPE
SUB" OUTI NE
*
**** •• ********•

..
>

• KI
I. t~ET~~vmLpr1ldmNIMmo
2. Move THE LOG ICAL UN IT TYPE
TO COMUS FROM NEWlYP
3. LOAD WRKRG4 AS PO[NTER TO

E~g~s5Am~~MmTI~E~~5J

Charts

129

Chart JL.

$JOBCTLD - ASSGN Statenent Prccesscr (Part 11 of 16)
Refer to Charts 08 and 09.

~***

•.. 82 ..•
• _•

•••

.0.x *.

Bl

..
..

PU8SAVE
TO NEWPUB

**

X

•*****84**********
•*
*
ASSIGN

**83******·

** INDICATE **
* MOUNT PENDING '"
* ON THI S *
* DEVICE •
***********

..
..

o
................
*.•

***** * .
* * x
BEG xtUU
.*. *.
C2
.* MODE *. *. NO
.
*
*. SPECIFIED .* ....
*. *.
.*.*

....

**

B4

• **** *

X

X

·****62*•• *******
•
..
MOVE
*0

.*
*. ' .
NO.o OPTION
....... *..
ACANCEl
.*
- .. IN FORCE .*
*. * •• *.*
.. YES

....

**••
•* 83 **
******

.. .

*.***

*JJ *
.. J5*

*

*

SYSUSE

•*
*•
*****************

.. C2 *.X.

X

..

..

o

***C1**··**· 0
TURN ON

AUTO CANt EL
•

••***** ••• *

**
0

0

:.......•.. x:
.* 01

x
.* .*.

Jt:KM

INITIALIZE

MOOE
FIELD

•

*

TXCUU!88

.*. ....

•* .*

*.

x
.*. *.
Gl
(lOA

SWITCH
ON

*. *.

•

•

*

.·HI······· *

*o

AUTO
CANCEL

•* •*

*. *.

J1

x
.0.

*. *.

MOUNT

.e.o. ... *
ON

X

*

YES

.*

*.• *
*.

H2

• >.

x

******
•
82 *

••••*•

X

•

"'***

*

.*YES

X

REWIND
**************.**

: x........... :
X
***E4************

RDVOL2

READ
VOLUME
LABEL

'*

****.************

x

oo*.
oo*

*..

oo*

* ..

f-4

VOLOK

*.

**F5 *******

*. *. YE:S
* TURN OFF *'*
VOlUfliE
.* . oo .. 4O ....X4O x* *• IPENDING
NO. MOUNT
*
MOUNTED oo*
ON '*

CORRECT

.• .•

*..*
*. * ·~o

****

*•

MOUNT
SnITCH

*oo *.

NO
.* ....
ON
.*
*. "' .. oo* .*
x
* YES
***** •

..
* F5 *
*'***

.*
*•
*.oo*oooo.oo
NO
*.• '" SYSLOG
1052
*. *.
.*
.*
x
*oo oo*
* YES
*****
*KM '"
* 01*
x
**
****
Tl *
AERR

•'"• 83 **•
****

DOS/VS IPI and Jot Control

X

***G4************

*

I S SUE
WRONG VOLUME
MESSAGE
1T60A

****'************'*

x

*•

.*. *oo
J2

.'".***
..
C2 *

TRAFFIC BIT *
'* IN DUMMY
•
* eeB •
***********

*

***D4************

x

****

x

CNIOAG

.* ....

**F3*"'**+-''*
** UNPOST •*

X
*****G3,**,*.******
* *
'* •
. '* J3 ..* **
** *
* WAtT
* *
* *
******************
*
**

DTf1S FOR
*
'" DEVICE TYPE *
*' OF NEW ASSI GN *
*****************

.... NO

*oo

* .*oo NO
.* .*4O.oo4O
oo*

*T\..fICS DEVICE*
***********

.. F5 *
***.

,.,

*

••

•

•******************

x

SWITCH

*

130

*

***********

*..

TAPE

X

•*****G2**********
•*
,.,
INITIALIZE

..

X

**E3***.***
*
•
INDICAT E *
PARTITION
*
**WAIT
ING FOR '"
MOUNT
*
*****'*****'*

*

*

TURN OFF

A

'"

•
*

GET ZONE
*1*OF DEVICE TYPE ..
I N DE VTYP
'"

*****
*KM '"
*• 02*
*

X

..

X

*•

x

NO

******

.*. .oo

.. *DEVICE

*oo

*'" "'***
*.
E3 *.x.

X

YES

ISSUE MOUNT
MESSAGE

***"'*************

ot·"' ...F2****"'*****

•• o..o. ..

.*
*.. * .*

*oo

IT 50A

*'" COMPUTE PUB *
I NDEX AND
*
**'*' STORE
IT IN '"
NEWLUB
*'
******"'*"'********

*****
*KM *
* 01*
***
T1AERR

*. *.

•
•

****·e2**********

*. *. YES
*.
.* ....
*.
*. * •. * .* .*
x
* NO
**"'*'"
*KM *
**84*
*
*
i<
IVDS
.*.
Fl
*.
.* U(UA *. .... YES
*..**. SWITCH
.* ....
.... ON .* .*
x
*..
*
* NO
IDS
SWITCH
ON

oo*

*
*
*

X

*

:x ..•.•.•... :

***

x

BIT

***03************

*

•

*********.******.**

'" 83*

C4

•

PUB OWNER

*****.*****

X

*
*

o. • • •

El

**

*****02**********

....
DND
*.•• YES
*..* SWITCH
*. *. ON .* .*
x
*..
*
* NO
*****

•* .*

*•

*

*•• *
* YES

x

X
**C3*******
SET ON
*

*
• **** *
84

*J3
ON DUMMY cce THE OPERATOR WILL
REACTIVATE THIS PARTITION VIA
THE NEWVOL ATTN COMMAND ANO
THE TRAFFIC BIT WILL BE POSTED

AGAIN 8V THE ATTN RoutINE ..

E3

•******************
x

****
•'*

*

X

**********
•*****G5
•..
* UNA$SlGN
*
SYSUSE
•
•*

*'*

•**** *

*****
*JM *
* fn*

***

Chart JM.

$JOBCTLD - ASSGN Etaterrent Processor (Part 12 of 16)
Refer to Charts C8 and 09.

•••••
*JL ..

o •••• •
.. 83 •
•***. •

• G5-

oo *

x

x

Bl

• 0.

....

83

.* .* ASSGN * •.... YES
*. *. SYSOUT
OF
.* .....
.*.
.*
x
*...
o NO
.*.*

.* AlT *. •• YES
*..* ASSIGN
.* .•..
*. *.
.* .*
x
*..•
o NO
*****
*JR ..
•• **
.. SI.

•• **

ASSNAL T

•

•

..

X

ASSGN20

o

..
**JP"
85 •• x.
•***. 0
.
ASSGN23A
X

0

o• *.**c 1*********.
•
..
..

PUT NULL
JIB POINTER

..

IN NEWlUB

o

•* J2 •*

• •• *

*JH"
..
.. H3·.X.

o

.* .*.

•

0

****

*****C3*****··**
•
*RSTSTO
KE ..

*-*-*-*-*-*-*-*-*
RESET LUB
*

..
..

..x*

..

0

•••**••***.*****.

•

TO STANDARD *
•*.****************
•

**** 0
C3 *
o
*

•

*
01

.*.x

****

X
*****03
*UNPA3 **.*******
KH ,..
*-*-*-*-*-*-*-*-*
* UNASS IGN
*

....

*. *. YES
.* .* ASSrGN
TEMp
....
.* .....
*. *.
.* .*
* •••

o NO

o

x

ASSPERM

.* El

.0.

•

o

**************.**

0

x

ASSTEMP

* .. ....

E3

-* ... *

YES

F3

:)( ................ :
x

.*. * .
Gl

x

Hi

.'. *.

F4

.*. *.

MFeMI

63

*. *. NO
.* .*SYSOUT
HODE
.. *.....
*. *.
.*
x
* •• * .*

.* ..*
*. *.

x
.0.
SYS

*. *.

o. RORII PT I I Nt

....

YES

.*. *.

*.
.*
*. *. NO •
*. *. MFCU .*••.* NO
.....•.. X*..**. ASSIGN
TO
TAPE
.*.* .. x.
*..*
*..*
x
••.
*
* .. *
*****
• YES
* YES
*IN *
*o 63*
0
. *.*TO

*-*-*-*-*-*-*-*-*
..
CLOSE
..
..
THIS"
..
FILE
*
**•• *************

****

•
0
,. C3 •
•
0

****
*IN·
•

****
*****H2**.*.*****

*. *. YES
*'" NUll JIB **
OF
FOR * ••••
,.. .. SYSLST
.* .* ........ X** POINTER
SVSLST
*
. *..
. .••*
*****.*************

.*
*..*

NO

x

X

**.**F 1••• ******KC ..

*

*•

•

.CLOSE!

ASSGN23

.0.

.*
* .*. YES
*..* TOASSIGN
UA/IGN
.* ............................... .
*.*
•. *
* ....

CLOSE
*..*NO
*.•**.~EASSIG~
WITH
....
•• *
..

**

STANDARD

o

it

*****
*IN *
* B1*

A$SGN

o NO

PCH

*..*NO
•...

.• .*

* •• *
* YES

.• x........................... ..

..

MODIFY PUB
FOR HOPPER

0

*
..

• SPECIFICATION'

•

•

*****************

ASSGN24

*****G5**********
.* MoDe *. *. YES
*REMOVE STANbARO •
• HOOE F~OM PUB *
*.••*. SPECIFIED
.*
.........
X. AND PUT IT IN *
•* (PUB
NEW ONE
**.. ....*.*
+ 1l
*•
*****************
* NO

H3 •• X.

* *
****
X
*****H3**********

**
*

o

x
G4 .*. *.

X
*****H4**********

•*

UPDATE

*

..

*
SET MOOE
..
*
(PUB +5l
*
*******************

••x•••••••••••••••••••••••••
x
•

x

J

.0.x
1 *.

*****J2**********
**
NULL JIB

.* ASSGN *. *. YES
*
OF
.* ......... X...

*..**.

SYSPCH.*

*....
. .**
* NO

x

****
* 83 •
o
*
****

•

•

X

*

POI NTER fOR
SYSPCH

*

*****
*IN ..
.. B3*
* •

•

ASSGN24

..

• *
******.***********
***.

** J2 *•
***** *

: x•••••••••• :

x
****

• •
•**** •
.. C3 ..

Charts

131

Chart IN.

$JOECTLD - ASSGN Statenent Processor (Part 13 of 16)
Refer to Charts C8 and C9.

***.*

.*****'

*

.*

.,..

>

.>.x ....
83
.*
.* MPS * •....••••••••••••••••••••
NO
..x*. SYSTEM
.*
*. *.
.*

X

A$STEMP

•••

•* B 1

*. ., ..

FILE
BEING
"' .. CLOSEO

*. * .. * .*

REFER ENCES

: • .:
1~F4' J~~~~
>

*JM
> Dl·
•
>

ASSGN24

*.......
NO
.

••

.. YES

**** •
* 83 >..
>
****

>

x

*..
* *YES

*****c 1*********_
KC *

.ClOSEl

*-*-*-*-*-*-*-*-*
**
*'" THECLOSE
fILE
>
•
*************.***

.***..
*JP *'
.ox •••••••••••.
*
>

85 •• X ..

****
ASSGN28

>

.

.

X

X

:
S¢~~~~N IN :
*All PART IT IONS ,;.

•*****************•
:x ..•.•....••...•••....•.. :
x

*****************

*****

X
*****E 1**********

*JP '"

*-*-*-*-*-*-*-*-*
'"
RESET LUB
*

ASS GNB7

*RSTSTD
•

KE

TO STANDARD

>

.

*.***03********.*

•.,*****01*********·
•'"
ATTACH
'"
JIB
.,
••
••

'" .0.1*

••
•

*
.,

•

•****************
X

••••**f 1*.*******.•'*
•

PUT STANDARD

•
•

ASS I GNMENT
IN JIB

*

*

•••********.*****.*
X

**G 1******* *
*
•
•
*'"
>ASSIGNMENT •
*.*********
•

•

FLAG- JIB
CONTAINING
STORED
STANDARD

x
.*. *.
H1 .*. *. *.
.*
. *HZ
*.
**.H3*******
•
.
*
"FeMI
*.
YES
.*
SYSRORI *. YES
HOPPER '"
*.
MFCU
.* .•.•.... x*. IPT/IN/PCH .* ........ x* *RESET
BITS FOR
* ••••
*. * . . * .*
*. *...* .*
* STANDARD *
• ASSIGN •
x
* •.
*
*••
****.******
* NO
* *
NO

*****
*JM •

..x .......................... ..

x

.*.

. •.

.

.

•

J1
*..
JZ
.****J3******
•• **•
· o*.o
*•
.- .* TAPE *.. *.••••••••••
YES
.* • *MODE
•• YES
UPDATE
•
*.
X*. SPECIFIED
•••••••••• x*
SET MODE
*.
.*
*.
.*
* (PUB + 5) *_
*...
*
.
.
*
*
*
* .•
*••
*
*****.*-*****•• *.
:+: *
NO
'* NO

.

• X .............................. x.................................. .

x

•••••
•
83.
•• ••••
•

132

DOS/VS IPL and Job Control

H30

••
•

Chart JP.

$JOECTLD - ASSGN Statenent Prccesscr (Part 14 of 16)
Refer to Charts 08 and 09 •

.....

••••
A2 ..
•
••••

o
•o

*IN ..
.. D3-

**

*

.•••·Al······.···
X

ASSGN87

*CHKOPN

.0.
A2
*.
.* IS *.
• *ASSIGNMENT *.

*. *.

* SET OPEN FL AG *
* OFF IN DFBS *
*
•
USING THIS

•••••••••••••••••

•.••.•8t.····.•••.•

FOR
SYSLST

**.••.**
* NO

X

b~AM~BU~~~R
IN WRKRG3

82

·.···A4*
••••••*•••
*

..•••••••••••••••••..

* *•••••••*••••*

•
•
•

tNtT
•
POINTER TO
•
PIS-EXTENSION.

.*..

*

:X ••••••••••••••••••••••.• :
x
.*.
••
*B3

.. ..
.-.x

•*-*-*-*-*-*-$-*-*
····Cl······.···

.CHKASG3
..

.• C2ASSGN•• *. *.
••

GU •

CHECK

..

••

*

•
ASS IGNMENT
* FOR THIS UNIT •

•••••••••••••••••

.•.x *.*.

Ot
•• IS UNIT
ASSIGNED

*.

.*

-. *.

.*
* ••
.. *
YES

ExtT

YES.*
ALL
*.••
. .....
*. *.PARTITIONS
CHECKED .*
*. *••• .*
*

*.

FOR

SYSClB ••
...*
*•• *

*

•• NO
.- ••••

.*

•*

.*

*. ••

....

ASSGN
TO
UA

NO
•••••••••• X*.

THE UNIT

*. * ••• .*

*.BE OPENED ••

NO

.*

.•.x

*.

.

IS
_~~~!t (~os!' l'l'c "F~~
•• ASSIGNED WITH.* ••••
o. SYSLOG .*

*

*
•
*•••••••••••*

*. *•.• .*
o NO

*

.....Fl··········**

**-*-*-*-*-*-.-*-*
RELEASE
*

*K5
•••••••••
*••**•••..

*••••••••••• *••**.*

ic

•

SET ON PU8-

*

• OWNER 8IT FOR
•
CURRENT
•
PARTITION
*

•

ic
**••• *••••••••
*
GU *
ceNTROL

SSBOPENR TO

•

OPEN PcrL

.
•

••*

**•

SET OFF

*

EOJ-BIT
IN PUB

ASSGN29

X
._.

*

SAMEDIB

•

•

*

*•••••••••••••••••*

*
•

**G3··*·*··
RESET
•
SYSTEM FILE

.. ..
*•.
* *YES

..

.ic

.* G4pelL *.••
.* CONDENSE ". NO •
*.DR ALLOW EXEC ••••••
*. BIT ON ••
*. *•• * .*
* YES

*

OPEN
•
INDICATOR *
*.....*•••••*

:x .......••. :
ASSGN3D

HI •.*.
•• IS
.'ASSIGNMENT *.

*.*.

FOR
SYS IN

*..*

*.• .•YES

NO

.* .* •.•••••• x*. *.

x
H3 .*. ••

• *.

.*H2 IS *. *.
.*ASSIGNMENT *.
FOR
SYSOUT

**.•••
.*
* YES

••

•

NO
*••••

x

"•
-

X
.*.*.J 1*.****.*.*
** SET SYSTEM **

X

**••••••••• **••• **•

*.·**J2*****.*···
** SET SYSTEM **
* TYPE
SYSTVP *
•
FOR SYSLST
*
*••*.* .... **.** •••*

.

.

• TYPE t SVSTYP
•
FOR SYSIPT

•

*

t

• X •••••••••••••••••••••••••

ASSGN31
X
OINCR LUB ADDR, _

••*.*K 1•••• **** ••
:* fMB~81N¥\~
:*
NEXT LUB
* SYSIPTfSYSLST 0

...................

••••
A2 •
••••

0

INVASGN

.* OPEN
WAS *.
*..* NO
*..* SUCCESSFUL
....
*.
.•
*. •• •* .*
x
o YES
•••••
*JO •
* 85*
*o •

0

UNASSGN

X

***·*J3*******···
* PUT SVSCLB *
*

" START ADDRESS
*IN FETCH TABLE *
ENTRY OF

*

..

SVSCLB

X

F4 .".••

•• .* SAME *. •• NO •
*. •• STAPTING
.* ...•X
CYL INDER .*

X

E3 •

• *••**

X

.* •

• ••
*
* YES

••*.
••

X

-....

*onl*
0
*

•

~.

X

*

••

''5
•• NO
*..**.ASS'G~MENT
TE"'P
.* ••••••
*. *•• *.*
x
*' YFS
.JM *
* C3*
x
***
*••••
ASSGN21A
.IN *

..

*.
.* SAMe: *. *. NO •
*. POlNT!:R
1111
...... .
*. •. l U B.*. *
X

*•

it

••••• Gl ••••••••••

x

•

E4

••
**.F3·······**·
*MTNCNT
GU *
•-.-*-.-*-*-*-*-*
*
SEIZE
*
*• SYSTEM
THE
*
••• ** •• ******••• *•

*

.. .*. ..

.

-••*.*••*••••***••

F2
*MTNCNT

*

FETCH

•

••••••••••••••••••*

x
04
••
.•
IS
*.
.
.*
IT THIS *. YES.
*. *.PARTITIONS
.*
•...
PI8X..
X
*. *.. * .*
* NO
SAMELUB

··***E3··*···**.·
*
SVC2
*
...

PIBX

•
•
•
•

..

•

EXIT

X

··E2······**

• TURN OFF
* ~Y~l'~1i! 1:!t"E *
*OPEN INDICATOR

IN
NEW LUB

*
•

ic

***.*H4**·*·*·*·*
• UNPA3
KH*
*-*-*-*-*-*-*-.-*
•
UNASSIGN
"
*
SYSeLB
..
••••••••••••••
*••0
ic

•*KM
*•••..

• 03*

-

*-

FNIOAG

••••

"

E5 •

••• ** *

0

EXIT

it

TO NEXT

•

E3 •

-

**

....

•

••••
-*.**
•

x

.****
*JR •

*•

*
..****.*
••••***.*0

*o 0

YES
••••••

• NO

tNC~EMENT

·.··*C4·.*·······•

x
**
•••
·JR •
* Hl·
•*

* YES

*. ••
••

ic

**

•••• X.

x
*.**.
**JQA3 ••

.*

CDNDStK
NO •

*B3

• Hl*

El

•••

.* C3 CAN* • •. *.
•*

YES

x
•*•".
02

*.

ASSGN'38

NULL THE

JIB POINTER

•

R':)

**

X

•••

•

••

... Hl·

X

X

• •• **AI) ••••••••••

:X •••••••••••

B4

THE SYSTEM UNITS
SYSRDR, SYSIPT
SYS PCH, AND SYSLST
CAN BE OPENED.

....

*
•
•••••••••••••••••

..*
•

•*

*. *.FOR UNIT
A PRQG
••••••
••
*. *•.•.*
_x
* NO
*JR ..

*•••• •

ic

••••• A3 ••••••••••

YES
RESET JOB
•••••••••• X. CONTROL lINE
•*
* COUNT TO 1

•• IS
••
• *ASSIGNMENT *. YES

:
*

•- .*.*
•
A5 •

*•

X

ASSGN32

KJ*

• -$-$-*-*-*-$-*-.

:
•

** ••
A4 *
•
*• ••**

0

.····E5
*•••••••••
*
ic

o CLEM ADDRESS *
*of li~l\ \YiR.!:\.o- Ii<

....-...........

• TORY IN FETCH.
*
TABLE
-

_

ic
.*•••FIj*.*.*.***
•
•

PUT II CYL

..

AND •
* #I. BLK/TQK
TRKS/CVL IN ..
•
FETCH
•
* TABLE
ENTRy •
*•••*•• **** ••••••
•

X

.****r;5***·*****·
"* BUT LO C)eCOND *
*LEVE
L 01 RECTORY.
TH I S SYSCLB*
'FO~

* IF NEEDED •
*.***.*.**••• *.**

x

NOSLD
••

*.

.*

H5

.*. *.

*. •• NO
.*....
.• .*
x
*.. *
BJF

SUPERVISOR

*. *.

*

YES

x

·

***•

* A4 "*
***** "

•••••
.JR •
• HI·

**

"

EXIT

•

*••*••*•••••••***

x

.**•
*• E5 •*

.*••*

*

*K5
BYTE OCMASK+l IS OPED
INTO THE PUBOWNER BYTE.
NOTE: "UBOWNER BYTES ARE
NOT LOCATED IN THE PUB
BUT I N AN EXT~A APEA CON
TAINI~G 2-BYTES PER PUB.

x
•• ••••
*
A5 *
*•••• *

Charts

133

Chart JQ.

$JOECTLD - ASSGN Staterrent Processor (Part 15 of 16)
Refer to Charts 08 and e9.

.

*•••
** A2 ••

****

Al ..
••• ••••
•*

X

ASSGN3A

**•••
*JP -

••

"••••

• C3·

"

X

ic
**-**A2**·--·*·**
•
LOAD SYSLST •
•* DIB
ADDR
IN •_
POI NT2 FROM

ASSGN41

•••**Al*********·*
'•* ORDER
TO
'*
IJSVSIN
'* DTF+6
FROM
'**
.LOCATION CLAORD'
*************••••

.HOVE CLASS ANO

POINT!

•

*****A3**.*.****_
_
LOAD LUB
*
"
ADDRESS OF
.. THIS UNIT IN
•
WRKRG3

•

•*••***.*•••*.*_•••

•
•
•

.*_.*
*JP ..
• H3*

*._*
• ••••••• **.* ••*

...••-*..*•
•••• 85

X

X

·*·**Sl*···***···
•
MOVE INP UT
•
MMK!J~~MA. :

:

DTF+21

•*•• *•••*.*

*
UNIT
*
********••*** •• *•

***••••*.* •••••*.

x
.*.••
C3
.*
••
NO.. IS UNIT ••
....
*. ASSIGNED . '
*. *.
.* .*

C4
.* .* DEVICE *. ••

" BI T 1 ON TO •
*1 NDI CATE-RETURN.
"TO CALLER IF •
'OPEN FAI LS •

'*
**********.*••••*
*

• -INPUT F ILE-

**82****·*·
• SET JCSWI "

X
*****B3**.**
••GU**.*
*CHKASG
*-*-*-.-*-*-.-*-*

•

X

X

···**Cl*·*.***·*.
• MODIFY FILE *
'* IJSVSIN
NAME IN
'*
•
DTF •
+27 TO IN
'*
•••••*.***
•
••••*••••

**e2 •••**.-

RESET SWITCH.
*BYTE, IJSYSIN*
' . DT~a1ba TO . .

"*.*_.*_•••• "

.•.x *.

*.

*. * ••• .•
•

*HTNCNT

x

NO

X
••••MOVE
*e 1 *****.*
•••..
OUTPUT

'SET SYSTEM MASK.

••••
*• AZ ••
•-- •

..

: Mt~K!J~~~I2a. :
..
OTF+21
..
• -OUTPUT FILE- •

••••**.*****•••••

..

x
.*. ' .
03

•
TO HEX
***_
••••
_••FF
*•••• "*

* •• *

x
." .

ic
.*• •••
* E2·*.·.·.*••

.* E3 IS *.*. ' .
• NO.' DEVICE
x.. .•• DISK OR . '
*. *. 3540 ..* .*
x
* .•
**.**
* *YES

FETCH
••
•• *S$BOPEN
TO OPEN THE FI LE •
• SPECIFIED av" •
• IJSYSIN OTF • • •

*

*••- •••*••••• ****

• HI*

****

"

*

EXIT

X
***
•••••••

+27 TO PH

.. SYSPCH 018+9

..

..

DECIMAL al *
*• TO*****
•••
••• *.****•

*

..
..
•
..

•

MODIFY FilE
NAME IN
IJSVSIN DTF
+21 TO lS

*

*

*

•

• • *,!< ..~.,.~.,.'t~.*****

.".

.* J2 ". *. *. NO
*..* 3540
.* ..•.
*. *..
..* .*
+•••
x
• YES
ic

*****
*JR *

X

*.***K 1**********

" RESET KDD IN
• SYSLST 018+9
•
TO DEC IMAL
lZl

"

*•

.

"_•••***...*.***.*.*

x

'* •HI*
*
*
EXIT

.K2
TEST SWITCH BYTE AT
IJSYSIN DTF + 21.
HEX 04 INDICATES A
CORRECT OPEN

**.*
•* A2 *

•*••* •

134

·

*.**
.. G3 "*
•*****

DOS/VS IPL and Job Control

*

* Hl*

"•*

EXIT

YES

X
*****05 **.****•••*

:B vW~A9o glil ~T :

·
•

TO SYSIPT

•

*.***.****••*** ••"

**.**.* ..******-*

X

X
*****E5**********
*UNPln
KH*
*-*-.-*-*-*-*-*-*

•*****e4**********•*

•
PICK UP
CLASS
•
** UNIT
OF NUMBER
*
.**.*
• •• *••*** ••***

*•

*

UNASSIGN
SYSIPT
LUB

•
..
..

*.....*.**.**** ••

.

.

X
..**.F5 **•• *****.
••
001 NT TO
ERROR MSG
•
-lA80D•
>
•
**••• **.**•••••••

ASSGN43

**
**

*
•
*

*

************** ••• •*
X

X
.·**G5*********
BRANCH TO *
OERRTN IN
**
SJOBCTlA
**********.****

**G4******.

.. POST OPEN.
REQUEST
•
*
IN CDMREG
•

**•

•

*

EXTENSION

*

•.*****.* •• *•

*

X

.

ASSGN42

C5 . ' • ••

.* IS *. *. NO
*.."ASSIGNMENT
FOR
.*..•.
'.
SVSIN ."
*. *•• *.*

.INCR LUB AODR,

*

X

'THIS UNIT FROM "
IJSVSIN DTF •
"
**.***•••J5*.*••••*

ic
H2 .". *.

..
..
•
..

••
•

EXIT

*·***F".****·*****•

•·*··*G3****.****.
*UPDATE DIB FOR •
*

.* ••***-*.*

.•.x *. *.

x
••••• J 1***.**.*.*

x

*••••*
*JR
* HI·

• GET RF TABLE
*
ADDRESS
FROM COMREG
•
EXTENSION

*****H3**********
.• IS
.• 010 *. *. NO
•• INS ERT NUMBER •*
*..* ....
YES
••
*.••*. SVSPCH
UNIT
*.
FI LE OPEN .* ....
•• CORRECTlY.*
*'OF RECORD/TRACK>
INTO DIS
•
.'
*. *••
*K2 .*
*.
.*
*• *••*•••*••••*-**•
ic
x
*
*..
o NO
• YES
.**.
-.**
•• AZ *
85 *
x
"•*****
.** •••
•*-** *
ic
*JR
HI

NO
TO L04D
••••••
POINT ••

*. ••• *.*
* YES

'RELEASE SYSTEM ••
"
SET SYSTEM
*
.MASK TO HEX FF

X

ic
**GZ*·**·.·

* SET JCSWI •
aIT 1 OFF TO I
.ND. NO RETURN T"
0 CALLER IF •
.OPEN FAI LS

*•

X

INSW

*****04.***.***.*
*MTNCNT
GU *
*-*-*-*-.-*-*-*-*

•

•***. •*

*-**. •
• G3 *
•**•• *

X

··.··Gl*··*****
•••
•

•

• X........... .

• Al

•
..
•
..

••••**.***••••***.•

.. RESET KOD IN

".

•

**••**••****•••• -

x

••

..

*

.'x.*.

'.

X

• UNASSIGN THE
LUB FOR
• THIS UNIT

•

• NO

*JR •

••• *.F 1
•
MODIFV FILE
•
NAME IN
•
IJSVSIN DTF

FOR THIS
DEVICE

X

*. * . YES •
IS
*. *. DEVICE
TAPE
.* .* ...•..
*.
.*
.* .*

GU •

*-*-*-*-*-.-*-*-*
*RELEASE
SYSTEM,*

.*....

•
•

•

.***
.·***85*.**** ••KH*
**
*UNPA3
*-*-*-*-*-.-.-.-.

UNASSr.N

x

·**B4************
EXCPRDG
KL
*-*-*-*-*-*-*-*-*
SENSE 1/0

* ••
*
• VES

*** •• o2*i ••••••••

01
IS
••
•• UNIT SVSRDR •• YES
OR
•• SVSIPT ••

•*

*• CHECK
ASS I GNMENT OF THIS

:ASSGN40

X

*****H4********·*
SVC 2
**
*•
FETCH

**

SSBOPEN
TO OPEN

*•

•

DEVICE
••****.********
••"
*J5
1.

X
***.*J4******••
**
'MTNCNT
GU •
*-*-.-*-*-*-*-*-*

·
..
-

SEIZE
SYSTEM

.
•
•

*.***************

2.
3.

5.

ic

•

*
****** •• ***.***
SJ08CTLA

seT FROM THE OTF+58.

THE R VALUE OF THE
CURRENT ADDRESS IS
SET TO 1.
THE BB VALUE DF THE
END ADDRESS I S SET

E f)U~l TO TH E 8S VALUE

4.

6.

*• ****K4***·*****
BRANCH Tn
*
CONTROL IN
*

THE DIB CURRENT
ADDRESS, BBCCHHR, IS

1.

OF THF CURRENT ADDR.
THE CCHH OF THE END
ADORESS I S SET FROM
THE OTF+1I)4.
THE UPPER HEAD LI MIT
r S SET FPOM OTF+71
THE LOWER HEAD L1"lT
I S SET FROM OTF+5l1o.

~~~ ~~mRI ~F SW3~DS

FRO_ A DEVICE TABLE.

Chart JR.

$JOECTLD - ASSGN Statenent Prccesscr (Part 16 of 16)
Refer to Charts 08 and e9.

••••*

•••**

*JM ,.

* 82 ..
..

• 81·

••••• •

••
•

x

ASSNALT
ic
••••• SI •••••
,.
PUT AL T
,.
• ASSIGNMENT IN •
JIB AND •
•
o NEW
FLAG IT AS
0
o ALT ASSIGN
0

*••••

B2

x

x

.*.

• 0.

•*CITEMP ' . *. *. YES
*..0 ASSIGN
••••••
*. *.
.• .*
*..•
o NO

.*CZ ' • *.
..
*..* IGN/UA *.. 'YES.
•• X.
*. *.
•• .*

*•••

• NO

X

o **01******_ •
,.

FLAG JIB

.*

*

o AS STANDARD • *
o
•

••

•••••••••••

•*02

*. *.

PUT OWNER SHIP

X

•••••••••••••••••

ic
** •••Gl ••••••••••

MFERmH

•

_

' •

*.

*.
.•

•

.. ..
*••
*
o YES

**

*

..... ...........

*

.*

*:tll~ Sp~~t~CT *: *~~.!

X

:
..

AS WELL

x

.0 •

FZ

• ••••G2 ••••••••••
•
JIB
* TOATTACH
SYSLST LUB
AS WELL
•

0

~6tA~~Sm

*

SENSE

x
• 0.
Fl
,. ..
•
*
.• SYSOUT •• *.••••••
NO
••
*. *.
.*
.•
* •••
o YES

:
,.

*.••••
NO •
X.

.*
*.••.•

·*·1:2.···••••••••

*

*
•••••••••••••••••*

'"

••

• YES

ASSGN39
X
• •••• EI ••••••••••

o IN OWNERSHIP
~
g"{';;';;
o

.•.x *•

TAPE

:X ••••••••.• :
*o

o.

.*
*. ' . NO
*.•• SYSPCHI
lST/OUT
••••••
*. *.
.*
.*
*•••
o YES

•••••••••••••••••

•

.0 •

:*...,. ... x.:x .......... :
EXIT
.0.x

•o
••
•••••••••••••••••

JP82, JPC3

~&2~: ~s~~,.

JQH3. JQJ2 : ••• ,.

..

HI

'.

..

•*
••
OLD
*.••••••
YES
*..* STA.TEMENT
*. *••• .*
o NO

X

X

•••Jl ••••••••••••

o
•

ISSUE
ASSIGN
MESSAGE
1T201

*
*

X

••••*H2-···*•••••
•: MO¥a ~5~mE :*
AREA
•
*•• ••••••••••••
*••••

• •••• J2 •••*••••••
*MSGOUT
GJ *
*-$-.---.-.-.-*-*

•
.
. .•...............
·
.
: WRb~Es~maGE :

•••••••••••••••••
. ••.••••••••
xx
•..••••
82 •
..

•••• •

•x•••••••••••

*

..••K2········.*
X

•
:

BRANCH TO
C~~6C2+LI N

•••••••••• *••••:

Charts

135

Chart JS.

$JOBCTLD - CLOSE Staterrent Prccesscr
Refer to Chart 09.
*• ****
A4 *
•

•••.AI·········*
•
•

CLOSE

.,

• *************** *

*A2
SYSXXX I S CHECKED FOR VAll DITY AND THE
FOLLOWING INFORMATION IS MADE AVAILABLE.
LUB AODR OF 1ST UNIT OF CLASS IN FLOC AND
SLADD.
NUMBER I~ CLASS OF THE SPECIFIED UNIT IN
NOC AND SNICL.
THE SYMBOLIC UNIT AOOR! CtAC;~ A~D ORDER,
IN CLAORD.
THE LUB ADOR OF THE SPECIFIED UNIT IN
WRKRG2 AND LUBAD.
THE PUB ADDR OF THE SPECIFIED uNIT IN

••••••
X

CLOSED

···**A4*********·'"

• LOAD PO INTER
..
TO THE

'"

OPT !ON~L

..

OPERAND IN

'"

"'.* •••••••• *•••••*
'"

WRKRG3

OLD PUB ..

THE LOGICAL UNIT TYPE IN NEWTYP.

X

CLOSE

****.81******.**.
'" IN ITL
KA*
*-*-*-*-*-*-*-*-*
*INITIALIZE
FOR *
'" REALLOCATION

*

84

.*.x *.

*•
.*.* OPERAND
IS
*. NO
••
AlT
.* .* ................... .
*. *•• * .*

"'..

'"

*

*****************

*

.!.

.*.

x

*****c
1*••• ******
*SCANR2
GK*

YES

CLOSE3

.* C2 DID *. *.
.* C4 "' .. *.
*-*-*-*-*-*-*-*-*
.* SCAN END *. NO
YES .*
*.
'"
POINT TO
••••••••• X•• WITH A BLANK .* ................•. X•••••••••••••••••• PROGPAMMER
* OPERAND
*
*.OR COMMA .*
*. UNIT .* .*
•
-$VSXXX-.
**oo. .••*
*. ..... •• .*
*****************
•

***.

*

.. 03

*

,.. NO

X

**C5******.
SET r:lose *
SWTTOI ON
-RANKl,
Al T 0-

X
****03*********
BRANCH TO
**
NVSERR IN
•
$JOBCTLA
'"
***************

•

•

•

****
*JA.

•• x*

03

*

* •
.***
ASSGNO

x

YES.* .*

*

*
*

•*********** •

'*.ox.
.

***** •

X
*****01**********
*SYSXXX
KK*
*-.-*-*-*-*-*-*-*
* CHECK XXX AND •
**UNIT
GET SYMBOL Ie *
ADDR
*A2*
**********.******

*

**

.* .*.
04

ts *. *.
• .• *. *. DEVICE
DtSK
.* .*
*. * ... * .*
x
• NO

*****

*KM *
* 62*

•* *

.-.x

El
*.
*****E2**.*******
•* IS
*. *. YES
*TSTPROC
KN*
NO.*
UNIT
*-*-*-*-*-*-*-*-*
••.
*. •• ASSIGNED
.*
........
X.
TEST
**
*E5..
* LANGUAGE

x
•••••
•••

*..*
.... *

INOVTP

*

seT CLOSE *
SWTTCH ON
-BANK 1,
BIT 0-

***********

•

..

SUBROUTINF •

...

*

*****F4*****.****
*ClOSEl
KC*
*-*-*-*-*-*-*-*-*
** DES
CLOSE
*
IRED
*
UN IT
'"
*
*****************

•

*TYPE TO DEVTYPE*X .................. .
*
FROM PUB
*
•
*
.****************

x
.*.
••

CLOSE7
.*. *.
G2
*.
•*
*.
.*
]S DEVICE *. NO
.*
IS
*. NO
*. *. DISK
OR
.* •••••••• X*.
DEVICE
3540
.. *
*. TAPE .*.* .....
**.••.**
*..*
x
*. *oo*yes
*' YES
*****
G1

...

*
*

X

****.*F1**********
GET PUts ADDR . . .
* AND MOVE DEV ICE*

.*

THIS CHECK IS

DONE BV A
BPANCH ANO
LINK TO CHKASG3

X
**E4*******

..

* RESTRICTION *
*****************

•

.KM ..
• 82 •

*E5

INDVTP

X

*****G4**********
*MTNCNT
GU*
*-*-*-*-*-*-*-*-*
*RELEAse SVSTEM,'"
'" seT SVST.MASK *
*
* TO HEX FF
*****************

*KM ...

* B2*

.*

HI

.'.x *oo

*•

rNDVTP

*H5

.* .*.
H3

.*
*. *. NO
.* IS A*. *. NO
*..**.PROGRAMMER
.* ......• ooX*..** .. THERE
SECOND
.* ....
UNI T
•*
OPERAND .*
**....**
**.••.**
x
* YES
* YES
*****
• **** *
*KM *
* B1*
* 03 *
***** *
***
x
ILUS
x
.* .
•* •*.
J1
.* J3 IS *. *.
.*IS DEVICE*. *. NO
•
YES .* THE UNIT *. NO
.*
.x ................. *. SYSPCH,LST .* ... .
*oo
TAPE
.* ....
*. OR OUT .*
*. *.
.*
*. * •• * .*
* ",* .*
* YES
*
*****
*****
*KM *
*KM *'
.. Bl*
* B1*
***
***
ILUS
x
ILUS
x
CLOSE2
.
*.
.*
.
K1
* ..
K2
*.
oo* IS
*.
• * IS
*. *. NO
THERE
THERE A *. NO
*..**. AOPERAND
SECOND
.* ....
*..**oo OPERAND
SECOND
•*
.* .* ....
*.
.*
*. * .. * .*
x
x
*oo *.*YES
* YES
****
*****
.KC *ClOS El
*.. 03 **
*
x
x
***** •
*84'
•
••••
****
*
•.. A4 **
** A4 **
• *
*
*
****
****
IS

*.

.*.x *.
H2

DEVICE A *. YES
*..**.PROGRAMMER
.* ....
UNIT
.*
*. * ... * .*
x
, NO

~

136

y

DOS/VS IPL and Jot Control

X

*****H4**********
* IN IT PEGS 0 *
* AND 1 FOR EOV *
* 8 TRANSIENT *
*FETCH
*H5*
•
*
"'*********"'***'***

1. PEG 0 I S LOADED
WITH THE SYMBOLIC
UN! T ADDRESS, CLASS

2.

AND UNIT.
~EG 1 IS LOADED

wl TH THE ADDRESS

OF

THE

PHASE ~AME

BEING FETCHED ..

X

*****J4**********
** **
svc 2 ** **
* *
FETCH
* *
* * $$BCMT07
* *

*****.***
..
* *.
.............

X
*****K4**********
*MTNCNT
GU *
****K5*********
*-*-*-*-*-*-*-*-*
BRANCH TO
*
* SEIZE SYSTEM, *...••... X*** CONTROL
IN
..
* SET SYS MASK *
~JOBCTLA
*
* TO HEX FF
*
**************.
******.**********

Chart KA.

$JOECTLD - Miscellanecus sutroutines (Part 1 cf 9)
Refer to Charts C8 and e9.

····Al·········

** GETLAN
•*
*•••••••••••••••*

••••

....".........

..···••
•• ..··A4*···
CHKRNG

•••• A3** •••••••

•*•
*
INITL
••••••••••••••••

•• NUMCON
•
••••••••••••••••••

• •••••••••••••••*

B2 *
••• ••••
••

····*81·**.······

INITL

x

*

• ZERO SW BANK 1 •
•
LOAD WRKRG2 •
.. AS POINTER
..
..

ROOT PHASE

•

AREA
•••••••••••
** ••••..

•

*..

•
•
•
..

x

*

CLEAR OTF
EXTENT TABLE

..

*

................*•

•_
•

X

01

•••

X

••

.* HAS ••
•• RELOCATION ••

YES

•

*·*.pe:~a~MEO •• ••• •••••

•.

.*

* ..•
• NO

.,

·.··.El····.····.
X

PUT NU~BER
OF ENTRIES
RElOCA.I :LuN
IN WRKRG2
*E2

•
•
,.
•
..

02· ••• ••• ••
*• *•••
RETURN TO
*
CALLING SEQ •
*••••••••••••••• *

·E2
EACH ENTR Y CONSISTS OF A PAIR
OF S TYPE
ADCONS.

.···.Fl.··****·***
X

..
•

••

••

••••• ** ••••••••• **•

X
•• ··.*03***
•••••••
SAVE NUMBER *
•
•

*..

IN CLASS IN
NOC ANO
SNICL FROM
WRKRG3

.•

*.

Cit

••

*

.~.

1Ir.

IS

..

• •••*••••••••••••

.-

..

•••••••••••••••••

• .... C5*.* •••••••

*.

.CHKRNG

04

• CI1ECK PARAM.
•
• FOR CHARACTER
• RANGE FO-F9 '"

*

•••••••••••••••••

.t*.

*. YES..
MAX •••• X •••

CHAR

•. *G2 ••

.*

X

X
••...05·*······
••
.PACK PARAMETER •
IN WPKFlOl
•

*
•
•
•

CONVERT TO
B'NARY IN
WRKRG3

X

• •••• E3 ••••••••••

X

•• ..*·E4**··.·····•

•
INCR WRKRG3 •
.;
T:t ~cnrr "':'0 ~
.NEXT CHARACTER •

'Z=

'"

~

•*

.•.x ••

•.

• NO.*
LAST
••
• • • •• • CHARACTER ••
•• CHECKED ••

.. *.. ..
*YES

•• •• 1:5·· ••• • •••
RETURN TO
•
c~~t.!~~

!:::~

~

•• ••••••• *•••••• *

*• •••••••••••**•••*

F4

•
'"
•

•••••••••••••••••

*..•
• NO

*• ADDRESS
SAVE WB
**
IN
*
(lrJiu
*.. FLOC
FROM
*
WRKRG2
..
•••••••••••••••••

KA*

.-*-.-*-*-*-*-.-.

YES

IS
*.
CURRENT

... CHAR GT

••

X

*.

CURR ENT
••••••
CHAR IT ••
*. 0 .*
* ..
*
• NO

:RNGTOP

•
•

•

•

• •• X.
•

•• ••8PANCH
F5··*····
•••
TO
NVSERR IN

•

$JOBCTLA
•••••
* ••••••••••

X

•

.···G4·***.**·.

•
*
*
*•••••• *.* •••••• *

*

••• ***••••••••••••*
>HIt
1.

X

2.

.··**Hl.·***•••••
• PUT THE VALUE •

RETURN TO
CALLING
SEQ

WRKRG3 I S SET TO THE PARAMETER
START AOORESS FROM POINTl.

~~~~xM~sS~~ t~E T~M~~m R~

LOADING A VALUE 1 GREATER THAN
T HE CONTENT S OF POI NT3.

.. OF THE FIRST ..
•
AOCON INTO
•
'LOCAT ION AOOR • •

.. OF 2ND ADCDN

..
•

·HIt

:CHKNXC

•
•
•

I SAC OMPA RE I MMEOIATE
Tl ON.
THE CALLI NG
E MOVES THE MAXI MUM
ER INTO THIS
nON BEfORE BRANCHI NG
S ROUTINE.

X

INCREMENT
POINT! BY"
TO POINT TO
NEXT ENTRY

WORK
REGISTERS

'"

····.Gl········***

..
•
•
•

*•

IN CLASS
FRO~ PIB
TO WRKRG3

•••••••••••••••

••••••••••• X:•
.RELlOP

•

:*····Fl·····.···
c~m~~ !go :
•

•

•••••••••••••••••
.ADR,PTR

..............._.

•
•

..

X

•
•
•

NUMCON
X
••• •• 85.· ••••••••
•
SElMA
M.
* CHAR ACT
•
• Fq IN R
•
• OF THE
KRNG.
•
SUR~OU
HE
•

X

. .......... x:
X

•••••• *
* MOVE ***
NUMBER •
• ••••C3

;;lk:~

•••••••••••••••••

• LOAD THE AOOR
OF START OF
•
•
RELOCATION
• -It IN A REG.
-POINTl•

....·•..••
••·····S4.·
INITIALIZE

CHKRNG

•••••••••••••••••

·····C2·.·.···..*·

:NOREL

••••••••• *•••••••

•
•
""
•
•

•

GETLAN
X
••• ·*83 •••••• ••••
•
CO~PUTE LUB
•
AODRESS OF
•
•
• OES IRED UNIT •
IN WRKRG2
•
•
..
*J2
..

•••••••.••• x:

X
••··.Cl .•••.•..
*.*

NORELSW

•

....._.....•

..

•

•
INITIALIZE
• CCW -WRKCCW• WITH THE 110
• AREA ADDRESS
..
OF BUFFER

X
.·82·······
•

• SET SWITCH
•
NORElSW TO
•
BRANCH

..

••• *.*******.*.*.

:-BG··:-F4··:-F3··: -F2· : -Fi··

I.

NICLS: SS:PP: SS: PP: SS: PP: SS: PP: SS: PP:

2•

*J2

x

J1

• NO.*
•• ••••

.'.

. * END

*. *.

...

OF
TABLE

*. ...

.*
.*

* •.
*
• YES

.*

flCLS :SS:PP: SS: PP: SS: PP: SS: PP:SS:PP:
THE FORMAT FOR LOCATIONS
FICL S ANO NICLS WHERE-5S = SYSTEM CLASS
PP = PROGRAMMER CLASS

3•

POINTl CONTAINS OISPLACEMENT fROM
ENTRY POINT (MAY BE NEGATIVE I.
CALCULATE PROPER FICL SAND NICLS
USING PIK (PIK = '10' FOP BG,
'20' FOR F2, '30' FOR Fl).

~68h~s20t ~¥mOUNI~U8F

OES IREO CLASS IN DES IRED
PARTITION.

x

••• ** •

.. 82 ..

*•••• •

Charts

137

$JOECTLD - ~iscellanecus Sutrcutines (Part 2 cf 9)
Refer to Charts 08 and 09.

Chart RB.

•...*A2*····**··

•••• AI •••••··_.

""

""
"•••••••••••*•••"

""

SKIPLN

*•

***·*·*·..

:OUTPUT

*. . "
*.
.-

"
*_
•

*
*
•***** •••• **** •••

B2

3. ••

SYSLST
EOF

. ..*

*..*
*•.•
• NO

.*.*83···.*.···
..

•• YES
•
•••••••••• X*'

RETURN
TO
CALLING seQ

•
..

••••••••••••••• ..

x

•• ******·
•*• •• ·C3
•OUTPUT2

• ** •••••• *.*.*.**

**.*.*.*.*.

*......*

NO

.*. *•*.

KB.

• PRINT A LINE
•
ON SYSLOG
*
OR SYSLST

•
"
•

•••••••••••••••••
.SKIPLN

:•••*g~
mt~ :
•••••••••••••

KB*

A SPACE

..

•••••••••••••••••
x
04··········
m

*.

YES

**•••
: F Dft

.CLEAR TEMPORARY"
~~'f;DE :
•
TRANSIENT
•
*AREA TO BLANKS 0

•••••••••••••••••
X

• CLEAR THE 1(0 •
BUFFEP TO
•

*•

•
• BLANKS
•
•••••••••••••••••

DCS/VS IPL and Jot Control

*-*-*-*-*-*-*-*-.•

" PRINT A LINE

.L INE TO EFFECT "
..

*•
*

OUTPUT!
X
••••• 95.· ••••••••
'OUTPUT
KB*

*-*-*-*-*-.-*-*-*
• PR INT A BLANK •

······e4*•••••**·."

138

OUTPUT!

•••••C4 ••••••••••

OUTPUTZ

*••• 03.*** •••••
* BR.ANCH TO •

: •••••••••••••••
HJgg~LIN :xoo······*· •. m~m~T .• ··········x: ~~gggftlN :
*.... '*
•••••••••••••••
*•.•
o

X
····*84
••
••••••••
*-*-*-*-*-*-*-*-*

OUTPUTS
"OUTPUT

........" .....

"•
"

............................. x.x. ......................... ..

x

02
.*.*

"•

X

• *cz***····
.SET
BITS 1 •
"AND 2 OFF IN •
-JBCSW4 TO ALLOW• OUTPUT ON •
SYSLST.SYSLOG

•••• 01 ••
•
BRANCH TO

OUTPUTS

•••••••••••••••••

*•• *** •••••••** •-

•............ x:
SKIPLN
X
••••• Bl ••
.. CLEAR BUFFER
"
TO FORCE
BLANK ALINE
TO PRINT

.. •• A' .........

••• ·A . . . . . . . . .•

""

OUTPUT

Chart KC.

$JOBCTLD - Kiscellanecus sutroutines (Part 3 of 9)
Refer to Charts C8 and 09.

..

····A3·········.

.
..

..
..

.... HEXCON ..•
..•••••••••••••••

...............

•••·A2 •• •••••••
TXCUU
..

Azt··***.···..
,._ ** ••ClOSH
*
*•••••••••••••••*

••••
•

it

TXCUU

82

.'.

HExeON

*. *.

it

8'3

.'.

••

.* VALID •• ...
*.••••••
NO
NO.*
*.
X ••• _..
FORMAT
••
*. * . . * .*
*.
••
*•.
*
*••
• YES
• YES
••

6

••CHARACTERS
IN LENGTH

*...

·

it

it
••••·e3·••• •••• ••

--.....-...*-.-.-....

•••• *C2 •••• •• ••••

'HExeON

XC'

• CONVERT HEX
CUU TO
•
..
BINARY

"..
••••••••••••••••••
..

*..

•
•
..

·····**

it

..

ESCOI C -CUUTO HEX -cuu• A-F TO FA-FF

•••••••••••••••••

•• ••••
02 •••
lOAD
IIRXRG3
• IIITH PUB TBl
•
ADDRESS
.. FOR lOOK UP

TRANSLAT E

"

·····03····
•••.•.
*-.-*-*-*-* -.-*-.

·•••••••••••••••••.

KA*

..

CHECK

..

"

CHARACT ER

•

RANGE
"
•
••••
*••••••••••••

•

K2 •• X.

CLOSEl

X

•
•
•
•

IN IT WRKRG'
AS POINTER
TO PUB FOR
THIS UNIT.

C4

*

.. ..

.*
••

*•.•
• NO

04

.•.x

••

**.****.*••••••••

x •••
·$ICIS.*.*

•

.*

• * "ontFY

CCW

TO QEWtND
• AND UNLOAD

"•

* .**.** ••••••

•

*

X

*.

·*·0-;*.···*****.·
EXCDqor;
KL
*-.-*-.-*-.-.-.-*
PEWINO

.

IS
•• NO X
•• DEVlCE TYj:tE ••••••••
•• TAPE
.*
*. *A5 ••

* •• *

• YES

···.*E4··········
X

•••••••••••• *•••

~

KL

TAPEMAPK

'"

• INIT CCW AND
•
REGISTERS
•
TO liP ITE ON
• DESIRED UNIT
•
*H3

.. ••••...

X

.*.••

READEP

•

Exe •• QG

IS
••
.- DEVICE
-. YE S
.TAPE CAPTPIOGE ••••••

*.

ql)

*-*-*-*-*-.-.-*-.
welTE

x

••

•*•• ..

..·81i·•••••••••••

•
..

•"••••••••••••••••,.

X

*CHKRNG

"
•
•
"

·
•

·*...·····84.··
. .
•••.•••
·JS·

....•

•

*
•
•
**

•

AND

UNLOAD
*••••••••••••••••

it

Pi .". $I.
.• te; *. •• NO
.*
".ClOSE SWITCH ••••••
*. ON
••
*..• .*
$I.

.. 'tE$

.. K5 ..

.'.ic

••••

*.

.*

•. *.

*. *••• .•
• YES

TXCUU2
it
•••• ·G2 •• • •••• • ••

•••

SAVE DEVICE

•*

PUB ADORESS

..

TYPE AND

•

X

X

**.f4**.*
••••*.**
EXCPROG
KL

•••• ·F3 ••••••••••
'PAeK HEX -CUU- •
*TO BINARY -CUU-: A~mAmu~~ :

F2
'.
• _ DEVICE
NO
FOUND IN
••••••
' . TABLE . '

x
•••••
*KM ..
.. 83*
•••
TXCUU1+8

•...........**•••*
•

WRKRG3

• •• *

.
•••••••••••••••

-*

..

WR ITE
TAPEMAPK

•

TXtuU3

•

•

........... ·.Hi············

..

•

.

*

•••••••••••••••••

X

**F5 •••••** ..
SET ClOCjE
SWITCH

OFF

*~~~~~,~!l~ ...

•
•
•

: •••••••••• X:

.
' J2 •*
... X.
•*.*.*

• *.*G3**** ••·**

..
*
•••••••••••••••••

.-.-*-*-*-*-*,-*-.

it

·····G4.**
**·*
*CL R I/O •••
APEA •
*B
•
•

*

EP TO BLANX"
E TRAtLER •
TO BUfFEP.
CEaVl·

•

..
•

•••••••••••••••••

x
** **GPfTUClN
5•• *.*. *.*
•
TO

•

*•••CAllER.
** ••**•• *.* •

1. A WRITE TAPE HARK

·

··*·.···"

TXCUU3
i
••• ··H2 ••
• COMPUTE THE
• PUB POINTER
•

•
•

.K2

•

..
*
•••••••••••••••••
.

,.

_...,..

..••••' .

COMMAND IS SH IN

2.

3.

X

LOADED
SYMBOL IC

ES5~ fh~sS
APE UNIT.

lOAOED
WIT
PUB
ADDRESS OF THE
DES IRED UNIT.

•

.·H4······*" *

*.. MODIFY
•

.

cew •
TO WRITE TO

.. *••••*••*••
TAPE

$I

..

****H'5· •• ******
8i:)ANCH TO

..

•

* CONTROL IN *X •••
*••• ~~~~;~i~.......

• J2 •• X.

it

.

.... "··;i~ti::·t~···
•
CALLING SEQ *
,.

...**••*•••••••

X

••• J4 •••••

EXCPROG 1

**•••
*.
Kl

.-*-*-*-*-*-*-*-*

..**...***•••****
WR HE
TPAILER

..

•• **
*• K5 ••
*
•

••••

it

**K4··.*.*·
*
*•
•
TAPEMARK
*•
"*•••• _••••*"

• MODIFY CCW
•
TO WR.lTE

x

..*-*.

X

•

•
•

****K5***••·***
BRANCH TO

NVSERR TN
~J08CTlA

.*.***.* •••••••

..

•
•

.

• 85 •

•_••*•

Charts

139

Chart RD.

$JOECTLD - ~iscellanecus Sutroutines (Part 4 of 9)
Refer to Charts C8 and C9.
• **** *

•*.***•*
~5

_ ••• Al ••• • •••

•

·****A5*********.

X

•

INIT WORK
AREAS AND
REGISTERS

''**
"

X
*****B2**********

ClOSEP

*'*

:*•

0

*****************
****
•

*

Cl

S~IMP~5
PH

>

****************.

.0.x

** •• 0
o
* B4 ..•
*
****

****
.." B2 *
*
>
•
****

o*****81*********·•

CLRDIBI

•

>
.
* C2 '*.X.

*.

•****•

x
•* •

•X
*****C2**********
** GET ADDRESS **
*
* OF OLD PUB
*
*
*****************

•

o**** 0
.. B2 *

" NO

01
*.
.* IS -. *.
•• •. *.
UNIT
*. SVSLST .* .*
*. *•. *.*
* YES

*

•

.* .
.• 02 IS *. *•*. NO
*. *. 3540
IT
.* .*....
*. *•. *.*
x
.. YES
**.*
*

x
X
*****E 2 ********.*
******E 1.********.0
•
.. GET CLASS AND •
*
: S~IM~I~a : ....
*ORDER AND STORE*
*
IN OTF
*
'*
lS
'*
*
*
•
0
x
.****************
o**** 0
* C2 ..

:CLOSEL

.*.__..•••..**._.
LOAD WRKRG3

AS

• **** >

*'• E3 **
****

*•

•**** •

X
··***E3**********
*CHKASG
GU ..
*-*-*-*-*-*-*-*-*
** SYSRDR
CHECK
**
..
ASS IGNMENT
..
**************.*.

~ODADDR

X
**.**F2***··***·*
*• SET DTF TO
**
*OUTPUT AND OPEN*
* SET LAST VOL *
..
I NO ON
*
*****************

WITH Lue
TABLE

'*
*
*

'* OF SVSIPT **
*****************
o DISPLACEMENT

o
*
ClSD~***
X
*****G2**********
*SET HOR1 LABEL *
.. NUM IN OTF
*
* r NO SCONTROL *
CLOSE
*
*
o
*
*****************

• ****G 1*********.
GU *

*CHKASG

*-*-*-*-*-*-*-*-*
o CHECK SVSIPT 0
'* ASS IGNMENT *
•******************

HI

x
.0.

x
.*.
* ..

* ..

X
*****J 1*********_

****
•* B4 *
•**** *

*. *... * .*
.. YES

x

G3

.* •*.

.*SYSRDR

*. *.

.
YES.

•

NO

X
*****H2**********
* MOVE DEV TYPE >*
*"IN
DTF RELEASE>
*
CONT
*
>
*
*****************

x

x

Dla~l~~~~~~T

*

.
•

:

*****************

•

E3

**.*

*

e ••

X
*****F4**********
* SET DTF TO
*
AND OPEN *
** INPUT
SET FIL E NAME *
'"
TO IN
*
*****************

*****F5 **********
•* BUILD "iEARCH >
*
.ADDR IN WRKFL03*
**
••
*****************

X
*****G4**********•
* GET CLASS *
** AND
ORDER
'"
AND STORE
*
******************
IN DTF
*

X
*****G5 **********
•
*
.INITIALIZE FOR *
* WRITING FILE *
*MARK ON SELEC- *
* TfO UNIT
*
*****************

X

x

***** •
t

X
*****H5
*EXCP **"''''*'''***.
KL •
*-*-*-*-*-*-*-*-*
* WQ I TE FI LE *
.. MARK ON SE- *
* LECTED UNIT ..
*****************

:.......... x:
..

ZERO

DIB

****.**** ••• *

**

>

DOS/VS IPL and Job Control

*'

X

ADDR IN DIS

.. FOR SELECTED

..

*

*
*****************

•

X

*

B5

**********
•*****J5
•*
.. ZERO CURPENT

**K2*******

x

****

*..

.

NOEXC

CLPDl

*.. RESET JOB .* . .X *****K3*********
RETURN
*
*CONTROL SWITCH * ........ X* TO CALLING
*

PUB POINTERS

*

****

X
*****E5 **********
*
0
'*AOOR
* STOREBBCCHHRKOD*
CURRENT *
* IN WRKFL02
*
•******."'**********

•**** •

•'" C4 •*
>

x
.*.
E4 *.
.*
]ITS *. *e.* NO
*..**4 3540
.* ....
*..
.*
*.•
*
.. YES

-+ G2

H3
*.
.* IS *. *. YES
*..* UNIT
~* ••••
*. *. SYSIN ..* .*
x
* •.
> *
NO
****

X
•• ***K 1**********
• LOAD WRKRG3 *
*.. WITH
lUB
**
TABLE
:

***t:
*
B4 *
>
****

•*

.> •

************.****

·

SAVE SVS]PT

..

*•
PUB
*'"
ADDRESS
******************
0

>

AND
*..*SYSIPT
SAME •••• X.
*. DEVICE .*
*. * •• * .*
x

***** J2 **********
**
*
FETCH
*
*
CLOSE
*
o
*
•******************

•*
*o

x

*****C
I) **********
>
0
* SeT CURRENT *
*ADOR. EQUAL END *
*ADDR IN 01 B OF *
* SELEC TEO UNIT *
*****************

X
*1<***05
**********
.. ZERO THE KOO ..
* FIELD OF
*
*CUQ,QENT AODP IN*
*OJ B Of SELECTED.
******************
UNIT
*

·

.* IS *. *. NO
*..*>.ASS
SVSRDR
.* .••.
IGNED .>

*

.* IS *. *. NO
*..*-.ASSIGNED
$VSIPT
.* ....
.*oO
.*
x
*..
* *YES

140

f3

*...***
* •
G2 *.X.

X

SYSIN DYB

.*.x *.

.* EXTENTS *. *. NO
*..* EXCEEDED
.* ....
*. *.
. *. *
*•• *
* YES

X
*****04**********
** GET OLD •*

•**** *
• ****F 1*********-

B5

: X. . . . . . . . . . . :

x

•

X

.*.X *.

•
*
*'****************

...

NO.*

84

*. *.
* ****B3*********
8RANCH T O .
YES.* e* IS
* NVSERR IN .X •••••••• *.
UNIT
e*
*.********.***.*
SJOBCTLA
*
*. *SYSIN
.*
.*
*...
*
• NO
****
•* C4 *.x.
>.
>
.*** * •
CLRDIB2
x
*****C4**********
>
* LOAD POINT1 **
* WITH ADDRESS ..

:>*

•**** *
TSTEXT

.* IS *. *. YES
*..**. SYSPCH
UNIT
.* ..•.
••
*..
x
* ••• .*

''**
'*

'*•* LOAI)
D! ~ AODR. ..
nF SELECTED *•
*UNIT ! N POI NT2 ..
****.***.*******.-0

CLRO]8

CLRDIB

X

CLROIB3

·*

•
•
•********•••**** •*

*

SEQUENCE
*
***************

UNI

T

X
****K5*********
RETU~N

*
* CALLINI'; TO
SEC *
*****lJ.********** •

..

Chart KE.

$JOBCTLD - Kiscellanecus sutrcutines (Part 5 cf 9)
Refer to Charts 08 and 09.

*
*•

***.A 1••• *****.
RSTSTO

•••••••••••••••

..·.A4*· ••••• **

*
••

••

0•

GETJIS

* • ••••••• *•••••• •

•*••••
85 •
•
***.* 0

X

RST5TO
..

*

..
..

TO HEX FFFF
-STOREO
STANDARD
LUB to-

X

GET J IS

·····81*******·*·
.. INIT SSTDLUB ..

*
o

*.**********.****

•
CURRENT LUB
..
.. TO WORK AFt EA, ,.,
..
JIBCHN+l
..

•
...

*

..

•• **

*

••••• **.******.**

.. D2
•

R 5T5T04

X
*****01**********

RS1STOS

••••

*•

X

LUB

*
0

*****************

ROUT INE.

*

YESoo*
•• oo"'.

.*

END

*•*.

CHAIN

.*

*..

""........ "'' ' "

"' .. *
...

*•
*

NDMRJB

:

St~N~~~gLb~B

•

FROM JIB

.*

*•"'.NO •
.* .* OF END
JIB
.*.•••
*. CHAIN
••
*. *... *.*

~'tu

x

X

.****p,***.***•••

*

.. *·*;~l~:~*~~*** *

:
•
*•••***********.***

..

CALLING SEQ

*

*****************

oo*

"'oo

oo*

*.

G4

x
.*. *.

*. *.

ON

.*

RETSW

• HOVE fAVP TO
... CHAl N BYTE

*...

•

•

LAST JIB

•

*

IN CHAIN

**************** ••*

X

IS

*. *.

•
'"

*..

oo*

*****F4*"'******·*

x

•

Of NEXT JIB
IN CHAIN

E., .*. *.

***.***************

X

*

COMPUTE AODF!

*

...

*****************

"'SAVE JIB ADDR, *
OF FIRST JIB, •
'"
IN WPKRG4
...
* FROM PQINT3 ...

•*

MOVE STORED

•

*

x

*.

OF JtS

*KH *
* 04*

•••**Gl***.***·**

PREVIOUS

X
*****05·*******·*
*SCNJIR
KJ •
*-*-*-.-*-*-*-*-*

x

•* •

E4

*.

.. yes

-

.COMPUTE AOOR OF.
*FREE J 18 CHAIN.
...
START
*

OFF::::tlH.

.*.X *.

OSTST03

•

GETJIB2

THIS SWITCH SET
ON BY ASSGN

NO

•. * •• * .*

LUB

X

OE3
GET J I ssw ON=CH,

~*

LUB

o•

to

.**"'*****"'**"''''***

** •• ****.********

Fl
DOES ....
• *JIB CONTAIN*. NO
..
• STORED STANDARD* •••••••••••••••• x.
.. oo

...
•

•

·*.**D4*· •••• **.*
*SCNJ 18
KJ.
*-.-*-*-.-*-*-*-.

*-*-*-.-*-*
. . . *-.-*..
UNASSIGN

.* OF
END
*. .... YES
..
*.•**. CHAIN
JIB
.* .. *................. X.
*. ..
.*

.*

INtT PotNT3
AS POt NTER

: x........ oo •••

•

x
.*. * ..
El

_STSTOI

'"
•

0

..

**

X

**

FAVP TO
J IBCHN+l

•
...

*****(5**********

0

•***.*.********.* *•

*****02.*.*******
*UNPA
KH*

KJ*

*-*-*-*-*-*-*-*-*
• ..,OVE STORED lUB.
•
IF ANY, TO
*
..
WORK AREA
..
•••••• ***********

POINTER FROM

...

TO JIBCHN+l

•.*************•••*

X

**·***C4**********
Move JIB
*

•

*

********.*.**.***

x

~

* PO!
NTER FROM
•
CURRENT LUB

•

*****c 1****** •• **..

*SCNJ IS

**********•
******B5
MOVE JIB

*•

FAVP IN
WRKRG3

•

..

..
MOVE JIB
.. POINTER FROM

X

*****84*.********
** ADDRESS
LOAD THE
*
OF
*

..
..
..

.*
oo*

*****G5**********

YES

.* ...... .

• NO

*

*
*

MOVE JIB
POI NTER Of
•
'" FIRST JIB IN
• CHAIN TO fAVP

**
•"'*****************

*H2

r~EE~mC~ASRm~S¥HE IM~T

X

ROUTINE.
THE RESET ROUTINE
IS USED FOR RESET STATEMENT
PROCESSING AND AS A SUBROUTINE FOR OVCON STATEMENT
PROCESSING.

.****Hl*·*****··*

STOREO STO *
*OSET
LUB FLAG OFF *
..
IN JIB+2
•
*
-BIT 0•
***.********.****.*

X

GETJIBI

****"'H4******·***

* POINT3,
LOAD REG
,..
WITH •
**' ADDRESS
OF
*
NEWlue
...

*

**.*.Ift*************

.* ENTRY*.*. *. NO
•• FROM THE
-.RESET ROUTINE oo* ••••
*H2

* .... * .*

*

.. *

J4

x

****

YES

**

*

.* . *.

* RESET

ROUTINE

*****J5******·***
...

OF 1ST JIB

**

..

FROM WRKRG4

..

.. LOAD THE ADOR

*CHA I N IN POl NT3*

**************** ••*

:oo .... oo.oo ••••

D2 ..

i<
*****K4****·*****
LOAD REG
*
POINT3 WITH '"
ADDRESS OF
...

:GETJIBSW

X

*

• ••••• ****.*****
*K2
*

*K2
RETURN I S to THE RE SET Roun NE
SY BRANCHI NG TO THE AODRESS IN
UNKR3+4.
THE ADDRESS OF
RSTST04 1 S SET IN L1NKR4 AS A
RETURN TO THI S SUSROun NE.

*
*
*
*
...

LUBAD

'"

•

*****************

: ....... oo .....

,..
•

X

.* sw * .. *oo
YES.*
•• oo.*. GETJIBSW
.*
*. *. ON
.*
*E3 .*
....
*
* NO

•*****

•••• K 1*****.***
•
RETURN TO
*

LAST JIB IN
NEw CHAIN

•******************

x

x

• 0.

J1

*. *.

x

**'"
**H 5 **"'* **** **
... MOVE END OF •
CHAI N FLAG
*

*
..
*

...

x:

X
****K5 *********

*

RETURN TO

CALLING SEC

*

'"

*****************

x:x

*..."'***
•
85 *

*.*** *

Charts

141

chart RF.

$JOECTLD - Miscellanecus sutroutines (part 6 cf 9)
Refer to Charts C8 and C9 •

•••• Al . . . . . . . . .

••

•

SFPPE
••••••••••••••••
••

•• •••
KG ..
.. H2 ••••
• • ..

....··83···••••

X

SFPPE

SFPP5A

••••• 81 ••••••••••

• HOVE THE PUB
.. POINTER TO
•
LUBCOH FROM
•
NEWLUB FOR
•
CDMPAR I SON

•
..
*
*
•

•

*o

X

.. *

seT

•

•
*.**
C4 •
•
*••••*

1:

.. ..

X

SFPPE6

.*

•••

.* .*

*.*.

o YES

C4

*. *.

*.. . .YES
................. .
0
*. *•.•
.• ••
I~
CLASS

• NO

x

.*.x

D3 .*. ••
04
••
.•
•.
.* IS *.
*:.*. R6~SW .•·:*~~ .. x•• ~~.:·PulH~~6RAtN*:*
*. OLD PUB .*
*•.•..**
**...•
.*
• YES
• YES

X

••••• 01**·.·· ••••

..
seT WRKRG2
..
• TO A 1 TO STAR T*

*
•

••** •••••••••••••0

••••

•

.*.

••

*•••••••••••*
••••
*KH"
..
.. E3 •• X.
••••
•
*
•
SFPPEZ

·KG"

•

NO
•••• *. HAVE EQUAL
••
*. POINTER ••

..*

•
SCAN AT
• BEGINNING OF
*
LUB TABLE

1:

.* C3DOES * •*.
.* THIS LUB *.

*..

RETSW
ON

•

X

SFPPE5

•• C1 •••• •••

• ..

*

OFF

PRIMARY EQ
SWITCH

•••••••••••

•••••••**•••• *•••

SFPPEl

X

• TURN

··.·*El··*.····..

.*.**E3****··*·*·

SCAN
0
CHAR IN*
CTYPE FROM
*

:

:ToREI~r~NG

: :

•**** •••••••••••••0

** •• SE~UENCE
••
.G2
••
*•
••
******.****** ••••

X

x

WRKRG2

..

X

PUBMSK

*****E4******·***
*R
ESET PUBOWNER *
*BIT FOR CURRENT.
PART! nON
*

*
•*'
*
.G4
••••*••••••••
***....

: •••••••••••• x~

·····F1·
•••••••••
*-*-*-*-*-*-*-*-*

*SCNLUB
..

.

•
•

••••*.*•••••••••*

Gl

.*.x

••

NO .*0; L5~~ 0;· ••
.....
*.*. CLASS
THIS
••
.*
*. *... * .*
x

•..••••
83 •
..

*•• *.*
S FPPE4

.. ..

....NO•*..**.

x

••••*

.*.x *.

RETSW

ON

*. *••• .*

OG2
lHI S RETURN TO
THE CAlLI NG SEQ
INITIALIZES LINKR4
TO RETURN
CONTROL IN 1I NE.

1:

X

*·*·*G3·*••
.OUTPUT

·.*·*·

••

o C4 ..
..

X

····Jl*········
•••••••••••••••

•
RETURN TO
•
•
CALLING
•
.JZ•
• SEQUENCE

DOS/VS IPI and Jot Centrel

•
•

••****••***.****.

******
*' C2*

• YES

KB.

.-*-.-*-*-*-*-*-*•

* CLEAR OUTPUT
AREAS TMODE
•
*
AN~ TCMNT

.KG

*•••

••

CIt*

• *
*

SFPPE13

YES

:•••.••••.• x:x

••••••

142

•••
**
*KG •
••

1:

* YES

HI

.*.

X NO

..

WORK AREA
JIBCHN

F3

IS
••
.* .*SSBlISTlO
'.
•••••••• T~mnNT ••••
*. * •• * .*

KJO

HOVE tUB TO

*
*

.tNC'~

x

X

*oCONJROL
STORE
..

··*··05*
••••....••
• CLASS
BY 1 •
*'• EO -POT
NTI
•
+ 1 •
•.*.*.*'POINTl
•• ****.*.*••

..

.. F3 ... X.

••• ** • .
SFPPE02
X
*

X

SFPPf1

*
SFPPE12

*G4
THE MASK FOR RESETTING
BY AN AND INSTRUCTION
IS STORED NCMASK

*****

*KH 1:
E'3.

1:

o •

*
SFPPF3

Chart KG.

$JOECTLD - Miscellanecus Subroutines (Part 7 cf 9)
Refer to Charts 08 and e9.
.*••
"'3 •
•*
••• ••••

.•.x

.*

••••

···.·83··.······.

•

* ASS I GNMENT *
* FOUND SWITCH *
STDFOSW,

•

*••••
*KF *
• G3_
*.. •

•••••••*.*. *
ON.

X

•
.TURN

.................
••••
*

OFJI8

· ..

•

•

•

OFF STD *

. •••••••••••..
FOUND SM,

STDFDSW.

•

•

•

*. *.• * .*

·..••••.".

•••* * YES

•••••••••••••••

••••••••
*MOVE THE STORED"
• STD LUB FROM 0
•
SSTDLU8 TO
..
o
WORK AREA
•
•
JI BCHN FOR
•

TRANS tENT

••

*. ACTIVE

*.

••••••

.• ."

* •.
*
• YES

.................
·
.. CL EAR
•
AREAS TMODE
..
AND TMCNT

.

•

:U~b~TKarE~H~~AN:

* IN WRKRG2 AND.
•
DOUBLE IT
*

*KF •

.. El •

.. ..

IS
••
NO
*. TRANSIENT ••••••
". ACTIVE ••
... SSBLSTI 0

•
*

·.*.

SFPPE201
X
••••• F3.·. . . .
* LOAD LOGICAL

x

.*

*-*-.....*
OUTPUT ..

• -40-......-41-

*.

•

LUBCOM FOR

•

•

x
·····04
•••
···•··•
.-*-.-.-.-.-.-.-.

:SFPPE15
.SCNJIB

KJ.

.GET AODRESS DF •

JIB
•
••.. •••••••••
*•••••••

.. ..
.. ..
END

••

OF JIB

CHAIN

••.
*
• NO

•••x**

•* •*.

•

D3 :

E4· ... • ••

.................

G2

*•••
.. NO

J IBCHN FROM

•

••

••••••**•••••••••

X

••••• Sl •••• • •••••
• OUTPUT 2
KB.

....
....

x:

YES.

·····CIt*••**·.··41*

•

••

... -

.*•••f2.~

*.

RET~~.* ••••

SFPPE13
X
o
MOVE THE
•
*CURRENT LUB TO

...

x
:;;;;:;...E2·:t ••
El
*. ••
.*!HEIS~TD •• •• NO
•
*
END
•• YES •
*..0•• JIBS
OF
.* ..... . • .0
•• ~SSe~TCaUN~ •••••••••••••••••••••
.*
*. ON ••
*.
.*
*••
• YES
* -NO

.•.x *.

PETURN

• •••••••••• x•

X

*

*

•
JIB
•••••
."•••
**•••••••

•••••*

••

AL T SCAN
••••••••••
*••••••'"

•• •• 03·· . . . . •••
•
RETURN TO
•
• CALLING SEQ ..
*J3
•

FI
•• IS
••
•• UBLSTIO •• NO

.. ..
....

• .~~ITt~N

..

• 03 •• x.

•

OF

C3
*.
." •*ENTERED*••• NO •
*•• ~R~~U~ 1~11~•. * ........

SFPPEll

KJ.

GET ADDRESS

.*

.'.

• E4 •• X.
••••
*• •

.•.

•.•••
01······.···
*-*-*-*-*-*-*-*-*
•

*

x

01 •• x.
.
•• •••
** .x
. •••••••••••••••••••••••••

SFPPE8
X
• SCNJIB

!HE:
LD
•

B4

•·KF"
•••

X

SFPPE12

STDRED.
LUB IN*
FROM *
AND I *

RS,.

WOT

••
•• .!*
01 •

X

SFPP EBB

••••••••• *•••••••

·.C2.··•••••

..•..Cl.······**·

MOVE

Al;b~

:
•
..

*.

•. • . *YES

X

X
**81*·****.
*SET THE STD*

• SAVE THE
*STANDARD
• SSTDLUB
• BYTES 0

.. ..

• YES

SFPPEIO

•

*.

*.

*. * ... * .*

*• 81 •*
****. *

•

............ ;;

:SFPPEI9
.* •
A3
••
A4
•• DOES ••
IS
•• SSBLSTIO •• NO
•
.0 THIS LUB
ND
•• TRANSIENT ••••••••
•• HAVE EQ PUB ••••••
•• POINTER ••
". ACTlVE.*
X

••*

SFPPE02

X
••••••FIt••••••••••
•
•

MOVE THE

•

•

JIBCHN

•

• lUB TO LUBCOM •
FP"OM
•
•

•••••••••••••••••

····F5.··•.•.•·
it

•
...
..

RETURN TO
CALLING
SEOUENCE

•••••••••••••••

•
•

0

x
·.*.·G4*.*···
•••·•
*

:SFPPEI6
III

•
•

•

*•••
• YES

*. YES
.* ••••••••••••••••••••

LOAD THE

ADDRESS OF
THE FAVP IN
WRKRG3

•

•
•
•

•••••••••••••••••

• x•••••••••••

X

SFPPE8A

X

••

*. *.STORED
STD
••
lUB ••
•••
*

YES
••••••

x

•• ••••
•
81 ..
••••.

·

• NO

....x

*. *.
.*JIDOES
NO."
JIB
••

• ••••

x

••• *

•* 01 ••
••••••

CDNTAIN

•• AN ALl ••
*.ASSGN.*

*..
* *YES

x
••••••
*•••• *
•

A3 •

••

X
·"··H4
•••••••••
*
• COMPUTE FREE •
** JIB
P01NTER •
AND STOPE

····.H2····.····.

•••

.* HIDOES".*.
•• J IB CONTAIN".

*MOVE CHARS STD 0
OTO THE COMMENTS.
•
WORK FIELD
•
•
TCMNT
•

.................
0

ix•••••••••• :

•·KF
•••••
• 83·
•o•

SFPP5A

IN FAYP
*K2

•
*

••••••••••••••••••*

•
...

x

..*•.

•••

·J3
THIS RETURN TO THE
CALLING SEQUENCE
INIT lALlZES L1NKR4
TO RETURN CONTROL
TO S FPPE8.
THIS CHART BLOCK Dl

.K2
I. THE FREE JIB ADDRESS IS LOADED
KRG4 FROM POI NT3.
2.
18 TABLE ADDRESS I S SUBTRACTED
WRKRG4 LEAVING THE FREE JIB
ACEME NT IN WRKRG4.
3.
ISPLACEMENT IN WRKRG4 IS DIVIDED
4. THE Rl~u~m'r°~oI~~EkR~~ ~tMgI~ER.
FAVP FROM WRKRG4.

SFpoEl7

J5 ••••••••••
.*J4ODES •• *.
...ZERO THE FIRST.•
•• JlB CONTAIN •• YES
•• A STORED
•••••••••• x* THREE BYTES 0
*. •• LUB
ALl.*
OF THE JIB
•
*III•••••
*. .* .*
_...........•.

....

o NO

_x

.KH III

X

• *.*.K4•••••••• **

•.ZERO
•
•

•

THE FIRST.
THPEE BYTES •
OF THE JIB
•

• Fl·

••
•

SFPPE03

•••••••••••••••••••
Charts

143

Chart RH.

$JOBC7LD - Niscellanecus Sutroutinee (part 8 cf 9)
Refer to Charts 08 and 09.

•••• Al •••••••••

**

UNPA

•

•*••••• •••••••
$

~.*

. . . . A2 •••••••••

• ••• Al . . . . . .• ••

UNPA3
*•••••••••••••••
•*

•.. U!lANEr.T ..*
••••••••••••••••*

••

•

••••••••·•
*• -·.·A4
* GETPBOI/N •0

...............

·_.....:.x..
•• t.

:x .••••.•••••
UNPA

X

*·* •• 81··***··***

•
LOAD WRKRG3 •
.W ITH THE ADDR • •
• OF LUB TO BE •
:
F~~~ IEtl~~D

:

***********••****

x
*.*.*C
• 1*.*****.*.•
•
•

SAVE THE
LUB IN

•
•

LUBCOM
..
••• *.****.**.**
•••••

:

X

..

****e2·········•

·····C3··········
.-*-*-.-.
-*-*-.-.
*

••••• 82 ••••••••••
•
I NlTlALl ZE
•
•
SSTDLUB
•
..
FOR
..
•

UNASSIGN

..

X'FFFF'

UNANENT

•

••••*••••••••••••

••

UNPAl

•

o

•*

•

•

•••••••••••••••••
:X •••••••••• :

....

•

•
•

•

····E4··.······

*

X

KA*

COMPUTE LUB
ADDRESS AND
NO. IN CLASS

•
..
..

*
•
•

••***.... _•• *••••

RETURN
TO
CALLER

•
•

••••••••*••*••• •

-....x *

• * •
••••
••• **Fl ••••••••••
•• ZERO
•
..

*KF
• 01·

X

REGISTER
POINT!

.

K

*GETLAN

LOAD

*
ADDRESS OF
•
'PUBOWNER BYTES
•
INTO WRKRG4 *
•
.H4
III

····*E3··········
.-.-.-*-*-.-.-*-.
*

SFPPE3

•
*J3
•••••••••••••••
**..

YES

X

•

•
•
•

..*•••••••••..••..•.•

••••
·KG"
•
.. J5 _.x.

*.
•• *.... .* .*

·····04.••••••••.

SAVE PUB
POINTER IN
OLDPUB

* *

X

*.

*.·•** .•03······.···*
*

• HOVE CONTENTS.
•
OF SSTDLUB
•
•
TO CURR ENT
•
•
LUB
..

.. .0. ..

DOES
NO
• .lUB POINT TO ••••••
••
A PUB

•
•
•

.KF.
•
.. 05 •• x.

••••• e1*****•• *••

•

x

X

•
•
•
*
•

•••••••••••*** •••

•
•

zl~o

C4

•••••••••••*•••••

····.01··.•••••·•

SFPPE03

SET WRKRG4

•••••••••••••••••
•
*

GU •

COMPUTE PUB
POINTER IN
WRKRG4

•
•

••••••••••••••••*

X

*
LOAD WRKRG3
* WITH ADDRESS
• OF LUB TO BE
*
ASSIGNED
•
FROM LUBAD

•
•
·····B4·····**···
:
:

X

.CHKASG

X

GETPBOWN

•••••••••••••••••

:X •••••••••••••••••••••••• :

UNPAl

83

X
*• ••••
B3·· •• • •••••
ZERO WRKRC4. •
• LOAD THE ADaR *
• OF LUBCO" IN *
WRI(RG3
*•
*•
.K3

UNPA3

*•*

SFPPE2

•
•

•••••••••**.*••*•••
x

•..••93*. ..*
••••*•

*H4
WHEN GETPBDWN IS CAllED,
WRKRG3 POINTS TO A LUB.
IF THIS
LUB HAS A PUB POINTER, THEN
WRKRG4 IS LOADED WITH TH~ ADDRESS
OF THE 1ST OWNER BYTE FPO THIS PUB
120 OWNER BYTES/PUB)

*J3
1.

2.

IF ENTERED AT UNPAl
THE LUB IS TO BE
UNASS IGNED AND
SSTDLUB CONTAINS
HEX FFFF.
IF ENTEREO AT UNPA THE
LUB IS TO BE ASS IGNED
AND SSTDLUB CONTAINS
THE STORED ~T ANDARO
ASSIGNMENT-IF NONE
X IFFFFI •

*K3
WRKRG3 CONTAINS THE
ADDRESS OF LUBCOM.
LUBCO"
CONTAINS THE OLD LUB

f~~T S~iRWT r~EUl~~A~~3.

144

DOS/VS IPL and Jot Control

Chart KJ.

$JOBCTLD - ~iscellanecus sutroutines (Part 9 cf 9)
Refer to Charts C8 and 09.

.••.Ai········.

*···A2·········•**
*

•

••
SCNLUB
*
••••••**•••**.***

SCNLUB

•

X

•

••

*' * SET
SWITCH * '"
EOlSW ON,
,.
•

TO INDICATE

.END OF lUBS.

*..*••

*

*•• ***** •••

*• *.**••••• **** • •

•••••••••••••••
.*.X *.

SCNJIB

• *81******.

•• *••*A3***······
••
CHKOPN

SCNJIB

....

·****63*·****····
DFB CTR *
*••• INIT
TO 1 IN REG *
POINT 2
*.*****.***-*•••• *•*

*. *.

POINTER ••

*.

NO
••••••

.*

.. YES

x

·*·**C2***·*·***·

* COMPUTE

AOOR

.. OF JIB. - JIB

..
•
OF LUBS OF
•
THIS CLASS
.BE CHECKED, IN •
..
WRKRG3

*
*
*.*.********.*•••

..

POINTER X 4

01

*PLUS JIB TABLE
*
AOOR** ••••• *•• *.***••

x
.*.
*.

X

X
*****C3**********
* LOAD POINT1 *
* FROM POINTZ *
* AND MULTIPLY *
* POINT! BY 4 *
******************
*E4
*

•·EI··•••••

x

X
*****04*********
RETURN TO
*
* CALL ING SE~ *
•
*
.**************

***** 03 ** *. **** **
LOAD THE ADDR *
*
* OF OF B TO BE *
'" CHECKED IN *
*POINTl
*E4*
•••• ****** ••*****
*E4

X

2 ********.
**.**E
RETURNI NG TO ..
CALLING

·*.*** ••• _•••SEQ**••*.

***********. *

X
.*.
*•

X
*****C4**********
*LOGCHK
GL*
*-*-*-*-*-*-*-*-*
* seT SYSLOG
..
** ASSIGNMENT
'"
SWITCHES
*
**"'****-"'********

*'"

•**** *

X

.SET SWITCH ..
• EDlSW OFF,
..
•
-NOT END OF
*
uio:S'"

B4

NO.* .* LAST "'. *.
. .....
*. *. CHECKED
DF8
.* .*
*. * •• * .*
* YES

CHKDPNl

**•
*•

··***oz·*·*******
•
MOVE STORED
•
*. *. YES
* LUB TO Jl6CHN *
*FROM JIB BYTES *
*..* WRKRG3
EQUAL
.* .....
*
0 AND 1
*
*. *. 0 .* .*
*
•
x
**•••• *******.**.
* •• *
* NO
•.. **Kl••**
:x .......... :
•*

CHKOPN2

:x .......... :

X

*****c
1*******.*...
• LOAD THE NO.

X

CHKOPN

82
IS
THERE A
JIB

****
** 84 *_
*
•
****

X
*****E3 ******.*"'*
'"
LOAD LUB
*
*POINTER FOR THE'"
* ASSOCIATED *
...
~ " "'f;.k. ... GI.
...
*
*F4
'"
*****************

THE RESULT IS AN INDEXING VALUE
IN REGISTER POINT} USED TO SELECT
THE CORRECT OF8 ADDRESS •
THE DF8'S APE CHECKED IN THE
FOLLOWING SEQUENCE
LGO, LGI,
LNK, lST, PCH, IPT, RDR.

*f4

X

X
*****F3**********
"'CHKASG
GU *
*-*-*-* -*-*-*-*-*
ASS IGN- *
**.. CHECK
MENT FOR THIS.
UNIT
*
*****************

*• ••••
fl**********
LOAD WRKRG4 ,.
• WITH ADDR OF ,.
•
NEXT LUB TO
*
..
BE CHECKED
,.
•

FROM SLADO

..

•••• ******.******

x
.*. *.
G3
.*
* .. *. NO
IS
*..**.ASS LUB
.* ..•.
IGNED .*
*. * ... * .*
* YES

X

1*********.'"
**.***G
MOVE THE LUB
.. TO WORK AREA, *
..
..

*

JI8CHN
-2 BYTES-

•
,.

•

*****************

*
**
*•• ******** ••***.**
X

•
•

•

*

RETURN TO
CALL ING SEQ

*•

···O.············LGi·:

···io····· ·······lNK·:
···06············lSt·:
.oo ·04··· ....... ·peA·····
:·oi············jPi-···
···00 ........ ••• .. •••• ROP":

X
*·***J3**********
** SET OPEN FLAG *•
* OFF IN OF6 *
* FLAG BYTE *
*****************
•
*

••• *.J 1*.***** •••

• OECR WRKRG3 BY •
1 TO INDICATE

*

DFB

x
.*. * .
H3
IS
.*
.* THE DFB*. *. YES .•
*.FOR THIS DEV •• * .. X •
*. *.COMPARE
.*
CUU .*
* ..
• *
NO

X

•• ·*.Hl******.***

.INCR WRKRG4 TO
.. PO INT TO NEXT '"
• LUB. SAVE THI S
.. AOOR IN SLADD

.NUMBER OF LUBS *
• REMAINING AND *
* SAVE IN SNtCL ,.
***********.*****
.*.*
** Kl '*.X.
.
*.*** •
X
•• **K 1**.******

LUB PO INTER

···08············lGO·:

*K2

IF THE LAST PUB OF A CLASS

~~STSEf~EP~gm~~Dllm~~l.
IF MORE LUB'S ARE TO BE

PROCESSED. RETURN IS TO

:Xoo .......... :
x
****
* B4 *
******

•

•

LI NKRI +4.

.K2
••••••••
**.**•• ,.

Charts

145

Chart 1<1<.

$JOECTLD - SYSxxx Operand Processor
Refer to Charts C8 and C9.
****

••
*A2
1.
2.
3.

•...Al.········

4.

SYSXXX
••
*
• ........ ~*$* •••• *. *

SAVE

SCA~

POI NTER
~Rm~ ~Q &?INT2.
WRKRG3 EO TABLE
ADDRESS LESS 5 BYTES.
WRKG4 EQ ENO OF TABLE
ADDRESS.

*A3

1.

2.
3.

••• ** *
RESTORE THE SCAN
ROUTINE POINTER

\'~t~I~ENf"~MnN~~ •

3 BYTES TO POINT TO
xxx OF SYSXXX.
SET POINT3 TO A 2
TO INDICATE A PARAMETER LENGTH OF 3.

.*

x

**
:.~~~~~*=~~*~l~*:

*

.*.x

Dl
*.
.* .*OPERAND*oO *..*NO
•• LENGTH EQ
................. .
*oO
6
.*
*. *oO .* .*' YES

***.

X

*•• **el**********
•
INIT REGS
*
• FOR SYS TABLE <
...
LOOK UP
...
•
*A2
*

•
*A2*
•••
***••*********

'-.ox.
... .

SVSXXX2

X

•••*

*'

•••**.*.**.******
X
••• **G 1**.*** •• *.

••

HI

*****05 **********
*CH KA SG3
GU *
*-*-*-*-*-*-*-*-*
.. COMPUTE PUB *
• POINTER IN
*
'"
WRKRG4
•
*.***************

E4

X
*****F4**********
* LOAD WRKRG2 *
*WITH THE BINARY.
*VAlUE OF XXX TO*
•
BE USED AS
'"
'" DISPLACEMENT *
*.***************

YES

•
X

SYSIN
*K3 *
•******************

x

* ••
*
• NO

•<**** ••*

**

'H3

•._***************
<

2•

CLASS

.*
•. *. y~S
*.. ENTRY
FOUND
.* .....
*. *.
.* .*
oO-

x

*..•
* NO

•*****
•
E3 *

X

*****JZ**********


X
*•• *F5*********
RETURN
•
TO
•
CALLER
•
***************

•

*J5
THE SVSCLB LUB IS NOT IN
THE LUB TABLE. IT IS
FOUND BY SUBTRACTING
(PIK/8) FROM THE PIBX
AOOPESS. IF ASYNCHRONOUS
PROCESSING IS NOT
INCLUDED, WRKRG2 IS
I NCREMENTEO BY 16
TO OFFSET THE
EXC LUS! ON OF AN
ALL BOUNO

• **** *

X

*
*
..

x

•

'POINTl TO ZERO>
•
FOR SYSTEM

***.

*****
*KM *
'" 61*
*
/LUS

*.**
*
•
* A5 *
****

X

.. A4

x
J 1 .'. .oO

YES

*'" MOVED
TO THE *
FIELD NEWTYP *
*******************

*****HZ *•• ***.*.*
.. INITIALIZE
•

*

*

X
*****E5
..
SAVE**********
PUB
*
..
POI NTER AND *
*
RESTORE
•
*REGISTER POI NT4*
*
*J4
..
***************••

*****G4*****·****
•
>
* HEX 8000 IS *

:X •••••••••••••••••••••••• :
*oO

xxx * . *. NO
SYSTEM .* ....
*K4
.• .*
x
*..*

X

·****G3******.***
•
SET lOGICAL •
*UNIT TYPE FROM *
.TABLE, ARGUMENT.
** PLUS
3 BYTES , *
IN NEWTYP *
***.*************

•

SYSXXX6

X

x
.".
*.

X
*****f3**********
SET
*
*** DISPLACEMENT
IN WRKFLD2
*•

SVSXXXOI

*

*..*oOYE-S
•••
.* .-

END
T48LE

X
*****04*********·
*GETlAN
KA*
*-*-*-*-*-*-*-*-*
* COMPUTE lUB •
*ADDRESS AND NO.>
* IN CLASS *H3*
*****************

.*
*..**. IN
*.

•

IlUS

INITIALIZE
<


lit

X

••

X
*****G2**********

*'< OISPLACEMENT
SAVE
**'
*' fROM
WRKRG2
•
IN WRKRFl02 <
*••** •• **.** ••••••*

**

*****(5**********
*lNIT
REGISTERS *
*
WRKRG3 AND
..
*WRKRG4 FOR THE.
*CHKASG3 SUBATN •
*
*J3
*
*****************

*. •• NO
.. *•* IS
*. •• SYSOUT
UNIT
.* .* .....
*. *.• * .*
*

.*.

•
INCREMENT
<
*TABlE POINtER,
:
~SKm~TBto :
•
NExT ENTRY
<

.'.x *oO

.* .••

WRKRG2

*****C4**********
0; SET POINTl TO *
*A 1 TO INDICATE*
** PROGRAMMER
CLASS
*'"
>
*
*****************

X

E3

F2
*.
.* OPERAND *. *. NO •
*..*EQUAL
SVSI N .* .. x.
* toSYSPCH
0002 FOR ..
*. *.
*
.* .*
x ******************
*••
*
* YES
*****
*KM *
:x •••••.•••• :
*<81_
•

•••·.Fl****.***••

oOt

*.
.* ....
.*

x

..

*.oO* OF
*. *oO

SYSXXX3

*•• *
* YES

••••
fl

...*'

x
. *. *.

E2
•• OPI:RAND •• NO
' . LENGTH EQ
'5
*.CHAR .*

.*
*.

.

***** •
*... E3 •

POINT! .AND

X
*****65
*********.
* COMPUTE
LUB •
'" ADDRESS OF
*
*SPECIFIED UNIT *
*1 N WRKRG2, LUBAO*
*
*C'3
*
****"''''*'''******'''*.

X

***.*C 1•• *******-*

·

*

*****************

*****84**********
*NUMCON
KA *
**-*-*-*-*-*-*-*-*
CONVERT XXX *
*'" BINARY
TO
*
*
*****************

•

* LOAD REGISTER
*
POJNT4 WITH *
*THE ADDRESS OF
THE lA4ND

SYSXXXI

*

it

.*.
Bl
'.
OPERAND*oO ' . NO

···*82********BRANCH TO
*oO START WITH .*, ...••. .oX.
NVSERR IN
*'*
... *...*
svs.*
• ••••SJOBCTLA
*••••• _••••*
*oO .*
*' YES
.*

SYSXXX5
X
*****A5
'" SAVE **********
SYMBOLIC ..
**1
UNI T ADDRESS *
N CLAQRO FROM *

SYSXXX4
X
*****A4**********
* SET REGISTERS *
*FOR THE NUMERIC*
* CONVERSION
*
..
RnUTTNf
*
*
*A3
*
*****************

i

SY5XXX

****
*** A'S ••*
****

*

A4 •

>K3
WRKFl02 EQ 0
NEWTY P EQ HEX
0003.

*K4

THE BINARY VALUE OF XXX
MUST BE EQUAL TO OR LESS
T HAN

THE NUMBER Of

PROGRAMMER UNITS AS
SpECIFIED IN NOC. THE
NICl VALUE.

P!B~.

Chart 1(1..

$JOEC~LD - EXCP S~brcutines
Refer to Charts 08 and e9.

••••••..
•..•••• A1··.·
excp
•••••••••••••••• *
X

EXCP

••••• Bl •••
•

*

•
•
>

>
•
>

• ••• A4•••••••••

>

>

EXCPROG

•••••••••••••••>

EXCPROG
X
••••• 84 ••••••••••
MOVE DENS lTV >
> FROM PUB TO
SET MODE
*
..
teN
..
>
>

*** •••••
>
*

*
*

SAVE RETURN
AOOR ESS IN
LINK SA

•••••••••••••••••*
>

*

•••••••••••••••••

...·A'·······.·•

**

*>

EXCPROGl

•••••••••••••••

EXCPROGl
it
• •••• 8S ••••••••••
•
:

MOVE DE~SlTY
F~~~ =OBE TO

•
:

•

ccw

..

*•••••••••••••••••*

>e2

1. STORE CCW ADORE SS

•••••cl.i••••••••

•*

•*

UPDATE
41
SV5tN OIF
•
*-IJSYSIN- >C2 *

•••••••••••••••••••

AN DTF+8 FROM
2.s~3UT~MoLIC

i

••e5 ••

...........•

.. ..FO=O~~A~5~rm ....

m+~R~~~~ IN

•*

REGISTER 1.

EXr;PROG2

04

•*

*.

>•

*•• *
•

X

: :

EXECUTE

:

.•.xx ••••••••• ,•••.•••••••••••••••••••••.•

Fl..

• ..
"".
Wt,6
U.···
...
•••••• , ••••••••••*
" •• 'F 2 ••••••••••

NO

...

·'1~0 CDMPLET~* •••••••••• X: :

fVC 7

~gR

COMPLETE

YES

Bi~scg~F

:
•*

..................

•••••••••••••••••

•

•

~O

••

41 41

•*.*....•.
...*
•• •*

.:.!~~ .............. .

.• .>

••• **E4.*.*.**.**
SET CHA IN
•

•

...

SPE~}~leD : :

• ..

••

X

*·*·*El.·
••*·*·. ••
41
SVC 0
..

•

• ..

,.

•

•

·•xx......................... ..

•••

•:.O. TA~~AI~K
COMMAND

....

*·••'*

*MOOI FY SET

X
.** ••SET
E5.'*•• *••••
CHAIN
•

EXCPPOG3

•

: n 2cS
T

N

..................•

••

:

>

·• x•••••••••••••••••••••••••.
eXCPROG4

X

.·.**F4*'
••··*.·*>
•

•

INITIALIZE

•

• REGISTERS FOR.
•
EXCP

.F5
•
••••••••••••••••••
•

X
.*
•••G4****
••••KL*
**
OEXCP
.....*-*-*-*-.-*-.-.

:
SW~mD :
..•••••**~*
'4'0•• *.*•••*

X

••
•

..... Jl •••••••
RiTURN
A~L1N TO
UENC

**
••

•••~ i ••••L••••

Charts

147

Chart KM.

$JOBCTLD - Error Suercutines
Refer to Charts 08 and 09 •

*

TO
KHBt:
_. JAC 3, JAF2
• • JCC4. JCG4

..

ILUS

....
..

JSHI. JSJl

JSJ3, KKE"t
KKF2

X

*.* ••• REFE1\ENCES
TO
KMB31

*** •• REfeRENCES
•• ••* TO
KMB2'
JOE2, JHK3

••••• REFERENCES

•

•

INOVTP

..

•*

JKElj JS04
JSEl, JSG2

X

TXCUU!&8

:* JlOl.

•

X

*.*.*

****.*

*JF ..
F2·

*JL
.. EI.

*
***

••
•

KCf2

IVOS

X

X

SFNC

*****B3****** ••••
*****82**********
*******•••..
*****81*···*****·
..
POINT TO
..
POINT TO
•
******84*********·
POINT TO
..
..
POINT TO
*..
*'*·****B~
POTNT TO
ERROR
..
..
ERROR
..
ERROR
..
..
*'
ERROR
..
MESSAGE
..
MESSAGE
..
..
MESSAGE
..
•
MESSAGE
*
*
MESS AGE
*
-lA2ND..
..
-lA5ND*
*
-1 AqNO•
..
*
-lA7ND*'.. -lA4ND..
..
*Fl
..
*Fl
..
..
*Fl
..
..
*Fl
..
*'
*F 1
..
*****•••***.* ••••
***.*******.****.
*.***************
*****************
*****************
•
x
x
x
•
•••••••••••••••••••••••• ••••••• " ••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••• x•

•

EIH~OR

..

.••.••.•••••. x:

X

ERPR.TN

*****C5POtNTER
******* •••
TO*

*~AVF

'"

•••• * REFERENCES
*'" ••'" JAH3,
TO
KHDl:
JlFl
'" '" '"
T IAERR

X

***••POINT
01******····
TO
'"
ERROR
HE SSAGE
*'"'"
-lA6ND-

'"
'"
'"
'"
'"

*********Fl
•• *** ••••*

*****
REFERENCES
TO
KMD3:
*'" * ***'" JBF2,
JOG3
JEB2, JEHl

*****
*•

*JL '"
'" Gl.

•

JlJ2
CNIOAG

*

i<

·*·**02** ••• ***.·
'"

POINT TO

'"

'"
..
'"
'"

ERROR
MESSAGE
-lAIND*Fl

'"
'"
'"
•

•••****.*.*.*** ••

X
*****03****** •• *.
* POINT TO
*
..
ERROR
*

FNIOAG
..

*

MESSAGE
-IAOND-

..
..

*
*Fl
*
******.**********

'"

'" Dl SPLAVEO IN'"
'" WRKFlDI FROM '"
'"
POINTl
•

*****

••* •*.•

JGOlt JGG3
JGJ2, JHE3
JPH4

MESSAGE TO

.

• REFERENCES'
KM04: •
• TO
• JHG3, KEE4·

X
*****04**********
* POINT TO
*
ERROP
*
*
* MESSAGE
..
-lA3ND*
..
..
*Fl
'"
*****************

NQMRJB

•

********>t.**.*•••

.

x
'.
... 05 *. *.
NO .. *
8
*.
. ...
*. *. TRANSIENT
AcnVE
.* .*
*.
.*
*•.
*
.. YF$
X
*****E5
*********
..
*LOAD WRKRG3
A~ *
"POT NTE R TO LOG-*
*ICAl TR.ANSIENT *
.. BUCKET IN THE *'
* ATTENTI ON PUB ..
***********'**** ••

'Fl

:MESSAGE":"" oEseR iPT iON ..................................... ..
: iAOND ............ iNvALiD" i io" ASSIGNMENt"" ............ ..

X

*****F5*******··*
.. MODIFY PSW IN ..
.. SAVE ARFA TO
.. FORCE RETURN
..
TO ERRRTN2

:iAiNo······ cONFliCtiNG'i in' ASSiGNMENT·····
:mNo"····· iNvAlio 'oEvicE • TYPE ••••••••••••
: iHND····· 'No' FREE' jiB s······"········"···
:iA4NO······ iNvALiD 'loGiCAL "uNi T' sPECiFic::
: iA 5NO······ OEV iCE 'NOT' DEF iNED' .••••••••• ".
: iA6ND .......... ·uN ii ·cuRRENll y·uNA SSiGNABlE ........
: iHNO······ iNvALiD 'DEvicE' stATUS····"·"···
:WOO···· "SYSTEM 'FilE "OPEN·FAiluRE·······
: iA9NO······ SYSTEM' mE "Nor'ClOsED"" ••••••

•
..

*

•******.********.*•
X

*****G5***·**····
*MTNCNT
GU •
*-*-* . . *-*-*-*-*-*

·
..
..

PElEASE
SYSTEM

.
*..

.. **** **.* **** ***.

X
**.*H5*****·***
*svc
ll-$IMULATE*

.. RETURN FROM 8 *
..
TPANSJENT
*

**************.

: ERRRT"I2
X
*****J5
*********.
*MTNCNT
GT*
*-*-*-*-*-*-*-*-*
*'
RELEASE
•
*'
SYSTEM
*
*******.*.******.
•
*

: ••.•••.•.. x:
E~l)RTNl

*.**K4*********
~~~~¥~
'"
$JOBC TLA
*
***.*****.**.*.

:

148

DOS/VS IPL and Joe Control

12

X

*****K5**********
• REf)TORE REG, •
P~b~~}~pWH;H :
•* BEMESSAGE
TO
*
D1 SPLAYED '"
*****************

:x........ :

Chart I **G2******* •
...
POST
*

ACCNTl

OF
*•
*
.*******.*********
.
•

.*

... BOTH

**
*
...
*

X

*******
• **E5RESET
*
**PROGRAM
MASK '"•
* IN PSW TO •
..
ZERO
*
***********

*
*
*
****** ***********
IM6ND

. *.*
*.

*.

J2

.*. *.

PRESENT

*. *.

*. *•• *.*
•

NO

x

*****
*lQ *
* 04*

• >*

ERROR

DOS/VS IPL and Job Control

.. Bl"

••
•

• .*.* *
*'" G5 •*

****

x

•*****•*

••

*

B5

****

*

'"

•

B4

•

*

***. *

YES

.* .*oo •••

X
.****J3.*********
* GET ADDRESS *
*
OF JOB
*
* ACCOUNT ING •
•
T ABL E
t:

•

•

*
*

x ****************.
**.***
•
B3 *
x
*
•
.***
****
•* H4 **
• *****

X
*****J4**********
** POST VECTOR *•
* TABLE VALUES *
* FOR
LOAD ING
'"
$JOBCTLN
*'"
*****************

X

4******.**
* ****K
BRANCH TO
•
* FETCHR
F IN
**
..
$JOBC TLA
**********.**.*

BRANCH TO
NVSERR IN
$JOBCTLA

B4

****

*•

*'"

•

••• ***.*** •••• *

•

•

X
****G5******** •

*...

****
* H4 *
****

*

PHASE
NAME

*****
*lB *

x
x
.> •
.*. *.
H4
>II.
H3
.*
*.
.
.*
*. *.. YES
RECORD
*..* YES.
.* EXECFIRST
*..**. WR
AlREADY
.• X.
*.
AFTER
nrEN .*
*.
JOB
.* .* ....
*. •.. * .*
*. *oo oo* .*
x
x
• NO
* NO
•*.** *
•"'*** *

•******H2 ***********•
•

G3

x
.*.

* YES

•
X

EX1l5

~EC O~D
~JOBCTLA

**

X
*.***F4**********
*•
SAVE
***
* OVERWRITE
•
STATEMENT
*
•.******.*********•

.* JOB *. *. NO
*..**.ACCOUNTING
.t: ••••
SUPPORT .t:
*. *.. * .*

** OPERAND
FLAG
**
•*********** *

X

*****05*.********
*
**
CAUSE

•

NONE
...
TE . . . . . . . . . . . x*

x

X
**F3*******

**********.

*

SET ERROR
••• x*
COUNTER TO
• ERROR MESSAGE

.* MORE •. *. NO ..
*...**oo OPERANDS
.* ..... .
oo*
*oo
.*
* ...
*
* YES

x

PROCEOU~E

**************•••

X
·****e4**********
>
•
*... ADDRESS
GET OISK
**
OF
... SAVE AREA FOR *
*OVERWR ITE 5TMT *
.******.****.****

•

150

X

*****C5 *.*.**.***
*•
*•
SAVE

****

** INDICATE
SET SVA
*• NO ALLOW
EO

x

****

**.. ..**

****

x

.*.

B5

** seT OFF **•
* SWITCH FOR
* EXEC BLANK *
************
ALLOWED
*

****

* G2

••
>

*-*-*-*-*-*-*-*-*

J1

.* SYSFIL* • •• *.
........ *. *.AVAILABLE.·
SUPPORT
.*
*. *•• *.*
• NO
YES..

.*.x *..

• •• * .AND OVERWRI

•

X
**E3*******

.• .•

CAll

*****H 1**********
GK '"

•••

B5

IS"'..
.* .*PROCEDURE
*.

PROC

OF pHAS E NAME •

*

.****
*LP ,..
• Al*

NO

X

EX150

X
*****(4*·********
ecs's *
•...RELOCATE
AND CCW'S
..
*•
•*
***.************.

04

•
*****************

NOS ET

*SCANR 3
•

******D3**********•
... SAVE LENGTH *

•
*
* B3 ...
****.•

* POST NO **
*** PHASE
NAME
*
FLAG
*
********.*** >

* EQUAL
KEYWORD ,. .. NO
*.•*.
TO
.'*- ••••
PGM
.*
*.
.*
x
* ..
,. YES
****.•
*LQ
*•04*
*
*
ERROR
X
•

****

X

••

*.

Gl .*. ,. ..

*
•
****

: ..........•........•...• x:

x

.*

.>.x

.* PHASE *. *. YES
*..**. PRESENT
NAME
.* .* ....
*.
x
*oo • • NO
*oo*
****

.... KEYWORD *. *. YES
*..**. EQUAL
TO
PROC
.* .* .....
*. * •• * .*
x

EXOIO

•

OPERAND
*
*
* FLAG
•*********** *

x
.* .
*

*
•*•••
85 •
...

•*

INIT

X
*****C3*******.**
*> SAVE PHAS E **
*
NAME J N
*
* ROOT PHASE *
*
AREA
*
****.*.****.*****

**E2*******

*****************

F1

****

x

X

X
*****E 1**********
* SET ERROR *,.
,. COUN TER TO
*
.. ERROR MESSAGE *
..
IM7ND
*

eX005

*•.
* *YES

**C2*******
•
*•

EXOOO

,. .

*.• *NO
* .....

POST

..

B4 _

:X ........ oo •• :

x

.* Dl

oo*

*

•*

X
.* .
**84*******
•*83 HAS * . *oo
.*PHAS E NAM E *. NO
**SET SWITCH **
*oo
CORRECT
.* ....
* ACCOUNT
FOR JOB
*
RECORD>
*. LENGTH .*
* WR ITTEN •
*. *•. * .*
x
*.********.
• YES
> **** •
* G5 •*
>

EX120

X

*****c 1**********
GK

.-.x *. *.

'"'ORE
OPERANDS
PRESENT.

*. *.

*

***********

*SCANR 2

.*

B2

._

****
83 >*
• *.** >
•*

... B2 *

chart LE.

$JOECTLE - EXEC Statement Processor (Part 2 of 8)
Refer to Chart 10 •

•••••
• LA •

•• ••••
•
• B2 ••
.*.x

"

·*-*-*-*-*-*-*-*-*
...·81··········
X

• MTNCNT

PELEASE
SYSTEM

*.

82
.'
I S IT
••
EXEC
•• LNKEDT

.*

GU "

"................."
"
•

•••••

....

• • E5'
0

•
•

*LF •
• o H5·
•

NOCAT

*. o.

*..*

.*

x..
••••
o

•
x
.*.
83
.'O
JOB

*.

YES
•• ACCOUNTING •• NO
••••••••••
INTERFACE ••••••
••
X ' . SUPPORT .0

··.·~o

..

*..*

it

.....cl.i••••••••
NN"

C2

•••*

"IOROUTW

*-*-*-*-*-*-*-*-*

................."
S~W;GF~50

:

"

.•.

••••

IS IT
EXEC
MAINT

••

:

'.

o.

*. ••

*. ••

NO
••••••

: ••**

RESFtH
•

.". o. *.

•0
•
•

PUT PHASE
NAME INTO
ACCT TABLE

•

• .....02 •• • •••••••

01
IS
." PROCEDURE o. NO
o. TE EXEClI- ••

•*

*.

•

•

o INDICATE TO •
MAlNT NO
..
•
•
AUTOMATIC
•
*CONDENSE LI MITS.

..

....
·.......

TEO .*
* •.
o -YES

.

•

••••• El.!••••••••
WAIT FOR

•

:

HM~E2¥

•

••

•

****.....-.-*-.-.
GU "
•
•

POINT R15

..................

"

•
•

·

.................

..

•••••••••••

.'.

P~~~~NT

*. *•• * .*

'*

ND
••••••••

YES

X

•
•
••••••••**••••••••••*

• ••·.Jl •• •• . .••••
o
GET SAVED
0
•
PHASE NAME
0

x

•• ••B2*.••
••••••

if

0

E •
D.

o

•

·*HZ.··X ..··•

HI
".
.* •* PHASE *. *.

.

... ••••
EZ •

••••• •

•

*
• SET
..

•

SWITCH
FOR EXEC
BLANK NOT
ALLOWED

••••••**•••

GeT

A~LlI\'i:S;;

•·IF••••*
.. 81.

o

PARCHK

X

***·*E5··········
LU *

880X

*TES,"EAL

;,..
•

~"'-":;'-+~';;'-"'-'"-:;,t-

•

CHECK FOR

...

•

REAL
•
••• •••• _•••
*.*••• *.•

.Oo

••

.*
••

... YES
••••••
••

x

·Oo o .*NO

••

..

H3

*. *o.

IS IT
EXEC
RPG

•••••
*LC •

•• o.*
•

•. ••

•• .*

0

RDDIREC

NO

.*Oo.Oo.

x

YES

·••.••J3.··.·····..
X

•
•

*o

MODIFY
PHASENAME
'TO RPGl

•

...

TABLE ADOR

..
0

•••••
•
84 •
•• ••••
•

•

TO APT
*
..•••••••••
*-*.**••*

•

it

EXCEDT

o.

*
NOTVlqT

•

•••••*.*.*
•··.·*C4
••
•
MOVE PAGE

* 81•
•.. *

...

••

• 82·

.*

X

*..

...
IS IT
'.
EXEC
•• LNKEDT

GET SPEC lAL
FROM BBOX

PART ENTRY

•••••••••••••••• •*

.. .'. ..
x

*
•
•

•
•

•

••••••••••*.*••• **•
x

.**.*
*lE •

X

•••••F4***··*·*·*

: SA~MR~~~AH :
.INDICATE SAVING"

ic

•

·•

X
****.F3 .......• ••0
..

G3

H

TO
• OFt

x

• •••

••

•• 83 ..•
••••••

o SET

·LO •
S1*

ic

o·*G2·****·* •

••
•
••

x

•••• *

• NO

·*05.·*.** •

X

~

ACCTIGNI

it

X

••••• Gl ••••••••••

•
CLEAR
" PHASE NAME
" STORAGE AREA

Oo. F2

o.* .*

YES

o.* ••• o.

* SET ON *•
*** REAL
SWITCH *
•..*.**•••••••

•

**••••••
•
•
* OF
•**••••••• _.**•••••..

EXEC
•• NO
BLANK FOR .* ••••
•• CATAL JOB ••
• Oo
Oo*
j(
•• Oo*
o YES
••**

.0

".

*. *Oo

o..

ic

****.E", ••

LL.

*••••••••••••••••

.•.ic *.

,OR: =

••
o

X

:X •••••••••• :
EXll0
X
••••• F 1*•••
"MTNCNT
.~-.o
SEIZE
"
SYSTEM

*o.

*

.**.***•••••*..**•

;:-.:;.
*1 NIT SEEK ADDR 0
.TO START SEARCH*
o FOR PHASENAME •
~~ ::-r:.-~-:::~~~-

T A8

•**••• 04*••**••***•
••• TO SYSTEM •••

X

*SEEKI NIT

.................

•

:

..

·····EZ*·········

~!~~~J~:- ,,~~~~~!

ANCHO~

:X •••••••••• :

• EZ •• X..

SEEKSTRT

•

C4 •

..*...........

.
.x •••••••••••

•

•

• .X. FOR CH END
• • APP ENDAGE AND •

..03 ••••• ••
POST JOB
0
STEP RECORD 0
.. INDICATOR •

..

•••••••••••••••••
.
•

..

.x

.* C5 *. .o.
•• DELIMITER *.

..

• ••••••••••*••••••

X

.

• ••••••••••••••• *

X

IN OPTN BYTE

•
•
.................
.....
.' .
..••••.

• YES

X

_.WITH OVERWRI-.* ••••

..

:

RESET BITS

*

.SCANIJ'

·····c"'········.**

X

o..

x

SWITCH FOR

.PROGRAM NAME •
•
SAVED
•

••• •• C3 ••• •••••••

o

•• . '
Oo·

·.***815 .*ic ••••••••
GK •
.-*-*-*-*-*-*-.-*
•
GET NEXT
•
..* OPERAND •

•.*84····*··
SET OFF •*

..

..*.

~liFERf~~~~

•

••
•

X

•

:....
:
•
• • • XOo lCK3, lKJZ
lLG4

• 83 •

o

•*••••
as •
•

•••••••••••

··.·~ES

0

•• ••••
•
o Bit •0
••••

Oo*

'.

o..

H4

.* .*.

MORE

*o.

•• NO

*. OPERANDS .• ••••••
*. •• Oo* .*
it
• YES

x

.

•• ••••
•
B5 •
..••••

.**lE•••*
• 82·

•*

•

NOTVIRT

•

•

••••••*****.*** ••

....
x

•• C4.•
•****•

Charts

151

Chart LC.

$JOECTLE - EXEC Statenent Processor (Part 3 of 8)
Refer to Chart 10.

•..••••
83 •
..

•••••
• LB.

.....-

••

• G3.

X

..**.Bl ••• .......

•••••s'3.i ••••••••

-•••••••••••••••••.

••••

EXCEDT
••

MOVE

I~L~~~2~F

:

Cl

•*•*

.•.x

••

LINK

.STORE
•
T
•
L
• LI
• CR

0_

:

D1

NO

o

X

• •••• 03 ••••••••••

••

.....

o NO

o

o

*

•

H3 0

••••• E3.i••••••••

••

•*

•• ··PRIVATe·- •• NO

••

•
•
..

•••••••••••••••••

YES

X

. . . . . Fl ••••••••••

•:M8¥EpHaR~RaaCR:•
FETCH TABLE
TO LNKRSEEK

SET TTR AND

NUMBER OF
*o ACTIV
E PHAS ES
o
TO ZERO

*. * •• * .-

•

:

US ED •
** BLOCKS
TO ONE
•••••
*•••*••••••••

•· •. A~l~~m .•.•................. :
•

0

lll3mkI6~

:

••••••

x

• 0.

0

•••••••••••••••••

.•
*.
0:·*. SP~tl~hD .•·:O!~~.
*. * •• It .x

E1

/

• •• ··C3 ••••••••••
.STORE WMBE~ OF•
.BLOCKS AVAILA- •
• BLE IN LINKAREA.
o DESeRl PTOR
•

YES

.•.x

•••••••

X

•• *.

··dMtmD .• ·····:
*. * •• *.*
•

MBER Of.
FOR.
EA IN •
A DES- •
ENTRY.

•
•

•••••••••••••••••

ic

••••• F2·........ .

•>MOVE

•

START AOOR.
OF tID FROM •
FETCH TABLE 0
TO LNKRSEE K •

.................
o
•
-

·

X

••••• F3 •••• • •••••

..
•••••••••••*........

·

• MOVE DISKADDR ..
•
OF LINKAREA •
TO LNKCCHH
0
•

·•x........................... ..
X

•••Gl ••••••••••••

•

READ
DESCRIPTOR
ENTRY

•
.................

•

•

X
**·S3.····
•••••••

WRITE DESCRlP.. TOR ENTRY AND 0
DUMMY PHAse
•
NAME INTO ..
LINKAREA

................
.
....
.
··..••••..... .
•

X

•
•
····.HI·········.
_CALCULATE ot SK •
: OBSRe8 F THR~T :
o IN ~IRECTO~Y •

H3 •• x.

•

NOLNKDIR

X

.**.·H3...••.....

o LOAD ADDR OF 0
o OUTAREA INTO •
.WRKRG3 AND SET-*

•••••••••••••••••

:.¥:.l~~~~.il:l.:

x

•••••J3.l••••••••
.-.-*-....-.....-.-.

••••••••••
THI~
•

RES AS.
DR OR.
EHm:

••••••••

oEXCPM

o
•
•

GOO'

WRITE
ENTRY
STATEMENT

0

•
0

•••••••••••••••••

x*
•••
•.. 53 0•

••••••

X

• •••• K3*.** ••••••

• CLEAR SYSLNK •
ADDR IN 018 0
•
TABLE.
..
•
.INDICATE SYSLNK.
•
AS CLOSED
..

••• **••••••••••••

.....

:RESFCH

x

·LB •

.. C4*

••
o

152

DOS/VS IPL and Job Control

$JOBCTLE - EXEC StateKer.t Processcr (Part 4 cf 8)
Refer to Chart 10.

Chart LD.

PA~CHK

81

.•.x

••

B2

.* •*
*.

.* •*DEL 1M= ITER*. III..111 YES
••••
*. *.
.x
* ••• .•

.•.x

••

••

IS IT

SIZE

83

•• *.
.•

*•• 111

x

•*•••••

• YES

NO

.. Gl ..

X
·.C1 •••••••

•
•

02

•-*-*-*-*-*-*-*-*
•
CHECK FOR
•

*.

•••••••••••••••••••

•*

*. *.

GK •

.•
'.
*. *.

.•.x

*.

•
•

·. ••••...
.. GI ••

*.
.* •••.
.' .*

Gl

••

•• •• NO ..
.* •*PRESENT
OPE:~ANO
III.
.* .* •• X.
*. *••• .'

.•.

. *G2

*...

TESTNK

••

YES

X
•• Jl •••••••

• SET ON ••
•
• SIZE [NOICATOR •
••
•
••••••••••• •
x

••••••
82 ..
•• ••••
•

.
••
•

*III H2 •• X.
* •.x

•*CORRECT*. •• NO •
*.••*. LENGTH
.• .* •• X.
*. *•• ' .*
x
•

....

••••••
•* "'K5 *•

...

H2

•*.*

•••

*. ••

.•.*.

.* .-

..
..
..
..
..
..
.-...
• •

NO •

•••• x.

.*

••

••

AUTO

•* K5 ••

•

TLOOP

*. ••

• * ••

NO •

*. ••

•••• x.

•
•
•
•

.•

F3

.*.

f)ACK AND
CONVERT THE
VALUE FOR
SIZE

*.

.

••••••

ES

GET NEXT
OPERAND

*..*••

•
•

•••••••••••••••••••

.. .•. ..
•

YES

•••• *G3 •••••

IS
BLANK

.•

*.***

G4

••
• •

H3

*.

R

*. *•• *.*
NO

.•.x *. *.

x
•*••••
•
85 •

*•••••

••
••

*.

PRESENT

*. *••• .*
•

.•

NO •
.... X.

._.-

• •
• 111 ••

•• K!Ii.•

••

••

•••• X.

x
•••••
,.

••• *
•

NO

•

X

••

.. .

x
•·lE••••
•
• 81·
•••

VALUE

.*

•• NO •
•••• X.

•

••

* .••

.•.x .

.. ..

o.

Cl*

-

.SET AUTOSWTC ,.
FO~ ODD N
•

••

UPPER

.

.LE •

NO •

8YT, IS •••••• X:

_ yes
*.••

x

•• ••••
•
84 •
•••••
•

I::

,.. . . .

*•.
*
• YES

••

YES

J3 .* •_.
.* TOO *. *. YES •.
.*
!TNKt .:*~:~ .
*.
SMALL
.* .. x.
*. *.
.*
.• .•
.*
x
x
* ••
*•.
*
_o *
NO
• NO
*••••
K5 •
_
•
• K5 _
• ,.*
x
x
• __ •

..
·*_••

••

.
....
...

*... *.•.•

.• I S IT *. •• YES
*. A MULT!PLE
••••••
*. *. OF 2 •• .*

YES

IS
THEA' EA

H4

••

.*OPERAND*•••

•• YES

••

III K5 •

.•.x

••

•··G5*·..••••
••
•
••••••"*•••

••

•••••••••••••••••

••••••

•
•
•
•

ic

x

•
INCREASE
•
•
POINTER TO
• seCOND CHAR AND.
•
DEt~EASE
•
.. LENGTH BY ONE -

.0 •

IS

F5

••

....
.. ... ..
*.

x

•• ••••
•
Gl·
•••••
•

NO

•• LAST SIGN •• NO •

*.••

NO

••••••

VALUE
••••••
lE"O..
•

x

.* FIRST *.•• NO
*.•**. CHARAeT
'(' ER .• .* ........
*. *••* .*
•

........

.. ..

*••••

.---....-.-.-*-.-•
F4

* •••

DECIMAL ••

ic

X

••

••

ALL

CHARS

•••••••••••••••••

••
••• E,.. •••• GK ,.
.SCANR3

•
•

.•.x

X

•
,. •

.•••••••••••

Norv IRT

C5

···.·05.····
••·.·•
•

X

•

--.

AUTONK

•• 82 ••

Ii

• K!J••
•• ••••
•

• YES

YES

··04•••••••

•

............... ·x

•• J2
•:·(AM~
*. *.

....

••••••

• YES

• SET AUTOSWTC •
TO AUTO
•
•

• 82.

...... .

YES

••

•• NO

LENGTH

*. *••• .*

*•••

X

-.

-.

CORR.ECT

x

*••
*
• YES

..... .....

*.

UPPER
•• YES
[S . . . . . . ..
• ••• BYT

•

...

••

NO

C4
IS IT

•••••
*lE *

•*•*.

.•.x

•• YES
••••••

ic

_

.:**. AVm~~LE .•·:*~~x:
*. *•• *.*
x

YES

x

HI

••.•••..

*••
* *YES

III.

•

.-.x

•*t~~·:~t~·*.
SWITCH FOR •
* 'AUTO' AND •
*• IAUTO'
*
ONLY
III
•

.•
*.
•
_:**. mm~ .•*:*~~X:
*.
.•

YES

85

x

*•.•.*

x.

•••

*.

BLANK

F2

TOO
LONG

x

NK

••

•

x

x

••

-...
••••

fESTSlZE

*. *.

*.••

NO

C3
••
IS IT
AUTO

*. *.

NO

.•.x

.•

••

YES

••••••

• YES

•• DELIM ITER •• NO

•

••

.*

E2
-.
•• DE LI MITER •• NO

•••••••••••••••••••
Fl

.•.x
•

·····fl*·.··.··-.
•-.-.-*-*-*-*-*-*
GET NEXT
OPERAND

•_

•
•

.*
*•• *.*

X

*
..

*

*.

•• DELIMITER •• YES

..

*StANR2

GK ..

GET NEXT
OPERAND

X

A. EAL

*. *•• * .*

•*••••

•••••••••••••••••••

••••• 01 ••••••••••
• TESTREAL
LU •

•

LONG

B4

K5 III

•.*-*-*-....
···C2··········
*-*-*-*-*

• SET ON ••
•
••REAL SWITCH•••
•••••••••••
•

x

TOO

X

*SCANR3

.... .•. ....
.....-..

••

•*OPERAND*. ...

*.••••

NO

......

85 •
•• ••••
•

••••••

..

.

.
.. .-. ..
-. ..
,. ••••

• •

·84·

.. ..
..••••.
•...-•

...

•

...

_

•• ••••
•
82 ..
•••••
•

•••••
• t5.
•••
'L8 ..

..

ic
.*.-.JIt.........•
O[~m~E

•

:
•

0

:
0

REGISTEP

•••••••••••••••••••

...-

Kit

••

••

.. ..

.x

••••

* *
•* K5 •*

••••

.. ......... X:

••

.. ....
·,.••••••••.
VALUE

AVAILABLE

*•••
o YES

•• NO • •

. . . . X...

•

*
•

X
*•••BRANCH
K5***·.**••
TO
•
NVSERR IN

•

~JnBCTLA
•
•••••••••••••••

x

• H2 •

,.

Charts

153

Chart LE.

$JOECTLE - EXEC State~ent Processor (Part 5 of 8)
Refer to Chart lC.
,~

'1

•••••
•

-·····81
• ......•••••
-•••••••••••••••••
.
_...
-••••.Cl*~
.

... '*

ROUND UP
BY a~~ING

*LD.
•
• F5 •• x.

•••••

•
•

••••••
•
•••• *
.. 82 ..

•
•
*
•

.................

*.

•
*
*
•••••••
*•••••••••
x

.*.

*. t •••

s·

C3

*.••
.•

••

.*
*. *.

.*.x

•••

••

END ••

o

x

'.
•*
WAS
o. YES
••
SIZE
••••••
•• SPECIFIED ••

mr

•••••••••••••••**

*

:x ••.••...•. :
CHE~!l.Gl.:* ••••••*

X

•*

*
••••••••••••••••••*

:X •••••••••• :
x

.*.*.

••
$.

X

HI
• " BEGIN
&SIZE
•• YES
GT END OF

*.

*. *. PART .•

.* •.•••.
••

* ••
• NO

·**·*H2.*·.*._*.*
•
•

•
•
•

STORE SAVE
AREA ADDR
IN CPSUSTRT

•
•
-

•••••*•••••••••••••
x
*•••

•• 83 •*

X

••••••
..••••••
K2 .*
.*•••

• •••• Jl.· ••••• •••
•
STORE BEGIN •
&SIZE TO
•
ND8GARl
•

•*

**

••••••*••••••••••••
x
o•••• •
• 82 *
••••• •

154

DOS/VS

IP~

:•••••••••• X:

and Joe Control

X

•

..*.K2·····.·.·*
BRANCH TO

:••••••••••••••
~~8&~hlN :
*

•
•

.. x ..
....

_. NO X

.•

••••••

C4 .* .*.

••
OUTPUT
••
ON
•• SYSLST

*.

*

.*

•• NO
••••••

••

YES

X

**04**** •••
.. • TURN ON THE 0 •

• ALLOW OUTPUT •
.ON SYSlST SW •

•*••••*••*.*•

•
X

ADD 88 TO

•

ic

.·***E4*******·**
0LSTOUT
GJ •

.-*-*-.-*-*-.-*-.
•
SPACE ONE
•
*

LINE ON

*•• *.F3 . X.*•••••••
•*
SAVE START
•
ADDR OF
•

••
o

................•

•_

PARTITION

*

·.x •••••••••••.
X

NLST

_
RESET
•****_F4***_***···
•_
•• LINE COUNT 0•

••••••• _* •••**•••

•

0

x

X

• ••• *G3.* ••• *•• ••

G4

*

*••

ADO LENGTH
OF LABEL
•
AREA TO FINO •
o PROGRAM START.
•
ADDR
•

.*..••*•••••••••*

***.*H3*****••••*
•
SAVE
**0
** START
PROGRAM
AD DR
•
**•• *••••••••••••••
•

•. *. NO
.* .* OUT
STMT
OF
.*....
•• SEQUENCE .*
*. *•• *.*
_x
•

H4

*.

.0.ic

**LF81 •*

•••

RDDIREC
••

.. ..

.•

-••
*
• YES
X

84 •0

••••

....

YES

.* EOJ *. *. NO
*..* PROCESSING
••••••

.*x••

o*

.* .*.

...

X

•

•

SYSLST
•• •••• ***
.........*.•

0

NO

••
* ***G2*****·.***
•*
•
STDRE END
• OF PARTITIDN •
* IN NDBGARl •
•••*.* ••*••••••• **•

CALCULATE
• PARTITION BEGIN'
AND SIZE
-

.

•
•
·_··*E3····_··*·*
•
POINT4
•
•••••••••••••••••••*•
•

-.*.K2 .•
••._*.

F2

.WITH ORIGIN ANO*
:POINH
END:
•
PARTITION
•

SUPPORTED

•

OUTPUT
8UFFEP

:X •••.•••.•• :

x

*..
*
* NO

.. .*. ..
.. ......

x

*.

MPS

*

_.ORIGIN - ••

:··(~~6·:~t~t!··:

•
•

•• ••*••••• **••••••0

••

RPSE RR
NOFP

•*•• DOES *. *. YES
•• PARTITION ••••••
*_

CLEAP

X

X

E2

*:*~~ ..

••

····*03**···
•• ADO 32 TO••• •••*
•o
POINT4
*•
* ••*._..** •••_••*
.*

••

*. *. NO
••••••
.• ••
x
*••
* YES
-*•••
·LU •
:••••.••.•• x:
••81t*
*
CHECKSZ

.•

•

o YES

••
PARTN
*. ALLOCATED

.• El *.*.
.:**. ~~~~ .•.:*~~ ..
*. * ••• .•
" YES

••

••

• YES

02

~bY~
FEAT

··**·84*····*····
•
•

x

••

NO.*
REAL
•• •••• PARTITION

*.

'.

• YES

x

X

••••• 01 •••••• •• ••
o LOAD POINT 2 *
WITH ENO OF *
•
VIRTUAL
•
PARTITION
*

••

.. ... ..
C2

X

.0 •

83

WITH *
END OF PART •
** PDINT2
. ••••••••••••••
**.

••••••••

LOAD POINTl
WITH ORIGIN
Of VIRTUAL
PAUITION

x

.. ..
*:.
....
.. .•. ..
...... ..

•
•
•• X:WI ~RAMmT1ND:

•
:

*• ••••
84 •
•
••••••

••

LOD3

NDTVIRT
X
••••• 82 ••••••••••

X

:

••••
83 *
•
••••• *

••_ •• REFERENCES
- TO
•• ••
LBE5. LEB2'
LBHIt

·LO.
• G5.

•

•• J4**·· •••
•

*•
•

.....-.....
TURN OFF

0•

SW FOR STMT
OUT OF
• SEQUENCE •

**

:x ••..•.••.• :
x
•••••
.tU •
• C5o •
•
OTSERR

Chart LF.

$JOBCTLE - EXEC Staterrent Processcr (Part 6 cf 8)
Refer to Chart 10 •

•••
**•
...

·••••••"

REFERENCES
TO
lFBl:
lBH2, LEG4
lGE3

. . *.
....

•

***.
x

.

'"

...

DIRECTORY

...

*•••

.

'

... (1 •• x.

o

EXCP

****

*

.

THE

...

SYSTEM

...

.******.*.* ••••**

C3

*****C4**********
**
**
ADD
..
PARTSTRT
..

* SEARCH
OF *. NO
*.. *.DIRECTORY.*
MAIN
.* .....
* TO POINT4 *
*. * •• *.*
•*****************
0
x
o YES
***** *

*******.*.*
X

X
***01********.*.*

••••*************

*****02*.**.*****
.. Move FIRST
..

*

..

**********.***•••

X

.'. *.

.* END *. *.
NO.*
.....
*. "'.CYLINDER
OF
.* .*
*. * •• * .*
...

YES

X
*****G
1**** •• ****
.INCREASE CYL NO.
... IN SEEK ADDR

.,

WITH 1 AND

...

NO TO ZERO

..

SET TRACK

..;\*
*

*

*

.. .*.**************
.:4t**

G2

.'.x *.

...

•••• •

>

*

G2

****

"'.TORY.*
*••
*
• NO

*

>

.-.x o.

Lt:::!'IblH

.

x

*****
o _
*lG
• B3**

•*****G3**********
*LOAD lOADPOINT •
*

•
AT lINKEDIT *
'"
tHE IN
* TPOINT4
**
.***>It.* •• ********

"'.
OF "' ..

•

POINT TO
NEXT ENTRY

*

*•

*•
•0
***************.*

x
.*. *.
C5
.*
NEXT
*•
.* DIRECTORY
•• NO
*. •• NEEDED
BLOCK
.* .*..•.
*. *•. *.*
x
••**
* YES
* G2**
*
x
- *****

****

·

.

X
*****E4***.******
*• illADDLt:NGrH
POINT4
*
-1
...
..
OF PHASE
*
*
IN WRKPG4
*
*****************

F4

*•

Cl

*

• **** >

•*****
•
E5 *
>

CATNAME

****

•

X

**E5 *******

*• '~"'fSEl
OFF
* *.;.
'ILt1 hJ....
..
UNK-GO
*

·

***********

.*.x *.

"

X

.*
*. *. NO
*..*THISTO PHASE
BE
••••••
* .ExeCUTED .*
•. *.• *.*
• YES

**F5******·
*•

•

seT OFF 0 •
SWITCH TO
OCOME BACK TO

* CATNAMI:

*
**

***********

X
*****G4**********
* STORE POINT4 *
* IN LOAD ADOR ..

•

•

>

*

•*****************
0

X
*****GS
*RE I NIT **********
TO ST ART*

*..
•

ADOR OF MAIN

*
*

01 RECTORY A.ND ..

TO SYSRES
LOG tCAl UNI r

0

*
••***************

****.
*LG *
.x •••••••••••.

·.

.. K2 *.X.

>
ENDIRRD

x

****

.* . *.
H2
H3
*.
.* H4
•. *. NO
• * LINK *. *. YES
. * SELF * .*. NO
*.
YES
.0
.*
.*
WRKPG4
ON KEY ••••••
*oo RELOCATING .* .•..
*. ....HIGHER
THAN .* •..•
*. *. STEP
GO
"'.HI OR EQ .*
HIPROG .*
.* .*....
*.
PHASE
.*
*. *•. * ..*
"'.. *.• * .*
*. *... *.*
*. * •• * .*
x
x
x
• NO
**••
* YES
* YES
* NO
****
o
_
*
•
•..****
•
•
•
:................... x:
C1 *
* E3 *
*o B4 •*'
•****
•
****
****
x
HANDL INP
X
X
X
.*.
*****J 1**********
J2
*.
*****J3**********
.*FIRST 4 ••
>
*..
•******J4**********
•..
TO
..
*
LOAD
•
*
CHAR OF *. YES
STOPE
•..... POINT
*
IOAREA
*
*.PHSNMF LOWER .* .....
** PROGSTRT
*
•
WRKRG4
..
THAN NAME 1 N*
*
IN
HtPROG
*
IN POINT4
*
"
* . ENTRY.
*
•.****************
•*
x
*•• *
******* •• ********
********.******.*
- NO
*****
*lG
o _*
: x ........... :
* B3*
x
x
x
x
****
****
•
**.*
****
ENOl
RRO
•,.. 82 •..
•• B3 **
•* 84 *
*• 85 *0
"••••
***** "
•
•**** *
.*** 0
Hi

.* • "'END
CVL
•• SEARCH

*****B5 **********>

>

: x ........... :

LDOKSDL

X

.*ENTRY
LAST
*.
Of *. YES
•• X*.
SEARCHING
.* ••..
.LINK DIREt ••
•*

*...

•

X

UPAODD

X
*****04**********
* SUS TRACT PART *
AODR
*
**OURSTART
ING lINKEOIT*
** TIME
FROM
*
POINT4
*
******.**********

*****
*LG *
*' Bl*
**

OF PHASE

-

.POINT TO FIRST
.... X.OT RECTORY ENTRY.
,.. IN D1RECTORY ..
..
BLOCK

NXT

NO

0
• *****************
• **** *
*> E3 **
*** •
X
*****F3**********
* SUBTRACT
*
* ONE FROM
* THIS LENGTH **
*.****************•

X
*****F 2**********
•
*

*

.'.

NA~~

* yes

•* F2 ..*
* >
****

•

·****El********·*
** CAl CUtAT E **

OF ...
CAtALOGUED
••

• **** >

...

***************"'.

x

LGG3

*.
... *.
*. PHASE .*
*. *•• *.*
x
.*t:nR

*••*

*o ..•*.x..
•
*
****
.
NOTINSVA
X

* E5 ..
*• *.* >

x

Ft

REFERENCES
TO
LFE3:
LGe 1, LGG2

E2
.. ·SEARCH

Nn

...
...

•• *****.*********

.*.x *.

GTNAMEI

*-*-*-*-*-*-*-*-*
...
SEIZE
...
THE
SYSTEM

*

TO PHSNMF

.*. *oo

.* SVA * .*. YES
*.. * ELIGIBLE
.* ....
*. *.
.*
.*
x
*•. *

.. II NKED PHASE ,..
.. FROM LINKAREA ..
,.. DESCRIPTOR
,..

*****El**********
*MTNCNT
GU ...
...
...

D3

*

•**** •

x

0

*

X

* ..

• *tSIT*.

,., E3

READ
DIRECTORY
BLOCK

*

X

x

• 0.

*.C2*··***·

*SEl LNKSWTC*
*TO LINK. GO. ,..
> SET GTNAME TO *
NOT FIRST READ*
.FOR LI NK-G 0*

*-*-*-*-*-*-*-*-*
'"
RELEASE
...

...

****

X

X

*****c 1**********
GU •

*MTNCNT
...

•**** •

:IIC.

*.******•• *******

·

*****
*Lr; ..
.. H2*

•

84 ..

TESTRELOC .* .
B3
••
B4
*•
.*
*.
.*
*.
NO
.oR ELOCATABLE*. NO
>.DIRECTORY FOR ••••••
*..*o. HIGHER .**..* YES
......
*.
PHASE
.* ....
*. ·.STEP
LINK GO .*
*.
.*
.*
*. *•. * .* .*
x
o •• *
x
*••
*
.. YES
* YES
* NO
o**** 0
**•• *0
,., 85 *
*'" F2 *0
***** *

****.
•...
LOAD REG 1
WITH ADOR OF *'
ceB TO READ
...

+:

*•

x
•* •

'.
•*82FIRST*. *.
• >READ [N LNK*.

RDDIREC
X
••• **81 •••••

*•

*.**

**** *
o
* 83 *
•*****

.. 82 ..

•>•

lSTBVTAD

ON

·

.

·

.

X

*****HS******.***
*SEEKINIT
LL"
*-*-*-*-*-*-*-*-*
* I NI T SEEKADDR: *
-TO START SEARCH"
>FOR CAT. PHASE'

*****************

x

*****
*LS
*
* A3*
* •

*

NOCAT

.

Charts

155

Chart LG.

$~OECTLE - EXEC Staterrent Processor (Part 7 cf 8)
Refer to Chart 10.

*••••

*
•• •••
•
82 •

*LF ...
• 03*

••
•
X

LODKSDL

•••• *81******** ••

•
•

•**••

•*

SAVE ENT~V
NAME IN

..
•

•
•
..

•
•

NAMESOL

.•.x

-.

X

LOAD NEW
BEGIN IN
WRKRGl

YES

••••••
•• _02••*•*

*LF •
• E3*

••
•

NOTINSVA
UPDEND

•
X

X

ic
*****E2**********
** LOAD RESULT •*

•••**e 1 **********

•

LOAD ADDRESS
•
OF LAST ENTRY.

*
**

•
IN WRKRG2
*
••••••••
**********•

.

•* AnD BEGIN AND •*
•••••••****•••••*.•
.END ADDRESS AND.
•
DIVIDE BY 2
•

*.

••

*. *••• .*

G2

NO

*. •• NO
.* ...•
.*
.*
x
*.•
*
o YES
*.*.**
*LF

*

ic

*. •• 

••

••
"

..

....

..

"•••••••••••••••••"

•••••••••••••••••

•

.

NO
.* ••••

* YES

"BUILD PTA ENTRY"
. . . . . WITH HIGH ADDR •

0

WRKRG3

.• .*

X

0•

SUBTRACT
lK FROH

....
MOOE

"
.
·····03··········

X

o
"
"LOAD
ORVPART IN"
"o
WRKRG2
0_
o
0

•• *.

•

BtT ON

•

"*•••• *•••••••••••*

..

• .x ........... ..

• E2 ... X..

*••• *o ••
TEMPENO
X

X

$1"o~E

•

IN WRKRGI

":;.
••••••••••••••••••

•••••••••••••••••

•

*.;.

·

0

x *••••

:VIRTENT

•• ••• E3 •••••

_CALC ULATE TE HP •
PART END AND 0

;.

~

·

••••• E2 ••••••••••

. . . . . El . . . . .•••••
LOAD ENVPART 0
o
IN POINT]
•

•o

"

.SUILD PT A ENTRY.

o WITH INVALID

~7

~~7

'r

.

w~

"

t;

*••••••*.**••*••••-

.

••••••••••• X.

.. . .
.. ..

x

• 0.

Ft

••

F2

•* REAL ••*.
NO.o
•• ••••
MODe
••
*.
.•
*. *•• - .o YES

•.

X

• STORE WRKRGl
IN NDBGARI
•

0

X

0

o

SAVE WRKRG2

•

IN WRKRG3

*.

.*

-.

•0

.0.x

...

AUTO

ONLy

*. * .•• .*
o NO

.....

•

.. 82 ..

••••• •

*..

••••••

X

x

•••••
*
*••••*

-

"

•••
*.****••••••••0

.
:0

.

SVC58
•
"• •••••••••••••••

0

.. MOVE PROGRAM •
oNAME INTO SAVE-"
•
AREA
•

m~M~¥~W

X

• ••• *J2.* ••••••••
YES

X

o·.··H3·**·***··0

*o•••••••*•••••••••

... x:
•

"

••••BRANCH
J3.**••TO**•• 0
m~HLIN

:

********** •••••

o

• E2

x

o

..

*. o.

•••*

oSTART ADDp
*SYSLNK IF OPEN

•
0

0

•••••••••••••••••

*
FOR"

•••••••••••••••••
J1

o

•_INITI ALI ZE NEW 0

0

•o

0

• H2 •• X.
****
X
**••*H2****.*••••

••••• Hl.:t . . . . . . ..

o

•••••• *** ••••••••"

*LOAD REGISTE~S "

· ..
o

·
:

""

"

:

•
*STORE
TO LOCAL •0
PT ENTRY
0
o

•• ••·G3****···***

••·.*G2···•• • ••••

.................
:••••.•.•.. x:
o

.*

·..*•••.••••••••••."

00

X

*···*F3**·*····**

o NO

X

LOAD ORRPART
•
IN WRKRG2
: LOt~ ~m~~T

ENTRYOK

..

0:"•• G¥R~mT3 .*":O~~~ ...

.····Gl········**
"o

x
." ".

x
*•••
0

o
o

.. 83 •

*.* •

0

Charts

157

Chart LJ.

$JOBCTLE - FCMAINT Rcutine (Part 1 cf 2)
Refer to Chart 10.

****Al··*******

*..
*

.*.•.••.•..•.•***
FCHMAINT

•*****
•
82 *

•**.**
•
B3 *

****

****

o

*
>
'"

ZERO LABEL
LENGTH IN

.*........•..
COMREG

*

_* •••

x

.0.

.*

*.

.*~EW

X

*

*. *.

..

·

.*

YES

• LOAD ADDRESS
•
eeB lOG IN

.

•

0

X

•• ***e 1**********

*

•

•

•

•

*
*.. *.

..
..

..

E2

x
.0.

X

.. VISOR CATA- ..

*

LOGUEn

X

*****G 1*•••• *••••
GU ..

*-*-*-*-*-*-*.-*..
RELEASE
THE
*
SYSTEM
..
••• * ••••• *•••••• *

..
..
..

X
***Hl*******.****
•

*

ISSUE MESSAGE'
lC900 NEW
SUP CATALO- *
GUEO

.*.**************
X

•...****JSET1*********.
•*
WRITE
..

*

CCW TO

READ CCW

*
...

•*****************•
x

•*****
•
82 *
•

0

****

158

Des/vs

*
0

INDICATOR
ByTE

•*

*******.*********

*••••
..
Gl *
*.X..
•••• *• .
*MNTCNT

*
•o

-*•••• *.*** *

REISSUE

•*****F2*"'********
•
•
CLEAR ACL

IPL and Jot Contrel

•

*-*-*-*-*-*-*-*-*
*
*
*****************

'CHECK AUTOMATIC-

• CONOENSE II MI T
*
FORCIL

X
**HZ*·*****
o
*
* SET SWITCH '"
'" TO CONDENSE '"

*

*

•"'**********•
ell

X

*******J2**********
••
LOAO AOORESS
*$DIR£CTGRY
OF SYSTEM
'"
DISK :;:
* ADDRESS *
******'***********
x

•'*****
•
83 *

•****•

X

*

LIBRARY

*

PR

4*******
•**B SWITCH
•
*SET
TO*

**

..

X

'" OF ·PRCTESTt *
* IN LINKR2 *
*********. *'" *."'* ...0

X

*****F3**********
*RDSYSQIR
IN *
*-*-*-*-*-*-*-.-*
* CHECK ACL FOR ..
* SOURCE ST ATE- '"
.. MENT LIBRARY *
** .. ******** **** **

.

TO CONOENSE •
**'*MENT
SOURCE STATE- *
LI BRARY •

"'***.******

X
*****H3**********
* LOAD ADOR Of *

PReTEST

•

* 'PRIVATE'
..
IN lINKR2
**
******************•
X
*****J3**********
*RDSYSOIR
LN ..
*-*-*-*-*-*-*-*-*
.. CHECK ACL FOR ..
...
PR.OCEDURE
*'
'"
LIBRARY
*
**********"'******

x

**** 0
* B4 •
•**.**
•

*

X

C4

~*.

*.

.* PClL *. *. NO
*.. * ASSIGNED
.. * ••••
*. *.
.* .*
* ••
• *YES

******04*.********
•
*MOVE 01 SK AODR *

.. OF pelL FROM ..
• FETCH TABLE *
* TO COUNT ACL *
*"'******"'**"'*****

X

**·**E4**********
>
•
* SET RECORD NO *
*TO 1 AND CHANGE*
* LOG UNIT IN *
•
CCB
*

******.+*** .. +•• +*

X
*****F4*******"'**
*CILPC IL
LM ...
*-*-*-*-*-,*-*-*-*
** CHECK
ACL
'"
FOR PCIL
'"
"'****************

·

.

X

•

PROCEDURE ..
LIBRARY ..

tVATE

**G3*******

.SET SWITCH *

.

CONDENSE

****"'******

X

•

•****"'E3****·****·
•*
*
LOAD ADDR

X

**"'**GZ****"'*****
LM *

*CILPCIL

*

SW I TCH TO'
CONOENS E
0
RELOCATABLE •

***"''''**'''***

•'".***
•
Gl *
•***'"
•

X

NONEWSUP

•**Fl******* **

•

*s•ET

SLBTEST

*•

0

LIBRARY

X

ANSWER
=

:..••...... x:
'RESET SWITCH
.FO~ NEW $UPER- ..

RELOCATABLE

**D3*******

*. *. NO
.* ....
IGNORE
.'
*. *•• *.*
x
• YES

•*

••.•....•..•..•*.
REG 1

**

*****************

X
*****02***"''''*****
*
CONVERT
*
** TO ANSWER
*
CAPITALS *
*****************

*. *.

.*
* •• *

X
*****C3**********
*RDSYSDtR
LN *
*-*-*-*-*-*-*-.-*
* CHECK ACt FOR *

*****C2**********
*MNTCNT
GU *
*-*-*-*-*-*-*-*-*
**
SEIZE
THE
***
* SYSTEM
**************"'**

SUPERNO
.VISOR CATALO- .> ••••••
GUEO

•**'** •

X

,.. ****** *** *******

I

•*****
•
84 '*

•

•*****83**********
*LOAD ADDRESS OF*•
* IN
·SL8TESP
'"
'"
LINKR2 *
•**************"'**
•

*

READ
ANSWER

•

*

x
••*•• C 1 *•••••••••
*
*RELOCATE eea S *
* AND CCW'S **
*
0
••••••
*••••••••••••

01

>

X
***82************

X
*.*.*81**********

FCHHAINT

**
**
*

•

'"•

*'"

X
**G4*******
SET SWITCH > *
TO CONDENSE *

pcn
•***********
••

: x•••••••••• ;
x
*****
*lK '"
... 81*

*•

•

TESTPRlB

Chart LX.

$JOECTLE - FCMAIN~ Routine (Part 2 of 2)
Refer to Chart 10.

*••••

•..••••
82 •
..

*LJ ..
.. (;4.

••
•

TESTPRLB

••••••

x

•••

TESTPSLB

Bl
*.
•* . *PRIVATE *. *.

.*

NO

.*

X

82

.0.

*.

P~IVAT~

•.

*.

NO

e'e~~mamL ~o .e •••••••• XO. o~~~~~~N~DM~ •• 0 ••• :

*..*

*..*

* ..
*
• YES

*•.•
eYES

*0

..·......•
•·····C2·
• OPEN IJSYSSL •

•••••••••••••••••.
0

EXTENTS
••• ••••••••••••••••
••

••••• 01 •••••• ••••

02· ••• ••••• •
••••••
•
•
MOVE START
..

X

••••• el ••••••••••

·

•o DPEN IJSYSRL

•
•

TO FIND
EXTENTS

•

X

••
•

MOVE START
ADDR TO

0..
0

X

•

TO FIND

0

X

•
COUNTACL
•.................
••

•
•

••••• EI.!••••••••

X
··*··EZ·····**···

•
•~

SET LOGICAL
UNlTTO
~.~

•0

,

•
•
.................
0

X

ADDR TO
tOUNTACL

•

0

•• ••••••••••••••••0

•o

SET LOGICAL
UNIT TO

•

;

•0

0

:l:;

;

•••••••••••••••••
X

••••• Fl ••••••••••

•••••F2 ••••••••••

*-.-*-*-*-*-*-*-.
• CHECK ACL FOR 0

*-.-*-$-*-.-*-*-.

oACLEXCP

•
•

LN •

PRIVATE
RELOCATABLE

•
•

•••••••••••••••••

OACLEXCP

•

.

.

• X•••••••••••

••••

••••

•
•
•

•••••••••••••••••

x

o
0
• 62 •
0
o

LN.

CHECK ACL
FOR PRI VATE
SOURCE ST"T

o
o

X

FINISH

•••

*.

ONE

*

*.

*.

NO

•

•

..H3 .......

iff oPF • •
•• *~~8~ft~~s~0.o •••••••••• x*. sw M~~NfOR
**.. ..•*
• • .......... •
•0

.*

HZ

.0

YES

•••••
J2.i••••••••
*
• MOVE 'MAl NT'

0

..

*
INTO
0
PHSNMF
*0
*•
•••••••••••••••••

X

•••• J~ . . . . . . . . .
SVC lit
EOJ
•

*•

*

...............

o

•

x
.....
_LB.

* C4•

•*•

RESFCH

Charts

159

Chart LL.

$JOBCTLE - SEEKINIT Subroutine
Refer to Chart 10 •

• **.Al·**·
.. ••• _
SEEKINIT

-.....-.........-_

*

._.

82

.* Bl -. *. ... NO
*..* EXEC
BLANK
••••••
*. *.
.*
*.. * .*

.*
*..* S
*. *.

'" YES

-.
x

.
.*ClCATAL*. *. •• NO .X
"'..
JOB
.* .....
*. *.
.* .*
* ••
*
'" YES

.

.-.x *. *.

PHASE

.-

** ••*••••• *••*••*

X
·····C3*·**··
..LH••••
-TSTSLO

-*

B4

****

x

·--

.* .*
*...
*' *YES

SET OFF

•

•••

-POINT TO BEGIN.
-OF FETCH TABLE.

.-*-.-*-.-*-.-.-.

*
SWITCH TO
•
EXCHANGE
*
*••••••••
FIELDS *•• *
•

B3 •

••••* B3 *•••••••••

*..*NO
....

X
**C2*•• **.*

.-

-..*..*
- -

*t ••

*

,. 82

X

SEEKINIT

..• --

•••
--•***.
-*'-

*CALCULAT E START-ADDR FOR SEARCH.
• CIL DIRECTORY>

.*.** •• *••*••••••

X
*·***84**********
*
SWITCH
LOGICAL UNIT *
TO SVSCL8
*
>
****
****••**********.
* C4 *. xoo
*..** oo* •
INJTLNKI
IN ITLNK

**
*
*

·· -.C4

••

.* EXEC *•*. NO
*..**. ALLOWED
BLANK
.* .* ...•
*. *•• * .*
x

*

***••
*lU •
* 85*

-•.

YES

: X.................. :

.-.x *.

.•-

EXEC

BLANK

. ·-

-

• 85•

OTSERR1

-

X

E2

*****El**********

'"

SET PHSNMF

'"
'"

TO HEX
ZEROES

-

•
STORE STA"T •
• CCHH IN COUNT _

'"
'"

••••*********** •••*

.-.x ••

·•

:X .......... :

•

X

*'
·•·····Fl··········
-*'
*'
•

-*

X

........._.-.....
...

:

A5~~f~~A6~

E3

.-x.*.

.*SW ITCH ••
.-TO EXCHANGE>. NO
FI ELDS
*oo
ON

*.

-

•. .oo .* .* .*
.. YES

.* .....

***04****·*·•

*SET SWITCH TO*
FIRST NAME.
LINKED ITED *
>
•

*GET

*

***********

X
**E4*.*****
"SET OFF SW *
* TO GET NAME •
*OF FIRST PHASE *
*> CATALOGUED >*
*****.**** •

84 •

X

:

.

ic
*****F4********··
ADD FETCH
*

•• F3··****··**
•.**
* EXCHANGE •*

-**

***•••*.***.*.*.*

*********.***.***

• LOGICAL UNITS'
*AND COUNT WITH *
•
COUNTl
..

FETCH TABLE *
***.********.*****
ENTRY
*

*

TABLE AOOR
•
TO OISPLCMT
_IN FETCH TABLE •

*

:X .......... :

x

X

Gl
*.
•* .* SYSCLB •. *..-NO
' . ASSIGNED
......
*. *.
.• .*
* •.
*
'" YES

it

X

*****GZ*******··*
.TSTSLD
LM *
*-*-.- *-*-.-*-*-*
*CALCULATE START*
.AOOR FOR SEARCH*
*PCIL DIRECTORY.
••*•••••• **•••••*

.*.*G3**.***··*
TO
•
** RETURN
CALLER
•
>

.****.***.*.*••

•

***.*G4********
•••
>
>MOVE DISK AOOR •
OF L INKAREA *
... FROM FETCH
...
.TABLE TO COUNT ...

**.*.************

x

****.

·*Hl"'.····*
"'''''''*'''*'''''''''-'''

*•

,.

SEARCHES

,.

TWO

-*'

x
J2
*. ·oo
.*
*..*.....
YES
*.. * PHSNMF
BLANK
*.
.*

NOCLB

'"

'"

-****.
-****x

,. 82 ,.

DOS/VS IPL and Job Control

.-.

.. ..
NO
:t •_• *

x

*•••

•• 83 •*
-.* •• *

-

RESFCH

•****
- •• *.*••** •••***

*"•••• *****.*******'"

160

•*

STORE START
-CCHH IN COUNT l '

: .......... X:

X
*****Jl*********INDICATE

*'

*·***H2********.·

*

*' TO EXCHANGE '"
'SEEK ADDRESSES'
• AND LOGICAL.
*' UNITS *

,.

*LB *
• C4*
>

X

X

.SET SWITCH

OTSERR1

X

•*•••

**·**F2****··****

seT DlSPlCHT •
_IN FETCH TABLE TO ZERO

--

*** •• ** •••• *•••••

*. •• YES
.* .* PHSNMF
*.
BLANK
.* .....
*. *.
.*
.*
x
*••
• *
NO
.**.

*

.

.*-•••03···X •••••••

X
*.*•• 02****·*****
>
•
CALCULATE
*- OISPlACEMENT *YN FETCH TABLE *
•••• *•••*.***.*••

"'. *.
.*
"' .. ALLoweD .*
*.
.*
x
* ..
*
'" YES
*.*.*
*lU '"
NO.*

..... *..

.*

01

x

.***

* >
• C4 *
•*•••*

Chart LM.

$JOECTLE - ~STSLC and CILPCIL Sucroutines
Refer to Chart 10.

•••• 1.1 . . . . . . . ..

••
•

•

• ••• 1.3 . . . . . . . . .
o
•
•
CILPCIL
0

0

•••••••••••••••

...............
TSTSLD

0

o

.....81.··X .......

CILPCIL
X
• •••• 63 . . . . . . . . ..

TSTSLD

o
,.

•* LOAD ADOR ••
•
OF teB IN
•
REG 1
*
••• •••••••
**.......•

0

LOAD CCHH

..

o OF DIRECTORY
o
IN WRKRG2
o

.................*
0

*

•••••C3J••••••••

X
..** ···C1····
..····*
LOAD SLO
START ADtJR
IN POINTl

o

o

:!!l~~~l-.-.-.~-:

•

•

*

D1

.0.x o.

X

o

.................

X

POINT
POINTl TO
FIRST ENTRY
IN SLD

oMTNCNT
SEIZE
THE
SYSTEM

PHSNMF

ON THIS

*TRACK
. . * .*
* ..
* -NO

ADD ONE TO
TRACK NUMBER

o

X
• •••F2 .........
RETURN TO

CALLER

..

..

.. •••••••••••••••..

*
•

0
0

.
XYES.*
.•..•.

•

•••••••••••••••••
HI

.* . *

o.

*.

.".x *.*.

CYL END

*.

.*
* ..•
o YES

*..0NO
••••
.*

*•

.....·Kl··········**
X

ENTRY

•

,.

•••••••••••••••••
•
*
x
••••• •

.•

••

••

.*

*.••
o NO

.'.x

••

ACL

:•••••••••• X:

•••••••••••••••••
:X •••••••••• :

..

*.

0

..

*.
.*

..*•.•* ..

:
•

POINT TO
NEXT SLD

ACL

•• BLOCKS

*

o
o
o

.* •*.

O':~~TMm5~E·:.~~ ..

*o

UPDATE CC
WITH 1 AND
ZERO TRACK
NUMBER

*.

x

G3

H3

0

•
•
o

..
.*

X
·····Jl.····
...··*

"o

•
•
•

.................

*. YES
..
.* ........ X.

X

o

GU •

•
•

X

Fl···.. *.

. . . . .Gl ••••••••••

•••

0

0

o

*•

*• ••••
o.
Fl •• X•

.*
*.
*.

DES~~l:~OR

··.··E3
...X ····.•.
.-4I-.-.-t:-4I-....-.

0

.................
.*

READ

"

·····El····..····**
......

•

• •• 03 . . . . . . . . . . ..

*.

o YES

•
•
•
•

•

THE

•
SYSTEM
0
•••••••••••••••••

.•
*. NO
•• SLD PRESENT .* ................. .
*.
.*
*. * ..• .-

o

RELEASE

•

*•••••••••••••••••*

...

0

YES

•••••J3.!........•
INCREASE

•

:
•••••••••••••••••*
REWR~ ~8G
CONDENSE

..x •••••••.•••.

X

••• • ••
*•••*K3*.*
RETURN TO
•
CALLER
•
*•••••••••••••••
•*

.. Fl ..

o

•••• *

Charts

161

Chart LN.

$JOECtLE - RDSYSDIR Subrcutine
Refer to Chart 10.

*•

*.*.A 1****** •••

*

ROSVSOIR

*..

·.**.-

•••••••••••••••*

• 83 •
•
>

****
x
•*83 *••.

.>.

X

R DSVSDIR

···**81*****··***
*'" LOAD ADDR '">

..
..

OF eCB IN
R.EG 1

.*
*.

..
..

>

••***************-

····*el··········
*
*'
..

••• ****.*.***** ••
X

*.*01****.*.*·***
READ
SYSTEM
DIRECTORV
RECORD

*.*••••••

E1

*.*.*.*.

*.

•

**.**E3*·******"'.
>
•

*

•
INCREASE
'RETURN REGISTER'
•

BY 4 NO

-••••*••••••••••••.
*
..

••• ••• ••
•• • •••F2·
•
ACLEXCP
•*•••• *•• *.*****••

: x•••••••••••••••••••••••• :
ACL EXCP

X

..
..

LOAD ADOR
Of eea IN

****.Gl***···.***•
>

..

REG 1

..
'"

..

*
•••••••••••••••••

***~
..

-

x

1******.**·*.

READ
FIRST
DIRECTORV
BLOCK

•••••••••••••••••
x
•••• ..

-••••.
;;.

.. 83 •

162

DCS/VS IPL and Job Control

..

>

..

:***i~~~~~ii*.**:

..x ................. ...

X

TO SEEKACL

*. •.BLOCKS .* .*
* ••
* *YES
X

•••• *F 1*****••• *.
•-MOVE
DISK ADDR •
>
..

.>.x * .

............... x...

x
.* .* .

OF L ISRARY

..

... ~d~hE~r
a~· •. NO
AVAILABLE .* ..•.
D3

•* IS .... *. NO
****e2···.**···
TO
..
*.•**. lIBR.ARY
.* ........ X*•.. RETURN
CALLER
..
PRESENT .*
*
.....*
•• *••••••••••••
.....
*
.. YES

..

YES

x
.*.

..

-INCREASE POIN- •
TER TO NEXT •
SYSTEM OIR
..

..

*. * •• * .*

.*

C3
*. *.
.
XYES
.* .*
••
. .... *. ACl = a .*
*. * .• * .*
> NO

>

RECORD ADOR

GT 0
•

X

..

*.

NO
NUMBER Of
• ••• 'OELETEO BLOCKS.'

it

***·F3*********
RETURN
*_
CALLERTO

*•
>

**************. -

Chart LP.

$JOBC'ILE - EXEC I?~OC· StateJl'ent Processor
Refer to Chart le.
,. Fl.

•*••A3*. •*

X

****
x

*****

_LA ,.

••
•

CALL

tALlNORM
*'.,
**•••SET
A2*•••• ** •••
••
•
ERROR
..
•
*
PROC NAME *. NO
.. COUNTER TO
•
*. ...STARTS
WITH .* ..•....• X.
MESSAGE
..
$$
.*
x
•
1H800
*
**.••.**
..
••••••••••••••
**...
* YES

•*

A1

.'.

X
••••• 81.** •••••••

'REPLACE SECOND'
..
$ WITH
...
..
PARTITION
*••••
•
IDENTIFIER
*

•

•

•

A3

.*.* •

•• EXECUTED

*. *... ".*

>

•••••••••••••••••

*

X

X

*.

.*

*****83******* •• *
*IPTOATA
LR *
*-*-*-*-*-*-*-*-*
*CHECK IF SVSFIl*
** IS SUPPORT
*
AV AJlABl E *
*****************

x

*****
*lQ *
* E4*

NO

*

**A4*** •• ••

.. SET FLAG •
* TO INDICATE *

*•

'" YES

•*.* 1 S * •*. YES
'PROt EOURE BE I NG* ••••

*** •

*
•*A4
••• •

.*PROCEDURE* •*. NO
*..*WITH
.* ....
*. OATSVSIPT
A
.*
*. *•. * .*

i<

• >.
B2

*•

PROCEDURE

EXECUTION

**

*************

X
*****B4*********
BPANCH TO
*
* CONTROL IN
*

*

SJOBCTLA

***************

*

•*

•

i<

*·*.*cz*·······*.
*

..

..
..

RELOCATE

ccsts AND
ccw·s

ERROR2

*..
..

..

****•••••••*•••••••
X

SCNRT

··***02··***···*·
GK*
*-*-*-*-*-*-*-*-*
..
GET PROCEDURE ..
..
NAME
,.
*
*.*.*.*
••****** ••*
*SCANR3

X

*·*.*E2.··***···*
',~ 19)1

*SY~TA~

*

CHECK SYNTAX

.. OF PROC EDURE

..

~AME

..

*
..

*****.**********.

.*.x

. *f2MORE *. * •*. NO
*.• * OPERANDS
.* .......
*"
*. *•• *.* .*
* YES
X

*****G2**********
*SCANR3
GK*
*-*-*-*-*-*-*-*-*

** GET
NEXT
OPERAND
**
*******************
ic

*****H2**********
*CHKOV
LR*
*-*-*-*-*-*-*-*-*

*
*

CHECK OPERAND

**
•

*****************

i<

*****J2**********
*FINOPRC
LR*
*-*-*-*-*-*-*-*-*
*FI
NO THE CALLED*
'" PROCEDURE IN *
'" THE LI 8RARY *
*******"'*********

i<

*"'***K2**********

**

*'"
•

UPDATE
ERROR

COUNTER

•'"

'"

*>

*************.***

i<

•**** •
•**** •
• A3 •

X

*****C3**********
*FTCHJ I B
LS *
*-*-*-*-*-*-*-*-*
•
GET JIBIS)
*
TO SAVE
*
*
*RDRe IPT) LUBes 1*
*********.*******

X

*****03**********
*PROCOI B
LT *
*-*-*-*-*-*-*-*-*
'" INIT IAL I lE
*

**

PROtOI B
INTRY

'"

'"

*****************

X

*****E3**********
~~,~S~~~ ,~_~, ,..L~,_!

*

*

ASS IGN SV$ROR

*TO PROC LI BRARY*
*
*****************

*

F3

.*.x * •

•PROCEDURE
*
* •*. NO
*..* WITH
SYSIPT .* •.•.
*. DATA .*
*. * .. * .*
* YES
X

*****G3**********
*PASSGN
LS*
*-*-*-.-*-*-*-*-.

**

*•
*
*****************

•

ASSGN SVS IPT
TO PROCEDURE
LI BRARY

X

*****H3**********

**
..

*

**
*
*

MODIFY
SVSIPT DFB

*****************
•
*

:x •.....•... :

: x•••••••••• :
FINO

•

CI NIT

CSET

X

***.*J3**********

*

*
*
*

SAVE THE
*PROCEDURE NAME
INTO COMREG

*..

FIElD
*
>
*
*****************

X

**K3*******
.. SET FLAG *

• TO INDICATE
• THAT INPUT IS
* FROM SY$ROR

*
**

*.***********
x

•• ****
•
A4 •
*****•

Charts

163

Chart LQ.

$.JOE'CTLE - Syntax Checking Subroutine
Refer to Chart lC.

ERROR HANDL ER :

e

. . . .A2 •••••••••

•

SYNTAX

OF THREE T
-OFFTlB'

E

•
A

•

•••••••••••••••• *

CON'SI STS OF THE ROUTINE AND A SET
INS THE OFFSETS OF THE
tATED ENT~IES IN T~E MVCTAB, ANO
FOR OPERAND NUMBERING AND
ATIC CANCEL

-MVCTAB.

CONTAINS THE MVC INSTRUCTIONS
POSTEn TO THE ERROR ROUT! NE

-TXTTAB.

CONTAINS THE POSTED ERROR MESSAGES.

AS INPUT A CODEO OFFSET INFORHAT!ON IS POSTED
FOR FINDING THE ENTRY IN THE OFFrAB.

X

SYNTAX

··***82*··**···*·

•
SET ERROR
•
• COUNTER TO
•
• ERROR MESSAGE •
..

'lH9NO'

..

•**••••
•••

•
•
•••••••••••••••••

REFERENCES
TO
LQC4'
LRA3. LRG3
LRH2, LSEI

*•*

C2

.e.i<

*.

X

ERRORl

••

•*
•
·····C4··.··**···
.._.............

.* BLANK *. *. NTHR
BLNK..
........ *. ·.OELIMITER
OR COMMA AS ................................................................ ..
••

RELEASE
•
•
PROCEOURE
•
.LIBRARYI SVC 6"1.

.•

•

*••
• COMM

>

****

.

: .."•. x:

.• ERROR
:***.. :X

•.·02··••••••
X

..

•
•

.-........
.
.

•

POST
'OPERAND'
FLAG

.•••• ••••••• x.
SYN02

E2

x
.0.

•

.'

•• ~ •• x*·

..

X

p~SiflH

...........
04 *LP III

*

o

•

o

•

•••••••••••••••••

82

..

*.x.

..

X

•• •••••*•••••••"'•••

• ••••63 ••••••••••

G4

*.

•• . *.

x

•

••••

*. *.

0

INPUT

.• .*
*•••
o YES

••

**····H3******.*·
••
RETURN
o
•

•••••••••••••••

••

.*
*.
*. OFFTA8 ••
*. *••• .*
• YES

X

X

••

.*.x

.> IS CANCEL •• NO
•• FLAG ON IN ••••••

x

SYSLOG

•

···**E4**·**···**
o
0
.COMPUTE ENTR IE s*
•
IN OFFTAB
•
* ANO MVCTAB •

SENO

•*
*.
..•
..*
•• IS STMT •• NO
UPOATE
•• GIVEN IN
•••••••••• X. ERROR COUNTER.
*. ·FORMAT..
COMMAND .. '"
X"
..
..
*. o . *YES
••••••*••••••••••..

NO.o

*.

**·**F4***·*·****
ADDRESS *
•
••* POST
OF ER.ROR
..
* MESSAGE
IN
•
..
POINTl
..
****.*.*.***.****

SET ERROR
•
• COUNTER TO
•
• MESSAGE 'INl 00 ' .

.0.x *.

*

TO ZERO

X

<
••***F 2_i•••••••••

H2

LR85, LRC 1

••••••••*••••

ERROR2

••

.. .'. ..

0

: .***••••

.*
.*
.*

.*CORRECT *. •• NO
*..0*. PROCEDURE
.* ...................................... •.
••
*. NAME
.•
*•.•
o YES

G2

l~Gl,L~2j~

·*04******·

••

e

REFERENCES

•

•**H4***.***
•*
SET AUTO

**CANCEL
SWITCH'
TN JBCSW4 *

••••••••••••*

:X •••••••••• :

.. 04 •

o*••• *

X

··J2 •••••••
POST
..
• SYSLOG flAG •
•
•
I OVERWRITE
STATEMENTS ARE·
READ F" SYSLOGI

x
.*.
J4
* •*.
•
*
IS
••
OPERAND *.

ERRENO

..

....*._....

YES

.NUMBER ING FLAG . . . . . ..
*.IN Off TAB ••
ON

*.

*•• *

.*

• NO

X

******K4*·*·*·****....

:•

o~~ii~D

: .... ~ .... x:•

NUMB E R .

..*.*••• **.*.*.*.*...

DOS/VS IPI and Job Control

****K5**** •••••

~~~fff~

12 :•

SJOBCTL A

****.*****.***.

$JOBCTLB - Kiscellanecus sutroutines (Part 1 cf 3)
Refer to Chart 10.

Chart LR.

_••*

•o n •*

*•••• >

.>.x

····A1········.

>
CHKOV
••• •••••••••••••••
•>

>

•••• A2 •••••••••

.* A3 ANY •• •. *.
••

>

...*.•* .. .*

••

>

NO
ACTIVE .> ••••

*. ENTRy

FINDPRC
•*•••••••••••••••
•*

*

>

••••A5····.·•••

*

x

•••••
·LQ •

YES

IPTOATA

•

•

••••••••••••••••

• C...

CHkOV
•>

.•

B1

.*.X

••

••

BLANK

*. >.

NO

•-•. b~~1~?T~a .•. *••• :
*.

*'
*'
····*82*···.·····

·····83**········

*'
IN40D
*'
•
*
•••••••••••••••••

*OVERWRITE STHT •
•
•
SAVE AREA

X

FINOPRC

.*
*..
• YES

X

UPDATE ERROR

•
•

CCUNTER

•
•

•
>

TO ~ESSAGE

*
ERRORl

.•

ADDRESS

F

B5

•••

••

*.

.. ..

CALCULATE
•
AND SAVE 8ISK. •

•

X

IPTDATA

•• SYSFIL
•• NO
.'SUPPORT AVA! L- ••••••
••
ABLE
••

•

*••••• **•••••••••

x

••.
*
• YES

•••••
·LO •

• 04'

> >

·····C3
••••••••••
*

*'
·····C2··········
*-.-*-*-*-*-*-*-*

*MTNCNT

GU

~~~~~~E

:

*

*

X

••••• 02 ••••••••••

*'
•
•

PRCCEDURE
LIBRARY

*'

•

*'

•
•

INIT IALlIE
POINTERS

**

..

SCAN

•

•

.·.·El••••·•·••=
X

•

RE!URN
CALLER

•••••••••••••••

>

····*E2·········.
.-.-.. . *-*-.-.-.-.
'r~~

.*.

FND
""G

fI-

.. ..
E~T~V

••

•
•
•••••••••••••••••

FOUND

x

F2

*.

.*. >.

*. *•• - .*

YES

**•

*

•.•.......**.*...
*

•*
••

..

•

it
• ••*F4··
•••
RETURN
TO
CALLER

···*

•
..

.•.
...
.

••

G4

... NO

.'

.....

••

END

*. NO

...*

.......••••...
• F3 •

..

it

*..

*LQ •
• C4·

••

*••
*
* YES

X

H4**·····*··

oeXCPRG
GO>
.**
••
.-.-*-*-*-*-.-*-*
•
READ NEXT
It

*
ERRORl

.>
PROC.
ND •
•• LIBRARY AVAI- ..... X.
>.
LABLE ••

••••• J2 •••••••
•
.. PR.EPARAiIONS

•

*•••••••••••••*•

•••••

x

•
>

x
*••••
:L~4:
.. •*

ERRORl

DI~ECTORY

BLOCK

>
..

*.**•••••••••••• *

*••
*•••••
.-.-.-*-Itt-*-.-.-*

*.J'3 ••••
..
>OSKINIT
LT •
•
FOR, READING . . . . . . . . . X. GET DEVICE
DIRECTORy"
..
TYPE

..>•••••••••••••••••. . . .••••*••••••••••••..
•

•
•
•

.*.
....
END OF

•

DIRECTORY

it

*.

•
•

OF
•. DIRECTORV .• •••••••••• X.. *. BLOCK
.* .* ••.•
x
*. • .•YES
*•••
.. YES

**
* *..•*._..*•••*
••..
MESSAGE
lN50D

H2

POST

*

x

.. .*. ..
.. ..

RETURN
TO

CALLER
••••••••
*•••••••

•••••••••••*•••• *••

*••

GET NEXT
DIRECTORY
ENTRY

G3

...

•.•·05 •.•it *.....

·····E4·······**·

•

• •••• F3.*.·······

ic
COUNTER TO

..

- ",:""~~T~V Q-=' c~~ ~E~·
•
PROCEOUPE
'"

X

*. *...•
.*

• ••
••G2** ERRDR
•• ••••••
>
UPDATE
•

*'
•
*

_"'cc-c~,

••

• ••
*
• NO

.PROCEDURE.
.> LIBRARY
NO
>. ACCESSIBLE •

DATA

FOUND

E3
••
.*DESIREO·.

• > DIRECTORY'. YES

*

SYSTEM

..........-

••••*.

GU *

!~!!=

""

•

•

E3 •• x.
• ••••• X

X

*MTNCNT

..
..
..

*•••••••••••••••••*

•
>
•••••••••••••••••

••

~

FOR

• SET FLAG IN* •
PSwt Tr."" TO
..
INDICATE SYSI'T

•

•

• •••• 03· ••• •• ••••

>
•

ENQUEUe

•

X

X

* OVFLAG • *'
*' *' SET
• TN PSWITCH •*'
*••••••••••• *

•
•
•
•

•*._......•..•...••

x •••••••••••••••••••
•••••
*lQ •
.. 04.
> •
•
ERROR

••Dl··*····

UPDAT E ERROR
COUNTER TO
MESSAGE
iN20D

•

:

*
FRROR

it
..r'S •••••••

X

ic

it

·.···J4·········**
>

•
•
..

SET
POINTER
FOR SCAN

..
•
>

•••••••••••••••••••
. ••••• *

.._.

•• X. E3 •

*··.-.-.-.-.-.
•• -*-*-.
X

•

>

K.3····· •••••

*EXCPRG
..

:

READ FIRST

D~~em·Y

GQO

*
:

•••••••••••••••••
.*x••
*
*•••• •

> A3 •
..

Charts

165

Chart LS.

$JOECTLE - Miscellaneous sutroutines (Part 2 of 3)
Refer to Chart 10.

••••

*• A2 *•
• *

••••

A2

.*.ic

····.3···...···•

••

YE S •• .*
PROCEDURE*. *.
• fTCHJIB •* ..........
* .. WITH SYSIPT ...
*. DATA .*
•• •••••••••••••••
•
*.
.*
*••
• NO
•••• Al •••••••••

•*

PASSGN

•

*•••••••••**••**•

••••' .

X

FTCHJ IB

TO MESSAGE

•

•

•

x

•••• *t 1**•••** •••
GET ADDR ESS
OF JIBTAB

*...X

UPDATE

FAYP TO JIB

•

...

BY THE •
*•• CHAIN
POINTER
•
PROVIDED
*****.tt.*
••• *•••*

IN600
•••••••••••••••••••
••

*
•
**

82 •• X.

·.···82·**···.···

FJB3

*** ••S1.*.*.*••••
• UPDATE ERROR *
* COUNTER •

•

....

*'"
•

X

*
*

*.··

••••C2 •••••
RETURN TO
** CALLING
SEQ

•

PASSGN

X

•
•

CALCULATE
OFFSET IN

****·83·*··*·····
•
•

X

****·C3*******·**
•* CALCULATE ••
•
ADDRESS OF
•

•
•

•••••••••• *••*•••

*

•••••••••••••••••*

REQUIREO LUB •
••*****.*.****
••***•

·····01.·········•
X

••
•
•

GET FAVP
TO CHAIN OF
FREE JIBS

03

.*
*. *.

:X •••••••••••••••••••••••• :
PJS

'.

*.
.* .*

X

**.·.*E3··.*.·.**.
SAVE LUB
•
•

.'
FREE
' . NO
•• JIB AVAILABLE.' ••••

IN ASSOCIATED'
JIB IFROM
•

*

JI BTAB I
••*.*.**.*******.*.
••

ic

*••
• *
YES

.'.x *.

*•• **D4********••
IS
*.*. YES
:
ADO~~~~ AND :
*..*.*
IT SVSRDR •••••••••• X'CONTENT OF LUS •
*.
LUB.*
• IN POOTPHASE ...
*..*
•
•
*. • .•NO
.*******••• ***•••

•
•
•

••*••••••••••••••••
:X •••••••••• :
.•.x
JFBl
El

•
•

FICLS
*
•**••******.**.****
•

*****

·LQ ...

••
•

• C4·

ERRORl

X

••*
•

JIB SAVE
OFFSET
INTO JlBTAS

X

.**·.F3.*.***••••

••• **F 1*•••••••••

•

•.CHAIN

*•

JIB ENTRY'
TO LUB-JIB- •

•

•

•••• *••••*•••••*••••

*.**.G 1*••• ***.*.

*··G3*.*.*·*
SET
*
PROCEDURE •
*• JIS
FLAGENTRY
IN
•
•
**••••*••• •

•

•••••••••••••••••••
X

•
CALCULATE
• JIB ADDRESS.

•
•

•

,.

SAVE JIB

• ADDRESS INTO
J IBTAB
•

X

•

*.

•
•

*.*******.****.*.

x

X

•••••" 1*··**···*·**
•

•
•***·*H3*******.*
•*
•
SET PUB

........... ....

•
GET PO INTER
•,. TO NEXT
JIB FREE

•_

"'

CHAIN

•
•

*

POINTER INTO

•

**
LUB
•*
*********.*****.'"

*

...

x
J1
••
.
*
•.
T ENTR Y'. NO
*.• 'FIRS
IN JIBTAB
.* •...
*. *.
.* .*

X

*****J3···****
* SET JI B •• *•
•

'* FROM JIBTAB •...
* INTO LUB
••••••••••••••••••**

~

.*••

••

POINTER

*

.. 82 •

.....
• Kl··········*•
*
X

•
•
•

UPDATE
POINTER TO
JIBTAB

•••• •

•
••.......
--_.....•
•

x
•'"••••
*
A2 •
• *•••*

166

DOS/VS IPl and Jot Contrel

X

...............•

*• ***.K3***.*.*·*
RETURN TO
•
CALLING SEQ •

•

$JOECTLE - Miscellaneous sutroutinee (Part 3 cf 3)
Refer to Chart 10.

Chart LT.

AI ••• • •••• •
•• ••••PROCOIB
•-

...............*

*

X

PROCDIB

•••
**SI*****·****
• DSKDEV
LT.

*-*-*-*-*-*-*-*-*
•
OFF SET *
* GET
IN OEVTAB
III

•••••••••••••••••••
X

·····Cl······*···
*
*
**

GET ADDRESS

•

OF PReOIS

••

...•....._.......
ENTRY

*

•

•

-•.··**A2*·.*.*·*.
...............•
..

CNVRT

····A4····*····
DSKINIT
*•
-_

•

-•••••••••••••••-

X

CNVRT

·····&4··········
.-*-.-.-.-*-*-.-.

FOUR

X

DSK INIT

•..••
*·*82*···**····
• SET
REG. POINT4 •
TO
..
*
•••••••••••••••••••

• OSKOEV
•
•

..

LT.

GET OFFSET
IN OEVTAB

•*"*.A5*••• ** •• *••
•••••••••••••••••
D~kDev

***··85· X••••••*••

DS'OEV

••

•_

. .·................-.•
•

•

GET SYSRES
POlNTER

•

"•••••••••••••••••
X

X

·····C2·*········

**···C4··*··*····
•
UPDATE
•
WKOF1 BY
*••
•
VALUES OF

• GET NUMBER
•
-OF BLOCKS OCCU-*
•
PIED BY
..
PROCEDURE
•
*INTO REG.POINTZ*

*'

..

OEVTAB

•

•••••••••••••••••••

·•........•-..-

•••••••••••••••••

*···*C5···.··.··.
*-*-.-.-.-*-*-.-.
•·...._.*_.* •••••••X

.CHKASf;

•

GU •

GET SYSRES

•

•

PUB ENTRY

•

• 02 ._X.

X

**·*·01··
•••••••••
BUILD

•

• CURRENT ADDRESS.
..
IN
• PReDIB ENTRY ..

*

•._•• *•••• _••••••••
X

CNVRTL

X

*····02··********

* WRKRG3
*
*•••••••••••••• *.**

··**·E2**······*·*

•••••••••••••••••

••••*••••••••••••

LT.

*
CALCULATE
END ADDRESS
* OF PROCEDURE

•
•

•.••-FI··········
X

•..
..
•

ENDMove
ADDRESS

INTO

*
..

PReOIS

..
•

•••••*•••••••••••••

INDEXED BY
PO~~l~h TO

**.. ....*
• YES

........ ........
-

_

X
*.**H 1****** •••
RETURN TO
CALLING SEQ

•

CNVRTS

X

-•••••••••••••••*

_

CALCULATE

•

OFFSET IN

_
•

WRKRG3

:
•
•

X

.*.·F5·*_*" •••

·
•

•

RETURN TO

CALLI NG SE~

•••••••••*.*".

•

-

.

*·**·G2*·***·*·.*
•
..

POST POINTZ
INn; OISK-

•
..

-•••••••••••••*•••.-.x *.

•
•

•

TYPE

:x ••. _....•.•.••• _..••...• :

.. ADDRESS FIELD ..

LIMIT

pgl~f~EBY

•••• *••••••••••••••

.AND UPP ER HEAD •

-

•

.·.................-

.*••• F3 ••••••••••

·

*·*··Gl**********
•
ESTABLISH
..

_
•

.BYTE Of:' OEVICE •

VIA
•
*• DEVTAA
THI S VALUE
•
•*•• *•••••••••••••*

F2
•••• VALID ••• _ NO
:
".DISK ADDRESS •••••••••• X.
*_ IN PDINT2..
•

•_ RECORDS/TRACK
NUMBER OF
•_

X

•

X

..
:

.•.x *.

CALL tNG SEC

..
SEPARATE
• SECOND HAlF-

••••• FS . . . . . . . . ..

•
ADO OISK
.ADORE SS VALUE, ..

•
:

••• RETURN
*04* •••***.*
TO
•

- *•••••••••••••• *

X

····*E1··········
*-*-*-*-*-*-*-*-**

*CNVRT

..
..

·····05 ••••••_._.
X

X

-GET 01 SK DEV ICE*
INFORMATION •
..
I NTO REG
*

• ••••H3 ••• *.*.*.*
....
** REDUCE
POINT4
•

H2
LOAD

.*
*. *.
*. * . . * .*
*. ...

•• AND TEST
NONE
'.QUOTIENT INTO •••••••••• X>
POINT2
•

..• BY two
*
• ••••••• *.**•••••..
*•••

.

... x*-02 •

ZERO

"*•• *"

it

*.·*J2····*·*·*
RETURN TO
•
CALLER
•
••••••••••*••••

·
•
•

-

Charts

167

Chart LU.

$~OBCTLE - Errer sutreutines
Refer to Chart 10.

._.**lE ,.

• 02-

••
•

RPSEFU~

X

**85 *******
*AUTO
TURN ON
*
CANCEL *
SWTTCH
•
** J8CSW4
*
B r T5
•

*
*

,. CANca SWITCH ,.
*JBCSW4 BrT 5 ..

•

.**********

*

****.******
****
* • .• REFERENCES

*

* *.x.

*

*

PNPERR
,.

,.

*

X

'* ***::t*******
BIT5
'"

,.

*
*

,.

·***04.********

*

BRANCH TO
ERRRTN!N
SJOBe TLA

***$********.**

DESIRED

*
**

MESSAGE

lS100
*•
*F3
************.****

•

.

f ................... .

X

**02***·*··
TURN ON
,.
$\jtTCH
J8CSW4

... x.......

***

PO! NT TO

'"

••• *.*.**********

,. AUTO CANCEL ,.
,.

'"

.OESIRED MESSAGE.
,. 1A200
*F3*

••
•

TO
lue5:
leel, lEJ4

OTSE RR

•,.***··C4**·*****·•*
POINT TO
,. C3-

..

.***
•
X
*****C5 ******.***

X

•••
**
*LG *

X

OTSER!)l

•**B4******-•*

_TURN ON AUTO

*

*
*•

*'*

****D5*********
TEST~EAl

************.**

•
*'*

x

····*E2··········
••
••
X

f- .*

NO
. .•.
*.

••• REINITIALIlE •••
*******.****.****

E5

.'. -.

-. *.
.*
.* .*

OPERAND
P~ESENT

*. *.

*•.
*
* YES

*F3

x
. *. *.
F2
•* INPUT *. *. NO
'
*.._.
FROM
SYSRDR
.* ••••••
*. *•• *.*
* YES

:MESSAGE": ·DEscRiPTioN· .. • .......... ..
:iC3Ni· .. ·: 'PROGRAM'NOT ·FouNo··· .. "."
:ilioD" ": 'LABEL 'AREA ExHAuSTED"·····
:i si 00····:· STAr EMENT 'OUT'OF' SEQUENcE':

x

F5

.* .*
*. *.

* .*,
.*
.*
.*
*•.•
* YES

• NO
• X•• *.LENGTH = '4

:mOD"":'mnWiTiciN'sm~o"''''
• REAL MODE PROGRAM CANNOT
• BE EX ECUTED

X

**********,.
*
**

*

" ••• *G2
CHANGE
•
ACTION COOE
•
OF MESSAGE
,.
TO I

•******************

*

:

****G4*********
BRANCH TO

~~6~~~llN
***************

.'.*.

•

,*

G5

.'.x *.

I

*.

*.
:x* ..... "'.'.*•. *...
9~~:~~D .• '*
*
X NO

IS

*..•
* YES

: x............. :

,.
~

X
*-HZ.····_·
*

*

MODIFY
BRANCH

X

,.
~

VEerOR

•

TABLE
•***********
•*

X

··***JZ*·********
•
POINT TO
,.
,.
nest REO
**
,.
MESSAGE
•,.
lC3NI
*,.
*F3
••***************

x

,.···;~i~~*~6*** ,.
•

*

ERRRTN IN
SJ08CTLA

•

***************

168

DCS/VS IPt and

~ot

•

Centrol

*****H5*********
RETURN
**
TO

..

*

CALLER

*

** ** •• *.*••••• *

Chart MA.

$JOECTLF - LISTIe Statenent Processcr (Part 1 of 5)
Refer to Chart 11 •

••••

•******
• • ***

* *
*•••••

• "2 •

*

.....A2··········
X

•••• Al . . . . . . . . .

•• SJOBCTlF ••
• ••••••••••••••• *

.. Move THE ADOR '"

·····Sl··········

·····S2····**··.·
*-*-*-*-*-*-*-*-*
..
..

DETERMINE
TYPE OF

..
..

•••••••••••••••••

..

OPERAND

'"

•
*** PESET
LINE
:01
COUNT TO
*
*' ZERO
WRKRr;3
*
******************•

..

X

MQ'

'lNITL

*****A4**********

* LOC. TASVSTAB *
•••••••••••••••••

X

L ISTlO

*FNOARG

*-*-*-*-*-*-*-*-*
INITIALIZE
..
FOR
*
RELOCATION
..

•
•
..

X

·····Cl······*···

*****84****·*****
*SAVE
THE BPANCH.

*TABlE DT SPLACE-*
MENT IN LOC
*
COUNT FROM
•
WRKPG3
*

*

*

*

************** .. **

X

X

..

..

..

••••••••**•••••••

*·*·C2··*******
Ext T
..
PER TABLE A

..

**.** ••••••• **.

~

*02

*02

1. THE OPERAND IS ANALYZED AND CONTROL

'"

TO

•

..

OPERAND

..

•••••*•••••**••**

.*

El

x
.*. ••

,,1\.1--

~

* ... *

YES

·

.

*****E4**********
*MSGOUT
GJ*
*-*-*-*-*-*-*-*-*

d

• • ,• • ..,.

*•

...

**

ON I/O
LAST

*****************

X
***F4******* •

X

••• **F 1**********

***

•
""

SAVE POINTl
IN WRKFLD3..
* POINTl IS THE
.POINTER TO THE.
OPERAND
•

***

*•• *•• *••****.**.*

..

..

SVCBTRNS

..

***************

SVCBTPNS

X

.*
*. NO
*****E2*.*******
BRANCH TO
*
• • t:NU fHt ::.(;AN ..... . . . . . . .
I'iV:.::>t"'" l''Oj
*. *.4O* .*
* SJOBCTLA
*
***'************

*

X

**04*******

SET
*•
***• 'ONLY
WAIT'
*
SWITCH
•

*****.*****

DID ••
A BLANK

··

** **c c; *********

*

IS

*-*-*-*-*-*-*-*-*
POINT
..

'"

..

LOGICAL UNIT CLASS POINTER.

*

• TRANSW,OFF *
*
•
***********

3. REGISTER WRKRG2 CONTAINS THE
LUB COUNT.

GK*

SET HIE

B-TRANSIENT '"

*ACTIVE SWITCH,

TRANSFERRED TO THE CORRECT PROCESS ING
ROUTINE USING TABLE A.
2. REGISTER POlNTl CONTAINS THE

*SCANR2

**C4******·

*

•• ***01**********

X

X

llDEOJl

T8 '"

..**•••••••••••••

.. LOAD POINT4 ""
_WITH ERROR EXIT.. TO BE USED IF ..
.. $$BlSTIO IS •
.. LOADED *F2
•

MEH4. MJK5

X

L lOEOJ

-Of THE SYS UNIT'"
_TABLE t $YSTAB LE,"

.. TO THE TRANS

REFERENCES
TO
MAA4:
MBJ3, MCG1

I

RESET
ONl Y WA IT

I

SWITCH

..
..

..

..

X

**n"i*******
SET

..

TPAN$tENT

AcnVE

..

SWITCH

0'"

***********

..

*
..

•

X

******E5**********
LOAD Q.EGl
*
* WI TJ..! AfJOR OF *
". T'"'F TP"MC'fJ::I'\IT ,..
*N~E.

~~Rl1

*

STIn

•
*
*****************

X

*

**

• *********** *

*****F5**********
*MTNCNT
GU ..
*-*-*-*-*-*-*-*-*
..

*

PElEASE

*

SYSTEM

..

•******************

*G2
LINKR2 I S USED BV THE $$BLSTl 0

TRANSIENT 10 RETURN CONTROL TO

X

1**********
******c
LOAD L INKR2
*
""
\ljtTH RETURN *

*

ADDRESS TO BE
""
USED BY
"" $$BLSrIO *G2

THE CALLI NG ROUT! NE AT THE

LABEL RETADO.

X

*****G4**********
GU *
*-*-*-*-*-*-*-*-*

*MTNCNT

·

*
*
*

*
*

************** •• *

RELEASE
SYSTEM

.
*

*

X

*****G5**********

.. ..

*

* *
*
* *
..* **

*<;VC-2 FETCH*

* ..
..'" ....

t;~BL!STlO

* *** ********** ***

*.***.*********.*

X

*****H<;**********
*MTNCNT
GU *
*-*-*-*-*-*-*-*-*

TABLE A

X

.****Hl**·*******
.SVCBTRNS
MA*
*-$-*-.-*-*-*-*-*
•
•

LOAD AND IN IT •
$$8lSTIO
*

•.****************
*G2
*

X

RETAOO

•• ***J 1**********

*MTNCNT

GU

*

*-*-*-*-*-*-*~*-*

*

•

SEIZE

""

SYSTEM

""

• ********.*******
••

:oPERANO·:· RCUTiNE·:· CHART:
:svs·····:· Liiit····:· MS:Ai:
:,;RO,;····: ·Liat····:· MS:Ai:

:W····· :·l.iOt····:· M:;;i:

:F2······:· tiDt····:· MS:Ai:

: F3· ••••• : • t i ot· ... : . MS:i.i:
:F4······:· i. ioi.····: ·M:Ai:
:ALC····: .l.iOi. •••• :. MB:Ai:
:UNm···:· uNiTS···:· MC:Ai:

:cuu·····:·L.iocuu·· :·MO:;;i:
:OOWN· ••• :. DOwN····:· ME:Ai:

:UA·· .... ••• .. Uj.· .... • .. ···ME~Bi:

: sysxix .. • .. r. IOSYx4O· •• MO:B3:
:1iG········ Liai.······ MS:Ai:

****H4*********

X

**

.SVC 11 RELEASE
THE TRANSIENT
•
AP EA
•

*

***************

**

***•• ****.*.*****

..

•

*****************

*J4
EXIT BY TABLE B

X

TABLE B

:OiSPLACE::·······:·····:
• MENT

.ROUTINE.CHA~T.

: HEXrid···· :cdNTroi.:GC:s i:

:HEXi;;···· :NVSERR .:';1':1: 2:

*****J~ **********
..
LOAD WRKRG3

'*

..
WI'TH
.. 01 SPLACEMENT

..

..

*
*
*

FPOM SAVE
ARFA COUNT

*

*****************

X

.*.**K 1*******.**

•
MOVE THE
*
*OPERAN D TO THE *
_TRANSIENT AREA *
* IN LOCATION •
•
TARG
•

*

SEIZE
SYSTEM

*

X

********.*
TABLE 8
*
*J4
..

.. ****K5
EXIT PER

*

*

*.*******••• ***

x

* **** *

* A2 *
***** *

Charts

169

$JOBCTLF - lISTIC Statenent Precesscr (Part 2 ef 5)
Refer to Chart 11.

Chart MB.

•••••
*••••*

.**• •
o
.. A4 ..

o

• A2 ..

•

ic
.e.

• L10L
••
•• ••••••••••••
**. •
•••• AI·· •• • •• ••

L IOL

X

o

**•••••••••

·••••••••.._.x.

*..*

..

*. • ...NO

•

***********

*****A4*********•

**
*

..

o
.*.*
..........*.**

.ANO COUNT CTRL *
•
TO 1
•

..

••• ** ••••••••••••

*

OF
SA

LUB
EA"

-JIBCH -

*

X
*****84*.********
OCHKAS93
GU *
*-*-*-*-*-*-*-*-*

X

:M~B~~ BI ~O~~ll S:

• COMPUTE LUB •
.ADDRESS AND NO ••

RG3'
ESS.

*********.*******

·.···S3·.··•.·*··

KAo

IN CLASS

• LOAD
• WITH

..

·*-*-*-*-*-*-*-*-*
..··82··········
oGETLAN

.***

X

L IOL 2

**A3***••
YES
*ON.INOICATES *
••
OPERAND
•••••••••• X.SINGLE UNIT TO •
•• SYSXXX ••
•
BE LIST ED •
.SET TPROGSW*

ic

·*Bl*····*·

• SET LIOSW •
.ON. INDICATE.
•
LIST 110 IN •
•
PROGRESS
•

*.

LIOLl

•*A2 IS *. *. ••
••

••••

o **** 0

*• A5 •*

0

•

*..

COMPUTE PUB
ADDR

•

IN WRKRG4 •*
***********••••**

X

*****A5****.***.*
00UTPUTl
MOO
*-*-*-*-*-*-.-*-.
* PRINT 1 ..

**

*

LINE FROM
BUFFER

..

*************.**.

ic
*****85***·******
•
LOAD LI NKR2 •

*•

WITH THE
ADDRESS

*•

*
LIOL4
•****.************
••

.. Cl

•

0

•··.··Cl·.··.*.··.•
X

X

·**.*t3 •••** ••***

..

..

FROM

•o

..

WRKRG2

*****C4.!.*.*****

• PLACE LOGICAL.
• UNIT CLASS
•
IN CLAORO
0
•

.LOAD LUB COUNT 0
•
IN WRKRG3
•

..

•••••••••••••••••

• MOVE PUB AOOR 0
• TO TRANSIENT •
o AR EAy TPUSADO *_

*

••

•

**••**.*••***••••

LIOLL20l
X
••• **Ql ••••••••••
• SAVE LOGICAL *
o UNIT CLASS IN •
CLAORD AND
•
•
.. LUB COUNT IN ..
o LOC. COUNT
•

*****.*********.*

X
*****04*********·

X

*****03********·*
• MOVE LUB AOOR •
•

FROM LUBAO
SLAOO FOR
SCAN

..

*o

•••••••••••••••••
••••
-NO"
•
• • .

-COMPUTE LOGICAL'UNIT NO. WITHIN.

•
..
..

*o

•

....

*...

0

****.*.**********

: •••••••••••••••••••••••• X:

*-*-*-*-*-*-*-*-*
..
PRINT A BLANK ..

X
*****E3******·.**
.SFPPE2
MR.
*-*-*-*-*-*-*-*-.
.SCAN lUB TABLE •

X
*****E4*****·****
*MOVE PUB POINT-*
: ~~ t~A~m~~N :

_

*****************

•

*••***.**********

LIOL202
X
••••• El ••• • ••••••
.SKIPLN
KB*

LIOLL3

........ ........

*

*L INE TO EFFECT.
•
LINE SK IP
•

·*-*-*-*-*-*-*-*-*
..··FI··········
X

.LHRTN

POINTERS

.* .*

*. ••

•••••••••••••••••••

-AREA FROM CURR •
• LUB SAVE AREA •

FOR EQUAL PUB.

LlOL4

TDo

* BUILD HDR FOR.
..
SE
III

F3

x
.0.

*.

END
OF LUB

..

X

*****FIt**********

*.*.

CLASS

*. *•. *.*

NO

.* .* •.••

x

.. YES

*• ****
A4 •0

•••** •
X

*****G3******
* LOAD WRKRG3•• ***
•
•

o

•

WITH CLASS
COUNT. LOAD
POINT! WITH
LAST CLASS

0

*•
0

*.************.*.

X

..

X
****.H3**.***.***
.INCft POINTl TO •
* POINT TO NEXT *

•••••••••••••••••••

*****************

******Hl****····*.
0
MOV E HEADER •

*

..

..

TO BUFFER

*Kl

••*

..

CLASS

NO.* •*

... *. *.

..

x

--

****
* Cl •

OKl

I1D-UNIT---CMNT--C~NL---UNIT---MDOE

••*.

J3

END
OF LUB
TABLE

*Oo

* .• *

Jo~

Centrol

Oo*

- YES

x

*** ••
* A4**

·MA

•••

DCS/VS IPL and

•••

.*.x * .. *.

LlOEOJ

170

CLASS OF

CURRENT LUB.

o STORE IN TLUN

.*****••••••**** •

.. G3 •• X.

•

*.
.* .*

• LOAD SYMBOL IC -

:U~~b ~~8~l~L~ijS:

*

REG POINT! *
•
***************.*

*

X
**.**G4*****.**.*
o
0

*

*

CLEAR
BUFFER

•
0

o•

0

***********.**.**

X

*****H4*********.
*PUIF
TA*
*-*-*-*-*-*-*-*-*
o BUILD A PRINT'
•

*

LINE IN WORK

AREA

•

•

*******.*********

X

*****J4**********
*SULB
Te •
***-*-*-*-*-*-*-*-*
BUILO PRINT •
LINE IN
•
..
BUFFER
'"
********.***•• ***

x

o *.** •
•

o

A5

****

•*

X

·***C5
*********..
FXIT TO

*..*

SFPDE2
ROUTINE

•

**.********.***

*

$JOEC~LF - LIS~IO StateKent Processcr (Part 3 of 5)
Refer to Chart 11.

Chart MC.

o

•••• •
••••

*• ••••
•
A5 •

• '3 •
•

UNtTS
UN ITS 1
*SKIPLN

····.Al·····.·.·.
*-*-.-*-*-.-*-*-.

i

·····A3··········
•
•

UNCU

K8*

'"

•••• A2 •••••••••

'"

• PR INT A BLANK OX.........
UNITS
•
*L INE TO EFfECT'"
'"
*
'" A SI( IP *A4"
•••••••••••••••

•••••••••••••••••

••••• •

0

UNITS6
ic
••••• "5 ••••••••••
.AOO ONE TO NUJ-O
.BER OF PART IT- *
• IONS AND MULT •

•
MOYE UA TO
•
• OUTPUT BUFFER •

•
+23
*•
•
•••••••••••••••••
*•••• ••

....

•

BY

•

)('10'
•
•• ••••••••••••••••

• B3 •• X.

•

X

UNITS402

• COMPUTE LUB •
:AOO~~StLm NO.:

•••••••••••••••••
'"

•••.
·C3.·········
*-*...

·····Cl·
. •··•·•··
*-t-*-*-*-*-*-*-*

.. PR INT HEADER

..

*-*4-*-*-*-*

.SCAN LUB TABLE •

•

FPQM BUFFER

..

.. SPACE 1 l JNE

• FOR EOUAL PUB.
•
POINTERS
..

..

·····01··········
•
•
X

•
•

LOAO PUB
ADORESS IN

..

UNITS9

.•
•*

•
•

WRKRG3

••

..

•••••••••••••••••••
••••
*MD '"
•
•.. K 1•"Oo x...

••

03

.•.x

.... .. ..
END

OF
LUB

....

ur:

lil.

•

(;Ui<~t:,.cl

•

X

MOVE PUB
ADDRESS TO

•
..
•

x
.0.

Gl

••

*.

••

Oot

X

••

*SEVOB
TC*
*-$-.-*-.-*-.-*-.

X

•*

•*
••••

.*.

Hl

x

L lO:OJ

*...
•. ••

UNITS3

*•• *.H2 •••••**•••

•• YES
••••••••••••

x:..-$-.-*-.....-.-.-*
•••• *•••••**.*•••
rA •

*PUIF

BUH2epnNT
WOPKAREA

.. .. . ..
x

•*

o.

••

*.

.. ..

SINGLE
ENTRY

••

*

.lIt

:

•

X

•.

YES

.* ••• '"

• •••• J2 ••••••••••
*SEYOB
TC.

:4t-.-*-*-*-*-.-.-•
• BUILD PRINT •
•

o

LINE IN
BUFFER

•
*

••••*••••••••••••

NO

.····Kl······. ··.
:•-.-.-.-.....-*-*-.

.-.-.-.-.-.-.-.-.

..

*• ••••
•
(4 •
• *

X

.TXCUU3

~g~m~ ~~B

•

NEWLUB

•
•
•

•••••••••••••••••

• NO

J1

BUILD PIIINT
LINE IN
8UFFER

'*

*. *.

IS
06~~~E

*
•
•

•••••
• MA •
•Alt••

• NO

UNITS2

•
•

MO.
:

..

•••••••••••••••••
·xx •••••••••••.
••••
•
0
.. A3 •
• _. •

.-.-.-.-.- -.
X

••••• H3 ••••••••••

.OUTPUTl
• PRINT

•
..

:
*UNITS9 TO CTRL
RETURN FROM
•
*
SFPPE

FROM

•

•

•••••••*.*•••••**

:
•
•
•

B3 •

*•••
.*
••

.. ..
END
OF

LUf\~

••.
*
• YES

x

••••

•• C4 •*
•.111 •• *

x

F4

••

....

*.

••
IS
NO
•• UA IN THE ••••••
•• BUFFEP
••

••

.*

• YES

X

.-.-.-.-.-.-.-.-.
• •••• G4••• • ••••••

'OUTPUTl

•
•
•

PRINTl LINE
FPOM
BUFFER

MO.
•

..
•

•••••••••••••••••
:x ••.••..... :
UNITS8
X
••••• H4.· •••••• ••
• INCR PUB ADO.
• IN WRKRG3 8Y •
•
B TO POINT
•
•
NEXT PUB
•

*

•••••••••••••••••*
x

•• ••••
•
El ..
*••••
•

•••••••••••••••••

X

BUFFER

•
•

X
•••••
J3**····
••••
wW~DT~!N~~~

X

**••• K2·····***··
MO.
.PRINT ONE LINE.

FROM
BUFFER

•••••••••••••••••

.OUTP un

*•

...........MO•
ONE LINE.

•

*.

x
.*.
••

,,:,,~"'!!r""

·····F3.·········
*
·.·.*G3**.···•• ••

.* ••••

:.~~:

x

••••••
•••••*

•
>
•

.. .*. ..

fA.

•••••••••••••••••

*.

MOYE CHANNEL
AND UNIT TO
BUFFER FPOM

••••**•••••••••••••

• LINE IN WORK
AREA
*

END
*. YES
Of
•• *Oo PUBS ._ ••
to.

·····E4··········
~'iCW!l

NO
•••••

•

AS •0

*••

O'i

.•
• *'

•

X

.-*-*-.-.-*-*-*-otI
BUILD PR INT •

•••••••••••••••••

BUILD PR INT
LINE IN WORK

•
AP fA
•
x
•••••••••••••••••
••••
••••• •

X

*
•
•

•*••••••••••••••• *

TA*

•••••••••••••••••*

.PutF

..
..

TRANS lENT
AREA LOC
TPUBADD

•
•

•• ••COMPUTE
·.E3 •• ••••
•• ••
TlUN,
•
• LOGICAL UNIT *
• NUMBER WITHIN •
;;.
l";;; CU.:;~
-:

•••• *F I ••••••••••
•
•

YES

••••••

i

lito

PARTITION

••

•
•

.................
.~

.

.SCAN 1 N WRKRG'J •

····*04··········
.-.-.-.-.-.-.-.-.
• PUIF

•

STOP 0
• VALUE FOR LUB •

ic

*. ••

• NO

UN ITS401
x
••••• El ••••••••••
• CALCULATE PTR •
• TO BG SYSTEM
•
• • X. CLASS US INC •

•*••••
•
El •
•••••
•

••

••·*.C5 •••••••••*

•>CALCULATE

•••••••••••••••••

•••••••••••••••••

•••••••••••••••••

•

;.

.····C4••••••••••

MR.

CALCUUTEO

t N WRKRG3
••••••••••••••••••
••

UNITS501
X
.CLEAR TEMPORAPY.
• FIELOSA TMODE *
: AN¥RI~s~~~TIN :
>AREA TO BLANKS.

X

UNITS5
*SFPPE

MOO

*•

••••• •
• C4 •
••••• •

•••••••••••••••••

X

• OUTPUTS

• •• 815 ••••••• • ••
•••
••
•
LOAD VALUE

KA.

*-*-*-*-*-.-.-.-*

*-*-*-*-*-*-*-... *
RUFFER

ic

X

*GETLAN

• BUILD PHYS !CAL.
.UNIT HEADER IN •
•

.

*

• ••• *83 ••••••••• *

••••• Sl· ••••••• ••
*PSHRTN
TO.

• •••K3 •••••• •••

•
•
•

EX IT TO
SFPPE
ROUTINE

•
•

•••••••••••••••*

x

••••

Charts

171

Chart MD.

$JOECTLF - 1ISTIe StateRent Processcr (Fart 4 of 5)
Refer to Chart 11.
L IOCUU

IiI*"*.A
1**•••*** ••
.. RESTORE REG ..
..

:
..

POINTl FROM

_~~~~~~3to
HEX

....

:x •••••••• :

cuu-"

**** ***** ••••••••

..**A2***** ••
LIOCUU

*.

•••••••••••••••

..

:

*'"

****A3 ••

*.·....

•

LIOSVX

•***••••••••••••••
X

LIOSVX

·.S3 •••••••
SET LIOSW ON_

'"

.

*
..

.

rNDICAT ES ..
LTST I/O IN ..
PROCESS

'"

** •••• *****

x

x
*.*.
***•••

*****c 1*** •••• KB*
*••

•.. •• **c
3
RESTORE

.. PR INT A BLANK '"
*l TNE TO EFFECT ..
'" A LINE SKIP ..

..

*SKIPLN

*-*-*-*-*-*-*-*-*

..

X

X

*****01***·*****·
TO.

*****03*.*******.
*SYSXXX
KK*
*-*-.,-*-.-*~. -*-*

*-*-*-*-*-*-*-*-.

• CHECK XXX AND •
• GET SYMBOLIC •

"'SUllO PHVS leAL '"

UNIT HEADER
IN BUFFER

..
..

*UNIT ADDRESS.C4*
*****************

*********.****.*.

x
.* .
E3
*.
.*
* •*. YES
IS
*.• * UNIT
*. *. SYSIN ~. oo* .*oo •••

X

*.***E 1**********
*OUTPUTS
MQ*
*-*-*-*-*-*-*-*-*
• PR INT HEA DER
•
FROM BUFFER
• SP AC E l l IN E

'"
'"

*

.... *

*******"'*********

*

•

lOAD PUB
ADOR IN
WRKRG3

NO

x

.* .
... F3 IS * ~ *. *. YES..
.*
*.
UNIT
.* .. X.
*. SYSOUT
.*
*. * ••• .*
x
• NO

X
•• ***Fl*****·*·*·

'"
•
•

..

..

OPERAND '"

•***.*.**** •••• ***•

*PSHPTN

*

..

PO[NTER TO

*svsxxx

*** •••• *** •••••••

'"

REG

POI NT 1 AS

*•*

•

•.*.* •••••• **** •••*

*.***
*MN
•

X

X

*****G 1*.**.***.*
..
'"

*
**

MOVE PUB,
8 BYTES, TO
WRKFl02
"'K2

*
•*

*

*SET PROGSW *
ON TO IN01CATE'"

.

'"

**.*.*.****"'**.*,..

PROGRAMMER

x

"'Me '"
'" El*

* •

*****Hl*********'"
MOVE END OF

PUB FLAG TO
WRKFLD3
*K2

**

•

1I0L202

,..
•

•.*.**********.****
X

••• **J 1**********

*
*

*
*

lOAD REG

WRKRG3 AS
POINTER TO

*
*
*

WRKFlD
*
•
*K2
*
*•• **************
*K2

X

**K 1*******
*SET SW ITCH •

'" UNSW ON TO •
• INDICATE SINGLE.
* ARGUMENT
*

* **********. *

: UNITS401
X

*****
*MC *
'" EI*

••
*

112

DOS/VS IPL and Job Control

.

UNIT
'"
****"'******
*****

X

*
**
*

llUS

"'*G:3***"'***

'"
•

WRKFlD2 AND WRKFlD3 ARE CONTtGUOUS. WHEN
LOADED IN THIS MANNER THEY SIMULATE THE
LAST PUB IN THE PUB TABLE. WRKFL03 IS
lOADED TO POI NT TO THE PUB IN WRKFl02
INSTEAD OF THE PUB IN THE PUB TABLE.

•

*

E4*

••
•

Chart ME.

$JOBCTLF - LISTIe State.ent Processcr (Fart 5 of 5)
Refer to Chart 11.
••••••
•

A4 •
•••••
•

-•................•

•.···Al····.····•
•

UA

•••• A! •••• •••••

•

•

•••••••••••••••••

UA

X
..-.-111-111-.-__
····S1··········
....-.

*-*-*-*-*-*-*-*-*
• PRINT A BLANK •

"LINE TO EFFECT ..
.. A LINE SKIP •

•••••••••••••••••

•••••••••••••••••
X

•••••C1.!........

•·····C3··········
•..
•
MOVE DOWN

•
•
•••••••••••••••••••
_MOVE UA HEADING.
- TO BUFFER + 6 •
• -17 BYTES•

•
•
•

•
•
•

•

SAVE C

•

tN TRA

•

•

PROCESSING
•
•••••••••••••••••

..

LOAD WRKRG3

..

WITH SYSLOG
LUB POINTER
HEX 08

•
•

••••••••••••••••••••
X

• ••••C4 ••••••••••

*-.-.-.-.-$-*-.-.

.CHKASG
•

:

.*

04

¢

•

Mg.

• FROM BUFFER.
• SPACE 1 LINE

•
•

X
•••.•Hl····
....·•*

•
•

Hove

"NONE··

•

*TO BUFFER + 11 •

••
••
.................

••••
•• •E5
• ••

.....

PUB ,lOOP IN

•

*

~"!*:~~3

:*

*••••••••••••••••••
UADN4

F3

••

Fit

• ••

• DOWN

X

TESTl
••

.*

••••

G2

•••

••

IS

TEST2

-. ••

.. ......
C~B

• NO

YES

••••••••••

.* .•

••

••

G3

*.

.•.x * .

IS
PUB
DOWN

....

....

.•.•........ x..

*•

•• NO
••••••
••

••
••

.*

G~

.. A4 ..
•••••••*

*.

.G5
REG-POINTlHAS ADDRESS OF
TESTl IF
PROCBSING-UA.
OR ADDRESS OF
YES TEST2 IF
•••••• PROCE SS I NG-DOWN- •

*.

.. ...*
:IIr • • •

• NO

X

X
• . . . . H4* •• ***.**.
MO.
.-*-*-.-*-.-.-$-.

.OUTPUT

• BUILD A PRINT.
• LINE IN WORK •

•
•

*-.-*-*-*-.-.-.-.

...............*.
AREA

.* •••

.* HAVE ANY
... UN ITS BEEN
•• LISTED

•••••H3 ••••••••••
.PUIF
TA.
•

:.. :O~~T~b'
=t :•
NF:XT PUB
•••••••••••••••••

YES

• YES

UAON6

X

••

x

.*

..··•..
•.···.ES······
•
lNCR PUB

UAON'3

••ic *.

X

..
...* ..•
*

.-

....
....
-.. *
.-.

UA •• PROCESS ING ••
NO..
END
• ••••••••••••••••••• UA OR DOWN .*x.. ..... .•.
OF PUB
••
••
••
TABLE

•
•
•••••••••••••••••

• OUTPUTS

••••••••

• NO

•

_MOVE SUB HEADER'"
• TO BUFFER + 10 •
• -a BYTES•

*-*-*-*-*-*-*-*-*
• PRINT SUBHEADER.

••

............

•• PUB SYSLOG

..... E4*:....•...

-.....Fl····..····.
..···Gl··········
.................

••

•• LOAD CURR ENT ••

x

X

.•.x

: •••••••••• X:

.................
;;u~~~~..

•
:

..IS CURRENT •• YES

•••••••••••••••••

.•••-It-.-.-.-.-*-.....
··El·.··...•·•
r;;'~H

GU •

GET SYSLOG
PUst~R~4 IN

•••••••••••••••••

•

UADNl
it
• OUTPUTS
Mg.
.. PRINT HEADER •
;;..

DO

•
•
•

..x ........................................................ ..

• SPACE 1 LINE

•

TlON.

TPU

X
·····84······.···

•
TEST2 FOR
•
• DOWN PROCESS INGO

•

•

•••••••••••••••••*'
•

X

:1~6T B~I~c~Offl:

•

PUB A

• AREA L

. . . . .03 ••••••••••

•
INn REG
•
POINTl TO
•
-BRANCH TO TESTl.
•

HEADER TO
-12 BYTESBUFFER + 6

•••••••••••••••••

X
....·01.··*
...···
fORUA

•

COWN
X
•••• ·83 ••••••••••
• SKIPLIN
KB*

-SKIPLN
KB.
_ PR INT A BLANK •
-LINE TO EFFECT ..
A LINE SKIP •

•

DOWN

UADN5
X
••••• A4.· •• • •• •••

•

PR INT LINE
FROM BUFFER

•
•

•*••••••••••••••••
.*NONE..
•

:x ••••••.••• :

x
* ••••

UADN2
it
•••• ·Jl ••• • •••• ••

••
•
•
•

LOAD PUB
ADOR IN
REGISHR
POINT2

••
•
•
•

.................

• MA •

X

• •••• J3*.* •••••••

• CLEAR BUFFER • •

:u~?¥ETEH~F~~~

•

:•

.. Alt·

• *

•

L10EOJ

fROM T CHNl
•• ••• * •••••
TUN IT
***••••

*

x

•*•••••
••••• •
A4 •

X

••••
*K3.**·*· ••Mg.
••
.0UTPUTl

*-*-*-*4-.-.-*-*
*PRINT ONE LINE.

•
•

FROM
9UfFER

..
..

••••••••••••••• *.

·•••••••••..••••••••••.... x.x.
.
•••••••••••
x

..*.

•* E5 ••

••• *. •
Charts

173

Chart MF.

$JOECTLF - RESE~ Staterrent Processor (part 1 of 2)
Refer to Chart 11 •

....Al·········••

•

......-.........

••

RESET

•

•...••••
B2 •
•
>

••••

*····81··********
MQ*

* INITL

.*
>.

...*-*-*-*-*-*-*-*-*
INlT FOR
...

...

SELF

*

x

-LUB COUNT0 EO

...
...

•

SYS CLASS

•

_

*_._ ...•...

TO
OPERAND

1It• • • • •

EI

.*
.*010

NO

•••• *..

••

x

>

.. ..
..

-•

:~ESET015

*

A
END THE

*. *. SCAN .• .*••
111
• YES

.111

............-...*

y~EM~~tz

•

_

X

••••• G1 _ ••••••• _-

*...
•

>
...

SET POINTl
FOR SYSTEM

*

CLASS -0•*• •••••••••••••••
•-•

**.*. **

•... X.

PEREXIT

it

:*

~m~8~

•••••Gz •••••• * •••
>
**
>
POST

:•

**••****•••******

u

••••*

········
"x:·.··HI"'
~~6~~~llN :
•••••••••••••••
•

BRANCH TO

.. ..
• >.

E3

..

VES.*

.......... *. *.

*.

IS

O;~S:ND

*. * ••• .*
o NO

x

.> •

*.

.*.*

.* E4 *. •.
..IS OPERAND *.

YES

• ••. SIi~SU~R .•••••••
*.
.*
x
*••
> NO

******
**MN
•E4*
*
*

IlUS

X

••••• F4•••••• • •••
*TSTPROC

KN*

*-*-*-*-*-*-*-*-*
*• TEST
LANGUAGE *
RESTRICTIONS >
*••••••••••••** •••*
;.

*****G4•••*****.*

•

>

: CmS~OSN!~L. :
TOAI.
*
*
*SINGLE OPERAND.

*****************

82

>

•

>

*• ***.
>
84 *
**••• *

*•*

........... .....:

•
>

x

*MG •
• 81-

*•

SYSXXX
•
*•..*****
•••••••••••

*•

SET POINT!
FOR
PROGRAMMER
CLASS -1-

x

x

*INCR LUB COUNT *
*BY IRESETllRGI •
• -VALUE EQUALS.
•
.,
OR 1 2.

**.*.

.-

..**••*•••••••• *.

NO

***••

:

*

*
*

*

ic

••• **F 1•••••
... SAve POINTl,
•
PO INTER TO

....

• NO

*****e2***···.··.

•.
BLANK*.

*

*.

*

*..*

.•.. *. >PROCESSING.*
PROCEDURE

...
*•••

ic

.RESTORE POINT! *
•
TO POINT
•
*
* TO OPERAND

X
• ••**03******••••

• *.

02

..··.C4••*•••••••

*.

YES.*
IS
••
• ••••• *.
OPERAND
.>
••
SYS
.*

:x •••••••••••

x
.*.
••

X

C3

it

RESETDI
YES ••

•••••••••••

.. .*. ..

;.

..x ••••••• _•••.

X

•...

.•

•**•••••••••••••••*

*SCANR2

** mg~~
**
• OPER.AND., svs •
* xxx. SET •
OPROG SW ON ••

*••* *YES

>INCR LUB COUNT >
*BY I IN WRKRGI *
> -VALUE EQ 1- >

••••• 01····******
GK*

•-.-.-*-......
-*-*-....
...
POINT

X

..f!4**•••••

•. *.

·····C2·····*·*·-

...... ........_.•

•

••

IS
NO
OPERAND
••••••••••••••••••••
ALL
.. '"

>

*

...
...

82

RESET!

•••• -t 1 ••••••••••
ZERO WRKRGI

.*

*. *.

...

RELOCATION
•
•••••••••••••••••

*

.>.

••••• *

ic

X

RESET

•• ••••
•
B~ •

>

>

X

ic

>
•
•

····HZ······_··
BRANCH TO
CHKCNL IN
SJOBCTU

••** •••••••••••

>
•
•

**·*·H4*·*···*·*·
> LOAD SYMBOLIC *
• UN IT CLASS IN >
* REG PO INTI *
LOC
•
*• FROM
ClAORO
*
*.****.*****•••**
X

**·**J4*********·

.UPOATE SUOO TO.
> CURRESETIOI *
* ADDRESS. SET *
.lUB COUNT TO 1 *
•
IN WRKRGI
•

•••*••***********
ic

••
***
*MG *
• *ct.
••

RESETlOI

(

\
174

DOS/vS IPL and Joe Contrel

$JOBCTLF - RESE~ Statenent Prccesscr (Part 2 cf 2)
Refer to Chart 11 •

Chart MG.

•*••
••

A2 *
•

****

•••••*

.. E2

*

X

*****81*********_

*-*-*-*-*-*-*-*-*..

..
..

NO ••

..
..

..... *.

•*. *.

-. .*
*••• .-

.

.. SAVE LUGICAL
.. UNIT CLASS
..
IN WRKFLDl

.x.... *.
•

..
..
..

LU8 EQUAL

SYSLST

*.

*••
*.*
* YES

SET
R ESETSW

ON

-BLANKl,

..

BIT 7-

***********
El *.
_ .. x.
*..*.*.
*
•
****
.
RESET2
X

..

..
..

•
.YES

..

.X ••

*

.*-_._--_.......-

..

x••••
•

****

X

*.***Fl**********
KJ*

*-*-*-*-*-*-*-*-*

.. MOVE LUB TO ..
*JIBCHN. UPDATE ..

**

A3

.***

x
.*. *.

*

;:"1: .:;;::-;- J;};:;'

,~

*

*******************

*.*********.***

ASS]GNMENT

******

*

.*.x *oo

X

*****F3********.*

** **
*• *'*
SVC7
** ** WAIT ** **
• *
* *
*****************

*
..*

X

* RESET
*
TEMP..
*
..
* HOPPER
ASSIGN '* ........
** TO HI •*
*

•• *****.***

X

*****J2**********
CALCULATE
BIT POSITION
OF NE XT

**
**
LOGI CAL
*
UN]T
'*
*****************

*
*
*
*

.*.x *.

K2
* ..
RETURN BY

x

****

'*

B4

x
.*. *.

E4

*

*
*

••*** •

.

****

":T"~,~r-c"~ ~

,.,

~

*
**

X

..
CLASS TN
*
.. POl NTl AND
..
I NCH BY 1
..
*****************

*

X

G5

*

..
x

.*

*•• *
* YES

* Bl *
***** *

;.

*****H5 **********
*CHKOPN
KJ*
*-*-*-*-*-*-*-*-*
*PESET OPEN FLAG*
* TN OFBS USING *
..

THI

C;

*

DEVICE

*************'****

J5
.* .*

****J4*********
* BRANCH TO
*
NO
.. CONTROL IN
*X •••••••• *.

*

*
***************
tJ08CTLA

.*.

.*

*.

.* ....
**.... *
x
* *.*. •
'* E5 *
x
* *
•

****

*

*

*.

.*.x *.

*•

DOSW ON

*..*
.. YES

*..*

.*

*.. *

*****K3.*********
K4
*.
*SCNLUB
KJ*
END
*-*-*-*-*-*-*-*-*
.*OF LaC ICAl *. YE S
MOVE LUB TO * •••••••• x*.
UNIT
*JIBCHN. UPDATE *
*. CLASS .*
*SlADO AND SNICL*
•• ***************
*
* NO

*

'*.

****

•

x

.*.x *•

*.
NO .. * PEMAING *.
.....
*. LUB COU"IT .*
*. EQ 0 .*
.. *

****G4*********
*
BRANCH TO
*RSTSTDS ROUTINE*
IN $JOBCTLO *
*.*************

.* .*.
H3
.* I/O *. *. YES .•
.*
.•.. *. *.ONPENDING
.* ..•.
SY$LOG ••
*. *•.• .*

RES ETB
*****J3******·***
'* RESTORE lUB ..
*POINT. AND COUNT*
.4o. x*
IN SLADO
*
*AND $NICL FROM *
*
WRKFLD2
*
*****************

-.

******F5**********
RE STORE
*
* Lur;rCAL UNIT *

*

*

""ql(~G'

*******************

**F4*******
• SET LINK
OPTION BIT *
* * OFF
IN
*
JBCS\oI1
•
BIT 0
*
***********

*
*

!_fl~n

*WITH QEMAINTtNG*
..
LUB COUNT
..

X

RESET6

•

X

*****1:5 ******* .. **

*. ...
_'"
*. *. ASSIGN
EQ .* ....
SYSlNK
.*
*. *.. * .*
• NO
.*STORED

.

'.

RESET3

• NO

. *.* lNKR3&4 *..* ......
NO
*..
.•
*..
.*
*. *.• * .*
* YES
*

PREVENT

II 0
INTERRUPTS
*****************

:x ............ :
..••....... x:

**K 1*******

******
•
E5 *....

•**** •

X

• ****G3**********
*MTNCNT
GU ..
*-*-*-*-:t:-.-*-*-*

• NO

x
.*. *.
Jl
•
*
]S
*.
STANDARD *. YES ..
*..**.ASSIGNMENT
.* .....
.
FOR.*
X
*4o H2 .*
*. * oo*NO

*.
• ****
.* LUB
CURRENT *. NO )(.
EQUAL
.* .... X* A2 **
*. SYSLNK.*
*
..
*..*
****
* •• *

*4o

x

*. *.
*.
*.
.*.*
**.. .. **

*************

x
.*.
*.

:x •••.•••.•••

x
• *.

.*

04

*.
..
** *G4* ***.X.
.. x............. .

*.• *

* YES
*.**
• *
*
•• x* E 5 •

.'. *e

.. YES

*

.*I S DEVICE*. *. NO
MFCM/MFCU .* ••••
*. *.
.*
..*
*..
* *YES

*. *.
.*
.* .*

.*

X

*•

C4

.* 11) * . *. NO
*..**.ASSIGNED
SYSLNK
.* .* ....
*. * •• * .*
* YE:S

YES

****.E3**********
!~~ ~~,~! _"" _~ ~ G~ _!
•
ALLOW 1/0
INTERRUPTS

•

*.H1*******
H2
*.
RESET
..
• TEMP.HOPPER *
YES.*]S
ASS]GNMENT
.X ••••••••
I T SYSTEM
*
TO H2
*
CLASS

*

.

****.************

*. * •. * .*

.*

CONTROL llNE
COUNT TO 1

G2

OF lUBS

*•

.

x
.*.
*.

**
•

..

*****************

*oo .*

*..*
*

**
*****************

• SLADD AND SNIel*

END

•

03

.**.*F 2**********
*RSTSTO
KE*.
.-*-*-*-*-.-*-*-.
x
• RESET LUB TO .X ......
..
STANDARD

*SCNlUB

*. *.

*
*

x ••
.***

*
*

x
• .*** *

X

*****84**********
*CHKASG
GU *
.-*-*-*-*-*-*-*-*
.. COp.l!PUTE LUB *
*AODR OF SVSLNK *

x

•
NO.* .* CURRENT *. ••
..x •••• *. LUB EQUAL .*
*. $YSLOG .*

X

*.;.

x
.*.
*.

.* IS *. * .
NO.*
. .....
*. •• ASS
SYSlOG
••
IGNEO .*
*-.
.*

*****E2****·*****

• G4

.*

.. *

• NO

... "'LA~~ ANI:> LlJb ...
.ADDR IN WRKFL02*
..
FR.OM SLADD
*

AND SNIel

.. .SV$LST

*oo

··***El·*********
.. SAVE NO. IN *

GI

.*
*.

(3

* ...
*
• YES

02
.. *STORED ••
STANDARD
ASS]GN EQ

*oo

*

••

.*.x *.

X

*.01·*···*·

NO.*

*
•*

• YES

.*.
.•C2 *. *.
NO.. CURRENT *.

*•••• *.***** •••••

.... oo*.

84

****

R ESET7

*
****"'********
SYSlDG
*
••***

it

.. IN Loe COUNT ....

..

****

*
**

*.x.

.. J4

•
*
X
*.***c
1*****.*.*.
*SAVE LUB COUNT ..

RESETIOI

..

X

*****B3**"'··*****
*CHKASG
GU *
*-*-*-*-*-*-*-*-*
COMPUTE lUB *
AD DR OF
...
*

IS
••
SVSl5T
*.ASSIGNED ••

.*.**.*.* •••*••••
••
**
*MF"
..

*

*

x

B2

KA*

..
COMPUTE LUB
..
ADDRESS AND
.. NO. IN CLASS

..

*
*
**

*.x.

*GETlAN

..

*****A3**********
MOVE LUB AOOR *
TO LJBAD FROM
* WRKFLD2 FOR *
TOYOYF DUN- *
ROUTINE
*
****.*****"'**.***

..

•**** •

....

X

RESETS
X
••• *.A2*·*·****·*
*CHKASG
GT •
*-*-.-*-*-.-*-*-.
•
COMPUTE LUB
•
ADOR OF
..
*
SYSlST
•
•• *****.*.**.*.**

••••AI····**··.

•'" RESETll •..
•••••**••••••••••
**••
*MF"

*
** A3 ••••
*.****

.

X

.

****K") *********
*RETURN TO DVCDN*
*
ROUTtN£
*
.********** ••••

****

El *
****

*

*

Charts

175

$JOECTLF - tVCDN Staterrent Processor (part 1 cf 2)
Refer to Chart 11.

chart MH.

****Al*********

**
OVCON
**
*.***************

.*••

X

OVCON

X

*****
*-*-*-*-*-*-*-*-*
..
INITIAL IZE
*
** RELOCATION
FOR
*
..
*****************

*****B2**·*******
** UNASSIGN **
*
SYSlOG.
*
* -FF TO BYTE *
******************
0 OF lUB'"
**.*
•

.. IN IIIB1*********.
MO.

** C2 *.
*.X.
•**** *.
•

x
**********
GK*
*-*-*-*-**-*-*-**
..
TO
*.. POINT
OPERAND
*
X'CUU'
..
*****************

DVCON14

X

******C2**********
GET PUB PTR *
FOR
*
,.
SVSlST
**
*
IN
*
WRKRG3
**
*****************

*****c 1
*SCANR2

x

.0.

X

01
*.
... .* DID *. *oo NO
* .. BLANK STOP .* ....
*. SCAN .*
*. * •• * .*
x
.. YES

***..• K1 *
• **** *

X

····*El-·*···_···
*-*-*-*-*-*-*-*-*

*TXCUU

MO.

_GET DEVICE TYPE.

* PUB ADDRESS, ..
**********"'.****.
..eX-*****
E5 *
..
***** *
*****FGET
1•• PUB
*** •••-.*
..
* POINTER
*
... X.
FOR
..
..
SYSLOG IN
*
*
* WRKRG3
. ******************
•••
* Fl ..*
..
****. *
.. + PUB PO INTER ..

.*OPERAND ••
YES .* EQUAL TO *.
••••••
SYSLST
.*

.*
*. *•• *. *
* NO

•• DEVICE

X

x

:OVCDN14A

*****G2**********
*lSTOUT
GJ*
*-*-*-*-*-*-*-*-*
*
lOG
*
* SYSLOG
ON
*
*
*
*****************

..
..

*****************

*

84

****

X

X

OVCDN5

*

*****B4**********
*MTNCNT
GU *
*-*-*-*-*-*-*-*-*
**
Sf I ZE
SYSTEM
*
* G5
*
*****************

*****C3**********
*lOGCHK
GL*
*-*-*-*-*-*-*-*-*
* SET SVSlOG *
*ASS I GNMENT SWS *
*
* IN COMREG
*****************

*****C4**********
*MOVE
THE HEADER*
**NONE** TO '"
** OUTP
UT BUFFER *
** ASSIGNMENT
ASSUMING NO *
*
*****************

...

*

BUILD COUNT
CaNT ROL FOR

,.

*lUB TBL SEARCH *
*****************

OVCON4
DVCON2

•
X

X

*****03******""***
*•
..* MOVE
11101 MSG
TO
*
OUTPUT
*
BUFFER
*
*
•*****.************

X

*****E3**********
*MSGOUT
GJ*
*-*-*-*-*-* -*-*-*
*OUTPUT RELEASE ..
*
MSG ON
..
•
SYSLOG
*
**.***********.**

DVCDN3
X
*****BI) **********
* INtfIALT ZE
*
*WRKRGI TO HOLD *
'" (NUMBER OF
*
*PARTITIONS * 2)*
*******************

X

X

*****C5 **********
*INITlAUZE REG.*
-POl NTl- TO 0 *
*..'" 'FOR
SY<;.CLASS •
AND STORE lUB *
* CNT IN COUNT *
****.*******.****

X

X

*****04**********
* CALCULATE PTR *
* TO BG SYSTEM *
CLASS USING •
** P[K
OF CURRNT *
* PARTITION *
*****************

* ****05*********
RETURN
*
*
TO
*
*
* CALtER
***************
*"'**
*'" E5 *
*•.•
***** * x

X

******E4**********
COUNT
*
* -4 PUT
OR 6- FROM ..

E5

*

.*. *.
HI

.* SYSlOG *. *. NO
*..* ASSIGNED
.* ....
*. *.
.*
.*
* •.
* *YES

J 1
*.
.*OPERAND* ..
TO *. NO •
.•. *..* EQUAL
SVSlOG
*. DEVICE .* .*.. x.
*.
.*
x
x
* •. *
****
*.*** *****
* 82 *
*
(2 *
*
•
*
*
* K1 "' •••

YES

.

*****

***.

*

X
1*********
*****K
BRANCH TO
* NVSERR IN ***
* $JOBCTlA
***************

• **** *

*****F3**********
*
CLEAR
*
BUFFER
**
•
*****************

**

X

*C5

THE

BEEN

X

*****G3**********
*MS GOUT
GJ*
*-*-:0<-*-.-*-*-*-:0<
•
SKIP ONE
*
•
lINE
•
ON SYSlOG
*..
*****************

X

*****F5**********
**
pm NT TO
PUB2 AREA
**
*
***************"'*

*****F4**********
*GETLAN
KA*
*-*-*-*-*-*-*-*-*
* COMPUTE LUB *
** NO.
ADORESS AND *
IN CLASS *
*****************

x

*..
'"
•o

HAS
RELEA SED

SYSTEM

IN THE SVCBTRNS
ROUTINE.

**G4**********
****
SFPP E
MR*
***-*-*-*-*-*-*-*-*
SCAN LUB TBL
*
FOR EO PUB
*
*
*H5
*
*****************

X
*"'*G5******'" • *
* TURN OFF
* PUB2 BITS *
*USED BY OPEN *
*
•
***********

X

X

*****H3**********
*OVCON3
MH*
*-*-*-*-*-*-*-*-*
* BU IlD COUNT *
*CONTROl fOR lUB*
*TBl FOR SEARCH ..
*****************

X

*****J3**********
* SET EXIT
*
•*fROM
TRANS lENT *
* TO DVCON5 *
*
•
*****************

•

x
****
*** 84 *•*
****

176

DOS/VS IPL and Job Control

* F1 *

.* . *.
H4

*

*. *. NO
.*....
CLASS
.*
*. * ... *.*
x

.* ..*
*.

END

*.OF lUBS THIS

*****
*MJ *
'" B1*

X

INCREMENT

*****J5**********
*M<;GOUT
GJ*
*-*-.-*-*-*-*-*-*
PRINT THE
*
*• OF
CONTENTS
BUFFER
*'"
***********"'*****

••• X*

..

*
*

CLASS

*****************

x

x

.. NO.* .*
••••••

K4

*. *..

.* . *.

COUNT
EQUAL
0

*•• *
*

*

DVCONS

*****J 4**********
** DECREMENT
**
COUNT,

*
*
•

***'"

*H5
RETURN ON AN
EOUAl OR END
OF TABLE.

..•

.. YES

X

*****K3**********
*SVCBTRNS
MA*
*-*-*-*-*-*-*-*-*
*" LOAD AND
**
* INITIALIZE
*" $$BLSTIO
*
*****************

****

x

x

****
* B3 **
****

•

..
x

*****J2**********
* SET LJ NKR1
*
* TO EXIT FROM *
* OVCON3 TO
*
OVCDN4
*
*
*
*
*****************

•

YES

= X••••• ••••• :

OVCON14B
X
*****H2 **********
*lOGOUT
GJ*
*-*-*-*-*-*-*-*-*
*
LOG
*
*
ON
*
SYSLOG
*
*
*****************

x
.*.

"' ..

. .......•.. x:
X

:...•.....• x:
x

.*.

. '"
* • *. NO
*..* 3540
.* ...•
*. *.
. '" .*
*•• *

* DVCDN3 RTN
*
..
REG PO INT2
*
*
•
*****************

: X." ......... :

····*Gl******···.
GU ..
*-*-*-*-*-*-*-*-*
..
CHECK
..
SYSlOG
ASS IGNMENT

.*. *.
E2
.* SYSLST *. *. No
•
*
*. ASSIGNEO .* ....
*. *.
.*
*••
'" .*
* YES

****

*

*****B3**********
*DVCDN3
Hii*'
*-.-*-*-*-*-*-*-*

x

x
.*. *.
F2

*CHKASG

..
..

*****02**********
GU •
*-*-*-*-*-*-*-*-*
*
CHECK
*
*
SYSLST
'" ASSIGNMENT
**
*****************

*CHKASG

.• .•

****
* 83 **
..
* **** *

** 82 **
***** *

****A5*********
*
DVCON3
**************** *

*

*. *.

.* .*

..

*YES
..

•

e ....

*****
:4;.
•* PUB
MASK FROM *
*OWNERFlAG TABlE*

*'" -FI
OPERAND
'"
••••
*•••
TO_. __
f4-•• _••
'"

*

..
..

.

••

TXCUUl&6

..

X

EPPTN

*****C4**"'****.··
TO
*
** POINT
ERROR
•
MES SAGE
*
*
-1A 5ND..
*
*K3
*
**********.*** •• *

.***
* G4 ..

..

x·········· ....

X

•

.• .•

*
*

POI NT TO
ERROR
ME SSAGE
-lAqOO-

*
*K3
*
*****************

****.
*MQ *
* E4*

.* (3 IS '4<.
NO • * PROGRAM *.
...
*. DET ACHED .*
*.
*K 1
.*
*. *..* .*
x
• YES

*****C5·*********
*SAVE POI NTER TO*
'"

MESSAGE TI)
ot SPLAYED IN
'" WRKFLDl FROM

*

*
**

*
POINT1
*
*****.*.*********

• ••••••••••• x
X

••• ****.
**·***03**
CALCULATE
*
* DISPLACEMENT
*

D5

• FROM POINT OF *
*ENTRY INTO Nlel.

* AN~ FICl *K2 *
.*****•• ********.
****
*MP *
•
* A2 *.X.
****
•
UNAlA
X
*****E3**********
*GETLAN
KA*
;-:"COM~UTE:;:LUB:;;'~;

*
ADDRESS
•
*
AND NICL
*
**** •• ********.**

*********
•• ** •• _.*

••••
*HP '"

*****B5*********.

•

REFERENCES
TO
MNE4:

MDF3,

MFE4

• •

X

*****E2**********

GK*

X

SFNC

** Pia
ADDR.
**
IN WRKRG4
*
*****.*.*********

*

SET POINTER
*TO APPROPRI ATE *
*PARTI nON CLASS.

•• **.El*~*.*** •• *

*5CANR'

UNAl
X
·****B3**********
•* LOAD CORR EeT *

*****02**********
*
•

.GET ADDRESS OF *
'"
BUfFER
'"

*•*

*.*.

X

·****01···.·*****
Mg"

• IN ITL

•

.***.
*MM *
* 1)4*

-* .-•

•****.•

*

YES

*

*****E4*******··*

..

"'.

.* B *. *.
NO • *
••..
*. TRANSIENT
.*
*. ACTIvE .*
*. *•• * .*

X

ILUS

.-.x

POINT TO

*

..
M~~~~~E
;
*
-1A4NO*
*
*K3
*
* ..*.**.*********

i<
*****P5****** ••••
.LOAO WRKRG3 AS •
"'r-~~"'~-rc~

T(J

~~c--~

*tCAL TRANSIENT.
BUCKET TN THE.
ATTENTlON PI8

*

*
*
***--*******._*.*

..
• 03 •• X.

-."'-.**

•
UNAE

x

.0.

Fl

••

.*
••

*. *.

INVALID
•• DEl UlIllER.*

.* ..

*. * •• * .*
•

i<
**F 2 .***** *

-

.

YES.
X.

*SET flUB MASK

*****F3**.*.**.*.
* MOVE LUB
*

**

*SELECTED BEFORE*
*FROM OWNERFLG*
TABLE

NO

X

X

-*

•
•

ADOR. TO
LUBAD AND
NICL TO
WRKRG1

•
•

· .

•
•

*
*
• *.***.****

*** •• ********.***

X

**-**
*MP *
- A1*

*****Gl**********
UP
*
* LINKSETREGISTER'
* TO EXIT FROM •
..

*

*..

lHI S

..

ROUTINE

.***** •• *****.***

*****G2
*****.****
-CALCULATE PI B- •
*01 SPlACEMENT OF*
•

**

AFFECTED
PARTITION
IN WRKRG3

*•-

_
..
..

UNA2

**.**************

TIAERR.

.

-

****
* G4 *
•**** *

x

X

*****F5 ******** ••
* MODIFY PSW IN •
* SAVE APEA TO •
* FORCE RETURN *'"
* TO ERRPTN2
**************•••

X

*****G4********·*
*.. POINT
TO
•
ERROR
*
*
MESSAGE
..
..
-lA6ND..
*
*K 3
*
.****••••• ***.***

X

"'****G5******* •••
*MTNCNT
GU *
*-*-*-*-*-*-*-*-*
*
RELEA'SE
*

·
*

SYSTEM

.
*

***.*"'*****•• ****

x

.•*****
•
63 *

X

***Hl*******

*

FG

OWNERSHIP

***********

*

X

****H5********.
*$VC ll-SJMULATE*
• RETURN FROM 8 •
* TRANSIENT
*
"'****"''''*****''''''*

****

RESET PUB'
MASK TO X' FE' A
llOW ONLY
•

*•

..

•**** •

* J4 *
*
*
****

x

.*

J1

.' .*.

2 CHARACTERS*

*..*
*..
* *YES

x

*

$JOBCTlA

***************

•

•

'Kl
THE PI B FLAG MUST BE
HEX 80 IN DI CA TI NG THE
PROGRAM IS DETACHED
INO LONGER IN USE).

*
*
*

*

*·**J4*********
BRANCH TO
ER.R.RTN IN
$JOBeTLA

*** •• **.*.***.*

*K3

***.
* B2 ..
•
*
****

*K2
THIS MAy BE A
NEGATI VE
OISPLACEMENT

: ERRRTN2

X

*..
•
*..*NO
X
*****J2*********
BRANCH TO
**
*..*Of LENGTH
OPERAND
.........
x*
NVSERR IN

: MESSAGE;· DEm i PfioN··························
; iA4No···: 'iNv Ai. io'LOGicAL ·UN if" SPECiFicATioN·:
: iA5NO···: ·oEvicE'NOf:oEFiNEii······ .......... ..
:mND···: 'uNiT ·cuRRENTLY·uNmiGNABLE·········
: iAfW··;· iNVAl i5"oEVicE'Si Hus········ .. •••••
: moo'·': 'mwnm ·NOT ·cLosEo··············

**
*

X

.****J5***.******
*MTNCNT
GU *
.-*-*-*-*-*-*-*-*
*
SEr ZE
*
*
THE
*
•
SYSTEM
*
.*****.*.*••*.***

: ............ x:
ERRRTNI

X

*****K5**********

*

RESTORE REG,
'" PO! NTl, WITH
'" POINTER TO
* "'ESSAGE TO
BE 01 SPLAYED

*

*
**
**'

**********"'******

x

.-••••-**.*
* J4 *

Charts

181

Chart MP.

$JOBCTLF - UNA StateRent Prccesscr (Fart 2 cf 2)
Refer to Chart 11 •

....

.•••••••..,. .

....•

•• A2 ••

•

• F3-

•

X

UNA2

A1

.0.

o.

A2

•*
*. *.
ER
•.YES
..*.•• PROGRAMM
UNIT
.*
*. *.
,* .*
*.• NO

.*
*..*
*. *.

s·

.'.x *. .

.* .*

NO
••••••

x
**MN
••••
..
• E3*

82

•••

...*

UNAlA
CLRON

*.

83

X

·····C2··
•••••••••
•

'.
.•
*. o. YES..
SYSRES
*. *. _ • • It: .• ,* •••• X.

•'
'.

•
..
•

CLEAR
PUB
OWNERSHI P

•
..

• 0.

•

o
•••
***••••••••••••

NO

X

•

NEXT

x

•
.* .• SYSREC *. *.. 'YESX
••••
*. *.
.*
,-

••

X

FOR
SUBROUTINE
UNANT

.....
....

..

•

0

2.

..
•
•

••••• ** ••••••••
*e2
***..

..

.* .••

....
BLANK

*. o.

NO

o YES

NO

1.
•••••
El···.·***••• :.E2
•
INITIALIZE
•
•
•

••

03

3.

.

•••X*.

*MN.
.. Fl·

.0

LOAO LUB AOOR IN
WRKRG3 FROM LUBAO.
SAVE THE CURRENT
LUB IN LUBCOM.
NULL THE LUB IN
THE LUB TABLE BY
SETTI NG TO HEX FFFF.

•

UNAE

.x •••••••••••

.. Fl _.X.

UNA2AA

.

X

•••••Fl*···***···
MR*
*-*-*-*-*-*-*-*-*
•
UNASSIGN
•

.UNAENT
•
•

THE
LUB

•
..

•••••••••••••••••
X

UNA2B

"***Gl··**····*·
•
INCREMENT
•
LUBAD TO
ADOR DF

•
•

..

*
•

NEXT lUB

..

•••••**••••••••••••

..

.•.x

.

.*.
•..
•*HI.
.•H2 •. *. o. NO
•..H3.*****
TURN
•'
PROG
' . ND
•• SYSCLB
•
CL8 PROG
•
••
UNIT
.* •••••••• X*. PROCESSING •••••••••• X.
SWITCH
..
*. *... .*
*. *....*
•. ON
•
.
...o ...YES
*. • ...YES
•••••••••••

:x ........•.•
CKClAS

X

**JI·*····· •
*• TOPOINT
•
•
NEXT
..
•

o

FICL

•••*.......

0

•

x

••o••••
•
A2 ••
••••

182

DCS/VS IPL and Joe Control

*•• *04*········
BRANCH TO
•

··0. *...
sm .•.•........ X: *•••••••
~~ijmLIN
:
*••••••

*•.•

UNA2A

•

OPERAND
*'
•• ••••••••••••••••

o.

o.

:.......... x:•

····84·········

••

•oSCANR3
••••e3**.******.
GK.
*-*-*-*-*-*-.-*-*
..
GET
..

x

01

.' •

*. *.••••••••••
YES
BLANK *. ' . YES
•
RETURN TO
•
X...''..*ENDSCAN.'
LAST
•••••••••• X.
CALLING
•
*••••••**
SEQ
*..*. '
*..*
••••••••
*•.
*
*.•
.. NO
.. *
NO

.*

.*
END
'.
OF PU8
'.
TABLE

.*.x
o

*•*.

*•••
• YES

:CHKPUB

•* SYSLOG *.. 'YES
'.
••••
*. *.
,. .*
* •••
o NO

C1

A
HIT

••.••.•.••. x:X

.. .
B1

.•.x *.

RESETCL

X

*·*J2**··*·*
TURN
•
CLB
..
•
SWITCH
*
*•
OFF
•
0
•

•••••••••••

CLBLUB

X

•
•

COMPUTE
SVSCLB
LUB

•*····J3*·········
•
*
•••••••••••••*•••••
x

•• *•••
•
Fl •
•

••*•0

0
•
•

•

Chart .MQ.

$JOBCTLF - ~iscellanecus sutroutines (Part 1 cf 3)
Refer to Chart 11.

o

•••••A3··*··***·
•*
..
INtTL
o

0

******.***.****

X

INITL

****81 *********

•..

·

OUTPUTS

****.******* •••

•..

-

X
••***c 1****.****
•
KB*

OUTPUTS

• OUTPUT

*-*-*-*-*-*-*-*-*

• PRINT A LINE ON.
•
SYSlST OR
..
*SVSLOG
.HI ..

•• *. __ ••••• _•••••
X

····*01*********.
KB*
*-*-*-*-*-*-*-*-*
..
PR INT A BLANK ..

•

••••82*.*·****- 0

..

o

OUTPUTI

..

************ •••

OUTPUTl

YES.*

....... ~.

.. "

*.

C2

.*.X *.

IS
UNIT

LOGICAL
SVSIN

0

NO

X

• LINE TO EFFECT ..
..
A SPACE
..

..
..

*-*-*- *-*-*-*-*-*..

.. PRINT A LINE
ON SVSlST
OR $Y$LOG

..
..

**.**************
*****************
.• X•••••••••••••••••••••••••
x
.

X
*.***El********.*

*•

ANU tCMh1 t

;,.

.TRANSIENT AREA ..

..

TO BLANKS

..

****************.

*

CCW-WRKCCW• WITH THE I/O

*
*

'"

* REGISTER '*
*'****************

*******.*********

X

•
•

****G 1********.
RETURN TO
CALL ING SEQ

•*************** •

TXCUUl

.*

.*
T*.

~

•
•
*****************
:X
•••••••••••
•

X

*

*LOAD 2ND ADCON
•
WITH VALUE

*

ADCON

G3

•
•

*HI

**

*

****.*•• *********

X
******E3*****·****
GET COUNT
*
AND TABLE
•
*

FIRST
•******************
•*

*
*
•

** CUU
CONVERT HEX *
TO BINARY.

•

*

·•

SWITCH

-NORELSW-

TO

BRANCH

***********

*.**

*

J3

•
'"

-

.'.x

.* E5 I S*.· . *. YESX•
• * NEXT
*,
*.
K
.*
*. *.. * .*
o NO

*~

x

**.**

*MN ..

**
*
'"

SAVE
THE
DEVICE
TYPE

X

*NEXT CHARACTER *
*****************

X

NO

.* ..... .

**
'"
'"

•******************

*****GS*********
RETURN
•

CALLER
•• *.*************
•*

x

*** **H5 **********

• INCREMENT ..•
°OINTER
•
•**.***.*********-•
•

.'

****

0

..x*

TXCUU3

X

***************

0

*..

'*.x.
.

RETURN TO
CALL ING
SEC

**

BLANK.
POI NT WORK TO

*

•**** •

.-x.

FOUND

•

05 *
•*****
•

G4
*.
.* .* DEVICE *. *.

*. *. TABLE.*
IN
.*
* ..
* *YES

X

••••

*

-cuo-

*.* •• ************

*.

,A

*****F5**********
** ZERO
REPLACE
•
WITH A *

*•
**

SEARCH PUB
TABLE FOR
DES IRED
DEVICE

*

f4,p'A"T~o

* C4*
•*

*
TXCUUl+B

X
*****F4****··****

*
***

' .X

.*. *.
05
.*
*.
•• CHARACTER *. NO
*. EQUAL TO A .* ...•
*. ZERO .*
*. *.. *.*
* YES

*.... NO

YES

WO~K

*.**
BLNLO

..'_

X

*

****J3**.***.**

*

*. * •• * .*

*****H4**********

**
*

•
****

NOREL

g~~!~~~

*.

TXCUU4

YES

X
**1-13*******
seT
*

*
***

.'. ••
*

.'.x *.

.* END *. ... NO •
*..**. TABLE
OF
.* .* .....
*. * ... * .*

E4

**

INTO,$,

******
*.
05 *.X.

. . · -.

TO BLANKS

BUFFER

X

X

x
X
03 .* •*.
*****04**.*******
.*
HAS
*.
•
LOAD WRKRG3
'"
• *RELOCATION *. YES
•
WITH PUB
*. *.PERFORMED.*
BEEN
.* ....
** TABLE
ADDR
**
FOR LOOK UP *
*. * •• * .*
x •************.*.**•
• NO
•*****
* ****
J3 *
* E4 *.x.
***** • x
****
-~rB~t~~

X

CNV8CO

NORELSW

*

•
0

**

*·***F3********·*
*AOR NEXT ENTRY *

I/O

.-.x *.*.

CNV8CD

**.**••• *.*••••

*****C5**.***.* ••
*PUT ADDRESS
Of.
'* FIELD
..

•******Fl**********
•*
CLEAR THE

*o*

o

****.C4**********
*IiEX'CON
KC*
*-*-*-*-*-*-*-*-*

•

AREA ADDRESS
OF BUFFER

•

*

*****C3**********
* INITIALIZE *

*

AOR
PTR
RELLOP

X

•
•

*

**************** •

*****02*********.
.OUTPUT
KS*

*ClEAR TEMPORARY.
FIELDS. TMODE ..

LOAD WRKRG2
AS POINTER
ROOT PHAS E
tiD AREA

*
•
*

o **·*A5 ******.** •

**********
******85
CONVERT
•
.* 6
*CHAP AC TERS *. NO
*
LIMIT
*
*1 NFf)RMATI ON TO '"
*.•*.
IN
.*
...•
LENGTH ••
•
UNPACKED
*
*
ESCOIC
•
*. *- .* .*
x
.*******.****** ••
• yes
• **** 0
• K5 *
* **'*'* *

BANK 1 ..

X

*. *.
.*
.*

*SKIPLN

OUTPUT2

ZERO SW

B4

.******.*********

*. *... ".*
o

TXCUU

*****S3*****.****

**

_

····AIt** ••• ****
'"
rxcuu
'"
• *************** 0

X

***·*J4******····
COMPUTE
'"

•

**

•

*•

*

E4 •****
•

THE
PUB
POINTER

•
'"
*

..
•.. ****
*
K5 *

••
• *.****.***.***.*

***.

X

*•• **K4*****·***
RETURN TO
•
•
CALL ING
**
'"
SEQ
•• ******.******

X
*****K5*********
BRANCH TO
..

*

•

NVSERR IN

~JOBCTLA

•
..

************•••

Charts

183

Chart MR.

$JOECTLF - Miscellaneous Sutroutines (Part 2 of 3)
Refer to Chart 11 •

•••• Al •••••••••
SFPPE
••
*•
• •••••••••••••••*

••••

X

S FPPE

*
:
•

*

•

C2

*

••••*••••••• •

*

.'.it *•*.

X

SFPPE5

•* IS
. ' S$Bl~TlO ' . NO
*. *. T:~~J ~~NT.*. *••••
•.
.*
*••
*
* YES

•

· ..

.'.
C3
' •
•• DOES ' •
NO .* THIS LUB *.
: ••• 'H:~Ep6~~~RP~:.*

.. ..

'.

•••*.• .
X

SFPPE2

•••• *01.· •• • •• **-

03

••*•••**••••••**.

• •
....

••* * .
* • ic

.....

.

X

SFPPEOl

*****E1******••• ••
•

CTYP E FROM

*

WRKRG2
••••••••••••••
**.*

it

*•••

*•

···.*F1
••••··••••
*-*-*-*-*-*-*-*-*
X

'SCNLU8
•
•
*

•
•

0

•••*.***********.

•*

.'.

•

'.

x
••••

ON

THIS
CLASS

*. * ••• .*

.*

HI

•..*.

•. *.

*. *.

.*

RETURN TO
CALLI NG *H2
SEQUENCE

•••••• ** ••*••••

··**·015****.*****
*•
..
POI NT1+l*
•
•**.**.* ••••••**.**
OINCR CLASS BY I '
•
-POI NTl EO

it

.*E4.**••*. *

**MII)
•• *.*

****.******

*
*
*

.

~.~~.:.

.*

F3

.0.x *.

IS

**MS
•••*•

fmm2T .*.:.

0

•

SFPDEO':\

X

•

•

TO SYSTEM

•

CLASS

SFPPE13

**.**F".***
•••• **•
•
SET POINTER

AREAS TMOoE

AND TCMNT

•
•

*.******* ••••• ***

•

*.

X

UNANENT

*****G5*.*.***.*.
*OIKA SG
GU ..

*-*-*-*-.-*-.-*-.
COMPUTE PUB
•
potNTER tN
*
WRK~G4
•••••••••
**••••••*

•

..

•

:•...•••... x:x

.•.*.

*••••

*MS •
• C2*

.*

••
•

SFPP E12

.*

it

·.·**H5********·*
SA.VE PUB
•
IN
•
* POYNTER
OLD PUB
..
*
*
•••••
•
***.**.** ••*

•

•

: x•••••••••• :

*J2
THI S RETURN TO THE

~~L~l~~ ~~~~E~~

X

****J
1********.*
RETURN TO
CALLING

•

.*.*.*.*•••*.*.*

END OF THE LUB S
IS DETEC TED II NKR4
I S NOT INITIALIZED
TO RETUR N CONTROL.

SEQUENCE *J2:

X

SFPPE3

*•••

·J5 ••
.GETLAN

*****.**
KA.*

.-.-.-*-*-*-.-*-.
•
COMPUTE LUB *
.. ADO~ESS AND *NICL
."4_

• •• ** •••*.******.

x

*..
*

****

••*.

184

•

••
.........
*** ••••• *0

YES

···.·G3·····*····
'OUTPUT
MIlO
*-*-*-*-*-*-*-*-.
• CLEAR OUTPUT *
*

•

• C4*

•*

••

*. • •• * .•

•

• J5*

:•..••...•••. x:x

•• ACTIVE
•

YES

* •.
* .*
• YES

.'

.·*·F2.··*·· •••
•
•
•

••

****

•

ic

SFPPE7

.SET FR EE PUB •
*FLAGS IN OWNER-*
• SHIP TABLE •
•
OFF
•

X

••• C4 *••
•
*

.. YES

•

it

RETSW ••
NO . ' OR LIOSW ••
ON

x

V ES

PUBMSK

•.*•• •

ic

SFPPE4

•• YES

.* .* ••••••••••••••••••

.•.x *.

*••
*
* YES

.0.x o.
o

• 82 *•
•*.***
•

0

*. *••• .*

D4

*. ...

END ••
NO .'OF LUBS OF ' .

. ..*.o.

*.

IS
CLASS

• NO

83 •

KJ'

MOVE LUB TO
WORK AREA
JIBCHN

Gl

X

.' •

C4

••

••

•

.

.. .. ....
E2

.*.•lloSW

NO
•••••

•

IN

•
•

.. ..

*

*
STORE SCAN
• CONTROL CHAR

•

.*.x

•

*MS.
.x •••••••••••
J3 *.x.

•

E3 •• x.

SFPPE02

.'
'.

*••*

.*
••
.* IS *.
.:'
R6~SW ·:.~~ •• x•• ~~.:·PUIH~~lipAIN*:.
*. *..* .*
*. *. OLD
.*
PUB .*
• •• *
•.••

*
SET WRKRG2
•
'TO A 1 TO START'
•
SCAN AT
*
* 8EGINNING OF •
•
LU8 TABLE
•

.*.*
*

SFPPE6

*••
*
* YES

01 •• x.

*MS.

..*.•

•

.. C4 ..

o

'SET SWITCHES'
RETSW-ON
•
• t [OSW-OFF

._

o **83**.***'" •
•*• T~~M'~
*.•
EQSW
•••••****** ••

*85
•• •••••••••••••
*•••

X

•• C1 •• • ••••

'85
LOCATION ~LAIDN~ER
fgNt~~NS 0
FOLLOWI Nr, LU8.

X

SFPPE5A

•
CALCULATE
•
: PRm~~SA~~B :
* STORE PJI BAOo *

•••••••••••••••••*

SFPPEl

*•• ** *

ic
*****82 ••••••••••

••••• Sl**••••••••

• MOVE THE PU8
:
rBm;~RFl8M
•
NEWLU8 FOR
•
COMPARISON

•• ••••
•
83 •

82 *
••• ••••
••

DOS/VS IPL and Jot Contrel

')1

*•
•

Chart MS.

$JOECTLF - Miscellanecus Subrcutines (Part 3 cf 3)
Refer to Chart 11.
o

****

•

0;

A3 •

A3

.0.x *.

•**** *
:~;;;;~; ... ::.

*.
•
*. TRANSIENT *..* NO
*. ACTIVE .* •..• X.
*. *.. * .*
•*

IS
. ' UBlSTIO

•• ••••
•
B1 •

*

*•••• •

• SET THE STD.
• ASSIGNMENT

.. FOUND SWITCH

...

..

STDFOSW,
ON.

.****** •• **

...

:

'"

:*****
.: ~fifER~~Ei;
" .. "

X

..

*
*****************
***.
• MJ"
..
..

OFJt8

*
*

STDFDSW.

** •• *.*****

.. C4 _eX.

..

****

..

*
•

..

..

..

OFJIB

::::::: .....

*.

E2

•*

o NO

•*

Ft

~

IS

••

****

'" R4*
•

0

*

SFPPEDQ

.*•• *

*

• NO

*.x •

•

*

J laCHN FROM

*

*

LUBCOM FOR
'"
AL lSCAN
..
***.*************

••••••••••• X:
x

0

X

************.**

*
*

:SFPPE15
*****04**********
*SCNJ IB
KJ*
*-*-.-*-.-*-*-*-*
•
GET ADDRESS
OF JIB
'"
*05
'"
*****************

**

*

~~~:'E2':~

*. ••

..

x

,.*••
,* ot*

x

.".x *.

NO

.* .*....

**•••
*MJ *

ON.*

.

PREVIOUSLY
EOUAL
*..*

*.

*••
*
• YES

...*
* •• *

-

*•

*****E3**********
* LOAD LOGICAL *
*:* T~~S~~D *:*~~ ...... x:U~6LT~~rECHi~AN:
*. *. fOUND
.*
** IN DOUBLE
WRKRG2 AND *
SW ON.*
IT
*
*. • *
*****************
* YES

*. *. YES ..
.* Of
END
....
.* ...... .
*. JIBS .*
*. * ••• .*
•*

X*.

.* .* RETURN *. *. YES **••• •
*.SWITCH, RETSW •••••• X. 03 *

ENTERED •• NO
*..**.FROM
L ISTI0 .* ..... .
ROUT INE .*
••
..*
* •• *
• YES
o ***. * .

*

0

El ......

.' .*.

****03*********
RETURN TO
*
CALL ING SEQ
* G5

•*******.********.•

....

C3

*.
.*

A5
*.
.* .* PRIMARY * . *.

*.**
·MR.
•
• E4 *.X.
•
****
•
.SFPPE13
X
*****C4*·********
*.CURRENT
MOVE THE
*
LUB TO ..
•

*
*

..

*
•..•••
D1 •
..
o

••

****
SFPPEll

*-*-*-*-*-*-*-*-*
GET ADDRESS ..

..

•

• 03

.

X

*·***01.*** •• ***.
*SCNlUB
I<.J.

.. X*

•

TeMHT

*

.. x..................................... ..

SFPPE8

WORKF I ElD

*

B4

*******..... **.***

x

.TURN OFF STO ..
FOUND SW,
..
..

..

:

MJE3, MRG3

**(2*******

• STANDARD lUB IN.
• SSTOlUB FROM ..
• BYTES 0 AND 1

AtbMM~2T ~ H

X

SFPPE12

*****Cl**********

• SAVE THE STORED.

*

POINTER

**..•.**
.. YES

:SFPPE8B

*****S3**********
•
MOVE CHARS~ •

**

*..*••

YES

X

X
**81******·

SFPPE10

.*.

*. *.

A4
•• DOES
THIS LUB
NO
HAVE EQ PUB ••••••••••

.*

*.••*.

*•

E4

END
OF JIB

* •*.

CHA IN

*. *•. * .*

.*

YES
.. * ••.••••••.•.•••.••

o NO

x
*****

x
.*.
....

IS
....
$S8lSTIO

*. * •• * .*

*
TO THE *
•
WORK AREA
*
*JIB(;HN FOR CMP *
*****.*.*.***.***

X

X

*..*NO
*..**. TRANSIENT
....
ACTIVE .*

*MR *
El*

SFPPE14
X
*****F2**.*** •• **
'MOVE THE STOREOSID LUB FROM

.. YES

X

*

**SSTOLUB

X

•***.*F4**********
•*
* MOVE THE

•
SFPPE02
-

0

******* ••
*****F')
RETU~N TO
**
*
CALLING

*

LUB TO LUBCDM •
•
FROM
*
•
JIBCHN
***********.*** ••

*

*

SEflUENCE

:0;

***************

o G5

******••••

*****GZ **********

*••**.* ••
TCMNT
*
*.*******

SAVE lUB
*
ADDRESS FOR *
OEQUEUE
*
ROUTINE
*
***************.*

••• **G 1
*OUTPUT 2
MQ.
*-*-*-*-*-*-*-*-*
* CLEAR OUTPUT
•
*AREAS T""OOE AND.

**
*

·

THIS RETUPN TO THE

x

:SFPPE16
.·**·G4*··*******

•

*

..

*

•

•

LOAD THE
AODPESS OF
THE FAVP IN
WRKRG3

,**
*
*

****.**** •• ******

:x ••••.•.••• :

.0.x

S FPPE8A

x

.* HlDOES *. *.

CONTAtN •• YES
*..*JIB
STORED
.* .....
*. *. LUB
STD
.*
••
x
"' ••
• *
NO
** ••

•* Bl •*

Jl

.*.x *. *.

DOES
•* .* CONTAIN
JIB
* . NO
*. *.ASSGN.*
AN ALT
.* .* ....
x
* ..•
* VES

*oo

x

•*****
•
A3 *
•

**** 0

. *. *.
AeTTEST
.*. * ..
H2
H3
.* DEVICE *. "'. NO
.*$tBLtSTIO*. *. NO
.*
.*
*.
DOWN
.* •••••••• X*. TRANSIENT .* ••••
*. REQUEST. *
*. ACTIVE .*
*...
**.••.**
*•• *
* YES
* yeS

*••• *•

•.*..•*
• 01
• **.* 0

,

X

.

·*JZ*·***·.
..
TURN OFF
*STORED ST ANDARD*
* SW1TCH
..
•

*

*•••••• ***.

x
••****

-.

$ptIIJ

• C4·

o

SFPPEOQ2

0

CALLING SEOUENCE
INITIALIZES LINKR4
TO PETURN CONTROL
TO SFPPES.

-*

X

.

* ••• *H4·******··*
COMPUTE fREE

*

.JIB POINTER AND*
.. STORE IN FAoVP
* H5
*
**** •• ***********

*

*

o

'"

SET TCMTT
SWITCH TO

'STD'

•

*•
*

*

••
•

E2*

SFPPEQl

TO DEVELOP THE FREE JIB

.*.

WRKRG4 •

SFPPE17
J4
*.
*.***J5 *****.****
DOE S
.*JIB CONTAIN*. YES
*lERO THE FIRST ..
A STORED
.. * ......... x* THDEE BYTES *
*. ALT.*
* OF THE JIB *
LUB
* ••
*****************
o NO

*.

.*

*.

•******.**** •
:x ........... :
x
**.**
*MR •

WR KPG4 ..
3. THE DI SPlACE~ENT IN
HRKRG4 IS DIVIDED BY 4

4. THE RESULTING POINTER
IS STORED IN FAVP FROM

X

**

I S SUBTRACTED FROM

WRKRI';4 LEAVING THE FREE
JT B m SPLACEMENT IN

POINTE~.

X

**J3*******

• H5
1. THE FREE JJB ADDRESS IS
LOADED IN WRKRG4 FROM
POINT3 •
2. THE JI B TABLE ADDRESS

*.

* .*

..

*

•

•

x

x

:SFPPE18
*****K4*****·****
o
•
*lERO THE FIPST *
* THREI:: BYTES •

·
*

OF THE J 18

.

*****
*MQ
* F5*

*

•

.
0

')F"PE03

*

****** •• * •• ******

Charts

185

Chart NA.

$JOBCTLG - JOB Statenent Prccesscr (Part 1 cf 3)
Refer to Chart 13.

•*****
•
A2 *

****

•*

••
*

S".J08CTt G

*,..

*************** *

·.
•*"'*"'*
•
AI) *

**

****

X

X

** •• A1*********

A3

•**** •

***** •

*****A2**********
•
SET UP
*
FOf!. LABEL
*
*CYLINDER CLEAR *
*****************
•
*

X

CRJBSQ

*****A3**********
*
** AllOW
JBCSW4 TO
*
OUTPUT *
* ON LST AND
*
*
LOG
*
*****************

*
*
*

**A5 *******
'" RESET TO '"

* OR MASKS INTO

"II<

* C; T ANOARD,
JCSW~, JCSW4
*
AND

*

*****
*NB *
* H2*

TEMOPT

***"''''******

*'"
*

*

• *

•

JOB

X

*****81**********
*SCANR2
GK*

**-*-*-*-*-*-*-*-*
GET
**
JOB

*,..

NAM E

,..

*****************

x
.* . *.
Cl
.*
*.
NO .* DELIMITER *.
..... *..
IS A
.*
*.BLANK OR .*
*.COMMA ••
* ••
*
,.. YES

x

X

*****82**********
*USRLBL
NJ*
*-*-*-*-*-*-*-*-*
*
CLEAR
**
*
LABEL
* CYLINDER
*
*****************

S

IMEND
X
**84*******
•
SET
*
,.
SIMULATED *
* EOJ SW ITCH *
,. OfF -

X

X

*'*****C3**********
SAVE POINTER *
* TO JOBNAME
*
** ACCOUNT
IN ING
**
*
TABLE
*
*****************

-JCSW2
*
•
***********

Nap,

X

*****85 **********
* LOAD ADDRESS ..

* OF LUB TABLE *
* INTO WRKCl.Gl '"•
*
********"'**********

*

*******"'****
SIMRET,
*

*. * •• * .*
* YES

**C2*******
**RESET LINK >*
* CONTROL BYTE *

**

.'. *'.

B3

JOB *.
NO .*ACCOUNT ING *.
....
*. INT ERFACE .*
*. SUPPORT .*

•*

X

X

*****C4**********
RESTORE
*
JOB STATEMENT *
***FROM
IN I/O BUFFER *
SAVE AREA *
*
*
*************"'***

*****C5 **"'*******
*JI BSCN
NP*
***-*-*-*-*-*-*-*-*
GET ADDRESS *
OF SYSRDR
*
'"
JI B
*
*****"'***********

*

:............ x:x
x

•> •
01

*.

.
.*
* . *.
.YES .* OPERAND
.. X •• *.
TOO
.*
*. SMALL .*
*. *.. * .*
> NO

02* "'.

******
*NO

*

*.

IS
*. *. YES
.* . *PREVIOUS
*. *. CO~PLETE
JOB
.* .* ....
*. *•. * . *
x
****
* NO

*,.

x
.* . ,.. ..
El

..• YES.* .*OPERAND ,. . ••
TO
LARGE
.* .*
*. * .. * .*

.x.... *.

> NO

,..

AR EA AND MOVE

,..

NAME IN

THE JOB

*'

,..

*

*****************
X
.(* ..
Gl

****

*•.
*
* NO
X

£:4

*

*.

*..

***********

*

*

*****G2**********
•* SAVE JOB STMT *
** STATEMENT
I N JOB
**
* SAVE AREA
*
*****************

*USRLBL

NJ*

**-*-*-*-*-*-*-*-*
RESET TO
**'
* USER LABEL
*
MODE
*
*****************
****

.
'
• • x*

A2

,.

$JOBCTLA

***************

*

1*********
•••• x**' ****K
BRANCH TO
*
NVSERR IN
*
****************
SJOBCTlA
*

* ... *

..*

E5

.* . *.

•*
*. *.
NO .*
. ....
*. PROCEDURE
.*
NG."
*. * •• *.*
*O~OCESSI

*

F5

.*. *.

· *fS JIB •. *. YES..
*..**. PROCEDURE."
USEr) BY
.. *•• x.
*. *•• *.*
* NO

*

ESTABL I SH
RETURN

ADDRESS TO
• ACCTS IMR'

*
**
*

*********
** ****GS
BRANCH TO
*-*
C;YSERQ tN
* ~JOBCTLA
,.

•******************

* *
VI A
**
* * 'FETCHRF'
* *
******************
*
**

*

X

*****G4**********

***

YES

x

X

*****F4**********
ESTABll SH
*
** LINKAGE
TO
$JOBCTlN
*'"
... FOR SIMULATEO *
'"
EOJ
*
*****************

*

X
*****H4**********
*'" ** $JOBCTlN ** **

*

***"'********""**

• >.
H5

*.

* I<; *. *.
.* •l)TANOAR.D

.

•***. *

X

**J2*******

**

SET

$1 MULATED

*,.

**-BR,
EOJ SWI TCH ON *
SI MRET- *

•***********•

X
*****K2**********
*
* MOVE JBCSW4 •,.
* INTO
SAVE
*
*
AREA
,.
*
•
*****************

x

•*****
•
A3 *

·.
****

DCS/VS IPL and Jot Central

X

*****J3**********
*RST ASG
NM*
*-*-*-*-*-*-*-*-*

*
*

RESET ALL

I/O ,.

ASS IGNMENTS

*

*.

EFFECT

*. *.. * .*

.*

• "0

•************"'*****

•***"'*
K3 *.
*.X •
****** X

*

POINTERS

*

TO
'"
NEW JOB
*
NAME
*
*****************

X

*****K4**********
PESTORE
*
** POtNTEP
TO
*
* USER JOB ACCT *
* INFORMATION *
*******************

x

x
***'"
**• A 5 •**
"'***

NAME AND
*
* LINE COUNT *
>
*
*****************

******
*NB
'" A1*
* >
*

..

X
**J5 *******

*

SET
**
** Jf)B-OVT-OF-

SEQUENCE
,.
*FLAG IN JCSW4*
*
•
***********

: •••••••••• X:

•******K3**********
•*
RESET JOB

*

x

****

** J3**
****

:ACCTSIMR
x
*****J4**********
* RESTORE
*

**
*

.

YES.

••• X*.ASStGNMENT IN.* •• X.

****
*• J3 * •••

**

*
•
****

x

*. * •

X

X

*****G3*********
BRANCH TO
,.
,.
ERRRTN IN
*

*****H2**********
*.Ie
CLEAR
I/O BUFFER
*

•*
*
*
*

:x .......... :
*****J 1**********

.*X.

:•.•..•.... x:

*****************

X

*. *' •• *.*
*' YES

*.NOP
YES

*****F3**********
SAVE JOB
,.
.* JOB
YES
,.
STATEMENT
*
*.AN OVERWRITE .*u ....•• X*
IN JOB
*
*.OR INSERT.*
* STATEMENT
*.STMT .*
,. SAVE AREA *,.
*. • . NO
*
*****************

*. *.
STMT

'"

NO.*
*.
.... *.•**. MODIFIED
IN EOJ
.*
ROUTINE .*

* YES

• >.

VALUE
*
•
*********"'*

AeCTBR5

• *'
*. *.
NO .*
....
*. *PROCESSING.*
PROCEDURE .*
*. *•. *. *

.* F2 IS

TO INIT1Al

*

.* . *~

.* 05 ANY
*. *. NO
JIB
*..*"'.CHAINED
TO
SYSQ:I)R
.* .* ....

*

X

**Hl*******

*RESET LABEl.
SEQUENCE
*
**' SWITCHES
*

186

'"

x

*
*

*

X

*.

.• LABEL *. *. YES
*..* OPERATIONS
.* ....
*. * .MOoE
IN STO .*
.*

*

*

x

X

1**********,..
******F
CLEAR JOB
,.. NAME STORAGe
,..
,..

EOJ

X
**04*******

* RESTORE
* JBCSW4

AI) ,.

*

x
. *. *.
E2

RSTSW4

Cl*
••
•

X

*****K5 **********
NM*
*-*-*-*-*-*-*-*-*
*• RESET
pqOGRAM *
ASSIGNMENTS *
*
*
*****************
*PSPASG

·.
x

*"'**

K3 *
***** *

*

Chart NB.

$JOECTLG - JOB StateKoent Prccessor (Part 2 of 3)
Refer to Chart 13.

••••
A3 •
"••••"

*****

*NA·
• K3*
•

At

•*

o

•

x
.0.
JOB

X

*.••

• •••• Al·•••••••••

*

NO .*ACCOUNTING o.
•• ••••
INTERFACE

*.

SUPPORT

*. * ..• .*

.*

.*

·

* 82
•

X

•• SI •••••••

o

..

*

seT JAJ
SWITCHES

•

ROUT INE

IN JOB

••••••• **••

..

•

x

NA~E

0

.. IN PARTITION

o
..

..

ACCOUNl
TABLE

"•

"
SAVE JOB
• NAME IN BYTES
•
0-7 OF
"
PAPTIlION
•
SAVE AREA

*

•*••••** ••••*•••**•*
X

WORKFIElD IN

it

it

•

OF DAY •
•••••TIME
**••••••**••••

X
••••• Fl****·*****

•
PUT TIME IN •
o ACCOUNT TABLE •
•
AS PACKED
•
•

DECIMAL

o

••

•••••••••••**••••

.•• ••• •••••• x..
..

i

GET JOB

..

• STARTING TIME>
•
TO COMPUTE
>
•
OURATION
0

••••**************•

.....Hl··.·····**
X

OGETIME

Nl.

*-...
*-*-*-*-*-*-*
o
GET TIME
•
..
..

FOR
PR INTOUT

h~bTIA~I'~

•
•

ADDRESS OF
SYSLOG OfB

X

*···*03***··
RESET •• •••
•
** FROM
JOB ZONE
•
SYSTEM
•

..

•
•

•

* •••
.*
NO •• MODIFIED *.
. ...
*.
IN JOB CD ."
BR
*. RTN .*
*. *•• * .*
YES
*.NOP

•

.PREVIOUS SYSlOG.
I/O TO FINISH 0

•*-*-*-*-.-.-.-*-.
•••·F2.·••·•••••

·

X

oT! MOUT

X

• •••• F3*** •••••••

Nl.

• LOG TI ME ANO
* STATEMENT ON
"
SVSlOG

.>.

E3

NN*

WAIT FOR

•

X

ACCTBR2

..................
•

ZONE

•" ••••••••••••••••>
:.••.•••••. x:

·*··*E2·**.··*.·.
*-*-*-*-*-.-*-.-.
*
.10RQUTW

..

•

>
"
>

•

GET

OAT E

"*•

•••••••• **••••••••**

•••••••••••••••••
••••

·NE·
•
• J5 •• X.

....·Gl··········

AeeT IGN4

..

•

X

··.**El**··
......
• GETIME
Nlo
*-.-*-*-*-$-*-*-*
..
GET
..

x

>PART SAVE AREA"
••••••••
*••••••••

•••••••••••••••••

•
*
•
•

•
•

.* •••
C3
.* TOO •. *.
NO.*
.... *. SUPPORT ••
*. * •• * .*
* YES

.BYTES 82-87 OF •

•••••••••••••••••
•
*

•

•
>

RESET
DATE BIT
TO ZERO

•• ••••••••••••••••>

•
•

·*··*02····*·*·*·
:
:

PUT USER

o
ACCOUNT
o INFORMATION IN
•
PARTITION
• ACCOUNT TABl E

j(

..
•
•
•

·.···C2···*-·····
*
SAVE TIMER
VALUE FROM

.·..*01*···"····
•

""

•
•

.*••*B3*·**······

"
*
..
0
•

X

RSSASGI
•
•

DATE FROM
SYSTEM DATE

*•••0

•••••••••••••••••

••••• t 1*••••****.
o PUT JOB

•
•

.*.*.82··t•••••••

0

RESET JOB

•>•••••*•••***•• *.*

it

RSSASG2

*' •

CARD

"

••*..

o YES

•

0

•

0

..
..

•••******* ••*.*••

••• *.* .
•

··G2·*·····

•

.*•••••••••

RSTCOM
•

*•

X

X

SET JOB

*

SWITCH
OFF
-JCSWl-

>

CANCEL

.·G3.**••••

" ACCTBR2
RESET
*• •
..
* TO NOP
•
•..***••••••*
•

•

**

:•••••••••• x:x

*.* ••
*Ne.

it

H2

.". o •

*. *. YES
.* .•SIMULATED
••
*. EOJ .• ••••••
8R.
*. *•. *.*
x*•
•••
*• NOP
NO
·NA •

• • A3*
0

•

ACCTIGN5

084·

> •

X

*

5t MEND

X

*o •••
*J 1 •• ***•••••
POINT TO SAVE.

·····J2*·****···*
*GETDAT
Nl*

..

..

"GET AND FORMAT "

*•••••• _* •••••*••*

•
DATE
.*
•••••••
*••••••-•

it

·••••

..

AREA IN PtB

..

PARTITION

FOR THIS

••••

•* 82 *•
o

••••*

..
..

*---.-*-.-*-.-*-.
*
SYSTEM

•

x
*•••

"

.. A3 •
"

0

Charts

187

Chart NC.

$JOECTLG - JOB Staterrent Prccesscr (Part 3 cf 3)
Refer to Chart 13.

.. 11.5

••
•

*

• **** *

CHECKPF
PASSRF
.*X: . *.
**A4*******
A5
SET
*
YES
.. '*
*.
* FILE
RECORDER
*'
BR
RECORDER ••
*
BYPASS *X ......... *. FILE BYPASS .*
* SW OFF
*
*. SW ON ••

X
*****A3**********
*'" RESET BG ,*
.. LABEL AR EA
..

EOJBY

ACCTlGN5

..

.

, *.**

******'
*' G3*

*NO

LENGTHS

'"

.*

.. *"'***"'*"'*** •

..

,
*
*****************

*..
*
*. oo.
• NO

• NOP

X

B4

*****B3*********·

**'
*'
*

.. SVSLNK ENTRY

•*
PAUSE AT

..

***to*•• ***_*_*.**

.

.***

X

*****C3
****
..
CLEAR
US ****
ERS **
*

*

*

PI B
EOJMA$K

*****************

MODIFIED
IN EOJ

." .*
*•

.* .*

*•.
* *
YES

*·04*******

,

*

*

*****************
•"'***
'"
EJ *.
*.X ..
.. ***** x
E3

****

*.

X

X
,*****03**********
*
* AODRESS THE *
* PUB TABLE
..

,

(4

*. *.

..
..

,

..

NO .*
....
*.

.. SCRATCH AREA
*TURN OFF SVSRDR.*

, x
.'.

•'"
** TO
SET PETURN
CONTR.OL
*
*,
**
***********

., .

X
****E4*********

*

IfETCHRF'

~JOBCTLN

•

*

*****.*********

**

•

• *****F4"'******'**
BRANCH TO
•
..... x* CONTROL IN
*
*
$JOBCTLA
*

***** ,

*****.*****.***

*
EDJI

*.

BR.*
NO
MODIFIED ....
IN EOJ RTN

...... . *..*

*.

*. * .. * .*

.*

.*

G4
.* .*PUB

..

••••• x*.

LINKAGE TO
$JOBCT IN AT

,

.*NO
......

• YES

X

..

*oo
OWNED *.

*. *•• * .*

,*****H3**********,
.. PAUSE EOJ

.*. *.

BY THI S
*.PARTITION.*

.. YES
.NOP

*

•*
*•
PAUSE AT
*..* YES
*.. *END
Of JOB
.....
*. *.
.*
.*
x
*••
*
, NO
****

, ,

.. G3 ..

.*X. ....

.'. *.

·.
* G3*
****

x

****

G3

*.

.*
*.
NO .'* REco~nI NG *.
....
*. SUPPRESSED .*
*.
.*
*. '* •• * .*
* YES

F5

x
**** ,
.. AS ..

Acel BR3

.'.x

x

.*. * .

****

05

: x............ :

.* END *.
*.• * PUB OFTABLE .....* NO
....
*. *.
.*
..*
* ••
*
.. YES

,

*•• *
* YES

***** ,
',* G3 **

****
*'" C4 '
.
*.x.

..

x
.'. *.
B">
.*
* •*. NO
.*
SOR
*COIo1MUNICAT I DNS .* .....
*. *.AVA!l.*
REGION .*

x
.*. *.

*. *. YES
.*
* .. END OF JOB oo*.oo ...
*. *.
. • .*
x
* ••
*
, NO

LOAD DIB
..
TABLE ADDR . . .
INTO WRKRGl *
AND ZERO
.-

.
..

*

*

*****************

*

**

X
*·H4*******
SET PUB

.'.x *.
G5
.*
*•
INITIAL *. NO •
*.. *CRl"-tPL
BIT .* .. x •
*.
ON
.*
*.
.*
*..
.. *
YES

: •......•.. x:

x

**
*
*

EDJ FLAGG
OFF
*
***********

*
*

.'.*.
F5
.*CRT TA~lE* . *. NO
•
*
*. AVAILABLE .*....
*.
.*
*. * .. * . *
* YES

.*.*

*. *.

H5

.*. *.

*. *. NO •
.* .* .. x.
*. *.. * .*
x
HARD

COPY

NEEDED

*

·• ,•
****

YES

: x ............. :

X
****J3*********

*

$JOBCTlN

*•

'HTCHRF'.

VI A

***************

X
*****J4**********

*
*•

** INCREMENT *
* POINTER TO
*
* NEXT PUB
*
*******************

'" (4*

FE TCH"'I

****

X

**J5
***********
SE T UP
****
* PEG S TO POI NT *
** TO
RECORDER
*
INITIALtZER *
*
POUTINE
*
*****************

x

X
****K3*********
•
SVC 14
**
*
GO TO
*
JOBCTLA
*
***.*******.***

AceT IGN6

188

Des/vs IPL and Jot Control

, **** *

,'*

E3

****

,*

X

**
,

****KS*********
FETCH
SJI1BCTLM

.

***************

**

$JOBC~LG - /s State~ent Processor (Fart 1 of 3)
Refer to Chart 13.

Chart ND.

.

••••

•** A2 *•

•

..

••••
it

• 0.

•····Al·········
••
EOJNRF

A2

•••••••••••••••• *

tI • •

•

eOJPIB

* SET •
o RECORDER
•
BYPASS *
*• FilE
SI! ON
•
-PASSRF *

SET EOJ-BIT 0
o ON IN PIB FOR
* SVSFtDR ON •
•
OASD
•

0

:~~X!i.l~'.U!~l:

•••••••••••

...-

*NA·

.

.....

.NE •
o A1"

•
0
••••

x
••••

.0. *.
•
X

. * Cl

SYSRDR

•

.*

•.

:l:X~i.t'.:l~.ll:

.

•

*

o

0

.

CATALOG

..

..

SWITCH
•...........
••
:x .••••.•••. :

x

.

OSET UP TO FETCHO
o
SJOBCTLE
0
•
I BRANCH
..
•
VECTOR ~I
..

0
0
0

0

•••••••••••••••••

x

.. ..

TURN ON

••••• E5 ••••• • ••• •

• *.** ••••*.******

...

•

•

it

.0.

..
..

X

0

RELEASE
PROCEDURE
LIBRARY

•

OF ACCOUNT
TABLE

o **05 ••••• ••..

.··.·EI··········
F!

.*
•..
*
eYES

•••••••••••••••••

•

FIELD

.*

••

GET ADDRESS

•
•

* •••
o YES

............... x..
o
o
o

••

o. SUPPORT .e

•••••••••••••••••

•o

JOB

X

••••

*.••
.•
.•

RESET
SVSPARM

o
o

.0.x

NG e. NO
*.• OACCOUNT!
INTERFACE
.* .. __

X
••••
*01*.* •••••••0
o
•
•

B5

······C5··········
..
...

•
0
e• A5 •III

•.

NO.*
SVSPARM
•• •••• SUPERVISOR

*. *.

*

".

• •••
0 YES

X

••••• S3 ••••••••••
SET EOJ-BIT •
e
ON IN
e
•
PUB OF
•
•

*.

J*~C~~EgE

.. X........................... .

•

III C3 •• x.

EOJ

ic

•••

NO •• IS MAINT

*YES

·····82···.····
..*
*

X
•• SI*** •• ••

e

X

A5

NOCATL
EDJNRF

A5 •

••••

.. ..
X······
.•.•
..... .....e· .
JBINPR

*.

•• ·~YSl~R O~·O. NO
*. *.01 DISKI
.* ................. .
SKETTE ••
*.
.•

•

••••"

• •••• F2 ••• ** •••••

*.

.PENDI

NS*

*:* p~ag i~gV~a .:. !'~~ .......... X:-*-*t~~K:-*-·-:
*.
*
EOP
•
....* .*
* PROCESSOR
•

.................

• NO

o

..
..

it
....FS*······.·
*
BRANCH TO
FETCHRF IN
SJOBCTLA

e

•••••••••••••••

•

:x •....••••••..•.•••••.•.• :
X

NORESTOR

**··*Gl·**·**·*··

•

:
•

o

CO=mTrn~

0

OF :
LAST SYSLOG ..
OUTPUT
..

•••••••••••••••••

·····Hl··········
•-.-.-*-*-.-*-*-.
X

.tHKASG
o
CHECK

GU •
•
A m~~~NT
:

••••i ••••••••••.•

:

.•

J1

x
.0.

O.

*.

* SVSRDR
IS
' . NO
*.•••
.* ....
ASSIGNED .e
x
* ..
*
.. YES
*•••

.. ..

•

x
"•••• ..

0

.. A5 •

•••• *•

A2 ..
"" ••••
..

Charts

189

$JOBCTLG - /& Statenent Processcr (Fart 2 cf 3)
Refer to Chart 13.

Chart NE.

••••

·..
• A5 ••••
••••
X

NDCATL

•••
...
IS
LABEL
••
OPERATION
••
o. IN STD ••
·.MODE
• ND

YES.*

... .*.

Al

NDIPT2

*.

••

* .• -

.*

..
••

··81·*···*R

ET

*•••-

.*.x

x
.0.

NOIPT3

••

.*
...*
-. ••

x

A3

..

..

*

•

··8Z····*·*
SET
PIB AND

PUB EOJ

•

OFF

83
•

•

•

•••••••••••*

•
...
IS
• YES.O
EOJ
*.
• ••• *.
POSTED IN . '
PIB

*. *.

X

INDICATE

0
..

PROCESSING

•

EOJ

*.*••

*CHKASG
•
*

••••** •••••••••••••

SYSRDR
ASSIGNMENT

.*_••• _••• *_.*.*•

....

*

it

.'.
•*OZ IS *. •. *.
••.. *. *.ASSIGNED
SVSRDR
••
.*

•••**ol.l••••••••

oUSRLBL

NJ*

*-*-*-*-*-*-*-*-*
•
RESET
..

o
..

USER LABEL

NO..

*

*.

MODE
•••••••••••
**••**..

X

TURN OFF

•

PROCESS ING

..

••

EOJ

.*

•

**
PUB *
•*

*
..
o
*•••••••••• *

..

*

•••••••• **•••••• *.*

GET END
TIME FOR
EOJ TIME

SUPPORT

*. •.

* ••• .*

*

•.•-.-*-.-*-*-.-*-*
**.F2·····*····

····*Fl·**····*··

*USRLBl

NJ.

*RSTASG

*-*-*-*-*-*-*-*-*
CLEAR
*

•
..
*

LABEL
CYLINDER

..
•

•• ***••••*.*** •••
X

TEB
COUNTERS

NKO

*

RESET All

•*

1/0
ASSIGNMENTS

•

**

.*••••••• **.*.-.-

•••••••••••••••••

•

*
•ME.
••••*

0

•
*
0

X

·****G3·.****·.*·
Nl*
.-*-*-.-*-*-.-*-*
* CONVERT *
TIME TO
HH/MM/SS

•
*

*.* •••• ***•• *****

X

X

*.**.H2·_·······*

•• HI· •• • •••
TURN ON *
UNIT
..
•
EXCEPTION
..
*
SWITCH IN *
*svs IPT OF8 ..
*

•
RESET JOB
•
* NAME IN SAVE •
• AREA FOR THIS'
*
PARTITION
•

•••••••••*** ••*••••

***********

X

X

**
*-*-*-*-*-*-*-*-*
.RESET
All ASSI-.
••••• Jl ••***•••

• RSTASG

-••*••••••
•*****J2
••
PUT TIMER
..
VALUE IN
•
•
LaC WRKFLO
•*._..•.__ . *••••-*••

NMO

.GNMENTS IF JOB *
_NOT OUT Of seQ ..

•• *****.*••••••••

Kl

•*

.•.x *.

••
IS
*.
SYS IPT
·.ASSIGNED

X

*. * •. * .*

*

YES

x

••••• *
* A2 *
*.****

190

.**·*KZ-***······

*. *.
.*

•..•

NO
.* ••••

*

*••

..................

•

x

.**.

GET END

TIME FOR

DURATION

•

*

• C2 ..

**•••*

•

*

x
*•••••
• 03 •

•*... *•

DCS/VS IPI and Jot Control

•. ••• * 'I .

X

NODURl

*.***H3***••• ** ••
*IOROUTW
NN*
*-*-*-*-*-*-*-*-*

•
WAIT FOR
..
'PREVIOUS SVSlOG*
• [/0 TO FINISH.

**.*••••*** ••••••

.•.x

•• J3 TOO*. *•*.
NO.*
'II.....
SUPPORT
.*
*. *.
.* .*
* ..•
* YES
X

MOVE
DURATION
TIME FOR
PRINTOUT
TO lOGT 1M

*•
•

*****•••** •••••*.**•

:...•.•.••. x:x
*•

•••*

04·*

*•••**

•_

Nl'

.-*-.-*-*-*-*-*-•
• GET EDJ TIME *
•
FOR J08
*
•
ACCOUNTING
*

x

**********
•*** **E5PESET
•*
**.. LI NETO
COUNT
*
1
•**••••• **.**.* ••••*

X

F5

**F4··**··*
•
SET JOB •

'ACCTG INTER- •
*FACE
SW AND'
• EOJ RECORD •
* INDICATOR *

B'.

NO._

• •.• *.

.ICC.4I4I*4I****

*•

** PACKED
..
•
•** ••••DEC
IMAL *.*'"•
_••••••
X

.*.

.* H4 TOO*. •. *.
SUPPORT
.*
*. •.PRESENT
••
'
I
I.
*. • 'I •YES

NO..
•• ••••

X

***··J4··*·*·*··**

.SET J08 ZONE ""
.. SYSTEM ZONE.. ..
• GET EOJ-TIME ..
• FROM WRKFLO FOP'.
..
PR INTOUT
..

..**.*••*.* •••**.

X

•• _**K4** •••*.*·*

** SET MESSAGE •*
* LENGTH
CHARACTER
**
TO 46
•*•••••••••••
*••**.•

x

••••*

*•

85 *
******

•• PAUSE
AT EOJ
REOUESTED

*. *.

X

• PUT EOJ TIME
*
IN ACCOUNT
TABLE AS

.'.x •• *.
YES

X

•

*•

..

*.••

'II. 'II.
*.. *
*

*·.**G4********·*

ACCTIGN2

*

SYSLOG
ON

*************.*.*

YES

:..••.•.••. x:

**-**K3**··******
..
•
..
•

•

X
*****011)
*.*.
-n MaUT
NL*-.-*-.-*-*-*
_
LOG TIME . . *-*
..

_* ••••

.* •

._ 04 JOB *. *.

NO .*ACCOUNTING *.
• ••• *.
INTER FACE . '
•• SUPPOR T ••

:.....•.•.. x:

:•••••••••• X:
..

NOMOVE

: •••••••••• x:

•••••• **.****.* ••

YES

**************** ••*

•
•

* ATJ
*.*.....

..
..

•

seT
,.,.
CHARACTEP
..
LENGTH TO
,.
-* ••••••••
28 *-**.***
*

X
····*E4*···***··*

'II. .*

•
CALCULATE
* JOB DURAT ION
*
AND SAVE
•
IN WRKFlD

•
..

J.
•

SET
ME

••

X

X

*GETIME

X

*GETlME2

..
..

•
•
*

• **·*F3·**··**·**

•••••G2···.·•••••
X

••
···Gl****"'··.*
.TEBS
NF.
*-*-*-*-*-*-*-*-*
..
CLEAR
•
•
..

X

NOIPT7

.*.x

*
•

*.*** •

.'.
.• E3 TOO*.*. *.
NO.*

••• • *.

A5

.- VAllO *•*•
••• *.. *.TN
JOB NAME
•*
•YES.*
BUFFER.*
*. *•. *.*
• NO
*··**C5 ** •• _••**.

***.**
•
04 ..

*
*

X

•
*
•

..**
•* R5 *
*.*** •

..

***.*03•••• **••• *
'GETIME
Nl'
.-*-*-*-*-*-*-*-*

:•••.•••••• x:
X

•* A3 *••
****

0

x

*·E2····***

SET
IN S
PI B

x
..*
.
*

*•••••••• ***•••• *

-••
• *
YES
X

····*El··****····

•o

X
*****84***** •••••
GO*
• -*-*-*-*-*-.-*-*
..
READ
•
•
FROM THE
*
•
DEVICE
•••••••
*****._ •• ..*

.. 03 •

*

•
•

.EXPRG

... _.

*
*

*

CLEAR
INPUT

•

•
BUFFER
•
**•• *••••• *.*** ••••

K

*••••C2**.*••GU
**•••
*-*-.- --*-*-.-*-.
*
CHECK
*

•••
**Cl.·.· •••••••
o

*•

•* A4 *•

X

NDIPT

.• .*

*••
* *NO

.....

•* C2 *.
•• x.

X
*****A4.***··****

NOIPTl

*.

.'.*. *.

:EOJPIBI

•

.FOR SVSI PT

o

..*-*

*

••••••••••• X:x

X

.... .
·...*...

*.•

•

••

..**
•• A4 *
•

•. * . . * .*
• ••
*
• YES

* YES

NOIPTA

:.•••.•••.. x:
..

.. A3 •

A2

.**.
* A4 ..*
*.*.* •

El"
••

S
S

.. A2 •

•• IS
••
••
NO.*
EOF
*.
NO .*SYSIPT DISK'.
• ••••
POSTED IN
.*x •••••••• *. OR DISKETTE .*
••
PU8
DEVICE

X

..

*•••••
•••••*

* *
•••••*

•-NO.
*.*

**GS •••••
SET
JCSWl
FOR

** *

~JOBCTLA

•

************ •

**

: •••••••••• X:
NOPSE

X

*******

**H5 LI NK ..
*RESET
*C ONTPOL BYTE
.. IN JCSW2 BITS ..
*.0, ~~D3~ 4

*

.*
.***.*.****
X

**J5***·*·.
FlESET
•
** JCSW3
AND ..
..
JCSW4 TO
..
.. STANDARD
•
***********.•
:PQCOM

x

****·NB ..

• r;2*
*•*

$JOBCTLG - /& Staterrent Processor (Fart 3 of 3) and CANCEL Statement Processor
Refer to Chart 13.

Chart NF.

•*****•*
••••••

•*****
•
A3 •
• •••• *

A2

····Al········*

•
•

•

•

TEBS

X

• *.
*.
.* A2 FOR
NOP *. OFF
.*
*. BR
'.PRINTING TEB ••••••
*. HEADER .*
*. *•• *.*
* ON

TEBHOR

•

•••••••••••••••*

X
**·**A3***··*****
..
CLEAR WORK
*
•
REGISTER
* -WRKRG4- **

*•

****

**********••••***

*•

B4 *
******
x

.NOP

:x •••...•....

X
T EBS

Bt

."'.

X

***82*******
SET TEe
...
HEADER
'"
**... SWITCH
OFf TO ...*
•
-BR*
****.******

"' ..

.* ANY •. *.
NO.*
.......
*.. *. PRESENT
TEB
.* .*
*. * •• * ..*

*

YES

x

X

*****c
1***********
..
LOAD AODR

*****C2**********
CLEAR AND
*
•

'"

•
BUFFER
*************.****
•*

'"

*

OF PUB

TABLE IN

'"
...

'"

'"
•**.***-POINTl•••****.****•

LOAD
OUTPUT

•
...

•*·***AS**··.···.*•
•**************.•
CANCEL

••

.*.*.

X
*****S3 •• ***.*.**
* CONY ERT AND •
•
HOVE COUNT
FROM TEB TO *•
*.*. OUTPUT
BUFFER ..
•
***.*** ••** ••••••

*.. '

X
******C3******.***
GET ADDRESS •
•* COUNT
OF NEXT
BYT E ..*
*
AND PRINT
'"
* POSnl0N
*
*****.**.**.*****

*****(4***·******
** CLEAR
OUTPUT *
SUFFER, MOVE *
.. JOB NAME INTO *
*
CANCEL
•
*
MESSAGE
*
••••• **.****.****

TEBlOP

84

X

CANCEL

.* JOBIS IN *. ' . NO
PROGRESS
.* ....
*.
.*
* ••
*
* YES

.. ..
X

•••

.*

B5

*.

*.

.: *p~Sg~~ ~~~~

*. *.

*: *~? .•
.* .*
*..
*
* YES

X
*****C5****** •• *.
*PENOl
NS*
*-*-.-*-*-*-*-.-*

**
*

INVOKE
EOp

•
•

PROCESSOR
'"
*******.******.**
: X •••••••••• :

X

**01* ••••••
'" SET HOR. '"
'" LIST SWITCH '"
.,
TEB HOR
•
'"

* TO NOP • '"
***********
****
.
El '
*'"****
•"'.X.x
..
• T BPBLP
.0.
El
o.
_* END *.
• '"
uf
"'.
"'.
PUB
*. TABLE .* .* .....
*. *.. * ..*
'" yes

·

IIIU

X
*****02**********
*MSGOUT
GJ*
*-*-*-*-*-*-*-*-*
• LOG MAGNETIC
**
*
TAPE
*.**************
ERRORS
'"
••

'"

•
•

*****E2··********
*• CLEAR
OUTPUT
*
ou":r~k ,..,.'.4u
..
MOVE SECOND *
* HEADER IN *
*****************

,..

•

•

X
*** •• F2**********
*MSGOUT
GJ*
*-*-**-*-*-*-*-*
** LOG PRE
'CH. UNIT *
WTE
•
•
ERB NRC'
•

···"'FI"'··."'*·.'"*
RETURN

'"

TO
CALLER

'"

********.******

.*.

.* 03 ANY *. *. *. YES..
*. *. MOR.E
COUNT
BYTES
.* .* ......
*. * •.* .*
* NO
•*

*.*****."'******"'.

X

*****E3********·*

!M~GOUr___ ,. __ --:.-, ___~J!
~

;-". ~-rOUTPUT

•*

LINE

.'.

.*
*.

READER

*.

..*

*.
.*

.

* ••
*
* YES

x

.'.

HI
"' ..
UNIT
.. NO ."'BELONGS TO "'.
.X....
THIS
*.PARTITION ...

.*

*.

.*

*. * •• * .*

'" YES

X

*****J 1**********
'"

caMP UTe

'"

OF rEa

'"

**

ADDRESS

*'"
•******************
'"

ENTRY

Kl

x
.* .*.

.* ANY *. *.
x......*"'. NON-ZERO
ENTRIES
*. * ~ .* ..* ~*
x
'" Yi::S
•... ****
*
F3 '"
x
• •
• **** *
• NO

....

~'"

... A2 ...
***.

•

•

X

TBNHOR

***·*G2 **********

*
*•

CLEAR
OUTPUT

•*

·

TBNXPB

X

X
*****K2 **********
* GET FIRST
*

**
..

PRI NT

pas.

NUMBER OF

**
..
*

BYTES TO BE
..
LISTED
*****************

'~--'>

'!':--~

**'
*

it

**05 ***••*.
*NCLUOE
SET
•
MASK *
* * JBCSW4,
OFF
'"
'"
* BIT 6 '"
*1

***********

WRITE

* PUB OWNER •
******************
ENTRY
*

*••*
**• B4 •**
****

•

MESSAGE ON
SYSLOG
**
*.*****.***.*****

x
.*.

X

***.*F3********.·
•
SET POINTER 0
**PUB
TO NEXT
*
AND TO NEXT*

.* F4TO BE*. *.
•• PUT OUT ON *.

NO
....
*.

SVSLST

*. *.

.*
* ..
*
• YES

.*

.*

x

**.*
•* El •*
•
****

•

•

***··J2***·*·****
• TRANSLATE AND ..
* MOVE CHANNEL ..
* AND UNIT NO. *
,..
TO OUTPUT
*
*
BUFFER
*
**.**************

•*

X
*··**E4*********·
.LOGOUT
GJ*
':'-':'-,-- ......

.
* F3 '*.X.
***** * •

BUFFER
...
*
*
***.*************

X
*****H2*******··*
*•* CHANNEL
UNPACK
*. .
....
*
AND
*
*
UNIT
*
*••• *** •• ********

,,- *'

********.********
**.*

: X•••••••••• :

Gl
••
."'DEVICE ••
NO
A TAPE OR
••••• TAPE CARTRIDGE.*X •••

X
*****04**********
MSG, 'JOB •
* NAME CANCELED *
•
DUE TO OPTR
**
INTR.1 TO
**.***OUTPUT
APEA
*
•• ***********
*MOVE

it

X

:................... x:

X

x

X

*****G4*·********
*LSTOUT
GJ*
*-*-.-.-*-*-*-*-.

*•

**

WRITE

* SYSLST
*
***** ••**********

*H3
THE CANCEL CODE IS
SET FOR OPERATOR
INTERVENT ION
CANCEL

MESSAGE ON

:........... X:
X

NOTlIST

·*H4****·**
**
·SET
* AND
• *INPUT
SWIT
INTOR.*
•
'" JCS

3

*********.*

*'

x
.*.
J4 *.
WAS
*.
.*
.*JOB OUT OF *.

*..

SEQUENCE

*. ••

.* .*

.
.* YE
... S.
X.

*..
* *NO

X
*****K4**********
*RSTASG
NM*.
****K5******* ••
*-*-*-*-*-*-*-*-*
x
*
BPANCH TO
...
* RESET
ALL
*•••••••• x* CONTROL TN
•
110
*
*
'$JOBCTLA
*
*
'" ASSIGNMENTS *
••• ****.* ••••••
*****************

x

***** *

A3 *
•*****
•

Charts

191

Chart NG.

$JOBCTLG - CPTICN Statenent Processcr CFart 1 of
Refer to Chart 12 •

..•.AI·········

•••••• *•••••-•••••*
•

OPTION

·._..

..

•• *•••
•
83 •
•••••
•

• ,fI,fI.

'.

.. 81 ... x.

*

:X ......... ..

• ..

OPTION

X
*·***83**********

X

BTLOOP

*****81**********
GK*

*SCANR2

• LOAD ADDRESS •
OF NEXT
•
• OPERAND ENTRY'
•
INTO POINTl •

*

*-*-*-*-*-*-*-*-*
..
GET
*'
OPERAND
•*****************.
•..
Cl"*-..

·

'.
.*C3TABLE
DOES
* •' . NO •
.'
' . ENTRY EQUAL ......
*. *.OPERAND
••
••
**84
.••
* YES

.
X

X
*****01**
••• **.*...
..
RESET TO

**·**03*·********
• LOAD ADDR OF •

•
..
•

.*.x *. *.

'
*..*.

*. *.

••

••

.....
.' .

•

x

*.* •

*. * •••

X

.* ........................ x............ •.

• YES

:XREF-···: -NH······:· XPEF·············
:NOXREF" :'NH" •••• :·NOXREF···········

:ERPS····: -NH······: ·E~RS·············

•
•

• ••• G3.*******.

*

BRANCH TO
CONTROL IN
SJOBCTLA

•••••••••••••••

**
•

:lOG·····: ·NK···· ··:·OPT1.OG···········
:NOlOG···: ·NH···· .. :·oilTNlM .. ••••••••

:USRlAm: ·Nj·· .. ··:· usmL·········· .
:sTfiABEr:·Nj .... ··:·mm···········
:OUMp····: 'NK' ..... :·OUMp······ .. •••••
:NODUMP": ·NK······:· NoouMp···········
: liNK .... : ·Nj .. ····:· LiNK·············
:NDliNK": ·NK······:· NOLi NK .. •••••••••

:lATAl···:·Nj···· .. :·WH············

:PARSTO" :·Nj .. ····:·PARSTO·· .. •••• •••
:SYSPARM':: -NK······:· SYSPRM-··········
:Al itlN'" :·NH"· ... :. ALiGN············
:NOAl iGN·: -NH-·····: -NOALiGN-·········

:EDEcK"·: -NH-·····:- fDEcK-···········

X

"***H 1*** •••***.

X

******H2*********
BRANCH TO
**
NVSERR IN
•
SJOBCTLA
•
*••••••••••••••

• STORE OPERAND'
•
IN OPTION
•
TABLE AS
•
•
lie

•
*
•••••••••••••••••
'J2
1.
2.

X

***.*J
1**.*******•
•
INIT REG

:

3.

~81 ~H ~8 lDDR
OF xxx OF NOXXX.
CHAR crUNT IN
POI NT3 I S REDUCED
BY 2.

'"

• LESS 12 BYTES'

•••••••••••••••••
x

•• *•••
•
83 *

*._.*

•

192

:6PERANO' :'CHAH"" :'FlOWCHART' LABEL':
:OECK· I I I I III: '"NH· ........ ·:·OECK ........................ ..
:NoDEcK' ·:·NH .. ····: •NO DECK •••••••••••
:a:iSf' ••• :·NH······ :·i:.iSt .. •••••••••••
:NOliW ·:·NH .. •••• :·N01.1 St" ••••••••••
:L iSTX··· ;-NH-·····: -( j srx············
:NliSH··:·NH .... ··:·Num .. ···· .. ···
:SYM .. ••• :·NH······:· SYM .. ••••••••••••
:NOSYM ···:·NH .. •• ··:·NOSYM····· •••••••

:ioc·····: -NH······:· C60··············

.*.x * •

•• 81 ,.

*•.•

:* OPTION
~81~thtABLE
~8

F3

.* *••••

IS.
OPERAND ' . NO
1 TO 8
CHAR TN ._

DEL HUTER.

:
•
•

010
NO •• A BLANK
••••• END THE LAST . '
•• SCAN
••
*CIt ••
• YES

"'LENGTH ••

•

'CIt
EACH PROCESSOR RETURNS CONTROL
TO BLOCK F3 UNLESS AN INVALIO
OPERAND I S SPEC IF lED. CONTROL
I S TRANSFERRED TO NVOPTN AT
BLOCK C2 IF AN INVALID OPERAND
IS SPECIFIED.

:NOERRs": 'NI1" •••• :·NOERRS .. •••••••••
:m·····:·NH······:·C48··········· .. :

X

.'.

SEE TABLE A
*C4

**••••••••••••••••

:x .......... :
Gl

p~8mgR

:
•

••••*••••••••••• _.••

••

*

X

X
•••**Fl******··**

NDTNDS

•

LI NKRG3

*****E3*****·*·*·
•
EX IT TO
•

.* .*OPERAND * .. NO
' . START WITH ......
*. *. 'NO' .* .*
* .• *
• YES

*J2

•
•

*

................-

El
DOES

..

•
CORRECT
• ROUTINE INTO

*

*

****.***••• ***.*.

ADJ REGS FOR
• -NO- OPTION.

THE ENTIR E TABLE WITHOUT
FINDING AN EQUAL.

TABLE A

.. X .. ............................. ..

••

~aTApmm~E~6 §h~eH

x
.'.

C2··· ••

*.
.* IS *.
*:* E~~~L *:*!~~ ..... x*: •• s~~~:ft~~, *:*~~ ..
*. SCAN .*
*.
.•
*••. .•**
*...
*••
.. NO
* *YES
DID

•
ZERO THE
.. VECTOR ENTRY
• DISPLACEMENT
..
-POINT2-

*BIt
BECAUSE THE OPERAND HAS
BEEN STORED IN THE TABLE

•*•••••••••••••• *.•

X

•*

q)

DCS/VS IPL and Job Control

:NDEoEcK': ·NH····· ·:·NOEOEU········ ..

Chart NH.

$JOBCTLG - CPTICN Statenent Processcr (Part 2 of 4)
Refer to Chart 12.

•••**••••••
•'"··.·A2
NOOECK
•.**••••••••• **.•

••
•• ** ••Al·.·.***
•'"
DECK

•• ** ••••••••••••*
X

OECK

•

'"
'"

•

.*S1*······
SET

DECK
SWITCH

NOOECK
'"

'"

TO ON

•

'"

'"

•••• Cl. •••••••••

X

NL ISTX

•**01·*·*.*·•
SET

'" L ISTX SWI1CH
'"

'"

X

••82*······
SET
OECK
SwITCH
TO OFF

...

•

•••• A3 . . •••••••
LIS T
""

•••••** ••••••••••
X

LIST
'"

•

*

..

NOll ST

**83* ••·**.
'"

'"

SET

LIST

'"

SWITCH

*

····A4.·•••••••

•'" NOllST
•
•••••••••••••••••'"

'"

'"

'"

X
·"'84*.*.*••

'"

'"

*· •• A5**** •••••

·
•'"

'"

SWITCH

'"

'"

'"

'"

*'"

X

LTSTX

SET
LIST

.

l! C;TX

*•••••••• *.* •••

**13')

*•••• - *' ..

SF.T
U C;TX
SWITCH

*

'"

ON
'"
TO OFF
'"
'"
TO ON
'"
*
•
•• •••TO*••••••
•'"
• *.** •••• **. *
•••** ••••••• *
• *•• *.***••• *
***********
•
x
x
x
.
••••••••••••••••••••••• •••••••• •••••••••••• •••••••••••••••••••••••••••• •••••••••••••••••••••••••••••• •• x.
:4<

X

SVM
'"

'"

*

•••••••••••• •
OFF

'"

•****'*C2 *****.***
•..
SVM
•***********.* •••

• NLlSTx
•'"
*•
••••••••••••••• •

'"

'"

•

'"

•

SYM SWI TCH
ON

*.************* *•

X
**03*••****

NOSVM

•**02*****.·
••
SEl

•

•• ****C3******.**
••
NOSVM

*•
.. SVM

**

*

•..

OFF

..

SWITCH

****C4·*********
*
XPEF
*
***.***********

X~EF

SET

•*********** •

•.***********
it;

x

1*********
•• ****F ERRS
•
•*******.******.••

•*****F2*********
•*'
NoeRRS

•'"****F3*********
•*
C48
•***************
•

X

XREF

SWITCH

*

*

ON

.

****[5*********
*'
NOXQEf
•
• ****.***********

X

NOXJ:tEF

•**04*******
•,.
SET

*
*'
*'

•

..

.. ·

··

'"

******* ,.
***0') SFT

...

...

****'****.*** •

XQEF

*
*

x

•

*

SWITCH

OFF
•
•
.**********
oo

..

.................................................................................................................. x.x ........... .

ERRS

,.

X

*.G1*******
*• SET •*
ERRS SWITCH
ON

*•

..

*
.********** •

• ****.****.** •• **

NOERRS

*

it

•**G2*******
•:+
'"
SET

*

ERRS SWI TCH

C48

*

OFF
•***********
•*

•

x

X

***G3*******
•
'" INDICATO-Ft
seT FOR **
**48
CHARACTER '"
*

SET

**********.

,.

•'" ****F4*********
•*
C60
*

•

**.****"'**"'*"'**

·

.

X
**G4*******

(60

FOR

60

*CHAR.ACTER SET.

*

x

***********

****F5 *********

*

*

.

OPTNlG
*
• *************** *
'"

X

OPTNlG

*SET INDICATOR.
'"

·
*

•**G5******* •

SFT PROGRAMMER.
lOG INOICATOR *

·

'"

OFF

.

*

***********

x

.

....................................................... ..... ...................................................................................... x.

•*."'**HZ.**···_**
•'"
ALIGN

•****************

X

ALIGN

'"

• ****************

NOALIGN

X

**J3*******

**J2*******
:+
•ALIGN SET
SWITCH * *

..

*

***.*****
******H3
•*
NOAl IGN

*• seT •'"
'" AL IGN SW ITCH *
*
OFF
'"

·

****H4*********

.

EOECK
•*
*'"
***************

EOECK

X

•**J4*******•

'"
seT
'"
.. EOECK SWI TCH '"

·

.

•*****H5*********
•'"
NOEDECK
•***************
•
NOEDECK

X

**J5 *******
*
SET
*
* EOECK SWI TCH *
OFF
*
*
***********

•

•

.

·

*
ON
'"
•*******t:*** •
***********
•.....................................................................................................................
x
x
.
.
x.. x.............. ..

ON

:+

•************

X

****K5 *********
* ~ETUR.N TO
*
*
CALLER
*

*

***********••• *

•

Charts

193

Chart NJ.

$JOECTLG - CPTICN StateRent Processcr (Part 3 of Q)
Refer to Chart 12.

...•Al.····.···•

••

•••••••••••••••••
CATAL

•

X

CAUL

BI

•••

LINK

82

LINK

••

PCIL *. •• YES
•• SUPERVISOR ••••••
*. *.
.• .*
* •••
• NO
•• •*

..**A3**•••••••..
STDLBL
*
•...........*••.

••••A2*•••• • •••

•

.*.ic

·

. ·..

..
.
..•••• ***** •• **••

• ••• AIt*•••

..

•

_.

.... .•. ....
.... ....

STDLBL

•• •* PCIL *. >. YES
>. SUPERVI SOR ••••••
*. *.
.*.*
*•••
> NO

•

* ••••••••••

x

B3

•

0

*.*.

X

PARSTD

**·.·84·*****·**·
*L8LOUT
NO.
.-*-.....
-.-*-.-.-*
• CHECK PREVIOUS.

••

••
BG
". NO
•• PARTHION ••••••
• YES

.

**•••

PARSTD

..

*

•
LABEL
• OPERATIONS

x

•*.*. •
• •*

*Kl*
••••••••*••••••
_•

*··*A5··••***·*
••

USRLBL
*•
•***.*****.**
••••

USRLBL

X

*****85*********.
NO*
*-*-*-*-*-*-*-*-*
.CHECK
PREViOUS •
•-OPERATIONS
LABEL *1<1 ••
**;t.****.**••••**•
*LBLOUT

.. F3

iloilo ••

ic
*.***e1*******
•••
.NVOERR
NR.

*-*-*-*-*-*-*-*-*
• CHECK VALlDITV *

• -VAll 0 FOR BG •
• ONLV.KI.

•••••••••••••••••

PCILSUP

.*•••C2.······**·

ONVOERR

NRO

X

......-..........
....
*EI··········
*-*-*-*-t-*-*-*-*
*
ic

.OPNLNK

NL*

OPEN

•

SVSLNK

•

.*
••

o.

D2

....

••

X

*. ".

CATAL
YES
OPTION
••••••
•• SPECIFIED ••

*.

••
*•.•
* NO

x

•••••
• NR •
• ES •
•o•

*-*-*..
CHECK*-*-*-*-*-*
SVSLNK.
ASSIGNMENT
•
*Kl
..

o

..FI·······

"-.-$- *-*-.-*-*-.

ic

ic

•

•

LINK SW. ON •

•••••••••••• •

*****F 2••*•••*••
NL**
•
OPEN
*
•
SYSLNK
•
*• ••••••••••••••••0

• OPNLNI<

X

ic
·.Gl*·*****

• SET CATAL •
•

•

••

SWITCH
ON

*..

•

•••*.*****.•

.. TO BEGIN. OF

..

••••• •
o .*G2*·
SET EXEC

• SW] TCH OFF

•

•

LI NK SWITCH

.*.-•.••

•

ON

X

.

04·******
.. ••TURN
OFF

•

o

..

•

BNPMSK IN

JBCSW5
.J4

•••• *••**••

•

•

X
••E4••
*••••..
SET
REMAINING

•

*

X

*·*Cs***·**.
SET THE •

INDEX TO BEGIN •
• OF USER LABEl. •
.. AREA TN TRK

**~~~~~*!~~* •

*

••••••••••• X:
: US.tBLl

X

**05*******
SET
*
REMAI NI NG •
**oTRK
CAPAC I TY •
TO INDICATE •
• NEW AR.EA *
*.*********
..

•

o TRK CAPACITY •
o TD INDICATE.
• NEW AREA

-** ••** ••••

•* F3 •..
*• ****F3··*******
BRANCH TO
*
NVSERR IN
•
o
SJ08CTLA
•
***.***••******

x

:PARSTDI

•

*****•
****

•

•
..• PARTITION
LBL AREA STD
IN ..
•
ALLOC TABLE •
••••••
*.**.*•••**

OTSERR

X

•*_•••••••••••••**

SET THE •
EXEC SWITCH.
TO OFF AND
•

••••*03*·*·.*·**·
ml~N8~xsfg :
•
LABEL AREA
*
• IN ALLOC TBL •
•
••••••••••
*•••• *••

:

X

• ••**C4****·
••***..
INDEX

.. seT TRK,

**···E2**···***.·
OCHKLNK
NMO

•••••*_.t•••**•••••

•

••••••••••• ** ••••

:X •••••••••• :
PCILSUPR

NQ.

• CHECK PREY IOUS •
LABEL
•
•
• OPERATiONS .KI.

.. -VALID FOR BG ..

*Kl*
•*ONLY••••••••••••••••

ic

• ASS IGNMENT AND •
• TYPE
.KI-

•

*LBLOUT

*-*-*-*-*-*-*-*-*
>CHECK VALIDITY>

:X •••••••••• :
•••••
01**·***····
.CHKLNK
NM.
*-*-*-*-*-*-*-*-*
• CHECK SVSLNK ..

*

·····C3
•••••**••*
•-*-*-.-*-.-.-*-*
X

ic

*

X

·.*·*F4·*****··**
o
•
•

•

ZERO KEY

•

DATA
0
* AND
LENGTH
*
•
0
******.*****.*.**

X

*
0

*
***•

··***G4**·*******
.LBLOUT
NQ.
***-*-*-*-*-*-*-*-*
CHECK
LABELS
•*

·

.

**********.*.****

: •••••••••••••••••••••••• X:.

.

••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••• x.

X

****H5
****.**** *
RETURN TO
* CALLI
NG SEQ •
**••*.***.**.***0
•

*J"
BNPHSK IS
BLOCK NOT
PRESENT
INDICATOR

OKI
IF AN ERROR IS

~UII~ ~8T¥Ms
.,nNE.

19Q

DOS/VS IPL and Job Contrel

Chart Nt(.

$JOBCTLG - CPTICN StateKent Processcr (Part
Refer to Chart 12 •

..••.·Al·····.···.
..•••••••••••••••..
..

SYSPRM

..

.

.. A3 ..

.*.ic

•*A2 IS •• *.
•• CHAR STRING ••

YES

•.•. ••••

X

••••• Sl ••••••••••
"LOAD
•
•
0
•
..
R

.................
.. .•. ..
..

•

EXT

ON

Cl

•*
.:.

••

x

.• .*

•

•

..

*.

. : .~~~ •••

.• ••

A3

X
.*.
••
IS

••

CHAR

•••••

..···83...•••••..
X

•
•
•

MDYE CHAR
•
TO SAVE AREA •
AND SAVE AREA.
POINTER
•

.................
*

•

x
••••••
••••• •
•

RESET
BRANCH

•

AT

•

* ••
*
• YES

..•• ~l~~~~ ••• •

X

it
••••••
••••••

*.-

••

~.'"

• NO

•

*••
"
• NO

.. **1:2***.·.·..

A2 •

•

.. A3 •

01·••• • ••• ••
••••••
••
•
GET AOOR
OF

•

S~~~~~M

:

••

IS

•• ••••
•
Fit •
•••••
•

ic

MVQUO
•

.•.ic

Np~U~~eR

*. *.

..

NO..
SYSPARM
••
•••••• SUPERVISOR
••

*. *.

B2

•

i

.*
YES..

. ' •• Ex~i5~¥ED •• ' . " ' : ' ••••••• ~TRING GT

" NO

SYSPRM

q)

..••••
..••••.

•...••••
'2 •
....
••••
LOOP

of

q

:

•••••••••••••••••

X
•....... ~ei·~." ...'".;..;..;. . .
• p ICK UP POINTER.
: A~g ~mA~REA :
•
•

FOR CHARACTER ..
STRING
•

•••••••••••••••••
Ft

•*
NO.*

•

.•.x

.

••••

~~ ••••

QEND

·

• ••• e2 •••••••••

•.. NOLINK ••
•••••••••••••••..

••

IS

.. ...

IS

*.

*. *.

..

..

•

•

.. YES

....•••..

it

••F2·••• • ••
SET LINK
SWITCH TO
-OFF-

·•••••••••••

• •••• F3 ••••••••••

..

•

..

"

DID

** MODIFY
BRANCH.
AT STILOK
•
** TO
GO TO
•
MVQUO
•

•••••••••••••••••••

SET~:~~.ES . . . . . . . .. .

*.

•

NO

POI NTER FOR
NEXT
ENTRY

..
•
•
•

F4 '
••.
X.

• •••• *

..
•
..

t.OMPUTi:;

.. ................•

*...
..*..

BLANK •• YES
•
COMMA
•••••••••• X*
..END SCAN ••
•

·••••

YES

X

..

FI,. •••• ,.

.*
.* ......... X••.* ORA

*..*
"

NOLINK

*. *••• .•

it

··.·F4*··*"*.·
••••••*••••*•••
BRANCH TO
NVSERR IN
SJDBCTLA

•
•
..

ic

•••••FS ••••••••••
"
•
•
•

MOVE LENGTH
AND PARAMETER
TO
S¥SPARM

•
•
..
•

.................
..

FIELD

•

x*
•••

it

•

%_A2

NOSCAN

"..

•• NEXT CHAR •• NO
A QUOTE
••
••

•

••

X: •••••• CHaMHER ••••

x
... H"
..
. ••••..

... ·········X

·

•• A2 ••
•••• "

:

*.·."

·•••••••••••••••••
••• *H2 •••••

..

NODUM,

:NODUMP

..

x

•
•• mlg~~gR *.
•

-OFF-

•

•••••••••••••

..

..
....**...........

OPTLOG

•••• H3 •••••••••

..

DUMP

DUMP

•• J2* ••* •••

•

•• •• G4. . . . . . . ..
OPTLOG
•
**
* •••••••••••••••*

..

..

X

•

•
IN~~N~TOR
*
•••••••••••••

••

SET

~MP

•

•

•
..

*

MER LOGICAL •
INDICATOR
•
-ON•

•••••••••••
X

••J3 •••••••

•

•

X

•• H4•••• •••

*

'SET PROGRAM- ..

. . . . .J4••••••••
"LSTOUT

*•

GJ*

.-*-.-.-*-*-*-*-*
• WR ITE 0 UTPUT
•
•
•

ON

•

SYSLST
•
.***•••••••••••••

•
i<
X
•
•••• ••••• ••••• ••••••• ••••• ••• •••••••••• •••••••••••••••••• ••• ••• x.

:........................ x:
x

•
•

. . . . K5 •••••••••
RETURN TO
•
CALLER
•

••••••••••••••••
Charts

195

$JOBCTLG - ~ime Starr~ing sutroutines
Refer to Chart 13.

Chart lIIL.

••••AI·········

•• GETIME ••
•••••••••••••••••

. ·•

•*.**.A2*****····•
"•••*-*.***.* •••
GET! MEl

···.A3···.····*

•

•

"•
•*••••••••*.*•••

·•

GETIME2

****

*

X

GETlME

••••• 81**···•••••

• LOAD THE TIMER ...
AND TIME OF ...
DAY INTO REGS ...

''**

"*

·..... ........... ·
•

'*

0 AND 1

_

"

SHIFT RIGHT 8 •

...
BYTES
...
.DISCARDING THE ...

...
...

LOW OROER
TIMER BYTE

...
•

••••••• *** •••••••

•
•

..
..

*•••• ** •••••••***"

C2

.*.* SUPPORT
TOO *. •• YES
••
• *•..
•.
.*
*. *•.• ..*
x
oo

..

• NO

*.**

*

X

****02*~***
... -*
RETURN TO
..

•
*
...

CALLING
SEQUENCE
~
.*••• * •••• **.**

X

CONvERT

...

300TH$
WRKRG3 TO

...

•

SECONDS

"

CONVERT TO
MINUTES

**

T IMOUT

.*it .

*.
.* TOO * • *.
.....*. SUPPORT
.*
*. *.
.* .*
B4

NO..

*•• *

• YES

X
**·**C3*·*******·

X
*****C4******.***

"

••*

* SECONDS
SAVE THE
*•
IN
*Rl AND CONVERT *
* TO HOURS
*

•** **** ***.* **** **•
X

**
*

STORE
LENGTH
IN CCW

••*.***************•

*•

X
*****04**********
Nl*
*-*-*-*-*-*-*-*-*
*" FURMATTEO
GET
..
*
*
DATE
*
******.*.******.*

*··**E3******.***
•
* THEUNPACK
HOURS t
•
•
MINUTES AND *
•
SECONDS TO
*
..
BCD
*
****.******.**.**

*****E4********.*
*
MOVE
*
..
TIME
*
*
INTO
*
BUFFER
..
*
******* •• ** •• ***.

*****03**.*******
•
CONVERT THE •
• HOURS 1 MINUTES,*
•

"*

AND SECONDS
TO DEC IHAL

.

"*•• ***••**.**.** •
X

·····El**·.**····
*
'*
•••*•••••••• -*.-..•
...

•
*

·•

.•

·***A5***.*.*.*

*

*

QPNlNK

*********.***••

X
**85*******
*SET SYSlNK *
..
FILE AS
*
** INDICATOR
CLOSED
*
*
*
'•
*.******** •

OPNL NK

it

*****C5********** LOAD ADDRESS *
* OF DIB
TABLE *
*
INTO
*

WRKRGl
•********.***.****.
•*

83 •

"****

·*·**01********··
_SUB RO FROM R 1 ...
'SU8TRACTING THE"
... TIMER FROM HE '*
... TTMF tEAV!NG
•
• ACT TIME OF OA ....
• ***** ••••• ** ••••

"

TIMQUT

•

• **********.*****

.".x * •

****A4** ••• ****

'*.x.
.

GET IME2

"'ACRO
*• 8INARY
VALUE *

x

••••• e 1.* •••• ***.

•

.

GET TIME

83

**.*
•
•
·****B3****··***.
** FRACTIONS
DISREGARD
*
OF ..
* SECOND AND *

X
*****82***·*·***·

GETlMEl

*
*

•.*••• **.*******•

...

•

*GErOAT

X

*.****05**********
ZERO
,..

*
*

$YSlNK
AnnRf:S$

X

·

.

•

*

•* ENTRY
•*
***************.*
X

*
*
*

****E5 ******* ••
RETURN
TO
CALlI NG

** •• *****.****.

*'•
*

x

•... -.**
•
83 *

X

•-* •• •

**·**F3**********
*
INSERT
*
* OELIMITER *
* ATAREA
TIME
**
*
*
*
******.***.**.***

·.... .. ... .-"
•
•

_ _

GETDAT

__

•...

X
*****H 1*********.

. *.
.* G2TIME •• •• *.
NO .* STAMP ON
.... *. •• SYSlOG
SW ."
ON
.*
*. *•• *. *
* YES
X
*.H2·*·***-.

GETDAT

...
...

MOVE
SYSTEM DATE

...

FROM COHREG

*
*
*

* TO WRKFLD *
•
•
.*********.******

·"

X

*****J 1*********.

**•

FORMAT

•. / TO
.• /..

"...*

.

..
•_._**•.**_••_*.*

•*

JBCSW4

*

ON SYSlOG
SH. J8CSW4

BIT 3
..
****.***.**

X
*****G3*********
RETURN TO
*
*
CALL ING
*
********
SEQUENCE
'"
•••••• **

•

*

.

•*****
•
" G5 *

X
·*···G4**********
*
SET CCW
* CHA1N TO
***
,. SPACE OVER

•

PARTITION 10

..

x
.*. ••

..YES .* .* HUlTI- *. *.
.X ... *. PROGRAMMING .*
*.ENVIRON- ••
*.MENT ... *

*** ••••••
BIT 3
*** *

•.•
*
• NO

X
***.*J2*.****.***
* SUB TRACT 1 **
* FROM MSG
* LENGTH AND
•
• STORE IN MOVE *
*TO BUFFER INST ••
•• *•• ** •• *.***** •

TIMOUT2
G5

.*X.

•*

* . *.

lOG
NO .,.. ON SVSlST
JBCSW3
BIT 3

• ... *.

•***.*****.**.*•• *

H4

.. TURN OFF ..
• TIME STAMP •
SkITCH

*•

*•

****

x··········· .

****G 1********.

X

***F4*******
TURN ON •
TIME STAMP •

*

*. *.

*.

•• .*
*•• *

*

.*

YES

ic
*****H5 ******** ••
*lSTOUT
GJ*
*-*-*-*-*-*-*-*-*
*WRITE STATEMENT*
*
ON
*
*
SYSlST
..
.** **** **** ** ** **

: ••••••.•.• x:

X

·**·*J4**********
.. SET CCW CHA IN ..

X

*

******J5**********
•*
*
CLEAR

X
*****K4**********
*MSGOUT
GJ*
*-*-*-*-*-*-*-*-*
*
WRITE
*
*
TIME OF
*
DAY
*
*
***********.*****

X
.***KS*********
* RETURN TO
**
*
CAllING
*.******
SEQUENCE
*
••• ****.

•

TO SUPPRESS

*
SPAC ING
*
*OVER PARTITION *
*
1.0.
*
*****************

*

BUFFER

*

••
•
***.*.****••• ****•

: ........... x:
•
•
•

RETURN TO
CAllING
SEQUENCE

•••• ******-*.*.

.

X

X

****K 1*********

•

**

*****KZ·**·*****·
"* PUT TIME *
*
IN
*

*
*

BUFFER+72

:•.....•... x:x

..

"*****

G5 •

"• *.*

196

•

•

*-*.**.***••• *••*

DOS/VS IPL and Jot Centrol

TIMOUTl

$JOECTLG - Miscellanecus Sucrcutines (part 1 cf 3)
Refer to Chart 13.

Chart NM.

****

*• •5 *•
*••••*
it

•••• Al·.** ......

••

SCNINT

••

• **.****••• *••••*

X
•••••
81*.·· ••••••..
..
GET NICL

SCNINT
..

ENTRY FOR

..

>THIS PARTITION.

..

AND CLASS

..

.INTO POINT3 *J2*

.*** •••••••••**••

.* IS *. •. *.
NO.*
.....
*. ....THISCLASS
SYSTEM .*
.*
*..

:LUBCOUNT

..*

* ...
.. YES

it

CNKLNK

FOR

INDICATING
NO. OF
SY5. LUB

..

..
..

02

*. *..

:................ x:
X

*·***el*******·*·
..
SAVE NICl
..
..

..
..
..

ENTRY FROM

POINT3 IN
SNIeL FOR
LUBSCN

..

..
..
..

** ••••**********.

*

ADDRESS

..

..

POINT2

..

..

INTO

..

•******************

..
..

GET FrCL
ENTRY FOR
THI S CLASS

*

.*.it ••

X

.* .*
*..
• *
NO

Ul;IoI.C'I'\K

A

*****E 2**********
•..
GET
** DEVICE
..
TYPE
•
•******************

*•

*
*

*'PlEASE ASSIGN
*tSYSRDR. SYSIPT*
OR S YS LNK ) •

*

******.**********

.*. *.
F2
.* IS *. *. NO
.*
*. DEVICE
• *••••
*. A DISK .*
*. *.• * .*
x
* YES
"'****
*NR *
**E4*
•

*****J 1*********.
..

STORE LUB
ADDRESS IN
SCL BAD FOR
LUBSCN

'"

·****E4**********
LOAD ADDRESS '"
OF 1 INTO R3
*
FOR PROGRAM *

*
*
*
..
*

CLASS

INDICATOR

****F3*********
BRANCH TO
OERRTN IN
$JOBCTLA

**
**

•*****************•

...

*

*****************

X

X

•

*

*******************

*****F4***·******
'SCNINT
NM>
*-*-*-*-*-*-*-*-*
'" INITIALIZE
*

*

*

FOR TABLE
SCAN

*
*

*********.*******

it

X

*****G4**********
NN*
***-*-*-*-*-*-*-*-*
RESET TO
*
STANDARD
* ASSIGNMENTS *•
*****************

*UASCAN

****G2 *********
TO
*
* RETURN
CALLI NG
*
* SEOUENCE
*
**************.
,..

X

*****H4****.*****

*•
**•

*J2
FORMAT FOR LOCS
NICLS AND FIeLS
WHERE-55 = SYSTEM CLASS
PP = PROGRAM CLASS

BG

X

*
*
*

\,:.~:..::.:;

;..

******E3**********
POINT TO
*
*MESSAGE 'lCI0A'.

X

********* •• ******

NICL 5: 55'

F4

•• * ** A5 **.*.*••• *
*SCNt NT
NM*
*-*-*-*-*-*-$-$-.

*

INITIAL! ZE
FOR TABLE

*

*•

•
SCAN
*
*******.***.****.

X

*****8S **********
*RASCAN
NP*
*-*-*-*-*-*-*-*-*
..

RESET
PUB

**

•

*

FLAG

..

************** •• *

X

*******.**
******C5
LOAD ADDRESS *
OF R3 FOR ..
*
*•• 1PROGRAM
t NTO
CLASS •
* INDICATOR
•
****.****.****.*.

X

*.***05 •• *******•
*SCNINT
NM*
*-*-*-.-*-*-*-*-*
•

lNITIAlI ZE
FOR TABLE
SCAN

*

*

*•
..

*.*** •••• *.*••***

:...•...•.• x:

*****H 1*.*******.

..
DOUBLE FICL
..
.. ENTRY AND AOD ..
.. TO LUSADD TO
*
*POINT TO AODR.

OF FIRST LUB

• ****04**********
NN*
*-*-*-*-*-*-*-*-*
* RESET TO
*
STANDARD
*
*• ASS
IGNMENTS *
*****************

•

..
>
..
..

**

*UASCAN

NOTERR

•.************* •••*

*

INITIALIZE
FOR TABLE

•
SCAN
*
**********.******

**

X

***.*G 1*********-

•..

*•

..

it

X

.****F
1*********...
LOAD fICl

..

*****C4**********
*SCNINT
NM*
*-*-*-*-*-*-*-*-*

.* NO *. *. YES
*..*ASSIGNMENT
••••••••••••••••••••

•• ***************

**

X

it

ASSIGNMENT

CLASS

INDICATOR

***********.*****

*··**C2**********
GU *
*-*-*-*-*-*-*-*-*
*
CHECK
..
..

X

*****e4*****.****
* LOAD
ADDRESS •
OF 0 INTO
*
R3 FOR SYSTEM *

*
*
*
*

*CHKASG
..

··.*A4*•••***··
RSTASG
••
**
*****.******* ••• *

RSTASG

*•••• * ****
*•*****82
LOAO SYSLNK *
LUB ENTRY
*
** DISPLACEMENT
*
I NTC WRKRG3 *
*.*****************

x

*·***01.*****
••••..
LOAD 9 INTO
*
POINT"3
..
..

•

•

*****************

..

..
..

•
•

* CHKLNK
*
**••***.*.***.***

x

.> •

C1

***.A3*********
•
RSPASG
•
*.*************

****A2****··***

INTO R3
FOR SYSTEM

**
*

INDICATOR

•

LOAD ADDRESS

OF 0

CLASS

*

*********.*******

F3

F2

F1

Pi>: S5' PP: 55' P;;: 5S' PP: S5' PP:

FICLS:SS PP:SS PP:SS PP:SS PP:SS PP:

*****E5.****· ••• *
*RASCAN

NP.

*,..*-*-.-.-*-*-.-*-*
RESET
..
PUB
*•
*
FLAGS
***.*** •• **.*•• **
X

***··fS *.*.*.** ••
*LOGCHK
GL*
*-*-*-*-*-*-*-.-*
• RESET lOG/lST •
•
•

*•

ASSGN
SWITCHES

**.**************

*****G5

**

*

*•

*~******.*•

CLOSE
SYSROR DFB
SYSI PT OfB
SVSLNK OF8
SVSlST OFB

•

..

*

•

***************.*

X

*.****.**
****.H5
RETURN
..
•*
TO
CALLER
•*
***************

x
•*****
A5 ..*
*.*** *

1. WHEN THIS POUTlNE IS ENTERED,
POI NT! EQUALS 1 FOR PROG CLASS
AND 0 FOR SYSTEM CLASS.
2. CALCULATE A DISPLACEMENT BY
DIVIDING PIK BY 8.
3. ADD THIS DISPLACEMENT TO LOCS
NICLS-2 TO GET PROPER ENTRY.

X
.***K 1*********
RETURN TO
*
CALL TNS SEQ *
• *************** *
•

•

Charts

197

Chart NN.

$JOBCTLG - ~iscellanecus Sutrcutines (Part 2 of 3)
Refer to Chart 13.
o

••••
••••

•• **.0
•
.!Ii ..
•..**
•

0

...o 'It ..•

·••·AI.··.··..·
*
•

•••• A2******* ••

0

UASCAN

•

•

•••**.*.*******
>**** > .

>

••

0•

!CROUTW

•

•• *** ••••• ***** 0

* 81 •• x.
***** * •

UASCAN

X

*··.

o•••• A3 . . . . .

X

lOROUT
0
•• •• ***.****
••••••

IOROUT

X

.

... ...

>WITH LUB TABLE>
...
ENTRY
...

~~EpO

... ...

..

IOROUTW

.'.

*.
.* ClMORE
ANY *.
.*C3 *. *.
*..*NO
YES .* TRAFfIC *.
*.•* ENTRIES
.................. X••••••••••••••••
*.
BIT
.*
*. *.
.*
*. *. ON .* .*
.*
* ••
*•.
* *YES
* *NO

SAVE AREA

**·.*B5
•••••***NP'
••
oJIBSCN

i<

.-.-.-.-.-.-.-.-.

•
...
•

*
•
•

....

GET

•

JIB
ENTRY

•
•

******••*•••*••••

•... C4 •"'.x..

.0.i<

··.··C4*····
••**.
*-.-*-*-*-*-*-*-*
x

UNASGN

oGETPUB

NPO

NO..
•• •••

OGET ADDRESS OF 0
OPUB AND PUBOWN-O
oER TABLE ENTRY 0

•••••••••••••••**

•.

x

o

.*C5 ANY •• _ •

•••*•

.. ..
MORE
ENTRIES

*•••
o YES

•

01
*.
.*
*. *.
•... *. SYSTEM
CLASS
.*
*. *.
.• .*
*••
*
• YES

.* •*

'.

.

El

x
.'.
••

SYSUSE

*. *.

•

•

**.·02.*.*.*.*.
RETURN TO
*
CALLING SEQ

0

*•••••*.******.0

•. ••

.• .*

x

***. 0
o
•*
••**

•• *.

0

••

**···G2······*.··
•
SAVE
•

*. o. NO
.* ..•.
.*

~Y

JIBS

* •.•

YES

••

.*.

IN

••

* ••• .•
NO

o •**. •

•

A4 •

••••

NUll JIB
POINTER
IN LUB

o..
o

•

.*

x
*•••

0

*
•

*.*.

x

••••
*••••*
o

0

•
o

o

•• ••••
Bl *
•

* •••
•

H4

.'.

i<

o
•

DEQUEUE JI B
ENTRY AND
CLEAR FIRST
THREE BYTES
Of JIB

0

•
•
•

0

••••••••••••*•••*•

•

x

G5 *. *.
.0 •

.. ..

•• WAS
. ' JIB ENTRY'. NO
fOR
••••••
TERNATE.O

*. '.U

*••
*
• YES

YES

i<

••••

••o

••

eft. •*•

..**
.* .•MFCM/MFCU*. *..0 YES
•• SPECIFIED
••••••••••••••••••
••
.*
*. *••• .*

0

•
..

•

• NO

*

05 •

0

..··.F5·········.

JIBPTR

H

..

.x

i<

••

.* IS *. o.
NO.'
••••••
DEVICE
.0
*. TAPE .*
*. *•• * .*
o YES

x.

**.. *·J5·*······ ••0
..
RESET TO
•
•

..

STANDARD
HOPPER

•

•

:*~:~~'.~Xli.~l.:
~X •••••••••• :

.. 81 •

x

•

•

**•• *****.**•••*.

5TO..

•

i<
••• •• es ..........

o

X

SAVE AREA

•o

.'ASSIGNMENT o. YES.
O.CR PROCEDURE .* •• X.
ENTRY

*. *.

0

:.. ~2¥~yF~~P
:•
JTB
o
•
•••••••••••••••••••

**.*
x
.*. *.
G4
•* DOES
••
NO.'
LUB
*.••
....
*.•• HAVE
PUB
POINTER ••

x

CURRENT JI B
PCINTER

o
o

X

J1

:
•

••••••• *•••••*••••

ARNDl

·*··*HZ··*.*··
•••0
o

.. ..

STDASSG

o

••

••••** ••**.*•••**

o

•

*

.'. *. *.
.• HI
EXTENTS ' .
•.. *.
IN
••
*. JIB
.*
x
* •••
o NO

.***0
G2 •
*•••• *

•
•

.•.x

.. ..

*

x

YES.*

Fit

: •••••••••• X:

X

.. ..
•

.0.i< *.

o NO

G2 •

Gl

E4

COM REG.

o

.• .*SYSUSE *. *.••••••
yes
o.
•.
.*
*.*.•• .*
x

•*.**.•
.*
.0
••
•.

* *••**•••••***••
*.*
••

G~MD~~O~F

:
•

0

0

.. C4

o

.'.x

•

*
•
:
••••*PA~mION
••••*•••••••:

•. *.
NO
. •..
*. *. SYSTeM
.*
CLASS .*
••
.*
*••
*
• YES

o

••••••••••• X.

•
TURN QFF
o PUBOWNER BIT
FOR

••• o*

.'

0

••• *

X

*·**.03***·······
*••
• svc 7 •*.•
•* *• WAIT
...
•*

.* .*

YES
.* ••••

* •.
*
o NO

.

•

·····04••*.**.*••

X

i<

NO.'

••
••

.*

••••
05 •
•
••••
DQXTNT
i<
••••• 05 ••••••••••

.. 81 •

x
.0.

..
0
..

IN

i<

RESET LUB
TO
STANDARD

o •*.*• •

.
.
•••••••••••••••••••••••••
xxx •••••••••••

x
.'.

JIB POINTER

•

••••••*.**.*••••••

••••*••••••••••••••

.*.**•••*.* •••**.

******.***.******

o

..

•••••••••••••** ••

o
...
•

...

*.*••••••

••••• A5 ••
..
SAVE
•
CURRE~T

•
•
·*···8,,**.··.***·

... ...
··.*.83**·***····
::
::
...
...

*****81******.*·.
>LUBSCAN
NPo
•-*-*-*-*-*-*-*-*
>
SH UP POINTl •

X

UANXJB

****

. . . . .A4••••••
•
EXECUTE
•
...
MOVE
...
o INSTRUCTION TO •
o SET SC NUlB
0
.WITH LU8 ENTRY'"

•

o

X

**.**K4*·***.··**
RESET TO
*
STANDARD
•

o
o
•
•

o

MODE

PUB BYTE 5

*

o•

.*•••

A5 ••

••••

..

0

*.*.***•••**••***

: •••••••••• X:x

o•••• •
* A5 *•
•
••••

198

DOS/VS IPL and Job Control

(

Chart NP.

$JOECTLG - ~iscellaneous sutroutines (Part 3 of 3)
Refer to Chart 13.

·*·*A2······**-

***.Al•••••••••

*•
**
LUBSCN
••••••••••••••••*

X

LUBSCN

*****B 1*********.
0

•

**
..

GET AODR

•

OF PUB r8l
ENTR'( INTO
POINTl

*'*'
..
.. *************.*.
X

****·Cl*·**·*·***
•
COMPUTE THE
..
ADDRESS OF
*.. NEXT
ENTRV
*....
.. AND SAVE FOR
..
NEXT
_ SCAN *

...... ..........
X

****··01*********·
LOAD THE
..
* RESIDUAL lUB '"

..................

COUNT FROM

*

SCN ICL INTO
WRKRGI

*

..

*
*

....

•*

82

.*

*..
*
• YES

.*. ...

*. *.

.•
*•.•
• NO

.-

•

"'.

'"
•

IN

'"

•

* •• *••••*****.*.*

..
DECREMENT
.. RES IDUAl CNT

..

AND SAVE IN

*

..

..

FOR
*
'..* SCNICL
NEXT SCAN
..
************•• ***

·

X

STSCLB

.

*****G 1**********
* SET SCNLUB
'"
* TO THIS LUB ..

**

•

•

*'
0
*****************
ENTRY

:x .................. :

****E2*********
RETURN

To

CALLER

'"
...

****03**.**** ••

*'"

JIBSCN

• *****.****.***

*'"

*•

• **** ••*••• ****.*

E3

'"

x

*. *.. * .*
*

X

*****02**********
'"
COMPUTE
*
•
ADDRESS OF
*
*PUB O.. NER ENTRY*

•

X __····_
•• __ *Fl._.

LUB TA8lE
PC INTER

*

*****8'5 ****"' •• ***
*J1 BSCN
NP*
*-*-*-*-*-*-*-*-*
•
GET
..
*
JIB
*
'"
ENTRY
'"
************"'****

'"

*****."'.***.***"'*

*****.***.***

** AND P01NT4
STORE

: x •••••••••••

X

RANXJ8

x

THE PUB AND
STORE IN
PCINT3

.*..

****
* 85 *
**.*

.*.

X

•• *.

ZERO
YES
.NUMBER IN CLASS •••••

GET

C4
"'.
•* MORE "'.
NO.*
••••••••
ENTRIES

A

El

•*
••

*
•

it

•
•

.• .•

*

: x•••••••••••
X
*****84**********
*LU8SCN
NP*
*-*-*-*-*-*-*-*-*

••••••
*****83*.·
RETURN TO
*
CALLER
'"
•*••***********.
+6
*

***··C2****·*****
'" COMPUTE THE *
'"
AOOF:ESS OF
*

*

*

R ASCAN

*. ••
•*

RASCAN

*****"'***********

••
IS
... NO
*PUB PTR PRESENT ••••••••• x*

*. *.

****A4*********

*

X

GETPUB

*

o

..
•..* GeTPUB
*
.**** •••• **•••• 0

.* . *
*.

.*.* .

*Jl ••

*•.
* *NO

J18*J4

**

X

YES

IN
A WORK REG

*. *.
.*
*. *.. * .* .*
• YES

•
NO.*
ANY
• ••••• "'.MORE ENTRIES

*•

*****************

*.

x

• o.
0'5

*.

.* I~ *. *. NO •
.'"
*J1 B Al T, 5TO OR* ••••
*. PROC .*

*. * •• * .*
'" YES

.* .

"'.

IS
*•
.* .'" CURR
ENT *. YE S •
*PUB FOR SYSlOG.* ••••••
*.
*.
.* .*
• NO

*****F3*.****.***
*•
*•
CALCULATE
•
ADDRESS
*
OF NEXT

.*

.* . ••

* •• *

X

*•

*..*

X
*****04**********
ADOR.
*
**'" LOAD
OF
*
SYSLOG LU8
*

E4

*.

YES
JBSLUS
••
••••• JI8 POINTER IND*
-ICATES X'FF'

..

C5

'"
'"

******.**********

X
*****G3***.**.*.*
'"

STORE NEW

•

*•

PUB AND JIB
POINTERS

*'"

'"
IN
'"
*• ••*.*SCNLUB
••• * •• ***.**

: x•••••••••••••••••••••••• :
X
*****F4**********
*GETPU8
NP*
*-*-*-*-*-*-*-*-*
** GETOF A.DDRESS
•
PUB
*
..
ENTRY
'"
****************.

RA$SGN

X

*•·****G4"'*********
TURN
*
ON PUB OWNER '"

***

B IT FOR
THI S

PARTIl'ION

*

*'"

.*****"'*******•• *

: ........... x:x ........... :

x

. .
o**** •

'" 85

*

****

*Jl
•
•
ENO OF CHAIN ••••••••••••••••••••••••••••••••••••••••••••••••••• x.
OECK
IF NO JIBS ARE
CHAINED, RETURN TO

CALLING SEQ

'"
•

X
****J3.********
RETURN TO
CALLING SEQ

*J4
JIB AOORESS EQUALS
oISPL ACEMENT INOEX
FROM LUB. MUL TlPL lEO
•
•

******.********* *

BY 4, PLUS THE
STARTING ADDRESS OF
THE J IS TABLE, J1B.6.00.

NOTE -

THE LUB USEO IN
THE PRECEEOING
CAL CULAT JON IS
IN LOCATlON
SCNLUB.

Charts

199

Chart NQ.

$JOECTLG - Label Precessing subrcutines (Part 1 of 2)
Refer to Charts 12 and 13.

•• ••••
•
Ait •

•••••
•
A3 •

•

•.*..*

•••••*

x

••••Al . . . . . . . ..

•••

LBLOUT

••

•*

'.

•

•••••••••• ** •• -

A3

••

'.

.*.

IS
THIS

••

.. ..

•
•
•
•

X

B1

X
.··..83**········

•••

••
IS
*.
• •••
•• STATEMENT
NO
*
•
*. IN PROPER . ' •••• x* E2 •

.*

*.

*.

seQ.*

••••

* ..
* *YES

X
.*.
C1
*.*.
.
*
IS
• * LABEL BlK *.

'.

• •••C2 ......... .

* ..
!II
• YES

RETURN TO
CALLING SEQ

*
-

• AND END TRK.

•

*

•

•

•

•

ON TRACK

FLAG

•

•

•••• *•••••••

WRKRG4

•• ENOUGH
.'
~OOM
ON
*. TRACK

••

•

FOR DATA

•

X

•••••
·NR •

X

••••• Olt••••••• • ••
•
•
..

..

GET
TRK

•
•
•

R EMA INING

FROM
•
*•••• *••••••••••••
WRKRG1
•

CAPACITY
•
••• •••••••
* •••••••••

E1

..... ••••

x

X

X
·····E4*··**·····
•
*

ic

.*. _.

IS
••
FILE
*.
~E8~~~t~AL .* .•

.*
.*.

* ..
*
* YES
X

•• ••• Fl·••• ••••••
* LOAD ADDR ESS •
•

OF LAST

so. •

**

•••••••••••••••••

•

·.Gl*······
SET FLAG

EOJ

•. *.

•

•
•

*.

••

.•

NO

••••••

ic
..F2·······
"
*
TURN OFF
OUT OF
SEQUENCE
•
FLAG

•••••••••••
• ES*

•

•
OF
**
SEQUENT IAL
*DEVICE ENTRY'

**

*
OSTERR

••••••••••••*

• •••• E3 •••••••• **
•..
SHIFT
•..
WRKRGl
• SO IT WILL
•
• CDNTAIN ONLY
• START TRK NO • •

• CALCULATE THE ,.

• NEW REMAINING'
• TRK. CAPACITY'

*

•••••••••••••••••••

•••••••••••••••••

*..
*
* YES

•

*
•

.*·..
*•
•
•
.................
X

F3 . . ••• •••

• PUT START TRK • •

*

:X
•••••••••• :
x
•••••
*NR *

X

•

.*. ••

•• PROCESSING

!II.TYPe ••

•
ENTRY FRDM
*
* LABEL SAVE
"AREA TO WRKRG1

E2

'IN COMPARE
T• FOR EOF lDOP •
•
CDNTROL
•

.'
'.

.*

••

Fit

•

..*..•..

•

*.••••••••
YE S •

••

• ND

*.x.
X

··.*.

•• •
•·*···G4···
• LOAD CURRENT •
•
TRK. NO. IN •
•.* ••**.*.*.......*••

•

NO.

G4

***.

G3 •••••••***•
••••••
•
DECREMENT
•

•.

TRACK

·• ..•

X

START TRK

••

ENOUGH
RDOM ON

*.**

•

.•.x

•

•

*••••••••••••••• *.*

WRKRGl

•

: •••••••••• X:
LBLOUTOA
X
*****Hl***·*·***.
* LOAD START
*
AND END
*
•
• TRACK NO.. FOR •
* STD LABEL IN
*
WRKRG1
*

*

••

H3

.'.x *.
IS

x

ND.' THIS A
• ••• ' . NEW AREA

*.

•••••••••••••••••

*.

.' .

H4
••
•• LAST ••

••

.*
•. .. . *YES

'.

.•

.*

YES .TRK. OF AREA ••
EXHAUSTED ••

... *.•.
*.
x

.*••**'
*NR

....*

.*

.*

NO

.. E3 •

••*.*Jl.~ •• **.*••

•
REPLACE END •
• TRK. NO. WITH'
•

•
•

upp ER HEAD

NO. IN

*
**

WRKR:Gl
•••••••••••••••••
x
*••••
..
A3 •
•

•*••••

200

DOS/VS IPL and Jot Contrel

··*··J3·····.····*
X

•
•

SET THE
WRITE DISK

•

•

START TR-l

•

•

HEAD NO. TO

•

••*..............•.
:•••••••••• X:x
•• ••••
•
A4 •
•••••
•

•*•

LAXERR

ic
····*J4··*···*··*

•
INCREMENT
•
TO NEXT TRK
• AND STORE IN
WHHADD
•

•
•
•
•

•*••••* ••••••••••••
ic
* •••

•• A5 ••
•••• *•

*•*.

•. *. ~ .. .*
• YES

• E2 •

.*
ND.*

.*. ••

•••••••.••• x.

•

••••
• *
••••• *

C5

•••••••••••••••••••

LBlDUTOB
X
•••• *03 ••••••••••
•
PUT END TRK *
•
NO. INTO
•
..

.•*...... *****..*.*••
x

:X •••••••••• :

**01··.····

X
••••• RCi .*.*******
..
CAlCUlATf
..
• NEW PE~AI NI NG •
.TRACK CAPACITY.

X

•

WRKREGI

TRACK
•
•• ••••••••••••••••

•
•
•
•
•

• . . ··C4·· •••• ••••
•
COMPUTE
•
• SPACE NEEDED •

• **•••••••••••••
•••

SET PRESENT
BLOCK * _
* • NOT

**

NO. INTO

•

X

•

•

:··i~~8·::::t···:

*............... •

STORE
LENGTHS
INTO
WR.ITE AND
CHECKS CCWS

•
•
•
•

*

•• * ••••••••• * ••••

x

NO
•
.* •••••••• X.

PRESENT

*. * . . * .*

•
•
•

•••••••••••••*•••

lBLOUTOC

•
RESET REC
NO. TOO
• AND WRKRG1
• ND. BYTES PER

•
•
•
•

ic
·····84*···.·····

•
CALCULATE
•
• DISPLACEMENT •
*1 NTO TRK ALLOC •
• T ABLE FOR THIS •
*UL + PART ITiDNO

••

*..*

LENGTH INTO
WRKRG 3 AND
ADD KEY
LENGTH

**•••••••••••••••

.*

• NO

LalOUT

ic
·**.*45· ••• ••••• •

:···ta:~·~:;%···:

•• YES

...**

•

x

••

STANDARD
••••••
LABEL ••

*.

•****
•
A5 •

•

•••

• 81·

••

NO
.*....

x

••••••
• •
•

....
1;4'

Chart NR.

$~OBCTLG - Label Frccessing Subrcutines (Part 2 of 2)
Refer to Charts 13 and 13.

•••••
• NQ ..

•..••••
82 •
..
•***.•

.. C5·

> >

*

X

X

•••••
81***··*·*··>
>
>

..
..
..

*A3
ENTRY IS FROM OPT ION
m~EmT c:mESSOR.
OPTIONS INVALID FOR
FOREGROlND PART IT IONS
IF NO PCIL SUPPORT
PRESENT •

INITIALIZE

seEK TR ACK
AND RECORD
NUMBER

•..

..

•
IOROUT
•
•.*.* ••RETURN
**••• ***** •*

...

••••••••••••• ** ••

84

.*X.• •

••
••
• "FOREGROUND

• •••• S5 •••• **.*••

•
POI NT TO
•
YES
_DESIRED MESSAGE>
*. PARTITION *..............
x*
lSOOO
•
•.
.*
• STATEMENT'
'INVALlD
•
*

..>
•

LOAD Ll Nil'.:
REG FOR

** NVOERP.
•
*A3
•
**••• *•• *.*.* ••

NVOERP.

••••• 82 ••••••••••

>

·***A4***·*.**. •

>

...*
*. ••

•• •• *.***••*.*.***

- NO

*x
•••

: X•••••••••••••••••••••••••

x
.-•• *c 1••••••••••

>

:

..
..

UPD~IEo~~ tTE
NUMBER
AREA

X

..

:
..
..

:,.

~g~B~SF
:*
~RITE
***.*.*** •• ** •• **

•••••••••• ***•• **

x

***** ••**••••••

X

• *.
02
*•
***03*·****·*****
IOROUT
NN
.• FIRST *. *. NO
.*
ISSUE
*. TRK OF THIS .* ......... X .-.-*-*-.-*-*-*-*

LBLOUT2D

•• ***01*··***·**·
GU ..
*-*-*-*-*-*-*-*-*
..
RELEASE
*..
..
CONTROL
>
••••
*••••••••••••*
*MTNCNT

*.

AREA

*. *... *.*

.. *

•

X

.

X
*****E2*·.***.**·

•••• *E: 1*.***** •••

..
..

LOAD ADDRESS
OF THE
SVSRES eeB

*,.

•

INTO REGl

Ft

•*.*
...

x
.>.

...

START

OF

X
*****F2*********.

*. *.

*. * .. * ..*

NO

.* .* ...... .

X

.
..
..
..

••••••••• ** ••** ••
X
••• **Hl"•• ******.

••

SET DATA

>

KEY LENGTH

..

AND

TO ZERO

•'*

RESTORE
DATA LENGTH
FRO~ WRKRG1

•

*

•

**

•

..
***.
*• F4 •*
*** •

-.

--.

*N""F2·*

•

*

X
*··**E4***··*
,..
POINT TO ••• *•
'OES IR EO ME SSAGE..
*
*' 'INVAL1A20D
ID DEV ICE*
*
TYPE'
*'
**•••******.**.**

NOT ERR

REFERENCES
TO
NRE5:
NJ02t NQF2

X
••
·**E5
*••*******•
..
POINT TO

OTSERR

'OESIRED MESSAGE'
• 15100
..
*1 STATEMENT OUT •

* OF **.**
SEQUENCE' *
••••
••••••••

'" **** *.• X................................ •..

.

.. F4 •• X ..

".***

X

• •• *F4·****·***
* BRANCH TO
•
ERRRTN IN
*
** SJ08CTLA
•
**********.****

: ............. x:

"..••***Gl****.**.*.
LOAD DATA.
..
LENGTH INTO
WRKRGI FOR
SAV·ING

••

**********••• ****

.. YES

..

•

..

****
•
X
*.* •• E3**·· •••• ·*
* POINT TO
*
.DES IRED MESSAGE*
** 'i LABEL
1l10D
•
AREA *
* EXHAUSTED'
*
• •• ******** ••****

LAX ERR

**.*.
• *
* **

*****

,-..:,*,~

x

•• NEW AREA

..
..
..

*•
•
*•

SET KEY

•
LENGTH
TO B
•
.*••**.*••***.***

..

*
•••• *.********.**
..

110

*** ••• *.* ••*****.
****
*NO *

.. YES

*

"•

*

*····C4**····***
ReTURN
•
* CALLER
TO
**
It

•>

SET HEAD

-**••*-*

X

*****C2·*********

*

>

• F4

>
..
..

>

..

•••• ** ••***.*****

OPLBNF

X

***GZ··***·******
IOROUT
NN

*-*-*-*-.-*-*-*-*
ISSUE
110

•

*

**** ••***********

i<

****.H2 *.****.*.*
*MTNCNT
GU •
*--*-*-*-*-*-*-*-*
•
•

SEIZE
SYSTEM

•
>

**•••• *••**••••*.**

.•x*.

>
•
.. 82 ..

•.*.*•

X

*·*·J2*·**.****

**

RETURN TO
CALLING SEQ

>

•• *.*.**********••

Charts

201

Chart NS.

$JOECTLG - /+ (End of Procedure> Statement Processor
Refer to Chart 13.
THE PROCEDURE END I" STMT)
PROCESSOR REINITIALI ZES THE
SYSTEM AT THE END OF A PROCEDURE.
~~T~~J TM~T cI~~i. ~~~TI iR~LSO CALLED
DETECTED •
ENTRV POINTS. - PEND - PNDOI- ~~~t~~
R
EXIT. - vIA RETURN REG
- CONTROL - EOP
- CALLER - ~~~tE~A~mR

••••• 1. . . . . . . . .

................"

"

"
"

PEND

0
0

o
o LOAD RETURN
"REG WITH VALUE
o
OF BASRGI

••

o

BLANK SV
AREAS FOR
*
PROC AND
* OV-STMT NA"E

o

.*

0

•• ***.
****.*C2.*.*
,.
0
SET POINTER 0

YES

*. ,..INSERT ST"T.* .0 •••••••• XOTO
,. ERRORMESSAGEO
IM4ND
,.
**.••.**
,.••••••••••••••••*,.
o NO

.*.*' ..

•

o

*

o*.*. •

YES

.0. o.

x

:PNDID

*.

o
o•

**8'5*••*•••

*
..

o NO

X

X
*.*0
o
*
SET POINTER *
••• *TD ERRORMESSAGEO

4-.-.-*-.

·····C4*••••••

·····C3·····.·***
oPCLOSE
NTO
.-*-*-*
CLEAR
•
*
PROCDIB
*
ENTRY

*
•**••••*..........*

x.····...···.··.·.
••
•

IN700

0

•

0

•••• *
••••

RESET ALL
FLAG~ IN
P-SWtTCH

*** ••••*•••

•••• ' .

••••• **··
*o •••*02
BRANCH TO
,.
ERRRTN IN
0
o
SJOBCTLA
•••••••****••••*

·'t"·.

X

**
*
*
*
o
••••••• *•••••••••*
..

~03******••

INIT IALI ZE
0
IPT-DFB COPEN
*FLAG - POINTER *
TO OF I )
0

•
o
•

*•••••

···*04•••
BPANCH Tn
CONTROL IN
SJOBCTLA

•0

_•

0

ic

•• es*···--*
*
..
*"ESET SYSTEM 0
- ERRO~ FLAG IN
•
J8CSW6
•

o

*

•••••• *••••0

•o 02 •
o
0

X

•*
*. *. NO
*..* PROt
BEING
._ ••••
•• EXECUTED .*
*. *.. * .*
x

B4

*. • •• * .*

o

.0.x * ..

x

o. -JCSUI- .*

0
0

,. 02 •• X.

01

** ••

••••••••••• X:

o.

OR~QUEi*N~bsHOt:*;~ ~.

•

•••*0

*

o 85 0•

0
B4 ••••

••••

•••••••••••••••••

••***** •••••****.
0

x
.0.
Cl
*. *.
.*
•0
OV- OR
o.

•

••• *

0

Ii

0
0
0
0

"

o

····*B3.·.·
••••••
**

X

·····81*·········

PEND

••••
••••

•o 83 "•

.

•
•
*X •••

•••••••••••*••• 0

05 ••••••• **
*' ••••
RETURN VIA
•
*.PE"URN REGISTER.*0
•• *••••• *••••••

• 84 ,.

o

••••

it
• 0.

PENDI

•

Ii

El
*.
•*
*.
.0 PROCEDURE o.

E3

_.e2 •••••••

,.
..
YES
• SET SVSLOG •
,...
CALL ED
.............. x*
FLAG t N
,.
• BY OPERATOR.
*
JCSWI
*..*
,.
..,.
,...o .."NO
••••*******

*
.* •SYS

o.

••

.* .••

••

.. ..

ERROR •• YES
FLAG
.0 ••••
SET
••

•••
*
o NO

it
•••
*
0
• B5 *
*•••• •

"

it
.. **F 1.***...
,.
o

•

.......**...

RESET OP EN
FLAG IN
"
OVROR-OFB

it
**Gl··*·***

PND03

,.

o

•••••••••••

0
0

ox •••••••• o

RE SET OPEN
FLAG IN
0
OVLOG-DFB

0

..............,.

*
0

it

,. .-f2 •••• _••,.

o o RESET OPEN 0
OFLAG IN PROCDFBO

o

.0.
....

it

PNDOZ

0

F3

0

*
0

.0 .*
SVS

o.

*. ... YES
ERROR
". POSTED IN
.* .•..
o. JBCSW6 .*

........
o NO

•

MESSAGE
..
•••••••••••••••••

**.* •••

••••
..
••••
0

.. 83 •

•
*•••••• * •••
it

PNDDS
X
*** •• G3**........
..

*••

..*•• G4* ••••••
*
*PFREE
NH.
ADDRESS Of •
.-*-*-.-*-.-*-*-*
SVSRDR LUB
ox •••••••• 0 RESET SVSIPT 0

•.GET

•
•
••••••••••••••••••••
•**•••*•••LU8
**••• _••••
Ii

..***H3***····*·*
oPFREE
MHO
.-*-*->tc-*-*-*-*-*
RESET SVSRDR

*

•

*
**

LUB

o

*.***•••*.**** •• *

.*.*.

J3
•• OVEND NOT
o.
POSTED

.*
*.

• YES

.*

.*. *.

J4
NO
/+
•• NO
•
•••••••••• X.STATEMENT BEINGO ••••••
EXECUTEO

*. *.

*...
*. .•

~x •••••••••• :

.

....

it

X

*.*.*J 1******.*NUO
••
*-*-*-*-*-*-*-*-*
•
LOG AND
*0
o
LIST EOP

"PLOG

o

.

•.. ••••F4••••*••••• ,

*....* .•
•• o .*NO

x

.0.

HI

*.

.OPROC. WITH •• YES
OGET ADDRESS OF ..
". SYSIPT DATA .o •••••••• Xo SVSIPT LUB
0

*.
.*
**.•..**
• YES

.* .*
••

it

o **** 0
• 85 •

o

0

****

X
**••**K4**.***.*..
*.K'S •••••••
ACTIVATE·
*
o
PENDING
**•••••••• X* 0 • SET FLAG
PENDING 0
** UN INTERPRETED
•
STMT.
*
*

••••••••••••••••••*

•***********•
o

J.*
•
••••

*o 85
202

DOS/vS IPL and Jot Control

0

0

Chart NT.

$JOBCTLG - EOP Subrcutines (Part 1 cf 2)
Refer to Chart 13.

SUBROUTINE PFREE -ENQUES PROC.JIB ENTRY TO
HA IN OF FREE JIBS
SETS ORIGINAL LUB
INTO POSTED
RY.
CONDIT IONS.
IB CHAINED TO HANDLED LUB
- CHAINED JIB NO PROCEOURE JIB

****82 *.*.*****

*..
•

PFREE

*

*..

*** ••• *********

*

CHAINED

X
**···C4***·******

**••••• ************

*•••• 04.:*******.

**-CLEAR ENTRY
PROC.OIB "
*
•
-********••*.**.***
"

·

..

JIB

..

******* •••• ******

x

~E2

.*'"
*.
*.

*.

x

.*. *.

ANY JIB
CHAINED

.*

:***.E4***.*-.*.:

•• CLEAR

*. NO
.* ...... ..
.*

"*

.*.x

*.*.

ic
*****G2********.*

**
..

"
"ENQUEUE
JIB TO
CHAIN OF fREE
JIBS

"
•••••
*•••••**.**.*

X

*.***H2**." ••••

•
REMOVE
" ORIGINAL LUB
..
IN LUB

..

..

PRC-DFI

•*
*

***.********.*.*.*

*..
* *YES

*****F3*********.
.* F2 *. *.
.
'*
..
.*JI B USED BY". NO
X
"SET POINTER TO "
*.
PROC.
.* ........ x* ERROR MESSAGE ..
*.
.*
..
lM10A
..
*..*
..
..
*. *.."YES
**••• *****.* ..

*..

•

"*GET ADDRESS OF *•
* PROC.OIB - **
* Ft SYSFILl

ic
*****02··*
•••••NP*
••
*JI esc N
*-*-*-*-*-*-*-*-*
..
GET
..
..

•

PCLO SE

*****C2··*******·
•
*** MOVE
LUB INTO *
SCNLUB - INIT *
..
POINTERS
..
******* ••••••• **••*

..

PCLOSE

*••********.* ••**

X

PFREE

. . ·.84•••••••••

•

X

•

****G3*********
BRANCH TO
•

*
•

SYSERR IN
$JOBCTLA

*******.***.***

•
"

X
**··*F4**·*.-•• **

-..
..
*

OEQUE
PROt

*

..

LIBRARY
•
***•• ** ••• *••*•••••

X
***.G4***·*****
RETURN TO
CALL ING
..*
***.*.***
SEQUENCE
*
•• *****
..*

*.*

THE ENTRY

POSTED

*..

..

..

•• *** ••• ****•••••

X
*··**J2 *••••** •••

"..

CLEAR FIRST

..

..

JIB ENTRY

*
..

*THRE E BYTe S OF ..

* *** ••• **********
••

X

*K2*********
**•••RETURN
TO
•
CALLING
•

*

SEQUENCE

**.*** •••• *•• **

*

Charts

203

Chart NU.

$JOBCTLG - EOP Subrcutines (Part 2 cf 2)
Refer to Chart 13 •

1********.
•*••• *A PtO!}
•
•••••••••••••••• '•*

PlOG

•*

B1

.*.X *..

*****S2 •••• ***.*.
..
CLEAR
*

*..

OVERWRITE *. YES
*
*.•**..PROCESSING
.* .* ........ X_..

*..... ..."*
•

*** •• 84••••••••*•

* . .*..***B3******.*.*

MOV E "

.-POUT

NU •
*-*-*-*-*-*-*-*-*
OUTPUT
.. MESSAGE ..•

MESSAGE"
lNBOI
••••••••• x.

••••••••• x.

BUFFER AREA

. . . ] Nrc

BUFFER

*

* _••••• _•••• _.... . . ._•••• -............ . . .• ••• *••••••••••••*
••

NO

·.. x ....................................................................................
C1 ....
*****e2***••• ****
••• C3****.*****
.. "
*..
..
*
. ..*
*e.* .•......
*
..
*..•* 'O
••
..
*
. .*
.'O'O*
..
•
*

.

<. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ..

X
.*.

PlOG05

EOP

NO

PROCESSING

•

CLEAR

X.

*'O 'O*
• YES

BUFFER AREA

••• *.* •••••••••*.

·• X.....................

'O . . . . . . 'O . . . . . . . . . . 'O . . . . . . . . . . . . . . . . . .

••• *****
•·****01··
•*
*
CLEAR
* SuffER AREA *
*•
•
•••• *••••• *•••• **•

.

'O ..... oo. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ..

• * SET PEOP
FLAG IN
JBCSW6

••••• ** ••••

..

LOGDFB

•

•

x

X

*"
*

..

•

F4

*•

..

wAIT FOR

•

SVSLOG

•

MESSAGE
•• ** •••
*••••• *****

.*. *.

.* .•PEOPseTFLAG*. *..*

NO

.......

*.

*. * •• * .*
*

'O*

YES

x

X

*****G3**********
*IOROUTW
NN*
*-. -*-*-*-*-*-*-*

.-.-.-.-*~.-*-.-*

WRITE
EOP

X

*****E4*****·****
*MSGOUT
GJ*
*-*-*-*-*-*-*-*-*
*
LOG
..
•
MESSAGE
•
*****************

•*
*
••

*****F3··*··*****
'MTNCNT
GU *
*-*-..-*-*-*-*-*-.
*
RELEAS E
..
..
SYSTEM
*
*
•
• ******** •• *.****

X

•

POST

***.******** .... **

*****G
1*******.*.
.POUT
NU.
..
•

•

*****E~.******.*.

•*
•
*•

X

**FI.* ••• **

•*

X

POUT

fOP PROCEDUR E •

MESSAGE

POUT

*************.*

**••• ***.*.***.***•

*•

oo. . . . .

*

MESSAGE

*
*
• •••• ***** •• ** •••

****03*.*******

X

•

*-*-*-*-*-*-*-*-*
OUTPUT
•

.......... X.
•
..

.**••• *.**•• *....

*
••

1*****.****
•*** •• EBUILD
•*

*•

IN901
INTO BUFFER

X

PlOG07

•

***
••C4••• ***.**
•
-POUT
NU ..

MOV E "
MESSAGE"

••••••••• X.

*
*

•

***** •• ********.*

G4

.*. *.

* .*LISTSETFLAG* . *..*NO
*.•'*.
.• ....
*. ••• * .*
* YES

:.•...•.... x:
x

'O*..
HI . ' *O
~
.*

PLOGOB

• **H2******* •
RESET PEOP
*•
FLAG
J(.
IN JBCSW6
*
********.**

*. NO
*
•• CALLED BY .* ..... 'O ... x*
*.OPERATOR .. *
•• PROCEDURE

*...
...

'O

oo.*

• yes

.

.

X

·**'*'*H3***"'*$*':t~*

*MTNCNT

GU ..

*-*-*-*-*-*-*-$ -*
•..
SEIZE
*..
THE
..
SYSTEM
*
*****.***********

X

****:f!'H4**********
GJ*
*-*-*-.-*-*-*-.-.
*
LI ST
•
•
MESSAGE
..
*.*.** ••*.*.*-*.*

*LSTOUT

•

•

: X ............ :

X

X

·····Jl**.****·**

•

*•

MOVE
MESSAGE
lIOOA
INTO BUFFER

*********
******J2
RETURN TO
*
CALLING SEQ. *

•

*

*
•
*
•••
• ****.* ••••••••*

* ***********.*** •

X

*.*.*K 1.**.******
NU *
.-.-.-*-*-*-.-.-*

'POUT
•
•

WRITE
MESSAGE

•

*••••••

••••••••*.**.******•

DOSI'VS IPL and Job Control

X

4**.******
'** ****J
RETURN TO
*
CALL ING seQ. ..

•**.*••••******.•

Chart PA.

$JOECTLJ - HOLD CcmKand Processor
Refer to Chart 15.

•• ****A3*··*****.
•*'
SJOBCTLJ
• •• **.* •••• *.*.* *

X

HOLD

···**83*
* LOAD •••••••
POINT4

*•••

**
•

*.

HOl02

.,

*'
SETS.

.. WITH ADDR Of
*YN5TR THAT

.,

*' HOLD FLAG ON ..
'.
IN P t B
•••*****
••••••• **..
X
.*oo

RlSENT

* ... :t:

.• .*

..

I NST.veT! ON.

001 NT3 CONT AI NS AOOR

OF cnRQ.ECT PI800
3. THE HOLD fLAG IS
SIT 4 OF PIB+12

OFF IN
..
.,
CORRECT
*
*P] 8..
*85.

1 = HOLD

o = PELEA'SE •

****C'5******* ••

YE S
* BRANCH TO
•
*. •• LAST
BLANK END
•••••••••• X* CONTROL IN
..
SCAN.*
..
iJOBCTLA
..
* .~ . *
*** •• ***.****.*

.*

:6:

X

*

.""

NO

X

•••
**04**********
*SCANR2
GK.
•*-*-*-*-*-*-*-*-.
POINT TO
•

.SECQND OPERAND.

*

-Fl,F2.F3,F4- ..

*****************

x
.*.
....

• .***
*
E5 * •••
.. **** * .
*

x
E4·*·*.

*' .
NO.*
A BLANK ., ..
COMMA
.*
*. OR
END SCAN .*
*. * •• * .*

.x....

..

x
.*.

*****03**··*****·
*SCANR2
GK*
..*-*-*-*-*-*-*-*-*
POINT TO
.,
*'*' -Fl,
FIRST OPERAND ..
F2, F31 F4- *
************••***

E3

OF CORRECT

2.

C4
*.
.* .* DID *. *.

.. YES

.. *

1. POTNT4 CONTAINS AOoR

.. FLAG ON OR

*.

ENV IRONMENT

*. *.

*S5

X

**84****··· .,
.. SET HOLD

*.*********

C3
•• MULTI·.
NO •• PROGRAMMING*- ..

...... *'..

*

84 .,

*.*. *

.* DID *. *. NO
*..**. BLANK
END
••
SCAN.*

010

e •••••••

**.••.**
•

.. YES

X

..

x*
*

**·*Pi
******.**
BRANCH
TO
•
NVSERR IN
tJOBCTLA

***.*.*******••

•
•

YES

:x .....•.......•....•.•.•. :

x

F3

.

.* .*.

.* OPERAND* •*.
EQ
.*
*. LENGTH
2 CHAR
.*
*. * •• * .*

• NO.*

x••• *.

x

*

• ***. *
.. E5 *

•

***.

YES

*

X

*****G3 **********

*LOAD PIS TABLE ..
• AODR IN POINT2 ..
• AND FOREGROUND
1 PI B ADDR
..
POINT3
*

'**

'*

*****************

H3

.*.x *.

YES.* e* OPERAND
IS *. *..*
...
Fl
.*
*. * ..
.*
_ *
NO

••••••

X

*****J3**********

*

*

-LOAO FOREGROVNO*

..

*

*

2 PI B ADDR
IN POINT3

..

•********** •• ******

.*
••

*.

K3

x
.*.
*.
IS

OPERAND
F2

*. *.

*. * ..

.*
*•.
*
• YES

: ........... x:x
•• *.*.
•
84 *

.*

.* NO
....

x

•• ****
*
E5 *
*

****

•

•**** *

Charts

205

Chart PB.

$JOBCTLJ - OCS Ccnnand Frccessor (Part 1 cf 2)
Refer to Chart 15 •

••• -AI-••••• • ••

*
*..
ucs
*••••••********.*

UCS

.....

•• ***.
82 •
•

..

X

••
***81* •••******INITL
KA*

82

*-*-*-*-*-*-*-:t-.
RELOCATE
*
ADCONS
*
****•••• **••••*****

*
*

X

*****Cl*·.···***.
GK *

.*
*..**.
*.

*-*-*-*-*-*---.-**
••••••••••*••••**

.*.x *.*.

010

.•. ••

••••••••••• X:x

.****
..·pv
Cl**
• 0
o

*. *.

**C5
••
*.*
* YES

••

NDTERR

NO
•
••••••••

*C5
DEVICE MUST BE A 1403
WITH UCS FEATURE.
-DEVI CE TYPE CODE HEX 42-

ic

*****02 **.****•••

*.

NO

* .... CO~~:NENO ...... * •••• oooo

*. *•.• .*

*

.•. *.

C2
VALID
DEVICE
TYPE

*
POINT TO
* FIRST OPERANO *
*
-SYSXXX*

01

83

ic

UCS2

*SCANR2

.* •*

.*.ic *.

•• UNIT *.
.*.,.
****B4****.*.*.
*:·U~mr~N~& *:;:~! ..... X*:*ASSI~~MENT ·:*~~~ ..... X: cB~m~ 12 :
*.
.*
*. IGN.*
* $JOBCTlA *
**....**
*••••
..*
****.*.*****•••
* NO
* NO

YES

.

* MOVE CLASS
•.ORDER
INTO ••**•
..
WRKOFSt6-

*•••*••••*•••• *••••

.. ****

•• E3 •*
****

•..-*-.-*-*-.-*-*-*
···E2·.······.·*

i<

··***El·······***
*-*-*-*-*-*-*-*-*
*CHUNCO

*SCANR2

PT *

*GET UN IT CLASS *
•
AND ORDER

.•.x

CLASS EQ
0

.*
* •.• .*

F2

•
• X•• *.

.*

X
***.*G
1.*•••• *.**•
*
LOAD LUB
•

UNIT IN

•
•

1ST BG PROG
WRKRGI

..

•

*

..

••*.*•••*.***••**

TABLE

..

• DISPLACEMENT •
*TD DESIRED UNIT.
• WITHIN CLASS *

•••••••••••••*•••

·····Jl··········
GU •

*-*-$-*-*-*-*-*--

.GET LUB AND PUB*
* ADDRESSES AND *
• CHECK ASS IGN

•••***••**•••*.*.*
••**
.•• X.* 82 *..
•

BRANCH TO

X

.*
*.

••

.*.**.***.**•••••

x
.0.

*•

•.

.*. *.

*.••••••
NO
.*
x
YES
******
·PV
o B't*

PHASE
F(JJND

*. * •. * .*
o

......••... x:
x

x

:NULCHK

.* MPS *. •• NO •
*.••ENVIRONMENT
••••••••
•. •.
.*
•. . *.*
* YES

•*••**J3***••*****•
'* MODIFY
UCS
*
•
LOAD CCWS
*
*J5
••
o*
.***'*******.*****

x

X

•••
*.K2**·******·
*SET
3P:D BYTE OF*
: LoB~~~~lo, :
TO HEX FF.

•

*
*G4
•••••••••
**••••••*
i<

.

.***
*• E3 •*..
*•••

206

.* H3

.. SAVE AREA AND.
•
BUFFER TO
•
.BLANKS SAVE PHS.
*NAME IN LDDNAM *

•

DOS/VS IPL and Job control

mH

•••••G3****.··*.·
GU 0
.-*-*-*-.-*-*-*-*
..
SEIZE
•
•
SYSTEM
*****•••*.*••••***..•

*

•

:

.*.**
•••• K1*.* *••• *.
~m~~L1N
:x* ...•
••••••••••••***

*G4
IF PHASE IS CATALOGED THIS
EA&~m~~ ~~T T~E Arm~
BECOMES A ZERO

.MTNCNT

•*SET
****HPHASE
2*.******.*
NAME •

J2

..

***••*•
X

*•••
.. YES

X

• CHKASG

*.
I~ ••

NrD

-LOD

.**••**.

.*.ic *. *.

.X NO.* .* OPERAND

HASE •

•

••

*•.
*
* YES

········.;-Mm
*.
.*

X
"·_·HI
••••••••••
* COMPUTE LUB *

• T

.*

G2

UCSI
•

X

•• ••SVC
**F3******
••••
23 - LOAD.

••

DR COMMA
••
•• END SCAN ••

••

• NO

PO INTER FOR

.•.x

.* DID *•
NO.* A BLANK ••

.••••••••••• x..
*

.MTNCNT

••••••••••••••• *•

•* FtUNIT *.•• ••
YES..

*. *.

*****E3***··*****
GU *
*-*-*-*-*-*-*-$-*
•
RelEASE
*
* SYSTEM
..
•**.*.**.*.*.*.*.**

GK.

..
POINT TO
"SECOND OPERAND •
.. -PHASENAME- •

*
*••••••*•••*••*.*.*

•• oo.*oo

X

X

*****
*PC
•
* 82*

••
*

UCSSCN

•

0

*

PNPERR

*J5

LODCCW2-SFT "0 NONFOLO OPCOOE

-HEX FB-.
LODCCW2+4-SET CHAI N FLAG TO
CHAI N W~1TE CCW
-HEX 60- •
LODCCW3-SET ALLOW OATA
CHECK OPCOOE
-HFX 78-

Chart pc.

$JOeCTLJ - UCS CCKKand Processor (Part 2 cf 2)
Refer to Chart 15 •

•••••
*PS '"
• J3*

*>•

UCSSCN
82

••*.

*

•

X

******
GU ...
*-*-*-*-*-*-*-*-*
•
~ElEASE
*•
...
SYSTeM

·*·*·C2
*SCANR3

•*****************•

...

X
*.***D1*********·
......
svt 4 ... ...
... ... lOAC THE

... ...

* ..
*

P HA SE
,. .FROM CI LIB ....
(3
'"

.,,.

*

~**.****** .. *.****

*C3
THE PHASE IS LOADED INTO
THE BUFFER LABELED LODBUF

X

****** ••GK*
**
*-*-*-*-*-*-*-*-*
... POI NT TO NEXT ...

*****c 1 ••••
*MTNCNT

... ... uc S

._*-

*.

.• BLANk*. *. YES'"
,.
*.••*. 010
END LAST
.* .... X."(1
*
SCAN
•*
',.
**.••.**
****
* NO

Cl *
•• ****
•
UCSVN

X
.>.

...

OPERAND

...

*

*03

*****************

x
.*.
.*02 DID *. *.
*:**. ~b~~:
~~D *:*~~ ..
•• SCAN •*.*
x
*- ... . *YES

....

*
•

*MTNCNT
,.

GU ..

SEIZE

SYSTeM

'"

...

• *.***********•
••••

(:5

.*oo

*.
.*..
*.
E2

•
*

•••• **

x

X

····*EI·_·_·---*·
*-* .....-*-.-*-*-.-*
*

*03
THIS OPERAND MAY BE
FOLD, BLOCK, NULMSG

UCS3

.•

•*

*.

E3

...*
*. *.•
x

•••• *F 1*********.

• STORE THE UCS >

*•••••****.***••••>

X
.****Gl··********
*EXCPRG c
GQ *

*-*-*-*-*-*-*-*-*
.EXECUTE
I/O AS *
IN *
.<• SPECIFIED
WRKDFB
•
••••*.***.******.

UCS4

*.

.*

oo·

*.oo.

*oo

F2

Eit

.*. *oo

*•

*oo

*oo

••

.*
*.*YES

F3

*oo

.*

NO
..
.. *oo.oo ....

•
**-********

"' ..

*.

..

* •.
* 10• YES

NO
•
.• .* ....... .

x

X

*...-DPCDOE
EQUAL *
HEX f3'"
...

.*.

BLOCK

•

***~~tir~~***
••
LODCCW3

**OAT
TO INHlsn
*
A CHECKS .. *
•

*

*.•
*
... YES

.. * .* OPERAND*. ...

••

**G2*.·.*••

MODI
FY FOLD.
LOOCCW2 •
_ TO

•

·oo.*

x

.*. *•

OPERAND
FOLD

*

**.••.**
... YES

YES

X

:... L05E~w~DY~to
:...
WRKDFB eeB

.*..oo

LENGTH
NO
•• LENGTH
•• NO
••
LENGTH
•• NO
EQUALS
............. X*.
EQUALS
........... x*.
EQUALS
.. * .................. .
*.4 CHARS • • *
X
*.5 CHARS • •
X
*.6 CHARS • •
X

-HEX 13-

*.*********

*

.*.x *.
F4

.* OPERAND*. *. NO ..
NUlMSG
.* ••• oo.oo
*. *.. * .*
• YES

*...*•.

·

****

• F5

*'. .
X.

• ***. * .

X

* ****fs;,*********
BPANCH TO
*

**

NVSE~R

IN

S.JOBCTLA

*************.*

**

X

**G4***.***

MODIFY LODCCW2
*SET CHAIN BIT*
*OFf TO PROHI BI T*
..
WRITE.
•

•***********•

: .................................. x:X ............................. :
x

····HI··...·_-.**
X

•
*
•

BRANCH TO
CONTROL IN
SJOBCTLA

•

•*****
•
82 •

***** *

.............*.

Cbarts

207

Chaz:t PD.

$JOBCTLJ - ACTICN and INCLUDE State.ent Pz:ccesscrs
Refer to Charts 15 and 16.
*•••• Ai····..••••*
•

...............-•
ACTION

*

TSLNKSW

*. *.

· ..

••••
.. 81 •• x.
•••••• x
.•.
ACTION

*.*.

*..*NO
.••••.•

.•

* ••
• YES
X

•

*.

••
*•••

..

* YES

•

*

*

••••••••••• •

*.......

•

OUTPUT

•

oB¥~W A!~

..

CHAR ' W I "

X

•
SET OUTPUT
*
• CHARACTER COUNT.
.TO 80 BYTES IN •
•
CNTFlD
•

*•••••••••••••••••*
it

02 ••••••••••
*UPDSAV
PT.

*-*-*-*-*-*-*-+-*

x:~~~~ ~+M~~~~

.OUTPUT AREA .Fl-

••••
·E2.*··.·••••
*-*-*-*-*-*-*-*-*
X

*LNKOUT

PT.

................

• WRITE STATEMENTO
..
TO
..
•
SVSLNK
•

_

OF1
1. UPDATE THE BLOCK COUNT
FOR I/O AREA CONTROL.

2. WAIT FOR PREVIOUS 110
it
ON SYSLNK TO BE COMPLETED.
3. ~OVE STATEMENT TO NEXT
AVAILABLE AREA IN OUTPUT
*
SVt 7
*
*WAIT FOR SYSLNK*
'~~tiR~u~mFb E~~O:UFFER *1/0
COMPLETI ON *

•*****F2**···***·*•

...- .
·••••..-.x.

•_•••*••••••••••••*
• G2

it

$JOBCTLA

••••

*• B4 *
*••••*
x

.*. ••

O~f~eN

*. *.

.:.~~ •.

.. ..

.• .-

_x

* •.•
• YES

*

•••••••••••••••

.H2
1. AND BIT 6 OF
SYSIPT DFB flAG OFF.
2. SE T OUTPUT CHAR
·H1
COUNT TO 80 BYTES
THE EXCPRG SUBROUTINE PLACES
THE ATTENTION, ATNCUU, ROUTINE
IN CNTFlD.
AODR IN LINKR 1 ON EVER ~ RETURN
TO CALLING SEQ. ATNCUU I S USED
TO DISPLAY THE ATTENTION
MESSAGE, 1COOA.

*oo

B""

FOR OPERAND

••

••

*. * •• *.*
*

C4

*.••••••••
NO

••

YES

j.*.

: UNBLKO

C5

.*. *•

*. *. YES .X .* oo*CMmc;
ANY
••
.* .* CARD
END
IN *oo NO
*.
.* •..• oo ••• X*. SYSLNK OUTPUT
.*oo •• oo
*.* . . * .*
x
*. *A~EA
.*
..*
*. * oo*NO
*. oo*
* YES

GK.

*-*-*-*-*-*-*4-*
*'
SCAN
•

*

2

IN
1ST BYTE

•

.SCANR2

..

.

OTSERR

X

•

•*•••••••••••••••••

.•.x *.

x
X
.* .*.
04
*lNKOUT **********
DT*
*.
.*
*. *. YE 5 • ·****ot:t
.*
RE::P
BLANK
' . NO
*-*-*-.-*-*-.-*-.
*.
CARD
........ .
••
•
W~lTE
*'
*. *.OPERAND.• .• .* ....
*
TO
*
*. *.
.*
* SVSlNK
•
.*
x
*•••
*
••
*
*'** •• ************
• NO
* YES
.• x•••••••••••
•...*.*
•
61 *'
•••••••
o
•••
x.
*.**
•
*
: LPDopr
X
X
.*.x * .
• •••• E3.· ••••••••
E4
.****E5**********
*upnSAV
PT*
*
INIT FOR
*
.
*
WILL *.
*COPY ING SYS IPT •
.* THIS CARD *..*.....
YES •
*-*-*-*-*-*-*-*-*
*INCR
BLK COUNT •
* TO SYSLNK •
•• FILL THE
.
*. *.AREA
OUTPUT .* .*
:aB¥~u~T:~~~E~~l:
•*
**'
·H2
*oo o .*NO
•••••••••••••••••
"'*.**.**.********
**••••
•.
F3 •• X.

.*.*

03

.

•••••• :x .......... .

X

X

COPYlP

····*F3*······***
4-*-*
*E)(CPRG

*

READ FROM

0

* SYSIPT
*'
*•••••••••••••••••*

G3

*****F4**********
PTo
**-*-*-*-*-*-*-*-*
INCR BLK COUNT *
*MOVE
STATEMENT *
*OUTPUT APEA *FI*
*••• *.****•••*••*
*UPDSAV

GO-

*-*_*_*-*_*

x
.*.
*.

X

*****F5**********
PT.
*-*-*-*-*-*-*-*-*
*
WRITE
*
**
TO
**
SYSLNK
******.*.********

*LNKOUT

.
.
.
• •••••••••••••• x•••••••••••••••••••••••••

HAS *oo
SYSIPT
NO
*. BEEN OPENED .* ••••
••

.*
*. *.

*.

.•
* •.• .•
*

YES

.*.x

****

x

** H5 •*
***** *

******
* * Fl·
0
*PV

IN:ERR
END INC

*****H4**.******.
.* H3 *. *'. •• YES
*0 SAVE
llNKRl
*
IN L1NKR4
*
*..**. SYSIPT
END OF
.*.oo •••••• X.
..
FILE.*
X
*
•
*..*
*.* .*NO

•
·HI
*
*********.*******

.*

*. *.

*.
.* .*

* ••
• *
NO

K3
.*

.*.x *.*.

.* BLANK •• YES
*. tARO I MAGE ••••••
*. *.
.* .*
x
*.•
o *
NO
•.***
•
*
F3
x
•.**.••
•****•
84 ..
•• .*.*
•

X

BYPASS

*****,",5
*******.**
'*. WAlsvc
1
**
T FOR * *
*** •*SYSLNK
I/O '* •
*COMPLETION * *
**
*•
*********.*******

x

x

.*. *.

J3
• *SYSIPT ••
UNIT
YES •
•• EXCEPTION ••••••••

Des/vs IPL and Joe Contz:ol

*oo

*••*

•••• ·C3 ••••••••••

*J2
ENTR Y AND PHASE
STATEMENT ENTER HERE.

208

oo. .*

*PV
G3*

••

*.**G2.*·*.*·
•••
BRANCH TO
** CONTROL
IN.
•

83

-.x.

• * .
*.-.
·····C2··········

*

••

x

.. ..
.:.

•••••••••••••••••••
•••• •
'-PN.

.....
:
: •.••....
................. _...............:x

••••• 01 ••
..
..
•
PR EPAP E "

INCLUDE

•••••••••••••••••

OTSERR
INCLUDE

•

BUFFER FOR

..

x
•••••
• G3*
••
*

• ••• A3 •••••••••

**

*pv •

PREPARE

SETOUTPT

* TURN CATALR *
*
* SWITCH OFF

*•

••

····*82····.··
..·•
•
.. G2

••C1**··***

.*.

X

Bl
•• CATALR
.. • OPTION SW ON
J2
••

•*
*. *. ..

A2

.*

••
LINK
•• NO
• •• X•• OPTION SWITCH ••••••
ON
••

•* . *.

it

J4
ANY
•• CARDS IN *. NO
*.SYSLNK OUTPUT
AREA

•*
*.

*. *.

*•

.*

.*

.*....

* oo*YES
X

••
***K4**********
*LNKOUT
PT*
*-*-*-*-*-*-*-*-*
'*
WRITE
*
*'* SYSlNK
TO
*'*
****.*.**********

:x ..••...... :

x

•• .***
*
H5 •
***.*•

J5

.*. *.

.*
*•*. YES
*..* SYSIPT
EOF
.*.oo ••
*. *.
.*
x
*. oo* .*
* NO
**' **.*
•
G2*
***.**
X

****K,)
*********
BRANCH
Tn
*
ATNCUU IN
•
* tJOBCTLA *
**************.

•
*

$JOEC'!'LJ - ~TC Staten:ent Prccessor (Part 1 of 2)
Refer to Chart 16.

Chart PEe

....

....

..

MTC

A2
*.
•* IS *•*. NO
•"
••
COMMAND
••••••
*. .,TM .*
*. *•.•.*

..

•

X

MTC

B2

.

*-*-*-*-*-*-*-*-*
•
RELOCATE
•
•

ADCONS

•

·•

X
••••·el ••••••••••
PUT ADDRESS
OF NVSERR
IN L1NKR4

•
•

..
•

•
•
"

..

•••••••••••••••••••

•••••••••••••••••

:MTCMTC5

GK •

.SCANR3

..

ic

····AS····•••••

...............
BRANCH TO
NV~E~R IN
SJOBCTLA

o
•

•
•
•

•
•
•

NO

·

j.••

.

.*

o.

•.

....

CLASS
•

NDTERR
MTCTEST

04

.*
*. *.

.•.x

.. .*.

•.
.• .*

.*

x
.*.**
.PV •

*•••
•

••

••

.•.x

••

NO

.

••

IS

THI S

SYSOOO

*.

•

NO

.*

.. ..
....
05

••

YES ••CONFLICTING ••
OWNER SHIP
••

•
•
•

*.

C5

IS
•• YES
•• THt S A SySTEM ••••••

PICK UP MASK
•
FOR OWNER SHIP •
TEST
•

•••••••*••••••••••••

•••••
• PV •
• C1·
••
•

.····03·········
..............
BRANCH TO
CONTROL IN
SJOBCTLA

•

.
.. .•. ..
•• ••••
•
"••C5**•
x

X
**.**C4.·••••••••

•

x

YES

X

GK.

X

C3

•

.POINT TO SECOND"
•
OPERAND
•
•
(UNIT)
•

•••••••••••••••••

•

NO

*oO ••

*-*-*-*-*-$-*-*-*

•••••••••••••••••

•

IS
:toO
.*•*THE
UNIT •• NO
••
IGNORED
••••••
*. *. -IGN- .• .*

X

·····01··········
*-*-*-*-*-*-*-*-*

X

••

If

.•.x
•

••••• 02 ... • . . . .•••

• POINT TO FIRST.
•
OPERAND
•
•
•
LOP CODE

Alt

*. *.•• .*

•
•

ccw

.*

••
:toO
THllSUNIT . : .
..ASS IGNED ••

.*

.!~~.:.

..

SET CHAIN
BIT ON IN

••

•
CHECK THE
•
.ASSIGNMENT FOR ..
•
THIS UNIT
•

••••••••••••••••••
:X •••••••••• :

X

• SCANR2

X

•••••e2 ••••••••••

•

....

• •
••••••••.•• x:

*. •• YES •
*.•• IN AND
COL 1
.* ••.•.•
2
•.
.* .*
*•• *

GU •

:t-*-*-*-*-*-*-*-*

B3

.•.

*• ••••
•
A5 •

x

X

.CHKASG

••

*.••

•••••••••••••••••

••

...x

•

•••••A3··········

GETASG

YES

.* IS *. •• NO X..
COMMAND
••••••
*. RUN .*
*. *•••.*
* YES

••••• 81.· •• ••••••
.INITL
KA.

..

.. A3 ..

•

.•.x

.
................
·
..
. ••••Al.··...•••

•• *•••
•
•••A4*•••

•*••••

•..••A2**•..
• •

.•

•• NO X

••

••••••

YES

• FlO

El

.*.

••

*.
COMMA ••
•• i:"u stAN
*. * . . * .*
* ••
*
• YES
.*
•• 010

E2

.*.

o •
o

:MTC3
. . . . . E3 ...........
• SET DEVICE TYPE"
•
• IN OVCTYP AND •

••

.* EQUAL
DID *.
YES..
*.
S\Grt t:I'tLl It\!: ....
*. *SCAN
.*
.
.
*
*•••
• NO

NO

.................

• •• "",

.!fo • • • • );. • • • • • •

.•.x

•* Fl *.••
•• 15 OPERAND ••

F2

*. *•• * .*
.. YES

•*

MTC2

••
IS
•• NO •
...
OPERAND
•••• X.
••
VALID
••

*. * ••• .*
•

i<

•..••••
A5 •
..
• •

YES

"-··Hl.·········•
X

IS
COMMAND

*.

*oO o.

DSE

*•• * .*

.. YES

.*

.*NO
•...
x

•.***•

•
•

•

•..
..
..
•........********•••
..
..

..

MODIFY
CCW CHA IN
FOR DSE

x*
•••

•.. A2 •..
••••*•

MTC4

••

*. *.

•

..

X

••***.K2··········•
..

COMPUTE LUB

TABLE DSPl T

IS

·xx •••••••••••.
••••
• •
•* •

....

A3 •

•

*. ••

.•.*

NO
.*....

*..
* *YES

*. *POR
••
•••
•

:X •••••••••• :
..

•

*. *.
.* H4
IS
•
••
DEVICE
•• YES.
...
A TAPE
.* •• x.
*.CARTR IOGE.*

YES

UPDATE WRKRGI •

LUB

.* •••

G4

••
DEVICE
••
MAGNETIC
TAPE

.* ••••••

PROGRA MME R

ASS IGN SYSUE

SWITCH

.•.x

*.
UNIT ••

••** •••••••••••••

•••**•

•

•

: •••••••••••••••••••••••• x~

:toO

IS

.TO POI NT TO 1 ST.

.. A2 ..

X_ ••_ ••••
" •• *Kl ••

•

•*.**•

·····J2··········
•
•
..

PUB
NUMBER

.-$-.-.-.-.-*-*-*

ic

ic

*oO

•
•

:••••••••••••••••
t~A~~~ 6~Sb :*

.**••••••••••••••

.•.x

~~~~~S~~C

.................:.'

!

••••• F4••••••GU
••••
•

•
TO SYMBOLI C •
-UNIT AOUR
.J3*

H2

•••• •••
•..ESS-{~~!G
•
•
.~
•••••••••••••

X

ic

*. *•.•.*

x

*.*.

*---.....

X

X

• •••• EIt••••••••••
•
SAVE
•

.CHKASG

•• .*A4••••

•• THE
••
A SYSTEM
:toO
ENTRY
ltH3
• NO

.................
•• oO·

".

.****G2······***.
PT •
-.-.-*-*-.
• CONVERT SYSXXX *

oO.

• CONVERT TAPE •
• COMMAND TO HEX 0
.AND INITIALIZE.
..
CCW" G3
..

• 0.

'-LI';)~

*CNUNCO

****

•

Jl

...

••

*•••
o NO

.•.x *. *.

s.i~:n:

.AND UN IT CLASS •
IN WRKRG3
•
•

*•*. YES
.* .*FORMAT
X 'CUU'
••
••••••
*. *.
.*.*

NO •
•• CHAR ACTER S IN •••• X.
•• LENGTH
••

Gl

.•.ic

NOS ERR

..

..

NO

...
x

·J3

~mom ~m

ters!.

IS RETURNED IN THE
FIELD UNCLOR.
BYTE
IS SYSTEM CLASS.
BYTE 1 IS UNIT CLASS

o

x
•••••
·PV *
• C1·
••
•
NOTER •

*.
*. •• YE S
.*
*.." DEVICE
DOWN
.* •...
*. *.
.• .*
x
*•• *
*.*••
J4

•

NO

x

****'**
'*

.PF
AI·

•••

·PF ..
• C4·

••
•

NOSERRI

.. FOR TH[ S UNIT ..
•
IN WRKRG3
•

****.***•••*•••••
x

•• *.*.
•
C5 ..
•••••
•
Charts

209

Chart PF.

$JOECTLJ - ~TC Staterrent Prccessor (Part 2 of 2)
Refer to Chart 16.
*****

****

*• **'
*

*o•

*PE
J4*

••••

*

FOR OWNERSHIP

SVC 22

>

X

.*-.

B1

• ••••

...... * .*

*

.*

***************.*

*****82*·*···****
0
*'*' INITIALIZE
REGI STER
WITH LOG
***'
,.
UNI T
•****** •• ******* ••*

NO

B3

x

X

*-*-*-*-*-*-*-*-*
•
FETCH
*

*'*' $SBOPEN
TO
*''"
OPEN FILE
***********.*****
> **** ' ..

•
>
*****************

*.

.. .
x

*••
* *
NO

****

***.*
*PF *
* J4*

****************.

***********

*

X

*

•
•

*

*****.************>

x

* •• *
* YES

***** •
,. 02 *
*
>
****

,.
•

*

**G It:!*****
POST

OPEN

REQUEST

IN CQMREG

**
•

*

************
eXT
*

NO

.*
.*
*. *.

*. •.

*..*
.*
.*
* •• *

•••••• WTM COMMAND

*

YES

X

**J 1*******

** POST WTM 0 *
** COMReG
REQ IN
EXT
**
o
*
***********

:•••••••••• X:

•
•

*

X

>

.,

*
.,

*.

X

*****05 **********
*MTNCNT

$-*-*~*

X

..

..
•

****E5*********

RESET PUB

OWNERSHIP
FLAGS

************•

**

NORESET
X
.*.x *.
G2
*****G3**********
.*
DID *.
* UNASS I G N .*
****G4*****····
BRANCH TO
..
*
.
*
A BLANK *. YES
".STOP THE LAST ••••••
* SYSUSE LUB * ......•. X.*• CONTROL
IN
*
.. -SET TO X' FF' *
SJOBCTLA
*
*. SCAN .*
•
*
******.*******.
*. *••• .*
x
*****************
.***
* NO
"
** C3 *0*

J2

.0.x *.

.* A DID
*.
BLANK *. NO
*..**. END
THE
.* ...................
.
SCAN.*
X
*. *•• *.*
* YES
****
>

x
•• ****
*
A2 •
****

*POI NT TO THI RD

"

.. K3 ...

X

>

X
*****H2**********
*SCANR2
GK*

•

.". *.
K2
.* DUP *. *. YES..
*..* FliCTOR
GT .* ....
*. 99
•*
*. *•• *.*
o NO

x

****
"

0
•* A3 •*

***.

DOS/VS IPL and Jot Centrel

***** •

x.•
X

****K3********·
BRANCH TO
*** NVSERR
IN
***
tJOBCTlA
***************

*H4

TO
CALLI NG SEQ

..
0

**************.

*

*H3
SET MODE COMMAND TO CCW.
MOVE SYS AND UNIT CLASS
TO CCB AS SYMBOL IC UN IT
ADDRESS.

*

~ETURN

NO

**F3******* •

GW*

-*-*-$--*-*

• SVC 22
•..
•
".****************"

:X •••••••••• :

'*-*-*-*-*-*-*-*-*
*
** -DUPOPERAND
*
FACTOR- *
*****************

**
*
0

*

~EGISTERS

*****************

X

RES ET

*****F2**********

COUNT FOR *
*•* seT
110 IN *
* SINGLE
WRKRG4
*
**.***************>

x

1**********
*•*****K
INITIALIZE
**•
•
REGISTER
•*
*H4
*0
.**********.***.*

210

*H4

****

x

.>.

HI

*"

*

.

*•

*****************
•
*

x
.>.
Fl
*.
.*
*. *. NO
RMSR
*..* SUPPORTED
.* ••..
*. •.
.* .*

1 NI TI ALI ZE

**** $

* E3 ..
***** *

.' *.
E3
.* PUB *. *. yes
.*
*. IGNORED .* ••.•
*. *.
.*
* ••• .*

X

INITIALIZE
CCB AND CCW
*H3

03

•

* .*~ NO
NEW
*. *.FACTOR.
OUP
.* ••..
0 .*
*. * .•* .*
x
* YES
****
****
*
**
*
C3
.
** E3 '
*.x.
" **** *
* • x
EREX ****
IT

*****EZ**********

••

*

TABLE
AODR

,.

.. * .*

YES

•******EGET1**********
•*
RF
*

•> •

.

X

*****C5 ******** ••

**

x

x

**** *' :X
D1
*..
*****02**********
.
*
*.
*
*...
COM
*..*NO
*' INITIALIZE
*..*•• AVAILABLE..
REG EXT
........ X..WITH
REGISTER
*
lOG- UNIT ...
**'... ..."*
*'
*'
*********.*******
•
NOESTV

**. **85 ****.**•• *
* * SVC 2- .. ..
fETCH
.. .
.. '" tSBOPEN * *'
'" * TO OPEN ...
•*••***************
FILE
'" *

> •

*02 •• X.

X
• >.

X

ESTVOPEN

••

* K3 "
*
** C3 *.x.
'.
"
>
*
****
****
NOSER.1
X
X
*****C3**********
**C4*******
*EXCPRG
GO*
"
**
*-*-*-*-* -.-*-*-*
*
seT
.,
EX ECUT E
•
** ERROR
*
DESIRED
..
EXtT
**
*
I/O
*
"

*****C2**********
*eSTVOPEN
PF*

**
**

GET EXT
AD DR FROM
COM REG

.*.x

IS
*. *. YES
.* .* FACTOR
DUP
*.
.* ....
*.
0
*.
.* .*
****

*****c 1**********

*>*
*

*

*

•

.*

**.***A5····**·**
0
eSTVO~EN
*
***************.•

-,;.
CHECK DUP
..
>FACTOR AND CDN-*
*VERT TO BINARY

•

X

*' .

OWNERSHIP

*. *.

x
**.***
•
C4 ...
••• ** •

X

*******.*.*•• ****

•*
*.
• *CONFL ICT INC ••

"

.****A3**********
*NUMCON
pu*
*-*-*-*-*-*-*-4-*

*-*-*-*-*-*-*-*-*•

*'
TEST
*'
*
>
************.****
MTCTESTI

*

o* 43 *
0
.*.*

*****A2***.*.*.*
•
*MTNe NT
ew.

*'
,.,

PICK UP MASK

****

*0*

X

X

• *.**A 1*.*********

**

A2

X' FF 1 TO seT SYS MASK
TO ALLOW ALL INTERRUPTS.

$JOBCTLJ - SET Statenent Prccesscr (Part 1 cf 3)
Refer to Chart 16.

Chart PG.

****

**

•

A3 •

• **** *
A3

••
seT
•*
•••••••••••••••• *

••••• REFERENCES

,..

*TO

PGBL:

*. * •• * .*
*

**',..:* ~~~~! ~~5j
PPJ2

SETExT

•*

Bl

.'.x *.

DID

...

*. •

•••• >
81 ..
•• ••••
•

CONTROL IN
$J08CTLA

•••••••••••••••

**
>

C2

.*.x *.

:(0

..

*

x
.*. *.

H5 *
,..

****

•

•

NO

* AI'"
**0
SETS VA

*..*
*. *.

YEAR
•• EQUAL EVEN
*.HUNDREDS

*. * ... * .*
* NO

x

*•••
• NO

*****
*PP *
* A3*

•

SYSUPI

**
*

•*.

.* . .

x

.•

G2

••

• ••

X

*

POINT TO UPSI
PARAMETER

*,..

-NNNNNNNN-

*

*

HZ

•

*. *.

*. *.

.*

.x ..... *.

0

LENGTH=

.*. *.
1
.* J SCAN
*. *. NO •
.* BY
ENDED
BLANK OR .* .. x.
*. COMMA .*
*. * •• * .*
x

* ..

x

*•

•

SYSUP 11

4

.*
*. *,,*YES

'*'*

'"

E4

.* . *.

<:t:AN

ENDED BY
BLANK

*

**

*******.*********

:............. x:x

***** •
* 61 '*

*_

•

•• NO
...... .

*. *.COMMA
OR
.*
.. *
* ...
* *YES

****

*

ic
* **** •
'* H5 *
*
*

X

*****F4**********
*NUMCON
pu*
*-*-*-*-*-*-*-*-*

*
*
*

CONVERT
PARAMETER TO
BINARY

*
*
...

•• ******.******.*

*F5

THE OPERAND
POINTED TO BY
THIS SCAN MAY

~~s~~T[1 N~~~;K.

R.ClST, RCPCH, RF.

*****G3·*********
o
•
* COMPUT E DAY •
.. OF YEAR AND ..

*

*

STORE IN
COMREG

*

G4

VALUE *.
.* .*LESS
THAN *. YES
30 OR
.*..................... .
*.o
GT 99
.*

*..

*

*. * •. * .*

**************.**

.*

.... *..*
NO

.*

*.

.*. *.

H3

x
.* .*.

> NO

*• ****
o.
H5 *.X.

*

X

•.

BJF

****'*H4**********

*..*

*. * •• * .* .*

* YES

'**

*
*

SAVE OLD LINE
COUNT AND
*STORE NEW COUNT*
IN ltNCNT
-COMREG+78-

**

**

*****************

****

'.

X

'* **.*H5*********
BRANCH TO
*
*'
* NVSERR TN

•

~J08CTlA

*********.*****

*

x

x

*****
*PK •
,.. C2*

*..*

x

NO.* . * FIELD

*****************

* YES

.*. *.

.COUNT TI] X '01'
1 NDICATT NG
END OF PAGE

*****************

X

NOlEAP

*.

X

SYSDATE

X

**********
•*****05
* SET QEMAINING •*

:x ........•. :

*. *.
FIELD
* .*
. NO
YES.*
TOO
*.... LENGTH=
.... X......
SUPPORT
.. *
*. *...*
4.*
*. * . . * .•
* ..
*
....
'
"
* YES
• NO

*.***Hl**********
*SCAN~3
GK*
*-*-*-*-*-*-*-*-*

*
*
*

ADO 1 TO
DAY CruNT

LEAP
* FORYEAR
•
*********.*******

,.. YES

x

G1

*. YESX
.* .* .....

X

.*
•. *.
.* .* UPSI
*..*X ••••••••
NO .*
*.
DATE
.*
*.* . . * .*
*. * . . * .*
x
,... .•
*. . *

* 84 *
• **** *

.*.x

******04**********
SCANR 3
GK*
*-*-.-*-*-*-*-.-*
* POINT TO
*'*
* PARAMETER
*
-NN*

x

*.*.*F3***.***.**
o
•

••• *.

• YES

*

****

SETSDl

.*. *.
F2

DA!,;E

YES
...•
*. *.POSITIVE
COUNT
.* .*
*.
.*
*..
*
* NO

•

> *

x

.*. *. *.

.*

*..*YES
.....
.* .*

SOL

.*.x * .•

• E3

DE~

.****************

X

.'" LEAP *. *. NO
*..* YEAR
.* ....
*. *.
.* .*
* ••
*
... YES

*****
*pp *

.

NEW REMAJ NI NG •
LTNES
*

H5 *
•
****

*

.*.x *.

03

*
..
*

.*C5 NEW*. * •
.. * PEMAt NI NG *.

. *C4FIELD* • •. ••
NO.*
...
*. LENGTH=
.*
*..
6
*. *..
.• .*
x
*
* YES
*.**

•*

*
*
•

X
*****B5 ***.***** •
* COMDUTE
*

*•*

.>.

. * 0]0 *.
.* ARE * .
• * AN EQUAL *. NO
NO •• YEAR MONTH *.
*.S[GN END THE .......... x .... *. AND DAY IN
.. *
*. SCAN .*
*. PROPER .*
*- •.•• -*
x
*.:~N~i·*
,.. YES
*.**
,. YES

·

*****
*PH *
• Al*

YES

x

x

.*.....
C3

.*
*.
*.• **. SVA .•*..*YES
.....
*. *••• .*
x

>.*** 0

*

:x .......... :

02

NO

0

************.****

*,..

Fl

***

SWITCH
MONTH AND
DAY R.EGS

*

•*' •••**.**F5
•••••••••,..

x

•

>

Be;

***.

x
.0.
B4
*.
.*
*. NO
*..* LINECT *.••••••
....
.*
*. * •• *.*
x

X

*****B3**********

*

GK*

'CURRENT OPERAND>

1•••• ****.
*• *.*c
BRANCH TO
..
..

x
·.••·82··········
**-.-.-~.-.-.-*-*
POINT TO
•

.-

*
*
*

* B4 0*

•

****

*SCANR2

• ns

.***

o **** >

NO

••••••.•.•. x:
: SET

•* END
A BLANK *. NO
•• X..
LAST
.* •••..•..
*. SCAN .*
>

.*.x * •

.* DATE *'. *. YES
*'..**'. MMI
CONFIG=
.* ....
OD/YV .*

••• ·A2·••••••••

****

X

*****J2**********
.BINCON
PU *

**-*-.-.-*-*-*-*-.
CONVERT DATE
*
TO
*•
BINARY
•*
***** •• *********.

•• H5 *
*
• **** *

****.J3***.******

** STORE
DAY OF *
YEAR IN EACH •

** PARTITION'S
*
COM~EG
*
*******************
: • • • .o ....

X

*****K2**********

*••
,..
*

STORE DATE
IN

SYSDAT.,

C OMREG+ 79

x

:MMODl

**0
•
•

.o ....

>**** >
*o 85 •'*

****

x:

x
****

•*

B1 *
*
• **.* *

*****************

x

o**** 0
• A3 •
*.**

• •
Charts

211

Chart PH.

$JOBC~IJ - SET Statenent Prccesscr (Part 2 cf 3)
Refer to Chart 16 •

•*•••
*
*•
•

*PG
.. 84·

.'.x *. * .

Al

.*
*.•*

*. *.

RF

*oo
-

.*

-···*A2*********.

*..* YES
.....
.• .*

•>

DATE
*
•
*
*******••******

..

x

>

**.*A4***··**** *
ZONE

..

**** •• ******.** -

**.*
*• 85 *..

*****

NO

•

*PJ ...

... B1-

81

-.

.x

••

-

SYSRF

....

x

"'..

NO

OR
*. SYSlST
SYSPr:H
.* .* .....
*. * •• * .*
... YES

*-*-*-*-*-*-*-*-*
POINT
...
** OPERAND
TO
*...
************.****

...

****

... WITH DIB T8l

x

x

.*.
C2
*.
.*.* DID *. *.

-

WITH SYSlST

018 AODR ESS

·****C4**********
,.. SCANR2
GK*
**-*-*-*-*-*-*-*-*
POINT
'"

.*. *.

03

.*.x

..

x

-******.

*.•..•. *

*****************

... YES

...

*.

OPERAND

*..*

B5

••

*••• YES
••••••
.*
*. *.. * .*
* NO
TOTAL
SECONDS

=0

....

04

.• (5

.*.x *.
IS

*.

•

*.

YESX

ZONE
.*....
*. *. -EAST
.. "
.*

..

*•• *

***** ••.•*********

-

x
.*. *.

1)-5

NO

.*.x *.

*. *. NO. NO. *' .* t S *. * .
.* .*BLAND
01 D
ZONE
.*
*. SCAN END .* .* .. x. x..... *. *. =WE'ST
.*
**.••.**
**.••.**

••

·-.oo .•. *
...

*

TO

..

. * a *.
.* IS *. "' ..
"'CHARACTERS *. NO..
NO .. * PARAM AT
*.• *.
IN
.* .. x.X ••••
*.LEAST 3 CHAR .*
LENGTH .*
... IN LENGTH ••

...

...

*.

X

.* •

.*(3SCAN"' .. *.
NO
NO .* ENDED BY *.
*. *. BLANK
END
.*
......
x•••• *. BLANK OR
,;caN
.*
*~
(O~MA
.* .*
**.....'"*
**.••.**
* YES
* YES

02

...

...

-

-

... C3 ...

x

... ADOR. POINT4
...

·

.-.

B4
*.
.* TOO *. *. NO
*..* SUPPORT
••••••
*. *.
.*
.*
*..
.. *
YES

*

• **** *

x

··***01***·******
"'lNITIAL IZE REGS.

X

ZONE

*****82*********·
*SCANR2
Gt(*

SYSHC

• >.

Cl
*.
DISK *.
.* .* ]/0
FOR *.

•
X

DATE

*. .... YES
He
.* ....
*. *.
.*
.*
_ NO
x
*•. *
*****...
*PJ
* A3*
**•

.* •*
"'..

**.*
x
.> •

*

YES

*

YES

YES

J5 '"

Yes.* .*

•••• *. *.

El

.-.x

"' ..

IS

OPERAND

*. *.

PCLST

*. * •. * .*
•

-

X

.

****

*****E2**********
•

.* .*

'"

*

MOVE DATE TO

':OMREG+O

*...
>

*******************

NO

>

X

··***E3*****·****
*NUMCOM
pu*
*•*-*-*-*-*-*-.-*-*
CONY ERT RC
'"
PARAMET ER TO
•
•
BINARY
*
*•• *.*****.*.***.

.* .*

.*.x *.

E4

X

*. *.

10
NO •
*. *.(HARAe
TERS
• * •. X.
IN LENGTH.*.
..*
*..
*
• YES

*****E5 ••*****·**
-* GET NEGATIVE **
* VALUE OF
SECONDS
•
*
•********..**.******
: X•••••••••• :

.*.x *.
F2

X

*****Fl***.*.****
SET POINT4
*

..

..
..

..
>

AS POtNTER
TO SYSPCH

DIB

...

•••*•••••••••••••*

x

.> •

Gl
*.
*. .... NO ..
•• .*
IS
*. *.. OPERAND
RCPCH
.* .* .. x.
*. * •• * .x
- YES
****

.-

:................... x:

'" J5 '"

******

X

DIBRC

*****Hl*********.
*SCANR3

GK*

*-*-*-*-*-*-*-*-*
...
POINT TO
...
*.. PARAMETER
..
-NNN..

........_._-*.. *.

'"

*

SET
DATE 81T ON

IN COMREG

*...'"
...

•

*****************

:x ................. :
i<

BRANCH TO
•
**··*.H2·**······
CONTROL I N .
•
$JOBCTLA
•
••*•• ****.* ••••

x
>**** •
* C3 ...
***** *

**···F3·.··*·.·**
>
*
•
STORE
*
'"
RESIDUAL
..
..
COUNT
*
*•**••• ****.**••••*

*****F4**·*******
PU •
..*-*-*-*-*-*-*-*-*
CHECK AND *'
* CON V ERT HR S ANO*
>SECONDS TO BIN.*•••••••*.****.*•
• NUMCON

x

i<

*****G2 **********

-'"'"

X

X

.* TOO *. *. NO
*..* SUPPORT
.* ......
*. *.
.*
.*
*••
*
'" YES

..
..

.*.

.* G3RCIS GT•• •• •• YES
*.•* 65,535
.* ..•.
*.
.*
_
NO
x
* ..*

.. ..
x
*** ••
*PG ..
• B1*
>

- *
SET EXT

**••

*•

J5

G4

VALUE

*

*

X

•

•
..

****G5··**·*···
RETURN TO
*
(ALLING
SEQUENCE

*.*.**-.*****.*.

..
•

x
H4 .*. *.
.*
*. *. NO .X
.* SEes
*oo
l T 60
.* •.•..........•....
*. *.
.* .*
*•.
*
* YES
******
J5 *.
•. x.
X

*"***J4**********
* TO SECONDS ..*
ADD
*
** TO AND
SECONDS
..

.. CONVERT HOURS

*******•• **** ..***-

x

*.**
B5 *
* >
-•

DOS/VS IPI and Jot Control

IN
*
J08ZQNE 1 N
..
eDMREG
•
* EXTENSION
•
.*.*.. *.*****••• **

•

*-

- **** *

>

212

******F5*·*******·
STORE ZONE
•

x
.* .*.

*. *. YE S.•
*..* HOURS
GT 12
.* .. x.
*. •.
.* .*
_
NO
* •. *
oo*

X

SKIP

......

·

-

****
X
.. ****J5*********
BRANCH TO
*'
*'

*

NVSEq,R IN

SJOBCTlA

****.**** .. ****.

•

..

Cbart PJ.

$JOBCTLJ - SET Statenent Prccesscr (Part 3 cf 3)
Refer to Chart 16.

•• ••••
•
Ait •
•••••
•

•• ••••
PH •
• 81.
•••

SYSHC
•••• A1 ••••••• ••

•

•

SVSRF

•

...- .'.
*

' . NO
••••••

••

*.

•• •*

••

A5

....
HC=YES

YES

••

X..

.*

•• ••

•.

• NO

• YES

'.

....
FIELD

LENGTH-]

*•••

.•

NO

••••••

• YES

•

• Al •• X.

*

SYSRF

A4

'.

••
FIELD
' . LENGTH=2

•

x

.*.
.*.
.*.*..••.* ••..•••• ..•.*.

X

•••

A3

••••••••••••••••*

••••
• PH"

...... ......

x

Bl

*. ••

83

* FIELD *. NO
*.LENGTH=2
*..*.
.• .* ••••
*. *•.• .III YES

x
.•.
*.

84

.*x.••

X

··85 •••••••

.•
*.•• NO. NO.* .*
•. ••
•• CRTT AB
*. AVAILABLE •••• X.X.. •••• HC=CREATE ••
•. * . . * .•
*. • . . • .•
••• •*YES
•••
*
• yes

•

•

*~AR6 Nn~¢T~1 LE·.
*TO BE OPENED •

*••••••••••••

..*.
• *

.

.. C5 •• X.

x

Cl

•*
*. *.

.'.

••

*.
.* .•
.• .-

• SCAHR

GK •

*PARAMETER HARD

X

•

POINT TO

•
•

.* 03
• 'SCAN

GK*

PARAMETER
-HC STATUS-

x
.*.
*.

*

* YES

•

••

•••••••••••••••••

*.

....

COMMA

El

.'.x

.•

• NO

••

x
*•••• •

NO ..

'.BY A BLANK OR.* •• X.

*. *. COMMA .• ••
*.•
• YES
x
.*.

••

x
•••••
..
K2 •
..
*••••*

•*.

*...
•• •*

*...
* •••
• YES

•.*.* •*

.*
*. *.
.*
*. *...••
*••
* YES

·

)( NO ••

...

.. K2 ..

RFENO

X

..

Kl···..

*. *.

*..*
••* •*YES

SETEXT :

x
•••••
• 81••
*
• PG •

•

.*.*

.*

.... ....

.*. *.

....
*

••••••
•• K2*•

....

YES

ic

.**··HS···· •••• ••

•• NO
•
••••••••

.*

.

• YES

ic

*.

•..J"'••••• •

•
INDICATE
•
.HARD COpy FILE.
.. NOT IN USE
..

•..*. •
••••• •

• •******•• ** *

X

BRANCH TO

G5

*

SET UP

:

•

:

'r~~:P~

.'HC=NO IGNORED.
*YES I S ASSUMED'.

•••••••••••••••••

•••• •••• ••• X.

.. Kl ..

~lfi5~~LIN

.. ..

.*
•. NO
•• INITIAL IPL ••••••
•• *.
.*
.*
x

• YES

·

.. . .*.*K2*.···.···:

••
•• NO X
•
••• !NITtAL IP~*.* •••••••• X:

•*

SETEXT

••

•• •••• SYSLOG CRT

*.

*•••••••••••*

••••
'.

.*. ••

.* PR INTER
' . ATTACHED

•

• Kl -.X •

.. ..
.. ..
G4

.*.x
•*H" -. ••

_x

••••• -

x

••**•

.PG •
• 81·

....... ·····x

ic

*.

* •
•..** •

·

*

K2 ..

•*SVSLOG
IS
* .* •
ASSIGNED
.*
•. *.
•• .*

*.••

··Jl·······•*

OPTION
•
•* BITS*••••••••
..........

NO.*

x

• SET SWITCH *
'FOR FILE TO BE *
* EVALUATED

..

*

• *
**.*

x
.' .
F" *.

.*. -.

X

.~

••

SIt;,-

'If.

* •••
* YES

x

* ••
• YES

*•

• ••• *E5 •• *.*••• *.

*

• •••••

G2
NO.*
FIELD
X......
LENGTH=3

•* FIELD *. •• NO •
LENGTI+=6
.* .. x.
*. *.
.* .*

ic

HCSET

*. _. tf:)
.* flflO - . NO •
•••••••••• X..
LENGTt+o2
•••• x.
.*
•.
.*

x

• ••

*.

•*
*.
*..* RF=CREATE .....*NO
••••
*. * . . * .*
* .•
*
* YES

HI

.**•

.. A4

x

G!

:•

81TS

•*•••••••••***•••••

•• .X.* C5 ••
*•••*•
.* . *.
E4
.*
•.

K2 •

*•• ***

o~~fa~

:*

•••••*•••••

• NO

.* F! ' . *.
*.•* RF=YES *..*YES
................... .
*. *.
.* .*
*•••
* NO

ic

•• ••·*05····.····.•

•

*INDICATE HARD•
'COPY FILE TO BE'
*
CREATED
•
• (IN CR TSAV I '

*•••• •

ic

.*. *.

E3
• _ ~*
••
HC=NO

'.

*.
ENDED *.

*·04** ••*••

•

•

•

<"'*
•• SCAN

* YES

ic

*.

ENDED ' . YES.
*.ON A BLANK OR •••• X.

•
*

•••

••
•Cit•
•*.• *. NO
•• C5
*•
FIELD
NO..
INITIAL *.
•
LENGTH=6
•••••• X... •••
IPL
••
.•
•.
.* .*X •••
•*.
. •.••
*•.•.•
.*

• YES

*SCANR3

HCENO

••

••

•
COPY STATUS ..
••••••••••••••••
*

.••.•
01.··**·····
*-*-*-*-*-*-*-*-*

•••••• X

•••

.-.-.-*-.-*-*-.-*
•
POINT TO
•

.* RF TABLE •• NO •
' . AVAILABLE
x.

* •••

X

X
• •• **C3 ••••••••••

*

.*•••••••••••••

it

..***J5.**·
••••GJ*
••
*MSGOL'T
--.-*-*-*-*-*-*-*
•
~F'tTE
*..
*
M SC;4GE
***.*••****••****••
C

•• K..

•

,

·**••••

••
..
•*••*.* •••••••

*•
*

!ND'CATE

4C=YEC;

·• •••••••••••••••••••••••• .
x~

*•••

• •*
• C5

••••• *

Charts

213

Chart Pl(.

$JOBCTLJ - UPS I Statement Processcr
Refer to Chart 16 •

••••Al •••••••••

••

•

UPSiPROC
*•••••••••••••••
••

··*-*-*-*-*-*-.-.-*
•.·Bl····••···.

UPSIPROC
*SCANR2
•
•
•

X

GK.

POINT TO
OPERAND
-NNNNNNNN-

•
•

••••••••••••••••••

•*PG•••••
• JI*
••
•

.*..x

x

*. *SCAN
. . * .*

*. * . . * .*

SYSUPTI
.. *.
t1
...
C2
*.
••••• C3 ••••••••••
•• DID ••
•• VALtO ••
•
INITtALt ZE
•
•• A BLANK •• YES
•• LENGTH
•• YES
• REGISTERS FOR.
STOP THE
•••••••••• X.I-B CHARACTERS •••••••••• X.SETTING BITS ON.

*.

....

**

... .*
• NO
..

*. ...
*.. NO

* .x ............................... .

01 •• X.

••••••

•• AND OFF
•
*Et
•...............
.•

·•..••••-...•
03 •• x.

•

X

•••• 01 •••••••••
•
BRANCH TO
•
m~HLIN :
:

••• •••

•••••••••••••••

.El

CRm~

: : h~¥P o~O~mL
MAS~.

NRKRG" •

BIT OFF

.•.

x
03
"•
•
*
IS
* . ••
YES..
THIS
UPS ICH

*.

CHARACT ER
AN X

*. *••• ••

••

••

• NO

HEX OOBO
HEX FF7F

E3

.•.x

...

*. ••

E4

.*.

••

.* THI
IS
* . •• NO
S
*. CHARACTER •••••••••• X.. CHARACTER
••••••
*. * .A .1 * .*
*. A 0 ••
x
*••
*
*
•••
• YES
* YES
••••
••

••

IS
T HI S

NO

••

*...

x

:BTONRT
••••• F3.· ••• • ••

BTOFRT

**

X

*****F4*···*····*
* AND B]T OFF ••
*•* USING
MASK
•
IN WRKRG4
*
*
*******.* •• *.*.*••

••
•
•••••**•••• **•••••.,
:.••••••.•• x:
:x .•.••.•.....••..•.....•. :
••

DR BIT ON
USING MASK

•
•

IN WRKRGl

X

NXTBIT

.*·**G3 ***. _•••••
• SHIFT WRKRG3

* RIGHT
AND WRKRG4
*•
*.TO
ONE SIT *
CONTROL NEXT"
*••••••
UPSI BIT
**••• **•• **•
X

····*H3·***······
*
*
•
INCREMENT
•
*POINTl TO POINT.

•
•
.................
TO NEXT CHAR

• OF UPS I PARAM *

x

.*.••

J3

•* •*

*•

LAST
*. YES
*. •• UPS
I CHAR ••••••
CHECKED ••

*. *•• * .*
• NO

....
x

•• 03 *•

•.*.*

•

214

DOS/vS IPL and Jot Control

x
****.*
* 81.
••*

*PG

SETEXT

·

•• 01 •*
•••*"

Chart PL.

$JOECTLJ - PAUSE, LOG, and NOLOG COlm,and Processors
Refer to Chart lq.

•••• A1 . . . . . . . ..

e
oo

..............

_

PAUSE

81

o

o

.0.X *.

••

••

•••

*i~f~~~~~g~e •

*

INPUT
•
• INOICATOR ON •
JCSWI
•
•

e*

o

-... .-..
*F3

*•••••••••••*

••

SET

~~n~

SYSlST

..

...

*•••••••••••*

..

•

e

•
•

.....

..

o.

.......NO

ONOlOG

...

*

* TURN OFF
lOG SWITCH IN.
•
JCSW'>
•

o

•

•*.*•••••*•••

*•
•
o

X

~·C~""~~""~"'"

TURN

OFF lOG

SWITCH IN
JCSWI

*•
•

0

•••••••••••••

GJo

.................
.
0

SYSLST

*

*.*.

o
0
o• Fl •*

••••

..

x

"eO

*
*..*0 *

Xl"

ON

X
.0.

WAS _ •
.0
STMNT
o. YES
..FROM
OPEPATOR
_.
*F3
•• ••••••••••••••••••••

i x••••••• ' •••••••••••••••• :

WRITE

TO

BIt

o Fl ..
..

se ..

..

••

e

*

••••••••••••••••••••••••• X.

.. .._....

...........
.....
• •

••• X*..

0

NOlOG

x

X

.

...............

~"C~",,·~,..,......

e

TO o.
*

*lSTOUT

o
o

• ..... 4 . . . . . . .. .

o

•••••
03·····..•••
*-*-*-*-41-*-*-*-*
..

o

o

NO

"~c!e!"'~I'-"'''''

TO

o

NOLOG

••

o

NO

x

•

83

WAS ••
YES..
STMNT
O.
•••••••••• •••• ••• ••• FROM OPERATOR ••

•• *F3 ••

o

0

X

lOG

.. ..

... .*.

...............

•

0

WAS O.
YES .0 STATEMENT o.
FROM
••
·.OPERATOR ••
•0

. .•• A3 . . . .• ••••
0
lOG
•

e

*

PAUSE

H""
..

.

.X •••••••••••

Fl _.X.

···.Fl...·..·•.*
X

...............
BRANCH TO
CONTROL IN
SJOBCTLA

•
0

eF3
J08 CONTROL SW ITCH
NO. " IS CHECKED
FOR OPERATOR
COMMUNICATIONS.

Charts

215

Chart PM.

$JOBC~LJ - STOP Stateaer.t Prccesscr
Refer to Chart 1q •

•••• A1···*·····

STOP
••• •••• _._
••• *••*.*•

x
.'. * •
Bl
.
*
IS
*. *. NO
****82******.*
• III
*PROGRAMMING
MULTIBRANCH TO
*..••
.* ........ X..... NVSERR
IN
..
SUPPORTED..
'SJOBCTLA
..
**..•.-*
•

************ •••

YES

x
•.._.t 1***.******
*

*MTNCNT

GU

*-*-*-*-*-*-*-*-*
RELEASE
..

..
..

THE

..

..

SYSTEM

..

****
** 03 ••
* •
****

*****************

:x ..•.......•..............

•

01-*-._
*****02*********... ... NO
.. .. svc 7 ..III ....
*.*ON SYSLOG
I/O
....
*.•·.COMPLETE
.*
.•......
X*..
.*
.. .. hAlT
......•
*
....
... .. .*YES
*****************

....*

.

**El*******
TURN ON
..

.. INPUT FROM ..
.. SYSLOG SWITCH ..
-JCSW4 B IT2 =*
•
0-

.*.*****.**

*

x
.*.
Fl
*.
.
*
JOB ••
NO .'ACCOUNTING ' .
....
*. *. INTERFACE
.*
SUPPORT .*
*. *.. * .*
.. YES
x

.AT AteT IGNT6 ..
..

TO
PROGRESS

OACCOUNT ING •

•

IN PIS

•

•.***.******•

••
..*****E3**.**.**
* SVC 7 *...
••
•
••

WAlT

..* •*

••

•* *..

***********.**•••

F3

••

.*
*.

x
.*.••
IS

THE *. *..* YES
.* ....

THIS
•• ONLY ACTIVE
PART

*. ••. * .*
*

NO

X

. **~~~*::*.* .

..

*** •• ** •
***03
SET STOP
•
** COMMAND
SW
•

X

X

..

X

WAITR

..

*

***********

**·**G3******.* ••
* INCREMENT *•
** PARTITION
BATCH
*
* COUNTER ..•
********.****•• **

:x ...•..••.. :

.*.x

X

ONLY
PARTITION

..H2**.*'***
*. *. YES
* SET NO **
*.
.* .....•.. X* '* ACTIVE
*
*.
.*
** PARTITION
*...
SW ON
*..
... • .*NO
***********

•.*H3*******
••
SET NO
**• PARTITION
ACTIVE
..
•
.SWITCH OFF'
••*****•• *.

x
1 ******.*.*
DECREMENT
•
*******J
*
* PARTITION
COUNTER
..

***··J3********··
•
CLEAR
*

.* .*

HI".

:ACCTUPDT

..

*

AND
STORE

•
..

*****************

X

*

TIME COUNTERS.
..
IN
..
*PARTITION TABlE*

•*••***.**********•

: •••••••••• x:x •••••• , ••••••••••••••••• :
x

••.***
•
03 *

•*****

X

•
•
•

216

DOS/VS IPL and Jot Control

****K3**··*.*
•• •
BRANCH TO
CONTROL IN
SJOBCTLA

.**•• **********

..

*

Chart PN.

$JOBCTLJ - CATA1B State.ent Processcr
Refer to Chart 16 •

.....•
•• •••• A1.···
CAUL
•
•

...............

··**A5.*.******

*..

••••
• *
•••••*

*

••••
*• 83 >*
•
••••

• 82 III

.'.x

CATAL

PCHOUT

Bl
••
•• IS
••
.>OPTION LINK>. YES

*. ••

CARD

PR.ESENT ••

_...x

.111 ••••

*. *•.• .•
• NO

..

*
*

··82···.···*
MODIFY

FOP PUNCH

STACKER 2

*

•••••••••••

•

•

*•

Bit

X

•

*

AND STOPE IN
ENTRy AP EA

•
•

*.*.*.*FOR
•
••**V.M
••••*••

* CHARACT ER •
••• ** ••••••••••••

~BUr.K
X
**···65·*.*.* •••*
* C le.aR WK REG2 •
A~D SET

*

**
**
***** •••••• *•••••

* J NOE,( RFG FOR
•

A 3-CHAQ

..

C;CAN

*PV III

• F3*

*

>

*

··Cl·······•

•

.*.x *.

it

OTSERR1

X

. *. >.
C2

*. *.

•••••••••••
x
.*. *.

•.*.

it

.*.

*. *. NO
•*
-. *. NO
••
1442 N2
••••••
.* .•..
*. *.
.•
*. *.
.*
.•
.*
x
*•••
*.••
• YES
* YES
••**
* *
*... E2 o"'.X.•
• F2 ...
••••••••••• X:
•.*** *
*** •• * it
:NXTOPRD
x
Tl442

*... .

····*el··········
$-*-*-*-*-*-*-*-*

*SCANR2

GK >

POINT TO
CURRENT
OPERAND

*

••e2··* ••• •

* MODIFY CCW

*>

OFOR PUNCH 1442 > ••••

..
*
*

>

,-'-~.:'~'.c:~ ;-~:",,':'-C'':¢:;'-~:::>7

*

STACKER2

"'."''''~f'<,..

*

..".,..,.. *

X

.*•••••••••••••**•

x
Fl .*. ...

•• NO.* .*OPERAND*. ••

••

••

•••••• DELIMITER A ••

••

*. *. BLANK •• ••

*..•

•. •.

• YES

x

.•

Gl

•*. ••

x

x

*. •• NO.
.• .* .• X.
*. * •.• .*
x
•

•••••

YES

*PV •

• 85·

.* .*
*. *.

*

>

*

x

.*. *.
H1

IVSERR

*.

MORE THAN *. NO
*. ONE OPERAND .* ••••

.* .*

x

.-.**

*•.•
* YES

•..

••

.*. *.
J1

62

••••• *

X

TOOMANY

*•

• > MORE THAN *. YES
' . 2 OPERANDS

*. *.

.•
* •.• .•
* NO

K!

.'.x

TAPE

••

.* •..•

•
'"

•

*

MCDIFY
CCW FOR
TAPE

•

SETOUTPT

YES

*•

STORE IN

•

.. NO

****
•* 82 *
• •

X

•

*..* NO
....X

*****F3 ***.******
MN*
.-*-.-.-.-*-.-*-.
•
PICKUP MOO
**
>
LEVEL AND
•
NEXT CHAR
•
.*********."'*•• **

*.*.

*VMBUCK

•••

ce; *.
•• IS
*. * •
VES..
CHo\R
.•..
*. VALue
LT 0
.*

*.

*.

....
GT q

*

.*

.*

NO

i<

.*··*01)TfotE
*•••••••••
CHAR ..
*• PIJT
tt04 WKREG4
•
AND SET DTR •
* TOCH.I\J)
~EXT
•
..
•
•• **••••• **** ••••
•

x

.* . ••
EIj
.* HAve *. •• NO •
.*
••
BEEN ••••••
*. TESTED .*
*. *.... *.*
• yt::s.
DtGIT~

: ••....•••• x:
VMENO

X

**.**FS*·*.*·*·*
•
RETURN
..
•• •••••••••
*••••••

x

•*
•

'"

G3

.* .* .

.* BLANK •.•• NO •
••
*. ••FOLLOWS
MOD .* .. X.
lEVEL
••

•.

:x
.....•.... :
x
•••••
·PO *
>

lEVEL TO

x

***.**•••*-** *

*O.
C2*

BINAPY AND
AREA FOR V.M

*..*
*,.. ,..*

'*, c::.'*

.* .*
*•••
o YES

• *(;2*****·*

•

...*

ic

••
ANV
••
OPERANDS

*.

IS..

DEVICE

***·*04******···*
'"
CONYER T MOO *

.*. *.
.*.
.E3•IS•
.*. NO. YES.. .• E4 IS "' • *. ••
••
••
MOO lEVEL
..... X.X •••• *. MOD lEVEL
•• PRESENT .*
*. GT 255 .* ••

••••

*• F2 ••••
*
••••• *.x
.*. *.
F2

X

·****03**·******.
* STOPE VERSION>
IN CONVERT *
AND
•
**ND.BUCKET
• POINT TO NEXT>
*•••**._**
CHARACTER
•• **••• **

**
'"

X

NEXT

...*

02
••
•• IS
.> DEVICE A

01
•• FIRST CARD
*. COLUMN BLANK

:X •••••••••••

....x *.

C3
C4
*. *. YES
.* IS NEXT *. *. NO YES.* .* IS *. ••
*..* CHAR
A
.* ..•• X •••••• VERS NO. ••
.*
....
...
*. PERIOD .*
*. GT 127 ••
*.
**.•.•
.*
x
•. >•*NO.*
*. • .•YES
* NO
••
"'*
* >
•• E2 •*

•• IS
• > DEVICE A
H42 N1

SET CATALR *
*>OPTION
SWITCH'
** B~¥C5wa~ **

..
*
*

•..

•

*

**··*·84*·****··*·
CONVERT VER S •
* NO. TO BINARY>

*VMBUCK
PN*
*-*-*-"'-*-*-.-*-*
.PICK UP VERS ION.
• NUMBER AND NEXT.

..

Vf4SutK

••••*••••••••••

•••••

X

VMRTN

*

*•••
* >

.*•.•83···**·**·*

ic

•

>

.*
*.•
*
* YES

x

••
*.*
.PV ..
** 85*
•

*

IVSER>

X

***•• **H3******·*··
STORE MOD
•
LEVEL IN
•
•

CONVERT

*

BUCKET
•
*•***.*••••
** ••••**•

x

******
•
84 •
* *••*•

.*
*.
.*V.M.OPERAND>.

*.

*. COMBINATION
TOO LONG ._

.
.* YES.
•. X.

*. *•.• .*

• NO
: I VSERR

X
••••
*
*••••*

* 83 •
..

••*it••
*'
*·PV
••85·
*

Charts

217

Chart PP.

$JOECTLJ - SETSVA and SETSDL Statement Processors
Refer to Chart 16.
****
*****
*.****
*PG *
•***'**
**PG
02*
*'
*• A2 •*
• > E2*
00
•*' A4 >
•
****

x
. *. *.
A2

x

.'.

SETSVA

.• Ai SVA *. *. *.
YES.*

e..... *.

x
*****•
*PV
*o F5*
*

.

-

o

ALREADY
IN USE ••

SETSOL

•* WRONG *. *. YES
*." SPECIflCATl
ON ••••••
*. *.
.* .*

.*

*. *••• .•

x

*••
• *
NO

• NO

****

*• F4 ***
****
>

•

NVAERR

.it

'SVA AND GETVIS 0
• START ADDRESS'
0

*****************

.'.

*.*.*(.1·*·*******
GK •

C2
CONVERT

*SCANR3

o*-*-*-*-*-*-*-*-*
GET SVA
0

>.

ALLOCATION

".

PS

CONVERT
••••••••
*AllOCA TI ON ••
*10 HEX.*
_ NO

*•. *

0

.x.

*****02**********

*-**
*

*

CONVERT
AllOCATION
TO START
ADORESS

>
*
•
•

.. -.

x

.*

****

x

•* SVA *. *_
YES.*
••••••
DEFAULT
••
*. *.WANTED
••
••
*•••
o NO

03

*. *.

****************.

****

*.** .*X.
.* E2 *. *.
..•. ~?:* nHlfN ':0
*. SVA .*
*.
.*

*.•
• *
NO

·

**F2*******

S1

>

***********

•
•

o **E3******* •

*

INDICATE
BUILDING
OF SVA

•

•*********** •'"

****

•

* •

.t:

>

•
•

*

*

*. *.

*>•

PRAllOC

*****Hl**********

*
**

CONVERT
ALLOCA TlON

0

*

*****
*PQ *
* J5*

•*

:•••••••••• X:
SETSVA3

•

X

J1

.>.

SETSVA5

>.

.•
*. NO
*..• OPERANDS *.••••••
*. *.

.• .•
* •.
*
* YES

X
*****K 1*********.
>SCANR3
GK *

*-*-*-*-*-*-*--*-*
GETV IS
**
** GET
ALLOCATION

it

****
•* E2 •*
****

• •

it

*****J2**********
* GET KEY + *
*INVALIO + USED *
TABLE *
**' INFOR~AGE
tHANGE 0 *
*
AREA
*
*********4=*******

*****05*********·
*I5CAN o 3
GK •
*-*-*-*-*-*-*-*-*

••••• X*

C;FT C;VA
DARAMETER

*

*..

******************•

.-.

x

it

.*.

.* E4 2 "'. *. *. YES..
. NO
.. *..* OPERANDS
.* ....
*. *.
.*
.*
x
*•.
•*
***** *****

* G5 ..'"
***.*

**•

F4

*....x •••••••••••••.

*
..

****
it
*..****F4*'********
BRANCH Tn
..
NVSERR IN
*'
*.* •••••
SJOBCTLA
*•• *._*. *

*• COMPLETE SOL

>
•

**
******************>
WTTH

*F'-'T~Y

..

*

ElJ!,;YRlE

****

SVA

•

'*..
x.

•*****.x

"'.

*****G4**********
*'"
XFER CONTROL
TO S~AINDtR ..
TO COMPLETE '"

*. * ..*NO

****'*************

x
.0.

X

.*
*. *. YES
*
..
*.•* OF END
."' •••••••• X*. * .FILE
.*
**
.*

H3

X

*****F5 **********

.. (.;5

x

G3

.*. *.
E5
.*
*•
YES.' INVALIO ' .
• ••••• SPECH ICATI ON.'
*. *.
.* .*
*•.
* *NO

SVA

..

G'j

.* . *.

.* SOL *. *. NO
*..* OVERFLOW
• *•••.
*. *.
.*
x
*•• * .*
.. YES

•*'****
•
F3*
•

*.

**H4*******

tI.

SOL
*..* YES
*..**. OVERFLOW
....
•. •.. * .* .•
x
* NO
****
•.. F3 ..*
•**** *

**H5*******

•*
*•
*
*
************•

**
*• 'NDICATE
** OVERFLOW
SfJl
**
************•

X

X
*****J5**********MSGOUT
GJ *-*-*-*-.-*-*-*-*
* PRINT MSG ..

INDICATe:
• SVA BUILDING
FINISHED
'"

X

*****J3***.******
*LSTOUT
GJ •
*-*-*-*-*-*-*-*-*
*'" STATEMENT
PRINT
**
..
ON SYSLST
*
****'*************

X

**J 4*******

*
**
*
•

INDICATE
S\lA
ACTIVE

***********

*•
*..
•

•

*

1 nOT ON
SVSlOG

**

*****************

x

*****
*PG
*
,. Bl*

*0
*

SETEXT

•*****************•
x

•*****
•
A2 *
•****
•
218

-

**** >

*****************

••

*
TO START
**
ADDRESS
***••************

•

READ
CONTROL
STATEMENT

••
*

X

•

*
*>

it

ALlOe

*. *.
•• tit
INVAL 10 *.
PHASE
._
*. NAME ••
*. *•. - .*
• NO

•.. ****************•

..

****
•
NXTENTRY
X
*****F3**********
*ROSTMT
FM*
*-*-*-*-*-*-*-*-*

*****
**PQ01**

.
YES.
*. LT 64K *.••••
X.
*. *.
.•
.•
it
* •••
* NO
*****
·PV *
* F5*
••

x

****

·-

it

** INDICATE
*• ALLOCATION
SVA

x

******04*********•*
..
BUILD
**
SOL
'"
ENTRY
..

.

•

•

*-*-*-*-*-*-*-*-*
•
CONVERT
•
*• ALLOCATION
TO HEX
*0
*****************

.- .

•****
•
F3 *
•*.**.
•

X

*.
.* .*

.. F3 •• x.

x
.0.

*.

x
.* •*.

X

*•.
* *YES

*****Fl***.*U***
*CONVERT
PS *

***********

.. F4 ..

SETSVA4

X

*. * ."NO

• YES.*
.X ••••

.'
WRONG
>. YES.
'.SPEC IFICAT ION.> •• X.

• • **** .
•* F4 •* * E2 '*.X.

.*. *.
El

x

it

"****C3**********
'SCANR3
GK •
*-*-*-*-*-*-*-*-*
*'
GET
**
*'
OPERAND
******.*****.******

ic

.• 01 *. *.
• * NOTHING O. YES
' . SPECIFIED .0 ••••
*. *.
.• .•

.* .*.

.' .
**S5******.
.* 84EMPTY*. *1 *. yes
.*
.. * lNDICATE .. ..
*.
CAPO
•••••••••• X.
ON
..
*. * . . * .*
.... INPUT
SYSRDR
•
..

: •••••••••• X:

x
.0.

* •••
* NO

A4

X

-*-*-*-*-*-*-*- YES

*
******.**********

o

it

.*. *.

•*'***•

x

X

•

A3

.* SVA *. *. YES YES.* .* INVALID *•*.
*..* ALREADY
.* •..• X•••• *. DEL 1M ITER. .*
*.*
IN USE
.*
*. * . . * .*
..*
*••
*
*..
*
* NO
*' NO

'. *.
' *'.
83
82
.•GET
*. O. YES
.* PAGE *. >. YES..
•'
VI S
.'
*. *. DEFAULT
.* .•..
*. POOL LT 4K .* .• X.
WANTED .*
*. *.
*. *•. *.*
.* .*
o x _
_ *
NO
* ••
o NO
*'***
* E2 •

X

o·****81********.*•
o SET DEFAlJL T *
o

.***

*
x

DOS/VS 1PL and Joe Control

X

*****K3**********
*SCANR2
GK *
*-*-*-*-*-*-*-*-*
PHASE
*..
..* GETNAME
•
*****************
*

x

*··"'K4**.*"'**··

**

EXIT TO
CONTROL IN
SJOBCTlA

*
..

***************

..

*****K5**********
*LSTOUT
GJ •
*-.-*-*-*-*-*-*-*

*

..

DRTNT MSG

IT101 ON

•****'•*

>

**

*
'iYSlST
*
*****************

x

****

• A4
..

X

X

..

•*****
•
F3 *
•****
•

*

*'***

$JOBCTLJ - ALLec State.ent Prccesscr
Refer to Chart 1q.

Chart PQ.

•• ••••
•
A2 •
•••••
•

•••• A1 ........•

••*
ALLOC
•••••••••••••••
-

·A3
OUL
NUL
OLL

.. ..
.. ..
AZ

.•.x

••

*.

•• •*

.... .... ....

OLO UPPER LIM IT
NEW UPPER LIMIT
OLD LOW ER LIM IT

m

~~~SE ~~~ HlIl~MI~~~NWAROS

•• ALREAOY •• YES FROM START OF SVA.
•• SPECIFIED ......

0

••

A4

x
•••..al···.·.·.*·

*0
o•
OF SVA AS
_E.O. PARTITION 0
o
•
HAKE START AOORO

•••••••••••••••••

··el·······
X

•
•

CZ

• INOICATE ••
..
•
•**.**•••••• •

-

DELIMITER.

••• *

•• *.

..

•.•.•
02··········
*-*-*-*-.-....-.-.
ic

X

_CONVERT

•
INIT IALIZE
•
• FOR ALLOCATION.

..

ROUTINE

•

•

CONVERT
ALLeCATlON

= X'80'
= x' 40'

BG
FG

t:l

.....

•*

x

·

X

••

ALloe

X
:;t:=~~*······~::

GTNXOP

PART OF

SJOBCTLA

•

*.******.******

.•.ic

.•.x

......

·

*. *•• *.*

.-.x

.. .•. ..
H2

HI

*. *. NO
*. •• =DELIMITER
SIGN AS .* ....
••
*. *••• .*

••

••

8LOCKS OF

- REALLOC. SVA

..

•

•••••••*........**•
:x .......... :

.. ..

.
:m ¥b !Abllt •
-•••••••••••••••••
••••
• * •
·• - **•••••••
X

• •••• K3** ••••••••

••

All

•• YES

•

OPERANDS
....... .
•• PROCESSED ••

*•••
o NO

• YES

fo •
..................

•

o INIT IALi ZE
•
: •• X:REOUffi f z~igNTER:

ic

GTNXOPl

•••*•••**

o
***·*G3
•• ••••***·_

•••••••••••••••••

.. HI ... X.

.
····*Jl···****···
--•••••••••••***.**.:X

F~~~~ b~~R2~D

-.
x

-

I¥IT

*.

*.

*. *•• *.-

....
-

x

*-....- ...

YES

•.. A2 •..
••••• •

••

x
•*••••
•
03 ..

-••**.

$-.-.-.-.

-**•••••••*•••*•••.
•
-

GET NEXT
OPERAND

h~~ ER :

••

x

**x•.•

••••

•••

• FS·

NVAE~R

••

AREA

*. • •• *.*

.•.x

.*

••

••

*•••

l T NUL

NO

••••••

.*

F4

.•.x

YES

••

.* - NUL* ••• NO •
*..* OLL
GTE 64K
•••• X•
*.
*. *•• * .* .*
x
.*•••
- YES

.••••••••••• x..

.PY •

• F5·

• *

* ENOLIM
Git ••
• ....GS***•••••*.
.*
*.
•- CALCULATE ..•
BG
-. YES
*.._•. PARTITtoN
. . . . . . . . . . x* REQUEST FOR ..
.*
•
BS PARTITION ..
*..*
..
•. .*
*.*.**••**••**••*•
X

NYAERR

•••

LlMITSl

• NO

-.*••

X
*H4*••

.

*.*****

: AO~Tt4WtAON :

.STATUS COUNTER
•••••
*.*.********•
•
0

•

•

MERGES
X
•••• *J3 ••

·

.CALCULAT E

-••••.
HI •

PA~T

••

:SA~El~NBr6~~~R :

.................*

x*
•••
•

*

•• •* OPERAND •• NO •
_,FOUND IN PIB ._ . . X.

•••*

X

·····J2·*·**·····
GK*

• SCANR3

o

....

-••••••J3·.•

• YES

X

•
•
····*H5···*······

-.**••••••••*•••••.
-UPDATE BOUNDARY.
•_ BOX AND
TABLEPAGE ••

.. J3 •• x.

.

fIIO •

.... X.

YES

•

MERGE

X

• •• ·*G2 ••••• •••••
• STORE NUMBER • OF lK BLOCKS •
.IN REQUEST PAftT*
• OF ALLOCATI ON •
TABLE
-

..

-

MERGESVA
X
*****F~*
:
INM~LHE
:
• COUNTER
OF. . . . .

••

.. ..

SKP6~K

·-*.*...
. .•.x *.

K1

.*

.PV ..

.. .... ..

* ~3 •
•••*

· - ··**.......

••••

:

•• ••

.*

OF ACTIVE

.*
*.•• OUL
*.

••••• •

•* ALLOC ·oO -. YES
••
Lt64K
••••••
*.
.x
*•••
*•••
•• F3 *• •*** •• NO
• •
• 03 •
•••*••
•••• * G2 •• X.
•-

••••••OPERANO
***•••••• *.•

GETKEY

.-.ic *•

.
.•
*.
X NO.- REALLOC -.

i:4

••

• NO

F2

-

•* .*

•
•

*•• *

-

*",-$-.-.-*-*-*-*
GET FIRST
•

..
..

04

BRANCH TO
NVSERR IN

G2 •

*. *. YES
*. *. Of
.* ..•.
SYA
*. _ NO•• ••
x
* •• *
*•••
••

.*

.0.

•••• 03*••••••••

•* OK •• ••
SPECIFIEO ••
*. *.
•• .*

•••** •
••••
•

Fl

•

y~s..

..

•••••••••••••** •••
TSTALSWl

•.

••

* •• *

NO

......

- YES

•·····f:l~····*···
INITIALIZE
•
ALLOC TABLE •

..
•

•

TO HEX
•
••••••••••••••••
*

•

X

NXTFG

_
_

•

C4

)C.

X

PS.

85

X

•.

· -.
••••
03 ••
•• .**.
•

• NO

• •
....
•
•
·····01*·········
·•••••••••••••••••.

PRALLOC

..

.*.*

·.x •••••••••••

•••

..

•• OLL GT NLL

NO •• PARTITION ••
......
ACTIVE
.-

••••••••••••••••••••

*PP"
..
• F2 •• x.

ACTIVE

*. *•• *.*

.... ....

••

.... ....

••

REQUEST
EOUAL STATUS

LIMITS

..

.x *.

.. YES

NO

••
•••••••••••••••••

••

•• '·1 NVALID -. -. YESX

••

NORMAL
o ALLOCATION

-.

X
*.· •• 84*••••••••
*

••

..

AS

.•
*.
•• PAR;T1T10N *.

.•

•

GK.

.•.x

••

*.

•••••BZ.a••••••••
.-*-.-*-....
-.-.-.
- GET NUMBER OF •
•
lK BLOCKS
•
••••••••••••••••••
•
• SCANR3

.-.x

.- PARTITION •• YES
•• REALLOCATED ......

• NO

ALLOC

•• .*A5••..•
••••••

•..••••
A4 ••
•••••
•

.. ADO PARTITION.

·

• REQUEST TO
.REOUEST COUNTER-

.*.*

••

-

••••••••• *••••*••

J5

.*.x

••

ALLOC
OF 'SYA

*. *.

*•• *

•. *.

.• .*

*K3**."•••• **
•••••
* STORE _ IN ••
• STATUS PART •
• OF ALLOC TABL E •

-

••••*••••••••••••

·•

•••• •

*

YES
••••••

x*
••••
.fliP •

• NO

x
••••

X

·

X

·"··J4*****·····
•
•

••
•

• J2·

SETSVA5

A5 •

X

•

...............
****K-; •••• **•••

*
•

BRANCH TO

CONTROL IN
SJOBCTLA

•

•
•

x

••••

-••••.*
o
•

A4 ..

Charts

219

$JOECTLJ - ALLOCR Staterrent Processcr (Part 1 of 2)
Refer to Chart 14.
•'***A2•••'*
•* 44 •*
••••• •
•.**.*
'A1

Chart PRo

..*.

•• **A 1**•••••

*.•

A2

.'.x

OUL

••

•• ALREADY *•*. YES
*.•• SpECIFIED
••••••
*. *.
.*
.*
*•. *

•'* AllOCR '*
••••••*•••••*••••

OLD UPPER LIMIT

NUL s NEW UPPOER LIMIT
OLL
OLD LOW ER LIM IT
NLL = NEW LOWER LIMIT
THESE ARE COUNTED DOWNWARDS
FROM ST ART OF REAL STORAGE

A4

81

x
.'.
'*.

*. *.

•

x

C1

.'.*. *.

X

•

ic

x

NVAERR

•* 'PART' *. YES
*..* SYSTEM
••••••
*. *.
.*
* •.• .*
•

• YES

••• **

x
*
**PV
F5.
* •

*.

• NO

·**B4****·•• **••
•••
•
REQUEST
•
•*••••• **••• *•• **.*•

YES
••••••

NO

x

A5

*.._
ACTIVE
* .RE-ALLOCATED
.* YB
•..• ••.NO. *..* PARTITION
*. :II.
.:11
*.
.*
.*
•.. *
*..•

ic

.*
* •.• .*

.. .'. ..
.. ..

x
.'.
••

*****B2******
••GK.
*·
'SCANR3
"'*-*-*-*-$-*-*-*
• GET NUMBER OF •
* 1K BLOCKS *
•
.***.**
•••• *.****•

•* GETR EAL *. *.

•'
' . IN PROCESS

*••••*

.o*
*.
. ' PARTITION *.

• NO

ALLOCR

•*.***
*
A5 ,.

•

EQUAL STATUS

...

B'i

.'.x

C2 .*. ••

.*
*. *.

*.
.*
*•• *.*

C4

.

•• INVALID ' . YESX
' . DELIMITER ••••••••••••••••••••

CIj

'.

PARTITION

*. *.

··••••' .

.'.

•*SMALLEST* •*.

*.. '

.*.*

• NO

.* .*

NO

.:11 ••••

*•••
,. YES

ic

•

AllOCATION
TO HEX

*

X

X

*****02
*.**•• ****
'CONVERT
PS*
.-*-*-*-*-*-*-*-.
*
CONVERT
*

•
•
•

•
•

**.** •••••***•••*

•·****04··********•

****03*********
BRANCH TO
•
NVSERR IN
•
$JOBCTL A
****** •••*.** ••*

,.
•

SAVE SIZE
OF SMALLEST

'"
•

*

PA~Tr nON

•

.XYES.* .*

• ..• *.

•-*.*.**.****•• *.**

*.

DC;

.*.*••_••

X

•••
*.E 2 ic
*
• STORE NUMBER •

..''** ···El**········''**
'*
*

INITIAL tze
ALLOCR TABLE
BYTE 1 TO

• OF lK BLOCKS
I N REQUIRED
•
• PARTITION OF
AllOCR TABLE

X'40'

X

•• ***f 1**•••• ***'SCANR2

f2

GK'

''*-*-*-*-*-*-*-*-*
** GET
FIRST
**
PART OF
•
OPERAND
•••••***
••••••• ***
•*.*

••

'.

•*

.'.ic *.
ALL

.

REQUEST AND
STATUS eTRS
TO STA~T OF
REAL CORE

•• *.

YES

•

.•

*•• *

• NO

•
•

*•
*•
.****•• **.*.*.* ••
*• .***
'.
F3 *.X.

....• .

•

• MERGER

OPERANDS
••••••••
' . PROCESSED.'

*.

· ..
'*

•
•
•

* *.**-**••**•••*
•••

**.****.*••••••••*

GTNXOPR

··***E3**··**·***
INIT IALl ZE
•

•
•
••• X'

.. ..

X

*****F3·*······*·
*• NUMBER
CALCULATE
*
OF DRAP •
'PAGES AND STORE.
'IN ALLOCR TABLE*

• •••••••*••*•
*.****

F4

•.***'*

GI

X
•••

ic

••

.* SIGN AS*. *. NO •
*..* =DELIMITER
•••• X.
*. *.
.* .*
* .. *
•

YES

·***·G2*·********
'SCANR3
GK'
*-*-*-*-*-*-*-*-.
* GET NEXT
•
•

OPERAND
•
•**••**._*_.*.*
••••

AOo oRAP

*..*

•

•
NUMBER TO
•
*STATUS COUNTER

*

.*.
.* G4 *. *.
OWN
PARTITION

*. *.

•***••• **••• **.**.•

•''**

'*

•*.*-*

*'*

SCAN P 18

..

ON FIRST
OPERANO

*

•**.-••••••••• _•••-

X

*****H3**····*·**
'CALCULATE REAL *
*PARTITION SIZE *
OF •
*• IN1KNUMBER
•
••••**•••BLOCKS
*.**** •• *•

o NO

tc YES

*. *.

.• .*

.* .*

Kl

x
.*.
._

'R'
••
OF REAL
·.SPECIFIED.·

*. *•.• .•
tc YES

x

•'* ••••
•
• A2 •..

NO.

.* .. x.
ic

••*.*.
03 •••
•**.*

**--

220

.

·

*

•. ••

DOS/VS IPI and Jot Contrel

.*
YES .*
• •••• OLL
*. *.

x

**:11.*
*PV *

•• .*

*..
* *NO

*

.. .
••

ALL
*..:11*.PARTITIONS
.* NO
....
DONE
••
*. *.•• .•
x

*

NO

X

AND STATUS

:II

COUNTEP-S
'"
•-**••••
_*** ••** •••

x

•*••*•
•,.**A5•• •*

* •••

,. YFS

•* F3*•
•*.*.•

•******G5**********
CALCULATE
**

**

~EW

MAIN PAGE ,.

POOL '51 ZE

..

• ••. **.** •••••••
._*

_*

*.

.o*

*.

H5

.* . ••
:II •

MAIN PP
LT 0

*. YES
.* ....

*. *•• *.* .*
• NO

x

4*********.*
****.*K
AOD PARTITION
*SIZE TO REQUEST*
*

x
.* •••
*
,. F5*
•••

*PV

.*.x .
*.

.

*•••*
*

:X •••••••••• :

NVAERR

~O

•

:••..•••.•. x:

*PS ,.
AI·

*•*.
LT NLL
.'
.*
.*
*.• *
•

••
•

*..*YES
....

.*
••• *.•

x

J4.' .•.

• F5*

•****. •*
A4

*. *.

x
. *. ••

x

·****J3**·*·····*
* STORE NUMBER *
IN STATUS
*** ALLOCR
PART OF
**
TABLE *
*•••*•• **.**.****

*. •.

' . OUL GT NUL

X

..
*..*..
VE S.
X.

*. *. YESX.
.* . * =PFI)(
NO
...... .

••

X

x
*•••

.* .

NVAERR

:.......... x:
x
.*. *.
Jl
-. *. NO •
.* •*FOUND
OPERAND
••
IN
•••• X.
*. *. PIB .* .*
* ..•

x

E5
.•.*

PS

* ...
* *NO

H4

*. *.
••
.*
.*

*. ••. *

x

X

ic

*••*
*• Gl *•

X
*****Hl**********

••

NO

• NO

•*****G3 **•••*.* •••
•

.'.x

: X•••••••••• :

.•.x *.

PARTI TION *.
. yES
.... *.•• RUNS
REAL
••
*. *.
.*
*••• .:11

Gl *.X.

GTNXOPR 1

~D

PFtx

x

.*. * •
E4
•*PARTITION*. *. NO
.*
'.
*. ACTIVE .• ••••••
*. *•• * .*
* YES

LIMITR

•

=

:X •••••••••• :
'**

.*.x * •

..YES .* .* OWN •. ••
.X.... *. PARTITlON .• .*
*. *••• .-

'.
* 03 *.x.

X

NO

.o . . . . . .

: x•••••••••• :

NO

···**01**·*·*·**·
FOR *
*•*'INITIALIZE
ALLOCATION
**
ROUTINE
**••• ****.*.***•••*

••

. *PARTITION*. ' .
*..* RUNS
~EAL
*.
.:11
*. *•• *.*
,. YES

~

*

x

•••••
*PV *
• F5*

• *

*

NVAERR

,/

Chart ps.

$JOBCTLJ - ALL OCR Statenent Processcr (Part 2 cf 2)
Refer to Chart lQ •

••
*.*
*PR •
* H5*

•**

Al

x
.* .*oo

.*
*. YES
*.. *PFIX = YES *.••••••
*. "'..
.*
* ... * .*
•

B1

NO

x
.*. * ..

CONVERT

.*.*

. * SOL "' . *.
ACTIVE
.. '"
*. *.
.*
..*
* ••
*
'" YES

NO.*

..... *..

x

• .*** *
El '"
*'" •••
**

*.

83

.*X. * ..

WRONG
LENGTH

*. *.

"'

....
*

*•

.*

"' .. YES

.*

.* ........

NO

x
.' .*.
C3
*.
.
.*
INVALID *. YES.
*..* CHARACTER
."' •• X •
*. *.
.* .*
*. * to·NO

x

.*. *.
C1
.* MAtN *. * ..
NO.*
..... *..
PP > 4K
.*
*. *.
.*
.*
x
* •• *
'" YES
.****
*PV *

••

*..·*··A3*·******·
CONVfRT
**•
*
*****.*.******.

'" F5*

X

NVAERR
01

.* .* .

.*
*. *. YESX.
*..**. PHASES
IN
SVA
.* .* .....
*. *. .*
* NO
****
** El *.
•• X.
*.**** X
• *.**e 1*****.** ••
*.. ADO SMALLEST •*

.* .*

*..

e·

.REAl PARTITION ..
'"
SIZE TO PP
'"

*

*

****.************

03

.'.x *.
ODD

NUMBER

*. *.

*. *.

.* .*

.

.* YES.
.... X..

* ••
* -NO

E3

.'.x

"' ..

..'"
... ..
4*********
LAST
*. YESX..
*****E
BRANCH TO
*..**. CHARACTER
IN
*...*
= 'Kf
.* .* ......•. X** NVSERR
SJOeCTLA
**....**
****~**********
* NO

: X .................. :

x

.* .....
Fl
.*
*oo
.*
*..*.NO
"' .. PP GTE 16K
*.
.*
*. *oo .* .x
.. YES
*****
*PV ...
*•F5*
*
'I • •

X

X
*****F3**********

***CONVERT

*•

•
*••• *•••••• **.**.•

•

NVAERR

···**Gl****** •• **

*'"

*'"
..
*
****.************
'"
..
..

UPDATE

BOUNDARY
BOX AND
PAGE TABLE

**

TO HEX '"

...

X
****G3*********
REtURN TO
...

...

*

CALLER

***************

...

•

.··*HI-··.··.··***
X

•
•
'"

EX IT TO
CONTROL IN
SJOBCTlA

*******••••** ••

Charts

221

Chart PT.

$JOECTLJ - ~iscellanecus sutroutines (Part 1 cf 2)
Refer to Charts 14-16.

·

****A 1•••• *••••

'"

TXCUU

•'" ****A2···*·"'···
•'"
HEXCON

-

·

,.

•*.***.********* •

***************

x
.*..

TXCUU

HEXCON

B1
*..
•* 6
*.
.*CHARACTERS *.

62

•* ****44*********
•*
CNUNCO

·

-

***************

.*.X *.

CNUNCD

*****B3**********
** SET POINTER **
SVSIN
: se~I~t2T:~~E :x .... • .. • ..

.* VALID "'. *.
NO.*
*.
IN
.* NO
.... XX.....
FORMAT
.*
*. LENGTH .*
*. *F3 .*
"'...*
*
.
.
*
"' ...
*
*....
'"
'" YES
'" YES

•

*****************

*-*-*-*-*-*-*-*-*
.CONVERT
HEX CUU*

-**************."'..*
BINA~V

TO

,.

F4

**

CNUNCOl

X

*.

*.

****

'" SVSXXX

****

*-

X

CONVERT
*
*·****C2**********
* EBCDIC TO HEX.
** AND
SET UPPER *
CHECK LIMIT ,.
*
TO FF
*
*****************

-

..

x

X
*****C1**********
*HEXCON
PT'"

..

CHKPGU

** G3 **

-****-

x
.*..
*..

PP:GUNT

*****(5**********
.* THIS
IS
1'..
* TNIT l=IEGISTER *
A
*..* ............
YES
*FOD PROGPAMMER *
*..**.PROGRAMMER
X'"
U"(fT
*
UNIT.*
•
*H4
*
C4

***** -

*...*
* •• *
*

'"'**."'***.****.*"'*
"
..

NO

: x............ :

......................... x:
X
*****01**********
PUB
'"
* SEARCH
TABLE FOR.
,.

X
*****02**********
*CHKRNG
KA*
*-*-*-*-*-*-*-*-*
*
CHECK
**
* CHARACTER
********RANGE
*
.... *******

TXCUUl
'"

.DESIRED DEVICE ••
'"

SEARCH FOR

'"

'"

cuu

'"

*****************

•* El

-.

.x

•

****.

TABLE

*.
.* .*

'" YES

'" C3*DNEERR

*•-

****

X

TXCUU2

•*•
*.
• * CHECK * •
•
NO.* FOR CHAR *•
•• X.... *.
RANGE
.*
*.fQ TO FF .*
*. *.. *.*
x
'" yES
****
*
*
* G3 *
*
*
E2

••

*. ,. ... * .*

*PV '"

*****F
1**********
,.
SAVE DEVICE *
'" TYPE AND PUB
*

'"

.POINTER.
.HI *
***********.*.*.*

X
****G 1*********

•

RETU~N

TO

CALL ING
SEQ

..**************

FROM

THE

PUB ..

*
•

..

,.

2. THE PUB ADDR ESS IS
SAVED IN REGISTER
POINT4.
3. THE PUB PO INTER IS
COMPUTED IN WRKRG3.

IN IORGSA

X
****G2*********
RETURN TO
CALLING

,.

*****04**********
'"
LOOK UP $YS
*
UNIT IN
*
** SYSTEM
UNIT *
* TASl E $VSUTB *

·

*

*

X

. *. "'.

E4

THE

.* . *.

·•

.

* ERR '"
* CZ*NLU

*****

****

*cV

-•

*F3
1.

2.

'" F4

****

UNT FNO
MUST

BE X'

LAST CHARACTER
MUST BE t .
(AS IN X'CUU')

****

*•

G3

*
'"'.x.
.

• .
x

•

UNIT NUMBER
IN UNCLOR

**
•

*****************

.-.x

*.
IS
*. *.
NO.* • '" UNIT
.....
*. *.
NUMBER TN LUB.*
TABLE .*
*. **J2
.*
x
•• *
F5

*

*****'*
*PV

.•-

NLUERI':!.

X
****G3 -***.****
* BRANCH TO '"
** NVSERR
IN
'"
$JOBCTlA
*
***************

X
* ****G4******"'**
RETURN TO
'"
'"

CALL INC

'"

* ***************
SEC
'"

1..

POINtl IS
INCREMENTED BY
3 TO PO INT TO THE
FIRST CHARACTER
Of XXX.

IN ITlALlZED TO
A 2 AS A CHARACTER
COUNT REG I STEI':! ..

DCS/VS IPL and Jot Ccntrcl

'"

'"

*

YES

'" C2*

* •••

2. PO JNT3 IS

*K2
CHECK ONLY LUBS
FOR THIS PARTITION

'"

YES

*****F4**********
*SET UNIT CLASS *
...
* AND SYSTEM
'" CLASS IN SAVE '"
* AP EA UNClOR '"
*
*H2
'"
***********"'*****

FI RST TWO CHARACTERS

SYSTEM CLASS, NtCl AND FICl
POINTER, I S SET TO A 1 IN
UNCLOR BYTE O.

2.

X
*****E 5 *••***** **
SAVE
* PROGRAMMER **

YES.. .* LAST *. *..
NO.* .* UNIT
FOUND *. *.
... *.
ENTRY
.*X •••••••• *.
IN
.*
*.
..*
*. TABLE .*
**....**
...*
x
* •• *

_H4
*HZ

***
**01') **** ******
*NUMCON
pu*
*-*-*-*-*-*-*-*-*
* CHECK xxx AND '"
* CONVERT To
*
'"
BIN~RY
'"
*'*****"'**********

.

• NO

E3

X

CNUNCOl

*****"'**"'*"'******

•*****

**
SEQ
*****::t.********

-J2
1.

222

-

***************.*

*
*

-Hl
1 .. THE DEVICE TYPE IS
SAVED IN DVCTYP

X
*****F2**********
'"
PACK
HEX
*** TO BINARY
*

·

'" ADDRESS. COM- '"
,. PUTe THE PUB
'"

**

NEXT

X

FDSY$U

ENTRY
*
***********
*.*•• **
x

x

"' ..

NO.*
DEVICE
.... "'.FOUND IN PUB

*.

•• *
•*****03*******
•...
'"
ADDRESS
'"
'"

*

-****************

*.* SYSIN. * . *. OTHER
··* . *.o~V5~~~R .*.* •• ":
**.. ... '"*
x

*

ENTRY

84

.

****A5 *******.*

•*

X

*****r,5
***********
•
PROGRAMMER *
**0 CLASS
IN BYTE '"
OF UNClOR *H2*
********"'*****"'**
*SET

-

.

X
****H5"'***"'****
RETUI':!.N TO
*
CALLING
*
****************
SEQ
*

'"

*

Chart

pu.

$JOECTLJ - ~iscellanecus Sutroutines (Part 2 cf 2)
Refer to Charts 14-16.

*
. ····.11·······*.
..
••••••*•••

..•

UPDSAV

••• ·A3·* •••••••

*•

..

X

•• ***e I ••••••••••

..
•
..

*'

INCREMENT
BLOCK COUNT

*82

*02

**

1.

..

2.

..

*•••••••••••••••••-

x
••••• C1*****••• *.

• COMPUTE ADDRESS.
•
OF NEXT
..

.AVAILABLE AREA ..
• IN LINK OUTPUT ..
• BUFfER
*C2-

••

*••••••••••••••• *

*****

UPDSAV

LNKOUT

*C2
1.

2.
3.

****** ••• *•••••••

••****
•* ****A4*·*
••
NUMCON
*

.*.** •••• ******

•

*

THE INITIAL VALUE
OF BLKCNT IS O.

OLD BLKCNT, WRKRGl,
TIMES 80 EQUALS

•
TO 9
*
•••
********.******•

•
*H5
•
"'***.******.*****

DISPLACEMENT IN
OUTPUT AREA.
01 SPLACEMENT PLUS
OUTPUT AREA STARTING

~gemsADm~p~F

*

X
••• **C3 •• *•• *••••

•

..

SET OUT PUl

•

IN CNTFlO

•

BLOCK COUNT

•
•

•

FROM BLKCNT

•

••••*••••••••••••••

.***.*****.****

**

•

BINCON
X
*** **85
**** •• ***.
*SCAN D 3
GR*
*-.-*-*-*-*-*-*-.

•

LNKOUT

131 NCO~

X
***·*B4*****.****
PANGE
•
* SET
LIMIT IN
*

NUMCON

THE OLD BLOCK COUNT t
BLKCNT IS SAVED IN
REGISTER WRKRG1.
NEW BLKCNT EQUALS
OLD OLKCNT PLUS 1.

****A5 •••***.**

..

•

CHKRNG

•

'"

POT NT TO
DAPO\METER

*

X

*****C4*****.*.*·
*CHKRNG
KA'"
*-*-.-*-*-*-*-*-*
*
CHECK
..
*CHARACTEP PANGE*
..***************

·

.

C'5

..
'"

.*.x *.

*. *.
.* .*I\"-l DID
EQUAL
n·IE: .*
*. SCAN .'"
*. *•• '" .*

YES

.. ••• *.SIGN END
•

NO

NEXT AVAILABLE APEA.

: x •••••••••••••••••••••••••

X

01 .*" ..
*****02 ********.*
. *PREVIOUS
*. *. NO
·*SVC7WAIT**
* .. FOR .. *
*.•*•• COMPLETE
tID
........... X'*,. PREVIOUS .. ..
.*
....
I/O ON
* ..
*..*
.... SYSlNK * ..
.... * .."YES
********•• *•• *.*.
4O

X

**··*E1***··*····
• MOVE STATEMENT *
'* BUFFER TO '*
.. SYSLNK OUTPUT ..
•
AREA
••••••••
*** ••• **...
.,.

epc~

J~~~11T

•

X

*E2

SY5LNK OUTPUT AREA IS

~2?

X
****·03···**····*
*EXCPROG
KL*
*-*-*-* -. -* -*-*-*
*WRITE ST ATEMENT*
** ON *E2
SYSlNK
*
•
.**.***** •• *.*•• *

~VT~~

AT CNTFLD.

!,T~~Tr~t;

·****E3*******.**
*.. n:Qn
••
nrl(
~I

•*• COUNT

BLKCNT

*

•

******************

04

."'.x "'.

n5

..

.x *.

.*CHAPACTEP*. "'. NO • NO • '" .* 8 *. * .
*..* RANGE
FQ
.* ..... X.X ... *. CHAPACTEQ$ .*
*.

TO Fq

*...*
* .. *
*

.*

*.IN

LENGTH.*

*...
* •. '" '"
*

YES

YES

X
*****E4**********
* PACK INTO
* TnRC;C:;4 ANO
*'"
•
L;UNVi:R -I Hl
*
BINARy IN
*
*
WRKPGl
.***************"'.
NVSERR

: •••••••••••••••••••••••••••••••••••••••••••••••••• X:X •••••••••••••••••••••••• :

X

X

..

****F3*********
RETURN TO
*

**

CALL ING

SEQUENCE

*****••*****"'**

*'

•

*"'***F"i
****.*****
*CONV DAQAMETEQ: *
* TO BINARY IN *
'" ~FGS POINT1,
*
NT2, AND *
*'" POI
pop·rn '" J5
*
****"'****"'*******

****F4*****"'***

·
•*

CHGSTrT

.
*

***************

X
***"'**G4******.***
SAVE THE AOOR *
* OF THE PROG *
* CHECK ROUTINE '"
* FOUND IN THF '"
* NEW PC PSW
'"
*****************

CHGSTT

*H3
1. MMIODI YY

2. DD/MM/YY

3. HH/MM/SS

X
*."'**H4**********
* PUT INS T ADDP *
*OF INST FOlLOW-*
* ING BAL IN
'"
'" ADDRESS FLO '"
* OF NEW PC P SW '"
*****************

X
*****G5***"'*****
RETURN TO
*
'"

'"

..

*

*****H5*********
Bf)ANCH TO
*
NVSE~R IN
*
*
$JOBCTlA
*
.**************

.... X*

_J5
1..

IF PROCESSING THE
NTl CONT AI NS
""M OR 00
PDINT2 CONTAINS
DO OR MM
POINT3 CONTAINS YY
TF PROCESSING THE

DATE OPERAND--

DO!

X

**J4*******
PROG *
CHECK TO
*
**FORCE
*RETURN IN LINE *
* TO CALL ING '"
'"
SEQ.
'"
**********'"

*

CALLI NG

SEOUENCE

***************

2.

C LOCK OPE RAND-POINTl CONTAINS HH
PO' NT2 CONT AI

NS

MM

POI NT3 CONT AI filS 5S

X

*****K4*********
NSI FOLLOWS *
'"

'"

BAL *

INSTRUCTION *'"
***********."'**

Charts

223

Chart PV.

$JOEC~LJ - Error Suereutines
Refer to Charts 14-16.

•• ••••
PO *
• H3*

••
..

..

PNPERR

.•

•••••
** *.
.*

X
•••• *e1 ••••••••••

NDTERR
•

POINT TO
DES IRED
MESSAGE
IA20D

*

•
..

.

. ..

PEH4

•
•
•
..

*•••••* ••••••••
.Hl
_••*

NlUERR
• ••••e2**ic ••••••••
..
POINT TO
•
DESIRED
•
•
MESSAGE
•
•
•

lA40D

•

.... 1
•• •••**..........
*•

X

ONEERR

•• • •• C3 ••••

..

***•••*

POINT TO

:

:

mm~

•

-

•**.*•••••*• •

• PT •
• EI-

IC30A

•

•
.HI
•
•••••••••••••••••

ic
··*··C4•..••••..•
•
..
..
..

POINT TO
DESIRED
MESSAGE
IC30A .HI

X

IVSERR

-

• TURN AUTO - CANCEL SW- ON •

.....

REFERENCES
TO
PVCl:
PBB3, PEC3

X

•• 84 •••••••

•
•
•
•

..•••••••••••••••••..

•

85****·*·
•••TURN
AUTO •_

.

.. *

• CANCel SWITCH
*
ON
..

*,)1:*********

X
••••*es*-••••••••

..

•
•

..'*

*

.

Pot NT TO

MESSAGE
ISOOI

_
•

*Hl

..

.*********.****.*

•
ic
X
•
•
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••• x••••••••••••••••••••••••

.

•••••
·po '"

**•••

.....

INAERR

...

.. 04.

X

••••• Ft •••• ••• •••

..
..
..
..

POINT TO
DESIRED
MESSAGE
ICIOA

..
..
..
•

.HI
*
•••••••••••••••••

*

••
**•
*PN *
* 81·

*PE •

.. G3-

••F2 •••••••
•
NOP
•
ERROR

.

*_

EXIT
EREXITI

X
··F3._.····
*
**
*

**
..*

-

•••••••••••

..
•

BRANCH TO
OERRTN IN
SJOBCTlA

*** ••••••••••••

_
..
•

*•

•
•
..

POINT TO
DESIRED
MESSAGE
-IA700
.HI

..
•
•
•
..

•••••••••••••••••

• *
....

•

• • • X. TO
•

OTSERR

•

-

.• POA2,

•
*
**...

*•

•

MESc)AGE

PVG3:

DES IRED
MESSAGE
15100
.Hl

:MESSAGE::·OmR iPHoN· •••••••••••••••••••••••••
:iA2do ••• :. iNVAL io ·oeViCe·TYPE· •••••••••••••••••
: mdo···:· iNVAL io ·LOGiCAL •uNit" sPEci mHiaN··:
:mcio···:·oEViCE"Not.:oEFiNeo···················
:iHcio···:·iNvALio·oemntATUs················
: icioA·· -: ·PLEAse- Assic;':sYSROR ;svsi PT;svSlNi<': -:
: iBoA··· :·PROGRAM ·Not· FOuND····················
: ipooo···:· iNvAL iii" ALLoWioN···················
:iSOii···:· iNvALio ·stATEMENt··· •••••••••••••••••
:is ido···:· siHeMern ·OUi"OF· seQuENcE· •••••••••••

Des/vs IPL and Joe Contrel

•

X
***.H3*··*.**·*
BRANCH TO
ERRRTN IN

$JOBCTLA

.* ••••• *.**.* ••

POB3

•

*•

*

•

...

•
•

*

•

...

****.***••** •••••

.•••••••.••.••••••.••••••• x.x. .•••••••••••••..••.••••••••••••••••••••••••••••••••
.
.

• Hl

PQB5, PQF4
PRBI, P~U

-1 POOD.HI

X

.*•••••••••••••••*
•

PPA1, PPGl

PO! NT TO
DESIREO

**·*.G3.*.*.*.**.
* POINT TO
•

•
..

224

CANCEL SW
ON

REFERENCES
TO
PVF51

NVAERR

..• *.* •• *••••*
••• *
• REFERENCES
•

ic
*****G2*·*·· •• **•

TURN
AUTO

*•

•

~~~~: ~~n
X
****.F5 _* ••••• *.*

OTSERRI

•

X
•••• Gt•••••••••

•

•••

X

NDSERR

••••*

**• :*

$JOEC'ILI< - l.ELTYP, VCl., & TPLAB Staten:ent Prccessors
Refer to Chart 17.

Chart CA.

****

*

****

*

*
*•••• *

••••• A1*·****··.•

'"

SJOBCTlK

A3

**
•***-***'tPLAB
•
•• ***** ••

'"

• •••••••*••••••• *

*·***A4**·*******
.MOVE CHARACTEP *
*
STP]NG
*
•
TO
:+
** LABEl
OUTPUT *
A.R EA MTF 10
********.** ••• ***

NO

••• X*STATEMENT BEEN ••••••

*.PROCESSED ••

*. *..* .*

*

TPlAB
X
*****B2 *.** ••••••
• INITIALIZE
..
* LI NKR4 WITH •
*
ADDRESS
•
** OFROUT!
ER"'OR
•
NE
•
*** •• *******.****

• ****81*********·

*SCANR2

GK ..

*-*-*-*-*-*-*-*-*
POINT TO
..

'"

TAPE '"
*.. OPERAND
iNN) NSO (NN) ..
****************.

OTSERR

X

84

*****63**********
*SCANP2
GK*
*-*-*-*-*-*-*-*-*
'"
POtNT TO
*
•
QPERAND
*
-FILE 10*****************

*

.*.

.*.

••

*. ••• *.•
• YES

X

X

*PARTITION LABEL'"

'"
AREA 80 IN
...
'"
WRKRG3
'"
.. -ASSUME TAPE- ..

:~~~~~~1*~~~~~~.:

*****************

•

x

•..

x

*****~
1*****.***...
SET EXTENT

'" Af:lEA COUNTER
..
TO 20 IN

..
..

'"
WIlKRG3
• -ASSUME NSD-

..
*

***********.*****

....*

YES

X
*****Hl**********
*
•
'"
*

*

"'''''''*.'''.'''*''''''''''''''''''''''''

*..

x
•• **

*

*

.*.x *.
*4o
*
.*
...
* •. *

J1

.*IS LAST ••
OF OPERANO
A PAREN

'"

I1rT

**

AREA
** LABEL
WRKRG3 *K5 *
******.***.*.******

F3

.•
VES.* IS

X
*****G2 ***.*.****
.. COMPUTE ADOR •
OF THIS
*
*PARTITION LABEL*
* SAVE AREA
*
***********.***.**
FROM PIK
*

*

x
.*.
...

VER

*. *4o

D~~r::T

.'.x

.• 05 OtD *. *. * .
• NO.*
x ••• *.
COM"'A
••
•• END SCAN .*
*. • .. * .•
x

.

• OOOOOOOOOS

.-

*

5'

•

****

*

•

~J

nr::1t

J5

****

'" YES

*

'*

•
X

**

••••·E5.·**.*.*.*
*CNUNCO
pT.
.-*-.-.-.-.-* ..... -.

•

* TO SYMBOLIC •
• UNtT ADDR.ESS *
•••
** •••••**••••*

.

*
COUNT fOR
* TAPE TO ZERO

,..

**.***.******.**.

*LUNVt:Kl

X

JBCSW5 '"
*.SET
TO INDICATE '"
.Tf'LAB STATEMENT*

* PROCESSED

*

•.*******.*. •

•• .*

• NO

X

X

*****G3*******·**
*CHKRNG1
QR*
*-*-*-*-*-*-*-.-*
.tHECK FOR NUM- '"
*ERICS IN GENER-'
* ATION NUMBER *
********** •• ****.

..

X

*.***H2*****.****

-STORE LENGTH OF_
•
PROG LABEL
•
'AREA FOR L10CS *

-AND THE LI NKAGE*
.. EDITO~" K2 •
*****************
****
•

*'"

TPVER

••

.•

x
.* •••
H3
IS

*****G4*******·**
:+
RESET DATA
'"

* LENGTH

•

*

*

TO 80

CHARACTERS
AND STORE IN
DTALGT

*
•
*
•

x
.*G5 .****.****
*..*
SET AITS tN *
JBCSW5 TO
*'" ALLOW
OLAS
**

'*

•• ***K 1**********
• NUMCON
QR ..
*-*-*-*-*-*-*-*-*
• CHECK NN AND ..

**

*****************

*. ••

*. * •• * .*
•

**** ....**••"''''*.* ••*

X

•**** •
'" J2 *

.*

****J2*********
BRANCH TO
•
IN
'"
* CONTROL
$JOBCTLA
'"
***************

•
'"

*K2
I. FOR LIOCS STORE

~MA~mm

FIELD TO 'TI

TO INDICATE

*

*.**

X

**.**J3 **********
*CHKRNGl
QR*
*-*-.-*-*-*-*-*-*
*CHECK FOR NUM- *
• ERICS IN VERS ION NUMBER *
**.***.******.***

*

•*••A4** •*
•**** •

•'*

.*** *

*

J2 *
******
•

J5

*

X

*.**JS.******.·
TO
* BRI\NCH
NVSE~R IN
•

*

*
•

*K4
INCLUDES FILE
SECUf:I: ITY, BLOCK
COUNT, AND SYSTEM
CODE •

.**.

****

x

*

*

****

'"
•

TAPE
*•
***.**** •• *.***.*

*
*

**.*

J2 •• X.

X

*
*

x

NO

·.
·.

*****H4**·*******
SET FILE TYPE :+

•

YES

•* 04 *
>

'.
*....**.

*

OR TPlAB

****************.

x

oVERS ION NUMBER.> ••••
BLANK

*.

::)Y;)AAA ,.

**F4*******

*.
.*

GEN- *.
•••• *ERATION NUMBER.*
... BLANK

x

BINARY

*

·

'"

TPlAB

X

.*'*.*F 2 **********
* OF PART! TI ON

-COMPUTE LENGTH'

X

..

.
,*

FOR
*
'"
********.**

F2 •

.. YES

CONVERT TO

:+ H3 ... X •

****
X
*****E4******·***

'M

kTFlG2

*

•**** *•

•

*

•

.**.***.**.* •••••
****
*
*****

***E3*******
SET FLAG •
*

•

•

* YES

.***
*QS:+

• .)..

X

*•• *

J5 ..

****

X

*****e5******* •••
*SCANQ2
GK*
*-*-*-*-*-*-*-*-*
• GE T SYSXXX
•
* OPERAND
•
***** •• ****** ••••

*•
NO
* ..*SHORT C;TPING *........
..
*.
.*
*. * •. *.*

:.••....•.. x:

•
ADJUST REG• ISTERS POINT!
"'AND PO INT2 FOR
•
CONVERSION
'"
ROUT INE

CHA~ACTER

.*. *•

*4o
*•••• ***E4*.X.
•

,.

*'*
*******•• *******.**

*INtTtALI lATION

* * •
****
HILL
X
·****04*******·*·
*INSEP.T DEFAULT ...
VALUE
'"

·••

X

* •• **B'5*****.***.
*FDKTV
QC*
.-*-*-*-*-*-*-.-*
* STATEMENT

x

C4

.. 04

LB TOUT

•* IS *. "'.
.X ... *..
OP ERANO
.*
*. NSO .*
*. "'
.*
.. NO.*

..

• • *** *

X

:.......•.. x:
x
.* .*.
GI

*
•

.*

NO

*****03****·*···*
*INlTlAlIZE REG-*
* ISTER POINT4 •
'" AS POINTER TO '"
* LABEL STORAGE*'
•
AREA
*
.*******.********

•

NO

'"

*.

*. *.

*. *APOSTROPHE.* .*4o •••
*..
.*
x
*. * ~'"YES
.***

•.. A3 ..•
•*** • •

"' .
.*
*. *. OPERAND
TAPE
.* .* ...... .
*..
.*
"' ... *

x••• *.

(3

.*.

*.
IS
FIRST
CHARACT ER AN

• * •*

x
*.**

•*•*.
El

• NO .. *

• ***

•* J5 •*

**.**02 ••• ** •• **.
*CONCAT
QM •
*-*-*-*-*-*-*-*-*
• BUILD COMPLETE *
• CARO IMAGE
..

**********

*****01
'"
SET LENGTH OF ..

•

NO

CARD
....... 4o ..
*.SPECIFIED.*

.. YES

*

x

4o" (.2 WAS * .. ...
.CONTINUATION'.

VOL

*.
4o.... STRING *..*
*. *4o *K4 •• .*
x
* •••
.tete.
* NO
*
•
:+ E4

.* e1 oro"' .. .O' *.
NO.*
•• •• *.. BLANK END .*
*. SCAN .*
*. * •• * .*

x
.*.
••

YES.* .* LONG

*

x

x

****,,5* •• ******

*•
••
VOL
*.**.***********
•

*

x

**.*'"
·OS *
* C1*

• *

X

*

X

*.
VOL *.

* YES

LBLTYP

•

A4
**** *

x
.*. *.

.* .* HAS

****A2 *******_.

**

43 •

tJOBCTLA

."'*************

•

*K5
POINTl lS POINTER TO

THE FIpST 'N' OF

INN'.

IN

INN' •

POI NT3 I S SET TO ONE
LESS T~AN THE NUMBER

OF CHAP,ACTERS

BYTES.
2. FOR LNKEDT STORE
IN COMREG + 44.

x

•**.*•

.. F2 •

***** •

Charts

225

Chart CB.

$JOBC~LK - ~LBL Stateaent Prccesscr
Refer to Chart 18.

····AI·••·._••••

........ .....•

••
•_

TLBl

_

·•
·•

****A3*****.***
*A2
*
*'" RETURN
FROM *
* $JOBACCT
*
***************

•

.....' .

****

.. ...-.. ......
+-*-*-*-*-*-*-.-.*

,.
STATEMENT
.INITIALIZATION

*

_

__

*
•

x
••••• e 1******* •••

,. CLEAR FIELDS ,.
• FILE 10 THROUGH.
* EXPIR. DATE ,.
,.
IN OUTPUT
,.
..
BLK.

.......... ......
_

*

*

83 *.X.
****** x
B3
*.
.*
* ..
YES .* OM {TTED * .
......
*. OPERAND .*

****82*···*****
'" RETURN FROM *
FDKTID t LINK *
******.*********
REG+8
*

*

*. *.

'.
*.x.

64

****
FSCAN

.'.

X

*****81*•• ***".**FOKTV
Q(-

*

FSCAN

*************.*

*

TLBl

.•

****44*********

*

...

• x
.0.
84

*.

*. **B5
**** ***** '"
RETURN TO

"'.

*..* YE
S
*
*..**. ENDBLANK
LAST
.........
X*
SCAN.*
*

.* .*

*..*
* •• *

*..
* *NO

*

LINK REG

****."'***"'*****

'"

*

NO

: x............ .

X
*****C2**********
*CHKRNGI
QR*
**-*-*-*-*-*-*-*-*
CHECK DIGIT '"
*
RANGE
*
*
•
*****************

X
*****C3 ********QC*
**
*FETINSRI
***-*-*-*-*-*-*-*-*
PRocess AND '"
INSERT FILE *
* SERIAL NUMBER, *
*****************

X
*****C4**********
.. SCANR 2
GK*
*-*-*-*-*-*-*-*-*
* GET NEXT
* OPERAND ..•
•***************.*•

FSCANl

****C5******** •

. ....... •*

FSCANI

**

• *************** *

:.......... x:

*.
***-*-*-*-*-*-*-*-*
...-.............*
X

*****01.*.***
••QC.
*FDKIVNM
,.

SET UP FILE
NAME AND KEY

FIELDS

,.
,.

i<

******02**********
0
*
POST
*

X
*****03**********
*FET INS RT
QC*
*-*-*-*-*-*-*-*-*
* PROCESS AND ..
.. INSERT VOL
*
* SEQUENCE NO. *
*****************

FTENDl

*
* PARTITION
'" COMPLETE
*
*****************

•

•

CLRI

*****05 *********.•
o
*
CLEAR
*

'"

Tf MF

'"

COUNTERS

o

**
*

*****************

:........•. x:
: x•••••••••••

X

•*****El****.****·
•
*
LOAD MAX

.. LENGTH MINUS
,. 1 OF FIlE-IO
,.
INTO WRKRG 1

,.

..
*
*••••••• _••••••••*

X

.****Fl**********
QO_

*FDKTIO

*-*-*-*-*-*-*-*-*,.

,. PROCESS F Il E

*

TO OPERAND
,.
.CHECK DATE
*Kl*

*****************

X

X
***·*E?:***·***"**
*FET INSRT
oc *
*-*-*-*-*-*-*4-*
* PROCESS AND *
* INSERT FILE *
* SEQUENCE NO. *
*****************

*****E2**********
*FETINSRO
QC.
**-.-*-*-*-*-*-*-*
CHECK AND
•
** OUTPUT
INSERT DAY IN •
BLOCK *
*****************

X

*
..
,.
*..

*
WAS
ENTRY
,.
FROM
,.
EXEC
*••••-*

.*_.*.__•••
**'"

GET FILE
SERIAL
OPERAND

..
.X ••

*
•

*
"'****************

x

**** 0
•
83 *
•*****
*

*Q4 *
* 04·

*

X

******J3*********
BRANCH TO *
NVSERR IN
*
•

OKl
RETURN FROM FOKTID IS TO
1. 62 FOR ABSOLUTE DATE (LINK REG+8J
2. G2 FOR OMITTEO DATE (LINK REG+4l
3. Gl FOR RETENTION (LINK REGl

H4

SJOBCTLA

*********.*****

*

X
*****J
4**********
*CHKRNGI
QR*
*-*-*-*-*-*-.-*-*
•
CHECK DIGIT •
*
RA.NGE
•
*
-0-9•
*****************

FEB IN
X
***.*K4*********·
•*
INSERT BIN
*'"0
*
NUMBER IN
OUTPUT BLK.

•

•******************

x

***.

•*
•

226

DOS/VS IPL and Jot Control

*

84 •

****

*

*o

SUPPOqTED

*

•

*
•
**.*************.

****FS
********* •
'"
q,FTUQN TO
* LINK REG.
•
*
•
.**********.*.*

.•

****GS*********
FEBTNI
'"
************* ••

·

........ •*

*H5
CHECKS FOR--

.0.x *.

.* VAL ID *. *.
OPERAND
.*
*. *H5 .*
*. * •. * .*
* YES

*

X
o*****EI5**********0
*
SIO
•

X

*.

• NO.*
••• X •• *..

:x ............. :

*0

TFILl

.*.x *.

FIPST
*.
*. *.OF
2 CHARS.
.*
OPEND .. *
.*
*. *B=
...
*
* YES

x
.*.
H3
*.

.• BLANK *. ••
YES.*
.... *. *.FOLLOW
lAST .*
OPERAND .*
*.
.*
x
* .•
* *NO
.****

F4

YES

X
**"'**G4**********
*SCANR3
GK*
*-*-.-*-*-*-*-*-*
*
GET BIN
*
*o
NUMBER S
'"
•
*****************

X

..x ..............................
x
•..

*. ...

PROCESS~NG

.. *
NO.*

*****G3**********
*FETINSRT
QC*
*-.-*-*-*-*-*-*-.
* PROCESS AND *
* INSERT THE
*
* VERSION NO • •
*****************

*****G2*********
RETURN FROM *
: FDK~~~+kI NK :
***************

..

.*EXTENT
STMNT

*

*****F3·*********
.FET JNSRT
QC*
*-*-*-*-*-*-*-*-*
* PROCESS AND *
* INSERT SYSTEM *
*
* GENERATION
*****************

•* CREATI
ON
**
DATE INTO
'"
* OUTPUT BLK
*****************

X
*****H
*FSCAN 1**********
QS*
*-*-*-*-*-*-*-*-*

E4

*. * ..
• ......
.. *
*. VAL 10 .*
*..
* ... * .*
NO.*

X

•.****F2**********
•'"
•
INSERT

X

****.G 1*********_

FEBIN!

X

I. BLANK DELIMITER
2 .. BLANK OPERAND
~. OOEQAND=2 CHAR

IN LENGTH

$~OEC~LK - Label Frccessing Subroutines (Fart 1 of 2)
Refer to Charts 17 and 18.

Chart CC.

••••At.····.··.

• •• *A3 •••••••••

••
••
fllKTV
*•••••••••••••••
0

. . . . . REFERENCES.
..
• TO
QC82'
QGCl, QJCl

*. :*

•.···A4•• ••••••••

...............•

*•

•

FDKTVNH

•*

•

FETlNSRT

•

••••••••••••••••*

•

fDKTV

...... 81

..

X
**.**
••••••
SET

•
o

LINKR4
•
TO ADDRESS
•
o ERROR ROUTINE.
..
-NVSEflR..

••••••**•• *......

SII5

NO

X
•••**01**.··•••••
fALL N
...
CEPT •

- J8C

...

Bl

.....

·.·.*(;3··
••·•·•••
*-.-.4-*-.-$-*-*

•F2'"
••**

•

GET fiLENAME

_

GET ADDR Of

"

••

STORE
..
*•••**AREA.
IN L8LPTR
••••
*•••••••••

**•••••*•••••••••

O.

~jIIE~,."~:!:"

••

.. ~

LENGTtI GT
7
••

x
*• ••••
•
G5 ..

CLEAR FILE
NAME FIELD
AND RESET
AUX FLAG
BYTE

0

*••

X

·****G3**.·.····.
•
•
• MOVE FILENAME.
•
TO OUTPUT
•
• AREA AND SET •
• UP KEY fiELD •

•••***••*•••*••••
X

••••• H3 . . . . . . . . ..

*-*-*-*-*-*-*-*-*
.OUTPUT
LAB EL TOo

•••

..

•••••••••••••••••

o

VOL AREA OF
SVSRES

0

..

•••••••••••••••••

•.··.Jl·...
X

***•••

•
TURN OFF
•
•
LOST EXTENT ..
*SIT IN MTRSVD, ..
... CLEAR M.T.
•
•
FLAG BYTE

••••*••••• **.**.**

X

••••RETURN
Kl*.*.****.
•
TO
*
•
LINK REG
•
•*
............*••

*'*'

.·.·05••••••••••

CLEAR LAST
POSIT IDN
OF KEY
FIELD

...............
fETlNSRO

•

*

*••
*'*'

X

•••••••*
******J3··
RETURN TO
LINK REG
•

•••••••••••••••• •

ic

:tH::Rat*·*·*·~::

.* •• X.

:X •••••••••• :
fOKTVl
X
••••• Hl.· . . . . . . ..
• L8LOUT
QNo

*

••••• •*
Kit

*

v~~

•••••••••••••••••

.G2
BYTE 0+8 OF
DATA fiELD
OF LABEL

** ••

..x •••••••••••••••••••••••••.

·····F3
.....•...·*
*
•

X

••••• Gl •••• • •••••
>TURN ON 8IT IN >
o MTAfLG AND
_
•
HTRSVD fOR
•
• LAST SEO DISK'
..
EXTENT *G2 ...

*

••

FETlNSRO

X

**•

YES

ic

NO

NO

*•.•
o NO

.* SEQ *. o. NO
"
*.• *.
DISK
TYPE
._ .* ..••
*. * •• - .*
o

.. ..
.... .. .
.. .*. ..
.. ..
E3

_ ""

*f2
SLoe K-NDT -PRE SENT
BIT MAY BE ON
DR Off •

*

YES
••••••

.*

*:'*. g=lmS .•.:*~~~.
.

_

x

OPERAND

••

x
.* •*.
D3

::~;::t:~~ :";'::;~c;

.*. ' .
ft

••

•

x

STMNT STORAGE -

x
.*.
••

.. .... ..
C4

•

•

.··**El··········

•

.* .*OMITTED*. *.

QS•

•
OPERAND
••••••••••••••••••
••

X

.:ra~

X

*fSCANI

•*
*

OPERAND

•• •••••••••••••*••*

·os •

OTSERR

OB.

GET NEXT

•

• Cl·

T-'"

... PR
••••••

•

•

FDKTVNM

YES
•
*. •• SEQUENCE
OUT Of
.* ••••••••••••••••••••
*. * ••• .-

* TURN
..
F

.FSCAN

.....................
•

ic

FETlNSRT

..

.*.x *.
Cl
.
*
•* STATEMENT*. *.
o

.····8".······.···
*-.-*-*-.-*-.-*-**

X
*••••••••••••••
R
All.
•
NeE
*
..
IN"

fOKTV2

*•••• *

**··ES**··*····

*-*-*-*-*-*-*-.-•
DIGIT •
*• CHECK
RANGE
•
•
•••••••
*0-9
••••••••••

*,. FETHISRl ...*
****•••*.*.*••••*

:X •••••••••••••••••••••••• :
X
..***FIt.*•• ** ••••

fETlNSRI

*
•
ADDR. DF •
*** GET
THIS fIELD
**
OUTPUT BLK
•
INTO WRKRG 1 •

•••••••••••••••••

.'.x

•• ..**
•
G5 •
••••• *
••••••••••• X:

.• G4INPUT*.*.,
••
*.••••••••
YES •
•• LENGTtI GT
*. *OUTPUT
THAN
••
••
* ••
*
• NO
"ETlNSR3

it

··**G5·*·······
8RANCH TO
NVSE~P IN
**'•
•
~JOBCTlA

•
•

•••••••••••••••

X

*H"..**•••••**
:••••T~¥~O~I~rD
mmG :
:

:

*..**••**••*••••••*

fETINSR4

X

*.*.*J4**.*••••••
** INSERT
*
•
THIS fiELD
*
•
INTO OUTPUT *
BLOCK
*
•• ••• *••••••••••••
.***
•.. K4 **.X.•
• *
fETlNSR5
X
••**K4**
•••*••*•
•
RETURN TO

.**.

•

LINK REG +2

'*

*............*** *

Charts

227

Chart QD.

$JOEC~LK - Label precessing Subreutines (Part 2 of 2)
Refer to Charts 17 and 18.

·····AI·········

"•
•• •••••FDKTlD
*••** ••••••

.

X

FDKTlD

.

"• ••••
83 *
•.*.*
•

••••"
o
82 '*
•'*•••
*•

"**B1···***·
RESET
DISKETTE"

B2

.".ic

X

.... .....
· ..

'UNIT SAVE AREA'
•
SWITCHES
"

"*****••****"

• NO

*

..

*.••

•*ANY

MORE
OPERANDS

..

o

•••••
•••• "

ic

*. ' .

*. *••• .•

*

NO
••••••

•
•
"

••••••••••••**.***•

.. Jl •

*•••

ic

•
SET SCAN
•
..
DELIMITER
•
•
TO INDICATE •
.END OF OPERAND

o

••

• C2 •• x.

CI .". ••

***•• B3.**·.*·•••

••

•*.*ANY MORE *. *. YES
•• CHARACTERS ••••••
*.
••
*.
.*
ic

.*

•

....

*. ••ABLANK.* .*

..**.......**••••*

• YES

•

X

*·***01····**····
*-*-*-*-*-*-*-*-*
'SCANR3

.•

GKo

03

•*.*••*.*.****•••••

.'.x *.*.

*.

•*opERAND*. o. NO •
PRESENT
•••• x.
*. *.
.•
.•
x
*•••
o YES
•**•••

C2 •
•*.*.
•

ic

Gl

.".ic

..
.. ..

...
.x......
YES.'

F2

•*•••

OPERAND
TOO LONG

••
•• X •••

•

·•••••

• STORE LENGTH
" OF FILE 10 IN
•
SAVE AREA
•
SWITCH

·····HI·······
...
*
•
•
"

START SCAN
WITH FIRST
CHARACTER
AFTER QUOTE

••

*.** o .•
..• H3 *.X
•

·
•
•
•

LOAD
CHARACTER
ADDRESS

""•
"

Kl

•

••

J2

.•.

•.• X.:"•• QUOU
IN
COLUMN

*.

*•••.*

•• 72

• YES

ic

•o****••*
,.. C2

••

.* IS •• *. YES
'*..**. CHARACTER
.* .•••
A QUOTE ••
*. * •• - .-

•

*.**

.o.o

• NO

x

••••
*'* 82 "'*
••••• •
228

••

DOS/VS IP1 and Joe Contrel

X

**
••• H3".**.*****
.FSCAN
QB"
*-*-.-*-.-*-*-*-*
•
GET DATE
•
OPERAND

•

H4

.•.x*.

.*.x *.

H5
DATE
OPERAND

*. *. YES YES.*.*
•• *.
.* .* FIELD
DAY
*. OMITTED .* .* .••• X•••• *. *. GT 4 •• .*
*.*..• -*
x
*- ••• *...
* NO
****
* NO

••

•

•••***********•••••

.. .

*•••••••••••••••••"

.*.x

*...• .

FDKTDAT

***••••*.*.*.*.*.
*.*..
• .X. H3 *
•**•••
NDSCAN

*•••• Jl* •••••• •••

NO

•

X

•

"••••* ic

.*

* •• *

• INSERT FILE •
'IDENTlFlCATION •
"IN OUTPUT BLOCK'
"LEFT JUSTlFI ED •

"•••••••••••••••••*
*'**.**
.
Jl '
• .oX.

.*

•
..•..
. *.

•
•
•

*•• ·*H2·* ••*•••**

"
"
•
"

FQKTOAT2

*.

G3
IS
••
YES.* THERE AN *.
OPERAND
•• WITHIN ••
.QUDTES ••

**••*.......*.**••

FDKTID2

X
.*.
.****G4*****.*.**
G5
••
•
..
* . *.
YES.. .* IS
'•* GETOF LENGTH.
DAY
.X •••••••• *.3RD CHARACTER ••
•
FIELD
'
*
*_ A SLASH .*
'*
..
*. *C5 .*
..*.*******.*****
*. • -*NO

ic

.0.

NDSCANl

•• C2 "•

ic

***.
'•* C2 •III
•*••**

:X •••••••••• :

X

-. *. NO •
* •*CHARACTER
IS
*.•*.
.* •. x.
A OUOTE ••
*. * ••• .•
x
o YES
****

.0 •

.* F5DATE *. •. ••
YES.*
•• •••
OPERAND
.*
*. *. GT 6 .• .*
ic
*•••
* NO

.****** ** ***.*.**

··***G2 •••·.** •••

•

.:.~~ ••

*.

••

ic

J3

.•.

••

.

NO

.* .* ..•.
ic

**.*
*• ES ••
•.*•••

o YES

****

*"··J4******··*·
•
•
•
•

o

•

.*.*K3******.·*
RETURN TO
0
LINK REG

•

•***•••*.***•••• •

*

•
"

*

.***.**•••******.

ic

•
•

POINT TO
START OF
ABSOLUTE
DATE FIELD

0

****

X

*. ••

DATE
OPERAND
•• OMITTED

*. *•• * .*

•• ••83**•*
"

.*

:X •••••••••• :

•• C2 *•

x

."

*•o. YES
.* •...
*. *•. *.* .*
• NO

x

X

• FOR NEXT SCAN •
2NO STORE
•
o
•
" SCAN LIMIT

• NO

••

*.

*****F3 •• ·***.**.•
•.COMPUTE
POINTER'

•. *•.• .*

.*. *.

E5
OPERAND
LENGTH=l

.*
*..*

•**.** •

•**•••

• H3 ..

.••..F1·········.

ic

.* E3 IS * ••. ••
• NO.o
x..
••• DELIM
IT ER .0
*. A COMMA .*
*. * .•* .*
x
o YES

•'

*• LOAD SCAN ••
•
IT INTO
*'*
'* LIMPOtNT2
••••
******.***•••••

.

"****

NO

..x.

ic

••

*
•*•••
•
E5 *

•. * ..• .*
•

.0.

NO

YES.*
IS
'.
••• ••• COLUMN 12 . '
•• NON-BL ANK.*

"
GET OPERAND •
• START ADDRESS'

EI

RETENTION PERIOD
nR ABSOLUTE DATE.
FORMAT OF ABSOLUTE
DATE 1 S t IYYOOD'.

.'.*. *•

C3
••
IS
•• YES
•• DELIMITER ••••••

···*C2*··*·*···
BRANCH TO
*
NVSERR IN
SJOBC TLA

.C5

ic

FDKTDATl

X

•
•

··**K4**·******
RETUPN TO
•
LINK REG

'*

••••••••••*.. ***•

X

**·**J5*·***·****
QR*
.-*-.-.-*-.-.-.-*
o
CONVERT
0
** BINARY
TO
*•
••****.****** •• **

*NIJMCON

ic

****K5*·***·*·*
RETURN TO
•

·
•
•

LINK REG

•

•• **** ••••*.*••"

Chart CEo

$~OECTLK - DLBL State«er.t Prccesscr
Refer to Chart 18.

•••• Al. . . . . . . ..

--

-•••••••••••••••*OLBL

•

••••

-..

X

•••

*.
•*
-.
NO .*
••..
*. CONCAT *..*
*. *.
.* .*
* ••
.. *
YES

*

B2 ..

..··.82••••.••••.*
-

X

CARD

_

..

•••••••••••••••••

.••••••••••• x..

•••••••••••••••••

····.C2···.·····
•
*

•••
•• C3··
•••••• ••
*STORE
RETENTION.

*
•*•••• **••**••***

•
SLOCK
•••
*•••••••
*••••••

.*.*

QC -

·•••••••••••••••••INITIALIZE
STATEMENT

'.

•
-

....................

**

....

FILE

NAME EQ

I D OPERAND

•

No.*

•••••

•*
•••
-• B2 *•
•*••••

•••* ··Fl··········*
X

•

.'.x

*
•

OF l1JTPUT

•

•

···*·C4··········*
*
•
•

STORf VEAP
IN eXPIRATION.
DATE OF
*
!'lUTPUT
•
BLOCK

•
•

•••••••••••••••••*

END

X

'.

••

····E3·········

j(

*.**·E4••

RETURN FROM *
FDKTID LINK.
REG+4

••*.*.** •• *••••

•

*•

·.··*••·

*•
STORE DAY
IN EXPIRATION

•

•

*

DATE

•

•

*

C;;:O~:: ~ ::¢::-~e 4~~~":'¢""

X
*.*.*J 1.*"
••• *•••
•
SET UNCLOR
roOFOR
**
*• SYSTEM
CLASS *
*•••••••••••••••••*

*.*

.INIT REGISTERS
.. POINT! AND
..
• PoINT2 FOR
• NEXT SCAN AND

**

~~¥~.l~!:~~~l.:

ic
••••

- *
-*****

2.

PO' NT3 = LFNGTH
LOG ICAL UNIT-I

3.

INITIALIZE
REGS FOR
CNUNCol
SUBROUTt NE
.E5

llNKR4 = ADDRESS OF

r:::O~":l?~

·~~~Cr!~

RETUPN FQOM CNUNOI
ROUTT

•

•
•

X

•••••H2.··.·.···.
X

•
SET LOGICAL •
• UNIT DEFAULT •
IN CURRENT
•
>EXTENT DEFAULT
.TBl FRM UNCLOR

**
•••••••••••••••***

FDKl

.. ..
F4

NO.*

.... *.*.

•••

~E

••

....

FILE lO
BLANK

••

*.

••
.* .•

• YES

ic

·*···G4****··*··*
*• MOVE FILE •*
*
NAME INTO
*
* FILE 10 AS •
* OEFAUL
T VALUE *
•••••
*•••••
*••••*

.••••••••••• x..
•

•

*H5
FIRST 5 CHARACTERS
EQUAL I JSYS

j(

FDK2

*

..H4****··.
seT MASK
•

DSEQMSK TO

•

*
**PROCESSING
STATEMENT *
•••••••••• **
ALLOW EXTeNT

X

FDKIJ2
X
••••• J2 •••••

*••••
SET ADDRESS *
*
OF NVSERR
***
*
ERROR RTN
* INTO LI NKR4 *
.**.****••*••••••
**

•
•

*

**.***

*.J4••
* SET FLAG

MTAFLG TO
ASSUME
EXTENT~

•

X

*
·····K2*··.····*
.*
•
•

LOAD REG
WRKRGI WiTH
MAX LNG-l
OF FILE ID
FJELD

•

*
•
•

*
•
***•••••**•••••••

•

*

OMITTED *
**.*
•••••••

ic

.. B2 •

DOT NTI = AODQ.ESS OF
LOGICAL UNIT IN
FILE NAME tMTFILN+5

: .••••••••. x:

**

•••**K 1**••••••

1.

: •••••••••••••••••••••••• X:X

:X •••••••••• :

X

*E5

: •••••••••• X:

*··**G2·******···
PT.
--*-*-$-*-*-.-*-*
• VALIDATE AND •
*• CONVERT
UNI T *
NO. TO 81NARY •
*••**.********•••

*. *. NO
.* ..•..•
.*
*. *•• * .*

*
*
•

*CNUNCOI

FOKIJL

.·**05.···••·.*

*•.
* *NO

•••••••••••••••••*

•••••Gl**·**·····
*-4:-*-*-*-*-*-*-*
**.*

• YES

•

004
*•
.*NUMBER •. •• YES
* BQANCH
TO
*•
*..**. OF
DAYS
•••••••••• X.
NV'SEPP IN
•
~Jn8CTlA
•
*. G.T..*
366 .*
•••••••••••••••

••

OF

•

X

PERIOD IN

BYTES 16-71

.........*.......
BINARY

.*.•

·.··*f2······*···*

_FDKTVNM
QC •
_ SET UP FilE •
* NAME END KEY •
•
FIELDS
••••••••••
**••

•*
*.

*•

*•

AND DAY TO

NO

*. •. TABLE .* . '

**
-

•••••••••••••••••

•• FILE NAME
*.A SYSTEM FILE
*H5

•

YES
••••••

ic

_
RESET
•
_CURRENT EXTENT
DEFAULT
TABLE
TO
*_
_
STANDARD
•

.*.x *.
Hl

•

*. ••

.. ..
E2

**

THROUGH
SVSCODE - A5

.*. *.

*. ••TOENTRY
TBL . '
••

X

*_

D2

*

••••• El •••• • •••••
•
SET OEFAUL T _VALUES IN FLDS
_
FILE ID

•

*•••••

*•

x

X
•••••01.··***····
*-$-*-*-*-*-*-*-*

•

•

OLBLl
•

RETUPN FROM

FDKTID,. L tNK

REG+8
•
.*•••••••••••••

DATE *K 5*
•-CHECK
*•••••••••••••••

X

• CONTINUATION

.FOKTV

X

**··A4.··.··*••

••••• B4.! ••
*NU"CON
QA.*
*-*-*-.-.-*-*-.-•
CONYER T YA.

'SET LOC. UNCLOR+1 TO THE
*
• lOGICAL UNIT *
• FROM THI SENTRY.
'IN L10CS T8lH

*-t:-*-*-*-*-*-_.
•
READ
•

•
•

••• •• S3 . . • •• ** •••
QO'
•*FOKTID
-.-.-.-*-.-*-.-*
* PROCESS FILE *

•
INCREMENT
*
• 8Y 6 TO POI NT *
• TO NEXT L10CS •
* TABLE ENTRY •

•••
··Cl •••• ••••••
-CoNCAT
QM ..

X

FOKIJ

Bl

.

-

***••*
DLBL

•

••••
S3 *
*• ••••
•

*A5
FILE ID = BLANKS
FILE SERIAL = BLANKS
FQt\~AT to '1
YOL sea ::: X '0001'
CREATION DATE = ZERO
EXDIRATlON DATE = ZERO
PETE~TtON peq'foo :
X'0007'
FILE TYPE CI"}OE ::: S
SVS COOE = DOS/VERSION 4

*.*
••
*OF •
• K3*
••*

FDDKCODE

•

*K5
RETURN FROM FDKTIO tS Tal. A4 FOR ABSOLUTE
DATE fUNK R.EG + 8)
2.

E3 FOR OMITTED
DATE (LINK REG + 41

3.

C3 FOR flETENTIDN
(LINK REG)

x

*... ••••
83 ••
*••••*

Charts

229

Chart QF.

$JOBCTLK - DLAB StateIrel't Processcr
Refer to Chart 17.

•*****
•
A2 *
•

••••

****
*• A4 •*

X

*'

o

DlAB

•

POI NTI AND
'"
POI NT2 FOR
* NEXT SCAN AND
*SAVE IN TMPARI *

*

..

*

.**************

**

*
*
*

POINT TO 2ND
OPERAND
-VOL SEQ NO-

*.
.* Cl
WAS *.
VOL THE
*. NO
*..*.... pREVIOUS
STMNT
.* .* ......
*. *.. * .*
x

*****
*QS *
* Cl*

•
o TSERR

02

•

_*

REG PotNT-4*
PDtNTER

*
*

.* lfNGTH
VALID

*..

X

* ZERO RESERVED *
*AND EXTENT FILE*
*TYPE FIELDS IN *
*THE LABEL AREA *
*

*****03**********
*SCANR2
GK*
*-*-*-*-*-*-*-*-*
* POINT TO ..
'" 5TH OPERAND *
.. -SYSTEM CODE- *
*****************

*oo

•
*..* .......
NO X
.
.*
.*

YES

CONVERT
TO BINARY IN

*****Fl**********
QM.

**

WRKRG1
*
*****************

******F2**********
STORE BI NARY *
*VOl SEQ NO. IN *
* LABEL SAVE
*
AREA
'"
*
*
DAVLSQ
*

*-*-*-*-*-*-*-*-**
CAR 0 IMAGE
..
*
••• **************

.BUIlD COMPLETE

•

*BUFFR 1, BUFFR2

*****************

X

X
··***Gl**********
GK*

*-*-*-*-*-*-*-*-*

*****G2'**********
*DOP34
QM*
*-*-*-*-*-*-*-*-*

*****************

*****************

*SCANR2

• POINT TO FIRST *
..
OPERAND
..
,. -51 CHARS..

*

' .

*CHECK ... CONVERT, •
*STORE CREATION *
DATE IN LABEL

*

x
.*.

X

C5
*.
.*.* J)ATA *• *.

*****C4**********
* RESET EXTENT *
*COUNT FLAG BYTE*
•

FOR DA OR IS.

NO
*. *.SPECIFfEO.*
SECURITY
.* .....

*

:T~Y~E ~fiT_~~E :
*****************

*

*'"*

X
**04*******
SET

*

SEQUENCE
REQUIRES
EXTENT
FLAG

**.********

*. *.. *. *
*

.

..

*
*

*

*
*

*,

*..

**05*******
SET
DATA
SECURITY
SWITCH

**********.

x

**•
**••KI*
,

YES

****

X

E3

*

x

.*. * ..

.* 1ST *.
• NO .* AND LAST * .
X.... *.CHAR AN APOS-.*
*. TROPHE .*
*. * •• * .*
x

.

,*****
*
K1 *
****

.CONCAT

*

OPERAND

*•

*•

*

: .............. X:

*****E2**********
QR*
*-*-*-*-*-*-*-*-*

**

*

•*****"'***********•

C4 *.x.
•*****
•

x

.NUMCON

*

*****A5**********
*FSCAN
08 *
*-*-*-*-*-*-*-*-*
* SCAN FOR LAST.

ic
.'.*.
.'.x *.
84
B5
.....
*.
.o*
*•
OPERAND ••
OPERAND "'. YES
*..*OMITTED
OR
.* .. .o • . YESoo*
.... *. OMtTTEO .*
*. *. SD .* .*
*. *.
.*
* •• *
*••
* .*
• NO
* NO
****

X

X

X

,

*****************

X

*. .... NO
·.CONTINUATION .* ....
• CARO SPEC ....
*. *•• * .*
.. YES

NLSERR

*****C3**********

CHAR-

*

.-. * ..

,

*. :t • • *

x

El

.*. *.

*.-MAX 4

*
•
*****************

•* .*

.

x

*****01*********.

*

•

x
. *•*.
C2
•
*
DID *oo
A COMMA *oo NO
*..* END
*. *.. SCANTHE.* .*.*.....
*oo .*
* YES

**

*.INtT
AS

•

*

***********.*****

x
• 0.

*THE LABEL AREA

.

*****82**********
GK*
*-*-*-*-*-*-*-*-*
*SCANR2

*****************

X

x
'. *.
83
IS
*. *. YES
.*
*... *EXPIRATION
OATE LT
.* .••.
*.CREAT ION .*
*.DATE .. *
x
* •• *
* NO
*****
*QS *
* C2*
,

X

*****81*********·
*INIT L]NKRG4 AS* BRANCH REG
*
.. THE INVAL to *
**' STATEMENT
MSG ..
ROUTINE
*

.. YES

'" 83 *
***** *

X

OlBQUT

*****A4**********
**-*-*-*-*-*-*-*FSCAN
OB *
..
** GETTYPE
FILE
*
*
* OPERAND *
*"'***************

, ***. *

*****************

X

OlAS

*••*

X

*****A2********·*
*INIT REGISTERS *

o****Al********· 0

****

,•* A5 ,**

••••• *

*

*

YES

E4

.' .* .

****

NO

** J4 **

•

X

*****F3**********

*****·*F4**********
SET STATEMENT ..
* seQ MASK
*

*****************

*****************

STORE SYSTEM
CODE IN lABEL
** AREA,
OASYCD.

* -13

,

BYTES-

*
*

it.

*****G3**********

*
**

*INIT REGISTERS
* POINT1 AND *
*POINT2 FOR NEXT*
SCAN AND SAVE
*
IN TMPARI

*

**************"'**

****

*

it.

*
*
*

*

**********
******ES
* SET STATEMENT ••
* SEQUENCE FLAG •
* INTO JBCSW5 *
******************0

:=

•

,

X

SETflAGS

*.
.
DA *. YEs.
*. *FOR
DIRECT .* .. X.
. ACCESS
.*
*. *oo .. * .*
x
.* .*TYPE

it.

*****F5**********
*

... PUT FILE TYPE
.. I NTO OUTPUT
*BLOCK AND RESET*
*DATA LENGTH TO •

*

.. OSEQMSK TO
*
*INDICATE EXTENT*
*REQUIRED FOR IS*

..
84
*
*****************

.'.x *.
G5
.*
*- *. NQ
FILE
*..* TYPE
••••••
*. DU
*. *... * .* .*
x
* YES
, ****
0

X

******G4**********,
* MOVE THE TYPE *
*
C OR E TO
*
* fiL
TYP fOR
*
* INDEX SEQ.
'*

*****************

* C4*

x

.'.

HI
* . *.
.* .*AND 1ST
LAST
*. NO X.
-.CHAR AN APOS-.* ........
* . TROPHE .*
*. * •• * .*
* YES

X

*****H2**********
*UPDATE POI NTER *
* POI NT4 FOR *

*

**

STORING
EXPIRATION
DATE

..

*

'*
*"'***************

******

x

X

*****H3**********

*INITIALIZE INST*
AT OSEQMSK
*INDICATE XTENT *
..
STATEMENT
*
REQUIRED
*

*

*
*

*****************

H4

.*. * •

*. * .. * .*

X

1**********
******J
FILE JD *
* STORE
IN OATCRL,
.... *"'ENSURE
DAFMT TO 1
*'"
FORMAT 1*

.
x

.

*****J2**********
*DOP34
QM*
*-*--*-*-*-*-*-*-*

"'*****"''''*********
"'***
** A2 *******
'"
* KI
*****
* .X ........ oo oo ••
****

*....

***

BRANCH TO
NVSERR IN
SJOBCTLA

***************

*

*****************

**
'"

******J3**********
SET AUX FLAG *

:SYlisEr t8 o2 F:
t

*TO INDICATE EX-*
*TENTS CONV ERTEO*

*************.***
****

*
•*****

.

it.

****K 1*********

*CHECK, CONVERT,.
STORE EXPIRA..
TlON DATE
..

*

,

X

·, .

• NO
****
• J4 *.x.
****
X
*****J4**********

****

* A5 ,..

INDICATE OU
STOIl:E '80' IN
SAVE AREA
SHITCHES

*,*

**

*****************

•

***** *

X

*
*

******J5 **********,
FILE 10 *
*..* CHECK
LENGTH FOR
..
8 OR LESS
*

*****************

****.************

,*

*

*

*

MOVE TYPE A
TO FILTYP
FOR VSAM

**

,

•

,

•

*QE
* J4 *.X.

X

*****K2*********'*
*RESTDRE POINT4

*
*
*

'" TO POI NT TO
'" CREATION DATE
* IN LABEL AREA ..

*
*********.**
•••••*

.

•
X
*****K3**********

FDDKCODE

,

FILE TYPE *
** SET
IN FIlTYP TO *
* -5- FOR seQ *
*
DIS K
*

*****************

x

.••

x

,**** ,

.. 83 *
**"'***

DCS/VS IPI and Jot Ccntrcl

x

• **** *
,* A4 **
****

.*.

*.
.*
*. *. NO
..* MORE *. *.
YES .. *
*..* OPERAND
VSAM
.* .... X••••
*.
THAN
.*
*.
.*
*.
8
•*
* •••• *-*
x
*.* •• *.*
• YES
***'"
* NO
,.. Kl ,..
x
it.
****
***** ,
***** •
*
A5 •
* A5 *
,
*
***.
****
K4

*.

K5

~

x

230

**
**
*

x

'.

it.

i<
*****H5**********

.* OPERAND *. *. YES
*..**.EITHER
ISC
.. *....
OR ISE
.*

.

..

Chart

eG.

$JOECTLR - XTEN~ Staterrent Processor (Part 1 of 2)
Refer to Chart 17.

•• ••••
•
Alt •

••••• *
x
A4
••
.•
*.
•• IS THIS *. YES
.... THE FIRST ••••••
*. *.EXTENT .• ••

.•.

*···*Al·······*·**
*
*
•

XTENT

•••••••••••••••

* •••

• NO

X

XTENT

••• **s 1*.**.*••••

**INIT

B4

NO

........ ........
•

BRANCH REG

•

RTN

* INVALID STMNT

*

_

• :iII

Cl

x
.0.

••

••

*C2
I.

.* PREVIOUS ••
.....*.. STATEMENT ••
*.*.XTENT.*
OlAS 011 .*
x
*••
* :iIIYES
:tt*:
* 82.
•*

•

2.

•• •••••
••"··*01.***
INIT REGISTERS.
PDINT4 AND

C4

*

WRKRGI * C2 ..
*
*
•••••••••••••••••

*. ••

EI

••**.•

••

* •• *

.* .*

.*

• NO

*****
..
D4 *
*.x..

•***. • x
.*. *.
04

X

ISCKSQ
• NO

••

X.....

x
**os
•• **•

.*

*. *.

*···*05······*··.
'STORE lOW LI MIT.

YE S

•

.*..... .
*. ASCENDING
SE~ NO • • •
*. *•• * .*

•

• CI·DTSERR

.•.x

..

.

.. C5 •

..
..* IS ...
• YES •• THIS THE ••
.X •••• fIRST EXTENT

POINH MINUS THE LENGTH
OF THE VOL AND DLAB fl ELOS
IS SET TO THE BEGINNING
ADDRESS Of THE CURRENT
EXTENT IN THE LABEL AREA.
WRKRGI I S SET TO ENDING
ADDRESS Of THE CURRENT
EXTENT IN THE LABEL AREA.

*02
I. UPPER AND LOWER LIMIT CELL NOS.
XTBI A~D XTB2 ~UST BE EOUAl.
2. ~:~E~AL~I~~~a~u~,CANNOT EXCEED
3. LOWER EXTENT, XTLL, CANNOT
EXCEED UP'ER EXTENT, XTUL •
4. If SPLIT CYLINDER C LOWER HEAD,
~lkli~~tuEA~NOT EX EED UPPER

X

*
•

..*.*

•

•
*•••••
.. t4 ••••
•*.** • x

NO

FDKTV2

••

*. *. YESX..
.* .*
: ••••••• A~~6N2t1NG ••• * ••••• :
*. * ••• .•

*
*•

LNKRG4 AS

...x

:• mt
~~'nBt~ :
Aq,EA. tNCR
•

POINT4 BY 4
*
*.*••••••********

•

•••

••

*•
iN ••••••
*. *.APEA
LABEL
.*
••

. * •*WILL

THIS *. NO

•• EX'r'fNl fLY

x

* •••
.. YES

•••••
•os ..
.. C3-

*•*

LAXERR

X

*·***Ft;********.*
*RESTO~E POINT4 *
•
STORE UPPER
•

•

LI~!T

CELL

•

:,Btl~~L XInA Of :

**********.*****.
X

*····Gl****··
•••
•• STORE TYPE ••
IN *
:EW~IElIlP~R~~O:

NOTSeQ

•*.*

Hl

FILE

x
.*. *.
HZ

*. *.

.•

NO.
NO.* EXTENT
•• ~~~~~=TM~K~~ •••••• X........
TYPEl

*...
* ••*
x

.*.
.* Jl *.••
•• EXTENT TYPE ••

.... ....
1 OR 12B

NLSERR

NO
••••••

*••
* *YES

x

******
• C2*
• QS

••

SXTPDK

X

**.**K 1**.***••
*XTOPI2
OM **
•
•-*-*-.-*-*-*-.-*

:C~~8h ~~~~~~T , :

•

SeQUENCE NO. •
••••••••
**•••*••*

•.!.*•

....

•• A4 ••

G3

.*.*.

ISTYP4

X

.'.

G4

*

NLSERR

X

.•.x
H3 *.

*. *.

**.•••
.*
• YES

• YES

••

INOSEQ

.*.

••

G5

••
••••• X..

•
-XTTYPE..
•••••••••••••••••

.*.x *.

.*. *.

*.
.*DIRECT *. ' . NO
.*
*. ' . YES
.* EXTENT *. *. NO
..* VALID *. * •
. ' EXTENT
NO.'
ACCESS
.* •••••••• X..
TYPE GT
.* ..••.... X•••• TYPE
EQUAL •••••• X......
EXTENTS
••
*. * . . * .*
*. * .2
.*
*. * .4
.*
*. ...*
*02
.*
.
*
.
*
*•.
*
* •.
* •.
*•••
• YES
* *NO
* *YES
• VES
G2

••• '

*••*OM*
••

.* EXTENT •.*. YES
*..* TYPE
0
••••••
*. *.
•• ••
*••
* *NO
X

.-*-*-*-*-*-*-*-*

•.XTOPI2
••**J3.* •• *·**·*
QM.
*-*-*-.-*-*-*-*-*

•

.. SEQUENCE NO.

• •••• J2 ••••
.XTOPI2

:c~~g~~ ~~~mT':
SEQUENCE NO.

..

*.*** •••*****.***

x

*• ****
•
C5 *
* •
****

x
.****
*QH •

X

:crf8~~ ~~mr':

..

*•••*************

... Al*

•*

*****H4**********
QM*
*-*-*-*-*-*-*-*-*
:C~f&~~ ~~mp':
* SEQUENC E NO. •
*****************

•

.XTOPI2

XTOP5

..

.x

J4
*.
.*
*.
.
... :'" NO:EST
*:*;~i:
*. *. 1 .* .*

* •• *

• NO

x

*****...
*os
* C2*

.•.x

K3
*. •.
.* .*
*. NO •
*.*. s~~ ~ .*.* .• X.
*. *•• * .*
.
x
• YES
*****
*QS *
Cz*
x NlSERR *••
•
****
•• C4 *•
• **** *

.*.x

*••

NLSERR

K4
*.
.* .*THISIS THE *••• YE S
* .FIRST
EXTENT .* ...•
*. *.
.*
..*
x
*..
* *NO
**.***
•
x
*••C5** •*
****
•'" 04 •*
*
**** *

Charts

231

$JOBCTLK - XTEN~ Staterrent Frccesscr (part 2 cf 2)
Refer to Chart 17.

Chart QH.

*****

****

**

*QG ..

.. G5*

**

nops

GK*

*-*-*-*-*-*-*-*-*
.,
POINT TO 5TH ..

..

OPERAND

..

.. -SERIAL NO.-

..

*****************

Bl

x
,-,

•• CHAR AI\!

*.

•• *.**
•
83 *

****

.***

-

*. * .. * .*

.*

.. c

....

YES

... E4

*

x
. *. *.
C2
.*
*oo .oo
• NO .. "
SCAN
• x..... STOP CHAR A .. *
*. BLANK .. *
*. *oo .*.*
* YES

.. YES

X

*****01*********·
PUT FILE
..
SER IAL NO.
IN OUTPUT
BLDCK

02

•*

x
.* .*oo

BIN * .
NO.* NO EO.
• ...... PREVIOUS BIN
NO.

*.

*.

.*
*.•
* *YES

*..*

-*****************-

x
****

*

,.. G3

*

*

*

**

*

*

*

•

*.•
*
• NO

X

NODCUX

**D3*******

RESET ALL *
**FILE
DEFiN ...

*
*

*•
**

YES

*

..
..

.•

TO 8 J NARY (N

X

TO VOL AREA *
******************
OF SVSRES
*

*

*

-*

LOOK AHEAD

***********

•

'"

:x .......... :

x

X

·

*****F2**********
* STORE CURRENT *
.. CELL NUMBER., *
** OF82 LABEL
tIN XTB2 •
AREA *
* FROM WRKRGI
*
*****************
****
****
** G2 *..
* **
*.X.X •• *QK
***** *.X *****
J4*

GK*

*-*-*-*-*-*-*-*-*
• PO TNT TO S tXTH ..
-$V$XXX-

•• J5 •*

X

*****F 1*********.
..

..

*****************

x

• ***

X
*****Ht*****'*****

*
...

BRANCH TO
NVS ERR IN

*****G4**********
*LBlOUT
ON*
*-*-*-*-*-*-*-*-*
*OUTPUT PREVIOUS*
* XTENT TO VOL '"
*AREA OF SVSRES *
*****************

*
*

SJOBCTlA
*
***************

X
*****H4**********
* RESTORE WRITE *
* DISK DATA *
* LENGTH TO 84 *
* 8YTES IN
*

*

OTALGT
'"
*****************

.* .*

*oo • *

•*****.********....•
x

*** **r.5 ******* •••
'" ! NCREASE BYTE.
*COUNT IN WRITE '"
.Dr SK DATA LNG. *

:EX~~~~G;o ~~TES!

*****************

K2

.'. *.

.*
*..* . SYSTEM
FILE
*. * ..

X

*.. *

'" YES

•• ****
•
•**B3••*•

DCS/vS IPL and Jot Ccntrcl

*****J4**********

*PREV!DUS

x

* A4 *'"
•
.***

* ..

*K5 .. *

x

X

**H"i *******

*SET JQCSW5 *

* TO INDICATE *
*l8L Bll< PL'!.ESENT*
* AND NO
*
*STMNTS REO.'"
***********
•
****

·

*..* ..........
NO
.*

'"

*

*
*
EXTENT*

**"'**************

. . . . .o . . . . . . . . . . .

•
.o . . . . . . . . . . . . . . . . . . . . . .

J'S

'*..X.

***** ' .

* MOVE CUPPENT
*
EXTENT TO
* OUTPUT APEA
* OVERLAYING

****

YES

x

•• ****
•
B2 *
•****
•

*
.
*.. X.

* WtTH ADOPESS •
*OF NEXT EXTENT.
* $f\VE AREA •

*

*'"

•***. •

****G3*********

X

*

LAST *.
.* .*OPERAND
*oo NO
... STOP CHAR A .* ..•.
*.. BLANK .*
*. * •. * .*
x

F5

• **** *.•X
NE WXTN
******** ••
******F5
UPOATE lBlPTR •

C5 ...

*. *.

..

x
.*. * ..
Kl

232

X

X

...

.*.

*

****

• **** *

.• J2FIRST*. *. *. NO
*..* EXTENT
.* ....

******************•

* YES
x
****
* G2 *-

MTAFLG, LABEL *
'"
* +X'10 1
*****************

*

x

X

UNIT ADDRESS
IN UNCLOR

*****F4**********

* SET FLAG BYTE *
*
* MTRSVD IN
* LABEl+8 FPOM *

*****H2·*··******
*INI T pal NT4 AS *
* POI ~TER TO ...
*PREVIOUS EXTENT*
** 0,1
AND ZERO St TS *
OF MTAFLG •
*******'**********

•*****Jl**********
•
*STORE SYMBOL Ie *
*
*

-

•*

•***** •

*

•**** *

*(HUNeO
PT*
*-*-*-*-*-*-*-*-*
*CONVERT SYSXXX *
* TO SYMBOL Ie *
* UNIT ADDRESS *
*****************

X

OUTl Bl

* **** •
* G3 *

XTOUT
.*.
.*. * ..
Gl
G2
*. * •
•* SCAN *.
•* 1S
.*
STOP CHAR *. NO ..
.*
FllE TYPE *. NO
' . SEQUENTIAL SD . . . . . .
*. *.A BLANK
OR
.*
.•
X.
COMMA
oo*
*. OR VSAM .*
*. *oo .* .*
*. *•• * .*
x
x
* YES
* YES
• **** *
•**** •

* G3

XTUNtT
X
*****C5**********
..
I/l.JCD:EMENT
*
*EXTENT CNT BY 1*
*• rFTR'ST
N BYTE a OF *
EXTENT ..
*
-MT~<;Vf)
*
**********.******

'.
•

*

*

•

* ..

****

..

*

****
X
**E4*******
*SETBITO*
*OF MTAFLG ON *
*TO FORCE lIOCC; *

*****E3**********
*lBLOUT
QN*
*-*-*-*-*-*-*-*-*
* WRITE EXTENT '"

******************
WRKRGI
*

SET NO

XTENT
FLAG
***********
****
.. E4 *.x.

*

*****E2**********
*NUMC ON
QR*
.-*-*-.-*-*-*-*-*
* CONVERT B2 *

*****************

OPERAND

•

X

**D4*******

.

STMNT FLAGS *
IN JBCSW5 ..

•*********** •

X

X

* POINTl AND ..
.PO tNT 2 FOR SCAN-

..

r5

: .......... x:

.*.x *.
*

*

*****************

*. *... *.*

•

OAT A LENGTH,
DTAlGTt TO
104 BYTES

.* e4 VOL *. *.
.*SER. NO. EQ*. YES
* .PREVIOUS VOL .* ....
*. SEP NO • • *
*.
.*

•**** •

*****El
*UPDATE **********
POINTERS_

.SCANR3

..*•..

.*

x
.* .

X
*****C3**********
*SET WR IT E DISK ..

*. *.
.. NO.~
VAllO
X••• *.
LENGTH
.*
*.-1 CHAR- oo*

..
..
..

:.......... x:

RTN .. STORE
TMPARI

.*

84

****

,- .

..
..

.. ..

•

X
**63*******
*SET SWITCH *
* MTRSVD AND *>;:
* MTAru; AS
LAST so
*
*
* EXTENT
***********

*****82**********
*SCANR3
GK*
*-*-*-*-.-*-*-*-*
'* POINT TO 7TH *"
** OPERAND
*
-82*
*****************

NO

APOS-;o*~

x
C1
....
.*
•• *.
NO.*
IS
.•..
*. ....THIS
FIRST
EXTENT
.* .*
*. *... * .*

..
..
..
..

*

X

....

TRQPHE
..

.

•*****
•
B2 *

****

.* IS T ....
•* AND LAST *.

•*

.-

X

*****A 1*********.

*SCANR3

A4

•*****
x
CHKPLJN
.
A4
.* THIS *. *.
NO .. *UN!T EQUAL * •
. .. *. TO PREVIOUS oo*
*. UNIT .*
*. * ... *.*
x
* YES
****

*

x:

x
****

•'" F5 •*
•**** •

it

*********
*****J5
BqANCH TO
*
:t:
CO~TqOL IN
*

*

 FIRST >.
EXTENT
•• NO
*.SPECIFY LoGL ••••••
UNIT

•
•
•
•

.•.x

*.

*

NO
••••••

.•.x *.

.X

*.

X

.....

GET VOL
SERIAL

•

X

.*

NO

••••••

•..••••
•
• C4 •* •••x

*

.*••..

X

SET FILE
SERiAl FROM
VOL. SERiAl
NUMBER

•
•
•
••

••
••

••

•
•
•*

•
•

VALUE FOR
EXTENT TYPE
TO 1

••••*............

LAXERR
FEVSERl
••
••

..

E2

.•.

••• *.

x

*-.-*-.-*-.-*-*
. . •*
GET SYSXXX

*

..•••••••••••••••••..
•

OPERAND

* •.•

*

QC •

••*.

.•.ic

..

.*G2FIRST•• •. ••

..

••
*.

x
•,..••••
02 *
,..
•

EXTENT

•.

.*
*•.
* *NO

•

YES

*••••

.•. *.

••••*
••
•• X. B2 ..
•••**•

• *
• *•••*

••• *K
1******.*...
..
BRANCH TO

• • X>

o

NVSERR IN
SJOBCTLA

••••*•• _•••• *-••

•.. ••••
Kl •
..

·......

*.

*. *•

*. *.• *.*
• NO

:X •••.•••••• :

•

.X •••
•

*. *.

..
....

•• .*

•
•

ic

•·*.*K2···**·····*

OEFAUL T •
FOR NEXT
.EXTENT TO VALUE •
.. OF THIS VOL ..
* SER TAL NO.

•••••••••••••••••*
it

.*.*
*• 83 •*
•••• **

E5

.*.X ••

.• 3540 *. *. YES NO...* EXTENT *. ••
LA-BEL SET
.* •••. X•••• *. TYPE EO .*
*.
.*
••
1
.*
*.~ .. lO;;..
~
*.~ •• ,;:; .•
• NO
*****
*
YES
·OS •

*•C2*
*

*
NlSERR

X

····*H3**··*.·.**
"TEST FOR START •
TRK. AND TRK. •
•
NO. BOTH
•
.PRESENT DR SOTH.
NOT PRESENT •
•

•

·• x•••••••••••.
X

•
•
•

•*****•••• *••*.**.•

.. .•
• .x*

*.*.*

.*.*...

x
.****
·OK ..
• EZ*

•*

•

FETK

**

FIELD IN
OUTPUT BLK.
•

• REFERENCES

.*..
.
*••••H4****·**··*
•

• STORE EXTENT
TVPE IN
•
OUTPUT BlK.
•

ic

·***·FS*·*****·**
OL •
*-*-*-*-*-*-*-*-*
•
PR
NO.
"*.SEQUE
INse
ENT •
RND •

*FESEO

***.**.**.*******
.**.
.
* • •

• NO

..···J3
.....••••.•
•

* SET
• VALUE

••

.*. ••

Fit
*.
•• F3 "' • *•
•• ~hENT Ty;e*. NO
•• OPERAND •• YES
*.
EO 8
LENGTH GT .* •.••
••
1
••
*.
.• ••••••
*. ••• * .*
*. * •• *.*
x
o NO
••
• YES
*QI)i**•
•..**.*
K1 ••
• C2·
• •••**
* •
*
x
NLSERR
.
X
G3
••
***.*Glt***··****·
•.
•• PUT 128 INTO •*
.* .* OMITTED
OPERAND •• YES
*.
••••••
•
EXTENT TYPE *

.•.x

•*

* ••
*> NO

• 81*

FEtVPEI

.•.x

..........*••••••

J2
WAS
YE S •• VOl SERI AL ••
•••••••• SPEC. ON lST ••
EXTENT ••

••

••

•. *••• .*
• YES

x
••••
.. C2 ..

.*

X

••

it

H2

.".

."* FILE •• *.
•••••
EO
.*
*. TYPE
OA
••
*. *..• .*
it
**
••*
• YES
*OK *

• NO

..

>

•• ARE..
•
• * LOGICAL •• NO X
*. UNITS THE ••••••
••
SAME
••

x
.*. >.
J1
.* FIRST •• ••
YES.*
• ••••
EXTENT
••
*. *.
.* .*

.•.*

X

05

NO.*

*.

*

*. •• YES
.* .•..
.• .*

NO

.. ..

.•.x

*
••••••••
**•••••••

Gl
•• •*OPERANO
OMITTED

*. *.

FETYPEO

TYPE EQ
1

*. *.

Eit

;eo

• INSERT SERI Al •
• NO. IN OUTPUT
BLOCK
*

..

.•.x *.

*.

.* •••

•* EXTENT •• ••

•.***•

.•OPERAND*. •• YES •
OMITTED
.* ••..••
.*
.*
*••

FEVSER2
X
• FETlNSRl

QB*

.* .* ••.....••••••.••.•

x

••

•••••
F2*••••*.*.*
$-*-*-*-*-*-*-.-.

X *••••••

*. NO

*. * •• *.*

04

• NO

••••• F 1•••

..

••

so

•*••••

ic

*. •.

..

•• ¥* ••••••••••li<-..

• FSCANl

.•.

FilE
TYPE EO

• YES

YES.*

•
•
•-

Cit

.. Hit •

•
SET OEFAUL T •
* VALUES FROM •
• CURRENT EXTENT •
.A5

.. ..

***.*03 *.*.*••*.• SET DEFAULT •

OPERAND
•
•••
***.***
•••••••*

*••

•••·*EI"•••••••••

"'. *.

:X •••••••••• :
••••••••••• X:
:FETYPE
x

*FSCAN

ic
·os
•
... C3·

*••
*
.. YES

*.

1ST

EXTENT

.......******••••

•

"'.
X.

FEVSER

...

* •••
o YES

•
•
•
•o

. ..
• ••-

•.

83

••••• C3 ••••••••••

. . .... 02 •.
.**. .
os.
*.···02··········
*-*-.-*-*-*-.-.-*
*
•

FDKTV2

DEFAUL T

**.*

.................

ic

-**

.Qt..

01
•• ENOUGH
•• NO
••
ROOM IN
••••••
LABEL ••
•• AREA ••

TABLE

•

• PUT lOGI CAL UNT.
*INTo EXTENT AND.
• SPECIFY THI S •
.UNIT AS DEFAULT.
*IN NEXT EXTENT.

·82.

..

*

.*

... K1 •

>.

****

••

.*x•••

.

> YES

FESYSX3

••

* ••
• *
YES

..

*. *•••.*

·•••••..C2.···....·•

•• •*EXTENT *. ••

.*.

....

.*

.. C2 •• x.

*. •• SEQUENCE
IN
••
*.
.•

••

.0

.................
Cl

•**.**
x

x

•••••B1··········*

EXTNT

4. EXTENTElOWER lMT.
5. EXTE~T UPDER lMT.
6. LOGICAL UNIT
1. BIN NO.

• *.X. TO

QJH4:

QKC1. QKKl

FETYPEl
.FESEQ

X

QL •

*-.-*-*-*-*-*-*-•*

• PROCESS EXTENT
•
SEQUENCE
•

OPERAND

*
*

***.

.**••**.*********

.•.x *.

..

.x *It

J5
.*
.*
*. YES
YES.* ASCENOING ••
..FIRST EXTENT
X••••
SEOUENCE
••

.•

•.

J4

J5 *
•*•*•••
••

*.

*...
*•• *

.* .* ..••

C4 •

•*.*.

Kit

NO

x
'* ••••

.•.x *.*.

*QS •

.
.* .*
*..* YEs
... x ••
*. *.
.*
ic
• •. * .*
*.**.
• NO
*OK •
: FETK
*
E2*
X

•• 3540 EXTENT

*****
•
J5 •
•****
•
•

*•

.*
...*
*.••
*

• NO

****

*. •.

•••

• Cl*
OTSERR

••*

Charts

233

Chart QK.

$JOBC~LK - EXTENT State.ent Processcr (Part 2 cf 3)
Refer to Chart 18.

•,.••••
82 *
•
*••••*

*****
"'QJ '"
'" 05*
•*

*

x
.* .

FETYPEI

0,

•• 1 OR 2,
*.GT 2

.*

.*

*****82*********·
*FESEO

,.
,.

OPER AND

*

x
*****

******
*
84 *

**
*

***** *

FESPrt;:

,.

•

***********.*.***

*QS ,.

x

*****84**********
OS*
*-*-*-*-*-*-*-*-*
,.
GET SPl IT
**
,.
CYlINOER

*. *. NO
.* .....

*FSCAN

FIRST
*..* EXTENT
*. *.
.* .*
*..
* *YES

*-*-*-GET
*-*-*-*-*-*
seQ
,.

.* .0 .o.,

'" '" '" .*lOR2

.. *

Ql*

83

****
.*.x * .
83

X

61
* ..
a* EXTENT *. *.
GT.2.*
•••••• TYPE EO

*.**

**

*

,.

*

OPERAND

*****************

.. C2*

* 0
*

x
.*. * '"
C1

x

NLSERR

.*

•*
*. *. YES
FILE
*..*... IND,
TYPE EO
••••••
seQ .*
*.EXP . . . *
~
•

*. *.

X

*****01**********
*FESEr.)
QL*

*-*-*-*-*-*-*-*-*
'"
GET EXTENT
'"
'"

seQ

'"

*•.
*.*
'" YES

*... ,. NO
........

.. '"

*

x
*****
**os:+
C2 *
**
*

...

'"

*****************

*o Gl

• '" "'.ox.
* *

x

.* . * =SEQ0 OR*. *..* YES
.....
"'..
1
.*
*. * ...
.*
x
*
• NO
*****
*os"
.. C2*

.*
"'..

.*

*..

.
..

FIRST
EXTENT

*. "' ... *
•

****
'.
'" Gl •• x.
•**** • x

**

*
NtSERR

**** ,..
*.*.*
FETK
..

E3

Gl

*..* YES
......
.*
.*

SEQ

'" YES

.*

x

*

****

*RELATIVE START ,.

*
*

.*.*•••••

******"'****"'*****

J1

.*oo

*._-*-_.

o *

*

*

H2

YES.*
••• -.

03

****

"' ..

*. *. NO
.
.* .* EXTENTS
•• • X*.
EQ TO 4
.* .•••
*. *.
.*
.*
x
* •.
*
'" YES
*****,.
·QS

**

.* OPERAND .oo

*.

Opl'ITTED

*. *... *.*

lIe.

..*

"' ..

.* FILE *. *. YES
*..**.SEQ.
TVPE=INO.
.* ....
EXP •• *

*. * •• * .*

it

*****

.

• NO
*QJ *
: FETYPE!
o H4*
0
X

*

****

** B2 **
**•• **

234

******K2
PUT **********
START
•
* TRACK IN
OUTPUT
**
*

*
*
0
*********.*******

DCS/VS 1Pl and Jot Centrel

*

.
'
• .. x*
*

x.

****
H4

•* •

*.

•

*

X

*

>

.> •

*.
.* EQUAL *. *.
qGN END
~*
*. SCAN .*
*.
.*
(';5

NO.*

•.. *.

x

****

*
*
>

H4

****

*..
*
* YES

•

**
X
*****H5 *******"'**
.FEBI N1
OB*
*-*-*-* ..... *-*-*-*-*
'"
PROCESS
*

*

B 81 NS

•

: X. . . . . . . . . . . :

.*X.
J5
*.
**
.*EXTENT *.
YES.*
LIMITS
*•
*X ............ *. OMTTTEO 1ST .*
'*
* .. EXTENT .*
FESPLIT4
FESPLTT~

CLEAR EXTENT
LIMITS FOR
THIS EXTENT

*
'"
*****************

*****

* G2*'*
*•*

*QH

.* .*.

•

XTOUT

**** 0
B4

*

***** *

*

**.***.***********
OPERAND
'"

*..*
> NO

*. .•

: x•••••••••••••••••••••••• :
x

*

.*

NO

*****F5**********
"'SCANtt3
GK'*
*-*-*-*-*-*-*-*-*
'"
GFT
'*
* S: PARAMETER '"
>
'*****************

*0

*'*

.*
*. *. YES..
. NO.*
.. *. NOT SOTH
PRESENT .* •• X.
*. *.
.* .*
x
x
*..
*
>

*•*

SCAN

*. *•. *.*

****"'J4**********

x

*****
*OS
* C2* NLSERR

**

tJOBCTLA
*
**************'"

****

*

K3

E5

****

........ X.*****H4*********
BRANCH TO
**
NVSE~R IN

o NO

>

•****•

X

****

H4

J3

*.

x

****

*. * •
SOTH
*..*YES
*..* PPESENT
....
*.
..*
*.
.*
"' .. *
•*

****

*

>

*

*

x

o

x
******
•
83 *

>

*••

. *. *.

BLOCK

*
*

*****************

*•*. YES
START
*..**. TRK
GT
lQ600
.* .* ....
*. *•. *.*
x
• NO

*

'"

*•

H3 •• X.

it

NlSERR

Ee;

.*
* .. *. YES
*.. * ENDBLANK
lAST
.*.....

I')R*

X

* NO .. 80TH
*
*PRESENT OR BOTH*
* NOT PRES ENT *

.*

•**

x

• 0.

*

i

>.

*
*
J2

*

**"'**G4********"'*
STORE SPLIT *
*CYL INOEP STRT. *
TPK. NO. FnR '"
OUTPUT
..
'"
>
*****************

FETKNOl
X
*****H3******** **
*TEST FOR START *
* TRK. AND TRK. *

o NO

•*

NLSERR
**** >
FE SPLI T2
• *•

**

* •
"'**'" •

.>.x *.

,. C2*

Kl

*

STORE HIGH
TRACK NO
FOR OUT PUT

****

x
• **** 0

:FETYPI:I4

*'"

,. TRACK OPERAND ..

OTSERR

H3

***'"

.GET AND CONVERT.

*-*-*-*-*-*-*-*-*

*
*

*'"

X

,. C 1*

•'" ****
•
F2 '"

X

*NUMCON

*****G3*********·

"'**."'QS *

x

*****E4**********

X
*****G2**********
*FETKTK
QL •

x

x

.*. "".
.* . "'.
F3
F4
.* HIGH "'.. *. YES YES.* .* VALUE * • "'.
.*
*. TRK GT
.* ..... x•••• *.
GT 19
.*
*. *19600
.*
*~
..*
**.••.** .*
* •• '"
* NO
* NO

..

*****************

.* . * EXTENTS*. *..*NO
• .oX...

NO

.*. ...
FESPLITl .* .
D4
05
*.
.*
•. *. NO
.*
*• •
•• EXTENT
YES.* EXTENT
* . TYPE=128 .* .... x...... *. TYPE EO * .*
*.
.*
*. 128 .*
*'* .. *.*
x
*0* ... *.*
'" YES
*****
*' NO
*QS *
*"'**
"" C2*
*
"".
* '"
* E5 *. x.

.* .* .

~

.EXTENTS OMt TrEO.

NO

*. * •• * .*

..

*****F2**********
,. SeT IMMEDIATE '"
,. OPERAND AT
*
,. FESPLlT3 TO ,.
* FF INDICATING ,.

,. .

*.IN ASCENDING

*.

•

.*
* •* . YES
*-*-*-*-*-*-*-*-*
*..* OPERAND
OMITTED
.* ....
*'
CONVERT
*
**'
TO
*
*. *.
.*
BINARY
""
.*
x
*****************
*..
• *
NO
****
• •

*F2*.X.
>

.*. "' ..

.FESEQCK

*

x

REFERENCES·
TO
QKE2:"
QJF5. OJK4:

.* •*.

.* OPE~ANO *. * . YES
OMITTED
.* .................. .
*. *.
.*
* •• * .*

*..*

•*

"' .. NO.

x
.*. * ..
Ft

NOT OMITTED

****

****

•* •"' ..

El

*•

OR

1

C4

-.

'"

NUMBER

x

X

*****C3**********
* RESET IMMED. **
* OPERAND AT
* FES PL IT 3 •
*INDICATING EXTS*

*****************
*****.
*.x ........... •.
*03*.X.
*
x
NLSERR
**** * X.
FETKNO
. *. *.
02
*****03**********
*fETKNO
QL*
•*
*. *. NO
FIRST
•-*-*-*-*-*-*-*-*
*GET AND CONVERT*
*..* EXTENT
••••••
,.
NUMBER OF
,.
*TRACKS OPERAND ,.
*. *•• *.* .."
x
*****************
'" YES
**.** •
•• **

*****
*QJ ,.
• H4*
**
* 1
FETVPE

NO

•* •*.

*...*NO.. =seQ0

x

'" .*

(2

Chart CL.

$JOECTLK - EXTENT Staterrent Processcr (Part 3 of 3)
Refer to Chart 18.

•****A2**·······•
FESEO
•• •••••••••••••••
••

X

FESEQ

***·*62.*·*.*·*.*
os.

• FSCAN

to-*-*-*-*-*-*-*-*

..

GET EXTENT

•

SEQUENCE

..

*
••** •••••••••••••
..

OPERAND

..

A3**·······•
•• .·..FETKTK
••••••••••••••••••
FETKTK
X
••• •• 83·· •••• ••••
*FSCAN
os•

*-*-*4-*-*-*4-*
• GET RELATIVE ..
>START TRACK OR 0
-TRK NO. OPERAND.

.**••••••••••••••

.•.x

x

•*C2 *. ••
NO.. OPERAND *.
•••••
OflITTEO
.*
*.
.*
.*.
ic
*••
*
.. YES

•••••
·OM ..
.. 02 •
•••
XTDP12A

C3

.*OPERAND*.*. YES
OMM!TED
.* ....•.......
*. *.
.*
.*
*•• *

*..>

····*02*·········
QL-

.... *-*-*-*-*-*-*-*

*

TE~'"

..

*

!=DP

OPERAND

..

•••••••••• *••••••*

• 0MISSION VALID

4O • • • • 4O

o NO

x

ic

*FETKTK

.* ....

03

x

.*. *.
04
.* OPEPANO* •*. NO
.*
" . OMTTTED ON
.* ......
EX'TE:N)*
*. * •• *.*
x
* YES
*****..
*oc;

.*. *.

.*.* OPER AND*. >.
.... tfNt;TIi GT . . .
*.
*. 5 .* .*

FETKTKI
YES

*.~~

..

fl~S'l

*•.
• *
NO

*

YES.*

••• • _.

.*

E2

.>.x

*. •.

FIRST

EXTENT

*. *.

X

*..*

•• .*

X

• 0.

**.* ••••

•
•

! NCREMENT
PREVIOUS
EXTENT SEO

.••••••••••• x..

0

x

F3

o

****E'5**"****** •
FETKTK2
*
*.****"•• *••• *••*
o

..

:x .•...•.•....•.•..•...•.. :

*.

*...
.. YES

.*

F4

.*x.

*•
*.

FILE
*..0 YES
*..**.TYPE
EQUAL
••••••••••••••••••
IND. SEQ .*
*. *••• .*
* NO
>••••
*••*
.. G5 •
** G5 '*. x..
• *
o
o •
****
****
0

•••••
o •

*

..
..

*0
o
*.*•• *.*.********

.*OPERAND*. *. NO •
*..* POSITIVE
.* •. x.
*.. VALUE .*
*.
.*
x

*QM ..

XTOP12B

LOAD ADDR.
LINKR3 INTO
LINKRI

FETKTK2

x

.. F2·

*

•
..
•

>
•

*
******.*****.**.*

*>
*
•
NO. BY 1
•••••••••••
** ••••..

o
o

OPERAND TO
BINARY

*••
o NO

•••• *F 2 ••

*****E4********·*

**-*-*-*-*-*-*-.-.
CONVERT
•

•

*

X

*****E3
**********
*M./MCON
QR>

C2*

*•

NLSERP

X

*****G3**.*
••*••*•
* ADO START
•
* TRK VALUE TO •*
•
OPERAND.
..
o

0

**.*******.******
X

*• *·**H3**·******
RETURN TO
*•
LINK REG
*.**.*.********* *

X

*****.G4*****·**·
RETURN TO
*•
LINK REG
*
*H4
*

**••**.*•••**.*

•
•
•

X
.***GS*·*·*·***
BRANCH TO
fIIVSER.fI IN
SJOBCTLA

.**.**.****."••

•

**

*H4
IF THIS RETURN WAS
VIA FETKTKl, RETURN IS
TO THE ROUTINE THAT
CALLED FETKTK.
IF ENTRY IS AT FETKTK2,
RETUQN IS TO FESEQ ROUTINE.

Charts

235

Chart

eM.

1 cf 3)

$JOBC~LK - label Precessing Subreutines (Part
Refer to Charts 17 and 18.

..··A2··•••••••

•••• AI •••••••••

**

*•••••••••••••••*

.SCANR2

**.*.82.*.*****.·
GK*

*-.-.-.. . *-*-.-.-*

*-.-*-t-*-*-t-*-.
* POINT TO 3RD *

*SCANR2

...............**

:.!~~~'~~i ~~

*
•

GK.

OPERAND
-CR DATE-

*
*

*
•

POINT TO
OPERAND

.*

Cl

x

•*.

• ••

...
DID *.
A COMMA *. NO

•• ENO THE SCAN

*. * . . * .*
* ••
*
* YES

*
*

*.

.*

..
.. C2 •• x.

: ••

.*.
01
'.
VALID

*..

XTOPl2A

x

02

.'.

••

•*
*.
..
.*
t.
• :* _~E~~I~s_ ':.~~x:x •• ~~':· Ll~~~a *:.
*.
.*
*.1-3 CHAR .*
*..*
**.••.-*
* •.
o *
YES
0 YES

••

IN LENGTH

*.

NO •

•••• X.

.•

x

••••• •
••**. •

• YES

•

X

X

•••**El ••••••••••
"NUMCON
QR*

••••• E2 •••••••

.................

•
•
*

'NUMCON

•

•

*

BINARY IN
WRKRGI

*-.-*-.-.-.-.-.-•
CONV ERT TO
•

•
•
•

•
•

BINARY IN
WRKRGl

X

xTOPI2B

•
:
..

:YE~~DANW~:mR
*K2

•

.•.

.*.. *..*...•
*..*

••••• Fl ••••••••••

••

•••••**•••••••••••*

F2
'.
BINARY
VALUE GT
OOFF

•••• ••••

YES

.*

.•
*.

YES.'
X••••

*.

X

.

• NO

•••••

•'QSC2.*
"
*
NLSERR

X

··G2 •••
••••***0
*•*••STORE
BINARY
VALUE IN
*•
* EXTENT
SEQ
•
-XTSEQIII•
••••••••.K5
*••••••**.•

FIELD FROM

•
•

BUFFER TO

.".

t .. DI\V 366 OR

LESS

*. *.... .*

...

.'

*NO
.. aX.•

• YES

X
••••• Jl . . . . . . . .*.

.0.x * •
Eit
.•
*. ••
••
LOG

••

•
•

*. ON

SYSLOG

*. *••• .*

X

•

:

••••RETURN
KI·***·****
TO
•
o
CALLING
•
•
SE~UENCE
*
*••***** .......

236

CALLING
c;el')

•• *.*****.*.**.

•
•

NO

.• ••••••

" YES

F3

.*X.

'.
IS
EXTENT

*. ' .

ZERO

*•••• * ••
•

••

X
••••• F4****.*
••GJ'
*.
.-*-*-.-*-.-*-*-*
• LOG STATEMENT'

"LOGOUT

••

·
"

ON SYSLOG

•

.. 1';5

X
•••*H2 •••
·*••••
RETURN TO

s~~bHlEi

*

:

•••••••••••••••

••****
G5 •..

**••• •

: X•••••••••• :

X
•••·.G3 •••••••••
*•

• SAVE B1 IN
• SVXTB BUILD
*EXT ENT I NFO IN
•
LABEL AREA
FROM WRKRGI
•

•
"
•
*

.*
••

".

•••••••••••••••••

••

G4

.'.X •••.

ic

LOG
•• NO
ON SYSLST ••••••

*.

....

.• .*

• YES

X

•
*
•

*••*H3*****
••*.•
RETURN TO
CALLING
SEQUENCE

•
•

*•••** •••••*•• *

X

.

.. *.** *

***.*.**** •••****..

NO

*·.*G5····****.
BRANCH TO
•
IN
•
* NVC;E'q;P
SJOBtTLA
•
*.**** ••• ******

•
..

x

.*••.

•..**85•• ••

***.*H4.*·**·*·.·
'LSTOUT
GJ •
*-.-.-*-*-.-$-.-*
.. LOG STATEMTNT ..
*'
ON
•
*'
•
SYSLST
*********.*.**••*
X

*••*.•

•

*'

**** 0
85 •

..•• *. "

**
*
•
·K2
•
*•••••*•••••••••••*

X

•

*··*05.****
••*••
RETURN TO

G5 •

• STORE BINARY
DAY IN DACRDY
•
FROM WRKRGI •

•

•

•

..

* •t .
•*HI
[s
BINARY
*.

••

X

..

..

BUFFR2
*
•**•••• *** ••••••• *

x

••

AND
•
* BUFFRI
8UFF~2
***
•••••••• .E5
*••• ***

•

••••••'.X.x
• F2

• STORE BINARY

:pn~T!lA~m~2 :

*

···**04**.··.·
••*
" MOVE OPERAND *

.*••••• *•••**••••

••**•••••••••••••

••••
·Ql"

*****C5***
•••• ***..
• UPDATE REGS

*ATION STATEMENT'
•
INTO BUFFER •

:~~=~6~····**·Q;:

QR'

•-.-*-*-.-.-.-*-.
CONVERT TO
•

*-..-*-*-*-*-*-*-*•

• CONVERT YEAR
•
TO BINARY

x

*••

i<

·****Clt***.**
•••
*
*RDSTMT
GL*
...-*-*-*-*-*-*-*-.
READ CONTlNU- ..

•

•

•
'* LOGGING
ONLY
•
0
*.**••*****.*.**.

X

•* 9 ••
..CHAR ACTERS ' .

FOR ERROR

..

•••***.*••*******

.'.x *.

.. .... ..
D3

..

X

*•
A COHMA ' .
DID

• YES

••••
tQL"

X

.RESTO~E

•

•*** •••****.***•••*

x
.* •••

•.

i<

·****85****
•••• *•
BUfFER.

• IMAGE IN BUFFR I'
•
FROM BUFFER "

.'
NO
'.END THE SCAN .* ••••

.* ••.• X •••••• END THE SCAN .*
*. *..* .*
*•.•
* YES

. *••*

**.84*·*******.•
•••
• SAVE 1ST CARD'

.. .... ..
C3

••

.

•*.*.*
85 •*

X

CONCAT

••••••••*•••*••••

C2
.* DID *.
NO.* A COMMA ••

.

CONCAT
•
••••••••
*** •••**•

.LOWER AND UPPER"
EXTENT
•
•

•. •.:

x

•*

.··.A4*••·***·*

•

XT O:~!•• B3.:*•••••••
*StANR3
GK.
*-.-.-*-.-*-.-*-.
OPT. TO OPERAND •

X

XTOPI2

DOPl!***Sl.i•• ** ••••

·

•••• A3**.**••• *
* XTOP34
*•
•
***.***·J2
••••••••..

** XTOPI2
*•
*••••••••••••••••

**

OOP3"

'K2
THE REGISTER POINT4 POINTS TO THE CREATION DATA FIELD
IN THE LABEL AREA WHEN PROCESSING THE CREATION DATE.
I I POINTS TO THE EXPIRATION DATE FIELD IN THE LABEL
meEt~~Nu~mnSl~& mT8~W~1il1:4~ATE. THE CALL ING

DOS/VS IPL and Job Control

*K5

WHEN RETUDN , S MADE TO

THE CALLING SEOUENCE
DESI~EO BINAqy VALUE
IS IN WRKRGI AND IN
THE EXTENT SED
NUMBEP FJelD XTSEQN.

Chart

eN.

$JOBC~LK - Label Frccessing Subroutines (Fart 2 of 3)
Refer to Charts 17 and 18.

...-

*
*

LBlOUTF

81

X
.*.
...

.* •*REQUIRED
HOPE .. .*. YES
..
•••••••••• X.

'.

_STATEMENTS..

X"

*..*

*..•
• NO
X

*

seT BLOCK
NOT PRESENT

..
•

•
..

INDICATION
XllO' IN

..

..

J8CSW5

X

****82···.·.·••
RETURN TO

CALLING SEQ

•••••••••••••••••

·····B3·········•

X

X

..

•••••••••••••••

LENGTH INTO •
•
WR.KRG'"1 AND
..
.AOO KEY LENGTH •

..

•
•

*·*·*811)**·**•• *••

*
..

•
CALCULATE
•
• DISPLACEMENT •
'INTO TRK ALLOC •
• T ABLE FOR THIS •
'LBL + PARTITION'

..

•*
..

tcw's ..

•••••••••••••••••

······C3·······**..
..................

*
····*e5··········

X

••*••05.·X••••••••

•

•
•

..

INTI'] WRITE

CHECK

•••••••••••••••••••

•

••***••••• *.*****

STORE LENGTHS

..

X

X

·····Cl··········*

..

••••A5···••••••••
••
•
LOAD DATA
•

•* IS •. •• YES
*..*'.STANDARD
THIS
.* ••••••
·.LABEL.·
*•.•
o NO

•••••••••••••••••
l8LOUTF

.. A5 ..

••••
x
.'.
Al
*.

••·•• Al**······· •*

..

....

• •
••••• •

•*
•

.. A3

LOAD START

AND END TRK.

NO. INTO
WRKRGI

COMPUTE
SPACE ~EEDED
ON TRACK
..
FOR DATA
•
.C5

*

•

*

..

•

*

•
•
•
•
•

•••••••••••••••••

:x .•....•... :

X

LBLOUTOB

••• • •••*.·
**.···03
PUT END TRK •
..
NO. INTO
..

••***0 t********.*

*

*
*

PLACE ADDRESS.
• OF LABEL SAVE
..
AREA IN
..
..
LBLPTR

..

..
..

*

El

~o

••••••

••

.'.x o. ••

ETvp~

EO

so

*. * ••• ••

*

• GET REMAI NI
•
T~K.
•
CAPACITY

•

FROM
WRKRGl

..
..

••••••••••••*••••

••••• **** •••• *•••

•*
-* 1=1/

WRKRG4

*

•..

• CONTAIN ONLY

•

.. sa

••

IT WILL

···**E5.*.·••••••
QP*
.-*-*-*-*-*-.-*-.
.. CALCULATE THE '*
* NEW REMAI NI NG •

*LB Loun

•

START TRK NO. *
•• ••••••••••••••••

.. YES

•
..

X

X

.. $I.n-=r klP',,"Rr;l

••

•••••••••••••••••*

• •••*e3.*••••*•••
.••

N~

.. TRK. CAPACITY.

•••••••••••••••••
x

X

••••• Fl***.·.·*.·
•:LAW S&L~~T~~T *:
•
•

•

PUT START

•
TRK. IN
• COMPARE INST
FOR EOF LOOP
o
CONTROL

*

BLOCK ANO SET •

FLAG FOR SO *
•••••••••••••••••

X
.:.

.•

G1 •••••

BlK

.

.:.~~ ••• :

' . PRESENT . '

* •••
• YES
X

•• H1*.*••••

• • SET BLOCK ••
o NOT PRESENT •
FLAG
*
•
•*••••••••••
•

X

•••
*.J 1*** •••• **.*
o LOAD START
•

AND END

•

o TRK. NO. WITH *
STSh~m IN :

:

*****.*••• *•••••*

**
*

***··G3····*****·
•*
DEeR EMENT
**•
* START
TRK

*
NO.
*
••••
*.******...***•

H3

.•.x

X

**.**K 1•• **** ••••

• REPLACE END •
• TRK. NO. WITH
o UPP ER HEAD
•

*

NO. IN

..

:••• *~:~~:l •••*.:
x

••

.* IS •. ••
NO .*
••••
'*. O.NEW
THIS A
••
AREA . '
*.

....

.*

o YES

X

.****J3** ••****••
SET THE
*•
•*o WRlT
DISK
* HEAD ENO.
TO •
.. START TR-l
**••••••• ***.....
It-'

: •••••••••• X~

•

***

•

X

*.

.. ..
LAB~

• A1 •

..

•••••••••••••••••

.••••••••••• x..
LBLOUT

****.
·OP •

•·.·.F3·.*···••••

X

•.**.
•
AS *
•..••••
•

·G5

o + K X 537
2311: ---------- + 81
512

o + K X 2137
2314: ----------- + 146
2048

o + K X 512
3330' - - - - - - - - + 193
512

ID-DATA LENGTH. K=KEY LENGTH' ..

••••••
A3 •
•• ••••
•

Charts

237

$JOECTLK - Label precessing Subroutines (Part 3 of 3)
Refer to Charts 17 and 18 •

Chart CPo

•••••
*QN III

*•••
*.. A3 *..
***** *

• E5*

• *

*

x
A.'.
I·.
.•
*. *. YES
.* ROOM
ENOUGH
.....
ON
••• _••
••

*~

TRACK

* ••• .*

••

x
*•••
• 03 •*
..
••••• *

• NO

••••
* '.
•• *••81-••• x.

X

····*81*···**·***
*•
*•
LOAD
CURRENT
*

*
•
..

TRK. NO. IN
WRKRGI

•
.,

..

..

**
TRACK
..
*••••••••••••••••

·

.*

*.

••

ENOUGH
ROOM ON
TRACK

*. *•.• .•

X
LBLOUT2D C4 •••••

*.••••••
NO

••

x

.. YES

• . . . .C5 •••••• * •••

*.
*tOROUT
NN*
FIP ST *. NO
*-*-*-*-*-*-*-*-*
*.••*.TRK AP
OF THI S .* ••.....• x*
T SC;UE
EA.*
..
J /0
**.. .••*
*
*Ht
*
*********.***.***
.*

**.*
* 81 •..
••••
..
03 '
••.
X.
•
•
****
•*••• •
X
·*·**03**·*****·*
•* INITIALIZE *•

.. YES

*
..

••*

X

LAX ERR

*·*.*01****"**···
**
INCREMFNT
*• AND
TO NEXT TRK *
STORE IN *

*•

*

WHHADD

•

•••••••••••••••••
x
*•••
*
A3 •
*•••• •
•*

SUBTRACT CURRENT BYTE
COUNT FROM REMA IN ING
TRACK CAPAC ITY
ORIGINALLY SET AT 3~25

Apm~o 7~~Mf~14)'

•
*
•

SEEK TRACK
AND RECORD
NUMBER

•
•
•

•••••••••••••••••
*

**

* UPDATE WR ITE
*
RECORD
NUMBER AREA
•

:OPLBNF

••
•
•

*.111••••••••••••••••
X

'MTNCNT

GU

*

*-*-*-*-*-*-*-*-*

*
•

RELEASE

CONTROL

•

*

*
*
**********.******
X
*.***G3*.********

**
*
*

LOAD ADDRESS

*•

SYSRES eCB
INTO REG 1

•
•

Of THE

..

*****************

x

.*.*.
H3
•* START *. ' . NO •
.*
*. *.NEW OfAREA .* ••••••••
*. * •• * .*
* YES
X

*****J3*******.**
* LOAO DATA *•
*
•
..

LENGTH INTO
WRKRGl
FOR
SAYING

•

X

*.•

*

•

*****************

*****K3 ********

**

seT DATA

•
..

AND
KEY LENGTH

•

TO ZERO

•

**
•

••**••• **********

x

*• ****
A4 •*

•***. •
DOS/vS IPL and Jot Centrel

X

*·***04*********.
** PESTORE
..
DATA
..
** LENGTH
*
FPOM
..
* WPKRGl
•
*************.***

••••.....•. x:
X

• •••• E3 ••••••••

.****F~*.*.******

238

.

SET HEAD
*
..
**"" NUMBEP
FOR EOF
WPITE
*•
**********.***.**
•

x

*.

*•

..
..

: x•••••••••••••••••••••••••
X
*****84****.*****

*
CALCULATE
•
• NEW REMAINING'
'TRACK CAPACITY *
..
*El
•

.. .'. ..

.

*****************

····.83······**··
*
•

x

REG fOR

IOI=!OUT
RETURN

LOAD LINK

**

X

C3

*

A4 •

X
*****A4**********

RES ET REC
NO. TO 0
..
III AND WRKRGl
..
NO. BYTES PER *

..

•••••••••••••••••

• QS •
• C3*

·

X

*
·····A'
)**········*

LBLOUTl

****

•****•

•••••••••••••••••

.*.
•*CILAST *. •• *.
YES.*
••••• TRK. OF AREA .*
* .EXHAUSTED.*
*. *•.• .*
x
• NO
..*••

*El

•*

ic

•****** E4**********•*
SET KEY

•

*

LENGTH
TO

*

*

•
8
*
.*.********.***.*

X

*****F4**********
• lOP-OUT
N(*
*-*-*-*-*-*-*-*-*

••

*

ISSUE lin

••
•

*****************

.'.x

G4
*.
*****(;5******.***
.*TRACK
LAST *.
*MTNCNT
GU *
OF *. NO
*-*-*-*-*-*-*-*-*
*..** .CYLINDER
LABEL
•••••••••• X*
SEIZE
**
.*
X
* SYSTEM
**.. ..**
'***.*************
"
*
• YES

ic
*****H4**********

ic

•*
*•* RECORD
UPDATE
•
* NUMBER
*
******************•

*****••• *
***·*Hr;
RfTUPN TO
**
CALLTNG

...

*

X

*****J4**********
• IOROUT
NN*
*-*-*-*-.-*-*-*-*

**
*

WPITE

EOF
RECORD

'"

•
'"

*****************

ic
*****K4*********·

**

RESTORE

*

NUMBER

•

PECORO

••

•

•••••••

*

•****.*************

<;EQ

***.**.*****.*.

•

Chart QQ.

$JOBCTLK - RSTR~ Staterrent Prccesscr
Refer to Chart 18.
••• *

• •
*•••• *

•...·AI·········•

..

RSTRT

..

•*••••••••• **.** •

X

•••• •

o
•

.. A2 •

*

··.***.

A4 •

.* •• •
X

A2 •••
*•*** ••
•
BLANK PHASE •

•• SAVE

..

••...*•.....•.•••.*•

.. NAME 10 CHAR

..

.... PHSNAM... 1-

'THE COOING FOR THIS ROUTINE
ACTUALLY APPEARS IN THE
SJOBCTLK PHASE. THE CHART
REFERENCED IN A DIFFERENT
PHASE REPRESENTED LOGIC
IDENTICAL TO THAT FOUND
IN THE $JOBCTLK PHASE.

••••• AIt··········

•

..

•••••••••••••••••••

•

FILENAME'
IN FILNAM
•

*•• *

....•*

••

•

.. 84 •• X ..

X

RSTRT

*·*·.·.·

X

•****.81*·····**··
••
•
INITIALIZE

*.*·*82
*SCANR3 ••

•• *••••••*•• ****.*•

oFIRST PAAAMETERo
..
-NNNN..

ERROR LINKAGE *
REGISTER
•

•
•

X
....
*C1····*···**-*-*-*-*-*-*-*-*
*S.CANR2

GK ..

*
POINT TO
*
• FIRST OPERAND'
..

-SYSXXX-

LOADRS

*• •••
·84*·**······
IN IT REGI STER •

GK*

*-*-*-*-*-*-*-*-*
•
POINT TO
*

POINT4 AS
•
•
POINTER TO
.LABEl SAVE AREA.

*

•••••••••••••••••••

•••••••••••••••••
x

cz

,*.

•*

'•

C4

•

*.**** •• *** •• ***.

*.

SCAN

~

.•

.'.x *. *.

•• HAVE
.LABEL STATE-*. NO

DID ' .
NO.* A BLANK *.
, ••• O.OR COMMA END . '

*.

.X

··.~~~6Mm .• ·•····
*.
.*
ic

....

••

*..
*
* YES

04

• yes

.*•• *

x

OTSERR

'"
•·OS
Cl·

••
•

.'.* .

•* IS ••
' . NO
*.• 'CHECKPOINT
UNIT A SEQ •••••••
*. DISK
••
*.
.*
*.. *
• YES

X

*****E 1* •• **•••

'CNUNCO

*.

PT'

X

.CONVERT SYSXXX ..

•••••••••••••••••

•••••••••••••••••

* TO SYMBOLIC
• UN IT ADDRESS

Fl

•
*

x
,'.
...

.*
* ..•
o YES

.'

:mA~vNVERT '~3:

COMPUTE LUB
POINTER IN

•
..

WRKRG3
*
•••••••••
*** •• **.**•

X

*.***H 1*.* •• *****
GU •
*-......-*-*-*... *-*... *
:ASS~~~~~N+H~OR :
•
THI S UN IT
It*.*_*
••• *",.*.****

*CHKASG

Jl

.'.x

·.**-.-*-.-*-.-.-.-•
..

NUMBER, R1GHT •
• ADJUSTED; IN
•
•
CHI<.PTN

•

.PROHt8IT WPITE •

• OPERATION ON
• SYSRES. PIB
• ASSIGN FlAGf

Ii.

...

..

x
•••• 0

.* . * UNtT *. *. NO
ASS IGNED
.* ....
•.
.*
*.
.*

X

••
*.*H4**·.·*****
'MTNCNT
GU •

.-*-*-.-*-*-.-.-.

.-*-* ..... -*-.-*-*-*

-POINT TO SECONDo
•
PARAMETER
_

••

*.

X

X

*.* •• J4 •• *** •• ***

DID ••
A BLANK ' . NO

*. .... *.'"

.*

x

·

'" YES

.

.**.*Kl***·******

•

SAVE PUB

POINTER IN
PU&ADOR FROM
WRK~G4

*

'"
..

*•• *

.~

•• *******$4~*!r-*- *-:+-* ~*

FILE HEADER

*****************

*
*
*
******************•

*****************

• 0.

Gl
••
.CREATION"'.

..

.. WRITE IPLMSG
TO HC FILE

****1tF 2 **********
*PREPOOO
RP*
*-*-*-*-*-*-*-*-*

*...

ESS

X

*****04**********
*PlDHORJD
RH*
*-*-*-*-*-*-*-*-*
*
SET UP
*

*

MAl NOl!

*****F 1**********

x
.*..
*..

X
*****E3 **** ****RR*
**
*HClOR20
*-*-*-*-*-*-*-* -*

~E¥O~~RtOC~~~R~bD NEVER

STATEMENT PROCESSOR
•*.* SYSREC *•*..* NO
o. ASSIGNED
.•.•
*. *.
.*
x
•****
*
* ••
* .*
... YES
****
*
F2 *
* •
•****
*
.. J3 *

X

.*.x *.

.*
*• YES
.UNRECOVERABlE.
*. *. ERROR
I/O
.* ..••
*.
.• .*
x
*.•
*
• NO
****
*• (;4*•
******

RH*

X
*****03**********
*PREF037
RP*
*-*-*-*--*-*-*-*-*
*PREPARE CHANNEL*
*PROGRAM rOR WRi*
* IPL-MSG *
*************** **

X

01

.***
....

Bli

X
.* . ,. ..
C4
**C5*******
*SET SWI TCH *
.*
*.
.*
RF
*
.
'
*
I"l
RF
TABLE *
MSG
NO.*
OPEN
* .*
. YES
EQUAL
*..* NO
**'
1lS4A
*X.......... SUCCESFUL
......•. X*..* CREATE
..... . * TO INDICATE
*
*FIlE CDEATEO *
**
*A3
**
*. * . . * .*
*. ,....*
*B4
.*
• *********** *
*.****.**********
* ...
*..
,. *
,. *
YES
**** .
: •••••• oo •• oo x:
** 02 *.
*.X •

*.

.*$V$P EC *. *. YES ..
*..* ASSIGNED
••••••••
*. *.
.* .*
* ••
*
o NO
****
*RB *

*OPENFILE

X 08

*-*-*-*-*-*-*-*-*
OPEN
*,.
,. RECOR.DER
*
F!l E
*
*****************

•**** •

x

C1

*****83**********

• •• X•• BE BYPASSED ........... X*

...

o

IN RETABlE WITH

*. *.

.*
Rl15R TO *. NO
*.
.."
*.,.
'" *
*
*...
,. YES
.
'****
*
.. x*
01 ,.

*INITOO
RF
...
INITIALIze
...

...

.>.

*'

..

*****************

******
•
02 *

X

•**** •

*****H2**********
*HCIQRIO
RR*

*-*-*-*-*-*-*-*-*
.. CREATION OF *
*
* He FILE
•
*****************
*

x

G5

.* . *.

.*
*oo
.UNRECOVERABLE. yes
*. *oo ERROR
I/f)
.* .*,.._.
*..
x
*. * ~*NO.*
****
•* G4**
•*****
.*.x *.
H5
oo*
*. *. NO
VAllo
*.*
.. HEADER
READ .* .....
*. *.
.*
x
*. oo* . *
'*

YES

•*****
G4*•
o

J1

*.

J2

oo*..

JO

*.

*****J3**********
*
SET UP
*
MSG
* •.••
1I95A *A3 *
*
***************** ••x**

*oo
*oo
*
•*
OPEN
*. NO
.* • *ATtACHED
PRINTER *oo NO
*.oo* SUCCESSFUL
.. * .......... X*.
.* ...••... X**
*. *oo.* .*
*. * . . * .*
x *
*
.... *
* YES

*••
*
* VES

•
****

• *
D2 *
•*****
*

*** J3 **0
****

x

•.. ****
*
F2 *
***** *

X

*****J5
**********•
o
:0:
MQVF HEAOE R *
*'* RFADOQ.
TO
*
TABLE
•

•*****************•
X

X

*****K2**********
*HCOPN~SG
RT*
*-*-*-*-*-*-*-*-*

****K3*********
TO *
*
ISSUE
*••.••.•• X** RETURN
CALLER
*
** 1 MESSAGE
I 911 *A3
*
**********•• ***
*****************

*.

.

***K')****.**
TU~N OFf'
'* *'
Pl FLAG
** RF
AND SET
*
FILE
* DEADY *'*
*'

T

***********

MA I N09

x

*****
.~R *
* 44*

* •
*

242

•

****

x

.*oo

DCS/VS IPl and Jot Control

Chart RB.

$JOECTLM - Recorder File Initialization (Fart 2 of 2)
Refer to Chart 19 •

•*RA
****..

~~FERi~~~:

: •• *:
•• :*

.. Gl*

••
•

RADl, RAK5

•

· ••.••••.•• x:
•.MAIN09

MAlN012
X
•••• *Al ••
• OPNHCFLE
RT.
.OPEN HARO COpy.
•
FILE FOR
•
..
INPUT
..

**••••••
*-*-*-*-*-*-*-... *

.*
••

••

•••••••••••••••••

.*x.••

ROE

*. *.. *.*

••••• 83 ••••••••••

o. ..................................

CRTSAV

NO

••••••

YES

*'BLDIPLOO
••• *84*****.****
RJ •

RP.

*-.-*-*-.-*-*-*-*
•
BUILD IPL
•

X:-*I~I~iALri:-*-:

..

.*

X

MAlN013

-PREPOOO

•• ••

SPEC IFIED

*

x

•••
81
*.
.*
.. ..
•:**.sUC2~~~FUL .*.. :.~~~ ........................
*. .... •* .*

•.

A4

..

•

RECORD

..

•• ••• ** ••• ***••••••

.
..
•••**.
••••••••••••

• NO

.•.x

••••••••••
.*Cl ........
..*• •••• C2
SET UP
..
•• PRINTER •• NO
MSG
•
••
ATTACHED
•••••••••• X.
1195A
..
*. * . . * .*
....
*Fl
..
* ••
*
•••••••••••••••••..
.. YES

X

·····01**.···.··.
*-*-*-*-*-*-*-*-*
• HCOPNMSS

RT.

X

X

• SVC41tR 00

*

**
IPL
•
•••••RECORD
** •• *•••••••..

PROGR FOR

•

•
READ
••
*•••**
.......*•..

..

..
••
*.*CRTSAV
•••••••••• **•

ISSUE

MESSAGE

..

x

.

X

• *.*.03 •••••"·**
RRoO

.HClOR30

..
11971 *Fl
..
•••••••••••••••••

..

RM.
.-.-*-.-*-*-.....
-••
•
WRITE

•-.-.-*-.-*-*-*-.
• PREPAR CHANNel •

•• -.-*-*-*-*-.-*-.
REAO HC FILE •

..

**···C4 •• * •••••••

••• •• C3 •••••• ••••
oOPREP020
RR •

.FOR INITIALIZE ..

• NO

.'
04 * •
.* .*MCAR/CCH*. * •

••••••

....

SUPPORTED

*. *.

.• .*

••

• YES

·•x............................. ...
X

····El·········

..

..

•

.F1
1I95A
11.11

BRANCH TO

..

SJOBCTLA

•

WAtTERR IN

..

•••••••••••••••

HARO COPY FILE OPEN FAILURE
HARD COPY ON 01 SK NOT
SUPPORTEO UE TO OPEN ERROR

~

••*·.e3 ..*•••••••
RR.

• PREP030

*-*-$-.-*-.-*4-.

:PR~~MMH~~~EK:
* WRITE TPL MSG •

.*.**.*.*.*•••***
X

*****F3·**·.··· ••
*HCIOR20

RR.

•..-*-.-*-*-*-.-*-*
WRITE IPl MSG *

·
•

TO HC FILE

..

********.** ••** ••.
X

••••• G3*****.** ••
.UPOATE
RS*
.. UPOAT E ACTUAL •
• DISK ADDRESS •

*-*-*-*-*-*-*-*-.

* *••*•••*** "*..
•••••
X

•

•

.

·
•

•

SWITCHES

***.***••••

•

.•

X

****J3*.**.*.*.
RETURN TO

SYSTEM

•

•

X

MAIN08

•**F4**.***·•

.* BUI~~Cl~AO

*•

.L! ST FOR RMSR*
*
*G2
*

********••*
X

*···*G4**·*····*·
.MTNCNT
GU •

*-*-*-.-*-*-.-*-.
•
SYC 22
•
SEIZE
*'•
SYSTEM
**

.****.*.*********

·• x•••••••••••.
X

*****H4****
*' PEReNTOO••*****'
**RK-*-*-*-*-*-*-*
*-COMPUTE
OF
*'*'*'
*'*' PERCENT
FILE FULL
**** ••• ***.*.**••

J4

..
*••*•••••**•••••
CALLER

•

***•••*.*****••• *

MAIHiO

••••..
*.*H3***
RESET
..

•

*•••• E4***•••GU
*•••*
***-*-*-*-.-*-*-*-*
SVC22
..
RELEASE
..

*MTNCHT

.*.x *•

*.
FILE *. YES
*.*. HANOl
tNG
.* •..•
NEEOED .*
*. *•• *.*
x
* NO
••
***
.RA *'
.* •* HC

* 01·

••
•

X

••• BRANCH
*K4** •••TO**•• *'
**' CONTROL
IN
•
SJOBCTLA
•
*•• *********.**

•

Charts

243

Chart RC.

$JOECTLM - ROD StateKent Prccesscr
Refer to Chart 19.

•• ••••
•
Alt •

• ••*
•.. A3 ..
0

••••

•

•.*•• *

0

••• •••••• •• X:
:ROD10

•••• Al •••••••••

•'o*

A3

J.••

.* •• OPTION
ROE
••

*•
******••• *.....*

••

ROD20
X
• •••• A4.**•••

•••••••••• X.
••
••
•
••••
•

ROO

*•••

.PERCNTOO
RK •
.-.-*-*-*-*-*-*-.

... NO

COMPUTE 1
OF
FILE FULL

0

..
•••••••••••••••••*

•. .*

• YES

····.61····
••··*.
*-*-*-*-*-*-.-..-*

••• •• B3 •• ···***··

•

•

X

ROOOO

OINITOO

INITIAL! ZE

•

PHASE

.

.0.x '*.

IF EOD

•

.• C3
.*

..

.x

••

••

YES
••••••

x

03

.

....

.•

••

X

•

*

•

••••••••• *** ••**

ORDHDROO

•••••

X

it

·····e2***·······

*
•
····*E3··*·······
*

RL*

*-*-*-*-*-*-*-*-*
* READ HEADER 0
o
RECORD
*

•

o

POINT TO
MSG 11921

•

*.**••••*••••*****
****
: REFERENCES
TO
RCF2.
:* ..'•* •• x.• RDF3,
REC4
••** :x REJ2

..
••••.••
*._-H4..•*.*•••-

*NEXTPOO

.-.-.-*-*--*-*-* -.
•
ISSUE
*•
•
MESS AGE TO

o

X

·*·**F2·····.····
*-*-*-*-*-*-*-*-*
*

*·**·F3.···*·····
*LOGREQOO
RK*

RM*

FIND NEXT

0

'o* AND PUB
PUB2
•'*
•*••• *.*.**•••*••

G2

.*

*.•**.

.*.it *•

END
TABLE

OF PUB

*. *..•.*

.*

.*. *.

*.
.•.*....

.*3330/3333/ o. YES

*. *.

3340

*. *••• .*
• NO

...*.'*
it

*RE

.. AI.

*•*

BLOOBROO

....

•*x••
*o• 43 *••

••••

it

H2

OPERATOR
•• •••••••••
*•••••••

*•*. YES
.*....
••

o NO

*

•

.. H3 •

••••••

ROOl5
X
• •••• H3*.* •• * ••••

•••
*

GET EOO
RECORD
INFORMATION

*

*
•
•

x •••••••••••••••••*
•••••
• RD ..
• AI·
••
*
MOROO

X

.*··*J3··········
*SVC44ROO

RM.

.-111-*-.
-*-. -.-*-*•
III
WRITE
..
III

EOD
RECORD

•
•

••••• 111 •••••••••• *

x

244

..

.. H3 •

····EI.·.......'*
BRANCH TO
NVSERR IN
SJOBCTLA

•
•

••••*••••••• _*. •

._x

• NO

•• •••••••• lOX.

'o*

BRANCH TO
CONTROL IN
SJOBCTLA

••

••
•• YES
•• RESPONSE
••••••
YES
••

*. *.

····C4····.··**

..

•.. ••••
•
A4·
••••• •

NO

.. ... ..

•'*

•

•
•

x

•.. *
•

ISSUE
MESSAGE
11821

X

*. ••

.. ..

*. •• RESPONSE
NO

••

..
•
•

••••••••••••••••••••

•••••••••••••••••*

•••• *02 ••*•••• *••
''**
YES
SET UP
•• RECORDER FIlE •• _ ••••••• X.
seEK
'**
o. READY..
*
ADDRESS
*'*.. ..**
'* *••••••******
•••••
* NO
*. '*.

*

RK*

*-.-.-.-*4-*-.-.
• ASK OPERATOR •

•

,.

.0.x *.
Cl
.
*
•• o.
NO.o SYSREC
•• •••• ASS IGNEO
••
*.
.•
*. * •• * .*
* YES
01

ROOCOMP

.lOGREQOO

•*.******* •••*.*.*

.* •*

••*•• B4.·X.........

X

RF*

DOS/VS IPL and Job Control

••••
A4 ..
••••

*•

0

•

0

*H4
MESSAGE
lI89A
1I90A
1I91A
11921

DESCRIPTION
IPL REASON CODE
END OF OAY =
SUS-SYSTEM 10
INVALID CODE

Chart RD.

$JOBCtLM - ~DR Records for 3330/3333/3340
Refer to Chart 19.

••••
•.. •A2
..
••••• •

******'

*RC
.. H2-

o

MOROO

Al

.* •*

0

•

.•.x

• ••*

• •*
••••• •

•

x

X

....

*.·**A2····*·*···
:+:.

• GET NUMBER OF * SEEKS FROM

*
VOL
*..*NO
* 3330/3333
..
*. *. OPENED
ON
.....
DEVICE .*
•
BUFfeR AND
•
PUB2
TABLE
*. * •• * .*
x ••*.* •••*••• *.*•••
• YES
•****•

•• ••F3**•'"

X

*****a 1*••• ** •• **
•

SET UP REAO

•

..

UNIT ADDR

..

••**** ••*•••*.* ••

x

X

••
2*.**** ••**•
* *.*c
GET NO OF

*****C1**··**·***
RJ*

*S1"ATOO

*-*-*-*-*-*-*-*-*
.*.*••••*** ••••••*

'RESERVED BYTES.
•
FROM 3330
•
•
BUFFER AND
•
..
PUB2
'"

.. GET 3330/3333 ..
• STATlSTlCS FROM.
• CONTROL UN [T

** •••

*·**·02****.*.*.*
*MDR30
*-*-......
-*-....RL
-.-**•
•
ACCUMULATE

• GET NUMBER OF •
• BYTES READ FROM_
*3330/333313340 •

:*••••
~tlW~A~~2 :
***.* •••••••

*.

El

*. *.

x
.*. * .

3340

• RESERVED BYTE.
•* ••••••••••••
COUNTER ***.
-

X

*. •.
.* .......
'f:~

* ..• .*
•

*.*•• **•••• *
X

X

····*01·····****·
.* .. *

X

·.**·82···.··.**·
RL •
*-*-*- *-*-*-*-.-*
* ACCUMULATE *
•
SEEK
..
•
•****COUNTER
••••• ****••••

.MOR25

:+: AREA WITH VOL ..
.AND MODULE 10, ..
•
AND CONTROL
•

.*

x

•**•••

NO

·.***E2 **.*****.*
; 33~a1~333 ;
BUFFER ANO
•
..
PUB2
..
••*••••••• *•••• **
>GET SEEK ERROR •

•***.*•
.. G4

*.
RL *
*-*-*-*-*-*-*-*-*
•
ACCUMULATE
•
•
BYTES R EAO
•
..
COUNTER
..
_
X
••••• F1*****•••

.KOR20

......... ........

A3

.* .
.* A3 TWO*. •.*. NO
.*
*. RECOROS ••••••••••••••••••••
*. *.
.• .•

*.•
* *YES

MOR10

X

•.**.*83.*****•••••
*
•*.******.*••••••••
•
•

PUT PUB2
COUNTERS
IN RECORO

•
•
•

X

*****C3**********
.SVClt4ROO
RM.

.-*-*
...*-*-*-.-*-*
•
WRITE
•

-••**••*••**.*.* *..
•

RECORO

•

X

•• ~.***.•
•***"*oa**
• PUT 3 330/3333 •
•
•

BUFFER
STATIST ICS

•
IN •

*
*•••••**••******.

..

RECORO

X

*** •• E3 •• *••*••• *

~~~~!~~~'~-'~'-: --,~~~
•

*•

WRITE

•

RECORO

••

X

.****E4**********
*SVC44ROO
RM •
:,:_.-:--;"'>,

~

..

WPttE

•

RECORD

•

*

•******** ••**.****•

*•• **.*.******•• *
******
•.
.. F3 *.X.
* .x ••• ••••••••••••••••••••••
••
**
•
MDR40
X
.****F3**.*******
••
CLEAR
..
*•
•
COUNTERS
•
IN PU82
•
•.*
•
.***
••• ************
~

X

*.·**F2*****··*·*
RL •

.MOR30

*-*-*-*-.-*-.-*-.
•
* ACCUMULATE
SEEK
•

•

•

*

ERRORS

****************.

.• .•
.. G4 •

**••

x

X
*.***Gl**
•••*****
.. GET NUMBER OF ..
•

CORRECTABLE

..

..
DATA CHECKS
lie
-FROM 333013333 •

.. BUFf'ER AND P U82.

•••••••••••••••••

••••-*-*-.-.-.....
·.Hl··••····**
*
-*-**
X

.MDR2S

*•

Rl

ACCUMULATE
DATA CKS
COUNTER

•
•

•
••••••••
****.*.**

X

**.**J
1*** •••• *••
GET NUMBER OF ..

•

•
•

RETRY DATA
CHECKS FROM

..

•
*-BUFFER
3330/3333
..
ANO PUB2.

••*.**.**•• ******
X

****.K
*MOR25 1**.*******
RL *
*-*-*-*-"*-*-*-*-.
...
ACCUMULATE
•
$

RElqy OATA CK •

$ ..

,,*********.****

*

COUNTE~

x

****
*• A2 ••

•**** •

*

...,--,.--,..,~,..---""

X

•• •••
*G2·*••******
GET OVERFLOW •
FMM FIRST
•
• COUNTER FROM *
*"BUFF3330/3333
•
ER AND PUB2 *
***** •••••••• *.**
X

·*.*·H2.·.*******
*MOR25
Rl •

*-*-*-*-*-..... *-*-*

•
•
-

ACCUMULATE
1ST COUNTER
OVERFLOW

*
•
•

*****.*.***•• ****
X

·****JZ**·*·*****
• GET OVERFLOW
*
•
FROM 2ND
• COUNTER FROM

..

3330/3333

*

•
..

'BUFFER AND PUB2*
**
••* •••** •••••••

***.*
:rt~2:

••
•

ROD05

G4

.* .*
*. *.

x
.*. ••
ANY

*. *. NO
••••••
.* .*

•• STATISTICS

* •• *
•

YES

•*****H4*i***.****
••
*
• eUILD RECORD
•
•
•
•********* ••• **.***
X

••
******J4****.***
SVC44ROO
P.M *
*-*-*-*-*-.-*-*-*
•
WRITE
..
RECORO
**
*
•
*****.***********

·• x......

X

~

X

*****K2**· ••• ·**·
Rl •

*MOR25

****K4*********
R~I~~R TO
:

*-......ACCUMULAtE
*-*-*-*-*-*-**
..

:

..

• ****.* •• *••• *** *

•

2ND OVERFLOW

COUNTER

•

..

.*.********.**.**

.

.......

x
••••• •
.. A3 ..

•

****

•

Charts

245

Chart RE.

$JOECTLM - Euild EOE Outboard Record
Refer to Chart 19.
******
.RC
,. H2*

* •

•

X

BlDOBROO

1*********.
•*****A
•..
..
CLEAR

·
..
,.

.*
..eX*.

.

PECORD
AR EA

11:

*.

.*

*.••••••••••
NO
x...*

.* A3

.* . "'..

WAS
VOLUME
•• OPENEO

.. '"

*..

*..*

*. *.."YES

*****A4**********

*SNSOO

.*

..

X
****82*********

'"

'"
..

RETURN

X
*****84**********
* Buno EOO ..

TO
CALLER

•••• ***********

.

'"

'"
'"
..

*'"

x

,...

**-*-*-*-*-*-*-*-*
WRfTE
..
..

PECORD

'"

x

.PC ..
'" F2*

NO

x
*****

*

••
•

RODOS

•

•*****•
•**** •

*****************

.. E2

x

.' .* ..

X

•*****E2**********
.. MOVE SOP DATA •
..
•*
*. YES
*.3211 PRINTER .* ..... .
,.
TO OSR AREA
'"
*. *.
.*
•
•
* .. * .*
**"'*."''''****''''''''''''*'''
• NO
.* EI

,. .

.

·

.- .
x

.* Fl

*oo

:Bl008RIO

,. ..

..

2311 DISK

* •• *
•

*****F2**********
* SET UP 3211 *
•
* PRINTER SDR '"
~:*:::. •••
x*
AREA IN
'"

*

.*

08R REC ORO

*

•******"'**********•

NO

: x ............... :

.'.

Gl
* ..
.*
*.
.
*..* 2314 DISK *oo.* YES.
.. X.
*. *.
.* .*
* .. *
-

oo. HI

J1

NO

-.

,. ..

.x

'" F4 ..

****

.

X
****"'F3***"'******

8l008Rl5

*

'"

MOVE $DR

OAT A TO

*

'"

* OB~ AREA
*
*************.***

•

•

x

X

BlOOBR20

,."
.
*oo YES.
*..**. 2321
DATA
.* .. X.
c:::u..
.*
*. * •• * .*
x
•

.

• **** *

*"'***G2**********
*•
CLEAR
**'"
* PUB2 $DR
*
AREA
'"
*****************
•
*

NO

.-.x *.

. .

•****
•
F3 ..
•*****
•

•'"****
•
F3 '"
•****
•

*****H2********"'*
RP*

*COOEOO

*-*-*-::t-*-*-*-*-.

•

..

*

as

ADD

DEviCE

CODES

''""

*

*****************
x

.* . "'.

*****J3**"'*******
,. . *. YES
.*
*.
*SVC4JROO
RM*
SOR
"'. NO
*-*-*-*-*-*-*-.-*
*.• * AREA
•••••••••• x*
WRITE
•
.* •..•
*. *. ZERO.*
*
OBR
•
*. *.
.*
.*
*
RECORD
*
x
* •• * .*
*...
'"
.***"'*"'*"'**"'**"'**
* YES
• NO
•**** •
J2

3540

'" E2 '"

•**** *
X
*****K
1**********,.
,.
MOVE INFO
,. fROM

,.

,.

STANDARD ,.

COUNTERS IN
PUB 2

TO RCD

,.

: x•••••••••••••••••••••••• :

x

*****

*RC *
'" F2*

• *

•

ROD05

*,.

*****************

•..
•

246

••x*. *
F4 '"

****

x

4O*.
F4

8LDOB~05

*.

.*·~287/128~·*.

*. *.

OPfrCAL

P'FADER

"'.4O*
*. • 4O*NO

x

*****F5**********

YES

.* ........ x*;'"
.*

REALIGN
snQ COUNTER
TNFnRMATION

*

DOS/VS IPL and Job Contrel

:
•
'"

*
'"
**************** •

•

• x•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
X

x

,.

..

*****************

*

.*

..

FOR TAPE';

* •• -

,. I/O ADOR .. AND
*USAGE IN R ECOR D*

*.•*

*

*SVC44POO

*****01*********·
•• PUT DEVICE TYPE*
*

*. ,...

'"
'"

X
*****C4**********
RM*

.

*..* .....
YES ..
TAPE
..* .*

-

.:*

.

08R ReD
FOR 24001
3':00 TAPES

*****************

NO

.' .* ..

.*
*.. 3400
*. *..

SENSE

..
nATA
..
*****************

.... * .*NO

: BLDD8R 50

.* .*2400 TAPE* .. * ...* YES
..
,...
.
,...
.* .....
x
*. ,. ... * .*

.* C1

PN*

.* ........ x**-*-*-*-*-*-*-*-*
GET

.... YES

: x............................................. :

x
.'.
,. ..

•

. *. *.

•• OPEN

*****************

Bl

.* A2

IS
VOLUME
".
SrILt

..

Chart RF.

$JOBCTLM - Fhase Initializaticn Rcutine
Refer to Chart 19.

*-**'*' •*

.. A3

•

.*.**
x
.' .*.
A3

.* IS *. .... YES
. . .*A4***.*•• .. ..
... INDICATE
*.•**. $V$LOG
Ii.
.* ........ X* SYSlOG IS A ..
*
*1052
. . * .*
.. 1052
..,..
.... • .*NO
***********

•***A 1*.***.**-

•••

tNITOO

• *.*.**********

•*...

·•

****

x

X

INITOO

••• **B 1*.*******.

•*

SET UP

..
lUBAND
.. PUB POINTERS

*

**..

•*

*.

..

*

*••• *************

*. * . . * .*

..

* ...
*
• NO

:x ......•.

x

..

**C2.* •••
SET
SYSREC

*....

*.•*

ASSIGNED
S~ITCH

*.*********

..

..

..

.. ..

[S

....

*. *. NO
.. * .....
.* .*

ASSIGNED

* ... *
* YES

·.

*

*

*

GET

**

ADDRESS OF
CRTSAV

*
*

•

*****************

*

X

**

POINT TO

FIRST CCW IN
ll$T

........... x:

··

i<

:INIT15

.

.
..
.

*****04**********

*'

*

RELOCATE
ccw

*

*'

*****************

x

E3

.' .*' .

E4

.'.x *.

• * IS HARD * . ...
.* END * • *.
.. NO.*
. NO.*
... *. *.REQUESTED.*
COPY FILE
.*x ••• .. .. *.
.*
'*. LOF
I<;T
• .;.
*. * •• * ..*
*. * ... * .*
x
,. YES
*•• *
'* YES

.• .•

:x ............... :

84 ,.

**.*

X

*.***F 1**********

•**f3******* •*

GET
*•
*:I<
**
SV$REC
*
PUB
•
•*•••• *************

·
·

NO

*****************

.

X

:I<

•

*****C4**********

*****03**********

*

X

CRT

x

.' .* .

*. *•. * .*

•• ****
•
84 *

YFS

INDICAT E *..
• SVSlOG
IS A ..

*

•

.* Ccwts * • *. YES
*..* RELOCATED
.* ....
*.
.*

.... NO

A
.* ........
*. SYSLOG
CRT
.*
*. * •. * .*
x

.

.*02******.

:x ......................................... :
.*.x * ..

..

'*.x.
.
84

•***********•

G ................. :

.'. *.

•* SV$REC

*. *.

.' .*.

X
**C3*******

.* RMSR *. * .. NO
..
.. ..
*..*•• GENERATED
.* ........ X* *.. INDICATE
RMSR
..
(MOO 115/.*
BYPASS
*
*.125) .*
*
*
* ...
*
***********
* YES

El

63

84

***.

INITIO

****

.* •....

.* SYSREC *.. *. YES
*
*.•* ASSIGNED
.* ......... X* ..

01

•*

*

x

C1

*

,.
INDICATE
_HARD COpy FILE
•

NEEDED

*

•*******.***•

*

X

*****F4*********
RETUPN
*

**

TO
CALLER

***************

**

X

.****G1**·******·

*•

*

SAVE
DEVICE
CONSTANTS

*

••
,.
•

•*****************•

:x .•........ :

"

.'.
•*Hi IS *.,. .*. NO
*SYSLOG ASSIGNEO •••••
•*

*. *.

* •• *

*

.* .*

x
•*****
*
84 *

YES

•**** *

X

•******J 1**********
••
GET
*

*

SYSlOG PUB

A.DDRESS

•

*

•*****************•
x

•***** •*
•**.* •
A3

Charts

247

Chart RG.

$JOECTLM - Euild Channel
Refer to Chart 19.

Ma~

Routine

••••

*•••••*

..

•* A3 ..*
*•••• •

•._ •

.. 42

*••••••••••••••**

x

x
• >.
82
>.
•
*
•. *.
••
ALL

X

MAPCHNOO

X

*****A3··*·.·*··*
SET UP
•*
•* FOR
BLOCK
*• MPX
CHANNEL
*•
*****.****.*.*.* ••*

*****A2*.********

*'" SET UP
>
'"
CK
*.. NEXT TOCHANNEL
*'"
* _•• _••*••••••>
••••

~APCHNOO

•

X

MAPCHN15

.··.AI·_·······*
•

** •• *81*********.•
**•
seT UP
*
RETURN
,..
PSw
*•
>
_ _ _ •

..... ... .. ....

NO

•"•• C~~~~~b5 .•.•....
•• *•• .*
x
* YES

...-

111

*.. Gl *•
• ••• *>

x
._.*.C
•* 1*********.
•*
SAVE
>
PROG CK
•
•
OLoPSW
*
••
_

X

X

*****t2*********.
>

'"

........ ........

STORE MAP

*'"

***··C3********.*

*
*'"..

•*•

SET UP

•
>

CHANNEL

*•..
*
**•• *********.***

.._..............
IN RF
TABLE

>

.* .*.
83
.* BMPX * .>. YES
.*
••
CHANNEL
.* ••••
*. *.
.* .*
*••
* *NO

>

FOR IFA

:x ...•••.....
X

..** ***02··········•*

*****01*********.

•

•

'"

TO WORK

..

*
>
*****************

X
*.***e
1*********-*
* RESTO~E

............ ...
OLD PSW

_

.. "

*
>

..FI_._X ... _

.••*.F2·········-•
i<

POINT TO

CHANNEL

10 LIST

HI

*
>
*•

'"

..

•

x

.>.

*

H2

.-.i<

.If:

"'.

••

MPX
*..*YES
*..* CHANNEL
....
*. *.
.*
.*
*...
"
* NO

..........•.....

.*Kl 10 * . *. *. YES..
*.•**. STORED
.• .* . .ox.

>
•
•'" Gl >

>

******J2**********
•..
..
SET UP
.. FOR SELECTOR ..
* CHANNEL ..
*
>
_

....... ........
> NO

..

G3

.>.i<

.* K2 -. *. *. YES .•
*.• > SELECTOR
CHANNEL
•••• x.
*. *.
.* .*
x
x
*••
If:
• NO
*..••••
>
•• *.**
•
42 ..
F3 *
x
**.....
•
* *
•
**
•
>
*
.. A3 *
••• "'*•

.._.

.'.x *.

.* ALL *. *. NO
*..**. CHANNELS
••••••
TESTED .*
*. * .•* .*
x
• YES
X
*****H3*********.

*

**

H

ERT·
TO·
YTes.
•

*
•.f:.**********•••*

•>

X

X

*. * .. * .-

CHANNEL

>

.···*Jl**********
**
ADD
CHANNEL ID
TO MAP
*•*
-_

*---

>

>
>

•••• *•••••••• _-.'"

**
***

DOS/vS IPL and Jot Control

•

X

•******.**•••••••••*

LIST

*. x.
* > ..
X
·****G2****.*****
•* SET UP •*
* FOR MPX
..

.• CHANNEL *. >. NO
*.•**.OPERATIONAL
.* ....
*.
.o. .•
*•.
*
* YES

248

.**.

MAPCHN30

MAPCHN25

x
.'.
*.

x
••••

• ****.
• .x ••••••••••••

.. G2

X

.. ..............
>

•

.111 •••••••••••••••*

....
....

••***G 1*********.

*• _

seT UP

..

RETURN TO
START OF
CHANNel 10

>

Gl *_X.

*

*
FOR
* DEFAUL
T
**
•*.******.********
>
..

*****F3·****·*·**>
>
*> STORE
CHANNEL *
CODE IN LIST
•

*•
..
*
..

••*.> .
•*
* * .

....

X

·****E3**********
>
*

MAP
IN WORK

• F3 •• x.
>
>

• SSM TO **
**• INTERRUPTS
AllOW ALL
*
•••••*
**. __ •• _

MAPCHNIO

x
.*.
••

*. *. NO ..
*.
.* •..•
*. REG .*
*. *•• *.*
.. YES

*•

PGM CK

NEW PSW

AND CLEAR

.*

E2

.*. * .

.* IFA •. *. YESX.
*..**. CHANNEL
.* ....
•.
.* .•
* ..
*
> NO

*'"

REGISTER

MAPCH05

*•
•_

D3

MOVE MAP

INTO
**• GET~UPVR
**•
STATE
•-_.*-_...........*

•

x

X

MAPCHN20

•

A

TORE

X

··.*J3**··***.*
RETURN TO
*
•
CALLER
..
*************** • >
•

*..****
>
G2 ..
***** *

Chart RH.

$JOECTLM - Miscellanecus sutrcutines (Part 1 cf 10)
Refer to Chart 19.

····Al··..·····

•• OPENFILE •..
•*************** •
X
**61******·

..

..

SSM

* ..

..
..

X

•
•*
'"
RECORDER
..
'"
F IL E
•*****************•..
OPEN

•**El**·.··* •
(;'<;M

..

1'0 l:NAtiLt:

ALL
..
*INTERRUPTS ..

'"

***********
X

*****F
1**********
*MTNCNT
GU '"

*-*-*-*-*-*-*-*-*
'"
SVC 22
..

•

KEY-DATA

SEIZE

SYSTEM

*TO WRITE COUNT-*

..

•*****C2**********
•
* PUT AOOR
...
*

*

OF SEEK CCW
IN CCB

*
*
••• ***************
•

X

**02*******
*
SSM
*
* TO ENABLE *
ALL
*
*
... INTERRUPTS *
*****.*****

•

•

it

X

..

...

WPTHOROO

..

..

*****************

*****E 2 ••• *.*****
*P"TNCNT
GU *
*-*-*-*-*-*-*-*-*
..

~'Jl..;t:£:

''**
RELEASE
SYSTEM
*
********.******.*

BlOHOROO

X

BLDHDROO
X
******84********.*
SET UP
*
* SVSREC l'NFO *
..
IN HEADER
..
*
PEtDRD
*
•**** •• *.**********

.........•• x:x

•

•*.***C3**********
••
*
GET
*
*
*
*
•
*************.***

...

OAT A
LENGTH

X

*****03**********
*WRTO$KOO
RH*
*-*-*-*-.-*-*-*-*
*
WRITE
*

*

RECORD

..

•***.**** •• *••*.•

•*.***83**********
•..
..
SET UP

X

SYSTEM

'"

SET UP COl

•*****A4********* •

•*

X

*****01*********·

'"

..

WRTHDROO

x

..

********'C<********

..

X

•****.62.*·***.**.•*

··.·A3 •• *** ••• *

•*

****************•

***********

RELEASE

..

..

..
SEEK ADDR
*
* AND RCD 10 *
•
*****.*****
•• *•• *

..

*-*-*-*-*-*-*-*-*
'"
SVC 22
..

..

WRTDSKOO

•*******.*********•

TO ENABLE
ALL

.INTERRUPTS ..

•••• *e 1*********.
*MTf1CNl"
blJ *
..

'"

WRTOSKOO

OPENFlLE

•
..

•••••A2···.····_•
•***** •• ***.**** •

*

•*.****••****.*.***

X

****E3*********
*...
RETURN
*~
'i~
*
CALLER
*
.****.****.**.*

X

.. BlDHDR05

..*

C4

.* .

*.

*.***C5*********.

**
**
*****************

*..
..
TIUCK
*..* ........
NO
*
*..* COUNT
X*
*. *. =
.*
X"
0
.*
..
*. .. ••YES

X
*****04**********
*.. CYLINDER
REOUCE
*
*
..
VALUE
•

REDUCE

TRACK VALUE
BY 1

:BLDHDR 10

*

BY 1

..

•*****************•
X

*****E4**********
SET UP
*

..

*

·
*

NO OF

~~K~~~;:

*

.
;

.********.*******

D'"

•

.*.it *.

.* T~ACK *. *.
.*
*. *.
.*
.*
* •• *

NO.*

.... *.

*

YES

X

*****E5 **********

*
!
*

ST~~E. ~g~R

•

!

*
********.*.******

•

BLDHDR20

*****F2**********
* *
**
* * 1SVC
a ** ..*
'*..
SSUE
*'* ** REQUEST
I/O
* ...
********••• ******

•

-TRACK

•

X

•*****F5**********
•*
..
SET UP

*.

**

CHECK
*
8YTE
•
*
•
*****************

• x..................... " .............. .
X

'"
'"

•

, X
.*·*Gl*********

G2· * .. *.

RETURN
TO

'"
..

CALLER

'"

••• ************

*****G3****.*****

** ** SVC 1 *• *...
.* .* 110 *. *..*."
NO
*. COMPLETE
........ x* * WAIT FOR * *
*. *~.* . *
* *CQMPLET JON ..* **
* •
*. *. *YES
****.************
WRTOSK05

X

*4oH2*4o*****

•

•

X

****G5****** •• *
*
PETU~N
*
**
TO
*
CAllEP:
*
***************

SSM
TO ENABLE

*
**1 NTERRUPTS
ALL

**.~*******

•

•
..

*

*

X

*****J2**********
*MTNCNT
GU *
*-*-*-It-*-*-*-*-*
*
SVC 22
*

**

SEIZE
SYSTEM

..

*

.. *.** ... ****.**.**

X

..

****1<2*********
RETURN

*

..
CALLER
..*
**************.
..

TO

Charts

249

Chart RJ.

$JOECTLM - ~iscellanecus Sutrcutines (Part 2 cf 10)
Refer to Chart 19.

.•

•..****Al******.**
•..
BlDIPlOO

.·-*A3 __

• *********.***** *

X

BLDIPlOO

STATOD

******81.***··****·•

..
•

*

CL EAR IPl
RECORD

·.

ST ATlO

• SCANOO

RM*

*-*-*-*-*-*-*-*-*
.CHECK
RESPONSE ..

*•

FOR
VAL IOITY

*..

****************.

X

*****G 1**********

'"

POINT TO

•
*
*

MSG
1I921
•'"
***"'*"'****"'******

*'"

'" ISSUE MESSA.GE '"
'"
VIA
'"
'"
SVSLOG
'"

"'****"'***********

•

•**** •*
D1

it

··

.

***********'******

X

*****E4**********
*MTNCNT
GU •
*-*-*-*-*-*-*-*-*

*..

*

SVC 22
RELEASE
SYSTEM

*

..
..

*****************

REASON

X

*****F4**********

* * SVC 0 .. *
* * GET
*'.
.. *STATS FPO"'l • *
.. * CONTR.Ol * *

*

.. *

*REQUEST SUBSVS
'"
IDVtA
'"
SVSLOG

. it*.

*

.*..

*
*
*

X

BLOI PL20

*.

STAT05

*****r;5 **********
. *G4 J /0 ... *.. *. YE S
*MTNC~T
GU *
*-*-*-*-.-*-*-*-*
*. *. COMPLETE
.*
............
X*
SVC 22
*
.*
*
SEllE
•
*..*
*
SVSTE"'I
*
*••
*
*****************
• NO
.*

*****************

H2

..

........... x:x

X

*****H3**********

*****H4**********
* *
SVC 7
* ""

*..
*
'*
.*
•..* .........
NO
*
POINT TO
..
*.. RESPONSE
X*
MSG 11921
*
*. VALID .*
*
*
**.. .. **
*'
*
*****************
* YES

.. *

UN J T

*****************

*****G2**********
*LOGRE QOO
RK*
*-*-*-*-*-*-*-*-*

""..

WA I T " " ""
fOR
* *

* *

* ,.

*
* *COMPlETION
**

*

***********.*****

it

""

****H5 *********
PETURN

*

*

Tn

X

*****J2**********

•*
..
..

PUT SUBSYS

10 IN
RECORD

**
**

******K2*********
RETURN
**
TO
CALLER

***************

DOS/VS IPL and Jot Control

.. ISSUE MESSAGE.
VIA
SYSLOG
..

*

*

*

..

SUB-SYSTEM ID CODES

:CODE·:· EXPlANAT iON .. • .. • u . . . . . . . . . . . .
:·00·· :. UNKNOWN· nR ·DEFAut i-........ .

:·io··:·HARo·coDE·· .. •• .. •• .. •• .. • .... ·

x

:·io . ·:·DAso····· . ················
:·3o··:·orsK· . · . ··········· . ···· . ·
:·40··:·TAPE···················· . ·

•**** •

:·sO··:·GRAPHic········· . ··· . · . ···

*****************
****
** F2 •*

X

..

X
*****J3**********
*LOGREQOO
RK*
*-*-*-*,-*-*-*-*-*

C~l[ER

***************

*J4

BlDIPL25

*
*J4
*
*****************

250

..

$TATlSTIeS ..
•*GET
*
* eCB AND CCW *

x

****

.

AND (CW

*****04**********

..

X

*****Hl**********
*LOGR EQOO
RK*
*-*-*-*-*-*-*-*-*

**

•*
*

ASSIGN
SV$USE

**** *************

* IN RECORD *
*
*02
*
*****************

*. • ..*NO

'"

·
*

****
F2 *' ....
\*** *' :
RlDIPL15
x
*****F2**********
:
PUi iPL
:

*. *VALID
.*
..*

*

*

..
..

.. PROG ERROR

••• *
*.:t. yes
* .. RESPONSE
.* . ....... X*

BlDIPllO

*****C4**********

*'

.*..x "'..

Fl

X

X

IPL REASON CODES

X

*****E 1*********.

*****84*********.

*02

•• ·iM·:· if ·REQUi Ri NI;· "Ai NTENANcE:
.... Of>":" OPE RATi oNA r" PRoBLEM"·· .. • .
••• EN": ·ENviRONMENTAL············
···cE· ;·WsE·coNHo1.LiNI;·svSTE,,:
.... up·:· uSER" PROGRAM .... • .. ••• .. •• •••
···ME·:·MEoii..·········· .... ·· .. ·· .. ··
···uN·;·uNKNowN··················

X

....

***************

*****01*********·
*lOGREQOO
RK*

*..*-*-*-*-*-*-*-*-*
REQUEST VIA
*
S VSLOG FOR
..
* IPL REASON ..
*****************

•••

*****C3*********
RETURN
*
TO
**
**
CALLER

:COOE·:" EXPLANA H oN .... •• .. • ........... .
···NM·;·NoRMAL···················
···DF·;·DUAULf··················
.... i E·:" HARDwARE" OR" TYPE· I" ....... .

OLD IPLOS

X

83

.*3330/3333*. *. YES
..
....
GET LUB
ASSIGNED
.* ........... X*..
AND PUB
..
*. * . . * .*
*..
AODP ES<;
..
,.,
.... ,,*
*****************
* NO

•******************

x
*c 1*********.
**••••PUT
CHANNEl
ASSIGNMENTS
*,..*'
** INANDRECORD
MAP
*
*******************
••• *
**' 01 *.
* .. x.
_•• * .

.

*..*

..

*..

AREA

***_··.

•..
* STATOO
***************

: ·50"": "CARD ·PRINTER· ........ •••••••••
:·70 .... :"Tp·· ......................... .
:·90··:· TVP E·r ·oR· TYPE "1 j. PROGRAM:
:·9 i··:· IBM ·PROGRAMMING· PROOOC i-.":

*
*
*

$JOBCTLM - ~iscel1anecus sutroutjnes (Part 3 cf 10)
Refer to Chart 19 •

Chart RK.

•,..•***
*
A2 ..
*

•••• Al ••

•..•

··**···•*

PERCNTO()

..

••• ************

••**
X
. *.

.oA2
fILE

.*
*.

•

*. *.

•• MORE THAN
FULL

*A3
MSG ISSUED BY BAl

\'~m~sgil ~m~QOO-

*. * NO
CHART RK.
................... .

90~ ..

*. *.. *.*

.*

**

••**A4*********
lOGREOOO

**

*.************* 0

•

,.. YES

•

X
*****81*··*******
,..
CALCULATE
,..

PERCNTOO

.NUMBER OF BYTES.
.. USED fOR THE

*

.. RECORDER FILE ..

,.. HEADER REcaRD ,..

*****************

it

MAIN15

****.82*********·
APPEND 'RUN •
* EREP' TO
*
** AND
MSGlt93I
*
ISSUE
..
*****.*.*****.**.*
·A3
*

..

•

•***.*.... *••*** •• *.•

x

*-*-*-*-*-*-*-*-.
,..
READ HEADER
..
RECORD

*C2

HAL C.VTREl T

ACCOMPLI SHES
CONYER SIaN
TO RELATIVE
TRACKS.

..

•••********.****.*•

X
... ****e3*********
RETURN
..
..
TO
..
•
CALLER
•
***************

x

*****01**********
,.. GET RECORDER ..
..

..

FILE START

ADDRESS AND

,..

,..

*CONVERT TO REl ..
.TRACKS
*02.

•••••••••• *•••• *.

,..
,..

.**.
•* C5 *•

* •
****

FILE END

ADDRESS AND
CONVERT

*02

.:.

**04*******
*• SSM TO •*

*

.

*

ENABLE ALL

INTERRUPTS

*

,..

,..

**.*.************

x

.*o.
BFSMALL
F1
*.
*****F2**********
.. *
*.
*
•
*
FILE
*.
YES
*
SET
*•
..****F3*********
BRANCH TO
*
•• lESS THAN TEN.* ......... X. UP MESSAGE
* •••••••• x*
OERRTN IN
*
*. .TRACKS
.*
•
lt83A"
* $JOBCTlA
*
....*
..
*
**********.t:*.**
*.. o ••NO
********** ...*****

'"

*

*********** •• **

X

*****F4**********
* ** SVC 0 ** •*
**.
ISSUE
'" *
* * RESPONSE * *
**.*********.*****
'"
* '"
...... o. .......

X
*****Gl**********

x:x

.0.

*.

*.G5***.***

*. • .*NO

*********.*

G4

.* 110 *. * .. YES
* SSM TO
*..* COMPLETE
.* ......... X* * ENABLE
*. * . . * .*
*
ALL
*INTERRUPTS

•
GET CURR ENT •
... TRACK ADDRESS ..

*AND CONVERT TO ..
*R ElAT IVE TRACKS*
..
*02
*
**."'****.**.*.***

X
****.Hl**********
CALCULATE
*
"PERCENT OF FIlE*
• FULL AND MAK E *
•
PR INTABlE
*
•
*H2
*
*********.******.

.

X

*****D5*********
RETURN
*
..
TO
*
* CALLER
•

X
*****E4**********
*MTNCNT
GU *
*-*-*-*-*-*-*-*-*
,.
SVC 22
'"
*
RELEASE
*
..
SYSTEM
*
*****************

..

..

OH2

THE PERCENTAGE IS
CALCULATED EXCLUDING
SPACE USED faR HEADER
RECORD.
IT I S ROUNDED
HIGH.

X
*****H4**********
• *
* *
•'" ** WA SVC
7
* *
IT FOR * *
* *
* *COMPlETION

•*****.*.*********
•
*•

PUT PERCENT

•*

*FULl IN MESSAGE*
11931
*•
*•
***.****.*.*** •• *

x

•***** ~•
•

'<,

"<:'>$.*

*

•

..

X

*****J 1**********

*..

••

*****H5**********
*MfNCNT
r;u *
*-*-*-*-*-*-*-*-.
22
*
*** SVC
SElZE
*
SYSTE"1
*
**"'*******"'******

X

PERCNT05

X

LQGREQLO

C4
*.
*****C5 *****.*.* •
.* SYSlOG *. *. NO
**
**
MAKE
•• 1052 OR CRT .* ......... x*
RESPONSE
•
*..
.*
'
"
UPPER
...*
'" C!\SE
**
•• ••
**.**************
* YES
••

******.****

X

..

X

*****84***·******
*• SET UP RESPONSE.*
'"
DEFAUl T
*
FIELDS
•*
****.********.*****

X

*02
SAL CVTRELT
CONVERTS TO
RELAT! VE TUCKS

···**El***********

.. GET RECORDER

..

*.

LOG. EQOO

: ...•...•.•.............. x:

••
***c 1**********
*RDHOROO
RL*
..

X
*****83**********
•
* ISSUE MESSAGE *
.. 1193 I * C2
••
o

****

84 *.x.
•**.*.
• ..

*..*

.*

*..

J5

.*.x *.

UN1T

*. *. YES
.* .. o. ..

EXCEPTION

*.

..*

* ....
• *
NO

x
******
•
C'J *

..*

.• .•
x

****

.. B4*

****

•**** •

Charts

251

Chart RL.

$JOECTLM - Miscellanecus Sueroutines (Part 4 of 10)
Refer to Chart 19.

•••• Ai.· •••••••

••

•..

RDHDROO
•••••*_
•••••••• *•

x

ROHOROO

•*.****81**********
ccw's •
•
SET UP

*•

**

eee

AND

FOR READ

•

•

111 • • 111111 • • 111• • • • • _ •••

•••••••••
******A2MOR30
•
P-'OR25
**
*
MDP20 _

._......... ...

•

X

•_._

ADD PU82
AND 3330

BUFFER
* _COUNTERS

..-.....

*•
*

X

*****01**.*.****.
GU *
-*-*-*-**
**.-.-*-*-.
SVC 22
RELEASE
*
•
SYSTEM
*

*HTNCNT

....-._...._-.*_.

C2

• *.

*

•

'"

AND SET

•

UP SEEK

MDR35

**e3******_

WRTFIl05

•
•

X

••••• C4•••••****.

**
•

NUM8EP

x
.'.

04
*.
.* .* ENO *. "'.

*. ••

••••• *••• ** ••• *.**

OF

CYL.*

** **

svc

0

** **
** **

... ...._.-.
READ

*.
* *__._._
• *

HEADER
COUNTER

**

•
•

**"'*E2**·***·*.
RETURN
•
TO
CALLER

**.**.*****•• **

**

•* I/O *. •• NO
•*.* S VC 7 •'" *'*
*..* COMPLETE
•••••••••• x* • WAIT FOR
••
*.
.*
'" ·CO"PLETION '" *
**.. ..•*
*••••
* "'•••"'•••••••
* **
•

YES

ic
**.·*E4****·*****
..

*

SET UP

•

PECORD

'"

•

ID

'"

**G 1*'*.**.

**
•*
**
**•• *••*••*.•
'"

•

SSM TO
ENABLE
ALL
INTERRUPTS

X

*••**HI.*****·.·*
GU *
.-.-*-*-*-*-*-*-.

*MTNCNT

*•*

SVC 22
SEIZE
*•
SYSTEM
.*.*_•••
*•••••••••

•*************•• *'"•
F4

•
•

****J 1********.
RETURN

.'.x * •*.

.* LAST *. YES
*..*"'. DONE
TRACK
.* ...•
*. *.• *.* .*
• NO

*** '" *G4"'-·*******
*'"
**'"
GET
DATA
..

•*****************•
'"

*

TO
CALLER

•
••• ***.****••*.*

LENGTH

'"

X

*****HIt******-**'"
*KPTDSKOO
PH'"
*-*-*-*-*-*-*-*-*
*..

WRITE
RECORD

*..

•**************.***

X

•

•'"

x

i

ROHOR05

.*

J4

.*.x *. *.

NO.*
I/O
*..*
...
*. ERROR
*. *.
.*
.*
x
*•• *

****
**• C4 ***

.***

WRTF Il20

* YES

:X .......... :
X

**.*K4*********
RETURN
..
TO
*
••
CALLER.
*••************..
..

252

DOS/VS IPL and Joe Control

VALUE AND
STORE NEW

:x ........................ :

:X ....................... ..
****.F2.".*****••

..

**

HEAD ADOR
*
'"
*******"'*.***_
••**

• NO

x

F1 .*. "'.

*****05***.****••
..
GET CYl
'"
..

WRTFILlO

x

*

YE S

•••••••••• x*

**.••.**

:X ........................ :
X

*

***
•.*•• *•••• **.*••***
UPDATE
HEAD

*

X

•****·02**·*··*·**
••
•
STORE IN

••• *·ElliI ••••• _ •••

*

•••*
• C4 *.

• NO

COMBINED
TAPE RCO

*

•*.*.* •*.x.•

.*
*.
* POST 2 **
•
*..* OVERflOW *.. . YES
. . . . . . . . X*
TAPE RCOS
•
*.
.*
* swnCH
•
**.. .. **
•.*•• ** •• ** • *

*
•

INTO RCO

*
*.*.* •• AOOR
*••*.*•••••'"

•

*.

X

***·*84**.·.**··*
* MOVE DATA •

... ..............
•

•* .*.*A4*·*****.*
•*
WRTFILOO

*••• ****.*.*.*.*•

WRTFllOO

•

ic

ENABLE All
'" INTERRUPTS

~~R~bA~~¥E~OR30

MORZO IS FOR 4-BVTE
COUNTER. MOR25 IS
FOR Z-BVTE COUNTER.
AND MOR30 IS FOR
I-BVTE COUNTER.

*****82··········**

**

x

•• e1*******• SSM TO •*

NOT e. T HE ACTUAL
COOING FOR MORZO.

Chart RM.

$aOBCTLM - Miscellanecus sutrcutines (Part 5 cf 10)
Refer to Chart 19 •

····A3········.

•••• Al •••••••••
•

NEXTPOO

o

•••••••••••••••

o
o

•0

SCANQO

*

0

•••••••••••••••
••••
o
o •

0
0
0

.... .*.x

.. 83 •• x.

o

X
. . . . . 81** ••••••••

o

0

GET AOOR
..
OF NEXT
o PUB IN TABLE

0

o

0

•••••••••••••••••
0

C1

x

.0.x *.

•••••POINT
C2* •••••••••
TO
..
NE xT PUS
AND PU82
AND SAve

..
..
..

..

X

o*·01···***· •
*
SET
*

**PUBENDSWOF
ITCH
*..
0
• *** •••••••

*

.X ........................

..

*
*

B~

***** *

*
..

seT INVAl to
RESPONSE
CODE

..
..

• •••• *******.**•
.**

ADDRESS
..
.*•••••••••••••••

*••
*
.. YES

•• **•• •*

*••••c 4••x****••••

NEXTP05

.* END *. .... NO
..
*..**. OFTABLE
PUB
.* ••...... X.*'*'
.*
*..*
•

•

.•.

SCANOO

..

*

•

83
....
84
*.
.*.. ••*~15**.* ••••••..
*. *. NO
*. *. NO
*.* MATCHES
RESP
.* .* OF
END
..
POYNT TO
..
*.•*.IPl
.............. .oX...
.............. x*
NE XT REASON
..
lIST .*
*. l I S T . *
...
TN LJST
..
**.••.**
**....**
..*** •••••**•••••••..
.. YES
.. yes

NEXTPOO

X

• *···03****·**·*
RETURN
•
TO
**
•*
CALLER
.**.**.**.*•• * •

:X ••••••••••.••••••••••••• :
NEXTP10

X

*••• El.· •••• ·_.

•

•::

...............
RETURN

TO
:;'llt:.:~

*

..
¢:

*·**E4._ •• *****

•:

*

SVC44RQO

:

.**.*_•••* •••••

SVC44f>OO

X

**f4*******

** SSM TO 0 - *
• ENABLE ALL
* INTERRUPTS •
**•• _•• _••• *0
X

*··**GIt******-***
*MTNCNT
GU *
**.-*-*-*-*-*-*-*-*
SVC 22
**
RELEASE
**••*****._._-**-*
SYSTEM
•

X

·*_*.HIt**_**_•• *_
* * SVC 44 ** **
***.** RECORD
WRlTE
••

*.

•

• •• X*

**
**
.***.*-***.******

•

•.•.•••.•.• x:x

.*.
.* J4 110*. •. *. YES •
•
*
••
COMPLETE
.* ..... .
*. *.
.*
.*
*
*••
o NO

SSM
ENABLE ALL
TNTFPQUPTS

*.***IIe••*IIe** 0

*..

X

*****JI)**********
.MTNCNT
GU *
--*-.-*-*-*-*-*-*
•
SVC 22
•
*
f)EIlE
..
****** ••
SYSTEM
*
*•• *.*_•••

X

*****K4********.* * svc 7 -••*
••
•* **COMPLETION
WA IT FOR * *
• *
•***• •••••** •••**.*
**

•• *.*
•**HI) **TO
••

X

..

*-··KiI)·****.***
~ETUPN
•

**

TO

..

CAlLEP
..
-**** ••••••• *.*

Charts

253

Chart RN.

$JOBCTLM - ~iscellanecus Sutrcutines (Part 6 cf 10)
Refer to Chart 19.

•**.*A 1********.•*

·

X

VOLl 000

SENSE
**'
BUFFER
**
•*****••• **********

..

*
:(I

SNSOO

SNSOO

.

·*·*A4**.****-*

••••••** ••••*** *

•
~

VOllOOO

*

..

**************.

x
******84**********
•..
SET UP SEEK
* ADDRESS FOR *
* VOlUfoI.e ro *

•*····*81*·····***·
•*
CLEAR

•**.****** ..*******•

x
.*.
C1 *.
*****<:2**.***•• **
.*
*. *. YES
*
**'
DEVICE
GET lUB
*.•* ASSIGNED
.* .•.••.•• X.*'
+ PUB
*
*.
.*
* ADDRESSES *
**'.. ..**
*'***************••*'
* NO

X

*****C4**********
•
STORE SEEK
•
CCW ADOR
*
IN CCB
..
****************.

*
*
*
*

•

•

:x .......... .
SNSIO

X

**··01*********

*'*' RETURN
*'*'
TO
* CALLER
*
.**************

X

X

*****02 •• ********

•*****04**********
•*
* SET UP

* ASSIGN
*
** TOSYSUSE
*'*
DEVICE
********.**********

·
*
*

i<
*****E2**********

**'
•

*

STORE SENSE

CCWIN

eea

TO

.

READ

..

*

DATA

*********** .. **.**

X

*****E4*******'***
GU *
**-*-*-*-*-*-*-*-*
SVC 22
*'
RelEASE
***
*
SYSTEM
************.****

**
*

*MTNCNT

*******************

x

X

*****F2**********
*MTNCNl
GlJ *'

*****F4**********

*-*-*-*-*-*-*-*-*
*' svc 22
*

".. .,
*..
* *

************.****

..**************.**
*
* *

**

RELEASE
SYSTEM

**

* *

SVC 0

READ

DATA

* *'"
*
* *
..

..

: x .................. 'O ........... .

X

X

G4·*·*.

*****G2*********.

*****GIj**********

.* I/O *. *_ NO
.. *
*.. ** WATT
SVC 7
* '*
*..**. COMPLETE
FOR '" *
.* .* ........ x** **COMPlETION
* '"
*.
**
*'"
*...
* *
*****"'*********.*

* *' svt 0 *'*' **'
**'* ***' PERFORM
*' *
SENse
• *'
********.*********
*
*' *

.. YES

: x•••••••••••••••••••••••••••••••••••••

.".x *. *.

H2
,.*****H3**********
* svc 1 ** ..*
*.*COMPlETE
1/0
*..* .........
NO
*..*.
x** ** WAIT
FOR *'
.*
*
"COMPLETION *' ..
*..*
* *
• *
*•• *
*.*** •• **********
* YES

SNS05

X

*****J2**********
*MTNCNT
GU *
*-*-*-*-*-*-*-*-*
..
SVC 22
*
..
SEIZE
..
*********:t.*.***
SYSTEM
*
••

.
$: • • • •

.* .

VOLID05
X
*****H4**********
*MTNCNT
GU *
*-*-* ... *-*-*-*-*-*

*

svc

22
"''O
SE I ZE
SYSTEM'"

**

*

••

•••••••

x*.

*..

*.***************

*.

**...•. * • '"
*

YES

.* ••••

NO

X

*

'"

OFPUB2
AND SAVE

'"

*

IN PUB2

*

'"

VOL 10

*

'"

*****"'****"''''**'''**

X

'"
•

•

DOS/VS IPL and Job Control

DEVICE
! S 3340

*****J4**********
'"
GET AODP
*

:x ............... ~ .....

254

. .H5. . ' *.
O

****K4*****·***
RETURN
TO

*
•

CALlEP
*
****"'****** ....... '"

'O . . . . . . . . . . . . . . . . . :

Chart RP.

$JOBCTLM - Miscellaneous sutroutines (Part 7 of 10)
Refer to Chart 19 •

•••.A3·········

•• •• •••••
•• •••• 141
••
cooeoo

*

• •••••• ***.**.** *

•*****••••• ****. *

•

X

CODEOO

PREPOQO

*

NUMBER OF
RECORDS PER

X
**B5******.
*•
! NDtCATE
CREATE
*

PPEDOIO

••••
•***·.83**.··.·
•
CALCUlAT E
*

'"
•
'"

*

PREPOIO
*
•*••*****
•• *•••••

X

PREPOOO

••• **s 1.*•••• ** •••
*
*
•
Gi:T ADOR
•
• Of as DEvrCE '"
•
CODE TBAlE
'"
*••• *•••••• *•••*••*

***·A5*********

•
*

*'"

*

•••••• T~ACK
*** ••*.****'"

*•
•

RUN

*

*••**.*•• *.**

••**

*• (1 '"'.x.
.
•••• *• x
CODE05
.* . "'..
C1
.*'" •••C2*.*.***•••'"
.* CODE *. "' .. NO
.*
UPDATE TO
'"
*. MATCHES .* .......... x*'" NEXT
TABLE
'"
"'..

ENTRY

*.... .. '"*

.*

tODElO

it

it

•• *·*.•
***.*.01.*·*
•
Move as
'"
'"
'"

CODE TO
RECORD

'"
•

***•• ** ••••••••••••

X

*···*El·******** •
'"

RETURN

,..

*••• ******.*.*.* *

*SEEK AND SEARCH*
AOOQESS
•

*

•***.*.*** •• **.*.**

.*. *.
02
·····03··.*·*****
** GET EXTENT •*
.* END *. *. NO
•
*
AND LOWER*
*.
OF
••••••
*_UPPERLIMITS
•
*. 'fABLE .. '"
*.
.*
•
x
******.*
••••• ***.•
*...
"
* 'YES
•*' C1 *•

.. x" ..................... " ...................... ..
CODEl5

*** .*c 5***.*.**._
*
**
DEFINE

*
•
NUMBER OF •
**• GET
RECORDS PER
**
CYLINDER
* *.* ••••••*•••**
•••

'"
ENTRY'
'"
'"
'"
.*.************.*

'" YES

x

it

*·*··C3** •••• • •••

it

X

......

E3

.*
•• He

*** **05 .**.** .*.*

*• PQ.f'::PARE 110 ••
**UPDATE
ROUTT NE FOR
•
<;EEK AND.
*SEAPCH

.*.x *.

X

•*
*
*
.*
• ••••• *******•• *

•

•
**

.

****F5*********

***' HC FILE •*
••** ••• *.* •• *.**.

•................ x:

.*.x *.

x
SET CURRENT
**AND
WRAP A~ OUNO
ADDRESSES TO

:PREPOOI

.*
•. *. NO ..
10.* ••••••
*. *.TRACKS .• .*
•..
* *YES

••
IS 11
*.FEWER THAN

*****G4**********
•

1199A
'HARD COpy

*

**

*FILE TOO SMALLI*

**.**
• ••••••••••••*

*
•
•

* HL EXTENT
*
•
BEGIN
* •• ***.*
••••• *.**•

X
*****H3·*******··
'SET UP MESSAGE

CREATE

RfTURN
•
*** CALLER
TO
•
*
*.******.*** •••

• CALCULATE NO • •
OF TRACKS OF *

*'*

GET 8R ANCH
AOO~ESS FOR

it

.·**·F3 ***""** •• **

G3

•

X
*****E5*****.**.*

*.
FILE *. NO
*.TO Be CREATED.* ••••••••••••••••••
•. •.
.* .*
* •••
* yes

·

ADO~ESS

*****************

•

X
*.*·H4**.****·.
ReTURN

•

TO
•
*••••*.*
CALLER
••••• **.•
•

X

.*·*J3··.******
BP:ANCH TO
*'*
***' WAIT
ERR IN
$JOBCTLA
•
•••••••••••***.

Charts

255

Chart RQ.

$JOBCTLM - Miscellaneous sutroutines (Part 8 of 10)
Refer to Chart 19 .

•-···At···_·•••••
•+.***•••••••••••
•

PREP030

•

A2.·· ••***.•
•o• ••••PREP020
•0

........... ...
_

* •••A3***".****

•
••
•• ***.*HCIOR10
•
••••• *****
****
*RR

X

PREP020

•*.B1*.****.•

.... ......•

INDICATE WRITE>
•
RUN FOR IPL ,.
,.

MESSAGE

•

•

*

,.

_

x

•
_.•*'

GET seEK AND
,.
SEARCH
•
ADDRESS

,.
,.

.......... ....
__

**•

•

ccw

_

•

•

*

X

•.,

•

BRANCH
,.
*,. GET
ADDRESS
,.
FOR WR ITE
*
•••••••••••••*•••••

,,* .*

.0.x *'.

('fCLE

•

•

*

•• ***E2**···*····
o
•
.. GET BRANCH
•
ADORE SS
•
..
FOR READ
•
o
•
*.*.*.**** ••

*

SYSTEM

x
.*. *.
03
.*
.* BYPASS •. ••

••

*oo

FOR WRITE
RUN

*. *..* .*
•

oo*

E3

x

•
0

......

o •••••••••••••••

•*****C5.*******.*
••
,..
S VCO
*
*

.

YES.

x
.* .

••

ON

•• * •• * .*

*. NO
.* .....

••

*****E4***.**"****
..
seTUP
*
.* Fe; T/0 '* e *.
'"
MESSAGE
NO.*
*1I96A 'ERROR ON*X ••••••••
OPERATION .*
*HARD COPY FlLE *
*SUCCESSFUL.*
AT CCHHP'
'"
* . .**
•
**** ••• **********

*

-. * .

~JO

-

*. ... .* YES

*•

..

RETURN

*

TO
..
CALLER
..
*********.***.*

8~D

*.

FILE

*. *.• * .*
*

X

.:*~~.~ ...

.. *

: x•••••••••• :

****F4*********
BWA 1 TEp.RtJ

WArTERP TN

**

!JOBCTlA
*
***********.***

.*

F'S

*..* READ
*.

*
*

X

•*****G4**********
* SET CURRENT •*
*$:o

DISK AQOR =

seEK AODPESS

*

*

•
*************.***

X

x
*·***H3*********
RETURN
*
•
TO
**'
•
CALLER
***************

.,

•*-_.__.._-_._._ ..•

*

*•

*..*NO
....
*. *.. * . *.*
RUN

YES

X
*****G5 **********
*IOPOSTPR
RR*
*-*-*-*-*-$:-*-*-*
SEARCH FOR
CURRENT AND *
*WRAPAROUND REC.*
*****************

**

*

: X. . . . . . . . . . . :

:x ........................ :

•.·•••
•-+_.·*·HI.·_.··
MOVE IPl

.*.x *oo
*

X

*

'"

**

YES

****.G3**********
SET CURRENT >
*
DISK ADOR =
*FIRST He-RECORD*
o
*****************

•*

SET

MESSAGE fOR
OUTPUT

.*

•:**.

••

*.

*.

*. * . YES

o YES

0*.

•

•****************•*

...... ..

x
.*.
*•

EXTENT

F3

*

[S5UI: I/O
PE'1UEST

NO

•• LAST TRACK

*. *.

.*

•

*************.***

x

••• *F 2 *.** •• ***

X

*
*

•

.* .
C3
*.
.*
*.
.*
*. WRITE RUN *..* NO
..........
*. *.
.*
X
.*
*..
*
• YES

**•••

1.-_ •••••*_
•*.***G CYCLE
•
BIT •
*'., IN FLAG
BYTe ,.
TO 1
*
•.....*-_._._.....•
•

* ..
(a *.x.

*~o,

HCIOR2Q

X

*.BIT FOR REC.=.- ••••
1
••

*'..

ADDRESS

*** ••• ***********

•

•
* •
****
HCIOP30
)(
*** **P,5 ***.***.**
*MTNCNT
GU •
*-*-*-*-*-*-*-*-*
.. •• x*
svc 22
*
RELEASE
•
*

•

*•• *
*RR.
•
* Gl *.X.
•
•
•
eX ......... e ..................... .
*•• *
)(

·.**·C2.· •••• ***.
*• OEF INE SEEK 0•
• AND SEARCH
•

o

HCTOP30

************* ••~

****

*

X

•••• *E 1 ••••••• _.-

Fl

*

*

***·*02*******·*·
*
•
• PREPARE I/O •
•
ROUT! NE FOR •
*UPOA Te seEK ANO*
*SEARCH ADDRESS *
.*** ..... ***.**** •

**,.

... .......
PREPARE

READ
MESSAGE
.****.*** ••

*

*

X
HCIORIO
.****83******·.*.
INCREMENT
•*
*..
RECORD
•
•
•
NUMBER
•*.****.*** •• ***.*
>

X

X

**01*·*·**·

.

.

*

X

•••• *e 1 •••• --._ ••

•*
•

X

·•····A'S·····•••••

•

•**..•

•**62******·
INDICATE ••

·*·

Gl •• x.

*

PREP030

'*

···.A4* •••••

HC10R20
••.. • **.********.**
•*

K

H5

.*

.*
•• END
*. *0

.'. *.

1<.

OF FILE

*..*NO
..••

.* .*
*••
* *YES

x

***••
*RR •
• Al*
o

*

*

X

X

*****J 1**********
*• GET DATE 0*

*
*

FROM
*
***':11:11.:11 __COMREG
._••• _. __ ••
•*

X

**.**K 1*** •• *** ••
..
*
• CHANGE THE.
..
FORM TO
•
MMDOVV"
•
•
••••••• **********

*.••.•.•. x*••

256

****J5 *********
RETUPN
TO
CALLER
************* ••

*

·.**KZ*********
RETURN
*
TO

CALLER
**.** •• * •• *****

DOS/VS IPL and Jot Control

*•

***

Chart RR.

$JOECTLM - Miscellanecus sutrOutines (Part 9 cf 10)
Refer to Chart 19 •

••••
*
*A.Q ..
•

HS*

*•*

X
*.*.*A
1•• **.*.*P.R.
••
_UPDATE

.•••A2·········*•

*-*-*-*-*-*-*-*-*
•
UPDATE
..

•
•

SEARCH

•••

•

•••••••••••••••

•••••*ADDRESS
•••••**••••*

.*

•'

B1

.'.x *.

LAST

.•.x

••••• 82·· ••••• •••

o

NO

••

*. *. NO ..X
.* •*TRACK
LAST
*. EXTENTON .* .* .....
*. * •• *.*

....

.. YES

01

.•.x *.

•

•

INCREMENT

..
..

RECORD
NUMBER

o

•• *.
.* .*
.*
*. *.
.* .*
••• ·YES

C2

•

END OF

*..

FILE

it

INCREMENT
CYCLINDER
NUMBER

.....
x

*AQ •
• 83·

...

•* TYPE *. *. READ
OF
•• e •••
*. *. RUN .* .*
* •••
ic

*•*

HCIORIO

·WRITE

x
•••••
*RQ *
• C3.

...••

o..*.*84*··•• *.***•

*
..

TEST
FOR CURR ENT

..
•

TEST AND
SAVE CYCLE

..
0

x

*..*.'

•* •*.

CURRENt
RECORD
FOUND

.....

*

RECORD

••
*. •FOUND
•• * .•

NO

••••••••••••••••••••

.. YES

:•...•.•..• x:
•• 03

.* .*.

.* CUR" ENT * •*.

*..>*.

..................
*

*

x

C4

..
•

BIT

..
..

R.ECO~O

..

*•••••••••••••••*...

•
•
·····e3**·····**·
..

X

: IOPOST4

***·.·.·•

X
*•

o. NO

•

••••••••
.* .*

•

• •••• 04••
o SAVE CURRENT
•
ADDRESS IN
..
CRTSAV

*

E3

05

.* END *. *. YES
*..*
OF
.* ••••
*. FILE .*
*. *- -* .*

•
•
..

*
........
* .... **** ••0

YES

•

.

x
.*.
••

x

x

f3

ic

"'.

••.. *..* OVERLAY •..*
*. *.
.* .*
NO

NO

.".
.*E5 IS *. *•*.
NO.'* IT THE
. ... *. *.WRAP
AROUND .*
PECORD .*
*. *•. *.*
.. yes

.* •*' WRAP ••*. YES
..AROUND RECORD.* ••••
*. FOUNO .*
*. *•• * .*
* NO

.. .0. ..

.'x.*.

•x

*****FS *******.**

** SAVE
.x ................................ AROUND
•

..

*

*...
*
* YES

IN

WRAP-

ADDRESS

C~iSAV

*
**

..

•

*****************

: X................... :

ic

.

. ···*G2*****.***
•

RETURN

*

"

•••••••••••••••

••

X
***•• G3*.*****·**

•
GET
•
*CURRENT ADDRESS.

:

:A~gm 19D~m

x·· .... · . ··· . ·.

*****G4*••*••****

G5

*

*

*..*

*••
* *
NO

*****************

:x ..•......• :

o

HCIOR30

:lOPOSTE

•

J.

"o.
..**H2*******
* .XYES.*
. .H3
WRAP *o.
•
I NOICATE.
AROUND
'* ..

*

END OF

FILE"

.X •••••••••• AND CURRENT

*.

..******* ••*. *

ADDRESS

* .. ~~~~.*

o.*

.*

.* .*.

*
seT
*
...
*.
: x•••• :CU~F~L5~ElB~EgDIRNH~SS:X ........ :~ ~ "': *WR:~C~:~ND*: ..
x * 1
G
*
*~
FOUND .. *

•*********.*....****

~25:

••*

HCIOR20

*"

•

CREATE..

•• oo*.

•

.................

: x................ :

.•.x

.

..*****F 2**********

•••••••••••••
Gl

.*X.
83
* ••.
.*
YES.o
CYCLE
*•
• ••• 'BIT FROM FIRST.O
*. *.SAVEO.*
RECORD .. *
*..•
o NO

.. x ............................................... ..

.'.x o.

*...
"
" YES

•
•
•

•

IOPOSTPR

.

.*
*. *. NO X.
*. *. HIGH .• •• • *•••.

X

•

..
•

••
TRACK
o. NUMBER TOO

..FI·······•

•

10POSTPR

X

'.

NUMBER

E2

..... .....

..

•••••••••••••••••*

... :...... .;~~~.;.~.;:;;..;...;...;z;,!_::

PREPARE
..
FOR WRITE EOF •

INDICATE

.*.x

02.~ ••*•••*.
INCREMENT
*
TRACK
•

•
•
o•

•
•
RECORD
•
• _ •
:••.•.••... x:
••

*

. "RECORD *. *. NO
*.. 'NUMBER
*. HIGHTOO .*.* .•..
*. *•. *.*
o YES

X

..

..
..

•••••••••••••••••

**El**•••••

..

•

• ••• A3 •••••• •••

•

•••••

NO
•••••• CREATE RUN

•

..

i<

UPDATE

*. ••

*.*.RECORD-ION
.* .....
TRACK
.. *
*. * •• *.*
.. YES

C1

UPDATE

..

X
***·*H5***·
•• *****
SET

..

•

........................... o. ................... o........

CURRENT AND
WRAP-AROUND

111
•

• ADDRESS EOUAL •
'TO HC-f!LE BEG.'

••••*** ••••*•••••

o NO

..... o.o.o. ...................... o. ...... x..
X

•****J3 .....**.·•• •
•*****.*********•
•

RETURN

•

Charts

257

Chart RS.

$JOBCTLM - ~iscellanecus Sutrcutines (Part 10 of 10)
Refer to Chart 19 •

•• *.A2 ••• *•••

•

OP~HCFLE-

*.•

•• ••••••••• **••••••
X
••••
*82··••• •••••
*MTNCNT
GU *

OPNHCFLE

*-*-*-..-.-*-*-*-*
*
SVC 22
*•
RELEASE
•
SYSTEM
•••****.*.**.*
••••
air:

·*••*.C2··.·••••••**
i<

•
:

OPEN

HA~? L~OPY

:

•••
• *•••••••••• *••*

····A4·····.···

HCOPNMSG
•*
••• ......
** ••••••••

•••••• 84*.*****.·.•
:G~twA98P~~MF :
•

GU •

air:

•

SYSTEM

air:

•••••••••••••**••

•.··E2·.·······
i<

•

•
•

X

*****C4.****.·**·
PK*
**-*-*-*-.-*-*-*-*
ISSUE
*

*LOGREQOO

..........-•.....
•

258

•

TO
CALLER

•
•

•••••••••••••••

DOS/VS IPL and Jot Control

MESSAGE

•

air:

*

*

X
** ••RETURN
04 •••••• **.

**

TO

air:

*

CALLER
••••••
***•••*.* •

*E4
MESSAGE

RETURN

*

*E4*

*.*.*••*.*.*.****

i<

... *-*-*-*-*-*-*-*air:

MESSAGE

*11911

*****02*.*•••• *••

*MTNCNT
air:
Svc 22
•
SEIZE

X

HCOPNMSG

11971

TEXT
HARD COpy FILE ON 01 SK
NOT SUPPORTED DUE TO
OPEN EOPDP

$JOECTLN - Job Accounting Interface (Part 1 of 2)
Refer to Chart 20 •

Chart SA.

••···Al··.......•
SJOBCTLN
•• •••••••••••••••
••

•

••••A2.··••••••
SIMEOJ

..

*Kl

..

•

••••A3········.
EOJ

. ."

..

..•••••••••••••••..

..

..

•••••••••••••••••

*K3

..

*•••
* 8') *•
**.** *

..*** ••

B4 •

.**.

··Sl·····•.
ic

EXEC

..

..
..

GO

..
..

SET
RETURN

BRANCH
FOR EXEC

.

SIMEOJ

..

..
•

•

•

ic
·.82 . . . . . ..

"

..
"

SET RETURN •
BRANCH FOR
"
"
SI MULA TED •
•
..
EOJ
..

..

..

ic

STORE JOB
CONTROL REGS
ESTABLI SH

..
..

TABLE
BASE

..

..

••

*.

.*

B4 .". ••

•

•

JOB

*••
* *YES

• •• X.

..
•

•••••*•••••••••••"

..

TURN

OFF
CATALOG
SWITCH

..

"..
"

•

.. ..
....
03

*.••
."

**•

ADOPESS

AND
PARTITJON
PIS

*

**.*..*.***
*.** .
*• E2 ".
•• x.
• *..... ".x
ic
....
• TEST
.*.
El
".
*. t .. Yes .. .... *E2 IS ". ••••
.... .*
! Ac;,T I)SER
*. eXlT NORI'ItAL •••••••• *. *. $JOBACCT
ANO"IHEk
••
*. *.
.•
"RUNNING"
* ••• .•
••• *

US E

.*

••

*•

POINT TO

..... ;

;

~O~¥~u

•
BLOCK
••••••••••
***••••*

.. NO

**8'5******·
POST
USER IN
CONTROL

*.**•••• ***

PARTITION
SAVE
AREA

..

**
*

x
.* .*.

*. *. NO
.* .*....
*. *•• *.*
* YES

.*

*..*••

C5

*•
*
.. *

LABEL
AREA

SUPDORT

i

**05 ******.
*.. ACTIVATE **
•
nPEN/CLOSE
*
• LABE L AREA
•
...

Cl\oTURE

***.****.**

•

:X •••••••••• :

ic

""

GET

****.****** •••**.

····*E3.*****···**
YES:

.

..***··04.****.****

*
*•
•

.. YES

.;Ifo • • • •

.. NO

IT IN

•.

*.••••••
NO

*

...
•
...

•• ••• *••••***••••*
X

.* .••

IS

"
**
..
•

i

··***C4
••• •••••*....
•
GE"" PIe

....•..•... x:x
**02.*••••

X

*. •• NO •
.* .* ••••••
.*

IS
THIS A
•• FOREGRD

*.

TO
•
* POINT
FIRST
•
WAIT
*...
•
BLOCK
..* •••••••••*••••

..
•

ic

·

..

••

•
•
..

"
..
..

EOJ

..

i

..•••••01.··.·.·.··..
SAVE ID OF
PARTITION
IN CHARGE

..

*·***C3**••••••••

•••••••••••••••••

•
..
•

SET

RETURN

.. BRANCH FOR
..
NORMAL

.....el·····...·.
•
"
•

·*83*······

•••••••••**
..**•••••••
•••••••••••
:x .•...................•.• :x.•..••..........••...... :
CO

•.•.••••.•• x:

i

ic

EOJ

X

•. ••• ·E4*.**··••**.
•

;
•

POST

-.i~~ ~~~r

;
•

APEA
..*.*•••••
*******•

X

*****e5**********
*MTNCNT
GU ...
*-.-*-*-*-*-*-*-*
;
~i::T~~S;;;;
*
•
SYSTEM
*
******.*******.**

i

X

...-FI·······"

USERROR

•
TURN OFF
•
.. ACCOUNTING SW •
IN COMREG •
•

•••••••••••••
ic

.

•• St •••••••

"

.. POST CANCEL •
• ACCOUNTING TO •
..
OTHER
•
"PARTITIONS ..

..
•
•

*•

CALCULATE
FINAL CPU
TIME
•
MOVE CTRS
TO USER TABLE ..

..*• ••H2***.******•

• *•••••••••••**

:

SA~~HiOB

** •••••••..*
*******f5STORE
•
*... REGISTERS
BASE
•
*
*** ••*••••••***.*•"

••

·

X

ic

**••*(1S **.* ••*.**
.*...
•
*• INITIALIZE
USER
REGISTERS
*
*
..
••• ******.***.***

*·***G3**··******
"MTNCNT
GU *
*-*-*-*-$-*-.-*-*
..
RELEASE
"

.

.·HI_···•••

*.. DEACTIVATE "*
" LABEL SWITCH *

X

85 •

*** •• "

•••
*"x
..
••••••**••• ******
"

ic

X

PUT
PARTITION
10 IN
WAIT BLOCK

..

**"·*G2
*.**••••**..
*
RESET
*
*..• COUNTERS
TIME
•
*

..••••**•••********

ic

•
"

*
• *.... *._**.******

•••••••••••

..*****"

••.••
.. F3··.·····.·*

X

····*f2-····_·_··**

CALLSEOJ

THE
*..
SYSTEM
*****.***********

•
..

•••••••.•.• x:x

....

*_***H4*••**.***•
.* . .
.* ...•.... x***-*-.-.-*-*-*-*-**
...*
****.*•••**.*.*.*•*
*. .*
H3

••

*MTNCNT

•• IS OTHER "'. YES
US Ell:
•• FINISHED ••

*.

:

FROM
*
.*.***COMREG
••*••*.**•••

•

•

*

GU •

SEIZE
THE
SYSTEM

•

X

*****·HS********·
EXIT TO
*•
$JOBACCT
*
*J5
*

***.***.*******

NO

ic

*****
**

·S8 ..
.. 01*'

*

SWBACK

·-

X

x
**••••
•
B4 •
••••**

ic

..

·****J3********_·
••
1
*.
* * SVC
WAIT
••
•* ••
* ••
*
••••*••*-****••••

*****JZ····"··**
•
POST
..
•
IJOB ACCT'
•
AS NEW
•
•*• JOB
NAME
•
IN COMREG
*
••••••••••••••**.

X
..*".*J4**********
..
*

*

...

*

CLEAR
WAIT

SLOCK

•

**
•

••***************

"J5

EXIT T~
USERS JOB
ACCOUNTING

PQOGRA'"

x

..*****
*
E2 •

"K]

ENTRV FROM 1+
STAT EMENT PROCESSOR
AT NORMAL AND

ABNORMAL

*
..
.***

eOJ.,

Charts

259

Chart SB.

$JOBCTLN - Job Accounting Interface (Part 2 cf 2)
Refer to Chart 20.

A3.····•••••
•• •••.
RETURN FROM *
*

SJOBACCT

t

•••******••***.

****

*

•..••••
85 •
..
•**** •

*

.. B4 ..

•***. •
X

RETURN

•*****B4**********
* GET PIB ••

*••••••• *••••••••••

••••• *.*** •••*****•

*•

X

BACK

*
t

.. HI·

.*.********

*

ADDRESS AND
PARTITION PIB •

X

·*C3***.*.*

• TURN OFF t •
.USER IN CHARGE
•
SWITCH
t

••••
*
·SA ..

**

**

BASE
REGISTERS

•*****C4*··*******
* GET PARTITION •*
..

t

**

SAVE

..

AREA

* ••••••• *******•
.**

t

***
X

SWBACK

.***·03 •••••••**.

*ALL USED SEllE.

RETURN US ER' S 0
JOB NAME
TO COMREG
t

..

BLOCKS

**
*

X

•

• *El*******

TURN
•
OFF
• .. SJOBCTLN
ACTIVE
•
SWITCH

*.*•••• **••

t

x
•*.*.

E3

*

•

•••• *

*..
•

X

*•

•

* DEACTIVATE • •
LABEL
SWITCH

•****.**.*** ••

.*••

.*.
Gl

*

•

X

EXBKSWCH

84 ..

EJBKSWCH

*. ...

•
G2

*.

*.

.* WAS *. NO
****G3.****
••• • ..
.*.* WASFROM*. *..*YES
CONTROL
*.•**.ENTRY
FROM
•....••. X..... SJOBCTlA
*'
EXEC
.* .* ••••..•• X•• *.ENTRYEOJ.*
..

....*
*•• *

*....
*•. -

• YES

EXECBACK

X

*•••• Hl**********

*..

POINT DUMMY

•
VECTOR TO
'EXEC PROCESSOR
IN SJOBCTLE

*

*..
**

*

******.**********

:X •••••••••••
X

•

***.J 1******•••
BRANCH TO •

•

••••**•••••• **. *

*

260

FETCHRF IN
SJOBCTLA

***.*••***.*•••

• NO

•

SJBKSWCH

H2

.*.X

••

•*
. . •• NO
..**H3*·*·····*
WAS
•
EOJ
..
*. *.ENTRY
FROM •••••••••• x*
SVC 14
SIMEOJ .*
..
..*
*...
**.*****.***.**
••

*..
*
• YES

•••
.. *E4**.**·••
*•
'''TNCNT
GU *
*-*-*-*-.-*-*-*-.
•
RESEIZE THE •
..
SYSTEM
..
********.**********

X

*****F4.*********

*

*
• TO OVERHEAD *
***.***.***********

MOVE
..• USED

CPU TIME
BY

USER

NT DUMMY *
**• POI
VECTOR TO
*
'ACCTSIMR'
..
**•••••
IN SJOBCTLG *
*******••••

DCS/VS IPL and Joe Control

..0

i<
*****G4.*********

•*
•

•

REINITIAlIlE

•

ACCOUNTING
TABLE

JOB

•*
..

•
•

**••••• **.* ••*•••

X

CLRl

•***.*D5*·********
•*
'"
CLEAR
*•

TIME
..
COUNTERS
*
******.**********0
•

•·****H4*·********
• GET LENGTH •
*

*• SID OFTABLE •*
******************•

•.. ..***
85 •
..
o

***.

.* .*

E5

.•.x *.

*. *.

NO

*. *. SUP~6~TED. * ••••••
*. *•• *.*
x
* YES

••••••

· ..

•**.*'"
FS *.
*.. x..
*.** X

.. Dl*

****.•

*****f5**********

••*CLEAR
•

*

·

*

SIO TABLE*

.•

***********.*****

x

G5

.*. *.

.* 510 *. *. NO
*._**. CLEAR
TABLE
.*...•
•.
.* .*
x
* ••
*
*•••
* YES
*- F5*•

*•••••

X

NOTLAST

x

i<
*****J2****.***
•••
o

X

**** *.**.*
•*****C5
•* FIQST
CLEARSIO •
•..
*
ENTRY
*
•**********.******
•
:x ......•... :

x

:NOTFGl

x

•• Fl-••••••

85
*.
••. * S10 *. •• NO
•• SUPPORTED ••••••
*.
••
*. *•• *.*
• YES

.....•.•.•. x:

*.*. NO •
IS
*. .FOREGROUND.·
THIS A
.* •..•..
t. JOB .*
* ••
o *
YES
.* .*

•
..

******04*****··***
* RESTORE •••
..* JOB TONAME
..
* SAVE AREA *
*.*...**********.*

t

*
*t
t
••*** ••••••••••••

..

•••******•• *****.

CONTINUE

X

X

·.*·*01********••

*:PO~6M~mn2N :*

.•.
i<

X

*••*.*
•*.***83*···
••
*
RESTORE

*

i<
*.H 5 *******. **
•**.
•
SET
*'"
TABLE
..*

FINISH

*

OELlMITER

•

•****.*****.. *.*.***

x

•.. **.*
•
D1 ..

..*-•

*

$$BLSTIO - Initializaticn
Refer to Chart 11.

Chart TA.

·• •
**.*

.•••••••••

"

.. A2 ..

*•••
x

·•••••••••••••••
••• *A 1 ••••

•

.'.

A3

"

••···81··········

*• LOAD
BASE REG *
WRKRG3 WtTH •
•

CURP ENT PUB

"

•

•
AODR. FROM
•
*'••
TPU8AOD
..
*••••••••••••••

·*82**·····

•••••••••••••

X

UNPACK AND
TRANSLATE
CHANNEL AND
UNit TO BCD
IN WRKRGl

*'

C2

*

•••••••••••••••••*

ll . . . .

·····01*··**·····**'

02

.. '"

TCHNL AND
TUNIT

. *t S

-.

-TOWN-

*. *.

*. *.

*. *•.•.•

••x*.

.. YES

•

X

*

WRKFLDl

.

UNPACK MODE
• OF DEVICE IN

tm~~A ~~~T

nN~om~~

FNOA.RG FI:I.OM LOGtCAL

*.
.*
.*

NO

TRANSIENT KEY AND
THE OPERAND. POI NTl
VALUE MAV BE NEGATIVE.

* ...
*
• YES
it:

····*C4·*·.··****
** PUB COMPUTE
*
OWNER ID •
:
..

Bi~b4~b~~Fftl:

.....

*

TOWN

.***** •••••••• *••

.

•* 04 ••
* X..x •••••••••••
•

•**.*• x
.' .*.
04

.PUIFTl

***··03****·**·*·

..

'.ICAL UNIT."

.*

'B5

.*.x *.*.

'MUL TlPROGRAMING •••••

•

..

• NO

I PT
NO ..
-.OR PCH A LOG- •••• X.

•

·................"*'
*'
_

.'.x

..

OVCHK

• NO

X

11

MOVE

DEVICE TO

.

..******************

..

84
.•.•

.'.x *.
C3
.*
*. *. YES..
IS
*..* DEVICE
*. OASO .* .* .•••
*. *•.• .*

.'. ••

.*
*. ' .
VES.* IS RDR
••••••
LOGICAL
.*
*. *. UNIT .• .*

•
•
•

• MOVE CHANNEL
•
AND UNIT TO

..

•

..

x

•••••C1*·········
•
•
•
..

•••••
" 03·····*·**·.
.•....-...........•

• TE ST fOR
HOPPU • •

it:

*.*·*A4**····.***
*
CLEAR
*
•
OWNER SHIP
"
•
FIELD
•

X

•
••
"INITIALIZE

A4 •

:PUIFl

o NO

X

i

...-

••••••••••• X:

.* .*.

.'
MOOE
' . VES •
•• BYTE IN PUB .* •••• x.
EQUAl.*
X

• VES

PUIF

-

.*
*•
*.
*. *•••
0
.*

••
'.

"*'

"

x

PUIFTP

••

.• ISIT *. '.NO
SYSTEM
.* ••••
*. UNIT .*
*. *•• *.*

**•••

PutF

"

A2

•***.•
• •

•

.. A3 ..

.*..

**•••*05*••••***••*

.* SINGLE *. YES
•
' . ASSIGNMENT •••••••••• X'

•
•

*. • •. A
•5
•. *

•

•*••••• **••••••••••

XXX TO TLUNIT ..
+3
•

-SYSXXX•
*••••••
*.*.******

*. • .*NO

•

MOVE ARGUMENT.

*•

.. A4 ..

.".x *.

El
.':cn:: '.
YES ."UNASSIGNED ' .
•••••

*.

Ii
••••••*'

OR

IGNORE

*. * ..• .*

.*

~

..

.*

.•.x

MODIFY TM

..

SVSPCH

•••• :t ••••••

TMODE FIELD

x

•*. *.

.* . * DEV ICE *. *.
UA

*. *••• .• .•

GZ
.*.*

.* . .ox.

x

***.*•

" NO

lit

.. WITH KEY OF ..
"UNIT CLASS FROM'
.POINTl
*S5.

.•.•

*

:x •.•.•••.•. :
x

.0 •

Gl
'.
." DEVICE
•• YES
.TAPE CARTRIOGE ••••••
•• READER ••

*.

.*

•

*

TO

CALLER

• ••*** •• *••••••

•

x

F4

.* •• •

• •••*FS ••••••••••

..*.

NO

:

' . SVSTEM UNIT •••••••••• X'

*. * . . . * .*
*. " .*YES

**•• **.** ••• *****

".

***·E5.·
•••••••..
i'(,tlui

*

LOAD WRKRG3
WITH ADDRESS

WRKRG3 EQ
BUFFER ADDR
WRKRG4 EQ

•

*

..

•
•
•

*

PUB AODR

•••••••••••••••••
X

X

**
..

.****C4**...*•••••

••••*••*** •••••••

••*••••••••••••••••

••••• C1.· ••••••••

*•

MOVE TLUNlT
TO LUNIT IN
BUFFER+1
-SYSXXX*Jl

..
•
..

••
•

..

•
..

X

MOVE TCMNT
TO LCMNT IN

..

•

..

•

x

•••
LUB

ill.

....

...

*.....U..."A
*. *
• YES

.*
.* ......... X-..*
NO

ts

*. *.

..

LUB
*. *....
IGN
.. "

.

..

*..
*
••••••
***Jl
••**•••••..

X

..

•..

TO lCHNL IN
BUFFER+20

•••·.E4·"*••••• ••*

o
MOVE UNIT
*TO BUFFER FROM •
..

..

..

*

*Jl
..
•••••••••••••••••
:........................ x:

F4

••

*..
•
*Jl
••••***..
*••*••••*'
Ii

•
•

TO LHOOE IN
BUFFER+33

•

.Jl

•

2 BYTES

.*

IN''
+26
..

*"**·G3
..........•
., MOVE THODE

..

••

.*..*.**••****.*.
.•.x *.*.
••

i
•••••
* MOV ••••••••••
UNIT
*
.. TO L
..
BU

TUNIT.

••

..

*Jl
..
•••••••••••••••••

··*··F2··········
*
*
.. MOVE •• 1GN..

X

SULB2
E3 •••••••• **
....**•••
Move TCHNL
..
*.••••••••••
NO
TO LCHNL IN ..
X.
BUfFER+20
..

*. *.."YES

X

MOVE •• UA..
TO LCHNL IN
BUFFER+20

•

I-BYTE
..*.*.**.*
••***•••

····.fl··········
**
**
..

•

TCHNL.

•

SULBI...
EZ

*. ....

FPOM

..

..
*Jl
••••••••••••••
**••..*

El
.* .* IS

..

• MOVE CHANNEL
•
TO BUFFER

*

8UfFER+12

•

BLANKS

X
•••·.04.***
••*....
*
•

•••• *01 •••••••• ••

•
•

•0

CLEAR lIO
BUFFER TO

IS

DEVICE
•• OOWN

...*
*. .*

-DOWN-

....

! 10 UNIT.
OF! ELO I N BUFFER>

•*•••••• *•••*.*•••.

••

• NO

SEUDB2

..*•• F15 ••••••••••

•• MOVE
*...........
YES
X.TO THE

X

*·**·G4··*·····*.
BUILD
..
*• REMA
INDE~ OF
*•
PRINT LINE

..

•
•

••

•

BUFFER

•

.**....*•••**.*••••

•

•****.*.********.

.J4

•

:X ........................ :
: ........................ x:x ........................ :
i

*• ·***H3··****·*·
RETURN TO
*•
CALLING
SEQUENCE
•
•••••••
*****.** *
OJl

LUN IT
LeMNT
LC IfIL
-SYSXXX----xxx--••-UA-..

**-IGN-**

LPUNIT LMODE
XX
XX

.J'"

1. MOVE OWNER TO OWNER FIELD
2. MOVE MODE FROM TMODE TO ~ODE FIELD
3. MOVE LOGICAL UNIT FROM TlUNIT TO
I/O UNIT FIELD
4. MOVE THE COMMENT FROM TCMNT TO THE
COMMENT FIELD-MODE LESS 6 BYTES

Charts

263

Chart TD.

$$BLSTIO - Build Header Subroutine
Refer to Chart 11.

.A5

••••A1· . . . . . . . .

•o
•

PSHRTN

•••

•••••••••••• ***

•••• A3 ....• •••••

•*
•

...............••
LHQTN

•

*B5
PARTIlION VALUE
NUMBER + CLASS

X

PSHRTN

01·* •• ••• •••
••• • •••CLEAR
••
110
•
• BUFFER
••

:WRKR?o

X
·····el*·········
*•
*

X
.**··C3.·····.*··

•••••••••••••••••

01

.*.x *.

.* .* MULTI- *. *. NO
•• PRO GRAMM ING .* ••••
*.
.•
*.
.*
* ..
* YES
X

. . . . . El** •• ••• •••

oo MOVE OWNER
**
OFLAG HEADING TOo OUTPUT BUFFER *

*••••••••••••••• **•

INTO HEADING
I NDEX TABLE.

~~~~TIVE:

.PART IT IDN

•
*
*
*

= 01 SPLACEMENT

_COMPUTE LOGICAL.
*
UNIT CLASS
*

*•••••••••••••••••-

MOVE CHANNEL
•
AND UNIT
•
HEADING TO
• OUTP UT BUFFER

~~61R~0~S~tl ~~~O~2

X
*****83**.*.*•• • •

LHRTN

U5.
• •••••• ** ••••••••

..

LOAD

•
WRKRG4 WITH
* DISPLACEMENT
•
TO CORRECT
HEADER *B5

*

..

•
•
•
•

•••••••••••••••••

X
·····03*··**
••··.*
*

•
LOAD WRKRG4
WITH ADDRESS •
*
OF CORRECT
*
-HEADER
_E5*

*

••••••••• *•••*•••
*E5
HEADER ADDRESS
EQUALS INDEX
01 SPLACEMENT
C WRKRG4J +
CONTENTS REG 15.
REG 15 = BASE
REG OF UBLSTIO
TRANSIENT.

X
·***·E3·****·····

**
*
*

MOVE HEADER
TO OUTPUT
BUFFER

*•
•
*

..................
•
*

:X •••••••••• :
it
....
• ·f1··••··••..•

PSHRTNl

*F4
PARTITION ID .BG.F4.F3.F2.Fl.

PARtiiiON-· -- :00:02:04:06: os:;- PARTiTiONS:

• MOVE 110 UNIT • •
•
MODE AND
.COMMENT HEADING.
•
TO BUFFER
•

*

~6~W~R

••••••••••• ***•••

............................................ _••..••••••• x..
X

••••••*.
*• ••**H3·
RETURN TO
•
CALLING SE~ *

...............*

*

264

DOS/vS IPL and Job Control

:iJO:==:02:0i,:iJ6:nmiTioNS:
:00 :== :==: 02: 04: 3' PARmi ONS:
:00:==:==:==:02: 2' PARTiTiONS:

APPENCIX A:

Label

Phase

Location

SDASOOOO
SDASDOIO
SRSTlERR
SRSTI050
SRSTI080
SRSTI090
SRST2ERR
SRST3ERR
SSIZE

SJOBCTlB
SJOBCTlB
SJOBCTlB
SJOBCTlB
SJOBCTlB
SJOBCTlB
SJOBCTlB
SJOBCTlB
SJOBCTlB

HGBI
HGCI
HDD5
HDC3
HOJ2
HDJ3
HOG4
HOGI
HGB4

.FAVP
'RSTC050
ilRSTOO80
ilRST0200
'RST0800
tlRST0900
.RSTlOIO
tlRSTI020
i#RSTlO30
'RST2000
NRST4ERR
i#RST8000
NRST9000

SJOBCTlB
SJOBCTlB
SJOSCTlB
SJOBCTLB
SJOBCTlB
SJOBCTLB
SJOBCTLB
SJOBCTlB
SJOBCTlB
SJOBCTlB
SJOBCTlB
SJOBCTlB
SJOBCTlB

HFC2
HADl
HAA3
HCA3
HCE3
HCH3
HAC2
HBB3
HBA2
HBH2
HBC3
HBK3
HCA4

ABNCHK
ABNENO
ACCNU
ACCTBRl
ACCTBR2
ACCTBR3
ACCTBR5
ACCTCl
ACCT IGN
ACCTIGNl
ACCTIGN2
ACCTIGN3
ACCTIGN4
ACCTIGN4
ACCTIGN5
ACCTIGN6
ACCTlVI
ACCTSIMR
ACCTUPOT
ACCTUPOT
ACLE XCP
ACTION
ACTR SP
ACTTEST
ADDRTN
AOR
ADREST
AlCERR
AlCERR2
AlCNEXT
AlCPFIX
AlCRTN
ALIGN
ALLOC
AllOCR
AllXT
ARNO

SIPlRT2
$IPlRT2
SJOBCTlE
SJOBCTlA
SJOBCTlG
SJOBCTlG
SJOBCTlG
SJOBCTLA
SJOBCTLF
SJOBCTlE
SJOBCTlG
SJOBCTlA
SJOBCTLA
SJOBCTlG
SJOBCTlG
SJOBCTlG
SJOBCTlA
SJOBCTlG
SJOBCTlF
SJOSCTLJ
SJOBCTlE
SJOBCTLJ
SJOBCTLA
SJOBCTlF
SI PlRT3
SJOBCTlA
$IPlRT4
$1 PlRT2
SIPlRT2
SIPlRT2
SIPlRT2
SIPLRT2
SJOBCTlG
SJOBCTlJ
SJOBCTlJ
UBlSTlO
SJOBCTlG

CHDI
CH02
lAG3
GBG2
NBE3
NCG3
NAE4
GBK2
MMC3
LBF3
NEH4
GAD4
GBAI
NBGI
NCA3
NCK3
GBH3
NAJ4
MMB3
PMJl
lNGl
PDBI
GCAI
MSH3
OABI
GXEI
EFB3
CJJ3
CJH4
CJ02
CJH2
CJB2
NHJ2
POSI
PRBI
TBG5
NNFl

Label

Phase

ARNDI
ASGENO
ASNENO
ASNlPI
ASNlP2
ASNOWNl
ASNRTN
ASSGN
ASSGN
ASSGNB4
ASSGNB6
ASSGNB6A
ASSGNB6D
ASSGNB7
ASSGNC
ASSGNDIB
ASSGN IT
ASSGNlST
ASSGNP
ASSGNPl
ASSGNP2
ASSGNR
ASSGNVl
ASSGNV2
ASSGNO
ASSGNOO
ASSGNIO
ASSGNlOl
ASSGNll
ASSGNl2
ASSGN20
ASSGN2l
ASSGN23
ASSGN23A
ASSGN24
ASSGN26
ASSGN27
ASSGN28
ASSGN29
ASSGN3
ASSGN3A
ASSGN30
ASSGN3l
ASSGN32
ASSGN34
ASSGN35
ASSGN36
ASSGN38
ASSGN39
ASSGN40
ASSGN403
ASSGN404
ASSGN41
ASSGN42
ASSGN43
ASSGN6
ASSGN7
ASSGN8
ASSGN901
ASSNAlT
ASSPERM

SJOBCTLG
SIPlRT5
SIPLRT4
SIPlRT4
SIPlRT4
SIPLRT4
SIPLRT4
SlPlRT5
SJOBCTlD
SJOBCTlD
SJOBCTlD
SJOBCTLD
SJOBCTlO
SJOBCTLD
SJOBCTlD
SJOBCTlD
SJOBCTlD
SJOBCTlO
SJOBCTlO
SJOBCTlD
SJOBCTlO
SJOBCTlD
SJOBCTlO
SJOBCTlO
SJOBCTlD
SJOBCTlD
SJOBCTlO
SJOBCTlO
SJOBCTlO
SJOBCTlO
SJOBCTlO
SJOBCTLD
SJOBCTlO
SJOBCTLO
SJOBCTlO
SJOBCTLO
SJOBCTlO
SJOBCTlO
$JOBCTLO
SJOBCTLO
SJOBCTlO
SJOBCTlO
SJOBCTlO
SJOBCTlO
SJOBCTlO
SJOBCTlO
SJOBCTlO
SJOBCTlO
SJOBCTlO
SJOBCTlO
SJOBCTlO
SJOBCTlO
SJOBCTlO
SJOBCTlO
SJOBCTlO
SJOBCTlO
SJOBCTlO
SJOBCTlO
SJOBCTlO
SJOBCTlO
SJOBCTlO

LABEL L1Sl

Location

Appendix A: Lacel List

NNG4
FFF5
EHEl
EHJ2
EHCl
EHB3
EHBl
FFJ3
JABI
JJB4
JGAl
JEFI
JEC3
JPAI
JAJ2
JF03
JNC4
JFF2
JOFl
JOD2
JOE2
JAF2
JAB3
JAC3
JA03
JAB5
JKB4
JKE3
JKH5
JKC4
JMCl
JECl
JMGl
JMC3
JNB3
JHF3
JHH3
JNOl
JPHl
JAG3
JQAl
JPH2
JPKl
JPA2
JGC3
JGB2
JHB'3
JPC3
JREl
JOB4
JOGI
JEAI
JQA2
JOJ2
JQF5
JKCl
JK02
JKB3
JGJ2
JRBI
JMEl
265

Label

Phase

ASSTEMP
ATNCUU
ATNCUUI
AUTONK

SJOBCTLD
SJOBCTlA
SJOBCTlA
SJOBCTLE

JNBI
GVBI
GVFI
lDF3

BACK
BBGSSXXX
BCHEST
BEGIN
BEGIPl
BEGXCUU
BFSMALl
BIlDIB
BINtON
BlDHDROO
BlDHDR05
BLDHDRIO
BlDHDR20
BLDIPlOO
BlDIPlO5
BlDI PLIO
BlDIP1l5
BLDIPL20
BlD I PL25
BlDOBROO
BLDOBR05
BLOOBRIO
BlDOBRl5
BlDOBR20
BlDOBR50
BLDPUB
BlDP2TOO
BLDP2T05
BLDP2TlO
BlDP2Tl2
BlDP 2120
BlDP2T25
BlDP2T30
SlDP2T40
BlNlD
BMPXINT
BMPXlP
BMPXMCR
BMPXNST
BMPXNXT
8MPXPT
BMPXRTN
BMPXSCN
BMPXSWI
BMPXSW2
BHPXTST
BMPXUNS
BMPXZER
BSTOFF
BSTOK
BTlOOP
BTlOOP
BTOFRT
BTONRT
BUIlDCOH
BYPA S5

SJOBCTlN
SJOBCTlD
SIPLRT3
SIPlRT2
SSASIPl2
SJOBCTlD
SJOBCTlM
SJOBCTlB
SJOBCTlJ
SJOBCTlM
SJOBCTlM
SJOBCTlM
SJOBCTlM
SJOBCTlM
SJOBCTlM
SJOBCTlM
SJOBCTlM
SJOBCTlM
SJOBCTlM
SJOBCTlM
SJOBCTlM
SJOBCTlM
SJOBCTlM
SJOBCTlM
SJOBCTlM
$lPlRT3
$1PlRT4
$IPlRT4
SIPlRT4
SIPlRT4
SIPlRT4
SIPlRT4
SI PlRT4
SIPlRT4
SJOBCTlF
SIPlRT4
SIPlRT4
SIPlRT4
SIPlRT4
SIPlRT4
$IPlRT4
SIPlRT4
$IPlRT4
SIPlRT4
$I PLRT4
$IPlRT4
$IPLRT4
$IPlRT4
SI PLRT3
$IPLRT3
SJOBCTLA
SJOBCTLG
SJOBCTlJ
SJOBCTLJ
SSASIPL2
SJOBCTLJ

SBC3
JAEI
DEDI
CABI
BACI
JlC2
RKF2
HFAI
PUB5
RHB4
RHC4
RHD4
RHF5
RJBl
RJDI
RJGI
RJF2
RJH3
RJJ2
REAl
REF5
REF2
REF3
REH2
RES2
DEBl
EKBl
EKHI
EKB3
EKC3
EKD3
EKE3
EKH3
EKK2
MOD5
EREl
ERG3
ESE2
ERC3
ERGl
ERA5
ERBl
ERD3
ERJ3
ERE5
ESD2
ESB3
ERFl
DFHl
DFJl
GCA5
NGB3
PKF4
PKF3
BBK3
POH5

CALL
CALLSEOJ
CAll NORM
CANCEL

SJOBCTtE
SJOBCTLN
SJOBCTtE
SJOBCTLG

LPAl
SAF2
lPA2
NFS5

266

Location

DOS/VS IP1 and Jot Control

Label

Phase

CATAl
CArAl
CATCODE
CATNAME
CCWI
CCW2
tew3
CCW4
CCW5
CDSCH
CHAIN
CHCKDOC
CHClOP
CHCNT
CHECKCU
CHECKSZ
CHECKSI
CHECKXNT
CHEK3340
CHEXT
CHFIN
CHGSTT
CHKASG
CHKASG3
CHKCNl
CHKCNT
CHKCOM
CHKCSW
CHKCSW I
CHKCSW2
CHKDIB
CHKJ IB
CHKlP
CHKLST
CHKNXC
CHKNXC
CHKOPN
CHKOPNI
CHKOPN2
CHKOV
CHKOVR
CHKPGU
CHKPUB
CHKPUN
CHKRAS
CHKRNG
CHKRNG
CHKRNGl
CHSlOP
CHSWFCl
CH5WI5T
CHSWLP
CHSWNXT
CHSWOFF
CHSWRTN
CHULOP
CHUPD
CHURTN
CILPCIl
CINIT
CKClAS
CLBlUB
ClCKCHK
CLDlPl
CLDLP2
CLDRTN

SJOBCTlG
SJOBCTlJ
SIPlRT5
SJOBCTl.E
SSA$IPli
$$UIPll
$SoU IPll
UASIPli
SSASIPll
SIPlRT2
SJOBCTlA
SIPlRT4
SIPlRT3
SIPLRT3
SIPlRT5
SJOBCTlE
SJOBCTlE
SIPlRT5
SIPlRT3
S!PlRT3
SIPlRT3
SJOBCTLJ
SJOBCTLA
SJOBCTLA
SJOBCTlA
SJOBCTlA
$IPlRT4
$$,uIPl2
$SAS IPl2
$SAS JPl2
SJOSCTlD
SJOBCTLA
SIPlRT3
SJOBCTlA
SJOBCTlD
SJOBCTlK
SJOBCTlD
SJOBCTlD
SJOBCTLD
SJOBCTlE
SJOBCTlA
SJOBCTlJ
SJOBCTlF
SJOBCTlK
StPlRT4
SJOBCTlD
SJOBCTlK
SJOBCTlK
SIPlRT3
SIPLRT4
SIPLRT4
SIPlRT4
SIPLRT4
$1PlRT4
SIPlRT4
S IPLRT3
SIPLRT3
S IPlRT3
SJOBCTLE
SJOSCTLE
$JOBCTlF
$JOBCTlF
SIPLRT4
$IPLRT4
$IPLRT4
$IPLRT4

Location

NJBI
PNBI
FAE3
lFE5
AAC3
AAD3
ME3
AAF3
AAG3
CCE5
GJE2
ENOl
DECI
DEEI
FFB2
lEE2
lEGI
FCD2
DFB3
DGD4
DEJ2
PUG4
GUB3
GUD3
GWB2
GJB4
EBK3
BDF2
BDK2
BOB4
JFB2
GFD5
DGDI
GFA3
KAC4
QRD3
KJB3
KJC3
KJB4
lRBI
GTA3
PTC4
MPB2
OHM
ECC4
KAB4
QRC3
QRB3
DGJ5
ETG3
ETC3
ETA3
ETD2
ETJ4
ETSI
OGE4
DGH4
DGB4
lHB3
LPC3
MPJI
MPJ3
EAFl
EEE4
EEJ4
EEB4

\,

q

Label

Phase

CLEAR
CLEAR

SSA$lPL2
SIPlRT2
SJOBCTLB
SIPLRT2
$I PLRT2
$IPLRT2
SJOBCTLD
SJOBCTLD
SJOBCTLO
SJOBCTlD
SJOBCTlD
SJOBCTlD
SJOBCTlO
SJOBCTLO
SJOBCTLD
SJOBCTLD
SJOBCTLD
SJOBCTLO
SJOBCTlD
SJOBCTLF
SJOBCTLK
SJOBCTlN
SJOBCTLD
SJOBCTLA
SJOBCTlA
SJOBCTtD
SJOBCTtG
SJOBCTlJ
SJOBCTLJ
SJOBCTlF
SJOBCTlE
SJOBCTtE
SJOBCTlE
SJOBCTLM
SJOBCTlM
SJOBCTLM
SJOBCTLM
SIPlRT4
SIPlRT4
SIPlRT4
SIPlRT4
SIPlRT4
SJOBCTlE
SIPlRT4
SJOBCTLK
SJOBCTLD
SSASIPL2
SJOBCTLN
SJOBCTLA
SJOBCTLA
SJOBCTLA
SJOBCTLA
SJOBCTLA
SJOBCTlJ
SJOBCTLJ
SI PlRT4
SI PlRT4
$IPLRT4
SJOBCTLG
SJOBCTlG
SJOBCTLE
SJOBCTLA
SIPLRT4
SIPLRT4
SJOBCTLG
SJOBCTLG

CLEAI~

CLEARFIN
CLNOTOP
CLNOTSET
CLOSE
CLOSED
CLOSEl
ClOSEP
CLOSEl
ClOSE2
CLOSE3
CLOSE7
CLROIB
CLROIBl
CLRDIB2
CLRDIB3
CLROIB5
CLRDN
CLRI
CLRI
CLSDU
CNCLMD
CNCLMODI
CNIOAG
CNKlNK
CNUNCO
CNUNCOI
CNVBCO
CNVRT
CNVRTL
CNVRTS
COOEOO
CODEC5
CODElO
CODEl5
COMCHK
COMDOK
COMLOG
COMLOP
COMNFD
COMPAR
COMPDAY
CONCAT
CONDSCK
CONTIN
CONTINUE
CONTROL
CONn
CONT4
CONT5
CONT6
CONVERT
COPYLP
CPBFEND
CPYSlB
CPYSRT
CRJBSQ
CRTTSTl
tSET
CTRlSW
CYCLE
CYlDP ...
C48
C60

Location

BADI
CAK4
HFBl
CAA5
CBC2
CBA4
JSBI
JSA4
KDEl
KDB2
KCB4
JSK2
JSC5
JSG2
KOBI
KDB4
KDC4
KDA5
KDJ5
MPB3
QB05
SB05
KDG2
GHC4
GWF4
KMD2
NMB2
PTB4
PTD5
MQB5
lTB2
LTD2
lTG2
RPBl
RPCl
RPDl
RPEl
EEB2
EBD3
ECK5
EEC2
EBA4
lGF2
EFE2
QMB4
JPC4
BAF2
SBEI
GtBl
GCHI
GCG2
GCH2
GCA4
PSB3
PDF3
EEH3
EGB3
EGB4
NAA5
NtF5
LPJ3
GfJ3
EAHI
ECDl
NHG3
NHG4

Label

Phase

DATE
OAT IMERT
DBLSCN
DCUXTN
DDlUB
OEC IDE
DECK
DECLP
DECRl
DECRR
DECRTN
DELETION
DELLOP
DELRTN
DEQUE
DETACH
OET ACHR
OETACHl
DETACH2A
DETACH3
DEVOPER
DEVSCAN
OIBRC
DlAB
DLBL
DLBll
DlBOUT
DNEERR
DOCINIT
DOCRTN
DOFFSET
DOP34
DOWN
DPDCODE
DQXTNT
DSDPl
DSDP2
DSDP3
DSDP4
DSDRET
DSDRTN
DSKDEV
DSK IND
DSK IN IT
DSKINT
DUDFB
DUDFT
DUlO
DUMP
DVCDN
DVtONt
DVCDNS
DVCDNX
DVCONOO
DVCDNIO
DVCDNl4
DVCDNl4A
DVCON14B
DVCDNl5
DVCDN25
DVCDN3
DVCDN30
DVCDN5
DVCON6
DVCON7
DVCON8

SJOBCTLJ
SIPLRT4
SIPLRT3
SJOBCTlA
SIPLRT2
UBCARTR
SJOBCTlG
SIPlRT2
stPlRT2
S1PlRT2
SIPLRT2
SIPlRT5
SIPLRT3
SIPLRT3
SJOBCTLB
SJOBCTLF
SJOBCTLF
SJDBCTLF
SJOBCTlF
SJOBCTLF
UBCARTR
SJOBCTLD
SJOBCTlJ
SJOBCTLK
SJOBCTLK
SJOBCTLK
SJOBCTLK
SJOBCTlJ
SIPLRT4
SIPLRT2
SJOBCTLA
SJOBCTLK
SJOBCTlF
SIPLRT5
SJOBCTLG
SIPlRT4
SIPlRT4
SIPlRT4
SIPLRT4
SIPlRT4
SIPLRT4
SJOBCTLE
SJOBCTlA
SJOBCTlE
SJOBCTLA
SJOBCTlA
SJOBCTlA
SJOBCTlA
SJOBCTlG
SJOBCTLF
SJOBCTlF
SJDBCTlF
SJOBCTLF
SIPLRT4
SIPlRT4
SJOBCTLF
SJOBCTLF
SJOBCTLF
$IPLRT4
$IPlRT4
SJOBCTLF
SIPLRT4
SJOBCTlF
SJOBCTLF
SJOBCTLF
SJOBCTlF
A~~endix

Location

A: latel List

PHB2
EFBl
DAA~

GFF5
CGE2
FGB3
NHBl
CGC5
CFD2
CFE4
CGB5
FCC3
DCA3
DCAI
HFA5
MMBl
MMB4
MMFI
MME2
MMF3
FGD3
JJBl
PHHI
QFBI
QEBI
QEDl
QFA5
PVC3
ENJ2
CBF5
GRE2
QMBl
MEB3
FAG3
NN05
EDC4
EDE4
EDH4
EDJ4
EOE5
EDB4
lTB5
GRH2
LTB4
GFBI
GQB4
GRF4
GSCl
NKJ3
MHBI
MJFl
MJBl
MJF5
ELBl
ElGl
MHC2
MHG2
MHH2
ELF2
ElG2
MHB5
ElJ2
MHB4
MJJI
MJF4
MJH2
267

Label

Phase

DVCUP

SJOBCTLF

MlB2

ECFINCR
ECFlOOP
ECFlOOPl
EDECK
EJBK SWCH
ENDFORM
END INC
ENDIRRD
ENOL 1M
ENOlOOP
ENOMONTH
ENDOPSCN
ENDSCAN
ENFND
ENTR YOK
EODADDR
EOF
EOFPRC
EOJ
EOJ
EOJBY
EOJNRF
EOJPIB
EOJPIBI
EOJI
EREXIT
ERRAP
ERRAPI
ERRENO
ERROFF
ERROR
ERRORO
ERRORI
ERROR2
ERRRTN
ERRRTN
ERRRTNI
ERRRTNI
ERRRTN2
ERRRTN2
ERRRTN2
ERRS
ERR TN
ERROIOOA
ERROIOIA
ERROI02A
ER1l2I
ESTVOPEN
EXBKSWCH
EXCCON
EXCECP
EXCEDT
EXCP
EXCP
EXCPGO
EXCPRG
EXCPROG
EXCPROGI
EXCPROG2
EXCPROG3
EXCPROG4
EXCPSVC
EXEC
EXEC

UASIPl2
UAn PL2
$SASI Pl2
$JOBCTLG
$JOBCTLN
$IPlRT5
SJOBCTLJ
SJOBCTlE
SJOBCTlJ
SIPlRT4
SIPlRT4
SJOBCTlD
SJOBCTlD
$1 PlRT3
SJOBCTlE
SJOBCnD
SIPlRT4
SJOBCTlA
SJOBCTlG
SJOBCTLN
SJOBCTLG
SJOBCTlG
SJOBCTlG
SJOBCTlG
SJOBCTLG
SJOBCTLJ
SJOBCTLA
SJOBCTLA
SJOBCTLE
SJOBCTLA
SJOBCTLE
UA$lPl2
SJOBCTlE
SJOBCTlE
SJOBCTlA
SJOBCTlD
SJOBCTLD
SJOBCTLF
SJOBCTLA
SJOBCTlD
$JOBCTLF
SJOBCTlG
SJOBCTlF
$SA $1 PL2
$$A$IPL2
UASIPL2
SIPlRT4
SJOBCTlJ
SJOBCTlN
SJOBCTlA
SJOBCTlA
SJOBCTlE
SJOBCTlD
$JOBCTlE
SJOBCTlA
SJOBCTlA
SJOBCTlD
SJOBCTlD
SJOBCTLD
SJOBCTLO
SJOBCTLO
SJOBCTLA
SJOBCTLE
$JOBCTlN

BOJ5
BOG4
BOG5
NHJ4
SBG2
FDE3
POH4
lGB3
PQG5
EAC4
EFG2
JOBI
JJJ5
DEKI
lHF3
KDF2
EMA5
GTD2
NDCl
SAB3
NCA4
NDBI
NDB2
NEB3
NCG4
PFE3
GWG3
GWC4
lQJ4
GSC5
lOO4
BDH3
lQC4
lQE4
GW02
KMC5
KMK5
MNK5
GWF2
KMJ5
MNJ5
NHGI
MNC5
BAG5
BBB5
BAE5
EOK5
PFB5
SBGI
GTB2
GRF3
lCBI
KLBI
lFCI
GTA2
GOBI
KlB4
KLB5
KlO4
KLE5
KlF4
GT03
LABI
SABI

268

Location

DOS/VS IP!. and Job control

Label

Phase

EXECBACK
EXIT
EXIT
EXIT
EXPEXT
EXPIRED
EXT INTI
EXTINT3
EXTNT
EXTRlC
EXTRTN
EXOOO
EXOO5
EXOIO
EX1l5
EX120
EXl50
EXl60
EXI70

SJOBCTlN
SJOBCTlA
SJOBCTlD
SSBLSTIO
SJOBCTlA
SIPlIH5
$$A$IPl2
UUIPL2
SJOBCTlK
SJOBCTlA
SJOBCTLA
SJOBCTlE
SJOBCTlE
SJOBCTlE
SJOBCTlE
SJOBCTLE
SJOBCTlE
SJOBCTlE
SJOBCTlE

SBHl
GEB3
JRHI
TBH5
GTE3
FCF2
BAJ3
BBB4
QJBl
GXB3
GXC4
lAD2
lAFl
lAGl
lAH2
LAB3
lAB5
lAD5
lBFl

FCHMAINT
FDDKCODE
FDKIJ
FDK IJl
FDK IJ2
FDKTDAT
FDKTDAT I
FDKTOAT 2
FDKTID
FDKTID2
FDKTV
FDKTVNM
FOKTVI
FOKTV2
FDKI
FDK2
FOSRTN
FDSYSU
FEBIN
FEB IN I
FEED
FESEQ
FF.S EQCK
FESPlIT
FESPl IT2
FESPl IT3
FESYSX2
FESYSX3
FETCHM
FETCHN
FETCHRF
FET INSRO
FETINSRT
FET INSR I
FET INSR3
FET INSR4
FETINSR5
FETK
FETKNO
FETKNOI
FETKTK
FETKTKI
FETKTK2
FETYPE
FETYPED
FETYPEI

SJOBCTlE
SJOBCTlK
SJOBCTLK
SJOBCTlK
SJOBCTlK
SJOBCTlK
SJOBCTlK
SJOBCTlK
SJOBCTlK
SJOBCTlK
SJOBCTlK
SJOBCTlK
SJOBCTlK
SJOBCTlK
SJOBCTlK
SJOBCTlK
$IPlRT2
SJOBCTlJ
SJOBCTLK
SJOBCTlK
SJOBCTlA
SJOBCTlK
SJOBCTlK
SJOBCTlK
SJOBCTLK
SJOBCTLK
SJOBCTlK
SJOBCTlK
SJOBCTlG
SJOBCTlG
SJOBCTlA
SJOBCTlK
$JOBCTlK
SJOBCTLK
SJOBCTlK
SJOBCTlK
SJOBCTlK
SJOBCTlK
SJOBCTlK
SJOBCTLK
SJOBCTlK
SJOBCTLK
SJOBCTlK
SJOBCTlK
SJOBCTLK
SJOBCTLK

LJBl
QFK3
OEB2
QEH2
QEJ2
QOH3
QDJ5
QDG4
OOBI
OOH2
OCBI
OCC3
QCHI
QCB2
OEF4
QEH4
CGB4
PTD4
OBK4
QBE4
GSE2
QlB2
QKGI
QKB4
QKE5
QKJ5
QJHI
QJC2
NCJ5
NCE4
GEB4
QCE4
QCB4
QCF4
OCH4
OCJ4
QCK4
QKF2
QK03
QKH3
OlB3
OlO4
QlF4
QJD3
QJD5
QKBI

Location

~

,(

I'
'~

/~

~

Label

Phase

FETYPEI4
FETYPEI
FEVSER
FEVSERI
FEVSER2
FICN IC
FIDERR
FILEOVLP
FIND
FINOPRC
FINOVICE
FIND2
FINISH
FINI SH
FINOPN
FJB3
FND
FNOARG
FNDARGI
FNOARG5
FNDTYP
FNIOAG
FORMR
FOUND
FPRTN
FREEJIB
FSCAN
FSCANI
FTCHJI8
FTENDI

SJOBCTLK
SJOBClLK
SJOBClLK
SJOBCTLK
SJOBClLK
SJOBCTLA
SJOBCTLH
SIPLRT5
SJOBCTLE
SJOBCTLE
SJOBCTLB
SJOBCTLB
SJOBCTLE
SJOBCTLN
SJOBClLA
SJOBCTLE
SJOBCTLE
SSBlSTIO
SSB lSTI 0
SS8lSTIO
SIPlRT3
SJOBCllO
SIPlRT5
SJOBCllE
SIPlRT4
SJOBCTL8
SJOBCTlK
SJOBCTLK
SJOBCTLE
SJOBCTLK

OKJl
QJH4
QJ02
OJE2
QJF2
GAF1
RAG4
FCE2
LPJ2
LRB2
HEB2
HED1
LKH2
SBH5
GRK2
LSB2
LRE3
TBB1
TB84
TBB3
DFBI
KM03
FEBI
LREIt
EJ8l
HFE3
OBB4
OBC4
lSBl
QBD3

GETADD
GETASG
GETCAT
GETDAT
GETDEL
GETDEll
GETOPD
GETIME
GETIMEl
GETlME2
GET J 18
GETJIBSW
GET J 181
GETJIBZ
GETKEY
GETLAN
GETNEXT
GETNICL
GETPBOWN
GETPUB
GETPUB
GETRSP
GETSET
GETVOL
GET3
GETit
GNXPUB
GO
GTNAMEl
GTNXOP
GTNXOPR
GTNXOPRI
GTNXOPl

SIPlRT2
SJOBCTLJ
SI PLRT2
SJOBCTLG
SI PlftT2
SlPLRT2
SIPLRTZ
SJOBCTLG
SJOBCTLG
SJOBCTLG
SJOBCTLD
SJOBCTLD
SJOBCTLO
SJOBCTLD
SJOBClLJ
SJOBClLD
SJOBCTLD
SIPLRTIt
SJOBCTlD
SJOBCTLO
SJOBCTlG
SIPlRT5
SIPLRTZ
SJOBCTLA
SIPLRTZ
SIPlRT2
StPLRT3
SJOBCTLN
SJOBClLE
SJ08CTLJ
SJOBCllJ
SJ08ClLJ
SJOBCllJ

COAl
PEA3
CDB4
NLHI
COAl
CD81
CDC4
NLBI
NLB2
NLB3
KEB4
KEK4
KEH4
KED5
PQJl
KAB3
JJCl
EHF2
KHB4
KNC3
NPB2
FCK2
CEAI
GS82
CDF3
CDJ2
DCG4
SACI
LFE2
POGl
PRFl
PRGI
POHI

HANDLINP

SJ08CTLE

LFJl

Location

Label

Phase

HAROMC
HCEND
HCIORlO
HCIOR20
HCIOR30
HCOPNMSG
HCSET
HEADER
HEADNO
HEX CON
HEX CON
HEXRTN
HOLD
HOLDI
HOLD2

$SUIPL2
SJOSClLJ
SJOSCllM
SJOBClLM
SJOBCTLM
SJOBCTLM
SJOSClLJ
SJOBClLB
SJOBClLA
SJOBCTLO
SJOBCllJ
SIPLRT3
SJOBClLJ
$JOBClLJ
SJOBCllJ

BAD2
PJC5
ROB3
ROC3
ROB5
RSSIt
PJE5
HCE2
GRH3
KCB3
PTB2
OGC1
PAB3
PAF3
PAB4

IGNORE
IJBJOBRS
ILLCO
ILUS
ILUS
INAERR
INCLUDE
INCLUDE
INClO5
INCL10
INCLl5
INCllO
INCL25
INCL30
INCREMEN
INDIB
INDIGN
INDSEQ
INDUA
INDVTP
INIT
INIT ID
INITL
INITL
INITLNK
INITLNK I
INITOO
INITI5
INSW
INVASGN
INVRESPM
IOCALl
IOCOMPL
10HALT
10HLD
IOHL2
10tNTl
IOINTlA
tOINT3
IOPOSTE
10PDSTPR
IOPOST4
IOROUT
IOROUTW
IORTN
IOSTOP
IPLN03
IPTDATA
ISSGETIM
ISSUtO

SJOBCllA
SJOBCllB
SIPLRTl
SJOBClLO
SJOBCTlF
SJOBCllJ
SJOBCllA
SJOBCllJ
SJOBCTlA
SJOBCTLA
SJ08CTlA
SJOBCllA
SJOBCTLA
SJOBCllA
SIPLRT5
SJOBCTLA
SJOBClLD
SJOBCTLK
SJOBCTLO
SJOBCTLD
SJOBCTLE
SJOBCTLM
SJOBCTLD
SJOBCTLF
SJOBCTLE
SJOBCTLE
SJOBCTLM
SJOBClLM
SJOBClLO
SJOBCTlO
SlPLRT5
SJOBCTLB
SJOBCTLA
SIPLRT2
SIPLRT2
SlPLRT2
SSASIPL2
SSASlPL2
$$ASIPL2
SJOBCTLM
SJOBCTLM
SJ08ClLM
SJ08CTLG
SJOBCTLG
$$A$IPL2
$lPLRT2
SIPLRT5
SJOBCllE
$lPLRT4
SJ08ClLA

GCH3
HABI
CHCI
KMBI
MNEIt
PVFI
GLBI
PD83
GLEl
GLJ2
GLA3
GLB3
GLC3
GLD3
FCEI
GR04
JBD2
QGG3
JBDI
KMB2
LA Bit
RFBIt
KABI
MOB3
LL84
LLCIt
RFBl
RFDIt
JOC5
JPHIt
FCAit
HGC3
GTE4
CHEft
CHB3
CHC3
BA03
BAF3
BBD3
RRH3
RRB3
RRB4
NNB3
NNC3
B081
CHEl
FOG3
LR85
EAJIt
GTF2

Appendix A: Lacel List

269

Location

Label

Phase

ISTYP4
IVOS
IVOS
IVSERR

SJOBCTLK
SJOBCTLO
SJOBCTLF
SJOBCTLJ

QGG4
KMB4
MNA4
PVB5

JBINPR
JFBI
J IBPTR
JO
JOB
JOBCTL
JOBCTL4
JOBCTL5

SJOBCTLG
SJOBCTLE
SJOBCTLG
SJOBCTlM
SJOBCTlG
SJOBCTLA
SJOBCTlA
SJOBCTLA

NOA5
lSEl
NNF5
RAJ]
NABl
GAB I
GBGI
GBF2

KEY
KEYCHK
KEYCHKI
KEYCHK2
KEYCHK2B

UBLSTIO
SI PLRH
SIPLRH
SIPLRH
SIPlRT3

TBG3
OBC2
OBA2
OAF4
OAJ4

LASTPUB
LAXERR
LAXERR
LBLOUT
LBLOUT
LBLOUTF
LBLOUTOB
LBLOUTOA
LBlOUTOB
lBlOUTOC
lBlOUTl
lBlOUT20
lBLOUT20
lBlPED
lBL TYP
lBTOUT
LHRTN
LIMITR
lIMITS
LIM ITS I
LINK
LINKINT
L IOCUU
L IOEOJ
llOEOJI
LIOL
llOLl201
L IOLl3
lIOLI
LIOL2
L IOL202
LlOll.
LIDSYX
LIST
LISTX
LISTIO
LLNOUPOT
LMESS
LMODOG
LMOD02
lMOOO1
lNAERR
lNKOUT
lOADRS
LOADRSI
lOAD3NOW

SSBCARTR
SJOBCTlG
SJOBCTLK
SJOBCTlG
SJOBCTlK
SJOBCTlK
SJOBCTlG
SJOBCTlG
SJOBCTLK
SJOBCTlG
SJOBCTlK
SJOBCTlG
SJOBCTLK
SIPlRT2
SJOBCTlK
SJDBCTlK
UBlSTIO
SJOBCTlJ
SJOBCTLJ
SJOBCTLJ
SJOBCTlG
SJOBCTLA
SJOBCTlF
SJOBCTlF
SJOBCTlF
SJOBCTlF
SJOBCTlF
SJOBCTLF
SJOBCTLF
SJOBCTlF
SJOBCTlF
SJOBCTLF
SJOBCTlF
SJOBCTLG
SJOBCTlG
SJOBCTlF
SIPlRT5
SJOBCTlD
$IPLRT4
SI PLRT4
SIPlRT4
SJOBCTlG
SJOBCTlJ
SJOBCTlK
SJOBCTlK
SIPLRT2

FGFI
NRE3
QSC3
NQBI
QNGI
QNBI
NQ03
NQHl
QN03
Noel
QPB3
NR02
QPC4
CGJl
QABI
QAG2
TOB3
PRE3
PQC4
PQG4
NJB2
GQ04
MOAI
MAM
MAB4
MBBI
MBOI
MBE3
MBA3
MBM
MBEl
MBF]
MDB3
NHB3
NHB5
MABI
FFB3
KNFl
EQDI
EQE2
EQ03
NME3
PUC3
QQB4
QQF4
COEl

270

Location

DOS/VS IPL and Job Control

Label

Phase

LODE
LOG
LOGCHK
LOGIN
LOGINI
LOGIPL
LOGOUT
LOGPRT
LOGREO
LOGREQLO
LOGREQOO
LOGSTR
LOGUSE
LONGJ IB
LOOKOOC
LOOKLOOP
LOOKSDl
LOOP
LPOOPT
LSTBYTAO
LSTOUT
LUBCOUNT
LUBHLP
LUBLPL
LUBSCN
lUORTN
LUURTN

SJOBCTLB
SJOBCTlJ
SJOBCTLA
SJOBCTLA
SJOBCTlA
SIPLRT2
SJOBtTLA
SJOBCTLA
StPLRT2
SJOBCTlM
SJOBCTLM
$lPLRT2
SIPLRT5
SJOBCTLB
$IPLRT't
$IPLRT4
SJOBtTlE
SJOBCTLG
SJOBCTLJ
SJOBCTLE
SJOBCTLA
SJOBCTlG
SIPLRT4
SIPlRT2
SJOBCTlG
S IPLRT2
SIPLRT2

HEJ5
PLB3
GLB4
GMC2
GMF2
CBF2
GJCl
GLH4
CCE3
RKC5
RKB4
tCB]
FAF2
HEF2
ENEl
ECO]
LGBl
NKA2
PDE5
LFH4
GJB3
NMOI
ECBI
tGOI
NPBl
CGB2
CGBI

MAINOO
MAINOIO
MAINOll
MAINOl2
MAINOn
MAIN05
MAINOS
MAIN09
MAINIO
MAINl5
MAP
MAPCHNOO
MAPCHNIO
MAPCHNl5
MAPCHN20
MAPCHN25
MAPCHN30
MAPCH05
MtRETURN
MOMTSUP
MDROO
MORIO
MDR35
MDR40
MERGE
MERGER
MERGES
MERGESVA
MlUUR
MMDDI
MODEOK
MODERTN
MODEXD
MODLOP
MODMOVE
MONITOR
MOREPART
MORXT

SJOBCTLM
SJOBCTlM
SJOBCTlM
SJOBCTlM
SJOBCTLM
SJOBCTlM
SJOBCTlM
SJOBCTLM
SJOBCTlM
SJOBCTlM
SJOBCTlF
SJOBCTLM
SJOBCTlM
SJOBCTLM
SJOBCTlM
SJOBCTLM
SJOBCTlM
SJOBCTLM
SIPLRT2
SJOBCTlF
SJOSCTLM
SJOBCTLM
SJOBCTLM
SJDBCTl"
SJOBCTlJ
SJOBCTlJ
SJOBCTlJ
SJOBCTlJ
SIPLRT2
SJOBCTlJ
$IPLRT2
SIPLRT4
SIPLRT'3
$ IPLRT'3
S IPLRT'3
SIPlRT2
SIPLRT4
SJOBCTlB

RABI
RAOI
RAF2
RBAI
RBB3
RA05
RBF4
PBA4
RBH4
RKB2
MKBI
RGBI
RGGI
RGA2
RG02
RGG2
RGF3
RGEl
CAC5
MKH4
ROAI
ROB3
RLC3
RDF3
PQG3
PRF3
PQJ'3
PQF3
CGel
PGJ'3
CAG4
EQB2
DFK5

Location

0001

DOE2
eCBl
EMHI
HEH4

Label

Phase

MOVERCM
MPXCHK
MPXGO
MPXLOP
MPXMOV
MPXRTN
MSGMICR
MSGOUT
MSGRTN
MTC
MTCMlCS
MTCTEST
MTCTESTl
MTC2
MTC3
MTC4
MTNCNT
MlSUB
MVOU
MVQUO
MYJOBOTE

SIPLRT5
$I PlRT4
SIPLRT4
SIPlRT4
SIPLRT4
SIPlRT4
SI PLRT4
SJOBCTlA
SIPlRT2
SJOBCTLJ
SJOBCTlJ
SJOBCTLJ
SJOBCTLJ
SJOBCTlJ
SJOBCTlJ
SJOBCTlJ
SJOBCTLA
SJOBCTlF
SJOBCTlA
SJOBCTlG
SIPLRl4

FBE5
EJF4
EJG4
EJC2
EJE3
EJB2
ESH2
GJB2
CHB4
PEBl
PEC3
PE04
PFBl
PEG2
PEE3
PEG4
GUBl
MKH3
GRB2
NKC2
EAG4

NOSCAN
NOSCAN
NDSCAN
NOSCANl
NOSERR
NOSERRl
NDTERR
NEWXTN

SJOBCTLA
SJOBCTlG
SJOBCTLK
SJOBCTlK
SJOBCTLJ
SJOBCTlJ
SJOBCTLJ
SJOBCTlK
SSBCARTR
SJOBCTlJ
SIPLRl5
SJOBCTlM
SJOBCTlM
SJOBCTtM
SIPLRT4
SJOBCTlE
SJOBCTlG
SJOBCTLK
SJOBCTtE
SJOBCTlJ
SJOBCTLK
SJOBCTlG
SIPlRT5
SJOBCTlE
SJOBCTlG
SJOBCTlE
SIPlRT2
SJOBCTlK
SJOBCTlG
SJOBCTlA
SJOBCTtO
SJOBCTlG
SJOBCTlG
SJ08CTlG
SJOBCTlA
SJOBCTLG
SJOBCTtJ
SJOBCTLD
SJOBCTtE
SJOBCTlA
SJOBCTlG
SJ08CTLG
SJOBCTlG
SJOBCTLG

GKG·2
NKE4
QOJ2
QOG3
PVF2
PFC4
PVCl
QHF5
FGC2
PNC5
FBF5
RMBl
RMC2
RMEl
EOOl
LoB5
NHOl
QSC2
lEF4
PVC2
QSC4
NHJ3
FAOt
lBB3
NEAl
LlJ2
CAE3
QH04
NHB2
GfE3
JJG2
NKJ2
NEH3
NHJ5
GVE3
NHGl
PFD2
KD05
LEE3
GCCI
HEC2
NEB2
NEA4
NEA2

!\I EXT

NEXT
NEXTlBl
NEXTPOO
NEXTP05
NEXTPIO
NEXTSYS
NK
NLISTX
NLSERR
NLST
NlUERR
NLUERR
NOALIGN
NOASGNO
NOCAT
NOCATl
NOCLB
NOOASO
NOOCUX
NOOECK
NOOSYS
NODUMMY
NOOUMP
NOOURl
NOEOECK
NOEERT
NOERRS
NOESTY
NOEXC
NOFP
NOINCL
NOIPT
NOIPTA ..
NOIPTl
NOIPT2

Location

Label

Phase

NOIPT3
NOIPT7
NOLABMSG
NOLEAP
NOLINK
NOL 1ST
NOLNKOIR
NOLOG
NOLOG
NOlOGAV
NOMOVE
NOMPSTP
NOMRJB
NOMSG
NOMTEB
NONEWSUP
NONSTND
NOPAGE
NOPAUSE
NOPSE
NOREL
NOREL
NORElSW
NORELSW
NORESET
NORESTOR
NOSET
NOSLO
NOSOAO
NOSOOLl
NOSOOl2
NOSYM
NOTAP
NOT CRT
NOTDRY
NOTOSK
NOTEBS
NOT ERR
NOTFG
NOTFGl
NOT FOR4
NOT FOR5
NOTIMER
NOTINSVA
NOTLAST
NOTLIST
NOT NOS
NOTPMK
NOTSEQ
NOTSTANO
NOTVIRT
NOTlERO
NOTOl
NOT3330
NOT4AN03
NOT4NOW
NOUAIGN
NOYOLCUO
NOXREF
N02314
N03211
NPWR
NRFVOLl
NTINJB
NULCHK
NUMCON

SJOBCTLG
SJOBCTLG
SIPLRT4
SJOBCTlJ
SJOBCTLG
SJOBCTlG
SJOBCTLE
SIPlRTIt
SJOBCTLJ
SIPLRT5
SJOBCTlG
SSA$lPL2
SJOBCTlO
UASIPL2
$IPLRT4
SJOBCTLE
SJOBCTLB
SIPlRl2
SJOBCTLA
SJOBCTlG
SJOBCTLo
SJoBCTLF
SJOBCTlo
SJOBCTlF
SJOBCTLJ
SJOBCTlG
SJOBCTlE
SJOBCTLO
SIPLRT3
SIPlRT3
SIPLRT3
SJOBCTLG
SSBLSTIO
SIPlRT2
SJOBCTLO
SJOBCTLA
UA$lPL2
SJOBCTLG
SJOBCTLN
SJOBCTlN
SIPLRT2
SIPLRT2
SJOBCTlF
SJOBCTtE
SJOBCTLN
SJOBCTlG
SJOBCTlG
SJOBCTlB
SJOBCTLK
SJOBCTLB
SJOBCTlE
SJOBCTlB
SJOBCTlA
SIPlRT4
SIPlRT2
SIPLRT2
SJOBCTlO
SIPLRT5
SJOBCTLG
SJOBCTlA
SIPLRT4
SJOBCTLA
$lPlRT5
SJOBCTLA
SJOBCTlJ
SJOBCTlD

A~~endix

Location

A: Latel List

NEA3
NEF2
EMF2
PGG3
NKf2
NHB4
LCH3
EC05
PLB4
FAG2
NE04
BCEl
KMD4
BCHl
ECF2
LJF2
HFGl
CJF3
GBEl
NEH5
KAC2
MOJ3
KADl
MOD3
PFG3
NoGl
LAF3
JPH5
DEH5
OoA4
DDAl
NH03
TAK3
CAKI
JJB5
GTDt
BBH2
NRE4
SAB5
SBE4
CAoZ
CAGZ
MKK3
lFE3
SBH4
NFH4
NGGl
HCOl
QGG2
HFG3
lEBl
HFJ4
GRK4
EoF5
CEE3
CDC3
JOCI
FBF2
NHD5
GAC3
EoK2
GSDl
FBDI
GV02
PBJ3
KAB5
271

Label

Phase

NUMCON
NUMCON
NUMC \IT
N\lAERR
NVOERR
NVSERR
NXT
NXT
NXTB IT
NXT8lK
NXTDRCYl
NXTENTRY
NXTENTRY
NXTFG
NXTJ IB
NXTJIB
NXTlUB
NXTOPRD
NXTSDl
NXTUNIT

SJOBCTLJ
SJOBCTlK
SIPlRT3
SJOBCTLJ
SJOBCTlG
SJOBCTlA
SJOBCTlB
SJOBCTLE
SJOBCTlJ
$SASI PL2
UASIPl2
SSASIPl2
SJOBCTlJ
SJOBCTlJ
SJOBCTlA
SJOBCTlB
SJOBCTlA
SJOBCTLJ
SJOBCTlE
SJOBCTlB

PUB4
QRBI
DBG2
PVF5
NRB4
GWC2
HFK3
lFG2
PKG3
BBAI
BAA4
BAD4
PPF3
PQEl
GFG3
HFJI
GFF3
PNEl
LGFI
HEG3

OERRTN
ONINT
ONOlOG
OPAL T
OPClASS
OPENFIlE
OPHI
OPH2
OPIGN
OPlBNF
OPlBNF
OPlOG
OPMODE
OPNEND
OPNHCFlE
OPNlNK
OPNlOP
OPNRTN
OPNUSN
OPPERM
OPRTN
OPSHR
OPSYS
OPTEMP
OPTION
OPTlOG
OPTNLG
OPUA
OPVOl
OPX
OPXlIST
OTSERR
OTSERR
OTSERR
OTSERR
OTSERRI
OTSERRI
OUTlBl
OUTPUT
OUTPUTS
OUTPUTS
OUTPUll
OUTPUTI
OUTPUT2
OUTPUT2

SJOBCTlA
$I PlRT4
SJOBCTlJ
SJOBCTLD
SJOBCTlD
SJOBCTlM
SJOBCTlD
SJOBCTLD
SJOBCTlD
SJOBCTlG
SJOBCTlK
SJOBCTlJ
SJOBCTlD
SIPlRT4
SJOBCTlM
SJOBCTlG
SI PLRT4
SIPlRT4
SIPlRT4
SJOBCTlD
$I PlRT2
SJOBCTlD
SJOBCTlD
SJOBCTLD
SJOBCTlG
SJOBCTlG
SJOBCTlG
SJOBCTLD
SJOBCTlD
SJOBCTlo
SJOBCTlo
SJOBCTlE
SJOBCTlG
SJOBCTLJ
SJOBCTlK
tJOBCTlE
SJOBCTlJ
SJOBCTlK
SJOBCTlO
SJOBCTLo
SJOBCTlF
SJOBCTLo
SJOBCTLF
SJOBCTLD
SJOBCTLF

GVB3
ECG2
PlC5
JCFl
JBB3
RHBI
JBF3
JBB4
JBB2
NRG2
QPE4
PlC2
JBB5
EDJI
RSB2
NlB5
EDCl
EDBI
EDGI
JCE2
CCB4
JCBl
JCB4
JCB2
NGBI
NKH4
NHG5

272

Location

DOS/VS IPt and Job Control

JBBl

JCB3
JAD4
JBG4
LUC5
NRE5
PVG3
QSCI
lUB5
PVF3
QHF4
KBB2
KBB4
MQCl
KBB5
MQC2
KBD4
MQEl

Label

Phase

OVDERR
OVEND
OVLAPCK
OVRlPI
OWNED

SJOBCTLA
SJOBCTLA
UPLRT5
SJOBCTlA
SJOBCTLD

GPB5
GPB4
FBD5
GTH2
JJF3

PAACHK

SJOBCTlE
SJOBCTlG
SJOBCTLG
SJOBCTLE
SIPlRT2
SJOBCTlG
SJOBCTLJ
SlPlRT4
SIPLRT4
SIPlRT4
$IPLRT4
SJOBCTlJ
SJOBCTLG
SJOBCTlG
SJOBCTlG
SIPLRT5
SJOBCTLG
SJOBCTlG
SJOBCTlM
SJOBCTlM
SJOBCTlF
SIPLRT5
SJOBCTlG
SJOBCTLA
SJOBCTLE
SJOBCTlG
SJOBCTLG
SJOBCTLG
SJOBCTLG
SJOBCTLG
SJOBCTLG
SJOBCTLG
SJOBCTLG
SJOBCTLE
SJOBCTLJ
SIPlRT4
SJOBCTLG
SIPLRT2
SJOBCTlJ
SJOBCTlA
SJOBCTlA
SJOBCTlE
SJOBCTLM
SJOBCTlM
SJOBCTlM
SJOBCTLM
SJOBCTLM
SJOBCTlJ
SJOBCTlE
SJOBCTlE
SJOBCTlO
UA$IPl2
$SUIPL2
UBlSTIO
$SBlSTIO
SJOBCTlA
SJOBCTlA
$IPLRT3
S IPlRT3
SIPlRT3

LOBI
NJB4
NJD4
lSB3
CAJ5
NCA5
PlBl
EEH2
EBF3

PARSTD
PARSTDI
PASSGN
PASSMC
PASSRF
PAUSE
PBFEND
PBFFIN
PBFlOP
PBFfHN
PCHOUT
PCILSUP
PCIlSUPR
PCLOSE
PDSWRITE
PEND
PENDl
PERCNTOO
PERCNT05
PEREXIT
PFORMAT
PFREE
PFTlO
PJB
PLOG
PlOG05
PlOG01
PlOGOe
PNDIO
PND02
PND03
PND05
PNPERR
PNPERR
POINTlUB
POUT
PPBEGOR
PRAlLOC
PRCDIB
PRC IN IT
PRCTEST
PREPOOO
PREPOOI
PREPOIO
PREP020
PREP030
PRGUNT
PRIVATE
PROCDIB
PROTP
PRSYSlOG
PRSYSRoR
PSHRTN
PSHRTNI
PTEST
PTESTC
PUBoEQ
PUBEXD
PUBMKE

Location

EEFl

EEEI
PNB2
NJDI
NJD2
NTC4
FCE4
NSBI
NSEl
RKBl
RKJl
MFG2
FDB4
NTC2
GFJl
lSE3
NUBl
NUCl
NUDl
NUH2
NSB5
NSF!
NSGl
NSG3
lUD2
PVB4
ECK3
NUE3
CAB2
PQDl
GRD2
GGC2
LJH3
RPB3
RPG4
RPB5
ROB2
ROBl
PTC5
LJC4
lTBl
JODI
BBG3
BB04
ToBl
ToFl
GOB2
GDJ2
DDF4
OAC2
OBJ2

Label

Phase

PUBMKI
PUBMSK
PUBM SK
PUIF
PUIF1P
PUIFT3
PUIFI
PUIF2
PUIF3
PUIFIt
PUIF5

SIPlRT3
SJOBCTlD
SJOBCTlF
SSBLSTlO
SSBLSTIO
SSB LSTI 0
SSBLSTlO
SSBLSTIO
SSB LSTI 0
SSBLSTID
SSBLSTIO

DBB5
KFE4
MRE4
TABI
TAA3
TAD4
TAA4
TAF2
TAJ2
TAE4
TAG4

QEND

SJOBCTLG

NKE3

RACOVC
RANXJB
RASCAN
RASSGN
RASUPR
RASWAIT
ROCOHM
RODIREC
ROERR
RDHDROO
ROHOR05
ROOVER
ROOV06
RDOVC2
RDOVC4
ROOVE:8
RDOVIO
RDRIN
RDRIN3
RDRIN5
RDRTST
RDSTHT
RDSYSOIR
ROUSER
ROVOL
ROVOL2
ROWRDESC
READCO
READHDR
READUS
READLAB2
READOV
READRT
READRT2
READRT2A
READRT3
REAORT4
REel
REISSUE
RELJBC
RElLOP
RELOC
REORGLC
REREAD
RESET
RESET
RESETCL
RESETOI
RESETOl5
RESEll
RESETlOl
RESET2

SIPLRT3
SJOSCTLG
SJOBCTLG
SJOBCTLG
SIPLRT2
SIPLRT2
SJOBCTLB
SJOSCTLE
SJOBCTLA
SJOBCTLM
SJOSCTLM
SJOBCTlA
SJOBCTlA
SJOBCTLA
SJOBCTlA
SJOBCTlA
SJOBCTlA
SJOBCTlA
SJOBCTLA
SJOBCTlA
SIPlRT4
SJOBCTLA
SJOBCTlE
SJOBCTLB
SJOBCTLD
SJOBCTLO
SIPLRT4
SIPLRT2
SJOBCTLB
SIPLRT4
SIPLRT4
SJOBCTLA
SIPlRT2
SIPLRT2
SIPLRT2
SIPLRT2
SIPLRT2
SJOBCTLB
SJOBCTLE
SJOBCTLA
SJOBCTLD
$SBCARTR
SIPLRT4
SIPLRT2
SJOBCTLF
SJOBCTlJ
SJOBCTLF
SJOBCTLF
SJOBCTLF
SJOBCTLF
SJOBCTLF
SJOBCTlF

DFD5
NPB5
NPB4
NPF4
CAC4
CAG5
HCH2
LFSI
GSH4
RlBI
RLGl
GNB4
GNFl
GNOI
GNEl
GNB3
GNE2
GMA3
GMD3
GME4
EBJ4
GMBI
lNBI
HAJ5
JJH4
JLE4
ENB5
CAA4
HCFI
ENB3
EMB4
GNBI
CCB2
CCFt
CCE2
CeG2
CCF2
HCAI
LJGI
GXBI
KAGI
FGBI
EMBl
CCF3
MFBI
PFF3
MPJ2
MFD2
MFE2
MFC2
MGCI
MGEl

Location

Label

Phase

RESET3
RESET5
RESET6
RESET7
RESETS
RESFCH
RES IOL
RESlDR
RESNFD
RET ADD
RETURN
RETURN
RFEND
RIGHT
RLINDT
RLSENT
RMSMCRET
RNGTOP
RNGTOP
RODCOMP
ROOOO
RODIO
RODl5
R0020
RPSERR
RPSSET
RSPASG
RSSASGI
RSSASG2
RSTASG
RSTCHQ
RSTCOM
RSTLUB
RSTRT
RSTSTO
RSTSTOS
RSTSTOI
RSTST03
RSTSW4

SJDBCTLF
SJOBCTLF
SJOBCTLF
SJOBCTLF
SJOBCTLF
SJOBCTLE
$IPLRT2
SIPLRT2
$IPLRT4
SJOBCTLF
SJOBCTLB
SJOBCTLN
SJDBCTLJ
$IPLRT2
SJOBCTLA
SJOBCTLJ
$SASIPL2
SJOBCTLD
SJOBCTLK
SJOBCTLM
SJOBCTLM
SJOSCTLH
SJOBCTLM
SJOBCTLM
SJOBCTLE
$IPLRT3
SJOBCTLG
SJOBCTlG
SJOBCTLG
SJOBCTLG
SIPLRT4
SJOBCTLG
SIPlRT2
SJOBCTLK
SJOBCTLD
SJOBCTLD
SJOBCTLO
SJOBCTLO
SJOBCTLG

MGE5
MGA2
MGF4
MGB4
MGJ3
LBC4
CFF2
CFG4
EBG5
MAJI
HAF4
SBB3
PJKI
CFC4
GMCl
PAC3
BAB2
KAD4
QRE3
RCB4
RCBI
RCA3
RCH3
RCA4
LUB4
OFD3
NME4
NBC2
NBB2
NMB4
EJF5

SAMEOIB
SAMELUB
SAVED
SCANDEV
SCANRI
SCANR2
SCANR3
SCANOO
SCHLOP
SCHSCH
SCHSTA
seHTST
SCNENO
SCNINT
SeNJ IB
seNLOP
SCNLUS
SCNOPRS
SCNRL I
SCNRL2
SCNRT
SDEVI
SEARCH
SEEK INIT
SEEKSTRT
SElRLD

SJOBCTLD
SJOBCTLD
SJOBCTlE
UA$lPL2
SJOBCTLA
SJOBCTlA
SJOBCTLA
SJOBCTLH
SIPLRT3
SIPLRT3
SIPlRT3
SIPLRT3
SIPLRT3
SJOBCTLG
SJOSeTLO
$JPLRT3
SJOSCTLD
SJOBCTLD
SJOBCTLA
SJOBCTLA
SJOBCTLE
$SAS IPL2
SIPLRT5
SJOBCTLE
SJOBCTLE
SJOBCTLA

JPF4
JPE4
LHB3
BAA3
GKC2
GKBI
GKB3
RMB3
DFCI
DEJI
OEFI
OEHI
OCS4
NHBI
KJB2
OC03
KJBI
JAJ3
GK02
GKE3
LPD2
BOCI
FCC4
LLBI
lBE2
GXDI

A~~endix

Location

A: latel list

HBGl

CGHI
QQSl
KEBl
KED2
KEFI
KEGI
NAD4

273

Label

Phase

SEND
SENSE
SENSE
SENSE2
SENSE3
SET
SETAREA
SETCLOCK
SElE XT
SETFCL
SETF IRST
SETFLAGS
SETINTVL
SETKEYl
SETKEY2
SETOUT
SETOUTPT
SETRTN
SETSol
SETSVA
SETSVA3
SETSVA4
SETSVA5
SETWRT
SEUOB
SEU082
SFNC
SFNC
SFPPE
SFPPE
SFPPEoQ2
SFPPEOI
SFPPE02
SFPPE02
SFPPE03
SFPPE03
SFPPEl
SFPPEl
SFPPElO
SFPPElO
SFPPEll
SFPPEll
SFPPEl2
SFPPEl2
SFPPE13
SFPPE13
SFPPEl4
SFPPEl5
SFPPEl5
SFPPEl6
SFPPEl6
SFPPEl7
SFPPE17
SFPPEl8
SFPPEl9
SFPPEI9
SFPPE2
SFPPE2
SFPPE201
SFPPE201
SFPPE3
SFPPE3
SFPPE4
SFPPE4
SFPPE5
SFPPE5

SJOSCTLE
SSASIPL2
SS8CARTR
SSASIPL2
SSASIPl2
SJ08CTLJ
SJ08CTlG
SIPLRT4
SJ08CTLJ
SI PLRT3
SlPLRT2
SJOBCTLK
SIPLRT4
SSASIPL2
SSASIPL2
SJOBCTLA
SJOBCTlJ
SIPLRT4
SJOBCTLJ
SJOBCTlJ
SJOBCTlJ
SJOBCTLJ
SJOBCTLJ
SJOBCTLA
SSBlSTIO
SSBlSTlO
SJOBCTLD
SJOBCTLF
SJOBCTLD
SJOBCTLF
SJOBCTLF
SJOBCTLF
SJ08CTlo
SJ08CTLF
SJOBCTLD
SJ08CTLF
SJOBCTlD
SJ08CTlF
SJOBCTLD
SJOBCTlF
SJOBCTLo
SJOBCTlF
SJOBCTlD
SJOBCTLF
SJOBCTLD
SJOBCTLF
SJOBCTlF
SJOBeTlD
SJOBCTLF
SJOBCTlD
SJOBCTLF
SJOBCTlD
SJOBCTlF
SJOBCTlF
SJOBCTLD
SJOBCTlF
SJOBCTLD
SJOBCTlF
SJOBCTlD
SJOBCTlF
SJOBCTlO
SJOBCTlF
SJOBCTLD
SJOBCTlF
SJOBCTLD
SJOBCTlF

274

Location

LQG3
BDB2
FGG3
80C2
8DE2
PG82
NKE5
EAF4
PGBI
OGG4
CEDI
QFE5
EAK4
8BKl
88A2
GSo2
PDC2
EABI
PPA3
PPAl
PPJl
PPE2
PPJ2
GTE2
TCB4
TCG4
KMB5
MNB5
KFBI
MRBI
MJC4
MRE2
KFEI
MREI
KHFl
MRF5
KFCI
MRCI
KG8l
MSBI
KGD3
MSD3
KGC2
MSC2
KGC4
MSC4
MSF2
KGD4
MSD4
KGG4
MSG4
KGJ5
MSJ5
MSK4
KGA4
MSA4
KFDI
"ROI
KGF3
MSE3
KHE3
MRJ5
KFHl
MRHI
KFC3
MRC3

DOS/vS IPL and Joe control

Label

Phase

SFPPE5A
SFPPE6
SFPPE6
SFPPE7
SFPPE7
SFPPE8
SFPPE8
SFPPE8A
SFPPE8A
SFPPE8B
SFPPE88
SFPPE9
SFPPE9
SFPP5A
S IMEND
S IMEOJ
SJ BKSWCH
SKIP
SKIP
SKIPLN
SKPINC
SKPKEY
SKP64K
SLBTEST
SNSOO
SNS05
SNSlO
SPCEXC
SPRSW
SRCH3211
SRCH3340
STATOO
STAT05
STATlO
STDASSG
SToLBL
STDUCHN
STOPSDL
STseLB
STUCRL
STUSPC
SUlB
SUlBl
SULB2
SUPVRFND
SVCBTRNS
SVCO
SVC44ROO
SVIFO
SWBACK
SWOFFI
SWOFF2
SXTPOK
SYM
SYNTAX
SYN02
SYSDATE
SYSERR
SYSHC
SYSLOGUA
SYSMVC
SYSPRM
SYSRF
SYSUPI
SYSUPTl
SYSXXX

SJOBCTLF
SJOBCTLD
SJ08CTlF
SJ08CTLD
SJOBCTLF
SJOBCTLD
SJOBCTLF
SJOBCTLD
SJOBCTLF
SJOBCTLD
SJOBCTLF
SJOSCTLD
SJ08CTLF
SJOBCTLD
SJOBCTLG
SJOBCTLN
SJOBCTLN
SJOBCTLB
SJOBCTLJ
SJOBCTLD
$lP~RT4

$IPLRT3
SJOBCTlJ
SJOBCTlE
SJOBCTlM
SJOBCTlM
SJOBCTLM
SJOBCTlA
$lPlRT3
SIPlRT4
SIPlRT4
SJOBCTlM
SJOBCTlM
SJOBCTlM
SJOBCTlG
SJOBCTLG
SJOBCTLA
SJ08CTLE
SJOBCTLG
SJOBCTlF
SJOBCTLF
SSBlSTIO
SSBLSTIO
SSBLSTIO
SSUIPl2
SJOBCTLF
$lPLRT4
SJOBCTlM
SIPLRT5
SJOBCTLN
SJOBCTLO
SJOBCTlD
SJOBCTlK
SJOBCTLG
SJOBCTLE
SJOBCTlE
SJOBCTLJ
SJOBCTLA
SJOBCTlJ
SIPLRT4
SIPlRT2
SJOBCTLG
SJOBCTlJ
SJOBCTlJ
SJOBCTLJ
SJOBCTLD

Location

MRS3
KFC4
MRC4
KFD5
MR05
KGOI
MSOI
KGHI
MSHI
KG84
MS84
KGE2
MSE2
KFB3
NA84
SAB2
SBH2
HCK2
PHF5
KBBI
EFD3
DAGI
PQG2
lJE3
RNBl
RNJ2
RNDI
GTHI
DEC]
EDG2
EoB2
RJ83
RJG5
RJC3
NNJI
NJ83
GQC5
lGG3
NPGl
MKC2
MKJ5
TCBl
TCE2
TCE3
BAF4
MAD5
EN04
RMF4
FAB3
SBDl
JJG5
JJH5
OGKI
NHD2
LOB2
LQE2
PGH2
GHC3
PJA3
ECB4
CFB2
NKBI
PJBl
PGGI
PKC2
KKBI

i
'~

~

Label

Phase

Location

SYSXXXOI
SYSXXXI
SYSXXX2
SYSXXX3
SYSXXX4
SYSXXX5
SYSXXX6

SJOBCTLD
SJOBCTlD
SJOBCTlD
SJOBCTlD
SJOBCTlD
SJOBCTlD
SJOBCTLD

KKG3
KKEI
KKFl
KKE3
KKA4
KKA5
KKH2

TAPINT
TAPIO
TBNHDR
TBNXPB
TBPBLP
TOEVI
TEBClC
TEBOEO
TEBDET
TEBEST
TEBEXO
TEBHDR
TEBlOP
TEBlOP
TEBS
TEBVOET
TEBVEST
TECARO
TEMPENO
TEST
TEST
TESTAUTO
TESTCIOA
TESTEND
TESTEND
TESTLA81
TESTlAB2
TESTNK
TESTOV
TESTPRL8
TESTPSLB
TESTRELOC
TEST SIZE
TESTTOO
TESTUNIT
TESTI
TEST2
TFILL
TIAERR
TtAERR
TIMERT
TIMOUT
TIMOUTl
TIMOUT2
TLBL
TlOOP
TOOMANY
TPLAB
TPVER
TRTBRC
TSLNKSW
TSTAlSWI
TSTDF
TSTERR
TSTEXT
TSTLOG
TSTPAUSE
TSTPROC

SJOBCTlA
SJOBCTtB
SJOBCTLG
SJOBCTLG
SJOBCTLG
UASIPL2
$I PLRT2
SIPLRT3
SIPLRT3
SIPLRT3
SIPLRT3
SJOBCTlG
SIPLRT3
SJOBCTlG
SJOBCTLG
SIPLRT3
SIPLRT3
SIPLRT5
SJOBCTLE
UBCARTR
SJOBCTlN
SJ08CTlE
SJOBCTlD
SI PLRT4
SJOBCTlA
SI PLRT4
SI PLRT4
SJOBCTlE
SJOBCTlA
SJOBCTlE
SJOBCTlE
SJOBCTLE
SJOBCTlE
SIPlRT4
UBCARTR
SJOBCTLF
SJOBCTlF
SJOBCTlK
SJOBCTlD
SJOBCTlF
SIPLRT4
SJOBCTlG
SJOBCTlG
SJOBCTlG
SJOBCTLK
SJOBCTLE
SJOBCTlJ
SJOBCTlK
SJOBCTlK
SIPLRT2
SJOBCTLJ
SJOBCTlJ
SJOBCTlA
SSBCARTR
SJOBCTLO
SJOBCTLA
SJ08CTLA
SJOBCTLD

GQF5
HGB3
NFG2
NFF3
NFEI
BOO 1
CAG3
DOE4
OFB2
OFE2
OFK2
NFA2
00C4
NFB3
NFBI
DfA5
DfH3
FAH2
LHEZ
FGB2
SAE2
LHBI
JKBI
EMC5
GPD2
EMB2
EMF4
LDH2
GPB2
LKBI
LK82
LFB4
LOGl
EAH4
FGF2
MEG2
MEG3
OAD4
KMOI
MNG4
EFB4
NLB4
NLK4
NLG5
aBBI
lOt5
PNJI
OAB2
QAH3
CHC5
POA2
PQFI
GSE4
FGB4
KOC2
GCH5
GBOI
KNCI

Label

Phase

TSTSLO
TSTSO
TSTSTND
TSTTM
TSTTYPE
TXCUU
TXCUU
TXCUU
TXCUUI
T-XCUUI
TXCUUl&8
TXCUUl&8
TXCUU2
TXCUU2
TXCUU3
TXCUU3
TXCUU4
TXCUU4
Tl25BG
T125CH
Tl25EN
T 125EXT
Tl25HW
Tl25NOC
Tl25NOR
T125RT
Tl25SCA
T1442

SJOBCTLE
SIPLRT3
SJOBCTLB
SJOBCTLB
SJOBCTLA
SJOBCTLD
SJOBCTlF
SJOBCTLJ
SJOBCTlF
SJDBCTlJ
SJOBCTlD
SJOBCTLF
SJOBCTlD
SJOBCTLJ
SJOBCTLD
SJOBCTlF
SJOBCTlO
SJOBCTLF
SIPlRT4
SIPLRT4
SIPLRT4
SIPLRT4
SIPLRT4
SIPlRT4
SIPLRT4
SIPLRT4
SIPLRT4
SJOBCTLJ

1MBI
DEG3
HFF3
HAK5
GC05
KCB2
MOB4
PTBI
MOE4
PTOl
KMB3
MNC4
KCG2
PTFl
KCH2
MOJ4
KCE2
MOF4
EPC3
EPBI
EPH3
EPC2
EPHI
EPG3
EPB4
EPA4
EPA3
PNE2

UA
UADNI
UADN2
UADN3
UADN4
UADN5
UADN6
UALUB
UALUBI
UANXJB
UASCAN
UASTO
UCS
UCSSCN
UCSVN
UCSI
UCSZ
UCS3
UCS4
UNA
UNAE
UNANENT
UNANENT
UNASGN
UNASLUB
UNASSGN
UNAI
UNAIA
UNA2
UNAZA
UNA2AA
UNA2B
UNBlKO
UNCLOG
UNCU
UNITR
UNITSI

SJOBCTLF
SJOBCTLF
SJDBCTLF
SJOBCTLF
SJOBCTLF
SJOBCTLF
SJOBCTLF
SJOBCTlF
SJOBCTlF
SJOBCTLG
SJOBCTlG
SJOBCTLF
SJOBCTLJ
SJOBCTlJ
SJOBCTLJ
SJOBCTlJ
SJOBCTlJ
SJOBCTlJ
SJOBCTLJ
SJOBCTlF
SJOBCTlF
SJOBCTLO
SJOBCTlF
SJOBCTLG
$$ASIPL2
SJOBCTLO
SJOBCTlf
SJOBtTLF
SJOBCTLF
SJOBCTlF
SJOBCTlF
SJOBCTlf
SJOBCTLJ
SJOBCTlA
SJOBCTLF
SIPLRT5
SJOBCTlF

MEBI
MEEl
MEJI
MEE5
MEF3
MEA4
MEH3
MJC3
MJD3
NNA5
NNBI
MJC5
PBBI
PCB2
PCCI
PBHI
PBC2
PCE3
PCE4
MNBI
MNFI
KHB3
MRG5
NNC4
BBJ2
JOB5
MNB3
MNE3
MPAI
MPEl
MPFl
MPGI
POt5
GCH4
MCA3
FEB3
MCAI

A~~endix

Location

A: Lacel List

275

Label

Phase

UNITS2
UNITS3
UNITS401
UNITS402
UNITS5
UNITS501
UNITS8
UNITS9
UNPA
UNPAl
UNPA3
UNTFND
UNZYCO
UNZYSV
UPADDR
UPDATE
UPDEND
UPDHDN
UPDSAV
UPLIOK
UPLU8
UPL20K
UPSICH
UPSIPROC
USERROR
USNRES
USRLBl
USRLBLl

SJOBCTlF
SJOBCTLF
SJOBCTLF
SJOBCTLF
SJOBCTLF
SJOBCTlF
SJ08CTLF
SJ08CTLF
SJOBCTLF
SJOBCTLD
SJOBCTLD
SJOBCTLD
SJOBCTLJ
SIPLRT5
SIPLRT5
SJOBCTLE
$JOBCTLM
SJOBCTLE
SJOBCTLA
SJOBCTLJ
SIPlRT5
SIPlRT2
$1 PLRT5
SJ08CTlJ
$JOBCTlJ
$JOBCTLN
$IPlRT4
SJOBCTLG
SJOBCTLG

MCHI
MCH2
MCEl
MCB3
MCC3
MCC4
MCA5
MCH4
MCD3
KHBI
KHOI
KHB2
PTF4
FAJ3
FAH4
LFB5
RR82
LGD2
GRJ3
PUBI
FAE5
CGGl
FFF3
PKD3
PKBl
SAFl
EBA3
NJB5
NJD5

VALIOLAB
VIRTENT
VMBUCK
VMEND
VMRTN
VOL
VOlFND
VOUOCO
VOL lOR
VOL 1000
VOlID05
VOLOK

SIPLRT4
SJOBCTLE
$JOBCllJ
SJOBCTLJ
$JOBCllJ
$JOBCTLK
$IPlRT5
$IPlRT5
$IPlRT5
$JOBCTLM
SJDBCTlM
SJOBCTLD

EMC2
lHE3
PNB5
PNF5
PNB3
QAB5
FBE2
FAB5
FEG2
RNB4
RNH4
JLF5

WAIT ERR
WAITR
WRITEEOF
WRITELAB
WRTOSKOO
WRTDSK05
WRTERR
WRTFILOO
WRTFIL05
WRTFILlO
WRTFIL20
WRTHOROO

$JOBCTLA
SJOBCTLJ
SIPlRT4
SIPlRT4
SJOBCTlM
SJOSCTLM
$JOBCTlA
$JOSCTlM
$JOSCTLM
$JOBCTLM
SJOBCTLM
$JOBCTLM

GVH5
PMD3
EMF5
ENB4
RHB2
RHH2
GSG5
RLB4
RLC4
RLE4
RLK4
RHB3

XCTL
XCTL
XREF
XTENT
XTENT
XTENT2
XTNTOKAY
XTOPl2
XTOPl2A
XTOPl2B

UA$lPL2
SJOSCTLE
$JOBCTLG
SJOBCTlB
$JOBCTLK
SJOBCTLB
SIPlRT5
$JOBCTLK
SJOBCTLK
SJDBCTLK

BCKl
lGB4
NHD4
HEBI
QGBl
HFE5
FBB4
QMB2
QMD2
QMF2

UNITS6

276

Location

DOS/vS IPL and Jot: Control

Label

Phase

Location

XTOP3
XTOP34
XTOP5
XTOUT
XTUNIT

SJOBCTLK
SJOBCTLK
SJOBCTLK
SJOBCTLK
SJOBCTLK

OGC5
QMB"3
QHAI
OHG2
QHC5

YDISK

YESLOGl

SJOBCTLD
SIPLRT4

JED3
ECE4

ZONE
lONECt«
ZRMVDN
ZRMVLP
ZYLR

SJOBCTLJ
SIPLRT4
SJOBCTLA
SJOBCTLA
$lPLRT5

PHB4
EAGl
GJE4
GJD4
FEB5

APPENDIX E:

ERROR MESSAGE CRCSS REFERENCE

Message

~

Chart

Message

Phase

C:r.art

0100A
01001
0101A
OI02A
0103A
01041
0110A
0111A
0112A
0113A
0114A
0115A
0116A
0117A
0118A
01191
01201
OI23A
0124A
01251
01291
01301
0I31A
01321

$$A$IPL2
$ IPI.RT2
$$A$IPL2
$$A$IPL2
$$A$lPL2
$$A$lPL2
$lPLRT2
$lPI.RT2
$lPLRT3
$lPI.RT3
$lPI.RT3
$lPLRT3
$lPLRT4
$lPLRT4
$IPI.RT2
$IPLRT4
$IPLRT5
$IPLRT4
$IPLRT3
$IPLRT4
$IPLRT4
$IPLRT2
$IPLRT2
$ IPI.RT2

BA
CJ
BB
BA
BA
BA
CC
CH
DC
OA
OF
OA
EB
EB
CC
EM
FO
ED
DE
EC
ED
CB
CB
CB

lA5nD

$JOBCTLD
$JOBCTLF
$JOBCTLJ
$JOBCTLD
$JOBCTI.F
$JOBCTLD
$JOBCTLF
$JOBCTLJ
$JOBCTLD
$JOBCTLA
$JOBCTLO
$JOBCTLF
$JOBCTLA
$JOBCTLA
$JOBCTLG
$JOBCTI.J
$JOBCTLJ
$JOBCTLE
$JOBCTLA
$JOBCTLA
$JOBCTLE
$JOBCTLA
$JOBCTLG
$JOECTLF

K!!
MN
PV
KM
MN
K!!
MN
PV
JC
GS
K!!
MN
GV
GC
N!!
PV
PV
LU
GJ
GV
LJ
GE
NU
ME

0:1.3,38

$IPLR'I't

~s

$~Cr!CTr.r~

Sl]

01340
01351
OI37A
0138A
OI39A
OI40A
OI41A
OI42A
OI43A
0144A
OI45A
OI46A
01471
01481
OI49A
0150A
OI51A
01521
OI60A
01611
OR01I
OR02I
OR031
ORl71
OR19I
lAOnO
lAlnD
lA2nO

$IPI.RT4
$ IPI.RT4
$IPI.RT5
$IPLRT5
$IPI.RT5
$ IPLRT5
$IPI.RT5
$IPLRT5
$IPLRT5
$lPLRT5
$IPI.RT5
$lPLRT5
$ IPI.RT2
$IPI.RT2
$IPLRT5
$lPI.RT2
$IPLRT5
$ IPI.RT5
$IPLRT3
$IPI.RT4
$JOECTLB
$JOBCTLB
$JOECTLB
$JOBCTLB
$JOBCTLB
$JOBCTLO
$JOECTLD
$JOBCTLO
$JOECTLG
$JOBCTLJ
$JOECTLO
$JOBCTLO
$JOECTLF
$ JOBCTLJ
$JOECTLK

ES
ET
FC
FB
FC
FA
FA
FF
FF
FB
FB
FB
CJ
CJ
FE
CC
FC
FF
DF
EC
HO
HG
HB
HO
HD
KM
KM
KM
NR
PV
KM
KM
MN
PV
QS

$JOECTLA
$JCBCTLM

Gii
RA
RK
RA
RA
RC
RC
RC
RA
RI<
RA
RC
RA
PJ
RF
QS
LU
NR
QS
GE
N'I

lA3nD
lA4nD

lA6nD
lA7nD
lA80D
lA81I
lA9nD
lCOOA
lCl0A
lC30A
lC33I
lC70D
lC80D
lC90D
1100A
11101

usn

11701
11821
1183A
1184A
lI86A
1189A
1190A
1191A
11921
11931
l195A
lI96A
11971
11981
lI99A
1I.OnD
lLlnD
1!!10A
1!!20D
lM3nD
1!!4nD
lM5nD
lM6nO
UOnD
1!!8nD
1!!9nD
lNOOI
lNl0D
lN2nO
lN30D
lN400

$JOECTL~

$JOECTLM
$J9BCTLM
$JOBCTLM
$JOECTLM
$JOBCTI.M
$JOBCTLM
$JOECTLM
$JOBCTLM
$JCECTL~
$JOBCTL~

$JOBCTLJ
$JOBCTLM
$JOBCTLK
$JOBCTLE
$JOBCTLG
$JOBCTLK
$JOBCTLA
$JOBCTLG
$JOBCTLA
$JOBCTLA
$JOBCTLG
$JOBCTLD
$JOBCTLF
$JCBCTLE
$JOECTLE
$JOBCTLE
$JOBCTLE
$JOBCTLA
$JCBCTLE
$JOBCTLE
$JOECTLE
$JOBCTLE

G~

GF
NS
KN
MF
LA
LA
LF
I.C
GN
LC
LR
I.R

AHendix E: Error Message Cross Reference

277

Message

Pha~

Chart

Message

~

Chart

1N50D
1N60D
1N7nD
lN801
1N901
1POnD
1P20D
lS00D

$JOBCTLE
$JOECTLE
$JOBC'ILG
$JOECTLG
$JOBCTLG
$JOECTLJ
$JOECTLE
$JOBCTLA
$JOECTLG

LR
LS
NS
NU
NU
PV
LU
GW
NR

lSlnI:

$JOBCTLG
$JOBCTLJ
$JOBCTLK
$JOBCTL1I
$JOBCTL1I
$JOBCTLD
$JOBCTLD
$JOBCTLD
$JOBCTLD

NR
PV
QS

218

DOS/vS IPL and Joe Control

1'I001l
1'I101
1'I201
1'I501l
1'I601l
1'I70A

JR
JL
JL
JR

~PENDIX

C:

TOTAL MESSAGE CROSS REFERENCE

All messages issued by the DOS/VS system control programs are listed in this appendix
with a reference to the PLM and issuing phase. For cause and action of each message, see
OOS/VS Messages, GC33-5379.
MessaSle

Phase

PLM

MessaSle

Phase

PLM

0001A
00021
0003A
000411
0005A
0005A
0006A
0007D
0008A
000ge
0020E
0025E
0026A
0026E
0029E
0030A
0030A
0033A
0034E
0035E
0036E
0097A
OIOOA
01001
OI01A
OI02A
OI03A
01041
OIlOA
OIllA
OIl2A
OIl3A
OIl4A
OIl5A
OIl6A
0I17A
OIl8A
01191
01201
OI23A
OI24A
01251
01261
01261
01261
01271
01271
01280
01280
01281
01291
01301
013iA
01321
01J3A
01340
01351

$$BOCR'IV
$$BOCR'IM
$$BOCR'IX
$$BOCR'IV

SY33-8553
SY33-8553
SY33-8553
SY33-8553
SY33-8553
SY33-8553
SY33-8553
SY33-8553
SY33-8553
SY33-8553
SY33-8553
SY33-8553
SY33-8553
SY33- 8553
SY33-8553
SY33-8553
SY33-8553
SY33-8553
SY33-8553
SY33-8553
SY33-8553
SY33-8553
SY33-8555
SY33- 8555
SY33-8555
SY33- 8555
SY33-8555
SY33- 8555
SY33-8555
SY33-8555
SY33-8555
SY33-8555
SY33-8555
SY33-8555
SY33-8555
SY33-8555
SY33-8555
SY33-8555
SY33-8555
SY33-8555
SY33-8555
SY33-8555
SY33-8554
SY33- 8553
SY33-8555
SY33-8553
SY33-8555
SY33-8553
SY33-8555
SY33-8554
SY33-8555
SY33-8555
SY33-85§5
SY33-8555
SY33-8555
SY33-8555
SY33-8555

0I37A
0138A
0139A
OI40A
OI41A
OI42A
0143A
OI44A
OI45A
0146A
01471
01481
OI49A
OI50A
OI51A
01521
OI60A
OI61I
OP08
OP08
OP08
OP08
OP08
OP08
OP08
OP08
OP08
OP08
OP08
OP08
0'P08
OP08
OP08
OP08
OP09
OP09
OP09
OP09
OP09
OP09
OP09
OP09
OP09
OP09
OP09
OP09
OP09
OP09
OP09
OP09
OP10
OP10
OP10
OP10
OP10
OP10
OP10

$IPLRT5
$IPLRT5
$IPLRT5
$IPLRT5
$IPLRT5
$IPLRT5
$IPLRT5
$IPLRT5
$IPLRT5
$1PLRT5
$ IPLR'l' 2
$IPLRT2
$IPLRT5
$IPLRT2
$IPLRT5
$IPLRT5
$IPLRT.3
$IPLRT4
$$ABERAE
$$ABERAH
$$ABERAN
$$ABERRE
$$ABERRl!
$$ABERRG
$$ABERRB
$$ABERRI
$$ABERRS
$$ABERRT
$$ABERRU
$$ABERRV

SY33-8555
SY33-8555
SY33-8555
SY33-8555
SY33-8555
SY33-8555
SY33-8555
SY33-8555
SY33-8555
SY33-8555
SY33-8555
SY33-8555
SY33-8555
SY33-8555
SY33-8555
SY33-8555
SY33-8555
SY33-8555
SY33-8552
SY33-8552
SY33-8552
SY33-8552

$$BOCR'I~

$$BOCR'Il
$$BOCR'IY
$$BOCR'IS
$$BOCR'IS
$$BOCR'IR
$$BOCR'IE
$$BOCR'IE
$$BOCR'IG
$$BOCR'IE
$$BOCR'IE
$$BOCR'IV
$$BOCR'Il
$$BOCR'IE
$$BOCR'IF
$$BOCR'IF
$$BOCR'IF
$$BOCR'Il
$$A$IPL2
$IPLRT2
$$A$IPL2
$$A$IPL2
$$A$IPL2
$$A$IPL2
$IPLRT2
$IPLRT2
$IPLRT3
$IPLRT3
$IPLRT3
$IPLRT3
$IPLRT4
$IPLRT4
$IPLRT2
$IPLRT4.
$IPLRT5
$IPLRT4
$IPLRT3
$IPLRT4
$$BFLOR
$$BUFLDR
$IPLRT4
$.$BUFLD2
$IPLRT4
$$BUFLD2
$IPLRT4
$$BFLD2
$IPLRT4
$IPLRT2
$IPLRT7
$IPLRT2
$IPLRT4
$1PLRT4
$IPLRT4

$$ABERR~

$$ABERRY
$$ABERRl
$$ABERR7
$$ABERAE
$$ABERAB
$$ABERAN
$$ABERRE
$$ABERRF
$$ABERRG
$$ABERRB
$$ABERRI
$$ABERRS
$$ABERR'I
$$ABERRU
$$ABERRV
$$ABERR~

$$ABERRY
$$ABERRl
$$ABERR7
$$ABERAC
$$ABERAE
$$ABERAf
$$ABER~B

$$ABERAN
$$ABERRE
$$ABERRF

S~j~-tiS3l

SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-85S2
SY33- 8552

Appendix C: Tetal Message Cress Reference

279

Message

Phase

PLM

Message

Phase

PLM

oPtO
oPtO
OPtO
oPtO
oPtO
OPtO
oPtO
OP10
OP10
OPU
OPU
OPU
OPU
OPU
OPU
OPU
OPU
OPU
OPU
OPU
OPU
OPU
OPU
OPU
OP12
OP12
OP13
OP13
OP13A
OP14
OP14
OP14
OP14
OP14
OP14
OPt5
OP15
OP16
OP16
OP17
OP17
OP17
OP17
OP18
OP18
0P18
OP18
OP18
OP18
OP18
OP18
OP18
OP18
OP18
OPt8
OP18
OP18
OP18
OP18
OP19
OP19
OP19
OP19
UP19
OP19
OP19

$$ABERRG
$$ABERRH
$$ABERRI
$$ABERRU
$$ABERRV
$$ABERRw
$$ABERRY
$$ABERRl
$$ABERR7
$$ABERAE
$$ABERAC
$$ABERAF
$$ABERAH
$$ABERAI
$$ABERRE
$$ABERRF
$$ABERRG
$$ABERRH
$$ABERRI
$$ABERRU
$$ABERRV
$$ABERRY
$$ABERR5
$$ABERR7
$$ABERRE
$$ABERR5
$$ABERRE
$$ABERR5
$$RAST1O
$$ABERAE
$$ABERAH
$$ABERRE
$$ABERWI
$$ABERRY
$$ABERRl
$$ABERRB
$$ABERR4
$$ABERRE
$$ABERR5
$$ABERAE
$$ABERAH
$$ABERRE
$$ABERRl
$$ABERAE
$$ABERAH
$$ABERAN
$$.1-\BERRE
$$ABERRF
$$ABERRG
$$ABERRH
$$ABERRI
$$ABERRS
$$ABERR'I
$$ABERRU
$$ABERRV
$$ABERRw
$$ABERRY
$$ABERRi
$$ABERR7
$$ABERAE
$$ABERAH
$$ABERAN
$$ABERRE
$$ABERRF
$$ABERRG
$$ABERRH

SY33-8552
SY33-8552
SY33-8552
SY33-855:1:
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33- 8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY3 3- 8552
SY33-8552
SY33-8552
SY33-8552
SY33- 8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552

OP19
OP19
OP19
OP19
OP19
OP19
OP19
OP19
OP19
OP20
OP20
OP20
OP20
OP20
OP20
OP20
OP20
OP20
OP20
OP21
OP21
OP22
OP22
OP23
OP24
OP24
OP24
OP24
OP25
OP25
OP25
OP25
OP26
OP26
OP27
OP27
OP28
OP28
OP28
OP28
OP28
OP28
OP28
OP28
OP28
OP28
OP28
OP28
OP28
OP28
OP28
OP28
OP29
OP29
OP30
OP30
OP31
OP31
OP31
OP31
OP32
OP32
OP33
OP33
OP34
OP35

$$ABERRI
$$ABERRS
$$ABERR'I
$$ABERRU
$$ABERRV
$$ABERRw
$$ABERRY
$$ABERRl
$$ABERR7
$$A$SUFl
$$ABERAC
$$ABERAF
$$ABERAG
$$ABERRC
$$ABERRF
$$ABERRI
$$ABERRU
$$ABERR2
$$ABERR4
$$ABERRE
$$ABERR4
$$ABERRl
$$ABERR4
$$ABERR4
$$ABERAE
$$ABERAH
$$ABERRA
$$ABERRI
$$ABERAE
$$ABERAH
$$ABERRA
$$ABERRI
$$ABERRE
$$ABERRl
$$ABERRA
$$ABERRY
$$ABERAE
$$ABERAH
$$ABERAN
$$ABERRE
$$ABERRF
$$ABERRG
$$ABERRH
$$ABERRI
$$ABERRS
$$ABERR'I
$$ABERRU
$$ABERRV
$$ABERRw
$$ABERRY
$$ABERRl
$$ABERR7
$$ABERAE
$$ABERAH
$$ABERAE
$$ABERAH
$$ABERAE
$$ABERAH
$$ABERRA
$$ABERRI
$$ABERAE
$$ABERAH
$$ABERRF
$$ABERRY
$$ABERRS
$$ABERAN

SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552

280

DOS/VS IPL and Job Control

,

;.1

~.

Message

Phase

~

Message

Phase

PIM

OP3S
OP36
OP36
OP37
OP38
OP39
OP40
OPU
OP41
OP42
OP42
OP42
OP43
OP44
OP44
OP45
OP46
OP47
OP47
OP48
OP49
OP49
OPSO
OP51
OPS2
OP53
OP54
OP55
OP60D
OP701
OP711

$$ABERR'I
$$ABERRE
$$ABERR4
$$ABERRS
$$ABERR'I
$$ABERRl
$$ABERRU
$$ABERRF
$$ABERRH
$$ABERAE
$$ABERAG
$$ABERAH
$$ABERAG
$$ABERAC
$$ABERAH
$$ABERRE
$$ABERAG
$$ABERAE
$$ABERAH
$$ABERRG
$$ABERRG
$$ABERR1
$$ABI;:RRY
$$ABERAN
$$ABERAN
$$ABERAN
$$ABERAN
$$ABERR7
$$ABERRZ
$$BEOJ2
$$BEOJ2

SY33-8552
SY33-8552
SY33-8S52
SY33-8552
SY33- 8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8S52
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8551
SY33-8553
SY33-8553

OS141
OS1S1
OS161
OS171
OTOOl
OTOOl
OTOOl
OTOOl
OTOOl
OT03I
OT031
OT031
OT031
OT031
OT05E
OT05E
OT051
OT051
OT051
OT061
OT061
OT071
OT071
OT081
OT081
OT091
OT091
OTIOI
OT101
OT101
OT101

$$BEOJ2A
$$BEOJ2A
$$BEOJ2A
$$BMVKU
$$ABERA1
$$ABERA2
$$ABERA3
$$RAST08
$$RASTll
$$ABERA1
$$ABERA2
$$ABERA3
$$RAST08
$$RJ\STll
$$RAST08
$$RASTll
$$ABERA1
$$ABERA2
$$ABERA3
$$RAST03
$$RASTll
$$RAST03
$$RASTll
$$RAST03
$$RASTll
$$RAST03
$$RASTll
$$RAST02
$$RAST04
$$RAST05
$$RAST06

SY33-8553
SY33-8553
SY33-8553
SY33-8553
SY33-8552
SY33-8552
SY33-8552
SY33-8S52
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-85S2
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552

OFnI

$$BEOJ2

St33-i:l5S3

CT1C:;:

$$R~Sl'01

S~33=g552

OP731
OP741
OP751
OP761
OP771
OP781
OP791
OP811
OP821
OP83A
OP841
OP851
OP87A
OP881
OP891
OR 011
OR021
OR031
ORI7I
OR191
OSOOI
OSOOI
05011
OS021
05031
OS041
05051
OS061
OS07I
OS081
OS091
05111
OS121
05131

$$BEOJ2A
$$BEOJ2A
$$BEOJ2
$$BEOJ2
$$BEOJ2
$$BEOJS2
$$BEOJ2A
$$BEOJ2A
$$BEOJ2A
$$BEOJ2A
$$BEOJ2A
$$BEOJ2A
$$BEOJS2
$$BEOJS2
$$ABERRZ
$JOBCTlE
$JOBCTLE
$JOBCTLB
$JOBCTlB
$JOBCTLE
$$BILSVC
$$BPCHK
$$BEOJ2
$$BEOJ2
$$BPCHK
$$BILSVC
$$BILSVC
$$BEOJ1
$$BPSW
$$BEOJ
$$BEOJ1
$$BEOJl
$$BEOJ2A
$$BEOJ2A

SY33-8553
SY33-8553
SY33-8553
SY33-8553
SY33- 8553
SY33-8553
SY33-8553
SY33-8553
SY33-8553
SY33-8553
SY33-8553
SY33-8553
SY33-8553
SY33-8553
SY33-8551
SY33-8555
SY33-8555
SY33-8555
SY33-8555
SY33-8555
SY33-8553
SY33-8553
SY33-8553
SY33-8553
SY33-8553
SY33-8553
SY33-8553
SY33-8553
SY33-8553
SY33-8553
SY33-8553
SY33-8553
SY33-8553
SY33-8553

OTIOl
OTIOI
OTllW
OT121
OT121
OT121
OT121
OTl21
OT121
OT121
OT13A
OTl3A
OT13A
OT13A
OTl4E
OT14E
OT15E
OT15E
OT161
OT161
OT17I
OT11I
OT18E
OT18E
OT19E
OT20E
OVOll
OV021
OV03I
OV041
OV051
OV061
OV07I
OV081

$$RAST10
$$RAST12
$$RASTOO
$$RAST02
$$RAST04
$$RAST05
$$RAST06
$$RAST07
$$RAST10
$$RAST12
$$RAST04
$$RAST05
$$RAST06
$$RASTIO
$$RAST03
$$RASTll
$$RAST09
$$RAST13
$$RAST03
$$RASTll
$$RAST03
$$RASTll
$$RAST03
$$RASTll
$$RAST09
$$RAST13
$$BEOJS2
$$BEOJS2
$$BEOJS2
$$BEOJS2
$$BEOJS2
$$BEOJS2
$$BEOJS2
$$BEOJS2

SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8S52
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8552
SY33-8553
SY33-8SS3
SY33-8553
SY33-8553
SY33-8553
SY33-8553
SY33-8553
SY33-8553

AH:endix C: 'Ictal Message Cress Reference

281

Messag:e
OV09I
OV10I
OV11I
OV20D
OV21D
OV22D
OV23D
OV241
OV25I
OV26I
OV27I
OV28I
OV29I

OV301
OV31I
OV32I
OV33I
OV34I
OV35I
OV361
OV37I
OV39I
OV40I
OV41I
OV42I
OV43I
OV44I
04E6
lAOND
lA1ND
lA2ND
lA2ND
lA2ND
1A3ND
1A4ND
lA4ND
lA4ND
lA4NO
lA5ND
lA5ND
lA5ND
lA6ND
lA6ND
lA7ND
lA7ND
lA7ND
lA80D
lA8U
lA9ND
1A9NO
lBOlA
IB02A
IB03I
lB10I
lB11D
lCOOA
lCl0J\

1Cl0A
lC30A
lC331
lC40I
lC40I
lC50I
1C50!
1C60D
1C700
282

Phase
$$BEOJS2
$$BEOJ2A
$$BEOJ2
PDSDM
PDSDM
PDSOM
PDSDM
POSOH
POSOM
POSDM
PDSDM
POSOM
PDSDM
PDSOM
PDSDM
PDSDM
PDSDM
PDSDM
PDSDM
PDSDM
PDSDM
PDSDM
PDSDM
PDSDM
PDSDM
PDSOM
PDSDM
SDEHR
$JOBCTIO
$JOBCTLD
$JOBCTID
$JOBCTLG
$JOBCTIJ
$JOBCTLD
$JCBCTID
$JOBCTIF
$JOBCTLJ
$JOBCTIK
$JOBCTLD
$JOBCTIF
$JOBC'ILJ
$JOBCTID
$JOBCTLF
$JOBCTID
$JOBC'ILF
$JOBCTIJ
$JOBC'ILD
$JOBCTIA
$JOBC'ILD
$JOBCTLF
SYSBUFLD
SYSBUFID
SYSBUFLI:
SYSBUFID
SYSBUFLD
$JOBCTIA
$JOBCTLA
$JOBCTIJ
$JOBCTLJ
$JOBCTIE
$$BATTNA
$$B~TTNE

$$BATTNA
$$BATTNE
$$B~TTNN

$JOBCTIA

PLM
SY33-8553
SY33-8553
SY33-8553
SY33-8554
SY33-8554
SY33-8554
SY33-8554
8Y33-8°S54
SY33-8554
SY33-8554
SY33-8554
SY33-8554
SY33-85S4
SY33-8554
SY33-8554
SY33-8554
SY33-8554
SY33-8554
SY33-8554
SY33-8554
SY33-8554
SY33- 8554
SY33-85S4
SY33-8554
SY33-8554
5Y33-8554
SY33-8554
SY33-8554
SY33-8555
SY33-8555
SY33-8555
SY33-8555
SY33-8555
SY33-8555
SY33-8555
SY33-8555
SY33-8555
SY33-8555
SY33-8555
SY33-8555
SY33-8555
SY33-8555
SY33-8555
SY33-8555
SY33- 8555
SY33-8555
SY33-8555
SY33-8555
SY33-8555
SY33-8555
SY33-8554
SY33-8554
SY33- 8554
SY33-8554
SY33-8554
SY33-8555
SY33-8555
SY33-8555
SY33-8555
SY33-8555
SY33-8553
SY33-8553
SY33-8553
SY33-8553
SY33- 8553
SY33-8555

DOS/VS IFI and Job Centrol

Messag:e

~

PLM

1C80D
1C900
1I00A

$JOBCTLA
$JOBCTIE
$JOBCTLA
$JOBCTIG
$JOBCTLF

SY33-8555
SY33-8555
SY33-8555
SY33-8555
SY33- 8555
SY33-8553
SY33-8551
SY33-8551
SY33-8553
SY33-8553
SY33-8553
SY33-8553
SY33-8553
SY33-8553
SY33-8553
SY33-8553
SY33-8553
SY33-8553
SY33-8555
SY33-8553
SY33--8555
SY33-8555
SY33-8555
SY33-8555
SY33-8555
SY33-8555
SY33-8555
SY33-8555
SY33-8555
SY33-8555
SY33-8555
SY33-8555
SY33-8555
SY33-8555
SY33-8555
SY33-8555
SY33-8555
SY33-8555
SY33-8555
SY33-:8555
SY33-8555
SY33-8555
SY33-8555
SY33-8555
SY33-8555
SY33-8555
SY33-8555
SY33-8555
SY33-8555
SY33-8555
SY33-8555
SY33-8555
SY33-8555
SY33-8555
SY33-8555
SY33-8555
SY33-8555
SY33-8555
SY33-8555
SY33-8555
SY33-8555
SY33-8553
SY33-8553
SY33-8555
SY33-8553
SY33-8555

lIOOA

11101
1I30D
1I32D
1I40D
1I41D
1I41D
1I42D
1I43D
lI44I
1145D
lI46D
lI46D
lI47I
lI48I
lI50I
lI60A
lI701
1I82I
lI83A
lI84A
lI86A
1I89A
lI90A
1I91A
lI92I
lI93I
1I95A
1I96A
1I97I
1I98I
1I99A
lLOND
lL1ND
lL1ND
lL1ND
lM10A
lMl0A
lM200
lM3ND
lM4ND
1~5ND
1~5ND

lM6ND
lM7NO
lMaND
lM9ND
1NOOI
lN100
lN2ND
lN300
lN40D
lN500
1~60D

lN7NO
lN80I
lN90I
lPOND
lPOOO
lPOOO
lP1ND
lP10D
lP20D

$$B~TTNC

$$ABERRZ
$$ABERRZ
$$B~TTN'I
$$B~TTNU

$$Bl\TTN'I
$$B~TTNV
$$B~TTNX

$$EATTl'i'I
$$B~T'IN'I
$$B~TTNw
$$B~TTN'I
$$B~TTNU

$JOBCTLA
$$B~TTNA

$JOBCTIA
$JCBCTll-:
$JOBC'IIM
$JCBCTll-:
$JOBCTIM
$ JOBCTll-:
$JOBCTIM
$JOBCTIM
$JOBCTIM
$JOBCTLM
$JOBCTlM
$JOBCTLM
$JOBCTIM
$JOBCTLJ
$JOBCTLM
$JOBCTlI<
$JOBCTLE
$JCBCTIG
$JOBCTLK
$JCBCTIA
$JOBCTLG
$JOBCTIA
$JOBCTLA
$JOBCTIG
$JOBCTLD
$JCBCTLF
$JOBCTLE
$JCBCTIE
$JOBCTLE
$JOBCTLE
$JOBCTLA
$JOBCTIE
$JOBCTLE
$JOBCTIE
$JOBCTLE
$JCBCTIE
$JOBCTLE
$JOBCTIG
$JOBCTLG
$JCBCTIG
$JOBCTLJ
$$BATTNE
$$BATTNF
$JOBCTIJ
$$BAT'ING
$JCBCTIE

Message

Phase

PLM

Message

~

fH!

lQ621
lR791
lS0NC
lS000
IS00C
15000
lS00C
15000
lS00C
18000
lS000
lS000
15000
lS000
lSOOC
lS000
lS00C
IS010
lS02C
lS1NO
lS1NC
lS1ND
lSlNl
IS1Nl
lSlNI
lS1Nl
lS1Nl
lSlNl
lS1Nl
lSlNl
lS1Nl

$$ABERRZ
$$BATTNC
$J'OBCTLE
$$BATTNE
$$BATTNC
$$BATTNE
$$BATTNF
$$BATTl\G
$$BATTNH
$$BATTNN
$$BATTNC
$$BATTNS
$$BATTN'I
$$BATTNU
$$BATTNY
$$BATTNZ
$$BATTN2
$$ABERRZ
$$ABERRZ
$JCBCTIG
$J'OBCTLJ
$J'OBCTLK
$JOBCTlA
$JCBCTlE
$J'OBCTLO
$JOBCTlE
$J'OBCTLF
$JOBCTlG
$JOBCTL.J
$ JOBCTLR
$J'OBCTLM

SY33-8551
SY33-8553
SY33-8555
SY33-8553
SY33-8553
SY33-8553
SY33- 8553
SY33-8553
SY33- 8553
SY33-8553
SY33-11553
SY33-8553
SY33-8553
SY33-8553
SY33-8553
SY33-8553
SY33-8553
SY33-8551
SY33-8551
SY33-8555
SY33-8555
SY33-8555
SY33-8555
SY33-8555
SY33-8555
SY33-8555
SY33-8555
SY33-8555
SY33-8555
SY33-8555
SY33-8555
61'33-6555
SY33-8555
SY33-8555
SY33-8555
SY33-8555
SY33-8555
SY33-8556
SY33-8556
SY33-8556
SY33-8556
SY33-8556
SY33-8556
SY33-8556
SY33- 8556
SY33-8556
SY33-8556
SY33-8556
SY33-8556
SY33-8556
SY33-8556
SY33-8556
SY33-8556
SY33-8556
SY33-8556
SY33-8556
SY33-8556
SY33-8556
SY33-8556
SY33:-8556
SY33-8556
SY33-8556
SY33-8556
SY33-8556
SY33-8556
SY33-8556

21501
21511
21551
21561
21581
21701
21811
21821
21841
21851
21911
21921
21931
21941
21951
21971
21991
3C301
3C301
3C661

3EOll
3E021
3E041

$LNKEO'l
$LNKEO'l
$LNKEO'l
$LNKEO'l
$LNKEO'l
$LNKEO'l
$LNKEO'l
$LNKEO'I
$LNKEO'I
$LNKEO'l
$LNKEO'I
$LNKEO'I
$LNKEO'I
$LNKEO'I
$LNKEO'I
$LNKEO'I
$LNKEO'I
CORGZ
CORGZl
CORGZ
CORGZ4
CORGZ5
CORGZ6
CORGZ7
CORGZ
CORGZ5
CORGZ6
CORGZ7
EREPMN'IR
EREPMN'IR
EREPMN'IR

SY33-8556
SY33-8556
SY33-8556
SY33-8556
SY33-8556
SY33-8556
SY33-8556
SY33-8556
SY33-8556
SY33-8556
SY33-8556
SY33-8556
SY33-855&
SY33-8556
SY33-8556
SY33-8556
SY33-8556
SY33-8557
SY33-8557
SY33-8557
SY33-8557
SY33-8557
SY33-8557
SY33-8557
SY33-8557
SY33-8557
SY33-8557
SY33-8557
SY33-8554
SY33-8554
SY33-8554

3E06J:

EREi?MN'IR

8133-855 ..

3E070
3E070
3E08A
3E09A
3EI01
3EI01
3E110
3E120
3E14A
3E15A
3E15A
3E15A
3E18A
3E201
3E211
3E221
3E251
3E251
3E251
3E251
3E261
3E271
3E281
3E291
3E30A
3E31A
3E31A
3E31A
3E32A
3E33A
3E341
3E351
3):;361
3E371

EREPESwl(
EREPTES
EREPES"l(
EREPES'IR
EREPE01'I
EREPSMCF
EREPMN'IR
EREPMN'IR
EREPMN'IR
EREPES'IR
EREPH1S'I
EREPTES
EREPH1ST
EREPESwK
EREPE01'1
EREPE01'I
EREPES'IR
EREPH1S'I
EREPMN'IR
EREPTES
EREPMN'IR
EREPMN'IR
EREPMN'IR
EREPMN'IR
EREPH1S'I
EREPES'IR
EREPH1S'I
EREPTES
EREPROE
EREPROE
EREPROE
EREPROE
EREPROE
EREPROE

SY33-8554
SY33-8554
SY33-8554
SY33-8554
SY33-8554
SY33-8554
SY33-8554
SY33-8554
SY33-8554
SY33-8554
SY33-8554
SY33-8554
SY33-8554
SY33-8554
SY33-8554
SY33-8554
SY33-8554
SY33-8554
SY33-8554
SY33-8554
SY33-8554
SY33-8554
SY33-8554
SY33-8554
SY33-8554
SY33-8554
SY33-8554
SY33-8554
SY33-8554
SY33-8554
SY33-8554
SY33-8554
SY33-8554
SY33-8554

:i.TCClI

$.rC&Cl'LA

ITI01
IT201
IT50A
IT60A
IT70A
21001
21011
21021
21101
21111
21121
21131
21141
21161
21201
21211
21221
21231
21241
21251
21301
21311
21321
21331
21351
21361
21401
21411
21421
21431
21441
21451
21461
21471

$J'OBCTLA
$JOBCTlD
$JOBCTLD
$JCBCTlO
$J'OBCTLC
$LNKEO'I
$LNKEO'I
$LNKEO'I
$LNKEO'I
$LNKEO'I
$LNKEO'I
$LNKEO'I
$LNKEO'I
$LNKED'I
$LNKEO'l
$LNKEO'l
$LNKEO'I
$LNKEO'l
$LNKEO'l
$LNKEO'l
$LNKEO'l
$LNKED'I
$LNKEO'I
$LNKEO'l
$LNKEO'I
$LNKED'I
$LNKEO'I
$LNKEO'l
$LNKEO'l
$LNKEO'l
$LNKEO'I
$LNKEO'l
$LNKEO'l
$LNKEO'I

3C661
3C661
3C661
3C661
3C671
3C671
3C671
3C671

AI=I=endix C: 'Ictal Message Cress Reference

283

MessIlie
lEl8I
3E40I
3E411
3E42I
3E4lI
3E671
38301
3MOOI
3M09I
3M10I
3M10I
3M10I
3M10I
lM10I
3M10I
lM10I
3M10I
3MllI
3M20I
3M21I
3M211
3M211
3M21I
3M211
3M211
3M211
3M211
3M21I
3M211
3M21I
3M21I
3M211
3M211
3M211
3M211
3M211
3M23I
3M24I
3M25r
3M26I
3M271
3M271
3M271
3M28I
3M29I
3M32I
3M33I
3M33I
3M 33-1
3M33I
3M33I
3M33I
3M33I
3M34I
3M34I
3M35I
3M37I
3M371
3M37I
3M371
3M37I
3M38I
3M43I
3M431
3M43I
3M431
284

~
EREPRDE
EREPRDE
EREPRDE
EREPRDE
EREPRDE
CORGZ6
MAINTP2
PSERV
PSERV
CORGZ
CORGZ1
DSERV
MAINT
MAINTA
PSERV
RSERV
SSERV
MAINTlli
PSERV
CORGZ
CORGZl
CORGZ3
CORGZ4
CORGZ5
CORGZ6
CORGZ7
CORGZ8
DSERV
MAINR'IN
MAINTCI
MAINTCN
MAINTDR
MAINTR2
PSERV
RSERV
SSERV
MAINTS2
MAINTS2
MAINTS2
MAINTS2
MAINTP2
MAINTR2
MAINTS2
MAINTS2
MAINTP2
MAINTP2
$MAINDIR
CORGZ3
MAINR'IN
MAINTUP
PSERV
RSERV
SSERV
MAINT
MAINTP2
DSERV
MAINT
MAINTA
MAINTCL
MAINTCN
MAINTCR
MAINTP2
CORGU
CCRGZ3
CORGZIl
DSERV

~

MessIlie

~

~

SY3l-8554
SY33-8554
SY33-8554
SY33-8554
SY33-8554
SY33-8557
SY33-8557
SY33-8557
SY33-8557
SY33-8557
SY33-8557
SY33-8557
SY33-8557
SY33-8557
SY33-8557
SY33-8557
SY33-8557
SY33-8557
SY33-8557
SY33-8557
SY33-8557
SY33-8557
SY33-8557
SY33-8557
SY33-8557
SY33-8557
SY33-8557
SY33-8557
SY33-8557
SY33-8557
SY33-8557
SY33-8557
SY33-8557
SY33-8557
SY33-8557
SY33-8557
SY33-8551
SY33-8557
SY33-8557
SY33-8557
SY33-8557
SY33-8557
SY33-8557
SY33-8557
SY33-8557
SY33-8557
SY33-8557
SY33-8557
SY33-85S7
SY33-8557
SY33-8557
SY33-8557
SY33-8557
SY33-8557
SY33-8557
SY33-8557
SY33-8S57
SY33-85S7
SY33-8557
SY33-8557
SY33-8557
SYJ3-8557
SY33-8557
SY33-8S57
SY33-8557
SY33-8557

3M43I
3M43I
3M43I
3M43I
3M43I
3M43I
3M43I
3M43I
3M43I
3M43I
3M441
3M44I
3M44I
3M45I
3M52I
3M52I
3M52I
3M52I
3M52I
3M521
3M53I
3M53I
3M53I
3M53I
3M53I
3M531
3M54I
3M54I
3M54I
3M55I
3M62I
3M62I
3M63I
3M63I
3M63I
3M64I
3M65I
3M65I
3M65I
3M66I
3M67I
3M68I
3M68I
3M70A
3M70I
3M7SI
3M80I
3M80I
3M81I
3M90I
3M92I
3M93I
3N43I
3U10I
3U111
3U20I
3U211
JU30I
3U311
3U32I
3U33I
4C10D
4CllD
4C12D
4C13D
4C14D

MAl NT
MAIN'ICL
MAINTCIl
MAINTP2
MAINTR2
MAINTS2
MAINTUP
PSERV
RSERV
SSERV
CCRGZ6
MAINT
MAINTCN
DSERV
$MUNDIR
CORGZ3
MAINTP2
MAINTR2
MAINTS2
MAINTOP
CORGZ3
MAINTP2
MAINTR2
MAINTS2
MAINTUP
MAINTUP
$MAINDIR
MAINTCR
MAINTUP
MAIN'IIl2
CORGZ7
MAINTA
CORGZ1
CORGZ7
MAINTA
MAINTA
CORGZ
CORGZ7
MAINTA
CORGZ7
CORGZ7
MAINTA
MAINTCN
MAINTA
MAINTCN
MAINTCN
MAINTA
MAINTCN
MAINTCN
$MAINCIR
$MAINCIR
$MAINI:IR
DSERV
MAINTUP
MAINTUP
MAINTUP
MAINTUP
MAIN'IUP
MAINTUIMAINTUP
MAINTUP
PDAID
PDAID
PDAID
PDAID
PDAID

SY33-8557
SY33-8557
SY33-8557
SY33-8551
SY33-8557
SY33-8557
SY33-8557
SY33-8557
SY33-8557
SY33-8557
SY33-8557
SY33-8557
SY33-8557
SY33-8557
SY33-8557
SY33-8557
SY33-8557
SY33-8557
SY33-8557
SY33-8557
SY33-8557
SY33-8557
SY33-8S57
SY33-8557
SY33-8557
SY33-8557
SY33-8557
SY33-8557
SY33-8557
SY33-8557
SY33-8557
SY33-8557
SY33-8557
SY33-8557
SY33-8557
SY33-8557
SY33-8557
SY33-8557
SY33-8557
SY33-8557
SY33-8557
SY33-8557
SY33-8557
SY33-8557
SY33-8557
SY33-8557
SY33-8557
SY33-8557
SY33-8557
SY33-8557
SY33-8557
SY33-8557
SY33-8557
SY33-8557
SY3J-8557
SY33-8557
SYJ3-8557
SY33-8557
SYJ3-8557
SY33-8557
SY33-8557
SYJ3-8554
SY33-8554
SY33-8554
SY33-8554
SY33-8554

DOS/VS IP!. and Joe Control

i

~

Message

~

PLM

Message

Phase

~

4C15r:
4C16D
4C17r:
4C17D
4C17r:
4C20D
4C21l\
4C22A
4C23r:
4C24A
4C24A
4C24A
4C24A
4C24A
4C24A
4C2QA
4C26I
4C27D
4C28r:
4C42A
4C43A
4C44A

PDAlD
PDAlD
PDAlD
SDAIDl
SDPI'.R
PDAlD
PDAlD
PDAlD
PDAlD
$$BPDAIr:
PDAlDF'I'I
PDAIDG'IF
PDAlDG'I'I
PDAlDI'IF
PDAlDI'I'I
PDAIDTC'I
PDLIST
PDAID
PDAID
DUMPGEN
DUMPGEN
OUMPGEN

SY33-8554
SY33-8554
SY33-8554
SY33-8554
SY33-8554
SY33-8554
SY33-8554
SY33-8554
SY33-8554
SY33-8554
SY33-8554
SY33-8554
SY33-8554
SY33-8554
SY33-8554
SY33-8554
SY33-8554
SY33-8554
SY33-8554
SY33-8554
SY33-8554
SY33-8554

4C46A
4C50E
4C5lr:
4C52E
4C53l
4C54l
4C55r:
4C56E
4C57E
4C58D
4C59r:
4C60D
4C6lr:
4C62D
4C63D
4C64D
4C65r:
4C66D
4C67r:
4C68D
4C69D
4El0l

DUMPGEN
PDAlD
PDAlD
PDAlD
SDAlDl
SDAlDl
SDAlDl
SDAIDl
SDAlD2
SDP!'.R
SDPAR
SDPI'.R
SDPI'.R
SDPI'.R
SDPI'.R
SDPI'.R
SDPI'.R
SDPI'.R
SDPAR
SDPI'.R
SDPI'.R
$$ABERAA

SY33-8554
SY33-8554
SY33-8554
SY33-8554
SY33-8554
SY33-'8554
SY33-8554
SY33-8554
SY33-8554
SY33-8554
SY33-8554
SY33-8554
SY33-8554
SY33-8554
SY33-8554
SY33-8554
SY33-8554
SY33-8554
SY33- 8554
SY13-8554
SY33-8554
SY33-8552

A~~endix

c:

'Ictal

Messa9~

Cxcss Reference

285

_Ao:.Po:.FE:::;No;.:D_I""X=-==D~:_=.EX:;;P:..;L;;:A;:.;N;.;:;A..,T;.;;;I;..;C~N~OF FLC~CHART

EXAMPLE

DESCRIPTION

..... Al ••••••••••

•••

••
•
•
*B2
_
•.................•
PROCESS

A group of program Instructlonl that perform
a prores5lng function of the program. The
label, If any, IS shown above the block.

•..*•.*•• *
•

REFERENCES
TO
BJBIt'
BA04, 8(82

-

••

••••• 81 ••••••••••
-LABEL 1
BW.

*-*-*-.-*-*-.-*-.
•
•

of the routine and the flowchart 10 appear
above the stripe.

-*
-•
•
-••••••••••• -

An Instruction, or group of instructions, that
changes portion of a routine or initializes a
routine for a given condition.

-•••••••••••••••••SUBROUTINE

•• Ct •••••••

-

DeSCription or title of a routine that IS detailed on another flowchart. The starting label

*

-

PREPARATION

_

SYMBOLS

START

BtH

X

• •• 84 ••••••••••••

•
•
•••••••••••••••••
REAO
A RECORD

.- .*
••
*.

Cit

.-x. *.
••

• •••• C5 ••••••••••

.

.

.ERPT'I
BG.
*.••••••••••
YE S
ERROR
x*.-.-.-*-*-*-.-*-.•
••
* ERROR ROUTINE *
•• • ••NO
•••••••••••••••••

....

it

••••• 01 •• • •••••••

•-_ .•.PREDEFINED
*•
*
•
•
PROCESS •

•• ••
•• ••
•••••••••••••••••

A group of operations not detailed in the
flowcharts In thiS manual, such as user routines.

*• ••••
t;1t •
•

.

it
••••• D4 ••••••• ~ ••

-

*-

PROCESS
THE RECORD

*

••••••

•
•

•
•••••••••••••••••••
)<

• •• £1 ••••••••••••

• INPUT IOUTPUT •
•
•
•••••••••••••••••
Fl

•* •••

.* .*DECISION *. •.••
•• •.
.* .*

••

USEX15
Any function of an Input!oo1put device or
program, usually branching to an 1/0 routine
to perform the function stated in the block.

.* .•

••

Points where the program branches to alternate processing, based upon variable conditions such as program SWitch settings and
test results.

••
••

F4

•••

....
Al TEP EO

•••••
-BD • Dit.
•••
FILINPT

••

•

•

..F5 •••••••

.

*T

MODIFY
DPt I\IT

•_

.

NSTRUCTt ONS •

•

•••••••••••

x.

Git

•••

•

••

..ALL RECORDS •• NO
•• PROCEsseo ••••••

....
•

••••• •

YES

• NO

••

On-page connector_ An entry from or an exit
to another function on the same flowchart.
The location 10 the connector Identifies the
block to which entry on a chart IS made.

•• ••

ROUT! NE • •

Git ••
•
.X •••••••••••••••••••••••••
••••
X

RECPRO

•

USE~

•• ••
•• ••
•••••••••••••••••

•••••••••• X.

..
.. ..
.. .-

-

The beginning or end of a program or routine.

•• ••

x*

••

.*RECORD *. ••

••

•

•- ••••
•
C2 •

YES

••••••••••

:X
........................ :
X

RECAlT

•

TERNINAL

• ••••ES ••••••••••

*. ••

•• * . . * ••

••••

·••••••••••••••••-•

••

USEP

OPTION

*. ••

-

•••• Ct •••••••••

•••

•• • ••NO

•• .*

•

Eit

.*

i<
•••••
-8l •
• At·
••
•
PRINT

YES

X

•••• H4 ••••••• • •

*

•• ••••••••••••••••*
END-OF-JOB

•

Off-page connector.

An entry from, or exit
to, a given point on another flowchart. The
characters in the connector Identity the chart
and block to which or from which control IS
passed. The corresponding label, if any, is
placed outside the outgoing connector. For
multiple entries, an astensk IS placed In the
connector and the locations from which
control is passed are listed nearby.

Appendix C: Explanation of Flowchart

SyItl::ols

287

AFFENDI!!X--=E..:.:_.::::S.::AMPI.E !!l§TIC PRINTOU'I'S

I.!l
//

~/

LISTIO SYS
••• BACKGROUND •••

I/O UNIT

CMNT

CHNL

UNIT

o
o
o

SY5RDR
5Y51PT
5Y5PCH
5Y5L5T
SYSLOG
S Y S LN K
SYSRES
SY5SLB
SY5RLB
S Y S RE C

o

I/O UN I T

••• BACKGROUND •••
MODE

OC
OC
00
OA

I

.*.

LlSTIO ALL

I/O UNIT

CMNT

5YSRDR
5YSIPT
SY5PCH
5Y5LST
5Y5LOG
5YSLNK
5YSRE5
SY55LB
5Y5RLB
5YSREC

IF

1

91
92
b\ UA ."
.,\ UA ''''
91
1

CHNL

UNIT

MODE

DOC
o
DC
o
00
1
OA

o

1F

1

91
92

1

"* UA 0',
.,', UA ."
91

~

BACKGROUND

.';.';1;

// LI5TI0 PROG
I/O UNIT

"***
I/O UNIT

CMNT

SY5000
SYSOOI
5YS002
SY5003
5Y5004
SY5005

r:!J//

CHNL

UNIT

MODE

o
o

91
91
o
91
o
91
,\i, UA ,"',
,,,, UA *"

LI5TI0 F2
FOREGROUND 2 •••

110 UNIT

CMNT

SYSRDR
5Y5IPT.
5YSprH
5Y5L5T
SY5LOG
5Y5LNK
5Y5RE5
5Y55LB
5YSRLB
5Y5REC

CHNL

UN

IT

MODE

UA .,,\
,", UA *,'
i; ..~

IJA

CMN T

CHNL

UN I T

"" UA
'd UA
,,', UA
H
UA
,\;', UA
:,,', UA
"" UA
"" UA
,',,', UA
:.,', UA
"" UA
,',,\ UA

MO DE

',A
""
''',
,'",
',A
''''
,,,\
""
",',

5Y5013
5Y5014
5Y5015

,,,', UA ""
,'", UA ,,',
UA ,,',

Note: The 1st line of each sample shows the control

by

rHNl
,'.,'
,,',
,;;',
,'.',
,,,',
,. ,',

UNIT
UA
UA
UA
UA
UA
UA

,',,', UA
,,', UA

f!JII

iob control.

I/O UN

IT

2.

List all background programmer units,'

3.

list all foregrcund 2 units.

4. List all units.
5. List a specific unit (SYSXXX).
6. list the logical units assigned to all physical
devices.
7. List all unassigned units.
8. list all down units.
9. List all logical units assigned to a specified

C MN T

5Y5000
5Y5001
5Y5002
5YS003
5YS004
5Y5005
5Y5006
5YS007
SYS008
5YS009
5YS010

"*

""
,\;,
""

CMNT

CHNL

UN I T

BG
BG

90
91
91
91
91
91
91
91
92
92
92
80
81
82
83
84

rTI
1/

CMNT

CHNL

MOD

eye; r C:T

,', UA •
SYSLNK
SY5REC
5'15001
5Y5002
5Y5003
5YSREC
SYSREC
S Y 5 RE S
5YSRES
5 Y 5 RE S
UA
,', UA
UA
UA
UA

BG
BG
BG
BG
BG
F2
F1

BG
F2
FI

LISTIO UA

'n\

••• UNA5SIGNED •••

""
'd,

UNIT

CMNT

SYSRDR
5Y51PT
5YSPCH
" UA "
SYSLQG
SY51N

pc

MODE

,,,'
,,,',

I/O UNIT

BG
BG
BG

IF

CHNL

UNIT
80
81
82
83

[TI
1/ LISTIO DOWN
DOWN

H

,',;'.;', FOREGROUND

5YSRDR
5YSIPT
SYSPCH
SY5L5T
SYSLOG
5Y5LNK
5YSRES
SYSSLB
5YSRLB
5Y5REC

OWNER

1F

MODE

,,,'

,;;';
,';"
'n',
,',,",

MODE

OC

OC
OC
00
OE

""
92

,',l(

*••

II LISTIO UNITS

""

UA
"'\ UA
"" UA
,';" UA

'n'
''''
,\.
,,',
''''
,\;\
,\;,
'n',

UNIT

5YSRDR

,'d

UA

;~,'(

;d,

MODE

,',.
,\;,
,",
".
,",
""
."

~

,';;'; UA ""
,',A UA ,'c;"

S Y5 0 II

I/O UNIT

CHNL

UA ...

SY5012
5YSOl3
5YSOl4
5Y5015

UN I T
UA
UA
UA
UA
UA
UA
UA
UA
UA
UA
UA
UA
UA
UA
UA
UA

••• BACKGROUND

,,,,
''',

UNIT

"" UA
:.', UA
UA
,'", UA
,'n, UA
,b, UA
,'d, UA
UA

',A

."
,',.
."
,,;;,,
""
".
".

I/O UNIT

FO RE GRO UN 0
CHNL

,h,
,,',
""
".

LISTIO SY5RDR

91
;',,',;';

1. List all background system units.

Figure 6.

MODE

id;

UA :',:',

statement as it was logged

CMNT

5Y5RDR
5Y51PT
5Y5PCH
5Y5L5T
5Y5LOG
5Y5LNK
5 Y 5 RE 5
5Y55LB
5Y5RLB
5Y5REC

,h',

5Y5012

physico~ unit.

UNIT

CHNL

5Y5000
5Y5001
5Y5002
SY5003
5Y5004
5Y5005
5YS006
SYS007
5YS008
5YS009
SYS010
S Y50 11
SYSOl2
5YS013
5YSOl4
SY5015

FOREGROUND
lID UNIT

:'d-

,,,, UA ""
,,,, UA *"
"" UA ."
92
.,' UA ,,,,
UA ,H,
91

5Y5000
5Y5DOI
5Y5002
5Y5003
5Y5004
5'15005
5YS006
5Y5007
5Y5008
5Y5009
5'15010
5 Y50 II

CHNL

"" UA ,\,\
91
91
91
"" UA ""
,\ ,', UA ,'n,
'''"' UA H
'''' UA ,,,',
''', UA ,;;',
,,', UA ,';;';
,'", UA ,,,',
"" UA
"" UA ".
.,', UA ,'",
UA
'd, UA

5YSODO
5YSOOI
SY5002
5Y5003
5Y5004
5Y5005
SYS006
5YS007
5Y5008
5Y5009
5Y5010
S YSO 11
5YS012
5Y5013
5Y5014
5Y5015

,',A

••• FOREGROUND T •••
110 UNIT

CMNT

BACKGROUND ',H

FOREGROUND 1 •••

CMNT

CHNL

MODE

'dd,

UNIT
NONE ,,;;,,

)':;',

UA

""

,H, UA in'
,';" UA ,'d,
UA ,,,',
,H, UA ,'d,
". UA ""
92
"" UA ''',
,'", UA ""
91

W
// LI5TI0
CHNL

X'OlF'

UNIT
IF

OWNER
BG

I/O UNIT

CMNT

MODE

5YSLOG

Sample LISTIO Printcuts
A~pendix

E: SaRFle

LIS~IO

Printcuts

289

APPENDIX F:

VARIOUS CONTROL ELCCKS AND TABLES

nnCOMREG
0
0

OA
10

8
8

17
23

OC
12

20
32

18
24

Date

Address of
PPBEG

Address of
EOSSP

Prob lem Program Use

UPSI
Byte

Job Name

xxxxxxxx

xx

xx

xxxxxxxxxxx

x

xxxxxxxx

30

34
52

2E'
46

48
End of
Virtual
Storage
Address
xxxx

PIK
xx
40

42
66

64

135
53

136
54

Machine
Configur.
Byte

System
Configur.
Byte

x

x

38

137
55

24
36

3A

44

46

48

70

72

4A
74

4C
76

4E

language
Translator
Control
Byte
x

xx
3E
62

60

Disk Address Address
of
of
label Cylinder FOCl

Job Durat ion
Indicator Byte
x

xx

xx

I

4F
79

78

Label
Area
length

3C

13B
59

58

Standard
Dump, log,
linkage
language REllDRand Job Control
Control
Translator
ASCII
Byte
Byte
I/O bptions Options
x
x
x
x
:Job Control Switches

68

2C
44

Address of upperHighest
End Address of
Storage
most Byte of Phase
Last Phase
Address of
with highest
Fetched or loaded
the Partition
End i ng Address
xxxx
xxxx
xxxx

139
57

56

28
40

58
88

5A

5C

90

92

Address
of
PUBTAB

Address
of
FAVP

Address
of
JIBTAB

Address
of
TEBTAB

Address
of
FICl

Address
of
NICl

Address
of
LUBTAB

line Count
for
SYSlST

System Date

llOCS
Comm.
Bytes

Address of
PIB Table

10 Number of
last Checkpoint
or DASDFP
,..,~;"""",=,r

xx

xx

xx

xx

xx

xx

xx

x

xxxxxxxxx

xx

xx

xx

60

5E
94

62
98

96

64

Job Zone
in
Minutes

Address of 0 isk
Information
Block (DIB)

Reserved

xx

xx

xx

70
112

74
116
Address of
J .A. Partition
Table

XXXx

xxxx

88
8C
136
140
Pointer to Option
Standard
Table in SYSCOM
Job
Reserved for
Control
compatib iii ty
Options

reasons

xxxx

x

Address of IT
Option Table

xx

78
120

Address of
SYSPARM

Address of PC
Option Table
less 8 bytes

Address of OC
Option Table
less 8 bytes

Key of Program
with
Timer Support

Reserved

xx

x

xx

7E
126

6C
108

84

80
128

6E
110

logical
Trans ient Key
(lTK)
xx

86
134

132

87
135

Address of
PIB Tobie
Extension

Address
of MICRDTF
Table(PDTABB)

Address
of QTAM
Vector Table

Address
of BG Comm.
Region

Option
Indicator

System Configuration
Byte 2 and RMSR
Open F lag Byte

xx

xx

xxxx

xx

x

x

xxxx
80
141

6A
106

xx

7C
124

Address of
TOO clock
Common Area

104

68

66
102

100

8E
142

8F
143

97
151

9F
159

98
152

Temporary
Job
Control
Options

Disk
Configuration

Catalog
Procedure Name

Switch for
Catalog
Procedure

JCL
Statement
Name

81 bytes
SYSIN Indicator

x

x

xxxxxxxx

x

xxxxxxx

x

Note: A communication region exists from each partition supported by the system.
The address of the communication region of the active partition is in fixed
location X'14'-X'17'

Figure 7.

Partition communications Region (Part 1 of 6)

A~pendix

F: Varicus Ccntrel Blecks and Tatles

291

r----T----------------------------------------------------------------------------------,
Description of Use
I

IKey I

~----+----------------------------------------------------------------------------------~

o

MM/DD/YY or DD/~M/YY either set perrranently ty the jot contrcl date staterrent, or
updated every time a GE~IME macro is issued when ~ime-of-Day support is provided.
Format controlled by EGCCMREG+53.
(Systen Configuration Byte, date ccnvention
bit 0.)

8

Address of the problen prcgrarr area.

10

Address of the ceginning of the protlen

12

User area. If seek separation cpticn is specified, tytes 12 and 13 are used at
IPL time for the address of the seek address clock.

23

User program switch indicatcr.

24

Job name set cy the job control program frorr information found in the jcc
staterrent

32

Address of the upperrrcst cyte availatle tc the ~rctlerr prcgran, that is, either
the address of the uppernost byte of the partition as deterrrined during
processing of the ALLCC cr ALLOCR nacrc cr staterrent. or the end address cf the
area specified cy the SIZE ~ararreter in the EXEC statement.

36

Address of the upperrrost cyte of the last phase of the problerr prograrr fetched or
loaded. Not filled in when phase is in SVA.

40

Highest ending nain-storage address cf all the phases having the sane first fcur
characters as operand on the EXEC statenent. For the phase $LNKEDT, this field
is not filled in. ~he address value nay te inccrrect if the prcgrarr lcads any of
this phase above or celow its link-edited origin address.
If the EXEC staterrent
has no operand, job ccntrcl places in this locaticn the highest ending address of
all programs just link-edited.

44

Length of the problen progran label area.

46

Partition Identification Key (PIK). The law-order byte identifies the active
partition. Only significant for BG ccnrrunicaticn region.

I
I 48
I
I 52
I

~rcgrarr

area.

Y(EOSSP) equals Y(FPEEG)

End address of virtual stcrage.
Machine Configuration Byte (values set at supervisor generaticn tine).

I

Bit 0: Always set tc indicate standard stcrage protect
1: 1 = Decimal feature (always set)
2: 1 = Floating-point feature
3: 1 = Physical transient overlap cpticn
I
4: Always set to indicate standard timer feature
I
5: 1 = Channel switching device
I
6: 1 = Burst mode on nultiplex channel support
L
JI
I ____ ~ __________________________________________________________________________________
7: Indicates MCH/CCH ir. systerr

I
I
I

Figure 7.

292

Partition Communicaticns Region (Part 2 of 6)

DCS/VS IPL and Joe Contrcl

r----T----------------------------------------------------------------------------------,
IRey I
Description of use
I
I~----+----------------------------------------------------------------------------------i
53
Systerr Configuration byte.
I
I
I
I
Bit 0: 1 = DDM~YY (Date ccr.vention bit set at generation tirre ty STDJC)
I
I
0 = MMDtYY (tate convention bit set at generation tirre by STDJC)
I
I

1:

I
I
I

2:
3:
4:
5:

I

I
I

I

6:
7:

I

I
I 54
I
I
I

1 = Two or rrcre Fartiticns
0 = One partition only
1 = DASt file-prctect sUFForted
1 = DASt SYSIN - SYSOUT
1 = Teleprocessing
1 = Two or rrcre partiticns
0 = One partiticn cr.ly
1 = Asynchroncus prccessing
1 = Track Hcld

I
I

This byte contains the standard language translatcr I/O opticns (set by STDJC
macro).
Bit 0: DECR option
1: LIST option
2: LISTX option
3:
4:
5:
6:
7:

55

1
1
1

= yes,

eutput otject rrodules on SYSFCH
seurce ncdule listings anc diagncstics cn

= yes, cutput
SYSLST
= yes, cutput

hexadecinal object nedule listings en
SYSLST (cerepilers only)
SYM optien
1 = yes J cutput syrrbcl tatles en SYSLST/SYSPCH
XREF option
1 = yes, output syrrtolic cress-reference list on SYSLST
ERRS option
1
yes, cutput diagncstics cn SYSLST (eenFilers cnly)
CHARSET epticn 1 = 48, input on SYSIFT is 48 or 60 character set
Reserved

=

This byte contains the standard superviscr epticr.s fer atnornal EOJ, Relccating
r,o~d~~ ~nd Control staterrent displav and the indicator for the ~resence ef the
ASCII-EBCDIC and EBCtIC-ASCII translatien tatles.
Bit 0: Always on
1: :CUMP option
2:

1 = yes, dump registers and storage on SYHST'
1 = Fartiticn in 'lliait state, because a vcl\;ne is tc be

rreunted

3: LOG optien
4:
5: Not used
6: Relocating

1 = yes, list all centrel statenents en SYSLST
1 = duremy device searoh in ];:rogress; do net enter ERP

Load option
7: ASCII option

1
1

= yes,
= yes,

Relocatir.g Lcader supported
ASCII supported

56 I Job Control byte.

I

1 = Job Accounting Interface (JA) not supported
1 = Return tc caller on LIOCS disk cpen failure
1 = Job Control input from SYSRtR
0 = Job Contrcl inF~t fron SYSLCG
3: 1 = Job Contrel output cn SYSLOG
0 = Job Contrcl cutFut nct cn SYSLCG
4: 1 = Cancel jot
I
5: 1 = Pause at End-cf-Job steF
I
6: 1
SYSLOG is not a console printer-keytcard or DOC
I
0 = SYSLOG is a ccnsole printer-keytcard cr DOC
____ I __________
JI
7: 1. ________________________________________________________________________
= SYSLOG is assigned to the sane device as SYSLST
I Bit 0:
1:
2:

I
I
I
I
I
I

=

~

Figure 7.

Fartition Corr.municaticns Regicn (Part 3 cf 6)

Appendix F: various Control Blocks and Tables

293

r----T----------------------------------------------------------------------------------,
Description of Use
I

IKey I

~----+----------------------------------------------------------------------------------i
57
Linkage control byte.
Bit 0:
1:

1 = SYSLNK c~en fer out~ut
1 = Update of Second Level Directory and RAS Load list in progress

2:

1 = Allow EXEC

(interface
3:

4:
5:
6:
7:

bet~een

$M1UN:CIR and

su~ervisor)

0 = Suppress EXEC
1 = Catalog Linkage Editor output
1 = superviser has been u~dated
Reserved
1 = Update cf systen Core Inage Library ir. pregress (interface I:etween
$MAINDIR and Su~ervisor)
1 = Check autewatic condense Units and Er.d-of-Jcb (ir.terface bet~een
Librarian and Jeb Centrol)

58

Language processor contrel byte. This is a set of switches used to specify
nonstandard language translator e~ticns. The s~itehes within tte b}te are
controlled by job central CFTION statements and ~hen set to 1, everride standard
options. The format cf this byte is identical tc the standard c~ticn I:}te
(displacerrent 54) with one exception: Eit 7 in this byte is used te indicate to
LIOCS that the rewind and unlead epticn has been s~ecified.

59

Job duration indicater byte.
Bit 0:
1:
2:
3:
4:

5:
6:

7:

1
1
1
1
1

=
=
=
=
=

Job in pregress
Dump on an abnermal End-of-Job condition
Pause at EOJ step (Set by attention routine for Jeb Control)
Job contrel cutFut en SYSLS~
Job is being run out of sequence ~ith a temporary assignrrent for
SYSRDR
o = Conditions for i-setting not wet
1 = PCIL is being ccndensed
1 = //DATE staterrent precessed fer current job
1 = Batch cennand just issued
o = Conditien for 1-s~tting did net occur

60

Binary disk address of the volurre label area (label cylinder).

62

As illustrated (for detailed figures see Index).

76

As illustrated (for detailed figures see Index).

78

Set to the value nn specified in the LINES=nn parameter of the

79

The forrrat of the system date centained ~ithin this field is deterrrined by the
IPL program fron infcrrraticn supplied in the date conventien I:it (displacerrent
53). Bytes 85-87 ccntain the day ceunt.

88

Bytes reserved for use by LIOCS. Transient dump programs insert a key te
indicate to the LIOCS End-cf-Volume reutine, $$EC~T07, that it ~as called by a
E-transient.

S~DJC

nacre.

90
Address of the first part of the Progran Information Elock (PIE) table.
----~---------------------------------------------------------------------------------Figure 7.

294

Partition Cewmunicatiens Regien (Part

DOS/VS IPL and Job Control

q

of 6)

r----T----------------------------------------------------------------------------------,
IRey I
Description cf Use
I
~----+----------------------------------------------------------------------------------f

I 92 I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
94 I
I
I
96 I
I
I
I

98

ID nurrber of the last
file protected DASD.

check~oint.

Eyte 92 is alsc the terrporary indicatcr of

Bits 0-6 correspond tc channels 0-6.
Eit 7 indicates 2321 tAStFP sup~ort.
Eit 0:
1:

1
1

= 3330

= 3340

A tit ON rreans DASDFP fer that channel.
Byte 93 is used at IPL tirre by PIOCS.

file protection
file prctection

Job zone for Tirre-of-Day.
is negative.

If ZCNE=EAST, value is

~csitive~

if ZONE=WEST, value

Address of disk 1/0 ~esition data. This is the starting address of the Disk
Inforrration Block (DIB) table fer the ~artitien.
Reserved.

100

PC option table (zerc if nct specified).

102

IT option table (zerc if net specified).

104

OC option table (zere if net specified).

106

X~0010~ if interval tirrer s~pport.
X'OOOO' if no interval tirrer su~port.

108

Reserved.

110

Logical Transient Key (LTK) contains the sarre value as the FIR (PID)
!~icpl~~e=.e~t ~6~ wh~~ th~ logical t~~n~i~nt is xequested.
When the transient
area is not in use, LTK is equal to zero. The SVC 2 routine sets the LTK. The
SVC 11 routine resets the LTR.
(Only significant in BG ecrrrrunieatien regions.)

112

Address of SYSPARM field.

116

Address of Job Accounting

120

Address of the Time-cf-Day Cleek corrrrcn area.

124

Address of second part cf Prograrr Inferrraticn Bleck (PIB) table.

126

Address of PDTABB, table cf DTF addresses fer

128

Address of QTAM vector table (IJLQTTAD).

132

Address of background ccrrrrunicaticns regien.

134

Option Indicator byte.

~artiticn

table.

~ICR

su~port.

Bit 0: Reserved
1: 1 = EU interface active
2: 1 = Teleprocessing request
3: 1 = Supervisor su~~crt for tape
4: Reserved
5: 1 = RETAIN su~port generated
6: 1 = Linkage tc Channel End A~~endage Rcutine allcwed
L
J
I ____ I __________________________________________________________________________________
7: 1 = GETVIS fUncticn has been initiated
~

Figure 7.

Partition Ccmmunicaticns Regicn (Part 5 cf 6)

A~pendi~

F: Varicus Ccntrcl Blceks and Tables

295

r----T----------------------------------------------------------------------------~-----,

IKey I

Description cf Use

1

~----+----------------------------------------------------------------------------------~

1135 1 Systerr Configuration byte 2 and RMSR Open Flag byte.

1
I
1
1

1

I
I Bit 0:
I
1:
I

2:
3:
4:
5:
6:
7:

I

1

I

1
1

1
I
1

1 = PCIL supperted
1 = TOD-clock suppcrted
1 = PFIX macre suppcrted
1 = Fetch $$EOPEN by $JOBCTLJ
1 = Fetch $$ECPEN by $JCBCTLD
1 = Fetch $$EOPEN by $JOECTLJ fcr W'IM
1 = QTA~ suppcrted
Reserved

I

136 1 Pointer to Opticn table in EYSCOM Reserved for cerrpatibility reasons.

1

140 1 Standard Job Control Option byte.

1

1 Bit 0:
1:
1
2-6:
1

7:

I

1 = EDECK Standard Opticn
1 = ALIGN Standard Cpticn

Not used
1 = ACANCEL Standard Opticn

1

141 1 Temporary Job Ccntrcl opticr. byte.

I

Bit 0:
1:

2-6 :
7:
142

1159

1
1
1
1

1
I
1

Not used
1 = 3340 suppcrted
1 = 3330 supported
Always 1; indicates 2311 and 2314/2319 supported

Interface byte for Catalcged Prccedures.
Bit 0:
1:
2:
3:
4:
5:
6:
7:

152

EDECK Terrporary Opticn
ALIGN Terrporary Option
used
ACANCEL 'Iempcrary Option

Disk Configuration tyte.
Bit 0-4:
5:
6:
7:

151

1 =
1
Not
1 =

1 =
1 =
1 =
1 =
1 =
1
1 =
1 =

Procedure being executed
Overwrite precessing
Procedure with data
Overwrite request fer Jct Ccntrel
Insert request fcr Jct centrel
Procedure end
SYSLOG precedure
Overwrite request fer Supeviscr

JCL staterrent name for Cataloged Procedure.
SYSIN 81 bytes indicator.
Bit 0:
1:
2:
3:
4-6:
7:

1
1 =
1
1 =
Nct
1 =

Perrranent 81
Perrranent 81
Temporary 81
Temporary 81
used
Allcw /& for

1
bytes
tytes
bytes
tytes

cn
en
cn
en

SYSRDR
SYSIP'I
SYSRDR
SYSIP'I

1
I
I
1

1
1
1

~AINT CATALS
L ____ ~ ________ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - __________________________________ J

Figure 7.

296

Partition communicaticns Region (Part 6 of 6)

DCS/VS IPI and Job control

SVSCOM
0
0

8
8

4
4

Address of
Errar Block

Address of
Attention Exit

xxxx

xxxx

IC

20

28

32

OC

OA
10

Addre .. of
Operator
Option
Concel Exit
xx
24
36

10
16

12

Addre .. of
Operator
Request
Cancel Exit
xx

Address of
SYSRES PUB

Address of
Fetch Routine

2C
44

2A
42

40

2E

Free
list
Pointer

Address
of
Channel
Queue

Number of
Channel
Queue
Entries

Length of
One Error
Queue
Entry

Number of
Partitions

xxxx

xxxx

x

xxx

xx

xx

xx

3C
60
Address of
SABTable

Address of
Channe I Control
Table

xxxx

Sol

58
88

xxxx

I

5A
90

Address of
ASCII
Translate Table

Address of
PUB Ownersh i p
Table

xxxx

xxxx

98
152

94

148
Address of PTA

Address of first
System Task Block
xxxx

xxxx

Address of
Job Accounting
Common Table

Reserved

Routine

Translation Routine

Address of
SDAID
Comm. Area

xxxx

xxxx

xxxx

AI
161

A2
162

I byte for
Alignment

Pointer to
RAS Task
Block

x

x

IBC
188
Not used

Not used

Not used

xxxx

xxxx

xxxx

xx

xx

Address of
Segment Table

Address of
Address of
Page Frame Table
Page Frame Table
Extension

FO

F4
244

240
Address of
fetch
Table

xxxx

Figure 8.

(seeexpanslOn)

x

I~

Address of
Line Mode Table

Address of VSAM
Communication
Area

xxxx

xxxx

Pointer to

SUPVR Task
Block
x

Pointer to
CRT Task
Block
x

'Repositioning Information
for MFCM ERP

Number of
Error Queue
Entries

xxxxxxxxxxx

166

Pointer to
ERP Task
Block

x

Address of
DPD Table

Reserved

xxxx

xxx x

xxxx

Reserved
(g X'OO')
xxxxxxxxx

x
CE
206

Length of
PUB Table
in bytes
xx

Number of
Active
Partitions
xx

EC
236

E8
232

E4
228

POinter to
PAGE IN
Task Block

)(

CC
204

leB
203

A7
167

A6

A5
165

Address of
VIRT AD Routine
xxxx

Address of
End of Rea I Starage
xxxx

F8
248

F5
245

SVAFlag

Pointer to

Address of
Boundary Box

xxxx

xxxx

xxxx

112

Addre.. of
Address af
OLTEP bucket RASlinkage
Area
xxxx
xxxx

A4
164

PMGR Task
Block
x

EO
224

DC
220

D8
216

A3
163

Ico192

IBE
190

70

18C
1Jn

-.

Address of
MVCFLD

D4
212

xxxx

188
I?

Not used

DO
208

xxxx

Base Address of
Base Address of
Page Management Channe I Program

AO
160

Addre .. of Task
Block of Active
System Task
xxxx

Address of
EU ECB Table

1N _
0

xxxx

6C
108

Address of
RF Tobie

1840

Address of
Timer Request
Table

xxx

68
104

xxxx

xxx x

list
Pointer
x

100

, .......

B8
184

B4
180

xx

Addre ..
of
TH Table

Free

64

xxxx

9C
156

xxxx

BO
176

Addre.. of
POWER Table

,.~

'LV

.

xxxx

50
80

4D
77
TH

Address of
PD Area

Address of
CRT Table

xxxx

4C
76

Address of
Tosk
Selection

60
96

5C

92

Key of Task Key of Task
running
owning LTA
(L1K)
(TIK)
xx
xx

I~.

0

xx

xxxx

34
52

xx

n

x

Address ~f
Channel Buckets

Not used

48

46
70

System Task
Flags and
Switches
Selection
(See expansion). Control Field

xXXx

84
Address of
AB Table

44
68

40
64

Address of
Ext .Interr. Routine

30
48

46

Address of
lst byte of
Prob lem Program
Area

38

Address of
Interr. Routine

1/0

xxxx

Address of
Logical Transient
A,..a

56

18
24

xxxx

28

25
37

14
20

• See nex t page for fu rther explanatIon,

Address
Address

of System

of SVA

GETVIS AREA

x xx

xxx x

System Communication Regicn (SYSCCM)

A~pendi~

(Part 1 cf 2)

F: Varicus ccntrcl Elccks and

~atl€s

297

EXEansion of SYSCOM Flag Bytes

r-----------T---------------------------------------------------------------------------,
Byte
I
I

I
I

Dec

Hex

rescri~ticn

I

I

~-----------+---------------------------------------------------------------------------i
I

64

40

I

I

I

65

41

I

X'80'
I X'40'

66

42

67

43

244

F4

I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I

~odel

115 and 125

RMSR for channel attached devices, tapes and IP devices
Full R~S supfcrt (MCAR/CCH and RMSR)
MCAR/CCH suppcrt

X'Ol~

Initial selection of ERP
Reserved
Timer interruft pending
MICR Stacker-select active
Invalid address during fetch
SIO rcutine entered after interruft
Reserved
IFL in frcgress

X' 80'
X'40'
X'20'
X'10'
X'08'
X'06'
X' 02'
X'Ol'

Initial RAS request
RAS Wait request cutstanding
RAS IFI in frcgress
Reserved
PCWER st:ppcrted
PCWER initialized
GETREAL fcr StAID or FDAlr in prcgress
Fetch fer system task in frogress (used by FOAID)

I

I X'20~

I

I
I
I
I
I
I

Reserved for RMS in

I X'80~
I X~40'
I X~20'

I
I
I

I

I

I

X'10'
X'08'
X'04'
X'06'

I

I
I
I
I

I
I

I
I

Reserved
SVA Flag
Dc nct test fcr warrr start cCfY cf EVA
X'40~
StL active
X'20' Nc 'Set SVA' cr 'Set StL' allcwed
X'10' Build cf srL in progress
X~08'
SDL overflcw
X'04~
Reserved
X'02' Reserved
X'Ol' Reserved
X~OO'

-----------~--------------------------------------------------------------------------Laycut of System Task

selection_£~~21

FielQ

r-----------T---------------------------------------------------------------------------,
Byte

I

I

I

I Dec
Hex!
rescripticn
I
~-----------+---------------------------------------------------------------------------i
I

I
I

68

69

44

I

45

I
I

I

Always zerc

I

I
I

SELECT byte:

I

I
I

I

I X'OO'
I X'Ol~

Ne system task active
I
RAS active
I
I
I X'02"
PMGR active
I
I
I X~03' SUPVR active
I
I
I X'04'
CRT active
I
I
I X~05~ ERP active
I
JI
IL___________ I ___________________________________________________________________________
X'06'
PAGEIN active
~

Note:

The address of

Figure 8.

298

SYSCC~

can te found at fixed lecaticn X'80' - X'83'.

System Corrmunications Region

DOS/VS IPL and Jot Ccntrel

(SYSCC~)

(Fart 2 cf 2)

r-------T---------T---------T---------T---------T---------T---------T---------T---------,
IType codelReserved I
IReserved 1
1
1

I
ITransI
I
Imission ICSW
ICcunt IInfcrrra- IStatus
I
Ition
IBits
112
314
10

land
Ifcr
ILogical
ILogical
IUnit
IIOeS
516
71
8

1
Ifcr
ICCW
IPhysical
IAddress I laCS
19
111
12

~-------~---------+---------~---------~---------~-----

____ _________
~

ICCW
IOpticnal I
IAddress
Isense
I
lin esw
ICCW
I
113
15116
231
4 _________ 4 _________ ~

I
~-----------------t---------------------------------------------------------------------~

IByte(s)

I

Descripticn

10-1 Used fcr re- I
sidual count. I
I

1
1

~-----------------t-----------------------------------------------------------T---------~

12-3 Transwitting
I
information
I
between PhyI
sical ICCS
I
and Problem
I
Progran

I
!

IByte 2

IBit 0: lraffic Eit (Wait) (Ncte 5).
I
IBit 1: End-cf-File (/* cr /&) 3211-UCSB Parity Check
I
(Line Ccrrplete) (Note 2).

I

1
I
I
I
I

1

I
I
I

I
I
I

!
I

I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
IL____________
Figure 9.

ISet on byl

~-----------------------------------------------------------+---------~

Bit 2: Irrecoverable I/O error.

IPIOeS*
1
IPloes

I
I

PIOCS

Bit 3: Accept Irreccverable I/O error.

Pr.Pr.**

Bit 4: Return tF.SD rata Checks, 3540 tiskette Data Checks,
2671 errers, or 1017/1018 errers tc the user;
indicate action-type rressages for DOC; return 5425
nct ready.

Pr.Pr.

Bit 5: Fest at tevice End (Nete 5).

Pr.Pr.

Bi t 6: Return lape Read tata Check; 1C18 cr 256C tata
Check; 2520, 2540, 2560. 3881, or 5425 Equiprrent
Check: Accept 3504, 3505, cr 3525 Perrranent Errcr:
tASD tata Checks on Read or Verify Comwand on 3203,
I
3211, 2245, cr 5203 Fassbaek Requested.
(Nctes 3,
I
6, and 8)
I

Pr.Pr.

IBit 7: User Errcr Routine,

Pr.Pr.

I

(Ncte 10).

~-----------------------------------------------------------+---------~
IByte 3

ISet cn byl

~-----------------------------------------------------------t---------i
IBit 0: tASD tata Check in Ceunt Area; Permanent Errcr fer
IPIOCS
I
3330, cr 334C; MICR-SCU Net OIerational; 1287/1288
I
I
I
I
tata Check; 3203, 3211 or 5203 Print Check/Equiprrentl
I
1
Check; 3540 Special Reccrd Transferred.
I
I
I
1
I
IBit 1: tASD Track Overrun; ~ICR Intervention required;
IPIOCS
I
I
1287-Keytoard Correction in Journal Tape Mede; 1C17I
Ereken lapej 3211-Print Cuality/Equipment Check.
I
I
I
I
IBit 2: tASD End-of-Cylinder; MICR-(Ncte 4) 1287/1288I
I
Hcpper Errpty in tecurrent Mede: 3211/2245 Line
I
I

Fosition Errcr (Note 7).

I

I

IBit 3: 2520, 2540, 3881-Equiprrent Check; 2560, 3203, 5203,
I
5425 rata Check/EquiIrrent Check; Tape-Read rata
I
Check; tF.SD-Any rata Check; 1287-Equipment Check:
I
1017/1018-Data Check; 3211-Prir.t Check/Data Check:
I
3504, 3505, 3525 Ferrranent Error (Note 8); 3540
1
tiskette Data Check.

PIOCS

I

I
I
I

I
I

I

.~.

I

I

IBit 4: Ncn-Reccvery Questicnable Ccnditicn: Card-Unusual
PIOCS
1
I
Ccrrmand Sequence; tASt-Ne Reccrd Fcund:
I
I
1287/1288-Document Jam or lorn Tape; 3211-UCE Parityl
I
I
I __ - _______________________________________________________
Check (Ccrrrrand retry)~ 5425 net ready.
I _________ JI

""~_._~

~

Comrrand Control Elock (CCB) (Part 1 of 3)
Appendix F: Varicus Control Blocks and Tables

299

r-------T---------T---------T---------T---------T---------T---------T---------T---------,
ITHe Code IReserved I
IReserved I
I
I

I
ITransI
I
I mission I CCW
ICount IInforma- IStatus
I
lticn
IBits
10
112
314

I and
I for
ILogical
ILogical
IUnit
IIOCS
516
71
S

I
I for
ICCW
IPhysioal
IAddress i IOCS
19
111
12

I CCW
10rtional I
IAcdress
Isense
I
lin CSW
ICCW
I
113
15116
231

~-------~---------+---------~---------~---------~---------~---------~---------+---------~

IEyte(s)

1

Description

ISet on byl

~-----------------+-----------------------------------------------------------+---------~
I
I
I
I
I
1
I

IBit 5: No Reoord Found Ccndition (Retry on 2311, 2314,
2319, 3330, or 3340).
I
IBit 6: carriage Channel 9 Overflow or Verify Error fcr
1
J:ASD~ 1287-Dooument ~ode-Late, Stacker Select;
1
1288-End of Fage.
IBit 7: Corrmand Chaining, Retry from the next ccw to be
I
executed.

IPr.Pr.
I
IPIOCS
I
1
IPr.Pr.
I

I
I
I
I
I

I

I

~-----------------+-----------------------T-----------------------------------~---------~

14-5 CSW status
Bits
I
I
I
I
I
1
1
1
I
I

IByte 4 (Ncte 1)

IEyte 5

1

~-----------------------+---------------------------------------------~

IBits:
10(32):
11(33):
12(34):
13(35):
14 (36):
15(37):
16(38):
17(39):

IEits:
Attention
10(40):
status ~cdifier 11(41):
Control Unit EndI2(42):
Busy
13(43):
Channel End
14(44):
J:evice End
15(45):
Unit Check
16(46}:
Unit Excertion
17(47):

Frograrr Controlled Interrurtion
Inccrrect Length
Frograrr Check
Prctection Check
Channel Data Check
Channel Control Check
Interface Control Check
Chaining Check

I
I
I
I
1
I
I
I
1

~-----------------+-----------------------~---------------------------------------------~

6-7 Type Code andlByte 6
I
Logical Unit
~---------------------------------------------------------------------~
IX'Ou' Original CCB (Bytes 9-11 and 13-15 contain virtual addresses)
IX'2u' Translated CCE (Bytes 9-11 contain real address, tytes 13-15
I
virtual address)
IX'4u' B~A~ request criginal CCE (Eytes 9-11 and 13-15 ccntain virtual
I
address)
IX'6u' B~A~ request translated CCE (Eytes 9-11 ccntain real address,
I
bytES 13-15 virtual address)
IX'Su' User-translated CCE in virtual rartition (Eytes 9-11 and 13-15
I
ccntain real addresses)

1

INote: Anyone of the above incren;ented by X'10' (bit 3 on) indicates
lautomatic switching to the teginning cf the next cylinder at
IEnd-of-Cylinder condition.

1

lu:
I

0
1

= rhe

= The

address in byte 7 refers to a Systerr logical Unit.
address in tyte 7 refers to a Programrrer logical Unit.

~---------------------------------------------------------------------~

IByte 7

1

~-----~---------------------------------------------------------------i
IHexadecirral rerresentaticn cf SYSnnn:

I

I

I

ISYSRDR = CO
ISYSIPT = Cl
ISYSFCH = 02
ISYSlST = C3
ISYSLOG = 04
ISYSLNK = C5
ISYSRES = 06

I
1

SYSSIB = 07
SYSRLB = 08
SYSUSE = 09
SYSREC
OA
SYSCLB = OB
SYSVIS = OC
SYSCAT
CD

SYSOOO = 00
SYSOOl = 01
SYS002 = 02
SYSnnn
(Note 9)

I
I
I
I
I
1
1

~-----------------+---------------------------------------------------------------------~

18
Reserved for IBuffer Cffset:
I
I
Logical IOCS IASCII Inrut Tares
X'OO' - X'63'
I
I
IASCII Outrut Tares Fixed
X'OO'
1
I
IVariable
X'OO~ or X'04'
I
_____________________________________________________________________
J1
X'OO'
1L _________________ IUndefined
~

Figure 9.
300

Comrrand Control Block (CCB)

DOS/VS IPl and Job Control

(Part 2 of 3)

r-------y---------T---------y---------T---------y---------y---------T---------T---------,
I TransI
Code IRese:rved I
IReserved I
I
I

I

ITy~e

Imission ICSW
I
I Count IInforma- IStatus
Iticn
IBits
I
112
314
10

land
Ifor
ILcgical
ILcgical
IUnit
IIOCS
516
11
S

I
Ifor
ICCW
IPhysical
IAddress I IOCS
19
111
12

~-_-----4---------+---------~---------~--------4------

IByte(s)

I

ICCw
IC~tional I
IAcdress
ISense
I
lin CS~
ICCW
I
113
15116
231

___ ________ 4_________ 4_________
~

Description

~

I

~-----------------+---------------------------------------------------------------------~
19-11 CCW Address IVirtual cr real address cf CCw associated with this CCB de~ending on I
I

Ibyte 6:

I

I

I

I

I
I

IReal address if byte 6=X'2u', X'6u', cr X'Su':
I Virtual address if tyte 6=X' Ou'., cr X' 4u' •

I
I

~-----------------+---------------------------------------------------------------------~

112 Reserved for IX'SO' CCB being used by ERP
I
Physical IOCS IX'40" Channel A~~endage Routine ~reser:t fcr TP device, VSAM cr POWER. I
I
I
IX~20~ Sense Infcrmation desired (Note 10)
I
IX'10' Message ~riter
I
I
IX'OS' EO !ape Error
I
I
IX'04' OLTEP A~fendage availal:le
I
I
I
IX'02~ Tape ERP Read OppOSite Recovery
I
IX'Ol~ Seek se~araticn
I
I

~-----------------+---------------------------------------------------------------------~

113-15 CCW AddresslVirtual Address of CCW pointed to ty CSW at Channel End (if
I
I
in CSw
Ibyte 6 = X'Su', it is the real address) cr address cf tte Channel Endl
I
IAppendage Routine fcr TP devices~ VSA~ or POwER.
I

~-----------------+---------------------------------------------------------------------~

116-23 Optional
IS bytes a~pended to the CCB ~hen Sense Inforrraticn is desired.
I
IL_________________
Sense Ccw 4I _____________________________________________________________________ JI

Notes:

*

= Physical ICCS

**

6.

101S EFP dces not sup~crt the Errcr
Ccrrection Functicn.

7.

This error occurs as an equiprrent
check, data check or FCB parity check.
Fcr 2245, this errcr cccurs as a data
check cr FCB parity check.

S.

For 3504, 3505, 3525 input or cutput
files using ERROPT, tyte 3, tit 3 is
set on if a permanent error occurs.
Eyte 2, tit 6 is set cn tc allcw you to
accept permanent errors.

9.

SYSnnn=255 tirres 14).

= Prcblerr Program

1.

Bytes 4 and 5 contain the states bytes
of the Channel Status word (Bits
32-47). If byte 2, bit 5 is cr: and
device end results as a separate
interrupt, device end will te CRed into
CCB byte 4.

2.

Indicates 1* or 1& staterrent cr. SYSRDR
or SYSIPT. Byte 4, bit 7 (unit
exception) is also on.

3.

DASD data checks on count nct returned.

4.

For 1255/1259/1270/1275/1419,
disengage. For 1275/1419D, IIC Error
is external interrupt rcutine (Channel
data check or bus-cut check).

5.

The traffic tit (Byte 2, bit 0) is
normally set on at channel end to
signify that the 1/0 was ccrr~leted. If
byte 2, tit 5 has teen set cn, the
traffic tit and bits 2 and 6 ir. byte 3
will be set on at device end. Alsc see
Note 1.

(Nurrber of partitions

10. If User Error Routine is specified and
the user needs the sense infcrrration to
further process the error, byte 12, bit
2 rrust also te set. Cther~ise, the
supervisor error routine will rrask off
the status on return and the sense
inforrration is nct availatle.

Appendix F: Various Control Blocks and Tatles

301

PI.STAB
Channel 0

Job Control Flags
Channel Scheduler Flags - - - - - - - ,
Device Type - - - - - . . . ,
TEB Pointer/Retry Counter
Unit

PUBs

Channel 1
PUBs

~;:.

:~

Channel 6
PUBs

Device Characteristic Code]
or SAB Pointer

-"'"

c~
delimiter

Pl.£END

Figure 10.

Physical Unit Elock (FUE) lacle

Eytes:

For a 3704/3705 Connunications
Controller, this byte contains the
type number of the Channel Adapter.

0:

Channel number.

1:

1/0 device unit number

2:

Hex O~ 1, 2, ••• points to the first
channel queue entry for this device

(He~

C-6, FF=NUlL)
For

3:

If device is a 2495 lape cartridge
Reader and TEEs are specified, this
byte is a lEB pointer.
(Hex 1, 2, 3,
••• ). Otherwise l this byte is an ERF
retry counter.

4:

Device type code

5:

SS of the MODE=parameter in the
DVCGEN macro for tape unit.

Eit C:

For DASD with seek separation, this
byte is used as the SAE Pointer.
With Ira ok Hold but net seek
separation supported, this byte
contains a pointer to the Track-Hold
Table entry or X'FF' (with both SKSEP
and TRKHlD specified, the Track-Hold
pointer is found in the SAE entry).

0 = SYSPCH tenpcrarily
assigned tc hopper 1
1 = SYSPCH tenporarily
assigned to hopper 2

2:

0

= SYSIFT

1

=

0

= SYSRDR temporarily
assigned to hopper
= SYSRDR temporarily

1

302

DOS/VS IPl and Job Control

temporarily
assigned tc hcpper 1
SYSIFT temporarily
assigned tc hopper 2
1

assigned to hopper 2
5:

0
1

= SYSPCH pernanently
assigned tc hopper
= SYSPCH pernanently

1

assigned to hopper 2
6:

7:
For MICR type devices, this byte
indicates ~hich external interrupt
line is in use.

1 = Repcsitioning required

1:

3:
For ICA line (Model 115, or 125),
this byte contains the displacement
index of the entry in the Line Mode
Table (LMT). The address of the LMT
is in SYSCOM.

or MFCU:

~FCM

0

SYSIFT pernanently
assigned tc hopper 1
SYSIFT pernanently
assigned tc hopper 2

1

=

0

= SYSRDR pernanently
assigned to hopper
= SYSRDR pernanently

1

1

assigned to hopper 2

6:

Channel Scheduler Flags
Bit 0:
1:
2:

1 = Device busy
1 = switchable device
1 = EOJ for SYSRDR cr SYSIPT
1 = I/O error queued for
recovery
1 = operator intervention
required
1 = Device End posting
required
1 = Burst or overrun able
device on Eyte MPX
channel
1 = 7-track ta{:e unit

3:

4:
5:
6:
7:
7:

*Nc IIC is started cn a PUB
or co{:ied PUE that has
beth these switches on.
If only bit 7 is cn I/O
can be started after seek
separation.
A null entry is generated at
sUFervisor generation tine fcr each device
te be sUF~crted by the sUFerviscr. Then
standard physical unit assigr.rrents are made
tc the PUE table. Physical unit
assignrrents can also be nade during IPL.
PUEs are erdered by channel and Friority
~ithin a channel.

~ct~~:

Job Control Flags
Bit 0-4:

5:
6-7:

Standard MODE assignrrent
for 7-track tape (all cnes
if not tape, all zeros i f
device is do~n)
1 = DASD device with
disconnect cennand
chaining feature
B'll' (both cn) = Headqueue
in progress*
B '01" = Headqueue
requested*

An entry in the PUB Cwnershi~ Table is
associated with each entry in the PUE
~able, if the superviser has been generated
tc sepFert rrultipregranrring.
Eytes 64-65 (X'40' - X'41') ef the
partitien cemrrunicatien regicn ccntain the
address of the PUB Table entry. Label
PUETAE identifies the first byte ef the
table.

AFpendi~

F: Varieus Centrel Eleeks and

~ables

303

o0
o0

Number in
Class List
(NICL)

lUBTAB

~S

~S

LUB Table for any Partition

System LUBs
BG 1-----, >I-.-:.-----~~--I BG

F4

SYSRDR
SYSIPT

F4

F3

~SPCH

F3

F2

System LUBs

FI

o

First in
Class List
(FICL)

SYSLOG

F1

SYSLNK

Programmer lU Bs

SYSRES

System LUBs

SYSSLB
SYSRLB
SYSUSE

I)

SYSREC
SYSCLB

System lUBs

SYSVIS
SYSCAT

Programmer LU Bs

SYSOOO

System LUBs

SYSOO2
SYSOO3

Programmer LU Bs

~~OO4
I

~SOOI

2)

304

SYS nnn

NICI, FICI and IUE 1atles

DCS/VS IPL and Jot Control

1 1 1 1 1 1 0 - Ignore,ossigned ignore
1 1 1 1 1 1 1 - Null Pointer, the LUB i, unassigned
When a logical unit is assigned, the system inserts a pointer
to the PUB for the physical device specified.

SYSLST

F2

Programmer lU Bs

Figure 11.

0 0 0 0 0 0 - Points to first PUB and PUBOWNER
0 0 0 0 0 1 - Points to second PUB and PUBOWNER
0 0 0 0 0 1 0 - Points to third PUB and PUBOWNER

-------~~r_------~~--~
Format of on y LUB

------

JIB Index (Multiply by 4 = Displacement into JIB Table) or
X'FF' = Null Pointer,no JIB for this LUB.
A LUB has a JIB pointer when:
I. The logical unit is temporarily assigned
2. The logical unit assignment is alternate (ALT).
3. A DASD fi Ie (exept a system I/O fi Ie on disk) is
opened (DASD file protect only)

TEBTAB
TEB 1
TEB 2
TEB 3
TEB 4

--

-_=] I 121
0

3

14 151

TEB 5
TEB 6

Figure 12.

~ape

Error Block Tatle (TEETAB)

0:

Error recovery retry count.

1:

Perrranent read data check error
count.

2:

Numter of times the read data check
error routine is entered.

3:

Numter of times the write data cheok
error routine is entered.

4:

Write skip (erase gap) ccunt.

5:

Noise record count.

One TEB is aenerated fer each 2495 Tape
Cartridge Reader unit if the FOP~ rracre
contains the TEB=n parameter. Jet Centrel
resets each ~EE at normal cr atnerrral
End-of-Job. An unused TEB contains
HEX'FFOOOOOOOOOO'. A ~EB is referenced
frerr byte 3 of a Tape Cartridge Reader unit
PUE.
Eytes 70-71 (X'46' - X'47') of the
partition communications region(s) contain
the address cf the TEE Tatle entry. Label
~EE~AB identifies the first tyte of the
tatle.

Appendi~

F: Various Control Elccks and 1akles

305

DISK INFORMATION 8LOCK (018) TABLE
Format of any 018 table if SY!'f IL= YES
6 7
9 10
0
K 0 0
Current Address

DSKPOSBG
8G 018
Table
OSKPOSF4

16 17 18 19 20 21 22
RC
UL LL M

End Address

23

SYSLNK

C

C

H

H 00 00 00

00

00 00 00

Table

SYSIN

8

8

C

C

H

H

R 00 00

50

8

8

C

C

H

H

R

H

H

F3DIB
Table

SYSPCH

B

B

C

C

H

H

R 00 00

51

B

8

C

C

H

H

R

H

H XX XX

SYSLST

8

8

C

C

H

H

R 00 00 78 B

8

C

C

H

H

R

H

H XX

F2DIB
Table

PRCDI8

8

8

C

C

H

H

R 00 00

8

C

C

H

H

R

H

00 00

22 23

~4

DIS

OSKPOSF3

OSKPOSF2

OSKPOSFI

p

p

50 8

Format of any 018 table if SY!'f IL= NO
9 10
67
0
K 0 0
Current Address

F1DI8
Table
The number of 018 tables depends
on the number of partitions specified at supervisor generation.

SYSLNK

C

C

H

H

00\ 00\00

P

PRCDIB

8

8

C

C

HI HI R

00 00

P

00
50 B

00 00

00 00

XX XX XX

00 00

XX

00 00
00 00

H

XX XX
XX XX XX

16 17 18

19 20 21

00 00 00 00 00 00 00

IUL ILL IM I RC I

End Address

J8 JCJ C 1H lH I RIH JH \XX Ixxlxx1 00 100

-) 8G SYSLNK 018 contains the PUB pointer for CLB.
For FG SYSlNK DIBs this byte is unused.
~iskette

018 table
6 7

Current Address

K

0

Format of 3540

0

Figure 13.

16 17 18
End Address

RC

00

00 00 FLO E~ Hj.R 00 C

H

R

00 00 XX 00 00 00 00

SYSf'CH

00 00 00 00 C

H R

00 00 00 FLO El ~2.R 00 C

H

R

00 00 XX 00 00 00 00

SYSLST

00 00

H R

00 00 00

H

R

00 00

00 00 C

LO

~

'1'

00 C

xx

00

00 00 00

risk Inforrratien Bleck (DIB) Tatle
Add~

Current Address

6:

2

H R

10-15:

306

21 22

00 00 00 00 C

10-16: Ene

0-5:

7-9

19 20

M

SYSIN

]gytes
0-6

9 10
0

Current address of key:
the
next address tc be used (toth
for input and cut~ut).
Record nurrber of current
address.

16:

End address of key: the
last aedress ~ithin the
limits ef the extent.
Recere nurrter cf ene
address.

KI:D

17:

~1 Upper head limit.

Key and data length cf the syrrbclic
device. PP: starting cylinder of
Private Core Image Litrary if PCIL
is assigned: otherwise zere.

18:

11

19:

M Maxirrult nurrter cf reeeres per
track.

DCS/VS IPL and Jot Central

Lcwer heae Urrit.

20:

RC Record count: Residual capacity
for teginning of operatcr
notification. Set at systerr
generation tirre with SYSFIL
parameter, or after IFL ~itb SE~
staterrent (RCLST and/cr PCPCH
operands). A warning rressage is
issued by job ccntrel after
End-of-Job step when the rrinirrurr
number of remaining records has been
reached or exceeded during the
previous job. Not supported for
3540.

22-23: Reserved.

The block is initialized by job
centrel with extent inferrration and updated
ty physical IOCS. When the FCIL epticn is
used the DIB is updated each tirre the PCIL
is assigned.

~2!~:

is ene DIB table fer each partition.
Latel CSKFCSEG identifies the first byte cf
the EG DIE Table (DSKPCSF1, CSKPOSF2,
DSKPCSF3, DSKPOSF4, fer the ether
partitions). The addresses cf the DIE
tables are ccntained in bytes 96 and 97
(X'60~ and X'61') cf the apprcpriate
partition communication regicn.
~here

Appendix P: Various Control Elocks and Tables

307

o

PIBTAS
iil

ii: Flag

Attention PIB
Background PIB ~"\~,
PIB

FG4

PI8

FG2

PIB

FG I

PIB

Subtask

PIB

Cancel
Code

1ii";:;

\\'
\

\

FG3

5 Byte

'0

\

Ei

~<

',- --

3

2

SYSLOG
10
(AR)

5
Always
Zero

(See~

6

7

8

10

9

"

lnactive= Zero
Active= Add~
of LTASave Area

Switch Address of Save Area
Byte
or Zero

(Note 2)

(Note Ij
(SeeIEl) (Note 2)

12

X'07'
PIB
Assign
Flag

13

BG
User
LUB
Index

14

15

Numbet Not
ofBG used
Program
LUBs

I (SeeIDJJ

\
\

\
\
\
\
\

\

-

-

'.

..

~lB

~...:.g
~"8(1)

Figure 14.

2

(I

Flag
~~!!!
~ ...
Byte

PIB ___ ~_~_;S

Subtask

1.

\

~el

3

SYSLOG
10

5
OAT
Flag
(See g)

(See~)

6

7

Addr. . of Problem

Progrom Save Area or
LTA Save Area
(Note 3)

3.

Gate
Area
10

10

iI

12

of System Save PIB
Assign
Flag

13

14

15

User Numbet Flag
LUB
of
Byte
Index Progran

SeeD)

LUBs

See 1m

Program Information Elcck (PIB) Tatle (Part 1 of 2)

= L~A

a.

When L~A is inactive
area address.

save

b.

When L~A is active fcr Frotlem
Programs, this address is exchanged
with that in the Prcblerr Prcgrarr
PIE.

When L~A is active for Lcgical
Attention, bytes 9-11 are zerc and
bytes 5-7 contain the l~A save area
address.
When the Logical Transient Area is
active the save area address ir. the
Problem Program PIE is exchanged with
that in the Attention FIE.

number of Problem Prograrr FIEs
generated de~ends on the nunber of
partitions s~ecified during systerr
generation. Subtask PIBs are generated
only if AP=YES has been specified during
system generation. The nunber of subtask
PIEs generated depends on the nurrber of
partitions, that is:
~he

r---------------------T-------------------,

INumber of Partitions INumber of Subtasks I

~---------------------+-------------------~
2
I
13
I
3
I
12
I

I
I

I
4
I
11
I
JI
5
I ___________________
10
IL_____________________
~

308

9
Add~

(SeeK:j)

Eytes 90-91 (X'5A' - X'5E~) cf the
fartiticn ccmmunicaticn regicn(s) contain
the address of the PIE table. Label PIBTAE
identifies the first byte cf the table.

o

Flag Eyte (First byte in PIE)
~he

"2.

8

DCS/VS IPL and Job Control

fcllcwing flags are always used:

X'71' = Prograrr is lNaitir.g fcr sve 58
X'73' = Progran. is waiting because
systerr is seized
X'7S' = Program is waiting fcr co~y
block
X'77' = Program is waiting fcr TFREE
X'79' = Prcgrarr is lNaitir.g fcr channel
queue entry
X' 7E' = Prograrr is lNaitiIlg fcr eew
translation
X' 7D' = Prograrr is lNaitir.g fer free
console buffer table entry
(used cnly INten eBF=n)
X, 80" = Progran is net active
X, 81' = Pregrarr is sve 2-bcund (waiting
for the LTA te be released)
X, 82' = Prograrr is sve 7-bcur.d (waiting
for an I/O interru~ticn)
X'83' = Program is ready to run
X, 85" = Prograrr is sve 5-bcund (waiting
fer the PTA tc be released)
X'86'
Initial selection ef RAS (used
only fcr RAS FIB Flag)
X'87' = Program is set tc corrn,en bound
conditior.

The following flags are used only if
NPARTS>l. X'61· through X'69' are used
by the load leveller tc deactivate a
partition. The partition to which a
flag refers depends on NPAR~S as
follows:

I!I

X, 61"
X'63'
X'6S'
X'67'
X, 69"

refers
refers
refers
refers
refers

to
to
to
to
to

X'6B' = Program is
X'6D' = Program is
freed page
X, 6F" = Program is

3

BG
F1

n

EG

F1

4

S

EG

BG
F4
F3
F2
F1

F3

F2
F1

SVC 35-tcund
waiting for next
fralle
IDRA-tound

[£]

X'Sl" = Program is SVC 3B-tcund
X" 53' = Frogram is SVC 41/42-tcund
The following codes are cnly used if
AP=YES and PFIX=YES. ~he ccdes are
used by the PFIX routines to set a
partition PFIX-bound. ~'he ~artiticn tc
which a flag refers depends on NPARTS
as follows:
't.1lJJlR'IS=
2
345
refers
refers
refers
refers
refers

to
to
to
to
to

BG
F1

EG
F2

EG
F3

F1

F2
F1

[E]

to
to
to
to
to

BG
F4
F3
F2
F1

Progran Program PIE Flag (Last byte in
FIE)
Eit 0:
1:
2:

2

345

3:
4:
5:

BG
F1

EG
F2
F1

?:

EG
F3

F2
Fl

BG
F4
F3
F2
F1

6:

[!]

The following flag is cnly used when
CBF=n:
X'7D' = Program is waiting for free
console buffer table entry.

~ask

Figure ]4.

in QTAM wait.

= Batched

jct in fcreground
(always cn when tested)
1 = Cancel in L~'l\ and device
not assigned
1 = /& cr. SYSIN if CASC
1 = Partition in stc~~ed state
1 = Fetch ECJ ncr.itcr
1 = Task is canceled
1 = Suttask(s) attached
1 = in AE routine
1

Attention PIB Switch EJ!te
Eit 0:
1:
2:
3:
4:

The following flag is only used when
TP=QTAM:
X'BB' =

FIE Assign Fla,g
X'BO' = SYSRES DAse file ~rctect
inhibited (allow write
c~eration on SYSRES)
X'40' = Channel a~~er.dage exit allcwed
(BTAM)
X'20' = Cancel in ~rcqress (used in
terminator-function)
X'10' = Cancel ccntrcl (set cn a
foreground cancel)
X'OS' = Hcld fcregrcund assignnents
X'O?' = Attention FIE

NPAR~S=

refers
refers
refers
refers
refers

Gate Identifier

~he flags are cnly used if the PIB DAT
Flag is X'03', that is, the first two
flags are cn.
(See Ii] .)

The follcwing codes are used cr.ly if
AP=YES and VSAM=YES. ~he ccdes are
used by the VSAM routines tc set a
partition PFIX-bound. ~he ~artiticn to
which a flag refers de~ends cn NPARTS
as follows:

X' 3D'
X'3F'
X'41'
X, 43"
X, 4S"

Flag

X'71" = Gating of ·SVC 58 required
X'53' = Gating of SVC 41/42 required

The following flags are cnly used if
AP=YES:

X, 47"
X'49"
X, 4B"
X'4D'
X'4F'

DA~

X, 01' = Return tc reentrant su~ervisor
routine
X'02' = Return tc gated su~ervisor
routine
X'04' = Move CCB at dispatching tiRe
X'OB' = Service delayed exter.nal
interrupt
X'10' = Deactivaticn cf this task is
being delayed
X'20' = Reserved
X'40' = Task has seized the system
X'80' = Prcgrall is runnir.g in virtual
mode

NPAR~S=

2

FIE

5:
6:

7:

Reserved
1 = Fetch Fhysical Attenticn
Transient $$AEERRZ
1 = Delay cancellaticn (fetch
$$ABERZ1)
1 = ERergency cancel request
Reserved
1 = Conmand availatle (DOC)
1 = Fetch Lcgical Attenticn
Routine ($$BATTNA)
1 = External Interru~t request

Program Information Block (PIB) Table (Part 2 of 2)
A~pendi~

F: Varicus Ccntrcl Blccks and

~atles

309

NICL FICL

S)'Stem~

BG n
F4 r,;

r
F3~

F2 n
rFI..!!.

i

n~

rrt-:-

..!.

n= number of units
1= index displacement
within LUB table

r-rr-r-

~CL

rrr-

...
r-

....
Figure 15.

310

~i

FAVP

1~

....

~ TEBTAB (Optional)

.
"c- ...

I"'"

~u
Cl c

-

r-IIII-

EE

S'"

-'-

-- .....
~~

.....

~ c-

0...,

... >

lii.o

:2

.

'-I-

I~
... '8

..

r- ...
r--

-

PUB~~NER

JIBTAB

LUBTAB

;~.-~

PUBTAB

~ .,......

-- ---- -- - ~
-- --

....

I

-- -- -

F!J:!R

I

(Optional)

used by PIOCS

,...... ~\..- ..... ~;....-

('

I

..[~ABl

.. LMT

...
..

CHANQ

I
s:s

S
C

E

I/O Tatle InterrelationshiFs (Part 1 cf 3)

DOS/vS IPL and Jot Control

,1

r-----------------------T---------------------------------------------------------------,
IKey
I
IEx~lanaticn

~-----------------------+---------------------------------------------------------------i
INICL (Number in Class) IByte 0 ccntains the nURber cf systeR class LUEs. The re~ainingl
I
I
I

Ibytes contain the number of programmer class LUBs for each
Ipartiticn. The tctal nURber cf bytes is cne Rcre than the
InuRber cf partitions supported.

I
I
I

~-----------------------+---------------------------------------------------------------i
IFICL (First in Class)
IByte 0 ~cints tc the first system class LUB in the LUE table
I
I
I (LUETAE). This is al~ays the first entry in the LUE table.
IThe reRaining bytes ~cint tc the first ~rcgraRRer class LUBs inl
Ithe LUE table partiticn areas. The total nureber cf bytes is
I
lone Rcre than the nURber cf ~artiticns su~~crted.
I

I
I
I
I

~-----------------------+---------------------------------------------------------------i
ILUETAE (Logical Unit
IByte 0 of each entry is an index pointer to an entry in the PUB I
I
I
I
I

Blcck Table)

ITable (FUETAB) and tc an entry in the PUB O~nershi~ Table
I
I
I (PUBOwNER), or contains X'FF' if no logical unit is assigned.
IByte 1 ~cints tc an entry in the JIB Table (JIETAE) cr contains I
IX'FF'.
I

~-----------------------+---------------------------------------------------------------i
PUBTAB (Physical Unit
Bytes 0 and 1 of each entry ccntain the channel and unit
Block Table)

address cf the physical device. Byte 2 points to the entry in
the channel queue (CHANe> table cr contains X'FF'. Eyte 3 is a
retry counter or, if the unit is a tape cartridge reader and
the TEB=n Fara~eter ~as included in the FCP~ nacre, it contains
a ~pinter to the Tape Error Blcck table (~EBTAB) entry for the
device. Eyte 4 ccntains the device ty~e code. Eyte 5 is an
index ~ointer to the entry in the Track-Hold ~able, the
seek-address blcck table, cr the ~ode table (~CDEL 125 cnly)
when one ef these opticns is active for the device. Otherwise
this byte contains X'FF'. Eyte 6 contains the channel
scheduler flags and byte 7 the job control flags.
r-----------------------T--=~~====~=====-~==~===~~~==~-~-~~-----------------------------~
IFOCL (First on Channel IByte 0 ~cints to the first FUE~AB entry fer a device en channell
I
List)
10. Byte 1 points to the first FUBTAB entry fer a device on
I
I
Ichannel 1, and so en. X'FF' indicates that the asseciated
I
I
Ichannel is not supported.
I

~-----------------------+---------------------------------------------------------------i
IPUBCWNER
IByte 0 cf each entry is reserved. Byte 1 ider.tifies the
I
I

Ipartition that owns the

corres~cnding

PUB.

I

~-----------------------+---------------------------------------------------------------i
IFAVP (First Available IThis cne-byte ~cinter tc the next available entry in the JIB
I
I
I

Pointer)

ITable (JIETAB) is used by the ASSGN statenent
Ijcb ccntrel.

~rocesscr

and by I
I

~-----------------------+---------------------------------------------------------------i
IJIBTAB (Job InformaticnlBytes 0 and 1 of each entry contain extent cr LUE infcrRaticn I
I
Block ~able
lused by jeb ccntrcl and the ASSGN statenent prccesser. Byte 2 I
_______________________________________________________________
JI
IL_______________________ ~lis
a flag byte. Eyte 3 is a chain byte.
Figure 15.

I/C Table Interrelaticnships (Part 2 cf 3)

Appendix F: Various Control Blocks and ~ables

311

r-----------------------T---------------------------------------------------------------,I
.-----------------------+---------------------------------------------------------------i
CHANQ (Channel Queue
IByte 0 in each entry
tc the next entry in the queue for I
IEx~lanation

IKey

~cints

Table)

Ithe same device (cr the next free entry if in the free list),
I
lor it contains X'II' if the entry is the last in a chain.
I
IBytes 1, 2J and 3 contain the CCB address. Byte q, if I/O ~as I
Irequested by a user ~rogram, ccntains the Partition
I
IIdentification Key (PIK). If a system task requested I/O, then I
Ithe zcne field is all zeros and the numeric field ccntains the I
IIC of the specific systerr task. Byte 5 ccntains a dis~lacenentl
lindex ~cinting to the LUB~AE entry related to the I/O request I
I (absclute LUBTAE index). Byte 6 ccntains the relative LUBTAB I
lindex for system LUEs, or X'FF' for prograrnner LUEs. Eyte 7
I
Iccntains the dis~lacenent index of the PIETAE entry fer the
i
Itask requesting I/O (~IK), or X'FF~ if the channel queue entry I
lis free.
I

.-----------------------f---------------------------------------------------------------i
IFLPTR (Free List
IThis one-byte
ccntains the displacement index of the
I
~ointer

I

Pointer)

Inext free entry in the channel queue table (CHANQ).

I

.-----------------------f---------------------------------------------------------------i
ITEETAE
Error
lone entry is built for each
cartridge reader at
I
(Ta~e

Blcck Table)

I
I

ta~e

Iviscr generaticn tine if the 10FT nacrc
lis included.

su~er-

~araneter

TEE=n

I
I

.-----------------------+---------------------------------------------------------------i
(Track-Hold
IThis table is built at
generaticn tine if the
TH~AB

su~ervisor

Table)

ITRKHLD=n ~ararreter is included in the FOPT nacro. Eyte 0
lin each entry ~cints tc the next entry in the chain of requests
Ifcr a track tc be held cn a specific DASD (cr the next free
lentry if in the free list), cr it contains X'II' if the entry
lis the last in a chain. Eytes 1, 2, and 3 contain the CCB
laddress.

I

IBytes q through 9 ccntain the disk address (EECCHH) of the held
Itrack. Eyte 10 contains the key of the o~ning task, cr all
Izercs ~hen the entry is free. Eyte 11 is a flag and ccunter
Ibyte: bit 0 is turned on when a task requests a track already
Iheld by ancther task, and the value in the lc~-crder half-byte
lis increnented by one each time a task requests a hcld on a
Itrack that it already hclds itself.

I

I~~:
~hen multi~le hclds by cne task are effective, the value
lin the lo~er-order half-byte is one less than the act~al nunber
lof holds •

•ISAE
-----------------------f---------------------------------------------------------------i
(Seek Address
IThis table is built at
generation tirre if the
I
su~ervisor

I
I
I
I

Block)

ISKSEP=n cr YES ~araneter is included in the FOPT nacrc.
IBytes 0 through 3 of each entry contain the current disk
laddress (ECCH) for the device. Byte q contains X'FI' cr
Ito the ~HIAB entry.

I

I
~ointsl

!

.-----------------------+---------------------------------------------------------------i
(Line Mode Table)
IThis table is built at
generaticn tine when the
I
ILM~

su~erviscr

I
ITP=ETAM, cr QTAM ~araneter is included in the SUPVR rracro, and I
I
IMCDEL=115 cr 125. An entry is built fcr each device fcr which I
Ithe CVGEN macro includes the MCrE=X'ssss' or X'ssssss'
I
I
Ipararreter. Each entry ccntains the actual ncde setting fcr thel
I
L
JI
I _______________________ ~I _______________________________________________________________
device.
Figure 15.

312

I/O Table

Interrelaticnshi~s

DOS/VS IPL and Job control

(Part 3 cf 3)

JIBTAB

i

:ie:
..co

l!!0+=i

ml'!!
::;~

'08,
...
-5~

=0-

e:

~

,g&
",::J

cu'"

-510

5i"2

o

-

2

3

-e:
0 0-

... ...
E
cu
Ecucu
::J"C E
Z "'0..c S .

........:.:..!:

r------------------T--------------------------------------------------------------------,
I
Byte (s)
I
J:escri};ticn
I
~------------------+---------------T----------------------------------------------------~
0-1 (Contents
IEit Setting
I Contents
I
de};ends on the titlEyte 2
I
I
setting in tyte 2)~---------------+----------------------------------------------------~
IBit 0=1 Stored ILUB entry cf stored standard assignrrent. (PUB and
I
I standard
IJIB };cinter)
I
I assignrrent
I
I

~---------------+----------------------------------------------------~
!Eit
1=1
!Byte 0: PUE Fcinter
I
I Byte 1: X'OO'
I
I Alternate
I assignrrent
I
I
~---------------+----------------------------------------------------i

IBit 2=1

IByte 0: Cylinder

lc~er

limit

12311/2314/2319 IByte1: Cylinder u};};er limit

I Extent

I (Ncte 1)

I
I
I

~---------------+----------------------------------------------------i
IBit 3=1

IFor 2321:

1232113330/3340 I

IExtent
I
I
I
I
I
I
I

Lc~er

lirrit (Cell cr ccrrkined sukcell
and strip), or
up};er linit (Cell cr ccrrkined sukcell
and strip)

I
I
IFor 3330
lor 3340: cylinder lc~er limit, or
I
cylinder u};~er linit
I
(ene cylinder number uses two bytes)
I (Ncte 2)
I (Ncte 3)

I
I
I
I
I
I
I
I
I
I

.------------------+---------------~----------------------------------------------------~
12
IMeaning if tit = 1:
I
I
IEit 0: Stored standard assignnent
I
I
I
I
I
I
I
I
I

I
I
I
I
I
I
I
I

1:
2:
3:
4:
5:
6/7:

Alternate assignrrent
I
2311/2314/2319 extent
I
2321/3330/3340 extent
I
'Ihe alternate assignrr.ent indicated in tit 1 is perrranent.
I
'Ihis bit is alsc cn ~hen cne cf the extent indicatcrs (tit 21
and tit 3) is on.
I
Catalcged };rccedures prccessing
I
Reserved
I

.------------------+--------------------------------------------------------------------~
13
IChain byte
I
I
IContains the displacement index of the next JIE. X'FF f defines the I
____________________________________________________________________
JI
IL __________________~lend
of the chain.
Figure 16.

Jot Information Elock (JIB) Tatle
Appendix F: various Control Blocks and 'Iatles

313

~!:

~hen

Only

Extent inforrratien is s~pplied ty
the prograrr initiator and logical IOCS open
transient routines. The supervisor can
then perferrr the file pretect fur.ction for
the specified file !initIO. File {:rotecticn
does not include supervisor and transient
criginated I/O.
Net~:

file-protect on DASB.

~_g:

T~o JIBs are required for a
2321/3330/3340 extent, one for lower limit
and one for upper limit.

The lower lirrit defining JIE must te
chained to the upper lirri t defining JIB.
For 2321~ byte 1 of this type JIE contains
the subcell nurrber times 10 plus the strip
number in binary.

Eytes 68-69 (X'qq~ - 1'45') cf the
partition communication regicn ccntain the
address cf the JIE tatle entry. Label
JIETAB identifies the first byte of the
tatle.

r------------T----------~---------------------------------------------------------------,

I Displacement I

Label

I

Bescription

I

~------------+----------+---------------------------------------------------------------f

I
I

0-3

,

4-7
8-11
12-13

I (ACCTAELE)I
I ACCTWK1
IWcrk area used in SIC update

I

I

I ACCTWK2

Iwcrk area used

I

I

I ACCTSVPT
ACCTPART

14-15

ACCTLEN

16-21

ACCTLOAD

22-23

ACCTRES3

24-27

ACCTLADD

28-31

ACCTCPUT

32-35

ACCTOVHT

36-39

ACCTBNDT

40-47

ACCTSVJN

~ith

ACCTWK1 in start/step tirre routine

IJcb card pointer; address cf jet card field

fcllc~ir.g

jcbnarre

I

lIe cf partitien in charge (partition switch narre)

I

ILength cf SIO area=6n+1, ~here n=nurrber of devices fcr this
Ipartition in SYSGEN option JA=(n1,n2,n3,n4,n5)

I

ILabel area instruction; moves JAI label area address to
10PEN/CLCSE transients

I

IReserved

I

IAddress cf alternate latel area

I

Iccunter fcr CPU tirre elapsed in a jcbstep, ccunted in 300th of
la second

I
I Counter fcr overhead tirre; tirr.e not charged tc any partition
I
Icounter for all-bound time; system wait state time divided
Ibetween running partiticns

i

Isave area for jot narre during sirrulated ECJ

------------~----------~--------------------------------------------------------------Figure 17.

314

Job Accounting Interface Partition Table (ACCTxx)

DOS/VS IPL and Job Control

(Part 1 cf 2)

r------------T----------T-------------------------------------------------------------,
Label 1
1
------------+----------+-------------------------------------------------------------i
1
1

1Cisplacement 1
48-55

72-73

75
76-83
84-87

I

1

I

108-111
112-115


Source Exif Data: 
File Type                       : PDF
File Type Extension             : pdf
MIME Type                       : application/pdf
PDF Version                     : 1.3
Linearized                      : No
XMP Toolkit                     : Adobe XMP Core 4.2.1-c043 52.372728, 2009/01/18-15:56:37
Create Date                     : 2012:05:25 13:03:29-08:00
Modify Date                     : 2012:05:25 18:44:19-07:00
Metadata Date                   : 2012:05:25 18:44:19-07:00
Producer                        : Adobe Acrobat 9.51 Paper Capture Plug-in
Format                          : application/pdf
Document ID                     : uuid:9ed9a608-7dc0-47b3-ab0d-f6da547a3bfa
Instance ID                     : uuid:f96df2c9-e951-498a-9005-cee930486b5f
Page Layout                     : SinglePage
Page Mode                       : UseNone
Page Count                      : 320


EXIF Metadata provided by EXIF.tools

Navigation menu