SY33 8560 1_DOS_VS_LIOCS_Volume_2_SAM_Logic_Rel_29 1 DOS VS LIOCS Volume 2 SAM Logic Rel 29

SY33-8560-1_DOS_VS_LIOCS_Volume_2_SAM_Logic_Rel_29 SY33-8560-1_DOS_VS_LIOCS_Volume_2_SAM_Logic_Rel_29

User Manual: SY33-8560-1_DOS_VS_LIOCS_Volume_2_SAM_Logic_Rel_29

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

Download
Open PDF In Browser	View PDF

SY33-8560-1
File No. 5370-30

Systems

.' DOSI VS LIOCS Volume 2
SAM Logic
Release 29

"

'

is the second in a series cf four
volurres providing detailed inforrration
about the IE~ Disk Operating Systen
(DCS/VS) Logical IOCS prograrrs.
!he four volumes are:
Volurre 1:

General Informaticn and

1!E~ra!!Y~=Eacf£§:-SY33-8559.

Volume 2:

§~~,

SY33-8560.

Volurre 3:

£~~_and I§~~,

Volume 4:

y§~~,

SY33-8561.

SY33-8562.

!his manual is rrajorly intended for persons
involved in program maintenance and for
system programrrers who are altering the
program design. Program logic inforrration
is not necessary for the operaticn ef the
prograrrs described.

detailed flcwcharts asscciated ~ith the
descriptions in the first four parts.
!he appendixes in the tack cf this
rranual provide maintenance perscnnel with
the service aids:
1.

latel list.

2.

~essages

cross-reference list.

Effective ~se of this putlicaticr. requires
an understanding of IE~ Systerr/370
cperatien and the Disk Operating Systerr
(r:CS/VS) Asserrbler Language and its
associated macro definiticn language.
~eference publications fcr ttis inforrration
are listed below.

General routines that apply tc nore than
one access rrethod or more than cne file
type are described in Volurre 1. !hese
routines include open/close,
checkpoint/restart, and a nunber cf
transient routines. References tc Volurre 1
are rrade whenever required fcr a gcod
understanding of the topics disc~ssed.

•

r:cs/vs r:ata Managerrent Guide, GC33-5372.

•

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

!his volurre of the DOS/VS Lcgical ICCS
consists of six parts:

•

CS/VS and DOS/VS Assentler language,
GC33-4C10.

•

DCS/VS lIOCS Vclune 1, Ger.eral
Inforrration and Irrperative ~acros,
SY33-8559.

•

DCS/VS lIOCS Volurre 3,
SY33-85E1.

•

r:CS/VS lIOCS Velurre 4, VSAM, SY33-8562.

•

DCS/VS

~anuals

l-

LICCS support for Unit Record files.

2.

LIOCS support for

3.

LICCS support for sequential r:ASD
files.

4.

LICCS support for r:evioe Independent
files. ~

5.

LIOCS support for diskette files.

6.

Charts.

~agnetic

!ape files.

Parts 1, 2, 3, 4, and 5 supply descriptions
of the declarative and imperative nacres,
DTF tables, and initializaticn and
terrr-ination procedures for each cf the file
types descrited. Part 6 supplies the

~essages,

DA~

GC33-5319.

and ISAM,

INTRODUCTION • • • • •

• • 11

UNIT RECOR~ FILES
• • •
Initialization and Terminaticn
Card Device Files
• • • •
Ccnsole Files
• • • •
Magnetic Ink Character Reccgniticn
Files • • • • • • • • •
optical Reader Files • •
Printer Files • • • • •
Paper-Tape Files • • • •
GET Logic for the 1017 Paper ~ape
Reader -- Basic principles •
PUT Logic for the 1018 Paper ~ape
Punch -- Basic Principles

• • 13

MAGNETIC TAPE FILES
DTFM~ Macro
• • • • •
:cata Files • • • •
Wcrkfiles • • • • •
DTFFH Macro (Magnetic ~ape)
MTMCD Macro
• • • •
:cata Files •
•••••
Workfiles.
••• • •
Initialization and Terrrinaticn •

• 13

• • 14
• • 23
25
• • 34
• 46
• 50
• • 66
• 68

• •
•
• •
•
• •

70
70
70
70
70
83
83
83
88

SEQUENTIAL ACCESS DASD FILES •
.103
Storage Areas
• .103
Input/Output Areas
• .103
.103
Module Save Areas
DTFSD Macro • • • • •
• • • • • 110
:Cata Files
• .110
Work Files
.110
DTFFH Macro
• 125
Module Generation Macros •
• .130

Fixed-Length Record Modules
• • 131
Variatle-Length Reccrd ~cdules • • • • 136
Undefined Length Record Modules • • . 140
Wcrk File Mcdule • • • • • • •
• .142
Initialization and Terrrinaticn
Frccedures • • • • • • • • • • • • • • . 145
sequential DASD OPEN/CLOSE Lcgic • • • 145
CEVICE INCEPENDENT FILES • •
Compiler Files • • • • • • •
Characteristics of D~FCP Files
:cevice Independent systerr Files
Initialization and Terrrinaticn •

•
•
•
•
•

.155
.155
.156
.166
.172

FILES
•
Storage Areas
•
Input/Output Areas •
•
Module Save Areas
•
t~FDU Macrc
• • • • •
•
tTFPH Macrc (Diskette)
•
Module Generation Macros •
•
Mcdules
•
Initialization and Terrrinaticn
Frccedures • • • • • • • • • • • • • •
Diskette OPEN/CLOSE Logic
•

.179
.179
.179
.179
.181
.184
.186
.186

CISKET~E

.187
.187

CHAR~S

• • • • • • • • •
• .193
Explanaticn af ~lawchart Syrrtcls • • • • 193

AFPENDIX A:

LABEL CROSS-REFERENCE LIST 461

APPENDIX E:
LIST ••

MESSAGE CROSS-REFERENCE

APPENDIX C:

CONTROL CO:CES

INCEX

• .479
• .485
• • 487

Chart 01. ~agnetic Tare Oren Rcutines .194
Chart 02. ~agnetic Tare Clcse and
ECF/EOV Routine • • • • • • • •
.195
Chart 03. Sequential Access DASD oren,
General Flow and Workfiles • • •
.196
Chart 04-.. sequential Access DASD oren,
Input Files • • • • • • • • • •
.197
Chart ~5. Sequential Access DASD Oren,
Outfut Files (1 cf 2)
•••••
.198
Chart 06. Sequential Access CASD Of en,
Outrut Files (2 cf 2)
•.•••
.199
Chart 07. sequential Access rASe
Close, All Files •
• •••
• .200
Chart 08. Diskette Open, General Flo~ .201
Chart 09. Diskette Open, Infut Files . .202
Chart 10. Diskette Open, Output Files .203
Chart 11. Diskette Close • • • • • •
• 204
Chart AA. $$EOUR01: Open Unit Record
(1 cf 2) • • • • • • • • • • • • • •
.205
Chart AB. $$EOUR01: Open Unit Record
(2 cf 2) • • • • • • • • • • • • • • • • 206
Chart AC. $$BO~RCE: OMR and RCE Cfen
Routine (1 cf 2) • • • • • • • • • •
.207
Chart AD. $$BO~RCE: OMR and RCE Cfen
Routine (2 cf 2) • • • • • • • •
• .208
Chart AE. CD~OD: CNTRL Macrc • •
• 209
Chart AF. CD~OD: GET Macro (1 of 3)
.210
Chart AG. CD~OD: GET Macro (2 cf 3)
.211
Chart AH. CD~OD: GET Macro (3 of 3)
.212
Chart AJ. CD~OD: PUT Macro (1 cf 4)
.213
Chart AK. CD~OD: PUT Macro (2 of 4)
• .214
Chart AL. CD~OD: PUT Macro (3 cf 4)
• .215
Chart AM. CD~OD: PUT Macro (4 cf 4)
• .216
Chart AN. CTFCN: GET Macro
• .217
Chart AP. DTFCN: PUT Macro
• .218
Chart AQ. DTFCN: PUTR Macrc
• .219
Chart BA. MR~OD: GET, READ, and CHECK
Macros (1 of 2)
• • • • . • • • • • • • 220
Chart BB. MR~OD: GET, READ, and CHECK
Macros (2 of 2)
••••••••
.221
Chart EC. MR~OD: LITE Macrc
.222
Chart ED. MRMOD: DISEN and WAITF Macros 223
Chart BE. $$EO~R01 and $$BCMR01: Of en
and Close MICR • • • • • • • • • • • . . 224
Chart EF. $$BMMR20: MICR Message Writer 225
Chart EG. OR~OD: CNTRL Macrc (1 cf 2)
.226
Chart BH. ORMOD: CNTRL Macro (2 cf 2)
.227
Chart EJ. OR~OD: GET Macro, Untlccked
Records (1 of 3)
• • • • • • . • • • 228
Chart EK. OR~OD: GET Macro, Untlccked
Records (2 of 3)
• • • • • • • • • • 229
Chart EL. OR~OD: GET Macro, Unblocked
Records (3 of 3)
• • • • • • • • • • 230
Chart EM. ORMOD: GET Macro, Elocked
Records (1 of 2)
• • • • • • . • • • 231
Chart EN. OR~Oe: GET Macro, Elocked
Records (2 of 2)
••••••••
.232
Chart BP. OR~OD: RDLINE Macro
• 233
Chart EQ. O~~OD: DSPLY and READ Macros .234
Chart BR. OR~OD: RESCN Macro
.235
Chart ES. OR~OD: WAITF Macrc (1 of 3)
.236
Chart BT. ORMOD: WAITF Macrc (2 of 3)
.237

Chart BU. CRMOD: WAITF Macrc (3 cf 3)
.238
Chart CA. DRMOD: CNTRl and READ Macros .239
Chart CEo DRMOD: SETDEV and WAITF
~acrcs • • • • • • • • • • • • •
.240
Chart CC. $$BOOR01: cpen Ortical Reader 241
Chart CD. FRMOD: CNTRL Macro • •
• .242
Chart CEo FRMOD: PRTOV Macro • •
• .243
Chart CF. FRMOD: PUT Macre (1 ef 3)
• .244
Chart CG. FRMOD: PUT Macrc (2 of 3)
• .245
Chart CH. FRMOD: PUT Macro (3 of 3)
• .246
Chart CJ. FTMOD: GET Macre, Nc
Translation, and GET Macrc,
Translatier., No Shifted Cede,
Device=2671 • • • • • • • • • • • • • • 247
Chart CK. FTMOD: Get Macre,
Translation, Shifted Code, Fixed
Untlccked Records, Device=2E71 •
• .248
Chart CL. FTMOD: GET Macrc,
Translaticr., Shifted Cede, Undefined
Records, Device=2671 • • • • • •
• • 249
Chart CM. FTMOD: GET Macro,
Translaticr. and No Translaticn,
Deviee=1017 • • • • • • • • • • • • • • 250
Chart CN. FTMOD: GET Macrc,
Translation, Shifted Code, Fixed
Untlccked Records, Device=1017 •
• .251
Chart CPo FTMOD: GET Macro,
Translaticr., Shifted Ccde, Undefined
Records, Device=1017 • • • • •
• .252
Chart CQ. FTMOD: PUT Macrc, No Shifted
Ccde, Device=1018 • • • • . • • • •
.253
Chart CR. PTMOD: PUT Macro, Shifted
cede, 8eviee=1018
•••••.••
.254
Chart DA. ~TMOD: CHECK Macro, Wcrkfile .255
.256
Chart DE. MTMOD: CNTRL Macrc •
Chart DC. ~TMOD: FEOV Macro • • • • • . 257
Chart DD. MTMOD: GET Macre • • • • •
.258
Chart DE. MTMOD: GET Macrc, spanned
Records Routines • • • • • • • • • •
.259
Chart DF. ~TMOD: POINTR, POINTW,
PCIN'IS I and NOTE Macros,. Workfiles,
and GET/PUT Macros Ccrrrrcn Routines.
.260
Chart DG. ~TMOD: PUT Macro • • • • • • • 261
Chart DH. ~TMOD: PUT Macro, Spanned
Records Routine • • • • • • • •
• • 262
Chart DJ. ~TMOD: READ and WRITE
~acros, Wcrkfiles, and RElSE and TRUNC
~acrcs •
• • • • • • • • • • • •
.263
Chart DK. MTMOD: Lcgical S~acing and
EOV spanned Records Routines,
tetlccking Routines, and Translate
.264
Subroutine • • • • • • • • • • • •
Chart DL. ~TMOD: Read/Write
Subroutine, Fixed Length Reccrds (1 of
2) • • • • • • • • • • • • • • •
.265
Chart D~. ~TMOD: Read/Write
sutrcutine, Fixed Length Reccrds (2 of
2) • • • • • • • • • • • • • • •
.266
Chart DN. ~TMOD: Bypass Check~oint
Reccrds Rcutine, Fixed Length Records .267
Chart DP. MTMOD: Error Exit Routine,
Fixed Length Records • • • • • • • • • • 268

Chart KF. SD~ODW: NOTE, POINTR, POINTW
Macros • • • • • • • • • • • • • • • • • 344
Chart KG. SC~ODW: POIN~S, FREE, CN~RL
~acros, and SD~OD: FEOVD Macro • •
.345
chart LA. $$EOSOOO: 8D Open,
Initialization. • • •
• • • • • • 346
Chart LB. $$E08D01: SO Open, DLEL
.347
Extents • • • • • • •
. . . .
Chart LC. $$EOS002: SD Open, OLEL
Extents for 3340 (1 of 2)
• • • • • • • 348
Chart LO. $$E08002: SO Open, DLEL
Extents for 3340 (2 of 2)
• • • • • • • 349
Chart LE. $$E080I1: SO Open Input,
OLEL Extents (1 of 2)
• • • • • • • • • 350
Chart LF. $$EOSOl1: SO Open Input,
OLEL Extents (2 of 2)
• • • • • • • • • 351
Chart LG. $$EOSOI2: SO Open Input,
Extent to O~F • • • • • • • • • • • • • 352
C.har~ LH. $$EOSOI3: SO Open In~ut,
User Labels • • • • • • • • • • • • • • 353
Chart LJ. $$EOSDI4: SO Open Input,
• • 354
Initialization of OTF Table
Chart LK. $$EOSDI5: SO Open Input,
Post DTF Block • • • • • • • • • • • • • 355
Chart LL. $$EOSD01: SO Open output,
Control (1 of 2) • • • • • • • • • • • • 356
Chart LM. $$EOSD01: SO Open Cutput,
Control (2 of 2) • • • • • • • • • • • • 357
Chart LN. $$EOSIGN: SO Open Igncre • • • 358
Chart LO. $$EOSD02: SO Open cutput,
VolUme Label • • • • • • • • • • • • • • 359
Chart LP. $$EOSD03: SO Open Output,
Extent Overlap (1 of 2)
• • • • . • • • 360
Chart LQ. $$EOSD03: SD open output,
Extent Overlap (2 of 2)
• • • • • • • • 361
Chart LR. $$EOSD04: SD Open Cutput,
File Label • • • • • • • • • • • • •
.362
Chart LS. $$EOSD05: SO Open Cutput,
Format 3 Label (1 of 2)
• • • • • • • • 363
Chart LT. $$EOS005: SO Open Cutput,
Format 3 Label (2 of 2)
• • • • • • • . 364
Chart LU. $$EOSD06: SO Open Cutput,
User Labels (1 of 2) • • • • • • • • • • 365
Chart LV. $$EOSD06: SO Open Cutput,
User Labels (2 of 2) • • • • • • • • • • 366
Chart LW. $$EOSD07: SO Open Cutput,
Extents froIT Console • • • • • • • • • • 367
Chart LX. $$EOSD08: SO Open Output,
Oelete Label • • • • • • • • • • • • • • 368
Chart LY. $$EOSD09: SD Open Output,
Extent to DTF • • • • • • • • • • • • • 369
Chart LZ. SD Open output SubroutinEs • • 370
Chart MA. $$EOSDW1: SO Open work File,
Volurce Label (1 of 2)
•••••
.371
Chart MB. $$EOSDW1: SO Open work File,
Volume Label (2 of 2)
•••••
.372
Chart MC. $$EOSOW2: SO Open work File,
File Label (1 of 2)
••••••
.373
Chart MD. $$EOSOW2: SO Open Work File,
File Label (2 of 2)
••••••
.374
Chart ME. $$EOSDW3: SD Open work File,
Extent to D~F • • • •
.375
Chart MF. $$EOSDC1: SO Close Input and
Output (1 of 2)
.376
Chart MG. $$EOSDC1: SD Close Input and
Output (2 of 2)
• • • • • • 377
Chart MH. $$EOSDC2: SO Close, Free
Track Function • • • • • • • • • • • • • 378

Chart ~J. $$BODQUE: Dequeue Extent JIBs 379
Chart MK. $$EOSDEV: Fcrced Er.d cf
Volurce for Disk • • • • • • • • • • • • 380
Chart ML. $$B02321: SD Open Cutput,
2321 Extents from Console • • • • • • • 381
Chart NA. CPMOD: GET Macrc, Two 1/0
Areas
.382
Chart NB. CPMOD: GET Macrc, Cne 1/0
.383
Area or ICfTR=YES
Chart NC. CPMOD: PUT Macrc, Two 1/0
.384
Areas (1 cf 2)
Chart ND. CPMOD: PUT Macro, Two 1/0
.385
Areas (2 cf 2)
Chart NE. CPMOD: PUT Macro, One 1/0
.386
Area
Chart NF. CPMOD: PUT Macro, Cne 1/0
.387
Area (2 cf 2)
Chart NG. CPMOD: PUT Macrc, IOP~R=YES
(1 of 2)
.388
Chart NH. CPMOD: PUT Macrc, IOPTR=YES
(2 of 2)
.389
Chart PA. CIMOD: GET Macrc, Cne 1/0
.390
Area
Chart PEe CIMOO: GET Macrc, Twc I/O

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

·········

·

·········
·········
·········
·········
·········
·········

.·····

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

Areas

.

• • • •

.

. • . . . . . . . 391

Chart PC. CIMOD: PUT Macrc, Cne 1/0
Area (1 of 2)
• • • • • • • • • • 392
Chart PD. DIMOD: PUT Macro, One 1/0
Area (2 cf 2)
• • • • • • • • • • 393
Chart PEe DIMOD: PUT Macro, Two 1/0
Areas (1 cf 2) •
• • • • • • • • • • 394
Chart PF. DIMOD: PUT Macro, Two 1/0
Areas (2 cf 2) •
• • • • • • • • • • 395
Chart PG. $$BERRTN: punch Error
Recovery Rcutine • • • • • • • • • • • • 396
Chart PH. $$BERPTP: 1018 Punch-Tape
Punch Errcr Reoovery Rcutine (1 cf 2)
.397
Chart PJ. $$BERPTP: 1018 Punch-Tape
Punch Errcr Recovery Routine (2 of 2)
.398
Chart CA. $$BOCP01: Open Device
Independent Files, Phase 1 • • •
• .399
Chart CEo $$BOCP02: Open Device
Independent Files, Phase 2 • • •
• .400
Chart CC. $$BOCP03: open Cevice
Independent Files, Phase 3 • • •
• .401
Chart QD. $$BOCP11: Open DTFCP
(Version 1 Only), Phase 1 (1 of 2) • • • 402
Chart QE. $$BOCP11: Cpen DTFCP
(Version 1 Only), Phase 1 (2 of 2) • • • 403
Chart CF. $$BOCP12: Open DTFCP
(Versicn 1 Only), Phase 2 • • • • • • • 404
Chart RA. $$BOCPT1: Open DTFCP and
CTFDI Input Tape • • • • • • • • • • • • 405
Chart RB. $$BOCPT1: Subroutines for
Cpen DTFCP and DTFDI Input Tape (1 of
2) • • • • • • • • • • • • • • • • • • • 406
Chart RC. $$BOCPT1: Subrcutines for
Cpen D~FCP and DTFDI Input Tape (2 of
2) . . . • . • . . . . . • . . . . . . . 401

Chart RD. $$BOCPT2: Open DTFCP and
DTFDI Output Tape • • • • • • • • • • • 408
Chart RE. $$BOCPT2: Subrcutines for
Open DTFCP and OTFDI Output Tape (1 of
2)

• • • • • • • • • • • • • . . . . . . 409

Chart RF. $$BOCPT2: subroutines for
Cpen DTFCF and DTFDI Output Tape (2 of
2) . • . • . • . • . . . • . • . . . . . 410

~his volume cf the DCS/VS lcgical laCS
Logic Manuals contains detailed infcrnaticr.
on the logical ICCS sUfport cf unit record,
nagnetic tafe, sequential access DASD,
diskette, and device independent files.

~his volune contains no general
information apart from a brief introductory
description of each of the file tyres
covered.
If ycu want to get an cverall
view of the concept of logical ICCS, or an
idea of the functions perfcrrred by the
imferative nacros, refer tc ~Q§~Y§_1!Q£§

Files within a given grouf are presented in
alrhatetic sequence acccrding tc the last
two letters of the D~FXX nacro that defines
the file (that is, D~FeD, DTFCN, ••.
D~FP~).
Access to infornaticn on a
rarticular file tyre can te rrade through
the index. The infornaticn relating tc a
file type includes, in the crder fresented:
•

~he

file definition

•

~he

module generation (xxMCr) nacro.

•

~he

•

~he

•

The sfecial purrcse rcutines, such as
message writers, if arplicatle.

Y21~m~_1L_§~~~!al_Inf2!~!i~~_~~2

SY33-8559. Vcl~ne 1
also contains descriptions cf the
generalized cpen/close routines,
checkpoint/restart routines, and rASD file
protect, V~CC dump, VTCC disrlay, and
nessage writer subroutines.

(r~Fxx)

irrferative lICCS naorcs
etc.)
used with the file.

nacro.

(GE~,

READ,

!mEerativ~_~~~!2§,

Information on all the legical laCS
itens (modules, DTF tables, iITferative
nacros, open and close routines, etc.)
required for the particular file tYfes
discussed can be found in this nanual. The
only exceptions are certain connen and
special purfcse routines which cannot be
related to any specific file tyre cr which
apfly to more than one file type; those
routines are mentioned above.
~he files discussed in this vclune are
divided into five parts:

•
•
•

,.
•

Unit Reoord files.
Magnetic ~ape files.
Sequential access DASD files.
Device indefendent files.
Diskette files.

sfecial of en and close routines, if
arflicatle.

Part 5 ccntains the generalized and
detailed flowcharts of the irrperative LIoes
rracrcs supported ty each cf the data
handling lcgic modules and the lcgical
transients required for open, clcse, and
cther special functicns.
The lcgio sUPfcrting each of the
irrperative macros has been flowoharted fron
nacrc language (scurce staterrent) listings.
In some instances these flowcharts contain
decisicn tlccks tc illustrate the logic
included in the module fer certain xxMCD
nacrc pararreter cpticns. Ycu shculd
realize that these decisicns do ~~! appear
in an ~~~~rrbly listing, but rather that a
rartic~lar assemtly listing is the result
cf these decisions being nade at the time
the logic nodule is generated.

Introduction

11

The IBM Disk O~erating Systerr (CCS/VS)
provides logical IOCS suppcrt fcr files cn
the following IEM devices generally
categorized as unit-record equifrrer.t:

•

3881 cptical Mark Reader

•

3886 Cptical Reader

•

125(0) Display Operator Ccnscle

•

5203 Frinter

•

5425

•

1017

•

1018 Paper

•

1255/1259 Magnetic Character Reader

•

1270/1275 Optical Reader/Sorter (These
devices are not available in the United
States)

•

1287 Cptical Readers

•

1403 Printer

•

1419 Magnetic Ink Character Readers

•

1442N1 Card Read Punch

•

1442N2 Card Punch

•

1443 Printers

•

2245 Printer

•

2501 Card Reader

•

2520E1 card Read Punch

•

2520B2/E3 Card Punch

•

254CR Card Reader

•

2540P Card Punch

•

2560 Multifunction Card

•

2596 Card Read Punch

•

2671

•

3203 Printer

•

3210 or 3215 Console Printer-Keyboard

•

3211 Printer

•

3504 Card Reader

•

3505 Card Reader

•

3525P Card Punch

•

3525RP Card Punch with read feature

pa~er Ta~e
Ta~e

~ultifunction

Card Unit

Reader
Punch

The files used with these devices are
defined ty a DTFxx declarative rracro and
the data handling LICCS rrcdule is
generated, except for console files, by an
asscciated xxMCD rracrc.
(The CTFCN
declarative macro not only defines the file
tut alsc prcvides the data handling lcgic
rrodule for console files.)
The files descrited in this
include:

~art

•

Card - card readers ar.d punches

•

Ccnsole

•

Cftical Reader

•

Magnetic Ink Character Reccgnition

•

Printer

•

Paper Tar:e

•

Cftical Reader/Scrter

INITIALIZATION AND TERMINATICN

Pa~er Ta~e

~achine

Reader

Frccessing of a file by logical ICCS
requires that the file te initialized, or
cr:ened, prier to the trar.sfer cf any data
ty the prctlero prograrr. Likewise, when the
transfer cf all data is ccrr~lete, the file
is closed.
with the exception cf rragnetic ink and
cptical reader files, which are tandled
ser:arately, all unit reccrd files are
cpened ty the unit reccrd cpen lcgical
transient fhase, $$ECUR01, fetched by the
Cfen Mcnitcr (refer tc Vclurre 1). On the
ether hand, unit record files (except
rragnetic ir.k character reader) require nc
sr:ecial termination prccedures and are
clcsed ty the Clcse Mcnitcr ~hict sirrr:ly
resets the open indicator in the DTF table
fcr the file.
Unit Reccrd Files

13

I

•

3504 Card Reader

•

3505 Card Reader

•

3525P Card Punch

•

3525RP Card punch with read feature

•

3881 Optical

•

5425 Multifunction Card Unit

~ark

generated fcr a ~articular file de~ends cn
the ~YPEFlE= ~ararr.eter s~ecified by the
user in the DTFCD nacrc. The three table
ty~es are:
B~FCB:

•

D~FCD:

Input (Reader) if
(Figure 1).

~YFEFlE=INPU~

Reader

The files associated with these devices are
defined by the D~FCD macro.

types cf D~F tables can be generated
by the DTFCB macro. The D~F table type

~hree

•

Cut~ut

(Punch) if TYFEFlE=CUTPUl

(Figure 2).
•

D~FCD:

Combined if TYFEFlE=C~END
(Figure 3). This ~araneter can be
s~ecified for 1442N1 cr 2520E1 reader
~cnch, cr a 2540 ~unct. with tbe ~unch
feed read (PFR) feature.

The generated D~FCB table ccntains
informaticn describing the file and serves
as a linkage tc the CB lcgic ncdele that is
generated by a correspcnding CBMCD macro.

Unit Reccrd Files

15

r--------T------T--------------------------T--------------------------------------------,
1 Eits 1
Ccntents
1
Functicn
1

1 Eytes

~--------~------~--------------------------~--------------------------------------------~

IEytes 40-47 as used fcr all files except 2560 and 5425 files.
1
~--------T------T--------------------------T--------------------------------------------~
1 40-43 l i L A &IOREG,C(14)
1 Lcad user rcinter register.
1
1 NOP 0
1
1
1 (28-2E) 1
1
1
1
1
1
1 44-47 1
1 MVC 0(&BLKSIZE,13),0(14) 1 Mcve IOAREA to WORKA.
1
1 NOP 0
1
1
1 ( 2C- 2F) 1
1
1
1
1 DC X' 000 0' I
~--------~------~--------------------------L----------

__________________________________

~

1 The follo~ing tytes (48-55) are added for 3504, 3505, and 3525 asscciateo files.
1
~--------T------T--------------------------T--------------------------------------------~
1 48-51 1
1 DC A (name)
1 If ERROFT=name 2 •
1
1 (30-33) l i B 16(15)
1 If ERROPT=SKIP.
1
l i B 20 (15)
1 I f ERRCF'I=IGNCRE.
1
1
1 If ERRCFT=cnitted.
1
1
1
1 DC F'O'
1
1
1
1
1
1 DC A(ASOCFLE)
1 Acdress cf asscciated D'IF tatle 7 •
1
1 52-55 1
1
1 (3525 only).
1
1 (34-37) 1

~--------~------~--------------------------~--------------------------------------------~
1 Eytes 40 onward as used fcr 2560 and 5425 files.
1
~--------T------T--------------------------T--------------------------------------------~
40-47
1
Stacker select CCW.
(28-2F)
1
1

48-51
(30-33)

1 LA &IOREG,0(14)
I NOP C

1

52-57
(34-39)
58-63
(3A-3F)

1

1 64-67
1 (40-43)1

1

MVC 0(&BIKSIZE,13),0(14)
NOP 0
DC X'OOOO'

~cve

CLC C(L,14),64(1)

Test fcr er.c-cf-file.
L=4 if ~ODE=C; L=2 in ether cases.

DC C'/*
DC X'OC001C22'

End-of-file indicator if
Ir: cther cases.

1

1 68-71 1
DC A (name)
1 (44-47)1
B 16(15)
l i B 20(15)
1
1
DC F'O'

If
If
If
If

ICAREA te WORKA.

~CDE=E.

ERRCPT=r.arre 2 •
ERROPT=SKIP.
ERRCPT=IGNORE.
ERRCF'I=enitted.

~--------~------~--------------------------L----------

__________________________________

~

1 'Ihe follo~ing tytes are added fcr 2560 or 5425 asseeiated files.
I
~--------T------T--------------------------T--------------------------------------------1
1 72-75 1
1 DC A(ASOCFIE)
1 Address of associated D'IF
1
1
1 tatle 7 •
I
1 (48-4B)1
1
1
1
1
I
1 76-81 1
1 MVC 0(&BLKSIZE,14) ,82(1) 1 Mcve card inage tc
I
1 (4C-51) 1
1
I ICAREA1.
1
1
1
1
1
1
1 82
1
1 DC &ELKSIZE. c' ,
1 Buffer for card image.
1
1 (52)
1
1
1
1
~--------~------~--------------------------~--------------------------------------------~
11C~R cnly fer 3504 and 3505.
I
1 2 ERROPT for 2560, 3504, 35C5, 3525. or 5425 REAr file.
I
1 3 3504, 3505. and 3525 with er without CONTROL=YES specified.
I
1
1 4 2560, 3525, or 5425 ~ith cr ~ithcut CONTRCL=YES specified.
15 2560, 3525, or 5425 withcut CCN'IRCL=YES specified.
1
1
16 Cefaults to pocket2 for 35C4, 35C5, and 3525.
17 present only when 2560, 3525. cr 5425 associated files are specified fer the input
1
IL _______________________________________________________________________________________
C'IF.
JI
Nurrters in parentheses are displacerrents in hexadecirral notation.
Figure 1.

r::'IFCC:

Input (reader)

(2 of 2).
Unit Reccrc Files

17

r--------T------T--------------------------T--------------------------------------------,
I Eits I
Centents
I
Functien
I

I Eytes

I

~--------+------f--------------------------f--------------------------------------------1
32-33 I
I LR 12, (RECSIZE)
Undefined records only.
I
(20-21)1
1 NOFR 0
1
1
1
1
34-37 l i L A &IOREG,4(14)
Lead user feinter register.
I
(22-25) 1
1 NOP 0
1
1
1
1
38
1 0-2 I
Net used.
1
(26)
1 3
1
1
5425.
I
1 4
1
1 = 2560.
I

=

I

5

I

1

1

6
7

1

1 = 1442 or 2596.
1 = 2520El.

I

I

1

1

I
I

I

I

I

I

1

I

I
I

I
I

I
I

I

I

I

I
I
I

3525.

I
39
I
I DC C' ,
Elank fer eject last card.
I
(27)
I
I
I
~--------~------~--------------------------~--------------------------------------------~
I Fcr all files except 256C and 5425 files.
I
~--------T------T--------------------------T--------------------------------------------1
I 40-47
I
I
I Punch CCW.
I
1

I

48-55
I
I
I Eject CCW fcr last card if 2520.
I
~--------~------~--------------------------~--------------------------------------------~
1 Fer 2540 files if CRDERR is sfecified.
1
~--------T------T--------------------------T--------------------------------------~-----1
1 48-55 I
I
I Retry CCW.
I
I

1 56I
I DC CL80' ,
I Save area card image.
I
~--------~------~--------------------------~--------------------------------------------~
1 Fer 3525 Funch/Interpret files.
1
~--------T------T--------------------------T--------------------------------------------1
1 48-55 1
1
1 Lead CCW.
1
1
1
1
1
1
1 56-63 1
1
1 Print Ccw.
1
1
1
1
1
I
1 641
1 DC 64C' ,
I Print tuffer.
1
~--------~------~--------------------------~--------------------------------------------~
1 Fer 3525 Associated files.
1
~--------T------T--------------------------T--------------------------------------------1
1 48-51 1
1 DC A(ASOCFIE)
I Fcinter to associated file.
i
~--------~------~--------------------------~--------------------------------------------~
1 Fcr 2560 and 5425 files
1
~--------T------T--------------------------T--------------------------------------------1
I 40-47
I
I
I Eject CCW.
I
1
I
I DC D'O'
I If FUNC=RF er RPW.
I
I
I

48-55

1

I
I

Stacker select CCW.

I

1 56-63 I
I
I P~neh and Feed CCW.
I
~--------~------~--------------------------~--------------------------------------------1
1 1~he bucket tytes handle undefined records.
1
1 2Valid for 3525 READ/PUNCH, FUNCH/PRINT, and REAr/FUNCE/PRINT files.
I
1 3valid for 3525 only.
I
IL _______________________________________________________________________________________
4refaults to pocket2 for 3525.
JI
Numters in farentheses are disflaceffients in hexadecirral notation.
Figure 2.

r~Fcr:

Output (pmch)

(2 of 3)

Unit Recerd Files

19

r--------T------T--------------------------T--------------------------------------------,

1 Eytes 1 Eits 1
Contents
I
Function
I
~--------+------+--------------------------+--------------------------------------------~
0-15
I CCE.
(OO-OF)
I
I
16
0-1
I Not used.
( 10)
2
I CCEel q:en; ignere q:tien.
3
I Net used.
4
I CFENR releeates DTF address censtants.
5-7
I Net used.
I
17-19
I Address of logic module.
<11-13)
I
I
20
X'OO'
I C'IF tn:e.
(14)
1
1
21
I Cerrrrand code (X'02' for 1442, X'C2' fer
(15)
1 2520, 2540).
22
'

•
DFR and

DLI!~

Macros

The DFR and ~LIN~ macros are used to build
the format record that is required to read
frorr the 3886 optical reader.
~he DFR rracro builds the first ~art of
the format record, called the Dccunent
Information Record (Figure 9); it also
generates two fields preceding the fornat
record to provide informaticn about that
record. The first field is eight bytes
long; when the field is opened or when the

A sync byte of X'FF' to indicate the end
cf the ~LINT ex~ansicr..

In generating these records, the DLINT
nacre calls an inner nacrc (BLINTIN) 15
times to generate all fields on the line
exce~t the last field that is nct to be
scanned. The field infornation record for
this last field is generated by the DLINT
naero.
Figure 13 shows how the DFR and D1INT
eXfansicns corrbine tc fern a fcrnat record.
An extra sync byte is generated tc indicate
the end cf the fcrnat recerd.

Unit Reccrd Files

39

r--------T------T--------------------T--------------------------------------------------,

I Eytes I Eits I
Contents
I
Functions
I
~--------+------+--------------------+--------------------------------------------------~
o
Address or character Address cf the rigtt end cf the field in ECD
cr
Hex ccde cf character used as field deliniter.

o

1

1
2-4
5-7

o

2

B'O'
B'l'
B'l'
E'OOO'
B'OOO'
B'OOl'
B'010'
B'Oll'
B'100'
B'101'

Eyte 0 reI=resents character deliniter.
Byte o re{:resents address.
Indicates that the field is a critical field.
Not used.
IcVl fill.
Su{:press high/lct;; tlanks
Suppress high/loVl tlanks - high fill.
'Iransnit all l:lanks
loVl fill.
Suppress all blanks
no fill.
Suppress all l:lanks - loVl fill.
Suppress all blanks - high fill.

B'l'

Enable character edit for this field.
Field ler.gth.

-

-

-

1-7

1

3

L ________

~

Figure 11.

0-3 IB'OOOe'
4-7 IB'OOOO'
IB'OOOl'
IB'0010'
IB'0101'
IB'0110'
IB'1001'
IE'1010'
IB'1011'
IB'1100'
IB'1101'
______ IB'1110'
____________________
~

~

Not used.
Field is not to l:e scanned.
Field is nark read A fcnt.
Field is nark read B font.
Field is nuneric E fent.
Field is alphanurreric B font (node 1).
Field is nuneric A fent.
Field is alphanurrerie A font (node 1).
Field is alphanuneric A fent Cncce 2).
Field is NHP.
Field is Gethic (nust have NHP feature).
Field
is NHP (loVl sub).
__________________________________________________
J1

CLINT macro instructicr. expansicn - field infornatien reccrd fcr a
scannable field.

r--------T------T--------------------T--------------------------------------------------,
1 Bits 1
Contents
1
Functions
1

1 Bytes

~--------+------+--------------------+--------------------------------------------------~
1
1Address ef the rigtt end cf the field in BCD.
1

1 0
I
1
1
1 lie
1
1 1-7
1
1

1
1B '1 '
IB'OOOOOOO'

1

1

1
1
1
1

I Byte 0 represents an address.
INot used.

1

1L ________
2-3
1______ IX'OOOO'
used.
____________________ INot
__________________________________________________
J1
~

Figure 12.

~

~

CLIN'I macro instructicr. expansien - field infernaticn reccrd fer a field
that is not to l:e scanned.

Unit Recerd Files

41

DRMCD:

CNTRL Macro Chart CA

QE~fti~:

!o execute one ef the fellewing
operations fer the 3886 optical reader.

£fj~cti~§:

•

Page mark current document when the
document is ejected.

!E!E:i:

•

Line mark indicated line
document is ejected.

•

~hen

From the SETDEV nacre eXFansion.

the

Eject/stacker select the current
document.

E;nt~:i:

Te allew the user te change the
fermat record in the 3S8E centrel unit.

•

Nornal exit fron the EETDEV reutine is
tc the Frotlen Frcgran.

•

Te the user's end-cf-file rcutine if an
ECF condition occurs.

•

!e the user's CCREXI! rcutine
error eccurs.

From the CNTRL reacre eXFansion.

Exi!~:

•

Nornal exit from the CN!RL reutine is to
the protlem program.

•

!o the user's end-of-file reutine when
an EOF condition occurs.

•

!o the user's COREXIT rcutine
error occurs.

~hen

an

~ethod:
The CNTRL routine sets uF the
field-address and the length ceunt in the
CCW. If the CCW command is eject er
stacker select, the routine tuilds a
one-byte field to be passed to the 3886.
The control CCW is then executed. When the
I/O operation is completed, the re~tine
checks fer unit exception.
If unit
exception occurs, control is passed to the
user's EOF reutine.
The reutine then
checks to see if any errors cccurred. If
an error occurred, it is pested te the user
and control is passed to the user's COREXI!
routine. Cn return frem the CCREXIT
routine, control is passed tc the Froblerr
progran.

~hen

an

!te SETDEV reutine checks te see
if-the ferrrat recerd tc te lcadec fren the
3886 centrel unit is in the fernat recerd
area in the DTF.
If sc, the reutine sets
up the lead fermat reccrd CC~ ~ith the
fermat recerd length and the forrrat record
address in sterage. !he reutine then
executes tte CCW. If the fornat recerd is
nct in the fcrnat recerd area cf the DTF,
the routine loads the fornat recerd frem
the core irrage litrary. !he reutine then
checks te see if the fcrrrat reccrd has the
Frcper length. If se, the reutine issues
the lead fcrnat record ccw tc lead the
fermat reeerd to the 3886 contrel unit.
If
any errcrs eccur ~hile ttis CCW is
executed, they are pested te the user and
ccntrel is Fassed to the user's CCREXIT
reutine.
Upon return frcn the CCREXI!
rcutine, ccntrel is Fassed tc the Fretlen
Fregrarr.

~ethed:

£Ej~eti~~:

Te wait fer I/O cenFleticn, te
check for end-of-file conditions, and to
indicate te the user if any errers have
cecurred.

QEj~!~~~:

!o access cne line ef data frorr
the 3886 optical reader.

~ntr:i:
~xi!:

!E!~1:

Frcm the WAI!F rracre eXFansicn.

Frorr the READ nacrc expansion.
To the problerr prograrr.

~ethod:
The READ routine reads a line of
data from a document by first exec~ting a
scan CCW which scans one line ef data and
places that line in the 3886 buffer. A
read CCW is then issued which reads the
data into sterage.

~AITF

rc~tine

•

Ncrrral exit frerr the
the pretlen pregran.

•

!c the user's end-of-file rcutine when
an ECF cenditicn eccurs.

•

!c the user's COREXI! rcutine
error cccurs.

~hen

is te

an

~!Qf~:

After checking fcr cerrFletien of
the Frevicus I/O eFeraticn, the rcutine
neves the header record (20 tytes) te the
address sFecified in the teader Faraneter
Unit Recerd Files

43

r--------T------T--------------------T--------------------------------------------------,
I Eits I
Contents
I
Function
I

I Eytes

~--------+------+--------------------+--------------------------------------------------i
40-43
X'OOOOOOOO'
INot used.
(28-2B)

I

I

44-47
(2C-2F)

IStart address cf FR area in
I

I

48-51
(30-33)

r~F.

Address cf fcur-tyte pointer at the end
cf the FR area in the rTF.

52-55
(34-37)

EOF rcutine address.

56-63
(38- 3F)

Scan ccw.

64-71
(40-47)

Read CCW.

72-79

Read CCW.

( 48-4F)
80-87
(50-57)

Contrel CCW.

BB-95
( 58-5F)

load forrrat record CCW.

96-99

COREXIT reutine aderess.

(60-63)
100-103
(64-67)

IOAREA1 area address.

104-107
(6B-6E)

Header area address.

lOB-ill
(6C- 6F)
112
(70)
________
~ ______ ~ ____________________ ~
Figure 14.

I
I
Exit indicator address.
I
I
I
Start cf FR area.
I
__________________________________________________ JI

DTFDR (2 of 2).
£~!!y:
£~!!:

Optical reader files are opened ty the
logical transient $$ECCROl ttat is fetched
ty the Open ~onitor (refer tc Velurre 1).
!hese files are closed by the clcse
~onitor. $$ECLCSE, Which sirrply resets the
open indicatcr in byte 21 of the r!F table.

Frcrr the Cper.

~cr.itcr

($$ECPEN1).

To $$EOFEN cr cancel.

~~!bf2-=_12~1:

If the cptical reader file
contains a header, this phase reads it intc
ICAREA1.
If it dces nct ccntain a header,
an I/C NCF is perforrred.

If a valid DTF type is fcund (indicating
the presence or atsence cf the header). the
rcutine returns tc the cpen ~cr.itcr
($$ECPEN) to deterrrine if any rrcre files
need tc te cpened. !he rcutine atcrts the
jot if an invalid DTF type is present.
~~!bf2-=_l~~~:

gtjeo!!~:

~o

open an optical reader file.

This phase cpens the file
and loads the forrrat reccrd frcrr disk intc
the r~F.
If the fcrrrat reccrd is within

Unit Reccre Files

45

r--------T------T--------------------T--------------------------------------------------,
I Eits I
Contents
I
Functicn
I

I Eytes

~--------+------f--------------------+--------------------------------------------------~

I

0-15
(OO-OF)

CCB.

a

16
(10)

1=2-line

~rinter3,~; O=other.
1=ERROPT3,~; O=omitted.

1
2
3

COBOL c~en; igncre o~tion.
1=3525; O=other.
CPENR relccates ~!F address ccnstants.
OOO=PRIN! only
Cll=PUNCE/FRIN!3
010=READ/PRINT3

4

5-7

101=READ/PUNCH/PRI~T3

17-19
(11-13)

,

Address cf lcgic ncdule.

20
( 14)
21
(15)

X'OS'
X'07'
I
I
I
I
I
I
I
I

DTF
DTF

a

ty~e.
ty~e

fcr 2560 and 5425.

1 = Cfen; 0 = Closed.
First tine st.oii tch.
1
Ccntrcl character.
1
Fixed untlocked records.
1 = Variatle untlccked reccrds.
1 = 2 I/C areas.
1 = Wcrkarea.
1
Print everflot.oi channel 9.

1
2
3
4
5
6
7

~--------~------~--------------------~--------------------------------------------------~
I Fer printer and card punch devices

I

~--------T------T--------------------T--------------------------------------------------~
22
I
X'09'
Normal ccrrnand codeS.
(16)
I
I
23
(17)

I

24-27
(18-1B)

X'09'

Centrcl ccnnand ccdes.

DC A (IOAREA1+x)

Address ef data in IOAREA1.

28-31
(1C-1F)

Eucket. 1

32-33
( 2 0- 21)

ILR 12, (RECSIZE)
I NOPR C

For undefined records only.

I

34-37
(22-25)

ILA &ICREG,4(14)
INOP 0

Cnly if ICREG=(r).

I

38-39
(26-27)

I
I

Eucket. 2

I

I

I

I

40-47
(28-2F)

111,*,X'60',1
19,ICAREA,X'20',121

48-55
(30-37)

19,IOAREA,X'20',121
!A(Name}
IDC A(ASOCFLE)

Iccw--set u~ selective
ISTLIS! nct Sfecifled.

Ta~e

list Centrcle.

ICCW--STIIS! specified 6 •
IAddress cf user errcr routine (3211 cnly).
IIf ASCCFIE=filenane 3 .

~--------~------~--------------------~--------------------------------------------------~
I Fer the 2560 and 5425 Multifunetien Card

~achine

I

~--------T------T--------------------T--------------------------------------------------~

122

!

IX'OO'

INot used.

I

I

I
I

I

I

I

~

~

I

(16)

I
I
I
I 23
I
IB'HHHHHHOO'
IPrint head selecticn tyte.
I
JI
(17)
I ______ I ____________________ I __________________________________________________
H=l sfecifies the corresponding head.
IL ________
Figure 15.

~

DTFPR (1 of 2).
Unit Reccre Files

47

~he PRTOV (printer everflew) naero
instruction is used with a lcgical printer
file to specify the operation to be
perfcrned cn a carriage everflcw ccndition.

~et~cd:

module generated by the fR~CD nacrc
provides the logic to ~erforn the CNTRL,
PR~CV, and PUT functions for a printer
file. The logic module handles only
unblocked records, and suppcrts fi~ed,
undefined, and variable record fornats.
~he

~he PRMCD macro oan generate nany logic
modules, each designed to handle the
conditions specified by the nacro
parameters. Because it is nct pcssible to
describe all the variations, the PRMOD is
flowcharted to show the internal decisions
nade for the specified paraneters.

PRTCV requires twc paraneters. The
first paraneter must be the nane of the
lcgical file specified ir. the DTF header
entry. The second paraneter nust specify
the nunber of the carriage tape channel (9
cr 12) used to indicate the cverflow
ccnditicn. When an cverflcw ccndition
occurs, ICCS skips the printer carriage to
channel 1.
An cpticnal third paraneter causes a
branch to a user routine instead cf a skip
tc channell cn an overflcw ccndition.
~his paraneter specifies the synbclic nane
representir.g the address cf the ~ser's
routine. In the user's rcutine, any
desired fur.cticn can be perfcrned except
another PR~CV.

~o control the carriage space
and skip operations or the 3211 character
folding.

Cbjecti~:

Entr~:

Frorr. a CNTRL macro expansicn.
Tc print a line and space, or
tc print a line and skip the apprcpriate
tape, if the Selective ~ape lister feature
is available.

£fj~ctl~~:

Exit: To the next sequential instruction
in-the problem program follcwing the CNTRL
nacro expansion.
Me!hoQ: This routine provides ccnpletely
independent control of the printer
carriage. It also controls UCSE character
folding on the 3211. When FCLD is
specified, bits 0 and 1 of the byte to be
printed are assuned to be ones. ~he FCLD
and UNFOLD parameters permanently cverride
the previous fold condition. It is used
when the PR~CD macro paraneter C~LCHR is
not specified.
~he PRMCD CNTRL routine waits fcr a
previous I/O operation to finish and then
inserts the control character into the CCW
comnand code. The required carriage
operation is started and oontrcl returns to
the problem program without waiting for
conpletion of the carriage operaticn.

~~~:
~~1!:

Frcn a

PU~

nacrc eXfansicn.

To the problen prcgran cr cancel.

~his routine ca~ses a reccrd to be
printed on the output device. ~he logic
deternines if twc I/C areas are used, if a
workarea is specified, and if CTLCHR
ccntrols the carriage. A test is nade to
deternine if CNTRL is specified. If sc,
the C~LCHR cannot be used: C~LCHR and CN~Rl
are nutually exclusive (if or.e is used, the
cther £2nn~! be specified).

~ethcd:

If the CTLCHR=ASA cpticn is used, this
routine translates the ccntrel character tc
EECCIC.
If asscciated files are used, nacrc
sequence checking is perfcrned. Printing
(PU~ tc a print file) nay be cnitted.

PRMCD:

PR~CV

Macro Chart CE

Cbjective: ~o cause and control an
overflow skip.
~ntry:

Frorr. a PRTOV macro

e~pansicn.

Exit: To the user's carriage cverflcw
routine if the address of the rcutine is
sUfplied, or to the prcblen progran at the
next sequential instruction following the
PR~OV macro expansion.

For 2560 and 5425 asscciated files, the
print rr.odule initiates tr.e read and/or
puneh ccnnand cf the asscciated read and/cr
punch file processed by a CD~Cr:.
If the Selective ~ape List feature is
(1403 cnly), selected tapes are
controlled through the use of acne-byte
control field. This field is accessed by
the cpticr.al cperand, either S~LSP=label,
cr S~LSK=label, cf the PU~ nacrc. Figure
16 shows the format of the field specified
by 1,abel.
~sed

Unit Reccrd Files

49

r--------T-------------------------------T----------------------------------------------,
1
Contents
1
Function
I

1 Eytes

~--------+-------------------------------+----------------------------------------------~
0-15 1
(OO-OF) I

16
(10)

1 CCE (X'OS' in tyte 2).
1

1

COBCL o~en; ignore option.
CFENR relccates CTF address ccnstants.

1 X'20'
X'OS'

17-19
(11-13)

Address ef legic nodule.

20
(14)

X'Ol'

C'IF type.

21
(15)

Eit

0

1
2
3
4-6
7

CFEJ:\ indicatcr.
'IWO 1/0 areas.
ECF indicater.
Read error.
Net used.
Undefined record.

22-25
(16-19)

~VI

26(1),X'07'
NCP 0(0)

NOP first SVC 0 if 2 areas.
If 1 area.

26-27
(lA-lE)

SVC 0

Read a recerd.

2S-29
(lC-1D)

SVC 0
NCPR 0

Read another record if 2 areas.
If 1 area.

30-31
(lE-1F)

LR &RECSIZE,14
I:\CPR 0

Fut reccrd ler.gth in user's register.
No RECSIZE entry.

32-35
A (&ICAREA2)
(20-23)1 A (&IOAREA1)

1

36-39 1
(24-27)1
1
40-43
1
(2S-2B)1
1
1

If 2 areas.
If 1 area.

A(&ECFADDR)

End-ef-file address.

A(&ERROPT)
SR 0,0
SVC 6
E 12 (15)
1 E 138 (15)
1
I A (&WLRERR)

Addr. of user's error routine if ERRCFT=name.
ERRCF'I crrittec.
1

I
1

ERRCF'I=SKIF.
ERRCF'I=IGNCRE.
Address of user's WLR routine if
WLRERR=narre.
WIRERR omitted and ERROF'I=SKIP.
wLRERR and ERRCPT beth crritted, cr
WLRERR emitted and ERROF'I=IGNORE.
RECFCRM=FIXUJ:\E or orritted.

44-47
(2C- 2F) 1
1 E 12(15)
1 B 152 (15)
1

1 E 152 (15)

t

CCW: if RECFCRM=FIXUNE cr cnitted.
48-55 1 X'02',&IOAREA1,X'CO',&ELKSIZE
(30-37)1 X'06',&IOAREA1,X'CO',&EIKSIZE
CCW:
if RECFCRM=UNDEF.
1
Cu~lieate CCVi.
56-63 1
(38-3F) 1
1
Savearea for register 14.
64-67
1 F'O'
(40- 43) 1
t
68-71 1 L &ICREG,48(1)
Fut in~ut area address intc user's register.
1L ________
(44-47) 1_______________________________
NCP 0 (0)
1 ______________________________________________
No ICREG entry.
JI
~

Figure 17.

~

CTFP'I:

No translaticns, nc shifts er celetes; device=2671.

Unit Reccrd Files

51

r--------T-------------------------------T----------------------------------------------,
I
Contents
I
Functicn
I

I Eytes

~--------+-------------------------------+----------------------------------------------i
0-15
I CCB (X'OO' in byte 2),
COO-OF)
I
16

X'20'
X'08'

(10)

17-19
Cl1-13)
X'Ol'

20
C14}

I
I CCECI cfen: igncre cfticn
I C~F table address constants relccated
I ty CFENF.
I
I Address cf lcgic rrodule.
I
I
C'IF tn:e.

21
(15)

Eit

0
1
2

3-5
6

7

22-25
(16-19)

26Cl},X'07'
NCP OCO)

I
I Read a reccrd.
I
I
SVC 0
I Read ancther record if 2 areas.
NCPR 0
I If 1 area.
I
H'O'
I Reccrd length field.
I
I
C'02'
I
I
I
AI3C&IOAREA2)
I If 2 areas.
AI3C&IOAREA1)
I If 1 area.
I
AC&ECFADDR)
I End-of-file routine address.
I
I
ACO)
I
I
I
NCP OCO)
I
I
I
X'02',&IOAREA1,X'CO',&CVEIKSZ I CCW: if CVEIKSZ specified.
X'02',&IOAREA1,X'OO',&EIKSIZE I ______________________________________________
if CVEIKSZ not specified.
_______________________________
JI
SVC 0

28-29
C1C-1D)
30-31
C1E-1F)
32
C20)
33-35
C21-23)
36-39
(24-27)

40-43
C28-2E)
44-47
(2C- 2F)
48-55
C30-37}
________

NCP first SVC 0 if 2 areas.
If 1 area.

~VI

26-27
C1A-1E)

CPH, indicatcr.
'Iwo I/O areas.
ECF indicatcr.
Not used.
Scar:r.ing.
Not used.

~

Figure 19.

~

CTFPT: Translation, shifts and deletes, with fixed untlccked reccrds:
device=2671 (1 cf 2).

Unit Reccre Files

53

r--------T-------------------------------T----------------------------------------------,

I Eytes I
Ccntents
I
Functicn
I
~--------+-------------------------------+----------------------------------------------~
0-15
CCB (X'OS' in byte 2).
(00- OF)
16
(10)

X'20'
X'OS'

CCECL cren1 igncre crticn.
C~F table address constants relccated
ty CPENR.

17-19
(11-13)

Address cf lcgic Rcdule.
X'Ol'

20
(14)

C~F

21
(15)

Eit

ty~e.

0
1
2

3-5
6

7

CPEl\ indicatcr.
~wc I/O areas.
EOF indicatcr.
Not used.
Scar:r:ing.
Read error.

22-25
(16-19)

~VI

26(1),X'07'
NCP 0(0)

NCP first SVC 0 if 2 areas.
If 1 area.

26-27
(lA-1E)

SVC 0

Read a reccrd.

2S-29
(lC-10)

SVC 0
NCPR 0

Read another record if 2 areas.
If 1 area.

30-31
(lE-1F)

H '0'

Reccrd length field.

32-35
(20-23)

A (&ICAREA2)
A (&ICAREA1)

If 2 areas.
If 1 area.

36-39
(24-27)

A (&ECFAOOR)

End-cf-file rcutine address.

I
I
40-43
A (&ERRCPT)
Address of user's routine if
I
(2S- 2B)
ERRCF~=naIre.
I
SR 0,0
ERRCP~ omitted.
I
SVC 6
I
E 16 (15)
ERRCP~=SKIP.
I
E 246 (15)
ERRCF~=IGNCRE.
I
I
44-47
A(&~LRERR)
Address cf user's WLR rcutir:e if
I
(2C-2F)
WLRERR=name.
I
E 16(15)
WLRERR crrittec and ERROF~=SKIP.
I
E 260(15)
WLRERR omitted and ERROF~=IGNCRE
I
JI
IL ________ _______________________________ I ______________________________________________
crritted.
~

Figure 20.

~

CTFP~:
Translation, shifts, and deletes,
records1 device=2671 (1 of 2).

~ith

undefined

Unit Record Files

55

r--------T-------------------------------T----------------------------------------------1
1
contents
1
Function
I

1 Eytes

~--------+-------------------------------+----------------------------------------------~
CCE (X'8S' in byte 2).
0-15

I

(OO-OF>I

16
(10)
17-19
(11-13)

I
I X'OS'
I
I

!ndicates

table relocated by CPENR.

Address cf lcgic rrodule.

I

I

20
(14)

D~F

X'Ol'

D~F

21
(15)

Eit

type.
0
1
2
3

4-6
7

CPU; indicatcr.
~wo I/O areas.
EOF indicatcr.
Read error.
Not used.
Undefined record.

22-25
(16-19)

r-:VI 26(1),X'07'
NCP 0(0)

NCP first SVC 0 if 2 areas.
If 1 area.

26-27
(lA-tE)

SVC 0

Read a reccrd.

28-29
( lC-1D)

SVC 0
NCPR 0

Read ancther record if 2 areas.
If 1 area.

30-31
(lE-1F)

lR &RECSIZE,14
NCPR 0

Put reccrd ler.gth intc user's register.
No RECSIZE entry.

32-35
(20- 23)

A (&IOAREA2)
A (&ICAREA1)

If 2 areas.
If 1 area.

36-39
(24-27)

A (&ECFADDR)
SVC 50

End-cf-file aedress.
No ECFAtDR operand.

H'O'

40-43
(2S-2E)

A (&ERROPT)
SR 0,0
SVC 6
E 0(14)
E 4 (14)

Addr. cf user's errcr rcutir.e if ERRCFT=name.
ERRCP~ omitted.

A(&~lRERR)
44-47
(2C-2F)I A (&ERROPT)
I E 0 (14)
I E 8(14)

Address cf user's WLR rcutir.e if WlRERR=name.
WlRERR absent and ERRCP'I=narre.
WlRERR absent and ERRCP'I=SKIP.
WlRERR and ERRCPT both absent or WlRERR
abser.t and ERROPT=IGNCRE.
RECFCRM=FIXUKE or absent.

ERRCP~=SKIP

ERRCP'I=IGNCRE

I

I E S(14)

I
I X'02',&IOAREA1,X'00',&ElKSIZE

CCW:
CCW:

4S-55
(30-37)1 X'06',&IOAREA1,X'00',&ElKSIZE
1

56-63 I
(38-3F)1

Duplicate

1

I

68-71 I 1 &ICREG,4S(1)
(44-47)1 _______________________________
NCP 0(0)
________
~

tTFP'I:

ccw.

SaVE area fcr register 14.

64-67 1 F' 0'
(40-43)1

Figure 21.

if RECFCRM=FIXUNE or absent.
if RECFCRM=UNDEF.

Put input area address into user's register.
~

Kc ICREE entry.
______________________________________________
J1

No translation, no shifts cr deletes; device=1017.

Unit Reccre FilES

57

r--------T-------------------------------T----------------------------------------------,
I Eytes I
contents
I
Function
I
~--------+-------------------------------+----------------------------------------------~
CCE

0-15
(OO-OF)

16
(10)

X'08'

17-19
(11-13)

(X'80' in byte 2).

Indicates

D~F

table relecated by CFENR.

Address cf lcgic rrodule.
X'Ol'

20
( 14)

D~F

Eit

21
(15)

tyt:e.
0
1
2

3-5
6

7

CFU, indicatcr.
n.o I/O areas.
ECF indicatcr.
Not used.
scar.r.ing.
Not used.

22-25
(16-19)

~VI

26(1) ,X'07'
NCP 0(0)

NOP first SVC 0 if 2 areas.
If 1 area.

26-27
(1A-lE)

SVC 0

Read a reccrd.

28-29
(1C-1D)

SVC 0
NCPR 0

Read anether record if 2 areas.
If 1 area.

30-31
(iE-iF)

H'O'

Reccrd length field.

32
(20)

C' 02'

33-35
(21-23)

Al3 (&IOAREA2)
AI3 (&IOAREAl)

If 2 areas.
If 1 area.

36-39

A (&ECFADDR)
SVC 50
H'O'

End-of-file address.
Nc ECFA[DR cIerand.

(24-27)

40-43
( 28-2B)

A (0)

44-47

NCP

0 (O)

(2c-2F)
48-55
(30- 37)

X'02',&IOAREA1,X'OO',&CVELKSZ
X'02',&IOAREA1,X'CO',&ELKSIZE

56-59

IL ________
(38-3E)

~

Figure 23.

CCW:

if CVELKSZ specified.
if CVELKSZ not sFecified.

I
I
I
I
I
I
I
I
I
I
I
I

L &ICREG,96(1)
Fut inI~t area address intc user's register. I
~CP 0 (0)
Ne ICREG q;erand.
_______________________________
~ ______________________________________________
J

I

DTFFT: Translaticn, shifts and deletes,
device=1017 (1 cf 2).

fi~ed

unblccked reccrds;

Unit Recerd Files

59

r--------T-------------------------------T----------------------------------------------,

I Bytes I
Contents
I
Function
I
~--------+-------------------------------+----------------------------------------------~
I 0-15
CCB (X'e8' in byte 2).
I
(OO-OF)
I
16
(lO)

X'08'

Indicates DTF table relocated by CPENR.

17-19
(ll-13)

Address cf lcgic rrodule.

20
(l4)

X'Ol'

D'IF tYFe.

21
(15)

Bit

0
1
2

3-5
6
7

CPEt, indicatcr.
TWO I/O areas.

EOF indicatcr.
Not used.
Scar.r:ing.
Read error.

22-25
(l6-19)

~VI

26(1} ,X'07'
NCP 0(0)

NOP first SVC 0 if 2 areas.
If 1 area.

26-27
(lA-1B)

SVC 0

Read a record.

28-29
(lC-1D)

SVC 0

Read ancther record if 2 areas.
If 1 area.

I NCPR 0
I
30-31 I H'O'
(lE-lF) I
I
32-35
I A (&ICAREA2)
( 20- 23) I A (&ICAREAl)

Reccrd length field.
If 2 areas.
If 1 area.

36-39
(24-27)

A (&ECFADDR)
SVC 50
H'O'

End-cf-file address.
No ECFArDR oFerand.

40-43
(28-2B)

A (&ERROPT)

Address cf user's errcr rcutine if
ERRCPT=nan:e.

SR 0,0
SVC 6
B 0 (l4)
B 4 (14)

ERRCP'I omitted.

J

I
I
I
I
I 44-47
I (2C-2F)
I
I
IL ________

ERRCP'I=SKIP
ERRCP'I=IGNCRE

A (&WIRERR)
A (&ERROPT)
B 0(14}
B 8(14}
~

Figure 24.

_______________________________

~

Address cf user's WLR rcutir:e if WIRERR=name
WIRERR absent and ERRCP'I=narre.
WIRERR absent and ERRCP'I=SKIP.
WIRERR and ERRCPT both absent or WIRERR
absent and ERROPT=IGNCRE.
______________________________________________
JI

ITFP'I: Translation, stifts and deletes, undefined reccrds; device=lC17
(1 of 2).

Unit REccre Files

61

r------~-T-------------------------------T----------------------------------------------,

I Eytes

I

Ccntents

I

I

Functicn

~--------+-------------------------------+----------------------------------------------~
0-15
CCB (X' SA' in byte 2).
I

I
I
I
I

(CO-OF)
16
(10)

X'08'

Indicates

17-19
(11-13)
20
(14)

~~F

tat Ie relccated

t~

CFENR.

Address of lcgic module.
X'Ol'

tTF tn:e.

21
(15)

Eit

0

CPEt\ indicator.
~IIiC I/O areas.
write error.
CICSE indicater.
Retry counter.
Net used.
Undefined record.

1
2
3

4-5
6

7

22-25
(16-19)

l

&ICREG,48(1)
NCP 0 CO)

Put eutfut area address intc user's register.
Nc ICREG cferand.

26
CiA)

X'&DEICHAR'
X'OO'

telete character.
Ne delete character sfecified.

27
C1B)

Net used.

28-31
C1C-1F)

AC&ICAREA2)
AC&ICAREA1)

If 2 areas.
If 1 area.

32-47
(20-2F)

X'01',&IOAREA1,X'00',&EIKSIZE

CCW if

RECFCR~=FIXUNB.

CCW if

RECFCR~=UNDEF.

CoO'

X'01',&IOAREA1,X'00',&EIKSIZE
X'01 t ,68,X'CO',Cl
48-55
C30-37)

CUFlicates

56-59
C38- 3E)

A CO)

60-63
C3C-3F)

AC&ERROPT)

CC~.

Address of user's translate table.
If r.c translaticn s~ecified.

AC&~RANS)

SR 0,0
SVC 6
B 0 (14)

Address cf user's errcr rcutine if
ERRCFT=none.
ERRCF~ atsent.
ERRCF~=IGNCRE.

64-67
C40-43)

S~H

&RECSIZE,54Cl)
NCP OCO)

Save user's reccrd length.
No RECSIZE oferand.

68

X'&ECRCHAR'

End ef record character.

________
~ _______________________________
~ ______________________________________________
J
(44)
X'OO'
Nc ECRCHAR cFerand er RECFOR~=FIXUNE.

Nurr.cers in farentheses are disflacerrents in hexadecirral notation.
Figure 25.

tTFFT:

no shifts, device=1018.

Unit Reccrd Files

63

r---------~---------~---------------------,

I
I
~he PTMOD ~acro can generate ten
~odules providing the GET cr PU~

lcgic
functicn
for paper tape files. The particular
~odule depends on DEVICE=, ~RANS=, and
SCAN= rracro pararreters. The user can
obtain four different logic uodules for the
2671 paper tape reader if ~EVICE=2671 is
specified or if DEVICE= is cuitted. He can
obtain four different logic uodules for the
1017 paper tape reader if DEVICE=lC17 is
specified and two different logic ucdules
for the 1018 paper tape punch if
DEVICE=1018 is specified.
~he TRANS= parameter specifies whether
or not the generated module ccntains the
logic needed to translate non-shifted
punched paper tape characters intc EEC~IC
code on input (2671/1017 paper tape reader)
or EECDIC code into non-shifted punched
paper tape characters on output (le18 paper
tape punch).

~he SCAN= parameter specifies whether or
not the generated module ccntains the logic
to handle records containing shift and/or
delete characters.

All modules support the use cf either 1
or 2 I/O areas. Decision tlccks are
included in the flowcharts tc indicate the
procedure followed for both 1 and 2 I/C
areas.

~o read a record frcrr paper
tape punched in EBCDIC code.

2£jec~!ve:

I 1 Input I
I Area
I

2 Input Areas

I
I

.---------+---------+---------------------~
I
I
I
I
I
I

I NOP 0(0) I MVI I~E1SVC1,X'07'
I
I (NCP first Bve 0
I
I instruction)

I
I
I

I

I

I

I

~

~

II~E1MCVE

I Bve 0
I sve 0 (first)
I
I
I
I
I
L _________ I _________
JI
II~E1Sve2
NOPR 0 I _____________________
sve 0 (secend)
II~E1SVCl

If cnly ene I/O area is specified fer
the file, the GET routine uses the 'first'
sve 0 instruction te read a reccrd frou the
paper tape device. After the corrplete
reccrd has teen read inte the I/C area, the
I/C area address in the eew and the I/C
area address in the DTF table are
exchanged. (In this case, the exchange is
ueaningless because bcth add£esses are the
sarre when cnly one I/O area is used.) The
reccrd is then checked fcr errcrs and
ccntrcl is returned tc tte prcblerr prcgrarr.
If twc I/O areas are specified for the
file, the GET routine uses the 'first' sve
C instructicn to read the first record
£n!Y. After the first record is read, the
first sve 0 instruction is ~ade a NOP by
the executicn cf the instructicn ccntained
in the D~F table at the latel I~El~OVE.
~he first SVC 0 instruction is cnly
restored if it is needed tc handle errcr
ccnditions. After checking for I/C
ccrrplete ar.d reading a ccrrplete record intc
the I/C area, the addresses cf the two I/O
areas are exchanged, and the reccrd is
checked fer errors. The GET rcutine then
NCFs the first SVC 0 instructicn and uses
the 'second' BVC 0 instructicn tc read the
r.ext reccrd. From this pcint on, cnly the
seccnd SVC 0 instruction is used
exclusively, except fcr handling errer
condition. The GET routine returns control
tc the prctle~ progra~ without waiting for
ccrrpleticr. cf the I/C cperaticn started ty
the second BVC 0 instruction.

Exit: To the problem prograu, cr tc the
user's EOF rcutine.
Method: To support the use cf either 1 er
2-I/o-areas, the GET reutine makes use of
three key instructions contained in the DTF
table. The three instructicns, repeated
here for convenience, are:

~his GET routine functions the sarre
GE~ routir.e for nc translaticn.
It

as the
differs
cnly in the logic included tc acccrrplish
the required translaticn cnce a ccrrplete
record has been read intc the I/C area.

Unit Reccrd Files

65

Cnly undefined records are checked for
wrong length errors. For this, the user
must specify one byte in excess cf the
longest record. If the residual ccunt is
zero, control is given to the wrcng length
errcr routine.
when physical IOCS indicates a rermanent
data check (bit 4 of the ccnnunicaticn byte
in CCB), the reader is sto~~ed fcllowing
the erroneous character so that the in~ut
area is not completely filled. Lcgical
IOCS starts a read operaticn to obtain the
remainder of the record, then exits to the
errcr option.
gn9-2f-Fil~:

Upon detecticn of an
end-of-file condition (unit excertion in
CSw) by physical IOCS, a flag is set in the
CCE (bit 1 of the communication byte).
When logical IOCS detects this flag, an
input area can still be processed. Thus,
control to the ECF routine is cnly given at
the following GET macrc instructicn.

2E~£~!~:

10 read a record frcn the ra~er
tape without performing the translating or
editing procedures.

gn!El:

Fron the GET macro expansicn.

££j~ctiy~:

To read a reccrd fron paper
tare using the translatir.g and editing
rrccedures.

~n!!Y:

Frcm the GET nacrc expansicn.

~~!!:

To the user's progran or tc the EOF
routine.

~ethcd:
The method is described under
~~§!~-P!!fciFl§§, excert for ottaining the
ccrrect nunber of tytes tc ccnrlete the
fixed-length reccrd.

The nunber cf characters s~ecified ty
the user in CVBLKSZ is read in, translated,
and ccnpressed as descrited in tr.e
fcllcwing section (Charts GL and GM).
If
the resulting reccrd is shcrter than that
s~ecified in ELKSIZE, additicnal characters
are read ir., translated, and ccnrressed tc
com~lete the reccrd.
Additicnal reads are
rerforned until the reccrd length is equal
tc or greater than BIKSIZE. Cn the next
GET nacrc instructicn, tr.e renair.ing
characters, if any, are stcred in the
leftnost pcsitions of the next input area
tc te reac in. The I/C ccnnane is mcdified
by the length of the remainder.

Exi!: To the user's progran one
instruction after the GET nacrc exransion
(nornal return), or to one cf the cther
possible user's routines (end-of-file,
wrong length, data error).
Method: The method is essentially that
Just-described under Basi£_I!!n£!El~§.

f1j§£!!y§: To read a reccrd fron the ~aper
tape and tc perform the translating and
editing prccedures.
~E!!Y:

Frcn the GET nacrc expansicn.

£~~!:

2E~£ti~:

To read a record frcn the rarer
tape and to perform the translate fUncticn,
that is, to translate the paper tare code
to an acceptable code.

To the user's progran one
instructicr. after the GET nacrc expansion,
cr tc cne cf the user's rcutines
(end-of-file, wrong length, data error).

~§!Q£9:

gnt!1:

Fron the GET macro expansicn.

g~!!:

To the user's progran one
instruction after the GET nacrc expansicn,
or to one of the other possible user's
routines.

Cnly the translating and editing
functicns are considered. The lcgic is
described ~nder ~~2~~I!lf£lEl§2. The
editing functions consist cf the following:
1.

A scar. fcr shift and/cr delete
characters is nade using the Scan
table. All entries cf this tatle are
zero exce~t the entries for the shift
and/cr delete characters. Scanning is
perfcrned by a TRT ir.structicn.

2.

when a shift and/cr delete cr.aracter is
encountered, scanning stcfs and the
ccrresrcnding address is stcred.

~ethQ9:

This nethod is essentially that
just described under ~~Si£_R!!E£!El~§,
except for the translate functicn. The
translate function is ~erfcrned using the
TRANS table specified by the user, which
must satisfy the requirements of the TR
instruction.

Unit Reccre Files

67

CCW1

Write the whole record.

CCW2

Write the EOR character in the
UNCEF record fornat.

Insertion of shift characters in a reccrd
results in lengthening of the reccrd. If
the user does not use the o~ticn OVBLKSZ,
several WRITE operations are required tc
punch the record. If CVBLKSZ has teen
specified with a value greater than that
specified for BLKSIZE, the record can te
punched in a single operaticn.

3.

when the end of the record cr a change
in the shift status is er.ccuntered, the
scanning operation (TRT instruction) is
stc~Fed and the segnent is translated~

4.

Test tc nake sure that the end of the
record does not overstep the tcunds of
the cutFut area (BLKSIZE cr CVBLKSZ).
If space is left, the rerrainder of the
reccrd is rroved ty cne character fcr
right-justification tc include the new
shift character. Then, the Frocedure
is resurred at steF 2. If nc s~ace is
left, the segment considered is
Funched. The rerrainder cf the reccrd
is moved to the teginning of the out~ut
area, for left-justificaticn. Then,
the prccedure is resurred at step 2.

The following steps describe the logic
of the editing function:
1.

2.

Determine the shift status
character in the record to
correct shift character in
This character will be the
header.

cf the first
include the
the CCWO.
record

Perform a scan, using the ccrrect
scanning table, LSCAN or FSCAN,
depending on the current shift status.

that CVBLKSZ is igncred fcr undefined
records. For further infcrrraticr. on
CVELKSZ, see ~aEe!_TaEe File_(CTFPT) in
fCS/VS S~~rvisor and I/C Macros,
GC33-5373.
~cte

unit Reccrd Files

69

r--------T-----T---------------------------T-----------------------------------T--------,
I
I
I
I
IRecord a I
I Eytes

I Eits I

Ccntentsi.

I

Function

I Forll'at

I

~--------+-----+---------------------------+-----------------------------------+--------i
0-15
ICCE.
I
(OO-OF)
I
I
I

8
(8)

o

16

I Input: X'00'-X'63'
Cutput: X'00'-X'04'
(Variatle)
X'OO' (Undefined)

IEuffer cffset length, ASCII

I

I
I

IFirst till'e entered M~MCC fcr a file
INot used.
ICCECL cpen; igncre cFticn.
IAmerican National Standard CCECL
IDTF tatle address ccnstants
Irelocated ty CPENR.
11 = sFanned reccrds
11 = ASCII
IV
10 = EECDIC
IV,S
IASCII input: l=Length Check
IV
V
IASCII eutFut: l=Euffer
I
offset length=4
IAddress cf legic mcdule.

1
2
3

(10)

I

4

5
6

7
11-19

(11-13)

I

I

20
(14)

X'll'
X'12'
X'13'
X'14'

o

21
(15)

I

INcr.standard er unlateled.

I

IStandard lateled, cutFut.

I

IStandard lateled, inFut, tackwards.

I

IStandard lateled, inFut, ferwards.

I

First tine switch:
1 = not first-time entry.
o = first-tine entry.

1

1 = tlccked.
0 = untlocked.

2

1 = 2 I/C areas.
0 = 1 lie area.

3

1 = wcrkarea,

F,U,V
F,U,V
S

0 = no workarea.
0 = wcrkarea, sFanned
1 = inFut,

0 = output

l
I
I
I
I

I

I

I
(16-1D) I

22-29

I

1 = tackwards.
o = fcrwards.

6

1

7

= eheckFcir:t.

o=

11 =

I

no checkFoint.
~RUNC

ISyntclic

I

required during close.
filena~e.

I

ISane as ecnnand code in CC~.
(lE)
I
I (X'Ol', X'02', or X'OC').
--------~-----~---------------------------~-----------------------------------~-------Figure 21. CTF~T: Data files (1 ef lC).
30

I

5

~a9netio

TaFe Files

71

r--------T-----T---------------------------T-----------------------------------T--------,
I
I
I
IReccrd I

I

2

I Eytes

I Eitsl

Ccntents 1
I
Function
I Fcrrrat I
~--------+-----+---------------------------+-----------------------------------+--------~
o
IDTFPH: 1 = yes, 0 = nco
I 36
I (24)
I

I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I

I

1

ICCECI indicatcr:
10 = no.

2

IFile type:
1
10 = cutr;:ut.

I

I

1

= yes,

4

IEOF-EOV switch (outr;:ut):
1 = ECl, 0 = ECV.

7

44-47 1
(2C- 2F)

input,

IFECV s.itch:
10 = no.

6

40-43
(28-2E)I

= yes,

3

I

Cr;:en indicatcr:
o = closed.

5

37-39
(25- 27)

1

I

1

I
I
I
I
I
I
I
I
I

1

1

= o~en,
v,s

variatle cr spanned reccrds.

= undefined

u

records.

EOF address.
Bleck count.

IEXH 11,12,24(15)

I

IEXLE 11,12,24(15)

I

11

&VARELD,~EELCCKER

Forward.

F

Eackward.

F

If VARELD parameter is used.

v

NOP 0(0)

S

DC F'O'

u

DEEICCliER1.

lA 14,1 (14)

48-51
(30- 33)

F,V,S

ECTR 14,0+NCFRC

Eackward.

F,V,S

1 &RECSIZE,DEELCCKER1

If RECSIZE given.

u

NOP 0 (0)

For inr;:ut if not NCF.

u

L &ICREG,DEEI0CKER1

If ICREG specified.

F

11 &ICREG,DEEI0CKER5

If ICREG specified.

V

If ICREG specified.

U

52-55
(34-37)

I

11 &IOREG,DEEI0CKER2

I

INOP 0(0)

I

56-63

I

IIf no ICREG.

I

11 &RECSIZE,IJFVSREC

IIf spanned input.

I

I

1ST &RECSIZE,IJFVSREC

IIf spanned output.

I
I

I

S
S

ICC~.

IL ________
( 38- 3F) I _____ I ___________________________ I ___________________________________ I ________ JI
~

Figure 27.

~

D~F~~:

~

~

Data files (3 of 10).

Magnetic

Ta~€

Files

73

r--------T-----T---------------------------T-----------------------------------T--------,
I
I
I
IRecord:.! I

I
I Eytes

Ccntents~

I Eitsl

I

Function

I Forrrat

I

~--------t-----t---------------------------t-----------------------------------t--------i

I 80-83
I (SO-S3)
I

p::C Y (BLKSIZE)+Y (ELRSIZE-1) I.Forwara.
I
I
I~C &(BLRSIZE)+Y(ELRSIZE+1) IEackward.

I

I

I

I~C

I

I

I

F'O'

LR 12,RECSIZE

I
84-87
( S4-S7)

(Bytes 80-81 only.)

U

(Bytes 82-83.)

U

~C

Y(RECSIZE-1)

(Bytes 84-85.)

F

~C

2X' 00'

(Bytes 86-87) Output,
standard latels.

F

1 I/C area:

A (ICAREA1+4)

DC A(ICAREA1+BUFCFF)

I

V,S

~EELCCKER4.

H'O'

DC A (ICAREA2+4)

I

F

~C

~C

I
I

F

DEBLOCRERS,

2 IIC areas:

I

V,S

EEC~IC.

DEBLOCKERS, EECDIC.

V,S

I
I
I
I
I
I

1 IIC area: [EBLCCKER5, ASCII.

DC A(ICAREA2+BUFCFF)

2 IIC areas: DEELOCKER5, ASCII.

DC 2X'00'

(Eytes 84-85 cutfut cnly)
Standard Latels. Reserved fcr CPEN.I

E 28(15)

Infut only, ERRCPT=orritted.

E 24(lS)

InFut only, ERRCPT=SKIF.

E 28{lS)

Infut cnly, ERROPT=IGNCRE.

~C A(ERROP~)

Infut only, ERROPT=ADDRESS

I
I
I
I
I

I
I
I

V
V
F, U
U
U

U
U

~--------t-----t---------------------------t-----------------------------------t--------i
I 88-91
I (S8-SB)
I
I
I
I
I

I

DC A{WLRERR)

InFut cnly

I
I
I
I
I

B 24(15)

InFut cnly, ~LRERR crritted
and ERRCFT=SKIP.

B 28(lS)

InFut only, ~LRERR orritted
and ERRCFT=IGNCRE cr ouitted.

I
I
I
I

I
I
I
I

I

~C

For
Fixed
Length
Records
cnly

~lRERR=A~~RESS.

OutFut enly, standard late Is
(bytes 88-89), reserved fer OPEN.

2X'CO'

I
I
DC A(ERROPT)
InFut cnly, ~LRERR crritted and
I
I
IERRCP~=A~DRESS.
I
I
I
~C 6X'00'
IFile Serial ~umber,
I 90-9S I
I ________
(SA-SF) I _____ ___________________________ Istandard
Latels, Outfut cnly.
I _______ _
L
___________________________________
~

Figure 27.

~

rTF~T:

~

~ata

~

files (S ef 10).

~a9netie

Tafe Files

75

r--------T-----T---------------------------T-----------------------------------T--------,
I
I
I
IRecord I

I
I Eytes

2

I Bitsl

Contents 1

I

Function

I Forrrat

I

vari-

I

.--------+-----+---------------------------+-----------------------------------+--------i
100-103
A(WLRERR)
IInfut only,
IFor
I
I~C

(64-67)

~LRERR=ADDRESS.

I

I

IE 24 (15)

I In~ut only, ~LRERR=orri tted
land ERRCFT=SKIP.

I
~

I

I

I

IB 32(15)
I
I
IDC 2X'OO'
I

100-101
(64- 65)

IDC A(ERROP~)
IE 28(15)
B 24(15)
E 28(15)

104-107
(68-6B)

108-111

I

I

~C

4X' 00'

IVolume sequence number.
IStandard latels, outfut enly.

~c

6X' 00'

( 6E-73)
IDC 4X'CO'
I

112-115
(70-73)

I

(74-77)

(74-77)

~

Figure 27.

I

IStandard latels, infut enly.
IReserved for OPEN.

I

IFile serial number.
IStandard latels, input cnly.

I

IFile sequence nurrter.
IStandard latels, output only.

I

I

I

I

I

I

~

~

IDC 4X'OO'
I

116-119
121-123
(78-7B)
________

A(ERROPT)

I

IOutput only, ERRCPT=ADDRESS,
Istandard latels cnly.

I~C

116-119

I

IOutput, Nonstandard latels
lenly (Versier. 3 enward).
IERRCPT=ADDRESS

(6C-6D)\
110-115

IIn~ut enly, ERRCPT=A~DRESS.
I Input only, ERROPT=onitted.
IInput cnly, ERROPT=SKIF.
I Input only, ERROPT=IGNCRE.

A(ERROPT)

DC 2X'CO'

108-1091

IInfut enly, ~LRERR=onitted
land ERROPT=IGNORE or
lenitted.
IOutput only, standard latels,
Ireserved fer CPEN.

~C

(6C-6F) I

able
I
Length
and
spanned
Records

IVelune sequer.ce nurnter
IStandard latels, input only.

IDC 4X'00'
IFile sequence number.
latels, infut cnly.
_____ I ___________________________ IStandard
___________________________________
DTF~~:

~

I

________ J

Data files (7 cf 10).

~agnetic

Tape Files

77

Ir--------T-----T---------------------------T-----------------------------------T--------,
I
I
I
IReccrd 2 I
I Eytes I Eits I
Contents 1
I
Functions
I Format I
~--------t-----t---------------------------t-----------------------------------t--------i
100-103
IDC A(W1RERR)
IIn~ut cnly, W1RERR=ACDRESS.
IFor
(64-67)

I
I
IE 24(15)
I

I
I
IInrut only, ftLRERR=o«.itted
land ERROPT=SRIP.

I

I

B 32(15)

100-101
( 64-65)

CC 2X'00'

102-107
(66-6B)

File Serial NURber

100-103
(64-67)

CC 4X'00'

100-123
(64-7E)

IDC 24X'00'

I
I

104-107
( 6S-6B)

104-107
e6S-6E)
10S-123
( 6C-7B)

I

IOutrut only, standard labels,
Ireserved fcr OPEN

I

IStandard labels,

cnly.

IOutrut only, ERROPT=ADCRESS,
INcr.standard labels cnly.

I

Icut~ut cnly, ERRCPT=cRitted,
INonstandard labels.

I

I

I

I
I

I

ERROPT=ADDRESS.
ERROPT=cRitted.
ERROPT=SKIF.
ERROPT=IGNCRE.

ICutrut cnly, ERROPT=ADCRESS,
INonstandard labels.

I
I

Ivolume Sequence NURber

Outrut only, ERRCPT=ADCRESS,
Ncr.standard labels.
Standard labels, outrut cnly.

I
I

112-115

out~ut

I
I

I Inrut only,
IIn~ut cnly,
I Inr ut only,
IIn~ut cnly,

ICC 16X'00'

10S-111
(6C-6F)

IFile Sequence Nurrber

Standard labels, output only.

I
I

I
I
IDC
I
I

Cutrut cnly, ERRCPT=ADDRESS,
Standard labels.

I

I

I

I

I

I

(7C-73)

116-1191
(74-77)

IIn~ut cnly, ftLRERR=cRitted
land ERROFT=IGNCRE or oRitted.

IDC A(ERROPT)
IB 24 (15)
IE 24(15)
IB 2S (15)
I DC A (ERROP'I)

120-1231
OS-7B) I

10S-1231
(6C-7E) I
10S-1091
(6C-6D) 1
110-1151
(6E-73) I

I Spanned
IReccrds
Cnly

A(ERROP~)

ICC 4X'00'
I

Cutput only, ERRCPT=ADCRESS,
Standard labels.

IDC 16X'00'
I

I
I
I

cnly, r.cnstandard
labels.
In~ut

.I

Standard labels, input only,
reserved fcr OPEN.

ICC 2X'00'
I

IFile Serial NURter
I

Standard labels, inrut cnly.

I
1
IVolume Sequence NURber
standard labels, input only.
(74-77) I
I
I
I
120-1231
IFile Sequence NURber
Standard labels, inrut cnly.
IL________
(7S-7E) I _____ I ___________________________ ___________________________________
116-1191

~

Figure 27.

~

DTFMT:

~

~

_______ _

Data files (9 cf 1e).

~a9netic

Tare Files

79

r-------T------T------------------------------------------------------------------------,
I
I
I
I

IEytes I Eits I Function
I
~-------+------+------------------------------------------------------------------------~
I 0-15
CCB.
I (OO-OF)
I
0-1
Not used.
116
( 10)
2
COBOL open; igncre oFtion.
3
1 = VaLl label is at user specified density.
4
1 = DTF table address constants relccated by CPENR.
5-7
Not used.
17-19
(11-13)

Address af lcgic module.

20

DTF type = X'10'.

(14)

21

o

(15)

1
2

3
4
5
6
7

= no rewind.
= rewind unlcad.
= warkfile.
= read backward.
write.
= POIN'Iw.
Not used.
1 = forward-sFace file

1
1
1
1
1
1

22-23
(16-17)

Not used.

24-25

Record length.

befcre next cFeraticn.

(18-19)

Maxirrum BI.KSIZE.

26-27
(1J\-lE)

28

Read comrrand ccde (X'02' for read forward. X'OC' fcr read backward).

(1C)

EOF address.

29-31

(ie-iF)
32-39
(20- 27)

CCW.

40-43

Block count, initialized OOOCOOOO fcr read fcrward, CC40COCO fcr
read backward.

(28-2I3)

o

44
(2C)

1
2
3

4-7

= error

routine.

= igncre.

Not used.
1 = reccrd fixed unblocked.
Not used.

1
1

I
I
I

DC A(ERROP'I) Address of error routine.

1 4 5-47

1L _______
(2C-2F)

1
1

~

______ ~ ________________________________________________________________________ J1

Numbers in parentheses are displacements in hexadecirral notation.
Figure 28.

CTFMT:

Workfiles.

~agnEtic

'raFE Files

81

r--------T-----T---------------------------T---------------------------------,
IBits IContents
IFuncticn
I

I Bytes

~--------+-----+---------------------------+---------------------------------i
37-39
(25-27)
40-43
(28-2B)

44-87
(2C-57)
88-89
(58-59)

I
I

Iuser label exit.
I

I
IDC F'O'
I
I
I

I
IReserved fcr CPEN.
I
I

I

IEOV Routine
I

I

I

IDC 2X'OO'
I

IReserved fcr CPEN
I

I

90-95
(SA-SF)

I

ICC 6X'OO'

96-99
(60-63)

IFile Serial

I
I

I
I

I

I

~

~

IDC 4X'OO'
I

~umber

IVclurre Sequerce Nuwter
I

100-103
ICC 4X'00'
IFile sequence Number
L________
(64-67) _____ I ___________________________ I ________________________________ _
~

Numbers in
Figure 29.

~arentheses

CTFPH:

are

dis~lacements

Magnetic

ta~e

in hexadecirral notation.

(2 of 2).
IF RECFOR~=SPNBLK cr SFNUNE. a wcrkarea is
reqUired.

~he

MTMOD macro ~rovides the logic modules
required to ~rocess both magnetic tape data
files and workfiles. In all, seven
distinct modules can be generated; six for
data files with various recc-rd fcrrrats, and
one for workfiles. These rrcdules supply
the logic necessary to sup~crt all the
logical IOCS irr~erative macrcs used with
magnetic tape files.
Because some of the LIOCS irr~erative
macros are used with both data files and
workfiles and some are used cnly with cne
file type, the maqnetic ta~e modules have
been combined and flowcharted tc illustrate
the functions of the individual irr~erative
macros.

FILES

DA~A

A se~arate logic module is generated by the
MTMCD macro for data files ccntaining
records in each of the following formats:

~ote:
The last two irr~erative rracros are
net-used with undefined records.

wCRKFILES
~he workfile
~~MCC rracro,

rrcdule is generated ty the
when ~YFEFLE=wORK is
s~ecified, tc allow a ta~e drive tc te used
for toth input and out~ut in one ~rogram.
Althcugh usually ccnsidered as ar. cut~ut
file first, the function cf a workfile can
te switched at any tirre, therety allowing
records to be written cn or read frorr the
sarre file.
The logic of the wcrkfile rrcd~le uses
the imperative macros REAC and wRITE,
instead cf the GE~ ar.d PU~ used ty data
files, to transfer records between the
device and rrain stcrage. The wcrkfile
rrodule alsc differs frow the data file
rrcdules ir. that tlccked reccrds, switching
cf I/O areas, and ASCII files are not
su~~crted.

1.

Fixed, tlocked and unblocked.

2.

Variable and spanned, tlocked and
unblocked.

3.

Undefined.

~hese

modules provide the lcgic tc ~erforrr
the functions of the LIOCS irrperative
macros CNTRL, GET, PUT, RELSE. and TRUNC.

In addition to the REAC ar.d WRI~E
irrperative macros, the wcrkfile rrcdule
suppcrts the NCTE, PCINTS, PCINTR, POINTW,
and CHECK imperative rracrcs. CHECK rrust
always te issued after a READ cr WRITE if
the user wishes to ensure corrpletion of the
cperaticn tefcre issuing ancther
instruction.
NOTE is used with the PCINTR
and FOINT~ rracros tc pcsiticn the tape tc a
Magnetic Tape Files

83

Method: This routine is fer nendata
operations on the file. Fer reagnetic ta~e
these operations are: backsface, forward
space, rewind, write a taperrark, etc.
~he routine puts the control e~eration
code in the CCW, causes the control
function to te pel:formed, waits fcr the I/O
operation to finish, and return control to
the problem f.'t'ogram.

~ntry:

Frcn a GET nacre expansicn to the

lal:el:
IJFFGE~ fcr files containing
fixed-length records in EBCCIC.

for files containing
fixed-length reccrds in ASCII.

IJFXGE~

IJFUGE~ fer files containing undefined
records in EECCIC.

for files containing undefined
records in ASCII.

IJFNGE~

MTMCC:

FEOV Macro Chart DC

9bjective: ~o cause an EOV to occur before
a true EOV condition is reached.
Ent!Y:
label:

for files containing spanned
reccrds in EBCCIC.

IJFSGE~

FrOR an FEOV macro expansion to the
fer files containing
variatle-Ienqth records in ASCII.

IJFRGE~

IJFFFEC for files containing
fixed-length records in EBCCIC.
IJFXFEO for files containing
fixed-length records in ~SCII.
IJFUFEO for files containing undefined
records in EECDIC.
IJFNFEO for files containing undefined
records in ASCII.
IJFVFEO for files containing
variable-length records in EEcrIC.
IJFSFEC for files containing sfanned
records in EECDIC.
IJFRFEO for files containing
variable-length records in ASCII.
gXi!:

IJFVGE~ for files containing
varial:le-length records in EECCIC.

To the problem

~rograrr.

Method: The FECV macro causes an end ef
vOlurre condition to occur tefore the
physical end of volume is reached. On a~
input file, the trailer late Is are not
checked and the user s~ecified rewind
option is executed. For an cut~ut file, if
standard latels are specified, a trailer
label is created, and the user rewind
option is executed.

Exit: Te the pretlerr frcgran cr tc the ECF
address.
~ethod:
~be GET routine accesses the next
sequential legical reccrd in a nagnetic
tape data file. The record is rreved from
the I/C area to the werkarea if WCRKA=YES
is specified in the CTF. Otherwise, the
record is available in the I/O area.
Cverla~ cccurs if twc I/C areas are
s~ecified •

The routine perforns deblocking, if
required (for variatle-lengtr. reccrds, the
user specified block size is obtained
first), ar.a then gees tc a read/write
sutroutine. The read/write sutreutine
checks fcr first tine, twc I/O areas,
checkpoint records, etc, and performs the
required I/C cperaticn. If ASCII is
specified, the input is first translated to
EECDIC. If a workarea is specified, the
GET routine then tranehes to the werkarea
sutrcutine that neves the ccr.tents of the
I/C area into the workarea. If a workarea
has not teen s~eeified, the address ef the
current I/C area is loaded inte the user's
ICREG. Fcr variatle-length, sfanned and
undefined records, the record size is
calculated and made availatle tc the user.
The GET reutine then returns contrel tc the
frctlerr I;rcgran.

~his routine sets the FECV switch on in
the DTF table and calls $$BCEOV1 tc clcse
the file and execute the user specified
rewind option. If no rewind o~ticr. is
specified, a message is issued indicating
the tape should te rewound and unlcaded.

If ERREXT is sI;ecified, input errers are
returned te the problen I;regrarr, and
greater flexitility is allcwed tr.e user in
atterrpting to continue precessing.

Obje2tive: ~o access a logical record from
a Ragnetic tape data file.

ffjectiy§: To put the tare tleck count in
register 1.
~agnetic

~ape

Files

85

~:

To the problem progran.

Method: The PUT routine writes a zecozd in
the next sequential locaticn cn the file.
If a workarea is specified, the 'FU! routine
moves the contents of the wozkazea to the
I/O area. For blocked (fixed, sFanned and
variable length) records, if the zecord
fills the I/C area, the PU! zoutine writes
the contents of the I/O azea on the file.
If unblocked oz undefined zecords are
specified, each PUT causes a zecord to be
written on the file. If nc ~ozkazea is
specified, the user must build the physical
recozd in the I/O area.
!he PUT zoutine goes first tc a workazea
subroutine to determine if a wozkazea has
been specified (for undefined zeccrds, the
record size is obtained prioz tc this
action). If a ~orkarea is sFecified, the
record is moved from the workarea to the
I/O area and any required blccking is
performed. If ASCII is specified, the
outFut is also tzanslated to ASCII. The
PUT routine next goes to a read/~zite
subroutine ~hich checks for fizst tine, twc
I/O areas, checkpoint records, etc, and
performs the required I/O cFeraticr.. !he
address of the next available I/C area is
then loaded into the user's IOREG and the
PUT zoutine zeturns control to the problem
program.
If ERREX! is specified, additicnal
errors are zeturned to the Fzoblen program,
and greater flexibility is allc~ed the usez
in attempting to continue prccessing.

cnly a Fcztion of the zecczd is zead.
checking is not pezfczned.

WLR

Befcre zetuzning to tte REA~ nacro
zcutine, a check cf tit 7 cf byte 21 in the
~!F is ~ade to deternine if a FOINTS naczo
~as issued befcre the REA~.
If the bit is
cn, indicating the PCINTS was issued, the
taFe is at loadpoint. It is, thezefore,
necessary to execute a fcrward-sFace file
cpezaticn to typass any late Is and pcsiticn
the tape to the first data recozd. When
this opezation is ccnFlete, ccntzcl retuzns
to the REA~ macro routine.
The REA~ macro zoutine issues an EXCP to
stazt a zead 0Fezatien ar.d retuzr.s to the
Froblen program.

Ctj~tiv§:

Tc skip the zenaining zecczds

in a blcck.
Entzy:
label:

Fzen a RELSE naczc eXFansicn tc the

IJFFREl for files cor.tair.ing
fixed-length zecczds in EBC~IC.
IJFXREl fcz files ccr.tair.ing
fixed-length reccrds in ASCII.
IJFVREl for files containing
vaziatle-length zecczds in EEC~IC.
IJFSREl fcz files ccr.tair.ir,g spanned
recozds in EBCDIC.

QB~ctive:

!o read a physical zeccrd frcn

IJFRREl for files containing
vaziatle-length zecczds in ASCII.

tape.
~!!!:

Fron a READ maczo eXFansion
IJFWREAD.

Tc the prcblen pzegzan.

~n!!~:

Exit:

To the problem progzan.

Method:

The READ macro allc~s the usez to
data on an input work file. This
nacro requires the user tc sFecify the azea
the record is read into, and alsc allo~s
the user to zead only a portion of the
record if he desires. The READ nacro
allows the user to read his zecozds fozward
or backward. Ho~ever, only cne dizection
of reading is allowed for a pazticular
file. Deblocking of blocked zecczds is not
perforrr.ed by the REA~ nacro.

access

routine branches tc the
Subroutine to test fcr
record forrrat and length and to set up the
proper contzols. This routine alsc
detezmines if the entize physical zecozd is
to be read for undefined reccrds. If not,

~ethod:
!tis routine causes the remaining
recczds ir. the input tlcek tc te tYFassed.
Conditions are set up that cause the next
GE! instruction for this file to read in a
r.e~ physical zeccrd fzcn the file.
The GE!
instruction makes the first lcgical zecozd
cf the ne~ tlock available tc the usez.

The REISE routine sets the end-cf-block
pcintez tc 0, and zetuzns ccr.tzcl to the
Frcblen pzcgram.
The REISE rr.aozo can only be issued to an
input file.

!he REA~ n.acro
REA~/WRITE Ccmnon

To write the current block even
if it is r.et full.

ffj~ctiy~:

~agnetic

Tape Files

87

standard volume label, VOL1, and the
standard file labels, HDR1, EOF1, and EOV1.
(Refer to Volurre 1 for the fcrrrat cf these
labels.) User labels and ncnstandard
labels must be processed b~ the user.
Volume 1 of this set of fcur lcgic
manuals contains a detailed discussion on
the use of tape labels.

open, Close and_ECF/ECV Routines
Charts 01 and 02
~ape

Note: Tape files are identified t~ a
single job ccntrol statement, // ~IEL.
This statement combines the infcrrration
for~erly contained in the // TIAE and
// VCL staterrents and allows for si~plified
standard tape label processing and tape
file creation. Note, however, that Jot
Control still accepts either tYfe
statement, and that a ~andatcry change of
job control statements by the user is nct
required.
~he reader is cautioned, where reference
is rrade to the // TLEL job centre I
statement in the text and flcwcharts in
this manual, that the reference afflies to
the collective // VOL and // TFIAE
statements as well. Also, the decision
blcck (that appears in some cf the
flowcharts) that contains the question

TIEL INFORMATION IN

D~F

determines if the DTF table contains the
tape label information included ty the
DTFMT rracros.

Objecti~~:
~o open, in a fcrward
direction, input tape files with standard
labels.

Entry:
•

Frorr the Cpen Monitor, $$EOFEN1.

•

Fro~ $$EC~T02.

•

Fron a ~essage writer phase tc the label
RELOCATE.

!nput: From the label infcrrraticn stored
on the SYSRES label information cylinder by
Job Control (// TLBL card irrage) and from
the tape currently being precessed.
To $$EOM~07, phase 2 cf Cfen Infut
Standard Labels, Forward, tc stcre the
updated TLEL information.

~xi!:

~his routine opens an input tape
file in a fcrward direction. It reads the
standard vclurr,e latel (VCL1) and ccmpares
the volume serial nurrber contained in the
latel tc the volurre serial nurrter cbtained
from SYSRES. The routine then reads the
standard tape file header latel (H~R1) and
co~pares it to corresponding entries
sfecified in the SYSRES label inforrration
(/ / ~LEL card).

~ethod:

All differences are ncted b~ rressages to
the cperatcr. If user latels are detected
and the address of the user's latel routine
(LAEADrR) is specified in the ~~F tat!"- fer
the file, an exit is ~ade to that routine
tc read and prccess the user's latels.
After the taperrark signif~ing the end cf
the latel area is read, $$EO~T07 is
fetched.
Ufcn entry intc the $$EOMT01 cfen phase,
a test is rrade to deterrrine if the phase
~as entered as a return frcrr a rressage
writer phase. If this is the case, a
branch is rrade tc the address sfecified ty
the particular response received frorr the
cferatcr fcr the rressage frinted. This
address is represented ir. the flcwcharts t~
the exit(s) from the decision bleck
fcllcwing the rressage tlcck.
The DTF table shculd ccntain tafe label
information. If entr~ tc phase $$EOMTOl
~as not t~ return frerr a rressage writer
phase, a test is made for the presence of
this label infcrrratien. If the rTF
ccntains such information, it rrust then be
used tc ufdate the SYSRES latel
informaticn.
Next, the $$BOM~Ol open phase reads the
tape fer a standard vclurre latel, VOL1
(refer to Figures 26 and 27). If this
late I is nct fcund, errcr rressage 4111A is
printed. If the VOL1 latel is feund, the
volurre serial nurrber is saved in VCLSAVE.
~hen the r~F table is checked tc deterrrine
if the file is already open. If the open
indicatcr is cn, t~te 36 cf the r~F tatle
is examined to deternine if the file is
defined fer processing b~ physical IOCS
(~~FFH).
If the file is sc defined, the
volume sequence number entry in the // TLEL
card irrage is incremented by 1 unless the
entr~ is blank.
If the file is not alread~ cFen, the
vclurre serial number in t~e tafe VCL1 latel
is compared to the file serial nurrber
(EECrIC) cr set identifier (ASCII) in the
// TLBL card image. If the nurrbers are nct
the sarre, errcr rressage 4112A is Frinted.
If the response tc this rressage is IGNCRE,
the // TLEI file serial nurrber (EECDIC) or
set identifier (ASCII) is rrade equal tc the
volurre serial number. If the respcnse is
~EW~AP, indicating that the cperatcr has
rrounted a new tape, checking cf the
standard volume label is repeated. If the
Magnetic Tafe Files

89

2.

To the Message Writer,

3.

To the Standard Volume Label Rewriter,
$$BONVOL.

$$BC~TC~.

Method: The $$BCMT03 routine checks and
builds labels for output tare files. The
routine:
1.

Checks the information in the // TLBL
card image and inserts the rrorer data
when blank entries are enccuntered.

2.

Reads the standard volurre label frcrr
the tape and compares it to the
information in the // TLBL card image.

3.

Determines the availability of the tape
from the standard file label.

4.

Writes new standard file and user
labels as required.

when the required labels have been
written on the tape, a taperrark is written
and the file is posted open in the DTF
table. At this point, the tape is
positioned at the beginning cf the data
area.
Upon entry into the $$BC~T03 phase, a
check is made to deterrrine if the rhase was
entered on a return from a rressage writer
phase. If this is the case, a branch is
rrade to the address determined by the
response received from the creratcr for the
reessage printed. This address is
represented in the flowcharts by the
exit(s) from the decision blcck fcllowing a
rressage block.
If a $$BCMT03 phase was nct entered froR
a message writer phase, a test is rrade tc
determine if tape label information is
contained in the DTF table. If sc, it is
necessary to update the // TLBL card irrage
in reain storage with inforrraticn ccntained
in the DTF table.
This routine then checks the fcllowing
fields of the // TLBL card irrage and
inserts default values, as necessary, when
blank entries are encountered:
•

Volume sequence number (EECDIC) or file
section number (ASCII) (default=OOOl).

•

File sequenoe number (default=OC01).

•

Generation nurrber (default=OOOl).

•

Version number (default=Ol fcr EBCDIC
and 00 for ANSI Labels).

•

Expiration date (default-retention
reriod = 0).

•

Creation date (today's date).

The blcck ccunt in the CTF table is set
to zero and a check is made for
srecificaticn cf nc-rewind (NCRWr). If
NCRWC is not specified, the tare is rewound
tc lcadpcint. If NORwr is srecified and
the tape is not at loadpcint, a branch is
nade tc lccation BACKSPC2, Chart LH. If
the tape is at loadpoint, a check is made
cn the density of the tare recunted and
assigned. After the density check, the
tape is read in search of a standard volurre
label, VCL1.
If a VCLl label is not found, error
nessage 4110A is printed. If the cperator
response is a voluree serial nurrber, a new
VCLl label, fcllowed by a dunrry record to
prevent possible detecticn of a ncise
record, is written. A resrense cf NEWTAP
indicates that the operatcr has neunted a
new tare and the check cf the VCLl label is
repeated.
If a standard volurre label is fcund, the
vclurre serial number is saved in VCLSAVE.
If the file is nct already pcsted cpen in
the CTF table, the file serial nurrber in
the // TLEL card irrage is checkec. If this
field is blank, the volurre serial nureber
frcn the VCLl label is inserted into the
card irrage. The volurre serial nunber and
the // TLEL card file serial nurrber
(EECrIC) or set identifier (ASCII) are
ccnpared. Any discrerancy is ncted by
error rressage 4112A. If the serial nurrbers
are equal, the next record is read. If any
additicnal vclume labels are read, they are
bypassed.
When the standard file label, HCR1, is
read, the expiration date is checked tc
deterrrine the availability ef the tape. If
the tape is available (that is, if the
retenticn pericd has expired cr the
expiration date has been reached) cr if nc
HrRl label was fcund, the tape is
backspaced and $$ECMT04 is fetched.
If the tape is not at lcadrcint, the
routine at BACKSPC2 is entered tc backspace
twc reccrds and read cne reccrc in a
forward direction. This sequence cf
cperations is executed in an atterrpt tc
lccate and retrieve inforrration frem the
ICFl label of the preceding file. The file
serial nurrber (EBCCIC) or set identifier
(ASCII), vclurre sequence nurrber (EECDIC) cr
file section number (ASCII), and the file
sequence r.urrber +1 frcrr the ECFl label are
inserted into the // TLEL card irrage and an
exit is rrace frorr this ptase tc $$EOMT04
where a new header label is built and
written fcr the file beir.g cpened. If nc
preceding file labels are feund, the tape
is rewound and unloaded and errer rressage
41201 is printed.
Magnetic Tape Files

91

Upon entry to the $$BOMTC5 ~hase, a test
is roade to determine if the ~hase was
entered on a return from a message writer
~hase.
If this is the case, a branch is
made to the address (in register 14)
specified by the response received fron the
operator for the message printed. This
address is represented in the flowoharts by
the exit(s) from the decision block
following the message block.
If the phase was not entered on a return
from a message writer phase, the ~~F table
is examined to determine the direction of
the file to be o~ened and the a~pro~riate
action is taken.
1.

2.

3.

4.

5.

6.

For nonstandard labeled in~ct files
opened in a forward direction, the
labels are processed by the cser if the
address cf the user's label routine is
specified in the D~F table. ~etecticn
of a ta~emark indicates the end of the
label area, and the file is pcsted
open.
For unlabeled in~ut files cpened in a
forward direction, the tape is read in
search of a tapemark.
If a tapemark is
not read, the tape is backspaced one
record tc return it to its criginal
~osition.
In either case, the file is
~osted o~en in the DTF table.
For nonstandard labeled cutput files
opened in a forward direction, the
labels are processed by the user if the
address cf the user's label routine is
specified in the D~F table. If the
tapemark o~tion is specified in the DTF
table, a tapemark is written after the
last label. The file is then posted
open.
For unlabeled output files opened in a
forward direction, the tape is read to
determine if the tape ccntains any
labels. If a label is detected, error
message 4125D is printed and the
operator can elect either to ignore the
label or to mount a new tape. If the
operator chooses to ignore the label
and the tape is a 9-track tape, it is
backspaced, written, and again
backspaced. This sets the node and
erases the label.
If the tapemark
option is specified in the ~~F table, a
tapemark is written. ~he file is then
posted open in the DTF table.
For nonstandard labeled inpct files
opened in a backward direction, the
labels are processed by the user if the
user's label routine address is
specified in the D~F table and the file
is posted open in the D~F table.
For unlabeled input files cpened in a
backward direction, the cnly check is
for the existence of a tapemark. ~his

test pcsitions the tape prcperly. The
file is then posted c~en in the DTF
table.
7.

For nonstandard labeled cutput files
cpened in a backward directicn, the
same action as in item 5 occurs.

8.

For unlabeled output files opened in a
back~ard direeticn, tbe sane acticn as
in item 6 occurs.

~~Q~T06:
~hart E~

ffj~ctiy~:

open

WorkfilesL-~~gne!!f-TaE~

To open a tape werkfile.

Ent~y:

From the Open Moniter, $$EOPEN1, to
the label ~RANSEN~.

lnEu!:

1.

~c

2.

~e

Frcm the tape being precessed.

the TES precesscr, $$EOFEN.

the Standard Volune Label Rewriter,
$$EONVCL.

~ethod:

~his routine opens standard
labeled cr unlabeled, input er output, tape

~erkfiles.

If this phase is reentered en a return
from a message writer phase, a branch is
nade tc the address specified by the
respcnse received from the operatcr for the
nessage printed. This address is
represented in the flowchart by the exitCs)
frcn the decision blcck that fcllcws a
nessage blcck.
If this phase
the tape
unless the NCRWD
r~F table, and a

~enitcr

was entered frcn the Open
is re~cund tc lcadpcint,
option is specified in the
read ccnnand issued.

If a tapemark is read, the file is
immediately considered open and ccntrcl is
returned tc the TES prccesscr, $$ECPEN.
If a standard vclume label (VeLl) is nct
read, blanks are inserted into the SDR
reccrd, the tape is backspaced, and a
tapemark is written. ~he file is then
ccnsidered open and centrel is returned tc
the ~ES prccessor, $$ECPEN.
If a standard volume label is read, the
vclune serial number is saved in lccation
VCLSAVE. Additional read conmands are
executed tc bypass any additienal volune
labels. If a standard file label (HDR1) is
read that is neither blank ncr all zeros,
the expiration date is checked tc determine
the availability cf the tape. If the tape
is available or if no HDBl label is read,
~agnetic

Tape Files

93

information for the file intc the c~en
table at the end of the logical transient
area. This information is ~assed to the
required ta~e ECI/EOV ~hase fetched by the
EOF/EOV Monitor. The file c~en ~it in the
POE2 table is then turned off.

$$ECMT01: _TaE! Close, EOF/Eev
Forward Chart FA

InE~t

Objeotive: To olose an in~~t ta~e file
reading in a forward directicn.
Frow the EOF/ECV Mcnitcr, $$ECEOV1,
to the label TRANSENT.

~ntry:

Frow the SYSRES label infcrwation
cylinder (// TIBI card image) and from the
ta~e currently being processed.

!nEY~:

Exits:
1.

To the user's EOF routine if
in the CTF table.

2.

To phase $$ECMT02 for an EOV ccndition
to switch to an alternate ta~e.

3.

To CANCEL if an error ccnditicr. occurs.

s~ecified

This ro~tine is called by the
EOF/EOV Monitor. The routine reads and
processes the standard trailer label. An
exit and ret~rn are provided fcr ~rocessing
user labels if LAEADDR is s~ecified. It
checks to determine if an Eel cr Eev
condition is present. If an ECV condition
exists, $$BCMT02 (alternate switching
routine) is called. If an ECF condition
exists, control ~asses to the ~ser's ECF
routine by branching to the user's EOFADDR.

~g:

U~on entry into the $$BC~T01 ~hase, a
test determines if the phase was entered on
a return frow a wessage writer phase. If
this is the case, a branoh is wade to the
address specified (in register 14) by the
res~onse received from the c~eratcr for the
message printed. This address is
represented, in the flowcharts, by the
exit(s) from the decision blcck fcllowing a
n:essage block.

If the phase was not entered cn a return
frow a message writer ~hase, a check of the
DTF table (byte 36) then deterwines if the
file is being clcsed as a result of an FEOV
(Force-End-cf-Volume) wacrc being issued.
If bit 3 of byte 36 is on, an lECV ~acro
was issued. The tape is rewcund, unless
the NORWD option is specified in the DTF.
No label che£king is perforweg. Phase
$$ECMT02 is then fetched to deterwine if an
alternate tape is available.
If an FECV wacro was not iss~ed, the
$$ECMT01 phase reads the ta~e in searoh of

standard trailer labels if s~ch are
specified in the DTF table. Only the block
ccunt contained in these labels is checked
against the block oount contained in the
tTl tatle. Any discre~ar.cy is ncted ty
error message 4131C. User labels are
ty~assed ~r.less the user furr.ishes the nan:e
cf his label processing rcutine. This
~hase checks DTF byte 16, bit 3, to
detern:ine if An:erican National Standards
CCEOI has teen specified. If it has been
specified, a first-tin:e switch is set
befcre yielding control to the ~ser's label
~rccessing routine.
The ta~e is rewound,
unless the NORWD c~ticn is s~ecified, and a
check determines the ty~e of standard
trailer label read (that is, ECV1 or ECF1).
An ECFl label sets the ECF-ECV switch, bit
4 of byte 36 in the DTl table. If the
switch is turned cn, tte file is ~csted
closed in the DTF table and an exit is made
to user's end-of-file address, EeIADDR. If
the switch is cff, indicating that an
end-of-volume cond~tion exists, a test
detern:ines if the file is a CCEOI file that
wust be rewound and unlcaded. If so, the
rewind-unload operation is executed. Phase
$$ECMT02 is fetohed tc deternine if an
alternate tape is available.
If nonstandard labels are s~ecified,
exit is wade to the user's label rcutine
(IAEADCR) to process these labels. If no
labels are s~ecified cr if the user
s~ecifies the end-cf-file in the user label
routine, exit is wade to the user's
end-cf-file rcutine, EClACDR. If the user
specifies end-of-volun:e, ~hase $$ECMT02 is
fetched tc detern:ine tbe availability cf an
alternate tape.
If the user specifies neither end of
vcluwe ncr end of file, nessage 4130A is
~rinted and the operator can s~ecify either
ECF cr ECV. If the c~eratcr's reply is
ECF, an exit is made to the user's
end-cf-file rcutine, ECFAtDR. If the
cperator's reply is EOV, a test deterwines
if the file is a CCECI file that n:ust be
rewound ar.d unloaded. If sc, the
rewind-unlcad operation is executed. phase
$$EC~TCl then fetches ~hase $$ECMTC2 tc
determine the availability of an alternate
ta~e.

ebje~:

To switch tape drives when EOV

is sensed.

Entry:

Frcm $$BCMTOl cr $$ECMTC4.

InEu~:
Frcw the trailer label cf the
active file and frcn: the SYS8ES label
information (// TIEL card iwage) in n:ain
stcrage.

~agnetic

Tape Files

95

is complete, or if the address cf the
user's label routine is not specified, the
$$ECMT03 phase proceeds as described fer
unlabeled files.
If standard labels are specified in the
DTF table, the tape is read in search ef
the standard file header label, H~R1.
All user header labels are prccessed by
the user's label routine (LAEAD~R), or they
are bypassed if the address cf the user's
label routine is not specified. All file
header labels preceding (in a back~ard
direction) the standard HDR1 label are
bypassed. When the HDR1 label is read,
only the block count contained in the label
is checked against the block count
contained in the DTF table. Any
discrepancy is noted by errcr rressage
4131D. After checking the block ccunt, the
$$ECMT03 phase proceeds as described fer
unlabeled files.

•

File identification (FILEID) nurrber
(default = filenarre frcrr the ~TF tatle).

•

Generatien numter (default

•

Versien nurrter (default = 01 fer EBCDIC
files and 00 for ASCII files).

•

Expiration date (default
peried set to 0 days).

=

0001).

= retentien

If expiratien date is nct atselute,
the expiration date is calculated by adding
the retenticn peried to tcday's cate.

~ct~:

After updating the II TLBL card image or
if bit 5 cf byte 31 in tbe DTF tatle is net
en .
IWrite reccrd (CUTPUT).
Iwrcng length record (INPUT).
ITRUNCS=YES (OUTPUT).
ISecend GET operatien perfcrned (UPtATE).
IReturn to close reutine (CUTPUT).
IUpdate specified (UPtATE).
INot first entry after OPEN (OUTPUT).
INew extent required ty CLCSE.
Icapacity of l/c area exceeded (OUTPUT).
ISeccnd GET required (UPtATE).
INot first read (INPUT).
ISeccnd GET issued (UPtATE).
IUnnecessary to read (INPUT).
ITrack capacity exceeded (CUTPUT).
ISave record count (UPtATE).

I

o
1

2
3
4
5

6

7

IQ~Q~!in~g_Len9!~~~2£9_~2Qule§:

INot first entry after OFEN (ALL medules).
ISave record count (UFtA'IE).
IReturn to close rcutine (CUTPUT).
ISeeend GET issued (UPtATE).
I Not used.
IPUT ccrruand issued (UPDATE).
lEnd of file reached (UPtATE).
IMulti-track operaticn (UPtATE).

I

74-75
(4A-4E)

IBlcck size ninus cne.

I
I

76-80
(4C-50)

ICCEER = Extent lower lirrit and record
Inunter. Field is used as a search arguner.t
Ibucket by the logic modules.

81

1

(51)

I
11 = FEOVD has teen issued (eutput only)
I
I

81-83

IAddress of user wrcng-lengtr. record rcutir.e

lif inFut file.

(51-53)

IL ____________ I _________ I ____ ITraek
capacity ccunter if cutput file
_____________________________________________
JI
~

Figure 40.

tTFSt:

~

~

tata files (3 ef 12).

sequential Access CASt Files

113

The following section is added tc the DTFSD tatle for fixed-length recerd
input files.

r------------T---------T----T---------------------------------------------,
IDTF Assembly I
I
I
I
Label
I Bytes IBi ts I
Funetien
I
I
~------------~---------~----~---------------------------------------------~
IIf RECFORM=FIXELK and TRUNCS=YES:
I
~------------T---------T----T---------------------------------------------i
I 136-143 I
IRead ceunt Ccw.
I
I (SS-SF) I
I
I

I
I

I
I

I
I

~

~

~

I
I

I 144-151 I
Iceunt field inJ;:ut area.
I
I
I
I (90-97) I
~---------~----~---------------------------------------------i
I If CONTROL=YES, the following sEetien is added:
I
~---------T----T---------------------------------------------~
I 152-167 I
Icentrel CCB.
I
I (9S-A7) I
I
I
I
I
I
I
ICentrel Ccw.
I
I 16S-175 I
I (AS-AF) I
I
I
~------------~---------~----~---------------------------------------------i
IIf UPDATE=YES:
I
~------------T---------T----T---------------------------------------------~
I 136-143 I
I Search 10 Equal CCW.
I
I (SS-SF) I
I
I
I
I
I
I
ITIC CCW.
I
I 144-151 I
I (90-97) I
I
I
I
I
I
I
IVerify Ccw.
I
I 152-159 I
I (9S-9F) I
I
I
~---------~----~---------------------------------------------~
I If CONTROL=YES, the following seetien is added:
I
~---------T----T---------------------------------------------i
I 160-175 I
ICentrel CCB.
I
I (lIO-AF) I
I
I
I
I
I
I
I 176-1S3 I
Icentrel CCW.
I
____________ I _________
(BO-B7) I____ I_____________________________________________ JI
Figure 40.

CTFSD:

Data files (5 ef 12).

sequential Access CAse Files

115

The following section is added tc the DTFSD tatle for fixed-length recerd
outfut files.

r------------T---------T----T---------------------------------------------,
I
I
I

I DTF Assembly I
Label
I
I

Bytes

IBits I

lunetien

I'

~------------+---------+---.+---------------------------------------------~
I 136-143 I
I search ID Equal CCW.
I
I
I
I
I
I
I

(88-8F) I
I
144-151 I
(90-97) I
I
152-159 I
I (98-9F) I

I
I
ITIC CCW.
I
I
IVerify Ccw.
I

I
I
I
I
I
I

I
I~---------~----~---------------------------------------------~
If CONTROL is net sfecified:
I

I~---------T----T---------------------------------------------~
160-163 I
IEnd-ef-extent reutine address (friaarily
I
I (AO-A3) I
I used ty CCBOL COIr.filer).
I
I~---------~----~---------------------------------------------~
If CONTROL=YES:
I

I~---------T----T---------------------------------------------~
160-175 I
ICentrel CCB.
I
I (AO-AF) I
I
I
I
I
I
I

I 176-183 I
Icentrel Ccw.
I
I (EO-E7) I
I
I
I
I
I
I
I 184-187 I
lEnd-of-extent routine address (frimarily
I
____________ ~I _________
_____________________________________________
JI
(B8-BE) ~I ____ ~lused
ty CCBCL eeaJ;iler>.

Figure 40.

tTFSD:

Data files (7 ef 12).

sequential ACCESS tASt Files

117

The following section is added to the CTFSO tat Ie for variatle lengtt
record and undefined length record input files

r------------T---------T----T---------------------------------------------,
I
I
I

10TF Assembly I
I
Label
I

Eytes

IBitsl

Function

I

~------------~---------~----~---------------------------------------------i
IIf
UPOATE=YES:
I

~------------T---------T----T---------------------------------------------i
144-151
ISearch 10 Equal CCW.
(90-91)

I

I
I

152-159
(98-9F)

ITIC CCW.
I

I

160-161
(AO-A1)

IVerify CCW.
I

I

168-115
(A8-AF)

Icount field
I

in~ut

area.

I

116-183
(EO-B1)

Icount field save area if Cne I/O area.
I

I

184-191
(E8-BF)

ICount field save area if
I

t~c

I/O areas.

~---------~----~---------------------------------------------i
I If CONTROL=YES:·
I
~---------T----T---------------------------------------------i
I 192-201 I
IContrel CCB.
I
I (CO-CF) I
I
I
I
I
I
I
IControl CCW.
I
I 208-215 I
____________ ~I _________
(D0-01) ~I____ ~I _____________________________________________ JI
The following section is added to the CTFSO tatle for variable length
spanned record u~date files.

r------------T---------T----T---------------------------------------------,
I
I
I

10TF Assembly I
I
Label
I

Bytes

IBi ts I

Function

I

~------------+---------+----+---------------------------------------------i
I 216-219
ILogioal record length.
I (D8-DB)

I

I

I

I 220-223
I (DC-OF)

I

I
I
I
I
I
I
I
I

224
(EO)

IRX tYfe instructicn.
I
0
1
2
3
4
5
6
1

I

INot
11 =
11 =
11 =
11 =
INet
INot
11

I

I

I (El-E3)
I

I
I

I

I

I 225-221

I 228-235
I (E4-EB)
I 236-239
I (EC-EF)

=

used.
Skip segll'ent.
Sfanned first time.
Nell segll'ent.
Spanned PU~ return.
used.
used.
Ne update

IPointer in logical record.

ICount save area.
I
IExtent status save area.
I

------------~---------~----~--------------------------------------------.~hese bytes are al~ays generated when spanned precessing is
specified.
Figure 40.

OTFSO:

Data files (9 ef 12).

sequential Access OASO Files

119

~he

following section is added to the tTFSt table for variable length
spanned record output files.

r------------T---------T----T---------------------------------------------,
I
I
I

10TF Assembly I
I
Label
I

Bytes

IBitsl

iunctien

I

~------------+---------+----+-----------------------~---------------------i
200-203
ILegical record length.
(C8-CB)
I
I
I
204-207
IRX ty~e instructien.
(CC-CF)
I
I
208
(00)

209-211
(01-03)
212-219
U::4-DE)
220-223

0
1
2
3
4
S
6
7

INet used.
I Net used.
11
Leading segner.t.
11 = Output bleck truncated.
11 = Er.d of track.
11
~rack truncated.
11
Save count.
11 = Velumes s~anned.

=

=
=

I

IPeinter in logical record.
I

I

Iccunt save area.

I
I

IExtent status save area.

I

____________ ~ _________
(DC-OF) ~ ____ ~ _____________________________________________ J

.~hese

bytes are always generated when

Figure 40.

tTFSD:

s~anned ~rocessing

is specified.

Data files (11 of 12).

sequential Access tASt Files

121

r------------T---------T----T---------------------------------------------,
I
I
I

I DTF Assembly I
I
Label
I Bytes

IBi ts I

Functicn

I

~------------+---------+----~---------------------------------------------i
I&Filename

I

I

I
I
I
I
I

I
I

0-15
(O-F)
16
(10)

ICowrrand Centrol Bleck (CCE).

I
0-1
2
3
4
5-7

INet used
11 = File assigned 'IGN' (CCECL).
11 = ~rack held optien specified.
11 = ~~F relecated ty CPENR.
INct used.

I

17-19
(11-13)

IAddress of logic rredule.
I

I

20
(14)

ID~F type fer CPEN/CLCSE (X'20'
laccess DASD files).

21
(15)

0
1
2
3
4
5
6
7

= sequential

I

10 = disk device.
11 = CLOSE rracrc is nct te delete Fcrrrat 1
I
and Ferwat 3 file latels.
11 = wcrk file.
ITYFe ef open: 1 = Point, 0 = Normal.
11 = Rcutine entered frerr ciese routine.
11 = File epened.
10 = File clesed.
INet used.
11 = Reentry te clcse reutir.e.

I

22-28
(16-1C)

IFiIenarre (DTF Narre).
I

I

29
(lD)

IDevice TYFe code:
IX'CC' = 2311
IX'Ol' = 2314, 2319
IX'04' = 3330.
IX'08'
3340 general
IX'e9' = 3340 35ME
IX'OA' = 3340 70ME.

I

I

In previous versions, last byte ef
Ifilenarre centains device tYFe cede.

INC~E:

I

30-31

ITrack capacity eccnter.

I
I

(lE-1F)

32-35
(20-23)

IAddress of Forrrat 1 label in
I

I

36
(24)

IExtent sequence

0-2
3
4
5
6-7

ILc~er

I
I

39

head Iirrit.

IUpper head lirrit.

IL ____________ I _________
(27)
~TFS~:

n~rrter.

IOpen Corrmunications Eyte.
INet used.
11 = Syrrbolic unit in ~TF.
11 = Next extent er. ne~ velurre.
11 = Extent opened.
INct used.

I

38
(26)

Figure 41.

(CCHR).

I
I

37
(25)

~

v~cc

~

____

I _____________________________________________ JI

~

Workfiles (1 ef 3).

sequential Access

~AS~

Files

123

r------------T---------T----T---------------------------------------------,
I
I
I

I DTF ASSemhlJi I
Label
I Eytes
I

IBitsl

Function

I

~------------+---------+----+---------------------------------------------i
I
I
61
(3D)

0
1
2
3
q
5
6
7

I

62-63
(3E-3F)

IMaxiRuR record length.
I

I
IVerifJi chain bit.
I
I
IAddress of user's ECF routine.
I
I

6q
(qO)
65-67
(U-q3)

68
(qq)

0
1
2
3
q
5
6
7

69-71
(q5-q7)
72-1q3
(q8-8F)
lqq-151
(90-97)

ISwitch byte used by lcgic Rcdule.
11 = First write entry indicator.
11 = write uFdate indicatcr.
11 = PCINTS macro issued.
INct first reccrd cn track.
I (RECFCRM=UNDEF).
11 = ~rack uFFer liRit reached.
INet used.
11 = Check after read/~rite.
INet used.

ILcgical indicatcrs.
11 = ERROP~ = address.
11
ERRCP~ = IGNORE.
11 = Fixed-length unclocked records.
11
Verify sFecified.
11 = ERROP~ = SKIP.
11 = Reread after read errcr.
INet used.
INct used.

=
=

I

IAddress of user
I

read/~rite

errcr rcutine.

I

ICCW chain for work files (see Figure 2q).
I

I

IIn~ut

area for Verify CCW and Read ceunt

ICCW.

------------~---------~----~--------------------------------------------Numbers in parentheses are disFlaceRents in
Figure q1.

DTFSD:

he~adeciRal

r.ctatien.

Workfiles (3 of 3).

When physical ICCS macro instructicns are
used to process a sequential DASD file with
standard labels, and the user wishes te
have the labels checked, the file Rust be
defined by a D~FPH (Define ~he File for

I

FHysical ICCS) macro. TC define a
sequentially-organized DASD file in this
Hanner, the para~eters s~ecified in the
c~erand of the DTFPH Racrc instruction must
include DEVICE=2311/2314/333C/3340/2321 and
~CUN~ED=SI~GLE.
Figure q2 illustrates the
D~F table generated tc define the file fcr
~hysical ICCS.

sequential Access DASD Files

125

r--------T---------T------------------------------------------------------,

I Bytes
I
Bits I
Fur.ctien
I
.--------+---------+------------------------------------------------------~
39
(27)

EX~ENT

Sequence nunber of current

40
( 28)

Sequence nunter of last
entry).

EXTEN~

teing opened.

opened (not a conscle

EXTEN~

41-43
(29-2E)

Address o.f user's label reutine.

44-47
(2C-2F)

Address of IOAREA1.

48-51
(30-33)

CCHH address ef user's late 1 track. Initially
X'80000000' •

52-S3
( 34-35)

Lower head linit (HH) X'OCOO' if type 1: X'OOnn' if
type 128 (n = head linit).

54-57
(36-39)

EXTEN~

58-59
( 3A/3B)

EE seek address:
=x'OOOC' if disk device.
=X'OOnn' if 2321 where "nn" = bin number.

60-63
(3C-3F)

EXTEN~

64
(40)

Record nunter. 1

65-67
( 41-43)

Not used.

68-71
(44-47)

CCHH centre 1 tucket.

upper linit (CCEE).

lower limit (CCEE).

= Input,

0

= cutput.

CCHH = )('1309C413' i f 2321 - type 1.
CCEH = )('OOC80009' i f 2311, X'OOC8C013' if 2314 or
2319, er X'01940012' if 3330 - type 1.
CCHH = )('130904nn' i f 2321 - type 128.
CCHH = )('00C8COnn' if 2311 , 2314, 2319 - type 128
CCHH = )('019400nn' i f 3330 - type 128
CCHH = )('015CCOOB' i f 334C 35!1E
CCHH = )('02E8000B' i f 334C 70~B
where nn = current upper head nunter.

I
72
(48)

Record nunber.

73
(49)

Net used.

74-75
(4A-4E)

Net used.

176-80
I (4C-SO)

1
1
1

CCHHR tucket = extent lewer limit and recerd nunber.

I

181-83
IL ________
(Sl-S3) I _________
~

1

I

Net used.
~

1
I
I

______________________________________________________ J1

Numters in parentheses are displacenents in hexadecirral r.ctatien.
Figure 42.

DTFPH:

sequential disk (2 of 2).

Sequential Access CASt Files

127

Input

All Recanl Ty....

Output

V...labl. -Length lleco"

Typefll.

TypeR Ie

Notes:
I. Shoded A..- - Auembly TIme
2. Unot.aded A..... - Execute TIme

No

X'07' ,&flleno... S,X'4O' ,6

SEEK

X '07' , &Ftlenome.S,X'4O',6

X'3l', &FUe.... Ifte.S+2, X'40', 5

SIDE

X'3l', &Filename. 5+2, X'4O' ,5

SIDE

X'08',*-8,O,O

TIC

X'08',*-8,O,O

TIC

X'ID',&IOAREA2,O,Block Length+8

WCKD

X'06',&IOAREAI,X' ty the prcblerr pregrarr, and
rewrite the updated records en a sequential
CASD file.

PUT logic.

A test determines ~hether there
are any records in the output area tc te
written. If none, control returns to the
problem prograw. Otherwise, the phase sets
a truncation switch to indicate that the
TRUNC rracro instruction has teen issued,
and control tranches to the SDMCCFC PU~
logic to write the truncated record.

•

Frorr the GET macro expansion.

•

Frorr the PUT macrc expansion.

~ethog:

!~i~:

To the problerr pregrarr.

~bis logic rrodule reads
fixed-length tlocked er untlccked reccrds,
that are to be updated opticnally ty the

~ethod:

sequential Access CASe Files

133

If ERROP~ is specified as a farameter,
the module tests for errors as each record
is read. If ERREXT is specified,
additional errors are returned tc the
problem program for processing. ~f a
wrong-length record error occurs, the
residual count is tested.
If the residual
count is zerc, a genuine wrcng length
reccrd error exists. cther~ise, the
residual count is decreased by the logical
record size until the result is zerc or
negative.
If negative, a genuine
wrong-length record error exists. If zero,
the record is a valid short reccrd, and is
processed as a normal record.
When a PU~ macro is issued tc the file,
the module sets a switch in the C~F table
to indicate that a PUT command has been
issued. If the problen prcgran has
specified a work area, the ncdule naves the
logical record to the output area. Control
then returns to the froblem frogran.
Eecause the routine that ~rites the
reccrd is incorporated within the GET nacre
logic, a GET macro or a CLOSE macrc must be
issued to actually write the reccrd. After
the initial entry to the module, a test
determines ~hether another reccrd is
needed. If not, the module naves the
logical record to a work area, if sfecified
by the problem frogram, and contrcl returns
to the problem program. If the track hold
operation has been specified, every read
operation reads a record and hclds the
track.
If another record is needed, the nodule
determines whether a record nust be written
out first.
If the PUT-issued switch is cn,
the problem frog ram has issued a PUT macro
and the record in the output area is
written before reading the next record. If
the PUT-issued switch is off, the ncdule
ignores that record in the c~tf~t area and
reads the next record. In either case, if
the track hold option has been sfecified,
the module issues an SVC 36 to free the
held track before reading the next record.
If the extent upper limit is reached,
the module writes the remaining reccrds for
the extent, if necessary, and then issues
an SVC 2 to fetch $$BOFEN tc Of en the next
extent for the file.

Objective: Tc write any renaining reccrds
in sequence on a CASC file.
~~y:

From the close B-transient,
$$EOSDC1.

Exi~:

the clcse E-transient, $$BOSr:C1.

~ethcd:
~he close rcutine uses the GET
nacre-logic of its resfective ncdule, and
has the sane entry point to the ncdule as
the GE~ nacro.

The rcutine deternines whether there are
any remaining records to be written.
If
sc, the renaining reccrds are written and
control returns to the close B-transient,
$$EOSDC1, via an SVC 9.

Cbjective:
Ent~y:

!xi!:

Tc perfcrm a ncndata cferaticn.

Frcn the CNTRL nacrc eXfansion.
Tc the frcblen frcgrarr.

~he CNTRL nacrc instructicn causes
a-seek operation on a eAse device cr a
restcre oferation on a 2321. The routine
~aits fcr the cOfffletien cf any frevicus
I/C operation. It then initializes the
ccntrol CCE with the syntclic unit address
for the file, moves the central conmand
ccde intc the contrcl CCW, and lcads the
address of the CCE into register 1. ~he
rcutine issues an SVC 0 tc ferfcrm the
control oferation and returns centrol to
the froblen program.

~ethcd:

Cbjective: Tc cause a ftysieal read
cferation to be perfcrned when the next
nacrc is issued by the frcblen frcgran.
!nt~y:

When end cf file is reached, the module
writes any remaining records and frees any
tracks that have been held Cif the traok
hold option is Sfecified). ~he mcdule then
fetches $$EOPEN to exit to the frcblen
program's end-cf-file routine.

~c

EX!!:

GE~

Frem the RELSE nacrc eXfansicn.
Tc the frob len fregran.

~ethcd:
~his routine, used cnly in
cCDJunetier. with blceked input reccrds,
causes the renaining recerds in an infut
blcck to be bypassed. It sets the current
Fcinter tc the end cf the infut area, so
that the next GET macro instructicn causes
a ne~ fhysical reccrd tc be read intc the
infut area. The first lcgical reccrd of
that block is made available tc the froblen
frcgran.

sequential Access CASe Files

135

~xit:

To the problem prograrr.

Method: This routine, used cnly in
conjunction with blocked in~ut reccrds,
causes the remaining records in an input
block to be bypassed. It sets the current
pointer to the end of the in~ut area, so
the next GET macro instructicn causes a new
physical record to be read intc the in~ut
area, and makes the first logical record of
that block available to the ~rcblerr
program. If spanned records are being
processed, the entire block cf lcgical
spanned records is bypassed.

SDMCDVO:

PU'I' Macro

Charts HD-HF

Objective: ~o write variable-length
blocked or unblocked records in sequence on
a DASD file.
~~try:

Exit:

From the PUT macrc expansicn.
To the problem prograrr.

Method: Because variable-length records
are-Written, this module must keep track of
the number of bytes rerraining cn the track
for each reccrd prccessed (if all records
are unspanned), and must calculate the
number of bytes remaining in the cut~ut
area for the problem prograrr.
For each record to be written, this
routine increases the output area address
and accumulated data length by the current
reccrd size. A test then deterrrines if the
reccrd fits cn the track. If the record
fits, a test determines whether the output
area is full. If not full, the record is
rroved to the output area (if a wcrk area is
specified), addresses are updated and the
amount of space remaining in the cutput
area is calculated. Contrcl returns tc the
problem program.
If the output area is full, but not
exceeded, the rrodule moves the reccrd to
the output area (if a work area is
specified) and calculates the rerraining
track capacity. It then writes the reccrd
on the file.
If the record does not fit cn the track,
or the output block has been exceeded, a
test determines if any reccrds have been
previously processed and rr.cved intc the
output area. If so, the record(s) already
in the output area is written as a
truncated record and as the last record on
the track. ~he record that did nct fit is
moved to the first part pf the cut~ut area.
If records have not been ~revicusly
placed in the output area, and the current
record does not fit on the track, the
rrodule updates the DASD address tc the next

track, and writes the reccrd as the first
record on that track. If the extent upper
limit is reached, it fetches $$ECPEN to
c~en the next extent.
If spanned processing is specified, a
lcgical reccrd in the user's wcrk area of
the length specified in the RECSIZE
register is divided ty LICCS intc segrrents
to make full use of the space available in
each physical reccrd and device track.
processing proceeds for each segrrent in a
rranner sirrilar tc unspanred reccrds. In
addition to the bytes of data, each segment
ccntains a segrrent dEscri~tcr wcrd
indicating its sequence as the only, first,
rriddle, cr last segrrent in the ccnstruction
of the logical record.
A spanned record does nct s~an volurr.es
cn cutput. If there is nct encugh space on
the current volume to corr~lete a spanned
reccrd, the rrcdule rereads the last blcck
of the previous spanned record and
truncates it, if necessary, tc the last
segment. ~he rerr.ainder cf the track is
then erasec. An 8-byte record ccnsisting
cf a fcur-tyte block descriptor word and a
fcur-byte null segrrert is written cn each
rerraining track tc the erd of the extent(s)
on the current volume. Finally, an atterrpt
is rrade tc put the ertire spanned record cn
the next volume.
In rereading the last block of the
previously spanned reccrd, a recpening of
cne or more previous extents rray be
recessary. If so, the rrcdule interfaces
with the CPEN transients by setting
indicatcrs in the DTF to sho~ that a
~receding extent on the current cr previous
vclurre is tc te recpened.
The rrcdule alsc prccesses errcrs if
ERROPT is specified as an SD~ODVO pararreter
and the prcblerr prcgrarr tas s~ecified errcr
routines. If ERREXT is specified,
additicnal errcrs are returned tc the
problerr program for processing. If spanned
prccessing is specified ard
ERROPT=[SRIP,IGNORE1, the physical record
cn which the error cccurred is igncred.
~he rerraining spanned reccrd segrrents, if
any, are ~ritten.

ctjective: Tc write any rerraining reccrds
and/or the end-of-file record in sequence
cn a DASD file.
~nt!y:

Exit:

Frcrr the close transient, $$EOSDC1.
Tc the close transient, $$EOSDC1.
sequential Access DASD Files

137

the problem program on a sequential DASD
file. The records are returned to the same
location froH which they were read.
Entry:

~rcgrarr has specified errcr rcutines, the
Hodule also processes errors. If ERR EXT is
specified, additicnal errcrs are returned
tc the prcblerr prcgrarr fcr ~rccessing.

From the PUT macro expansicn.

~xit:

•

'Io the problem program.

•

~o

the clcse B-transient, $$ECStC1.

For unspanned reccrd, this routine
first reoves the logical record frorr a work
area to the cutput area, if a wcrk area has
been specified by the problerr ~rcgrarr.

Cbjective: To write any rerrainirg reccrds
in sequence on a DAsr file.

~~thog:

!E!!Y: From the close E-transient,
$$ECSDC1.
!xi!:

The I/O area address is then u~dated by
the logical record length, and the routine
determines whether the end of the block has
been reached. If it has nct been reached,
an update switch is set, and control
returns to the problem prograH.
If the end of the block has been
reached, the routine deterH,ines whether a
seccnd read operation has been ~erformed.
If so, tests are made to ensure that the
I/O operation has been com~leted.
~his routine then initializes the search
argument with the address cf the record to
be written, and the Read/write CCW with the
length of the record. It rrcdifies the
Read/Write CCW to write data, and issues an
SVC 0 to write the record. When I/O is
completed, the routine deterrrines ~hether
the track hold option has been s~ecified.
If so, the track of the reccrd j~st written
is freed via an SVC 36.

Spanned record processing prcceeds fbr
each segment in a fashion sirrilar to
uns~anned records.
The device is initia1ly
repositioned to the first block of the
logical record by using the ~ointer stcred
in the DTF table. If the lcgical record
spans several extents, the D~F is reset by
decrementing the extent sequence number by
1 and by using an AND (X'44') tc the o~en
comrrunicaticns byte. ~he extent where the
logical record begins can nc~ be reopened
by fetching $$BOPEN. ~he physical record
blocks are then updated frcrr the lcgical
record in the user's work area. Null
segments are recognized, but not assembled.
The routine next tests tc see if entry
to the module was from the close rcutine.
If so, control returns to the close
E-transient, $$BCSDC1. If end cf file has
not been reached, control returns to the
GE~ macro logic (if specified), cr to the
probleH prograrr. If end of file has been
reached, control returns tc the ~rcblerr
program, after setting the end-cf-file bit
on in the CCE.
If ERROP~ has been speoified as a
SDMCDVU paraHeter, and if the ~rcblerr

To the close E-transient, $$BOSDC1.

~bis routine sets the current
pOinter to the end of the I/C area, and
then deterrrines whether there are any
records in the output area tc be written.
If nct, ccntrcl returns tc the close
E-transient, $$BOSDC1 via an SVC 9.

~eth£g:

If any records are to be written,
ocntrcl branches tc the FUT rracrc logic to
write the rema1n1ng records and return to
the close routine.

Cbjective: To cause a physical read
cperation to be perfcrnec when tr.e next
rracro is issued by the prcbleH prcgraH.
!~!y:

Exi!:

GE~

Frcm the RELSE Hacro expansion.
To the problerr prcgran.

~~!hod:

~his routine, used cnly in
conjunction with blocked input records,
causes the rerraining reccrds in an input
block to be bypassed. It sets the current
~cinter tc the end cf the in~ut area, so
the next GET macro instruction causes a new
~hysical record tc be read ir.tc the input
area, and rrakes the first logical record of
that blcck available tc the ~rcblerr
progran. If spanned reccrds are being
processed, the entire blcck cf lcgical
spanned reccrds is bypassed.

Cbjective:
Ent!Y:
!xi!:

To perforrr a nondata cperation.

Frcm the

CN~RL

rracro expansion.

To the problerr prcgrarr.

~ethod:
~he CNTRL rracrc instructicn causes
a-5eek operation on a tASr device , or a
restcre c~eration cn a 2321. The routine

sequential Access tASt Files

139

neither is specified, the wait
bypassed.

loo~

is

Next, a test determines if the record
fits on the track. If the reccrd fits, the
~odule calculates the space renaining cn
the track after the record is written and
posts that information in the D~F table.
Then, it modifies the 1/0 area address in
the Write CCw and issues an SVC 0 to write
the record.
If ERROPT is specified as a ~araneter,
errors are processed as each record is
written. If ERREXT is specified,
additional errors are returned to the
problem program for processing.
If the record does not fit, a test
determines if the extent up~er li~it has
been reached. If so, the rcutine fetches
$$ECPEN to open a new extent. If not, the
routine updates the address to the next
available track, initializes the record
capacity bucket, and sets the reccrd nunber
to O. In either case, after the write
operation, the routine returns ccntrol tc
the problerr ~rogram after an I/C wait (if
two 1/0 areas are specified cr if a work
area is not specified).

Objective:
~n!fY:

~xi!:

SDMODUO

!o write an EOF reccrd.

Fron the close transient, $$EOSDC1.
To the close transient, $$ECSDC1 cr
PU~ logic.

Method: The routine waits fer 1/0
completion if two 1/0 areas cr a ~crk area
is specified. A test deternines if there
is enough roem left on the track tc write
an EOF record. If not, the SD~CCUC PU~
undefined record routine is entered. and
the search address is updated tc the next
available track in the current extent. If
another track is not available, $$EOPEN is
called in to open a new extent.

SDMODUU:
GE~ ~acr2~art ~~

FUT

M~fL~art

J§

Objectives: To read a physical record fran
a CASD file, and tc re~rite the record in
the sarre lecation if the recerd requires
u~dating.

En!f1: Fren the GET or FUT nacrc
expansien.
Exi!:

Tc the preblen frcgran.

- §ET Legic: This nedule reads
undefined length unblccked reccrds and
nakes then available to the user in a work
area, if cr.e is s~ecified. If track held
is specified. each read eperatien reads a
recerd and helds a track.
~ethcd

The first time thrcugt the ncdule, a
switch is turned on. the ceunt field and
data area cf the first recerd are read, and
the count field of the next record is read.
Cn each sutsequent er.try, the data area is
read and the count field ef the next
sequential recerd is read. A test
determines if the track hold e~tion is
sfecified. If so. the track is freed so
that the data can be read. A test alsc
determines if two 1/0 areas cr a werk area
is sfecified, so that ancther GE~ cperation
can be initiated.
In either case, centrcl returr.s te the
problen program so ttat the record can be
1;fdated.
If ERRCFT is specified as a ~arameter,
errcrs are prccessed as each reecrd is
read. If ERREXT is s~ecified, acditional
errors are returned to the problen progran
fer frccessing.
~ethf2-=_~ogie:
This nodule writes the
reccrds (ufdated c~tienally) en the DASD
file and returns control te the ~roblen
~rcgran.
~hen end of file is reached, the

ncdule precesses the last reccrd befcre
returning control to the protlen program.
If ERRCFT is specified as a parameter,
errors are precessed as each reccrd is
written. If ERREX~ is s~ecified,
additicnal errcrs are returned tc the
problen pregram fer processing.

When control returns to this reutine.
the proper 1/0 area is selected, the reccrd
data length is set to O. and the EOF record
is written. After a wait fer 1/0
conpletion, control returns to the close
transient, $$BOSDC1 via an SVC 9.
Cbjective:

To perforn a nendata

c~eration.

sequential Access CASC Files

141

Entry:
~!!!:

FraIl' the WRITE macre

ex~ansion.

To the problem progran.

Method: Two types of write eperatiens rray
te specified by the problen ~regran (SQ and
Update). If SQ is specified in the operand
of the WRITE macro, a sequential fermat
write (write count, key, and data) is
perforrr.ed. If UPDATE is specified in the
operand, a nonformat write (write data) is
executed. A WRI~E UPDATE shculd always be
preceded by a READ macro instructien.
~his macrc causes a record tc te written
frorr the area defined by the WRI~E ~acro to
the file. The length cf the reccrd to be
written is specified in the cperand of the
WRI~E macro instruction only if reccrds cf
undefined format are being written. If
fixed-length unblocked reccrds are being
written, the record length is defined in
the DTF table. Record blocking is not
handled by the WRITE macro because it is a
responsibility of the problen ~rcgrarr.

routine initializes the CC~ chain
to write count, key and data, and write
data. It also initializes a verify CC~ if
the update c~tion has been specified. If a
WRI~E UPDA~E macro is issued, this routine
reinitializes the CCW chain to write data,
and sets the verify CCW to read data. This
read data operation is fOllcwed ty a read
count operation in order te ebtain the
count field ID of the next sequential
recerd. It then issues an SVC 0 te write
the record.

Exit: To the close E-transient, $$BOSDC1,
via-an SVC 9.
~his routine ~erferns a
tranch-and-link operatien te the WRITE
rracro routine to write any reccrds
rerraining in the out~ut area, anc check the
write cperaticn. Upen return frerr the
CHECK Il'acro routine, this routine issues an
SVC 9 tc return te the clese B-transient,
$$EOSDC1.
~etn££:

Cbjeetive: To ensure that a previcusly
issued READ er WRI~E naere has teen
satisfacterily completed.
~nt~:

Frcm the CHECK naero expansion.

~~i!:

•

Te the problem pregran.

•

Te the problem pregran's end-ef-file
reutine.

~his

If a WRI~E SQ macro has been issued, the
routine determines whether the current
record fits on the track, er if the track
limit has been reached on a previous read
operation. If either condition e~ists,
control branches to a routine te update the
search address. The routine deternines
whether the end of the extent has teen
reached. If so, it fetches $$ECFE~ to open
a new extent. An SVC 0 is then issued to
write the record. The track capacity is
decreased by the effective length ef the
record just written. If the rc~tine has
been entered fraIl' the close routine,
control passes to the check routine to
determine if the input/output operation has
been completed. Otherwise, contrel passes
to the problem program.

SDMCDW:

Close Routine

routine waits fer the
of the input/eutp~t eperatien
started by a READ or WRI~E rracrc
instruetien. If the prebleII' prcgram has
specified ERROPT as a pararreter, this
reutine checks fcr read er write errers.
If nc errer has occurred, this rcutine
checks fer a write update eperatien. If
so, and the track hold option has been
specified, the routine issues an SVC 36 te
free the held track. Control then returns
te the prebleII' pregrarr.

~ethed:

~his

cem~letion

If a read cr a write errcr has eccurred,
and the preblem prograrr has specified an
errer reutine, centre I branches te the
user's errer routine tc ~rccess the error.
Upen return, if a read errcr rcutine has
teen specified, the count field cf the next
recerd is read. If the ignere cption has
not been specified, the rcutine returns tc
the READ nacre rcutine tc read tte next
record. If the ignore eption has been
specified, contrcl returns tc the prebleII'
prograrr.

Chart KD

Objective: ~o write any renaining reccrds
on a DASD work file.

Cbjective: Tc pass identificatien of the
last physical recerd that was read or
written tc the prcblerr prcgrarr.
En!!y:

Entry: Fron the close B-transient,
$$EOSDCl.

~~i!:

Frcm the

NC~E

nacro

ex~ansion.

To the prctlen prcgran.
sequential Access tASD Files

143

Method: The CNTRL macro instructicn causes
a seek operation on a disk device. This
routine isolates the Seek CCw in the CCW
chain by setting off the co««and chaining
bit, and issues an SVC 0 tc ~erfor« a
control seek. When the I/C eperaticn is
completed. the routine turns the cc«mand
chaining bit on and control returns to the
probletr. progralI'.

SDMCD:

FEOVD Macro

Chart KG

Objective: ~o force end of vclu«e in
sequential disk processing.
Entry:

Fro« $$BOSDEV.

Exit: To $$EOSDEV to close the current
volume and open a new cne.
Methog: The FEOVD macro instructicn causes
and end of volu«e condition to occur before
physical end of volume has been reached.
If forced end of volume is s~ecified.
$$ECSDEV is fetched to clcse the ccrrent
volume and open a new voluae.

labels and write then in their ap~ro~riate
location and sequence. Extent li«its are
checked to ensure that nc extent cverlaps
the Velune Table ef centents (VTOC) li«its.
cr overlaps an already existing file that
is still active.
Disk werk files are sup~erted as
single-volume. single-~ack files and are
always e~er.ed as cut~ut file.
When a file is closed. the clcse logical
transient determines whether a blcck cf
data remains to be precessed. If so, the
logic «odule is reentered to cc«~lete the
precessing. Upon return, file labels are
deleted if so specified. Otherwise. the
file labels are updated and rewritten if
the file is an out~ut file cr a ~erk file.
Control returns te the clese «en iter er the
proble« prcgratr..

SECUEN~IAl

DASD OPEN/CLOSE LCGIC

CFen/Clese sequential CAse Files

Chart 03

when a DASD file is processed sequentially
(D~FSR er DTFSD specified), CPEN initially:
1li!1!ALIZ~!ICN

AND

TER~INA~ICN FRC£~~URES

When sequential access DASD files (DTFSD)
are opened. and the file is cn «cre than
one volume. only one extent is ~recessed at
a time. so cnly one volume need be on-line
at a time.

I

Job contrcl accepts label infcrnatien
supplied by VOL. DLAE. and X~EN~ stateaents
(not for 3330). as well as infcr«atien cn
the sitr.plified DLEL and EX~ENT statements
provided by Version 3 onward. Jeb centrel
stores this LASD label infor«aticn on the
SYSRES DASD label inforaatien cylinder.
~he ~ES Processor. $$BCPEN. ~repares tc
read the label information fro« the SYSRES
label infor«ation cylinder inte the logical
transient area. and then fetches $$EOSDOO.
~he sequential DASD open logical
transients read the DASD label infer«aticn
fro« SYSRES into storage. The fcr«at cf
the SYSRES DASD label infornatien is
illustrated in DCS/VS LIOCS Volu«e 1.
SY33-8559. If the-file is-an-In~ut-file.
the open transients co«pare the file label
infermation with the SYSRES rAse label
infcrmation to detertr.ine if the legical
file is correct, if the serial nu«bers are
equal. and if the label extent linits are
equal to or greater than the li«its of the
inccming extent. The extent linits are
posted in the DTF.

If the lcgical file is an out~ut file.
the open logical transients create file

•

checks the standard label(s) en the
vclume, (or on the first volu«e of a
«ultivelu«e file),

•

«akes any additicr.al labels en the first
vclume available fcr checking, and

•

locates the first extent en the first
vclune and «akes it available fcr
processing.

lcgical IOCS processes cne extent at a
ti«e in the sequence specified by the
user's job control // EX~ENT cards. When
legical ICCS detects the end cf the current
extent, it branches tc the er.d-ef-extent
rcutine. CPEN then lccates the next extent
specified by the ccntrcl cards and «akes it
available for processing. If the next
extent is the first exter.t cf a different
volu«e used by the file. CPEN checks the
standard labels cn that vclune and makes
any additienal user labels available tc the
user fcr cbecking.

If the file tc be cpened is r.cr«al input,
the extents are read and checked as needed.
User labels are read and checked if LAEADDR
is specified. The file labels are checked
against the DLEL infcrnaticn. Tr.e open
indicator for the file is turned cn and
centrcl returns tc the user.
sequential Access rASe Files

145

I

$$BOSDI1: SO Open Input, DIBL Extents
Charts LE-L!

~SDI2:

Objective:

Chart

!§

SD Open_!nEut, Extent to DTF

•

To control the sequertce cf c~erations
required for opening each file extent.

Cbjective: Te obtain extent infcrRatien
for the ttF table as required by an atteRpt
te access a record beycnc the liRits of the
current extent.

•

to provide an entry to the user's
trailer label routine (if s~ecified), at
each end-cf-volume.

Entr~:
FrCR
$$EC~SGl and

•

To provide an entry to the user's
end-of-file routine (if s~ecified) u~cn
reaching the end of the last extent.

Entry: Froa. $$BCSDOO, $$BOS~Ol, $$ECS~02,
and reentry from $$BOSDI2, $$BCSDI3, and
$$EOMSG1.

$$BCSDI1, and reentry freR
$$BOtSMw.

Exi!!!:
•

To $$ECSDll to bypass current extent and
process the next cne.

•

To $$ECSDI4 to continue initialization
cf the DTF table.

•

To $$ECrSMw to print Ressage if data
SEcured file is unccuntered.

•

Tc $$ECFEN if the last DLEL extent is
processed and anether file reRains to be
opened.

•

To $$EC~SGl for operatcr cORRunication
tc display errcr Ressage.

Exits:
•

to $$BOSDI5 to post the DIB.

•
•

to

•

to $$BOStI3 to process user labels.

•

to $$BOPEN if the last DIEL extent has
been processed and another file is to be
cpened.

•

to $$BOMSG1 for operator cORRunication.

•

Return to problem prograR when all files
have been opened.

$$BOS~12

to continue CFEN

~rccessing.

to $$BODCUE to dequeue cld extents.

If a system unit other than SYSLNK
is being opened, this routine gets extent
information for the DTF froR the data
information block (DIE). $$EOSDI5 is the
overlay phase that posts the DIE.
Ctherwise, it continues at EYPASSX.

~g:

$$BCSDI1 tests for availability of ~LBL
extents. If no more are available, an exit
is wade to the user's end-of-file address
if no trailer labels are tc be ~rccessed.
If the file has been previously opened, the
next consecutive DLBI extent tc be o~ened
is read, and a test determines if this
extent is for another voluRe.
Upon encountering a new veluRe, trailer
labels are processed for the previcus
volume (if lABADDR was specified ~ith a
DTFSD), by exiting to phase 3 cf cpen
input. The volurr.e label is read and
checked to ensure that the ~ro~er pack is
a.ounted. If the volume label is all right,
the Format 4 label is read and checked.
1he VTOC liRits from this label are saved,
and initialization is perfcrRed to fetch
the next phase. The routine exits to
$$ECSDI2.

the routine reads the FcrRat 1
label for the file and ensures that no
discre~ancies exist bet~een the tIEL and
Format 1 label. the extents within the
label are scanned for cne that either
Ratches or falls around the liRits of the
inccRing extent. the scanning prccess
continues until a prcper Ratch is found, or
until all the extents have been exhausted
by reading the labels in the chain (if any
are present). The extent linits are then
~osted in the DTF table.
~he file is
indicated as being open, and acditional
initialization is perfcrned depending cn
the type cf DTF being opened.
~ethod:

The forRat 1 label is checked fcr the
data security indicatcr. If it is ON and
the file has not been opened, $$ECDSMw is
fetched tc put out a data security message.
Ctherwise, any user header labels are
prccessed, and contrcl branches tc $$BCSDI4
to continue initializaticn of the DTF
table.

Cbjective: Tc read user labels and give
ccntrol to the user for ~recessing theR.
~c rewrite any labels updated by the user.
Frem $$BOSDl1 or $$BCStI2, and
reentry frcR $$BOMSG1, $$ECFIPT, cr the
user's label routine via an SVC 9.

~nt!~:

sequential Access rASt Files

147

I

•

~o

•

~o

•

~o

$$EODQUE to dequeue extents.

•

~o

$$EOMSG1 for operator corrrrunication.

•

~o $$EOSIGN to check for device
assignment.

•

Return to problem prograrr when all files
have been opened.

$$BOSDI5 to post the DIE.

$$EOPEN if the open frccessing fcr
the file is complete and ancther file
remains to be opened.

If the Cpen/Igncre cpticn has nct been
specified, and the device is unassigned cr
assigned IGN, the job is aborted.
Ctherwise, the open ccntinues.
The rcutine alsc oeterrrines whether the
assigned device is the ccrrect device.
If
nct, the jcb is abcrteo. Otherwise,
control returns to $$ECSDC1 to ccntinue
frccessing.

Metho~:

,

This phase reads each extent
record from the SYSRES label cylinder,
tests for various conditions in their
appropriate order, and fetches the phase
required for further processing. If the
normal sequence is interrufted by the entry
of an extent frorr the conscle, the phase
finds the next DLBL record by using the
sequence nurrber of the last extent
processed before the extent ~as entered
frorr the console.
$$BCSDI5 is the overlay
phase that posts the DIE for a system file.

Cbjective: To read and verify the standard
vclune label (VOL 1) and V~OC label (Fcr~at
4), preventing any extent frcm overlapping
the VTCC.
Ent~y:

Frcrr $$BOSe01, $$ECSDC6, $$BOSD07,
and reentry from $$ECMSG1.

•

~c $$BCSD01 if an extent cverlafs the
VTCC.

•

~o

•

~o

•

To $$ECSDOS to prevent the user frcrr
creating identical labels in the VTCC.

•

To

The processing required fcr each extent
record depends on whether:
1.

~he

file being opened is a systerr file.

2.

~he

file is already open.

3.

The extent is on another volurre.

4.

~he

extent is entered frcrr the conscle.

5.

~he

ext~nt

is the last cne fcr the

$$ECSDC3 to continue processing a
sequential file.

$$ECSD04 to corrflete the cfening of a
compiler file.

$$EC~SG1

for operatcr corrrrunication.

file.
~ethcd:

6.

The extent is to be bYfassed, either
for file protection or because it is a
duplicate.

7.

User labels are specified.

S.

File protect is specified.

The volune and Fcrrrat 4 labels are
read-and verified, VTCC lirrits are saved,
and the extent lirrits are checked against
the VTCC limits for overlap. Fer each new
velurre that is opened fer the file, an exit
is made tc $$EOSDCS to prevent the user
frcrr creating identical labels in the VTOC.

Fcr an epened SYSlNK file, this routine
exits to $$ECSD04 after getting the VTCC
linits tc ecrrplete the efening ef the file.
Ctherwise, $$BOSDC3 cf of en cutput is
fetched tc further precess a seq~ential
file.
Objective:
~o check for the CCBOl Open/
Ignore function.
£~!~y:

Fro~

£!i!§:

To $$BOSD01.

$$ECSD01.

Method: This routine deterrrines ~hether
the-COEOL Cpen/lgnore functicn has been
specified.
If so, and the device is
unassigned or assigned IGN, the cfen is
bypassed.
If the device is aSSigned, the
open is continued.

Cbjective: Tc prevent e~ening any extent
that overlaps an already existing file that
is still active.
£~!~y:

Frem $$BOSDC2 cr $$ECSDW1, and
reentry frcrr $$BCSDOe er $$ECMSG1.
Sequential Access DAse Files

149

$$ECSD07: SC cpen
Console Chart lW

OutEutL-!~~~~~§-1£2!

•

Tc $$ECSD06 if user labels are

•

Tc $$ECFLPT if file

Entry: Frore $$BOSD01, $$BCDSPW, cr
$$EC2321.

•

To $$ECFEN if c~en ~rccessing fcr the
file is corrplete and another file
rerrains tc be ~rceessed.

•

'10 $$B02321 to complete cenversion ef

•

Tc

•

'10 $$BOSr:C2 to process the new extent.

•

Return tc ~roblerr
have been opened.

•

'10 $$BODSPV to display the V'ICC.

•

'10

Cbjective: To enter operater-~rovided
extent inforrration frorr the conscle.

2321 extent.

$$EOVr:~P

for a more extensive VTCC

dump.

Method: This routine initiates a nc mere
available extents message and reads the
operator's reply (if a 3210 cr 3215 has
been assigned to SYSLOG). If the cperator
did not cancel the job, it is assuned that
an extent was entered, which is then
checked for validity. If the exter.t is
valid, this routine exits tc $$ECSr:02 to
process it.

s~ecified.

~rctect

s~ecified.

$$EC~SGl

fcr

c~erater

is

ccnnunication.
when all files

~rcgrarr

~ethcd:
This routine fcsts a~~re~riate
extent infcrrraticn in the DTF table. It
then tests to check if user header labels
are to be ~rccessed. If that is the case,
it tetches $$ECSDC6. Ctherwise, it tests
if the extent is to be file-~rctected. If
yes, it fetches $$EOFLPT; if nc, it exits
tc $$ECPE~ tc open the next file cr it
returns tc the problen ~rcgrarr if there are
r.c rrere files to be c~ened.

Cbjective: Tc read and verify the standard
vclune latel (VOL 1) and VTOC label (Fcrmat
4), ~reventing any extent frcrr cverla~~ing
the VTCC (Volume Table of Contents).
Objective: '10 prevent creation cf
identical file labels.

£~~£y:

Fran $$EOSD02, $$BCSr:W1, $$EODA01,
or $$BCIS03, and reentry frcn $$ECMSG1.

£xi~.§:

Frcm $$BOSDOO, $$ECSr:01, $$BOSC02,
$$EOSDW2, and reentry frcn $$BCMSG1.

£~~£y:

•

'10 $$BODACl for Direct Access

•

'10 $$BOSCC3 for all other uses.

•

'10

•

'Ic $$ECSD03 to continue processing a
wcrk file extent.

•

'10

•

'10

~ethod.

$$EOMSG1 for operator corrnunication.

This rcutine uses the 44-byte
filenane fron the DLBl record as a key to
search the V'IOC for any identical filenane.
It deletes any identical label fcund if the
expiration date is passed. Ctherwise, the
operator has the option of canceling the
job or deleting the identical label.

Entry:

'10 update the D'IF table.

Frorr $$BCSD04.

du~licate

file

$$ECFEN if the last extent has been
and ancther file renains to te

~rceessec
o~ened.

~~th2g:

Cbj§£tive:

$$BCSDOB to prevent
latels.

•

Te

$$EC~SG1

fcr

o~erater

corrrrunication.

~ethcd:
'Ibis routine deterrrines whether
the-syntclic unit s~ecified in the DLBL
statement is assigned and whether it can be
~sed as a ~crk file.
It reacs tbe vclume
label and, if the device is a disk,
determines if a ccrrect disk pack is
mcunted. It reads the V'ICC label and
ensures that nc extent overlaps the VTCC.
If the V'ICC has not teen checked fcr a
dUflicate filename, $$EOSr:OB is fetched tc
eliminate ~ossible duplicatien. Subsequent
exits are tc $$BOSD03. (See ~~gf§r:Ol_§Q

f~~_Q~~f~~L-1~~~~~-f~£lsf·)

sequential Access r:ASr: Files

151

Method: This routine searches the track
hold table to determine whether a track is
being held by the file being clcsed. If
so, an sve 36 is issued to free the track.
If another se file remains tc be clcsed,
control returns to the close monitor,
$$ECLOSE. If ISAM files are being
processed, control returns to $$ECISOA.
otherwise, control returns to the ~roblerr
prograrr..

Objective: ~o find the Job Inforrration
Block (JIB) chain for a particular logical
unit; and to clear any extent ty~e JIBs
associated with the logical unit, and
release there to the available JIB chain.
En!.;y: Fron the sequential CAse o~en ~hase
$$BCSD01, $$BOSDC6, or $$BCSell to the
label eEQUER~N.
Exit: To the problerr. prograrr if nc files
remain to be opened, or to the ~ES
processor, $$BOPEN, unless the narre of the
phase to be returned to is supplied by the
calling phase.
Method: After storing the oontents of
registers 3 through 8 and the narr.e of the
phase that is to be returned to, if
specified, phase $$BCDCUE issues an sve 22
to seize the system; that is, to suspend
muitiprograrrrring operation. The ~hase then
locates the proper 2-byte entry in the LUB
table for the logical unit specified and
exarrines the second byte of the IUE entry
to determine if any JIBs are chained tc the
LUB. If JIEs are chained to the IUB; that
is, if the second byte of the LUB is not
hex 'FF', the address of the first JIB in
the chain is calculated by adding the
pointer (byte 2 of the LUB) rrulti~lied by 4
(the length of a JIB entry) to the starting
address of the JIB table.
Eyte 2 of the JIB entry is then exarrined
to determine if the JIB contains an extent.
If the JIB contains an extent, the extent
is cleared. Once the extent is cleared,
the pointer to the next JIB in the chain is
obtained frorr the fourth byte of the
current JIB. The current JIE is then
placed in the available JIB chain and the
pointer to the first available JIE (FAVP)
is rrodified accordingly. When the JIB has
been placed in the available chain, or if
the JIE does not contain an extent, the
address of the next JIB in the chain is
calculated using the pointer obtained from
the fourth byte of the current JIE. The
procedure is repeated for the next JIB.
~hen all the chained JIBs have been
checked, or if no JIBs are chained to the

LUB, phase $$BODQUE issues a second sve 22
to release the systerr for rrultiprograrr.rring
cperation. Phase $$EoeQUE then fetches the
calling phase or the first phase of the TES
processor, $$BCPEN, if tte narre cf the
oalling phase was not supplied and there is
another file to be opened. If the narre of
the calling phase was not su~plied and
there are no other files to be opened,
phase $$ECrQUE returns contrcl to the
prcblerr prcgrarr via an sve 11.

ffj~f!i~~:

When FECVD has been specified,
$$BOSDEV closes the current volurre and
opens a ne~ volume.

•

Frorr the FECVD rracrc.

•

From $$ECSD05 (phase 5 cf
sequential output).

•

Frorr IIces via sve 9.

o~en

Exits:
~ES

•

Tc the

processor $$EOFEN.

•

To the close phase $$ECSDC2.

•

To the problem prograrr.

~eth2g:

For an ~!Eut file, an end of
vclurre rrarker is written and the eTF is set
up so that the next record is ~ritten cn a
new volurr.e. The end of volune rrarker is a
ncrrral end of file reccrd.

Fcr an inFU! file, a check is rrade to
determine if update has been s~ecified. If
it is necessary to rewrite any updated
records, an exit is rrade to the nodule
close routine. End of volurr.e is posted in
the rTF, any remaining extents cn the
volume are bypassed, and the first extent
cn the next volume is cpened.

f£j~fti~~:

To corrplete ccnversicn of 2321
extent infcrnation entered frcn the
console.

£E!~y:
£~i!:

From $$BOSD07.
To $$BOSD07.

~ethcd:
~bis routine ccn~letes the
conversion of a 2321 extent linit.

sequential Access rASe Files

153

DEVICE INDERENDENT FILES

Device independent files are thcse files
defined by either a DTFCP nacro or DTFDI
macro.
!he DTFCP macro defines files used by
IBM compilers: COBOL, FORTRAN and PL/I.
The DTFDI macro defines files assigned
to the device independent systen ur.its
SYSRDR, SYSIFT, SYSPCH, and SYSLS!. The
DTFDI macro and its associated DI~CD macro,
therefore, provide DOS/VS Assembler users
with the same capabilities extended by
DTFCP.

Compiler (CP) files are files prcvided
specifically for IBM internal prcgrams such
as COBCL, FCRTRAN, and PL/I. !hese files,
defined by a D!FCP macro, prcvide linited
device independence. Because this file
definition does not conforn to standards
established for other logical ICCS
component and is tested for use f~lY by IBM
internal programs, it is nct dccunented in
any other System Library publicaticns.
Some of the differences between CP
components (DTFCP and CPMOD) and cther
LICCS components are:
1.

No provision tor separate assenbly.

2.

Error recovery not the same.

3.

!he DTFCP table is not
self-initializing; that is, the user
must initialize the table if the file
is reopened.

according to the device type. The device
type is found by the open phase by checking
the device type set in the PUB table entry.
After it is found, the proper indicators
are set ir. the DTF table, and the work
areas and CCW's are nodified. Standard
labels are not required cn tape files.
!he DTFCP header card is fcllcwed by a
series of parameter cards describing the
file, and specifying synbclic addresses of
routines and areas used fcr prccessing the
file. Because keyword paraneters are
specified, the parameter cards nay appear
in any order. This grcup cf cards
generates the necessary lcgical ICCS D!FCF
tables during assenbly.
The paraneter cards fcllowing the DTFCF
header card have keywcrd entries in the
cperand field. All cards used in the DTFCP
nacrc instruction, except the last, have
continuation punches in cclunn 72.
Fi1~~rr~:
This is the first entry in a
D!FCF nacrc instructicn. It assigns a
symbolic name to the file, which appears in
all I/C macro statements referencing this
file. The synbolic nane cf the file is in
the nane field, and D!FCF is in the
cperaticn field.

fEV~fDR=§YS!!!:

This pararreter specifies
the synbolic unit to be associated with the
file. If SYSPCH is assigned to the IBM
2540 or 2520 punch units, the CP Cpen
transient allows the errcr recovery
prccedures generated by D!FCF when
DEVADDR=SYSPCH.

ICAREA1=NA~E:
The I/C area to be used by
the-file-is-defined by ar. adcress
expression.

ICAREA2=NA~E:
If twc I/C areas are needed
fcr-'Cv€rlaI;fed GE!/PUT prccessing, this
paraneter is required.

lCR£§=(~l:

A D!FCP macrc instruction can be used for
each file that has fixed, unblccked
reccrds, and limited device independence.
When the file is opened, a channel progran
for reading/writing on a particular device
is built in the DTFCP table area (Figures
44, 45, and 46). Only the fcllcwing
devices can be accessed by D!FCP: IBM
1442, 1443, 1403, 3211, 2501, 2520, 2540,
2560, 3504, 3505, 3525, 2400/3400 series,
2311, 2314, 2319, 3330, 3340, 3540, and
5425.
!he DTF table generated at asserrbly time
is initialized by the DTFCP cpen phase

Fcr input files, this paraneter
specifies the general purpose register (n)
intc which laCS inserts the address of the
next logical record available fcr
prccessing. For output filES, ICCS inserts
the address of the area wtere the user can
build the next logical record. Any
register 2-12 nay be specified. The same
register nay be used for different files.
This parameter ~Q§! be specified
whenever twc I/O areas are used.

RECSIZE=n: Fcr fixed-Ier.gth reccrds, this
parareeter specifies the nunber of
characters in the record. I/C routines use
Device Independent Files

155

Ir-------T------T--------------------------------------------------------------------,
Bytes I Bitsl
Functicn
I
~-------+------+--------------------------------------------------------------------~
0-15
(OO-OF)

16
(10)

0-1
2
3
4

5
6

7

CCB.

I
I

Not used.

1
1

COBOL open; ignore option.
X'10' indicates an unlabeled FCRTRAN taFe.
DTF table address constants relocated ty OPENR.
Used by FCR~RAN (sequential Disk BacksFace and Re~ind).
1 = ASCII
o = EBCDIC
FORTRAN is calling DTFCP.

I
I

1

I
I
1

17-19
(11-13)

Logic module address.

20
(14)

DTF type X'32' except in the case of disk assigned
to units SYSOOO to SYSnnn. In this case, a DTFCP open phase
changes it to X'2C'.

21
(15)

Open indicators: X'02' input, X'OO' cutput, except
for tapes assigned to SYSOOO to SYSnnn ~hen X'OO' = input and X'OS'
= output.
I
X'OS' DISK=YES indicator.

o

0 =

Re~ind.

29
(11:)

Device type code:
X'OO' = 2311
X'Ol' = 2314, 2319
X' 04' = 333C.
X'OS' = 3340 general
X'09' = 334C 35~B
X'OA' = 3340 70MB.

30-35
(lE-23)

File address fcr disk; blcck ccunt if tit 7 of byte
16 is on.

36-37
(24-25)

Volume sequence

38
( 26)

Open switch.

39
l(27)
1

cr

~crkarea.

Sequence nunber of last extent. or X'SO' if 1442
punch.

1

X'80' indicates request fcr standard latel tape
OPEN.

141
1 (29)

I

142

I (2A)
1

I
I

1
L _______
1

n~rrber

Sequence nunber cf current extent.

140
1 (2S)

,

re~ind,

Filename (see tyte 29).

122-2S
(16-1C)

I

1 = No

~

______ ~

Figure 44.

X'SO' device is a 2560.
X'40' device is a 5425.
X'20' device is a DASI:.
X'10' device is a tape.
X'OS' device is a printer.
X'04' device is a punch.
___________________________________________________________________
_
X'02' device is a reader.

I:TFCP:

DISK=YES (1 cf 3).
Device IndeFender.t Files

157

r-------T------T--------------------------------------------------------------------,

I Bytes I Eitsl
Functicn
I
~-------~------~--------------------------------------------------------------------i
IEnd-of-table if DTF is defined fcr an input file.
1
~-------T------T--------------------------------------------------------------------i

1120-127.
I C77-7F) 1
1
1
1128-1511
I (80- 97) 1

1 Second CCW for eut~ut.
1
1
1 Verify CCW's for output.
1

1
1
1
1
1

~-------~------~--------------------------------------------------------------------i
IEnd-of-table if DTF is defined fer output file and DEVALDR does net equal SYSFCH.

1

~-------T------T--------------------------------------------------------------------i

1152-1591
1 (98-9F> 1

I

1

1160-1671
1 (AO-A7)1
1
1
1168-2311
1 (A8-E7) 1

1 2540 punch errcr recovery CCW 1.
1

1
1

1

1

1 2540 ~unch error recovery CCW 2.
1
1
1 Reserved.

1
1
1
1

1

I

~-------~------~--------------------------------------------------------------------i

IWhen the CP open initializes the table and deterrrines tbat the device is a 2540
1
Ipunch, the following bytes in the table are changed:
1
~-------T------T--------------------------------------------------------------------i
130
X'FF' indicater tc DTFCP e~en ~hases ana legic
1 (IF)
module.

1

132-35
1 (20-23)

1

14S-55
1 (30-37)

1

156-63
1 (38-3F>

1

164-71
1 (40-47)
1

172-151
1 (48-97)

Instruction to load user 1/0 area to I/C register.
CCW.
2540

~unch

error recovery CCW 1.

2540 punch errer recovery CCW 2.
SO-byte card irrage, savearea 1.

1

I

1152-231
80-byte card irrage, savearea 2.
1 (9S-E7)
~-------~------~--------------------------------------------------------------------i
IWhen the CF open initializes the table and deterrrines that the device is a 2560 or 1
15425, the following bytes in the table are changed:
1
~-------T------T--------------------------------------------------------------------i
32-35
1 Instructien te lead user IIC area tc IIC
I
(20-23)
register.
I
48-55
(30-37)

First

out~ut

1
I

CCW.

1

1

56-63
(38-3F)

Second

64
(40)

Stacker select character

65

Stacker select character W fer EECDIC.

out~~t

1

CC~.

I
V

1

I
I
I

for ASA.

1

1

L _______
~ ______ ~ ____________________________________________________________________ J
(41)

Numbers in parentheses are
Figure 44.

LTFCP:

dis~lacerrents

in

he~adecinal

r.ctaticn.

DISK=YES (3 cf 3).

Device

Ind€~endent

Files

159

r--------T------T-------------------------------------------------------------------,
I
I
I

I
I Bytes

I Eits I

Functien

I

~--------+------f-------------------------------------------------------------------~
44
0
1 = input, C = cutput.
(2C)

=
=

1
2
3
4
5
6
7

1
eject needed fcr a reader-punch, 0
1
net first ~ass, 0
first ~ass.
1 = 2 I/O areas, 0 = 1 I/O area.
1
2540 ~unch.
1 = SYSLS~ er SYSPCH.
1
SYSLS~ cr SYSPCH cn out~ut ta~e.
Reserved fer future use.

=

= no

eject.

=
=

45-47
( 2D-2F)

IOAREA2 address.

4B-55

CCW.

(30-37)

t--------~------~-------------------------------------------------------------------~
IEnd-of-tatle is DTF is defined as cut~ut file and DEVArrR is net equal tc SYSPCH.
I
~--------T------T-------------------------------------------------------------------~
I
12540 punch errcr recovery CCW 1.
I

156-63
I (3B-3F)
I
164-71
1 (40-47)
I
165-67
I (41-43)

I
I
I
I
I
I
I

I
I
12540 punch errcr recovery CCW 2.
I
I
IEOF address, in~ut only.
I

I
I
I
I
I
I
I

~--------~------~-------------------------------------------------------------------~
IEnd-of-tatle if DTF is defined as input file.
I

~--------T------T-------------------------------------------------------------------~

172-151 I
I (4B-97) I

I

,

I

1152-231 I
1(98-E7) I

lBO-byte card inage, savearea 1.
I

I
I

I

I

lBO-byte card inage, savearea 2.
I

I
I

~--------~------~-------------------------------------------------------------------~

IIf the device is a 2560 or 5425, tytes 56 onward contain the follewing infornation:1

~--------T------T-------------------------------------------------------------------~

156-63
I (38-3F>

Second

I

out~ut

CCW.

164

Stacker select character V for ASA.

165
I (41)

Stacker select character W fcr EECDIC.

I (40)
I
I

166-75

Reserved fcr future use.

176-235
I C4C-EE)

First I/O area.

I (42-4B)
I

J

1236-237
ICEC-ED)

IReserved.
I

I

I

123B-317 I
I CEF-13D) I

I

Isecond I/C area.
I

I

I

~

~

1318-319 I
IReserved.
IL ________
(13E-13F) ______ I __________________________________________________________________ _
1DTF type X'30' found in DCS LICCS Version 1 cnly.

Numbers in parentheses are
Figure 45.

DTFCP:

dis~lacenents

ir.

hE~adEcinal

netaticn.

DISK=NC (2 cf 2).
Device

IndE~Endent

Files

161

Ir-------T------T-----------------------------------------------------,
Bytes I Bits I
Function
I
~-------+------+-----------------------------------------------------~

140-47 I
I CCW.
I
I
I
I (2S-2F) I
~-------~------~-----------------------------------------------------~
lEnd
of table if DTF is defined as output file and DEVA~~R is not
I
lequal to SlSPCH.
I
~-------T------T--------------------------~--------------------------~
148-55 I
I 2540 punch error recovery CCW 1.
I
I (30-37) I
I
I
I
I
I
I
I
I
I
I
156-63 I
I 2540 punch error recovery CCW 2.
I
I (3S-3f) I
I
I
I
I
I
I
157-59 I
1 EOF address, input only.
I
I (39-3E) I
I
1
~-------~------~-----------------------------------------------------~I
lEnd of table if DTF is defined as input file.

~-------T------T-----------------------------------------------------~
164-143
I
I 80-byte card iaage, savearea 1.
I
I (40-SF) 1
1
1
I
1
1
1
1144-2231
1 SO-byte card iaage, savearea 2.
I
1 (90-13F)
1
1

I

~-------~------~-----------------------------------------------------~
IFor 2560 and 5425 bytes 4a cn~ards contain the fcllc~ing
1
linforaation:

1

~-------T------T-----------------------------------------------------~
4S-207 1
IOAREA1.
(30-CF) 1

I

20S-2091
(CO-Dl) I

Reserved.

1

210-3691
(C2-171)

IOAREA2.

I

370-3711
(172-173)

Reserved.

1

372-4511
L _______
C174-1C3)______
~

Compare area.
~

_____________________________________________________ J

Numbers in parentheses are displaoeaents in
Figure 46.
CPMCD

CTFCF:

he~adeciKal

r.etation.

DISK= paraKeter omitted (2 of 2).

~~

CPMOD rracro is used with IEM internal
programs only. ~herefore, the CF~CD macro
is not docuKented in any other system
Library publications--see ££!Eile~_Fi!~~.
~he

~he GE~-PUT logic reodules fer t~o I/O
areas, ~itt ICPTR and RE~Rl erritted handles
all ether cases exceFt these Kcd~les ~here
ICFTR=lES is specified.

The pararreters cf the CPMCD aaero are
parameters. Eecause key~erd
Fararreters are specified, the pararreter
cards after the header card Kay aFpear in
any crder. This group of cards generates
the necessary logical Ioes CPMCC during
asserebly.

key~erd

~he CPMOD macro generates nine different
logic modules. Each CPMOD logic Kcdule is
flc~charted and described in detail.
cutput modules where RETRY=NC is specified
are not flo~charted because they are the
same as the ether output modules except for
the 2520 and 2540 punch error reccvery
procedures.

The parameter cards follo~ing the CPMOD
header care have key entries in the oFerand
field. All cards used in the CF~CC rracro
Device IndeFendent Files

163

Exit: To the problem prograrr, to the
user's EOF routine, or to $$EOFEN to get a
new diskette extent.

5.

$$EERRTN if the upper extent is
exceeded on a CASD file.

~o

$$ECPEN to get a new extent if the
upper extent is exceeded cn a diskette
file.

~o

Method: This routine rrakes a lcgical
record available to the user in the IIC
area. When an end-of-file is sensed, a
branch to the user's ECF routine is wade.

ffi!!£9:

If entered fcr tl:e first tirr,e, the
routine performs an 1/0 cperation
irrrrediatelJ.
(After the initial entry,
this 1/0 operation is bypassed.) When the
IIC cperaticn is ccrrplete, the rcutine
checks for an EOF conditicn. If an
end-of-file is detected cn a unit record
device (cther than a printer), ccntrol is
passed to the user's end-of-file routine.
If an end-cf-file is detected cn a rragnetic
tape device assigned to SYSPC~ or SYSLST,
the FU~ rcutine fetches Fl:ase $$ECMT07 tc
determine if an alternate device is
available. If it i~ nct necessary to
handle an EOF condition, the addresses of
the twc I/C areas are exctanged, another
I/C operation is performed, and control is
returned tc the problerr prograrr.
FU~

When an end-of-extent conditicn is found
on a diskette and no more extents are
available, a branch is made to the user's
EOF routine. If there are rr,ore diskette
extents, $$ECPEN is fetched to get another
diskette extent, and processing ccntinues.
~he

routine is similar tc the GET

t~o

I/C areas routine except the logic to
handle 1/0 area switching is nct included.

CPMCD:

GET ~acro, IOP~R=YES Chart NB

Objective: ~o read a record intc the 1/0
area pointed to by register C (ICF~R).
Entry:

Frorr, a GET macro expansicn.

Exit: To the problem prograrr cr EOF
address.
When the parameter IOP~R=YES is
included, the CP module generated allo~s
the user to use any area in rrain storage
(other than a storage protected area) as an
1/0 area.
~he 1/0 area is pcinted to by
the address loaded into register o. With
this exception, this routine is the sarre as
the GET with one 1/0 area.

~Q:

CPMOD:

The I/C sutroutine first tests to
determine the device type, ar.d aFpropriate
action is taken. If the device is a CASD
cr diskette, a routine is initialized to
determine if varicus sFecified lirrits have
teen exceeced, and tc update the seek
address and count. When an end-cf-extent
ccnditicn is found or. a ciskette and nc
rrore extents are available, $$BCFEN is
fetched tc get another extent, and
Frccessir.g continues. Tte ir.put/cutput
operation is performed, and control returns
tc the prcblerr prcgrarr.
If an error occurs and the device is an
2540 or a 2520 punch, the error
reccvery transient, $$EEBRTN, is called.
When an error recovery is conplete, control
returns tc the module.
IE~

PUT Macros, Two 1/0 Areas Chart NC
If RETRY=NC is' specified as a
Fararreter in the CPMCC nacrc, the errcr
recovery facility is not present in the
ncdule. $$BERRTN is alsc called to cancel
the jct if the upper extent is exceeded cn
a CASD file.
~ct~:

Q£jective:
overlap.

~o

write a logical reccrd with

From a PUT macro expansion, or froR
an SC workfile close.

~y:

1.

~o

2.

To the user's EOF address, if EOF
occurs on an output device cther than a
printer.

3.
4.

the problem program.

To $$BC~~07 if EOF occurs on an output
tape assigned as SYSLS~ cr SYSfCH.
~o $$BEBRTN error recovery rcutine, if
an error occurs on a 2540 or 2520
punch.

ctjectives:
1.

~c

2.

~c

write a lcgical reccrd.

reac or write
records.

!nt~:

and SD

FCR~RAN

ASCII tape

From PUT wacro expansicn, cr frorr
clcse.

~crkfile

Device IndeFendent Files

165

,

•
•

35011 Card Reader

•

3505 Card Reader

•
•
•

3525 Card Punch

2560 MFCM

table containing the infcrRaticn necessary
tc descrite the file f~r ~rccessing by the
~IMOD logic rr.odule (Figure 117).

5203 Printer
51125 Multifunction Card Unit

Multivolurr.e input and cut~ut diskette
files are sup~orted. Fcr nultivclume
diskette input files, prccessing ccntinues
until a diskette asscciated ~ith each
extent provided is processed. Nc voluRe
sequence ctecking is dcne. Neither the
RultivoluRe indicator nor the vcluRe
sequence nURcer in the H~R1 latel is
examined. Sequencing of volurr.es is totally
ccntrolled by the volune serial nuncers cn
the extent cards.

The DTFDI macro defines the file fcr device
independent system units and generates a

r-------T------T-----------------------------------------------------,
. Functicn
I

I Bytes I Bits I

~-------+------+-----------------------------------------------------~
0-15
CCB.
( OO-OF)
16
(10)

Not used.
COBOL open; igncre option.
Not used.
DTF table address constants relocated ty OPENR.
Not used.

0-1
2
3
II
5-7

17-19
(11-13)

Address of logic nodule.

20

DTF Type

= X'33'

( 111)

21
(15)

Open/Close indicators - X'02'
output.

22-2S
(16-1C)

Symcolic filenaRe.

29

= inpct,

X'OO'

DASD or diskette device indicatcrs
X'OO' = 2311
X'01' = 2314, 2319
X'OIl' = 3330
X'OS' = 3311C general
X'09' = 33110 35MB
X' OA' = 334C 70!!E.

(11:)

30-35
(lE-23)

DASD address cf Fcrnat 1 latel.

36-37
( 211-25)

DASD or diskette volurre sequence nuncer.

38
(26)
_______ ~

=

0
1-3
II
______
5-7

Figure 117.

~

Open com~unicaticns s~itch.
1 = No more extents -- diskettes
Not used
Always 1
_____________________________________________________
J
Not used.

tTFDI (1 of 3).

Device Independent Files

167

r-------T------T-----------------------------------------------------,
1
1
1

1
1Eytes

I Eits 1

Functicn

1

~-------+------+-----------------------------------------------------~
14-15
(4A-4E)

Logic module censtants
X'0020' DAS~ out~ut
X'OOlS' DASC in~ut
X'0008' Diskette devices
X'OOOO' Nen-DASC devices

16-80
(4C-50)

count field CCHHR (OCHRO fer diskettes).

81
( 51)

Key length.

82-83
(52-53)

Data length.

84-81
(54-57)

Instruction to load ICREG with correct I/O area
address.

88-103
(58-67)

Seek, Search CCws.
Seek, Read/Write CCW for diskette files.

104-111
(68-6F)

'fIC CCW.
NOP CCW fcr diskette eutput files;
unused for diskette input files.

112-119
(70-17)

t

ccw.

Input/out~ut

120-127
(78-7F)

Second

128-151

Verify CCws fer-output.

out~ut

CC~.

( 80-97)

I

152-159
(98-9F)

Error CCWl.

160-167
(AO-A7)

Error CCW2.

168-231
(AS-E7)

Savearea (64 cytes).

232-235
(E8-EB)

DC A(WLRERR) if

236-2391
(EC-EF)1

I
1
1

~lRERR=Address.

E 28(15) if

ERRCF~=

B 25(15) if

ERRCF~=SKIP.

E 28(15) if

ERRCF~=IGNORE.

DC

A(ERROP~)

if

orritted.

ERROP~=Address.

E 0(15) if ERRCF!= omitted.
B 24(15} if ERRCF!=SKIP.

I

L _______ ~
J
1______ ~ _____________________________________________________
B 28(15) if ERRCP!=IGNORE.

Numcers in parentheses are
Figure 47.

dis~lacerrents

in

he~adecirral

r.etaticn.

DTFDI (3 of 3).

Device Ind€E€ndent Files

169

than diskette, or SYSLS'r- or SYSPCH
assigned to an output ta~e.

I
5.

I

I

6.

the user's WLR or ERRCP~ routine, if
specified in the D~FDI nacrc
parameters, to handle other error
conditions.

~!l:

Frcn a PUT nacre

~rcblen

~rcgran.

in the

~o

Exi!.§:
1.

the next sequential instruction in
the ~rcblen ~rcgran fcllcwing the PUT
nacro expansion after the record is
~ritter. to the file.

2.

~e

3.

~o

To $$BOFEN to get a new extent if the
upper extent limit is exceeded on a
diskette file.

Method: The PUT routine deternines the
device type and selects the ~rc~er I/O
operation to write the record to the file:
1.

If the device is a reader cr a nagnetio
tape, an SVC 0 is issued directly.

2.

If the devioe is a DAS£, the nu~ber of
the reoord to be written is checked and
the CCHHR seek address is u~dated, if
necessary, before the SVC C is issued.
If an end-of-extent conditicn is found
on a diskette, $$BCPEN is fetched to
get another diskette extent, and
processing continues.

3.

ex~ansicn

If the device is a printer or ~unch,
the control code is determined,
converted to EBCDIC code if ASA is
specified (refer to Ap~endix F), and
the control function is ~erfcrned.
When the control function is ccmplete,
an SVC C is issued to ~rite the record.

After the record is written, tests
determine if a unit exception or error
condition occurred. If a unit exception
oocurred, the following acticn is taken:
1.

For printers, the unit
ignored.

2.

For output tapes assigned tc either
SYSLST or SYSPCH, phase $$ECM~C7 is
fetched to determine the availability
of an alternate. device.

3.

For all other devices, the address of
the user's EOF routine is obtained fron
the DTF table and used as the return
address from the PUT routine.

exce~ticn

is

ether error conditions are handled as
specified by the user in the D~FCI ~acro
parameters.

I
4.

~o

phase $$BC~~07 if an EOF condition
is reached on an out~ut tape assigned
tc either SYSLST or SYSPCH.

the user's EOF routine if an
end-cf-file ccnditier. is reached on
devices other than diskette, cr SYSLS~
cr SYSFCH assigned tc an cut~ut ta~e.

~c ~hase

eccurs.
5.

~o

$$BERRTN if a punch error

the user's WLR or

ERRCP~

routine, if

s~ecified in the D~FrI nacrc
~araneters, to handle ether error

cenditicns.
~o $$ECPEN to get a new extent
,up~er extent limit is exceeded

if the
on a

diskette file.
~ethcd:
~he PUT rcutine, when twe I/O
areaS-are employed, functicns in the same
nar.ner as a PUT with cr.e I/O area. The
difference between the t~c rcutines is in
alternately exchanging tt.e addresses of the
t~c I/C areas each tine a PU~ nacre is
issued. Even though two areas are used,
the exchar.ge ef addresses nakes it pessible
for the user to insert the record to be
~ritten at the sane address fcr each PUT
nacro issued.

£fj~£!!y~:
To attem~t a reccvery fron a
~unch data-check ccnditicn cr. a 1018
pa~er-tape punch with the Error Correction

Feature.
From an output P~~OD, or fron
$$ECLOSP if clcsing a file using t~o I/O
areas.

~nt!l:

ruts:

Objectives: To write the next sequential
logical record to the file fron a cser
specified output area and to provide
overlap through the use of two I/O areas.

1.

~o

the calling rcutir.e after the errOr
is corrected.

2.

Autcnatic job ternination if the
unreccverable errcr RUSt nct be ignored
(for shifted codes).
Device Independent Files

171

,

7.

~o

8.

~o $$BODUCP if the file is a diskette
file.

$$BOMSG1 to issue the error message,
48831 INVALID LOGICAL UNIT.

4.

~o

$$ECMSG1, to print the following
nessages:
48831 INVALID LCGICAL
4884D NEED FILE

Methog: This routine is called ty the Open
Monitor when the file is found to te a
DTFCP or D~FDI type (Version 1 D~FCP
excluded).
Eecause the logic ncdules for
toth file types provide for device
independence, this phase is needed to
determine the device type associated with
the logical unit. The PUB is located for
the logical unit and the DTF is initialized
according to the device type (refer to
Figures 44, 45, and 46).

UNI~

PRCTEC~

RING

~ethcg:

~his phase functions in the same
nanner as $$BOCP01, exoeft when it is
entered from a message routine. If this is
the case, a sense conRand is issued and a
test is Rade for file frctect.
If the file
is not file-protected, $$ECMT06 is fetched.
If it is, a nessage is printed, via
$$EOMSG1.

~he LDIOREG routine initializes the
user's 1/0 register.

If the device is tape, a check
determines if Job Control has already
opened the device. If the file is open and
if there are more files to open, the TES
processor, $$BOPEN, is fetched. If no Rcre
files remain to be opened, ccntrcl returns
to the problem program. If the file has
not been opened, $$BOCPT1 is called to open
the input files, and $$BOCF~2 is called to
open the output files.

Ctjecti~§:

To open the DTFCP ana DTFDI
tatles fer unit record files (Version 1
B~FCF excluded).

If device type cannot be deternined, an
error message is issued and the jot is
canceled.
If the device is a ta~e drive
and found to be file-protected, an error
nessage is issued and the operator nay
either insert a ring in the tape reel or
cancel.

!n!E1:

1.

~o

2.

~o

From $$BOCP01.

$$ECPEN if additicnal files rena in
to te opened.

the problem progran, if nc
additicnal files renain tc te opened.

~ethcd:
~he routine at the latel UN~RCP
initIalizes an IIC area. ~he addresses of
the I/C area in the CC" and the alternate
IIC area are modified to typass the control
character if the device is a printer or a
punch. This routine alsc re-initializes
the DTF tatle if the device is a
reader-pur.ch.

Objectiv~:

~o open the DTFCF tatles of the
tape resident system type (Version 1
DTFCP).

Not§: A tape resident type BTFCF table is
If the device is a 1403, 3203, or 5203
generated for DOS if the DISK= paraneter is ,
frinter ~ith the Universal Character SET
omitted fron the DTFCP macro.
(UCS), a set Rode cORRand is given to
s~ffress data checks.
gntry: Fran $$BOCP01, or frcm $$ECMSG1.

1.

To $$BOFEN, if additional files renain
to be opened.

2.

~o

3.

To $$BO~T06, if the device tyfe is tape
and the CP type is input.

the protlem program, if no ncre
files renain to te opened.

I

If the device is a 25fC or 5425, the
conRand cede required for the Sfecified
hcpper is inserted in the first CCW for
infut files.
For cutput files, twc CCWs
are loaded~ the first for stacker
selecticn, the seccnd fcr the fUr.ch
q:eration.

~his phase functions in the sarre rranner
as $$BCCFC1 tc open unit reccrd files.
Device Indefendent Files

173

~OCP~2:
Open DTFCF ang
£harts RD-RF

D~FDI

Output Tape

Objective: ~o determine if cutfut tape
file is to be created with labels and to
fetch the necessary routine if it is: to
open the file if it will be unlabeled.

1.

From $$EOCF01 if the file is defined by
DTFCF or DTFDI for output and the
device is a tape.

2.

From $$EOCFM2 after a rressage has been
issued and a non-cancel reply has been
received.

3.

1.

From $$EOCFT2 if cutfut tafe is already
labelec or if label inforrration was
sUfflied by TLEL [TPLAE] jcb ccntrcl
staterrents.

2.

Ey return frorr $$EOCFT2 after a rressage
has been issued, and a ncn-cancel reply
has b~en received.

1.

To the TES processor, $$EOFEN, if rrore
files rerrain to be cfened.

2.

To the frotlerr prcgran if nc rrcre files
rerrain to be opened.

3.

~o

From $$ECCFT3 returning for retry.
the message writer, $$EOCFM2, when
an errcr conditicn cccurs.

1.

~o

$$BOCPT3, the open transient for
labeled output tapes.

4.

To fhase$$BOCPT2 for retry if entry to
this phase was neither fron $$EOCPT2
nor a return fron the nessage writer.

2.

To the ~ES processor, $$EOPEN, if rrore
files rerrain to be opened.

5.

To the standard Vclune Latel Rewriter,
$$EC~VCL, if the volune label nust be
re~ritten acccrding tc the user
specified density.

3.

~'o

the problem program, if nc rrcre
files rerrain to be opened.

4.

To the message writer, $$EOCFM2, when
an error ccndition occurs.

Upon initial entry frcrr $$EOCP01,
this phase searches for label infcrrraticn
on SYSRES as supplied by TLEL (cr TPLAE)
job control statements and then reads the
first record on the output tape to check
for a VOL1 label or a taperrark.

Me!~2Q:

The presence of either the VCL1 label or
information requires the creation of a
new HDR1 label. This phase tests fcr file
protection, load point, and 1600 EFI and
then fetches and transfers ccntrcl to
$$ECCPT3 for the a~tual label checking and
writing.
~LEL

If an unlabeled output tape file is to
be opened, this routine deterrrines if the
tape has a taperrark. If the tape has a
tapemark, it is retained. If the tape
lacks a taperrark, no tapemark is written.
NO!~:
If bit 6~1 in byte 16 of the DTFCP,
and if DISK=YES, then input data is in
ASCII rr,ode.

Cbj~£ti~:

files.

~o

open labeled output tape

After relocating the CCE's and
CCW's for the tape I/O rcutines, the mcde
and density are set for the user's file
tafe. Ther. the instructicns necessary to
search for TLEL infornaticn cn SYSRES are
initialized with necessary disk and stcrage
addresses. The Corrmunicaticn Regicn is
then tested tc see if entry is a return
from the rressage writer. If it is, reentry
~ill te tc the label PRCCRUN2 tc execute
the next subrcutine cf the prccecure group
unless a ncre specific return address
exists in the linkage register.

~~~2Q:

If entry was fron $$ECCPT2, the prcper
series of subroutines are executed as
chcsen by the prccedure pcinter passed tc
this phase in the register equated as
FRCCFTR.
Effectively, the acticr. cf these
sutrcutines is such that for standard
labeled cutput tapes:
1.

Expiraticn date is crecked.

2.

If latel information is prcvided by
TLEL (cr TFLAE) cards, a new HeR1 label
is written.

3.

If label infornaticn is r.ct prcvided, a
durrmy header is written.

4.

No additional standard header or user
header labels are written.
Device Independent Files

175

$$ECLOSP:

Funch File Close

£har~-2£::§.Q

Objective: ~o close D~FCP, ~TFCI, and
DTFCD punch files and recover pcssible
errors occurring when the last card in the
file is punched. To close C~FP~ and to
check the last record if the output file
has two 1(0 areas.

•

Frore the Close Monitor, $$BCLCSE, to·the
entry point EEGINRTN.

•

From $$EERPTP, if an error has teen
detected on a 1018 paper-tape p~nch
using a C~FPT output file with two 1/0
areas during the last punch cperaticn
and if error recovery prccedure is in
process.

•

~o the Close Monitor $$ECLOSE if there
are additional files to te clcsed.

•

~o

•

~o $$BERP~P if an error cccurred during
the last punch operation cn a 1018
paper-tape punch using a DTFFT cutput
file with two 1/0 areas.

the problem program if nc additicnal
files rerr.ain to be closed.

Method: This routine first deternines the
device type. If the device is a' 1442 punch
or a 1442 reader-punch, the routine exits
to the Close Monitor or to the protlem
program if no additional files renain to te
closed. Depending upon the file type and
whether there are one or twc IIC areas, the
following actions are taken:
1.

2.

punch, error recovery is performed
first cn the car~ preceding the last
card punched. Then, any errcr detected
en the last card is corrected.
6.

For a rTFCP and CTFCI files (cne cr two
I/C areas) where the device is a 2520
punch, any error en the last card is
corrected.

7.

Fcr a CTFPT cutput file with two 1/0
areas, the checking cf the last record
is perfcrned, and in case an
unrecoverable error cccurred, a channel
prcgran is reissued tc punch the entire
erronecus record if the ERRCF~ operand
is coded in the OTFP~.

In all cases, whenever an errcr card is
repunched correctly, the nessage 40001
RE~RY is printed en SYSLCG tc infcrrr. the
cperator that the error was retried.

~CCPM1 a~d $$BOCPM2:
~rij:g§_£!}art SE

r~FCF/rTFDI

Messag~

ffj~cti~~:

To write nessages cn SYSLOG and
to process operator respcnses to the
nessages issued.

~Ej:!y:

Frcn the DTFCP and DTFDI tape cpen
rcutines, $$BOCPT1 and $$EOCFT2.

1.

Fcr certain nessages, autcnatic jct
terreination.

For a D~'FCC file with twc I/C areas
where the device is a 2540 punch, an
error, if it has occurred, is corrected
on the card preceding the last card.
Then, any error detected on the last
card is corrected.

2.

Fer CA~CEL response cr nc console, jot
canceled.

3.

For IG~CRE, NEWTAP, RETRY respcnses cr
infornation-type rressages, the next
phase to te executed is fetcted.

For a D~FCD file with cne IIC area
where the device is a 2540 punch, any
error detected on the last card is
corrected.

~£f~1_~~~gg§:

4111A - NO VOL1 LEL FCUND
4112A - VOL SERIAL NC. ERRCR

3.

4.

For a C~FC~ file with twc IIC areas
where the device is a 2520 punch, any
error detected on the last card is
corrected.
For a D~FCD file with cne IIC area
where the device is a 2520 punch, nc
error recovery is needed and the
routine takes the proper exit.

4113D - NO HDR1 LAEEL FCUND
4114A - FILE SEQ NC. ERROR
4115A - FILE SER. NC. ERRCR
4116A - VOLUME SEQ. NC. ERRCR
41320 - ERROR IN FILE 10

5.

For a ~TFCP and OTFDI files (c~e or twc
1/0 areas) where the device is a 2540

41330 - ERROR IN HOR LEL
Device Independent Files

177

QISREUE FILE.§

Diskette input/output files are processed
by the sequential Access Method. ~hese
files. defined by the ~TFDU nacro, are
either input or output data files.

specified by the user in the D~F~U macro
instructicn which defines the file.

A diskette file contains records that
are processed from a beginning diskette
address and that continue in sequential
order through the records on successive
tracks, cylinders, and volunes tc the
ending address.

S~eRAGE

AREAS

INPU~/CU~FUT

AREAS

legical ICCS GET-PUT nacrc instructiens
allow the programrr.er to use cne cr two IIC
areas and tc process reccrds eitr.er in a
werkarea er in an IIC area.
~he

A diskette file is contained within one
or more sets of limits called extents.
~hese extents are specified in the~Ile
label on the diskette for input files, and
are corr.puted and stored in the file label
for output files by the open rcutines. The
user can identify the files to be processed
throu'gh the II DLBL and II EXTEN~' job
control cards. The records within each
extent must be adjacent on a vol~ne. only
one extent is allowed per volune, but files
may cross diskette volune bcundaries. If
the logical file consists of more than one
extent, each extent is accessed in the
sequence specified by the user.
~he data handling logic ncdules for
files defined for logical ICCS by the ~TFDU
macro are provided by the associated mcdule
generation nacro, DUMC~Fx, where x is
determined by the function cf the file.

Diskette files are opened and clcsed by
logical transient routines that are fetched
by the open and close nonitcrs (see QOS/V§
LICCS-yolu[~_!).
The open routines provide
procedures for checking each file before
any records are processed. ~he clcse
routines provide procedures for terminating
each file after all records are prccessed.
Diskette files can also be defined for
physical ICCS if the user intends to use
physical IOCS macros (such as EXCF and
WAI~).
These files are defined by a D~FFH
nacro. In addition, diskette files can 'be
defined by the device independent rracros~
DTFCP and DTFDI. These files are described
under "Device Independent Files".

Using ~~FDU. it is possible tc logically
blcck the individual reccrds in the 110
areas by comnand chaining the input and
cutput cperaticns. ~his allews lcgical
ICCS to read or write nultiple individual
reccrds when the device is being acdressed.
In subsequent discussions, the tern
"chained reccrds" is usee te describe this
nethcd of reading and writing.
When chained records are tc be precessed
in an IIC area with no werkarea specified
(cr when nen-chained reccrds are to be
processed in two 110 areas with nc workarea
specified), the DTFDU nacrc instructicn
nust include the ICREG pararr.eter. Logical
Ices uses this register te sFecify the
address of the logical recerd that is
currently available fcr Frccessing by the
prebleIr program.

~C~ULE

SAVE AREAS

If R~CNLY=YES is included in the ncdule
generaticn nacro, the nccule is reentrant
and Irust never be nodified by the problem
prcgran. Each DTF referencing the Iredule
nust have a 72-byte doubleword aligned save
area asscciated with it. This save area is
used by the module during execution. ~he
address cf the save area is passed to the
Irodule in register 13.
If the nodule
different tasks,
reentrant. This
unique save area

Logical records in a diskette file can only
be in fixed-length fornat. ~he diskette is
initialized to 128-byte sectcrs; therefore
the maximurr. record size may not exceed 128
bytes. The format of the record is

is to be shared by D~Fs in
the nedule nust te nade
is dene by associating a
with eacr. D~F.

Fcr diskettes, the save area ccntains
the user's general registers, switches. and
ether infcrnation needed by the ncdule.
Figures q8 and 49 illustrate the format of
the save area for each legic ned~le.
tiskette Files

179

~erfcraed, define~ the fcrnat cf the reccrd
teing ~rocessed, and s~ecifies the stcrage
areas and routines used fcr the file. A
~~F tatle is then generated acccrding to
the ~arareeters s~ecified in the cferands ef
the tTFDU nacre instructicn. Figure 50
illustrates the D~F table generated fer
diskette files.

£TFDU MACRO
To frocess a diskette file ef data reccrds,
the file must first be defined by the
declarative macro DTFDU (Define ~he File
for Diskette Unit). This nacro describes
the characteristics of the lcgical file,
indicates the ty~e of functien being

r--------T-----T---------------------------T--------------------------------------------,
,Eits,
Centents
,Function
,

'Eytes

~--------+-----+---------------------------+--------------------------------------------~
0-15
(O-F)
16
(10)

Ccnnand Ccr.trel Blcck (CCE)

0-3

E'OOOO'

Net used.
1 = DtF relecated ty CPENR.
Net used.

4

5-7

E' 000'

17-19
(11-13)

Address of logic module.

20
(14)

X'lA'

21
(15)

0
1-2 ,E'OO'
3

,

4
5
6
7

'B' 0"
,
,

22-28
(16-1C)
29

DtF ty~e fcr CPEN/CLCSE
(X'lA' = diskette file).
1 =
Nct
1 =
Nct
1 =
1
Net

= In~ut:

,
,
I

used.

C

= Cut~ut.

I
,

Filename.

IX'06'

Device tyre cede.
(X'06' = 3540),

,

I

(1D)

comnand chained file.
used.
Werkarea s~ecified.
used.
C~en: 0 = Close.

30-35
(lE- 23)

C'OOCHROO'

Address of HDR1 label in
V~CC.

36-37
(24-25)

Vcl~ae

38
(26)

Oren connunications byte
IT.fut File
1 = Ne nore extents
Nct used
1 = Exit fer user's ECF rcutine
L = Next extent on ne~ vcluae
Nct used
1 = Extent switch.

o
1-2
3
4
5-6
7

B'OO'

o

L ________ ~

Figure 50.

1
2-3 E'OO'
4 I
5 I
_____
6-7 , ___________________________
~

sequence nunter.

I
,
,
CutF~t Fi~~
,
1 = No nore extents
,
1
Extents needed at Clcse tine
,
Net used
,
1 = Next extent on ne~ velune
,
1 = Extent entered via consele
I
____________________________________________
Net used.
JI

=

~

CTFDU Table (Part 1 ef 3)

Diskette Files

181

r--------T-----T---------------------------T--------------------------------------------,

I Eytes I Eitsl
Contents
I
Funotion
I
~--------+-----+---------------------------+--------------------------------------------i
92-95
Lcgical reccrd size.
I
(SC-SF)
I
I
96-99
Address of last byte of the
I
(60-63)
I/C area.
I
100
(64)

I

Legical indicators.
1: ERROPT=address
1: ERRCFT=IGNCRE
1: ERROFT=SI
144-X
( 90-Y
X+1

IL ________
(Y+1)

~

_____ ~

1 = Write protect
1 = Nc feed at EOF
1 = Check Hultivoluwe sequence
1 = ~~ltivelurre file
Nct used
1 = C6s written (update ER~AP)
1 = READ/WRITE security
Net used.

I
I
E'O'
I
I
I
B'O'
I
I
X'OOOOCO'
Net used.
I
I
I
Feed CCW.
I
I
I
Define cps ccw (output);
I
8X'00' (inr;;ut).
I
I
Seek CCW.
I
I
I
TIC CCW.
I
I
I
X=143+8*(# cf CCWs)
Read/write data CCws; 1, 2, 13,
I
Y=8F+8*(# cf eeWs)
cr 26 read/~rite Ccws.
I
I
NCF CCW (cutput only).
I
___________________________ I ____________________________________________ JI
~

Nuwters in parentheses are displaceHents in hexadecirral r.ctaticn.
Figure 50.

DTFDU Tatle (Part 3 cf 3)
tiskette Files

183

Ir-------T------T------------------------------------------------~----,
Bytes I Bits I Function
I
~-------+------f-----------------------------------------------------~
39
(27)

Sequence nunber of current extent being opened.

40
(28)

Sequence nunber cf last extent efened
(not a consele extent entry).

41-43
(29-2E)

Not used.

44-47
(2C-2F)

Address of IOAREA1.

48-51
(30-33)

Not used.

52-53
(34-35)

X'OOOO'

54-57
(36-39)

Extent upfer linit (OCHR).

58-59
(3A-3E)

Not used.

60-63
(3C-3F)

Extent

64
(40)

lo~er

linit (OCHR).

Record nunter. l=Input, O=Cutfut.

65-67
(41-43)

Not used.

68-71 1
(44-47)

OCHR contrel tucket.
OCHR = X'CC490C1A' for 3540 (cutfut

cnl~).

72
(48)

Record nun:ter.

73
( 49)

X'10' - multivclune file (input)
X'40' - last vclune on nultivclcne file (infut).

74
(4A)

Record size (naxinun cf 128).

75
(4E)

Not used.

76-80
(4C-50)
181-83
1L _______
(51-53)

OCHR :tucket = extent lcwer linit and reccrd
number (outfut).
Not used.
~

______ ~ _____________________________________________________ J

Numters in parentheses are
Figure 51.

displace~ents

in hexadecinal notation.

tTFPH Table fcr tiskette (Part 2 cf 2)

tiskette Files

185

3.

$$BOPEN is fetched to
extent.

c~en

the next

If end-of-extent has been exceeded and
there are no mcre extents, the fcllowing
action is taken:
1.

~he

ERMAP record is updated if bad s~ot
records were written on the diskette
tecause of an ERET RETRY situation.

2.

$$BOPEN is fetched.

If the ERROP~ parameter has teen sFecified,
errors are processed as each reccrd or
chain of records is written. If ERREX~ is
specified, additional errors are returned
to the protlem program for further
processing.

£bje£ti~:

~o write any rerra~n~ng records
in sequence on the diskette file.

gn1!1:
§~i1:

rcs/vs LICCS Vclune 1, SY?3-E559. If the
file is an in~ut file, tte cFen transients
corrpare the file label inforrraticn with the
SYSRES DASC latel infcrrratior. tc deterrrine
if the logical file is ccrrect and if the
serial nurrbers are equal.
If the lcgieal file is an cutFut file,
the open logical transients create file
labels and write then in their aFFropriate
location. Extent lirrits are deterrrined and
cver1a~~ed, expired file labels are
deleted.
when a file is clcsed, the clcse logical
transient determines whether a bleck cf
data remains to be processed. If so, the
1cgic nedu1e is re-entered tc ccn~lete
~rocessing.
The file labels are updated
and rewritten if the file is an cutput
file. Control returns tc the clcse rronitor
cr the prcblerr pregrarr.

rlsKET~E

CFEN/CLOSE LOGIC

From the close transient, $$BOrIc4.
To $$EOCIC4, via an SVC 9.
~hen

~~1nQQ:

This routine sets on the partial
block switch and deterrrines if there are
any logical records to be written tc the
file.
If so, the chain of CCWs te write
the proper numter of records is set up;
then the PU~ routine is given eentrel te
write the shert chain to the file. After
that the CLCSE routine regains centrel, the
rrodule switches are set off, and a tranch
is made to the PUT routine te exit to the
close transient $$BOCIC4.

When a diskette file (CTFDU) is o~ened, and
the file is on more than one vcl~rre, only
one extent is ~rocessed at a tirre, so only
one volume need te online at a tine.
Job Control accepts label infernaticn
by CLEL and EXTEN~ statenents.
Jot Control stores this DASC label
information cn the SYSRES CASD label
information cylinder. The ~ES Preeesscr,
$$ECPEN, prepares to read the label
infcrmation from the SYSRES label
information cylinder into the legical
transient area, and then fetches $$E35400.

a diskette file is processed (DTFCU
specified), OPEN initially takes care cf
the follo~ing functicns:

1.

~he standard label(s) en the velurre, cr
on the first volurre cf a rrultivolume
file, is checked.

2.

~he

first extent cn tte first volume is
located and made available fcr
prccessing.

legical ICCS processes ene extent at a tirre
in the sequence specified by the user's
EX~ENT statements.
~hen legical ICCS
detects the end of the current extent, it
branches tc the end-of-extent routine.
CPEN then lccates the next extent specified
by the control staterrents and nakes it
available fer precessing. Fcr each
subsequent extent used by the file, OPEN
checks the standard labels cn that new
volume (see Charts UC and UD fcr general
CPEN flew).

su~plied

~he diskette open logical transients
read the DAsr latel information frcm SYSRES
intc storage. ~he fornat cf the SYSRES
CAsr label inforrration is illustrated in

If the file tc be epened is a nerrral input
file, the extents are read and checked as
needed. ~te file labels are checked
against the DLBL inforrration. ~he open
indicatcr fcr the file is turned en and
control returns to the user.
riskette Files

187

r-----------T------------------T------------------T------------------T------------------,

I
I
Input
I
Output
I
Input
I
Output
I
I
I
Prograrrmer
I
Prcgranner
I
Systerr
I
System
I
I
I
Logical Unit
I
Logical Unit
I
Logical Unit
I
Lcgical Unit
I
t-----------+------------------+------------------+------------------+------------------~
I
DTFCP
I
A
I
A
I
N
I
A
I
r-----------+------------------+------------------f------------------+------------------~
I
DTFDI
I
NA
I
NA
I
N
I
A
I
t-----------t------------------t------------------+------------------t------------------~
I
DTFDU
I
SIS
I
N
I
S
I
t-----------+------------------+------------------f------------------+------------------~
I
DTFPH
I
A
I
A
I
N
I
A
I
t-----------~------------------~------------------~------------------~------------------~
I A
Always feed at close tirre.
I
I S = User can suppress feed at close time.
I
I
I N = Never feed at close time.
NA= Not applicable.
I _______________________________________________________________________________________
L
JI
Figure 52.

~his

table indicates if diskettes are fed at close tine

Q£~ctiy~:

~his phase is used tc control
the sequence of operations required for
opening each file extent. It alsc
provides an entry to the user's
end-of-file routine, if specified, when
the end of the last extent is reached or
if the multivolume indicatcr in the HDR1
label indicates last extent for t~FDU.
Furthermore it checks for the CCECL
Open/Ignore function.

gntry: Frorr $$E35400.
$$EODMSG.

Reentry frcm

1.

~o

2.

To $$BOFEN if the last DLEL extent has
been processed and ancther file is to
be opened.

3.

To the user's end-of-file rectine.

4.

~o

If the Cpen/lgnere fur.cticn has nct
teen specified and the device is
cnassigned cr assigned tc IGN, the jot is
canceled. Otherwise, open centinues.
~his routine also deterrrines whether
the assigr.ed device is tte ccrrect device
and ensures that only one file is epen on
the device. If this is r.ct the case, the
jer: is canceled; otherwise, this transient
passes cer.trel to $$EOtIC1.

$$BODI01 to process vclune labels.

$$BOD~SG for operator
communication.

~ethod:

If the COBOL Open/lgnere funetien has
teen specified and the device is
cnassigned or assigned tc IGN, the open is
typassed. If the device is assigned, cpen
is centinced.

If a system unit is being cpened

and~he DTF does not indicate cpen, this

routine gets extent information fcr the
from the DIE. Otherwise, r:cth system
and programrrer units are handled
identically.

~~gQrI21i tiskette Volurre Latel
£ha.;ts_y£=yg

Frccesso~

2fj~s!iY§:

This phase reads the velurre
late 1 and checks it fer validity. It alsc
ensures that the proper velurre is rrounted
ar.d requests further infcrrratien frorr the
cperator if a secured velurre is teing
q:ened.

D~F

$$B35401 tests for the availatility of
DLEL extents. If no more extents are
available or if the multivelune indicator
indicates last volume, an exit is rrade tc
the user's end-of-file routine. If the
file has been opened previcusly, the next
consecutive tLEL extent to r:e opened is
read.

1.

$$B354CI, $$B3540C, ar.d $$ECtIC8.

2.

Reentry frem

1.

~c

$$ECDI02 if eper. cutput.

2.

~c

$$ECDI05 if epen input.

3.

~c

$$ECDSMO if a secured velune.

$$ECD~SG

and

ECtS~O.

tiskette Files

189

If the Open/Ignore opticn has nct been
specified and the device is unassigned cr
assigned to IGN, the jcb is canceled:
otherwise, the open prccedure is
continued.

To build and write a new HDR1
label for the file being cpened.

Cbj~ctiy§:

routine also deterrrines whether
the assigned device is the ccrrect device
and ensures that only cne file is cpen on
that device. If not, the jct is canceled:
otherwise, this transient fetches
$$ECDICl.
~his

~$ECDI02:

Biskette O~~Q~!f~!L_~§!~f~~n~
Extents and Belete HDR1 Labels

£hart.2-~m-w!

~o determine the extent lirrits
for the file on the diskette. ~c frevent
a duplicate file being created, tc delete
both overlapped and duplicate eXfixed
files, and tc determine the r.ew HCR1 label
address.

9bjecti~:

~ntr~:

~n!fY:

1.

~o

2.

~o

Frcm $$BODI02.

$$ECDIC7 to initialize the BTF.

$$ECDMSG for operatcr
ecnnur.icaticn.

~ethed:
~r.is routine verifies tr.at at
least-cne ecrrplete txaek is availatle and
that a new HDR1 label address was found.
If either ef these cenditicns is nct rret,
the job is canceled; ctherwise, the new
HBR1 label fcr the file is cxeated and
written cut cn the diskette.

Fran $$BCDI01.
£fj§~!~y§:

1.
2.

To $$BODI03 to create a new HDR1
label.

~n!fY:

Tc ufdate tr.e DTF table.

Frcm $$BODI03.

$$BODMSG for operatcr
conmunicaticn.

~o

Twc passes are made thxcugh all
of the HDR1 records.

1.

~c

$$ECPEN tc cpen tte next file.

2.

~c

$$ECDIC4 if Close needed an extent.

3.

~c

4.

~o

~et~2~:

E2~.2-1.

!~.2-~.

All HDR1 labels axe exanined to
deterrrine if the files are
write-protected cr unexfired.
If either of these ccnditions
exists, the file narre is
ccmpared with the file name of
the new file; if they axe
equal, the job is canceled.
Ctherwise, the cfen ccntinues.
~he highest upper extent lirrit
track plus 1 of any
wri te-protected cr Ullexfected
file is made the lcwer extent
limit of the new file.
All HCR1 labels axe re-xead and
the first delete ccntrel reccrd
that is encountered (either
read cr written> is rrade the
address of the new HBR1 label.
All cverlapped files are
deleted. All exr:ired,
ncn-write-protected files with
duplicate file nanes area alsc
deleted. Then this transient
fetches $$BCDI03.

$$ECDMSG fcr eperatcx
corrIr. un ica t ion.
the problerr prcgrarr.

~ethcd:
~tis routine posts apfrcpriate
eitent ir.ferrraticn ir. the DTF table and in
the DIE in case of a systerr file.

Tc prefaxe a ecrrfilex cf
device independent D~F fex a diskette
file, so that nornal diskette cpen phases
ean be used tc ccrrflete the epen
frCcedl:re.

£fj§ct~y§:

!n!fY:

Frcm $$BCCP01.

Exit: Tc $$ECPEN1 te call the frcfer
dIskette cfen phase.
Diskette Files

191

EXAMPLE

DESCRIPTION
••••• A1 ••••••••••

••• PROCESS •••
..
*SZ
..
•••••••••••••••••••

A group of program instructions that perform
a processing function of the program. The
label, if any, is shown al10ve the block.

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

REFERENCES
TO
8JB4:
RRD4, 8C82
BLJI

•

••••• 81 ••••••••••

.LABEL I

BW*

•*-*-*-*-*-.-*-$-.
••
* SUBROUTINE
••••••••••••••••••*

X

START
Description or title of a routine that is detail~
ad on another flowchart. The starting label
of the routine and the flowchart 10 appear
above the stripe.

.•• 84············
•
• A READ
RECnl\D
•
•
•••••••••••••••••
x

•• Cl •••••••

••
••
• PREPARATION •
••
•
••••••••••• •

An instruction, or group of instructions, that
changes portion of a routine or initializes a
routine for a given condition.

C4 .* •*.

••••

••
••

•.

....
•• ••
EPPOP

• •••• CS ••••••••••

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

.EPPT~
BG.
•• YE S
.-.-.-.-.-.-.-.-.
•••••••••• X.
•
ERROR POUTt NE •

.*

•

• NO

x

..• ...PREDEFINED .• •.
• • PROCESS • •
.. ...
.... ....

•••• ·01 ••••••••••

X

A group of operations not detailed in the
flowcharts in this manual, such as user routines.

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

·.-EI.··.····..• ·
• INPUTIDUTPUT •
•
*
•••••••••••••••••

•• ••••
•
f';4 •

••

PROCESS
THE RECORD

•

•

••
•
••••••••••••••••••
X

USEXIS
Any function of an input/output device or
program, usually branching to an I/O routine
to perform the function stated in the block.

••••• •

••••• 04 ••••••••••

••

•••

.• .

••

..*.....

••

••

E4

••••
USEP

OPTION

• •••• E5 ••••••••••

..

* •

•• VE S

•

•••••••••• X.

•

USE~

• •

•

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

•. . *

• NO

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

FI

.* .*.

•*
*.
*..* DECISION ....*
......
.* .*

•

0DUTINE • •

Points where the program branches to alternate processing, based upon variable conditions such as program switch settings and
test results.

RECAL T

.

...*
•• ••

*

•••

••

.

..F5 •••••••

•• RECORD
•• YES
•
MnDIFV
•
••
AlTEPEO
•••••••••• X.
DPTt.,IT
•
••
••
.'NSTRUCTTONS •

.... . *

•

.. ..
X

F4

*

•••• * .

*

•

NO

G4 •• X.

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

•
• • X•••••••••••••••••••••••••
••••
X
RECPRO
•••

•••• GI •••••••••

* TERMINAL
••
• ••••••••••••••• *

The beginning or end of a program or routine.

•

* ••.

•*G4

..ALL RECORDS •• NO
•• OROCESSfO ••••••

*.

*.

....

.*

.•

x

• YES

•••••
·Bl •
• At •
•••

PRINT

•• ••••
C2 •
•
*•••• *

••• **

*So ..
.. 04-

•••

F ILlNPT

On-page connector. An entry from or an exit
to another function on the same flowchart.
The location in the connector identifies the
block to which entry on a chart is made .

X

HIt·.··.·.·· •
•• •...
END-OF-JOB
•••••••••••••••••*

Off-page connector. An entry from, or exit
to, a given point on another flowchart. The
characters in the connector identify 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 asterisk is placed in the
connector and the locations from which
control is passed are listed nearby.

Charts

193

~agnetic

Chart 02.

Tape Clese and EOF/EOV Routine

EOF/EOV Entry

t
$$BCEOV 1
1. Determine type and
format of the file from
its DTF table.
2. Read I/TLBL card image.
3. Format open table.
System
Unit

4. File type?

..........

Input
Forward

""

,

Output
1

$$BCMT07

$$BCMT01

$$BCMT04

1. Close current SYSPCH
or SYSLST output
file by writing tapemark.

1. Close tape reel in process
by writing trailer label
and tapemark.

2. Rewind and unload
initial tape reel.

2. Write user labels in user
routine if required.

Input
Backward

$$BCMT03

1. Read and process
standard trailer labels.

1. Read header label as a
trailer label.

2. Read user labels in user
routine if required.

2. Read user labels in user
routine if required

3. EOF or EOV?
3. Switch to alternate
drive if specified.

EOV

EOF

"'-../
$$BCMT02
$$BJCOPT
1. Open alternate tape
assigned to SYSPCH
or SYSLST by
reading labelltapemark.

+

SVC 11 Return to
Problem Program

(SVC 11 Exit to
user EOF address

1. Get alternate drive if
assigned.
2. Call appropriate phase
to open files.
3. Nonstandard labeled

input?:~ NO
YES

I

SVC2
$$BOPEN

SVC2
$$BOMT05

Charts

195

Chart 04.

sequential Access DASC

C~en,

In~ut

Piles

1. Read DLBL extent record.

2. Read VOL 1 label to ensure proper pack is mounted.
3. Read Format 4 label to get VTOC limits.

4. System file other than
than SYSLI N K opened'

~7. More extents?

YES~

NO

5. Put extent info.
from OIB into
OTF table.

8. End of f,le'
6. More files to

open'

10.

Next extent on
new volume?

9. Need to process
user trailer
labels.

11

NO

Need to process
user trailer
labels'

YES

12.
old volume

extents?
YES
$$BOOQUE

1. Dequeue fi Ie

NO

protected extents

$$BOSOI2

1. Read Format 1 label
and compare It
against OLBL

record.
2. Determine that
extent limits
are valid.

3. Post extent
limits in DTF.

to be processed'
YES
NO

Extent to be
file protected?
YES
$$BOFLPT

$$BOSOI3
NO

1. Process user
trailer labels.

1. Provide fde

Another file

protection for

to open?

extents.

Charts

197

Chart 06.

sequential Access DASB Cpen, output Files (2 cf 2)

$$80S002
1. Read and verify volume label
and Format 4 label.
2. Save VTOC limits.
3. VTOC overlap?

~
ES

NO

6. Issue message
4441A.

I

4. SYSLINK open?
YES

5. Label clearing
required?

$$80S008

$$80S004

1. Oelete
duplicate labels.

1. Write Format
1 label.

$$80S003

$$805009

1. Check extent
overlap of
existing files.
2. Format 1 label
created?
NO

1. Put extent
info. In OTF
2. User labels?
YES

1. Create user
header labels.
2. File protect?
YES

YES

$$80S005
1. Insert extent
into label. 8uild
Format 3 label
if required.

.$$80S006

$$80FLPT

extents?

1. File protect
extents.

More files
SVC2
$$80PEN

roblem program

1. Oequeue file
protected
extents.

Charts

199

Chart 08.

Diskette Open, General Flew
Entry from
$$BOPEN

$$B35400
Determine
name of transient
to call

YES

Indicate
DIB ~ 0

Read and check
DLBL and
EXTENT images

Reread first
extent record
and save address

$$835401

$$835400

Charts

201

Chart 10.

tiskette Open, cutput Files

Check OLBL
extents

$$BOOI08

>--'--.-'"

Check
COBOL
ignore

Enter
console
extents

F3

•

$$BOOI03
Create,and
write new
HORI I-hel

~

$$BOOI07
Read/verify
volume
label

Put extent
information
in OTF

Handle
volume
security

Post OIB
if system
file from OTF

~
I
$$BOOI02
Pass I: Determine extent
limits
YES

Guarantee
no duplicate
write protect or
unexpected file_

Pass 2: Delete
overlapped or
duplicate
files

Charts

203

Chart AA.

$$BOUR01:

Cpen Unit R€cord (1 cf 2)

.- .

*****
*AB '"

·

'" 'Pl·

~

CHKPRTR

ALI

,

$$BOUR01

. "'. *.

AS

. 1J'r1O'
'" T1PE *. "'. YES
• *.'" PRINTER *. *. NO
*..
PIL~
.* ......... x*..* }:tf)7t
PRINT ."' ••••

* ****A 1********* ,
,

.*. *.

,,

*. *.

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

.,

*•• * . '"

. '"

*. "'..* . '"

"''''**
"'IB '"

i

* ... '"

'" Il!:S

,*

•
'" Eij *.X.

X
i
**** .*.
.*. *.
.*. "' •
Bl
*.
B3
B4
•
*
*.
.*
*.
.*
*. *.
CARD
*.."' YES
NO.*
PRINT
*..*X ••••••••
YES.*
3525
*.. * READER
•••••••••••••••••• x•••••••••••••••• "'.
CfiLl
*. PRINTER
.*
*. FILE .*
*. F1LE .*
*.
.. '"
*. * •• *.*
**....**
**....**

i

i

.*. *.

C1

.'" PAPER *. *. YES
*.
*. TAPE
FILE
.* .. *.......
*. *.. * .*

··. , .

****
* C2 '
*. .
x.
***.
..
SETOPNBT
X
**C2*******

*

.. '"

,

**

TUEN ON
OPEN BIT
IN DTF

*
*
*

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

NO

'" YES

'" NO

it

**
'"

*"'C3*******
"OD'lFY

USEE OP
CODE FOIl

*

**

.*

Cq

.*

*. *.

***"'*****"'*

*. *.. *. *

SVC 0

FIE I) 5S

011-

YES .*
...
.*.

.. *

*.

CAIm

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

.'. *.

1Q03 0

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

.*.it *.

*****E2***"**"'***

. '"
*.
.
.:* s~~gI~¥iD *:*~?I:
*. IN DT'F .. '"
*. *... '" .*
x

..

* '"
* *
.*
"' .
: :x ......... ~?*:* CO"~(~TE *:'"
''"" ''""
''"" '*"
"'. * . . *. *
*****************
* •• '"
*

•

ADDRESS AND

*,

'"

*

*

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

***********

x

G1

*

.'. *.

. *CTLCBR "'. *.
• '"

YES

*****G2**********
**
ADJUST
**

*.*.S~:CJ~jED.*.* •••••••• X:

**.
.*
... *
*

NO

. ... *..* 5203
*. *.

XYES

I~~D~~§~

:

*******"'*"'********'"

,*

*

.,
*

'"

*

....

H1

*.

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

ARE *.
.* .* RECORDS
*. YES
**
*.*.Vf~iA~fi! .* . * ••••.•••

x:

AtJUST

I~~D~~g~

**

:

*..*
*
*
*. • • *NO
**********"'*"'****
****
*AB *
.
* K1 *.x.
•
'"
*
• x........................... .
*.**
•
HOVARY
X
*****.J1**********
*****.J2**********
: GlfiD~~~sTl~~E :
:SIZ~~E~~OI:~6A :
'"
DEVELOP
*........ x* SAVE AR!A '"
* SAVEAREA *
* L(CATICN
*

:****:~~:ii~****:

:~~*~~~~*~,~*!~~:

··

2'S6r'1

*****"'**"'**

*

*

**

i

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

NO

****

*. * .
U
.. *
. * .*

..

i

*

***'PI)*******
~!Sl!T
•

**
..

, **** ,
,* C2 ,*

Yl!:S

,
,

****
PI) '"
***'"

*

NO

P1HNT
CON1ROI
SWITCH IF

2560

********"'**

*

**

*

****

,

i

"

*·G4*******

* I'IODIFY
*
* OS~R'S CCE *
*
FOR
*

*...

SETHODE
CCi

********* ••

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

NOC'l'LCHR

••

.*.
.* P4 *. *.. *. NO
.*
*. 3203 U
.* ....
*. *.
.*
x
*•• * . *

C2 *

****

SW!TCfl 1,

*.. *

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

•

S~QU~'NCF

*

i

RESTCEE
tlSER CCli

x
****

*

* **D5*******
S~T 'PUNCH *
* E1T IP 3525 *
•
x••• '"
PUNCH
*
* ASSOCIA'IED *
i
* ***!i~:**** *

.'.i *.
•

**F3 .... ·****

.

*

'" WITH I/O AREA '"
*CONS'IAN'IS USED
TO ADJUST

.. *

lES

i

X

"'LOID WORK REGS '"

'"

ELI

.

,

*****F1**********

*

"'.

:: iXiT 7

****,
* K2 '"
*"'**

'" YES

. *.

E3

'"

GU/PUT

: S!'tS~Q1?

*. *•

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

El

**C5*******
* 51::1 OFF *

•

*

x

i

*

*.

* n:s

***1:3************

*

****

i

*•

x
*****

*AE *
**J2*
,

x
.'. ••

DOES
NO
..
PltINTER HAVE. * •••• ".
\lCS
•

* *S5 ~~i~lND * *

F5*

.*. *.
BI)
. * ('A'll) *• *•
'NC • *
.... *.
PUlfCH
.*
*. TYPE • *
*. *..... .*
* YES

CRKRDR

'" NO

.

,****

'" Ne

**

*

*
* ..

**GCS·"'*****

*

ALLOW
"FAD ANt

**

CC"I "paR

**

"PEED IN
2560

***********

*

it

*·".4*******
* !'tODlFY
*
* CC~ TO USE1={ *
.CHOICE - ALLOSl' *
* Oll BLOCK
*
*DATA CHl!:CK *
*"'**"'******

SVC 0

R~AD

AND FEED

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

X

i
*****J5·*"'*******
* ** svc'" ** **
*
*
SET USER
WP1I"I
* *
"'ODE
* •.•••••• x** *"'11t 'l1!QUIRED*
*
* *
"'****.****
.. *****... **
*****************

S1MOD10

***.JII************
svc 0

****

* K2 '
*. .
x.

,

*"'**
•
X
*"'***K2*********'"

GETPUB

*
'" LOGICAL ONIT *
* USING SlSIR *
*
MACRO
*
*"'**************'"
'"

*

LOCATE LUB

ER'Iny FOR

it

*****
"AB '"
'" B2*

••
*

'"

.
.

i

**KI)*******

*

*

*

'lESTOR]!
USl!:1=l CCE

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

.
.

**
•

x

, **"'* *
** C2 •*
*.. **

Charts

205

Chart AC.

CMR and RCE Cpen Routine (1 of 2)

$$BCMRCE:

••• •
•.. •13
..
••••• •

••••• •
••••

•
•

i

. . . . . 1, 1 •••••••••

••

UBOftRe!

••

..

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

.•

.

i

EliDOPD

o. .*

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

TO'

C'

•••••••••••

·AD·

.

,*•••••••••

SET FIRST

:BUft~~RO (n~B1) :

•

•

SUTCH TO 1 •
••••••••••••••••••
•

it

AtD 1

·•....• ..

•••• *••••••

•

*.••

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

o·J!"

••

COLO!N
RUCHED

.. *.

.i

•

SfC 0
RElD

•

aBLY

•'

••

o·

*••
*
• 10

:x ........................ .
X
. *G'· *. *. *.

81

*.

•.

*.

•.. ••••
.1.5 •
..

COLUIIR

..

••

..

RESE"l

•..

SIJITCB

..

FIRST CARD

.•
*.

. *. ••

*. *.

•• OPEBATICII
10
••
FIELD
•
COBBECT ••

*'... ••••
•

it

YES

••••• ••
•• •13
*•• •

.

XYES ...
*....................................
1:. *.

•*... •
i

G5 •
•• ••••
•

.*

*.

.*. *.

.• *'

Z1!lRC

...

.. ..

Y!S

• ' ••••

X

oro •
*···*Gs··········
•

• llI'rIALIZ!
nn~ RBSSIG! •
1t1e51 liD
•
•

**

'fLltnt CU'I
"Ii'tL'!IAIll!

• Wo

i

*•
•

•••••••••••

*··.as**····*·•
stc 2
P1!TCB

•
•

UM!5G1
*
•••••••••••••••

:x .......... :
*.*34.1.**•••••••

... .............
svc 0

l'UD

,.

STACK 55

..

:1 ........................ .

*...
....
'til"

•. *.

•. *•.•. *

•
..

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

X

DIGIT
COO'R".fEB
GT 2
...

.

*. *.

*..•

i

K3

DIGIT

• x•.

G5 ••

~"q'q!l~r,

i

••••••••• **

it

K1

.*. *.
G4

·*B4 •••••••

i

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

•••

••

'* • SA".T'tIOLAS! .. ..•
• CaARAC!BBS
*.. PORCAlID
B!.IT
'* •

**J3·····**
* • ADD 1 '1'0 •*'
• DIGIT COUlTER •
••
••

..

••

••••••

·•....' .

Wo

' . COORTU IS

•*••••
•
Bit •
••••
*•
•

*'. •• •*' .*'
*' YES

.•

•••••••••••
:'1 ............ :
x

• 1:3 ..
'* • ••••
.:.::~ .............. .
.*

i

i

.'i .

•._.*•
PIBSTCi.J1.i** •••

.*

.• 83 *. *.
•• BORBEB II ••

110
••••••

OPJ

*

...

'~On!MC\~·o·

•• *.

~:¥~~~1

OELPRD

• NO

i

*..
*
.. YES

.. ..

.*.

IRU TC •

, • SAn

LA:TCA'FID

........

•••

•'*G3BLU~' . •• *. YES
*. *. CCLO".
.• .*....

.'.i *.

*. *. 10
FIRST
CARD
.. *.......
*. *.
.* .*

i

i

.'

.:.••

••
**.
*lD •
'* 11.

.0.

..*••••
.. G2*** ••• ****
.. ..
• :* CO!li(~TE *:*~? .....
iliT' ::
*.
.*
*•
•.. ..*
*...*
..•••••••
.. **.*
.... .. .."YES
••••

x::

*.
.*
.•

DEL1!IT!B ' . YES
CHAB IN
••••••

*.

.* '"

'.

•• COLUIII

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

.*
*..*

.'.

o 10

i
.
'"on
LAS! 2'
• CURS. PROR •

:A~q:
• •

i

YES

~~o~m

•• i..

•••
*
• lI()

i

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

•.•. ..

·.1115·.··•••

' . YES
••••••

. ...*
.'
.•

* Bt

F3

D~
' •
· *.• DIGI! *. ••

*.

YES
. ' COLOftN
•••••••••• I'.
72 BLANK

'

i

.'.i

.*n_.i•••••

.. Pl *.1.

.*.*···'1··.*······.•

15
•
•••••••••••
*•

• US

• • TUBR O'FP ••
•• g=~~~iE ••
•••••••••••• •
:x.......... :

**

tOII'1'EB

•'

*
*o SlT
COLUBR *
tCIR"r'8~ 'to
•

•

• •• ) •• * *

• •
••••••

••

TO COLO!!.

E3

.. PORIUT CARDS ..
.. SET PIRST ..
'CARD SIITCR'

i
•• ••••
•
G5*
••••••

••ces.i •••••

••

DELIMITER ••

*.IND CO""A.

x

...

i

Cq

.i••

.*.. *.
' . 72
*. •..• .•
*.. *

'SBT OP OPU'
• CCB TO RUD •

.

*..•
• •0

NO

.. .'. ..

i

··!1······.

canon

..

YES

.. G5 •

**D3*·.** ••

**

.*

lIO

*.

CCLPon~

•

10
.0 ••••

;

• • • ' . POINTING TO . '

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

...... » i
•

ENDFOR

•
'.
TO ZEIO
•••••••••••• ••

****

.'* ••

•

s~eoll~nT

**

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

••

*. ••

~5
'.
. ' COLnR 16 ' . YES.
••
BLARII:
•••• 1.

•. o·
•

....
'81.1.11:

.... .'. ....
.. ..

i
.*.
••

' . POINTUG TO ••••••

CBBCAB~.C3.~ •••••

•

Bit

D'BL'I"I'r'1B ••

*
••

.. P3 •• J.

•'•

••

• YES

•.
*. •. '(' .* .*

*

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

*.

••• •
•• •Bq
• .....••

··B3 •••••••
• DELIMITED
SIt
•
•
•
tell'!!);

..
..

•••
AI]

• .. 1I1:'qST 15
'.
COLnRS

..

8
•
••••••••••
** •
••••
iliAD"
..
.. 11 •• t.
••••• •

•
•
···.*El··········
INITIALIZE
ROU'lllIE

..

•

i

..
..

.. SET COLUMN
'PCIIITElI TC

;

O'T'i'e'qCt

•*"'13***·*·· •

\1) •
0

.*10
... .
i

•• ••••
•
D3 •

••••••

.:.

COIIM:~TB .:*~?

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

..

..••••
.. *ICS ••••••••••
:I~7 ::
* •
• ..
••
'* •
•••••••••••••
*•••

...... ~::

YES

.i••

·•••..

•• P1 ••
•
Charts

207

Chart AE.

CDMOD:

CNTRL Macro

'"
..

····A"·········
CDMCD
CNTRL ~ACll:O

...
'"

* *.** ••••• *** ••• *
it

*B2

CDftCD ftACfiO

INPUT

PARAftETER
OPTIcN - tEcISION
DO~5 NOT APPEAR
IN AN ASS!ftELY

'0, • • • • • • • • • • 0 ••••

*..*

•*

B" .*. * • ••

TYP'E'P'L;: =

"'.

*,

LIStING.

i

• e.
C3

. * 1442

NO ."
. .... .......... .. ...
*.
*.

2596

*"

*.
CB

*B2

C"BNt)

."' •• , •••••••••••••••

*..
*
*OOTPtJ"{'

x

X

IJCPP;:XXX

•·****C4···**·**·*•

"'. *,

*e2 ."
* .. * • '"

*,

.* • '"

• '"

STORE CCRTBOt. *
CODE IN 'Ott'? •
• CONTROL COJII"Alf'O.
•

*

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

.e •

.*cs

*.".
*.

2596

e

i

'"

IIODIF!

...........

'"

.. COH'lBOL COD!

e

e

............................. 1:x

.....fl..........

.. '"

.. ..

.*

E2

.e •

*.

...

:x ...... ~?: .. CO"~£~T!
.••••••
. _•••••"''''...
..
*...
*. ."

:: iIiT
'"

•

7

:

..

..

IJCR9XXX

·"'D2"'·· .. ••• e

$.

e

*

..

*: *

.'"

.. YES

~

i

•·*03*"*·*:+·
•*
..
"CDIFY
• COHTltCI CCDE *
e

•

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

D4

.*. ••

•

*.

...

*••
*
.. YES

EJl!:C't' BIT
*
IN CCW
.COPlIIIJA~D CODE

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

*••••• *•• **

.

•

•

e

NC

i

• ··1)15·****·· e

•
"'OtIF!
•
• CCH'I1'{OL CODE *
e
•

•

•••• *•••••• e

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

i

···:+*E3 ••i **lfI •••••
•• STORE CONTFOL ..e
* CODE IN DTP *
.CCNTliCl CCMPlAND*

·

tJC"''8111

.*
*. *. "0
OT{
*..*•• 1442
2596
.* ....
·q2
•*

•• YES

" ••• " •
*'E2 ...
*. •• ,,* ".

'" YES

IJCR9XXX

." * .

1442 011

IJClll1n:l1

*·&4******·
'l'U'RN O~
*

*
•
*
•

1:

•••• *** •••
•****.~'S
•
•
CON'IBOt •

·

S'IO'q~

.

* CC1)~ IN tTl *
*r.O~'tl!OI. CCPlIUNr*
..** •••••• ***•• *.

." ............................. !..t ............................
~
...
it

*****F2*····*·"'·*
e
•

..

fl!OVE CO.TaOt

..

.. CODl INTO CC'W •
.. COMI'!AHD COD! ..

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

~

..

*
,..

**.*liq**
•• ****. •
R'P,TQ'FI:N TO
PlWBLEJit
PROG liA"

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

,.,

•

it

··"'G2········****
S'VC "

........"'........
CONTROL

CP~RATtCN

..

........................ ,xi
••• "'' 'H1 ••• *******
H2·*· •.
* ..
.••.
•• ** WAIT
SVC 7
*.
NO •• CCNTliOL *.
*.
* *X ..........
*. I/O COMPLETE ."

'" '"

,.

..

..

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

••.•.•
••
•

..

YES

X

•

..
•

··*·J2·········
RE.'IO'9:N 'f0
•
FJOBLE.P!

•

PROGRA!II
••••••••••
*•••• •

Charts

209

Chart JIG.

GET Macrc (2 cf 3)

CCMCC:

•..••••
A2 •
•

•••••

*1f •
.. 92.

••
•

11

•*

•*.** *

.'.i *.

*.. ' 1~~2
*13
*. *.
*.

0*

***"' •
·A'
..
'" C3*

it

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

.

> •

>A3
CDMOD "ACFC URA"ETER
OPTION - DECI SICN DOES
NOT APPEAR IN AN
ASSEMBLY LISTING.

*····12 ••••••••••
•* •* SVC '1
•• •*
•* *• lilT ** ..•
*** •• ** •••• *•••••

••

l~lCTrp~xx

i

A r;

...

•

i

81

.'.

*.

.* READ *0 *. 'MO J:•
' . CCM!lRD CODB ••••••
*. (X'C2') .*
*. *. 0- .*
• YES
i

·····C1··········
: Sl¥'ls
:
:
C~~_i~

:

OF

~iIL~'lF

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

·····D1··········
:POB

.** •• E2.! •• *.* •• *
>

*•

~~:g~trnD,:

..

SELECT

i

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

······.P1··········
... .... ...
...

SVC 7

WAIT

.. *

....

III"

....

.

it

D2

•••

V.)
*....*
... ...

..

RES'l'OBE

eel

>

..

..

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

*····Bl.*.*.*****
• !lOVE ADDRESS
..

>
..

..

..

..

OF IOlRE11
TOCCI

..

•••••••••••••••••>

•

• BLOCKSIZB AND •
• CC!'!:IUND CODE ..

..

TO eel

..

•**•••• *••• *•••••••
i
•• "'K 1••••••••••••
SVC 0

READ
CARD

•••••••*.**.*.***
*i ••

*• 12 ••
*•• *. *

•

•

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

*

SlYE
IIEGIST]!II

YES

i

i

*****E2***·**·***
* LeAD EOP
*
*
FCUTIJE
*
*
•
* lNTCADDRESS
REG. 14 *
**•••••• *•••••••••*

n

it
• >.

>.

11142
*A3

*

*.

.*
••

••

13

.*. *.

VOIIKA

it
.>.
'PI)

*. *.

NO

•• LOAD ADDIIESS

NO

•••• •

*

i

•**···G2·*····*···
•
SAV!
*

•
•

REGISTER 13 *
••*••••••• *••••• *••••

i

.****H2·.* •• *••••

*

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

'INSERT ADDRESS'
OF I01REA2
'"
I.TO cell

•

•> INTO R¥G. 13 *•
• •••••••••••*••• *

•

•

••••• *••••••••••••*
i:

•••• *11:2 •• *•••••

..
*
•

Y!S

*

••

••

YES

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

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

* . .*
* ..•
* YES

>

i

i

***.*G 3•• * •• *** ••
•* ItOVE CONTENTS **
.OF IOAREA INTOI.
OBltA'!!l
*•
*•
*••••• *••••••• *••

**..;5**·*·**

*

i

•

S'rACKER
•
* It.*SEL'fCT
..
•• *** •••

i

··*85** •• "*. *•• **

•*·*·*·83·***·**···
••
RESTCR!
*•

*S!'!' CC!I!MAND.
TO X'23'.
'1!ED AND
*

*CCt~

SVC C

EX~COTE

*•

REGISTERS
13 AND 14

CH"NNEL
1?"f;OGFUI

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

......................... 1:

~

•

IOAR1U2

=

* ..•

KS •

•• *'"

i

·.·*.J2.*···.* •••
•* BLANJtS
!lOVE IN'l'O **

•

It.

.'. *.
'Pt;
.* COPU!. *.
***.**,q.*.*.***..
EXIT TO
*
X
Nr. .*CCtll!: 1'C2' "'.
USER'S EOl
*X ••••••••• 0" COLU"N BIN •• *
•
ROO'!'IN~.
*. tn~t ...

>•

OF WORRAII!A

•

i

••

;,

i

*..* ....

*.

•• 354'J'5 ••
t.l0 •• 0" 352~ ••
...... *. "fi'IJ CC"TFOL ••

SPECIFIED ••.•••
*..
*. **C3
.• ••
••
*
• YES

····*F3······*···

.. "'. ·0 .......

*..*

.•

•

13

:x .......... :
i
*>••••
J 1••••••• *.*
ftOVE IHPOT
•

•

:
•
•
.**.*** •• ********

•

·*··*Gl·**·······

•

** ••• D3 ••••••• *••

*. NO
•
. *........... x:

•

*..

•

.

!.JCftEXXX

*.

.*
•••• EOP

•••••••••••••••••
i

Si't'lCH

>

'C3
DTPCD MACH PlRA"ETER
OPTION.

....

i

....

'IU~N OF!
FI"S'J' TIIH

._** •••• **.

i

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

SCV 0
EIBCOn
CHANNEL
PROGRAft

.. lt~'5*i_ltlt*.

**
•

l1!S

•*****e2·*··*·**··
ADDRESS •
•
*** LOA[
OP lOABEl1
•
INTO REG. 1q •
•••••••••••• *•• *.*•

..

·.·11 ••••••••••••

•

•
1q
•
•****
....* •• **.* ••••

i

• SE!" eel COP.lftUlD*
• CODE TO X'09' ..

**
•

SAVE
REGISTER

••

......

••

• NO

IJCMCIXX

•••

.•
*. NC
*.• * 10~R1!A2
= "'ll!S *.••••••
"'.
*A3
.*
"'.

*...

i

···*J3*·*··****
RETUIIN
*
PFOBLE!!I
•
*•••TC***"'
FBOGliAJII
*
... "'* •• "'*

.*

•

::

•

**

* •. *

it

.

•••••
·At •
• ,
>

:~ ....... ~?*:* COlI!it~TE

**
.*
**.

'IE.

*:*

*.
.*
It • • *
*. * . •Yl!S
, ** •• ' .
i

YES
.*....

i

J'S" •• *.

*.*.

= YES

• NO

:

.It

• K'5 "'. X.
•
>

.••

•. *...
*A3
.*

i:~T1

.*** ••••• It • • • •

.* 11:3WORKA•• •. ••
••

tlESTOBE.
REGISTER 13 ••••••••• X..

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

*.***J4.**.****..
.. *
* •

**_ltK'5**_lt ••• **

*•
'"

EXIT TC
tlSl!"R' SlOP

*..

***It "OTJT'!"!
••• *** ••••• •

***"'*
*AL •
* Cq*

••
•

e~*

Charts

211

PUT Macrc (1 cf 4)

CDMOD:

Chart AJ.

••••

....

o

•

•
o

o

···*11········.
CDftOD
PUT !ACBO

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

•••*0
*0
*•••

o
•o "4

0

A3 •

o

•

i

i
••13···.*
•• •

•

•

0

0

)'4

• SE'r
•

PIBST •
TIM! SIITCR •

•o

eN

• ..

.0 •

••

,,* puweft
••

*.

•••••••••••

~R'RCR

*. *.

*. *"

lES

•• " •••

.* ".

i

*..
o *
NO

.*--*
.At. *
.. 01·

o •

i

.*. *.

B1
2560
OR

.*
*. o. BO
*. 5425 .* .* ................
**.••.**

YES .0

.. .. •*..

i

....

*.

*

•••••
o.
•
IJC30IIX

*A! *
.. A1.

Cl

*.12

**.....
.*

..

•
o
•
•

...

•

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

**·C3··*·*··*·***
SVC 0
!J:!eU'II
C81NNEL
PFOGBlfl

•

SAV1!l cel
AND ERllOR
CARD tRAG'!
'I" REQUIRED

.* ••• U2********..

x
·····C4*·*·*···*·

•
•

LOID RBCCRt)
LIIGTfI IN

UGISTE~ 12
I'P REQUlll'~n

* *

.•

•*

..• •*
*_...

*. •.

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

:x •••••• ~~*:*

cOflJl~o:r!

. .*

i

o.

PURCR

PILE
OPEN

•
•

0
:

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

i
•••
*.
·AIt *

D3" *" ••

.. *

:: iIiT7 :

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

•
•
•
:

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

...................... "'xi

·····D1··········

•

•
..
:

o
:

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

*• OP
LOA'C ADDBESS
..
BElD PILB •
* FRIBt
PORBPOB"
•
I'lL!
.,
..
FOR BPI
*

*..

•

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

i

•

i

.0.

0

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

.*FURC = *. *.
RP OR IP1I ...
*. *.
.*
*.• *.*
• YES

E1

•
..

.*•• *Bq..i.*._••••

*AL •
14*

.... RO.*
".*.

.*
*.••*.

*

flOV! EJECT
ceDE
TO CCli
IP BEQUUED

CC~ftllt

o

i
..**.
*o •

NO

•

i

**·**83 •••• ******

'.
. 82
...
. o. YES
.0 COftBIR!D
X*.
'Pi.L!
.. * ..... .

IJCPWXH

• 11·

*.

,,* ,,*

* *
*

*:.

'I"

tES

i

-. *.

.*

...

***.*!3**** •• ****

BES'ICBE
*
CODE *
**• CORtlAND
TO CClf Cli
•
* cell
ADDRESS •
•
TO ceE
•
*** •••••••••••••
*

110

.* ......

*..
*
• YES

••1'1.!••••• •

*

SET PIRST •
**•TUE
snTCH 0
IF BEgOIB!D ...

*•••••_••••
i

.'.

*. YESX.
* ISSUE !llCBO
o. OB IR PORCH*..*........
x
SE~gl~lE
*. OR BBID .*
•
*. *.•
nTr .*
• **.*.** ••• $•••••
*
* RO
•*

*.**.G3.i••••••••*

·-*02**$··**··***

G1
'.
'P'
.. *OR 'B' BIT

**

•

SAVE

~i8¥~~i~s

:

*...

*.o

i

*

•••••••••••

•
•

0

OJ2
CDKOD !ACRO
PABUETBR CPTICB DBCISION DOBS ROi
APPElR n
AN
ASSBBBLY LISTIBG.

i

.11

*.

. *•*

1q42~

••

*J2

*.2520~

*. *.

10

.*

o BO

i

•*

..

• *

..

i

.*. *•

.. ..... ..
•.

••••

3!:25

.•

K3

••

...

*.

.l*.*
'3 •

0

****

.0 •

.*•• *Kq.* ••• *••••*

•• ,..It!) •••••••••

••

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

..EREOPT ••
•
• NO •• SP!CIPTED ." YES
.LOAD R'8GIS'l1!:'q 1.
•
x•••
ABD BRBOE
•• " ........ X. "ITli IOAR1!A ........... 1:*
••
POUND ..
ADDRess.
•

.*

o

••••
•

.•

i

ON

0

• YES

o.

*. *... *.*

o

....... I•: :* iI~1J: 7 :••:
•••••••••••• *•••*

YES

*.

. * . *1.S 'F'IRST *. *.. YES..
o. TUE SWITCH •••• I.

*.

o

••••• 84 ••••••*•••

*.

*" • *

i

• 0.

*.....

.. ".

.*J3

• YES

K1

~

*•• **
• 'Pq.

CCfl~£~T'E *:.~?

NO ".
.........

OR 2596.* ••••

•. *..• .*

*.

*••• ItIt***It.**.* 0

•
•

:.....

AJ~:~~~t
: •• ;:*l£i~;.i2 •• :

.x ................ "......... .

X

.•

.:.

..

:

S'rOBE

R!GIS'fl!:R 1 q

•

•

•

:.......... 1:
.0.

!ETUBJ

*

K2 •• 'I.

IJCRTXXI H3 •

o*··*82***··**** 0

'pl BIT.
'R~1IIAI~E~P' ••

X

**···G4········*·

•

·AK •

*AL·

*•SET

:

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

*•••
••

i
•• B1 •••••••

0

i

•.**.*
** A4 •*

*.

." 'I.
•

•*

*

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

Fl!'rUS'R TO
'PRO~L!~

~ROG1U!!

•
•
•

.*••

0

• 13 •

••• ** *

Charts

213

PUT Macrc (3 cf 4)

C:CMCC:

Chart AL.

•••••

•*A3
••••..

•·Af:
J"...
••

RO ••

••••••

.. B2*

•
.'.i ' .
Al

..

•••

..

3525

III.

t.

...

*..0

••

*.

••

* .. 111

.•

i

.'.

B1
....
• •••• B2* •••••••••
.*EltBOPT *.
..
LOAD"
•••• B3 •••••••••
• ' SPICUIED ' . us
•
BEG1SUB l '
•
BE~UB. ~O
•
'.
liD BRROR .......... XO lII'rH :lOAHH ......... X'
PROBLE!
0

*. *POOllD
. . * .*
*... "

ADD'BESS
..
....
..
•••••••••••••••••

X"

• 10

: .......... 1:

*.

i

PURCH

*.

EBROR

• ••••C2* •••••••••

*.

..

10

SI'! cell lin

..

BBGlSTBB'"

..

cum

..

IftAG!"
..
:IRBrs~ol~D
: ......... .

... "............ 1:

-...

..

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

•• .. ••YES

••*'J"
*.

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

..

= tIS
*..12

1Ic.

.•

*. ''0

.. 111

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

* ..•
.. YES

•••• .
·'G"
.. 't'3 •• x.
• • ..

i
***·*B4*·····*···
•

G!'r tOAflBA2

~~.CH

Mon

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

III

.. ......... x:
i

*····cs***····*·*
•
•
••
••
ounOT
*• CC",
TO •
: CO¥I~~Dcg~n : ......
COUR'I ..
•••••••••••••••••••
••** •••••••••••••••
..***C4****.*·**·
..

ftOV! l'ORCR"

~on

•

F.tCC~S!Z!

'By'!:'!

i

IJC~~~!ID 1.1 ••••••••
CIL

• ••"IIj ••••••••••••

..

*
..

.. CC1I2

.. A1ID

S'C 0
FUlC8

...

..** ••
......................... xi

* IF I R IUD ••
•••••••
••••••••
_

··
··.B1···•.•

$ ••••••••••

*.
' .I.
•••• ' .i

III 11

•

•.•.•14**........
l!S- *. *.
.*
::
~:~T1 : :l...... ~~*:· co"i!~'l! *:.
.. ..
.. ,.
*.
.*

**· •••

PHIIT RETRY

.. •

•

!IBm E

•

P1

.* . *

.... *...

*.

.'.x *.

III ..

*.. *

*
..•
.. • • III

• YES

i

• •••• 11'1) ••••••••••

-. *.

••..

*•..

lll!S'!OR!
Oil GlUt cel
• CO~MAJD CODE

.•.•

2i~~

'III.

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

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

ItO

..

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

• •'.1..
*.**

•

•
•
..

ItqTO eel

.

*U
..

•

• CO~""D CODE
•
AID IOftB!J2
..
lD'OR!SS

•
ADDBBSS An •
• MOVE aOlRAnA •
.. liTO IOIBtA2 ,.

••••
·AG *
.
.
lJCMRXXX
X

x

•

• •••• l!r; ••• :t • • • • • •

•

....

....

t.1C~U'n

lJCMDXn

: In.*.x.

C1 .'. *.

••••

tBOGFAM

.'i .*.

VORU,

*.

• US

.* . *

Itt

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

.*

• YES

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

x

.*

G,·*· *.

•:*•. Co!!i~T!

*.

•. *. .•.•
•

• •••• G2 ••••••••••
.. .,

1:

*:*~~ ...... • •=

.*

•'

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

•.

iIi,? ::
• •

:.:••••••••••• :.:

•

•
•

····G4•••• **....t.. ....ns..•..'
ExtT ~O

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

•

USER'S '80!'
ROU'fIN'I.

••

Hl
'.
PURCH
BRROR

.*

....
....

•

*

....

...

' . lES'

....... X. 1!l1 •

i

••

BOP

...*

' •

t'O'tlBG A
••
G1!'I
••

* ..•
• BO

YES

i

...

....

... .
...
qll)

•

i
• ••• "15 •••••••••
li-TORW!(J

•

P'ROBt!PI

•

t=BOG'JlI!

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

• BO

i

••••••• .11 ••• •••••••••
•
•
*' ORIG'IBIL
CClI
•
••••••••••••••••••
•
:.......... x:
BES~OBE

it

.. .'. ..
.. •. .*..
Kl

*.*K2· •••••••••••

'.

•• VORKA OD

••

YBS

S'C o·
EXECUTE
• CBARBEt
•
nOGBlB
•••••••••••••••••

'.101BB! = YES . . . . . . . . . . 1

••

*.12..

• BO
:lJCEXXX

..!..

·11( *
• G4.

o •

•

:IJCRUJJ

..1
••
·AJ •
• 83·

••
•

Charts

215

Chart AN.

D'IFCN:

GET Macrc

••••• 2 •••••••••

•
•

DUCI

•

Gl! KleBO
••••••••••••••••
••

.B3

IJ2!111!s2.i ••••••••
*o

SI'f eel
cellUID
• CODl 'fO BUD
:
(1'01')

DnCI KACiC
1'lBlHETEB
onIOI - DECISION
DOES lOT IPPUB
n 11 lSS!BEtl
LISTIIG.

•
•
•
:

•••••••••••••••••
i

.0. *.
C2
.*
*.
.. III .EClOIR *. tES
... *. ,.; ~I~BP .... "*oo ..............
**oo. ..**
o

••••• ••

•••••C3 ••••••••••
..
*..

x:•

:

.. ROVE lItKSI.Z!

Bti~ ga~.'I

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

BO

....···D2····••••••••

*.X.
•• D2 •
•.. x•••••••••••••••••••••••••..

IJ2pUn

l:

•

•

SVC 0
BUD

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

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

x

!2'" *oo

.*

*oo

•••••13 ••••••••*•
.. •
.. •

*oo

•:**. cC!lirE'l'1 .*·:.~~ ....... x::
*..*
..• ....

i:~T7

::
• ..

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

*oo .. *

••••
••••• •

•• ,q ••

• liS

...

i

i

.* .
'I. 'I. ..
.. ··.·:0'I.
:pq

.*1'2WIT -. •. *. YES
*..**. EICIP'!'IOI
.• .. *.......
*. *••• .i

•*••••
•
D2 •
•••••
•

o BO

...
i

G2

== URnil

'I.

*. *.*33 .• ••

..

o

*YES
...................... .

i

.*. ••
B2
•* VORIt *. •• YES YES.*
••
*. . . YES ••••••• X••• *.

.....*B3'I... ...
•

.*..

•
•
..

o

'I...
*B3 .•

*.

i:

10

i

83

...

*.•.

0

•.*•• •

•.•·J2····.••.•

IJ2BUIl

.. B!!OBB
TO ••
nOBLER

o
•

illOGlUII

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

•

.*. o.

WORK
YES

• :P4 •

i

••

n.D~l"

·83

•• YES

••

'I . . . . . . . . . . . . . . . . . . . . .

•
..

.

·····ftq··········:
:
i

*.••

o

•

•

MO'B COITEB'!S •

~~ ~~~K:~~l

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

'I • • •

ltO

.••..•Gs.·········•
i

•
•
:

STOll!
R1!:GlS'f!RS
2, 3, un: q

•
•

:

•••••••••••••••••
i

·····H-;··········

•
•
•
..

CALCULA'IE
ElKSU! liD
"eVE RECORD
10 IOltKA'REA

•
•
•
•

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

:x........................ :
i

····.J3··.···*···
•
•
•*.**•••••••••*••

• SUB"!'BlC'! tca •
0US!tUAt ceul! •
.!'BOB ELOCKSIZE •

o

STOi)
BIG:ISTBRS
2 AWD 3

*•

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

• 10

t.

••

RBC!'01UI

=

•••••Gq.i ••••••••

••

. *ltECl'OIi!! *. ....
.. "

*. *.

••

•

i

••••• J ........... .

*

•
•

REST eRE
RBG:IS'IBRS

•o

*•
•

*

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

:........................ x:
i

: *···ltq·········
llA :
..

ltB'!U'R1

B:Bgf~t~~

ore

'"

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

Charts

217

Chart AQ.

I:'IFCN:

PUTR

Macrc

..

.·.·B3••.•·••·•*

*

D'IPCB
PUT! BACIC

..

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

~JCBIlIl

i
·····C3··
....··***
*

..
..

**

S11!
'RBGIstEBS

..
•

**

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

i
·····D3··········
=!i!l!l~l_._._!!:

*
*

.................**
BUCUU

pu~

•••••
E3.!•••••••••
*
*•
..

PB~PlB!

~c

CClI

•

Bllcon

•

GE"l

•

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

•••••'3.!•••.••••
AI'
*_*_t_t_t_t_t_*_*
•• Bllcun GB! ••

• ~J21Un

·

.

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

•••••G3.i •••••••••

••
..
..

RBSTcn
eel' lID

aEGJ:S'l~BS

•

..
..

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

..
..
..

····a3·i.•••·•··
BE'fOBI to
EBCBI.EII
PBOGIU!l

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

..

..

..

Charts

219

Chart BE.

MRMOD:

GET, REAC, and CHECK Macrcs (2 cf 2)

••• *.
:tEA ..

·

'" 85*

••

IJOTSTRP

*A4

i

.*. *.
A1

.*. *.
12

.*:t.

MR HOD I'IAC'qO
PARAMETER OPTION -

IJUSVC1

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

**
"'..

.*:t.

'"
IS
:t. NO
.* READ ON *.."' NO
*.• *.DEQOEUED
CCB
•••
.* .* ......... 1*. :t. :tSIITCH
IN DTF
.*
:t • • *
••*
* ••
*
*
...
'
"
'" YIS
'" YES

oe • • •

:t.

SVC '1
IA1'1

X* '"

'" '"

DECISION DO'!S NOT

APPEAR IN l\ N

ASSEMBLY LISTING •

"' ..
'" '"

'" '"

**
**
*****************
i

IJOENDiS

.'" .'"

B1

..

*. :t.

"'. *.

YES
:to UNRECOVERABLE.:t .......

*.1/0 ERROR.'"

*. * .. *.*
•

...

*It"''''*

i

NO

.. ..
i

****

'"

'"

**EAG5*'"

X
**B2*******

TURN eN
'"
'" WAIT SWITCH '"

IN nTP AND
.SET WAIT BIT '"
'" IN BUPFER '"

IJOI)jC~

*.......

~

"'*"'**~'i*"'*"***"**
*~1):C BOll ... IENG'IH*

*'t'C !DUB OF LAS'!*

IJOCALLW

*

*
**

BY1"" O'P LAST
EUl1<~B LCAr!r '"

~y

SU'P~~VISOF

*

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

***********

'" D3 '"

****

i

*****C5**********

**tou:
INI'tIALIZE TC *
PTRS'I EUFF*
* 1N toe EU'EFFF *
* J,Trl!~ lHl'I '"

..
*"''''*

:**!:*:~£~~!;~**:

'" D3 '"

*

****

it

IJO'TDSN

.. :t.

. '"
• '"

"'.

:t . . . '"
• NO

El

*.

..

• "'.
D3

"'.

* •*.

i

****D5*********

DATA
YES
CHECK OR
• "' . . . . . . . . . . . . . . . . . . . .
DISENGAGE. '"

*

"'. *... ".*
,

.*.it :too

..
*

lil!'l'UFN

***:t***:t*:t***:t*

NC

i

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

.*
"'.
YES .* DISENGAGE *oo
........ *. :t. BIT CCB
ON IN
.* .. '"
:t.
* ..• .*
•

i

IJOCKMES

.•D1 *. *. .... lES
•* DUAL
*. ADDRESSING .. *.......
:t.
*A4
:t.
.* .*

•

'" MeVE MESSAGE
'"
COtE 3 3
:

TC

*

(=~~~IhE

BYTE: IN DTF

'"
'"

:
*

********"'**"'*****

NO

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

i

p, .*. "'. *.
. '"

i

**F2******·

'" ANDPOST
'"
*.• "' YES
'"
RESB'r
'"
*.•**. DISENGAGE
BIT ON IN
. . . . . . . . X. API-1I0PRIATf •
DTF
••
•
BITS
*

*..'"
*. ."
•

NO

i

:IJUTOE
.*. "'.
G1
·• YES.* ." ONIT *. *.
x••• *. EXCEPTION .*
"'. *.
~ '"
"'..
" .'"
* 'NO
*.i**
*BA *

.

'" C5*

••

'" "'***"'***"''''''' '"

F3

. *. "' •

. '" seu NCT *.*. YES
.* OPERATIONAL
•
• *...................... x.
*.
.
'
"
.'
*...
'"
• NC

"'.

.

..

****
'.
* G4 *.X.
****
•
IJUFETCH
X
*****G4**"'****"'*'"

,

**'"

INITIAII'lE
TO l''BTCB
PlESSAG'E

*

'$$B""1I20

'"

WRI~ER

**'"

*

*

**"'******"''''**'''***

i

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

i

***"'H4*********
'"

**

SVC 2

FETCH

~tB~MB20

*"'*************

'"

*'"

Charts

221

MRMCO:

Chart ED.

•
•

·.··11·····.···
IlftOD

•

DIUI 11CIO •
••••••••••••••••
•

LlDDlSEJ

WAl~F

OlSEN and

i

•

····12·········
IIBftOD

Macros

•

IlITP Blcao •
•• •••••••••••••••
•

i
.····S2.···.·····

IJUnIU

•··111 ••••••• •

•
'!:UII 01
•
• 1ISII DISBIG1GI •
• IUIID!! •

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

:sm!'16f.Ufi'
:
• liD BBGIS!BBS •
•
511D6
••••••••••••••••••
••

I.JODIS~~C,.! •••••

•
•
• SB'!: PIOPD •
• CCI BI'J: OJ
••
••
••••••••••••

•••
•.. •C3
••
••••• •
........... 1:
:IJU~::£~:C3.i.*
••*••••
• Lon IlEG U

.'.i ••

C2

. * lOBI *.
•• !BlI ORB ••

··.~mt·9ner
•. usi
*.. 111 .'

YES

•

.•·•· .. ···

• 10

• II'rH STiRTIMG
•

or

. ADDIIIISS

*•

u:n tIS'r *
•••••••••••••••••••
•

:1 .................................................. .
•
•

••••RI!DlI!O
D1.i••••••••
PBOBLII

•

••••• ~lftHI•••• •

IJlIlGlIH
i
• ••••»3 ••••••••••
• OPDAU );C:U~!R •
•"U'r
oro un
tC IR •
LIS~. GB'r •
'POIUBB !C US'!: •

•••••D2.i••••••••

•• GU lDDilSS ••
•
OR RBI'!:
•
oocoIBn
BOPI'D'
•••••••••••••••••••
•

.•.

: •• ~~~.~¥Ill' •••:

i

12

1:3

'.

•• EOPP!B ' .
• ' IUDY lOB'. YES
' . PIIOCESnlG ......

*.

*.

.* .-

••
too

DOC EOl
!RI L1S'l

IJO'r'!:BPC

7

:

.••.

II

11

lG 0

•

ARUIG •
S OP
II

'IT
II ••

II

!!II•• :

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

.' .
1

.1. *.

• ..
.. ..
t:
il¥lf .. :x
........... ~~.:.*..*cC!li£~'t1*..**:
.. •
..
:.:...........:.:
......-.

LOAD

•

··.·:0

··.·;0

'2

• •••• lIq. ••••••••••

•

•• YES
• II
• *.............. '1* 1

... DoeDIER'! .. II
*. EUI .t

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

.•.i *.

.• lin •.

P3

.*

*.

i

; liS

D'II

••
t.

. ' rILE 'rIP! •• 10
•.•.
UMf ......... .

III

.•
* ....
• US

.1 . . . . . . . . . . .

I.JOBIDI'r

i

G2· •• • ••••••
••••••
••
•
ns'!:olll

:

II~GmEr

:

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

••••B2.i •••••••

IJOBII'r

:1 ........................
:
X

I

.'•

R3
'. t.
ERDer
••
DC , . . . .

.t

: ImBMO :• .......... UlisJ

..

•

US ••

~IOG1.1.11

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

II II

II II

:.::i~:!jl~lt::.:

i

II C3 •

._

• IC

.:..

••••• J3· ••••• •• ••
•

q,

II t'ITtll: "II! • II
II II
S"I:I'l1!
II II

t •••

too

•

i
·····"5········
..
s'c

OPtAU TO

••

•

• •
••••• •

: 'ill'1!ff~i : .....
•••••••••••••••••••

Charts

223

Chart EF.

$$B~MR20:

~ICR ~€ssag€

Writer

···*12 •••• •• •••
**
*•
UE!KR20

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

*

..*.•.

..*.*•

•

•

*'

•• e::

•
****

PHSTINST

i

*****B2**···*····
•
•

.. RBLCCAT! eel

..

..

..

..

ADD!!SS IN
CCB

*

..

*

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

·····C2··········

i

**··*83
.. ·····*···
•
CCNVEU CtB -

*

- PReR D'IP 16TO
'PRlBTlBLl PORK'

*AID IISEB'I INTO*

:.=!~~t~l .. t~~I •• :

X

..
'"

HELOC!'!!
lI!SSAGE
* lDDRESSES IN
'"
!lISSAGE
..
ce'ilIS

'"
..

*
•
'"

C3

i

• tOAt REGISTER '"

.. tilTH ADDRESS

..

..
..

'"
..

01' "ESSIG!
TIBL!

i

·····E2·······*··
..

..
'"

'"

DITEBffIlIE

JIIESSAGE
BUtlEER PBOft

D'J:F TABLE

'"

'"
..

..

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

it

•
•
···**P2**········
.. RESET KESS 1GB ..

..
'"

BY'!l IN DT!'
TO HEI '00'

..
..

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

it
.*.
••

···cs············
i

•*.* DUlL *. *.••••••••••••••••••••
NO
•• ADDBESSIlIIG
*. OPTION ••

.. ..

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

·····D2··········
*
*
.................

1:5 ..

- .*"* *

.. 'fFINT 'HSSAt:F ..
ON SYSLCG
(SlC C)

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

* ••
*
• YES

i

·****03*······*
* COJIIVEB'1 SERSE•••
•

*

INFCliftlTICR

•

IN DTl' }feB

•

•

DUlL IN'lO

•

• PRIN'rIBlE l'Clit! •

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

*** ••E3*~* ••• *.*.

•
CCNVE'B'I SCU •
*CLASS lit UiIT *
*
* AND IRSER'r
MESSAGE
*
un! A
•

*

*.* ••• ** •••••••• *.
it

··***P3········**
•
IRSEli'l SIC.
•
*

DEVICE UNI'l
lDDR !lief!

•

D'lP liTO

•

•

•

*

•
0
•••••
*REG
...........
**•

i

·*···04····*···*·

• CONVERT SENSE •
•
INl'ORfil lTIOl{
•

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

IN DTP POR

•

SINGLE IN'IO

•

*

.PBINTABLE POHM •

.····n5·········
..............
i

*
•
•

R'ET1Jl1N 'Ie
tIOCS VIA
SVC, 1

•

•

•

i

··*··E4*·····*··*

•
•

•

*

•

CON
CHAlfN

R'f

UNIT

AND I
"ESSIG!

•
D"
It''
..
E\
•

.****.**.*.*.*.*.
i

*····P4··········

*

•

INSEllT PHI
DEVICE UNIT

*

R'BG 0

•
•

ADDR FRmi
DIf'P INTO

•
•

*

*•

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

:1 ........................ :
it

····*G2*·······**

.. ftOVE "ESSIGB
..
..
..

S'IATBKEHT
TO OUTPUT
l"qEA

..

..
..
..

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

*

it

····*H2···. ······

-INSERT SYKBOLIC..
PltEHUIE
..
.. PRC P. DTF INTO ..
..
"ESSIG!
..
..

AREA

..

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

·····J2··········

CUNAD
i
···**G3·~········
*CC1IVElt'1 DEVICE •
.. UNIT AtIR!SS •

-.................-

•
IND IR5!1I'1
.. ftESSlGE llt!A

it

**··*83····**·**·
• CONV!It'l I'lL! •
•
•

liUftBE}\ 1fC
PRINTAJ;!LI

CS8
*
* 'TOCONVERT
*POIlft PRIlITABLE
IBD IHSEll'r.*•
* IN MESSAGE
*
AREA
•

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

.• .•
i

**.*

* '83 *
• ***

•
•

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

*

POEt!

i

J3 .*. *.

it

•

•
•

••••
• * t!ESSAG! •• YES

...

••

IS IItUl21

*....
•. .*

••

* He

*.***J4**
••••••••
lSCU BOT.

•
•

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

"OV~

OPl.RA't'IOHAL'
STA'l'E"EWT
'10 OU'lPU't

.*•.

•
•

ARIA

*** ••••••••

•
•

*

*.
•

:1 .................... '.... :

1

--••••.III • • •

.. E5 •

Charts

225

Chart EH.

CNTRL Macro (2 cf 2)

CRMCC:

•••••

'DG •

• J3·

••
•

•••••11.! ••••••••

•
•
•

"Sft tTl
BBIOI
I1DICITOB

•
•

•

•
mloGo :

:

Bl

.*
••
••••

.•.i

••

uln
CHIC!

*. ••

*..*

10
•
............ I:

··.·hs

.•.

····S2.........

nssm :

BJ'fD"!O

•

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

*.

•• B~J~il
••••
Blft!

• •••• C2 ••••••••••
•
•

*.

**.... **

•• tiS
• POS! BOPPIR •
. . . . . . . . . . . . 1:COBIu:J'1~8'rl.I:

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

·10

Dl

.•.i

••

IIIJBC!

*. *.

.* .*

liS

......

•

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

•

BQ •
•• ••••
•

. * S'UCItBB*. ••

•.•.

• III! !O USIB
• co nBC'rIC I
•
lCDTIIB

i
••••••

*..
'
010

i
. '. ••
11

••

••••t2.i ••••••••

••

.*
t.
•• CORRII» ••

~~U~D

*..*
*..
*
• 10

*.

1'1

.*
••

101-

.*

............ I·. •.
liS

••

t.

minI ....... :
11'f1

•• TIS

*..*

*..
'
• 10

..'2 •••••••

*.

•• liS
••• ~IC~18IEL~. ......

**.
...**
• .0

• !O.I 01 •
• LU! SS BIT •
•
* * II
IiI». * *x ...

In'eel

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

...

i
Gl
••
.• ns!·.
.
BC6VI
BO,101·.!IS.
••• • liD
.... 1.
*. BBIOR.*
•
*.
.*
.
*.•
*
I
• 10
••••

....• .

•

·.B3···i ....

•• •nt~hBTI. •••
IJlli=!llc3.i ••••••••

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

..aq·······
!¥IT ~C~01t

lJRSBnJ
•

1IIS~CB!

R!GISnl 13

••a
•

1

••

SUPlUISOR

lIP
•• ••••••••••
••

•

•••••Cq.i ••••••••*

..•

LCAD REG 1

•

•

OPCCB

•

•

VITH aDDR

•

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

i

•••,oq.iSYC••••••••••

····.D3 ••••••••••

•.U!CUT! asu's ••
• COBBECTICI
•
•
BOUUB!
••••••••••••••••••
••

1

~

Run

BRIaR
coaSARD'

•

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

:1........................ .

.t. *.
12

j~""""""""""'''':

IJIOGIII

••••

!UBI CI •
• 101-UCOl. •

••

•
•

*.
•• ail •.
x.

•••••••••••

i

C1

.*

•

O'l'lOD

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

•• ••••
•
!~ •
•••••
•

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

......".........

CITRL !lCRO
*• Inn
RcU!n~

•••••
!3.!•••••••••
o
•

·~~MM~II

•

: UGHPU :
•••••••••••••••••••

....
.:-.. COIli£ilfB ...:
....
...•

•
•••••••••••••••••••
I!S'fOI!
eCI ADDUSS
'fa CCE

•
•
•

..
..
..... 'I::
.................
.. ..
..
• •••• I'S ••••••••••

.~?

YES

:1~ '7

••
•

•

..pq •••••••

RI~~i ~S!
POI

usn

••

lIP

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

•

••••G3.! •••••••

:

••••• !~UUI •••• •

:
•

..... ......
BimMO
PIOGIIl!
,."

:
•

•• B3 ••
••••••

•
•

i
•··.a1•.•......
InDII 'f0
PIOBLU

::

i

•••••'3.! ••••••••

*•
*•

••••o2.i •••••••
:

nS'rCB!

J

Iq···..

·• I . . •••••••••••••Ie•••.•

•
•

•••••n~iul.....•

.* ~5
III.

IB'fUltl 'fO
ADDRBSS II
RBGIS'rU H

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

' ...
• US

'..111

.111

.'

i

i

•
•
•

•.

tOP

III.

••••"4 •••••• • ••

i
.*.
'•

•••••,,'5 ••••••••••

•
•
•

:
n~!UOn
• LC'D
fs
• VX'lB ItOI 01'
•
tSIlI'S 10.

~BG

:
•
•
•

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

••
•

i
....lts.········
!In Te

tS'B'q'S 101

ROlJlf!I'

•III

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

Charts

227

Chart BK.

GET Macrc, Untlccked Reccrds (2 cf 3)

CRMCD:

•••••
·Bol •
• C4*
•••
I"8!9%1I
IES
••• •••

*.

o

••••

i

•••

Al

.* . *

..

••• 0

o•

.. 12 ..

••

I"RTllIII

-. *"

US .0

...... *.

BQUIPnlT ••
CHICK .*

*.

*..• .*

•

A2

•

1. o.

.* BlCPOiR •. o •

*..

UID!P

*.

• 10

,,*
*..•
o 10

.*

.. "

•••••

*l'] *

• 24.

••
•

.......... .1:

.
i
·• IJllifIIJ:1 .. *.
i
.pB'r!III •••
Bl
••
•
E2
••
,,*
*.
.* ILl *.
.* BIC'PORII = *.••••••
10
... CI ICI- *" 110
..
•• URDU OR
*.
UltllPIJ!D ••••••••
•• BECOID ••
*. ILl .*
*. *..• .*
*.
.."

*..
*
.. IES

• tBS

•••••
B3.i••••••••
o
0

•
IBCB!UU
• TOTAL I.II!S
• BUD ccunn

o

••

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

:.......... 1:

:.......... 1:

*•

i

•••• t

tiL·
• 12.

·.···C2.·····.···

IJBTPIXI
i
. . . EXIT '10 ....
.. .. I'D BI'IBY • •
••

'BOR

o •

•

••

:: i8:~fli ::
•••••••••••••••••

.•.i

i

D1
*.
.*
•.
10.. RBUUt ••

••••••

*.

10

'rIIlBS

*. *..• .*
• us

...

• •••• »2 ••••••••••

o

UP G"fRL
• CCI ADDRESS,

••

SB~

: in

~ih

•

0

:

: •• !I~I~;!!.l••• :

•••12.i••••••••••
SVC 0

GRTL

•

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

:1 .......... :
·
.I"BTBIU
••

o.

i
.0.

Pl

. * DAU *. ••

*.

i x•••••••••••••••••••••••••
P2-·-._

••

cIBa

*. *..• .*

.*

10

.•..••

.. ..

*...
o

• lBS

i
**·
•• Gl ••••••••••
OUCBEIlBU DAU 0
o CBBCK COUlnR 0

:o IB!B~
R,RBbU
:
COUI~BB •

US

i

:

t~D~~iS

• 12 •

..
,,*
*.
i.~~.:* ellum *:*
*.
.*
*.
.*

..i..

•

*

o

0

••••

• ..

::
• •

•
•-..•
.•.............

0
•

.•.i

•1••

i~i'l7

:

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

••

• ..

..... l:::
* •

*•••••

• ••••G2 ••••
•
JlS'rORB
• BOFalL CCI

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

B1

*" o.•YBS

OBJ 0

*

•••••• 3••••••••••

.*..

.:. CCl!Ji{~TE .:.~?
•.
.•

Cl.

••*

X"aTCIIX
i
••••• Jl ••••••••••
•o
SET DIU
CBI!CK
BIT
•

*

•

CB II BBBOH

..

•

IRDICA'fOB

•

..

BYTE

..

•••••••••••••••••
:1 .......... :
I"BTDIXI
i
••• •• 11 ••••••••••
: mB~Bu~IBi :
..
liD ~RCB.
..
..

COUITEB

•

: •• l~.~~i¥~:;~••:
i

•••• *

o
o

.. .12 ..

••• *

0

Charts

229

Chart EM.

CRMCD:

GET Macrc, Elccked Records (1 of 2)

•• ••••
•
• 12 ••

•• **.*
•
14 •

....

···*A'***.·••••

12

.*.*

....•

•

i
.'.
'.

IJ"B3XXI
i
·*···A4*·········

•

"'. *. YES
' . JUS ~ DETECTEO ••••••
III.
*.
... .*
i

•
OBBOD
•
•
GE'l ftlCBO
•
• iloilo • • •ELOCKBD
•
••••••••••

••

ERROB

•
..

*•• *

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

··••••..
••••

• NO

(ALCUtA'T!
!EeORD

•

•

IIU"B!R

'" 83 '"

••

110.*
........ ••••

*•

X

*. *.

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

'"

TO

•

.. .'. ..
i

B2
'. III.
PIBS'!
'II"!

...

RS :

co

SET

i

.'.

.1••••••••

IJftUU!E
:SAUB

Bij
'.
•• IS orRIS •• 10
' . nROR EBING • t ••••
•• RET'lIED •

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

*. * ••• .• *

'" lES

i

**.*

• tIS

•• '12 t•

i

.'. *.

C1

•* PIRS~ *. ' . NO •
'!:IIB
•••• 1.
*. *•• *.• .•
i
'" Y!S

'
*.• *.

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

i
··D1 •••••••
•

•

'"

....

•

SET

IJftBUXX

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

• 11

•
*

•

•
IDDRESS
•
•
f!OVE ceil
'"
• COlIB ADDRESS •
TO ceD
'"
•••••••••••••••••

: • • • III

IJRBDIXI

PROPER •

TO HOP

•••••••••••

.. '"

•*

•'
•.•.

BLKSIZ!
~55

:rJ"BlIU

*. ' .

*. *••• .•

.

Yes.*

••• 1\1 •••••••

•

i

·.
•••••G3 ••••••••••

RECORO

i

•

iloilo ••

•

*. *.

UMlor

CH~CK

••• *

.'.

*. *.

.• .*

1110
•
......... ..

1!:iS
••
.·~'RJiOIiS ••
.. " O~ 'L~ ell •• HO
IICN-Uln:!!.
•• RECORt .. 111

*.

.. ..

0 •••••

i

* ..
111 *
YES

o .** •
•

•••• •*

•**,4**·····
••
SEl!

.•••••••••••.
IJMSCIlI
TO MOP

•

•

it

..

····G4**···*··.
!XIT TO
•

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

• CORE R'!SIDl!NT •
ERROR ROUT IN'! •

i

,I)

.'.

...

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

*. •. IIC
.* .•
BClItil!COV!liY ••••••

••

i

* ....

*

Y!S

.E!B •

•••

• A1*
IJ!~9UX

·····Gs.•••..••.•
ic

*SB' RONB!CCV!FY.
• !I'! 1M EDRCR •
onncuc, flU •
•
AND SET UP
•

:~2!!lll.Jii~lii:

'aij

CORE nSltBMT
ERROR ROUTIn
S~AR~S AT LABEL
IJKSAXXX ON
CHART BJ

~BE

H2

*.

*
•
•

.•

*...
'"
• NO

i
••• "HS.""
....... . •
'-It'! lie
COB"!II'!

•

lIOO'!IN!
•
•••••••••••••••

i

J2

.* . *

."*.

*.

*. *.

BEED

YES

K2

.• IS

.i. *.

..

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

tlg6~ER

* •••• *.*
* BO

.. *

•

~J~SQnJ

NO

'.
"'.x.

*.

**•••

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

. .......... J:x

it

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

' .. X' .

.t.

svc 0
GET

•• ••••
•
A2 •

•

•'" ••••
•
All '"
••••

NO

i:

••••• *

****
!1 *

**

i

•

!XCEP~.

••••••

··.11··*···.

MO

• YES

III.

TIllE

•'" ••••
•
1t3 '"

• SBT •'"
IJ!lBJXXX
'"
•
~O fRANCO
••••••••••••
••

•

•

*

• 13*

*.
• 'SECCHt ' •

i

i

'"

*. *.

YES.
.•.•....
...... •.•. P~~c5l~E .....

• NO

'"

··

••••

'" 82
••••

"'.

•*
*..*

'"
'" .*2 IOAR!IS*. *..* I!S
ICAi!AS '"'"
*.. "'..
........ X.•III SWAP
IND cew CBIIR •
.. '"
ADDRESS!S
*. *•• *...
'"
..'"
•••••••••••••••••

•

it

!4

El!'tURlI fBOII

• CC"l! liESIt!NT

• 1!1I110'R ROU'!I.! •

X

i
G2 .'. *.

•••••••••••••••••
R1

•

• lJ!!TOXXX

..................
***·05* •••• ** ••

•

•*

• ... *

.* EBRORS
CHAR. *.
*.• •••••
YES
•

·····a1 ••••••••••
.'.

.. ..
CHECK
•

*... '"

•
BURP :rOlBEI •
'"
PTR. ABD
'"
'"
DICBEBIR'l'
'"
*BLKSIZB BY 255 •

:IJRBJXXI

*.

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

*. "'.CHICK.
OR
.*
'"

'"

• BLARK IOnE!

*•

YES..
DATI
••
• ••••• OR CHAINING ••

i

.*.
12

' . UBIT

i

IJRBIXXI

•• CHAN.

..
'" D2 *.X.

'BI lBS"lRUC~. •
LENG TO SET •
'" IJRBJIXX
'"
..

iI~'l7

'" '"
::
•• ''""

.

••• *' *.
Dq
*•

• •••• 03 ••••••••••

• •
..... x::
''"" ''""

••••
"'SR '"

:X •••••••••••
'SB~

i

• D4 •• X.
X
..

ItOUSS
•
•• ••••••••••••••••

IJIIBPlIIF1.i •••••

....

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

• YES
'.

IJflT8XXX

'"
ABD JECCRD
'"
• COUNUR SAVE'
'" ERD"OP-jB!1 '"

'"

•

:1
........................ .
I

•••••!2.i••••••••'"
'" ZERO EBROR

X

GET .lOIREA

·
t

'" lES

'*..x.
• .

*•

• •• *

*... '"

·····Z1 •••..•....

IJ!BEXXI

e4

*•••

*.
• :'" CC!!i£~TE ·:.~?
*. *.
. '" .*

•

••••••

i

.'.

.* .* SAftl! *••• wo
*. *. !'RRO~ .• • *••••
*.
. ..

'"

•*

•

·....

RESE'!

IJKBijXXI

IJRBBXXX D2 •••••
•

~O ERASCO
•
• IP BEQUIBlD •

••••

•..C2*·····.•
•
PHST TIft!
•
'"
SIITCH
••••••••••••
••
i

*

•*••• •

• 1t:3 *
* ..... *

i

*.
.*

•••• * •••
•**.**K3.*
•
*
*
•

TRIS •• NO
lI:ES'TCII!
•
'.
ERROF
•••••••••• X' REGISTER 1
•
•• FECOBD
*..*
*
*
*. .. *
*** ••• **.*** •• ***
• YES

i

•••• •
•**** *•
o

• D4

i
•••••
*
• »3·
•••

.E!'R

Charts

231

Chart EP.

ReLINE Macrc

CRMCD:

**·*11.********
'"
•

•

...............
OBftOn
RDLNE l'lAeliO

BLOCKED

'"

'"
'"

..
'"

'"

ce.

ftaVE

'" cell TO CN'IRL

'"

LOC. OF tTF

'"

..

'"

•'"

i

SA VB RJ.i!'lUBlI
ADDRESS
'IC USER

****
• B3 *.1.
****

'"

'"
'"

~

it

··***D2·········*
:zEBgDIl'ij ~~~, :
• SAVE~EGISTE~ •
•
1, AND SET
•
..
tlP eeE
*
•• ***.*•••••• *•••

:
'"

'"

IJ!TllXX

i

: •• II.:~i~~~~~.*:

IICREftiNT
KEYBOABD
eOliBECTIOR
COURTIlt

i

*

IlfDIC1TCR
E1'I!

•

IJ!T2XIl

*

*

i

···*·D3***·*··**·
SEt DA'l1
•

•

.CHICK IN EEROR •
IN111Cl'10F:
•
*
BY'll
*

*

:**It.~!iilli~**:

IJ"T3XXX

*****E1* •••• ** •••

i

*·****13*··*····**
lIES'ICliE
*
* INTEliEUP'IlD *
* CCtil ADIlRESS *
•
petRIlEi
*

.SET COft"_ CRAIN*
:BIT ~~'''C~iORE :
ADDRESSES
SET eeE

·· .' .

*.**** ~* •••••• ** •••*

*

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

'"
'"

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

***··C3*·**·**··*
*.LENGTH
SET 1HCNG
*
IN ElillOE*

•

i

:.. IND.
i,g A::~R
BI'lE

i

·*·*13*·***·***
RETon
no! *
*• CCRE
BESIt:ENT ..

.. E1I:1I:01l: 1I00TINE ..

'"
..

'"
'"

·****D1 **********'"
RECORD OP

'"
..

·····C2.'Ii"" •••••••

'"
'"
'"
'"
'"

**.*.**.****"".***

'" 'ZERO LOGICAL

'"

......,..........•

'"

'"

****·C1*********·

'"

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

IJ!RDUX

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

'" INSERT PROPER
'" CClHi!lAHD ceDE
...
ALTER cell
'"
DATA
*
AtDBESS!S

C1",OD

RDtNE IUCRO
U IBLOCKED

··.··S2
•••••••••••
•

it

•*.*.:e1.****.* •••*

*SAVE REGIS'lERS
"'ARt INTERRUPTED'"

'"

*.·"'12* ••••• *••

'"
,.,

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

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

:x .............................. :
i

i

*

.****P3·*··*·****
• BES'ICIIE •*
*** REGISURS
RETURN
•
•
*
.*.*_ •••• ***•••• •*

***F 1**.*********
SVC 0
READ

* BACKWARD
OR-LIRE
*
***.***J!~~~~****

:x
........................ .
X
*..
*. .
. G1·
..

******G2.*********
*
••
*:. eOP!~£~E *:*~? .....
iI~'f7 ::
*.
.*
.*
*....
***•
• •
*. • . *YES
*.** ••••• **.** •• *

x::

i

*****G3···**·***
iETUBN TO
*
*
i?1I:OELEft
*
..

PBOGFAM

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

..

it

·****H1*****···**

••
RESTORE
*•
* lI:EGISTElI:
1
*TO
ADDRESS *

D'IP

•*.**.****.***.***•
it

•*

••

.*

J1

*. *.

.*. * •

URIT
CBECK

*•

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

*••
*
* YES

it

•*BJ
*****
*

.• .•
it

****

* B3 *
** ••

.11*

••
•

IJ"SAIXX

Charts

233

RESCN Macro

CRMCD:

Chart BR.

•• ••••
•
12 •
•••••*
•
•

.....,.........
OIBOD
RlSCI BACRO

j~

IJftBB][][X

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

*.

• ••••13 .......... .
.*
*.
• •
• •
.:*ccaili'll ·:.~~ ......
ali-r 1 ::
12

•
•

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

*.

I::
• •
:.:
...........:.:• •

....... ...

.*

• liS

UR1I5Ult

i

i

•• •••B1· ••••••• ••
*SAn BlGISURS •

.*

..~?:.
*.

:AI~I~cMDillss:
•
•

cc. lDDBlSS
UCCB

E2

•
*

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

••

*.

g=i~1

*. *..• .-

*:.

.-

o liS

...
i

.*

(2

*.

• •••• C3 ••••••••••

*.

•

Ell "0
Ij!SEltXl
aldsUll

•
•
:

: •••• I~.~SI •••••:

*. *. . •.•

*

•

*••••••.. 1:

• nilRnHICR •• ns
•••• OUIIID •••

10

.i .•

•••••
D1.i•••••••••
*
*
*

B1!DUCB
coun BY 15
I. IIOUIl!D

•

•• »2 •••••••

• PCST DATA

*•
*

*• A2 *t
*•••• *

i

:IJ!B9XIlt

*

.CB!CK II CCB *
*AlD lIaoR lInc*
:nDU
•

*

·ll.lli~i!I~·

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

..12.1 •••••P.*

• *!1*i*****

•
sn
**
lOROP
*
**.*IlIJBB3][][1
BlOUIBlD••

*poS!

*caBCK
•
lID
OIIDIC.

CB *
t

·l!.!1

•••••••••••

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

*

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

1.1111111, 1.i••••••••
:BtUBMm¥OB :

:•

:

ma~it

lDDBISS
•
•••••••••••••••••

,.i••••••••

IJBBlIU

**
°
0'
•*
A·
BD
Sft

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

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

• 10

i

i

:

..ioUIAup

*

.*
It....

:

: dBIIIB~~1 :
•••••••••••••••••
i

Sle 0
BISCI

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

It. .•
* 10

••• • • .]2 •• •••• ••••
*BlSE! REGISn!
•
0 liD Ben
.. :I' 6C' COIUUB» ..
: CODI TO CCI :

*

**

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

• io*
• 12 •

* *
••••• *

*.
. It··

i

•••.11 ••••••••••••

•
•

I.]1!I121!l s3 ••••••••••
IISTcn
*
* aBGISfBIIS
•
AU CC.
•
: ti»~~iS :
•••••••••••••••••

IJI1l3IXI B2 •••••
.*
*
SIT
•• tiS
•• Te BRUCB •••••••••• x*

•••••B1· •••••• • ••
ZBBO on

*

i

•••

•*G2 Alt*. *. *.
• tBS.* !BROIS
.1 •••• t. Ait B!TBIIS .*

•••• .]3.i •••••••

*• RBTUBI
10
*•
PROBt!1
••••• IJ~~ltl ......

i

••

• ......2 •••• ••••••

*•

~BI

••

•••••• : Bm~8XIM¥s :
o

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

Charts

235

Chart BT.

CRMOD:

Macro (2 cf 3)

WAI~F

."'***
'" J3*

* *
*
i

A1

.*. "'..

IJKRGXXX

A2

.*. *.

**.••.**

*0

'" YES

**0. ..*. '"

.*

'" YES

i
**B1·*.****

AT IJftOAXXX

'" TO A NO-OP

'"
'"

'"

S!'I ERROR
lliDICATOB

'" X'20' IN DTF

'"

'"

EIT!

"'.

.. '"

eo

..

'"

C3

• "'.

*.
• *opeDI:E *..
R'RAD

*

'" YES

'"

EYTE 80

****
** A3 **
*
•
****

YES

**D3*Jt*****
INCRIPlEH'I *
**cell'
ADDRESS *
** IF BY
8
*
REQUIRED *

.

'"

'"

*.

i

:IJPlUTXXX

*'"

..

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

***.*ES."'*lI .. ***.*

YES

GE'r INPO'!

~~EA

~DDB!SS

lINt CCOll'!

ANti trEeREPlEH'I

ceUN'!.' 13Y 1

**
**
*

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

***********

.

*****e4**********
*
SE't cew
*
* ADDRESS IN
..
* eeB AND LOAl) •
* eea ADtllESS '"
*
'to 'QEG. 1
•
*****************

it

***D4************
svc 0
EXECUTE
CHA NN!L
PROGRAPI

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

i

.** **c 5*** It* **. **
•*CALeULI'l! S'IAli'I**
*O'P 'INPUT U:tR • •
* 'U tl1!()UlliED '*
.**lIlt* •• *...... *lI .. _

•

•

~

*****015*** .*****.

*
**

*
. . . . . . . "to

tlS~ COtN'I

AS L'ENG'tF
'10 RlS!'!
INFO'" AF!A
POll ll!'!BY

**
**
*

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

..

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

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

****
..
X
**E1*******

i:
**B3**lU***

.IJ"TFX!X

BRANCH

***********

X

: IJPlOOXXl

··F1*······
SET
*•
** IN STRUC'IION
•
AT IJftUTXXX
*
* TO 1 NO-OP •
*;~*~~~~i~~2*

.*. *.
F2
.* IS cell "'. *. YES •
.*
..• x*.
A NO-OP
• * ...... .
"'. *.

*•. *. *
* NO

.*

it

*****G2**********
BO.
*-*-*-"'-."'.-*-*-*

*IJPlSEXXX

.

*:01
BAL TO
*'"
RETRY
******************•

•*
*. *.

*:* CO"~(~T'E

***."''l!S",*:t u.****

*.

**
*:*~? ••••• 1 : :
.*
* *

i:iT 1

'" •

::

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

*••
*.*
• YES

ic
****
*
•
* K3 *
* **** *

i

: IJI'10VXXX

X
*****G1 **********
*
•
SAVE eSii
•
*
STATUS EITS
*
** IP
REQUIRED
*
***********"'*"'***

·

*

* TO A ERANCR *
** IF RB~UIBED **
***.>Do ........ *

'"

i

"Ellt· *. *.

*SE'! StiITCD
'" AT IJl1.U'IXXX '"

'"
SET
'"
'" INSTROC'lION '"
AT 13P15CIXX '"
'"
TO A
'"

:IJeusxxx

IJ!'!CL ~11

*.

i

IJl1.RXXXI

*. *. NO
IS
• •• X*.CHAIN BIT ON .* ....
*. IN CCi .*
*. 11' . . . *. *
it

.*

'" X'02' IN DTF

'"

. *.

*••
*
• NO

.*
• '"

.*

'" HOPPER EPIPTY

'"

•

''"*
*. *.BAeRiAIID
O'H .* .......... 1*
PORWARD • *
*
*...'*
*
• '"

IJPloeXXx

SET ERROR

'"

*

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

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

'" INDICATOR TO

'" 12

*

'"
'"

i
*****D 1**********

..

*AND SUBTRACT f.I

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

.*

****
"'BS'"

.

i

**** *AIt** *** ****.
*G1!:T ADnR ESS mao *
*INT'ERROP'IED cell*

cev

~

NO.*
SHOULD
:t.
. . . . "'.HOFPER
EMPTY
"'.BE POSTED.'"

'"

.

***
CIlAINS
* EXECUTED
*
COUH'!BR
**
*****************
INCREfilEN'l

TOTAL

Bit

i

. *. *.
C1

*. *0

***

*

IJKRTXXX

*****13*"··******

it

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

oo

* •

*****E2***"''''*****

*SET ERANca '"
'" IN STB OC'TION '"

'"

lRRORS

•

i

: IJHBUXXX

. '"
*. *. NO
. '" ANY *. *. NO ..
*. HOPPER
EKPTY
.* ......... X*... '" CHECKS
011
.* ..... .

.*

•

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

.'"

*.

*****
·BS *
* ll:3*

****
A3 *

*•*

"'BS '"

*****F3**********
* GET NEll ceM **
'" ADDRESS FRCM
** IFTIC
CCW
*
EECUIRED *
***** ......... "'-*******

i:

IJPlUMXIX

**"**G3**********

*• LOAt

·
•

Attll::ESS

OF AC'rOAL

*•

.
*

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

i

it

*"'********
'"******fl1
* BAlR
TO * *
"'USER ERROR * '"

***H3*"'**********
SiC 0
EXECUTE
CHANNEL
'FECG1iUI

*

'" *COBBICTICR ...
......
ROUTINE
... '"

:*:*Ji~:!~!l~*:*:

***** .. *... ,..******

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

IJKUBXXX

X

i

J3"*·*.

*****J1 ****"'*****
* LOAD CCi
*
** REGISTER
ADDRESS TO
*
13 *
"'****************

•
•

•
•

.*

·

*.
*••.
'" *

*

.
* ~3 '
*.x.
• * .. ** * i

i

1*******
***K RESET
*
*HOPPBR EftPTY *

NO-OP SWITCH
* '10 A BRANCH ,.

•II",:~~~;~;~'"

.

* ........ .

·
·

i:i'I1

* *

::

*.

**

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

'" YES

"'.*'"

IJftUAXXX

*****J4***"'******

**
x::

"'.

CCP!~{~TE *: "'~~ .......
*. .*
**

*: *

.

****"K3**'***'*****
'* RESTCEE AND *
FFCFFR
*
* INDICATOllS
'"
***************"'*

.

* RESET

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

*****
*BS '"
'" D1*

.

••

Charts

231

CNTRL and REAt

tRMCD:

Chart CA.

~acrcs

•••••

teB ..
.. 1.3 •

• *

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

.*.

..
•

•••• "DIUIOD
••••• ** •• ..
CHTBL BlCRO

'" III

*

*. •.

.•.."
* NO

i

i
····.E1
.....•....
*
*

IJBCB
•
•
..
..

.•

B2

• *.

•

GET ItDR!SS
~ltl~¥i!

IJB!2

*.

.•.

•
•
..
..

*.~~D ~ig~IBE~l.·."

.. ...

..o.*
* 10

i
..•.•C1········
..*

C2
..
. ....o

i

....

* Sft OP TIBIHG •
• BAIlE coon
II EJIC"r EYn •
IF

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

... BAlIl CHICR •• YES

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

*
:

• •••• 13 ••••••••••
.,
..

YES

...... EXCEPTIO ..............

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

IBIfULIZB
BUIIOR
UDIClTOB
BYTE 'to
I'PO'

Io1lI'80

. * 12ORI.'r *. *. ...

.*

..B3 •••••••

•

SET !BlIOB

•

• ••• I,q •••••••••

•

X:

BXIT TO
OS~~~~II~!'

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

•

:

••

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

.. *..

*...

D~"OD

lilAC

•

*

'lJBB3

•..C3 ••••••• ..

••

•

•••••

*

'10

);"C'

*

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

•

••••• CIS.! ••••••••

*

*.. J.•
*

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

•

10

TO X'P2'

•

•

*

.. "... X·l.D~8Ai~JIt~tTB* •.o.o.:

*.

'u.c,c

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

•
SIT UIOt •
*lWUICA'fOR BYU *

•

TIS
•
SIT nBOR *
*. 10JRECOVBRt •••••••••• J*IIDIClTOR EY'r!

RlgonlD :

•... \'S .••••••••

:IJRftD •• l!~.!

*

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

•
•

•

•* I "cn
UUt
**
tt~!SS noro
•

SCAI CC1

•

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

i

*••••
•
G3 •

•

IJII~2••• D1.i•••*.* ••
•'SEt CCI L!HG!H *
:

D2

• .o

••

fALIIES IN

IJBE5

•

'13.......• • •****.Iq.••••*•••• *•
IJftB8

••

• cel ABD eCB *
*•••••••••••••••••
•

·oooo·
•. .•

*
J
'GB~ ADDRESS O? *
*........ x:cor:JiiQB¥~UM!:
. ••••••••••• .
.*•••••••••••••• *..

*

• 10

...1'1.*..........
SiC 0
Blep

*

•••*.,4.1••••••••
**1);
Ifl: • •

*.
*..

*

••

*

i
..····*<;1·····.··
..
......
SVC 7

····G2••••.***. *
i

....

•

: ::lP It~~:IllID:

..•••••••••••••••••
.
. :.

•
•

...............*
BETOn TO
~ROBL!!!

PBOGRlft

•

%JRI?
•
•

•*

i
·····U1 .........
.

..

BESET CCB
TO IAIT fOB
CHl.BEL ERn

*

•

*
•
..

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

..

:

.."

SlC 0

ncp

i

110'5··· ••~o•••• •
*• •••RBnBR
PBOl!t.!!!
*•••••••••••••••
nOGFU
*•

..

J

GET ltDB!SS
OF eO~!In

Booun
IF BEQUI];!D

**
**

IJftB9

**
•

i
••• *Gq. •••••••••
BUlin TO
PROBtE!

*•

PBOGBAft
*
•••••••••••••••

i
*··.B3*110·*
.. ·.*.•
IXI.T TO

.USEB'S COB!X'l!

*

•.*••I£Silli.**.·

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

IJftEC

B

• *

'r • •
13" •

*

••••••••••• 1 0 •••••

G3 •• x.

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

IJBC3

•*•

C

i
...'! 'S •..•••.•••••

••••

* .
*
....
.*.·.G3••••••··.•

•..
....

us's

:.tll*!liS 112:.:

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

•
•

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

.'
' . YES
sn EBBOI'
'.*~ARK CHICK. .* •...•••• X*PD~8li9'1PTE.

..

P1I'f
CC .. ,'CD.ISS
noro CCE

•

•

10

12

*•

SIT PROPER

.o • .o

It • •••••••••• •

i
.*.
*.o
.o...

i

i
·····D'S···.··.···
*
scn
•*

..D3 •••••••

YES
... S!'T IBlIO! ••
IBCO!lPLETE ............... X.IIDI.CI'TOB EtT! ••
••
SCIB
...
•
TO X'!3'
•

*

••••• E1 ••••••••••
..

IJ!E4

It.*.

* It.
. ....
It

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

IJRC2

i
.*.
*.

.• ".

V:egim :

TO

•••• * •

i

GET EIIBOD"

'"

: ........ .
•••••••••••••••••••
B!~IDltiti~~s

Charts

239

Chart

cc.

$$BOCR01:

Cpen

C~tical

Reader

····A ,••

*•••**. •
• SS800R01
•••••••••••••••• ••

•

Sl

. * . *DTF

*..

i
.'.
••

•.
PIL! *. YES
'fIPB =
.* .......
*. *. X'09' .• ••
*..
*
.i ••
• NO
i

Cl

.*
.. " D'rP

. *. *.
rIL!

••• •
•• •Cr:i
• ••

....

• 1t1 •*
•*' ••••
•
C2

*. *.

.* .."D'lP

10

..... !ifS.: ............. x.....
**.•..**
.. YIS

····*Dl··········

.. !lOVE BLESIZ!

..

•

•
..
..

OR 256 TO
COOB'.r II
CORTBOL eel

..
..

PILE
'lifHc~

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

·····*C5··········.
·
.

S~'rE'tT

•••••C) ••••••••••

SFr3Se6

*. *.

*.....
*... "

.. ..

.. ..

............. 1::
YES

....

s,c"
....
pj8Atti~K

*

::

•

... t)3
••
••

•
•• •••• CA1IeiL
••••••••*•• •

••

•••

••

."

••

,,*

•
•

i
.. *.
DC;
.
•
•*.. ...
...
un

• *.
. .nq.IS.*.. . ••
YES...

*. ••

27 1H 1M
ASSEMBLY LISUNG.

·D2

G1

o· .*

0

0••

•

•

•

i

CS ••••• ••• ••
SET SUI
U:Dlnss l'
•
eCI TC un •

···DS···.·····.··
i

SiC 36
~U!

••

: !IF IEQUIRED: :
•••*•••••••••••••

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

x
..-.-.-.-*-.-.-.-.
....14··········

·•••••Bs.i••••••••.

*•

•

*IJG1U29C)

""BACI

BPI.

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

READ

•

R!SE~

•

Att'S!!!

*

•

RECOBD

••

B!'1'011R TO
CILLIHG

.• .*

RESFl'

I U~Rlii~B

i

i

••••• '3
•••••• • •
•••
EBAleft
•

••
••
••
••

•
•

liOU'!lRE
••••••••
*•••••• •

'fO OSER
EliBClI
FOnTIB!

•
•

S'!ElI:

•

••••li!'rUBR
'Ps.! •••••••
10
•

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

·····"4········*·
.IJGV0160
HL.

••
••
••

•

IAIT·IRl)
'rES,! !OR

*
'"

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

*•

•
•

•

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

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

*.o. •••••
NO

.SEl! EOY POB.
•
OS:1!N liD
•

•

• ,. x* • B~i~ijlf~oaE~RD ••••••
•
SIiITCH
•
i
•••••••••••

IJGVOURB
•

•*

...... X..o.

..

••

82

•••

••

.. •

o·

o.. o.

...
o

.'. .o.

•. .0

• ••• G4",1 ••••

........
EIBEXT

NO

•

••••••••
*. SP!CI'fIEt
.n2
o..

CALLIJG

•

'BOll'll"

•

...

'"
•
•

••

•••• •

•.

•
•

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

i

H3

*••

'BH01t11 TO
CALLIliG
BOOTIIl'B

YES

o....
••
EBET
••

it

NO

G3

•

.o.

ONBBcev •• YES
I/C BBEOB ••••••

.o.

•*

.o.

•·BPI
•••••
.. G2·
*•*
IJGVU372

••

....
.. ..
= IGBOI!

.•

•t

••

..
...
.... .

. . . . . . . . . X..

• YES

.

. •lAS• . *.
H4

RO

*.

• •• HS ••••••••••••

••

YES
OPERA'tIOI
........... 1
1 WRITE ••

•....

SiC C
nTn

lIRI'n

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

• 'NO

0

••

. *EBBOPT *. *.
= HAftE
o..

.. ..
.. • ..

IJGVOILR
HO
•

*..
*
• NO

0

o..

••••

J2

i
•••

o.

.o.

!111l0E

••

*o. ••

i

•

*••• 0

IRORG
•• YBS
LBHG'ift lIBCOBD •• o. .. 0

0

····*11:1·**···**··
• IJGVU240
HR.

•

i
:~~~;g~:o·····;::

.-.-.-.-.-.-.-.-.

•
'"

B!At
COON'!

'"
•

IJGVOBD

•••

J4 .

IJGtul'!
IJGlUBU
• •• J'S . . . . . . . . . . . . .

*o.

•• D1TA ••
•• elECIt 011 •• YES
•
..URRECOVERABLE ............ 1

* •• oE~'8R
.o. ••

i
•••• •••••••••••••••••
A3 *
••
••••
•

i
o. ••

0

.• '.

•

i

3 •••••••• *
lI.ETtI'. Te
•
CALLIRG
•

•••• 11;

•
•

ROU'll.!
•
•••••••••••••••

SVC 0
BE'!B1

•
FElt
• ........ *••••••••

o 00

.....

••o

****12* ••• *.**.

I.
R!'I'QlI.R 'f0
•
**-.-.-*-.-.-.-.-*
READ
••• o.o..o. •• X.
CALLING
..
COURT.
•
BOUTIRE
•
•
•
•
• ••••••••••••• *
••••••••••••• *•• *

i

•·lIP
•••••

• C3*

• J1 •

J1 •• I.

C3 •

••••

•

i

.... ....
••••
i

*•

•*

:IJGVOHl",!

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

··G2.· •••••

'" YES

•••

••

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

o

••

TRICK

B!S!!

•••••••••••

..*• ..

•
•0

'PRI!

••

• GET Ie.BEA liD.
0PUlMEnB LIST *
•
lDDRESSES
•

i

····"2·········

o

••••

•

.*

··81 •••••••

J1

o

it

••

•

• SP ARIED BelD •
•
SII'rCB
•

·····D4······*···
• • SVC· ~6
••

•
•
•
•
•

o·*··.E3 ••• •••• •••
*

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

••••
* *.

.0...

•

YES
"'.00.

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

i

..E2 •••••••
•• sEioS~iliH ••
X.
lOB !ID
•
•
or P:ILB
•

••

* I~DICATCB 0
*••••••••••• 0

YES ••

IJGtQOJE
i
..B5.* •••••

NC

REAt
COUll'!

•

nn TRACI
•
SOElleO'!l"
•
• III • •
••••••••••••

i

•
•o

5D"0»,0

•

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

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

IJGVU159

DATA

IJGVUOl?T

•• ·.15 •••••••••
•

•

:~~~;ij~4a·····;;:

·····*.·

•
•

••

CBECK

.*••

•

•
•
•
•

liEGlS'lEllS
ABD liESTCBE
OSllI
BEGIS'IEliS

•

*

i

*•

•••••••••••

•

•

•• OP!RATIOli 1 •
••
IRll!E
••

J

EliliCli
BOO'lIR!

•

&0

•••

*. ·0

•
•

IJGVUSEB
i
•·····D3
SAY! ••
KODOLB

•

•• YES
•••

.. ..

lJGV0161

••

o

••

........

*_ III

GET ADDl1!SS
07 US!B

•• G1 *.
*•••• ••• X.

•

SKIP

SII'fCH

figA2, Hfim

•••• .*.
P1
••

IJGiU158

*. •

HK-

: •• ;~.!~i~;~:~ •• :

• NO • REFBRERCES

•o •• ·.1.
*. •.

•
•

·0.·
.. ..

·••••. .

•.

'tORN OM

: C3 :. J.
•••••

*
.o. ••• o. .1:*

.i'.

•0

•

i
.0.

·····C3········*·

•

E1
••
•••• iBi{g .o. •. YES
ARD PUl!
•••••••
••
ISSU!D ••

*o.

•

YES

SIC 36
FREB TUCK
11 REQUIRED

...

111-111-

BIlt
CCON'!

IJGVUC~N

•

*.••
.•

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

••

•

.. 'B4 lAS *. .o. ••
••

•••••••••••••••••••
•••• o .
•

•

• •

···D1 ••••••••••••

••

III
•

'!3*

i

0

*IJGVU2I1a

•••••
·BP •

Gl •

•

•

·····B3·.·····.·.
*- *-._._It .

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

.*. t. _.

•

..

• •• X.

i

•

i

•t

•••••

lJGVUSKB
**A4·······

..
•
..
•

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

i

IJGVU156

••
5VC 1
••
••
alIT
III.
: :1F RBQUl RED: :

•*•

*

·····B2
••• ••••••.•
•

I

•

i

GET I1:D:&
Cl!' DS!'
iLl! !lUlOR
liOOTIR!

*.1:.
III
.1 •••••••••••

• Bl

IJGV0160

....

•
..
•
•

•

lIAIT
SOeI;QOTIR!

......
* *.

.. . *. *.

·····13 ••••..••••

••••• 2 •••••••••
III

11IT AND TEST *
SOE!'ROO'l'INE
III

•

0

i

it

····Pi,.·········•
•••• *•••
•

•

SVC 50

CAlf€!L

•

•• £1 ••
•.** ••

•

*•••••••

Charts

323

Chart HN.

SCMODVU:

PUT Macro (1 cf 3)

.....

•

•• A3 •"*

**·*Al·········"
...............

"

•

i

lJGQU 40 1

•*

A3

.'.

••

••

.. ..

· * SPECIFIED
O'EI)TE
*.• *NO
....
*.
.*
i
*..•
* YES
****.
*HP *

*

SDftODVO
PUT !!ACRO

*.... *

** ••

·
*

··.*••."

·....

".. 12 ..
•••• "

••

..

.

ALI •

it
···*·ALI····*·*··*
::~:9~~~I-*_*_2~:
•
OPEB
•
COS
*• PREll
:EXTENT
*•
.*******.**.*.**.

• K2·

••

···B2············

it

lJGVU400

i

•• •• ·E1 ••••••••••
..

SAVE USER

•

svc 0
WRIT!
EleOED

.. REGISTERS AND.
PQIHTEB TO
•

*
..

ARBA

•

*•••••••••••••••••"

C1

.i".

"

i

.•

···C2······."

•

...

..".........
SET UPDATE

"

SliITeR
0111'

..

•

..

..........D'!:P OPEN

*CCHMONICATION*
BYTE

•

•••• »2** ••• • •••
SVC 50

'"

PU'! ILLIGAl *'
••••••••••••••••
AP'IER PEOV
'"

.x*

n

*

.

**.**
*HP •
• E3*

.*~**

*
• C2·

.".
IJIlQU ~2~cs •••••• * •••••
. BLOCKING
*eLi *. *• *. YES
SVC 0
.*
*. SPECIFIED ••••••••• X
RUD
tin
*. *.
*
.• . *
•••• *•••••••••*••
• HO

....

·HP

••
"

j

IUD3···**·*
RESET All *
**SPANNEt
saw.

*EXCEPT NULL SEG.

*

:

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

..

SE'I tlFtAT!

•

* ••••••••
RETURN Sl *
*••

:

§MEI~~B~~l'

* OF 1ST ELOCK *
***** •••••••• *•••

i

*IJGVU250

*.*' •• ;~.

YES

• * ••••

••

*****E3*i ••• *.***
•
* SE'! CCtlN'!
*
SAVE U:U
•

·····F' ..........

lJGVU250

fLOCK

••

w

i

i
***·*ns·*···.***·
:;~~S!l~~-.-*-~~:
'rEST
•
** E'fiBOB$
•
• •• *.*** •••• *••••
.*

*****04*****.****
.IJGl046"
HQ.
*-*-*-*-*-*-*-*-.
* EXCHANGE
•

:*.* •••••
IbgRA~~~s :
*.**.***.

i

• SET UPtAT! ..
..
SWITCH IN ..
•

i

CUBBENT

"•

•••• .
*HP *
• E2 t. X.
" X.
lJGQU400

·....··E'·······

*. ••IN

......

LIPl.I'lS

*

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

i

.".*.
C3
· *. *lI.ECORD *. *.

lJGQU440

*.

•

i

*

••••

BOl
*.• t YES
*..**. WAS
PORC!D
•••••
* . . *."
*.••
• NO

..

*

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

i

••

.". t.

1'91), FCIN'IEB

-

.IlY 4 INt STCliE •

• •••••••••••••• $.

.• SPINNlt *. *. YES
*.."*. SPECIFIEO
.• • *....
*. *..• ."
i
" HO
••••
*
*' 13 *•
n1

i
IJGVU450
•
•••• *1l3 ••• *.*****
lJGi2l~~BLI*l.**.***.
: Gi~D~~~~A~j~ :
:!~!~~!!1_*_*_2~:
* OFtA'!! iCEK •
'" CHECK 'BITEIIT •

i

*.

*****F3·**····***
• • slC 7 ..* *•
* * II 111
* *
* .IP RECtlIIIEt* *
•*•••
• *••••••••• •*"'**

BK.

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

:* "C~lc8~~I~~L
:•
OO'lPU't ABEA
** •• *•••••••••***

.*. *•
~s
.•'!RROll
*. *. NO
.
*
II
*. CPIIIATIC.
• *.....

*****'84*1******.*
:!2:i~1~~_*_._~~:
* BUILD BLOCK •
* AND SEGMENT •* DESCRIPTOB
-*_.*.* ••• *••*.**

..

*. * ••• .•

* n:s
*•••
*up"
•
* liS *. X.

.•*.. • .

i

I.1G£2~!~l's*!.II •• *.**
:!~~i!~~l-.-._~!:
Ot=!N
*•
**
EJ'I!lf,
*."'*"'*****.***.**
•
*

****·:P4*··****·**
•
SE'l
GMEB'r
..
DESC
PTOR
**
*• " TO •*
*
SEGNT
*

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

*.**
* •
* H4 *. x.
*
*8P

i

lJGVU410

it

·*G2· ..... **
*51'1 51
*
*TOEXC
E*
** !~fiD
••
.IP BE IRED*

**···G1***.******
.GE'l DEBLOCKING •
•

CCNSTAN'lS

AND.

• OPDA'IE CURB!NT •
.IOIREA lD]}BESS *
• EY BCD LENGTH.

..... ..*.

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

.. .". ..
i

•"
••

EBD OP
BLOCK

*. *.

i

IJGV0430

*.

Bl

•• NO
••••••

. . . .*
* ..
*
• YES

i
••••
*

.

*····82****·*·***
SllBCH *
*• OPDATE
ARGUMENT iI'tH •
•
ADDRESS OF
•
• iECCBO TC BE *
•
WRITT!R
........
** •• *•• *•••

IJGQ011~
•
•

*

*

*.*.

i:

··G3···*··*

BESE'! 2Nt *
GET SIiITCH
•
AND SET FtlT

ISSUED

'"

•

*

*.*SlII'ICH
...... **. *

i
*·*·*H3·····*····
HQ*
*-*-*-.-*-.-.-.-.
* 'lEST EOP
*
*IJGVU 156

*

AND ERBORS

•

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

*

i
.***.
*flP •
• A1·

.1 •••••••••••

.

IJ Gi2l2 ~G 4*I.* * _***.
:;~~i~l~2 .. *_*_~!:
* KOV! SEGMENT •
: TO I/O ABEA :
-**** ••• ****.**.*

*•

•

lJGQU110

i:

**··**H4**·*****··
SET, eCli
•
* CO!IIJPIA ID TO
•
WRIT! tATA
* SE'I CCV CHAll{ •
* FOR VERIFY •
.****.***.**.**.*

*HP *

• K2·
lJGVU415

"
"

**J1*.** •••

• SET SWITCH
• TO SKIP PREE

•

•

OP!RATICN
AFTER
UPtlT!

**

*
•

•
•• *.**.**** *
• REFERENCES
****
TO
HMK1:
"• • *. x.
HJK3, HRD1
••• *"
•
lJGVU420
X
·*K1*.·* •••
• RESET 2ND.
* AREA SIII'ICH •
'" AND SET MASK •
* fOE SECONt •
..
READ
•
•••• *******

·. .
i

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

lJGVU450

i

.

"• ****
P2 *
•**** •

..

i

*."''''*J2•••• **.***
.SET tATA LENGTH.

:C~:
1~~t'~Biii :
... Celf TO WRITE •

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

IJG~~~21J3.i ••• *.***
•

*

·
•

•

SE'! FEAt
eCUll'! CCli

*
•

WITH NEW
•
eOtlN'! CO""AND

*

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

IJGQU10e

i:

SVC 0
WRITE
DATA

.. ..

",(JGQU1C~

***J4·****·******
•

YES. •

...... *. •.

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

J

."'.

*.

JS
l"I:BST

.. •.. *..
SEGPJEllT
•

••

.* • *

BC

i

*."'.**
*HP
• B3*

i

•

••• *"'**
•**K2
•'"
5E'! READ

·

... CCUIT

*

eea

TO

BOP

*

••
•

lJGQU4QO

*

i

·.
*.*.

*

**•••..

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

*******"'*** "

.***
*• A2 *•

i

••• •• K5*··*····***

• Gf'I 'B!C1Jlf!D
*S!GPJEN't LEJGTP
un UPtl'!!
.SEGPJElf'1 POINTER.
*'TO I!X'I S!GMElII'I.

·•

i

•• **

•

"

••• *•
ALI •

Charts

325

SDMODVU:

Chart HQ.

PUT Macro (3 cf 3)

••••

*• Ail *•
*•••• *

···*1 ,•••. *•• *.

..

SDPlODVU

..

BUILD

•

•

.. •• ~2!a~2ii=! ••• •

IJ G~¥lllB

,.1••••***.

:'DAU
GlfiDi'~slllft :
LBBGTB UD*
•

BUILD BLOC!

..

*DESCBIPTOB IOU'

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

.. •••••• •
.. •••• 12··
srftOD9U

*
•

CHBCK LIBns
SUEBOOUU

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

*•

*

..

*

•
..

51'l SBEK
IEDBBSS

*
**

SDftCDVO
TIST
IFBC~S
SUEBOU"l'tR!

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

*•

..

IJGi2li#B3.~ ••••••••

IJGi21ilB2.i ••••••••
*
•

····.3* ..······

.. ..

It ..

...

SVC 7

....

•

**

.. .

'lIlT

.. ..

: :1' R!CUIBEII: :

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

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

•••••• ".i •••••••••

•
LOAD.
U
•
R~GI
S
•
Aln
*OSER I
S'lERS

•
•
•

•*••••••••••••••••*
i
..···a4·········.

* SAVB POIBTIR
• 'rO 511'B

*01
•

* 'R
••••••

IJG'O_fiO
i
••• •• '85 ••••••••••

•

* IICUIG! *
: t~])~~i5 :
••••••••••••••••••*

*

**
•

•

•

u*

LOAD

TO

.·.·AS•••••••••

SURODVU
**
** !lCUln
••• i~!:~2llll ••• •

•••••*

. ........•. x:
i
* BBsn
* ROLUTBlC\I

••••• e1.!••••••••
..

BDI

..

IG'lH ..

..

BOil

..

..

•

•

IIBIT ..

•

OBD

• *<:2 •••••••

..

*•

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

••••D1·.·i ••••••

..

*
..

B!'lUBR TO

CALLIIG
BOU!'!I!

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

PlIST TIM!
SlIITCR

·It.~~~2I'~~·

*
..

*..*

oolt

too

•

• *.
D2

*. too

lIBS!
BECORD

*.

.*

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

IJGQOPT

*..* YBS
.....

..i
..
*HII

5D1II0D'0

* Bon S!GRlRT

..

*

IJGi~li2,

* GET

• ID
.5IGB

.i.•.••.••
AIU •
IBD"
IG'lB ..

*-q

eel{"

*DESC

B 10BD*

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

i
·••..G1·········.

UP DATE lOB! *
*** liD
ABBI STOB!
nDnss
*
ARD *
-SBT POZ.orE:&: IR ..
•
WORK lB'l1
..

tBIt..

1'2

•

*

*

.

'tUBI 01
BnOB
SIITCR

*•
*

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

••••n'fUBI
cs.! •••••••*
'f0

.* •••••••••••••*
ClLLIIG
JOO'fIJ!

*

i

*. *.

*.

.-

··.·yIS

.

••••

*

•

*

i
···.nil •••••••••

'f0
**
.*..... ... *•* BBtolll
CALLIIG
'ROOTII!
•
•••••••••••••••

..

*.......

i
IJGOU90 IJG *~~~1
i
2••••12••••••••••
~ ••••!3 ••••••••• *
*
•
GET ADDBESS *

IJG 012Q
..

ellt

....

D3

*.

...
It

It

....!2'!~2i;!I.....

*.

oolt

USB!
*. 10
Bliliel
*. BOO'fI!! .*

oo"

••

*·.'":0
..

•••• !1 •••••••••

:IJGQUS!~cq.i •••••

..
HISI!
..
*UlnCeVlBlEtB*
* * I~SIinel **

•

i

IJGQ0121
..

**

IJGQU·!.C3.i •••••

*
sn Dl'fA
•
LElGTR II
* CCI UD Ton
• CHUI EH OR

..

*
*
•

It

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

•

*

i
··.·'2······.·.
R!I'lJRB 'fO

..
•
..

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

•

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

*

CALLlBG
BCUTIIB

····G2·········
SD!!IOD1U
OPU BUilT
SUEBOD'!XRB

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

•

..
•
..

*
*

Of usn
!BIOI

•

*

** ~eU'fIn •*
•••••••••••••••••

IJGSiillp3.i ••• III • • • •
*• SAVE
BODULE *
lU!lGISI!!:&S
•

·•••••••••••••••••.
* AID lEST en *
*USBI BEGIS!!BS *

i
·····G3.·.·······

: lJi~VIDH~ss :
*.P1BIJIIE'!!B
'f0 osn
*
LIST •
: •• i~.1~5~~~li ••:

i

•••••
tax ..
.. G3*

***

IJGlU250

IJG~~I!*B2.i ••••••••

*..

:

SAVI C01!B!n
EX'!:!.!

SI9gll~B

*•

:

••••••••••••••••••*
i

••••• J2 ••• • ••••••
•

DIC'll!AS)

•

: R~~!i'!15~8B :
•
PBEVIOUS
•
EnERT
•
•
•••••••••••••••••

•••••83.i••••••••

* tcAD nCC~D *
*
* L!lGTB IRD
*PlBUITBIi LIST *
* A'DDlIESS tn •

: ••• ll~l;il~~ •• III:
i

•• •• EIII.CD•••••**·
••
·**.·J3.~

*

'It • •

*• •• JlOU!'I.!S •*.•
•••••••••••••••••
.USER EDOB • •

.i.•

i

••••• 11:2·· ••••••••

•
•

*
:

CLOSl

D17 TABLE
I l BlIQUIBID

•

•• III ••
* .111 •• *

•

•
:

•••••••••••••• **111

.lIIi.1II

*8M •

• G2·

*•*

Charts

327

GET Macro (1 cf 2)

Sr:MODUI:

Chart JA.

*.*.
....

*

•

•• 12 ••
i

. *.

•
•

GET
"JCBO

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

. *.
.*13EBE'I *. * • *. NO
.. *............... x
. * .. *............ x*. *. OPTICR
IGNOBl
...
•

12
*.
. * ... BRHT *. *.

*···11.*.***.*"
•
SDKODUI
..

*.

..
..

*.

=SP:IF

*. *... " . *

NO

..

***14**·*···**···

*

*....
* •• *

.. YES

•

SVC Q
RETRY
READ

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

YES

i

IJGUG210

B1

•

it
*.
,. ..

i

·····E2*···***···

.. '"
2
*.
AREAS *. YES
*..**. 110
OR 1I0B~
.* .. 'O.
ABEA
...
*. *.... .*
i
* NO

*IJGOG330

**-*-*-*-*-*-*-*-.
RElt COUNT
..
..

·.....
••••
* El •
• •

i

*

··e1 * ••••• *

FIELD

•

..•••••• *••••••••••*
it

***··C2****·*****

*•

.. INITIALIZE

JB.

*
•

..*A:~l!:itT~~:~ ..*

**
•

UPDATE
SBBK
ADDRESS

•

,.

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

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

it

.***

*

.'.

*..*
*.

D' VAS *. ••
ERD OPP

VOLO"I
PORCID

*. *.... .*

•••• *
•* E1 *.
*.X.
••••*• .
IJGUG040
X

•

.. ..

.............._..•
'"

*..*

*.

IJGUG300

*.

•

•

**:F2** ••• **
SET EOV

IJGUG070

*

*.••••••••••
IES
* 511 FOR
*..
X.
OPEN
••
•*
• IF REQOIIUD *
**.. ... **
.. .******** •• *
EOF

REACHED

NO

i
.. *.
G1
*.
.
*
RIAD *.
.* ERROR OR *.

*. ••

oO·

i

*..* ....
NO
*

* ••
*
• YES

··***D"··········

*.
•*

::

svk 2

::

l'ETCR
$$BOPBN

...

*.

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

**."'.Eq.i.* ••***.
SUijft~I~O¥~
:

:

*'
•

S EIRCH ARG
TO ~BBO

•
•

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

*..
* *IES

*
*

:

!Xm~GIDUO

.*••*

.>.

YES •

• ...... *oO

i

*. ••

* ASSIGNED
*.••
'to
*. *.lGMO!'! .• .*
• •• *
* 00
i

··**·G4**"**···*·
SET
*
R!COBD
*
NORBER 'rO
..
*
ZERO
..
•******.**.***** ••*

**•

:1 .......... :

D3 •

H1
'*.
*'****H2*.*.*.****
. *. * gi:8R *. *. lES
:
~~iA I6~
:
*. *.SPECIFI!D.
BOUTINE
.* ••••••. oO x*
PARA!.ETEB
•
*
.. LIS'!
ADDRESS ..
*. • • *NO
.****.** •• *******

*...

:

:P4

... 'FILE

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

••• ** •

X
*.

i

i

**·*·G3····*····*
.IJGUG2S0
JB.
*-*-.-.-*-*-*-.-*
•
REAn
•
nl'rl
**
••••••••••••••
*.**
•

NO

*. *ONRECOVER
ABLE. * •..•
.. 1/0 ERROR. *
*.
.*
i

•

*•

*••• *,3**** •• ****
• SE'r BECOBD
*
* LING'rB Aln:
'*

IJGUGOBO

IJGUGUNI

IJGOGOPT

***
**

:1 .......... :

••••

*

•

'ROBf(
AlI!1
SPECIFIED.

**t*

** P1 '*.1.
.
*•• t* *
•

***.*
IJGOG310
i
:J~s:
·*c,,·**·**·
**' •
•
SET !ID •
* OP BXTERTS •
•
** INDICATOR
*1 •••••••
POB OPEN
*
•
ROUTIII!
*
*••• ** •••••

i
***··E3*·*·····*.
•
GET IDDRESS *
*'
CF ICE I
*
•
IB!1 AND
*
ftCVE RECORD
*'
*•*' ••••••••••
IN
*
*••• **

*-*-*-*-*-*-*-*-*
READ
•

F1

***.
*
*
• C4 •
• **** *

IJGUG170

JB*

..

IJGUG050

D3

*. ••

i
****
** C4 *'"
*
>
****

'RECORD

•
*

***** *

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

.. "

*IJGOG250

SI!1t

ADDE!SS

.*
••

*..* IES
.... x•••••••••••••

NO

C3·····••
OPII'II

*•

• *••• *

*****E 1*.**.*****

•*

··* ••
••

IJGUG060

*
•••** *

• :81

• 'P1

·****B3···*·****.
.IJGOG33C
JB.
*-*-*-*-.-..... -*-.
'"
B!lt CCUN'!
*..
*
PIEtD
*
•
*** •••• *••• *••• *•

i

•• **

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

i

.. '"

*

i

•

•

IJGUG100

i

*****83····*·**·*
L
H
*
*** GE'l'
ANt I
5
*
Of REC
•

*

TO US

•

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

i
.*. *.
Rq
.*
*•
.* SII'r<:H
!EOV
*..* NO
••
.....
*. *. ON .• .*
i
*•.•
*' YES
*.**.
·JE •

• 133·

·····J1

i

i

*****J2***·*··**·
" ' . ERANCB
* *
USFR
* '"
*• ** '10EBROR
*,.
• * ROUTINE '*.
'""'****.***********
*
**

*.***.****
*IJGUG330
JB*

.-*-*-.-*-*-*-*-*
.. IIEAD COUNT
•
•
FIELD
*
***.*************

·

.

i
**··*J3··*·*****
BETUliN ':to
•
*
PBCBL!:"
,.
*
FBOGFIP.
*
****** •• ***.***

• *
IJGOG261')-Q
*.***J4.i*•• *** ••
*IJGUG331')
JB*
*-.-.-.-*-.-.-*-*
* READ CCORT
•
•
•
RECORD ONE
*
*
***.********.****

i

oO*

.*.i *.
K1

i

·****K2***"'*****'"
*
*

*.

*
•

*oO NO
*... * ERBOPT
=SKIP
• * ••••
*. *.
.*
.
*
i
* . • oO*YES
**.*

i

. .
*•••
•
*
* F1 •
****

·.
.. D3

>

****

*

*

SAVE SAlE
ABEA
FOINTlR

'"
•
..

., .
****
•* E1 *

.*.*

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

•

•

i

****
•• 12

**
*** •• *

Charts

329

PUT Macro (1 cf 2)

SI:MCDUO:

Chart JC.

*···A ,•••• ***••

'"

SDKODUO

,..

PUT BACRO

..

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

IJGUP290

•

i
*.

**.....'"*

.. "

,..

.. YES

SliITCH

'"•••••••••••

'"

i

.0.

•

••••

....

•

•••••••••••••••
i

•• YES
•

"OV! ALL

•

•

*..... .

•

•

i

IJGUP100
o
•

........."'.
D'IP'S

•

IliDICATCB
•
•
POE eIEII
•
• Bouun •

ftO

:0

iloilo • • • • • • • • • • • • • • •

··C3·······
SET IRI:
•

or

•

D~'io~l'~s

:o

i

••

liS EOV
'POBC!D

••
••

•
•

SUBBOU'lIH!

•

••••• •
'" C3 •
••••• •
...... ... .. x:

III

.. ..
.. .. .. ......
C2

SD"ODtJO
ROVE R!CQtm

•

•
•
·····Bq·*········

S!'I FIRST •
HO
*P!NTlit SWITCH.
,.. .. EliTE! SII"ICB • "' ............... x*
It ESET BOP
'"
OR

•
•

IJGUPOSQ

..•• E2* •••• *.

1
...
. .,BPIRS'r
*. *.
0*

*.

····C4········· *

•

n!UBJ!O
CALLING

•

ROUTIN'!
•
•••••••••••••••

* D1 '*. .
x.

..'"

•

.x
.. .............. .

IJGUPO~O

x

···**t1 ••••••••••
*'" STORE tATA
*'"
'"

LENGTH

•

**

**

···..5.···.....

•••• A,q •••••••••

..

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

D3

•

•
•
IF BEQUIFlD •
•••••••••••••••••••

•
• RES'IORE USER
•••••••
REGISTERS

•
•

••

••

••

••

.0.

111

i

IJGtJP22r)

•• ••• es •• •• ••••••
•

•
•

0

G'!'J:
fLOCKSIZ!

o
o

•

••

0

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

•••••cs.i••••••••

•• SE'! DA'II ••
:o ~6J3l8cmn :•
•••••••••••••••••

....

.. ..

••••

••

..DII •••••••
••

.. .. ....
CLCSE

SIITCH CN
•

SDfIIOD1)0

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

•
o.
•• x.
o• tiS o
.

i

i

••••• D2.· ••••• •••

•

• CBICK lttlllS! 111
o SUBROU'UIl
•

•• YES
•
•••••••••• I.

••

•

NO

•

SET !OI"

•

.............
SIITCH Alill

RESET CtOS!

SIITCH

t

IJGUP230
•

•

•

• o.
DS
.111
ctOS!
o.
SInCR
••
OR

*.

*.

.•

*..0liS
••••

••

..t1!
..i .•

*••
o -IC

• l!*

o •

•····.E3
• •.•....•.•
••

i
, ••••••••••

t-.-._._._._._._.

••••• !

• IJGOP220
,..
,.

JC'

CHECK DASD
ADDRESS

••
SVC:2
••
PETCH $SEcnR •
: :IP REQUI!!D: :

0

i

••••• p , ••••••••••
*IJGUP080
JC*

.-.-*-.-.-.-.-.-.
GE'l DATA TO

..

..

BE KOVED

'"

~ •• ~t.~!i~ll!~ •• :

•
•
•

····12·········
••••••*••••••••
SDI!IODtlO
EXCHINGE
suellonTlNE

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

IJGUP281
•
•
•

••

••

• O.

·····Gl··········
......
-.-.-.-.-.-.-.....
.....
oIJGUP150

JCo

I/O:

: :!XCBA
..

_

55"

i

·····H1··········
*-*-*-*-*-*-*-*-*
*I.JGOP200

'"

JD*

WRIT!

...

•

tAT A.

'"

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

....

••o

·····G2··········
•
•
•
•

SAVE
ADllB!SS OF
OLD I/O
ARBA

•
•
•
•

FILE

ISSIGR!D

i

o

*.*.*,
•

··.··H2·········.
••

•
:

GE'I ADDFESS
CP NEW
:I/O IR!I

0•

•
:

111

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

BESET
SiI'I'CH

EOF un:: 1 l!'OV

o

•••••••••••

••
0

•

•

·····J3··········
• CAPICI'l1 •

JDO

Ci~Pil~~Ii~~

•o

:

IftI~

TBlCK

*•

00

*.

s~i~1 *:.
el
••

.

x

...~~:

i

·····GS"'·········

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

o
DnEfl"INl
0
o
U!!C!I1J
•
OL nG~B Cl !JlCKO
o 'OR UMUUD •

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

Bens
•
•• ••••••••••••••••

•
•

UPDU! Dasu
AtD't!SS

.. . ..
.. ..

0

•

84
,
BO.. EI'rERT
*.
x• •••••
UPPER LIft1T ••
·.IXC!I1:IO ••

i
o•••• •

i

X

OIJGOP290

....

• •*. x.

*••
*
• YES

• D5 •

.

111

•

'.x *.

*.

·.···J1········
.-.-.-.-.-.-.-.-...

:

•

111

0

o Y!S

*•••

·JR·
• Jl

:~~~;~,~~.*

i

•
•

0

IJGUP270

J 1 0•. I.

IJGUP060

*•••

*. ••

··83 •••••••

111

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

. ............... ~~.:.••

••••••

*..•
• YES

i

o

•

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

•• NO

••
lEOV
•• MO
••
SWITCH ON
• * ••.•••

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

•

i

.. .. ....
G3

G!!
T'9ACI
CIPICI,.,

• o.

i

.0.

.111

111
•
•

'5

* .••
o YES

i

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

o

•
0
•

••

•

IJGUP150

SVC 9
UTU'u!O
B-TRnSIEIT

i

P3

111 Jl

i

.**·£4·.·•• ••••

o

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

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

,..

•
•

i
••••• 1'5 ••••••••••

i

IJGUP28B

*

III
'"

•

i

IJGUP28a

IJGDP3~1

••••••

IJGU"2EO

i

• •••• 85 ••••••••••

o

0

..

UPDA'r!

•

•

S!!!I:

•

•

o

AllDRESS

•

0

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

i

••• •
•• •C3
•
o

*.*.

0

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

•••••••••••••• *••0

•

0

i

IJGUP060
•
•
•

i

····11:1·········*
RETURR '10
PEOBLE"
PROGRAflI

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

••••• •

•o D1 ••

i

•

•

•

•
•

····11:2·········
BE'IUllN TO

•

CALLING
llOOTINE

'"
'"

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

••••

Charts

331

Chart JE.

Close Rcutine

SDMODUO:

.....ole

III

i

IJGUP31l1

**.*1 , •••••••••

**13.***.*.
•III
III • tUlil CPl
• CLeSE
•
••

*

•
SD!lODOC
III CLOSB ROU'llRE •

sn~CH

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

•••••••••••
o •••• o .
•

....•

III

•

**

III AND POINT TO
III
SA V! lREA

.

IJGUP350
1
**E3 ••

.SAVE REGIS'I!RS ..

III

III

• 5E'I

** •••

ta"u

•III

............
L!IG'IH '10

*o

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

0

E3 *.1.

•

i
•••• *s 1••••••••••

IJGUP340

•

It

t!:*

••
•

fERe

0

III

..

i

C3

o.

.'. ' •

. * 'lOYD *. *. HO
*. *. YES
*111
.. *.......
*.
.• .•
*..
*
III YES
i

D1

.*. *.

&2

*. *. NO
.* EBOOGH •. *. YES
.. III
SPICE tElT .. *..... .
.* .. *.............. x*. *.01
TRACk .*
**.•..**
**...•
.*
i

•*
*..*
*.

FlOYD

YlS
*Iq

III lES

.. ..

.*. ••

D3

.

••

. '" PIOV 5'1 eN *........
BO X
..
•. *.
.*
.•
*....

••

o•• ** 0

III liO

.i'.

• T!S

• B3 •

i
.0.

.*
*. SPACE LEfT *... III
*. *. TRACK .•.*

HO.*
00 . . . . . .

••••• •

i

*. •.

J1
EROUGH

•

*..•
III YES

•
•

...

SFT BOP •
SUTCH TC 0
Ell~ER

o

PO'!'
!!ODOLE

.* •••••••••

0

•

...

··13·······
i

··!2*1t·1t···

o

•
•

0

SIT lei
SIITCR

*

•

•

•

• • • • • • :t • • • • • *

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

i

F1

.0.

••

. * EOP *. *. YIS
*. *.. SIJITCB
Sft
••••••
OR
••
••

*. *.. 111 .o

i

o **.'" 0

HO

• .13 '"
•

••• *0

i

i

*····G3··········
.-.....-.-.-* .......-.

o ··G1··***·* 0

*
III

SET

EOP
SWITCH

..

III

ON

******"'****

III
III

OIJGUP220

III

•

.*
• "'UPPER

•

••••

0

·····83'
··,.······
*-.-.-.-.-.-*-.-.
.I.1GOP;t:OO
...

...:1........................ :

.1C •

W:aI'l! CA.'!)

•o

...

•

0

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

..*.

o

*

••

"]3 •• x.
• ••••• i

.*.*."q
• •• ** ••• *•••

.0.

*** •• 0

•
SET !OP
'"
*S1IJ:TCH TO EaTER'"
'"
POT BTB
•

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

•

i

*.

*.
XTIT *. NO
"'.
LJ:!I'I'f
.* .....
*. !XCIEDEr:
•*
*. *.. *.*
i
• YES
o ***. •
:.......... x:
• 83 •
* 0
IJGUP3QA
i
"''''.1 1 ••

•

AtlDliISS

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

*

i

.0.

R1

JCo

C8ICK tlSr:

'"

...
"'.

.* . . *.

•.

.13
••
BtCJJLY
YES •

..

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

YES
•
.1" .* ...........
I*
•

*...
..
o

BO

x

"'' ' •
*Je
o
'" Gq·

o

0

IJGUP270

RESTOBl!l OSEB
'REGISTERS

•

1-13

........... 1:

·····K3··········
•
•
i

... BESTe'S! tlS!B'"

...

o
o

BIGI!'I!RS

8-12

•

........ .

•

0

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

i
···.Kq·
•••••·*·
: ili8JI.TO :

•

....... .. ....
sye 9

...

"' "'

Charts

333

SI:MCr:UU:

Chart JG.

.
'"
'"

****1,********>t
SDI'10nUU
PUT MACliO

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

IJGUU110

..

Bl

PUT Macro

'A2

.

SDI'IODDU IUCF( PAE:Af'JFTEE
OPTION - DECISION DOES
NOT APPEAR IN AN

'"
'"

**"'*

*

*.

E3

...

X

*****c ,.i********
'"

SAVE USER'S

'"

***'**C2***"******

'"
'"

REGISTERS
AND A

'"
'"

'"

POINtER '10

'"

SAVE USER'S

·
'"
'"

'"

'" THE SAVE AREA ..

*'"

R!GIS'fERS

.

IN ARB.
SAVE

'"
..

X

.

***"*******

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

*.

= YES
*A2

*. *.• *.*
•

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

i

'"
'"

TUFN ON
PUT

'"

SIUTCH

***********

.
.

.. '"
.. '"

,.

'"

'"

E2

.i'. *.

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

.*

'"

."' •

D3

*

.

**
*

*.

*.
.*
.*
*. *... *.*
* YES

.*

*.

·• .•

SPECIfIEr:

"'***

* "Fllf '"
"'**'"

.
*
'"

SVC 50

'"

'"

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

'"

Elf

."' •

*.

*.
*.• '" RDONII
= YES *..* NO
................. .
*. *. "'A2 . * .. *
*
*..
* Y~S
•*

.
'"

*

EE MOVEI::

i

IJGOU110

*
*

GE'I
'NUPlEEE Cf
E!'IES TC

i

i

PUT ILLEGAL
AF'IER FEOV

**

*****"'''''''***'''****'''

X

...

CCI

***"'*"'*****

i

****F2*********

'"

.

*****E3 .. ··*******

*. "'.

..
NO
. . . . . . . . . FEC'V ISSUEr:

*. *.

*

NO ... iCBft AiI]!A ...

.... *.

NO

**E 1*******

.

..

TURN CPP

C1'IPtI'NING
El'rS 1M

x
IJGUU140

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

.
.

**e4*******

*
**
*

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

x

n, . *. *. * .
•*
FROVD

X

IJGUU130

***C3*"'*"''''**
TUFN ON
* '"

* * CHAINING
EI'lSIN
*
COl

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

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

. *. *.

. ''VERIFY'
"
*•*. NO
*..* SWITCH
eli. *....................... .
*.
"'" * •• * . '"
:t YES

'" YES

*.•*

E3 '"

x

X

*.

. '"
*. *. NO
*..* ROOHLY
= YES
."' ............................. ..
*. *A2 .*
*. *... '" .*

'"

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

ASSEKBLl LISTING.

*•

l\ESTOR'B

**

USER'S

REGIS'I'El\S

•

it

•*

"'*"'** ...•
•*****"'5***
*
'lESTORE
•

*

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

*****P4**********

*****F 3"'****"'****
*IJGUU370
JJ*
"'-*-*-*-*-*-*-*-*
'"
PlOVI tA'1A
* fFOI WO};R **
*
AREA
'"
*'''*******'''*'''If:****

**

****If:******'''*****

**

U~!tlts

ll'BGIS'URS

**

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

x
.*. *.
G1

**G2*"'*****

.*
*.
* 'IUliN eN **
... NECESSA HY *. NO
*. *.CALL
'IO iurr TO
.* ... ".... X* ** '2ND
GET'
*
OPEN. *
SiITeR
*
*"'.. .,,'"*
* ******"'**** *

IJGUU 150
i
**·G3************

*

SVC 0

x
****GII****··"**
RETURN, TO

*'"

lxeF

PROBIE"
PROGliUI

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

*

•
•

.. YES

X

*****H1 **********
*IJGUU250
JH*
*-*-*-*-*-*-*-*-*

**

EXCHANGE
ADEHESSES

*..

•*****************•
: .......... ". x:

i

X

*****H2****"'**"'**
*IJGOU26Q
JH*
*-*-*-*-*-.. -*-*-*

*..

WAIT feR
COMPLETION

**

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

*****J2**********
JH*
*IJGUl!25Q
*-*-*-*-*-* .. *-*-*

·
*

*

EXCHANGE
AtDRESSES

.
..

*

********** :to******

. *. ...
H3
...
*.
.*
un
*. NO
*. *. fIlE
OF
.* .* ....
*. "' .... .*
x

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

'" YES

"'**'"

i

*****J
*IJGUUq3*"'**"'*****
10
JR*
*-*-*-*-*-*-*-*-*
FOE:
'"
*'" llCWAIT
CCMFLE'IE *
**"'**** •• ********

.

.

:x ........................ :
IJGUu220

i

*****K1**********
* UPr:ATE SEEK '"
: A~~~gs~6ui~T :

!

~go~~oi~' c~ijT :

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

x

***** •

* 83 *
•**** •

i

***K3*******
TUliN CN
'"
**
..

ffl~ ~i'I
IN ceE

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

**R4*******

RESET
*
* SWITCHES *
'" ** .. ***.**** ..
'"

** •••••..• X**PUT~NfiN~o;~T,**

*

x

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

Charts

335

Chart JJ.

Subroutines (2 of 3)

SDMODUU:
** •••

'4IJH ..

*' • J5*
0
o

IJGOOSlB
i
••••• A 1••••••••••
OIJG00310
Jol*

.-....-.-.-.-..-.-.

*'*' ····A~·········
SD"CDUU
•
DS!.}; lRROF
•

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

OSER ERROR

•

•

tlOO1'IN!

o

*'

*,.,

i
••••• s 1••••••••••
RElD

•

••

*'..

o.

*

i

.0.

Cl

*. *..

SKIP
OP'IYOll

*. *.

•
•

liE'l''ORB
POli tGNCRE

GR'l
DA'rA

LIS'I

•

'1111'1 POB

..
•

*'

i

BE'l'ORN TO

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

"
•

•
•

••
••

ElLR
'IC 1)5!1\

••

BOU'lI.!

••
••

l!:BBOli

•

····12.........
...............
EETURtI
PCI lUU,t

AID IRITB

*'••

• S'F!:T R!GIST1R

EQU~~6TO

:
•
•
•

.*..

••••• '2 ••••••••

....
.. ..
ERn
=5klP

••
••

S'fC C
BETHY

••
••

it

8L8ei~I~:DUp

.::.........I/O::
*......

!JDq:

1.1GUU260

*oO

•

•

i

• •• 1)'5 •• =11 • • • • • • • • •
svC 0

nct

•••••••••••••••••
i

it

••
••

•
•
•

····E"·········
R!TU'II. TO
CIlLLIIIG
ROOTIlI'!

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

•
•
•

•···=II·E5·······.·*
• SlC 7 •• ••

••
••

IAI'!

••

: :1' '&'EtUIlI!D! :

•••••••••••••••••
i

*····P5··········

•
•
•••••••

••
••

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

..
..

B'£S'l'CP!
'READ
CO'HIAtfD

'ncPI

..
•
•

•

AR!A
•
••• *SAll!
••• *.........
.

• YES

i

....
..•
.•.

•• t••

•

·=IIes.··i ••••

•

. *. ••

'Eli!'!
=IGHOli:!

i

G2

.0.

••
liAS ••
BO ••
LAST
••
• • • •• OPERATION 1 ...
••
tI:RIT! ••

••

•
•

CCI II

•••••••••••

·····'04··········!

i

NO ••

5",,1E AFIII

• 'IUlt'R o:n •
CHIlIJlIBG
•
•
BIT AlfD SET •
..
COPltUJlt
•
CODE
•
•

•

•• TO 256 EYTES "•
•••••••••••••••••

••

.....
X....... .•.
13

•

•

•

:

•

i

S AV!
!t!ID DATA

it

"aVE ALL

•

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

~g2'IJt~i

BURBt'll: OJ'
BY'IBS 'to

COtM1

•
•

•

BE ROV!D
•
•••••••••••••••••

•

sop.cnuu

~'UC

·····13'5··········

·····C,,··········:

IJGUU3BO

····AS· . •·•·•·•

5tl'.H~OU'rI1H
•
* ••••••••••••••

tJGUU160

0

•
:

• BC

·.

•

: 1 •••••••••••

...0

••

•

it

"

••

••

•

•
•
..

·····e"··········
!
·................."

i

•

SD"OIlUU
ftOV!
SUBBOD'l1 HE

• • • • • • ItI • • • '4I.'4I • •

IJGUU310

.". " .
n

•
YiS ••
.X..........

····A"·········

• •"'"

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

•

*' ····F1 ••.•••••• *'

•
•

LIST
AttR!S5

••

"................."
CO"PL!TICB

LOAt REG 1
11'18

••

•

.-.-.-.-"'-.-.-.-.
CALLING
!lOUTIN!

•

it
••• ••D3·····
•••••

JR"

i

•
•

•

•
•

i

••••• !1 ••••••••••
*I.1GUU260
JS"

•

A'DDIIESS TO

•
..

III
..

"•••••••••••••••••"

*'

•

·····C3··········
"..................

• ••• C2 •••••••••

*' •••• ~~11~: ••••• *'

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

"IJGUU1BO

..

i

*... * HO
*'
.............. x*

.•·.....
.·····Dl··
-.-.-.-.-.-.-.-.
*'

IJG002BO

i

tlO'9! I/O

·................."

•

coon~

o

•

"'

°*'
•
·**··B3··········

Jol"

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

•

SUElIOO'llll!

IJGOU310

t-.-.-.-.-.-.-.-.*'
oIJG0036C

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

...

G3

.".

••
lAS ••
• ••• GII •••••••••
• * L1S'r
•• YES
•
RETOBI
•
•• OPERA'fIC 11 A • *......... X.
POB
•
••
IBI'!! ...
WBIT!
•

••

*.

YES

....
•

*' *..... * ..........

.'"

NO

i

**.* •
·JK •

• E1.

1JGUUQ10

i
·····H3
•.••
.-.-.-.-.-.-·....•••••JJ-.•
.IJGUU36C
•

REAE

•

ceCII'I
•
••••••••••••••••••
•..

i

••••J3 •••• • ••••

•

•

•

................
RE'IUlilt

".

filII!

•

'ali

•

Charts

337

READ Macro

StMCDW:

Chart III.

••• *'"
**fI;AC 1*'"

i

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

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

*

•

*

SE'!
EtceRt

NUMBER
TO ZEIIO

'"
•

*

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

:x ........................ :
i

i

*****B 1.** ..... ***

**..*
••
• '"

SVC 2
fETCH
t$BOPEN

**·**H3**********

* •

***

* *
...
'" *

'"

* *
.. *
****.************
it

J1

•••

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

NO

.**.

·****K1 *.*******.
BESTOR]!
*

*

•

ADDRESS

of DTP
TABLE

*
* ...... .

*•

•
•**** •
F~

J3

*

'"

· *. *.

0* liCUTUIE * . *.
• '"

*

NO

*. ENTERED
FROM • *....
••
Wtl.l'IE
.*
*. *••• .*
i

......

'" YES

i

i

X

*

'"

i

IJGWETRY

*..*
*. ••

*•*

ceRSTAB'!

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

*.
.. ... **J2********.*
...
*. *. YES
*
GET
*
•
NEi SIARCH
..
*.. *•• llDONLY
-= YES
.*
........
X.
ADDRESS
*Fq
••
x
*
CCBB
*•

*

GE'l 'IRAeR
CAFACITl

*RE

*

.. (4*

•****
•
A4 *

•'"

***'"

*

• •*

IJGUHST

*

•

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

Charts

341

Chart KE.

CHECK

Sr::MOCW:

~acrc

..
.*••

*III 12 *•
.***

IJGlICKRD

*··*11**·····*·•
•

..
III

SOflODlJ
CHECR PlICRO

..
..

•••••••••••••••
• REFERENCES
••••
TO
KEE1:
..• .. 0 *.x.•

•

••• t

*

•

..
III.

i

*. *.

lOP

*. .."
*

IJGWPR!

** ••• 13 ••••••••••
*111.*
5'9C 3E
.. * ............... x* .PBEE TliAClII: '" •
. *. ",
: :11 liFcnlln~D: :

*. *.

..*..*

YES

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

HO

• B3 ••

• *••• *

i

IJGIOBRC

.****B2****·*·*·*
..
SHUT
•

.. III
....

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

•

K1D3# !tBBS

SVC 7

.... x*"

o.. B1

!tI.*..

..

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

IJGWCHECK

..

...
*..*

12

*

• ONR!COVlRAELE 0
:
I/O B¥~11011
:

WAIT
lie ..
: :IP REQUIRED: :

i
.*.*B3.*.*
••*•• '"
1IP'lOlil '10

•o

: •• ~t.~~i~~~;~**:

x.

*

osn

*•• 111111 •••••••••• *

*

0

••e1.··i ••••

i

III

OPF

··C2*······

*S!'J 'CHECK III
AlTER
..
..
BElt'
..
SlITeR

.. SET CBEeR ""
SWtTCH ABD
III
**ERROR
IHDIC.
..

..

*•

..

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

...........
0

i

• 0.

*.. *

D1
.. III

*.

*

*•••

• •
• •
***'"

• D3 111

i

*. *.

WRITE
OPIATE

CBECK

*. * •• * .*

•*
oo"

*..* IES
.......

'III.

.. "

*.

o NO

t2

.* .*.

USBR

ERBOR
BOUTINE

i

*·***D3··u *.1II.* •
1

*oo *oo

*. *oo .* .*
* 10

.*

..

* • fALE
•*
...
USElI
*.
.•. *
. TC
lietl'lll!
$I.
*•• 111.**
* **** **** •*••*
••

YES

*.......
i

•'" **J1•• •
III

i
• 0.
...

El

*• *.* •

*.

·····E2*·········*
o

RO.*
IRIT!
*.....
*. OPERATICl1
*. *.
.*
.*
i
*..
*
• YES
*•••

IJGlIWTER

..

51'! cell

..

COUI'!

•

"'.

*. o.

i

i

IJGlIBLD

....
•'

G1

OSER

B~~~~=!

*.

..

•..

..

i

:(I.

CLEAR
OPIlTI

*•••• *

l:

IJGWCCMP

•..

SIITCH

*•••••••••••0

••••

III

'"

..

*•*

*.e2*·
••
SE't

J1

•

o

*.

•.

=IES

.*

*

..••••..••• 1[:
:IJGRlTS'r

•$

•

*•••• *

.*
*. *. YES •
*.•• ABD HeLt
UPIAtE .* ••••••

•

.*..

• R1I

i

·····U1I···**····*

•• *•
41.

••

svc
36
'FR13!
T~ACK

••

...
•

'"

iloilo

: .. :I~.2!2~;~~2:.:

*••
* *BC

*.x.

i
.*.
*.

X

***··Jl·***···***
LOAD OSER
..

..

. *. *.
B3

•

*It.~~~~l~~~*

0

IJGlIUSER
III

i

*·. *

liD or
!I''BAC8
'IIlDICA'IO'B

:t...* ..

*

**
• ••• 111 ••••••

......... .

i
·*a1 ••••• **

**

• LOAD ftOD •
BEGIS1EF
•
SHU'l 'CP.!CI': •
AP'lii 1IEAt' III
SlII'ICH
•

. *.
G3
.****G2.i
***•••
••
liAS
••
.. .. SVC ••••
...
1
••
• 'U,S."
tAS'1
••
10
••
*. 1I1'IT * * ...... *. *. COtiftARD
liE At
•*
: :1' lIEQUIBED: :
*. *••• .*
•
**
••••
*
•••••
*
••
*
.i••
* BC
• B3 *•
..

*. ' .

.•
*.•
*
... YES

• B1 •

111*13.·.* ••*

o
•

*•••••

••

••••

* *
*•••*0

i

IJGIIGN

···'2·········*··

i

.*

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

YES

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

i

•••

.. ...'"
•

F1
... WRITE *.
SVC 0
ERROR OR ' . NO •
*
gUt
*.• '••
UNRECOVERABLE.· •• I.
ERROR
.. III
COOl'!
•
*. *.... .*
••••• *••••••• ** ••
i
*•••
* YES
* all *III
..

IJGWOP'T

.* . *.

···Bq·*·.*·····"'·
.*
*. *. ItO
svc 0
RE1Rt
*..*III. EliliEl'l
=IES
.* ........ X• *
••
1/0

..

'Ie REID

i

13

•

·*"•••••••••••••••.
..

..

..• 12 ..•

••••• •

it

IJGIBDSI
III.

ROUTIII! • S

..

..

ADDRESS

..

•

INTO BEG 1q

•

•*••••• $ • • """****.*

J2
.*SUOULD

*. *.

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

SKIPPED

••

i

*. *.

• • BEAD E1UiOB
BE

YES
••••••

"'

* BO

i

$1(A

··**··..

..
... *··*J3·
RE'l!UlilII
'10 OSE1I

*o

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

..

0

IJGWUPO,
X
··"4*******

*

**

•

• SET O~tAT!
SWITCH

..

··*1tIK4*··******
RETUlnf
•

•• 0" •.
• ••••••• *••

•

•

• B1·

***

IJGWR!AD

i

····*11:1····"'*····:*

: ARi~A~Dfi~~ss

***

IN liEGIST1!1I 1

OR HOVE IT

TC USER LIST

..

..

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

i

i

*

.***1':2**·"'.·*·.
'BETUliN TO
tlSER

'"

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

* TO tlSE~
lit
o
.* ••••••••• *•• **

i
****
..• »3 ..•
o

*.". •

Charts

343

POINTS, FREE, CNTRl Macrcs, and

SDMODw:

Chart KG.

SD~C[:

FEOVD Macrc

.~~

SMon

..

·***A , ....... *••
SDftODi

..

..

••

•

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

• PCINTS "ICBO

•_

it
···**131.*.*·*.·
••*
*

IJGVPR!S
..

SAVE

.,

..

USER

..

..

REGIS'lER

•

•••••••••••••••••••
i
··el •••••••

•
••
•
..
OR
•
•••••••••••• •

.. SET POIITS
..
SII'l'CH

i
......
·...•
*·····D1
*
..

IHI'fIlLIZE
POIlITEB

•

..

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

••

••

i
·····11 .........
.

.. IHITI1LI2E
•
EOlaT ARIA
.. '10 Ill'll At
.. EITEIT LOllB
..
LX"I'!

..
•
..
..
..

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

····.2········.
StRODI

•

PREE !ACBO
•
••••••••••••••••
•

i

.* E2'IRICK' . •. *.
.It

WO
... BOL D OP'IION ...... .
*. SJ:!eIF!!D."

*.

It • • •

····13·········
Stl'tOti

.•

•

•

SAlE

..

REGISTERS

..

USER

.,

•

•

cell

•

•••••••••••

..

•••c3.i ••••• *••*.
SlC 0
CCRUCI
SEEK

..

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

S1'I
CClnUlt

• CHll RUG EI'f •
• alP 11 SIEK •

i
..• ···C2······.·
..•
.,

•

CITFl PACFC
••••••••••••••••
••

.. YES

.,

punB!n

lJGWCTL
i
··E3.1I •••••

• *.

IJGIIPBEE

•
•

~~c~o

O"'rIOI. nCISlC' DCIS
ROT ~'P'PI"l! Ilf ASS!PBIY
LtS'rIMG.

•••••••••••••••••
jl ........................ .

i
·····D2······
....
*-*-*-*-*-*-*-*-*
• lolG1I!'1

•
•

II:D*

GE'l ADDBESS
IHt BECCRt

..
•

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

LERG'lH

i
·••••E2.··,.·
•....
*
•..................•
51'! ADDIESS

•

•

ABt BECORD

•

L!IGTB:[II

•

.:.

••

..

•

•

eCI

•

".."
..
CC!i~~TEt .:*!~ ... "". "I!:

..
.
. ..
.................
• •• *.D4 ••• * ••••••

n 3" .......

... .. ... ..

,,*

• ..

• YES

IliT7 ::
• •

i

•

*

..!) •••••••
Sf'I CR
•

CCfUllRD

•

•

• ••• !s •••••••••
1!lITBY
•
nmJlJ '1C1t •

•

•

• CH1IIIIG BIT ..
•
II SEIK
•

•

eCI
•
•••••••••••

flACRC
..
•••••••••••••••

i

•••••
-ItP ..
.. P2*

••
•

IJGI'rLI!

i
•·····1'2··········
•
••

·.
••

••
••

SlC 36

Ill!E
TRACK

.

...

••
••

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

G2··.···.•..••
••••..•RESTOR!
•
USER
•
•
REGISTERS
•
••••••••••••••••••
•
:x .•........ :

•

•
•

**··1'3·········
IiE'IUliJ TC

•

PROEIU

•

................
tBOGlil1l

•

1''5
••
I.SSUE BBaT"! •
••••
BO !'IL 111RI.
HO ". Jlt.'811llE ."
SP!C-I! ACl!O
.t" " .... " .. "•••
SPEC
".

•
•
•

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

IGlIOIED.

•

••

•

*"

...5... ..
.•

• YES

i

i

••••

.'.~

....."4..........

i

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

i

**··Gq·········

*

•
•

RETURN
TO PROBLI!
P'ROGRAJlI

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

G5

•
•
•

••

•• PYLEll!!
110
." SPEC AS REG "••• ".

...

·15

.•

• YFS

j

i

2**·······
'fO

•

•
••• R E!
•••••• 1"
•••••• •

••••• us ••••••••••

••
••
CJorO'B1
•
COI!ElI'rS
•
•
011' REG
••••••••••••••••••••
:1 .......... :
i

..··••
•·····J5····.·
•
tOllt
•

Iru~rss OP

•

'~ECSD!l'

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

•
•

i
····'1:5·········
SVC 2

*

P!''!CB
llS!OSll!9

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

•

••

Charts

345

Chart LB.

SD

$$BCSC01:

CLEL Extents

O~en,

•.. ••••
III •
..

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

• 12 •

$IB05D01

•
•
III
•

•

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

cel's

•

••

·

.•.•....

'.
.' .

*.

.i..
• •

SD
rIL!

*. *..• .-

• III

···c~

.111 ••••••••

x
*

...·.·······•

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

III YIS

III

!!BSSI.G!

•
III

aEToa.
I.DIeATOR

••••• •

•

•III

i

DUBOK
US.'

...... *.

•••

.*

* .
.......
,..........
•
•
I

•

SU !lTnT
CORVIR')!!D

•

III

• IIDIC1TOR II

'.
AN

*.

••••S'C
D3.i •••••••
50
•
ClIC!L
•••••••••••••••• ••

"'. '.

•
•

*..• .*

•

!2

.. "

.'i .••

.* ClJ'l'PU'I *. *.

.................... t.

••

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

*..•
.. 'f1JS

ell

..

i:

t •

.*

*.

BIUIT

·.... .'.

Clfton

.*

'.

t.

..
•
•

.•·•····
' . 10

•
•...t"
! 1 •
..
••••• •

..

i
····c'S··.·····
.
SlC 2
'ETCH

..
..

"BOISG1
•
•••••••••••••••

' *.
.." D411011.1
*. 10
U!BlTS
••••••••••••••••••••

' . lllILABU.'

*. * . . * .* TIS

•.•.• ~nJlf= .•.

• •• !3 ••••••••••••
tiS
t ••••••••

*. *..• .."

i

•••1'1 ••••••••••••
WHIT!
!ODIPIBD
•
SYSUS
UUIT

....... ....
~~~~:~

•·•••Gl.··i ••·•··•
R!STOI!
CCB

III
III

rll~S 111 IE
:
•••••••••••••••••••

USSIG!

4.5eI

i

•·····'2······.···
•'"
*
Sft 'Oil
• DUU! EXUlT •
•••••••••••••••••••••

: DUft!t

..
..

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

i

UITOI

G2

STSBBS

!Inn

BICORD

•.P4··.····
••
.. •
51'!
•
RB~UD1
•
* TO
tlCP
•••••••••••• •..
.
'••••
.. . x*
(:2 ..
•••••
•
i

i

S'C 50
ellC!t

••••RUD
4.i.**IIU
•••••••

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

t • • •'P) •••••••••

..
..

•

•

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

.'. ••

*.

OPEl

*. *..• .."

.*

ns.'

••••••

.

.'. ••

i

BUIll
'IRS!

•

mm

• •••• 85 ••••••••••

*•••• •

.'.

···J3•. ··•.··••··

BOVS!!

. * 112IIIPUT-. *. *.

*. *.

.•

•.. sa,,!
•..
*
a'!cotn:
•
•
ICD"!SS
••••••••••••••••••••

•..••••
14 •
..

i

PILE

.*

*..
• 10

i

• YES

*.

It.

: .......... 1:

. *EXT!JlT •. *. NO
*.. * LI.ftI'lS
.* ......
*. (!!IITT!D .*
*.
i
*..• .*

...

*.

.'.
?5
' •
*.
?USi
o.
ncon
.'

•••gs ••••••••••••

i

82

.*

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

• NO

•

i

~~~UD1

*.
.* .* IUIlD!
lILE
' . YBS
•
'.
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••• 1.

.i•.
• •
DIt •
•••••
•

x.

•

nnE

..

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

• 10

:

' . NO

··.:~~m8m
*.
.•

• NO

:.~tll¥.~I~£li•• :

III
•

..0'5"'2 •• B5 ••••••••••••

t.

'.

•

SB!IRD
III

n2

IITEI'!'
...
' . FBES!RT . '

·....'.1.
• 11

-.

.. Dit

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

IT.TCOR'

•'

..

.i

··.·;15
..
*.1.
'
.
•t •••• i

III 12 •

•••••o1.i
•••••••••
•
RBS!!

SII

too

C2
*.
•• IS
*.
. ' DUL ,ea '. 10

III.

..
•
..
•

~O

DUD
A~~tIBS

•.•.

·....'..

C1
'.
_tR!IR'!B! ••
.'
'BOB
' . NO

*..
• YES

DIS»

••

• C2 *.1.
••••
I

••

CO •• ZB'r

..

lCDUSS
••• ••••••••••••••••
•

nCOBD

SD

a=iil~!

..

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

.i'.

III.

Pucon!

•
•
..
•

•••!2.iGU••••••••••
• SPBfil
IED
•

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

•.•.

LelD DUL
UD n u n
EIS!
RIGIS!!BS

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

PRBU ••• B1.i••••••••
•
I1IUILIZBS •
III
eeB'S
•
•
RlLOe1T!
•

•

i
·····A
...
•······
..
* nun

I.Il~~ •• A2.i ••••••••

•····A1 •• ···•••• •
•

••••• •

.• .*

*..•
.. !!S

HO

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

.* ........ x

i

•

:

• ••• .15 •••••••••
'I'l'CI' PHIS! •

S~m6mCEY

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

:

.i..
••

*

.. 04 ..

•••• •

•

•
•

••••x3.i
•••••••..
SlC 2
!nCB

•

$SECISG1
•
•••••••••••••••

Charts

347

Chart LD.

$$BOSD02:

SD Of en, DLEL Extents fer 3340 (2 cf 2)

.....
ltLC •
.. P3*

••
*

.. ..

lfORR'lEST

*....

E2

..

i

*. *.

IIOBK FILE

*. *..

*..*YES
.......

.*.*

*••
* *RO
i

(2

*... "

.*. *•

. "'VERSICR *. *. YES!.
I
.* .....
.* .*
*•.
*
• RO

*. *.

••••• t2.1••••**•••

•

..

SET LUB

..
..

AtDR IN
D'IF TO UA

..

..
..

•••••••••••••••••
•
*
iloilo..

.

.

..
,. .1 ............ ..
.. :82 •• X.

••••• • i
LUITS
.*.

PBECOR'V'I .*.
12
*.
E3
....
•*!X'rElIT *. *. YES
.." BXTER'lS It • *. YES
.. "
*. *. PRESBRT
tlflITS
.. * ............... I..
CCNV1!li'lEE .. *..... .
.. "
*.
.*
*. *•. *.."
*It.. ... "*
.. BO
.. BO
••• *
.. "

·Le·

.

.. G1 *.1.

i

.'. *.
12
.* IIIPUT *. *. YES
*.
rILE
.* ....... .
*. *.
.* .*
*..•
• 10
.. "

•**.* •

······"3········.·.
..
..

i

CORVEllt
EI'I!BiS

..

Ille

..
..

,.

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

•••G2.i ••••• ** •••
ftSG

.. ..............
QB5SI

"'

·.COIIPITIT

•
·

•···*82**··***.·•
CABelt

..

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

·**GII*··**······.

····GS·········

***8q************

··05·**·*··

!ESSAGt
•
•
*'"
VALID lCIl ' . 10
QBS9A
*.• ' THIS
KODUI! .* ......... x:
.. oo ........ X.
PE'ICH
• •.*••••••••• ** •• *
•• SIZE
*
*.
.• • *
*••*•••••••••••••
*..
* *YES
**** .
: ***. x: ¥~:pE1tfn~~~
:*** • i LCP3. LeBl

.TES'lLAST

i

..

i
•••

.*G3EI'I. '. *•

..

....

83

*.

•. *. 60
••
BUDNEI!
•
*• SBT
·
.* .*EX'lEJI'l
LAST
.... 1*.
• * .......... x * LABEL IUO. *............. x* * ~~;'A~l1
•*
neCBD
*. *.
.*
'
"
.•
•••••••••••• •
*••• *•••••• ** ••••
•• • •*YES
i

REREAD'

i

. '. *.
J3

.**Jq*.**.* ••• *.*
*.
BUD
1 *. NO
. *.*BElr:Ul:
FIBS!
sv ell
.* ......... x
·oo
* DLBL 'INFO *
•.
.* . *
.*•••• *••••••*•••

*..

.. ..

•• ••••
•
!2 '"
•.*.*
•

• YIS

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

····13·········•
•
i

...
•

PE'ICR

REX'l PHISE

*•

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

charts

349

Chart LF.

SD

$$BCSDI1 :

O~en

DLBL Extents (2 of 2)

In~ut,

•••••
'Fq •
•••

*tE •
III

i

TESTsn

A1

.'.

LOAD"SG

*.

• III
SYMBOLIC

.*
*.•.

•••••• 2* •••••••••

*. *.

BO

UHfi~pI •••••••••••••

**..•.**

III
•

5E' UP '10
ISSUE

x:

fll~i\~!

:

....
·..... .

"OVES!"

i

i
•• ••••
•
!2 •

EXTER'! 81'18

•

•

*•

SIBBOtIC

III

U81'1 ADtH

····el·**······

III
•

SVC II
LOID

•

$$BOSIGR

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

lUll: DISK
SUBBOUTINE

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

·

····.E'··········
•

FOB:

•

III

OP

eee

ftSGPHAS'

III

svc 0

..

RECORD

•
•

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

'.

:

2*·*···.....
..****'"'...........
.
SVC 2

!ETCH
$SHOUG!

•

*•

.. ..

BEAD fCIU!!
LAf!!L

YES

•

S'VC 11

•

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

.....

'*

•

•

t.IE'!t

•

i

'"

•

•

:

~CD"I"Y l)HA~B

•
•
•

'u.~1! 'Ie

"1!'fCIl

1$~ODQUE

:

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

*

.i'.

E3

••
IS
••
LIEEt
VOLl
4o.
tlBIL ••

.. ......

••

•
BO...
••••••••
••

'"

'OB"I'I 1

• • • • • '01) • • • • • • • • • •

•
•

•

G'f.T SIABCD
'IL! K!l
'POB

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

Lp.

*.

• YlS

.'.

t{!l'1PHAS

VTOC1DDB
• •• *.P4 ••••••••••
• IRlTIALlZE
•• AND tABEL •• YES
• SEEK ADDRBSS •
... vOt S:BJ WOS. • ........... X. II'I8 IDDRESS •
•• !CllAI ••
•
Of Til'! VToe •
'P3

••

*

• "!t'IEJT ' .

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

.. ..

*..*
* Be

*

SET U~ ore
ISSUE
MESSAGE

•

•
•

11355A
*•
••• ••••••••••••••••

.................
..·**82······.·.
*.
•· •.
x: smUMi :
oc~mh

•

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

*

.i'. .4o

DISASTEB

i

·····D3··········
.-.-....-.-.-.-.-.

•
•

:ZP RBQUIllED: :

.*

'"
•
•

i
·····G3"*.*
•.....

III III
III III

•••••••••••••••••
R1

ISSUE
lnSSAG!
43061

4o.4o •.

: I ........

i

III.

•
•
•

I

•
•
•

••••• (:5.* ••••••••
•
•
•

i

···.*G1··········* •
SVC 7
WAIT

•

*R!A:cnISK

i

RUt

•• ••

SET UF TC

i

•••Pl.i••••••••••
*

•

•
•

SAl!
V'l'CC
tIMI'IS

'.
'1 ..

**···e3········*·

•*···*E2*··"'
••
•
SET UP ···"··
: Ue6~m :
•••••••••••••••••••

SUPIBVISOB
•
•••••••••••••••••••
•

•

•.**
....

*

•• C3 ••• .
nADVCL'
x

!2 •• X.

• •••• •

i

III

•
•

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

••••C2·.····*••

*

GET ll:DB!SS

i

•

.ARD lIces DISK '"
•
ADDRESSES
•

•
"BOSDI'
•
•
!lESSIGE
•
• . tSDUODTIRB
••••••••••••• •

•
•

III

.····l!s
•••...•.••.
"
*
.*• ...*••••••••••••

i

IRI'!rIJlI'21

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

••••

READDISK

.....

:DTF bliC~is~PER :

•

····;i~~;~~~····.
*
•

•

•••• **

•
..

••• •
•• •135
•

·····83······.···

ROYBURn

X

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

•

•

"

•• GET StftECLIC ••
•
uRn !'OR
•
EPBOB IIESSiG!' •
•••••••••••••••••••
•

INITIALIZE

!!OV!

lieU'lIR!
•
•••••••••••••••

•
It •••••••••••

·····E2·········.

.** ••al.i ••••••••

III

•
'"

•••••
tL! *
.
• 82 *.x.
III

• YES

•

•*··;I~~;~j;····•

III
•

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

•
•
•

GET SERIAL

IURBEB CF
PACK TO
!lOUB'l'

•
•
•
•

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

•

oj

····1"5·.· •••• ••:
SlC 2

:'1!6~B J~5~SfiI2

•

.* ••• !...... V••••

•

i

·····G4·········*
'*

•
•

SIT UP TO
ISSUE

43041.

'J1~SSIG'E

*

•
•
•

.

•••••••••••••••••••
i

·····n4*.··"'····.
.-*-.-*-.-.-.-.-•

.READ'DISK
•

BElt

•

POB(I(A'I 4

tJi'.
•
•

L1BEL
•• ••••••••••••
*••••

• NO

...
••

4o. J'

•.

.'.i: '.

RECORD
POURD

•

4o

*....

••

••••

4o ..

·
•

•

i

•• ••••
•
12 •
•••••
•

** ••RETual
11.1.*•••••
fO
•
CALLIlfG

·*··*J3······**··
.-...-.-.-*-.-.-.
*RSGPBlS'

... 10

.*

• YES

•
•
•

i

i

..

TYPE EBROll

"ESSAG!

LF*
..

•

•••••••••••••••••"

......
i

•• C3 ••
••••• •

J4

.'. ••

• '"

IS
...
••
LABBL
•• 'NO
1"0B"1'l"
4o
LABEL ••

*. *.'

.. ..
....
• •
*.••
• Y!S
i

.* ..

..

i

•• ••••
•
'E2 •
•••••
•

as •
•• ••••
•

•

BOu!IRB
•••••••
*•••••** •

charts

351

Chart LH.

SO OFen InFut, User Lacels

$$BOSDI3:

....•

,.*.*,
, A4 ..,

..• A:: ..

•

••••• •

.*.*

i

..
..
'"

!lev! LUl[
TO OUiPO'I
AREJ

,
,
.................

i

i

.'. *.

...

.. '"
"'. *. NO
*..* HEIDER
LABEL
...... ..
*. *.
.*
.*
i
*... '"

, ••••
' .
C1 *.x.

,•

*

•• "'*
REEHTRY

,'"

i

CT

...

.. '"

*.

, •• *.,

'" YES

.'. *. *.

ARE
WE

....' .

..

tABElS

*. *... '" .-

,*

..

* u~S··**"**
lI!SET
**
'PUltER
*** ItrtDICA'IOB
t.AEEI
•
•
,
*:t.* •• *****

i

GO '10 ADDRESS '"

III EEG'ISTER 5 '"
'"
'"
.......

..

'Ie

'iIiIT!

..

•

tATA IRt

..

..
..

***"' •••••

GF.T ADDRESS
CP ceE

elt

NO • *
...
*.

..
..

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

i

, ****,

"'."'* .'.I
D1
"'.

i

.

*. *.

~BOFSWITCH

12

.*
*..
*.*
* T1!:S

'"

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

i

...

SVC 7

.*

....

•*

!Q

.*. *.

TRACK

*.

*.

*·*.SP~gi~IED.* ..

....
IAI'I
•
* *IF B!QUIEED. *

,••••,

.. YES

...

....

.

J2*

***.

i

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

. "HEADER *. *. NO
*.••*. PFCCESS!D."
LABELS
.* .......
*. *... ".*
i

SVC 0

lie

,•

: t •.••••••...•••.•.••••••. :

i

..

*..*

••

, **D4**··***,

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

.*. *.

*. *.
... ~N'I1!B!D
*. 10
"ROft
*. cres! .* ••••••
*.. *. oo· .*
i
* YES
, *••,*
CI5

R1!:S!T
*•
** SWITCHES
*, IN D'I'P *•
.*.****.* ••

SlC 0
IRITE LlE!L
n BIQUlRED ,

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

•

i

oo*.

ctCS1!Cl!I

'II"!

CBCLOS'R

***D3*"'*****·***·

.* nSER *. * .. YES
..
*... '" LABELS
......................... 1 ................. ..
*. *. READ 0* .*
*•.
*
, NO

.' .*.

. * CLOSE *. *.

****

DIS1l:

*.**

i

'q~S'B'!INt

******.****

,* C1 ,*

READ

,

i

....

..

,• ****
'ES •

TURM OM
*•
*** EOF
SIITCH
, IP R1!:QUIR!D , •

****.C3*·*·*·*·*·
.. "ODIPY celf
..

• ••• C2 •••••••••

:(I

i

•

,•

,**alt**·**·· ,

*... "

i

*. *YES
............... x*

***! , ••• ****."'.**

'P~AS~

NA ,,!

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

*.
x.
'.

'" Dl

R~TOFIN

Aq '"

*•.
*
, BO

,
,

.' .*.

*

..

.. YES

....,

"' .. REENTERING
..
THIS
.. '"

*. *. PRASE. '"

S)

NO .. '" CCB'lIJU!
............ :(1.
PEOCESSING

*****1\4**·*******
* CLeSE
INIT CP1!:N
•
..
ANt
•

..

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

Bl

X

*
,
···**A3··········

, *"'It*Al·········,
,,
UBOSDI3
*,

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

*.

•*
* ..
, *
He

t'BS

.·**ES •••• ***.*

*

SVC 2

•

*········t:*.*.::t***
'1i~6~~22
:
•••••••

.. BS ..

,_ *

i

i

***·*F1······****
'" '" SVC 7 *'" ...'"
"',..
... '"
'ilAIT
* '"
'" *IF REQUIRED. *

..

... ..."'.. "'' ' ' ...'"

'"" ,.. "'

'"

'"

•

'"

·*12***·*··
RESET
..
BIIDER
LABEL

I RDICATOB

NOnlKHLD

..

..

•

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

it

**

fIIODI!Y

CC'II 'IC

•

'~!CLOo;,!

tATA
•
*, IFREAD
:BEQUIRED , *

** •••• *****

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

i

**** ,
• J2 •

IBCRK!Y

***G , ••
*"'**** ••••
WRITE

•

,*
, ,

**··**G3****··***.
INCBllSE
*
•
KEY PCB
*

HESSAC:E

*

4308D
IF RBQURED ,

:

•••• *.:t.* ••••••••

HIlT LABEl

IF BEQUIRED

*....

:

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

TESTEO!'

..
H1

.*. *
*.
*.

*.

*.

*.

IS IT
EOP

.'.

"'. *.

.*
*•.
• '"
BO

YES

..

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

i

***.

..

i
***J ,.,1$.*******.
tlBI'!!
MESSAGE

4330r

IF REQUIRED ..

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

,
D1 '*
**•• ,

.• H2BEED *. *. •• YES
*··.H3S'VC
••••2 *.*** •
••
•
*. *oo TO
FILE
•••• oo ...... x*
FETCH
..
FIiOTECT ••
..
SSBCFIPT
•
*.

. ..

...

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

*•.
, *
BO

****
•
J2 *.X.
**** • *.
LOADEXIT

'

,•

"ESSG17

***.

··
•

i

it

it

,*****14**********
,
,
* SET UF TO ••
*FETCH
,,
,,

.*F3.i ••• u,

..

oJ2 *.
.*..
INOTBEB *.

EOPEXIT

..oJ3."''''.'''.*
RESET
•
*.. ~CNITOB
OPEl
•
*. •• PIRUIE'lEB
.. *.......... X.
*
'Ie OPEN .. "
* SWITCH
*
**.. .. **
•.*••• *••• *. *
* YES
••

NO

it

..*****K
.. 1*********.
..* ....

*..

....

SVC 8
PROCESS

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

. . . USER LAEl!L .. ..

.. *

* '"

i

**.*K2*i*******
**FETCH
SVC 2
..
$$BCSDI1 ..
*.***
OR !1iBCtOSl *
•• *:t:t ••••• *

****K3*i*******
S'9C 11
*
liE'IURlI TO
*
****.***
PROB PROG
*
•• ** •• **

..
•

.

, *••• ,
,* 13 ..
****

Charts

353

Chart LI<.

$$BOSDI5:

SD OFen

In~ut.

Pest DTf Eleck

•····12·.······· •
•• SlBOSDI5 ••

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

••••• E2.i ••••••••
• unATE np ••
••• Et tID VALUIS •••
•

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

...

"
*... *.

C2

.*.i *.

~330 OR

*.

33QO

*.

.."

*. MO
••••••
.•

*...
"
.. YES

i
·····t2··.·······
*
• sn

*

•
* CCMUOL3330
* 1M D'nfl UD ••
*••••••••••••••••••

...
i

12

.*

. *..**.

t!S

."

••
too

3330

*.

.."

*.

.."

••

*...
"
• 10

••••• F2.! ••••••••
*•
3340
*•
ftB CONTaOt •
*.. 35 S!~
'IELI)
..
*
•
•••••••••••••••••

...
i

G2

••

..

.."

.... *.

IUB 35 ftB

lYES ••

*.

too

3340

*.

.-

*•

.."

••

*...
"
* HO

••••• s2.i •••••••••

**..

SIT 33QO
•
"0 !IS
..
.. CClI'rIOL 'lltt) ..

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

:.......... x:
nS~PH

J2

.*.i *.

.. "
*. •• YESI.
••
*.
DTPPH
.*oo ........
*.
.*.
.*oo .. "

*

NO

.••••• K2.i ••••••••"'.. ····11:3·······.·

.. SEt leI CliDER ..
I"
CC Bt'Il!S
.................. X.
..

:

:

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

B!'rOlN!lO
CAttING

..
..

...... =~~11~1 ......

charts

355

Chart LM.

$$BOSD01:

SD OFen OutFut, Centrel (2 ef 2)

•••••
*Lt •
• DS.
••
•

•••••
• 81·

••
•

i

.*
• III

.'.
A1
*.

*. *.

D'fP

••

• ...... 2* .... *•••••

*

YES

*. *.. * .•

DISFLACBIIEJI'I

III

•

EXTBNT

•

i
·····e1 .......
·..
GET

III

•

•
lOB lID OJ
III
*!X"lERT ADDRBSS •

•

•

•

BY 24

:

GET

Dj~ELt~gtlaJT

:

•

BI'!EHT ADDI

•

i
····.D1.··.····
..

BOUDDR
III

•

ADDRESS O'P

•

•
LOGICAL
•
'TRlRSIBn SAVE'
• ABBA PROM PIB •

•

••D!Hi~iIT~tD. •

TO .ETCH
1SBOSD06

••

it

t2

.'.

'.

lEX'!

O,P

i

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

••

••

C3

.'.

•

• ••••• ' .

•

•• HO

EX'!!.'!

TYPE 1

••••••

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

•

• o

ic

o

··C3· i.. ····

•

•

$I

•

··C4 •• *••••
SIT 1'81

'OLUBB
I.CICATO!

••

•
•

EXT'EN'!
•
IRDICI'rOi
•
Ctl
••

•••••••••••

i
...
*.»4 ......••..
•
•
IRI'l'I1LI!'E
TO FE'ICH
'tiS80D•

iii.

.'*
* ..•
• Be

•

•

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

•

..U5 ••••• *•
5E'I
'BYPASS
SII'IC8

•

•
•

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

*

i

•••••
·tL ..

••••• I3.i ••••••••
•

SE'l UP 'lC

•

•

MmU!

:

.................•
:

•

.. *.

••
o

.....

:
~ .........

nnS!1

•
SVC 2
•
:PETCH n~~I~~D

•
•
•

.•

• 13·

i
• ••• 1!l" •••••••••

•

ISSUE

SlP.BCLIC
tlHI'l' IN
••
••
DT'
••

*.

••

i

•

••••• •

it

'.

tiD

••

• !5 •

SAVEPl

.'.

•
!1!:S.. '!X'!'!I'l'
••
.l.. ••••
lIt"!D!1) 1'1 .*
•• CtC51 ••

•

IIXTPHlS
•
•
:

~~

o liS

•• 0"
•
i
••••••••••• •
••••
•• All ••
:1 .......... :
•..... •

'SET BUASS •

•• NO

•

>

;

0' VOLOM' . '
•• 'OliC!t •

i

••

..

• lIS

'Ne • *

•

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

OSBRLELS

....

..
.. ...... *

..

Us~~ov

X

CREA'l'ED'
I.DIC A"'Ol

•

EX'l!II! ON
••••••
*.REI VOL • • •

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

··B4·······

.S!T 'tJB'EL •
•

• Irs

..

•

•

BESETI"D

•••••

..
*.

•••••'*•

• 1:115

••••
·LL·

....

••• •••*
•
BElVeLon

•
•

: •• It.!:2~1~~~ •• :

•• ~1 ••• 't..

LUq. LLKS

•
•
•••••••••••••••••
:1 .......... :

0

i:

•
•
•
•

•

•••••••••••

~~PERm;~

•

..*.

"O'OIYI
.•
·····A~··········
PHASE Ill'!!
•

•

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

•

GET

•

BESI!

IIDIeA'!C};
III CT? TO

•

IF BBQOlBED

i
••••• c 1••••••••••

III

•

•
UPDR.'lI
• DISU1CERENT

........

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

•

i
··13·······

••• *.82.! •••••••••

ORDU

• DISPL1CBM!RT

PO, nD O!

•
•

••••••••••••••••••
lDDllE55
•

• RO

*

*

GET

•

•

PILEPBOT

PIlED

PIXED

'URG!H RECORDS •••••••••• X'

*.

•.. ••••
aIJ •
•

·LN •

.....,,,.........
'-':80SDO 1
U1D tIS!

•
•

S OBROOTIR!
•
•••••••••••••••

o HO

i
·····Gl.....•.•..
•
•

•

nUULI2B

EXTE1I'!' 11 lTD

St!BOLIC

•

*
•

•
OIlI'I
•
••••••••••••••••••
•

•·····81.·....... .•
LOA
•••••••••••••••••••

VERIFY

i

•
•
•

SET UP
'10
I:
$$BOSXGR

•
•
..

······J1··········
,.
...
·. .
i

••
SVC q
••
LOID
,. • SSBOSIGB

••

••
...

·····G2·i•..·•....
:
·:..................
.
••••
. ........................ ..
• • ·.X.:X
!....
..• ···82·.··.·.·..•
tm. Lm

L01DMSG
•

•

SET DP

TO ISSUE

~mw

I

•

•
•

GET LOGICAL
tJ)l:IT II

•
•

o•

CCB

••

.•....
84.*.......• .•
•
••
••

SVC 7
IAI'I

••
••

: :1., 'l!QOI'qIO: :

.••.

•
•

•

IRIU1LIZE
TC 1'ETCR

PI!SSAG!

•

..

•

IOU'!'IIE

i
.···J2·········
SlC 2
fETCH

Jq

•
•

•

•

•
•

1882:

i
·····J2··········

••••l{1.i •••••••
•••••••••••••••• •
BIURCB TO
S$BOSXGR

'10

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

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

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

•

ltE1EllEICES

BEAU

'D'tSJI:

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

,.
•••••••••••••••••

•

SVC 0

•

·.
MSGPB1Sl

i:
···GII .....••
·•...

BEADDIS~

•

•

•

.'.it

••

•• DISAS'IEI

•. *. OC~»~~;D

•*.. .
.••
•

•

•

..

UeOnSGl
•
•••••••••••••••

•

.•.•..•..... X..
••

10

•

YES

i
····14·······*·
svc 11
R'ITU1!:R 'fC

•

• • .,115 •••••••

5t,

•

COltt'tICI

C~~~o~¥R

..

* • ••••••••••
lI'COlt
•

••

i

•
..

SUPERVISOl!:
•
•••••••••••••••

•
•

••• ·1{115 •• • ••• •• •
~!'l'QlllI'O

CALr.,IIG

•
•

••••• !~~II!I •••• •

Charts

357

Chart LO.

$$BOSD02:

SD Of en

••••

,

,'"

····11•••.•...•,

,

·
o

UBOSD02

,

•••••••••••••••,

cut~ut,

....

Volurre Latel

••••

•o ,q •0

0

&2 *
'"

,

i

.*. *.

&2
.oFECORD

*
*. :~TVd~6AIDA~~ ............ )t.
• • lAB!!.. '"
*....
•••••••••••••••••
.. YES
..

·····B1··········
i

OPEROUT2

*'"

'"

CCI'S

•
•

'"

*

*

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

.*. *.

.* PBOft *. *. NO
*... '" !lESSAG!
. . . . . ..
*. ROUTI.! .*
*. *.. '" .*
'" YIS

SVC!!C
CANCIl

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

SA V!
V'fOC
LtMt'IS

•o

•••••••••••

0

•
0

•

•

i

o. o·

•
•

*

••

Bq

. *. ••

DOES

!.lT1JBIJ:

•.

••

•• OV'!RLAP ••

NO

•• 0

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

•. o·

•• ''laC ••
• t!S

.*.x

i

C1

···.B3··.$.···.

•

•

ic

0

RELOCA'!!

..

*

··A"'·······

•

Ne

*

i

SAVLIMIT

*. *.

• '" FeGND ARD

••••

C2
••
.....
••
VOL
•• YES
•• SERIAL 8UPlEI8 ••••
IBIS!.'! ••

.0

.. ..

0

.........

••••

*

• •••• e3 ••••••••••
•
IN1'1 DtAE
•
•
AND EX-I!J'I
•
X.
11TH vot
•
•
SEBIAL
•

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

WO

RUPlElll

··C4·······
i

o
•

•

•

•

•

*

TU"R OR
•
BY1?ASS
•
EX'!!"
•
IliDICATOR •

•••••••••••

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

i

•

'"

·*D1·······*

*

RESET

RETURN

'" IHDICATOB '"

•••••••••••

'"

'"

,.i•••••••

FOB "ESSIG!

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

'"

*

0

···Dq············
i

···D3.... •• ••••••

*.

•• CORBEe'I
••
DISK PACR
!!CURTID ..
•

•••• E
"'RE'lQRN 'to tOIN'I*
'"
INT!RROP'TED '"

'"

•••

D2

'"

ftESSAG!

'"

.. .. *.
.0 .. ..
......
x

illONGPAK

NO
............

J

•

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

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

YES

o

VTOCIDDB
i
···.·E2··.···.· ••
.INIT. COUNT AND.
•
SEEK ADD II
•
*BUCKE'lS IHD CCI'
• CHAIN TO RIAD •
* FOUAT q LBL ,

i
••••
*

• 81 •

o

•
•

*

....
....

G2
• ·liBCORD ••
•• FCOND ANn
NO
••
IT IS A
••••••••• X

*

.
.

0

X

*REIDDISK

LZ.

'"
RIID
'"
•
vatu,,!
'"
'"••• u· ••••••••••••
LABEL
'"

•

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

*•••

H2

YES

i
.*.
••

.•
*.
0 I~ IS JH *. NO
*.• ••
OSLVS
.* ....
PACK
••

........
•

.

o.i.* ,
,
••••

.. &2 •

•

•

o

•

DA'!

•
•

•

i
····H3 ..•••
•• ••

...............
SVC 50
CANCEL

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

SYC 2
•
PETCH
SSBOSDOII.

•

: •• l!.:~i~!:I~ •• :

YES..

••

.*.i *.

...
.....
SlSLlI1{

OP!.

••

••

••

o He

Ct.!AlttBL

i

•••

····Gq·········
....
: ...............:1 ........•.•. .....•.•
... .

•

SVC 2

s.i~§~a3

•

NO ••

G5

••

LABEt

~~~~¥il~
•

••

lES

··.·a5•••.••••.
i

0
•

*

•
•

...,......,......

*

51C 2

''ETCfI
UBOSDoe

*
•
0

YES

•• J2.i •••••

*

TURN eN
•
OAtS" Blor
•
• IN 'POB!UT q •
•

LABEL

•••••••••••

•

R2.i ••••••••
.•••••-.-.-.-.-.-.-.-.
• VRITCISK

•
•
•

··.G3··.····.····

0

lABIL ••
•

·····a1········..
*-*-*-*-*-*-*.*.*

READ'OL 1

•

*.
*. 1.

81 0

.0

•• PtUtu-or " ••

: •• ~!t~':~Iil ••• :

*•

*'

•
•

i

. *. *.

i

'"
•

0

unRUO.

····FIt·········.1.. ..... .•. ..•.

•
•
•

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

'"

i

CAtenATE

p~

LZO

IlEAD q
FORKA'r
LABEL

•

*

o
o

2··......··
•·····'
-.-*-.-.-.-*-.-.
0FEADUSK

INITIALI ZE
cee AND tTl
POB DISK

·····ES·····.···.
**
*

nNorout
•
•
,

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

*•

*
'"

SVC 2
'BTCH
"BOSD01

•••••••••••••••••
i

*·····G1·········.•

.···Eq·····.···
i

•••• *

ilRI'tE BACK
FClilUT It
LABEL

LZ •

•
•

.,

••••••••••••••••••
:x .......... :
x
••••*
*
•o A" *•

••••

Charts

359

SD Of en Outfut, Extent overlap (2 of 2)

$$BOSr:03:

Chart LQ.

.*.**
*LP '"
'" J5*

***

........... x:
:CREATIXl
x

***"''''A 1"''''**''''''''''''''''''

*

'"

*'"

CREATE A

'"

1 CYLINDER

..

'"

EXTENT

'"

*********"'*********

****

** Bli **
**"'** *

x

i

. *. *.

fl
• '"
IS
EXTENT ot
NO
LESS THAN
."' ••••••••••••••••••
BUCKET Lt. '"

*.. *
*.

*. *.

•*

*.. **.

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

*-*-*-*-*-*-*
. . *-*'"
'"
READ
*****

FCIHUT 1

'"

ON

~lP

FILE

*. *. NO
.* .....
.*

•

*****C2**********
"'READers!':
LZ.
'"

.*. *•

DO A
DELE'!!

*.
.*
i
*..
*
'" YES
*****
·Lil •
*"'**
* A3*
*• eli *.
*.X.
* *
***** • •
JiEXTPH'S
DELETION
X
******ClI**********
Gl!:T ADD~ESS
*
* OF FORMAT 1 *
* LABEL TO
**
*
D'€LE"l'8
*
*
*****************

**** '" •
*LP
•'" K4 **. I.
****
.
FILlOVLP
X

x

Bil

'"

LABEL

'"

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

"'IP '"

'" G3*

***

i

*****D 1**********
'"

•
'"
••• • :

i

INCREJIIEN

INCREMENT

'"

LL AND
It 1 R~i~I~~D

'"
:

*

t2

*

***************"'*

.*. *.

*

WRITE
l'!ESSAGE

42gF~9~3i9I ••

i:

NEXTREAE

*~*D3~***********

· '" WAS *. *. NO
*..**. FEeORt
.. *........ x
FOUND .*
*
*. *.. * .*

*****Dq********~*

*

*-*-*-*-*-*-*-*-*
* Rt"D LABEt
*
* TO BE DEtE'I'!'!D ~
******************•

YES

it

***"'********
riESSAGE
*
q.4I10A OR

'" **El WRITE

Q9QOA

*

NO •

x•••••••• *.

·*
*.

E2

~

*.

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

. *. *.

IS Aft

*. ••

'1YPE

••

FILE

.*
*..
* *lES

i

Q~Q9I

***~~*"'********

0

*

i

• **** *

•'"

****

*

f2

.'. *.

it

*****'Pq**~**"'****

. * .* ISAM *. *. NO

*.

*. *.

EXPIRED

LOAD

.* . *

•

•

'"

DELETE

'"

*
LABEL
'"
*****"'****"'**~"'*"'**

i

*****
*LP *
* 1:1*
• *

i

MOVERCM

*.

.'. *.
Gil
.* POIN'IE~
IS
*. "'.
• YES.*
.... *. "'. TOtABEL
N!:XT
.*
.*
*. *.. *. *

*~***G3**"~***"'**

· * IS *. *. YES
*'"
*'"
teAD
*..'* EXfIFIATION
.~ ••• ono.X*
I1ESSAGE
*
*. DATE UP .*
*
449EI
*
**.. .• **
*
*
*****************
•

L'l*

*-*-*-*-"'-*-*-*-*

*

X

*.

*WRITDISll:

*......

*...
*
* 'YES

G2

YES

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

it

B4 '"

.it' .*.

"'**'!!")***
"**"'*"'*.*
WRITl
. * WAS *. *. NO
"l.ISSAGE
OF
*..* REeGED
.* ........ x
QS09I
*. FOUND .*
*
*. *•• * *
"'****************
Ell

*****E3*"*******
sve 50
•
*
CANCEL
'"
•
*

.*

t'Z*

*READDISK

o

•

NO

NO

x

0*
*. *. NO
EATA
*..**. SECORED
.* .....
FILE
.*
*. *.. * . *
i

*
44981
*
•*****" ... ******~****
it

. *. *.

*

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

.

*. *.. *. *

* *
*

PlOVERCfIt

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

YES

............. x:
i

:\IISGWRITE

***Jl WRITE
************
· * tATA *. *. YES •
I"lESSAGE
*
NO .. *
QQQ.4A OR
X......... *.
::ECURED
• * ...... .
4944A
*
*. FILE .*
J2

**"'**

**LPD1**

i

.'. ".
R3

it

*****82**********
*
•
*
LOAD
~
* IHSSAGE
"

***:t*J3:t***"*****

**'"

*

*

SET UP
TC FE'ICll
$$BCDStnl

*'"•
*

•

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

i

****
*'" Ell *'"
* **** *

it

****K3*:t*:t:t****

**'"

S'VC 2

FE'ICB
SSBCDSMlI

****~**

••• *.***

*

**

charts

361

Chart LS.

$$BOSD05:

o~en Cut~~t,

SD

lcr~at

3 Latel (1 cf 2)

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

•••••
•
115 •
•••••
•

•

• 12 •

.........••
•• ····11
UBOSDOS
•••••••••••••••• •

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

•

••

•

B3

•••••B'S.! ••••••••
U.
.-.-.-.-.-........
.

••

.nnCR

•• IS
'.
•• !BIBI AI ' . US
•• In!! SPOt ••••••

•

ec,'s

••••• •

..

i

IILOC.U

•

•• snl nDB!SS ••
•
0' 'RIS
•
LABU
••• ••••••••••••••••
••

!] •
•••••
•
:··············;~;;~;~; ~i.

......
,..........
•
•

OPlIOO~S

'tl2n~lA5.1........

LlS'fIl~.A2.i .....
•
SIT
•
' . LmI~:m'1' . '

•

•

"'~ t ml~I··
....

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

•

•tL'l'
•••••

• 10

!tu SiC'f

•

•

lOW LAlit

•

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

i

• ••
A"

•

i

••••• e3 ••• • ••• •••

•

•

: lliUsnZ.l¥ :
•o

Locanb

••

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

.* D'

.•.i ••

.'"S

too

•• IO

•••• JpgSIB •••••.•••••• X.
*. too

._

.-

•

···D2············

•

•

i
..··12········.
Sle 50

CIICIL

.•.
i

• :'
too

LUlL

·:.~~ •••••• I ·

'!OC.*

*. too

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

• US

•••••G1.i•••••••••

• ADD , ~o UB
•
RORBI. OP
•
!XUI"S
•
01 "BB
•
'OLOBI

•
•
•
•

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

.i •• •
••••• •
o

• 12 •

:~m~m_._._m

10

••••••• :

·.UUt.·

··.·;15

•••••'!3.i••••••••

•

•

•
•
to •
:•• I1cunu
Il~~.nwr :
••••••••••••••••••
:1 .......... :

:•••••••••••••••••
umu
•

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

•

GJI'f~iUl! ••!........

:•
:

mIIIIl~~~
IBI'f LIBlt

:•
:

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

•••••".i ••••••••

···.2············

•

._ .-

•••••Ds.i••••••••

••

• ••• IUln

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

J' IS '. *.

.i' .

.•.• Us •.•.

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

• US

.*

D]

:!I!~!i!I_._._i!:
• JUt POIRA'f 1 •

•

LUlL
•
•
.i.. •••••••••••••••••••
•• B3 ••
••••• •
i

••••G2.i
••••••• •
•
nc 50

G4
.'

..

.

calCIL
•
••••••••••••••••
•

:•...... '5.i••••••••:
ImI~m,

• ,i!R ADD . . SS

•

:•••••••••••••••••
°l.m :
•••••,s.!••••••••

•
•
:• ,8~mJ
:
LABU
••••••••••••••••••••

t.

'. ' .•• 10
*.'

.i•.
• •
••••• •

•
:

t

••

••
lAS
IICOID
•• ,OUlD

t.

•

III!!

' . tiS
•
•••••••••••••••••• 1.
.'

• A5 •

•••••
B3.1 •••••••••
•

: RlUl

"n :

I'J)t~.TO" •
••••••••••••••••••
•

•

.'

3]

J.

' •

'.

••
IS l'l
'. 10
•• I pcnl2' ......

'. LAIIL ••

'. ··.·;.S
.'

i
•••••"s ••••••••••

,oun]

•: o~'ls!ttUSS •:
• 01" lAlli •
•••••••••••••••••••

•

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

•

····i,·i.......
tc.SQ

•

.i..
•• A2 ••
••••• •

.welL
•
•• •••••••••••••••
•

•••••X3.! ••••••••
mmm_._._~!:
o nnl UPUUD •

: ,onllL'

:

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

:1 .......... :

.1 ••

• u ••
•• ••••
•
Charts

363

Chart LU.

$$BOSr:06:

SD open Output, User Labels (1 of 2)
.t ••

••••• •

* *
*• t.* •
• 13 •

o

•

o

····Al·········
SSBOSD06

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

•o 14 ••

·····Iq··········

ftOVEUTLO
i
•• ••• 13 ••••••
0

•

i

PILE1DD2

•:lliil¥'l~gl:~l,*••••:
• !OV 1ID1CI'IOB. •
•••••••••••••••••••

0

• SE'! UP COOIl'!
• KEY IND DA.'TA.
•
?IBLDS
• tHUIlUZE
•
CHilli

•
..
•
•
•

••••• •

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

• H5 •

••••• *

.......... .1:
OPF!2il~B 1.i••••••••
o
•
*
0
.RELOCATE CC", S ..
o

• lIES!'I VOLO"!

*••••••••••••••••••
i

•0

.. "

.0.

IS
THIS 1

C3

o. MO

••

•.•.

*..•
.. YlS

..

o

BESET

...........

.. •. .*..

i

.0.

D2

..

0

..

0

,,* . "

* ..

IS

*. o.LAE!L
2321CI
*0

.·** ..

CLOSB!ON

*. *. HO
A .*0 ......

.*

.0

••

•

S1C 8

••

.•.•....

••

!11' 1)0

••

: :US:~1J~flit : :
••••••••••••••••••
•
••

i

i

·····DS ••••••••••

D3·· •• ••• •••

•

It'!S'OJ!

o

.,

BBQISoriBS
'fIBIDED BY
Oi!1

•
•

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

*....
*
• YES

•

100'1'111

i
····.c'S···.·.····

BO

SET 'fII1LER
•
ABD EOl II:&S • •
* IRlT '10 !ITCH •
o
UBCLOS!
0

•

t1S!1t tAJ!It

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

••

~f~~I:~

*

nnllLI2!
lOB •

~tGUT!BS

•

•

... YES

i
•··n'·······•
RE-ERTBt
IHDICA'l'OR

.0.

.* 'IIUILEli
NEED
* . ••

·.PRAS! ••

o

o•

•

i

*. *.

........ ¥IT~H~lls ............................... "........ .

..

•

.IIl HIAI''''
IRDICATOBS.

*
:nm!Um~C2 :
•••••••••••••••••

0

C1

:t(Jli2~::1!'5.i ••••••••

•••••B3.i ••••••••
•
•

0

•
•

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

:1 .......... :
i

..

····E1·········
GO TO ADtR

o II UGISTlR 5

..
0

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

i
•• I2···.**.
*
o

..

..

j

i
*· ••• 13 ••••••••••

DESITLEL

*•

0

SET 1111

..

lABEtS TO

..

ceORT CP

*
5
0
•••••••••••

..

BESE'I 'VTCC
LIE'lL liD.

•

•

!5

0

ns.*

•

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

•

*

SI! INC FOB

NO USE~ tEt IS •

•

• • • • • • It • • • • •

*.* ••

.0

..

WRI*!;~~I'Il.i ••••••••

i
·····F3·········.
tz*
.-.-*-.-.-.....
-.-.
0

.-.-.-.-.-.- .-.-.
• nUB usn *

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

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

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

•

•

COUNT nnD

.*

.*

G2

•
•

LeOR lOR
O'ILC

..

i

III.

*. III. ri:~l~

*. *..• .•

*0

.*

1110

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

G3

• o.

••

••
1115
••
PIL!IUBK
••

i

.. YES

•••• 0

. *. *.
B2

.*
•.
. * IS t~ *. HC
*.
tTl'S])
.* .......
*. PILB
...
*.
.•
*..•
.. YES

··032···i •••• *
*

'SET INDIcnOR'
TO }:'BOCESS

TRAILER LABELS.

.. •. *. *..
POUIID

••

.•.*..•

HO

•
lIJ!SE'l'
•
PROCESS BlADER.
• LBt UD. IBU *
.. 11111'1':£ cell •
•
CHAIB
•
• • • It* • • • • • •

it
••• *

*• BS •*

**.*. •

•

i
··"5·······

.

51'!'

,U~i&
=~BE
LUltS
,

•••••••••••

•

.'.
0

•• RAI~Btti2~Bn ••
•••••••••••••

••••• •

••• H3.i ••••••••••

.o.

••

••

J3

. *. o.
ABE

'IlIAIt!li

••

i

.'•

U

••

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

..

LABELS.

o

*

'.

•• LABELS
•

•• BO

..

.. •.. *..
511 FOli

BO Plott!

••

.o*

* ..

.*

ell

....

•

.o . . . . . . . . . . . . . . . . .o • •

01'F

JII.'i ... *.
VEIlE

.. ......

••

lila

*. •• LIEELS
l'r • * ....
CLOSE ••

•.•. 8,~t~l~i .•. *....

o YES

• YBS

*.

:x .......... :
i

•

•

0

• 14 •

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

**K2**·····

tlBEL

j

..

•

La.

•··GII·······
•
•
1NCBEItEN! •

•• lES
••••••

*•••• •

it

'.

it

•.

• 13 •

'"

•

..
•

:PIIEPlIJI{

it
.*.
••

REED

.IRI'fDISlt

*WllI'1'DISK

•

...
* •.•
• Ie

i
·····P2··········
: Eumi. snIT! :
INUIALIZE

uSE~

ROB!
.0
*. InD
tHUS .0

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

.*. o.

ee!s o.

.. ..

.*

i

it

•• 11;3 ••• * •••
OBESET '1RLE •
.LBt ctest IBD*
.. 1HI'l'IALIZE
•

*.

liBtfl~~

•••••••••••

••

DCEIT:~i:~·········

·t, ..
..
••*
Il~·

•

:

•

•

•

i

*• ••••
!'5 ••

••••••

··'kll·······

SEt
•
LAB!L S1I
•
FOR 10 "OB1!l •
LABElS
•

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

PlLBftlRR: x•••••••••••••••••••••••• :

x

•••••

·LV *
• 11 •

•••

Charts

365

Chart LW.

$$BOSD07:

SD open

CutF~t,

Extents frCR Ccnscle

••••• •

.. A,q ..

••••• •

nSTHRU

•····11········· •
•

$$BOSD07

0"
••

*.

•

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

i

Aq

.'.

*.

" .. LID

t.

EIT'B.!

*,,",,0

*0 PROVIIlED ••
*.
.•

.* .....

*0 ••

.. 1115

i

i

OPEHoon

BI&

••• •• E1 ••••••••••

•
..
••
..

•..

RELOCATI

eel's

.'.

.. "

..

*.

*0

TtH~!C'
• •••• SI5 ••••••••••
..
..
'I01!
•
·:.~~~~ •••• 1: mClqmSIG! :

. : ' tm¥S
.. .. IJ.C'BEDBll ••
••
••

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

•
•

IfC IftP1COT
All'!A

•
•

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

•• ••

• NO

i

•••••c

1.i ••••••••..

.. IBITI1LIZ!
•
eel' aBO
• nSnOCTIOBS
POB !B551GE
•
•
QQ501

·····c,,··········
•

..
•
•
•

CORVEttT

•
•
•

• 1)1 '"
•

•

IJ.lf1l1'l TO
BIHAU UD
STOil

•
•
•

••••

0

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

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

·•....•' .

o•••• •

i

••••

.. D1 *.X.

tz.
.·····D1··········
-.-.-.-.-.-.-....

·..•... D3............

*

• •

..

TYPE!SGl

X

'SO!ROQT

• TUE !ESS1GB
..
ABn RIAt
D!SPORS!

••

S9C 0

••

: : ss~8~~~:;1 :

•
..
..

YIS ••

• •

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

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

i

'04 .'. .. .
...
:x....... .•.•.

i

.*

El

.'.

*.

*.. '"

••••!).i
••••••• •
•
BIUCH

• ••• 12··•••••••
SVC 50
eAlCRt

.."

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

•

•

ore

•

•••• I='~~iii: ••••

lDDSBQRO

.. "

• '.

*0

*.

tES

..

•••• '2 •••••••••
SVC 2

•
•
•o

..

X:
•.•. *m~i!~
.• ······T·
ol!I~~m!~ :
0.*
.
• .............. .

• 10

i

....
Gl···..

.*

CARCEL

'.

.. ..

REQOBSTlI

•..•

ft1

i
.'.
••

•'
DBVIC!
••
1
••
2311

*.

•
•

o

...

"'

...

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

....
.. ..

DU!PVTOC G2 •••••
•• !IS

• . . . . G3 ••••••••••

••
TrOC
•• YES
•
•••••••••• X'.
D:ISPLlY
•••••••••• X'
••
•• REQUES!BD. •
•

* . . '"

• 80

..

• •••• 11) ••••••••••

*...
.. ..

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

•

• 10

..

.•

•• YES
••••••

••

o BO

··.11··i:•• ·•.
RODIP!
tlSD

ADDBRSS

CONSTANTS

•

•
•

i:
····62··.···.··
!lC 50

51!. UP
'10 ISSUE
ftBSSAG!
QQQ51

...
•
•0

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

*.. *

'.

1:•

J_ .0 • ••

••••• ,4.i ••••••••

GBTDSpt!

•.

'I"l'OC

• 10

• t1IS

i

.1

••••

•• lUX ••
•
A!SIGR lilT
. ' IORBlBS o. we
• n n n IOftElf
' . 0' !XTlHTS •••••••••• l ' AID ~un 01
•• Rlle!'!D ••
.COIl50L! 'P.I'IIR'
lInenCl

• BO

••

••

••••

.
B1 •• x.

•
0
••••

ABOBTJCB

'.

•'
' . YES
•
' . RESPORSB
•••••••••• X'
*0 BRD.*
..

*.

23~1

••••
·IlL·
•

EOBBESP

'O!VICB

*..•

ItUTIALI2!

POB

$$BOYDB~

•

•
•

•

•

•
•

i
····Gq·.·······
SY~ 2
P1'rCR
UBOftSGl

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

•
•
•
•

•

i

• ..... 5 •••••••••
nc 2
0

o
•

n!CB

•

•••• ll~~2~£' •••• •

•

•
•

•

.....".".......•

•

CIICEI

•

•
•

•

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

:x .......... :
i
·····11···
..·....•
•

tOlD.OIK
•
•

•

L01D
WOBK

BEGISUBS

•
•

•

•
•
•••••••••••••••••
i

••••

••

.....*•

• 14 •

Charts

367

SD

$$BCSr:09:

Chart LY.

O~en

Extent tc r:TF

Out~ut.

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

.*.

·*·*A , ••• "' ....**

* nBOSD09
*•
•***.*********** *

'"
III

tI!!ITS lin
SET REAt
LlflI't TO 0

1!2

VEBlFyep

• •••• »3 ••••••••••

.. ..

..
•
•

•

x

. *. *•
C1
.*
*. *. lESX.
.*
*.
DTFPH
.. *......... .
*. FILE .*
*. *•. * .*
NO

n, . *. *.
. *VERSlO. *. *. YES ..
.*
*.
1
••••••••
*. TABtE .. "
*. *... " .*
* NO
i

*
·*·**El··········
*
*

'" "OVE COH'IBOL
!,~C'lOB TO
..
D'IF

'"
..

•

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

Ill'll AlI!!
ccv ellAII
PCB lIBDIBG
'OFft.n 1
LAEIL

•

NO

i .......IZ..

••••• c2.i ••••••••'"

'" IRI'IIALI2E
•
JOE CONTROL
• DISK ADDBESS
It
SAl! .lB!A

......C3.
.R!ADDISfl

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

•
•
•

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

• lIND FC1Hn'r 1 •
tlBEl leE
•
tT!CP FILl
•

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

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

x

.* . ••
D2
.* liAS •• •• 110
•• EXT'Elf'l
*. ••ER'lIBED
BY • *.•..
COR SOLE ...

.. .. .....

i

D3

.. lB5

•

SAl'!

..

PIOVE HEAD

LIMITS IN

..

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

DorF

...

**

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

•

..

•

AS
REQUIRED

............
SE'r VADIOUS

OPBI
•
·IRtICATORS •

RECORD NO

'"

...

LIMIT fOR

'"

AND LOIiER

'"

LIoes
•
•••••••••••••••••

•

•.*.* •

.. 12 ...

*

ftC'V!

S'C 2
'ETCD

•

•

83

•••

.

••

.: ..*.UB~~S~I~RG
*: .=~~~
CPI'RID ••

•
..

...

•• ••
•

*....•

J:3

.•

LOADEXtT

...

•••

ft4

HS

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

:0 !SBCSDC~ ... .

• NO

i

••

SIT UP

*•

.........,.......

:*

t~B~~l~'

tIS
••

.: *'
I t . .• ...

• •••

• 110

·····J4···*······

SITBIIT

• ••

•

...... X.:·•• 'tt~~P-'!c
OP'!B

.. Y!S

i
.*.
••

*·•••

................:
SlC 2

tt~a~l.
x

.••.

••

x*:· '10 ~ii:a~DC1 *: .~?
••
• . . •...

Be

*.··GS ••••

.

.••.
*'. ••

.*
•. ••
YES.. BETOBB

SIT ut:
•
:REt&RI,~8~~~~S

•

:

YES

.• A·.

...... ~i~~ii~~ .. **.·

••

•
..

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

*

....*
.....

•••• *J2*** ••

Sge SI)
CA'RCII.

FIIEPle'!
•••
G3
••
•• BO
...
JYLI
•• BO
•••••••••• x*.
PPO'lIC'!
••••••
••
•• SPIeIPI!t.·

····B2...i ••...*••

•
..

•
..

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

YES

i

....

YES •
........ .

lCln LIftIT •
'IO t'rE' 'fBOH •
·ce!ftUneAiIONS
•
BEGIe.
•

...*
*.. *
•

····!4·.·······
i

•.

i

..

*

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

i

.••• •••*

.....

*.

nSSAGE
44011

• BC

....
•••

~UTE

*

····. "3··········

•

••
OSl!:B
••
LABELS
••

*···*H
,.*** ••••••..
INITIALIZE

•

··'P2······. *
i

..
...

•

G2

i

!DnOLH

x·

.*. ••

••
EBD cr
••
ctLIBt!B

i

·····Gl········.**

........... x

YES

.... ....
.........
E3

:E1TEI~fttiiliO!BC!:
lInTF

i

*
*

.•

i

i

..

•• BO

FOUBD

•

•••**E2.i ••••••••

. *. *.

.* IS IT *. *.NO
*.. **. AEXTENT
TYPE 1
.* ....
.. "
*.
.*
*••
*
'" YES

**·D4············

••

IAE!1

*. •.

:x .......... :
F1

'"
•
•
•
•

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

.*

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

it

IRlTDTP

. i*. ••

• '"
••
•
•• SISLI!
•• YES
•
••
CPEMED
........... X.
•• ALBEltI
••
••
•

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

•

III.

15

*...
"
* 'lBS

i
•••", •••
•**·*··B1·t."'
POST EI'l!NT *
..

12

*.
RO.'"
rr
*....
. ..........
*. SISLln\:
*. oil. OPEN .* .. '"
••

:•

i

••••Jtj •••••••••

•
•

..

................
SlC 11
F'!'lU". '10

PROBL"-" PRe

•
•

..

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

•
•

i
··.·K2*· .. •• .. • ••

................
SVC 2

JE'rCH
1fEOPLF'r

•.....,3.i ••••••••

•

•
•

..

*•

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

SET UP
B!TURB'

ADDlI;!SS
TC UECPlB

..
•

..

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

i

•

****Kq······*··
svc 2

•
•
"E't'CH
•
• •• **
"BOStCl
•••••••••••

*

Charts

369

Chart MA.

SD

$$BCSDW1:

Wcrk File, Vclurre latel (1 cf 2)

O~en

o

*11:"$ 0

*.. ****
0
A4 '"

....•

• 13 ..

•
• $$BOSD.' ••
•• •••••••••••••••
•

0"

.."

*.

*0

A3

. *. t.

ANY
!ITEJI'IS
CPERED

*.

•

****

i

ANYOPER

• ••• A1* ••••••••

o

i

BELOWFE

*0

.*

*... *YES
.......

*

..

.. "

o

i

*...
"
• NO

·*A4*··*···
err

o

0

SET· CPP'

•

IGNORE

o

****.

••••••• *** •

•

0

..

e ..
..• .. G1*
OPE.IRK1
••
'.

•• E1

•

o 0
o

i

*.

*. *0

1.'l'RY

.... YES

nOB BSG

... ROOTII. ...

*.

...

to

..

•••••••••• x*

•

•••• S2 •• II • • • •,• •
~CIRT

•

IUnROPTID

*

GC '10

PO'li !'JESSIG!

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

CHKVTOC

i

SAVEUNIT

•.. s!'r
SY!HOLIC
UNIT IN tllF

*'..

:

:

*.-NO

IF BEQUIBED

IIICV1!UNI'r
**···135*·*.···*Jt*

·****Bq ••••••••••

..
..
'"

..........."'.....

•

i

CONTIN

***·*83***···***·
*
•

INITIALIZE
'to 'lES!
DEVICE

**

•
..
'"

VALIDITY

o

**
*

IlfI'tIALI7E
e'FEW ceE
lITO
•
• SnU!OLIC 0llI1

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

••• 1*

..

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

*

* .....

*

o.

o

*

* C'5 *.1.

·····el··········
•..

DLBL
ADDRISS

•
..

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

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

••••
*RB"
.. J2

•

_...
BYPASSX

*. x.
,.. .x ............... ..
X

•

*.

·····D2··········

ot

Jl

.'.i

••••

YES

o
0
• 13 •
o
0

••••

too

YES

o
o

it

F1

.0.

.i ••
D4

••••

ISSU~98~iSAGE :

•

IP RECORD
'"
*••••••••••••••
NOT FOUND
*.*•

'"

D3

i
.0.

UBI'I

*. "' .

IGNCE.U:

*. * •• * .*

**

o
o
o •
.. nil *. X.
o
0

••••

....

•

*.

• o.

•• ."

POSTOPEN
•

•
•

'"

i
**.*·n5*** •• *****
*R1!AtDISR
f!E*
*-*-.-.-*-.-*-*-*
* R!AD VOLUBE *
•
LAB!I
*
**.*.* •• *••••••• *

X

TO. ISSUE
"ESSIGE
q983I

o

'"

..
..
'"

•

0

•

: PJaVESY"

..

..

•

SE'l ON

*'"

IGNCli!
INDICATOR

"'

0

..

..

49601

i

it

···**E4·1io:·····*··
* CCB lOB ..

*
*

***·*'E5Jt·**··****
*
S1!:'I UP '10
*
* lSSU! "ESSIG! *
* 4906I IF NO Jt
*
S'I~NDllit
*
• vel 1 tUIL •
****.* •• **ot*** •••

!!OVE ST!!BOL!C •
URI'!' TO
•

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

*

ERROB

"ESSIGE

•

•

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

x

•

****'"
*!lB
* nq**
"SGPHAS 1

•

NO.

. ..... *.

II D'!P

VOL 1

•• •. LAE!I .* •*••
*... *

*

lES

i

i

SWITCH

.0.
'"s *. ..
...
*
*.
i

*o •

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

.0.

•• G2"'*···** 0
SIT OPEN

•

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

•• lf3.! •••••

• ••••:P3*** •• *****
*.
*
SETUP·
ARE
*.
NO
* '10 ISSUE
**••••••.
EXTENTS .* •••••••• X*
MESSIGE

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

.

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

••

'"

NO

SETUP

..
..
..

82 *
•.. ****
•

0

o·

···**nq··········

LOAD!SG

.....,... .
••••• •
.....

}l2

i

..

.. YES

i

"'.

•• ****.*.*
*····.G1
SET UP TO
*

:

.i.*
.***

.*
*.
IS IT
*. YES
.* .*
*.••*. THE
LAST
EXTENT
.* .* ........ X*. *.INl CPES.*
**.
.**
. *.••
.*"
••
* NO
* lES

Roncc.

..

'" *. *0

_oo

•

LASTXTRT

NO ."

o
0
.. All ..
o
0

VALID
*... *1m
*..**. SYPIBOLIC
.......
URIT
...
*. t • • * .•

0

*

i

-.
*ftSGPHlSl
RE.
.*
t.
*... *NO
'lYrE ERROR
'"
*.0"*. EYPASS
THIS
....... ..........*-*-*-*-*-*-*-*-$
EXTENT
.•
P.ESSAG!
..
o
0
*. * ..• .."
i
***** •• *** •• *****
•

o

.. SET SYI!ECLIC
..
UNIT IN
..
EX!!lIT

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

.. D2 •

..

D1

i

TESTDTF

*•

LOAD

•
****
•
• '!OVECC1l9
J[
COJIIPDEV
0*.
C4
*.
*****C5*******·*·
*
SJ!:'I
tiP
'Ie
0" DEVICE *. *0 Irs • *
'ISSUE
**•
*..* CORBICT
• * ••••••
** 1t906I
PI'!SSAGE
III lio *
*0
* RICORD !'COIlD *
*.
.• .*
.** ••• *.* ••• *.*.*
*.

·····C3 . ······**·

i

•
•

i

G5

*.*.

• *BYPASS

VOtU"E
*. YES
*..*SEIII)I
NUIIE!F. * ••

•

oo ..

*. ... CH!ep; .* .*

*'"

i
******
Jt o A•1*

* •••
o

.,,!!

JO

o.

• H2 *.X.

i

····*81 *** ••• "'*.*
ORBlDtISK
BE'
*-*-*-*-*-*-*-*-'"
:
'"

RII~E~~XT

:

RECORD
•
•••• *••••••••••••

i

••SAVE
·.:r1*·*·
••• •••0
**·
EXT!BT
*
ADDRESS
'"
•
INI.TIALIZE
'"
*o SYMB.
CCB WITH
*
ONIT
0
.******.** •• *****

... *** * i:
82 . *. *.
..83***.* ••
•*
••
.RESET CPEII *
••
ANOTOID
•• NO
• MONITOR Slit
'"
•• *~I~~Ei~DBE.*.* ••••• u.X."'LC~~ ~I~ ~DDR ••
••
•*
•
'"

*..
"
* 'YES

•• *••••••• *

i

*··**.:r2*···****·
svc 2
'"
•
PETCH
'"
•
UBOPIN
"'*•• *.**
••••••• 0

•

·*·*J3····"'···*
SVC 11
EXIT 'Ie

VTOCADDB

***··H5**********
** '10S'!TISStJ1!'
U'F
*
*
"ESSIG!
*
*
*
4955A
•
*
•
.****.*******•• **

it

i

•
'"

o

it

•

•

tlSEli
•• Jt", •••
** •• ** •• •

** ••• J5* ••• ** •• **
*"!.SGPHAS 1
BE*
.-*-*-*-*-.-*-*-*

*

•

•

'[1Pt l!BFOR

'!'!SSAGE

..

••

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

it

•

i

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

o
SET OP ~O
.. ISSUE !I2SSIGE
o
~9q7A lOR
o
!XTERTS ROT
o OR SUE ONn

0
•
•
•
•

.**. 0

*o C5 •0
.***

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

o .*** 0

•* D2 •III
**"'*
Charts

371

SD OFen Work File, File latel (1 of 2)

$$BOSDW2:

Chart MC.

o ••••
••••• •

*• ••••
•
14 *
*••••

0

• A5 •

0

GET!~~!iA4.i ••••••••

••.....•.•
•····11
•
SSBOSDI2
••••••••••••••••
••
•o

'PILE BlPIRl'lIOIO
• UTI USIBG •
SYSIIC

SB'r tiS!
EX'lEI'r

•

o

III

II CftAIB

n~nS~Oi

i
.····AS·.·····.··

••

••

•

IJDICnOB

•0
•
0

SAVE ItU
0' 'TRtS
LlIU

•

o

•0

•••••••••••••••••0

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

•

•••••BII.i ••••••••
"90

L1Si;'~.B3.j ••••••••

i
··st •••••••
o• c~I~~c~UcI • •

•••••••••••

•o

••••
*.. 1:3 *...
••••••

OnlnK2

•

*•* TOGBTlin
POIBT~~
tiBEt

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

•0

*RBADDISI

•

•
..

0

BElD '3
lABIL

•
•

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

·....' .

•
0
•••••••••••••••••
.

• C3 •• 1.

o

i

.*

C1

• 0.

*.

• •••• C2 ••••••••••

*.

•

III!
o. YES
0
o. PIL! LABELS .0 •••••••• X'
o. RADB.O
•
••

** .
. ..o**

0
0

o.

..

••

.. *..•* ..
LIBEL

LIBEL

o

·:O~?.

o

•

o
*
•••••••••••••••••

IBITIALIZE
o
to BUD
o KIt AID tATA

.'

•
0
•••••••••••••••••

0

•••D4.i ••• *••••••

0

•

BIPASS

•

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

0

•• YES
" •• "." ••
".

* ....
• 10

o

0

eta

...
liAS
••
RICOID
••
POUI»

i
·····D3······*···

0

•
0

.'i ....

..
.. ..

••

.:'STBCi1HB!

0

i
·····02··········

i

BUILD
PORRAor,

o
•

•0 •

IS

YES

·····Dl
•..••..•..•
•
o

GE'l ADD!
OF ClIBAnD
P' LIBEL

i

C3

.*

•

••••••••••••••••••III

• 10

0

* •••

Erl.IT5

BEHBlDF'

POB!ll'r
It PIILD

•
...

.................
o

i
.···.C5.···
......
•
•

I1I!IAtI2!
ICn'l!! II
UBU
nIT SUI

0
0
•
•
•

• cnul!
•

•
BUCKI!
•••••••••••••••••

i
·····»5··········
.-.-.-.-.-.-.-.-.
.1IBY'IDlSIt

Bt.

.................
POi UPClUD
tEL EAC! CI

•
•
•

•
0
•

DIS~

:X •••••••••• :
i

i
·..·.12.········.
o

.• B3

0

.'. *.

*.

o
BOVE
0
o StBBOLIC UBI! •

'. niTt SfeT

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

..... .;~.

*

IJ'lO eCD

.0
BAS
' . tES
••••••
• ,OB EX'll.! ••

•

•
•

..i••

*IID •

o

o
o•
•

SI! DATA
S !CURI'ft
SlII.'!CH

•••••,3.1 ••••••••
*•

•
0

•

•

•••••••••••• •
: .......... 1:

LABIL SPOT

.0

••

:

..

••

i

. *. *.
G2

FCinT'

..

LABEL

*.

.. ..

'OOID

.•

..

'. 10

••

••••••

i
·····S1······
.. ··
•
:
•

••••• •••

•

... z ....•.•.•...

*.

*.

••••• •

. ..
"

..

...

...

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

Unl1TO

BOBBER

•

•

OF BI'.rEBiS

•

.*. *.

.. .. .. ....
LABEL

C!LE"lED

....

•

• o•

.*

••

'.

BBSSIG!
q9351

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

..

••

i
.0.

.i..

YES

•

*• AS ••
• •••• *

penn

1

tABEt

•• 110
.0 ••••

".

•
•

•

•• ,,*
* YES

o

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

••

IS I'F

•••• 0

···SS ••••••••••••

..
.. ..
.13

•••• 0

i

*.

.. . .. ..
•

B3 0•

•

•

•

". IS
••
PCIITU ' . 10
.PltBSElI'r "10 LIS'! ... " ...
•• LABEL ...
"

lIRI'l2

••••

••

••••
*• •S5
•

i

i

83

"'. *.

i
··..12···.·····
•.·

•

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

i

82

..

•• ••••
•
C3 •

• YES

o

••••• *

... IES

ADDllilIJ 1.i••••••••
*•

..
..

BO..

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

o

0

•0

••••

.: • tAsf S EI~!.'l·: .!~

x

• IES

i

•*•••
G3

• HS •

*

·
•

i

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

• SlY! ADDB II
:
DT~bRBI'f
o
EUCUor

.

IUILD Y3
LlBU

o•

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

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

PI·i~tl~ ,.i••••••••
'SUItCR
LXO
*-*-*-.-*-*-.-*-*
.PIID AVAILABLE III
:

•
•

··1'5·······

*
•

!J'I!I'l

~l.C1L

..···'15
••i ··••• ·..•
•

'OBUT3
i
• GET UCB • •
•
0' 1ST
•
•
nnB'f 01
0
• '1 LABIL
•

••

IICBEft!Bt
Te .nT

•

*

*

S1C, 50

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

•

... B1·

i
··Pt •••••••

••••!q.i•••••••

i
.··."5····
..···
SlC 50
CARClI

0
•

••••••••••••••• 0

i

••••

*•
*

...-**
B3 •

•
•

····12...i *•••••
SlC 50
CIIC1!I.

•
•

*••••••••••••••• 0

i
····*l3·.········
.-.-*-.-.-*-*-.-*
•• II'!DIS!

o

*

•

IBI'r!
ftODIPIED
LABEL

liD.
•
0

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

:1 .......... :

x

••••

o
•
• All •
o
0

....

ChartS

373

Chart ME.

$$BOSDW3:

SD Of en Wcrk File, Extent tc

D~F

**111<*

*• A3 •...

•*It'''. •
POINTEIIX

·"'**1 ,****.*.**

...

$$BOSDW 3

..

• "'.

It.

• '" IS
"'.
NEX'l
•• NO
EXTENT TO •
o.
PASS

*. *.

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

...

i

A3

*0

*..
*."
.. YES

.* *..

i

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

•

****

i

OPENWBK3

*****E1**********
"'RRADDISI':
ME.

*-*-*-*-*-*-*-*-*
READ
..

II<

'"
..

PORIU'r 1
LABEL

..
'"

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

*

tIl'!I'IS IN

'"

'"

DTP

'"

'"

.*. *.

*'"
*

*...
'"
.. YES

**C3*"'·*"'**
SET HEAt

LllUT III
DTP FOIl

*

TYPE

111!AUlltS'P:

'"

1

*I~.~ii~l~!~*

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

.*. *.

*. *.

VToe

*. *.. *.*

.. "

**

REA£
£IS!

**** ••• ****It****'''

'"'.
" *

••

S1C'
"' •
• '"
1if AIT
"'.
'" *IP llEQUIFJ!D.

4935I

*

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

•*.****** •••• ****
: X •••••••••• :

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

i

i

····"'!1·········'"
*.*..........."' ..••
"' ...
'"

SHIPT LAEEL

'"

•
..

POSITION '10
LEFT

'"
•

..

i

SVC 0

WBIU
MESS AGE

.* NO
........... .oX ..

'" YES

:PAXEHTS

*

i
*****n5It**.··*·"'*

*. *.

IS
• * .. " LABEL
5'1'1LL IN

'"

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

•

it

D1

EIAD DISK

SU~ROUTI1U!

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

i

POSTXTNT

"' . NO
*. RECORD *.•••••••••
.ox
*. *. FOUND ..'" .*
'"
iAS

"'*"''''E5 •• **.*'''**
'UECSD1iI3
'"

**

*"'***"''''****'''''''''*''''''

it

C1

.* .*

*

i
**··"'e3····*"*.*'"
**TO PlOVE
EXt!NT
*
DTP. Poev! u *
'" AND L HEAt
*

FINDXTNT

i

*

EXTENT 1

'"
..

****E2*·*****·*
Sl'C 50
CANCEL

..
'"

*• *"'.It •••••• *.",,,, *

0*

*..**.

E3

. *. *.

NEED

X

"'.

"'.

CLeSE
ECUTINE • '"

*.

• '"

.* YES
......... X*'"'"

*..
*
* Ne

****ElJ*=tnt******
svc

2

PETCH
$$BOSI:C1

*"'****"''''**''''''*'''*

*'"
'"

"' ••••1!:51t1t*.1t ••• "'.
*
•
• sn CONDInOI •
'"
CO!)]! 'Fell:
'"
'" 'q!CORD POUND

•

'"

•

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

•* P1 *.
III.X.

. .*.. .

•
*
• NOMATCH
X
*****F
, •• *** •• ***...
1ft
INCREMENT
... REG. TO NEXT
*
..

LABEL

..

'"

EXTENT

'"

*

QSEBEXIT

i:

*"'P3****"'**

'"

*'"

•

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

*

BESET
MONI'IOE

SWITCH

• ***=t.=t**"''''*

**
*'"
*

i

'"

**."'p., •••• ***.:+

*
*

R'!lTUBN '10

CAL1I6G
BOU'rIIl!

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

*•*

it

.. '"

G1

*.. *

.*. *.
IS

*•

*.NO

A
.. * .......
*. EXTENT
'IlP! 0 .*
*.
.*
i

*...
"
• 'YES

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

x

81

. *. *.

• ·POINTE!!* •
PRESENT
paR PO!!MAT

*'.. *
*'.

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

*.0*.00.0
NO
••• x

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

WRI'lE

MESSAGE

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

3 LABEL • '"
YES

:x .......... .
: MOVEAD£R

i

·**··J1····**·*·*
"'READ£ISK
KE*
*-*-*-*-*-*-*-*-*
* READ
LABl!L
*
IN CHAIN
*'"
••
"'
••••
*.*.****"'*
•
*

.

X

.

*****J2"'********
S-VC 50
CANcEt
**

'"

****"''''***-*****

i

. *.

"'.
.• YES.* .* K1
*. "'.
RECORD

...... *.

*..

POUND

*. *•. *.* • *
*

***K2**"'.*****"'*'"
NO

• * ••••••• oX

nITE
MESSAGE

"9D3I
'"
"'**"'** .****111<*****

Charts

375

Chart MG.

SD Clcse Input and Output (2 of 2)

$$BCSDC1:

*.*.;,~~;~~~.*** *

*
•

•• *.*

BEAD DISII:

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

.

*Rf '"
'" :83 •

•• 15 •• • ••• *••
**•• "'I'll
UBOSDC1
•
DISI
•
• .*~~~J2~11=1* •• •

•

5U8ROO"l'I1(1

*

••

COBOLBL

. * . '"

'.

*0

B1

..

i

*.

*.

COBOL
!BAlLEB
LABELS

*..*
* ..
*
• HO

••••
*a, '"

*****B4*********·
•
GB'f ADDRISS
•

*5E'7 SliITCH '"
YES
'" TO IND'IC1T! ...
•••••••••• X. nc! CLCS!
•

.. '"

'"

•

ROO'll.!

••• *•••••• -

...

*

'"

•

• Gn lDDBlSS ••
or PlltS'!
•
nu! cel •
••••••••••••••
*••••

•
•
•

:1 ........................ :

I

LIoes D'lP

*

•
•
•

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

.

•·*el**·····
•...
RESET

'"

OP PIllS"!
BIID
eCI

*

...

P5 *.J.
••'" *.*
• .

CLOSULE

.l1nt~l~!B'3*i.* ••••• *

i

BUDCISK

..E2* •• *•••

*. *.

i
* •• ·.C4**.*···*·.

i
* ****C2*·*··****
SVC 2
•

**

,.

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

JETCD

$SBOSDn

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

*

III!I1U:~B

•
I1'lB
* CCB
ADDRBSS
• OP CCI CHAU

*•

*
•

..

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

*•••

"'!lP·
..
'" C1 *. x.

•••••*

i

i

·*D1 ••••• **

• SET

GAL.

•
'" AD
• ...

'"

...

IN

**·**D4*.·**···· •
•

I!ITI ·
'"

****

*'• B2

•••••••••••

i
··El···.···
BESE'!

•

•

•

SWITCHIS
IN DTF

'"

*

*

GET
BE"lURR ADDR
FCLLOWlRG
II OPEN

•
•

• • .
*...

RUD
DUK

•

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

is ........................ .

'" B1 *.X.

i

**

RESET

•*'

'"

•

··Gl······· *
*•
i

•

·

'lOB

X

**

.

•
•

'"

n1

i
.*.
*.

TO BETUIR

~O UBCLOSE

•..
..
•

i:

*.

TRACK
*. BO
*..**.BOLD
opnoa ••••••
SPECIPIED.'"

*.

INITIALIZE

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

• **** ••••••

.•

YES

.*

i

* ..
*
... YES

•

*'

.···02*··· ••• ·*
SVC 2
•
fETCH
•

*' .***i!i~£il** •• •

•

..P3.*.**.*
JiES!T
IICII"lOI
SII~CH

*' •

*...
....

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

•

pq.

*

•

*
*

***.G3·.**.·*.*
SYC 11
li!'fUII1 '10
PRCBLE! EI'CG

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

.:.

•.

COlIK~TBD .:.~~ ••••••

*..*
•. .*

.•

.•••••.

.

'5 •••••• * •••

..

:I::
II¥,? ::
• *
••

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

• YES

i

i

***·*G2*******·**

•

Ct·

I8

*.

*•.. ..•*

.*** •••••••

RES

*.

USEREII'!'

••
ANOTHER *. 10
*
*.P1Rl!IETEI TO .* ........ 1*
•• BI CLOSED..
•

OBIT IIep ...
IN DTP
..
BEsn OPEB •
... INDICATOR •

'"

12

•••

•

SYC Q

*

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

.

..

•..

i:
* ••• "••• * ••• * ••• *

• •••• E2* ••••• **.*

**

URBIDBf
X
··Fl •••••••

...

:
•

SOPBB,TISOR

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

i

10nKHLD
'"

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

•·IIP·
*.*

POB

•

•***. *

*CC!UlUlIICITIO.*

*

Glijpl~E=BSS

:

••

*•
•

··**·G4**·*······
• Sft CO.tIno • •

•
•

*

CODE· POll
RECOID
POOID

•
•
..

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

i
* llB'lQRI TO •
•
CALLIBG
•
* •• *••••••••••••
ROUTI.B
•

····H"·········

*• **.*
!2 ••

....*•••...
•·····Jl···
IJITIALIZE

•*'*** •

i

'"

'"
'"

TO fETCH
.RlE PBI SB

•
'"

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

*
*

i
***.K 1*** •• ****
SVC 2

*

!!'rCB
*
*••• ******
UBOSDC2
*
•• ****

Charts

377

Dequeue Exter.t JIBs

$$BODCUE:

Chart MJ.

.....,.........

•• 'SBOOOU! ••
•••••••••••••••• •

••••••
E3 •
•• ••••
•

•••••B3.!••••••••
:•• ema :••
•••••••••••••••••••

nOUIU!1.!••••••••

•

•
•

•

SUI
BlGIS!!BS
3 UBOUGB 8

:

•
•

:

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

••••• ct.!••••••••

:

•

••

• TO CIUIIG
•
• PIlSI IF lUI •
• IS SUPPLIIO. •

i

·..

••

..

Sfe 22
SEIZB
SlS'fI!

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

SKII~: ••11.i••••••••
• GIT lODBlSSIS
• CO!I. IGI.
•
FllP
•
"IB TABLI

•

•
•
•

••

:

or
LUB

•

G1

• ••

*.

*.

KOIOB'l1
i
••••• D! ••••••••••

:•

20
JIB

.'

.'

*..
*
• tIIS

Wo ••

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

•

..

,

.. ..
i

15
-.
AIO'!RII

••

l':tL~!O

.·

-.

••
*. onl
... ".•

.-

.

• tiS

.....,..i·........

.!
•
•

•

P

•

!
•
81.
BBS
•

0
II

IIIG

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

••
•

.i.•
••••• •

•
:

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

i.......•

• It ..... , ....... ..

i
·····'5··········

ns!on
•
•
•
•

nc· 11
II!UlI TO

•

OS II
•
•••••••••••••••

alS'rOBI
ltaIST"S
AID LOlE
!HCR Ill!

•
•
•
•

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

• •••G••

10
••••••

:

'r~!MiI=I!IIG

oPlln I 0
: lICnnl! I!

••

.*
*.
•• POIlTIB ••

*.

•

10

•

• 'lIS

•
•
•
•

: ............................... : POJUIBsn§1 :
•
•
•••••••••••••••••

••

•••••••••••••••••••
:1 .......... :
:1 ........................ .
I

'rIS!P'r.

.lIE

••

•• !e 101:1!01

•
•

•• ••••UPD1'lI
P3.!•••••••••

..

.i

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

..

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

•••••• ,.i••••••••
lo~liss

'eIl!1J 'rC
"IB rlOI
PCII!" 'rO
III'r"IE

••

•• ··n!u......

•• ••••13.i
•••••••••
OPEl!!

•
•
•
•

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

:

C5

: pmMIU :
"IE
•••••••••••••••••••
••

••
...
••

..
..

.i••••••••

SfC 22

:: ~I~IIII ::
..
•••••••••••••••••

•••••
D3.!•••••••••
•
upun

••••• D1 ••••••••••

••

·

••

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

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

••
••
••

SITI

un
POIITII

.

.

OU'r!UUB5

•••••e3.i •••••••••
•

:

I~'rUim

••• •
•• •85
••••• ••

••

i
...•as.···
.••..
nc

2
•
n!u"!C
•
• ClLLIBG PIlS! •

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

•• B5 ••

••••• 81.i••••••••

:•• m.m :••

•••••••••••••••••••
.l l'

••

i...

••••

•.•.

!X'lBI~

....
.. ..
~lU

• lES

GB'rIUI."2.i••••••••
•• 10

•
•

IIPLlel
LUB UOIISS

•
•
:

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

.•.•........ 1:

JIB 'nallSS

i

••••• •
• 83 •
••••• •

Charts

379

Chart ML.

$$BC2321:

SD

O~en

Cut~ut.

2321 Extents from Console

•• ·*
•****11.****
••
$$802321

·
•

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

.

it
•• *.*E 1******.*.*

CONVERT

*

•
•
•

COftPtETE
EXTFNT
CONV!RSICN
POR 2321

...

*

,.
•

• •••••• ****.***•
***
it

**
•••
*LI ...
•

.

Eq*

••

AtDSECRO

Charts

381

Chart NB.

CPMOD:

•
•
•

GET Macrc, Cne I/O Area cr ICFTR=YES

...., ,.........
!BTBY lBC"
GE~ !ICBO

•
•

ElPlRSICR
•
•••••••••••••••

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

•- ••••
•
23 •
••••
:1 ........................ .
1

.. B2 ..

•••••1I1.i••••••••

•••!2.i
••••••••••
SVC 0

•
•
: R!alIIE1lS
:..
..
2 - 6
•
•
•••••••••••••••••

IJIiB U

CftllREL
nOGIA"

*.

.0.

C2

*.

.*
*.
.:* cClli~'!1 .:.:~~.
*.
.*

*.

*.

.*

.*

i

.'.

11
'.
• ' UPPEB o.
•'
BlCOBD
' . 10 •
•••• BH~UD •••••• x.

.. •• •• ...

·.. ...
••

::

•

cpun
ceRRR

SIC 2

$li6~11

.::..

.

••

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

••••' .
o

IiJiJlIlfK

....

»3

.

..

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

*..

*
••••••••••••••••••*
• SilK ADDRESS

lJ!R"

• •••••••

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

i
•·····13 ......... .•
o

Ii!S~CBl

•

•111•D4••••III
••••••

0

IiBGIStns

0

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

2

~HFOOGB

.

6

•

i

I

SVC 0
EIICCU
CUIRU

*
••••

IJJCBOEK

···1'2············

IJJCIDSK

I
•••

t.
• •••• DIt ••••••••••
......
III LOA
DRISS.
••
UIIT
•• YES
.0'
'S BOll' •
••
IXC!t:TICR
..... .o . . . . . . . x* RO
lITO .'1 •••
III
IIlf.

• .2 o.x.
•
o.

.....
,'..........
•
•
..

•

••

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

• Ie

IiJiJ~:ll~E2.i ••*•••**

*. * ..• .*
o ns
i

III

111

.i' .

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

IJJCPUn

•

:1 ........................ :

*..
.. YES

IJJCPDSK

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

C3
••
• •••• Cq ••••••••••
••••
III
•
IS
•• YES
•
ADD 1
•
• III
••
DEllCI I
••••• .o . . . . .o X.
TO RICORD
•
••
DISK
...
..
COUI'!
•

*...
"
o 00

•••••
••••••••
.. .. 02.i
.. ..
....
S'fC 7
.. ..
....
IAI'!
.. ..
.... ...
.... ....
•••••••••••••••••

DISK
*. 10
DISKB'l"rB ••••••
DBVYCE .-

*.

.. ..

_...

i

i

. *. *
' . OB

• •••• B4."oo •• o •• o
• III
* •
iI~'I 7 : :

.:.*. ccftfliT! .•.: .~? ..... x::
• •
• ns

•.. LOID
••
:
a¥D~~iS
:
•••••••••••••••••••

.0.i *.
D1

0

IJJC2SLCB3 •••••
••••

• • • • • • • 111 • • • • • • • • •

••••• C1 ••••••••••

IJJCP10

•

F3

.• .•

••

••••••• l~~'!tl •••

••

.0 •

····P.········.

••

Eor

*. *.

... .... ...

...

.*tES
........ X.•*

EIIT TO
USER'S Eor
ROUTII!

111
•
•

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

• BC

i

•• ••••
83 •
•

i

• 0.

Gl

•0

.*

IS

•.•. DBn~B
*.

*. *.

o

••••

' . 10 •
1 •••••• X:

•

.*

. * . '" 1'1'

.'.i * .
lIn

* . *.

•

•

*..
• -IES

81

0

i
··.·G3 •••••.•.•
BETUll)';O

•

nOGUS

•

PBCGliUI
•
•••••••••••••••

10 ..

··o.Ot.EUU'l.o····x.

*.

.*

*..•
• US

.t.

IJJCP!'13

.i••

o
•
• •2 •
o
•

••••

Jl
' •
*.
flOBI
*. 10

.*
• •••
••
..
..
*••• I'lilli~! ......... I: DIl :
*..*
* ..•
o YBS

••••

i

•

•••• 0

.. 82 ..

••••• •

Charts

383

Chart ND.

PUT Macrc,

CPMCD:

*'"

*

*"'''*11 :t*.", ••• ",.
IJ,JCPDSK

:t.:t***.********

~wc

1/0 Areas (2 of 2)

•*
•

.• .•
** ••

'" BS •

**"''''

"'Be'"

"'**'"

•

'" B3 *.X.
•****
•

.. *.
*.
. *Bl
UFPER ••
NO.*
RECDBt
*.
.... *.
LIftIT
*. RIleR!t: .. * .*
*. :t • • *.*
* YES
IJJCPDSK

Btl

.*
YES.* IS
.u*.

i

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

"'BC

i

OPIATE

'"

CCHHR SEEK

i
.*.

AN IHFOT
PILE

*. *.. *. '"

13'5

.*.it

••

.•
•. *.
NO.'"
KORE
.*J:: •••••••• *.
EI'f!H'IS
.*
• '"
*. AVAILAl:1E. *
*..*

*•.•

'" Mo

'" lES

:i:

*··CS***·**·*****
SlC C

•*
*

!!teen HBt

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

DT

1:JJCP'P03

"'.
THIS *.

!,J.JCP'P A3

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

•
..

*.

.*. *.

CHAfiNEL
PROGFAe

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

.:t.

*.

t2

*.

*. *. GT
. '" IS * . *. NO
.. '"
.X •• *.EXTENT LIMIT .* ........ 1*.
D!VICE A
••••••••••••••••••••
*.EXCEEDED .*
*. 3S[JO .*
*. *•• * . '"
*...*
*. . *
.. LT .. *

•*

UPPER

'" EQ

..

.IJJCPF02
El

.*
.. '"

o

.. NO

1 .... *..

****

i
.*.

*. *.

IS

*

*

IJJe~'Oq

*.

FILE

*. :t • • * .*

.*

*.

i

··**·p5.·····*··'"
'"• '"* SlC 2
*• *
'"
*.
FETCH
**
"'.

"'EOPED

'"

*

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

·

'" YES

** ••
.
* G~ '
*.x.
•
****
i
***·"'G'5"'·***···**

*

i

Gl

..

WAIT

**
*."'.
:x .......... :
: ......................... x:

. '" THIS *. *. NO
*..* ANIS INPUT
.. *.....

*.

·*.'"

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

YES

.*.

i
*.***..:5***·· .. *··.
• • SlC 7 ** •'"
'" '"

'" *

i

F1

BS '"

****

:t.

.. G5 '"

****

YES

.• .•

A
.. *
*. DEVICE
35QO
••
*. *... '" .*

.• .•
x

'"

.t., *

. *.

.• 2 "'. *. *.NO.
*.• * I/O AREAS
.:t ... X.
*. *.
.
.*.*
*
*...
* YES

•

•
'"
'"

•

Arm 1
TO
COUNT 'FIEL'»

••
*

•'"

"'*"''''********'''****

i

. * .*

:t.

H'

*****
*NC '"

i

.*.

*. *.

*. YES..
*. AVAILABLE. *.* .. I.
*. *•. * .*
i
MORE

BITER'!S

• NO

i

*****
*Ne *

.

.

'" "R:3*

••

.• .•
****
* BS *

****

'" H3*

••

Charts

385

Chart NF.

PUT Macrc, Cne I/O Area (2 cf 2)

CFMOD:

........ .••
•····11
IJJCPDS!
••••••••••••••••
•

•

••••
tllE·

•

*.1.
i

.. P1

:....
IJJCPDS!

o. .*

el

.'.

' •

OPPBR

t.

*0

110

' . nCORD LIftU ••••••
' . RUCHU . '
•
to

.*

.

*0 • .*tES

I

••••

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

•
DPDAU
•
eCHHR
• SEEK ADDRESS

• 82 ••
•• ••••
•

•

..

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

it

ot

Cl

.*0

...

:..•. f~im!~iBI';.········· .x•.•.
LT . '

UPPBR

..

t

x

o

.*

to

• •••••

.••

.* t2

to

' . Gf

.'

.*

D~mE

*0

IJJCPP02
110 ...

•

i. ' •

. * 21 IS

.*

to

.. BQ

82 •
•• ••••
•

*.

*0

IS

.•

•••• D3 •••••••••
sli.iBJ!jCR :
x:•••••••••••••••
!O"CIIC!L
•

'. WO
•
••••••••••••

.. IES

t.

to

: ..•.•. toD~~WI ._ .•.•
i
•• ••••
•
82 •

*0 .• US

•••• *•

ix............................................ :

IJJCpr03
ot

o.

'.

r'

.'.

*oo

ItORE

*0

*0

10

...

ZIfBlTS
•••••••••• X'.
·.lVAILlBLB.·
'.
t

o

to

.*

.*

SlC
• EIlCUT!

._

.

.-

•• *•

•

i

SVC 2

0

•

••

lE'!CB
UBOPER

••
••

••••••••••••••••••
•
••
••••
·• H2 ..'• .1.
•••• i
····.H2·.······
..••
••
ADD 1
•
•

TO
CCUIIT 'liLt

i

SVC 7

• G3·

•
•

•••••••••••••••••0

......".........• •.
••
WAIT

..
i..
·H! •

.. "

• 110

•

• WO

••

. ' ••••

·

... 1*:*to CClli£~! ._.:.~~~ .. :
*0 to

YES

to

.'

....
•·····G2·.·.··
•
••

••

••
••

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

*0

t.

*0.·

: LlJCPF04

PBOGBUI

ot

t.

PILE

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

0

i
B1 .'. t.

.'.

INPU'J:

to

!UD
CRUUL

••••••

12

• YES

IJ.lCpItiG1 .i.....•....

..

.*

••

••

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

.'

*.

...

*.

i

• o.
J2
' •
EWT!BED

..

O.

RO

FltOll S1)
••••••
CLOSE
••

•.

....
°

.*

liS

i

•••••
.lIB ..
• PS •

i

•••••
tH! •
• D3·

••
•

IJJCPCAL

•••

IJJCAt2

Charts

387

Chart NH.

CPMCD:

PUT Macrc,

ICP~R=YES

(2 of 2)

·.··.2·········**

**

IJJCPDSK

••••••••••••••••*
•••• •
·IG·
* ., *.x.
*••••
• x.
IJJCPDSK Sf •• ' •

. * UPPE~ * . '. 10
*.•**BICCID
LIBIT ••••••
. IIICR!D .*.

.-

··.·;!5

i
·····C2··········
•*
*

*:

.i••
••••• •

•• 83 ••

UUT!
CCRBI
SUI ADDIBSS

•
:

•••••••••••••••••
i

L! . '

.*

'O*.

112

*.

UPPER

*.

:····I~Tml~uI~

.

*..*
*.. *

1

• ••••• ~

Dl

••

.i. ' •

IJJCPP02
10 ••

. * 12IS

III.

••

IS

*..*

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

*..
• T'!S

• !tJ

B3 •
•• ••••
•

.-.

*.
• •••»" •••••••••
*. 10
•
UC 2 'I'CR *
•.•........ x•••. Dm5! ..•.•........
x: ~fmL TO :
'. GT

.*

••

:..•.•. rm5 1 ....
..i•• *. ··.·;15
•• B3 ••
••••• •
:x .............•.•........ :
IJJCP103

x

.'.

•2

'.

r3

• ••

••

.* un'!!: * . •• YES
. ' . * "on *. •• 10
••
•.•.
AUUUfl!............ X....
lIt!
••••••.•
*t.
.**
**..
. ._t
••
• Ie

• lES

IJJCp!tI G2.i..........
SVC 0

•

BIIcun nllD
•

CRUIIL

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

:I.)J;£t2: G3 .i•••.•••.

••••••• I~~~1tl ••*

0

::

s,e

·::. ,llail. ::.

·

••••

••••

B2

.'. ' •

.*
-.
..• x.:· co"i(gn .:.:~~ •• :
*.

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

.
.

'"
••

'O'O'O'O::

sve
IAYT

7

'"

.

.

"'.

::

'•••••••••••••••••
"
'"

':.x.
.

•••••H3.i ••••••••

••
•
ADD 1
0
o
Plitt
•
•
COOl';
•
•••••••••••••••••••
~O

•••••J2.i••••••••

.

'::

'"
•••••••••••••••••

: R3

i

2

••

••

..

o.

J3

.0.i

••

..

!lURID

lBCIt SJ:

••

CLOSE

..*

•. • .*us

..·.Gi...
•••o
,~*

0 • •0
....... ..
••

..·.Gi...

• C3*

o

o

0

IJJCpelL

IJJCAt2

Charts

389

GET Macrc,

DIMOD:

Chart PB.

!~C

I/O Areas

·,.........
• 13 ,.

"

"

.···Aq··.······

****11 •••••••••
•

DIMOD

,.

,.

GET IUCEO

•
DI'tCD
•
"UPDATE AtDBlSS "
SUDIOU'lIR!
•
•

•

,. *.~.~<~.!~!!i •• •
•*••

....

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

" Bt ••".x.

111

.

"

·····E1" ••••••••••

IJJE1XlX

>

·····B3··········
.-....-.-.-....-.-.
i

X

"IJJ!6XXX
,.
BE III .I
,.
RICORD

"

:

~tiE1~T~oB~~ls

:

"

ADDRESS

"

·

•• • •• Sq ••••••••••

,. C3 •• 1.
>
"
IJJP5Xn
I

.

**.. ..••••••,. ••,.
··*··C3·

.. .•. ..
....
.. .'. ..
i

eft

,. EXECUTE LCAI. ,.

...
•••••••••••••••••
,. ,.

i

• 111
,.,.
111.

..
SEt
•
,. FIBST PASS ,.
'"
IIDIC1'1C5
'"

•
•
••

SVC 7
W1IT

,.

: :IP REQUIRFD! :

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

ADD 1 TO

•

,.

IN SEARCH

111

•

ADDRESS

111

,.

••••••••••• "

i

•

TO 0

>

·····E1·······.·.

,.

····l3·········
.* •••••••••••••
BE'lUBI TO

ArDIlESS IN
BIGI STIB 14

>

••••
•" "2 "
"•••• "

! •• i~.~~g~;~!~ •• :

'1

•

i. ••

IJJJ1XXI

•• IN eeD
.* *........ .1.••
..oo*

• •••

...... x* C3

ADDRESS OF
liCUTlliE

•

•

..

NO

••••••••••

*. •. .• . *
• YES

··H1····.·.

>COMVEBT ASA"

TO l!BCtIC

*CONTHOL CODE •

"

. *.
.• G2READ *. *. ••

X.. ..
••

ERROR

*....
*.• *

j

•

•

•

"

••••••••••• >

NO..

•

.".

••

• *ilLRERR·..

• : . OB E!ROP'l' .: .!~~
•• ADDRESS ••

*.

.. ..

.•

..

............
INDJ:CATOR

" NO

ID~ii~s 'raJ
AREA

K1

SKIP ..

*.

i

••••

"• D1 •"
"•••• "

....
....
!IHIOPT

...

• 1GB

i

OK'l'D

"

ix•••••••••••••••••••••••••
H4"·· too

••••• 85 ••••••••••

.. ..

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

.•
*.
• •
COltj{~TE ·:.!~ ...... I : :
*. ...*.*
•• ••

.:.

.•...

J3 ••••••••••
• • ERAHCH '10 • •

: ......... x:• •:~ii~~,!Bi~b:
•
B!'l'UFB
•

.................
·••••••••
.. •

•

"
"

• D1 •

•

CALLUG

10UTII!
•
•••••••••••••••

i

•

*··*·~2·········
S'VC 5C
*•
CABelL

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

X.

••••}!TUIHI!C
ps.i........•

PllOGRAf!

i

.i". *.
*.*..
*.••••••••••
•• •••
=

.•

•
"
"

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

"

*...

eUSIlEB'! I/O

••

CHARMEL

x

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

•

.oo

" YES

••••••

IJJEBXXX
• •••• J2 ••••••
• LOAt REGIST!lI •

... oo. x:•

••

S'C 0
Issn nED

••••
"• A3 "•
"•••• "
>

••
••

..*Gq ••••••••••••

it

:1 ........................ :

x

J1

*.

Il'

:.:.~!92i~!~ •• :.:

.".

"OR!
!XTBITS

S'9C 7
IIAI'I

"• C3 •"
"•••• "

i

".AVAILABLE. "

i

TUBH CN "•
"PIRST
PASS
•

"

••••

....
....

...'"
.... *.

•

NO

..82····.··

IJJK6UX

.CON'!ROL CODE •

•

• '"

••••
"•••• "

• YES

it

IJJK5nX

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

,.
"

*

• •••

ntcuu

CBlRl!L
PROGRAM

••
'" '"

IJJR3XXI
•

SVC 0

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

·····!5······
..•·.•
••

>
•
• 1'2 '"

ERBOB

i
···DS••••••••••••

G'l'.*
OPPER
•• tT
....... EXT!RT Llfll:T •
·.EICEEDED ••
t.
••
t. oo •

i

" NO

..

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

D" •.

,.

i

DT'
.*.*PIOI!
..........
*•••••

•. .•

••

••••
" "
"•••• "

• t5 •

YES

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

'2 ••••••••••
••• ••••
LOA t :REGISTER •
0 11TH
..

*.

•• EXC!P'l'ICH •• YES
••
BIT OK
•

i
.•.
Gl
.
•
•••. *.
••
ILB

.......

• EO

III

•• UNIT

0

i

,.

• lI!CORD NUftBER •

IJJIOXXX

•

.*

*.•• "0

.>

i

··D3·······

····*Dl······.···*.

••

i

IJJL5XXX

••

••
IS
••
DEVICB
". 3540

,. *IOBEG IIISTI* ,.
" 1M DTP TIEL!" "

IJJHBXXX

"
"
:

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

"•••• ".

,.

"

.

" UPDUI· CCRaR
" S UK ADDRESS
:
II' RBQUI~!D

: •• 1!.~li21=1~ •• :

••••• *•••••••••••>

"

it

IJE61U

PB"
,.
,.

"

:

•

IJJUXXI

YES

• '*

il¥'l' ::
'" •

it

• •••• ,Jq ••••••••••

•• •*

·*.

••

SVC 2
PETCH

"BOPER

'" •

..
••

••

"'.

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

•> 115 •"

•

.

•••• >
"••••

•

• 13 •

Charts

391

Chart PD.

DIMCD:

PUT Macrc, Cne I/O Area (2 cf 2)
It****111
.pc

111 C1.

·

**
X

IJJP81XX

····*.12*·········
*
•
:
:
'"

GE'l RECORD

~gft~~\.llf~

•••••••••••••••••
•
*
x

E2

.*. *.

B3

.*.

III •

. * UPPER *. *. G'r
.* IS *. *. NO
.. '"
........ *. *.
BITE.or LIMIT .. *............... X*.
DEVICE I
.. *..... .
BICEEDED .. '"
*. 3!:QQ .*
**.. ....*
*:to. ..**
ic
L'E.*

• EO

'" YES

*.***

·PC •

* 92*

.

.. IJ'.:J1I2IXX

.

I
0

C2

..

•*

*. *.

.* IS *.
*. *. DEVICE
1
.*
35QO
...
*. *.. *.*

NO .. 111
•••

•

i

oil.

'" lES

.

i x•••••••••••••••••••••••• :

*.
*.
.* 1!I0BB *. *. 10
0'
"
*. ·.A1AILABLE..
EXTENTS
.* .....
**....**

.IJJ!3XIX

•

D2

•

YES

0

••

.*.
D3
*.
.*
*. *. YES
*.
.* .* ....
**.....
.*
i

.. *IBPUT FILl
X*.

'" ltO

·····12·········.'" ..
i

:IJJ!711I

*PC •
**.**

*•D3*
*
*

'" '"

III '"
SiC 0
• '"
• EXECUTE I!ED'" •
• • CHIII'IL • •
"
'
.
FIOGRII!
'"
• • • • • • $ • • • • • • • • • '"
•

i2

•:*

.*

.*.x *.

*.
.* .*

CCl!i£~TE .:.~~~.

*. *.

$ •••

*

Be

······G2·······**·
. '•" •
••
i

'"

••

SVC7·*

• '"

IAIT

'" '"

'••••••
" .. :t •••• ******
'" '"
:x .......... :

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

:IJJft_UX

i

*****B2*********.
* * SVC2.*
••
**

.

•* **

.._••*•••• **.**.*.*.••..
FETCH
SSBOP'!lf

...

:......... :!!**
·PC •

* F2*

••
•

Charts

393

Chart PF.

PUT Macrc,

DIMOD:

~wc

••••
••••

I/O Areas (2 cf 2)

o
0
• A2 ..
"

0

i

.*. *.
.*. ••
12
13
.." IS *. o. NO
LT .0 .* !Inn *. o. GT
.0
• ••• 0.
LIP,n
.0 •••••••• 10. DEVIe! A
• *•...
*. *.
EXCEEDED .. "
*. *3540
.."
. . . .. .. "

•••• A1.** ••••••
•
DIIIOD
..
* lIlIITI fI!CORD ..

..

SUBROUTINE

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

IJJE6XIX

e!

i
.*.

• *D

III

*...
"
o EO

.

.TJJft2XXX

".

CE ••

.... . *. *. DIII
MO .. "

...

*.••

* •••
• YES

i:

e2

.0.

o•

."
*.
*. *.
*. It . . . " .*

NO .. "
IS
••
I •••
DElle! A
.3540
...

E
!I ••

.....

*. *..•
E .. "

j

.. YES

.. IES

·PH ..

.. cs*
oo "

i:

····.C1••••••••••
i

:IJJP8Ul
"•

..
..

.0.

0
..

UPtlT!

eC8ftl SEEK
ADDRESS Il

.. "

....

..
..

: ••• ~!S~l~:~ ••• *:

... C2

*. *0

INPUT

*. *.

.i••

PILE

*.....................................
NO
x...
.."
.*

*...
III "
lES
i:

o
0
• 12 ..
o
0

• o.

... t2 *. *. 'NO
..
*... " I/O 2AREAS *.••••••••••••••••••
:lI.
.
*.
.•
*...
III "
tES

••••

..

...

i

••

.•

. *. '*.

12
"ottE

*. ••

YES

i

.'*. '*.
.•
• . ••
."
"O~!

IJJfl3XXX

13

NO

...

•'*. '*.
.!q•
• . ••'
IRPOT

*. *.11AILABLE.
EXTENTS
•••••••••• x*.
EXTER'!S
•••••••••• X..
*
*.AlAIlA!l!. *
••

•. *•. *..
*

...

i:

• 0.

F1

•*

*. *.

*.

*.

2560
OD

51125

.."

i
•••••

·PE ..
.. 85o 0

•

10

•

YES

'IL!

t...
••.•
•

•••••
•

•·PE
J' ••
o *

*..* liO
.......

•

0

..i
••
.1'11 •

i
• •• '3 ••••••••••••
S'C 0

EXECUTE nBD
CHUNEl

• D"·
o

tIS

••••••

IJJft7XU

.. "

..
!..
·PE •

NO

••

'* o".
•
o

i

..

*••
.. -IES

•..•
•. ••

0

nOGBAft

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

.... .... ....
i

G3

.:.

• o.

••

cc"I£~TI

••

.: .!~:.

.*

o NO

··••..··.83••••••••••.. ..
••••••••••••••••••
•
••
i

••
••

S1C 1
IAt'!

••
••

:1 ....
:1 ........................ :
01 • • • • • :

IJJ~:!~IJ3.i ••••••••

•• •• SlC 2 •• ••
:: sl~ei=. ::
.
•••••••••••••••••

·

..

i

•••••
·PE •
.. ocs.
•

•

Charts

395

1018 punch-Tape Punch Errcr Reccvery Rcutine (1 cf 2)

$$BERPTP:

Chart PH.

....
....

*"'*'"

*

x

''"" ''""

·
'"

$$BERPTP

*..
..

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

*

*

•

SVC '1

WAIT

'" '"

:to

x

. *. *.

'" YES

•..

....

••

• '"
NO

• '"

..

••

PROGlIESS

•.

*.••

*

'" AREA ADDIiESS

... • ..

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

• • • • • 1:11)1. . . . .

··**B4··**·····
SVC 2
•

•..*
•
*

•

•

1tBeLCSi'
•••••••••
*••••• •

NC

····C3·····"···
lIETURN

TO USER

•• ", •• :tlt"••••••••••*

XYZ

"'iloilo'"

·

if

····.CS •••••• * •••
•
FOT eLilli
•
• 'PIILt ADtHES!: •
•
IN Will'!!
•
•
• PlCtI'PIED Celf

•
•

* * •• *.....* •••*
•••••
;.

i

·····IlCj···JIo···*··

.

i

SHIPTF!
CODE

*

*.• *NO
•••.
.*

NO ••

i

.
...

.:1.......... :

'"
'"

•

:
•

"OV~' CHAlt
'1I''IH

PlESS AGE

'"

CHARACTERS

..

IN MESSAGE

'"

*

••

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

•'"

•

LeWER TO
OPPER CASE

•

..
'"

i

GI5

••

i

i

*'"

'"
..

0'" .•
:t.

•'"

SET PJESSAGE

ADDRESS '10
'illITE CClf

'"
'"

:t.

•
•
."'.::t*******_.****

.'. :t.

B2

.........
END
ONLY
•

:x .......... .
*****Jl·-.******.
'"• SET WRITE cew *
'"
'"
ADDRESS IN
'"

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

"'

SYSLOG eeB

"'

'"

.."'*..
i

.. A2 ..

*

****

*

..

x.

EAeKSPACl!,

:
••••• *....... **••• •*

NO

CANCEl

RE(;UESTED

•.

•• YES

*

X

*

• * .....•.. '1*

.•

i

sve

6

CANCEL

•

*

JS

•
NO ..
...... •••

*

••

IGHOliE
BEQUEST

*. *..• . '*
*

YES

x
•• **
••

A3 •*

*."'** *

* ....

eBlll

.- •• YESj
••••••

*. :t. PUlleD .* ••
*....
* NO

i

1'\2

.* . ••

.* .• 'l:~~F1

••

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

NO

.... .'. .....

..

~ fi~l;~1

:

... . .. .. .... . .····J3·. ·······.

••

*.

X
***K 1*"'* •• *••••••

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

.:t ••••

*

•

. *. *.

J2

_

SVC 0
.. ISSUE PlESSAGE ..
4PO 1I OR
4P02D

••

YES

i
.** •• ?ORC!
'1s ••••••••••
3
•

YES

i

i

REWRITE

*. :to

ZERO

• Ne

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

***,*"'81 ••• *******

.*. ••

*. •• el!AIUeTEE
••••••
PUMCBEC ••

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

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

••

•

'81 •

• •• ** *

*'"

SHIFT Flie"

'"
..

YES

:
•

i

'"

.. ..
"'...... ..

•

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

i

*****Gl iloilo"'' ' ' ' ' ' ' ' ' .
*
*
'"
fIIOVE
'"

••

• •

i

··***P4***·***···

.. '"

*•••

i

LAS'!

It.

• *J3·
•

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

'" YES

.*.

...... *. •• US1!t
eel
Ill.I'Il!

•*PJ
*.*.*

. ..
...... .''""

SVC 1
WAIT

*.••

i

*****P2***·**"'***
'"
'" '"
.. '"

.. .. ..
....
~Cj

****** •• **.:t*****

F' . *. "'. "'.

*. *. . " .*

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

SiC 0
RIAt

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

•
•
•
•

•

USPONSE

•

*..*
*.

Ptl'I DlL!'!!
CHA1HlC'll!li
AtnRESS IN
fiRI'!l eei

***E2*····*******

'"
GET UNI'!
'"
'"
ADI!RES$ IN
..
.PRINTABLE POR" '"

•*

•
'"
•
•

X

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

*

** •••
*••
••

Gli'I nEt!'!!
CfUliAC'rlli
'ltO" D't'

El *
'"

•**** *

i

•

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

•

'~TCH

•
•
•

1H!1'Fl'
COUN'I

~

YES
•
•••••••••• X.

*. *. lW
•***·*D2**********
•..
..
PUT REAt
*. * COUNT
RETR!
*..*.
• * ....
'" celi ADDRESS ..
EXCEEDED."
'"
IN eeE
*•• "'.*."''''''' ........ •''"'
*. *.. '" .*
i
... YES
.*.*
* •
*'" ****
*.
El *. X.
•.. ••AS"'* •'"
*
•
[1

oro

•

•••••••• ,,* •••••• *

'"

•

ADt OJ!

**

i

'"

ceil

IN BEAD

ceUN'I:EB

•

.* . ••
83
. . . . . ••
•• CLeSE IN

:t.

*..····"C2**********
*..
SE'1 ANSWER
..

• •• ".A S ........... .

*

•••••••• ".".lfo* •••••

i

RERut

.*DELETE *. *. NO
*..* SPECIPIED
• *•.•.
*. *.
. '"
i
*.. '" .*

•

•

i

t?~CC'l!SS

*
•

ElSE'!'

i

. *. *.

:t.

*

RE'rFY

•

0'" CHA!! ' I ' *..* YES
:t. IN P!ESSAGE
..... .
:t.
=4
••

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

x
.*. "'.

••

•

i

.* E2

'" ESTABLISH DTF' '"
*ADDRESSABILITY '"

C1

'"
..

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

....

ic
*****E 1**** •• ***.

•

."'

AS •*
••*•••
•

•

j
·····A3 ••••••••••

***··12* "' ••• "''''''' ••

•**·"'11··"*·**** •

*•• *

•• A3 ••

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

ir

***·*·~5***···*···
¥Ol1el? 2
•
fACA;SPACI.
'"

..

·: l

E~t~~t

.: .

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

.....·

• 1 •••••••••• *
1

·••.1·*
*P,J •

Charts

397

Chart QA.

open Cevice

$$BCCP01:

*•••

••••

.. 12 ..

•• A~ 0•

* •
**••• •

•

:1 .......... .

i
·····12···,.······
**
•*

ERROR

•.. ·*11·········•
•

SSBOCPOl

CIP'!'H

:•••••••••••••••••
:*
*

••

G!'I ERBOR

'I~~~~'

•

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

Files, Phase 1

Inde~endent

••

..

•••• 0
i

13

*•••• •
o
•
••••

• 15 •

•••

o.

IS

..

DEVIC! I

....

··.·.15 ••••••••••

•• PRIITER ••

•.

o tineA'!!

it

CAtLBSG

••••• B1 ••••••••••

•*GE'l

ADDRESS OF •
•
'COB!UKICAT!ORS •
..
•
REGIO.
•••••••••••••••••••

.*

•
..

o

S'9C 2
IE!CB
$SEOBSGl

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

•

••••

o.

•o 84 *.1:.
•

i

••••
UUBCP

i

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

B3

..
..

•
110..
IS
••
•••• •••• DEVICE A
.0
*. TAP!
••

•
•

i
•·•.Bq·······
..

o

SVC 2
!ITCR
"BOCP03

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

..

~

•

YES

1'2 *
•

••••••

i*.

.* ClD *. *.
*. 110
*. *. Stl ! .... " * ...............
*..*

*..
*
• YES

i
·····cs···.······
•
•

•• * •• c3.i ••••••••

• ••• e2 •••••••••

•

x: •••••••••••••••
!f;S~~f~82
..
..

SVC 2

i
.'.
••

01

••

Ie .0 IS nue! ••
A DIS!
.0

•
'"
•

o YES

.. " RES

DISKS

.. .'. ..
. .. *. ..
..
....
•.. *
••••
B~

*•
RO!!lSG

*

:••• ;ll~.=~~ •••• :

• BC

CIJIlGTP

i

•••• E2··.It •••••

tIS~

:• l"l,
'I?f II4~'AU'
:•
D'!P

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

•

STRTOP

i

HUlSC
•• YES

SET "l'IP!

tJtTn

•

OIlnClT! rEVIe!O

• IJDICnCBS
0
• II'l~f 1'11'1 0
TES :
: IhDIBD

o

(n
•.•.•••••••• l••••

o•

.. YES

o

....

teAt USEII'S

•
•

0

i
• •••• »1) ••••••••••

::i!2~~~._._._9~:

•

IN ~u
!!!1! 29

Oq'fPU~

i
···.·D3·········*

INITIAL

. * DEVICE *. ' . HO
*.• 0 ASSIGBED
...... ..
*.
.*
*. t • • * .i

!1n

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

• IlI!!R'i IUIIE!J •
OJ RlCOstS
•
TUC~ I I D,r
•

o

o

•

o

•
IOBEG nn
•
OIOUEl lDDBESS •

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

En! 72

•

o
*
•••••••••••••••••

•

• 12 •

••••• •

i

' •

•

i
.*.

I!lG"l'POP

.0.

•1

E3
' •
•• PILI· •
•0
cnnD

.*
*. *. YES
.. .. DEVIC'!
*. IGNORED .t .......
*.
.*
*. * .. Ito .*
i

••

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

NO

*.

.. *.••* .
Bt .leI!

*.......................
YES
..

co.nOL . '

'"

Ie

'" eq •

i

• :*

. *f'

*.

i

• 0.

F.3

*.
*.
~EJ~a8 *:.!~~.

.. *.. *.."
•

.*
••

110

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

.•

i

NO

•••• •

o

.0 •

••

•

i
·····.s··········
*

SYSO

•. ••

.. ... .. .. .. ..
tRPO!
!II!

•

•
:

• '"

o

I'DICI'!!

IIPU'l' c~

D~¥'rnhIh

•

:
0

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

YES

'" .12 •
D1SDCHK

.*

G1

..

•

i

*.

*.

*. *.

.. " IS DEVICE
A DASD

*.

•••• 0

* . •.DEllC! .* ••

•
•
•

YES
...... ..

i

*...
o "
NO

*

•• *.

••••G2.i
••••••••
SVC 2

...............*
nTCH
$$EOCPT2

•

STRO~

IJWKL

:~~!~!~~.-.-._i!:

•
•

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

o
o

S'C 2
lneH
UEocnl

i

• • • • •QIj • • • • • • • • • •

•••• G.3.i •••••• *
•

•
te1t 'OS!1"S •
ICUG WIn
•
.IOUIBl ADtIES! •

*

0

• • • • • • • • • • It • • • • • •

•

.. AS •
•

.* •• 0

•••••u1.i •••••••••
•
UP eel

SB~

..

•

..

POR Rllt

..

..

OR WBITE

'"

...

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

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

.'1.......BO.•..0

i
····*J1····.··*··
'FO'
E -'3

ftOVE

• II

• 0'"
•
0

..

•*

*

i

K1

.'. ••

•

..

*.

*.

PUNCH

* ..• .*
•

YES

i

••••
•
0
•• B" •'"

FETCH

~mp~m~I

....

OP'!RED

••••

.*

YBS

BETSOH

i
• ••• Jq •••••••••

•
o
•

SlC 2
*
IEtCR
•
BOPE"
•
•••• l •••••••••

i

•• IS DEVICE •• BO
A BEADED
• * ....

*.

*•

tBI'lI1LIZ! !O •

:•••••••••••••••••:

*l!t~~.:

:.Rl;

CKBDB

•

o.

AlOTHBB o.
D'lP!C BE ••

:1 ........................ :

·.···.12*··· •• ***·

IBD...
BAN.

.'.

•

i

CKRST

R4

.••.

*.

PIICGBA!'"
•••••••••••••••

••••

•

i

CHUOD
•• •• 83·411' ••••• *
•
sve 11
0
• TC PfCEL!1I

••

i

••••• •

• •• ·X2 •••••••••
svc 2
•
!E'l'CB
•
•
UEODUCP
•

•
•

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

13 •
•• ••••
•

• ***

Charts

399

Inde~endent

Cpen Device

$$BOCP03:

Chart QC.

liles, Phase 3

·•.•...•••.•

.....

• A3 •
•• ••••
•

•

It

•• ***
•• ****11****
••
UEOCP03
•"'
•

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

...... x*

X

... .......

INI:ICA'IOF ..
IN DT!
..

•
LOAD OS!'lPS •
'" IORIG WITH
'"
.ICABEI ADtB!SS ...

..

NO ••

i
•••
*0

i:

•

•.

·*D"·····**

'" G!T AND •
*!!OtIPY PUNCR •
*CCI '10 SUPPR'I!:SS.
T1URS!'!q*
SEi Bt!! COT"

*DA'1'1
••••• *•••••

i
.
•••••••• .•• x.

.···.E3···•••**·•
i

: UBTBCP

• SUE'IBAC'I eliE
•
p:Rell li!eCliD
•
COOR'! ABI:

i

.,5
•

•
•
•

*

..................
• ADD cn TO
•
'lOABH HtBESS •

•
•

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

IlICRF!!)l't
AL'IEIUilTE

,.

··G3·······

i

*..

.. ..

1 PUNCH
*. *...
.,.

•

IRDPCH

•

....
*...
...
J1

i
.•.
••

..12

•• DEVICE A •• lES
•• BEArER-PUNCH ••••••••••

*..

.'"

'"

'" NO

.'.i *.

CKPTR

.*

"'. *.

*.. *

• lES

........
*

A3 '"

.. .
•

•.

~.

i
* •• '"

••

X..

"'.

*.

..

*

~.

• '"

o
•

*.
.....
*.

..

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

*

. '"
* .••
•

.··."15••••• ••••

*

AROTH!R
YIS
DT" TO BE ............ ~'"
•• OPE1UD • '"
NO

S1C 2
't'l'CB
"''-OP!I

•
•
•

••••G".i ••••••• *

•

SVC 11
TO PROBLE!

•

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

•

RESET
•
• BEADfB-POJlCH
•
•
SIITCH
•

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

.."'*
• i
*
:~~~~!~~"'_._._i!:

:ONTBC

•• YES
•

~'"

o.

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

. .*. ••~

INPUT
FILE

•

*....

•

~.

..1~.,. •••••••

•
LeA£ OSED'S
•
... ICEEG lII'IH
'"
"'IOl'R!J lttlilSS

•••••••••••••••••*
i

Kl
•• DEVICE
•• NO
A PBINTIB
••• ~ ••

*.

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

•

NO

•

i

··B3·······

: liST

..H2 •••••••

SET ALL.
•
YES
.BB~UIliED SV. •
•
•••••••••• X.ABD IRDICATCB.5 •••••••
X . PO~ DElIC! •
TYt! USED.

..**

*•

...........

• *.
81
••
.*
*. ••
•• DEVICE

•

0

Fit

• SEi EJECi •
.ANt 50PPRI55 ,.
• I/O TBANS.,ER ,.
,. ,.:U li~~~IB!D ••

CKRDR

o P110P!~ CC'IiI

CODE IN

.*

i

:snsys

•

••

:
•

EY ON!

AND PUNCH

••**

•
•

l{gD~~~~

:
•

*

S!T lolEC'! •

• ,4 ... X..
•
•
'" .X •••••••••••••••••••••••••
X
CH!OB
•••
Q1!'fPlOtf

i

:AJALT

•****·F1*****.****
••
SET UP eev

"'*~q •• "' •••

•

•••••••••• *

·····'3····.····.
......... .......

i

Oli IRITE

·;1.!lS21!!~·

NO

i

.F4

•

'"

""'3

*... .",.. . *
•

i

(iii°giLED
••••••••
••••• ***:

..

.*!

. *.

·····t3..........

•
..

FOR BEAt

'"

•

Cit
••
..CS •••••••
••••
.IIS'!!,;'!: JOI'n •
••
INPUT
•• YES
.CCft""lt CotB •
••
:PILE
•••••••••• X. II CC"" !e'R
'* flOPPE'B 2 •

•• •• 5VC '1 •• ••
••
VAIT
••
. . . IF BEeDlEEU • •
••••••••••••••••••
•
••

**...

..
..

cel P

: •• 1~.J!i2

YES

IF SECUIFID •

IF

IHC,

•

~

•

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

i

•

I

.0·0

.*

SET 1Q03
.OtE

·····D1.·····.·..

•••••••••••

•

··**·84····*·**··
* IIIO"! OO'l'PO'" *
• eCI '1'0
'" AID •
•

···C3············

• COftPOTE •'"
PUB EJiTRY
..
lDIlBESS
•..•••••••••••••••••
•'"

:

32~~63gB

IN DT!

BlCX

••

i

••••**

..
..

i

*o

••

•.

•

HO

•••• *! ,."' •••••
..
ADJUST BYTE
.. 95 POB ROB.. DISK DEVICE

• o.

•••• *
•.*,,4.*
•
S'I!:'t 2561) Cq •

'5~25 InIcno~

,.

lQ03tJ

•••••• o.

.. Pit ..

.. "DEVICE *. YES ..
*.. * IGNOBEt
.............. ..
*. *.
.*
*.... *' .*

PUBAD!

lB DiP

•

i

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

·.............
.. ..
....
B3

:~~!2!!~*-.-._i~:

REGIOR
••••••••••••••••••
•..

•

•

·····E2·······**·

*

. *. *.

•

"'

~

EX",C'

• • SET PtiIlI'IfR 0 •
INtICATCF.
•
•

•

i

*·***B1······.·.·
C1

IJr,CICATOli
ARt SECORD

..

·.A3.··.·.·
i

**12·······

.5E'I RIIE!:R •
'"

..
GET
..
'"
ADDRESS OF
III
*COI!IKUHICATJORS •

i

..

lQ •

i

o

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

'" F4

..

.*

••

!C"~

.*

.'. :t •

..

lto •

2560
C:B ~1I2~

"'. NO
....... .

•••• .
.
••••
• ... •
·.

*. •.. * .•

i

.. YES

"' i

'" pQ ...

o

•

'" A4 •
• • lto •

Charts

401

Chart QE.

Open

$$BOCPl1:

D~FCP

(Version 1 Only), Phase 1 (2 of 2)
•••••

:~y,:

•••

·i. *oo

1,3

.. "

••••• A"' ••••••••••
..
IRDIel'fl
•

*oo

x:..

• 0 IS DI1IC! o. YES
0
•••• A PBIIIJ:ES .............

**oo. ..**

PBnna

:• ... .

~4;f):;\EI~,

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

• Ie

i

LDIO!!O

D1

.'.

.*

o.

cnGn

*.

.:0 Mrs o:.~?.
*.
.*
*.
.··.·;15
C1

.*
'.
*.
.'

.'.i o.

IRPOT

i
.0.

S3
..'

.•

•

..

:

**oo. ..**

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

•.. Ie

o

*oo *oo •• .-

• •••• Bq ••••••••••

too

....
:QE1**.X:
.... .
0

i
·····eq·.···.····
::~!~~!~.-.-.-~~:

·····C3··········
*
*

BltRCR

*. o.

*.

. ' IS DI1IC! ' . liS
• IBDIC1·U 'Un •
..... A TAPI •••••••••••• X: !~;O~.;.fB:r!,

.

tlSI
••••••

I

•

HT !ltROR

0

*

'qS831'

..

o

BESSlG!

o

•

..
..

..
..

.IOARU ADDRESS 0

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

• 10

LOAI: USEl"S
IOREG II.TB

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

0

••••

• D3 o•• x.•
..

*•••• •

i
••··.C1...•••••..
: l~~nsj/io :
o
•
o

RIOISTBB
SUI lRIl

•
••

..

o

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

!1

Cl11

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

*.

*.

D4

.*. ' .

JOB

t.

CORTROL ' . YES
OPBI
• *....
I'ILI
...

*. *..• .•

*

10.*

. . . . . . t.

•••••

.*
*.••
o US

.*

*.

:Q~2:

•••••.,.1.t•••••••••
•

• an
•

••

BO

i

•

•

•

.'.i *oo

D'IP too
10 . ' IIDIC1U ' .
••• • ' . PUltElt Olt . '
' . POICH .0
oo-

••

*.

..

nBOBSG1

i

!G!POP

•••• D3.i
••••••• •
o
nc 2

POInD!
TO CelTROL
caIRIC'!B.

*•
:

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

o

I.PUT

•.

*. t • • • .•

*

*...
.

.•

YES

0

:1 .......... : ........... 1:

••••• '3 ••••••••••

•
•
•

.*. ••

PIL!

•
i

TSnlG

!II

SIT UP rOB

i
*••• *P4·*··.··.··

:I •• KPL

o
o

0

AH~bsGH

0

•

SET UP POB

:

:

0

:

AU~ihG~i

• ••••••• *••••••••0

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

•

:.......... 1:
i

IIIC

i

.'.
G1
'.
• ' DnCH o.
ns .' GlnltUBD ' .
: •••••• !OR il~K

*.

• •• G3 ••••••••••••

.•.•

.111

: Sts~~UoB1.io •• o••••
0

:o ll~Blsi~ft
:0
IUIIR
••••••••••••••••••
0

.*

• II SU! IBIl
o lOB USIR'S

0
0

••

IBPU'r

PILE

*.

YBS

••••••

.•

• 10

83* .... *.

*

'.

: ••••• ;~'Ii •••••:

*.

.'. ' .

*. t . . . . .•

*

..

BYTE 21

.......... :

:C1LOU

"'. *.

PILE
PSO!ICUD

:1 .......... :

:

•

:~

i

J3

SE!

:oUTP~i ~~;1)8')

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

* us

...
.*

"4.!un
•••••••••

41.41 • •

::
II¥or' :.. :x
...... ~?:·*. CO!li£~'l! . *:.
.. ..
..
..•••••••••••••••••
•
.. ..•
*...
*..•

J1.i••••••••

: uuofRDI,gs :

J.

.. *.
..
*..•

G4

......................... Ii

.....82..........
.. ..
.. ..

:.......... 1:
S'1'01 ••••

.~

.-

-.

••

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

*..•
o 10

o

:GETOPB

SlC 0
SIBS!
CCBBIJD

.•

BO
•
••••••••

•
•
•

····.)4·svci•.·.·.•·
CALI

2

..
..

UBO!T06
0
•••••••••••••••

US

•••••
lt3.i.It ••••••*
o
*

IUTIlLIZ!

*

: PRIIlem SAGB :
•••••••••••••••••
•

0

i

••••• •

.. 1)3 ..

o

••••

•

Charts

403

Chart RA.

$$BOCPT1:

Open

D~FCP

In~ut

and DTFDI

.....

*

.. A3

Tape

*It

.

• ."" *

i

**"'.A 1*********

·•

..

f$BOCPT 1

A3

.•
..

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

CPTAPE
OPENIHIT
RELHFXT

•
X

i

····*131···*······

*

·•

.. RELOCATE CCBS
..
AND celis

.*. *.

,,"
*. *. NO
... REiIND
*. *. SPECr!I!D."
CFTIeR
."' •• ".
*. *. ,," ,,"
'" YES

•*****E3"'''···''''''···•

•
..
...

.•

..

SET CCV OP

CODE 'Ie
REWIND

..
..

...

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

·····e ,.*••••

*****C3****"*****
*10
BC*
*-*-*-*-It-.-*_*_*

i

..

i

*•••...

BITS TO SET

'"

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

*

...
,"ODE ANt
•
*PEIUUNENT 'LAG ..
...
IN celf
..

*
*

REWIND

*

TAP!

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

x

CHKLAB

.* . *

..

..

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

'" MOVE DENSI'rY

****

*
Bq *
***** *

**

"'.

*.

Bq

.* . "'.

VOL 1
LABEL

*. *.

REAt

*. * •• * . *
*

.*

YES
.* .................
.

NO

**"'**Cq**********

i
*****C5**********

**

*

it

HDR1CHK

'"

*

**

PlOVE BU. NKS
INTO VOLUP!'!
SERIAL NOII!B'E~ •

*

SAV'E AREA

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

*'"

SA'lE
VOLU"!
SERIAl

'"
"
'"

'"

HUeflE

"

*
*
*******""'*It"''''****

:x .......... :
i

*****D 1** ••• *** ••
..

GE'I LOGICAL

..

ONIT PBOM

..
..
...

DTP TABLE,
GET DT'
PILENAM!

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

'"

..

..
..
'"

*."'.

*****n2**lt**lt***'"
BE*
*-*-*-*-*-*-*-*-'"

x

i

DETPATH

•••

*D3 *. *. *.
YES • '" STANDI!'£:
*
SlUBeR FOll
*X •••••••• *.tABELED TAPE .*
*
tABEt
*
"'. *FILE
•*
... INP01U!A'lION *
..:t
**** ..... ** ..... ****.
* •• "
* He
• SRCHtAB

•

D4

•*
*..*
*.

*.

.*. *.

X

HD~1

*. *.

READ

.*

LAB1!L

*..
*.*
'* 'YES

•

*...... .

*****El···*****··
.. ftDVE ADDRESS
•
'"

OP TLEL

I/O ~~~A TO

:

*****E3**********
*SINS!
RB*
*-*-*-"'-.-.-*-.-.

...

**

:

CHECK 'FCF

LOAD POIN'!

*

*

•

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

*** **F
1 ****
******'"
tmVE
PHASE

*****F3**********
* SF"! celi
,.

*

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

i

..
..
..
..

In TO UPPER
E-TR1NSIENT
ARE.A

CC~MA Nt CetE

**G2*******

IS
.* .* 'IHIS

*. *. YES
* TURN
OFF *
11
..
rlESSAG!
*
*. ••EETUEN
FFO!'! .* ........ X.
REENTRY
*
$$80CPft' .*
* SWITCH
..
*. * •• * .•
*
'"
****"'''''''****

* HO

DETEB~

it

i

******81**********
*
* INITIALI2E
PROCEDURE
•
* LIST POINTER *
*

'IO ZERO

*

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

X

*

INCREPlEN'I

FROCEDURE

'" LIST POIRT!R
BY q

*

*

•

:

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

*****Eq*********'"

*

POIN1ER

(F:~Crn;;

•

*

. . . . . . . . . . . . 1':.

'"

**
*

:~npHS

.

"' ••••••

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

•••• *

.X.*E~*

..
x •**.

**1::5*******
*'tURN F1US1! *
*INtICA'rOli sw *

*

AND ~E'lCP
*0111
TO FETCH
**
* "tBOCP1q *

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

*

FOR REAt
*,.
* OP1!:RA'lICN
•*** *"'* *ot It ••• ot",****

x

.*. *.

LI~T

:

i

*
*

..
..
..

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

G1

*

HWC!DOR!

X

i

DETPATH1

*

•

:........................... x:
i

*****D',i****·****.
* I'ICF!PIEN'I •

'NO

H2

•*.

·
'"

*

READ 'lAPE

.
*•

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

CHKTM.

"'.

i

.*'" *"'G3'" '" *. ******
*Ie
BC*
*-* ... *-*-*-*-*-*-*

i

•*. :t.

83

**Hq*******

•*
*. *. NO
•*
*. *. YES
* '" TURN ON '" *
*.•* RETURN
ADDRESS
.* ....
*.. * TAPEIURK
R:EAI!
.. * ............ x*
TAPE!HRK
*
*. SFECIFIED.
'"
*.
.*
* SIITeH
'"
*. *... *.*
*. * •• * . *
*
*
i
******"'****
• NO
* YES
*"'*"'* •
:x
..........................
:
'" E5 *
•
*
x
** ••
"''''**
•• Eq **

*

****

*

i

..
•*****
*
11.3 *
****

Charts

405

Chart RC.

$$BCCPT1:

Subroutines for open DTFCP and DTFDI Input Tape (2 of 2)

****AQ******"'·*
*
'UBOCFTl
'"
*
LABEL
*
'"

IO

i

*
*

GET ADDRESS
OF TAPE eeB

*
*

...
'"

'"

*'"

•*1fo**.*************

'"

*

*** •• *.** ..

X

EXITLAB

*****81**********
'"
III

SUBROUTINE
*** ...

**83.******
TOliN eN

D'IF TAPE
LABELEIl
SWl'!CH

****"'*"'****

*

it

'"

'"

*

'"

• '"

**BII****·"'*

•

*TUliN OPF DTF *
* TAPE LA-BRLEn

*
*

SWITCH

***********

•

•

*

:x ........................ :
i

BUT

*****C3$*$*******

*

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

SVC 0

EXCP

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

GET ACtREsS
CP FIt! lIST

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

i

X

*... '"

t," *. *.

*****£.2*********.

*. *. NO
* '" SVC 7 .....
"'...
* '"
.* ."'.0 ....•. X.'" .'". WAIT
'"':I<
" '"
*.
.
"'*
.'"
*..
* *
*.********110******
'" YES

•*

CHANNEL

END
"'.OCCURRED

.*

.*. ••
• Ne

. *. *.

it

.* ASCII *. *. NO
*.• '" SPECIFIED
."' ••••
*.
*. *.. *.* . *
'" YES

* • lIe.

YES • '"
!'IOEE
....
*. *. FILES
BE OPENED ••
... *•• *TO... .*

i

El

D3

..

"'··**

*

.... o:n ..
.. **E3
TUlnf
OF!!! ACTIVE •

•

..

INDICATOli
IN DTF

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

*

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

it

.*. *•
*. 110 ..
*. '" .OPEBATICH. *.
.* .. X...
'"
*. *.. *.*
'" YES
•*

Fl

liAS

.. '" PREVIOUS
I/O A REAt

i

***·*P3*·*"'*"*·*
SVC 2
..
..
..

FE'ICH
SIEOFEN

..

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

i

·"'***Gl·**··*****

*'" THARSLA'IE '"*
*''" LABPt
TO
'"
EBCDIC
'"
•***t.*****"'*******

:x .......... :
it

'"

...

****81*********
RETURN VIA
REGISTER 9

'"
'"

•*Jto.****lIo******* *

Charts

407

Chart RE.

$$BOCPT2:

Subrcutines fer Cpen DTFCP and DTFrI Output

****;l~~~;;;····.

o SURCH LUlL

..

o
..
o

0

SOBIIOUTIBS

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

..

••••

o

0

•

0

····13·········
UEOCn2

5!!S!
SCBRCCtIRE

..

•
•

0

.. B2 ..

i

.*. *.
1!2

. *FOB'l'B11I *. ...
••

*. *.

PILE

*.

.• .•

BO

. . . . . ..

* ..
*
., YES

.···*e1········..
i

o

..

0

SitteR

REID cel

·····C2··········
52'! SWI'lCR
TO IliDICAT!

..
•

0

•

•

POIITRAR

..

..

TO POIJT TO
POBIB~I I/O

.•

*...
"
.. YBS

•
..

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

*.

WO
.• .* ......

i

..

0

:

OIlLAB!L!D

..

PILE

..

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

•••••D1.i
•••••••••
CHIRG!

*

PILE

..

:o l,gR~~~~S :
•••••••••••••••••

..

i
.* •• *B3,. •••••••••

S!HSE

... e" PORTBII *. *.

*. *.

o

··**1:2·········
!!'l'UB.
VIA REG 8

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

RP.

•

REIIID

.

•

'TAPE

•

o
•••••••
*••••••••••

D'lll' tAPB

..
..
0

SVC 2
'PETCH
stBOPElf

••• •••

• '"

•

••

•

••

.0.

o.

••

WAS I

'11\,I"AII
READ

o

*. YES

...

BO

•·····nsS!'..•.•.....
I CCII •
i

o

RP.

.................
o

•• oo

liAS
••
ASCII.·
•• SPEC'UII!:.·

CI5

.·····D3···*······
-.-.-.-.-.-.-.-*
PIBPOIn,
SflSE

i

BS

• ••
*
• Ne

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

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

•
..

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

•

•

Y1S ...

•

····CiI*········

•
•
•

•

.10

0

SUBBeD'!llf!

~XI'I'Jt.AE

•

i

•
•
•
•

POB SIBSE
CCIUIIII:

o

HEocn2

"I'll''! tlEEL

i

·····C3··········

•
•

•

.. ..
.. ..
.. .. .*oo ...
........
: .......... 1:

X

••• J~;2l~l •• •

it

*• COflflUJt
Sf'! CCli
CCtE

··Bq·••••••

• TURti opp

• LABILID S1IITCR •
•
Bt'!''! 44
•

•

•

O.

ElUHLB

.-*-*-.-.-.-.-.-.*
.10

*

i

i

•
..

....
....

o• ail 0•• X.

it

.*. o.
E1

SRCRLAB

••••

o

(1 cf 2)

.**.A,Cj •••••••••

•··*;1=~~;;2···· •
LABl!L
'"
5UE100'!IHt
•
•••••••••••••••

0

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

~aFe

•

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

o eceeABt eetE

•
•

•

•

0

'10 BE1IIBD

"'o

•

0

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

.·····E1······.·
-.....-.-.-.-.-.-...
i

DOBBlD

• IID!:ISK

*o

Ill.

SEARCH L1E!t

..

CILlBDEB

0

•• :t •••••••••••••••
'lRICK
..

....

.....12...........
.-.-*-.-*-.-.-.-.
.aSGQ,S4D

ISSUE PILE
PRO'1EC'l aSG

•• Gl.
*

o

HRF

·····G1·········.

•
POIR'r 'IO
•
• STAHIIBD LIBEL.
•
TRICK
..

•

it

*
·····G2··········
*

LAB!BD

•

•
•

•o

EY 8

••

o

•

·····81········..

i

IIRD •
ACK •
'TO·
•
0

•••••••• •••••••
i
•••••"1 •••••
*••••

.. SET
:
..

CA'TOR •

A~L

ic6~D

1

:

'E IN
•
11U!A *

•••••• ••••• *.
• S~I:..

.*

IlICB!!!I!
PROCl!IOBl!
• LIST POIlI'll!R
'"
El 2

•

•
•

***·B2·······*·
BB'fOlilf VII
•
REGIS'l'BR 8

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

•

0

••

·····Kl·······•..

.RDEISK

RF.

.-*-*-*-*-.-.-.-.
.SEIRCH STAIDARD.
•

o

tABEL TRACK

•

0

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

•

YES .. •

.1... •••

0

*-.-*-.-*-.-.-.-.
0

NO

...

••

*.

•
'"
•

:VOLBOO

BPI
TAP!

**.. ..•*
i

.'"

..14

*.

.*. ••

••

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

••

aOQ

*.

EliI
'rAP!

"'...
•..•
•

..

*. *.• *.'"
*

••

...
....
,,5

YES

NO

••
8QC
••
BPI TIP"!

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

••••
• 'II •
•
•••• *

••

Hq
.oo
."'..
••
1600
••

•

i

o

••

••
*. UNLABELED
Tl"l!
••

BO

REID Te
S!'T !lCDE

'"
'"
0

i

····*J3,.·······*·
"'Ie
IF.
'"
•o

i
.0.

o

.

'O.

*

0

*•••

1" •

.. ..
.........
Gq

SEVIR
•• YES.
'rRICK 'lIP!
..... 1 •••

i

i

•
•
•
•

••

*. ..

••••

*o 'E4 •0

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

.. ..
.. .. ....
• 0.

•

SEtlS!
BOD!

•••••••••••••••••
B3

.i x........... ..

•

•
o•

i

i

PCB

• o ••••

•
•
0

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

·*···1'
11····**····
*-.-.-*-*-.-.-*-.

.IO

•• BO

i

IIICR!!!!.'!
PIiOCEDORE
LIS'1 POIR'l'ER

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

•o

TAPE A'l

JE •

'tlillt
'fIPE

i

•• ••• G3·· •• • •••••

..
•

•
•o

••••
••••

••

.. .... ..

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

•
•

*.

• lIS

0

ftCV

.. ..
•••

*.

i

•

i

."Ie

o
0
• "q •
o
0

o. Lon POIn

NO

o

···.-.-.-.-...'!s··········
.....-.....

i

13

••

•• YES
DETER!!
••••••••••••••••••••

o

....

*.

• Be

CHKLP

.

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

••

*...

:;;.!

i

.0 •

YES •• TAP!IS lIt! ••
.X...........
•
•• HiC'1!C'l!t ••

it

.*.

lIECORD
FOOlfD

••

· lt18ltD·
.................
•

•

Fl..

.. "
••

i

13

BP*

•• ae

••

••••••

YES

........... J:
i

:nOLOR

"'oo YES

.•

o ..0113·····** •

..

........ ..

•

*

S!T
• 'l'!lIvot SlIITCB •
'"
OR
•

.* ••••••••*

o

HO

•

:.......... x:
:1. ......... :
:1........................ :
i

'"

····Kq·········
RBTURN TO

'"

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

0

.CALLIRG

o

ROUTIM~.

i

•*••• •
o
••••

• B2 •

0

Charts

409

Chart RG.

Open

$$BOCPT3:

D~FCF

and DTFDI Labeled Output Tape

1' •• ••••••••
•••••$SBocn3
••••••••••••••••
••

•

it

CPTAPEO

E1.· ••••• • ••
••••••
• svc
•• ••
33
••
LOID
••
• • COIUJI!G • •
••••••••••••••••••
•
••

•··*;1:~~;;;····
SI! PHASE
•

••

o•••• •

••••• •

·····C1····I11·····

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

i

lITCBU

.*

C)

•••

0

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

i
·····c.··········
:
:

:UTPBS

••

*.
.
.:;mS!nmT~:.~~ ••• :
*.
.*
*.
.*

•
•
•
•

o

••••••••••••••• *
SUBlouun

• C3 •

i

•
PIBD lit
• SUE ADDEISS
o 0' T. .ISLITl
"
TABL!

III

o
o

IS

*..
o -US

o

IIITIALIZ!

'rMHm~H

0

o

POB RnB!

*

•

..·.D4..i ···.···
5VC:: 2

III

PITCB

•

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

........... 1:
: PIO~!~!*D3.i
••••••••0
o

i

•••• *D1 ••••••••••

• BILOCA!! •"
CCBS lBD
0
•
cel
•
••••••••••••••••••
•

:uS!!!In¥cn2 :

o•

o
o

IIDICl!OB

•

0

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

••••• 1
•

ADD

•
III •••

2'~~~!I~ •••••

.i ••••••••

• LIST
OSTA

ORB ...

•• 0'1.15'1

TO.
B.

..

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

..... ..........
."
IIITIlLIZE
TO BIlD

o

o

.

..:

: PBO~~~~1.,3.i
••••••••
...

i

PROCISS

•
•

.

" OBJBC SUEUR • •

:DISJoiOTlllBCH :
... IBPOBIII'l'IOR ...
•••••••••••••••••

:...

:I=B~~iE~IID:

...

...

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

o

•"
III • •

.*

G1

.*.i

....

O.

'IS

THIS A

• G3 t.l.
· • • I.
.PROCBUl2

*.

~II~~pi!O~

*.

.*
*..
*
III YES

•

*.

•

10

•. *... :
I

o

iOIl!!O
0
.Rut sEfiuntIAL •

0

· ... :

s~i~gIil~!

:

•

UCCECUBI

•

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

.

••••

····.G3 ••••••••••

•

III C3 III

o

.·S1.··.·•. *
i

o

III
•

III

•

RISE"!:
IIES5AGE
BB!R'!BY

SII'l'CB

•••••••••••

••••*

III

0

•

•

i
J1
o•
.
*
IS 11 *.
•• ADDRESS *.

.0.

··I~ l¥IKlfiiU~!

* .•~:?;;:

10

.•....
o

.i••

•

III G3 III

*••••*
III
•

••••
K1.1 •••••••
&BE.TI'R VII •
BBG 12

III

OSPECIPIiD ADDR •

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

Charts

411

Chart RJ.

Subreutines fer Open DTFCP and

$$BCCPT3:

****' 1**"'····**'"

'"
S$BOCP'I03
'" BUILD HEAtER
'"
SUBROUTINE
• • 1fi"' • • • • • • •

"'***

DTF~I

* ****AlI*********
'Ii'$BOCFT03
*

*****12***·*****
$U!OCP'!03
*
READEB *
* iDI'IE
StJEFOOTINE
*

*

*

..
'"

Labeled Output Tape (2 of 2)

*

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

*

TRANSLATE
SUBROOTINE

*"'********"'****

..

............ x:
it

HDRELD

*.***E 1*******."'.

***·*B2****·*****
*10
RJ*
*-*-*-*-*-*-*-*-.
• REiIND TAP:!!. *
***** ********.***

'" INI'!. DEFAULT '"
'" CAPTIONS lOR

..

'ANI vERheN NOS'

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

•..*****c2**********
•*
.sET UP
*
MESSAGE
*
1I110A
**
•* ........ *.... **** •••

• vOL. SEQ., FILE*

:

Gi~~I~5§ ~S~
ELANKS

:'"

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

·

lfODE1ALT

i

.

.

*

·•

*.**

*

·
..

DATE ANt

'"

PERIOD

..

RETENTICN

'"

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

:i

•
•

'"

..

NAME IN'10
TLBL CARD

IMAGE

•*

WO

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

•

. . . . . . . . . . 1*

*

* ..
* *YES

E'ETUIIN 'Ie
ArDRESS IN

*

..

qEGIS'rElI 12+8 ..
***************

·
··

lxeF

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

i

.
..

*****nll**********

*
*

SVC 0

TRANSLATE
TABLE

*
*

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

i

i

*** .. *E3· .... *******

*'" **
* *
:

SVC 1

*• '"*

* *...... ..

iAIT
:IP BEQlJIRED: :

****E4*********

*
*

'"

***"'************+

BETURN TO

AnDRESS IN

REGISTER 12

***"'***********

**

..

•
•

i:

i

*****Gl·"'**"'·····
MOVE DTF
'"

'"
..
'"

*.

* ..

.*

·****F2**",,,,"'lf:***lf:
RJ*
*10
.-If:-*-*-*-*_*_*_*
If:
WRITE
*
******"'**********

ABSOLUTE
•*********It*******
•'"

BUILDLBL

*. *.

i

•·****,1 **.****.*.•..
'" I F IT IS NOT

.

·

.
..

.. CONVER'! DATE

..

•

CCV CCM'U'ND*
*CODE POR iRI'!E ..
* OFEItATION
..

**************"'**

NOTBLANK

i

***03************

'.
•

•.SET

'"

.!.

ASCII
SPECI'FIIIl

E2 •• x.

RDRWBITE

*****E
'****"'*"'***..
.. SET CREATION

*.

Bll

R!GIS~ER

•

****
•
X
*****E2********·*

i

*.

•*

i

*

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

• ISSUE "ESSAG!

."

•**"'**c3*·**"*****
•*
* PUT 'UPE
* ceB ADIlBESS *
* IN
1 *
•
•
*************** ••

SET UP RETllRN ..
ADIlllESS AND

*

:TRASCII

•"'TBANSLA'Il! 'IABLE*•
•"'''' .. *** ... *********•

·***·02**********
.P!SGWFITE
RJ.
.-.-*-.-.-*-.-*-*

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

EXPIATE

i ...

10 *** .... B3 ..
*.. ****
*TRASCII
BJ*
*-*-*-*-"'- .. - ..-*-*

i

***·*01·*·**·*·*.
'"
SIT FILE
..
'" AND VERS ION *
..
NUPIBEB
'"

·

•

i

**"'*·C1·****"'*"'.*
CHECK 'IDE
'"

'"

..

.

·
•

:V~~ru~fQ· 6E~:LE:

CHECK

i

NOVOLO

*****G2*********
RETURN VIA
**
REGISTER e

'"
..

*

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

..

:**;~*:~~~~::~**:

****G5*** .. lf: .. *lf:·

* ****G4*********
$$BOCPT03
*
iBITEq *
**MESSAGE
SUEROOTINE
*
*********** .. ***

* '''BOCP'It3
I'Il!SSAc;!
**
* * ......
S~'BllOU'IINE
*
If:lf:** .. ******

..

:x .......... .
SKIP

X

MSGWRITE

*****H1
**********•
!!OVE TLEL

•
•
•
•
•

INFO IN'IO

fOILI ARIA
POR RDR 1
LABEL

****82*******·*

***

*
•
•

*

$$EOCPT03
DOftl1Y HEADER
SUHIOUTINE

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

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

i

*****H4*·"*******

*

**

SET UP

*

*

flESSAG!:

*

..

TO CALL

•..
*

*

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

KSGq1e4~

X

***"*H'i*·********

**

.

..........

..

S~'! UP
PtE'SSAGE

q1f: llD

•*

.
**

**********If:******

:x .......... .
it

*****J1**********

•

*
*

·
*

PlOVE 'HDR1'
TO PIRST II
BYTES OP
EDR1 LIBEL

*

**
*

.

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

DOMHDB1

i

*****J2*·********
KO'E BINARY
**
ZEBOS INTO
*HDR1 tABEI ABEI*
****** .... **:t******

.••.••• *•*

•

•

•

X

*****J4*********
SV€ 2
**
FETCH
*M.ESSAGE
*

*

tfRIT~R

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

x

****

*• E2 *•

•**** •

Charts

413

$$BOCPT4;

Chart RL.

Subroutines for Cpen DTFCF and DTFrI Labeled Input Tape (1 of 2)

..·.A3·········

•···;t~~;;:···· .
:1 .......... .
i

·····E1········
..•
•
•
SIT CCI
• COBBIiD CODE

•
•

•
rOR READ
••••••••••••••••••
••

i

••• ••*112····.·····
•
SETUP.
:• "I~'~~I :•
•••••••••••••••••

8SG121
..

*10

BII-

•• RIAD
•
••••••••••••••••••
•..
D1

.i'.

lit.

.*.
.
. ' IBCDIC OR ' . YES.
'.ASCII VOLURB ••••••
*. *. LABIt .• .*•••
• 10

•••••c2.i ••••••••
UL.

.-.-.....-.-.-.-.-.

• RSGIUTB

• sn UP IGBOn 0
.B!TOn l~D&!SS •
o AID ISSUE UG •

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

i

.•

B3

*.

*.

.. ..
LABEL

*: *~~ ... :

••

.i'.

*•*.

**
• ..
• YES

.•

•••••aov!
D2.1velD
••••••••
III! ..

•

• SERIAL IUBB!!
•
liTO PIL!
• SBRIAL RUBB!B
• CI 'lPLlB enD

*.

•

'.

• e': •• 1 •

*

SIT U p .
"ESSIG!
•••••
4111A.

•

•

i

tl1STOliE
PBOC1!DUB!
POIlllTEB

•

•
•
•

····C4·········

* WRITE
nBOCPT4
"ESSAG!

•

•

SUBROU'lIB!

•
•
•

•••••••••••••••
:J .......... :

!!SGIBITE

i

•
•
·····D"··········

•
•

•
•
•

•

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

RI'lURR TO
CALLING
BOUTI.!

•
•
•

····cs······.··

•
•
•

'tBCCn4
SllAC! 'ItE
SUBROO"rIR!

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

0

•
•

·····n5·····.····
i

!STft

o

0

'SE'l CCI CC"RlI["

•
o

can!

PCB

•

."CJ1ifAtrc SSJCE , .

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

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

i

·····ES········.·
.-.-.-.-.-.-.-.-.'fl.

0

••••••••••• I:X •••••••••••••••••••••••• :

i

••

R'!S'IOB!

SUf!'BCUTIB!
•
•••••••••••••••

~!ST6;;·

i

•
•
..

:PBOCBUR2
i
• ••••12••••••• • ••
'.
•
peIB"r TO
•
A
•• YES •
:n~M~8¥mIAt:
snlDlBD
••••••••
HDI1
••
·.LABEL.·
.0.

11
•*TBIS
IS
••

•
•

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

•. .. . *YES

C3
••
.·VOLUIIJ!
•
110 •• S!RI1L HO.
•••••••• ~?U~hliL n~!
•• BC • •

• * •• ;,~~~;;; •••••

·....
.......B4........... ..••••B')..•••••..•.
't.....

:1I0YOL1

• :. ISva~~S

*.

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

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

• o.

VOL1CHK

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

i
··.··C1
......•••.
t_III_._._._._._._.

VOLSKXPl

•
tSEOCPT4
•
• !ESSIG! 411U •
•
SUBROU'lIBE
•

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

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

VOL SKIP

····A"·········

"
UBcen4
0
.VOL. SEBI1L HO ••
.. SOEIOU!IH!
..

• RBSSIGB _1121 •
•
SUBliOUTIRB
•

*.. 111

• 10

:•••••••••••••••••
mmuJ :

i
•••••..
*all

i

*····BII*······*·
2 .

*.

svc

•
"

'PITca

$SBOePRl
•••••••••••••••

..
0

i
•·!K
••••
•
• 84·
"•
PieCRUll

.

.. B3·

••
•

KSG13D

.l:C

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

POli1ifABD

•

•

.*..

j
'!')* ••••••••

"E~QBR '10

ClLLIRG
ROUUI!

•

•
•

····G,,········*

*

•

0

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

*•

•

..

suet ut!

nBOCP"
•
8BSSAG! _1151 •
SUBBOOTII!
•

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

6SG15A

i

••

SET UP

·**··all**········:
:

.
•0

"1~~!~B

"•••••••••••••••••

·····as
......•...•
•

~SGl61

i

•

SE! UP

:

"ij~~I~!

•

:

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

: J •••••••••••••••••••••••• :

•'" ···;ifi6~:;;····.
BESSIG! 111"11 ..
•

•·.···K1SET.......•••
•
UP
..
: !l1~~~g! :
•••••••••••••••••••

RSG32D

•

i

8SG33D

i

•••• ·R2 ••• • ••••••

•

:•

o

ii§si~!
41331)

•

:•
0

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

SUBBCU'rII!
••••••••••••
*•• •

*·••

"SG1'A
"

i

·13 ••••••••••
0

SE'r
:•* Rum'
:
UP

•

•••••••••••••••••0

i
•••••
J"SI!••••••••••
•
eel
•

• CORURn eoCE
..

'10 R'BW:[B'D

•
•

"
liD ORLOlD
••••••••••••••••••
•"

*
·····KII*·········
.-.-.-.-*-.-.-.-.
·10
•
•

'
BBllln
QRLOID

"".
•
•

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

·•••••••••••••••••••••••••••••••••••••••••••••••••••
i
.
.
Xil •••••••••••••••••••••••••

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

• I!!

Charts

415

Chart SA.

$$BCCPT1:

Ta~e

Close BTFCP and DTFDI

Files (1 of 2)

•*****
•
1.2 *
•****
•
ADJNOBOP

•• ···"'11**·******
••
$$BCCPT 1
•**"t************
•
i:

CCPTAPE

1**********
•*****E
* ESTABLISH AND **•
.. INITIALIZE
..
REGISTERS
*
•
•
*********•• *****.

X

•*****A2**********
•..
•
IIIC'REPIEII'l'
*PROCED1JBE

*

LIST

FOIN'!EB EY

a

*

•.****11****11***.*.•
If:

:i:

PBOCBUH

*****E2********.*
ADD t=!lOCEDUIIE *
** LIS'!
POI liTER '"
'"
TO START
*

**

CF EliOCEDUE!
'tABLE

•
•

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

****13·········
*
'UECCP'Il
*

EOPBLDWT

..

·····**··**

i

CAPTICNS 'POB

•

:V~~R~if· Gi~~E

**·*AS •••••• ***
'UBCC-P'll
*
'EACKSPJCE
*•
S1:!BROU'!IJ!
• •• 11** •••••• * ••

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

i

RD'IPLAB

SP

**·*·Bq·.···***··
*BDDISK
S'3*
*-*-*-*-*-*-*-*-*
* SlUBCR SYSRES •
*LABEL CYlIHDB~ •
*
TRACK
•
*****.*********.*

,.. INIT. .. DEPAULT
··***B3

*

***

******Aq·*··*·**·
"BCCPTl
•
READ LIBEL
•
SUE'BOUTIIH
•

* BUltD HEAtER •
**....
SUEBCtJTIBl
*
*....... ****

:

'ARD VEE~ION NOS'

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

i

•••• *'B'5** •• ******
*'IO
ss.
*-*-*-.-.-.-.-.-*
"

i

:x .......... .
X
*.*"'*C 1** •••• *•••

OPENINlT

*,..
*..

KOVE DENSITY ,..
BITS IBOIt PUB •

ENTRY TO SET

•

BODE ABD
•
*PElftARBBT liLAG ..

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

PBOCBUNI

it

*****C2·***·*****

** *SU
*
E
*.
HE '" •
* *IN
IIED* ...
* * PI
BE '" •
'" *
**
*****"'****.******

i

"'flOVE ADDRESS

T~8L

:

*,..

PO

BY 2

*

..

WIND"
FlED'"

LIST ..
E! II ..
tARD"

*....

TAPE"

*******

i

*****Gl**·*···*·*

'"
INCREMENT
'"
*PBOCBDQRE LIST '"

.. peINTER EY 16 ..

IF INPUT

..

'"

PILE
..... "'''' .......
:t** •••'"

i

·····R1····"'·****

..

SET

cew

OP

lit

,.. CODE POR READ '"
'"
OPERATION
•
'" IP BEQUIIIED '"

•******.**********•
i

*****Jl**********
*10
SB*
*-*-*-*-*-*-*-*-*

**

RETEI'IICR
P!RIOD

•

•

i

.. LAB

..

*****nq**********
*RDDISK
S13*
• _*_ *-"_lII ... "_._*_*

*··*nS*····**·*

*'""

*SEARCH $'IAlfDARD*
T'RICK
"

*

•
•
*********.**"****
Ell

.".

••

*. *.

*

•

TLBL

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

'BBIINt

Tll1!:WINr:

•

•

i

*****l!5 ••••••• ***

."
*.
• * CORRBCT *.

•

1'tBCCP'l1

SOEBOUTIN!
•
*••••••••••••••

.'IO
SB*
IES
*-*-.-* ... *-.-*-.-*
•••••• 1 •••••

* lilllI1ID TIP!
!*** •• **** ••• ***:

i:

**.*

• •

•• ,]'; *•
*••*

·****Fl********·*
..
IN
ENT
..

*PBOCE
.. POIN
.. IF

ADJINPUT

.******.**
DA~D *
IC! *
Ntl
TO.
** SIE
RCII.
***.***.*
•••• *****
•

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

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

DETP1TB

******c
* !!OVE
LAB

i

:i:

*****E3*i •• *•• ***
** SETtiT!
CBEATION *
ABD
*

E LIST ..

,.. IS SP

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

•• ***.
•
•.*..15•• •*

i:

i

i

***·*B1····**·**·
..
I
!lEN'!
•

*PR

:
..

•*
*** SEBIIL
SET FII.!
IBD
•
*VERSICN IU!!E1!R *
••••• *•••••• ******•

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

DEUB!

:s~B£iI l~fi!!~~~~
* POR ELANKS

NRF

*****D3·"*·*·***·

or*

~~~A

CHECK
i
*··*·C3· .... *······
.CBECK TEE VOL. '"

RODEPALT

•
•
***·*D1··········
:
RVAg

*•
•

'EACKSPAC!
'Q!CORt

*
*

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

READ TAPP:

IF REQUIRED

•
•

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

NOTBLANK

****P2******·**

** REAt
~UBCCP'I1
**
LAE!:LS
*****
SUEDOU'lIN!
'"
•• ** •• *."'**

BYSTDUTL

i

•*****G2***·******
* SE'I CCIi OF •*

·
**

CODE

TO

REID

TAPE

.
*
'"

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

EOPSUP

i

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

•* CI.:UB B:nt ••
:
I/~A~~~l.
:
•***************.*•
i

*•• **J2*.* ••• ****
*10
SB*
*-*-*-*-*-*-*-*-.

•*
*

RIAD 'lIP!

*•
•

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

i

*·**R2*********
•
RETURN TO
...
*..*
:ROUTINE
* CALLING
.**************

i

ERROR
i
***·*P4**·*·*****
*PUT

•**.*·P3*·*··*****
* CCRVEE'l IA'Il •
•
**

IF

I'l IS NOT
ABSOtUTE

*

*•

:*

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

BtJILDLEL

ADDRESS Oll' •
BO LIB EL INFO

"~~~\i"S·

IN frESsi'BG

*

:•

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

i

****·G3*·*·*·****
** !lOVE
DTP IA!! *
INTO TLEL
•
• CARD lIIIAG!
*
.. IF FECUIFED
•

***.G4*!.**.***
SVC 2
*

**
*

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

PETCH
t$BmtSGl

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

*•

i

SKIP

i

**

*

TIIAILEB I)EEL
ARIA
•

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

i

•

i

:t-.-*_*_*_*_._._.*

•

WIll!! I

•* 'IAPEPIARK
••••
•* J5 *.
*.x.
*••••*

*

•

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

*.***Jq**********
*10
Sl3*
*-*-*-*-*-.-.-*-*
• •. x* W~ITE EO'"
..
TRAILER
..
•
•
LAB1!:L
*
.***.************

****·*·K3*****·****
MeVE IECF1' *
TC PIRST q
*
.
* BYTES
OF EOP 1 * ..... .
* TRAltEE lAEEL *
•**.* •••• ,.:t*."*****

••

*** •• "15*** •••• **.
*10
Sf.

** IBPOB!!lTICN
PlCVE "II.EL
**
*INTO EtJILD lIREA*
** TRAILEF
'Feli ECFl
*
LIBEL *
***** •••• ,., ••• ****

*****J3**·*·*****
..
ftOVE PIL!
..
• SERIAL RUBBER *
*
TO EOl1
*

"~ccnl
'I'AP! !IBK

StlB'ROtl'TIJ:E

* •• ****.** •• *:t.

'rIi'!lRI'fF

*****83***·******

PlOVESER

****G5*·**"·*·*

•*

•

i

*,.***.J'5**.******
R~TtllHI '10
"
CALLING
*
**.* •••••
llOtlTIN!
* •• *.*. "

ir

******K4*********
RETUIlN TO
*
"
* CALLING
ROUTINE
"
***"'**********'"

i

•*****
A2 •
•

*• *** •

Charts

417

Chart SC.

$$BCLCSP:

Punch File Close (1 cf 2)

•..••••
•
12 '"
•••••
•

•.SD
•••••

DISK3..

X

•

•

S'lOB'E ceB

·....' .
••

•·····El ..........•
•
•
•••••••••••••••••
i

*'...

.... *.

i

.•OB14"2
.0 .... *YES
2596
.......

*. t.

•*' ••••
•
J3 •
•••••
•

0*
••

*.

o·
*.o*'
to

t.

DTFCD
PUNCH

*. *.

!1

NO

.i'.

••

PJPEB

*.

tH~c~~

**.. ..•*
• HO

RETl!ON
•••••C3 . . . . . . . . . .

*.

. *.

YES
to ..........

•

*'

x:

:CKERROR

...

.. t

••

•
CL~ificf~~iTOR :

. O. -.HO

"''"•• "''''''' •••••••••••'"

.. •.. *..

...-

YES

i

*.

.'.
D4

*.
. ..

••
ERROR ••

*•.•
• tiS

........... 1:

.*
•. •• YES •
• '"
••
RETIIY
••••••••
*.
*.
. *.•

....

HO

i

··DS·······

:CUL!JF

• SBT CLOSE ••
• IHDICA!OR CB
••
••
••••••••••• •
•

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

.......

••*•• ,4.1 •• *.* •••

••

···"'E2·········
SfC 2
•

i

•*••••
•
A4 •

JETCH

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

•

•

•

UECLCSE
•
•••••••••••••••

• •••• '2"' •••••••••

.

•• ••

•

• ••• '15· ••••••••
S1C 2
•
PElfca

-

•••• !!~l~lll •••• •

*····1'4*.·*······•

••

*..

*-*

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

•

CC" CCONT

i

•
•

i

:U1

CP2S20

••••
.1fTDE1!D
SD.
2540
•• NO
. - . - . - . - . - . -...
••
PONCH
•••••••••• X.
lilT 'PCll
••
••
•
DElICE END

....

••

STORE
lIEW

••••• •

••

•

•

YES

NO

J.

.C4•
••• . •• NO
.•CS
CLOSE
••
*. Itt PROCESS •••••••••• X•• lI~IT~
*.
.•
*.

•

GET JAIII FeB

i

*. *.

PILE

Ft

..•

••• •
••B2
•• ••••
••

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

*•••

i

i

o.

AlIOTHER

·SD •
11*

IBD

••
SiC 7
••
••
IAIT
••
:1' REQUIRED: :

•
RESET CJ.CSE
•
•
ACTION
•
• INDICATOli IN ..
.CC!l!UHICATICNS •
•
REGIOR
* ••••••••••••'"

.....

...........

:

····*D2"'·········

YES
.. * .......

*'

*. to .* ...

.'.

. *. to

CLOS!CD

TAP!

•

...

.*l5 •••••••

.....
I'

······S4··········
*
..

i

PILE
•

*. to

•* 82 ••
•*.** •

*. t . . . *' .•

o·

*... IIIt.

.i'.

...

i
•••
*

0*
• HO

D1

•*

B1I'rR1:li

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

i

C2

*. *.

i

:

.'. *.

.
x.·..~itil~l~~is
••
coun .
•

i

i

••

•*····B2**·····*·*
•••
•
GET POINTER'
'!~IP~t~~!~o :x ......... .
•••••••••••••••••••

•
•
•

i

~~~5 ~~

..

•

• t'8S

•••••

X

A4

. : . WI~g'~1I0
·:.~?
' . I/O ARBAS.'

..
••

B2 *.X.

BETOIUI

CLOSEPT

lit

*x ........... ..

.

Cl

Elt.

·••••••••••••••••••
.•
....

•• UBCLOSP ••
•••••••••••••••• •

• PIBD COBBECT
•
PUB POJ
• LOGICAL UlIIT

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

*'
•
••
······1.2········.·
'.

CONT3

*·*·A , •••••••••

BEGIBRTH

•*..A4** ••
•** •• •

IHCBE"BM'f
.IOAR!A AtDRESS
•
BY OlE
•
OR TIO

•
•
•
•

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

• YES

•••
.···.·Gt
-.-.-.-.-.-.-.-.
i

.'TDBlED

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

*••••••
SD.

*SD

*

••••••••

•'"

*.* ••••••••

*

..

*. ••

....
!!ROR

*

0* .*

0

:P!2

1:

•·····G4·*·*······
•
HEI
•

•
•
•

'"

S'fORB
IOA'8!IS
ADDRESS

•
•

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

YES

•

ES *.X.

• • i
••••
.'.
.• Bt *. *.

•• •••

i

••••••
·SD

i

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

YES..

••
•

.

WAIT POB
DEVICE
END

..

NO..

:x .......... .
I
.'.
G2
••
"'. *•
PUNCH

PUNCH

BRROR

••

•

!ESSAG!

•

40001

. *-.-.-.-.-.-.-*-•
*STARTIO

•••••

•

i
••••• J1.*.* ••••••

i
.* ••• J2 •••••
*••••

DISKS

••

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

• STARTIO

•

SD.

•

·
*

*
*

PONCH

BLINK CAliD

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

••

K1

.'. *.

.. "'.. '" ..
PUNCH

ERROR

*.

*. *.

.•

.* •••

•• "'*'"
*SD
'" G5*'"
••

·

.

i

1\:2 ••

••••

x.
i

....

• A2 ••

PUNCH CARD

.*i . ••

•

• ••J4 •••••••••• *•
EXECOT~

.. ..

••

•. • .•YIS

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

·•••••••••••••••••.
••••••

••••

•

REM1I1IIliIG

•• DTPCP LDI •• NO
•
RE¥OIRED
Plt~
•••••••••••• x. INa~E'~~i~~'1'

•

·**-.-.-.-*-.-.-.-.*"' ....
.STIR'IIO

MO •

'" YES
: REFCHCP2 •

x

J3
• '"

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

i

. *.*

GET ADDRESS
OF ERROR CCIi

!!pCpt

••

SD.

WRIT!

•
RECOliD
**
••••••
*•••••••••

• J3 ••
•• •••
*•

• AS·
PCHBLAHK

•

••• *

•

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

• HO

x*•• "' ••••

:P7S10
**···84 ••

*"'··*82 ••••••••SD*
*.
•• -*-*-*-*-.-.-.-.
ISSUE 'BETBY
•

"'RETRY!SG

••

0

*

•

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

.***.K3.i •• *•••••
•• ••
••

SlC 7
WAIT

•• •*
•

*

•• ••
•• ••
•••••••••••••••••
:1 ........................ :
1
• •
• E2 '"
••••

....

·.

Charts

419

DTFCP/D'I'FDI Message

$$BCCPMl and $$BCCPM2:

Chart SEe

~riters

o **** 0
.. A2 '"

o

0

**"'*
..
..

o

"'··*l'·········

12

•••

*.

..

.**............. 0

NO

VOL. SEBIAL •••

:to

*.lUI'!8EIi ... .*
:to

u

•••••

132

o*"'*·*131·*·*"****·0

'" INITIAL! ZE
: ALL ::~2~BED

:

o

'" YES

.****B~.U

YES

NOUEGAL

***··C1··*····***
'"
GET FIELD
..

..
LENGTH AND
'" DATA ADDRESS

..

..
'"

INTO WRITE

..

'" ftOVE 'INVALID.

•

*

RESICNSE' TO

*o MESSAGE AR!A ••
• **"'*.**"'******.*

'"

LABEL eel

"'.x.
0

•• **
.
X
*"'·"'·C2"'····*****
o
0

i

..

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

:to

•••••

0

.*. :t.

A5

*....
* NO

.*

.. YES

LEGAL3

'"
'"

:1 .......... .
DETERPIN
:i
*****C3*"'********
* GET lllftE AND *
.RETUBN AtDIIFSS *
*OF PHASE TO BE *
•
FETCHED
*
o
0
*.*.*** .... **.***.

i

i

*.
*. .
.•
•
.*. *. * LEGAL
RETRY
*..* ....
file
NC • *
IS
••
X •••• *.
F1!:SFONS!
""'.R!S1?ONSE ••
*. LtG!I .'" .*
*.•.•• '*
i
•. * ..•.•

*.

VOLl tAEEL
•
*
AND IN
*'"
'" PUE2 'tABL!
"'*'" "'**"''''''''''*'''** "'**

"'''''''* ' .

SKIPO

.:t. :to

K1 '"

*•••

SET PECPEE
VALOES IN

..
'"

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

*••
o *
NO

*oo C2

14

'to

.• x*o

• o.

*. * . . *

0

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

.:to

*..
*
'" lES
•
0 **** 0

• '"

:t.
•"':to
• • VOt. SEBIAL*.
:to
NO. LEGAL
RESPONSE • *

'"

A3

*. :to NO
.*
*. *. NO
*:t.
.* ...IIESFCIISE
.* .'ti!SP(ltfS!
:to YES
l"'.
CANCEL
.* ........ X*..**. lU!SPONSE
RETRY
•••••••••• 1*.
IGNORl
••••••
:to
.*
.*
*.
:to.,.
: t . . '"
:t o
.*.•

i

i

LOOP1

CONTINU!
:to

0'" 0"RESPONSE *. *.

*

S EOCP~ 1
~ BOCP!!2

i

LOOP2

o
,..
o

Bq.

•••

*
"'*.* o .

L'BGAL2.

*. *.

Et;

YES

o

**** 0

o* C2

Clio •• x.
0

"'***
..
X
*****cq.*****·***·
*CLEAR RE'!. lI:1!:G *
•
•
TO INDICATl!
*
...... * PHASE TO BE *
* FETCHED STA~T •
*FROP.! BEGIlINIMG *
**-**.** •• ****.'* •

•

*

** ••

0

o

tIS

*i ••

0

*o Cq *0
****

ST1BTOVR

:X ••••••••.••.•••••••••••• :
NOP

i

i~A~~~ui~ID

:o

:0

•••• ~ ••• *•••• ****

INITIA'!E

•••

us
*.
.* IGNORE *. ••
•
•• ••••
tIGA1
*. Tf'!SPONSl! •• .. *1 ....
*. * •• *.*
tlO ...

... lES

X

'£ 1

L!GAL1

i
****n3*·***"'*·*
*
SlC 2
**
'" PETCH HEX'!
*
FltAS!
*
.**.***"'****.**

·*···D1*·**··****
o
·
0
* NO-OP WRITE *

i

AOTCTBBK

."'.

••
.*"' •• E2 •• *•••• ***
.'"AOTOKATIC*. *. IES
*• SET INDICATOB *•
*.• * TEBMINAT!
• "' •••••••• x* rOR AUTOMATIC *
"'.
. '"
*JOB TERMINATICN*
*..*
•
*
"'. o • 'NO
"
.***."'.*"' •• ** ••••

o ·*l5******* •
...

EtAlflt CO'f
LABEL ABEl

*

...

o

IOAREA

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

•
0

•

•

it

o** •• 0
*o K1 *0

i
• ****F 1** •• ******
*WRITE
SE'"
*-.-*-"'-*-.-.-.-'"
'" WRITE MESSAGE •
ON SYSLCG
'"
o*
0
.* ••*******.*****

****

****"4**"'******
: t$B~li~1/2
:
* SOBltOU'IINE
*
******.********

.
ItlS

••

. ... *.

...

i

11'5

• o.

••

IS

MESSAG!
•• "115A

*. * ..•

..

••

••
.• .*

o NO

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

AGAIN

***·*G3·*****·***
o
0
* GET AttRESS **
* CP liIJ;ITE
CCWts
..
*o
•
*************.***

i

. *.

CANCEL

"'. *..'" .*

..

IES

*........ x*

i

.*. *.

. * .*RESPONSE *. *.

*.

NO
END OR NO
."' .....
"'. CONSOLE. '"

•.

.*
*...
'"
* YES

o ***'" o .
o* K1 •*. x.

• ***

ABORTJOB

it

****K 1********.
*
SVC 6
*

*

*
o
"'*** •••• *•• **** *
CANCEL

i

SETEO!!.

•• o • '"NO

Jl

READ

X

i

o **** 0

**

'" *

**H2*******
SET END

INDICATOR

**

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

•

·"'*B3*"'***·*·****
51C 0

*

X

*****G1I**********
o
0
* GET ADtRESS *
OF RIAD
•
*

***··GS"'*·.·*.**·
o
0
*
ELIWR CUT
*
* LABEL
AREA
•

o

•

...

CCW'S

..

•

*********"'*******

..x ......................... ._

H1
*.
. " ' . . *.
•• RESPONSE

••

i

WRITE

*****c 1******* •• *
*READ
SE*
**-*-*-*-*-*-.-*-*
READ OPERATOR *
* RESPONSE.
*
o
*
• *** •• **.********

'"

IOU~!I

..

0

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

:.......... x:I

o *.** •

*o

C2 *0
****

EXCP

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

.

i

*****J3*·********
... ...* 5VC 1 '*" '*"
* * WAIT
**
* *IF REQUIRED* *
*********"."'."'****
*
**

•* 12 0*
****

i

*...****K3"**·"''''**·
RETURN '10
**
CALLIBG
'"

EOUTINI

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

*

Charts

421

Chart UB.

DUMODFO:

Put and Close Routines

Put Processing

'-u_se_r_'s_I_/0_a_re_a_---Io10
DTF table
CCB bytes 2 and 3
Bits for: Data Check
Unrecoverable
I/O error

B' 1xxxxxxx' =no-more-extents

End-of-data seek address
Cu rrent seek argument

ERROPT: B'lxxxxxxx'=name
B'x1xxxxxx'=IGNORE
B'xx1xxxxx'=SKIP
Address of user's error routine

1. Put record on block of records to ERIC.
2. End-of-extent.
• • • • •~
update ERMAP if X'C6' records were
written on volume
feed to a new volume (unless no-moreextents bit on)
exit to OPEN transient to get new extent.
Error handling
a. ERREXT and ERROPT not specified.
• No error handling in logic module.
b. ERROPT specified.
• Determine error.
• Determine E R ROPT error option.
-name - exit to user's error routine
- upon return take IGNORE option
-SKIP or IGNORE- ignore error.
c. ERROPT and ERREXT specified.
• Determine error.
• Determine ERROPT error option.

-name- exit to user's error routine
- retu rn is by E RET macro with
following options:
- SKIP and IGNORE- error is ignored
- RETRY- causes bad spot control
records to be written in the current (error)
diskette block, and the write retried in
the next sequential diskette block.
-SKIP and IGNORE- ignore error.

Reg 1

~
Addr._
of error
block
......II--_
_
~

Reg1
Addr. of parm list

Address of DTF
Addr. of error block

DTF table

Bits for: C6's written on volume
EOF-no-feed bit

4. Close entry.
write shore block if necessary
update ERMAP if X'C6' records were written on
volume.

C6's written on volume

Charts

423

Chart UD.

Transition through OPEN

~ ... LJL.:::J'

Charts

425

Chart UFo

$$B 35400:

Diskette CFen, Initializaticn (Part 2 cf 3)

Input

Output

Processing

UE

~

~

6) Update open transient table
for 3540 device characteristics:

A. "om,,", of ".,., pw

-

}

cylinder
B_ maximum head number
C. maximum address on disk
7) Contents of the DLBL/
EXTENT card(s) are checked
here:

(t
(0

A. I f returning from the
message writer because of
an invalid DLBL/EXTENT,
the bypass indicator is set
in the extent image and it
is re-written back to
SYSRES label cylinder.
B. Set up base register for
DLBL/EXTENT DSECTS of
subsequent phases.
SYSRES label cylinder

U

Set up base register for
DLBL/EXTENT image
build a dummy extent for
input:
1) blank vol serial
2) X'FFFF' in symbolic unit
3) zero elsewhere.

write extent indicating
bypass.

--

B

C. All DLBL and EXTENT
cards are read and checked
for validity.

U
48811 - no label information
43611 - invalid DLBL function
43581 - no XTNT for output
file

Errors and cause:
1) 43811 - no SYSRES label
information.
2) 43611 - invalid DLBL
function.
3) 43581 - no extent for output
file.
D. I f no extent is provided for an
input file a dummy extent is
generated

Open transient table
x'467' - tracks/syl
x'468' - max seek addrass
x'46B' - max head number

0
--.

C

l~
UG

Charts

427

Chart VA.

$$B3540I:

Ciskette

Input

C~en

Input (Part 1 of 3)

Processing

Output

Registers:
1) Relocate CCW string.
2 points to DTF
6 points to DLBl/EXTENT
in core
7 communication region
Open table:
X'4A3' - system open
indicator (mask X'02')
X'496' - the DIB address
Communication region:
X'38' - job control open
(mask X'40')
DTF
DTF
DTF
DTF

+
+
+
+

6 = symbolic unit
20
DTF type
21 = file open indic.
72 = chaining factor

=

Com. region
open
DLBL + 0
PUB + 4
PUB2 + 14

DIB
DIB
DI B

+
+
+

DIB

+

+ 56 = job control
= bypass indicator
= device type

=

X'02' - system FIK
X'01' - file open on
device
3 = beginning address
10 = no more extents X'80'
11 = extent sequence
number
13 = end of data

open monitor

2) If the file is to a system unit:
A. If X'4A3' does not indicate
opened, processing
continues with step 3.
Otherwise, continue.
B. If not DTFDU, continue
step'D'.
C. If DTFDU being opened, a
check is made to guarantee
single sector mode processing.
If command chaining is
indicated terminal error 43371
is issued. If not, continue.
D. If the open is from job control
or if the DTF indicates file is
already open processing
continues with step 3.
Otherwise, continue.
E. The DTF is updated from the
DIB. The file is indicated open.
F. Change DTFNAME to
'IJSYSIN'.
G. If step 'E' was executed then
exit is to either the open
monitor to open next file or
to the user's next instruction
if all files opened. If step 'E' was
not executed then processing
continues in this phase.

user's next
instruction

• • • • •~43371-chaining to system
unit

o

DTF fields updated:
X'15' - open indicated

X'36' - upper limit
X:3C'
X'45'
X'4C'
X'16'
X'26'

- lower limit
- upper t rack I im it
- LlOCS control block
DTF name
- communication switches

continue this
phase

Charts

429

Chart VC.

$$B35401:

Input

Open table:
X'498'· address of
next DLBL
extent record
Logical unit block
Physical unit block

Diskette CFen 1nFut (Part 3 cf 3)
Processing

Output

6) If file is not opened the

DLBL/EXTENT in core
is the one processed.
If the file is opened a
search is done to read
the next extent to be
processed into core. If
the record sought is
not found termination
with an error.
7) Message 43831 will be
issued if:
A. Neither the DTF nor
the EXTENT image
contain the symbolic
unit number.
B. Assignment not to a
3540 device.
C. Symbolic unit different
in extents.
D. Attempting to open
two files to same unit.

43831 . invalid logical
unit.
43071· no record found.

o

The DLBL to be
processed is in core.
The symbolic unit
is placed in extent
image if required.

PUB2

+

14· X'02' set if
system file open

8) If the extent does not
contain a symbolic unit,
but the DTF does, then
the extent is updated
from the DTF.
9) Set system file indicator.

10) Exit is made to the VOL 1
label processing phase

Charts

431

Chart VEe

$$BODI01:

Ciskette Volume Label Prccessor (Part 2 of 2)
Processing

Input

Output

8) If a mount message was issued
and control is returned to this
transient, then steps 4·7 are
re-executed.
9) If the correct volume is mounted
then byte 10 of the VOL 1
label is checked to see if the
volume is secured. If it is not
secure this phase is exited
to either the next input
or output phase. If the
volume is secured, then the
secured message writer is
called; if control is returned
to this phase, exit is made
to the next input or output
phase.

Secured
message
writer

Input

Output

$$800105

$$800102

Charts

433

Chart VG.

$$BODI05:

Diskette

HDRl Latel Prccessor (Part 2 cf 5)

C~en In~ut,

Processing

Input

E. FILE secure

Output

=

o, continue

~

yes, exit to.secured
message writer

Exit to secured
message writer
for HDR1 label

Note: If operator
responds so that
processing of the
HDRl can continue,
execution will
resume here upon
return from secured
message writer.

F. DTFPH
1) Block length (from HDR 1 label)
is converted to binary and placed
in the DTF.
2) Multi-volume indicator bit is turned
on in DTF.
3) If multi-volume indicator is
invalid, then terminal error.
4) Continue with step '1'.

DTFPH updates:
byte 74 - block length

II••••••~ byte 73

multi-volume
indicator

G. DTFCP/DTFDI
1) Continue with step '1'.

DTFDU

Charts

435

Chart VJ.
Input

$$BCDI05:

Ciskette OFen InFut, HDRl Latel Processor (Part 4 of 5)
Processing

Output

File open:

'C'

'L'

1 ) Check to see that the multi·
volume bit is on in the DTF.
If it isn't, terminate with an
error.
If sequence check ing is
indicated, tllen the new
sequence number is compared
to the old sequence number +
1. If they are equal, the new
sequence number is saved in
the extent image and new + 1
is saved in the DT F .
If they are not equal, a
terminal error is issued.

DTFDU changes:
Byte lOB· reset multi·
volume indicator bit
(mask X'10')

1 ) If the multi-volume indicator
bit is not set in the DTF,
terminate with an error.
2) Reset the multi·volume
indicator in the DTF.
3) Indicate last volume in the
DTF.
4) If volume sequence checking
is indicated, check volume
sequence number.
5) Reset check sequencing bit.
6) Continue with step 'I',

Charts

437

Chart VL.

$$BODI06:

Diskette

Input

C~en In~ut,

Initialize

C~F

Tatle (Part 1 cf 2)

Processing

Output

VK

~

Registers:
r

2 address of DTF
6 DLBL/EXTENT
address in core
7 commu nication
region address
DTF
DTF

+
+

DTF

+

DTF

+

20 = DTF type
54 = end of
data
60= beginning
address
72= chaining
factor

./

~

1) Verify that beginning extent
address is ~ X'OO010OO1';
if it isn't, terminate.
2) Verify that the file begins on
a track bou "dary if the
chaining factor is 2, 13, or
26 for DTFDU;
if it doesn't, terminate.
3) Verify that the end of data
address ~ beginning extent;
if it isn't, term inate.
4) Verify that the end of data
address ~ maximum seek
address;
if it isn't, terminate.
5) For DTFDU, DTFCP, or
DTFDI, fill in the LIOCS
control block field and the
LIOCS work bucket.
6) For all DTF's:
A. Set-file open indicator
B. Reset bypass indicator bit
C. Save extent sequence number
D. Set new volume indicator
E. If last extent, set no more
extents bit.
7) If not a system file, continue
with step 9.

43591 invalid extent

...

0

...

•
•
•

DTF changes:

---...

...,....

•

}• •

~

I-

.
=:

lr

C

VM

VM

byte 21 - open indicator
(mask X'O 4')
byte 38 - no more
extents (mask X'SO')
- new volume bit
(mask X'OS')
byte 39 - bypass indicator
reset (mask X'SO')
byte 40 - extent sequence
~ byte 22 - DTFNAME
Additional for DTFDU,
DTFCP, and DTFDI :
bytes 68 - 71 - LlOCS
control block
bytes 76 - 79 - LlOCS
work bucket

Charts

439

Chart WA.

$$B35400:

~iskette

CFen Output (Part 1 of 3)
Output

Processing

Input

Registers:

Common open table:
1) Relocate the CCW string.

2
6

7

points to the DTF
points to the
DLBL/EXTENT
image
points to the
system communication
region

2) Set message number indicator
in open table to signify output.

Common open table:

X'496' . the DIB address
X'4A3' . system file
opened indicator
DTF
DTF
DTF
DTF

+
+
+
+

20
21
39

DTF

+

72

6

DIB fields:
DIB + 3
DIB + 11
DIB
DIB
DIB
DIB

+
+
+
+

13
10
12

17

symbolic unit
DTF type
file open bit
extent sequence
number
chaining factor

= beginning extent
= extent sequence
number
= end of data
= switches
= HDR 1 address
= volume sequence
number

Open monitor

3) I f the fi Ie is to a system unit:
A. If X'4A3' of the common
open table does not indicate
the file is opened, processing
continues with step 4.
B. If not DTFDU, continue with
step'D'
C. If DTFDU is being opened, a
check is made to guarantee
single sector mode processing.
If command chaining is
indicated, a terminal message
is issued; if not, continue.
D. If the DTF indicates that it
is open then continue with
step 4.

E. User's DTF is updated from the
DIB. Reset X'4A3' in open
table.
F. Exit is either made to the open
monitor to open the next file
or to the user's next instruction
if all files processed.

user's next
instruction

-

~
~

X'4A1' • settoX'F4'to
indicate output
for any messages.
X'4A3'· system file opened
switch is reset
(mask X'
Updated DTF fields:
X'37'
X'15'
X'16'
X'36'
X'3C'
X'4C'
X'33'

volume seq. number
open indicated
DTF name
upper limit
low limit
LlOCS work bucket
HDR1 address

44371 chaining to system
unit.

o

continue
this phase

Charts

441

Chart WC.

$$B35QOO:

Diskette CFer. Output (Part 3 of 3)
Processing

Input

Output

WB

~

U

,
8)

9)

r--rLBL/EXTENT modifications:
X'64' - symbolic unit

If the file is opened, a search is
done to read next extent to be
processed from the SYSRES
label cylinder. If the record
sought is not fou nd, termination
with an error occurs.
If the extent is found, the
extent sequence number is
saved in the DTF.

10)

If it is to be bypassed,
processing continues with step 8.

11)

Message 44831 will be issued if:
A. Neither the DTF nor the
EXTENT image contain the
symbolic unit.
B. PUB not for a 3540 device.
C. Symbolic units in extent cards
not equal.
D. 2 DTF's open to same device.

12)

If the extent does not contain
the symbolic unit, it is filled in
from the DTF.

13)

Set system file indicator

14)

Exit is made to the VOL 1
label processing phase.

,

~
.

44071 no record is found.
44831 invalid logical unit

0
PUB2
file.

+ 14

- X'02' system

~~

I

~~
$$BOOI01

J

Charts

QQ3

Chart WE.
Input

$$BODI02:

Diskette

C~en

Output, Determine Extents (Part 2 cf 3)

Processing

Output

7) If not all HDR 1 labels processed,
execute step 6 again.
8) When all HDR l's processed, begin
second pass through HDRl labels.
9) If all files on the diskette are expired,
the extent low limit in the DLBL/
EXTENT image is set to 'CCHRR' =
'01001'.
10)

If there are unexpired or write
protected files, the highest still
used sector on the diskette was
saved by pass one in the extent.
This diskette address is incremented
to the next cylinder number,
and record nu mber set to 1.
This value becomes the lower
extent limit for the new file.
It is stored in the extent image.

11) Read HDRl label.

12)
Continue with step 16 if it is a:
A. Bad spot control record.
B. Unexpired file.~.
C. Write protected file.
D. A non-overlapped file. with
file name :f to new file name.

Charts

445

Chart WG.

$$BODI03:

~iskette O~en

output, Create/write New HDRl Label (Part 1 cf 3)

Processing

Input

Registers:

1) Relocate the CCW string.

2 address of DTF
6 address of DLBLI
EXTENT image
7 address of com·
munication region.

2) Determine if there are any
available HDR 1 sectors by
checking DTF HDRl address.
If it is zero, no available
sector was found by previous
transient, and user's job is
terminated with an error.

DTF
DTF
DTF

+
+
+

20 = DTF type
HDRl address
30
3540 flags for
100
DTFDU
EXTENT + 8= lower limit

3) If there is space in the
VTOC, and the DTF type
is not X'IA'(DTFDUI.
continue with step 6.
4) If DTFDU, a check is made
to see if the file being created
is a secured file. If it is not,
continue with step 6.
5) If file is secure:
A. The VOL 1 label is read.
B. The secured volume
indicator is turned on in
the VOL 1 label.
C. The updated VOL 1 label
is written back out.

Output

VOL 1 label is updated
to ind icate a secu red
volume. (VOL 1 + 10)
Blank bu ild area.

44001 no space in VTOC
44591 invalid extent

o

6) Blank out the HDRl build
area.
7) A check is made to determine
that there is at least one full
t rack of avail able space on the
diskette;
if not, the user is terminated
with an error. If there is space
available, continue.

Charts

447

Chart WJ.
Input

$$BODI03:

Diskette

C~en

Output, Create/Write New HDRl Latel (Part 3 cf 3)

Processing

Output

K. If DTFDU 354Q) flag byte
indicates:
1) File security desired,
set HDR 1 field to'S'
2) Write protect desired,
set HDR 1 field to 'P'
Note:
Write protect and file security
are not supported for DTFPH,
DTFCP, or DTFDI.
9) Write new HDR 1 label out
onto the diskette using the
address saved in the DTF.
10)Exit to next open output
phase.

Charts

449

Chart WL.

$$BODI07:

~iskette c~en

Input

Output, Initialize t!F Table (Part 2 of 2)
Output

Processing

D IB updates:

common open table:
X'496' - address of
the DIB

5) If to a system unit:
A. if DTFDU is being opened, a
check is made to Quarantee
single sector mode writing.
if CCW chaining is indicated,
the user is terminated with
an error.
B. post the DIB from the DTF.
C. set file open on device
indicator

DI B + 10 = switch byte
mask X'10' =
continued file
mask X'S0' =
no more extents
DI B + 3 = low limit address
DI B + 11 = last extent opened
sequence number
DIB + 12 = HDR1 address
D IB + 13 = end of data address
on the diskette
I
(X'004A0001')
DI B + 17 = volume seq. number
DIB + 19 = number of records
per trac k = 26

6) Exit is to.
A. close module, if DTF
indicates open was called
by close, because an extent
was needed at close time.
B. The open monitor, if more
files to be processed.
C. the user's next instruction,
if all files processed.

PUB2+ 14 X'01' file open on
device

.

A)lIIII."r~~4~4:3~7~I~c~h~a~in~in~g~t~0~S~y~s~te:m~u~n~i~t~

exit to
close

exit to the
open monitor

exit to
the user

o

Charts

451

Chart WN.

$$BCDUCP:

Diskette DTFCP/DTFDI Open (Part 2 cf 2)
Processing

Input

Output

WM

~

~
DTFDIIDTFCP changes
continued:

L. set the number of
records to 1.
M. set control block field
to X'0049001A'

DTF + 68 = control block
DTF + 72 = number of
records

2) Turn on bit in job control

switch byte in the system
communication region, to
indicate to $$BOPE N 1 that
entry is from th is phase
3) For an output file, the

•

Communication region:
X'58' = job control switch
byte
User's IOREG loaded

user's IOREG is initialized.

4) Exit to $$BOPEN1

I

2) J

$$BOPEN1

Charts

453

Chart WQ.

$$BODI08:

Diskette

C~en

Output, Extents fron Console (Part 2 of 2)

Processing

Input

Output

WP

..
OTF + 39 - Extent
sequence number

~
44451 too many extents
12) if this is the 256th
extent, job is terminated
13)build a dummy extent
and update OTF
14)exit to VOL 1 label
processing phase

I

1.e
$$BOOI01

0
new extent:
OLBL + 84 = blank out volume
serial number
OLBL + 90 = extent type = 1

1

OTF updated:
OTF + 38

= 1052 extents

indicator
OTF + 39 = extent sequence
number

Charts

455

Chart

ws.

$$BODI04:

Input

Diskette Clcse (Part 2 of 4)
Processing

DTFDU:

11) If DTFDU input file, the
multi-volume indicator is
reset in the DTF.

DTF + 16 = logic module
address

12) If it IS a DTFDU output
file (regardless of being a
system file or notl, control
is passed bac k to LI OCS to
complete any processing
that is necessary. Control is passed
passed back to close entry
point one or two, depending
on LlOCS indicators in the
DTF.

Logic module address + 16
shou Id be a branch to the
close entry point.
Logic module address + 24
should be a second time to
LlOCS close branch.
DTF + 73 = indicators from
LI OCS to specify
cI ose needs an
extent.

Output

. . . . . . . . .~ DTFDU modified:
DTF + 108 = reset multivolume indicator

13) Return from LlOCS is
always at this point.
14) If LlOCS indicates it
needs an extent, then this
phase is exited to the first
output open phase. If
LlOCS indicates all processing
complete, processing
continues.

open next
extent for
LlOC close

Charts

457

Chart

wu.

$$BOD104:

Diskette Close (Part 4 cf 4)

Input

Processing

Output

23) If DTFPH, DTFCP,
DTFDI feed the diskette
out.
24) If DTFDU, check to see if
feeding is suppressed. If it
is, continue with step 25. If
it is not, feed the diskette.
DTFOU modification:

25) If DTFDU reset LlOCS
switches (X'00')

DTF + 73 = LlOCS switches
26) For all DTF's:
A. set invalid seek address.
(X'FF')
B. set invalid LlOCS work
bucket address (X'FF')
C. set communication
switches byte one
(X'08')
D. set communication
switches byte two
(X'00')
E. reset unit exception
(X01')
F. reset switch indicating
file open (X'04')
G. reset spool ed end of
data switch (X'02')

All DTF's
DTF
DTF
DTF
DTF

3 = spooled end-of-data
4 = unit exception
21 = file open switch
38 = communication
switches byte one
DTF + 39 = communication
switches byte two
DTF + 61 = seek address
DTF + 77 = LlOCS work
bucket.

PUB2 + X'02' reset if JCL close
X'01' reset if problem
program close and not
to a system file

27) reset PUB2 switches
28) If another file to be closed
is present, exit to the close
monitor. If all files processed,
exit to the user's next
instruction.

$$BCLOSE
close
monitor

+
+
+
+

user's
next
instruction

charts

459

Label

Phase

.BK2
.BK3
.BK4
.BK5
.MFl14
.P19
.P21
.P22
.P23
.P24
.P27
• P28
.P30
.P36
.P37
.P38
.P38C
.P41
.P42
.P44
.P45
.P46
.P47
.P50
.P51
.P53
.P53A
.P54
.P54A
.P55
.P56
.P66
.P67
.P76
.P77
.P79C
.P81

PRMOO
PRMGO
PRMOO
PRMCO
COMeO
PRMOO
PRMC'O
PRMOO

ABORTJOB
ABORIJOB
ABORIJOB
ABORIJOB
ABOR T JOB
ABORTNOT
ABOVEFE
AOOSEQNO
ADDl XTNT
ADJINPUT
ADJNOEOF
AFTERSDR
AGAIN
AGAIN
AGAIN
AJAL T
AJAL T
ALLBYPS
ALTORM
ANYOPEN
AUTOTERM
AUTOTERM
AUTO TERM

$$BOMT07
UBMSGWR
$$BCS007
SO
UBCCPM1
$$BOSDWl
$$BOUROl
$$BOS007
$$BOSDW2
$$BCCPTl
$$BCCPTl

PR~CO

PRMCD
PRMOO
PRMOO
PRMOO
PRMOO
PRMCO
PRMCO
PRMC'O
PRMCO
PRMOO
PRMCD
PRMOD
PRMCO
PRMOO
PRMOO
PRMOO
PRMCO
PRMOO
PRMOO
PRMOO
PRMOO
PRMCO
PRMOO
PRMCO
PRMOO
PRMCO
PRMCO
PRMOO

$~BOMT02

UBOMT07
$$BMSr;WR
$$BCCRM1
$$BOCP03
$$BOCPll
$$BCSDOl
$$BCMT07
$$BOSDWl
UBCMT07
$$Bfo'SGWR
$$BOCRMl

Location
CFA4
CFB4
CGJ5
CGJ4
AMH2
CFA5
CGA1
CGH1
CFF5
CGFl
CG01
CGK1
CGG4
CGA5
CGE5
CEB2
COG3
CGH2
CGC4
CDE3
CGK4
CEE2
CEH5
CFE4
CFC4
CFH2
CFJ2
CFK2
CFE3
CGC1
CGJ1
CFK4
CFB5
CGD4
CGF4
CEG2
CEB5
FK02
FLJ3
LWE2
LZE5
SEK1
MBG2
ABC2
LWE4
MCJl
SAGl
SAA2
EC03
FKB3
FLG4
SEGl
QCF3
QDB3
LLE3
FH81
MAA3
FKB2
FLG3
SEE2

Label

Phase

BACKSPC2
BEGINRTN
BEGINRTN
BELOWFE
BELOWFE
BELOWFE
BKSP
BKSPACE
BRSWIT
BUIlOFl
BU ILOLBL
BUILOLBL
BUILOLBL
BYPASS
BYPASSED
BYPASSX
BYPASSX
BYPASSX
BYSTDUTL

$$BO,.,T03
UBERRTN
$$E\ClOSP
$$BOUR01
$$130S!GN
$$BOSDW1
$$BOCI>T3
MTMOD
$$80S000
$$BOS004
$$BOMT04
$$BOCP T 3
$$BCCPTl
$$BOMT04
$$BOS011
BBOSOJl
$$BOSD01
UBOSDW1
UBCCPT1

EEA3
PGB2
SCB1
ABC1
LNFl
MAA4
RH03
FJE2
LAE4
LPA2
EFOl
PJG1
SAG3
EF03
LEB4
LE02
llA3
MAD1
SAG2

CALLERP
CALLMSG
CAllMSGl
CALLMSG 1
CALOPN
CALOPN1
CALOPN1
CBCLOSE
CBOUMP
CCPTAPE
C025202
C025402
CHECK
CHECK
CHECK
CHECK
CHECK
CHECKOAT
CHECK 10
CHECK ID
CHECKLL
CHECKXNT
CHEKXTNT
CHKALC
CHKALC
CHKFOR"1
C HK IPT
CHKLAB
CHKLAB
CHKLP
CHKLR
CHKMOQ,
CHKMOP
CHKMOR
CHKMOR
CHKNUMB
CHKPCH
CHKPRTR
CHKRDR
CHKTIo1
CHKTIo1

U8CLOSP
$$BOCP01
$$BOCP02
$$BOCP12
$$BOCP11
$$BO(P02
$$80CP12
$$80S013
UBJCOP1
$$BCCPTl
$$8CLOSP
$$8CLOSP
$$BOMP01
$$BOMT02
BBOSOIl
$$BOCI>13
$$BCCPTl
$$80MT06
$$80MT01
$$80MT02
$$BOS008
$$BOS008
$$BOSOO3
$$BCM T 02
4;$8CMT07
t;$BOMRCE
$$BJCOOl
UBOCPTl

SC05
QAB2
OBE2

Location

~$80CPT2

$$BOCPT]
$~P,OCPT2

$$BOCPOl
$$BOCP02
$$BOCOll
$$BOCP12
$$BOMP.CE
$$E\(lUP01
$$80UP 01
$$BOUP 01
BBOCpTl
BBOCPT2

An:endix A: Label Cross-Reference List

QFF3
c)EJ4
OBK5
0FK4
LH04
ELJ3
SAB1
SDCl
SDB2
BE05
ECB3
LEG5
RJCl
SAO
EHF4
HH4
ECE?
LXE4
LXG4
LOH4
FBJ2
FI-IA4
ACEl
ELGl
RAB4
POO3
RBF,)
REF3
QAH4
08f,1
OOF3
OFGl
AOCl
MB5
AAA4
AABl
P.AH""
POO

461

Label

Phase

EXIT
EXIT
EXIT
EXIT
EXIT
EXITCLOS
EXITLAB
EXITLAB
EXITUB
EXITMON
EXITNLAB
EXITNLAB
EXITNLAB
EXITNLB
EXITNlB
EXITNLB
EXITPT
EXITROR
EXITRTN
EXITUSER
EXMFCM
EXPoATE
EXPOATE
EXP I RCHK
EXPIRED
EXPIRED
EXTENTS

UBOCPTl
UBOCPT2
UBOCPT3
UBOCPT4
$$BCCPTl
UBCMT06
UBOCPTl
$$BOCPT3
UBOCPT4
UBCCPTl
UBOCPT2
UBOCPT3
UBOCPT4
UBOCPT2
UBOCPT3
UBOCPT4
UBClOSP
UBCLOSP
UBOMT06
UBOSoC2
UBOCP03
$$BOMT03
UBOCPT3
$$BCCPT3
UBOSo03
UBOS008
UBCSOW2

RCC3
REC4
RHH3
RMH3
SBE4
FGJ3
RCB3
RHG3
RMG3
SBF4
REB5
RHG5
RM04
REB4
RHG4
RME4
SCE5
SCA5
EHE3
MHJ4
OCA4
EOJ1
PJEl
RHG1
LOG2
LXF3
MCC3

FCHMSG
FCHMSG
FEOVRET
FETCHAL T
FETCHIT
FETCHIT
FETCH07
FETCH07
FILEA002
FILEOVLP
F ILEPROT
FILEPROT
FILEPROT
FILEPROT
F ILETYPE
FINDLAST
FINOSPOT
F INDSPOT
FINDSPOT
F INDSPT
F INDXTNT
F IN ISH
FIR STCO
FIXED
FORMAT3
FORMAT3
FOPTUNL
FRMTBL
FRSTINST
FRSTINST
FRSTINST
FSTM

UBCEOV1
UBCSOOO
UBCS005
UBCHT01
UBOCPT3
UBOCPT4
$$BOMTOI
UBOMT01
UBCS006
UBOSo06
$$BOSD03
$$BOSOI4
UBOSOO1
UBOSo05
$$80S009
$$BOSoCI
$$BOSOO1
$$BOS004
$$80S005
$$BOSOW2
$$BOSOW2
$$BOSOW3
$$BOMRCE
$$BOMRCE
$$BOSOO1
$$BCS005
$$BOSOW2
$$BOCPT3
$$BCEOV1
$$BOMR01
UBOMR01
UBMMR20
U80CPT4

EMG2
LAJ2
LTG4
FAK2
RGC3
RKH1
EAK3
EBK2
LUA4
lVAl
LOC2
LJB2
LMA3
LTH4
LYG3
MFB3
LL04
LR02
LSA5
MCA5
MCG1
MEB3
AOH4
ACJ1
LMA2
LSH5
MCF5
RHC4
EMJ1
BEB1
BE85
BFB2
RL05

GEToATE
GETDEFL T
GETO SPL Y
GETNEXT

$$BOMT03
$$BCMT03
$$BOSo07
$$BOSoI1

EoC3
EoGl
LWF2
LEC5

FILE~ARK

Location

Label

Phase

GETNEXT
GETOPN
GETOPN
GETPOINT
GETPOINT
GET PUB
GETPUB
GOSENS
GOTOIO

UBOoQUE
UBOCP02
UBOCPll
$$BOSo05
UBOSoW2
UBOUR01
MTHOO
UBOCPT2
UBJCOPT

MJJ2
OBK4
OEG4
LSE4
MCA4
AAK2
FJG5
RoF5
EKH1

HoRBLO
HORCHK
HORCHKX
HoRCHK2
HORMSG
HORWR ITE
HOR 1CHK
HEAOERSW

UBOCPT3
UBOCPT4
UBOCPT4
$$BOCPT4
UBOCPT4
UBOCPT3
$$BOCPTl
$$BOS006

RJB1
RMBI
RM02
RMCI

IFOPENFO
IGNORE
IJBWCONT
IJCBXXXX
IJCEXXX
IJCMBXXX
IJCMBXXX
IJCMCXXX
IJCMOXXX
IJCMOXXX
IJCMEXXX
IJCMRXXX
IJCPKXXX
IJCPNXXX
IJCPYXXX
IJCPlXXX
IJCRAXXX
IJCRBXXX
IJCRFXXX
IJCRTXXX
IJCRVXXX
IJCR9XXX
IJCR9XXX
IJCXXXXX
IJCOOXXX
IJC30XXX
IJC30XXX
IJC33XXX
IJC34XXX
IJC34XXX
IJC35XXX
IJC36XXX
IJC38XXX
IJC41XXX
IJC42XXX
IJC43XXX
IJC44XXX
IJC50XXX
IJC96XXX
IJC96XXX
IJC97XXX
IJC98XXX
IJoPKXXX
IJDPKXXX
IJDPMXXX
IJDPRXXX
IJOPUXXX

$$BOSOO3
$SBOUROI
SOMOoW
OTFCN
COMOo
COMOo
CoMOo
CoMOo
COMOo
CoMOo
COMOo
COMOo
COMOo
COMOo
COMOo
COMOO
COMOo
CoMOO
CoMOo
COMOO
COMOo
COMOO
CoMOD
COMOo
COMOD
COMOD
COMOO
COMOO
COMOD
COMOD

LPC3
AB03
KOK3
AOC3
AKG4
AED5
AEE5
AGBI
ALB4
ALB5
AG03
ALC4
AEC4
ALOI
AKA4
AJF3
AFC2
AFFl
AGA5
AJH3
AFEl
AE02
AE03
AHB4
AFB4
AHA1
AMA1
AMEl
AH01
AMG1
AME4
AHEl
AHH2
AHB3
AH02
AHE3
AHH3
AME3
AH03
AHG1
AHE4
AHC5
C003
COF3
CE02
CFG2
CGB2

Location

co~mo

COMOO
COMOO
CDMOD
CDMOD
CD~mD

COMOO
COMOO
COMOO
COMOD
CDMOO
CoMOo
PRMOD
PRMOD
PRMOD
PRMOo
PRMOD

AFFendix A: Label Cress-Reference List

R~G2

RJE2
RAC4
LVC1

463

Label

Phase

IJF RCK
IJF REl
IJF REl
IJF REl
IJF REST
IJF SKI
IJF SKIP
IJF SKIP
IJF SKIP
IJF TEST
IJF lR
IJF TRI
IJF TRR
IJF TRU
IJF lRU
IJF VERI
IJF VER2
IJF WMV
IJF WORK
IJF ,",ORK
IJF "'RK
IJF ..RKI
IJF WSR
IJF YSOT
IJFFBCKW
IJFFCON
IJFFCSVC
IJFF IGN
IJFFRCK
IJFFRCT
IJFF STD
IJFFTET
IJFFVRSI
IJFFVRS2
IJFNOPK
IJFNRDWR
IJFRDCBN
IJFREX2
IJFRNlCO
IJFRNOPO
IJFRNOPR
IJFR YSPD
IJFSCNTS
IJFSCNTT
IJFSCNTU
IJFSCNTV
IJFSEOVS
IJFSEOVT
IJFSEOVU
IJFSEOVV
IJFSEOVW
IJFSGETS
IJFSGETT
IJFSGETU
IJFSGETV
IJFS"'OVS
IJFSMOVT
IJFSPUTC
IJFSPUTS
IJFSPUTT
IJFSPUTU
IJFSPUTV
IJFSSHFl
IJFSSHF2
IJFS SHIF
IJFSSOER

MTMOO
MTMOO
MTMOO
MTMOD
MTMOD
MTMOD
MTMOD
MTMOD
MTMOD
MTMOD
MTMOD
MTMOD
MTMOD
MTMOD
MTMOD
MTMOD
MTMOD
MTMOD
MTMOD
MTMOD
MTMOD
MTMOD
MTMOD
MTMOD
MTMOD
MTMOD
MTMOD
MTMOD
MTMOD
MTMOD
MTMOD
MTMOD
MTMOD
MTMOO
MTMOO
MTMOD
MTMOD
MTMOD
MTMOD
MTMOD
MTMCD
MTMOD
MTMOD
MTMCD
MTMOO
MTMOO
MTMOD
MTMOO
MTMOD
MT"'OO
MTMCD
MTMOD
MTMOD
MTMOD
MTMOD
MTMCD
MTMOD
MTMOD
MTMOD
MTMOD
MTMOD
MTMOO
MTMOD
MTMCD
MTMOO
MT"OD

Location

DVBI
DJHI
DJH3
DJJ2
DWF2
DPE3
DPJ2
DSH3
DUAl
DDHI
DVB4
DVD4
DVE4
DJB3
DJB5
DVF2
DVHI
DWD2
DWBI
DWKI
DWB2
DWB3
DWE2
DPBI
DLD4
DlJ3
DNG3
DlG4
ONBI
DlC3
DlF3
DlG3
DNFl
ONE3
DTB3
DWB4
DDF4
DQG5
OGD3
DDF3
DOF5
00E5
DBA5
OEE3
OEH3
DKB2
DRC3
DRH3
DRJ3
DRK3
DKB3
DOB2
DDCI
DEAl
DEA2
DEJ2
DEA3
DGC3
DHBl
DHCI
DHF4
DHD3
DEHI
DEH2
DEEI
DEA4
A~~endix

Label

Phase

IJFWCHEK
IJFWCTl
IJFWEXCP
IJFWEXT
IJFWFND
IJFWFSF
IJFWIGNR
IJFWNOTE
IJFWNRXT
IJFWOUT
IJFWPNTR
IJFWPNTS
IJFWPNTW
IJFWRIT
IJFWSKIP
!JFWSTOR
IJFWTEST
IJ'FXFOR
IJFXFORW
IJFXFWD
IJFX IGN
IJFXlOOP
IJFXlTST
IJFXPAD
IJFXRCT
IJFXRST
IJFXTOCH
IJFXTRA
IJG ERRI
IJG UNIO
IJG WAIT
IJGBADD2
IJGBCHCK
IJGBOATK
IJGBDEBl
IJGBOECl
IJGBDECR
IJ GBDON E
IJGBEOFT
IJGBEXT
IJGBFACT
IJGBFACI
IJ GBFREE
IJGBGENM
IJGBGET
IJGBGET A
IJGBGETD
IJGBHOLO
IJGB IORU
IJGBK ETH
IJr;BlOOP
IJGBNXQC
IJGBPUT
IJGBP460
IJGBRDEQ
IJGBRDI
IJGBR03
IJGBREAD
IJ(;BRELA
IJGBRES I
IJGBRET
IJGBRTRY
IJGBSKIP
IJGBSWOF
IJGBSw03
IJGBTEST

MTMOD
MTMOD
MTMOD
MTMOO
MTMOD
MTMOD
MTMOD
MTMOD
MTMOD
MTMOD
MTMOO
MTMOD
MTMOD
MTMOD
MTMOD
MTMOD
MTMOD
MTMOD
MTMOD
MTMOD
MTMOD
MTr-'lOD
MTMOD
MTMOD
MTMOD
MTMOD
MTMOO
MTMOD
SDMODFC1
SDMOOFO
SDMOOFO
SDMODFU
SDMOOFU
SOMOOFU
SDMODFU
SDMODFU
SDMODFU
SDMODFU
SDMODFU
SDMODFU
SDMODFU
SOMODFU
SDMODFU
SDr-'lOOFU
SDtJlODFU
SDIIIODFU
SDfolODFU
SOM(1DFU
SOMIJOFU
SDMODFU
SDMIJDFU
SDIoIODFU
SDMnOFU
SOMODV(1
SOMODFU
SOIliODFU
SOMODFU
SOMODFU
SDMODFU
SDMODFU
SOfolODFU
SDMODFU
SDMODFU
SOMODFU
SDMODFU
SDMC1DFU

Location

A: Label Cress-Reference List

DABI
OBH3
OWF5
OFJ2
OFF2
OWB5
DAG5
DFJ5
DAD3
DAE2
DFB2
DF133
OFBI
DJB2
DAH4
OWE4
DFEl
DMGI
DMA2
DKD4
DMC3
DMEl
DMDI
DMFl
DlC5
DKG4
DMA3
01<134
GDF5
G005
GOB5
GKK2
GM02
GLH3
GKCI
GlC5
GlA4
GKE3
GLE3
GKH3
GKG2
GMCl
GMB3
!;LB5
GKBI
GKH4
GKJ4
GKE4
GKGI
GLG2
GKD3
GMH3
GNBI
HEJ2
GLF4
GKE2
(;KC3
GKB4
t;KF2
GLD5
GLJ4
GLJ5
GMAI
GlA3
r.KF4'
GKD2
465

Label

Phase

IJGGSW03
IJGGSW04
IJGGSW06
IJGGTEST
IJGGTOM
IJGGTST2
IJGGUSER
IJGG"AIT
IJGGWLPT
IJGGWRT
IJGGkRTl
IJGQUERR
IJGQUEXT
IJGQUFRE
IJGQUNR
IJGOUPT
IJGQUSER
IJGOUSKB
IJGQUOOO
IJGQUOIO
IJGQUOll
IJGQlJ012
IJG'lU013
IJGOU015
IJGQU016
IJGOU017
IJGOU018
IJGQU020
IJGQU021
IJGQU023
IJGQU024
IJGOU030
IJGQU10K
IJGOU101
IJG'lU103
IJGQUI04
IJGQUI05
IJGOli106
IJGQUI07
IJGQU108
IJGQU108
IJGQlJ109
IJGQUllO
IJGOUlll
IJGQU1l2
IJGc)U114
IJGOU1l5
IJGQU120
IJGOU12l
IJG0Ul2l
IJGOU123
IJGOU124
IJGQU156
IJGOU400
IJGQU401
IJGQ1l440
IJGQU490
IJGRElS
IJGSGSKI
IJGSG010
IJGSG030
IJGSG400
IJGSG4l0
IJGSG420
IJGSG430
IJGSG430

SDMODFU
SDMODFU
SDMODFU
SDMODFU
SDMODFU
SDMODFU
SDMODFU
SDMODFU
SDMODFU
SDMODFU
SDMODFU
SDMODVU
SDMODVU
SDMOOVU
SDMODVU
SDMODVU
SDMODVU
SDMODVU
SDMODVU
SDMODVU
SOMOOVU
SOMOOVU
SDMODVU
SDMODVU
SDMODVU
SDMODVU
SDMODVU
SDMODVU
SDMCDVU
SDMODVU
SDMODVU
SDMCDVU
SDMODVU
SDMCDVU
SDMODVU
SDMCDVU
SDMIJDVU
SOMODVU
SoMOoVU
SOMOOVU
SOMOOVU
SOMOoVU
SOMOOVU
SDMOOVU
SOMOPVU
SOMOoVU
SOMOOVU
SOMOOVU
SDMOoVU
SOMOOVU
SOMCDVU
SOM90VU
SOMODVU
SoMOOVU
SDMOoVU
SDMCOVU
SoMOOVU
SDMOOFU
SOMOOVI
SOMOoVI
SOMOoVI
SoMOOVI
SoMOOVI
SOMODVI
SoMODVI
SoMOOVI

Location

GGG4
GGD4
GGH4
GGEl
GHJl
GHA5
GHE3
GHG2
GHD3
GHB2
GHBl
HNF5
HQH2
HLB5
HQC3
HOO3
HQF3
HOC4
HJC1
HJE3
HKAl
HKDl
HKG1
HKA2
HKCl
HKG5
HKG4
HKF2
HOE3
HKC3
HKD2
HJEl
HPD4
HNJ3
HNB4
HNH5
HNJ5
HNG4
HPA4
HNC5
HNJ4
HPF5
HPAi
HOBl
HPEl
HPB2
HNG3
HQFl
HQB2
HOO2
HMA5
HOE2
HOB3
HNEl
HNA3
HPB3
HMC4
GNB4
HAG2
HBE4
HACl
HAB2
HBA3
HBC3
HBE3
HBF3
A~~endix

Label

Phase

IJGSG500
IJGSG600
IJGSG710
IJGSG800
IJGSG910
IJGSPlYS
IJGSP030
IJGSP040
IJGSP040
IJGSP045
IJGSP050
IJGSP065
IJGSP070
IJGSP090
IJGSPllO
IJGSP 110
IJGSP120
IJGSP130
IJGSP 140
IJGSP150
IJGSP200
IJGSP202
IJGSP203
IJGSP205
IJGSP2l0
IJGSP220
IJGSP240
IJGSP260
IJGSP 265
IJGSP270
IJGSP280
IJGUGOPT
IJGUGUNI
IJGUG040
IJGUG050
IJGUG060
IJGUG070
IJGUG080
IJGUG100
IJGUG170
IJGUG210
IJGUG220
IJGUG240
IJGUG250
IJGUG260
IJGUG261
IJGUG290
IJGUG300
IJGUG3l0
IJGUG320
IJGUG330
IJGUPUN I
IJGUP040
IJGUP060
IJGUP060
IJGUP070
IJGUP080
IJGUP 100
IJGUP120
IJGUP120
IJGUP 130
IJGUP150
IJGUP160
IJGUP200
IJGUP220
IJGUP230

SDMODVI
SDMODVI
SDMODVI
SOMODV!
SDMODVI
SDMODVO
SDMODVO
SDMOOVO

Location

SD~ODVn

SDMODVO
SDMODVO
SDMODVO
SOMOOVO
SDMOOVO
SDMODVI
SDMOOVO
SDMOOVO
SOMODVO
SDMOOVO
SDMOOVO
SDMOOVO
SOMODVO
SDMODVO
SDMODVO
SDMODVO
SDMODVO
SDMODVO
SOMODVO
SDMODVO
SOMODVO
SDMODVO
SDMODU!
SDMODUI
SDMODUI
SDMODUJ
SDMODUI
SoMOOUI
SDMOOUI
SDMODU!
SDMODUI
SDMODU!
SOMODUI
SDMOOUJ
SDMOOUI
SoMOOU!
SDMODUI
SoMODUI
SOMOOUI
SDMOOUI
SOMClOUI
SoMOOUI
SOMOoUO
SOMOOUO
SOMOoUO
SOMOOUO
SDMOOUO
SoMOOUO
SoMOOUO
SOMOOUO
SDMOOUO
SDMOOUO
SoMOOUO
SOMOOUO
SoMOoUO
SDMOOUO
SOMOOUO

A: Label Cress-Reference List

HBB4
HBD3
HAH4
HBD'5
HBK4
HGB4
HOHl
HOC2
HGAl
HGEl
HGFl
HEB4
HGHI
HEB3
HAF'5
HED3
HGGl
HEA2
HEE2
HFF2
HFD5
HFF5
HFG5
HFJS
HGA3
HGJ3
HGK3
HGG4
HGJ4
HGK4
HGA5
JAHI
JAGl
JAEl
JAFl
JA03
JAF3
JAG3
JAH3
JAE3
JABl
JBC4
JBC'5
JBB3
JRC3
JBF3
JBH3
JAF2
JAC4
JBA4
JBBI
JODI
JCol
JCJI
JCKI
JCCl
JCB4
JCC4
JOB2
JDC4
JOC2
JCG2
JoB5
JDB3
JCBS
JC05
467

Label

Phase

IJGVU040
IJGVU050
IJGVU065
IJGVU070
IJGVU075
IJGVUlOO
IJGVUl40
IJGVUl50
IJGVUl5l
IJGVUl52
IJGVUl53
IJGVUl56
IJGVUl58
IJGVUl59
IJGVUl60
IJGVUl6l
IJGVU220
IJGVU240
IJGVU250
IJGVU250
IJGVlJ260
IJGVU270
IJGVU290
IJGVU292
IJGVU300
IJGVU3l0
IJGVU330
IJGVU340
IJGVU360
IJGVU370
IJGVU380
IJGVlJ400
IJGVU4l0
IJGVU4l5
IJGVU420
IJGVU430
IJGVU440
IJGVU442
IJGVU444
IJGVU450
I JGVli460
IJGVU470
IJGVU490
IJGVli5l0
IJGVU520
IJGVC70
IJGVC80
IJGWBLD
IJGWCHECK
IJGWCKRD
IJGWCLOS
IJGWCOMP
IJGWCTL
IJGWDECR
IJGWETRY
IJGWFOPN
IJGWFRE
IJGWFREE
IJGWFTST
IJGWHOLo
IJGWIGN
IJGWINST
IJGWLCTY
IJGWLOAD
IJGWLREG
IJGWNOTE

SDMOOVU
SOMOOVU
SoMOOVU
SOMOOVU
SoMOOVU
SOMOOVU
SDMOOVU
SDMODVU
SDMOOVU
SDMOOVU
SOMODVU
SDMODVU
SDMODVU
SDMODVU
SOMODVU
SDMODVU
SOMOOVU
SDMODVU
SOMOOVU
SOMODVU
SDMOOVU
SDMODVU
SDMCOVU
SDMODVU
SDMODVU
SOMODVU
SDMODVU
SDMOOVU
SDMOOVU
SOMODVU
SOMOOVU
SDMODVU
SDMODVU
SDMODVU
SOMOOVU
SOMODVU
SDMCDVU
SDMODVU
SOMODVU
SDMODVU
SDMODVU
SDMODVU
SDMODVU
SDMOoVU
SDMODVU
SDMOoVI
SoMOoVI
SDMODW
SDMOoW
SDMODW
SDHODW
SDMODW
SD,.,ODW
SDMODW
SDMODW
SDMODW
SDMODW
SDMODW
SDMODW
SoMOOW
SOMOoW
SDMODW
SDMODW
SOMOOW
SDMOOW
SOMODW

Location

HJJl
HJKl
HJC2
HJG2
HJH2
HJD3
HJB3
HJJ3
HJA5
HJE5
HJB5
HLB2
HLFl
HLF2
HLBl
HLGl
HKB4
HKB5
HKG3
HNFl
HKH3
HKJ3
HMBl
HMCl
HMDl
HMFl
HMJl
HM03
HMA4
HMF2
HMG2
HNBl
HNGl
HNJl
HNKl
HNH2
HNA2
HPH3
HPJ3
HPK2
HOB5
HPJ2
HM04
HME4
HRBl
I-'AA4
HAB4
KEF2
KEBl
KEA2
KDB3
KEH2
KGB3
KBS5
KCJ2
KFH2
KEA3
KGB2
KEH4
KAB3
KEF3
KBC4
KFGl
KB02
KOHl
KFBl
~FFendix

Label

Phase

IJGWOPT
IJGWPASS
IJGWPNT
IJGWPNTR
IJGWPNTS
IJGWRDSW
IJGWREAO
IJGWR ITE
IJGWRW
IJGWSLO
IJGWSOFF
IJGWSSET
IJGWSSTR
IJGWSTAR
IJGWSTCH
IJGWSVCO
IJGWTEST
IJGWTLIM
IJGWUNO
IJGWUNRC
IJGWUPOF
IJGWUSER
IJGWWRTE
IJGWWTER
IJGWWXIT
IJGlXXX
IJJASCNQ
IJJ ASCN 1
IJJASCN2
IJJCAL2
IJJCAL2
IJJCAL2
IJJCEXEX
IJJCFOND
IJJCFOND
IJJCFOND
IJJCNOSK
IJJCNOEK
IJJCPCAL
IJJCPCAL
IJJCPCAL
IJJCPDSK
IJJCPDSK
IJJCPoSK
IJJCPDSK
IJJCPEND
IJJCPEOV
IJJCPFA3
IJJCPFA3
IJJCPFA3
IJJCPF02
IJJCPF02
IJJCPF02
IJJCPF03
IJJCPF03
IJJCPF03
IJJCPF04
IJJCPF04
IJJCPF04
IJJCPFl3
IJJCPFl3
IJJCPFl4
IJJCPfl4
IJJCPGP
IJJCPGP
IJJCPGP

SDMOOW
SDMOOW
SOMOoH
SoMOOW
SOMOOH
SDMOOW
SDMOOW
SDMODW
SOMOOH
SDMOOW
SDMOOW
SDMODW
SDMODW
SDMOOW
SDMOOW
SDMODW
SDMODW
SDMOOW
SDMODW
SOt·100W
SOMOOW
SDMODW
SOMODW
SDMODW
SDMODW
DIMOD
CPMOD
CPMOD
CPMOD
CPMOD
CPMOD
CPMOD
CPMOO
CPMOO
CPMOO
CP"'OO
CPMOD
CPMOD
CPIIIOD
CPMOD
CPMOD
CPMOD
CPMOD
CPMOD
CPMOD
CPMOD
CPMOD
CPMOD
CPMOD
CPMOD
CPMOD
CPMOD
CPMOD
CPMOD
CPMOD
CPMOD
CPMOO
CPMOD
CPMOD
CPMOo
CP,.,OD
CPMOo
CPMOD
C!'MOD
CPMOD
c p r·.1QD

Location

A: Label Cress-Reference List

KEGI
KFF3
KFB2
KFB3
KGBl
KEE2
KABl
KBBl
KOBl
KCB3
KCBI
KBG4
KCF3
KAFl
KCCI
KAK2
KBC5
KFF2
KDE2
KEB2
KEJ4
KEJI
KBCl
KEFl
KBf,5
PCFl
NEEl
NEG5
NEK5
NCE5
NEF5
NGF5
NCJl
NC03
NEHl
NGC;1
NRF2
NRE3
NCK4
NED3
NGC3
NBEl
NOBI
NFBl
NHB2
NJ\J2
NCE2
NDC5
NFGI
NHG2
NOel
NFEl
NHE2
NDB5
NFFl
NHF2
NOF5
NFG2
NHG3
NAH4
NBJl
NAF5
f\lBE2
NAB2
NCCl
f
BAHl
BABl
BB03
BAG2
B4J3
BOCl
BOBl
BBBl
BOG2
BAH3
BOri5
BOH3
BAC4
471

Label

Phase

I SOONE
ISHORINF
I SLOAOPT
I SLOAOPT
1 SLOADPT
I SOPEN
1 SOPEN
1 SRE~INO
I SV3

UBOMT02
$$BCMT02
UBOMTOI
UBCMT03
UBOMT05
UBOMT03
UBOMT07
UBOMT01
UBCMT02

ECB4
FB01
EAHI
EOF3
EGHI
EOH4
EJF3
EAF1
FBCI

LABELCHK
LABELCHK
LABELCK
LABELRD
LABELSPC
LABELSW
LABFNO
LABFNO
LABLO
LAFlXTNT
LASTCARO
LASTINO
LASTINO
LASTOPN
LASTOPN
LASTSW
LASTVOL
LASTXTNT
LASTXTNT
LASTXTNT
LDIOREG
LDIOREG
LEGALl
LEGAL2
LEGAL3

UBOMTOI
UBCMT02
$$BCMT03
UBCMT05
$$BCMT05
$$BOS006
UBOCPTl
$$BOCPT2
UBOCPT2
$$BOSOI2

EBFl
ECC4
FCA3
FFE2
FEB5
LUH4
RB02
REG2
ROF3
LGC3
AOA4
LSA2
MCB3
ABE3
AOJ4
LLJ4
LEA4
LTG5
MAFl
MOHI
QBG3
QEB1
SE05
SEB5
SEB4
RMGl
LCG5
LOE2
FFC4
lHJ2
LT J4
LVGl
lYH4
lA02
MK03
LFA2
LMG2
MA04
lVF2
lUB5
LEE3
lWKl
EJB3
PJFI
SEBI
SEA2

lFCO~P

LIf.11 TCHK
LIMITS
LOAOAOOR
LOAOEXIT
LOAOEXIT
LOAOEXIT
LOAOEXIT
lOAOINP
lOAD 10
lOAOfo!SG
LOAO~SG

LOAOfo!SG
lOAOREGO
lOADUSER
LOADWORK
LOAOWORK
LOOP
LOOP
lOOPI
LOOP2
MDRSBY
MORSBY
MESSG17
MESSG47
MFCM
MFCX
MFI
MF3
MF4

$$BO~RCE

$$BOS005
$$BOSOW2
$$BOUROI
$$BOMRCE
UBCSOOl
UBCSOll
$$BCS005
$$BOSOWI
$$BOSOW2
UBOCP02
$$BOCPll
$$BOCPMl
$$BOCPM1
$$BOCPM1
$$BCCPT4
$$BOS002
$$BOS002
$$BCf.1T05
$$BOSOI3
$$BOS005
$$BOS006
$$60S009
UBCSOOO
UBOSOEV
$$80S011
$$BOSOOl
UBOSOWI
$$BOS006
$$BOS006
$$BOS011
$$BOS007
$$BOMT07
$$BERPTP
$$BCCPMl
$$BOCPM1
UBCMT02
$$BCMT07
UBCSDt3
$$BOS011
UBCLOSP
$$BOCP03
$$BOCP03
$$BOCP03
$$BCCP03

Location

FBB3
FHC5
LHJ1
lEH2
SCJ3
QCB4
QCC4
QCC5
QC04

Label

Phase

MF5
Mf,TPOP
MGT POP
MGT POP
MGTPOP
"100E9
MOOIFY3
MONORTN
MORXTNTS
MOVBLNK
MOVBLNK
MOVE
MOVE
MOVE
MOVEAOOR
MOVECCW
MOVECCW
"10VECCW9
MOVERC"1
MOVERCM
MOVESER
MOVESYM
MOVESYM
MOVEUNIT
MOVEUNIT
MOVEUNIT
MOVEUNIT
MOVEUTLO
MOVLOLIM
MOVSYIo1
MOVSYM
MSGEXIT
MSGEX IT
MSGPHASI
MSGPHAS 1
MSGPHAS1
MSGPHASI
MSGWRITE
MSGWR ITE
MSGWR ITE
MSGWR ITE
MSGWR ITE
MSGWR IT E
MSGWR HE
MSG10A
MSGllA
MSG12A
MSG12A
MSG12A
MSG12A
MSGl30
MSG130
MSG14A
MSGl4A
MSG15A

~$BOCP03

~SG15A

MSGl6A
MSGl6A
MSG170
MSG180
MSG19A
MSG19A
MSG19A
MSG230
MSG250
MSG30A

Location

UBOCP01
$$BOCP02
UBOCPll
$$80CPI2
$$BJCOPI
UBOSOIl
$$BOOQUE
$$BOSOIl
UBOMT03
$$BCMT05
$$BOMT03
$$BCMT04
$$BCMT05
$$BOSOW3
$$BOS012
$$BOSOWI
$$BflSOWI
~$BOS003

$$BOS008
UBCCPTl
HBOSO!l
$$BOSO"H
$$80MTOl
$$BOSOIl
$$BOSOWI
$$BOSDCl
$$BOS006
$$BOS009
$$BOSOO1
$$BOS001
$$BOS003
$$BOCPT4
UBOSOIl
$$B('1S012
$$BOSOOI
$$BOSOWI
$$BJCOpT
$$BC"1 T 07
"1TMOO
$$BO$003
$$80CPT2
BBOCP T3
$$BOCP T4
$$BO"1T03
$$BOMTOI
$$80MTOl
~$BOMT03

$$BOCP T3
$$BOCDT4
$~BOf.1TOl

$$BOCPT4
$$BOMTOI
$$BOCPT4
$$BOMTOI
$$BOCPT4
$$BOMT01
UBOCPT4
~$BOMT02

$$80MT02
$$80MT03
$$8flMT06
$$80CPT3
$$BOMT02
$$80MT05
$$8c~nOl

AFFendix A: Latel Cress-Reference list

OCE4
QAE3
QBE4
0E04
QFE4
ELE3
LEJ3
MJ05
LEE2
EOB3
~

r: ~Il

EEC2
FDKI
FEJ3
ME Jl
LGF4
MAGI
MAC5
LPOI
LXGl
SAJ3
LF82
MAE4
EAOI
LFB3
MAB5
MFH3
LUA3
LYHI
LBB5
LBJ3
LPCl
PMD3
LFE2
LGJ2
LMH2
MBD4
EKB5
FH04
FJJI
lQJ3
RF83
RJH4
RL04
EDC4
EAH2
EAB3
EDJ5
RHB2
DlB2
EAG3
RM83
EBC2
RLK3
EA85
RLH4
EAE5
RlH5
ECG2
ECF3
EEOI
EHG4
PHHI
ECA5
EGH2
fAH5
473

Label

Phase

PCHBlNK
POIN1ERX
POSTOIB
POSTOIB
POSTEOX
POSTOPEN
POSTOPEN
POSTXTNT
POSTXTNT
POSTXTNT
PPRT
PRBGN
PRECONVT
PRECONVT
PRINTIN
PROCESS
PROCESS
PROC ESS
PROCRUN
PROCRUN
PROCRUN
PROCRUN1
PROCPUNI
PPOCRUNI
PROCRUN2
PROCRUN2
PROCRUN2
PROCRUN2
PTSIO
PTl
PT2
PUBAOR
PUNCHBlK
PVTlIBRY
P50

UBClOSP
SSBOSOW3
SSBOSOIl
SSBOSOm
UBOSOEV
SSBOSOl4
$$BOSOW1
SSBOSOl2
SSBOSOl4
SSBOSOW3
UBOCP02
UBOS001
UBOS001
SSBOS002
SSBOCP02
UBOMT06
UBERPTP
UBOCPT3
UBOCPT3
UBOCPT4
UBCCPTl
$$BOCPT3
UBOCPT4
$$BCCPTl
UBOCPT3
$$BOCPT4
UBOCPT4
UBCCPTl
SSBClOSP
UBClOSP
$SBClOSP
UBOCP03
$SBClOSP
UBOSOC1
COMGO

Location
S004
MEA3
lEEl
llFl
MKG3
lJH1
MAG2
lGF2
lJB1
MEC3
QB03
lBBl
lBA4
lOE3
OBA5
EHFl
PHA5
PGFl
RG03
RKF4
SAB2
RGF3
RKH4
SAC2
RGG3
RKJ4
RlE2
SA02
SCH4
SCF4
SCG4
OC01
SOC3
MF01
AKCI

QTAMFlPT
QTAMOPEN

UBOSOI4
$$BOSOI4

lJB3
lJC2

RCOPENI
ROAGAIN
ROOISK
ROOISK
ROOISK
ROFRkRO
ROTPLAB
READ
READ
READ
REAOAGAN
REAOBK
REAODI SK
REAODISK
REAODISK
REAOOISK
REAOOISK
REAOCISK
REAODISK
REAOOI SK
REAOlABl
REAOTAPE
REA01APE
REAOVOl
REAO"OLI
REAOVOll
READ )(TNT

$SBOSOC1
UBOMT06
UBOCPTl
UBOCPT2
UBCCPTl
$SBCOROI
UBCCP.Tl
$$BOMT05
MTMCD
UBGCPM1
UBOMT02
$$BOMT02
$$BCSOIl
UBOSOI2
$SBOSOO1
SO
$SBeSOWl
UBOSOW2
SSBOSOW3
UBOSOC1
$SBOMT01
UBOMT01
MTMOO
UBONVOl
UBOSDll
UBOS002
$SBosom

MfF2
EHC4
RBB3
RFB1
SBBI
CCG1
SAB4
EGF1
FJB3
SEG4
ECH3
ECH1
lFEl
lGG5
lMG4
lZB2
MBB2
MOB3
MEC5
MGB4
EBG1
EAE3
FJB2
FMB3
lFC3
lOHI
llF4

Label

Phase

REA03TM
REA03TM
REENTRY
REENTRY
REGSAVE
RElNEXT
RElNEXT
RElNEXT
RELOCATE
REOPEN1
REPCHCP 1
REPCHCP 2
REPUNCH
REREAD
REREAOFl
RER EAOl
REREAOl
RESET
P ESElCP
R ESETEOF
RESElINO
RESETINO
RESETLBl
RESETMON
R ESETPNT
R ESET9
RESTORE
RESTORE
PElMON
RElMON
RElMON
RETMON
RElMON
RETMON
RETMON
RETRNPT
RETRNPT
RETRYMSG
RETRYMSG
RETURN
RETURN
RETURN
RETURN
RETURNED
RETURNED
RETURNED
PEW INO
REWIND
PEW INO
REW INO
R EW INOIT
REWINOT
REWR ITE
PST
RST
RTRYNT

UBOMT01
SSBOMTOl
UBOS012
$$BOS013
UBOSOEV
UBOCPTl
UBOCPT2
$$BOCPT4
$$E\OMTOl
UBOSOC1
UBClOSP
$$BCLOSP
UBERPTN
SSBERPTP
UBOSOW2
UBOS001
UBOS002
UBOMT01

SAVOIB
SAVE
SAVECON
SAVEFI
SAVENUMB
SAVESEQ
SAVESEQNO
SAVEUNIT
SAVlIMIT
A~~endix

Location

~$BOSDOO

$$BOSOIl
$$BOSO!3
$$BOSOO1
SSBOS006
UBOS011
UBOSOW3
UBOSOC1
UBOOOUE
$$BOCP T 4
$$BOSDIl
$$BOS001
UBOCP01
UBOCP02
UBOCP03
UBOCPll
$SBClOSP
UBJCOP1
UBJCOP1
$$BERRTN
$SBClOSP
$!liBCMT02
UBONVOl
$$BOCPTl
UBClOSP
$$BOMTOI
UBJCOPT
$$BCMT01
$$BOMT01
UBOM T 03
$$BCMT06
$$BONVOl
UBOMT05
UBCMT06
$$BERPTP
$$BOCP03
$$BOCPll
$$BJCOPT
$$BOSOOO
UBONVOl
UBOSOEV
$~BOSOO1

$$BOMRCE
$$BOS012
$$BOS001
$$BOSOWI
UBOS002

A: Label Cross-Reference list

EAJ5
EBB~

lGB2
lHC1
~KFl

RAB1
POC2
RKC2
EAB1
~FH5

SOA5
SOG5
PGE2
PHC2
MCC2
lBF5
lOJ3
EJC3
lAF2
lEC"-3
lHB5
1MB4
lUE3
lFE5
ME03
MFH2
MJF5
RlB5
lEFl
llGl
QAJ4
QBHl
QCF5
QOE4

scn

ElB2
ElJ1
PGK2
SOHl
fBK5
FMF4
RBK4
SCB~

EA02
EK02
FHE2
EI\G1
EOE3
FGH4
FMO~

Er,Ol
FGF3
PHJl
f)CH3
Q003
EKA3
lAB4
FMB1
MKBl
lME2
AOE3
It;G1
llJ5
MAB3
lOA4

475

Label

Phase

UNOEF
UNEXOEF
UNTPCP
UNTRC
UNTRC
UNTRC
UNTRCP
UNTRCP
UNTRCP
UNTRCP
UPDATE
UPDATE
UPDATE
UPDATE
UPoA TE
USoSTM
USER
USEP EXIT
USER EXIT
USER EXI T
USER EXI T
USER lBlS
USERRTNE
USER lEST
USERXTNT

UBOSOOI
UBOSoCl
UBOCPll
UBOCP02
UBOC D03
UBOCPll
UBeC POI
UBOCP02
$$BOCP03
$$BOCP12
UBOUPOI
$$BOMT04
$$BOMT07
$$BCMT02
$$BCMT04
$$BJCOPT
$$BCMT05
$$BOSOW3
UBOSoCI
UBOSOEV
UBCSoEV
UBOSoOl
UBCMT01
UBCMT04
UBOSoI2

1MBl
MGFl
QOA3
OBFl
OCJ3
QOE3
QAB4
QBC3
OCE3
OFF2
ABE4
EFGl
EJ04
FBJ5
FoA4
EKB4
FFC5
MEF3
MGF3
MK02
MKJ3
lMC3
FAF4
EFJl
lGKI

VER I FY
VER I FY
VERIFYCP
VIAIC52
VOlSKIP
VOL SKIP
VOlSKIPl
VOlSKIPl
VOllCHK
VOllCHK
VOl8CO
VOl8CO
VTOC AOOR
VTOe AOOR
VTOCAOOR

$$BOSoOI
$$BOSIGN
$$BOSo09
$$BOSo05
UBOCPT3
$$BOCPT4
UBOCPT3
$$BOCDT4
$$BOCPT3
$$BOCPT4
$$BJCOPl
UBCCPT2
UBOSOIl
$$BOSo02
$$BOSoWl

lMHI
lNBl
lYB3
l TA3
RHE2
PlBl
RHF2
RlCl
RHBl
RlB3
ElF4
REJ4
lFF4
lOE2
MBA 1

WHOP S
WOPKClOS
WOPKFIlE
WORK FILE
WORKTEST
WRITOISK
WR ITOI SK
WR ITOI SK
WR ITOI SK
WR ITOI SK
WR lTE
WP ITE
WRITE
WR ITEFL
WPITElBl
WR ITETAP
WR ITHOR
WR ITflK
WR ITTM
WRONGPAK
WTOEVEO

$$BOCPTl
$$BOSOC1
UBCMT06
$$BOSoCI
$$BOS002
$$BOS006
SO
UBOSDWl
UBOSOW2
UBOSOCl
MTMOD
UBONVOL
$$BOCPMl
$$BOSOC1
$$BOS006
MTMOO
UBOMT06
$$BCMT06
$$BJCOP1
$$BOS002
$$BClOSP

RBKI
MFF5
FGB3
MFE1
LOB2
LVB4
LZB3
MBB3
MOB4
MGB5
FJB4
FME3
SEG3
MFE4
LUF4
FJ02
EHA5
EH05
ELG4
L002
SOH3

XTNTCONV
XTNTOK

$$60S001
$$60S001

l6C4
LBG2

Location

A~~endix

Label

Phase

XTNTOK
XTNTOKAY
XYZ

$$BOS002
$$BOSo02
UBERPTP

lC03
lOE5
PHEl

YESlOPT
YESOPEN
YESREWNO
YESTM

UBOMT03

EOA4
EF. Al
EHGI
EAH3

Location

$~BOMT03

UBOMT06
$$BOMTOI

A: Latel Crcss-Reference List

477

APPENDIX B:

For further detailed inforrraticn en these rressages, see

MESSAGE CRCSS-REFERENCE

~OS/ys M~§§ES~§,

LIS~

GC33-5379.

r---------T----------T------------------------------------------------------------------,
I
Message
I

I Message I Issuing
I Number I Routine

I

I

~---------+----------+------------------------------------------------------------------f
I 40001 I $$BERRTN I RETRY
I
~---------+----------+------------------------------------------------------------------f
I
4110A I $$BCMT03 I NO VCL1 LBL FOUND TLBL=xxxxxx
I
I
I $$BOCPT3 I filenarre SYSxxx=cuu
I
~---------+----------+------------------------------------------------------------------f
I
41111 I $$BCMT01 I NO VCL1 LBL FOUND filename
I
I
I $$BCCPT4 I SYSxxx=cuu
I
~---------+----------+------------------------------------------------------------------f
I
4112A I $$BCMT01 I VOL SERIAL NO. ERROR TLEL=xxxxxx
I
I
I $$BCMT03 I filename SYSxxx=cuu
I
I
I $$BCCPT3 I
I
I
I $$BOCPT4 I
I
~---------+----------+------------------------------------------------------------------f
I 4113D I $$BOMT01 I NO H~R1 LABEL FOUND filename
I
I
I $$BOCPT4 I SYSxxx=ccu
I
~---------+----------+------------------------------------------------------------------f
I 4114A I $$BOMT01 I FILE SEQ NC. ERROR filename
I
I
I
I $$BCCPT4 I SYSxxx=cuu
~---------+----------+------------------------------------------------------------------f
I 4115A I $$BOMT01 I FILE SER. NC. ERROR TLBI=xxxxxx
I
I
I $$BOCPT4 I filename SYSxxx=cuu
I
~---------+----------+------------------------------------------------------------------f
I 4116A I $$BOMT01 I VOLUME SEQ. NO. ERROR filename
I
I
I $$BCCPT4 I SYSxxx=cuu
I
~---------+----------+------------------------------------------------------------------f
I 4117D I $$BOMT02 I NO ~'M FCUN~ ON READBK filename
I
I
I
I $$BOMT05 I SYSxxx=cuu
~---------+----------+------------------------------------------------------------------f
I 4118D I $$BOMT02 I FILE ID ERRCR, READBK filename SYSxxx=cuu
I
~---------+----------+------------------------------------------------------------------f
I 4119A I $$BOMT03 I FILE UNEXPIRED filenarre
I
I
I $$BOMT06 I SYSxxx=cuu
I
I
I $$BCCPT3 I
I
~---------+----------+------------------------------------------------------------------f
I 41201 I $$BOMT03 I TAPE POSI~ICNED WRONG filename SYSxxx=cuu
I
~---------+----------+------------------------------------------------------------------f
I
4121A I $$BCMT07 I NO AL~ERN ~RIVE ASSGN SYSxxx=cuu
I
~---------+----------t------------------------------------------------------------------f
I
41221
I $$BCMT07 I EOV ENCCUN~ERED SYSxxx=cuu
I
~---------+----------+------------------------------------------------------------------f
I 4123D I $$BOMT02 I WRONG PCSI~N, READBK filenarre SYSxxx=cuu
I
~---------+----------t------------------------------------------------------------------f
I 41241 I $$BCMT04 I TOO MANY UHL'S filename SYSxxx=cuu
I
~---------+----------+------------------------------------------------------------------f
I 4125D I $$BCMT05 I VOLl LBL FCUND filenarre SYSxxx=cuu
I
~---------+----------+------------------------------------------------------------------f
I 41261 I $$BCMT02 I EOV ENCCUN~ERED filename SYSxxx=cuu
I
~---------+----------+------------------------------------------------------------------f
I 4127A I $$BCMT05 I EOV ~HIIE wRITING ECF
I
~---------+----------t------------------------------------------------------------------f
I _________
4130A I ___
$$BCMTOl
EOF CR ECV INQUIRY filename SYSxxx=cuu
L
- - - - -__ I __________________________________________________________________
JI
~

Figure 53.

~

Message cress reference list (1 cf 5).

A~~endix

B:

~essage

Cress-Reference List

479

r---------T----------T------------------------------------------------------------------,
I Message I Issuing
I
Message
I
I Routine
I
I
I Number
~---------+----------+------------------------------------------------------------------f
I
43041 I $$BOSDI1 I NO FCRMA~ 4 LABEL IN VTCC
I
~---------+----------~ or
I
I 44041 I $$EOSD02 I NO RECORC FOUND
I
~---------+----------~
I
I
49041 I $$BOSDW1 I
I
~---------+----------+------------------------------------------------------------------f
I
43061
I $$EOSDI1 I NO S~ANDARC VOL 1 LAEEL
I
~---------+----------~ or
I
I
44061 I $$BOSD02 I NO RECORD FCUND
I

~---------+----------~

I

~---------+----------~

I

I

45061

I

$$EOSDC1 I

I

49061 I $$BOSDW1 I
I
~---------+~---------+------------------------------------------------------------------f
I
43071
I $$EOSDI1 I NO RECORC FOUND
I
~---------+----------~
I
I
44071 I $$BOSD01 I
I
~---------+----------~
I
I
49071
I $$EOSDW1 I
I
I

~---------+----------+------------------------------------------------------------------~
I 4308D I $$BOSDI3 I NO U~LO FILEMARR FOUNC
I
~---------+----------~ or
I

I
4408D I $$EOSD06 I NO RECORD FOUND
I
~---------+----------+------------------------------------------------------------------~
I 42091 I $$BOSD03 I NO RECORC FCUND
I
I $$EOSD08 I

~---------+----------~

I

44091

I
I

I $$BOSD03 I
I
I

$$EOSD03
$$BOSD08

I
I

~---------+----------~

I

47091

I $$EOSD08 I

~---------+----------~

I
I
I

49091

I $$BOSD03 I
I $$EOSD03 I
I $$BOSD08 I

~---------+----------+------------------------------------------------------------------f
I
4n20I
I $$ECSDOO I TAPE POSI~ICNED WRONG filename SYSxxx=cuu
I
~---------+----------+------------------------------------------------------------------f
I 4329D I $$B3540I I EXTEN~S NC~ EXHAUSTEC
I
~---------+----------+------------------------------------------------------------------f
I
4330D I $$ECSDI2 I FMT1-BLAE UNEQUAL
I
~---------+----------+------------------------------------------------------------------f
I 4331D I $$BCSDI2 I VOLU~E SECUENCE ERRCR
I
~---------+----------+------------------------------------------------------------------f
I 43321 I $$EOCI05 I VOLUME SEQUENCE ERROR
I
~---------+----------+------------------------------------------------------------------f
I
4433A I $$BCSD08 I EQUAL FILE ID IN VTCC
I
~---------+----------f
I
I
I 4733A I $$EOSD08 I
~---------+----------~
I
I
4933A I $$BCSD08 I
I
~---------+----------+------------------------------------------------------------------f
I 44341 I $$BOSD05 I CURRENT FILE LBL DELETEB
I
~---------+----------+------------------------------------------------------------------f
I 49351 I $$ECSDW2 I DELE~ED ~CRRFILE LABEL
I
I
I $$BOSDW3 I
I
~---------+----------+------------------------------------------------------------------f
IL _________
49361 I __________
$$ECSDW3 I __________________________________________________________________
NO ~CRE AVAIL/MATCH X~N~
JI
~

Figure 53.

~

Message cross reference list (3 of 5).

A~~endix

B:

~essage

Crcss-Reference List

481

r---------T----------T------------------------------------------------------------------,
Message I Issuing I
Message
I

I
I

Number

I

Routine

I

I

~---------+----------i------------------------------------------------------------------i
I

44651

I

$$EODI02

I

EQUAL FILE LABEL IN VTOC

I

~---------+----------+------------------------------------------------------------------~
4366A I $$BOSDI2 I 1 TRACK USER LBL EXTENT
~---------+----------~
I
4466A I $$ECSD01 I

I

I

I
I

~---------+----------+------------------------------------------------------------------~
I

4477A

I

$$BOSD07

I

EXTENT ENTRY ERROR--RETBY

I

~---------+----------i---------------------------------------------------------------~--i

I
48801 I $$ECEOV1 I INVALID FILE TYPE
I
~---------+----------+--~----------------~----------------------------------------------~
I
48811 I $$BCEOV1 I NO LAEEL INFORMATION
I
~---------+----------i------------------------------------------------------------------i
I
43831 I $$ECSDIl I INVALID LCGICAL UNIT
I
~---------+----------~
I
I
44831 I $$BOSD01 I
I
~---------+----------~
I
I 49831 I $$EOSDW1 I
I
~---------+----------+------------------------------------------------------------------~
I
4884D I $$BOCP02 I NEED FILE FBOTECT RING
I
I
I $$EOCP11 I
I
I
I $$BOCP12 I
I

~---------+----------i-------------------------------------------------------~----------i

I 48871 I $$EERRTN I SYS FILE EXTENT EXCEEDE~
I
I~---------+----------+------------------------------------------------------------------~
48881 I $$BERRTN I EOF CN SYSTEM FILE
I
~---------+----------+------------------------------------------------------------------i
44971 I $$EOSD03 I OVLAP EXPIRED SECRD FILE
I

I

~---------+----------+------------------~-----------------------------------------------~
I
4399D I $$BOSDI2 I DATA SECURED FILE ACCESSED
I
~---------+----------i------------------------------------------------------------------i

4MR11 I MRMOD
I EXTERNAL IN~ERRUPT I/O ERROR filename SYSxxx=cuu
I
I~---------+----------+------------------------------------------------------------------~
4MR21 I MRMOD
I SCU NCT CFERATICNAL filenarre SYSxxx=cuu
I
I

~---------+----------+------------------------------------------------------------------i

I

4P011

I

$$EERPTR

I

DATA CHECK SYSxxx=cuu

I

~---------+----------+------------------------------------------------------------------i
L _________ __________ __________________________________________________________________ J

I

4P02D

Figure 53.

~

I

$$BERPTR

~

I

DATA CHECK SYSxxx=cuu

I

Message cross reference list (5 of 5).

A~~endix

B:

~essage

Cross-Reference list

483

A control character must a~~ear in each
logical record if the ASA c~ticn is chcsen.
If the contrcl character fer the ~rinter is
not valid, a message is given and the job
is canceled.
If the control character for
the card punch is not V or W, the card is
selected into pocket 1. The codes are as
follows:

0000C001

12,9,1

Select into pocket 1

01000001
10000001

12,0,9,1
12,0,1

Select intc pocket 2
Select into pocket 3

00000001

12,9,1

Select into stacker 1

01000001

12,0,9,1

Select intc stacker 2

00000001

12,9,1

Write (no automatic
spaoe)

COO01001

12,9,8,1

Write and space 1
line after printing

00010001

11,9,1

Write and space 2
lines after printing

00011001

11,9,8,1

Write and space 3
lines after printing

10001001

12,0,9

Write and skip to
ctannel 1 after
printing

10010001

12,11,1

Write and skip to
ctannel 2 after
printing

10011001

12,11,9

Write and skip to
channel 3 after

£od~

(blank)

o

+

1
2
3
4

5
6
7
8
9
A

E
C

Space one line before ~rinting
two lines before ~rinting
space three lines cefcre ~rinting
Suppress space befcre ~rinting
Skip to channel 1 before printing
Skip to channel 2 before printing
Skip to channel 3 before printing
Skip to channel 4 before printing
Skip to channel 5 befcre printing
Skip to channel 6 befcre printing
Skip to channel 7 before ~rinting
Skip to channel 8 befcre printing
Skip to channel 9 before printing
Skip to channel 10 before
printing
Skip to channel 11 before
printing
Skip to channel 12 before
printing
Select stacker 1
Seleot stacker 2
S~ace

The control character is.the cerrrrand-code
portion of the System/360 Channel Ccrrmand
Word used in printing a line or spacing the
forrrs.
If the character is not ene ef the
following characters, unpredictable events
will occur.

~rinting

10100001

11,0,1

Write and skip to
channel 4 after
printing

10101001

11,0,9

Write and skip to
channel 5 after
printing

10110001

12,11,0,1

Write and skip to
channel 6 after
printing

10111001

12,11,0,9

Write and skip to
channel 7 after
printing

Punch
££!!!!2!!!ati~!!

10000001

12,0,1

Select inte stacker 1

11000001

12,1

Select inte stacker 2
Appendix C:

Centrol Codes

485

INDEX
A

alternate switching
EOV, tape 95
system units, tape 99
Am. Nat. Std. COBOL, input file,
closing 98
ANSI control codes 485
ASCII=YES, DTFCP macro parameter
associated files 22, 23, 49

164

B

BSI (buffer status indicator)
30
buffer (MICR)
31
buffer status indicator (BSI)
30
bypass checkpoint records routine, MTMOD 88
detail charts 267, 274
byte, sync 39
C

card device files (CD)
14
CDMOD 22
CNTRL macro 22
CNTRL macro, detail chart 209
GET macro 22
GET macro, detail chart 210
PUT macro 23
PUT macro, detail chart 213
channel programs, sequential DASD 128
CHECK macro
MRMOD 30
MRMOD, detail chart 220
MTMOD workfile 84
MTMOD workfile, detail chart 255
SDMODW 143
SDMODW, detail chart 343
checkpoint records, bypassing MTMOD 88
close routines
alternate switching for EOV 95
alternate switching system units 99
diskette 192
DTFCP/DTFDI tape files 176
DUMODFO 187
EOF backward 96
EOF/EOV input forward 95
EOV output forward 97
magnetic tape except workfiles 97
MICR 33
optical reader files 45
paper tape files 50
punch files 177
SDMODFO
no truncation 133
no truncation, detail chart 304
truncation 132
truncation, detail chart 304
SDMODFU
no truncation 135
no truncation, detail chart 309
truncation 135
truncation, detail chart 306
SDMODUO 141
.
SDMODUO, detail chart 333
SDMODVO 137
SDMODVO, detail chart 320

SDMODVU 139
SDMODVU, detail chart 328
SDMODW 143
SDMODW, detail chart 342
unit record files 14
workfiles 98
close sequential DASD
all files 146
FEOVD specified 153
free track function 15'2
free track function, detail chart 378
input and output 152
input and output, detail chart 376
CNTRL macro
CDMOD 22
CDMOD, detail chart 209
DRMOD 43
DRMOD, detail chart 239
fixed-length records 135
fixed-length records, detail chart 312
MTMOD
data file. 83
data file, detail chart 256
workfile 83
workfile, detail chart 256
ORMOD 37
ORMOD, detail chart 226
PRMOD 49
PRMOD, detail chart 242
SDMODVU 139
SDMODVU, detail chart 329
SDMODW 144
SDMODW, detail chart 345
undefined records 141
undefined records, detail chart 328
variable-length records 139
variable-length records, detail
chart 328
COBOL, input file closing 98
combined files
(DTFCD)
15
compiler files
characteristics 156
CPMOD macro 163
DTFCP 155
initialization and termination 172
logic module (CPMOD)
163
console files (DTFCN)
23
close 23
DTFCN macro 23
GET macro 23
G~T macro, detail chart
217
open 23
PUT macro 25
PUT macro, detail chart 218
control codes 485
control, open output sequential
DASD 148
control, open output sequential
DASD, detail chart 356
CPMOD macro 163
GET
IOPTR=YES 165
IOPTR=YES, detail chart 383
one I/O area 164
one I/O area, detail chart 383
two I/O areas 164
two I/O areas, detail chart 382

Index

487

workfiles 70
DTFOR 34
close 45
open 45
optical reader 34
table 35
DTFPH
macro, diskette 184
macro, magnetic tape 70
macro, sequential disk 125
table, diskette 184
table, magnetic tape 82
table, sequential disk 126
DTFPR 46
printer files 46
table 47
DTFPT 50
logic module (PTMOD) 65
table 51
DTFSD 110
channel programs 128
macro, data files 110
macro, workfiles 110
tables, data files 111
tables, workfiles 123
DTFxx macros
DTFCD 15
DTFCN 23
DTFCP 155
DTFDI 167
DTFDU 181
DTFMR 25
DTFMT 70
DTFOR 34
DTFPH (diskette) 184
DTFPH (magnetic tape)
70
DTFPH (sequential disk) 125
DTFPR 46
DTFPT 50
DTFSD 110
E

EOF/EOV monitor
EOFADDR=, DTFCP
EOV and logical
chart 264
ERREXT
DUMODFI 186
DUMODFO 187
SDMODFI 131
SDMODFO 132
SDMODUI 140
SDMODUU 141
SDMODVI 136
SDMODVO 137
SDMDOVU 138
ERROPT
DUMODFI 186
DUMODFO 187
SDMODFI 131
SDMODFO 132
SDMODUI 140
SDMODUU 141
SDMODVI 136
SDMODVO 137

94
macro parameter 156
spacing routine, detail

- 134

SDMODVU 138
error exit routine
MTMOD, fixed, detail chart 268
MTMOD, variable, detail chart 271
error messages 479
error options extension 84
error recovery, punch 172
explanation of flowchart symbols 193
extent overlap, open output sequential
DASD 149
extent overlap, open output sequential
DASD, detail chart 360
extent to DTF
open input sequential DASD 147
open input sequential DASD, detail
chart 352
open output sequential DASD 151
open output sequential DASD, detail
chart 369
open workfile sequential DASD 152
open workfile sequential DASD, detail
chart 375
extents
console open output sequential 151 - 153
console open output sequential, detail
chart 367, 381
F

FEOV macro 85
FEOV macro, MTMOD detail chart 257
FEOVD macro 145
FEOVD macro, detail chart 345
field information record 39, 41
file label
open output sequential DASD 150
open output sequential DASD, detail
chart 362
open workfile sequential DASD 152
open workfile sequential DASD, detail
chart 373
files, associated 22, 23, 49
fixed-length record modules 131
flowchart labels 461
flowchart symbols 193
format record 39
format record relationship 42
Format 3 label
open output sequential DASD 150
open output sequential DASD, detail
chart 363
FREE macro 144
FREE macro, detail chart 345
free track function
close sequential DASD 152
close sequential DASD, detail chart 378

- 134

Index

489

logical spacing and
chart 264
logical transients
$$BCCPTl 176
$$BCCPT1, detail
$ $ BCEOVl 94
$$BCEOV1, detail
$$BCL08P 177
$$BCL08P, detail
$ $ BCMRO1 34
$$BCMR01, detail
$$BCMTOl 95
$$BCMT01, detail
$$BCMT02 95
$$BCMT02, detail
$$BCMT03 96
$$BCMT03, detail
$$BCMT04 97
$$BCMT04, detail
$ $ BCMTO 5 97
$$BCMT05, detail
$$BCMT06 98
$$BCMT06, detail
$$BCMT07 99
$$BCMT07, detail
$$BERPTP' 171
$$BERPTP, detail
$$BERRTN 172
$$BERRTN, detail
$$BJCOPT 94
$$BJCOPT, detail
$$BJCOPl 94
$$BJCOP1, detail
$$BMMR20 34
$$BMMR20, detail
$$BM8GWR 101
$$BM8GWR, detail
$$BOCPMl 177
$$BOCPM1, detail
$$BOCPM2 177
$$BOCPM2, detail
$$BOCPTl 174
$$BOCPT1, detail
$$BOCPT2 175
$$BOCPT2, detail
$$BOCPT3 175
$$BOCPT3, detail
$$BOCPT4 176
$$BOCPT4, detail
$$BOCPOl 172
$$BOCP01, detail
$$BOCP02 173
$$BOCP02, detail
$$BOCP03 173
$$BOCP03, detail
$$BOCP11 174
$$BOCP11 , detail
$$BOCP12 174
$$BOCP12, detail
$$BOOIOl 189
$$BOOI01, de'tail
$$BOOI02 191
$$BOOI02, detail
$$BOOI03 191
$$BOOI03, detail
$$BOOI04 192
$$BOOI04, detail

EOV routlnes, detail

chart

417

chart

287

chart

419

chart

224

chart

288

chart

289

chart

290

chart

291

chart

292

chart

294

chart

295

chart

397

chart

396

chart

285

chart

286

chart

225

chart

298

chart

421

chart

421

chart

405

chart

408

chart

411

chart

414

chart 399
chart

400

chart

401

chart

402

chart

404

chart

432

chart

444

chart

447

chart

456

$$BOOI05
$$BOOI05,
$$BOOI06
$$BOOI06,
$$BOOI07
$$BOOI07,
$$BOOI08
$$BOOI08,
$ $ BOOQUE
$$BOOUQE,
$$BOOUCP
$$BOOUCP,
$ $ BOMRCE
$$BOMRCE,
$ $ BOMRO1
$$BOMR01;
$$ BOMTOM
$$BOMTOM,
$$BOMTOW
$$BOMTOW,
$ $ BOMT 0 1
$$BOMT01,
$$BOMT02
$$BOMT02,
$ $ BOMTO 3
$ $ BOMTO 3 ,
$$BOMT04
$$BOMT04,
$$BOMT05
$$BOMT05,
$$BOMT06
$$BOMT06,
$$BOMT07
$$BOMT07,
$ $ BONVOL
$$BONVOL,
$ $BOORO 1
$$BOOR01,
$$B080Cl
$$B080Cl,
$$B080C2
$$B080C2,
$$B080EV
$$B080EV,
$$B080Il
$$B080Il,
$$B080I2
$$B080I2,
$$B080I3
$$B080I3 ,
$$B080I4
$$B080I4,
$$B080I5
$$B080I5,
$$B08001
$$B08001,
$$B08002
$$B08002,
$$B08003
$$B08003,
$$B08004
$$B08004,
$$B08005
$$B08005,
$$B08006
$$B08006,
$$B08007

190
detail
190
detail
191
detail
192
detail
153
detail
191
detail
14
detail
33
detail
99
detail
99
detail
89
detail
90
detail
90
detail
92
detail
92
detail
93
detail
94
detail
102
detail
45
detail
152
detail
·152
detail
153
detail
147
detail
147
detail
147
detail
148
detail
148
detail
148
detail
149
detail
149
detail
150
detail
150
detail
150
detail
151

chart

434

chart

439

chart

450

chart

454

chart

379

chart

452

chart

207

chart

224

chart

297

chart

297

chart

276

chart

278

chart

279

chart

281

chart

282

chart

283

chart

284

chart

299

chart

241

chart

376

chart

378

chart

380

chart

350

chart

352

chart

353

chart

354

chart

355

chart

356

chart

359

chart

360

chart

362

chart

363

chart

365

Index

491

SDMODUI 140
SDMODUO 141
SDMODUU 141
SDMODVI 136
SDMODVO 137, 138
SDMODVU 138
SDMODW 142 - 144
SETDEV 43
TRUNC
MTMOD 87
SDMODFO 133
SDMODVO 138
WAITF
DRMOD 43
MRMOD 33
ORMOD 38
WRITE MTMOD 88
WRITE SDMODW 142
magnetic ink character recognition (MICR)
files 25
magnetic tape
alternate switching for EOV 95
alternate switching for system units 99
block/deblock subroutine, detail
chart 264
close all files except work 97
close routines 195
close workfiles 98
EOF backward 96
EOF/EOV input forward 95
EOF/EOV routines 195
EOV output forward 97
message writer 99 - 101
open routines 194
open/close subroutines, detail
chart 296
magnetic tape close
all files except work 97
alternate switching for EOV 95
alternate switching for system units 99
Am. Nat. Std. COBOL input files 98
EOF backward 96
EOF/EOV input forward 95
EOV output forward 97
workfiles 98
magnetic tape open
I/O nonstandard/unlabeled 92
input standard labels, backward 90
input standard labels, forward 89
job control 94
output standard labels 90 - 92
workfiles 93
message cross-reference list 479
message writer
DTFCP/DTFDI 177
magnetic tape 99, 101
MICR 34
MICR 25
buffer 31
close 34
DTFMR macro 25
error messages 34
files 25
initialization and termination 33
logic module (MRMOD)
30 - 33
message writer 34
MRMOD macro 30

open 33
pocket light indicators 32
modules
fixed-length records 131
undefined records 140
variable-length records 136
workfile 142
MRMOD 30
CHECK macro 30
CHECK macro, detail chart 220
DISEN macro 33
DISEN macro, detail chart 223
GET macro 30
GET macro, detail chart 220
LITE macro 32
LITE macro, detail chart 222
READ macro 31
READ macro, detail chart 220
WAITF macro 33
WAITF macro, detail chart 223
MTMOD 83
bypass checkpoint record routine 88
bypass checkpoint record routine, detail
chart 267, 274
CHECK workfiles 84
CHECK workfiles, detail chart 255
CNTRL
data files 83
data files, detail chart 256
workfiles 83
workfiles, detail chart 256
deblocking subroutine, detail
chart 264
EOV subroutine, detail chart 264
error exit routine, detail
charts 268, 271
FEOV 85
FEOV, detail chart 257
GET 85
detail chart 258
spanned records 85
spanned records, detail chart 259
GET/PUT common routines, detail
chart 260
logical spacing routine, detail
chart 264
NOTE workfiles 85
NOTE workfiles, detail chart 260
POINTR workfiles 86
POINTR workfiles, detail chart 260
POINTS workfiles 86
POINTS workfiles, detail chart 260
POINTW workfiles 86
POINTW workfiles, detail chart 260
PUT 86
detail chart 261
spanned records 86
spanned records, detail chart 262
read/write subroutine
fixed-length records, detail
chart 265
undefined records, detail chart 272
variable-length records, detail
chart 269
READ workfiles 87
READ workfiles, detail chart 263
RELSE 87

Index

493

PFR (punch/feed/read) files 22
physical IOCS
magnetic tape (DTFPH)
70
sequential DASD (DTFPH) 125
POINTR macro
MTMOD workfiles 86
MTMOD workfiles, detail chart 260
SDMODW 144
SDMODW, detail chart 344
POINTS macro
MTMOD workfiles 86
MTMOD workfiles, detail chart 260
SDMODW 144
SDMODW, detail chart 345
POINTW macro
MTMOD workfiles 86
MTMOD workfiles, detail chart 260
SDMODW 144
SDMODW, detail chart 344
printer
DTFPR macro 46
DTFPR table 47
files 46
logic module 49
open 46
PRMOD macro 49
STL (selective tape lister) 46
PRMOD
CNTRL macro 49
CNTRL macro, detail chart 242
PRTOV macro 49
PRTOV macro, detail chart 243
PUT macro 49
PUT macro, detail chart 244
PRTOV macro 49
PRTOV macro, detail chart 243
PTMOD
GET macro 65, 67
GET macro, detail charts 247 - 252
PUT macro 68
PUT macro, detail charts 253, 254
punch
error recovery 172
file close 177
file open 14
punch/feed/read (PFR) files 22
PUT macro
CDMOD 23
combined files 23
detail chart 213
CPMOD
IOPTR=YES 166
IOPTR=YES, detail chart 386
one I/O area 165
one I/O area, detail chart 388
two I/O areas 165
two I/O areas, detail chart 384
DIMOD
one I/O area 170
one I/O area, detail chart 392
two I/O areas 171
two I/O areas, detail chart 394
DTFCN 25
DTFCN, detail chart 218
DUMODFO 186
DUMODFO, detail chart 423
MRMOD 86

detail chart 261
spanned records 86
spanned records, detail chart 262
PRMOD 49
detail chart 244
with STL 49
PTMOD
no shift 1018 68
no shift 1018, detail chart 253
shift 1018 68
shift 1018, detail chart 254
SDMODFO
no trunc 133
no trunc, detail chart 305
trunc 132
trunc, detail chart 303
SDMODFU
no trunc 134
no trunc, detail chart 313
trunc 133
trunc, detail chart 313
SDMODUO 140
SDMODUO, detail chart 331
SDMODUU 141
SDMODUU, detail chart 335
SDMODVO 137
SDMODVO, detail chart 316
SDMODVU 138
SDMODVU, detail chart 325
PUTR macro 25
R

RCE open routines 14
RDLNE macro 38
RDLNE macro, detail chart 233
RDONLY=
CPMOD macro parameter 164
DTFCP macro parameter 156
READ macro
DRMOD 43
DRMOD, detail chart 239
MRMOD 31
MRMOD, detail chart 220
MTMOD workfile 87
MTMOD workfile, detail chart 263
ORMOD 38
ORMOD, detail chart 234
SDMODW 142
SDMODW, detail chart 339
read/write subroutines
fixed-length records, detail chart 265
undefined records, detail chart 272
variable-length records, detail
chart 269
reader file open 14
record
document information 39, 40
field information 39, 41
format 39
line information 39, 40
relationship of format 42
RECSIZE=, DTFCP macro parameter 155
RELSE macro
MTMOD 87
MTMOD, detail chart 263

Index

495

READ macro 142
READ macro, detail chart 339
read/write subroutine, detail chart 342
save area 110
WRITE macro 142
WRITE macro, detail chart 340
selective tape lister (STL) 46
sequential DASD
channel programs 128
close 146, 152
files 110
open
general flow 196
input files 145
output files 146
workfiles 146
open/close logic 145
SETOEV macro 43
SETOEV macro, detail chart 240
STL control fields 47
storage areas (SO)
input/output areas 103, 179
module save areas 103, 179
subroutines, detail charts
MT block/deblock 264
MT open/close 296
MTMOD
EOV 264
read/write fixed-length records 265
read/write undefined records 272
read/write variable-length
records 269
translate fixed-length records 264
translate undefined records 274
translate variable-length
records 274
work area 275
SD open output 370
SOMOOUU 336
SDMODW read/write 342
switching, alternate 95
symbols, flowchart 193
sync byte 39
system files, device independent 166

U

undefined record modules for SD 140
unit record files 13
unlabeled MT file optn 92
user labels
open input sequential DASD 147
open input sequential DASO, detail
chart 353
open output sequential OASD 150
open output sequential DASD, detail
chart 365

v
variable-length record modules for SD 136
volume label
open output sequential DASO 149
open output sequential DASD, detail
chart 359
open workfile sequential DASD 151
open workfile sequential DASD, detail
chart 371
W

WAITF macro
ORMOO 43
ORMOD, detail chart 240
MRMOD 33
MRMOD, detail chart 223
ORMOD 38
ORMOD, detail chart 236
work area subroutines for MTMOD, detail
chart 275
workfile module 142
WRITE macro
MTMOD workfiles 88
MTMOD workfiles, detail chart 263
SDMODW 142
SDMODW, detail chart 340

T

table, PDTABB for MICR 33
tapemarks, placement of 88
translate subroutine MTMOD, detail
charts 264, 274
translation, paper tape files 50
TRUNC macro
MTMOD 87
MTMOD, detail chart 263
SDMODFO 133
SDMODFO, detail chart 304
SDMODVO 138
SDMODVO, detail chart 320
TYPEFLE=
CPMOD macro parameter 164
DTFCP macro parameter 156

Index

497

DOStvS LIOCS Volume 2 SAM Logic

READER'S
COMMENT
FORM

SY33-8560-1

This sheet is for comments and suggestions about this manual. We would appreciate your
views, favorable or unfavorable, in' order to aid us in improving this publication. This form
will be sent directly to the author's department. Please include your name and address if
you wish a reply. Contact your IBM branch office for answen to technical questions about
the system or when requesting additional publications. Thank you.

Your comments· and sugestions:

··

,

"

, • We wota¥ ~y appreciate your OOIIIIIMmtl on any of the foUowiDI topica:

Clarity of the text
Organization of the text

Accuracy

Cro.references

Index
Tables

Illustrations

Appeannce

Examples

Printing

Paper
Binding



---

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:31 09:39:57-08:00
Modify Date                     : 2012:05:31 10:57:09-07:00
Metadata Date                   : 2012:05:31 10:57:09-07:00
Producer                        : Adobe Acrobat 9.51 Paper Capture Plug-in
Format                          : application/pdf
Document ID                     : uuid:28d2bca6-2418-4eef-8ca1-b6c98c32f9cf
Instance ID                     : uuid:fff62336-892b-439e-8d41-a7f4b0233517
Page Layout                     : SinglePage
Page Mode                       : UseNone
Page Count                      : 250

EXIF Metadata provided by EXIF.tools