SH20 0911 4_IMS 360_Version_2_System_Programming_Reference_Manual_Sep74 4 IMS 360 Version 2 System Programming Reference Manual Sep74

SH20-0911-4_IMS-360_Version_2_System_Programming_Reference_Manual_Sep74 manual pdf -FilePursuit

SH20-0911-4_IMS-360_Version_2_System_Programming_Reference_Manual_Sep74 SH20-0911-4_IMS-360_Version_2_System_Programming_Reference_Manual_Sep74

User Manual: SH20-0911-4_IMS-360_Version_2_System_Programming_Reference_Manual_Sep74

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

DownloadSH20-0911-4_IMS-360_Version_2_System_Programming_Reference_Manual_Sep74 SH20-0911-4 IMS-360 Version 2 System Programming Reference Manual Sep74
Open PDF In BrowserView PDF
SH20·0911·4

Program Product

Information Management
System/360, Version 2
System Programming
Reference Manual
Program Number.~734-XX6

Information Management System/360 is a processing
program (control system) designed to facilitate the
implementation of medium to large common data bases
in a multiapplication environment. This enviroment is
created to accommodate both online message processing
and conventional batch processing, either separately or
concurrently. The system permits the evolutionary
expansion of data processing applications from a batchonly to a teleprocessing environment.
This manual provides system programming personnel
with installation considerations and details for generation
(definition) of an IMS/360 system for· the user's data
processing environment. The security maintenance
program is included and message editing capabilities
discussed. An IMS/360 sample problem is also provided.
Note:

IMS/360 operates under several different
operating systems (OS/MFT, OS/MVT, OS/VSl,
and OS/VS2). For ease of reading, these are
collectively referred to as "operating system"
in this manual unless some function is peculiar
to one of the operating systems.

t.

Fifth Edition (September 1974)
This edition is a reprint of SH20-0911-3 incorporating changes released in Technical Newsletters
SN20-2914 (dated December 4,1972) and SH20-9004 (dated February 28, 1973).
This edition documents the addition of 3270 Display stations (local and remote), HIDAM/HDAM
Distributed Free Space, a Test Driver Program (DFSDDLTO), and a Log Print and Formatting
Dump Program to the capabilities of IMS/360 Version 2. Maintenance corrections have also
been added to the manual.
This edition applies to Version 2, Modification Level 3, of the program product Information Management
System/360 (5734-XX6) and to all subsequent versions and modifications until otherwise indicated in
new editions or technical newsletters.
Changes are continually made to the information herein. Therefore, before using this publication,
consult the latest IBM System/360 and System/370 Bibliography, GA22-6822, and the technical
newsletters that amend that bibliography.
Copies of this and other IBM publications can be obtained through IBM branch offices.
A form has been provided at the back of this publication for readers' comments. If this form has
been removed, address comments to: IBM Corporation, Department J04, 1501 California Avenue,
Palo Alto, California 94304. Comments become the property of IBM.
© Copyright International Business Machines Corporation, 1971, 1972

.....

Chapter 1. Introduction • • • • • • • • • • • • • • • • • •

1. 1

Chapter 2. System Distribution, Handling, and Maintenance.
System Distribution •
• • • •
Data Base System • • • • • • • •
• • • ~ • • • • •
Nine-Track Tape • • • • • • •
Seven-Track Tape. • • • • •
Data Base - Data Communication System.
Nine-Track Tape • • • •
Seven-Track Tape. • • •
Interactive Query Facility (IQF)
Nine-Track Tape •
Seven-Track Tape.
System Handling • • • • • • •
System Maintenance. •

2.1
2.1

Chapter 3. IMS/360 System Definition ••
IMS/360 System Structuring Considerations.
Defining the IMS/360 System • • • • • • •
IMS/360 System Definition Macro-Instructions •
Data Base ~ Data Language/I • • • • • • • •
Data Communications • • • • • • • • • • ••
Interactive Query Facility (IQF) Features •
General System Specifications
IMSCTRL Macro
• • • •
IMSCTF Macro. • •
SPAREA Macro. • •
BUFPOOLS Macro.
MSGQUEUE Macro. •
IMSGEN Macro. • •
".
DATABASE Macro. •
APPLCTN Macro • •
TRANSACT Macro. •
LINEGRP Macro
LINE Macro. • • •
CTLUNIT Macro • •
TERMINAL Macro ••
NAME Macro ••
POOL Macro. • • •
SUBPOOL Macro • •
Maximum System Definition Macro-Instruction Occurrences.
Modifying System Definition Resource Limitations • • •
IMSMAX Macro • ~ • • • • • • • • • • • • • • • • •
System Definition Job Control Language Statements • • • • • •
IMS/360 System Data Sets • • • •.• •
IMS/360 System Data Set Allocation • • • • • •
Message Queue Space Allocation. • • • •• •
Message Queue Space Allocation - Secondary ••
SYSOUT Data Set Allocation. • • • .• • • • • • •
Direct out pu t Data Sets • • • • • • • • • • •
Use of SYSIN for Local Card Reader Lines • • •
3270 Format Services Library Allocation Guidelines.
System Definition Guide • • • • • • • • • • • • • • • • •
System Definition Job Steps • • •• • • • ••
• • • •
Preparation of the Operating System for IMS/360.
IMS/360 Supervisor Call Routines • • • • • • •
Inclusion of IMS/360 SVC Routines in Operating System/360
Nucleus ••
• • • ••
•••• • • •
OSAM Channel End Appendage and Type 4 SVC. • • • • • • • • •

..

..

i

2. 1
2.2

2.3
2.3
2.4
2.5
2.5

2.6
2.6
2.6
2.10
3.1
3. 1
3~2

3.3
3.4
3.4
3.4
3.5

3.10
3. 13
3. 14
3.15
3. 17
3.19

3.23
3.24
3.26
3.30
3.35

3.38
3.40
3.51
3.55
3.55

3.56
3.57
3.59
3.66

3.66
3.68
3.69
3.72

3.72
3.72
3.73
3.73
3.75

3-.75
3.83
3.83
3.83

3.85

7770-3 Channel/Abnormal End Appendage and Type 4 SVC •
IMS and ~MSRDR Procedures. ~ • • • • • • • • • •
Concatenating IMS2.RESLIB to SYS1.LINKLIB • • • •
Privileged Program Name List Modification.
Program Properties Table Modification in OS/VS1.
DFSILNKO to SYS 1. LINKLIB • • • •
Operating System Link Pack Modules • • • • •
Operating System Resident Routines • • • •
System Definition Stage 1 Output Warnings. • • •
•
•
it
System Definition • • •
System Procedures. • • • • • • •
Procedure Library. • • • • • • •
Executing Jobs Using Procedures from IMS2.PROCLIB • • • • • •
Member Name. • • • •
ACBGEN. • •
DBBBATCH.
DBDGEN. •
DLIBATCH.
FMTINIT • • • • •
FMTUTL. •
IMS • • • • • • •
IMSBATCH.
IMSCOBGO.
IMSCOBOL. • • • •
IMSMSG. • • • • •
IMSPLI. • •
IMSPLIGO.
IMSRDR • •
IMSilTnnn •.
..
MFDBDUMP • •
MFDBLOAD.
PSBGEN. •
SECURITY. •
IQFUT • • • • • •
IQFFC • • • • • •
IQFIU •
CBLTDLI • • • • •
PLITDLI •
System Definition Error Conditions • •
System Definition Examples • • •
Data Base - Data-Communication Example • •
Batch Data Base Example. • • • • • • •

'. .

.

3.86
3.86
3.86
3.87
3.88
3.88
3.89
3.89
3.90
3.91
3.96
3.96
3.98
3.98
3.99
3.99
3. 100
3.101
3. 103
3.104
3.106
3.108
3. 109
3.109
3. 111
3. 112
3.113
3.113
3.113
3.114
3.114
3.115
3.116
3~ 117
3.118
3. 119
3.119
3. 119
3.120
3. 121
3.204

Chapter 4. IMS/360 Security Maintenance Program. • • • • •
Security Maintenance • • • • • •
Password Maintenance • • • • •
Terminal Security Maintenance.
Control and Data Statements • •
Control and Data Statement Combinations. •
Description of SMP output. • • • • • •
Security Maintenance Program Execution • • •
Security Maintenance Example • • • • • • • • • • •

. ... .

4.1
4. 1
4.1
4.2
4.2
4.4
4.6
4.6
4.11

Chapter 5. User Modifications and Extensions to the Control
Program • • • • • • • • • • • • •
Message Editing Capabilities • •
Basic IMS/360 Edit Functions •
Message Format Service Editing •
Transaction Code (Input) Edits •
Example of Transaction Code (Input) Edit •
Message switching (Input) Edit • • • •
Example of Message switching Edit. • • • • •
Physical Terminal (Output) Edits • • •
Example of Physical Terminal-~dit. •
• • • •
•• • •
User Edit Routine Inclusion During System Definition •

5. 1
5. 1
5. 1
5.2
5.2
5.5
5.11
5. 12
5.32
5.33
5.53

ii

I

(
\.,

1030 Edit Routine. • • • • • • • • • • • • • • • • •
1030 Edit Routine Inclusion During System Definition • • • • •
Sample 1030 Edit Routine - EDIT1030 • • • • • • •
IMS/360 1030 Test Installation Environment.
Card Formats • • • • • • • •
Data Input • • • • • • • • • •
Sample Edit Routine Flowchart • •
Sample Edit Routine Program Listing.
7770-3 Signon Exit Routine • • • • • •
,
7770-3 Signon Exit Routine Inclusion During System Definition.
7770-3 Signon Exit Routine Program Listing • • • •
7770-3 Input Edit Routine. • • • • • • • • • • • •
7770-3 User Input Edit Routine Inclusion During System
Definition • • • • • • • • • • • • • • • • • • •
7770-3 Supplied Input Edit Routine Program Listing
7770-3 output Edit Routine • • • • • • • • • • • •
7770-3 Output Edit Routine Inclusion During System Definition.
7770-3 output Edit Routine Program Listing • • • •
•• • •
7770-3 User Output Translate Table Sample Listing.
• •••
7770-3 User output Translate Table • • • • •
7770-3 User Output Translate Table Inclusion •
IMS/360' Data Base Buffer Pool • • •
HDAM Randomizing Modules • • • • •
Randomizing Module Interfaces. •
HDAM Randomizing Module Examples
Modulo or Division Method Example • •
Binary Halving Method Example. •
Hashing Method Example • • •. • •
Data Base Log Tape Record Format •
2972/2980 Input Edit Routine • •

5.53
5.55
'5.55
5.55
5.56
5.56
5.57
5.61
5.64
5.66
5.66
5.85

Chapter 6. IMS/360 Sample Problem • •
Description of Sample Problem. • •
Creating Sampl~ problem Environment. •
Copying IMS/360 Distribution Libraries •
Perform1.ng an IMS/360 System Definition. •
• • • • • •
Performing a Data Base Description Generation (DBDGEN)
Performing a Program Specification Block Generation (PSBGEN)
Moving Sample Problem Programs and Control Blocks • • • • • •
Execution of the Application Control Blocks Utility Program.
Executing an IMS/360 Data Base Load in a Batch Environment •
Printing the Sample Data Base in a Batch Environment •
Initializing IMS/360 in an Online Environment • • • • • • • •
Executing Online Applications from User Terminals • • •

6.1
6. 1
6.7
6.7
6.8
6.12
6.12
6.12
6.14
6.14
6.14
6. 15
6.15

..

Appendix A. DL/I Test Program (DFSDDLTO) • • • • • •
Appendix B. File Select and Formatting Print Program •

5.87
5.87
5.91
5.93
5.93
5.96
5.97
5.97
5.97
5.100
5.102
5.104
5.104
5.117
5. 119
5.122
5.123

A. 1

B. 1

Index. • • •

I. 1

iii

£~!ER

1.

INTRODUCTION

The System programming Reference Manual is one of a set of manuals
associated with the operation of the IB~ Information Management
System/360 (IMS/360). The accompanying illustration shows the logical
relationships among the manuals in the set.
This manual provides system programming personnel with installation
considerations and details for generation (definition) of an IMS/360
system for the user's data processing environment. The folloving
functions are included:
• System Distribution, Handling, and

~aintenance

• System Definition (IMS/360 System Generation)
• Security Maintenance
• User Modifications and Extensions to the Control Program
• IMS/360 Sample Problem
Other manuals in the set are:
IMS/360 GENERAL INFORMATION MANUAL (GH20-0765)
This manual describes the basic concepts and facilities of the
IMS/360. This is the first or overview level of documentation in
support of the Program Product.
SYSTEM/APPLICATION DESIGN GUIDE (SH20-0910)
This manual is a guide for the application analyst or system analyst.
Its contents assist in the design of an IMS/360 system as well as the
design of the application programs which operate under IMS/360. The
System Programmer will want to be familiar with the information in
this manual.
APPLICATION PROGRAAMING REFERENCE MANUAL (SH20-0912)
This manual is a reference manual for an application programmer.
It provides information about the coding techniques necessary to
implement a designed application under the IMS/360 control system.
~he System Programmer may want to be acquainted with the information
in this manual.

1.1

DIRECTORY

•
T

GENERAL
INFORNATION

I

"
SYSTEM/
APPLICATION
DESIGN

.......

+

+"

SYSTEM
PROGRAMMING
REFERENCE

"
SYSTEM
MANUAL

APPLICATION
PROGRAMMING
REFERENCE

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

...
.__--11
.....

OPERATOR I S
REFERENCE

,,,

.....

Z

0

H

MESSAGES
& CODES
REFERENCE

E-1

::>

u

rLJ

~

~

UTILITIES
"---I::~

IMS/360 relationship of manuals
1.2

RE~"ERENCE

~
tJ)

~

::t:

p..

UTILITIES REFERENCE MANUAL (SH20-091S)
IMS/360 system utility programs, their operation, and purpose are
described in this manual. It tells how to execute these utilities
under the operating system. The IMS/360 utilities described are:
• DBD Generation
• PSB Generation
• ACB Generation
• Data Base Reorganization and Recovery
• System Log Analysis (statistics)
• Message Format/Language utility
The System Programmer will need this manual as a reference volume.

OPERATOR'S REFERENCE MANUAL (SH20-0913)
The Operator's manual was prepared to provide the information
associated with operating IMS/360 once the system has been established
and running. The System Programmer may also want this manual for
reference.
MESSAGES AND CODES REFERENCE MANUAL (SH20-0914)
This manual lists and explains appropriate responses to,the
completion codes, status codes, and messages produced by all the IMSsupplied components of the IMS/360 system.
SYSTEM MANUAL
The program logic of IMS/360 is explained in this manual.
consists of four volumes, as follows:

It

Volume I (LY20-0629) is the text and includes a description of each
module comprising the IMS/360 program.
Flowcharts of the modules are contained in Volume II (LY20-0630).
Volume III (LYBO-0631) contains the listings of the IMS/360 Data
Base System, furnished as microfiche.
Volume IV (LYBO-0632) contains the listings of the IMS/360 Data
Communications System, furnished as microfiche.
The System Programmer will want these volumes for reference.

1. 3

~YSTE~

DISTRIBUTION

IKS/360 Version 2 is available in two configurations:
1.

Data Base System

2.

Data Base - Data Communication System

The Data Base System provides batch processing only.
The Data Base
- Data Communication System provides message processing, batch-message
processinq, and batch processing. If batch-only processing is. desired,
the user may order the Data Base. System alone. If message, batchmessage, and/or batch processing is desireQ, the user may order the
Data Base System and the Data Communication Feature. The Data Base
- Data Communication System is created by a marriage of the Data Base
System modules and the Data Communication Feature modules.
The distribution of IMS/360 is made on unlabeled, nine-track, 800bpi or 1600-bpi magnetic tape, or unlabeled, seven track, 800-bpi
magnetic tape. The seven-track tape distribution requires the Data
Conversion Feature. The nine-track tape distribution is recommended,
because two nine-track tapes are required fo~ the I~S/360 Data Base
- Data Communication System. All IftS/360 distribution data sets are
unloaded copies of direct access partitioned data sets. They have
been moved to tape using the IBM operating system IEHMOVE Utility
program.
DATA BASE SYSTEM
The Data Base system distribution is composed of one tape.
basic distribution tape includes three data sets. These are:

This

• I8S/360 Data Base Macro-Definition Library (IftS.DBGENLIB)
•

I~S/360

Data Base Load Module Library

(IKS.DBLOA~

• I8S/360 Data Base Source Module Library (IftS.DBSOURCE)
When the I8S/360 Data Base System user receives the I8S/360 Data
Base System distribution tape, the IEHPIOVE program:should be employed
to copy and rename these data sets to direct access storage (Figure
1). The following job control language statements ~nd utility control
cards should assist in the copy execution. While preallocation of
data s~ts is not recommended, the DCB attributes of the IMS2.GENLIB
and IKS2.LOAD data sets must correspond to those of SYS1.MACLIB and
SYS1.LINKLIB respectively. This may require an additiona~ move/copy
(disk to disk) after copying from tape to disk.
Those parameters which are underlined are user-specifiable (for
exampl.e,' 2314 rather than 2311). The REGION parameter is required
only for Operating System/360 ftVT execution. Generic name 2400-4 is
nine track at 800 bpi with DCB=(DEN=21; generic name 2400-2 is seven
track with data conversion at 800 bpi with DCB=(DEN=2).

2. 1

IEHMOVE
(COpy &
RENAME)

Figure 1.

IEHMOVE to direct access storage (Data Base System)

/ICOPY

/1

/ /SYSPRINT .
//SYSUT 1
/ITAPE1
II

/1

//DISK1
/IDISK2
IISYSIN

JOB
EXEC
DD
DD
DD

~~~,!!~,MSGLEVEL=l

PGM=IEHMOVE,REGION=100K
SYSOUT=A
UNIT=~111,DISP=OLD,VOLUME=SER=1111!1

UNIT=(240Q=!"DEFER},DISP=OLD,
VOLUME=SER=~!CH,DCB=(LRECL=80,

DD
DD
DD
COpy

RECFM=FB,BLKSIZE=800,DEN=2) ,LABEL=(,NL)
UNIT=ld11,DISP=OLD,VOLUME=SER=ILIB01
UNIT=1311,DISP=OLD,VOLUME=SER=ILI]02

*PDS=IMS.DBGENLIB,

X
X
X

FROM=l400=~=(2£R!~H,1),
TO=1~11=ILIBQ1,FROMDD=TA~1,

COpy

X
X

RENAME=IMS2.GENLIB
PDS=IMS. DBLOAD, FROM=2400-4= (2CRT£1!, 2),
TO=2311=I1llQl,FROMDD=TA~1.,

:X
.X

RENAME=IMS2.LOAD
COpy

PDS=IMS.DBSO(JRCE,FROM=2400=~=

TO=2311=I1~02,FROMDD=TAPE1,

RENAME=IMS2.DBSOURCE

1*

2.2

(SeRTCH,3) ,X
X

//COPY2

II

I/SYSPRINT
IISYSUTl
I/TAPEl

1/
II
II
IIDISKl
I/DISK2
I/SYSIN

JOB
EXEC
DD
DD
DD

84~,NAME,MSGLEVEL=1

PGM=IEHMOVE,REGION=100K
SYSOUT=A
UNIT=lJ11,DISP=OLD,VOLUME=SER=1!111!
. UNIT=(240Q-2"DEFER),DISP=OLD,
LABEL= (, NL) ,
VOLUME=SER=~£~1£n,DCB=(LRECL=80,

DD
DD
DD
COPY
COpy
COpy

X

X
X

RECFM=FB,BLKSIZE=800,DEN=2,TRTCH=C)
UNIT=1311,DISP=OLD,VOLUME=SER=ILIBOl
UNIT=1J11,DISP=OLD,VOLUME=SER=ILIB02

*

PDS=IMS.DBGENLIB,TO=111l=IBILQ1,
FROM=~400=~=(li£B!£li,1) ,FROMDD=TAP]l,
RENAME=IMS2.GENLIB

X

PDS=IMS.DBLOAD,TO=2311=ILI~Q1,

x

FROM=2400-2=(~CRI£~,2) ,FROMDD=~l,

X

RENAME=IMS2.LOAD
PDS=IMS.DBSOURCE,TO=ll11=I1l]Ql, ,
FROM=2400=l=(2£B!£~,3) ,FROMDD=TAPE1,
RENAME=IMS2.DBSOURCE

X

x
X

/*

DATA BASE - DATA COMMUNICATION SYSTEM
The Data Base - Data Communication System is created by merging
the data sets in the Data Base system distribution with the data sets
in the Data Communication Feature. This is accomplished through the
IEHMOVE program.
The basic Data Communication Feature distribution
tape includes three data sets. These are:
• IMS/360 Data Communication Feature Macro-Definition Library
(I MS. DCGE NLIB)
• IMS/360 Data Communication Feature Load Module Library (IMS.DCLOAD)
• IMS/360 Data Communication Feature Source Module Library
(IMS. DCSOURCE)
When the IMS/360 Data Base - Data Communication system user receives
the IMS/360 Data Base System and Data Communication Feature distribution
tape, the IEHMOVE program should be used to copy and rename these data
sets to direct access storage (Figures 1 and 2). The job control
language statements and utility control cards (in Figures 1 and 2)
should assist in the copy execution. While preallocation of data sets
is not recommended, the DCB attributes of the IMS2.GENLIB and IMS2.LOAD
data sets must correspond to those of SYS1.MACLIB and SYS1.LINKLIB
respectively. This may require an additional move/copy (disk to disk)
after copying from tape to disk.

2.3

IEHMOVE
(COpy & RENAME)

Figure 2.

IICOPY
II

IISYSPRINT
IISYSUTl
I/TAPEl

II
II

IIDISKl
IIDISK2
IISYSIN

IEH~OVE

JOB
EXEC
DD
DD
DD

to direct access storage (DB/DC System)

~!~,NA~,MSGLEVEL=l
PG~=IEH~OVE,REGION=100K

SYSOUT=A
UNIT=~111,DISP=OLD,VOLUME=SER=111111

UNIT=(240Q=!.,DEFER),DISP=OLD,
VOLUME=SER=~!~n,DCB=(LRECL=80,

DD
DD
DD
COpy

RECFM=FB,BLKSIZE=800.DEN=2),LABEL=(,NL)
UNIT=2 3 11,DISP=OLD,VOLUME=S.ER=ILIB.Q.1
UNIT=~3".DISP=OLD,VOLUME=SER=ILIB02

*PDS=IKS.DCGENLIB,
FROM=~-4= C.~CRTC!!, 1),
TO=2311=ILI~Q1,FRO~DD=TAPE1;

COpy

X
X

RENAME=IKS2.GENLIB
PDS=IMS. DCLOA'D,FROM=1400=!= (,2CRTCH, 2) ,
TO=2311=!1IB01,FRO~DD=!A~1,

X
X
X
X
X

RENAME=IMS2.LOAD
COpy

PDS=I~S.DCSOURCE,FROM=2400-4=(SCRTCH,3),X

TO=2311=ILIB02,FROMDD=I!~1,

RENAME=IMS2.DCSOURCE

1*

2.4

X

IICOPY2
II

IISYSPRINT
IISYSUTl
IITAPEl

II
II
II

IIDISKl
I/DISK2
IISYSIN

JOB
EXEC
DD
DD
DD

84~,NAKE,MSGLEVEL=1

PGK=IEHKOVE,REGION=100K
SYSOUT=A
UNIT=~311,DISP=OLD,VOLUKE=SER=111111

UNlT=(2400-2"DEPER),DlSP=OLD,
LABEL= (, NL) ,
VOLUKE=SER=~~I£n,DCB={LRECL=80,

x
X
X

'RECPM=PB.BLKSIZE=800,DEN=2,TRTCH=C)
DD
DD
DD
COpy
COpy

UNIT=~311,DISP=OLD,VOLUKE=SER=ILIBOl

UNIT=~311,DlSP=OLD,VOLUME=SER=ILlB02

*

PDS=lKS.DCGENLIB,TO=2311=IBlL01,
FROK=2400-1=(SCRTCn,1) ,PROKDD=TA£~l,
RENAME=IKS2.GENLIB
PDS=IKS.DCLOAD,TO=2311=IlI~Q1,
PROK=1400-1=(~n,2) ,FROKDD=TAPE1,

RENAKE=lKS2.LOAD
COpy

PDS=lMS.DCSOURCE,TO=2311=ILI~Q1,
FROK=1400-2=(~CRI£n,3) ,FROKDD=TAPE1

X
X

x
X

x
X

RENAME=IKS2.DCSOURCE

1*
Those parameters which are underlined are user-specifiable (for
example, 2314 rather than 2311). The REGION parameter is required
only for OS/KVT or IVS2 execution. Generic name 2400-4 is nine track
at 800 bpi with DCB={DEN=2); 2400-2 is seven track with data conversion
at 800 bpi with DCB={DEN=2).
INTERACTIVE QUERY FACILITY (IQF)
The IQF/IMS system is created by merging the data sets in the Data
Communication system distribution with the data sets in the
IQP feature. This is accomplished through the lEHMOVE program.
Bas~/Data

The IQF/IMS System distribution tape includes the following three
data sets:
•
•
•

lQP/IMS Macro-Definition Library (IQF.GENLlB)
IQF/IHS Load Module Library (IQP.LOAD)
lQP/IHS Source Mddule Library (lQF.SOURCE)

When the lKS/360 user receives his lQP feature distribution tape,
the operating system utility program IEHMOVE should be employed to
copy and rename these data sets to direct access storage (Figure 2).
The following job control language statements and utility control cards
should assist in the copy execution. while preallocation of data sets
is not recommended, the DCB attributes of the IQF.GENLlB and IQF.LOAD
data se,ts must correspond to those of SYS 1. KACLlB and SYS1. LINKLIB
respectively. This may require an additional move/copy (disk to disk)
after copying from tape to disk.

2.5

Nine-Track Tape

IICOPY
II

JOB
EXEC
IISYSPRINT DD
DD
IISYSUTl
DD
IITAPEl

II
II

I/DISK1
/IDISK2
IISYSIN

i~

IQF
848,NA~,MSGLEVEL=1

PGM=IEHMOVE,REGION=100K
SYSOUT=A
UNIT=~3ll,DISP=OLD,VOLUME=SER=11111!

UNIT=(2400=!"DEFER) ,DISP=OLD,

X

VOLUME=SER=~~,DCB=(LRECL=80,

X

RECFM=FB,BLKSIZE=800,DEN=2),LABEL=(,NL)
DD
DD
DD
COpy
COpy
COpy

UNIT=2311,DISP=OLD,VOLUME=SER=!11~Q1
UNIT=l311,DISP=OLD,VOLUME=SER=ILI~02

*PDS=IQF.GENLIB,
FROM=l400-4=(~~H,1)

,
TO=2311=ILIB01,FROMDD=!!R!1,RENAME=IMS2.GENL1B

X

PDS=IQF~LOAD,FROM=240Q-4=(~~RT£n,2),

X

TO=llll=ILIB01,FROMDD=TAPE1,RENA11E=IMS2.LOAD
PDS=IQF.SOURCE,FROM=1400-!!=(SCRTCH,3),

X

TO=2311=I1IBOl,FROMDD=TAp~,RENA11E=IQF.SOURCE

1*
Seven=Tt:s.£k lape for !2!

IICOPY
II

JOB
EXEC
IISYSPRINT DD
DD
IISYSUTl
DD
IITAPEl

II
II
IIDISK1
IIDISK2
IISYSIN

DD
DD
DD
COpy

848,NAME,MSGLEVEL=1
PGM=IEHMOVE,REGION-l00K
SYSOUT=A
UNIT=l111,DISP=OLD,VOLUME=SER=111111
UNIT=(2400-2"DEFER),DISP=OLD,
VOLUME=SER=gR!£.H,DCB=(LRECL=80,
RECFM=FB,BLKSIZE=800,DEN=2),LABEL-(,NL)
UNIT=l311,DISP=OLD,VOLUME=SER=ILI~Ql
UNIT-1111,DISP=OLD,VOLUME=SER=Il1~Ql

*PDS=IQF.GENL!B,
FROM=1!!~=(2£BI£H,1),

COpy
COpy

X
X

X

2311=ILIB01,FROMDD=TA~1,RENAME=IMS2.GENLIB
PDS-IQF.LOAD,FROM=~!!QQ~2=(SCRTCH,2),
X

TO

TO=Zlll=I1IBQ1,FROMDD=TAPE1,RENAME=I11S2.LOAD
PDS=IQF.SOURCE,FROM=~!!~=(SCRTCH,3),
X
TO=l111=ILIBQl,FROMDD=TAP!1,RENAME=IQF.SOURCE

1*
Those parameters whice are underlined are
example, 2314 rather than 2311). The REGION
only for MVT execution. Generic Name 2400-4
with DCB=(DEN=2); 2400-2 is seven track with
bpi with DCB=(DEN=2).

user-specifiable (for
parameter is required
is nine track 'at 800 bpi
data conversion at 800

Once the I11S/360 libraries have been copied from the distribution
tape to direct access storage, the user is able to begin to tailor
I11S/360 to his data processing environment. The tailoring of 1MS/360
to a particular user's data processing environment is accomplished
with the 111S/360 system definition macro-instructions which are
contained within IMS2.GENLIB. Because the I11S/360 system executes
with a collection of control blocks, which describe the user's data
processing environment, system definition is required. These control
blocks, which describe application programs, data bases, communication
lines and terminals, and other 1MS/360 resources, are constructed by
the system definition process.

2.6

The IMS/360 user must prepare a control card input deck for IMS/360
system definition. The control card types and formats are described
later in this manual.
Once the control card deck has been prepared,
it is appended to a package of job control language for the macroinstruction assembly of system definition. System definition is
required if either an online message processing and batch processing
(combined Data Communication - Data Base) or a batch-only processing
(Data Base System) system is desired (Figure 3).
If the user has an existing IMS/360 system which is not to be altered
except for the inclusion of the Interactive Query Facility feature
(IQF), an online system definition is required as shown in Figure 3
and described in the discussion of the IMSCTRL macro-instruction in
Chapter 3 of this manual. The IQF user must prepare a control card
input deck (macro-instructions) to specify the data bases accessible
to IQF as well as the transaction codes to invoke a query. These
statements must be added to the decks previously used to perform the
system definition. See Chapter 3 of this manual.
If the user is installing IMS/360 for the first time, the macroinstructions to define data bases" and transaction codes for IQFcan
be incorporated in the initial system definition.

2.1

SYSTEM
DEFINITION
INPUT

IMS2.RESLIB
(USER EDIT
ROUTINES)

SYSTEM
DEFINITION
EXECUTION

Figure 3.

2.8

System definition handling

SYSLIB

The output from IMS/360 system definition may include:
• Generation and placement of IMS/360 control program control blocks
into the IKS2.RESLIB library
• Generation of the IKS/360 control program nucleus into the
IMS2.RESLIB library, with the optional inclusion of user message
edit routines
• Generation and placement into the IMS2.RESLIB library of the Data
Language/! batch processing nucleus
• The linkage edit of three user supervisor calls (SVCs), one of
which is used for interregion communication, one for online system
operation, and one for OSAM multivolume execution. These are
placed in the IMS2.RESLIB library. The user can specify the desired
SVC numbers. The OSAft SVC modules must bG link edited into the
SYS1.SVCLIB data set. The other two SVC modules must be link
edited with the OS nucleus.
• The naming and creation of the OSAM channel-end appendage module
in the IMS2.RESLIB library. The user can specify the module name
and must link edit the module to SYS1.SVCLIB.

2.9

• The moving of, procedures to a user procedure library or
SYS1.PROCLIB. These procedures are used for data base desc~iption
(DBD) and program specification block (PSB) generation, ACB
generation and maintenance, IMS/360 execution, message region
execution, batch region execution, etc.
• The naming and creation of the 1110-3 channel/abnormal end appendage
module in the IMS2.RESLIB library if the system contains 1770-3
lines. The user can specify the module name and must link edit
the module to SYS1.SVCLIB.
.
• The link edit of an additional load of the Type 4 SVC to the
IMS2.RESLIB library if the system contains 7710-3 lines. The
module must be link edited into SYS1.SVCLIB with the OS AM SVC
modules.
Once IMS/360 system definition has been performed, a Type 1 SVC
for interregion communication and one Type 2 SVC routine must be link
edited with the operating system nucleus. The OSAM Type 4 SVC routines
must be link edited into SYS1.SVCLIB.
The IMS/360 user must h~ve provided space for 6ne Type 1 user SVC
routine, one Type 2 user SVC routine, and one Type 4 user SVC routine
in his operating system system generation.
If the system definition
is for batch Data Base System execution only, the Type 4 user SVC is
all that is required.
This SVC is used by OSAM.
The procedure for
relink-editing the operating system nucleus with the user SVC routines
is specified in chapter 3 of this manual.
Once system definition, the SVC-operating system nucleus link-edit,
and the OSAM SVC link-edit to SYS1.SVCLIB are performed, the user must
allocate direct access space for the DBD, PSB, ACB, and application
program libraries. In addition, if online processing is desired, space
should be allocated for message queue, conversation scratchpad, and
log restart data sets.
All these data sets must be cataloged. In
addition, the operating system privileged name table monule in
SYS1.LINKLIB must be modified to incluude the name DFSRRCOO and the
procedures IMS and IMSRDR must be moved to SYS1.PROCLIB. This allows
for START and STOP IMS commands which initiate and terminate the IMS/360
online control region to be executed.
Chapter 3 of this manual
describes the execution of these functions.
Finally, the user is ready to create DBDs, PSBs, ACBs, and
application programs.
Before any message processing may be performed,
the required data bases must be created in the batch region environment.

Permanent modifications and corrections to problems encountered
with the IMS/360 system are provided with complete library replacements
through distribution of new modification levels of all IMS/360
libraries. These "mod-level" distributions are made on a periodic
basis.
Between releases of modification levels of IMS/360, users receive
corrections to the system on PTF (program Temporary Fix) tapes.
These
PTF tapes are automatically distributed to licensed users. They are
distributed based on the number of problems discovered and fixed since
either the most recent modification of the program product or of the
PTF tape. The PTF tape contains symbolic updates for the IMS2.DBSOURCE,
IMS2.DCSOURCE, and IMS2.GENLIB libraries. It also contains replacement
load modules for the IMS2.LOAD library.
These load modules correspond
to the SOURCE library updates.

2. 10

Between the releases of PTF tapes, fixes for problems reported by
users are distributed in two ways: (1) The user who reports the problem
receives a response letter describing the source symbolic updates
necessary to correct the problem.
(2) A summary of the problem and
its solution are entered into an IBM internal information system through
which Field Engineering representatives can acquire problem summaries
and solutions for all users.
The solutions to individual problems provided between PTF tapes
and modificat~n levels are source symbolic updates. If the updates
are for the IMS2.DBSOURCE or the IMS2.DCSOURCE library, the user is
instructed to perform a "temporary" update, assemble, and link edit
the object module into either IMS2.LOAD or IMS2.RESLIB.
If the symbolic
change affects IMS2.GENLIB, it may be necessary to perform a new IMS/360
system definition. If this is so, the instructions accompanying the
change will specify that a new system definition is necessary.
Typically, individual fixes only require assembly of updated source
members and reprocessing of the affected IMS/360 load modules to
incorporate the new load modules created during the assembly process.
For users of the Interactive Query Facility (IQF), permanent
modifications and corrections to problems encountered with IQF are
provided from time to time with complete library replacements through
a mod-level distribution of all IQF libraries. Whenever possible,
IQF mod-level distributions will be coincident with IMS/360 mod-level
distributions.
(This does not mean, however, that the number of the
mod-level will always match; for example, IQF Modification Level 3
could be the same as IMS/360 Modification Level 2, etc.)
Between releases of modification levels of IQF, users receive
corrections to the system on PTF (Program-Temporary Fix) tapes.
These
PTF tapes are automatically distributed to licensed users. They are
distributed based on the number of problems discovered and fixed since
either the most recent modification of the program product or of the
PTF tape. The PTF tape contains symbolic updates for the IQF.SOURCE
and IQF.GENLIB libraries. It also contains replacement load modules
for the IMS2.LOAD library. These load modules correspond to the SOURCE
library updates.
Between the releases of PTF tapes, fixes for problems reported by
IQF users are distributed in the same manner as described for IMS/360
in the preceding discussion.
The solutions to individual problems provided between PTF tapes
and modification levels are source symbolic updates. If the updates
are for the IQF.SOURCE library, the user is instructed to perform a
"temporary" update, assemble, and link edit the object module into
either IMS2.LOAD or IMS2.RESLIB.
If the symbolic change affects
IQF.GENLIB, it may be necessary to perform a new IMS/360 system
definition. If this is so, the instructions accompanying the change
will specify that a new system definition is necessary. Typically,
individual fixes only require assembly of updated source members and
reprocessing of the affected IQF load modules to incorporate the new
load modules created during the assembly process.
For user changes such as the addition or deletion of transaction
codes or data bases, a system definition for a CTLBLKS type of
generation is required.
(See discussion of IMSCTRL macro-instruction
in Chapter 3 of this manual.)

2.11

(

,Through system definition a user structures IMS/360 to serve his
data processing environment. This structuring includes a definition
of communication line groups, lines, physical terminals, logical
terminals, pools, and subpools. Pools and subpools are I~S/360
resources associated with switched communication lines. System
definition also includes the definition of transactions, application
programs, data bases, and various operating system interfaces. The
subject of system definition is discussed in detail in this chapter.
Security maintenance is a supplementary process associated ,with
system definition. Through use of the security maintenance utility
a user defines the terminal and password security characteristics of
a defined IMS/360 system. The subject of security maintenance is
discussed in detail in Chapter q of this manual.
IMS/36Q

~YS~

STRUCTURING £Q!2IDERATION2

Before structuring the 'IMS/360 system, the user must consider the
requirements and capabilities of IMS/360 in relation to his own
requirements for the most expeditious operating environment.
Consideration must be given to such things as the amount of main and
secondary storage to be dedicated to IMS/360, the number of application
programs to be run, and how many of these programs are to be run'
concurrently. A determination must be made of the transaction codes
which are going to initiate the various application message processing
programs and how many transaction codes are necessary. Each transaction
code is assigned a class identifier, and each message processing region
is assigned up to four class identifiers. These identifiers then
determine which transactions are scheduled into which region. Region
class assignments can be made according to application program size,
response requirements, or other variables. The user must decide which
transaction codes are to be of the response-type and which of the
nonresponse-type. Decisions must be made concerning how many
transaction codes cause data base updates, and how many are restricted
to entry from a particular terminal. consideration must also be given
to how many communication lines and terminals of each type are to
operate with the IMS/360 system.
In supplying answers to these questions, the user should consider
the possible impact of his decisions on the operating capability of
, the system and the efficiency of its operation. The I~S/360
system/Applicati~n Design Guide (SH20-0910) provides design information
for evaluation of the various system capabilities and requirements.
IMS/360 allows the user to immediately process or batch online
transactions. The user would be wise to consider whether some of the
transaction codes he' chooses can be queued up and can wait for
processing on an as-required basis (batched). Time accounting is an
example of the type which may fall into this category. Attendance
reporting is another. Transaction codes of these types can be readily
batched, because there is no necessity for an immediate-type response.
"Response-type" and "nonresponse-type" messages shou1d not be
confused with true "message types". Whenever a response-type message
is entered from a terminal, the user should always be aware that his
terminal locks and he must ~it !QI a response before he can enter
another message from that terminal. The nonresponse-type message is
entered and competes with other messages, on a priority basis, for
3. 1

system resources, but the terminal and communication line are always
available for further message input until response.
.
The processing limit count feature of IMS/360 allows consideration
of the number of messages which a reusable application program can
process in one load of the program.
The scheduling limit count feature, in conjunction with the
scheduling limit priority, does not say that a program will never be
processed if there are always higher priority messages. It gQ~§ say
that, if the particular message is not called for execution by the
time a certain number of messages have been received and queued, the
scheduling priority is changed to a higher one. .If there are messages
with higher selection priorities in the system, of course, this message
may still have to wait.
The total IMS/360 system must be considered by the user when
structuring his system. The user must consider what the various types
of transactions mean to the system, what the responses are, how many
there are, etc.
Again, the user must consider the number of programs he wishes to
be operating concurrently; how large these programs are and how many
transaction codes they are operating against; and with how many
terminals. These considerations affect the amount of core ~ich is
dedicated to IMS/360. Each application program, and the system, at
any given time, may require additional amounts of'space. Even the
number of terminals concurrently being transmitted to has an effect
upon the amount of core buffer space which should be allocated.
For example, assume a message is entered from a terminal. The
application program for processing this message may send messages to
each of six different terminals. This means that IMS/360 may require
core buffer space for one line of the message output to each terminal.
If the system is executing three application programs concurrently
and trying to transmit to those six terminals, it would require
allocation for 3 (number of application programs) times 6 (number of
terminals) buffers in addition to the core required to hold the three
application programs (in message processing regions).
The I/O units on which a system user chooses to place his message
queues have special significance on system operations. ·If disk instead
of drum is chosen, as an example, there is an effect on the number
of messages run and consequently how many are processed. Since drum
access is faster than disk, a greater number of messages can come in
and go out of the system faster than when disk storage is used. Of.
course, there is more storage available on disk, but this is part of
the tradeoff analysis to be made while structuring the system.
A number of factors must be considered when the Interactive Query
Facility (IQF) feature is incorporated into the IMS/360 environment.
These factors include the installation's requirements for security
and privacy, the need to limit data base processing intent, the
requirements for multiple processing of queries, etc. TheIM~36Q
version 2 ~Y§~ AEElication and Qgsign Guid~ (SH20-0910) provides
further information on structuring the system environment to include
IQF.
DEFINING

~HE

IMS/360 SYSTEM

So far this discussion has centered on what the.IM5/360 system user
should consider in structuring the environment in which IMS/360 will
execute~
Now to be considered is how the IMS/360 system is tailored

3.2

to the user's needs.
This is accomplished with the IMS/360 system
definition macro-instructions.
The IMS/360 requirements have been mentioned, and it is obvious
that there must be modifications to make IMS/360 compatible with the
operating system. These are accomplished through the use of three
supervisor calls (SVCs) which must be made a part of the operating
system. This is a simple matter for the system programmer to
accomplish.
.
The System/360 used for the IMS/360 two-stage definition process
must be at least a Model 40, with the "F" assembler and at least 128K
storage. If an OS/VS1 or VS/2 system is used, the generation can be
accomplished in a virtual region. The IMS/360 system definition must
be run using the same version of the operating system under which the
generated system will execute.
The one Type 1 interregion communication
SVC and the one Type 2 control SVC must be placed by the system user
into (link-edited with) the Operating System nucleus of the system
under which IMS/360 execution is to occur.
lri addition, the OSAM SVC
modules for OPEN/CLOSE and the OSAM channel-end appendage must be moved
to SYS1.SVCLIB (MFT, MVT, and VS1) or SYS1.LPALIB (VS2). If the
complete Data Base - Data Communication System is to be executed, the
OS privileged name table module in .SYS1.LINKLIB must be modified to
include the name DFSRRCOO.
This allows the online control program to
be initiated through a START IMS commarid.
(Use of the. START, STOP,
and MODIFY commands is explained in the Executing IMS/360 section of
Chapter 4 of the IM~Ll2Q Qpersto~§ Refe~gn£g ~~nual, SH20-0913.) If
the OS/VS1 or OS/VS2 system is to be used for either DB/DC or DB only,
the privileged name table must have the name DFSRRCOO added to the
list.
All IMS/360 system data sets must be cataloged.
If the complete
Data Base/Data Communication System is to: be executed and contains
7770-3 lines, the 7770-3 channel/abnormal end appendage and DEB builder
(load 12 of the OSAM Type 4 SVC) modules must be link edited into
SYS1.SVCLIB (MFT, MVT, and VS1) or SYS1.LPALIB (VS2).
The char~cter set used by IMS/360 is the Assembler Langu~ge character
set as defined in the SRL !~~ 2.Y§te!llL160 Q}?grating ~Y§te!!!: !§§gmble~
Languagg (GC28-6514).
IMS/360 SYSTEM DEFINITION MACRO-INSTRUCTIONS
The function of the IMS/360 system definition utility is to provide
a. user the capability of creating an IMS/360 system tailored to a
specific environment.
System definition is a two-stage utility written primarily in the
operating system assembler macro language.
The first stage of the
utility processes the user's specifications and checks them for
validity, consistency, and compatibility. If the checks are successful
(that is, if no errors are encountered), an operating system job stream
(Stage II) is produced.
When this job stream is executed, it produces
an executable IMS/360 system, capable of operating in the environment
and with the capabilities described in Stage 2 of IMS/360 system
defini tion.

)

The user's input·to the IMS/360 system definition utility contains
four categories of information:
(1) Data Base (Data Language/I) and
Application, (2) Data Communications, (3) Interactive Query Facility
(IQF), and (4) General System environment specifications.
If a complete
Data Base - Data Communication System is not desired, only the input
describing the general system environment is required~
This batch-only
Data Base System allows Data Language/I data base operation in a batch
processing region environment.

3.3

The following paragraphs describe the information required in each
category:

This category of system- definition includes information about
application programs, transaction codes, and data bases used in the
combined data communication - data base environment.
Only application
programs used for message processing or batch processing with data
bases concurrently ~sed for message processing need be defined.
Only
data bases used by application programs for message processing need
be defined.
Application programs, as well as information concerning their
operating characteristics, are defined and associated with the
transaction codes they are to process.
Data base specificatipns name all Data Language/I data bases to be
under control of the generated system and select logging and, control
blocks residency options.
Transaction codes must be defined. This includes transaction code
name and scheduling characteristics.
If a transaction is used for
terminal conversation, conversational scratchpad area (SPA)
specifications are required.
The SPA is maintained in main storage
or on disk as specified.

The system definition utility provides the specification of all
supported telecommunication devices.
This includes telecommunication
line group, line, terminal,-'and terminal component specifications.
Facility is also provided for incorporation of user-written modules
to edit input and output messages.
If terminal conversation capabilities are desired, the number -of
concurrent conversations to be allowed must be specified. The user
must also specify the number of conversational scratchpad areas (SPAs)
to be maintained by the system, a subset of which may be defined as
core resident.

Provided as an additive feature for IMS/360 users with the full
Data Base/Data Communication system, IQF operates in a mode similar
to a user's message processing application program.
At message
scheduling time, IQF is ,united with an input transaction (quer~ and
a data base for execution in a message processing region. The
association of transaction code, program and data base must be specified
at system definition.
This is accomplished through use of'the system
definition APPLCTN and TRANSACT macro~instructions described later in
this chapter.
One or more TRANSACT macro-instructions is required for
each logical data base (or group of logical data bases) to be queried
by a given transaction code. Each group of logical data bases
accessible_ to IQF through' a transaction code is described by a PSB
(Program Specification Block).
If the optional IQF Index (QINDEX) capability is employed, the user
must describe the data base(s) by the DATABASE macro-instruction, also
described later in this chapter. It is not necessary to define either
the IQF System Data Base or the IQF Phrase Data Base through use of
the DATABASE macro.
These data bases are automatically defined to IMS
at system definition time.

3.4

(

Qeneral System

~ecifications

The user supplies information determining the I~S/360 - operating
system interfaces such as svc numbers, appendage names, etc. as well
as:
• Library and message queue data sets
• Kessage processing region information, including size, number,
and class
• Number and size of single and multiple line buffers
• Size of DMB, PSB, data base buffer, and various teleprocessing
pools
• Job and SYSOUT class of the stage 2 job stream and number of JOB
cards produced by stage 2
The control blocks as well as the executable code modules included
in the generated system are only those necessary for execution. For
example, if no 1050 terminals are specified, neither 1050 control
blocks nor the modules for the 1050 are included in the user's system
residence library (IMS2.RESLIB). Only those modules which are not
part of the resident nucleus are moved or linked into IMS2.RESLIB.
Some IMS/360 system definition macro-instructions appear only once
in the Stage 1 input stream, while others may be used multiple times
in a hierarchical set arrangement to describe related user requirements.
Figure q lists which macro-instructions are required and which may
be used more than once.
The end of this chapter provides examples
of IMS/360 system definition.

3.5

,
i

Type of Definition

1 Macro
1 Instruction
1

,
,

1--------------

----------------------------------------------Data Base Only
(Batch) System
----------------------- ----------------------Data communication
Data Base System

1

IMSCTRL

Required 1

Required

1 2
1

IMSCTF

Op.tional

Optional

SPAREA

optional 1

N/A

BUFPOOLS

Required 1

N/A

MSGQUEUE

Required 1

N/A

IMSGEN

Required 1

Required 1

7

DATABASE

Required n

N/A

8

APPLCTN

R~quired

n

N/A

9

TRANSACT

Required n

N/A

10

LINEGRP

Required n

N/A

11

LINE

Required n

N/A

12

CTLUNIT

optional n

N/A

13

STATION

Optional n

N/A

14

TERMINAL

Required n

N/A

15

NAME

Required n

N/A

16

POOL

Optional n

N/A

17

SUB POOL

Optional n

N/A

1 3

1
1 4
1

1 5
1
1 6
1

*

*

N/A - Not Allowable

Figure 4.

Complete IMS/360 system definition macro-instruction

Three groups of macro-instructions form hierarchical sets which
are required for the description of user resources. One group (Figure
5) describes application programs and their related transaction codes.
The other two describe communication line groups, communication lines,
and assoc'iated physical and logical terminals (Figures 6 and 6A).
Not~:

3.6

All macro-instruction positional or keyword operand values which
are names must start with alphabetic characters. When defining
PSB names, logical terminal names, and transaction codes, care
should be taken in the use of keywords, synonyms, and null words
as defined in the IMS/~60 QE~~~~ Re!~n£g Manys!. Note
also that during control blocks or nucleus generation only the
IMSCTRL card statement need be changed.

Hierarchical set requirements are shown in the following:

r---------.-----Macro-Instruction

I Number Per set

Names application
program. Delimits
this set of macroinstructions.

APPLCTN

TRANSACT

Figure 5.

Purpose

n

Names transaction
codes which are to
be processed by
the above
application
program.

Application description macro-instruction set

3.7

Each application program described with an APPLCTN macro-instruction
should be used for message or batch-message processing.
Application
programs used only for batch processing are not to be described by
APPLCTN macro-instructions.

r-----------------.----------------------------------Macro-Instruction
I Number Per Setl
Purpose
LINEGRP

Names collection
of terminals with
like attributes.
Delimits this set
of macroinstructions.

LINE

n

Provides address
of line and
delimits terminals
on same line.

CTLUNIT

n

Provides terminal
control unit
address and
attributes.
Delimits terminals
on same control unit.

TERMINAL

n

Provides
terminal
delimits
terminal

NAME

n

Provides logical
terminal names.

Figure 6.

physical
data and
logical
name.

Communication terminal description macro-instruction set.
Note:
When the TERMINAL statement is used to describe a
switched physical terminal, nQ MAME state~gn! N~Y ~~
~§§Q£iatgg ~i!h i!.

(
\

3.8

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

,"acro-Instruction

Bumber Per Set

Purpose

POOL

n

Defines a pool of
switched terminals
and delimits pool
descriptions

SUB POOL

n

Describes a set of
logical terminals
and delimits subpools

NAME

n

Provides logical
terminal name

------------Figure 6A. switched communications terminal set
During the system definition process, all resources, except
communication lines and message-processing regions, are generated in
a 'started' mode; that is, a /START command is not required to make
the resource operational.

3.9

1~~~TR1 1f~~

TheIM5CTRL macro-instruction is used to describe the 'basic 1M5/360
centrol program options and the operating system environment under
which IHS/360 will operate. The IKSCTRL macro-instruction is always
r~quired.
For the batch Data Base System definition, the MAXIO and
HA1REG~ operands need not be specified.
This macro-instruction should
be the first statement ~n the system definition control card deck which
is input to system definition Stage 1 and can only occur once.

,r--------------------------------------------------------------,
,
,
I
I IMSCTRL
I
I
I
I

I
I
I
f SYSTEM=
I
t
I
I
I
,I
t
I
I
f [ ,MAXI0=number 1
I
t
I
f
I
J [,KAXREGN= (number~ size, job class,
msgclass) J
r
I
I
J
f
t
I
I [,Kes= (number[ ,number, ••• ]) ]
t
t
I
I
I
I [ , DESC=number 1
t
I
t
I
I [,KAXCLAS=numberJ
L________________________________________
_
I
J

,,

,
,

,

Noi~:

l
I
(

I
I

I
I
I

,
I

I
I

I

r

I

~

I

•

The only other macxo-instructions needed for a
batch Data Base System are the IMSCTP and IM5GEN
macro· instructions •

• Operand Pield:
SYSTEM=
specifies the OS programming system configuration and the type
of IM5/360system to be generated. The programming system
configuration under which 185/360 will operate may be
multiprogramming with a fixed number of tasks (MFT),
multiprogramming with a variable number of tasks (MVT),
multiprogramming with a fixed number of tasks in a virtual
system (V5/1), or multiprogramming with a variable number of
tasks in a virtual system (V5/2). The M65MP version of MVT
is specified as "H65MP". If programming system configuration
is not specified, the value "MVTn is assum-e'd.
The following values specify the type 1!5/360 generation to
be performed:

3.10

CTLBLKS -

Generates only a composite control block module
for use within an 185/360 nucleus in the 1MS/3£0
control program region. This function is useful
if an alternate set of 185/360 control blocks is
desired. The co.posite Control Blocks module
(DF51BLKx) resulting from this option must be 'link
edited vitban existing control program nucleus
(DFSCRUCx) •

NUCLEUS -

Generates a composite 1!5/360 nucleus for the I!S/360
control program region as veIl as a composite control
block module which is included in the generated

nucleus. This parameter is useful when generating
an alternate nucleus including new system features,
such as additional terminal support or conversational
support.
BATCH -

Moves required modules from the IMS/360 distribution
libraries to the user's libraries; generates system
procedures and a batch Data Base System. This value
must be specified if the user has not ordered the
IMS/360 Data Communication feature.

ON-LINE -

Moves required modules from the IMS/360 distribution
libraries to the user's libraries, generates system
procedures, and generates those modules comprising
the CTLBLKS and NUCLEUS options for a Data
Communication - Data Base System.

ALL -

Combines the BATCH and

ON~LINE

options.

MAXIO=
specifies the maximum number of terminal I/O requests, message
queue requests, and Data Language/I data base requests which
may be in process in the IMS/360 control program region at any
one time.
A recommended minimum number is the sum of the values
specified in the MAXREGN parameter and the number of
communication lines divided by 2.
The value should never be
less than the value specified in the MAXREGN parameter.
The
operand may be omitted, thus causing a value to be calculated
by the formula:
MAXIO =

((number-2f~!!!!!!Ynic~ tion

lines)

+ MAXREGN + 2)

2

MAXREGN=
specifies the ~xi~ number of regions or partitions which
IMS/360 is expected to support at anyone time. This value
includes batch message processing regions as veIl as message
processing regions. Default value is 3 (regions).
This operand
is also used to specify region size (default value is 52K) ,
region job class (default value is Class Al, and job messag~
class (default value is Class Al.
Note that region size (must
be expressed in terms of xXK) , region job class, and job message
class must conform to the operating system job control language
specifications. This operand is ignored for BATCH system
defini tions.
MCS=
specifies the routing code to be assigned to the IMS/360 system
console if multiple console support (MCS) has been included
in the operating system.
If omitted. the master system console
will be used.
DESC=
specifies the message descriptor code to be assigned to the
IMS/360 system console messages if MCS support has been included
in the OS generations.
If omitted, no descriptor will be
assigned.
See the WTO macro and Appendix C of Operating System Supervisor
and Data Management Macro SRL, Form No. GC28-6647, for a detailed
description of the above two operands. Parameters should be
3. 11

defined as required for the ROUTCDE and DESC keywords for the
WTO macro.
MAXCLAS=
specifies the maximum number of unique transaction code classes
which are to be supported by Message Class Scheduling. Any
transaction code class specified on either the APPLCTN or
TRANSACT macro statement must not exceed this value. Valid
specification of this operand is a decimal number from 1 to
255. Default value is 1.
Example of IMSCTRL macro-instruction operands when system option is
MVT r 50 communication lines and 3 message regions r message region job
~ass and msgclass are Ar and both an online and a batch system are
to be defined.
IMSCTRL SYSTEM=(MVTrALL) rMAXIO=27r MAXREGN= (3 r 52K)
The job class and msg class for all message regions are A.
region size of 52K is used.

A message

If system is MP65, an alternate online nucleus is to be built (normally
assuming a previous IMS/360 online system definition), and MAXREGN
class information is to be class Br the following operands would be
defined:
IMSCTRL SYSTEM= (M65MPr NUCLEUS) rMAXREGN=(3rrB,B)
~he

3.12

MAXIO value is calculated to 27.

l~~£!f

t-.agQ

The It-.SCTF .acro-instruction defines para.eter5 to the 1"5/360
control facility.

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

I

,
,,

I
,
I

I
I
,

,
,,
I

IrtSCTF

,

[ SVCNO= (t ype 1 r ty pe2 r type4)]

I

[ r APNDG= ([ osam suffix][, 7710 suffix]) ]
[,CPLOG=checkpoint log frequency]
[ , CORE= (minimull, maximum) ]

L-

--,
1
I

,
1
I

I
1
I
I

•

• Operand Field:
SVCNO=
specifies operating system SVC numbers reserv~d for use by the
generated IMS/360 system.
Entered values may range from 128
to 255 and must be mutually exclusive. Default value is 253
for Type 1, 254 for Type 2, and 255 for Type 4.
The Type 1
SVC is used for IMS/360 interregion communication.
The Type
2 SVC is used for exclusive control handling of 185/360
resources. The Type 4 5VC is used for OSAM. Independent of
the operands of the IMSCTRL macro, the user must specify values
for all 5VC numbers.
APNDG=
The first value specifies the OSAt-. channel-end appendage suffix
value used by the IMS/360 OSAM access method. The value may
range from A8 to Z9.
Default value is Z9.
The second operand
is the channel/abnormal end appendage suffix for the 7770-3
if 7770-3 lines are part of the generated system. The value
specified may range from A8 to Z9 and must not be the same as
the OSAM suffix. The default value is ZS.
The complete
appendage name{s) will be IGG019xx.
CFLOG=
specifies the number of 185/360 system log operations between
automatic IM5/360 checkpoints.
The permitted value ranges from
500 to 32767~ Default value is 1000.
CORE=
defines the amount of main storage available to the 1"5/360
control facility ENQ/DEQ routines via GETKAIN from subpoo1 252.
The first parameter states a minimum main storage availability;
the second states maximum main storage availability.
Values'
may range from 0 to 32K. The default values are 500 bytes
minimum and 1000 bytes maximum.
For a detailed calculation
of this value, the reader is referred to the !~[l~~Q
~§!~LA~~li£ati2D ]~§ign ~uig~ (SH20-0910).
Example of·IK5CTP macro-instructions, when Type 1 SVC is 241, Type
2 SVC is 254, and Type 4 SVC is 235, 05AK channel end appendage is
IGGO 19Z6, 7770 appendage is IGGO 19Z0, and CPLOG=2000, is th,e following:
IMSCTP

SVCNO=(241r2S4,235)rAPNDG=(Z6,ZO),CPLOG=2000

3. 13

The SPAREA macro-instruction defines the maximum number and maximum
size cf conversational scratchpad areas (SPAs) to be maintained by
the I~S/360 system. The total number of disk and main storage
scratchpads can not exceed 4000. When the user defines a conversational
transaction through the TRANSACT macro, the SPA for that trans~ction
will normally te ~maller than the maximum defined here. However, it
can never exceed ~he maximum sp.cified i~ this macro-instruction.
This macro-instruction ,should be omitted if no conversational
transactions are subsequently specified through TRANSACT macroinstructio~s.
A warning message is generated if transactions are
subsequently defined in this system definition using SPAs
(conversational transactions) and this macro-instruction is omitted.
r---~--------------------

t

I

,SPAREA

r

t
t
I

I

[CORE=

I [,D-ASD=

(number. size)]
(number, size} J

l

L-

,
~

t

I
I

•

-. Operand Field:
Co-RE=
specifies the number and size of the Ilain storage SPAs. If
this operand is oaitted, no main st~rage SPAs are maintained.
The number of main storage SPAs determines the maximulltnumber
of terminal conversations in which incore SPAs are used.
The
size of a main storage SPA can not' exceect 32167 bytes.
EASD=

specifies _the number and size of the disk-maintained SPA-s.
Thesize' of a single disk S,P! cannot exceed thetracr length
of the device on which. the SPA resides. One disk, SPA. must exist
for each concu;rrent conversation where data associated with
each conversation is, to be lIl'aintained on a dIsk SPA.
If the USer wishes toallov 20 concurrent conversations, with 5
maintained in main storage the maximum size of which is 200 bytes,
and with 15 maintained on dir-ect' access the maximum size of which is
1000 bytes, the following operands are appropriate:
SPAREA

CORE= (5,200}-,DASD= (15 6 1000)

If the Interactive Query Pacility (lOP) has been incorporatedi.nto
the user's system, the SPA forIOF should be large enough to hold the
maximumIOF query which .ay require a full file search; an additional
34 bytes are required for system 'usage. (See discussion of SPA for
the

3. 14

TRANS~CT macro~instruction.)

with the BUFPOOLS macro-instruction, the user specifies default
main storage buffer pool sizes for the online control program system
region. The sizes and options specified are used unless otherwise
expressly stated for that buffer or pool at online system control
program execution time through the PARM field.

BUFPOOLS

[PSB~

(size,
['Dl!B~ (size,
[ , DBASE=
[,GENERAL=
[ , FORMAT=

{RETAIN})
!1QSH

1

{ RETAIN})]
FL.!!~.H

size]
size]
size]

[,FRE= number]
[, COMM= size]
• Operand Field:
PSB=
specifies the size of the PSB control block pool. The functions
provided by the RETAIN and FLUSH parameters are no longer
required. They are retained only for compatibility with previous
user system definition source decks. Default value is 10000
(bytes).
Maximum allowable specification is 65535 bytes.
DMB=
specifies the size of the DMB control block pool. The functions
provided by the RETAIN and FLUSH parameters are no longer
required. They are retained only for compatibility with previous
user system definition source decks.
Default value is 10000
(bytes).
Maximum allowable specification is 65535 bytes.
DBASE=
specifies the size of the common data base buffer pool.
This
pool supplies buffers for all data bases used in the combined
data base - data communication environment in the online control
program system region.
Default size for DBASE is 10000 (bytes) ••
Maximum allowable specification is 65535 bytes.
GENERAL=
specifies the size of the general buffer pool area used
dynamically by the IMS/360 control program and its various
action modules for producing system messages in response to
communication activity.
Default size for GENERAL is 5000
(bytes).
GENERAL pool size must be large enough to accommodate
main storage SPAs, one disk SPA plus 2000.
Maximum allowable
specification is 65535 bytes.

3.15

FORMAT=
specifies the size of the message format block pool.
Minimum
specification is 2000 bytes; maximum specification is 16000000
bytes.
Default value is 10000 plus the number of lines requiring
format services times 1000 (10000+ (LINES*1000»
bytes.
This
keyword parameter is ignored if no unit types requiring format
services are included in the defined system.
FRE=
specifies the number of fetch request elements that are to be
used for loading message format blocks into the message format
block pool. The number specified must be in the range of 10
to 65535.
Default value is 10 plus the number of lines requiring
format services:
maximum default is 20.
COMM=
specifies any additional space to be added to the value
calculated for the communications line buffer pool. This size
defaults to 0 unless 3270 is included in the system. If 3270
is included, this size defaults to 1000 bytes plus 1000 bytes
for each 3270 line.
Maximum allowable specification is 65535
bytes.
The reader is referred to the IM~lQ~ System~lication Design Guide
(SH20-0910) for the details of calculation for the various buffer pooIsizes.
In addition to those buffer pools which the system user explicitly
defines, an additional buffer pool is created by IMS/360 system
definition for communication device line control operations. The
buffer requirements for each communication line, as defined by the
communication terminal type and model attached to that line, are used
in summation to define the communication line buffer pool size.
An example of the BUFPOOLS macro-instruction operands with a PSB pool
of 10,000 bytes and the FLUSH option, with a DMB pool of 10,000 bytes
and the RETAIN option, with a data base buffer pool of 20,000 bytes,
and a general pool of 2,000 bytes, is:
BUFPOOLS

3.16

PSB=10000,DMB=(10000,RETAIN),DBASE=20000,
GENERAL=2000

x

The MSGQUEUE macro-instruction defines the characteristics of the
three message queue data sets desired by the user.

MSGQUEUE

DSETS=

[

• RECLNG=

[. BUFFERS=

[. SHUTDlIN=

2301

2303
2311
2314
2305
3330

I

2301
2303
, 2311
2314
2305
3330

2301
2303
, 2311
2314
2305
3330

(1sl~~ 1} 'ls~~:2}) ]

( {n~r}

[,size3]

J

ln~~}J

• Operand Field:
DSETS=
specifies the device types on which the three message queue
data sets will reside (IMS2.QBLKS, IMS2.SHMG, and IMS2.LGMSG,
respectively).
If all three data sets will reside on the same
device type, only the first parameter need be specified.
RECLNG=
specifies the logical record lengths for the short and long
message queue data sets, respectively. The minimum value for
size1 and size2 is 192. Size2 must be equal to or greater than
size1. If either size1 or size2 is not specified, default
values of 192 and 576, respectively, will be assigned.
SIZE2 minus 48 is the maximum size allowed for segments processed
by the message format service facility.
BUFFERS=
specifies the number of buffers to allocate for message queue
management and the block size to be assigned for all three
message queue data sets.
If 'nbr' is not specified~ a default
value equal to four plus one-tenth the sum of the number of
logical terminal names plus the number of transaction codes
is used.
If size3 ~s not specified, it will be calculated by
the following formula.
If the defaults of size1 (192) and size2
(576) are used, then size3 will equal 576.
Maximum allowable
number specification is 255.

3. 17

SIZE3 = ((SIZE2 + SIZE1 - 1)/SIZE1)

*

((SIZE1 + 47) /48)

*

48

This calculation can leave null space at the end of the short
and long message blocks.
SHUTDWN=
specifies the number of records to be reserved in each data
set to allow the system to automatically shut down if the data
set becomes filled with unprocessed messages.
All sizes ,specified will be rounded up to a multiple of 4.
An example of the MSGQUEUE macro-instruction with all data sets on
2314 is:
MSGQUEUE

DSETS=(2314) ,BUFFERS=(9,1152) ,SHUTDWN=200

This example indicates that the default sizes for short and long
messages are adequate, but that two long message records should share
a block. with the number of buffers indicated, a message flow of 6
long messages and 11 short messages may be concurrently processed
against 23 destinations without requiring I/O operations against the
queue data sets.
(See Message Queue Space Allocation in Chapter 3.)

3.18

The IMSGEN macro-instruction is used to specify the data sets,
volumes, and I/O devices required for the definition process, the
system definition output options.
The IMSGEN macro-instruction must be the last macro-instruction in
the Stage 1 input stream. It must be followed immediately by an
assembler END statement.

r---------------IMSGEN

[ASH=

{~} ]

[ , ASMPRT=

{~~£:} ]

[.

,JOBCTL=* **
* SYSTEM ?
*
*
* ***** *
*

*

*
* * -NO
*
****
---------->** **
* *
****
NOTP

When Stage 2 is complete, system
definition creates.an IMS/360 nucleus
and establishes content in three
libraries (as maximum output),
IMS2.RESLIB, IMS2.MACLIB, and
IMS2.PROCLIB, on the preallocated
data sets specified on the generating
system.

Is the IMS/360 system that was first
generated a teleprocessing (online)
system? Yes, go to label TP. No,
go to label NOTP.

3.77

Label TP: If the system being
is to process message
processl.ng and/or batch message
processing programs, the message
queue data sets must be allocated
on the computer system under which
IMS/360 is to operate.
generat~d

TP

***************
. *
* PERFORM OS *
* -->* DATA SET *
* * ** ALLOC
(MSG *
***
QUE & LIBSt *
***************
**.
* *

~

Label NOTP: Perform PSB and DBD
data set allocation, whether
generated system is a message
processing and batch message
processing, or a batch processing
region system.

NOTP
V
***************
***
**PERFORM PSB &**
* *
** *-->*080
DATA SET *
* ALLOCATION
*
***
*
*

"**"'r"""
V

***************
:

CONNECT

:

Connect IMS2.RESLIB to system link
library using the LNKLSTOO member
of SYS1.PARMLIB.

* LNKLSTOO *
*
*
***************

I

.
V
***************
:0:
MOVF OSAM *
*CHAN END APP *
*s SVC MODULE *
TO
**
* SYSl.SVCLIB

*

··*·'·*r······

USER-APPL
*NO
***
* *>*" **
TP ONLINE
SYSTEM 7
* * *

*

*

*
* *:0:
**
*

*'

~.

t

*'

*YF.S*

*.

***

System definition creates OSAM
channel end appendage and Type 4
SVC modules and places these in
IMS2.RESLIB.
OSAM channel end
appendage and SVC modules must be
moved to SYS1.SVCLIB (MFT, MVT, and
VS1) or SYS1.LPALIB (VS2).
(Described later in this manual.)
If this is a generation for an OS/VS
system, the privileged name table
and program properties table must
be modified to include the name
DFSRRCOO.

Again, is this an online
(teleprocessing) system?
to label USER-APPLe
Go to next page

3.78

No, go

:,'t** *~; **~,*******

* LINK fDIT ***
* SVC'S TO
** NUCLEUS
OS
**
*~,* ******* Ct** **
~

Two of the user SVC load modules
created in Stage 2 of system
definition must be link-edited into
the OS nucleus prior to attempting
to execute IMS/360.

v
***************

**
*

**
"«
*
*

MODIFY
PRIVILEGED

*NAt-IE T ABL E -

*SYSl.LINKlIB

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

~'c*,*****

V

In order to initiate the IMS/360
online control program through a
START IMS command, the name DFSRRCOO
must be added to the OS privileged
name table (described later in this
chapter) •

********

*
HOVE
** IMS,IMSRDR
* PROCS TO
*SYSl.PROCLIB

***
**

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

V

**

* *
* *SECURITY *

IJSER-APPL

* ~'c>~, *** **
?
* **** *
'* *
*NU

f.1A I NTENI\NCE
R EC) 'D

::

The IMS and IMSRDR procedures must
be copied from IMS2.PROCLIB to
SYS1.PROCLIB for proper execution
of the START IMS command and the
/START REGION or /START MSG REGION
master terminal command.

* * *YES

1

Message region procedures which
are going to be specified in the
1ST ART REG Command must be added
to IMS2.PROCLIB.

Go to next page

3.19

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

*
*

CARD DECK OF
CTRL CARDS

*

*

set up control cards for input card
deck to the security maintenance
program.
(See the description of
control cards in Chapter 4 of this
manual. )

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

v
***************

Execute the security maintenance
program (SMP).

*
*
** MAlPI{OGI{AM
~TENANCE *
*
*
*
***.***t,,********
*RUN S ECUR lTV

V

*****t,,*********

*
*nUTPUT
OF SEC**
** MAINT
PGM - *
* CHANGES
IMSNUC
**
*********~,*****

The output of SMP is added to the
IMS2.RESLIB library

V

*****>:,* ..~* **>:,* **
*
*_._-----------*

*NP,ESTART

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

*.INlTIATE NEW
S F.CllR lTV PG

I

V

Go to next page

3.80

The result of the SMP does not
become effective until the next
normal restart (See Security
Maintenance Program (SMP), Chapter
4 of this manual, for more details.)

IQF SYS
If the Interactive Query Facility
(IQF) feature is to be included
in the IMS system, an additional
. process is required.

Set up IQF utility control card
deck as described in the IMS/360
Version 1 J!tilities Refe£m!£g Man!!2:.1
(SH20-0915) •

* CARD OECK OF

CONTROL CARDS.

*

*

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

Execute the IQF utility, Creating
the IQF Processor data bases.

V

*****Cl**********

** EXECUTE IQF **
*
UTILITY
*
*
** .
******************

Go to next page

3.81

Label USER-APPL: The user must
perform all the application
programming functions; that is,
load his application programs in
the libraries and the names in the
directories, etc •

I

USER-APPl
V
.................
•

•
•

•
..

USER
APPLICATION
PGM FUNCTIONS

••

.
•

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

•

The PSB and DBD data sets must be
loaded prior to executing IMS/360.
Any other IMS/360 oriented procedures
or data sets desired could also
be loaded at this time.

********:>;<******

*
*CREATE
& LOAD*'*
*' PSB,DBD,
*
*' OTHER SYS *'
*'
UBS
*
****1,,*,:<*>:'**** **'

V

***>:'***** ******

*'* LOAD
*' APPLICATION
*' SYSTEr1 DAT4
*'*'*' *** **>!:*
I3I\SES
***

t,::::,

*
**
**'

The application system data bases
must be loaded before execution
of IMS/360 can proceed.

",<

V

*'
**

***>!,***********
READY FOR

IMS/360

EXECUTION

*'**************'

3.82

*'*
*
Execute IMS/360 (nIPLn) per
instructions in Chapter 6 of the
IMS/360 OpersiQr's ~1.

The successful completion of system definition stage 2 has done the
following:
1.

2.

Placed the following modules in IMS2.RESLIB:
a.

The OSAM channel end appendage routine.

b.

The OSAM and other Type 4 SVC routines.

c.

The Type

d.

The Type 1 and 2 SVC interface routines.

e.

The region control module DFSRRCOO.

and 2 SVC routines.

Placed the cataloged procedures IMS and IMSRDR in IMS2.PROCLIB.

The IMS/360 system user must perform the following functions:
1.

Link edit the Type 1 and 2 SVC interface modules with his
operating system nucleus.

2.

Link edit the OSAM channel end appendage and SVC modules into
SYS1.SVCLIB (MFT, MVT, and VS1) or SYS1.LPALIB (VS2).

3.

Move the cataloged procedures IMS and IMSRDR to SYS1.PROCLIB.

4.

Concatenate IMS2.RESLIB with SYS1.LINKLIB by a change to
SYS1.PARMLIB.
The member name to be changed in SYS1.PARMLIB
is LNKLSTOO. See the ~§1gmLl2Q Q2g~ating ~stgN, ~ysteN
gIQgI£m~r's Guigg (GC28-6550).

5.

Change the operating system privileged name list in SYS1.LINKLIB
to include DFSRRCOO. The member name is IEEVLNKT. See the
~stgmL.J"§Q. Q2§~ii!lg ~ystgN, ~Q.Q, l1~gement g~.flf:~m

1.2.9:i£

ManY~l

(GY28-6660). This step must be performed for both the Data
Base/Data Communications System and the Data Base-only System
in an OS/VS environment.
6.

If the online system contains 7770-3 lines, link edit the 7770-3·
channel/abnormal end appendage and additional load of the Type
4 SVC into SYS1.SVCLIB (MFT, MVT, and VS1) or SYS1.LPALIB (VS2).

IMS/360 SUPERVISOR CALL ROUTINES
The IMS/360 system utilizes three supervisor call (SVC) routines.
One of these is used for interregion' communication. The second routine
~s used for IMS/360 online control program functions.
The third routine
is used by OSAM to create its multivolume data extent block (DEB).
All three routines must be specified during system definition for the
IMS/360 system even if only a batch-only Data Base system is being
generated. IMS/360 system definition creates these' routines with
user-defined SVC numbers. The next section of this chapter explains
how to perform the link edit.
INCLUSION OF IMS/360 SVC ROUTINES IN THE OPERATING SYSTEM NUCLEUS

)

Two user SVC routines must be added to the operating system nucleus
and one to SYS1.SVCLIB (MFT, MVT, and VS1) or SYS1.LPALIB (VS2) for
execution of the IMS/360 system. These routines are not required if
the batch Data Base System execution is used gz£lusi~glY. These SVC
routines are created by IMS/360 system definition from
macro-instructions. The SVC numbers to be used may be specified by
3.83

the IMS/360 system user.
The load modules which represent the SVC
routines are placed in IMS2.RESLIB by system definition.
Two SVC
routines are used by the IMS/360 .online system.
A Type 1 SVC is used
for interregion communications, and a Type 2 SVC is used for IMS/360
control functions.
The SVC routines used for OSAM are part of a Type
4 SVC.
The batch· system (data base) uses only the OSAM facility of
the Type 4 SVC.
When the IMS/360 user performs his operating system generation,
provision must be made for the later incorporation of the SVC routines.
The IMS/360 SVC routines need not and normally would not be incorporated
at operating system generation.
They may, however, be incorporated
at that time, if desired.
The following SVCTABLE macro~instruction
operands should be included in the stage I input to the as system
generation no matter when the SVC routines ·are incorporated.
(For OS)

SVCTABLE

SVC-nnn -T 1-S0, SVC-nnn·-T2- S6, S VC-nnn-T4-S6

(For VS1)

SVCTABLE

SVC-nnn-Dl-S0,SVC-nnn-E2-S6,SVC-nnn-E4-S6

(For VS2)

SVCTABLE

SVC.;.nnn-D 1, SVC-nnn-E2, SVC-nnn-E4

If the actual SVC routines are not incorporated during the operating
system system generation, three "dummy" load modules should be placed
in the RESMODS partitioned data set.
This should be done prior to
Stage II of operating system system generation. These modules are of
the format:
For SVC Types 1 and 2
IGCnnn CSECT
BR 14
END
where nnn is the unique SVC number.
number.

For Type 4 SVC
IGCOOnnn
CSECT
BR 14
END
This effectively "no-ops" the SVC

The alternate approach, which would cause inclusion of the actual
SVC routines during operating system system generation, requires
placement of the actual SVC modules into the partitioned data set
referred to by the RESMODS macro-instruction. This would require
IMS/360 system definition execution prior to stage I I of operating
system system generation. The RESMODS control card could then refer
to the IMS2.RESLIB data set for the incorporation of theSVC routines.
If the SVC routines are added after operating system generation,
the technique for the resident SVCs is to relink-edit the operating
system nucleus.
Basically, this involves replacing the "dummy" SVC
routines through the link-edit with the actual SVC routines.
The best
explanation for performing this link-edit is to:
1.

Start with JCL and control cards of link-edit step from Stage
II of os system generation.

2.

Provide an additional DD statement allocating the IMS2.RESLIB
data set to access the SVC modules.

3.

Provide an additional DD statement to allocate the SYS1.NUCLEUS
data set other than //SYSLMOD.

4.

Provide additional INCLUDE control cards for the two SVC routines
from IMS2.RESLIB immediately after the INSERT control cards of
the original link-edit.

5.

Replace the INCLUDE cards from the original operating system

3.84

nucleus link-edit with one INCLUDE card for the old operating
system nucleus (that is, the one without the SVC routines).
6.

Provide a NAME card for the new operating system nucleus (for
example, IEANUC02).

It may be good practice to consider the output 'from the link-edit
of the nucleus as another member in SYS1.NUCLEUS (for example,
IEANUC02). The OS QE§£s!Q£§ ~§nYsl explains how to IPL an alternate
operating system nucleus. If everything executes properly, then
IEANUC02 can be renamed IEANUC01.
OSAM CHANNEL END APPENDAGE AND TYPE 4 SVC
OSAM requires a channel end appendage module and Type 4 SVC modules
created as load modules during execution of IMS/360 system definition.
The modules are distributed on IMS2.LOAD and are renamed during system
definition.
The renamed modules are placed in IMS2.RESLIB.
It is the user's responsibility to link edit the created OSAM channel
end appendage module and Type 4 SVC modules from IMS2.RESLIB to
SYS1.SVCLIB (MFT, MVT,andVS1) or SYS1.LPALIB (VS2).
Type 4 SVC load modules and channel end appendage module to be
placed into SYS1.SVCLIB (MFT, MVT, and VS1) or SYS1.LPALIB (VS2).
IMSJ~1QAQ

DFSVC400

IGCOOnnn

Basic interface module

DFSVC410

IGC01nnn

system c6ntrol

DFSAOSAO

IGC04nnn

OSAM open/close EOV entry and
initialization

DFSAOSBO

IGC05nnn

OSAM open

DFSAOSCO

IGC06nnn

OSAM open/EOV

DFSAOSDO

IGC07nnn

OSAM open/close EOV final processing

DFSICSCO

IGC10nnn

Issue START and STOP commands

DFSVCIOO

IGCllnnn

Type 1 and 2 vector initialization

DFSVC440

IGC13nnn

VS

system initialization

where:
nnn
is the specified Type 4 SVC number converted to a signed decimal
number.
H!RNI!Q:,

If the low-order digit of the SVC number is a zero, the signed
integer value of zero is an unprintable character. For example,
assuming a specified Type 4 SVC value of 240, the Type 4 SVC
module names would appear on listings as IGC0024b (where
lowercase b indicates a blank) •

3.85

DFSIOCEO

channel-end appendage

IGG019XX

where:

xx
is the specified channel end appendage number
These modules must be link edited with the RENT, REFR attributes.
7770-3 CHANNEL/ABNORMAL END APPENDAGE AND TYPE 4 SVC
The 7770-3 device support requires a channel/abnormal end appendage
module and a load of the Type 4 OSAM SVC modules created as load modules
during execution of the IMS/360 system definition.
The modules are
distributed on IMS2.LO~D and are renamed during system definition.
The renamed modules are placed in IMS2.RESLIB.
It is the user's responsibility to link edit the created 7770-3
modules from IMS2~RESLIB to SYS1.SVCLIB (MFT, MVT, and VS1) or
SYS1.LPALIB (VS2).
The appendage and Type 4 SVC load to be placed into SYS1.SVCLIB
(MFT, MVT, and VS1) or SYS1. LPALIB (VS2) are:·

111 S 2.LO'!Q

IMS2.RESLIB

DFSAAP10

IGG019xx

appendage module

DFSASV10

IGC12nnn

Type 4 load

where:
xx
is the appendage suffix specified on the IMSCTF macro
nnn
is the Type 4 SVC number converted to a signed decimal
number from the value specified in th'e IMSCTF macro.
These modules must be link edited with the 'RENT,REFR' attributes.
IMS AND IMSRDR PROCEDURES
The IMS and IMSRDR procedures are used to
control program region and message regions.
IMS2.PROCLIB by system definition.
The user
to SYS1.PROCLIB Frior to IMS/360 execution.
are supplied later in this chapter.

initiate the IMS/360
These are placed into
must copy these procedures
Copies of these procedures

CONCATENATING IMS2.RESLIB TO SYS1.LINKLIB
Since the IMS/360 control program region operates as a system task,
the modules which comprise it must exist in SYS1.LINKLIB.· It is the
user's responsibility to concatenate IMS2.RESLIB with SYS1.LINKLIB.
This is performed 'by modification of the member in SYS1.PARMLIB named
LNKLSTOO.
(This is also required for the DL/I batch region.) An example
of this member is provided below in its modified format.

3.86

1RKL21QQ
SYS1.LINKLIB,IMS2.RESLIB

The IMS control program operates as an OS system task and therefore
must be started from the OS operator's console with an OS START command.
The IMS/360 procedure named IMS is invoked by the 'START IMS' command.
This procedure, which must exist in SYS1.PROCLIB, initiates the IMS
control program as a. system task. The first IMS/360 module to gain
control is the region controller, DFSRRCOO.
The name of this module
must be included in the os privileged program name list.
To accomplish
this, os module IEEVLNKT must be reassembled to include the name
DFSRRCOO.
After reassembly the new CSECT must be link edited and
renamed depending upon the type of OS system, MFT, MVT, VS1, or VS2
being used.
It may be necessary to include the IEEVLNKT CSECT as part
of several modules. The following examples show the JCL required for
a reassembly and link edit of the privileged program name list for
Release 20 of os. These examples are intended as guidelines, and
although they are accurate for Release 20.1 of OS, future changes of
OS may require modifications to the JCL examples. Information about
the privileged program name list can be found in the OS Job Management
PLMs, Forms GY2S-6660 for MVT and GY27-712S for MFT.
To verify that
all modules have been correctly changed, the OS system generation stage
I output should be checked to see where the name list is used.
Example I.

Assembly and Linkedit of the privilleg~d name
table (CSECT IEEVLNKT) into SYS1.LINKLIB.
This
applies to MVT, MFT, VS1, and VS2.

1,IMS,MSGLEVEL=1
//IEEVLNKT JOB
ASMFCL
//STEP1
EXEC
//ASM.SYSIN DD
IEEVLNKT
CSECT
REFTBL
EQU
DC
CLStIEFIRC'
DC
CLS'IEFSDOSO'
*DC
CLS'IEEVMNT2'
ASSUMED PREVIOUS
DC
CLS'IEFVRRC'
* CONTENT OF
DC
CLS'IEFVMA'
* PRIVILEGED
DC
CLS'IEFIIC'
PROGRAM
DC
·CLS'IKJEFF40'
NAME LIST
CLS'IKJFATRC'
*.
DC
DC
CLS'IHLGTF'
*
DC
CLS'HHLGTF'
DC
CLS'AHLGTF'
*
DC
CLS'HASP'
CLS'DFSRRCOO'
IMS REGION CONTROLLER ADDED
DC
REFEND
DC
X'OO'
PROGRAMS FOR STARTABLE SYSTEM TASKS WHICH
TABLE 2
REFTBL2
EQU
*
ARE NOT TO HAVE DATA SET INTEGRITY
DC
CLS'IEFSDOSO'
REFEND2
DC
X'OO'
END

*

*

***

*

*
*

*

***

*

/*

//LKED.SYSLMOD DD DSN=SYS1.LINKLIB(IEEVLNKT) ,DISP=SHR

/*

3.87

Example II.

Link Edit JCL for a MVT System

//MVTLINK JOB
1,IMS,MSGLEVEL=1
//LNK
EXEC LKED,PARM.LKED='NCAL,LIST,XREF,LET'
//LKED.SYSLMODDD DSN=SYS1.LINKLIB,DISP=SHR
//LKED.SYSIN DD
INCLUDE SYSLMOD(IEEVLNKT)
INCLUDE SYSLMOD(IEEVRCTL)
ENRTY
IEEVRCTL
NAME
IEEVRCTL(R)

*

/*
Example III.

Link Edit JCL For an MFT System

//E
//LKED.CI505
/ /LKED. S YSLliOD
//LKED.SYSIN
INCLUDE
INCLUDE
ENTRY
ALIAS
NAME
INCLUDE
INCLUDE
INCLUDE
ENTRY
NAME

EXEC
DD
DD
DD

LKED,PARM.LKED='NCAL,LIST,XREF,LET'
DSN=SYS1.CI505,VOL=SER=DL1B02,UNIT=2314,DISP=SHR
DSN=SYS1.LINKLIB,DISP=OLD

*

SYSLMOD(IEEVLNKT)
NEW NAME LIST
CI505(IEEVRJCL,IEEPSN)
IEEVRJCL
IEEPSN
IEEVRJCL (R)
CI505 (IEEVSMSG)
CI505(IEEVACTL,IEEVSMBA)
SYSLMOD(IEEVLNKT)
NEW NAME LIST CSECT
IEEVACTL
IEEVACTL (R)

/*
Example IV.

Link Edit JCL For An OS/VS1 System

EXEC
LKED,PARM.LKED='NCAL,LIST,XREF,LET'
//E
//LKED.SYSLMOD DD
DSN=SYS1.LINKLIB,DISP=SHR
DD
/ /LKED. S YSIN
INCLUDE
SYSLMOD (IEEVLNKT)
NEW NAME LIST CSECT
INCLUDE
SYSLMOD (IEEVRCTL)
ALIAS
IEEVIC
ENTRY
IEEVRCTL.
NAME
IEEVRCTL (R)
INCLUDE
SYSLMOD (IEEVLNKT)
NEW NAME LIST CSECT
INCLUDE
SYSLMOD (IEFIRC)
ENTRY
IEFIRC
NAME
IEFIRC (R)

*

Example V.

Link Edit JCL for a VS2 System

//VS2LINK JOB 1,IMS,MSGLEVEL=1
//LK
EXEC LKED,PARM.LKED='NCAL,LIST,XREF,LET'
//LKED.LINK DD DSN=SYS1.LINKLIB,DISP=SHR
//LKED.SYSLMOD DD DSN=SYS1.LPALIB,DISP=SHR
//LKED.SYSIN DD *
INCLUDE LINK (IEEVLNKT)
NAME IEEVLNKT (R)

/*

3.88

PROGRAM PROPERTIES TABLE MODIFICATION IN OS/VS1
When executing in an OS/VS1 system, IMS/360 requires the authorized
subsystem status. To accomplish this, OS/VS1 CSECT IEFSDPPT must be
reassembled to include name DFSRRCOO.
This CSECT is comprised of four
sections, each with its own entry point.
The £ourth section, with an
entry point named AUTHSEC, should be changed to include the name
DFSRRCOO. This CSECT should then be re-linked into module IEFSD161.
The OS/VS1 SYSGEN should be consulted to determine -the correct method
for replacing this module.
PROGRAM PROPERTIES TABLE IN OS/VS2
No changes aLe required to the program properties table in OS/VS2.
DFSILNKO TO SYS1.LINKLIB
Prior to using any of the generated IMS/360 assembler or compiler
procedures, the user must either link edit module DFSILNKO from
IMS2.RESLIB to SYS1.LINKLIB or must have concatenated IMS2.RESLIB to
SYS1.LINKLIB through the LINKLSTOO member of SYS1.PARMLIB. This module
permits the use of SHR disposition on SYSLMOD data sets in the link
steps of procedures.
This module invokes the linkage editor under the
alias name LINKEDIT.

3.88.1

In an operating environment where there are several batch regions
or a combination of online and batch regions, it may be advantageous
to place some of the frequently used IMS and BISAM modules in the
operating system RAM area (MFT or VS1) or link pack area (MVT or VS2).
The following is a list of loaded modules which are reentrant and are
recommended candidates for the RAM or link pack' area.
The modules to
be included must previously exist in either the SYS1.SVCLIB or the
SYS1.LINKLIB or its concatenations.
(IMS2.RESLIB should be concatenated
with SYS1.LINKLIB.) To determine additional' candidates for the link
pack area, refer to the list of IMS modules with their linkage editor
attributes provided in Chapter 1'of the IMSL36Q ~stgm tl~ng~l.
From SYS1.LINKLIB

DFSDLAOO
DFSDLROO
DFSDBHOO
DFSDLEOO
DFSDLDOO
DFSAOS50
DFSAOS20
DFSAOS30
DFSDISMO
DFSDHDSO
DFSARWOO
DFSFCPYO

Data Language/I Analyzer
Data Language/I Retrieve
Data Base Buffer Handler
Data Language/I Insert
Data Language/I Delete/Replace
OSAM Common Subroutines
OSAM Read/Write
OSAM CHECK
Data Language/I ISAM Simulator
Data Language/I Space Management
1110'-3 Read/Write Module
Interregion Copy Routine

From SYS1.SVCLIB

IGG019Z9
IGG019GX
IGG019G9
IGG019JV
IGG019J7
IGG019Z8
IGCOONNN
IGC04NNN
IGC05NNN
IGC06NNN
IGC07NNN

OSAM Channel End Appendage
BISAM Asynchronous Read/Write
BISAM Appendage with write Check
BISAM Non-privileged Macro-Time
Read/Write
BISAM Privileged Macro-Time Read/Write
1170-3 Channel/Abnormal End Appendage
OSAM Basic Interface Module (DFSVC400)
OSAM Open/Close/EOV (DFSAOSAO)
OSAM Open (DFSAOSBO)
OSAM Open/EOV (DFSAOSCO)
OSAM Open/Close/EOV (DFSAOSDO)

The last two characters of module IGG019Z9 (OSAM channel end
appendage) and module IGG019Z8 (7770-3 channel/abnormal end appendage)
are determined by the IMS/360 user during system definition.

.3.89

The procedure ,for placing loaded modules into the RAM or link pack
area, and building the required parameter library lists, varies with
the type of system, MFT, MVT, VS1, or VS2.
This information can be
found in the Resident Routine Options section in the following SRLs:
MFT'Guide (GC27-6939)
MVT Guide (GC28-6720)
VS1 Planning and Use Guide (GC24-5090)
VS2 Planning and Use Guide (GC28-0600)

The following machine listing is an output example
from stage 1 of IMS/360 system definition.
This listing informs the IMS/360 system user of actions which
must be performed prior to IMS/360 system execution.

3.90

•
•
•
•
•

33
34

35
36
37

38
39
40
41
42
43
44

45
46
47

48
49

50
51
52
53
54
55
56
57

58
59
60
61
b2
b~

b4

6'5

06
67

68
69

70
71
72

Batch and Teleprocessing
1030 Line Groups
LTERM Edit
Terminal Conversation Feature (Disk SPAs)
Cataloged Procedures

., ....................•.................................

.,.*
.,.*
••

..

•••• *••••••••••••••••••• *••••••••••••••••••••••••••••• *.
••• *
SUCCESSFUL IHS/360 SYSTEH DEFINITION
••

.,

FOR ALL FUNCTIONS.

.,

.,
••
.,
.,

BEFOKE STAGE II EXECUTION

••

---

.,

THE FOLLOWING IHS/360 DATA SETS HUST BE ALLOCATED AND CATALOGED BEFORE ATTEMPTING TO EXECUTE
THE GENERATED STAGE II JOB STREAM:
IMS2.LUAD
IHS2.GENLIB IMS2.RESLIB
IMS2.MACLIB
IMS2.0RJDSET USER.POS.LIBRARY

.,
.,
.,

OTHER REQUIRED DATA SETS MUST BE ALLOCATED
AND CATALOGED PRIOR TO EXECUTION OF THE IMS/360
CONTROL PRUGRAM.

.,
.,
.,

SPECIFI~D USER SUPPLIED MODULES HUST RESIDE
IN USER.PDS.LIBRARY REFORE EXECUTION OF THE
CUNTROL BLOCK LINK EDIT STEP OF STAGE II.

.,
.,
.,
.,

1(130 LINE GROUPS REQUIRE LOAD ·MEMBER NAMED
(OFS10300) AND MUST RESIDE·IN USER.PDS.LIBRARY
BEFORE EXECUTION OF THE CONTROL BLOCK LINK EDIT
STEP OF STAGE II.

.,
.,
.,
.,

RE~UEST~D LTER~ EDIT FUNCTION REQUIRES LOAD
MEMBER NAMED (DFSCNTEO) RESIDE IN USER.PDS.LIBRARY
BEFORE EXECUTION OF THE CONTROL BLOCK LINK EDIT
STEP OF STAGE II.

.,
.,
*,

.,

.,
.,.,

.,
.,
.,
.,

.,
.,
.,

BEFORE SYSTEM EXECUTION
THE FOLLOWING FUNCTIONS MUST 8E COMPLETED
B~FURE SUCCESSFUL EXECUTIUN OF THE IMS/360 CONTROL
PRUGRAM CAN BE ACHIEVED:

*,

THE REQUIRED TYPE 4 SVC AND APPENDAGE ~OOULES
MUST BE PLACED IN SYS1.SVCLlB.(MFT,MVT AND VS1) OR SYS1.LPALIB(VS2).

.,
.,
.,

TH~

*,

RESIDENT SVC INTERFACE MODULES MUST BE LI~K
EDITED WITH THE OS/3bO NUCLEUS. THESE MODULES ARE
PLACED IN IMS2.RESLIB BY THE STAGE II JOB STREAH,
AND ARE NAMED IGC253 AND IGC254.

.,
.,
.,

THE LOAD MEMdER DFSRRCOQ MUST RE ADDEO TO THE
'PRIVILI~FD PROGRAM NAME LIST' MEMRER (IF~VLNKT)
IN SYSl.LINKLIB.

85

.,

36
87

.,

THE ('IS7..':ESLlB DATASET MUST 8E CUNCAlENATEI) WInt
SYS1.LINKLI3 ny ADDING THE NAME 'IHS2.RESLIn' TO
TH~ LNKLSTOO MEMBER OF SYS1.PARMLlB'.

13
14
75

16
71
78

79

80
81
82
~n

R4

88
89
9(1
91

92
93
94
95

96
q7

98
99

100

.,

.,

.,

~,

~,

.,
.,

THE TERMINAL CONVERSATION FEATURE REQUIRFS THF.
IMS2.SPA DATA SET BE .LLOCATED AND CATALOGED.
WITH SPACE SPECIFICAf~ON - SPACE=(150,22).

.,
.,
.,
.,

REFER TO THE IHS/360 SYSTEM PROGRAMMING
REFERENCE MANUAL FOR INSTRUCTIONS ANO I\SSI STANCE IN PERFORMING THESE AND OTHER REQUIRED
FUNCTIONS REFORE SYSTEM EXECUTION.

.,
.,..
*,..
*.,

....

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

3.91

~11

DEFINITION -

~US

QENE.Bll1Ql!

• Terminal Conversation Feature (Disk SPAs)

104
105
106
107
108

109
110
111
112
113
114
115
116

117
118
119
120
121

122
123
124
125
126

127
128
129

130
131
132
133
134
135
136
137
138

139

140
141
142
143
144
145
146
147

148
149
15.0
151

152
153
154
155
156

15'1
158

3~92

*.*****************.**.*****************o*~****.***~****

*,***** •• ***********************************************
*.**
**
"",**
SUCCESSFIIL IMS/36C SYSTEM DEFINITION
**
*.**
fOR NUCLEUS FUNCTION.
**
*.
*.
. BEFORE SfAGF II EXECUTION

*•.

*.
*.
0.

*.
*.
0.

*f

THE FOLLO~ING IMS/3bO DATA SETS MUST 8E ALLOCATED ANO CATALOGED BEFORE ATTEMPTING TO EXECUTE
TriE GENERATED S fAGE 11 JOB STREAM:
IMS2.LGAD
IMS2.GENLIB IMS2.RESLIB
IMS2.MACLIB IMS2.PROCLI8
IMS2~OR.IDSET
USER.PDS.LIBRARY

*,
*,
*,

OTHER REQUIRED DATA SETS MUST BE ALLOCATED
CATALOGED PRIOR TO EXECUTION OF THE IMS/360
CONTROL PROGRAM.

0,

SPECIFIED USER SUPPLIED MODULES MUST. RESIDE
IN USER.PDS.LI8RARY BEFORE EXECUTION OF THE
CONTRUL BLOCK LINK EDIT STEP OF STAGE 1[.

.,
*r

*,
*,
*,

*,

*,
0,
*,
*,
*.
*,

.,

*,
*,
*,
*.
0,

••
*,

*,

*.,

*,

*,
*,
*,
*,

*,
*,

.,

ANU

BEFORE SYSTEM EXECUTION
THE FOLLOWING FUNCTIONS MUST BE COMPLETED
BEFORE SUCCESSFUL EXECUTION OF THE IMS/~60 CONTROL
PROGRAM CAN BE ACHIEVED:'
NUCLEUS GENERATION ASSUMES SPECIFIED OS/360 SVC,
SYSl.LINKLI8, AND SYS1.PARMLIB INTERFACES ARE
CONS[ST6NT WITH SPECIFIED VALUES.
THE TERMINAL CONVERSATION FEATURE REQU[RES THE
IMS2.SPA DATA SET BE ~LlOCATED AND CATALOGED,
WITH SPACE SPECIFICATION - SPACE=(200,39J.
THE CATALOGEn PROCEDURE 'IMS' MUST BE UPDATED
TO INCLUDE DDSTATE~ENTS FOR ON-lINE DATABASES
AND PLACED IN SYS1.P~OCLIR BEFORE THIS PROCEDURE
CAN BE SUCCESSFULLY EXECUTED.
THE CATALOGED PROCEDURE~[MSRDR' MUST BE PLACED
IN SYSl.PROClIB BEfORE ANY OTHER IMSGENERATED
PROCEDURE CAN BE SUCCESSFULLY EXECUTED.
REFERTOT~E IMS/360 SYSTEM PROGRAMMING
REFERENCE MANUAL FOR INSTRUCTIONS AND ASSISTANCE IN PERFORMING THESE AND OT~ER'REQUI~EO
FUN~TIONS BEFORE SYSTEM EXECUTION •.

*,
*,
*,**
**
*,**
**
*,'*****************************************************.*
*~******************************************************

162
163
164
165

166
167

168
169

170
171
172
173

174
175
176
177

178
179

180
181
182

un

184
185
186

187
188
189
190

191
192

193
194
195
196
197

198
199
200
201
202

203
204
205
206

207
208
209
210
211

212
213
214

*,******************************************************
*,******************************************************
*,**
**
*,**
SUCCESSFUL IMS/360 SYSTEM DEFINITION
**
*,**
FOR ALL FUNCTIONS.
**
*,
*,
BEFORE STAGE II EXECUTION
*,
*,
THE FOLLOWING IMS/3bO DATA SETS MUST BE ALLO*, CATED AND CATALOGED BEFORE ATTEMPTING TO EXECUTE
*, THE GENERATED STAGE II JOB STREAM:
*,
IMS2.LOAD
IMS2.GENLIB IMS2.RESLIB
*,
IMS2.MACLIB
*,

SPECIFIED USER SUPPLIED MODULES MUST RESIDE
IN USER.PDS.LIBRARY BEFORE EXECUTION OF THE
CONTROL BLOCK LINK EDIT STEP OF STAGE II.

*.
*,
*,
*,

1030 LINE GROUPS REQUIRE LOAD MEMBER NAMED
(DFSI0300) AND MUST RESIDE IN USER.PDS.LIBRARY
BEFORE EXECUTION OF THE CONTROL BLOCK LINK EDIT
STEP OF STAGE II.

*,
*,

MEMB~R

*,

*,

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

THF. FOLLOWING FUNCTIONS MUST BE COMPLETED
BEFORE SUCCESSFUL EXECUTION OF THE IMS/360 CONTROL
PRUGRAM CAN BE ACHIEVED:
THE REQUIRED TYPE 4 SVC AND APPENDAGE MODULES
MUS T BE PLACED IN SYS 1. SVCL IB (MFT,MVT AND VSll OR SYS1.LPALIB(VS2).

*,

THE RESIDENT SVC INTERFACE MODULES MUST BE LINK
EDITED WITH THE OS/360 NUCLEUS. THESE MODULES ARE
PLACED IN IMS2.RESLIB BY THE STAGE II JOB STREAM,
AND ARE NAMEOIGC253 AND IGC254.

*,
*,
*,
*,
Of

0,

*,
*,
*,
*,

*,

221
222
223
224
225

BEFORE SYSTEM EXECUTION

*,

216
217
220

REQUESTED LTERM EDIT FUNCTION REQUIRES LOAD
NAMED (DFSCNTEO) RESIDE IN USER.PDS.LIBRARY
~EFORE EXECUTION OF THE CONTROL BLOCK LINK EDIT
STEP lIF STAGE II.

*,

*,

218

USER.PDS.LIBRARY

*,
*,
*,

2IS

219

IMS2.0BJDSET

*,
*,
OTHER REQUIRF.D DATA SETS MUST BE ALLOCATED
*, AND CATALOGED PRIOR TO EXECUTION OF THE IMS/360
*, CONTROL PROGRAM.

.,

*,
*,
*,
*,

THE LOAD MEMBER OFSRRCOO MUST BE ADDEO TO THE
'PRIVILEGED PROGRAM NAME LIST' MEMBER (IEEVLNKT)
IN SYSl.LINKLIB.
THE IMS2.RESLIB DATASET MUST BE CONCATENATED WITH
SYS1.LINKLIB BY ADDING THE NAME 'lMS2.RESLISI TO
THE LNKlSTOO MEMBER OF SYS1.PARMLIB.
REFER TO THE IMS/360 SYSTEM PROGRAMMING
REFERENCE MANUAL FOR INSTRUCTIONS AND ASSISTANCE IN PERFORMING THESE AND OTHER REQUIRED
FUNCTIONS BEFORE SYSTEM EXECUTION.

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

3.93

22t)
230
231
232
233
234
235
236
237
238
239

240
241

242
243
244

245
246
247
248
249

250
251
252
253

254
255
256
2'>7
258

259
260
261
262
263

264
265
266
267
268

269

*,************************************************.*.* ••
*,**
**
*,**
SUCCESSFUL IMS/360 SYSTEM DEFINITION
**
*f**
FOR CTlBLKS FUNCTION.
**
*,

*,************************~*******.****.*.*** ••• *.******

*.

BEFORF SrAGE II EXECUTION

*,
*,
THE FOLLOWING IMS/360 OATA SETS MUST BE ALLO*, CATED ANn CATALOGFD BEFORE ATTEMPTING TO EXECUTE
*, THE GENERATED STAGE II ~OB STREAM:
*,
IMS2.LOAD
IMS2.GENLIB IMS2.RESLIB
*,
IMS2.0BJDSET USEK~PDS.LIBRARY
*,
*,
OTHER REQUIRED DATA SETS MUST BE ALLOCATED
*, AND CATALOGED PRIOR.TD EXECUTION OF THE IMS/360
*, CONTROL PROGKAM.
*,
*,
SPECIFIED USER SUPPLIED MODULES MUST RESIDE
*, IN USER.PDS.LltiRARY DEfORE EXECUTION OF THE
*, CONTROL BLOCK LINK EDIT STEP OF STAGE II.

*,
*,

*,
*,
*,
*,
*,

*.
*r

*f

*,

BEFORE SYSTEM EXECUTION
THF FOLLOWING FUNCTIONS MUST B~.COMPLETED
BEFORE SUCCESSFUL EXECUTION OF THE IMS/360 CONTROL
PROGRAM CAN BE ACHIEVED:
CTLBlKS GENERATION ASSUMES SPECIFIED 05/360 SVC,
SYS1.LINKLIB, AND SYSl.PARMlIBINTERFACES ARE
CONSISTtNT WITH SPECIFIED VALUES.

*,
REFER TO THE IMS/360 SYSTEM PROGRAMMING
*,
REFERENCE MANUAL FOR INSTRUCTIONS AND ASSIST*,
ANCE IN PERFORMING THESE AND OTHER REQUIRED
*,
FUNCTIONS BEFORE SYSTEM EXECUTION.
.,**
**
*,**
**
*,******************************************************
*,******************************************************
*.

(
3.94

213
214
275
216
277
278
279

280
2B1
282
283
284
285
286
281

*t******************************************************
*,******************************************************
*f**
**
*,**
SUCCESSFUL IMS/360 SYSTEM DEFINITION
**
*f**
~OR BATCH FUNCTION.
**
*,
0,
BEFORE STAGE II EXECUTION
*,
*,
THE FOLLOWING IMS/360 DATA SETS MUST BE ALLO*, CATED AND CATALOGED BEfORE ATTEMPTING TO EXECUTE
*, THE GENERATED STAGE II JOB STREAM:
Of

*,

2H9

*,
*,
*,
*,

2l)O
291
7.92

*f
*f

2t38

293
294
295

296
297
2'J8

299

300
301
302
303
304

305
306
307
308
309

310
311

312
313

314
315
31b

311

0,

0,

*f
*f
*f
*f
*f
*,

*,

IMS2.LOAD
IMS2.GENLIB IMS2.RESLIB
Il-fS2.MACLlH
IMS2.0BJDSET USER.PDS.LIBRARY

OTHER REQUIRED DATA SETS MUST BE ALLOCATED
AND CATALOGED PRIOR TO EXECUTION OF THE IMSf360
CONTROL PROGRAM.
BEFORE SYSTEM EXECUTION
THE FOLLOWING FUNCTIONS HUST BE COMPLETED
BEFORE SUCCESSFUL EXECUTION OF THE IMS/360 CONTROL
PROGRAM CAN BE ACHIEVEO:
THE REQUIRED TYPE 4 SVC AND APPENDAGE MODULES
MUST BE PLACED IN SYS 1. SVCLI B (MFT,MVT AND VS1) OR

SYS1.LPALIB(VS2).

*f
*t
THE LOAD MEMBER DFSRRCOO MUST BE ADDEO TO THE
*,
'PRIVILEGED PROGRAM NAME LIST' MEMBER (IEEVLNKT)
*f
IN SYS1.lINKLIB.
*f
*f
THE IMS2.RESLIB OATASET MUST BE CONCATENATED WITH
*,
SYS1.LINKliB BY ADDING THE NAME 'IMS2.RESLIB' TO
*,
THE LNKlSTOO MEMBER OF SYS1.PARMLIB.
*,
*,
REFER TO THE IMS/360 SYSTEM PROGRAMMING
*,
REFERENCE MANUAL FOR INSTRUCTIONS AND ASSIST*,
ANCE IN PERFORMING THESE AND OTHER REQUIRED
*,
FUNCTIONS BEFORE SYSTEM EXECUTION.
*,**
**
*,**
**
*,******************************************************
*,******************************************************

3.95

If PROCLIB=YES is specified on the IMSGEN macro-instruction as is
suggested in the stage I input of IMS/360 system definition, certain
procedures are created and placed in IMS2.PROCLIB.
The created
procedures should be examined carefully to .determine if the desired
JCL has been correctly generated. These procedures may not apply to
all applications, but can be used as guidelines for user generated
account oriented procedures. If an online IMS/360 system has been
defined, particular attention should be devoted to the terminal device
allocation generated within the IMS procedure.
A list of terminal
addresses and logical and physical terminals is printed by stage I of
IMS/360 system definition which should be helpful in checking for
correct terminal allocation.
Dependent upon the type of system being
defined, the procedures which may be created are as follows:

ACBGEN

A one-step execution procedure for
ACBLIB maintenance

DBBBATCH

A one-step execution procedure for a
stand-alone Data Language/I batch
processing region using IMS2.ACBLIB

DBDGEN

A two-step assemble and link edit
procedure to produce data base definition
blocks (DBDs)

DLIBATCH

A one-step execution procedure for a
stand-alone Data Language/I batch
processing region using PSB and DBD
libraries

FMTINIT

A six-step job used to initialize the
Format Utility data bases, setup the
required PSBs and DBDs, and load the
default blocks

FMTUTL

A four-step execution procedure for
defining message and format descriptions
to the Format utility program

FMTSRVC

A one-step execution procedure for
the message format data
bases
main~aining

IMS

Execution of IMS/360 online control
region

IMSBATCH

Execution of IMS/360 online batch message
processing region

IMSCOBGO

A three-step compile, link edit, and
go prOCEdure combining the procedure
IMSCOBOL with an execution step for a
stand-alone Data Language/I batch
processing region

IMSCOBOL

A two-step compile and link edit
procedure for IMS/360 applications
written in COBOL

3.96

IMSMSG

Execution of IMS/360 message processing
region

)
3.96.1

(

IMSPLI

A two-step compile and link edit
procedure for IM5/360 applications
written in PL/I

IMSPLIGO

A three-step compile, link edit, and
go procedure combining the procedure
IMSPLI with an execution step for a
stand-alone Data Language/I batch
processing region

IMSRDR

DASD reader procedure to read IMSMSG
procedure into the operating system
job stream from direct access devices

IMSWTnnn

These are procedures to print datasets
created by the SPOOL SYSOUT options.

MFDBDUMP

This is a procedure to dump the sample
problem data base onto a SYSOUT data
set.

MFDBLOAD

A Data Language/I batch execution
procedure used to load the sample problem
data base. Input data for the data
base procedure is contained in the
MFDFSYSN member of IMS2.MACLIB if the
user specified MACLIB=ALL on the IMSGEN
statement of his system definition.
If MACLIB=ALL was nQ! specified, stage
1 of IMS/360 system definition did not
produce the necessary IEBCOPY control
cards to place member MFDFSYSN into
MACLIB, and this procedure is not usable
as generated.

PSBGEN

A two-step assemble and link edit
procedure to produce program
specification blocks (PSBs)

SECURITY

A three-step execution, assembly, and
link edit procedure for terminal and
password security which invokes the
security maintenance program

IQFUT

This is a procedure for executing the
Interactive Query Facility (IQF) Utility
system.
An EXEC statement to invoke
the procedure is included in the Stage
II as job stream by the IQF module
DMGSI1 (part 1 of IQF Stage I).
After
system definition, this procedure is
contained in IMS2.PROCLIB.

IQFFC

This procedure causes execution of the
IQF System Data Base (Field File)
Creation Utility program during the
Stage II as job stream created by
IQF stage I.
An EXEC statement to
invoke the procedure is included in
the job stream by the DMGSI1 module.
After system definition, this procedure
is contained in the IMS2.PROCLIB.
3.97

This procedure causes execution of the
IQF Index Creation/Update utility program
during the stage lIaS job stream
created by stage I. An EXEC statement
to invoke the procedure is included
in the job stream by the IQF DMGSI2
module (Part 2 of IQF stage I). After
system definition, this procedure is
contained in IMS2.PROCLIB.

IQFIU

In addition to the procedures placed in IMS2.PROCLIB, the following
Data Language/I interfaces are also-generated:
CBLTDLI

control cards necessary to establish
a COBOL to DI/I interface

PLITDLI

control cards necessary to establish
a PL/I to DL/I interface

Note that the generated procedures accommodate either MVT, MFT,
VS1, or VS2 configurations of the operating system.
All procedures should be placed into IMS2.PROCLIB except for the
IMS and IMSRDR procedures. These two procedures should be placed into
SYS1.PROCLIB.
EXECUTING JOBS USING PROCEDURES FROM IMS2.PROCLIB
The operating system reader/interpreter requires that the reader
procedure used to enter jobs into the operating system job stream
contain allocation to the procedure library containing the procedures
used by those jobs. The -procedure library is defined on the reader
procedure's lEFPDSl DD statement. lMS/360 system definition provides
a reader procedure called IMSRDR which satisfies these requirements.
This procedure is used as generated to start message regions for the
online System. If entered from the operating system operator's console
using the start command (that is, S IMSRDR), it will cause a message
processing region to be started; however, if S IMSRDR, DDD (where DDD
is the device address of the card reader) is entered, it will read
jobs into the operating system job stream from that card reader,
allowing those jobs to use procedures from the IMS2.PROCLIB data set.
S IMSRDR, DDD will not work unless a DCB BLKSIZE is included with the
start command
S IMSRDR,DDD,DCB=BLKSIZE=80

PROC
EXEC
//SYSPRlNT DD
DD
//lMS
DD
//
DD
//IMSACB
//SYSUT3
DD
DD
//SYSUT4
//COMPCTL DD
//
//G

SOUT=A,COMP=,RGN=100K
PGM=DFSRRCOO,PARM='UPB,&COMP',REGION=&RGN
SYSOUT=&SOUT
DSN=IMS2.PSBLIB,DISP=SHR
DSN=IMS2.DBDLIB,DISP=SHR
DSN=IMS2.ACBLIB,DISP=OLD
UNlT=SYSDA,SPACE=(80, (100,100»
UNlT=SYSDA,SPACE=(256, (100,100»,DCB=KEYLEN=8
DSN=IMS2. PROCLlB (DFSACBCP) ,DISP=SHR

EXEC CARD PARAMETERS FOR THE ACBGEN PROCEDURE

3.98

SOUT=
is the SYSOUT class -

Default 'A'.

COMP=
'PRECOMP,POSTCOMP' in any combination to cause the required
inplace compression.
Default is none.
RGN=
the region size for this

II
IIG
II
IISTEPLIB
II
I/IMSACB
IIIEFRDER

PROC
EXEC
DD
DD
DD
DD

II

IISYSUDUMP DD

II

execu~ion.

Default is lOOK.

MBR=TEMPNAME,SOUT=A,PSB=,BUF=8,SPIE=0,TEST=0
PGM=DFSRRCOO,REGION=130K,
PARM='DBB,&MBR,&PSB,&BUF,&SPIE&TEST'
DSN=IMS2.RESLIB,DISP=SHR
DSN=IMS2.PGMLIB,DISP=SHR
DSN=IMS2.ACBLIB,DISP=SHR
DSN=IMSLOG,DISP=(,KEEP) ,VOL=(",99) ,UNIT=(2400"DEFER),
DCB=(RECFM=VBS,BLKSIZE=1408,LRECL=1400,BUFNO=1)
SYSOUT=&SOUT,DCB=(RECFM=FBA,.LRECL=121,BLKSIZE=60~ ,
SPACE=(605, (500,500),RLSE"ROUND)

Assumes
1.

Notg:

User adds DD statements for data sets representing
data bases.
Symbolic parameters are the same as for
DLIBATCH.

MEMB!.B l!!11~ DB]JHm

II
IIC
IISYSLIB
IISYSGO
II

PROC
EXEC
DD
DD

IISYSPRINT DD

II

IISYSUTl
IISYSUT2
IISYSUT3

DD
DD
DD

II
IlL

EXEC
IISTEPLIB DD
DD
IISYSLIN
IISYSPRINT DD

II

IISYSLMOD
IISYSUTl

II

DD
DD

MBR=TEMPNAME,SOUT=A
PGM=IEUASM,REGION=120K,PARM=lLOAD,NODECK'
DSN=IMS2.MACLIB,DISP=SHR
UNIT=S YSDA, DISP= (, PASS) , SPACE= (80, (100, 100) , RLSE) ,
DCB=(BLKSIZE=400,RECFM=FB,LRECL=80)
SYSOUT=&SOUT,DCB=(LRECL=121,RECFM=FBM,BLKSIZE=605),
SPACE=(121, (500,500),RLSE"ROUND)
.
UNIT=SYSDA,DISP=(,DELETE) ,SPACE=(1700, (100,50»
UNIT=SYSDA,DISP= (,DELETE) ,SPACE= (1700, (100,50»
UNIT=(SYSDA,SEP=(SYSLIB,SYSUT1,SYSUT2» ,
SPACE=(1700, (100,50»
PGM=DFSILNKO,PARM='XREF,LIST',COND=(O,LT,C) ,REGION=120K
DSN=IMS2.RESLIB,DISP=SHR
.
DSN=*.C.SYSGO,DISP=(OLD,DELETE)
SYSOUT=&SOUT,DCB=(LRECL=121,RECFM=FBA,BLKSIZE=605) ,
SPACE= (121, (100, 100) , RLSE)
DSN=IMS2.DBDLIB(&MBR) ,DISP=SHR
UNIT=(SYSDA,SEP=(SYSLMOD,SYSLIN» ,DISP=(,DELET~,
SPACE= (1024, (100,10) ,RLSE) "

3.99

MEM~]] !!~] ~1IBA1£n

II
IIG
II

PROC
EXEC

MBR=TEMPNAME,SOUT=A,PSB=,BUF=8,SPIE=0,TEST=O
PGM=DFSRRCOO,REGION=130K,
PARM='DLI,&MBR,&PSB,&BUF,&SPIE&TEST'
IISTEPLIB DD
DSN=IMS2.RESLIB,DISP=SHR
II
DD
DSN=IMS2.PGMLIB,DISP=SHR
I/IMS
DD
DSN=IMS2.PSBLIB,DISP=SHR
IIDD
DSN=IMS2.DBDLIB,DISP=SHR
IIIEFRDER DD
DSN=IMSLOG,DISP=(,KEEP),VOL=(",99),UNIT=(2400,DEFER),
II DCB=(RECFM=VBS,BLKSIZE=1408,RECL=1400,BUFNO=1)
IISYSUDUMP DD
SYSOUT=&SOUT,DCB=(RECFM=FBA,LRECL=121,BLKSIZE=605),
II SPACE=(605, (500,500) ,RLSE"ROUND)

1.

User adds DD statements for data sets representing DL/I data
bases.

EXEC CARD PARAMETERS FOR THE DLIBATCH PROCEDURE
MBR=
is an application program name.
PSB=
is an optional parameter specifying a PSB name when the PSB
name and application program name are different.
BUF=
specifies the data base buffer size. If not present, the default
size specified at system definition will be used.
Buffersize
is specified in 1K multiples. Values may range from 1 through
999.
SPIE=
SPIE option:
0= allow user SPIE, if any, to remain in effect while processing
the application program call.
1= negate the user's SPIE while processing the application
program call. Negated SPIEs are reinstated before returning
to the application program.
TEST=
validity check option
0= no validity checking
1= validity check the addresses in the user's call list.

3. 100

IIIMSFMT

IISTEPl

JOB
EXEC

//
I/SYSPRINT DD

1/

1,IMS,MSGLEVEL=1
PGM=IEWL,REGION=130K,
PARM='XREF,LIST,LET,NCAL,DCBS'
SYSOUT=A,DCB=(RECFM=FBA,LRECL=121,BLKSIZE=605),
SPACE= (605, (10,10) , RLSE, ,ROUND)
DSN=IMS2.LOAD,DISP=SHR
DSN=IMS2.DBDLIB,DISP=OLD
UNIT=SYSDA,SPACE= (CYL, (5,1»

//LOAD
DD
I/SYSLMOD DD
I/SYSUT1
DD
I/SYSLIN
DD
*
INCLUDE LOAD (DFSUTS10)
NAME DFSUTS 1 0 (R)
INCLUDE LOAD.{DFSUTS20)
NAME DFSUTS20 (R)
IISTEP2
EXEC
PGM=IEWL,REGION=130K,
1/
PARM='XREF,LIST,LET,NCAL,DCBS'
I/SYSPRINT DD
SYSOUT=A,DCB={RECFM=FBA,LRECL=121,BLKSIZE=605),
1/
SPACE=(605, (10,10) ,RLSE"ROUND)
IILOAD
DD
DSN=IMS2.LOAD,DISP=SHR
IISYSLMOD DD
DSN=IMS2.DBDLIB,DISP=OLD
I/SYSUT1
DD
UNIT=SYSDA,SPACE= (CYL, (5,1»
//SYSLIN
DD
INCLUDE LOAD (DFSUTS30)
NAME DFSUTS30 (R)
INCLUDE LOAD (DFSUTS40)
NAME DFSUTS40 (R)
INCLUDE LOAD (DFSUTS50)
NAME DFSUTS50 (R)
INCLUDE LOAD (DFSUTS60)
NAME DFSUTS60 (R)
I/STEP3
EXEC
PGM=IEBCOPY
IISYSPRlNT DD
SYSOUT=A
I/SYSUT1
DD
DSN=IMS2.LOAD,DISP=SHR
IISYSUT2
DD
DSN=lMS2.REFERAL,DISP=SHR
I/SYSUT3
DD
UNIT=SYSDA,SPACE=(80, (10,20»
I/SYSUT4
DD
UNlT=SYSDA,SPACE={256, (2,4»
I/SYSIN
DD
*
COpy OUTDD=SYSUT2,INDD=({SYSUT1,R»
SELECT MEMBER=DFSMIl
SELECT MEMBER=DFSMI2
SELECT MEMBER=DFSMI4
SELECT MEMBER=DFSMOl
SELECT MEMBER=DFSM02
SELECT MEMBER=DFSM03
SELECT MEMBER=DFSM04
SELECT MEMBER=DFSDF1
SELECT MEMBER=DFSDF2
SELECT MEMBER=DFSDF4
I/STEP4
EXEC
PGM=DFSRRCOO,REGION=200K,
II
PARM='DLI,DFSUTSOO,DFSUTS10,4,OO'
I/IMS
DD
DSN=IMS2.PSBLIB,DlSP=SHR
1/
DD
DSN=IMS2.DBDLIB,DISP=SHR
I/MSGINDX DD
DSN=IMS2.MSGlNDX,DISP=OLD
I/MSGINDXO DD
DSN=IMS2.MSGINDXO,DISP=OLD
IIMSGDB
DD
DSN=IMS2.MESSAGES,DISP=OLD
I/FMTlNDX DD
DSN=IMS2.FMTlNDX,DISP=OLD
I/FMTINDXO DD
DSN=IMS2.FMTINDXO,DISP=OLD
I/FMTDB
DD
DSN=IMS2.FORMATS,DISP=OLD
IISYSPRlNT DD
SYSOUT=A,DCB=BLKSIZE=80
I/SYSIN
DD
DSN=IMS2.GENLIB{DFSUTS70) ,DISP=SHR
I/STEP5
EXEC
PGM=DFSRRCOO,REGION=250K,
1/
PARM='DLI,DFSUNU20,DFSUTS20,4,00'
l/lMS
DD
DSN=lMS2.PSBLIB,DISP=SHR

*

3.101

//
//IEFRDER
//
//DFSLOGTT
//SYSUDUMP
//SYSPRINT
//UTPRINT
//SYSTEXT
//REFERAL
//MSGINDX
//MSGINDXO
//MSGDB
//FMTINDX
//FMTINDXO
//FMTDB
//SEQBLKS
//
//STEP6
//SE.QBLKS
//SYSPRINT
//UTPRINT
//SYSUDUMP
//FORMAT
//DUMMY

DD
DD
DD
DD
DD
DD
DD
DD
DD
DD
DD
DD
DD
DD
DD
EXEC
DD
DD
DD
DD
DD
DD

DSN=IMS2.DBDLIB,DISP=SHR
DSN=&&IMSLOG,DISP=(,PASS),
UNIT=SYSDA,SPACE= (CYL, (1,1» , DCB=DSORG=PS
DSN=IMS2.LOGT,DISP=SHR
.
SYSOUT=A
SYSOUT=A,DCB=(RECFM=FA,LRECL=133,BLKSIZE=133)
SYSOUT=A
.
DSN=IMS2. GENLIB (DFSUTS90) ,DISP=SHR
DSN=IMS2.REFERAL,DISP=SHR
DSN=IMS2.MSGINDX,DISP=OLD
DSN=IMS2.MSGINDXO,DISP=OLD
DSN=IMS2.MESSAGES,DISP=OLD
DSN=IMS2.FMTINDX,DISP=OLD
DSN=IMS2.FMTINDXO,DISP=OLD
DSN=IMS2.FORMATS,DISP=OLD
DSN=&&BLKS,DISP=(NEW,PASS),
UNIT=SYSDA,SPACE= (CYL, (1, 1»
PGM=DFSUNU30,REGION=200K
DSN=&&BLKS,DISP=(OLD,DELETE)
SYSOUT=A·
SYSOUT=A
SYSOUT=A
DSN=IMS2.FORMAT,DISP=OLD
DUMMY,DCB=BLKSIZE=80

STEP4 PROGRAM,DFSUTSOO, may create a S03B abend as part of its
normal operation.
To ensure transp~rency to the user, no
SYSUDUMP or SYSABEND DD card has been supplied for this step
of the procedure.
If the user elects to supply a dump DD card
for this step, the S03B abend should be ignored.
For further
information, refer to the description of MODULE DFSUTSOO in the
IMS/3§Q ~YST~~ ~ANQ!1 V01Q~~ I.

3.102

~£;.tllHm

,NAME I.tlTUTL

II
II
IIPREPROC

PROC

EXC
IISYSPRlNT DD
IISYSPUNCH DD

II

IISYSLIB

II

IISYSUT1
IISYSUT2
IISYSUT3
IISYSIN
IIPHASE1

II

IISYSPRlNT
IISYSUDUMP
IIUTPRINT
IISYSLIN
IISYSLMOD
IIDUMMY
IISYSUT1
IISYSTEXT

II

IISYSlN
IIPHASE3

II
IllMS
II

IllEFRDER

II

/IDFSLOGTT
IISYSUDUMP
IISYSPRINT
/IUTPRlNT
//SYSTEXT
/IREFERAL
/ISEQBLKS

II

DD
DD
DD
DD
DD
DD
EXEC
DD
DD
DD
DD
DD
DD
DD
DD
DD
EXEC
DD
DD
DD
DO"
DD
DD
DD
DD
DD
DD

DD
DD
DD
DD
DD
/IMSGDB
DD
EXEC
IIPHASE4
I/SEQBLKS DD
IISYSPRINT DD
/IUTPRINT DD
DD
/IFORMAT
I/SYSUDU1'1P DD
DD
I/DU1'1MY
/IFMTINDX
IIFMTINDXO
I/FMTDB
IIMSGINDX
I/MSGINDXO

SNODE=lMS2,SOR=NOLlB,MBR=NOMBR,1'1NODE=lMS2,1'1AC=GENLIB,
RGN=250K,BUF=4,SPIE=O,TEST=O,SOUT=A
PGM=IEUASM,PARM='NOLOAD,DECK',REGION=100K
SYSOUT=&SOUT
DSN=&&ITBPASS,DISP= (NEW,PASS) ,SPACE= (CYL, (1,1» ,
UNIT=SYSDA
DSN=&MNODE •• &MAC,DlSP=SHR
DSN~SYS1.MACLIB,DISP=SHR

UNlT=SYSDA,SPACE= (CYL, (1,1»
UNlT=SYSDA,SPACE=(CYL, (1,1»
UNIT=SYSDA,SPACE=(CYL, (1,1»
DS N=&SNODE •• &SOR (&MBR) , DlSP=SHR
PGM=DFSUNU10,COND=(8,LE,PREPROC),
PAR1'1='COMPRESS',REGlON=&RGN
SYSOUT=&SOUT
SYSOUT=&SOUT
SYSOUT=&SOUT
UNIT=SY SD A, SP ACE= (CYL, (1, 1) ) , DCB=BLKS lZE=80
DSN=IMS2.REFERAL,DISP=OLD
DU1'1MY,DCB=BLKSIZE=80
UNIT=SYSDA, SPACE= (CYL, (1,1»
DSN=&&TXTPASS,DISP=(NEW,PASS) ,UNIT=SYSDA,
SPACE= (CYL, (1, 1» , DCB=BLKSIZE=80
DSN=&&ITBPASS,DISP=(OLD,DELETE)
PGM=DFSRRCOO,COND=(4,LE,PHASE1) ,REGlON=&RGN,
PARM='DLl,DFSUNU20,DFSUTS20,&BUF,&SPlE&TEST'
DSN=IMS2.PSBLIB,DISP=SHR
DSN=lMS2.DBDLlB,DISP=SHR
DSN=&&IMSLOG,DISP=(,PASS) ,UNlT=SYSDA,
SPACE=(CYL, (1,1» ,DCB=DSORG=PS
DSN=IMS2.LOGT,DISP=SHR
SYSOUT=&SOUT
SYSOUT=&SOUT,DCB=(RECFM=FA,LRECL=133,BLKSIZE=133)
SYSOUT=&SOUT
DSN=&&TEXTPASS,DISP=(OLD,DELETE)
DSN=IMS2.REFERAL,DISP=SHR
DSN=&&BLKS,DISP=(NEW,PASS) ,UNIT=SYSDA,
SPACE= (CYL, (2,2) )
DSN=IMS2.FMTlNDX,DISP=OLD
DSN=IHS2.FHTINDXO,DISP=OLD
DSN=lHS2.FORMATS,DlSP=OLD
DSN=IMS2.MSGINDX,DISP=OLD
DSN=IMS2.MSGINDXO,SIDP=OLD
DSN=lMS2.MESSAGES,DISP=OLD
PGM=DFSUNU30,REGlON=&RGN,PARM='COHPRESS'
DSN=&&BLKS,DISP=(OLD,DELETE)
SYSOUT=&SOUT
SYSOUT-&SOUT
DSN=IMS2.FORMAT,DISP=OLD
SYSOUT=&SOUT
DUMMY,DCB=BLKSIZE=80

3.103

EXEC CARD PARAMETERS FOR THE FMTUTL PROCEDURE
SNODE=
is the NODE of thePREPROC step SYSIN data set name
SOR=
is the remainder of the qualified name of the PREPROC step SYSIN
data set name
MBR=

is the member name of the PREPROC step SYSIN partitioned data
set to be used as input

MNODE=
is the NODE of the PREPROC step SYSLIB data set
MAC=
is the remainder of the qualified name of the PREPROC step
SYSLIB data set
RGN=
is the value to be specified in the REGION= parameter of the
EXEC cards for the PHASE1 and PHASE3 steps
BUF=
specifies the data base buffer size. Buffer size is specified
in 1K multiples.
Values may range form 1 through 999.
SPIE=
0=

allow user SPIE, if any, to remain in effect while processing
the program call.

1= negate user SPIE
TEST=
validity check option
0= no validity checking
1= validity check the addresses in the user's call list
SOUT=
is class assigned for SYSOUT DD cards

3.103.1

II
IIFMTSRVC

PROC
EXEC

II
IIIMS

II
I/IEFRDER
II

DD
DD
DD

IIDFSLOGTT DD

SOUT=A
PGM=DFSRRCOO,REGION=250K,
PARM='DLI,DFSUTSAO,DFSUTS20,4,00'
DSN=IMS2.PSBLIB,DISP=OLD·
DSN=IMS2.DBDLIB,DISP=OLD
DSN=&&IMSLOG,UNIT=SYSDA,
. SPACE= (CYL, (1,1» ,DCB=DSORG=PS
UNIT=SYSDA,SPACE=(TRK, (1»

11*
11*
11*

FORMAT DATA BASE (HIDAM)

11*
11*
11*

MESSAGE DATA BASE (HIDAM)

11*
11*
11*

PRINT FILES

I/FMTINDX DD
IIFMTINDXO DD
IIFMTDB
DD

IIMSGINDX DD
IIMSGINDXO DD
IIMSGDB
DD

IISYSPRINT DD

11*

IISYSSNAP

DD

11*

IISYSUDUMP DD

11*
1/*
1/*

DSN=IMS2.FMTINDX,DISP=OLD
DSN=IMS2.FMTINDXO,DISP=OLD
DSN=IMS2.FORMATS,DISP=OLD

DSN=IMS2.MSGINDX,DISP=OLD
DSN=IMS2.MSGINDXO,DISP=OLD
DSN=IMS2.MESSAGES,DISP=OLD

SYSOUT=&SOUT
DCB=(RECFM=VBA,LRECL=137)
SYSOUT=&SOUT
DCB=(RECFM=VBA,LRECL=125,BLKSIZE=1632)
S YSOUT= &SOUT

REFERAL LIBRARY

I/REFERAL

DD

DSN=IMS2.REFERAL,DISP=OLD

1/*
11*

ON-LINE FORMAT LIBRARY
DSN=IMS2.FORMAT,DISP=OLD
IIFORMAT
DD

11*
1/*
1/*
1/*
1/*
1/*
1/*
1/*
1/*

*

IISYSIN DD
MUST BE SUPPLIED BY
USER WITH INPUT CONTROL CARD STREAM
ALL DISP=OLD SPECIFICATIONS OF THIS
PROCEDURE ARE REQUIRED •••

EXEC CARD PARAMETERS FOR FMTSRVC PROCEDURE
SOUT=
is class assigned to sysout data sets

3.103.2

//
//
//IEFPROC
//
//
//
//*
//*

PROC
EXEC

/1*

RGN=300K,DMBP=000,PSBP=000,DBBP=000,TPDP=000,WKAP=000,
S=0,PKEY=1,PTY=254,TEST=1,QCR=000,FBP=000,SOUT=A
PGM=DFSRRCOO,REGION=SRGN,
PARM=(CTL,
SPTYSPKEY.OSTESTSSSQCR.&FBPSPSBPSDMBPSDBBPSTPDP.
OOOOOO&WKAP)
PARM=(AAA,BBBCDEFGGGHHHIIIJJJKKKLLLOOOOOOOOO)

//*

/1*
//*

AAA
BBB

/1*

C

//*

E
F

/1*
/1*
/1*

//*
//*

GGG
HHH
III
JJJ
KKK
LLL
000000

/1*

000

//*
//*

/1*

REGION TYPE
DISPATCHING PRIORITY
REGION PROTECT KEY(O=O; l=NON ZERO)
TEST OPTION
CONTROL PROGRAM SUFFIX
NUMBER OF QUEUE BUFFERS
FORMAT BUFFER POOL SIZE (IN lK BLOCKS)
PSB POOL SIZE (IN lK BLOCKS)
DMB POOL SIZE (IN1K BLOCKS)
DATABASE BUFFER POOL SIZE (IN lK BLOCKS)
LINE BUFFER POOL (IN lK BLOCKS)
RESERVED PARM AREA
WORKING STORAGE (IN lK BLOCKS)

//*

/1*

IF SYMBOLIC PARMS ARE NOT SPECIFIED; THE VALUES
PROVIDED BY SYSTEM DEFINITION ARE USED.

//*
//*

IIIEFRDER
//

//IMSLOGR

1/

//QBLKS
I/SHMSG
//LGMSG
//IMSACB
//IMSDILIB
//IMSSPA
//SYSUDUMP

//

//IMSDBL

DD
DD
DD
DD
DD
DD
DD
DD
DD
DD

DSN=IMSLOG, DI SP= (, KEEP) , VOL= (, ,,99) , UNIT= (2400, , DEFER) ,
DCB=(RECFM=VBS,BLKSIZE=1408,LRECL=1400,BUFNO=l}
DSN=IMSLOG,DISP=(OLD,KEEP),VOL=SER=OOOOOO,
UNIT=AFF=IEFRDER
DSN=IMS2.QBLKS,DISP=OLD
DSN=IMS2.SHMSG,DISP=OLD
DSN=IMS2.LGMSG,DISP=OLD
DSN=IMS2.ACBLIB,DISP=SHR
DSN=IMS2.FORMAT,DISP=OLD
DSN=IMS2.SPA,DISP=OLD
SYSOUT=SSOUT,DCB=(LRECL=125,RECFM=FBA,BLKSIZE=3129) ,
SPACE=(6050,300",ROUND)
DSN=IMS2.DBLLOG,DISP=SHR

*

This procedure can not be entered in the normal OS job
stream (that is, via a card reader) unless modified as
described in Chapter 6 of the IM~36Q Q£g~to£~2 Bgigren£g
ManY~l, under "Execution of IMS/360 as a Problem Program".
It is assumed that the IMS/360 modules are in the IMS2.RESLIB
data set.
The user must add DD statements for the data
sets representing data bases.
In a VS System, the //IEFPROC EXEC card must indicate that
real storage is to be used:
This DD statement
//IEFPROC

3.104

EXEC

~Y§!

specify DISP=OLD.

PGM=DFSRRCOO,REGION=SRGN,ADDRSPC=REAL,

EXEC CARD PARAMETERS FOR THE IMS PROCEDURE
RGN=
size of the OS region to be allocated to the IMS control program.
This parameter has no effect in an MFT system.
DMBP=
number of lK blocks of subpool 0 to be reserved for the DMB
pool.
(Identified in a core dump as DLDP.)
PSBP=
number of lK blocks of subpool 0 to be reserved for the PSB
pool.
(Identified in a core dump as DLMP.)
DBBP=
number of lK blocks of subpool 0 to be reserved for the data
base buffer pool.
(Identified in a core dump as DBAS.)
TPDP=
number of lK blocks of subpool 0 to be reserved for the
teleprocessing line buffer pool.
(Identified in a core dump
as I/OP.)
WKAP=
number of lK blocks of subpool 0 to be reserved for the control
program working area.
S=
control program name suffix. Character to be used as the last
character of the eight-character control program name.
This
allows multiple copies of the IMS nucleus to reside on
IMS2. RESLIB.
PKEY=
protect key option.
If PKEY=l is selected, IMS will operate
umder a non-zero protect key. If PKEY=O is selected, IMS will
run with protect key of O.
PKEY=l is the recommended option.
This parameter is ignored in MFT or VSl because all system tasks
run under protect key O.
PTY=
dispatching priority.
OS/360 dispatching priority at which the
IMS control region should operate. This parameter is ignored
in MFT.
TEST=
test option.
If TEST=l is selected, all subpoolO core obtained
for the control region will be cleared before use'.
QCR=
number of queue buffers in subpool 0 to be allocated to the
queue pool.
(Identified in a core dump as QBUF.)

3.105

FBP=
number of lK blocks of subpool 0 to be reserved for the message
format block pool (MFBP).
(This is identified in a main storage
dump as MFBP)
SOUT=
class assigned for SYSOUT DD cards.

II
IIG
II

PROC
EXED

IISTEPLIB

II
IISYSUDUMP
II

DD
DD
DD

MBR=TEMPNAME,SOUT=3,OPT=N,SPIE=O,TEST=O,PSB=,IN=,OUT=,
DIRCA=OOO
PGM=DFSRRCOO,REGION=30K,
PARM='BMP,&MBR,&PSB,&IN,&OUT,&OPT&SPIE&TEST&DIRCA
DSN=IMS2.RESLIB,DISP=SHR
DSN=IMS2.PGMLIB,DISP=SHR
SYSOUT=&SOUT,DCB=(LRECL=121,RECFM=VBA,BLKSIZE=3129) ,
SPACE=(125,(2500,100) ,RLSE"ROUND)

EXEC CARD PARAMETERS FOR THE IMSBATCH PROCEDURE
MBR=
is an application program name.
SOUT=
specifies the SYSOUT class for the SYSUDUMP DD card.
PSB=
is an optional parameter specifying a PSB name when the PSB
name and application program name are different.
IN=
is an input transaction code.
This parameter is necessary only
when the application program intends to access the message
queues.
If this parameter is specified, the OUT= parameter is
ignored.
OUT=
is an output transaction code or logical terminal name.
It is
necessary when the application program desires to send output
without accessing the input queues.
This parameter is ignored
if IN= is also specified.
OPT=
action to be taken if the batch message region starts and no
control program is active.
N= ask operator for decision.
This is the default.
W= wait for a ~ontrol program.
C= cancel the batch message region automatically.

3.106

SPIE=
SPIE option
0= allow user SPIE, if any, to remain in effect while processing
the application program call.
1= negate the user's SPIE while processing the application
program call.
Negated SPIEs are reinstated before returning
to the application program.
SPIE macros issued by the application program are only effective
for program checks which occur within the batch message region.
TEST=
validity check option.
0= no validity checking.
1= validity check the addresses in the user's call list.
DIReA=
number of 1K blocks of subpool 253 to be reserved to hold a
copy of the user's PCBs.
If this value is not specified, the
system will reserve an area which can hold the PCBs for any
program in the online system.
This parameter applies only to
OS/VS systems and must be a three-digit number (for example,
001).
To determine the size of the PCBs, see the output of the
ACB utility program.

3.107

MEMBER

NAl1~

//
/IC
/ISYSLIN

IM'§~QBGQ

PROC
EXEC
DD

/1
//

/ISYSPRINT DD

//
/ISYSUTl
//SYSUT2
//SYSUT3
/ISYSUT4
IlL
//
//STEPLIB
//SYSLIB
II
/IRESLIB
/ISYSLIN

DD
DD
DD
DD
EXEC

DD
DD
DD
DD
DD
DD
1/
DD
/1
//SYSLMOD DD
//SYSPRINT DD

//
/ISYSUTl
/1
/IG
//
/ISTEPLIB
II
//IMS

/1

DD
EXEC
DD
DD
DD
DD
DD

/IIEFRDER
II
DD
//SYSOUT
/ISYSUDUMP DD

/1

1.
2.
3.
4.
S.
6.

3.108

MBR=,PAGES=60,SOUT=A,PSB=,SPIE=0,TEST=0,BUF=8
PGM=IKFCBLOO,PARM='SIZE=130K,BUF=10K,LINECNT=SO',REGION=lS0K
DSN=&&LIN, DI SP= (MOD, PASS) ,UNIT=SYSDA,
DCB=(LRECL=80,RECFM=FB,BLKSIZE=400) ,
SPACE= (CYL, (4, 1) , RLSE)
SYSOUT=&SOUT,DCB=(LRECL=121,BLKSIZE=60S,RECFM=FBA) ,
SPACE= (60 S, (&PAGES. 0, &PAG ES) , RLSE, , ROUND)
UNIT=SYSDA,DISP=(,DELETE) ,SPACE=(CYL, (10,1) ,RLSE)
UNIT=SYSDA, DISP= (, DELETE) , SPACE= (CYL, (10, 1) , RLSE)
UNIT=SYSDA,DISP= (,DELETE), SPACE= (CYL, (10,1) ,RLSE)
UNIT=SYSDA,DISP=(,DELETE) ,SPACE=(CYL, (10,1) ,RLSE)
PGM=DFSILNKO,REGION=120K,PARM='XREF,LET,LIST',
COND= (4, LT, C)
DSN=IMS2.RESLIB,DISP=SHR
DSN=SYS1.COBLIB,DISP=SHR
DSN=SYS1.PL1LIB,DISP=SHR
DSN=IMS2.RESLIB,DISP=SHR
DSN=&&LIN,DISP=(OLD,DELETE) ,VOL=REF=*.C.SYSLIN
DSN=IMS2.PROCLIB(CBLTDLI) ,DISP=SHR
DDNAME=SYSIN
DSN=IMS2.PGMLIB(&MBm ,DISP=SHR
SYSOUT=&SOUT,DCB=(RECFM=FBA,LRECL=121,BLKSIZE=60S),
SPACE= (60S, (&PAGES'. 0, &PAGES) , RLSE" ROUND)
UNIT= (SYSDA, SEP= (SYSLMOD, SYSLIN) ) , DIS P= (, DELETE) ,
SPACE= (CYL, (10,1) ,RLSE)
PGM=DFSRRCOO,REGION=lS0K,TIME=2,COND=(4,LT) ,
PARM='DLI,&MBR,&PSB,&BUF,&SPIE&TEST'
DSN=IMS2.RESLIB,DISP=SHR
DSN=IMS2.PGMLIB,DISP=SHR
DSN=IMS2.PSBLIB,DISP=SHR
DSN=IMS2.DBDLIB,DISP=SHR
DSN=IMSLOG,DISP=(,KEEP) ,VOL=(",99) ,UNIT=(2400"DEFER),
DCB=(RECFM=VBS,BLKSIZE=1408,LRECL=1400,BUFNO=1)
SYSOUT=&SOUT,SPACE=(CYL, (l,1»,DCB=(LRECL=133,RECFM=FA)
SYSOUT=&SOUT,DCB=(LRECL=121,RECFM=FBA,BLKSIZE=302S),
SPACE= (302S, (200, 100) , RLSE" ROUND)

User supplies source data from SYSIN
Output Class A
MBR=NAME, when name is load module name for program
SYSDA is generic device name
User add DD statements in execute set for data sets
representing Data Language/I data bases.
Execution time limit of·2 minutes specified.

~R ~AME

II
IIC
IISYSLIN

IMSCOBOL
PROC
EXEC
DD

II
II

IISYSPRINT DD

II

IISYSUTl
IISYSUT2
IISYSUT3
IISYSUT4

IlL
II

DD
DD
DD
DD
EXEC

DD
DD
DD
II
DD
IIRESLIB
DD
IISYSLIN
DD
II
DD
II
IISYSLMOD DD
IISYSPRINT DD

IISTEPLIB
IISYSLIB

II

IISYSUTl

II

1.
2.
3.
4.
5.

DD

MBR=,PAGES=60,SOUT=A
PGM=IKFCBLOO,PARM='SIZE=130K,BUF=10K,LlNECNT=50'REGlON=150K
DSN=&&LlN,DISP=(MOD,PASS),UNlT=SYSDA,
DCB=(LRECL=80,RECFM=FB,BLKSlZE=400),
SPACE=(CYL, (4,1) ,RLSE)
SYSOUT=&SOUT,DCB=(LRECL=121,BLKSlZE=605,RECFM=FBA) ,
SPACE=(605,(&PAGES.0,&PAGES) ,RLSE"ROUND)
UNlT=SYSDA,DlSP=(,DELETE),SPACE=(CYL, (10,1),RLSE)
UNlT=SYSDA,DlSP=(,DELETE),SPACE=(CYL, (10,1) ,RLSE)
UNlT=SYSDA,DlSP=(,DELETE),SPACE=(CYL,(10,1) ,RLSE)
UNlT=SYSDA,DlSP=(,DELETE),SPACE=(CYL, (10,1) ,RLSE)
PGM=DFSILNKO,REGlON=120K,PARM='IREF,LET,LlST',
COND= (4, LT ,C)
DSN=lMS2.RESLlB,DlSP=SHR
DSN=SYS1.COBLlB,DlSP=SHR
DSN=SYS1.PL1LlB,DlSP=SHR
DSN=lMS2.RESLlB,DlSP=SHR
DSN=&&LlN,DlSP=(OLD,DELETE),VOL=REF=*.C.SYSLlN
DSN=IMS2.PROCLIB(CBLTDLI),DISP=SHR
DDNAME=SYSIN
DSN=IMS2.PGMLIB(&MBR),DlSP=SHR
SYSOUT=&SOUT,DCB=(RECFM=FBA,LRECL=121,BLKSIZE=605) ,
SPACE=(605, (&PAGES.O,&PAGES) ,RLSE"ROUND)
UNlT=(SYSDA,SEP=(SYSLMOD,SYSLIN» ,DlSP=(,DELETE),
SPACE= (CYL, (10,1) ,RLSE)

User supplies source data from SYSlN
Output Class A
MBR=NAME, when name is load module name for
SYSDA is generic device name
RESLlB cataloged.

prog~am

IIMESSAGE JOB 1,IMS,MSGLEVEL=1,PRTY=11,CLASS=A,MSGCLASS=3,REGlON=30K
EXEC
PGM=DFSRRCOO,REGION=30K,TlME=1440,
IIREGlON
PARM='MSG,001000000000'
II
DSN=IMS2.RESLlB,DISP=SHR
IISTEPLlB DD
DSN=IMS2.PGMLIB,DISP=SHR
II
DD
IISYSUDUMP DD
SYSOUT=3,DCB=(LRECL=125,BLKSIZE=3219,RECFM=VBA) ,
SPACE=(125, (2500,100) ,RLSE"ROUND)
II
EIPC CARD PARAMETERS FOR THE IMSMSG PROCEDURE
PARM=
'MSG,AAAAAAAAAAAA,BCDEFFGGG'
MSG=
a required positional parameter indicating a message region
is to be started.

3.109

AAAAAAAAAAAA=
a required positional parameter specifying 4 three-digit decimal
numbers indicating which classes of messages will be handled
by this·message.region. That is, if classes 1, 2, and 3 are
to be processed by ·this region, the PARM field would be specified
as PARM='MSG,001002003000'
The sequence of specifying the classes determines relative class
priority within the message region. In the above example, all
Class 1 messages are selected for scheduling before any Class
2 messages would be considered. Class numbers can not be greater
than the maximum number of classes specified at system definition
time.
B=
action to be taken if the message region starts and no control
region is active.
W - wait for control program to start
N - ask operator for decision- ·this is the default
C - cancel message region automatically

c=
overlay supervisor option.
o - allow as to load and delete the overlay supervisor for
every overlay application program
this is the default
1 - load and retain a copy of the overlay supervisor at
message region initialization time
D=

SPIE option.
o - allow user SPIE, if any, to remain in effect while
processing the application program call
1 - negate the user's SPIE while processing the application
program call. Negated SPIEs are reinstated before
returning to the application program.
SPIE macros issued by the application program are only
effect'ive for program checks which occur within the message
region.
E=

validity check option
o - no address validity checking will be made.
1 - validity check the addresses in the user's call list.
FF=

termination limit option. A decimal number between 1 and 99.
When the number of application program ABENDs reaches this limit
the message region will be automatically terminated. This will
allow OS to print the accumulated .SYSOUT data sets. Default
value is 1.
GGG=
number of 1K blocks of subpool 253 to be reserved to hold a
copy of the user's PCBs. If this value is not specified, the
system will reserve an area which can hold the PCBs for any
application program in the system. This parameter applies only

3. 110

to OS/VS systems and must be a three-digit number (for example,
001) •
Notg: The output from the ACB utility program DFSUACBO will
specify application program PCB sizes.
~E~]]~ ]!~] IM~~11

II
IIC
II

IISYSUT1

II

PROC
EXEC
DD

IISYSUT3

DD

II
IISYSPRINT
II

DD

IISYSLIN

II

IlL

DD
EXEC

II

DD
DD
DD
II
IIRESLIB DD
DD
IISYSLIN
DD
II
DD
II
IISYSLriOD DD
IISYSPRINT DD

IISTEPLIB
IISYSLIB

II

IISYSUT1

DD

MBR=,PAGES=50,SOUT=A
PGM=IEMAA,REGION=114K,
PARM='XREF,ATR,LOAD,NODECK,NOMACRO"OPT=1'
UNIT=SYSDA,SPACE= (1024, (60,60) , RLSE" ROUND) ,
DCB=BLKSIZE=1024,DISP=(,DELETE)
UNIT=SYSDA,SPACE=(1024,(60,60) ,RLSE"ROUND),
DCB=BLKSIZE=1024,DISP=(,DELETE)
SYSOUT=&SQUT,DCB=(LRECL=125,BLKSIZE=629,RECFM=VBA) ,
SPACE=(605, (&PAGES.O,&PAGES) ,RLSE)
UNIT=SYSDA,SPACE=(80, (250,80) ,RLSE) ,DCB=BLKSIZE=80,
DISP= (,PASS)
PGM=DFSILNKO,PARM='XREF,LIST,LET',COND=(4,LT,C) ,
REGION= 120K
DSN=IMS2.RESLIB,DISP=SHR
DSN=SYS1.PL1LIB,DISP=SHR
DSN=SYS1.COBLIB,DISP=SHR
DSN=IMS2.RESLIB,DISP=SHR
DSN=*.C.SYSLIN,DISP=(OLD,DELETE)
DSN=IMS2.PROCLIB(PLITDLI) ,DISP=SHR
DDNAME=SYSIN
DSN=IMS2.PGMLIB(&MBR) ,DISP=SHR
SYSOUT=&SOUT,DCB=(LRECL=121,RECFM=FBA,BLKSIZE=605) ,
SPACE= (605, (&PAGES. 0, &PAGES) , RLSE)
UNIT=SYSDA,DISP=(,DELETE),SPACE=(CYL, (5,1) ,RLSE)

Same assumptions as IMSCOBOL

3. 111

1m1rn~R

!!ME

II
IIC
II

I/SYSUT1

II
IISYSUT3
II

!~PLI!m

PROC
EXEC
DD
DD

IISYSPRINT DD

II

IISYSLIN

DD

II
IlL
II

EXEC

II
I/SYSUT1
IIG
II

DD
EXEC

DD
DD
DD
II
DD
IIRESLIB
DD
IISYSLIN
DD
II
DD
II
IISYSLMOD DD
IISYSPRINT DD

IISTEPLIB
IISYSLIB

IISTEPLIB

II
IIIMS
II

I/IEFRDER

DD
DD
DD
DD
DD

II

IISYSPRINT DD

II

IISYSUDUMP DD

II

MBR=,PAGES=50,SOUT=A,PSB=,SPIE=0,TEST=0,BUF=0
PG!!=IEMAA,REGION=114K, ,
PARM='XREF,ATR,LOAD,NODECK,NOMACRO"OPT=l'
UNIT=SYSDA,SPACE=(1024,(60,60),RLSE"ROUND),
DCB=BLKSIZE=1024,DISP=(,DELETE)
UNIT=SYSDA,SPACE=(1024,(60,60) ,RLSE"ROUND),
DCB=BLKSIZE=1024,DISP=(,DELETE)
,
space=(605, (&PAGES.O,&PAGES) ,RLSE)
UNIT=SYSDA,SPACE=(80,(250,80),RLSE),DCB=BLKSIZE=80,
DISP= (,PASS)
'PGM=DFSILNKO, PARM='XREF,LIST,LET' ,COND= (4,LT,C),
REGION=120K
DSN=IMS2.RESLIB,DISP=SHR
DSN=SYS1.PL1LIB,DISP=SHR
DSN=SYS1.COBLIB,DISP=SHR
DSN=IMS2.RESLIB,DISP=SHR
DSN=*.C.SYSLIN,DISP=(OLD,DELETE)
DSN=IMS2.PROCLIB(PLITDLI) ,DISP=SHR
DDNAME=SYSIN
DSN=IMS2.PGMLIB(5MBR) ,DISP=SHR
SYSOUT=&SOUT,DCB=(LRECL=121,RECFM=FBA,BLKSIZE=605) ,
SPACE= (605, (5PAGES. 0, &PAGES) , RLSE)
UNIT=SYSDA,DISP=(,DELETE),SPACE=(CYL,(5,1) ,RLSE)
PGM=DFSRRCOO,REGION=150K,TIME=5,COND=(4,LT) ,
PARM='DLI,&MBR,&PSB,&BUF,&SPIE&TEST'
DSN=IMS2.RESLIB,DISP=SHR
DSN=IMS2.PGMLIB,DISP=SHR
DSN=IMS2.PSBLIB,DISP=SHR
DSN=IMS2.DBDLIB,DISP=SHR
DSN=IMSLOG,DISP=(,KEEP),VOL=(",99) ,UNIT={2400"DEFER),
DCB=(RECFM=VBS,BLKSIZE=1408,LRECL=1400,BUFNO=1)
SYSOUT=&SOUT,DCB=(LRECL=121,BLKSIZE=605,RECFM=FBA) ,
SPACE=(605, (500,500),RLSE"ROUND)
SYSOUT=&SOUT,DCB=(LRECL=121,BLKSIZE=605,RECFM=FBA) ,
SPACE=(605,(500,500) ,RLSE"ROUND)
SYSOUT=&SO~T,DCB-(LRECL=125,BLKSIZE=629,RECFM=VBA)

Same assumptions as IMSCOBGO,
except execution time of 5 minutes specified

3. 112

II
IIIEFPROC
II
II

11*
11*
11*
11*
11*
11*
11*
11*
11*
11*
11*
11*
11*

PROC
EXEC

B

PP
TTT
000

MMM
III
CCC
R
L

SSSSSSSS

IIIEFRDER
IIIE.FPDSI

II

IIIEFDATA

IISPRTn
IIPRINT
IISTEPLIB
IISYSPRINT
IISYSUDUMP

IISPOOLn

II
IIDUMP

DEFINED PROGRAMMER·NAME & ACCT NBR NOT NEEDED
PRlORITY=01
JOB STEP INTERVAL=30 MINUTES
PRIMARY SYSOUT SPACE=50 TRACKS
SECONDARY SYSOUT SPACE=10 TRACKS
READER/INTERPRETER DISPATCHING PRIORITY=249
JOB STEP DEFAULT REGION=52K
DISPLAY & EXECUTE COMMANDS=1
BYPASS LABEL=O
SYSOUT UNIT NAME=SYSDA

DD
DD
DD
DD

DSN=IMS2.PROCLIB(&MBR) ,DISP=SHR,DCB=BUFNO=1
DSN=IMS2.PROCLIB,DISP=SHR
PROCEDURE LIBRARY
DSN=SYS1.PROCLIB,DISP=SHR
UNIT=SYSDA,
SPOOL DEVICE
SPACE= (SO, (500,500) ,RLSE,CONTIG),
AMOUNT
DCB=(BUFNO=2,LRECL=SO,BLKSIZE=SO,RECFM=FB,BUFL=SO

JOB
EXEC
DD
DD
DD .
DD

1,IMS,CLASS=A,MSGCLASS=3,MSGLEVEL=1
PGM=DFSUPRTO,REGION=30K
DSN=lMS2.RESLIB,DISP=SHR
SYSOUT=3,DCB=BLKSIZE=1410
SYSOUT=3
DSN=lI1S2.SYSOn,DlSP=SHR

II
II

NQig:

MBR=IMSMSG
PGM=IEFIRC,
READER FIRST LOAD
REGION=4SK
READER BASIC REGION
PARM='00103005001024905210SYSDA
DEFAULT PARM FLD
BPPTTTOOOMMMIIICCCRLSSSSSSSS

IMSWTnnn member(s) job class and message class are determined
by the MAXREGN keyword specification on the IMSCTRL macro
statement at System Definition time.

PROC
EXEC
IISTEPLIB DD
DD
II
DD
IllMS
DD
II
IISYSUDUMP DD
IIDI21PART DD
IIDI21PARO DD
DD
IIOUTPUT

SOUT=A
PGM=DFSRRCOO,PARM='DLI,DFSSAMOS',REGION=130K
DSN=IMS2.RESLIB,DISP=SHR
DSN=IMS2.PGMLlB,DISP=SHR
DSN=IMS2.PSBLIB,DISP=SHR
DSN=IMS2.DBDLIB,DISP=SHR
SYSOUT=&SOUT
DSN=IMS2.DI21PART,DISP=SHR
DSN=IMS2.DI21PARO,DISP=SHR
SYSOUT=&SOUT

3.113

PROC
EXEC
DD
DD
//
DD
//IMS
DD
//
//SYSUDUMP DD
//DI21PART DD
//
//LOAD
//STEPLIB

//

//DI21PARO DD
//
DD
//SYSOUT
DD
//INPUT
k!~11l!~!!

.NAME

//
//C
//SYSLIB
//SYSGO
//
//SYSPRINT
//
//SYSUTl
//SYSUT2
//SYSUT3
//
//L
//STEPLIB
//SYSLIN
//SYSPRINT
//
//SYSLMOD
//SYSUTl
//

3.114

SOUT=A
PGM=DFSRRCOO,PARM='DLI,DFSSAM01',REGION=130K
DSN=IMS2.RESLIB,DISP=SHR
DSN=IMS2.PGMLIB,DISP=SHR
DSN=IMS2.PSBLIB,DISP=SHR
DSN=IMS2.DBDLIB,DISP=SHR
SYSOUT=&SOUT
DSN=IMS2.DI21PART(PRIME),DISP=(,KEEm ;DCB=DSORG=IS,
SPACE=(CYL,3"CONTIG) ,VOL=SER=&PSER,UNIT=&PUNIT
DSN=IMS2.DI21PARO,DISP=(,KEEm,SPACE=(CYL,3"CONTIG) ,
VOL=SFR=&OSER,UNIT=&OUNIT
SYSOUT=&SOUT
DSN=:=IMS2. GENLIB (MFDFSYSN) ,DISP=SHR

g~l!QEN

PROC
EXEC
DD
DD
DD
DD
DD
DD
EXEC
DD
DD
DD
DD
DD

MBR=TEMPNAME,SOUT=A
PGM=IEUASM,REGION=120K,PARM='LOAD,NODECK'
DSN=IMS2.MACLIB,DISP=SHR
UNIT=SYSDA,DISP= (,PASS) ,SPACE= (80, (100,100) ,RLSE).,
DCB=(BLKSIZE=400,RECFM=FB,LRECL=80)
SYSOUT=&SOUT,DCB=(LRECL=121,RECFM=FBM,BLKSIZE=605) ,
SPACE=(121, (500,500) ,RLSE"ROUND)
UNIT=SYSDA, DI SP= (, DELETE) ,SPACE= (1700, (100,50) )
UNIT=S YSDA, DISP= (, DELETE) , SPACE= (1700, (100,50) )
UNIT= (SYSDA, SEP= (SYSLIB, SYSUT 1, SYSUT2) ) ,
SPACE= (1700, (100,50»
PGM=DFSILNKO,PARM='XREF,LIST',COND=(O,LT,C) ,REGION=120K
DSN=IMS2.RESLIB,DISP=SHR
DSN=*.C.SYSGO,DISP=(OLD,DELETE)
SYSOUT=&SOUT,DCB=(LRECL=121,RECFM=FBA,BLKSIZE=605) ,
SPACE= (121, (100,100) , RLSE)
DSN=IMS2. PSBLIB (&MBR) ,DISP=SHR
UNIT= (SYSDA ,SEP= (SY SLMOD, SYSLIN» , DISP= (, DELETE) ,
SPACE= (1024, (100,10) ,RLSE)

II

PROC
EXEC
IISTEPLIB DD
IISYSPRINT DD
IISYSPUNCH DD

liS

II

IISYSLIN

DD

IISYSUT1

DD

II
II

IISYSUT2

DD

II
IISYSIN
IIC

DD
EXEC

I/SYSPRINT DD
DD
IISYSGO

II

DD
DD
DD
DD
EXEC
IlL
IISTEPLIB DD
/ISYSPRINT DD
I/SYSLMOD DD
DD
IIINPUT
DD
IISYSUT1
DD
IISYSLIN
I/SYSUT1
IISYSUT2
IISYSUT3
IISYSIN

OPTN=UPDATE,IMS=',O',SOUT=A
PGM=DFSISMPO,PARM='&OPTN.&IMS.'
DSN=IMS2.RESLIB,DISP=SHR
SYSOUT=&SOUT,DCB=(RECFM=VBA,BLKSIZE=400,BUFL=404)
UNIT=SYSDA,SPACE=(80,(800,400)",ROUND),
DCB=(RECFM=FB,LRECL=80,BLKSIZE=400) ,DISP=(,PASS)
UNIT=SYSDA,SPACE=(TRK, (1,1» ,DCB=(RECFM=F,BLKSIZE=80),
DISP= (, PASS)
UNIT=SYSDA,SPACE= (100, (400,400) " , ROUND) ,
DCB=(BLKSIZE=500,RECFM=FB)
UNIT= (SYSDA, SEP=SYSUT 1) , SPACE= (100, (400,400) ",ROUND) ,
DCB=*.S.SYSUT1
DSN=PO.SYSIN.DD.ASTERISK
PGM=IEUASM,PARM='LOAD,NODECK',COND=(12,LT,S) ,
REGION=96K
SYSOUT=&SOUT,DCB=(RECFM=FBM,LRECL=121,BLKSIZE=60~

UNIT=(SYSDA,SEP=SYSPRINT),DISP=(,PASS) ,
DCB=*.S.SYSPUNCH,SPACE=(80,(400,400)",ROUND)
UNIT=SYSDA,SPACE= (CYL, (5,1»
UNIT=SYSDA,SPACE= (CYt, (5, 1) )
UNIT=(SYSDA,SEP=(SYSUT1,SYSUT2» ,SPACE=(CYL, (5,1»
DSN=*.S.SYSPUNCH,DISP=(OLD,DELETE)
PGM=DFSILNKO,PARM='XREF,NE,OL',REGION=110K,COND=(4,LT,S)
DSN=IMS2.RESLIB,DISP=SHR
SYSOUT=&SOUT,DCB=(RECFM=FBA,LRECL=121,BLKSIZE=60~

DSN=IMS2.RESLIB,DISP=SHR
DSN=*.~.SYSGO,DISP=(OLD,DELETE)

UNIT= (SYSDA,SEP=INPUT) ,SPACE= (CYL, (5,1»
DSN=*.S.SYSLIN,DISP=(OLD,DELETE)

3. 115

II
IISIA
IISTEPLIB
IISYSUT1
IISYSPRINT
IISYSPUNCH
IISIB
II
IISTEPLIB
I/IMS
II
IISYSPRINT
/ISYSPUNCH
IIQFF
IIQFFOVF
IISYSUT1

PROC
EXEC
DD
DD
DD
DD
EXEC
DD
DD
DD
DD
DD
DD
DD
DD

SOUT=A,SPCH=B,IMSREG=DLI
PGM=DMGSI1,BEGION=120K
DSN=IMS2.RESLIB,DISP=SHR
UNIT=SYSDA,DISP=(,PASS),SPACE=(TRK, (24,11»
SYSOUT=&SOUT
SYSOUT=&SPCH
PGM=DFSRRCOO,PARM='&IMSREG,DMGSI2,DMGSIB',REGION=150K,
COND= (0, LT)
DSN=IMS2.RESLIB,DISP=SHR
DSN=IMS2.PSBLIB,DISP=SHR
DSN=IMS2.DBDLIB,DISP=SHR
SYSOUT=&SOUT
SYSOUT=&SPCH
DSN=IQFIFFDB,DISP=SHR
DSN=IQFOFFDB,DISP=SHR
DSN=*.SIA.SYSUT1~DISP=(OLD,DELETE)

1.

User supplies source data for SYSIN.

2.

SYSUTl is a BSAM work data set.

3.

output Class A is used for listing.

4.
5.

output Class B is used by DMGSI1 and DMGSI2 (stage I)
job steps in the stage II as job stream

to produce

User defines IMS region type (Batch or Batch-Message) in PARM field
of EXEC statement for executirig the procedure.
(Not required at
initial cre~tion time.)
The SIB step is bypassed when the IQFUT procedure is executed
to create the System Data Base.

3. 116

*

J1EMBEJ!

l!AM~

lQFFC

PROC
EXEC
IISTEPLlB DD
DD
IllMS
DD
II
IISYSPRlNT DD
DD
IISYSOUT
IIUTPRINT DD
DD
IIUTDBD
DD
IIUTSPL
IISORTLIB DD
DD
IISSYNIN

I/IQFFC

IIFC1

II
II
IISSYNOUT
II
II
IISPCBIN
II
II
IISPCBOUT
II
II
I/SWRKIN
II
II
IISWRKOUT
II
II

IISPCBWK01
I/SPCBWK02
IISPCBWK03
IISPCBWK04
IISPCBWK05
IISPCBWK06
IISSYNWK01
IISSYNWK02
IISSYNWK03
IISSYNWK04
IISSYNWK05
IISSYNWK06
IISWRKWK01
IISWRKWK02
IISWRKWK03
IISWRKWK04
IISWRKWK05
IISWRKWK06

DD
DD
DD
DD
DD
DD
DD
DD
DD
DD
DD
DD
DD
DD
OD
OD
DD
DD
DD
DD
DD
DD
DD

PGM=DFSRRCOO,PARM='DLI,DMGFC1,DMGFC1',REGION=200K
DSN=IMS2.RESLIB,DISP=SHR
DSNAME=IMS2.PSBLIB,DlSP=SHR
DSNAME=IMS2.DBDLIB,DISP=SHR
SYSOUT=A
SYSOUT=A
SYSOUT=A
UNIT=SYSDA,DSN=UTDBD,DISP=(NEW,DELETE) ,SPACE=(CYL. (1,1»
UNlT=SYSDA,DSN=UTSPL,DISP=(NEW,DELETE) ,SPACE=(CYL, (1,1»
DSN=SYS1.S0RTLIB,DISP=SHR
DISP=(NEW,DELETE),SPACE=(CYL, (1,1»,UNIT=SYSDA,
DCB=(BLKSlZE=1040,LRECL=52,DSORG=PS,RECFM=FB),
DSN=SSYNlN
DISP=(NEW,DELETE),SPACE=(CYL, (l,l»,UNIT=SYSDA,
DCB=(BLKSIZE=1040,LRECL=52,DSORG=PS,RECFM=FB),
DSN=SSYNOUT
DISP=(NEW,DELETE),SPACE=(CYL, (1,1»,UNIT=SYSDA,
DCB=(BLKSIZE=880,LRECL=44,DSORG=PS,RECFM=FB),
DSN=SPCBIN
DISP=(NEW,DELETE),SPACE=(CYL,(l,l»,UNIT=SYSDA,
DCB=(BLKSIZE=880,LRECL=44,DSORG=PS,RECFM=FB),
DSN=SPCBOUT
DISP=(NEW,DELETE),SPACE=(CYL,(1,1»,UNIT=SYSDA,
DCB=(BLKSlZE=1920,LRECL=96,DSORG=PS,RECFM=FB) ,
DSN=SWRKlN
DISP=(NEW,DELETE),SPACE=(CYL,(l,l»,UNIT=SYSDA,
DCB=(BLKSIZE=1920,LRECL=96,DSORG=PS,RECFM=FB),
DSN=SWRKOUT
UNIT=SYSDA,SPACE=(TRK, (5)"CONTIG)
UNIT=SYSDA,SPACE=(TRK, (5) "CONTIG)
UNlT=SYSDA,SPACE=(TRK, (5)"CONTIG)
UNIT=SYSDA,SPACE=(TRK, (?)"CONTIG)
UNIT=SYSOA,SPACE=(TRK, (5)"CONTIG)
UNIT=SYSDA,SPACE=(TRK, (5) ,~CONTIG)
UNIT=SYSDA,SPACE=(TRK, (5) "CONTIG)
UNIT=SYSDA,SPACE=(TRK, (5)"CONTIG)
UNIT=SYSD~,SPACE=(TRK, (5) "CONTIG)
UNIT=SYSDA~SPACE=(TRK, (5) ,.CONTIG)
UNIT=SYSDA,SPACE=(TRK, (5)"CONTIG)
UNIT=SYSDA,SPACE=(TRK,(5) "CONTIG)
UNIT=SYS.DA,SPACE= (TRK, (5) , ,CONTIG)
UNIT=SYSDA,SPACE=(TRK, (5) "CONTIG)
UNIT=SYSDA,SPACE=(TRK, (5)"CONTIG)
UNIT=SYSDA,SPACE=(TRK,(5) "CONTIG)
UNIT=SYSDA,SPACE=(TRK, (5) "CONTIG)
UNIT=SYSDA,SPACE=(TRK, (5)"CONTIG)

1. The DMGSl1 program (stage I, Part 1)
set groups at initial creation time.

provid~s

JCL to allocate data

3. 117

*
*
*
*
*

*
*
*
*

*
*

*

Mem!!g!: It§:me IOFIQ

IIIQFIU
IIIU1
IISTEPLIB
IIIMS
II
II
IIQFF
IIQFFOVF
IIQXS1
IIQXS10V
IIQXL1
IIQXL10V
/IHOLDS
I/HOLDL
/IIEFRDER
IISYSPRlNT
IISYSOUT
IIIU2
II
IISTEPLIB
IllMS
II
II
IIQFF
I/QFFOVF
IIIEFRDER
IISYSPRINT
IISYSOUT
IISORTLIB
IISHRTIN
II
IISHRTOUT
II
IISHRTWK01
IISHRTWK02
//SHRTWK03
I,/.LONGIN
II
IILONGOUT
II
IILONGWK01
IILONGWK02
I/LONGWK03
IIIU3
II
IISTEPLIB
IIIMS
II
II
I/QFF
/IQFFOVF
IIQXS1
IIQXS10V
IIQXL1
/IQXL10V
/IHOLDS
IIHOLDL
IISYSPRINT
/ISYSOUT

PROC
EXEC
DD
DD
DD
DD
DD
DD
DD
DD
DD
DD
DD
DD
DD
DD
DD
EXEC
DD
DD
DD
DD
DD
DD
DD
DD
DD
DD
DD
DD
DD
DD
DD
DD
DD
DD
DD
DD
EXEC
DD
DD
DD
DD
DD
DD
DD
DD
DD
DD
DD
DD
DD
DD

SOUT=A,IMSREG=DLI,DISPS=OLD,SSTLB=516,LSTLB=516
PGM=DFSRRCOO,PARM='&IMSREG,DMGIU1,DMGIU1',REGION=200K
DSN=IMS2.RESLIB,DISP=SHR
DSN=*.QUS2X1.L.SYSLMOD,DISP=(OLD,PASS)
DSN=lMS2.PSBLIB,DISP=SHR
DSN=IMS2.DBDLIB«DISP=SHR
DSN=IQFIFFDB,DISP=SHR
DSN=IQFOFFDB,DISP=SHR
DSN=IQFXS1DB,DISP=&DISPS
DSN=IQFXOVS1,DISP=&DISPS
DSN=IQFXL1DB,DISP=&DISPS
DSN=IQFXOVL1,DISP=&DISPS
UNIT=SYSDA,SPACE= (CYL, (1,1» ,DISP= (, PASS)
UNIT=SYSDA,SPACE= (CYL, (1,1) ) , DISP= (, PASS)
DUMMY
SYSOUT=&SOUT
SYSOUT=&SOUT
PGM=DFSRRCOO,PARM='&IMSREG~DMGIU3,DMGIU1',REGION=200K,

COND= (4, LT ,IU 1)
DSN=IMS2.RESLIB,DISP=SHR
'1
DSN=*. QUS2X1.L.SYSLMOD,DISP= (OLD,PASS)
DSN=IMS2.PSBLIB,DISP=SHR
DSN=IMS2.DBDLIB,DISP=SHR
DSN=IQFIFFDB,DISP=SHR
DSN=IQFOFFDB,DISP=SHR
DUMMY
SYSOUT=&SOUT
SYSOUT=&SOUT
DSN=SYS1.S0RTLIB,DISP=SHR
DSN=*.IU1.HOLDS,DISP=(OLD,DELETE) ,
DCB=(BLKSIZE=&SSTLB,LRECL=&SSTLB,RECFM=FB,DSORG=PS)
UNIT=SYSDA,SPACE= (CYL,. (1,1) ) , DISP= (, PASS) ,
DCB=(BLKSIZE=&SSTLB,LRECL=&SSTLB,RECFM=FB,DSORG=PS)
UNIT=SYSDA,SPACE=(TRK, (10) "CONTIG)
UNIT=SYSDA,SPACE=(TRK, (10)"CONTIG)
UNIT=SYSDA,SPACE=(TRK, (10)"CONTIG)
DSN=*.IU1.HOLDL,DISP=(OLD,DELETE),
DCB=(BLKSIZE=&LSTLB,LRECL=&LSTLB,RECFn=FB,DSORG=PS)
UNIT=S YSDA, SPACE= (CYL,. (1,1» , Dlsp= (, PASS) ,
DCB=(BLKSIZE=&LSTLB,LRECL=&LSTLB,RECFM=FB,DSORG=PS)
UNIT=SYSDA,SPACE=(TRK, (10)"CONTIG)
UNIT=SYSDA,SPACE=(TRK, (10) "CONTIG)
UNIT=SYSDA,SPACE=(TRK, (10) "CONTIG)

PGM=DFSRRCOO,PARM='&~MSREG,DMGIU2,DMGIU1',REGION=200K,

COND=«4,LT,IU1) ,(4,LT,IU2»
DSN=IMS2.RESLIB,DISP=SHR
.
DSN=*.QUS2Xl.L.SYSLMOD,DISP=(OLD,DELETE)
DSN=IMS2.PSBLIB,DISP=SHR
DSN=IMS2.DBDLIB,DISP=SHR
DSN=IQFIFFDB,DISP=SHR
DSN=IQFOFFDB,DISP=SHR
DSN=IQFXS 1 DB, DISP=&DISPS
DSN=IQFXOVS1,DISP=&DISPS
DSN=IQFXL1DB,DISP=&DISPS
DSN=IQFXOVL1,DISP=&DISPS
DSN=*.IU2.SHRTOUT,UNIT=SYSDA,DISP=(OLD,DELETE)
DSN=*. IU2.LONGOUT, UNIT=SYSDA ,DISP= (OLD, DELETE)
SYSOUT=&SOUT
SYSOUT=&SOUT

The *.QUS2Xl.L.SYSLMOD data set for the IMS DD card refers back
to the SYSLMOD card in the DMGIU1 PSBGEN step generated by DMGSI2.
3. 118

Prior to executing the lQF utility at lQF/lMS installation time,
the user modifies this procedure to tailor it to his IQF indexing
requirements.
The modifications required are:
,.

Add DD statements to the IU' step for the user's lMS/360 data
bases to be indexed

,!1EMBER NAME CBLTDLI
LIBRARY RESLIB (CBLTDLI) DL/I INTERFACE ENTRY DLITCBL

LIBRARY RESLIB (PLITDLI) DL/I LANGUAGE INTERFACE ENTRY IHESAPD

IMS/360 system definition error conditions are listed in the IMS/360
and Code§ Reference Manual (SH20-0914).

Messagg~

3. "9

SYSTEM DEFINITIQ! EXAMPLES
Two examples of system definition are given, one for a complete
IMS/360 data communication - data base system and the other for a
batch-only IMS/360 data base system.
The data communication - data base example, which includes the
IMS/360 control program region and message processing and batch message
processing regions, assumes the following:
• OS programming system, KVT configuration
• Thirty-four application programs
• Thirty-six transaction codes against those application programs
• Sixteen data bases
• Line groups:
One 2740 nonswitched line group with two lines.
The first line has two 2740 Model 1 terminals.
The second line has two 2740 Model 2 terminals.
One 2740 non-station control line group containing one line
and one terminal
One 3270 remote line group containing one line, one 3275
terminal, and one 3271 control unit supporting five terminals
One local 3270 line group containing one line and two terminals
One local 3270 line group containing one line and one 3286
printer terminal
One 1050 nonswitched line group containing one line and two terminals
One 2260-remote line group containing one line, and two control units,
one 2265 terminal, two 2260 terminals, and one 1053 printer
One 2770 nonswitched line group containing one line and one terminal
One 2980 nonswitched line group containing one line, with one
control unit supporting three terminals
One 2741 nonswitched line group containing one line and one terminal
Two 2741 switched line groups
One 1030 nonswitched line group with one line and two terminals
Four Local SYSOUT line groups
One 7770 line group with two lines
One TWX switched line group
One 2740 switched line group
One 1050 switched line group with one line and one pool with
four subpools

3.120

DATA BASE - DATA COMMUNICATION EXAMPLE
This example illustrates the output from stage 1 of the IMS/360
system definition utility program. The input to stage 1 (that iS r
the control cards) is provided in the output listing followed by a
summary of the Featgroup Specifications r the Application Specifications r
the Communication Specifications r and the Data Set and Data Base
Specifications.
Next is the punch statements in this example followed
by the comments considered warnings.
Figure 7 shows r in summary form r the various transaction codes r
programs r and data bases r including their relationship to each other r
as they exist in the following example of system definition.
Figure 8 shows, in summary form, the teleprocessing relationship
as it exists in the following example of system definition.
DATA BASE!

PROGRAMS

TRANSACTION CODES

,-7---------------------------,

iGGGG!

iHIMAIMOll

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

IHIMAJC031

TUBE

t:=J

U

1--------- ------:1

i~ ~i~--~[co~
'- ______________ J

A

DI31PH02

DFS

1LKMDFSOO 1

LKM

ILKMDFSIOI

SKHI

-+HTASK411

TPPLI

·11-- - - - IIliIMAJCOll

TPPL2

a

U

A

0

A

u

DI41SKOI

A

o
Figure 7.

(Sheet 1 of 2.)
System definition example summary transaction codes, programs, and data bases
3. 121

ENO

IENOOSK 41 I

SKI!

IHITASK411

SKI2

I"ITASK'21

A

0

A

MR4

MR4

MRS

MRS

MR6

MR6

MR7

MR7

MRS

MRS

MR9

MR9

PART

IDFSSAM.21

DH41SK02

U

SKH2

I"BTASm I

A
0
A

DX41SKOl

SKH3

IDHTASWI

U

I

DSPINV

IDFSSAM·JI

r----------- - - - - - - - - - - - - - - - - - - - - : 1
SKDl

I·DTASKoll

A

I

IIL ____________________________
ADDPART I ADDINV I IDLETPARTI IDLETINV Ii

~

IDFss'""'1

DD41SKOl

MRl

MRl

MR2

MR2

U

A
U

CLOSE

IDFSSAH, 5 I

IDISBURSEI

IDFSSAH.ol

DH41TSOl

MR3

Figure 1.

3.122

MR3

I DSPALLI

(Sheet 2 of 2.)
System definition example summary
transaction codesp programs, and data bases

I

IDFS SAH' ,I

tj
tj
tj

t3
A

0

LINE GROUP

LINE

TERMINAL

...

..

....
DDNAME=
DD2740S

...

ADDR = ¢C2

~

~

LOGICAL NAME

..

ADDR = C6

...
*i..L

.....
...

CTRL

c...

,h

!
HOWARD

.....

'--

ADDR = E2

LARRY

'...
~

.....
ADDR = QC3

.....
...

~

......
ADDR = 45

4~

MODEL2

........

....
ADDR = 46

Figure 8.

MODEL 2K

L....

....

(page 1 of 1~ System definition example summary teleprocessing relationship

2740 NON-STATION CONTROL CONFIGURATION .
LINE GROUP

DDNAME=
D2740NSC.

TERMINAL

LINE

......

-...

......

......

..

-

LOGICAL NAME

ADDR = ¢C1

...

~

ADDR = E2

...

T2740NSC

~

Figure 8 (page 2 of 16)

3. 123

3270 REMOTE LINE C0NFIGURATION
CTLUNIT
LINE GROUP
LINE
NONSWITCHED ~
DDNAME= ~ ADDR=OC9
-- H
DD3270R

-

...

TERMINAL
ADDR=4040
UNIT=3275

LOGICAL NAME

~

T3275

... C0MPT=PTRI
T3275P
-

ADDR=Cl
M0DEL=2

--

ADDR=40

ADDR=Cl

~

1'-

~
~

T3270A

T3270B

-

-

ADDR=C2
,

-

-

Figure 8 (page

3.124

3 of 16)

~
~

T3270C

.

ADDR=C3 ~
T3270Pl
UNIT=3284
ADDR=C4 ~ T3270P2
UNIT=3286

3270 LOCAL LINE CONFIGURATION

DDNAME=
DD3270L

-

LOGICAL NAME

TERMINAL

LINE

LINE GROUP

- ADDR=310

...

...

--

-

"

~

ADDR=312

-

-

T3270Ll

-"'"

T3270L2

-

T3270P3

.....

....

~

3270 LOCAL LINE CONFIGURATION
LINE

LINE GROUP
DDNAME=
DD3270L2 """"-

Figure 8

(page

...

.
-

.....

TERMINAL
ADDR=311
UNIT=3286

...

4 of 16 )

3.125

1050 NONSWITCHED LINE ~ CONFIGURATION

OONAME=
001050

.....

LOGICAL NAME

TERMINAL

LINE

LINE GROUP

..

-..
AOOR=r/JCf/J

~

....

~

~

L...--

AOOR = E2
COMPT= PTR1

AOOR = E4
FEAT = 1052
COMPT=
(PTR1, PTR2)

.....
c..

"'"

.

PRINTER1
COMPT= PTR1

...

.."'"

PRINTER2
COMPT= PTR1

A~

~
L...--

PRINTER3
COMPT= PTR2

Figure 8 (page 5, of 16)
REMOTE 2260 LINE GROUP CONFIGURATION
,/

LINE GROUP

OONAME=
002260R

LINE

~
~

CONTROL UNIT

TERMINAL

...

-po

AOOR = 4151
UNIT= 2845

AOOR =~E¢
~

""'"j~

~

r.--

T2265XCL

r--+

~

AOOR = 40

LOGICAL NAME

"'"

AA

AOOR =AO

+-

4AOOR = A1

f-+

AB

~

~

Figure 8 (page 6 of 16)

3.126

AOOR =A4
UNIT = 1053

r--+
~

ERNE

2770 NONSWITCHED LINE GROUP CONFIGURATION
LINE GROUP

.....

---..
...
DDNAME=
DD2770

....

ADDR = ¢C8

l~

LOGICAL NAME

TERMINAL

LINE

....,

ADDR = C1
COMPT=
(PTR, VIDEO,
CARD)

......
....
~

T2770P
COMPT = 1
~~

~
~

T2770V
COMPT= 2

~

..-

T2770C
COMPT= 3

Figure 8 (page 7 of 16)

3.127

MULTIPOINT 2980 LINE GROUP CONFIGURATION
LINE GROUP

DDNAME =

002980

LINE

CONTROL UNIT

ADDR ='/JCA
ADDR = Cl

TERMINAL

ADDR =40
MODEL 1

ADDR = Fl
MODEL 2

ADDR = F4
MODEL 4

Figure 8 (page B of 16)

3.128

LOGICAL NAME

2141 NONSWrrCHED LINE GROUP CONFIGURATION
LINE GROUP

DDNAME=
002741

LINE

~

·1

TERMINAL

~

ADDR = 097

Figure 8 (page 9 of 16)

·1

LOGICAL NAME

ADDR = 01

14

1

T2741

2741 SWITCHED LINE GROUP CONFIGURATION
LINE GROUP

LINE

,"--_gg_~_f:_1~_=---,I"~-----f1

LOGICAL NAME

TERMINAL

~

ADDR - 050

1

ADDR = 50

r----..,

------~.~!I

~
-

ADDR = 53

~

L _____ J

. .i!r------,

--------

_

GENERATED 'I
LOGICAL
NAME
I

GENERATED I
LOGICAL
I
NAME
I

L ____ -.J

Figure 8 (page 10 of 16)
1030 LINE GROUP CONFIGURATION
TERMINAL

LINE

LINE GROUP

....

......

_

DDNAME=
001030

.........

ADDR=0E1
JI6.

"'

,j"
L...--

LOGICAL

NA~~E

......
ADDR =64
UNIT = 1033

...
...

~

ADDR = 64

T1033A

r+

I
T1033B

Figure 8 (page 11 of 16)

)
3. 129

LOCAL SYSOUT LINE GROUP

CONFIGURATIONS

LINE GROUP

LINE

~

~$~'1~~
'--____
...
=

~_ ADDR =

~Bl ~
.~
1

..1 - - - - - 1

'- _~_$_SN_pA_R~_~_= ~------f1 ADDB=~B21
__

DDNAME=
(SYS1, SYS2,
SYS3, SYS4)

......
'

....

LOGICAL NAME

TERMINAL

~._.______~

r--~---'

---~

I

......

PREVIOUS

I

·1. . _____;----:__

P_R_T_S_Y_S_ _

....

...

BUFSIZE = 880

I

--L~3~L~~J

--...

....

REFERSTO

FEAT =
AUTOSCH

SPl

L....

,.

H-

I
SP2

Figure 8 (page 12 of 16)

(
'.

3.130

1770 LINE GROUP CONFIGURATION
LINE GROUP

DDNAME=
ARUDDGP1
OUTTBL=
OUT7770

TERMINAL

LINE

----l
....r -GENERATED
I

....

......
ADDR = ¢F~

........

LOGICAL NAME

ADDR = C1
.....

...-

....1

I

....

....

I

LOGICAL
NAME

I _____
L

I

-.J

.4~

....

.......1r------,

...

h.

po

ADDR = C4

ADDR = cJF3

...

I...

:

GENERATED I
LOGICAL
1
NAME
I

!L _____ ...l

...

~

Figure 8 (page 13 of 16)
TWX LINE GROUP CONFIGURATION
LINE

LINE GROUP

TERMINAL

. .---.-;1
~

LOGICAL NAME

r----'

ADDR = E2

..

~

GENERATED
LOGICAL
NAME

L _____

I
I

J

Figure 8 (page 14 of 16)
2740 SWITCHED LINE GROUP CONFIGURATION
LINE GROUP

I

gg~~~~ ~
=

LINE

~

LOGICAL NAME

TERMINAL

l ---

I------i

-l

I GENERATED

ADDR

=061

ADDR = E2

I

I LOGICAL
I
1--_ _ _---11
NAME
I
L _____ J

Figure 8 (page 15 of 16)

3.131

1050 SWITCHED LINE GROUP CONFIGURATION
LINE GROUP

LINE

LOGICAL NAME

TERMINAL

I -- -

t - - - -______

DDNAME=
DD1050A

I
IL _______ _

I
ADDR = 060

POOL

ADDR = E2

SUBPOOL

SUBPOOL

SUBPOOL

SUBPOOL

Figure 8 (page 16 of 16)

3.132

__- - - -.....1

--1

GENERATED

~~~I~AL

I
I

____ -.J

SYSTEK DEFINITION EXAMPLE
This example illustrates the output from stage
of IKS/360 ?ystem
definition.
The input to stage 1 (that is, the control cards) 1S
provided in the output listing as is a summary of the Data Communication
and Data Base specifications, followed by the punch statements and
warning comments at the end.

PAGE
LOC

UBJeCT CODE

ADDRI ADDR2

STMT

SOU~CE

. . ... . . . ..
... .
... .......... .. .......•
...
F010CT71

STATEMCNT

... ...

...

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

...

...

...

...

...

... ...

...

SAMPLE SYSTEM DEFINITION FUR IMS VERS ION 2.3

...

...

..,..
.,.,.,.,
..,

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

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

10/02/72

... ... ...

...

...

IM!iCTRL SYS TEM"I HVT ,ALL I, MAKREGk"15, 3CK. A. 3 I,
HC S-13, DE:SC-2, HAXCLAS=5
9

,

Ie
11
13

14
1~

16
16
19
21

,

2~

THE NUMBER UF CUNCURRENTLY OPERATING
SUBTASKS WILL BE OPTIMIZED TO EQUAL THE
NUMBER UF SPECIFIED COMMUNICATION LINES
DIVIDED BY TWO.
5 TRANSACTION CODE
CL ASSES WILL BE SUPPORTED •

IMSCTF SVCND=1234,248,2131,APNDGa(Z5,Z6I,
CPLCG=25CC., CO~E= ( ,20CO 1

23 ...
24 •
25 •
27
28

ALL IHS SYSTEM FUNCTIONS ARE SELECTED
FOR A I4VT OS PROGRAMMING SYSTEM •
5 REGIONS MAY OPE:RATE SIMULTANEOUSLY.

C

DEFINE SYSTEM 8UFFfRS ANO OATA SETS
SPAHEA CORE=(3,ICGI,DASn=(6,1501
BUfPCOLS PSd=80uC.,OMB=lCO)O,DBASE"11000,GENERAL=5CCO
HSGQUEUE DSETS=2314
PAGE

LOC

OBJECT C II<
157 ...
158 ...

6

181
182
183
184
IB5
186

LINEGRP DCNAME=DD327CL,UNITYPE=(3270,LOCALI
LINE
BUFSIIE=300
TERMINAL AIlCR"'310,FEAT=2
NAME
T327CLl
TERMINAL AIlDR=312,~EAT=ll"PFK,CARD,PENI
NAME
T327CL 2

188
IB9
19C
191

LINEGkP IlDNAME=DD3270L2,UNITYPE-(3270,LOCALI
LINE
TERMINAL ADDR=311 ,FE AT=2 ,UNIT =3286
NAME
T3210P 3·

00146260
0:ll46270
00146280
00146290
00146300
(,,0146310
00146318
00146325
OC146~30

PAGE
LOC

OBJECT CODE

ADCRI ADDR2

STMT
193 ...
194 ...
195 ...

II<

197
198
199
200
201
202
203
205 ...
20b
2e7

OBJEC T CODE

ADCRI ADOR2

STMT

LI NE
TERM I NAL
NAME
TERM INAL·
NA"-E
NAME

LINfGRP
Llt.E
TERIoIINAL
NAME
CTlUt.IT
TERMINAL
NAME
TERMlt.AL
NAME
TEkMINAL
NAME

229
230

238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253

UDNAME=DD226~R,UNITYPE~22bO

ADDR=U EO
ADDK=4151, F EAT= (2265,2 ,WLA I ,UN 1T=2845
T2265XCL
ADDR=4C ,~L A; I YES, 10 !l31 ,MODEL=3
ADDR=AO
AA
ADDR= Al
AS
ACDR=A4,UNIT=1053
ERNE

FOI0CT71

...

L INEGRP
LINE
TERMINAL
NAME
/\AME
NAIoIE

228

237

II<

...

PAGE
10102/72

...

277C Llr-.E GROUP

227

236

...

*

225

234 ...

DDNAME=DDIC50.UNITYPE=105(
ADDR=OCO
AllDR= E2. FEAT= 10 52 ,COMPT= PTR 1
PRINTERl,COMPT=PTRl
ADDR=E4 ,FEA T= 1052,C OMPT= I PTRl, PTR21
PRINTER2,COMPT=PTRl
PRINTER3,CUMPT=PTR2

SCURCE STATEMENT

...

lu/02l72

...

LINE Gt{OUP ...

...

...

a6

233 ...

...

...
...
...
...
...
... REMOTE 22bv LINE GROUP

221 ...
222 ...
223 ...

232 ...

...
...
...
NONSw ITCIH:D IG5C
...
...
LINEG~P

209
210
211
212
213
214
215
216
217
218
219

LOC

FOI0CT11

SOURCE STATEMENT

*...

..

..

DD/\AME=DD2770,UNITYPE=2770,CODE=EBCDIC
ADDR=;;C8, fEAT=BUFEXP
ADOR=Cl,FEAT=(.BUFEXPI.COMPT=lPTR,VIDEO,CAROI
T271CP, CUMPT= 1
T2710V, CDMPT=2
T2 710C, COMPT= 3

*

*

*

II<

MULTI-POINT 2980 LINE GROUP ...

...

LINEGRP
DONAME=DD2980,UNITYPE=298C
LINE
AOOR=DCA
CTLUNIT
ADDR=Cl
TERMINAL AODR=40,FEAT=ll,41
NAI'E
HOMERl
NAME
N29801
"'AI'E
A29801
TE:RHINAL ADDI{=Fl,FEAT=2
t\AME
N29802
NAI'E
429802
NAME
COMMON
NAME
HOMER4,CUMPT=COMMON
TERMINAL ADDK=F2,FEAT=l4,21
NAI'E
HElLER
NAI'E
STELLER
NAME
JTELLER
TELLER A WITH SUPERVISOR KEY
t.AME
KTELLER
TELLER B WITH SUPERVISOR KEY
NA"-E
HOMER2

3.135

PAGE
LaC

OBJECT COUE

AOORl AOOR2

STMT
25~

256
257

SOURCE STATEMENT

*
*
*

**

FOI0CT71

2741 *LI~E

9

10/02/72

*

GROUPS

259
26t
261
262

LINEGRP
CONAME=U02741,UNITVPE=2741,COOE-CORRS
II NF
AOOR=\i97
TERMINAL AOUR=~l,fEAT=NOINTRPT
NAME:
T2741

264

LINEGRP

OD~AME=D0274IS,UNITVPE=2741,
CUOE=ICOR~S,EBCOICI,FEAT=SWITCHEO
AOO~=05C

205

LINE
TfRI'INAL AOOI<=50

26t

268

llNfGRP

UDNAME=U02741S2,UNITVPE=2741,

COO~:ICORRS,BCDI,FEAT=SWITCHEO

26<;

LINE
AODR=053
TERMIML ADDR=53

27C·

272
273
274

*

*

*

*

*

1030 LINE GROUP

216

**

DDNAM E=DDh 30 ,UN lTV PE= 1030
LINE
ADOR=OEl,8UFSllE=182
TERMINAL ADUR=64,UNIT=I033
NAME
TI033A

LIN~GRP

271

218 TEHMA
219

280
281

~A"E

1103B

HRMINAL ADOR=64, LH RM= T1033A

PAGE
LOC

OB.JECT CUUE

ADDkl AOOR2

STMT
283
284
21l~

SOURCE STATEMENT

*
*
*

*

*

FOIOCT71

*

LOCAL

L1NEGRP
LINE
TERMINAL

OONAME=SVSRORl,UNITYPE=READER
ADOR=C Bl
LH:fH1: TlCHA

291
292
293
294

LI NI:GRP
LINE
TERMINAL
NAME

OCNAM~= SV SPR Tl ,UNITVPE=PP INTER
ADUR:CB2

29t

LINE:GRP
LINE
TERMINAL

ODNAME=SYSTAPE,UNITVPE=TAPE
AOOR=OB5,BUFSIZE=220

2ge

PRTSYS

299

~A"E

TAPESYS

301
302
303
304

LlNEGRP
LINE
TEkMINAL
I\AME
NAME

UNI TVPE= SPOUL, OONAME= I SY SI, SYS2, SYS3, SYS41

3"5

lr/02/72

* * * *
SVSOUT LINE GROUPS *
*.
*

*

281
28e
289

291

BUFSIZ~=8iH.

FEAT=AuroSCH
SPI
SP2

PAGE
lUC

OIlJECT COUE

AOCRI ADDk2

3(, 7
31; A
3('9 •

**

312
313

314
315

*

*
*

•

329
331

3. 136

ADOR=OF3,~UFSIlE=(5u,2COI,FEAT=(ABC,NnREPEATI

AOOR=C4

*

•

*

*

*

*

*

LINEGRP

CCNAME=OTWX3335,UNITYPf=TWX,FEAT=$WITCHEO
AOOR=C 01
TERM INAL ACDR=E2

~21

331.;

•

ODNAME=ARUOOGPl,UNITYPE=177C,GUTT8L=OUT177C
ADOR=OFO,BUFSIZE=(246,2461,FEAT=IAIlB,REPEATI
ADCR=Cl

• TkX ShITCHED LINE GROUP.

322
323
325
326
321

* SWITCHED
*
*
171C
LINE* GROUP

LINEGRP
LINE
TERMINAL
LINE
TERMINAL

311

311
31B
31<;

FC,10CT71

SOURCE STAHMENT

STMT

LI NE:

*
*
*

*

*

. *..
*

*

*

214(, SW ITCHED LI NE GROUP

L I fliEGRP
LINE

10

TER~I~AL

**

ODf\AME=CD274GA ,UNI TYPE=2140, FE AT= SW I TCHEO

ADO~=061

ADDP=E2

11

10/02112

PAGE
LOC

08JECT CODE

ADDR1 ADDR2

SHIT
333 •
334
335

331
338
339

SOURCE STATEMENT

•
*

359+

*

LI~E

*

08JECT CODE

ADDR1 ADDR2

*

G~OUP

*

DDNAME=OD105DA,UNITYPE=1050,FEAT=SWITCHED
LINE
AOOR a 060
TERMINAL ADOR-E2
POOL
SUIlPODL
,..AME
NAME
NAME
SUBPOCL
J\AI'E
,..AME
SUBPGGL
,..AME
NAME
SUIlPOUL
NA"'E
J\AME
J\AME
NA"'E

ELEANOR
CAROL
S~ARRDN

T2741Nl
T2741N2
T2741N3
T2741N4
SW1050
SWPRNTR2,COMPT-3
SwTPPNCH,CUMPT=3
SWCDPNCH,COMPT"'4

1"'SGEN ASMPRT "'ON,PROCL IB= 1YES, 81,
LKPRT= 1 XREF, LI ST I, SUff IX"'8,
08JDStT-IMS2.8LKS50,
USERLIBzICS.CLOD,
PRTY=8,
ASM=H,
PAGE=YES,
JOBCTL=14,O,A,182C,644311
TITLE 'IMS SYSTEM DEFINITION.

V2

IMS SYSTEM DEFINITION.
LOC

STMT

36'i;

*,

IMS/360 SYSTEM OPTIONS:

311
312
313
374
315
376
371

*,
*,
*,
*,
.,
*,

*,

.,

319

*,

381
382

*,

384
385
3£11
389
39Q
391
392
393

C
C
C

C
C
C

R3

CLeo

*,
*,
*,

*,
*,
*,

*,
*,

10/02/72

ROUTCOE=13
OESC=2
RESV'D SVC'S 1234,204B,2131
RESV'O APNDG IIGG019l5,IGG019Z61
RESV'D SQS
(500,20001

5 REGIUNS
15 SUBTASKS
23 CONCURRENT EXCTL REQUESTS
25CO CHECKPOINT LOG FREQUENCY
GENERATE fOR ALL
REGION JCL:
CLASS-A, MSGCLASS=3, REG I ON=30K
SI'A OPTIONS:
CORE:

NUMBE~=3

SIZE=IOO
DASO:

~UMBER=6

S IZE=150
BUfFER POOLS:
PSB
DMB
DBASE
GENERAL
COMM.

-

SIZE-8000
SIZE=lOOOO
SIZE=llOOO
SIZE=5000
SIZE=106QO

400
401
402
404

*,

SHUTDOWN MARGIN IS 30 RECORDS

406
401
40e
409

*,
*,
*,
*,

SHORT MESSAGE LENGTH IS 192 BYTES
LONG MESSAGE LENGTH IS 516 bYTES
BUFFERS:
NUMBER=13
SIZE=516

398

13

MVT SYSTEM
MCS OPTIU~S:

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

395
396

PAGE

21MAY72
FOIOCT11

OS SYSTEM OPTIONS:

362
363
364
365
366
361

C

SOURCE STATEMENT

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

360

10102112

LINEG~P

341
342
343
344
345
346
341
348
349
350
351
352
353
354
355
356

35e

f010CT11

•
1050 SWITC~ED
* * *

12

FORHAT - SllE=13tOO
FRE - NUMBER=13
MESSAGE QUEUE OPTIONS:
DATA SETS:

IHS2.QBLKS
IMS2.SHMSG
IMS2.LGHSG

OEVICE=2314
DEVICE=2}14
OEVICE=2314

3.137

V2

IMS SYSTEM OEFHdT ION.
lec

OBJECT CODE

AOORI AOOR2

STMT
411
413
414

ot.

....

423
424

*.

426
427
42B
429
430
431

*.
*.

461
462
4b4
465

3. 138

*.
*.
*.
*,
*.

436
437
438
439
44t
441
442
443
444
445
446
447
44e
449
45(,
451
452
453
454
455
456
457
458
45<;

ClOC

ot.

ot.

*.
ot.
ot.

*.
*.
*.
*.
*.
*.
*.
*.
*.
*.
*.
*.
ot.
ot.

*.
*.

*.
*.

*.
*.
*.
*.
*.
*.
*,
*.
*.
*.
*.
*.
*.

PAGE

27MAY72
FOIOCT71

SOURCE STATEMENT

41t:
417
418
419
42C
421

433
434

R3

APPllCATJUN SPECIFICATIONS:
PSB=OFSSAfoI02 PGMTYPE=TP
OPTJON=N/A
TRANSACTION CODE - PART
MSGTYPE=IMUlTSEG,NONRESPONSEI
PftTY=(7tlO.21
PROClIM=(65535,655351
ClASS=4
EOJT=IUC 1

MOOE=MUlT

PSB=DFSSA"'1.3 PGMTYPE=TP
OPTlON=N/A
TRANSACTIUN CODE - OSPINV
MSGTYPE=(MUlTSEG.NONRESPONSEI
PRTY=(7.10.21
PROClIM=C65535.655351
C.lASS=4
EOJT=(UCI
PSB=OFSSAMG4

1400E=MUl T

PGMTYPE:TP

OPTJON=NI A

TRANSACT JON CODE - AODPAftT
MSGTYPE=IMUlTSEG.NONRESPONSEI
PRTY=( 7.10.21
PftOClIM=Cb5535.655351
ClASS=4
EOJT=(UCI
TRANSACTION CODE - ADCINV
MSGTYPE=(MUlTSEG.NONRESPONSEI
PRTY=I7.10.21
PROClIM=(65535.655351
ClASS=5
EOJT=IUCI
TRANSACTION CODE - OlETPART
MSGTYPE=(MUlTSEG.NONRESPONSEI
PftTY=17tlO.21
PROClIM=(65535,655351
ClASS=4
EOJT=(UCI
TRAr-iSACTION CODE - OLET INV
MSGTYPE=IMUlTSEG.NONRESPONSE1

MODE=MUl T

MOOE=MUlT

MOOE=MULT

,",ODE=MUl T

P~TY=(7010.21

PROClIM=(65535.655351
ClASS=5
EOJT=IUCI
PSB=OFSSAM05 PGMTYPE-TP
OPTJON=N/A
TRANSACT ION CODE - ClOS E
MSGTYPE=(MUlTSEG.NONRESPONSEI

MODE=MUlT

lit

10/02172

'12

IMS SYSTEM DEFINITION.
LOC

OBJECT CODE

ADCRI ADDR2

STMT
466
461
468
469
471
412
414
415
416
471
418
41'>
481
482
484
465
486
481
488
489
491
492
494
495
496
4q1

498
499
500
!,,)l

502
503
504
505
5(,6
501
506
50C;
510
511
512
513
515
516
51e
519
520

.,.,.,.,
.,.,
.,.,.,
.,
.,.,
.,.,.,
.,.,.,
.,.,
.,..
.,.,.,
.,.,.,.,.,
..,.,.,
.,.,.,.,
.,..,.,
.,.,
.,.,.,

R3

CLOO

21MAY12

SOURCE STATEMENT

,

,

,

PAGE
FCI0CT11

15

10/02112

PRTY=17,10,21
PROCLIM=165535,655351
CLASS:)
EDIT=IUC.I
PGMTVPE=TP
OPTlON=N/A

PSB=OFSSA~C6

TRANSACTION CODE - DISHURSE
MSGTYPf=IMULTSEG,NONRESPONSEI
PRTV=I7, 10, 21
PROCLIM=(65535.655351
CLASS=2
EOlT=(UC 1
PSB=DFSSAM07

MODE=MULT

PGMTYPE=TP

OPTION-NI A

TRANSACTION CODE - DSPALLI
MSGTYPE=(MULTSEG,NONRESPONSEI
PRTY=(7,10,21
PROCLIM=(65535,655351
CLASS=2
EOIT=CUCI

MOoE=MULT

PSB=CONTfST
PGMTVPE=TP
OPTlOt-<=N/A
TRANSACTION CODE - CONVI
MSGTVPE=(MULTSEG,NONRESPONSEI MODE=SNGL
PRTV=(B,8,655351
PROCLI M=( 3, 60 1
EDlTz(UCI
•••••••••••• CONVERSATIONAL ••••••••••••

•
••••••••••••••••••••••••••••••••••••••••
TRANSACTION COOE - CONV2
SPA=(80,DISKI

MSGTVPE=(MULTSFG,NDNRESPONSEI MODE=SNGL
PRTV=18,8,655351
PROCLlM=(3,601
EOIT=(UCI
•••••••••••• CONVERSATIO~AL ••••••••••••

•

SPA:(80,COREI

•

•••••••••••••••••••••••••••••••• *••••••••
PSB=fNQ1SK41 PGMTYPE=TP
OPTlON=NI A
TRANSACTION CODE - ENQ
MSGTVPE=(MULTSEG,NONRESPONSEI

MOOE=MULT

PRTY=(!l,8,6553~1

3.139

V2

IMS SYSTEM DtFINITION.
l(1C

OgJECT CODf:

ADDRI AOOHZ

SPH
521
522

531

*,

533
534

*.

537
53&

PSB=I-OT :'SK('l PG~TYPE=TP
UPT IUN=NI A
TRANSACTION ceDE - SKOI
MSGTYP E= 1 MULT S EG,NONRE SPONSE I
PkTY=(8,H,655351
PROClIM=165535,655351
EOIT= IUC I

.,

PSB=HHBlSK41 PG~TYPE=BATCH
UPT! UN=NI A

,

PS 8=HHB lSK42 PGMT'I'PE= BATCH
OPTlON=N/A

..,
..

PSB=HHlllSK43 PGMTYPE=OATCH
OPTlON=N/A

'45
546

*,
*.

PSt3=hHTASK41 PGI'TYPE=TP
OPT ION=NI A

54 ~
549
55"
551

*.

554
555

.....,
.,...,

557
558
55e;
5be
Sol

*.
*,
*,
*.
*,

,63

*,
*,

566
567
Sol'

569
57(;
572
573

..

..

*.
*.

PAGE
F010CT7l

*.

::>04

27MAY72

PRDClIM=165535,655351
EDIT=IUCI

541
542

5~2

]. 140

*,

53(;

527
528
52<;

Cleu

SOURCE STATEMENT

*,
*,
*,
*,
*,
*,
+,

524
525

R3

MODE=MULT

TRANSACTION CODE - SKt<1
MSGTYPE=IMUlTSEG,NCNRESPONS~1

MODE=MUl T

PRTY=ltI,t'.655351
PROClI M=( 65535,655351
EOIT=IUCI
PSB=HHTASK42 PGMTYPt=TP
OPTlON=N/A
TRANSACTION CCOE - SKHZ
MSGTYPE=I MULTS~G,NONRESPUNSE 1
PRTY=IB,6.655351
PROCLIM=165535,655351
EDIT=IUCI
PS8=~·HT

MODE=MUlT

ASK43 PGMTYP[=TP
OPT IUN=NI A

TRANSACTION ceDE

-

SKH3

~SGTYPE=IMUlTSEG.NONRESPONSEI

*.

PRTY=IB.8.655351
PkOClIM=165535.655351
EOIT= IUC 1

*,
*,

I'SR=HIBASK41 PGf'TYPE=BATCH
OPTlUN=N/A

MOOE=MUlT

16

lC/02/72

V2

IMS SYSTEM DEFINITION.

LOC

OBJ EC T CODE

ADORI

ADDR2

S TMT

50U~CE

*,
*,

579
580
581
582
583

*,
*,
*,

585
586

*,
*,

594
595

*,

.,

.,·
*,,
*,

.,

.,
*,

619
62e
621
622
623
624
625
626
621
62B

.,.,
.,
.,·.,
.,.,
·.,
.,.,.,.,
·.,.,

631.

*,

598
599
601
602
603
004
6u5
607
6e8
610
611
612
613
61 ..
616
617

CLOD

27"1AV72

STATEI'ENT

576
577

588
5 Be;
59C
591
592

R3

*,

*,

*,

,

*,
*,
,
*,

*,

*,
*,,

PAGE

FOIOCT71

17

1(1')2172

PSB=HI TASK41
PGMTVPE=TP
OPTIGN=N/A
TRANSACT ION CODE - SK 11
I'SGTVPE= ( r-ULT SEG, NONI{E S PGNS E 1
PRrV=(8,B,f.55351
PROCLI M= (65535,655351
EDIT= I UC 1

MODE=IoIUL T

PSB=HITASK42
PGMTVPE=TP
UI'TlUN=N/A
TI{ANSACTION CODE - SK 12
MSGTYI'E=(MULTSEG,NONRESPONSEI
PKTY=I!!,8,655351
PRCCLIM=165535,655J51
EDIT=IUCI

MOOE=MUL T

PSB=H58ASK41
PGMTVPE=BATCH
OPTIO/,;=N/A

PGMTVPE=TP
PSP>=HI MAJCvl
OI'TION=N/A
TRANSACTION CODE: -

TPPLI

MSGTVPE=I~ULTSEG,NONRESPUNSEI

MrJDF=MULT

PRTV=18,!!,t55351
PRCCLIM=(65535,655351
EOIT=(UCI
PGMTVPE=TP
PStI=HIMAJC02
OPT ION=NI A
TRANSACTION COCE - TPPL2
MSGTVPt:=1 MULTSEG,NONRESPCNSE 1
PRTV= 18,8 ,655351
PROCLIM=(65535,655351
EDIT=(UCI

MUCE=MULT

PS8=HIMAJC03
PGIoITVPE=TP
UPTIUN=N/A
TRANSACTIUN CODE - TUBE
MSGTVPE=IMULTSEG,NONRESPONSEI
MODE=SNGL
PRTV= (8,8,655351
PROCLIM=165535,655351
FDIT=IUCI
••• *••••• *.* CONVERSATIONAL •• *•••••

•

*•••

SPA=(lOO,DISKI

*

••••• ** ••• *** •• ***** ••••••••••••••• ****.
PSB=HIMALMOI

PGMTVPE=TP

3. 141

IMS SYSTEM
lOC

OBJ~CT

CODE

V2

DEFINITIO~.

ADDkl AODI{2

STMT
631
633
634
635
636
631

638
63<>
640
641
642
643
644
645
t46

647
64t'
649
65C
651
652
654
655
657
65R
65<;
660
661
663
664
666
667
661:1
66<;

6n

672
673
67<;
676
677
678
679
681
682
684
685

3. 142

SUURC E

..

R3

Cleo

27MAY72
FOI0CT71

STATEME~T

..........
....
........
>1<.
>1<.

...
··....
>1<.

'"

·.
·....
·...
....
...,
....
........
..
··...
..
>I< •

....

,
,

>1<.
>10.

OPT ION=NI A
TRANSACTIUN CCDE - DlI
MSGTYPE=ISNGlSEG.RESPONSEI MODE=MUlT
PRTY=15,h:,51
PROClIM=IIC,101
EDI T= IUC I
TRA~SACTIUN ceDE - ICS
MSGTYPE=(MUlTSEG.NONRESPONSEI MODE=SNGl
PRTY=15.l2.51
PRDClI 101= I lC. 101..1
EDIT=I UC I
TRA~SACTION CODE IMS
MSGTYPE= I S~Gl SEG, ~ONR ES PONS E I MOOf=MUl T
PRTY=12,5,101
PI{OCll M= I 1 .lec I
EOIT=IOCI
TI{ANSACTION CODE - DlN
MSGTYPE=IMUlTSEG,~ONRESPONSEI
MODE=MUlT
PRTY=(C.b.31
PROClIM=II0.10ul
EDIT=luCI
PSB=lKMDFSOO PGMTYPE=TP
OPTlOI'<=N/A
TRANSACTION CODE - DFS
MSGTYPE=IMUlTSEG,NONRESPONSEI
PRTY=15tl2,51
PROClIM=18.10CI
EOI T= IUC I

MODE=MUlT

PSB=lKMOFSIC PGMTYPE=BATCH
OPTI ON=NI A
TRANSACTIU~

CODE - lKM

MSGTYPE=ISNGlSEG.~ONRESPONSEI

MODE=MUlT

PRTY= I C,:J .655351
PkOClIM=165535,655351
f.O I T= IUC I
PSR=MRl

>1<.

,

PAGE

PGMTYP~=TP

GPTlON=N/A
TRANSACTION CODE - MRl
MSGTYPE= I MUl TSEG.~ONRE SPONS~ I
PRTY= 18,8 .655351
I'I{DCLI M= 165535.655351
EDIT=luC 1
PSb=MR2

MOOE=MUl T

PGMTYPE=TP
OPTlON=N/A

TRANSACT ION CODE - Mk2
MSG TYPE= I ,.Ul TSEG ,NONRE S PONS E I

MODE= MULT

18

10/02/72

V2

Ii'1S 5YSHM DEfiNITION.
LUC

LlilJE CT COOl:

.. OCI<1 AUDfl2

5TMT
6ilt>
687
688
690
691
693
694
695
696
697
699
7eo
702
1l;3
71)4
705
1(,6
1C!:!
709
711
712
713

714
715
717
1lP.
72C
721
722
123
724

126
727
729
730

731
732
733
735
736
138
139
74:J

IMS SysrEM
LUC

ObJ EC T CUDE

··.,.,
.,

741
742
744
74':>
747
74c
749
75(.
7':> 1

753
754
75?
756
757
758
759
76C
761
762
763

27MAY12
F010CT71

,
,

.,.,.,

.,.,.,
.,
.,.,·.,
.,.,
.,
·.,.,.,
.,
·.,
·.,.,.,
.,.,
.,.,
.,.,.,.,
.,.,.,
.,.,
,

,

,

,

PSA=IoIR3

TRANSACTIUN CODE - MR3
MSGTYPt=IMULTStG,~ONRESPONSEI

*,

,
,
t,,

t,

,

10/02172

MODt",MULT

PRTY;18,!:! ,655351
PROCLIM;165535,655351
E01T=IUCI
PSB=MR4

PG/olTYPE=TP
OPTlON=N/A

TRA~SACTION CODE - MR4
MSGTYPE=I~ULTSEG,NONRESPQNSEI

MOOE=MULT

PRTY:IB,/.l,655351
PROCLIM=165535,655351
E01T=IUCI
PSB=MR5

PGI1TYPt=TP
UPT I o N""N 1 A

TRANSACTION CODE - MR5
MSGTYPE=IMULTSEG,~ONRESPONStl

MODE",MUL T

PRTY"'(8,8,655351
PROCLIM=165535,655351
EOlT=IUC 1
PSB=i'1R6

PGMTYPE"'TP
OPT IUN=NI A

TRANSACTION CODE - MR6
MSGTYPE=IMULTSEG,NONRESPONSEI
PRTY=IIl,8,655351
PROCLIM=165535,655351
EOlT=IUC 1
PSB=I'R7

PSB=IoIRB

MODE=MULT

PGMTYPE=TP
OPTl ON=NI A

TRANSACT ION CODE - MR7
MSGTVPE=IMULTSEG,NONRESPONSEI
PRTY=18,S,655351
PKOCLI/ol=165535,655351
EOIT=IUCI

MOOE=MULT

PGMTYPE"'TP
OPT I ON=NI A

TRANSACT ION CODE - MRS
MSGTYPE= I MUL T SEG,~ONRE SPONSE 1
PRTY"'18,8,655351

R3

CLCO

MODE =MUL T

27MAY72

PAGE
F~10CT71

*,

,

19

PGMTYPE=TP
OPT I ON=NI A

SOURCE STATEMENT

.,.,
.,.,·.,
.,
···.,.,
.,.,.,
.

PAGE

PRTY=18,A,t,55351
PRUCLIM=165535,655351
EDIT=IUCI

V2
STMT

CLOC

50URC E SpHMENT

UEFI~ITION.

ADDR 1 AODf<2

R3

20

10/02/72

PROCLl 11= 165535,655351
EDIT=IUCI
P5A=IoIR9

PGMTYPE=TP
OPT 10N=NI A

TRANSACTION CODE - MR9
MSGTYPE=IMULTSEG,NONRESPCNSEI
PRTY=18,8,655351
PROCLIM=165535,6553':>1
EOIT=IUCi

MOOE"'MUL~

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

•

•
t

•

THE: FOLLOWING TRANSACTION CODES
ARE DES IGNA TED AS I~QUIRY ONLY:
PART
DSPINV
DSPALLl
OFS

•

•

·•

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

3. 143

IMS SYSTEM DEFINITION.

LOC

OdJECT CODE

AOOK1

AOOR2

V2
S TMT

.,.,
.,.,

.,

767
769
771

775
777

783

787
789

CBD=CI21PAPT
OBO=OS4CJCC1
CBU=DI41SK01
OBD=OI42SKOl
CBD=Dh41SKOI
CBD=OI141SK02
OBD=OHI SKC3
o l:lU= DX 41 SKu1
OBD=OD41SKOI

,

791

CBO=01141 TSOI
CBD=Uh41 TSC2

.,

793
795

CB()=01141 TSG3
C80=OX41 TSOI

*,

797

OBO=OD41 TSCI

V2

IMS SYSTEM DEF INITION.

AOOR2

S TMT

8u1

*,

803
b04

·.,

8C7
808

.,
.,

8H
811

.,
.,

814

823
824

827
828

831
832
834
835

839
841.
842
843

846
847

tl51
8:'2

R3

ClOO

27MAY72

CO~'U~ICATION

SPECIFICATIONS:

lINE 1

SYSTEM/36C OPERATOR'S CONSOLE.
TERMINAL
WTOR

,

LlNEGRP

LINE 2

UNIT'\'PE=274C
FEAT=INONSWITCHED,POlLI

AOOR=0C2

....

1

ADDR=C6

EDlT=NO

....

•••••••••• MASTEP TERM INAl ••••••• "' ••

>I< ,

·.,

CTRl

EDIT=INO,ULCI

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

*,
,
'" ,

HUWARD
TERMINAL
L ARR,\,

1I Nf 3

EDIT=INO,ULCI
ADDR= E2
EO IT=NO
EDIT=INO,ULCI

ADDR=OC3
TY~L1ST="KAPlST

,

*,

L1NE:GRP 2

,
LINE 4

TfRMINAL
MUOEl2

ADOR=45
EOIT=NO
EOlT=INO,UlCI

HRMINAl 2
MOOFl2K

~OOR=46
EOIT=NO
ELIT=INO,UlCI

DONAME=D2740NSC
UNI TYPE=2 74C, NSC
FEAT=INONSwITCHEO,POlLI
ADDR=uCI
TYPLI ST=NI A

TERMINAL 1
T2741.NSC

*,

*,

OONAME=OD274~S

TERMINAL

,
,

·.,.,
·.,.,
..
.,
.,

AOOR=NIA
EOIT=UlC
E:OIT=INO,UlCI

TY~lIST=WRAPlST

··.,
.,
.,
.,

PAGE

FOI0CT71

STATEMENT
.,

A16
817
81A
131 'J
820
821

3. 1 U4

SOURCE

799

1~/C2172

CBO=DI31P/jC2

,

785

21

CBD=OI3ILMOl

*,

781

PAGE

~010CT71

.,
·.,
.,
·.,
.,

779

AOOR1

27MAY72

DATABASE SPECIFICATIONS:

.,.,

773

OBJECT CUOE

Clva

SOURCE STATEMENT

765

LaC

R3

LINEGRP 3

ADDR=E:2
EOIT=Nll
E:OIT=INO,UlCI

00NAME=00327GR
UN I TYPE=32 7C
FEA T = I NONSW ITCHED, AUTCPlllLl

22

1(/02172

V2

I:o\S SYSH'" OEF INI T[(lN.

Lec

(j~J"CT

COllF

ACCR1 AOUI<2

STMT

fl6£'

80"
tlb5

861
db8
til'.
till

813
874

a 16
817

881

SOUKCE

-...
.,-,-.
.,
.,.,
.,
.,

9':1

906

'lC1

CTLUNIT

AOOR=4C4L
EDIT=NO
EOIT=INO,ULCI
EolT=INO,ULCI
COMPT=PTRl

ACoR=C1

TfRMINAL 3
13271:6

ADDR=Cl
EDIT=NO
I:DIT=I NO,ULC I

TERMINAL 4
T3270C

ADoR=C2
EoIT=NO
EDIT=INO,ULCI

*,

TERMINAL 5
T3210Pl

ADCR=C3
EDIT=NO
EoIT=INO,ULCI

,

TERMINAL 6
T321CP2

AooR=C4
EolT=NO
t:olT-! NO,ULC I

'" ,

···.
,

...

%2

TERMINAL
T 3215
T3215P

AOoR=4D
Eol T=NO
EOIT:INO,ULCI

·...

L1t-.EGRP 4
LINE 6

,

,

.. ,

·.,.
....
....

PAGE

AllLiR=CC9
TYPLl S T= AUTO"LS T

TERMINAL
T321IJA

395
e97
89il

21MAY12

FD10CT11
LINE 5

",

d9C
891

MS1
StiR

CLOD

STATE~E/IoT

·
·.,..

M83
Hti4

R3

LlI\EGRP 5
LINE 1

DON AM E= llIJ32 70L

TERMINAL 1
T3170Ll

AOOR=310
EOIT-=NO
EDIT=!NO.ULCI

TERM INAL 2
T321CL2

AOoR= 312
EOIT=NO
EDIT=! NO,ULCI

DDNAME=Do3210L2

UNITYPE=327u.LOCAL

AouR=N/A
TYPLlST=N/A

TEKMINAL 1
T 327tP3

L INEGRP 6

UN I TY PE=3210. LOCAL

ADoR=N/ A
TYPLI ST=N/A

ADoR=311
EOIT=NO
EOIT=!NO,ULCI

OQNAME=0010 50
UNlTYPE:=105G
FE AT=! NONSW ITCHED, POLL I

23

lu/02/12

IMS

LOC

SYSTE~

OBJECT CODE

V2

DEFINITION.

ADDKI ADDR2

STMT

909
910

CLOD

21MAY12

SOURCE STATEMENT

:t,

PAGE

FOlOCT1l
LINE 8

ADDR=OCO
TYPLI ST=W~APLST

'114

:t,
:t,

TERMINAL 1
PRINTERI

AOOR=E2
EDIT=NO
EOIT=INO,ULCI
COMPT=PTR1

916

:t,

TE RMI NAL 2
PRINTER2
PRINTER3

AOOR=E4
EDIT=NO
EOIT=(NO,ULCI
COMPT=PTRl
EDIT=( NO,ULC I
COMPT=PTR2

913

'Il7

*,

918

:t,

922
923

*,

926

.,.,

929

*,

925

930

937
938
94C

941

945
946
948

949
952

953
954
955

959

96C

3. 146

.,

R3

LINEGRP

7

:t,

*,
*,

.,.,
.,..
.,

LINE 9

CTLUNIT

L1NEGRP 8

LINE' 10

.,

LlNEGRP 9

LINE 11

AOOR=415l
EDIT=NO
EOIT=(NO,ULCI

A OOR=40

k LA= YE S

TERMINAL
AA

ADOR=AO
EOIT=NO
EOIT=(NO,UlCI

TERMINAL
AS

ADDR=Al
EDIT=NO
EDIT=(NO,ULCI

TERMINAL 4
ERNE

ADDR=A4
EOIT=NO
EDIT=(NO,ULCI

DONAME=DD277C. UNITYPE=2770
F EAT= (NONSW ITCHED. AUTOPOLlI
ADDR=OC8
TYPLI S T=AUTOWLS T

.TERMINAL
T277CP
T2770V
T277CC

JO.

*,

ADDK=OEO
TYPLI ST=kRAPLST

TERMINAL 1
T2265XCL

*,

.....,
..
.,.,
.,
.,.,

OONAME=002260R
UNITYPE=2260
FEAT=(NONSWITCHED,POLLI

ADDR=Cl
EDIT=NO
EO IT=! f-lO,ULC I
COMPT=l
EDIT=(NO,ULCI
COMPT=2
EDIT=(NO,ULCI
COMPT"3

DONAME=DD298v UNITYPE=298G
FE AT= I NONSW ITCHED, AUTOPOLL I
ADDR=I,jCA
TYPLI ST=AUTOWLST

24

10/02112

IMS SYSTEM CEFINIT ION.
LOC

OBJECT CODE:

AODR1 ADDR2

V2
STMT
q65

967
968
96'1
970
972
q73

974
975
976
978
'179
980
981
98Z
983

qa7
.. a8
990
991

994
995

999
100"
100Z
1003
10(;6
1007

1011
1012
1014
1015
1018

lC119

R3

CLOO

27MAV7Z

SOURCE STATEMENT

.,.,.,.,
.,.,.,.,.,
.,.,.,.,
.,.,
.,.,
.,.,
.,.,
.,.,
.,.,
.,.,
.,.,
.,.,
.,.,

*,

PAGE

F010CT71
CTLUNIT

LINEGRP 1e
LINE 12

LINE 13

TERI4INAL
HUMER1
N298(; 1
AZ98C11

ADDR-40
EDIT-NO
ED IT"I NO,UC I
EDIT-INO,UC I
EDIT-INO,UC I

TERMINAL
N29802
AZ98(·Z
COMMON
HOMER4

ADDR"F1
EDIT-NO
EDIT"INO,UCI
EDlTaINO,UCI
EDIT-INO,UCI
E:DIT-INO,UCI
COMPTsCCMMON

TERMINAL 3
AHlLl::II
BTE:LLEK
JTELLER
KTElLER
HOMER2

ADDR"1'2
EDIT"NO
EDIT=INO,UC I
EDIT-INO,UCI
ED IT=I NO,UC I
EDIT=INO,UCI
EDIT-INO,UCI

DDNAME"DD2741 UNITYPE,,2741
FEAT=INONSWITCHED,POLLI
ADDRs097
TVPLlST .. N/A

LINE 14

ADDR=NI A EDIT=NO
EDIT-IND,UlCI

DDNAME=DDZ741S UN ITYPE=2 741
FEAT"I SWITCHEDI
ADDR=t50
TYPLI ST-N/.A
TERMINAL 1
INQUC393

LlNEGRP 12

10/02/72

ACCR"C1

TERMINAL
T2741

llNEGRP 11

25

EDIT=NO
ADDR=50
EOIT=I NO ,ULC I

OONAME .. DD2741S2
FEAT:I SWITCHED I

UN ITYPE .. 2741

ADDR-053
TYPLI ST=NI A
TERMINAL 1
INQUC401

AODR=53 EDIT-NO
EDIT-IND,UlCI

3. 147

IMS SYSTEM DEFINITION.

LOC

OBJECT CODE

t.DDR 1 AODR2

V2

1024

.,.,

1C26
1027

*,
*,

STMT
1023

1030

1031
1032
1034
1035

1039
1040

Hi42
1043
1046
1'47

1051
1C52
lu54
1055

1058
1 C59

1063
1064
1066
1067

1070
1071

1075
1076
1077

3. 148

R3

ClOO

27MAV72

SOURCE STATEMENT

.,
.,.,
.,.,
.,
.,
.,
.,.,
.,.,
.,.,
.,.,
.,.,
.,.,
*,
*,

*,

FOI0CT71
LlNEGRP 13
LINE 15

TER"A

L1~EGRP

14

LINE 16

*,

ODNAME=DD1030 UNI TVPE"'1030
FEAT-' NONSWITCHED,POLLJ
ADOR=OE1
TVPL I ST"'wRAPL ST

TERMINAL
Tl033A
TlO33B

ADDR=64
ED IT" NO
EDn"(NO,ULCJ
EDIT-' NO,ULCI

TERMINAL

EDIT-NO
ADDR"'64
L TERM"'TlO33A

DONAME=SVSROR1
UN I TVPE=lOCAL-RE AOER
FEAT: I NONSIH TCHED,POLL I
AOOR=OB1
TVPlIST=N/A
TERMINAL 1

*,
*,

PAGE

LINEGRP 15
LI NE 17

OONAM Em SVSPR T 1 UN I TVPE=LOCAl-PRINTER
FEAT-'NONSWITCHED,POLll
AOOR"OB2
TVPlIST=N/A

TERMINAL
PRTSVS

lINEGRP 16

LINE 18

AOOR=N/A EDIT-NO
EDIT'" NO,UlC I

ODNAME- SYSTAPE UNITYPE-lOCAL-TAPE
FEAT-(NONSWITCHEO,POLLI
ADDR-OB5
TYPLlST=N/A
TE~MINAl

1

TAPESYS

LlNEGRP 17

AODR=N/A EOIT=NO
L TERM .. n033A

OCMME"'SYS1
ODNAME-SVS2
ODNAME-SVS3

ADDR"N/A EDIT-NO
EDn-'NO,UlCI

UNITVPE=SPOOl

26

1(,/02/72

V2

IMS SYSTEM DEFINITION.

LOC

OBJECT CODE

ADCRI AODR2

STI1T
1078
1.. 79
1081
1\l82

1085
lu86
1087

1091
1092
1094
1095

1098
1099

1102
llC3
11C6
lUi7

1111
1112
1114
1115

1118
1119

1123
1124
1126
1127
113(:
1131

IMS SYSTEt'I
LOC

OBJECT COOE

..,.,
.,
.,.,.,
.,.,
.,.,
.,.,
.,.,
.,.,

1135
1136
1138
1139

1142
1143

1146
1147
1148
1149
115tJ

1152
1153
1154
1155
1157
1158
1159
1161
1162
1163
1165
1166
1167
1168
1169

PAGE

27MAY72
FOI0CT71

,

.,.,.,
.,
.,.,

.,
.,.,
.,.,
*,

LINE lq

.,.,
.,
.,
....,.,
.,
..,.,
.,.,
....,..
.,....,
..

EOITzND
ADDRzN/A
EDIT-INO,ULC.
EDIT-I ND,ULC I

TERMINAL
SPl
SP2

L1NEGRP 21
LINE 2C

OONAME- ARUDDGP1
FEAT=C SWITCHED.

1I NE 21

ADDRaCl
EDIT=NO
EOIT-CNO,ULCI

ADDR"OF3
TYPLlST=N/A

TERMINAL 1
INQU0469

LlNEGRP 22

LINE 22

LINE 23

ADDR=C4
EDIT=NO
EO IT" CNO,ULC.

DDNAMEzDTWX3335
FEAT=C SWITCHED I

UNITYPE-TWX

ADDR=CDl
TYPLI ST=I OLST

TERMINAL 1
I NQU04 77

LINEGRP 23

UN ITYPE .. 7770

AODR=OFO
TY PLI S T=NI A
TERMINAL 1
INQU0464

ADDR-E2
EDIT=NO
EOIT"'C NO,ULC I

ODNAME=DD2740A UNITYPE=2740
FEAT=C SWITCHEDI
ADDR-v61
TYPLlST=DIALST

TERMINAL 1
INQU0485

ADDR=E2
EDIT=NO
EDIT=CNO.ULCI

R3

CLOO

27MAY72

LI NE 24

,

,

LINE 25

-28

10/02172

OONAME=DDI050A UNITYPE=1050
FEAT=CSWITCHEOI
ADDR=060
TYPLI ST=DI AL ST
TERMINAL 1
INQU0493

,

*,

PAGE
FOI0CT71

LINEGRP 24

*,

,

10/02172

ADDR=COC
TYPLIST=N/A

SOURCE STATEMENT

*,

27

DDNAME= SYS4
FEAT=CNONSWITCHEO,POLL •

V2
S THT

CLOO

SOURCE STATEMENT

O~FINITION.

ADDRl ADDR2

R3

ADDR=E2
EDIT=NO
EOIT=C NO,ULC.

•••••••••••••••••••••
••
••
DIAL POOL
••
••
•••••••••••••••••••••
TERMINAL
•••• SUBPOOL ••••
ELEANOR
EDIT=INO,ULCI
CAROL
$HARRON

EOIT"'C NO,ULC.
EOIT"'CNO,ULCI

••••

••••

••••

••••

••••

••••

TERMINAL
T2741Nl
T2741N2

SUB POOL
EOIT"'CNO,ULCI
EDIT"C NO,ULC I

TER'1INAl
T2741N3
T2741N4

SUSPOOL
EDIT=C NO, UlC I
EDIT=CNO,UlCI

TERMINAL 4
SWI050
SWPRNTR2
SWTPPNCH
SWCOPNCH

SUSPOOl
EOIT=CNO,UlC.
EOIT=CNO,UlCI
COMPT"PCHl
COMPT .. PCH1
EOIT=INO,UlCI
CDMPT=PCH2
EDIT"CND,UlCI

3. 149

V2

IMS SYSfEM DEFINITION.
LDC

OBJ EC T COOE

AOORI AOOR2

STMT

SOURCE STATEMENT

1173+
+

1174+
1175+
1176+
1177+
117B+
1179+
llBO+
1181+
1182+
1183+
1184+
1185+
1186+
1187+
1188+
1189+
1190+
1191+
1192+
1193+
llq4+

1195+
1196+
1197+
1198+
1199+
1200+
1201+
1202+
1203+
1204+
1205+
1206+
1207+
1208+
1209+
1210+
1211+
1212+
1213+
1214+
1215+
1216+
1217+
12l!1+
1219+
1220+
1221+
1222+
1223+
1224+
1225+
1226+

3. 150

R3

CLOO

27MAY72

PAGE
FOI0CT71

PUNCh 'IIIMSGENI JOB CB2C,64431.IMS,MSGLEVEL=l,MSGCLASS=A,CLASX
S"0.PRTY=8·
PUNCH 'I/STEPI EXEC PGH=IEBCOPY'
PUNCH 'IISYSPRINT 00 SYSOUT=A'
PUNCH 'IISYSUTI 00 ~SN=IMS2.GE~LIB,OISP=SHR·
PUNCH '1ISYSUT2 00 OSN=IMS2.MACLIB,OISP"OLO'
PUNCH '1ISYSUT3 00 UNIT=SYSOA.SPACE=I8C,CIO,1511
PUNCH '1ISYSUT4 00 UNIT=SYSOA,SPACE=I256,I5.1IJ
PUNCH 'IISYSIN 00 ....
PUNCH' COPY OUTOO=SYSUTZ.INOO=SYSUTI
PUNCH' SELECT MEMBER=AlPHA '
PUNCH' SELECT MEMBER=CFOON •
PUNCH' SelECT MEMBER=CKOPT '
PUNCH' SELECT MEMBER=CONVERT •
PUNCH' SELECT MEMBER=OATASET '
PUNCH' SELECT MEMBER=OBD •
PUNCH' SELECT MEMBER=DBOGEN •
PUNCH' SELECT MEMBER=OBOLRECL •
PUNCH' SELECT MEMBER=DEVSllE •
PUNCH' SELECT MEMBER=OMAN •
PUNCH' SELECT MEMBER=EXPARMS •
PUNCH' SELECT HEHBER=EXTDBD •
PUNCH' SELECT MEHBER=F IELD •
PUNCH' SEL~CT MEMBER=FINISH •
PUNCH' SELECT MEMBER=FLD '
PUNCH' SELECT MEMBER=FLOK •
PUNCH' SELECT MEHBER=GLOBALS •
PUNCH' SELECT MEHBER=HIERSEQ •
PUNCH' SELECT MEMBER=LCHILD •
PUNCH' SELECT MEMBER=PCB •
PUNCH' SELECT MEMBER=PCBPOV •
PUNCH' SELECT MEMBER=PSBGEN •
PUNCH' SELECT MEMBER=SEGM •
PUNCH' SELECT HEMBER=SEGPTRS '
PUNCH' SELECT ME"BER=SENSEG •
PUNCH' SELECT MEMBER=SETFLGS '
PUNCH' SELECT MEMBER=SETFREQ •
PUNCH' SELECT MEMBER=SOURSEG '
PUNCH' SELECT MEMBER=XDFlD •
PUNCH' SELECT MEMBER=CURSOR'
PUNCH' SELECT MEMBER=DEV'
PUNCH' SELECT MEMBER=OFLO'
PUNCH' SELECT MEM8ER=DFSERR'
PUNCH' SELECT MEMBER=OIV'
PUNCH' SELECT MEMBER=OPAGE'
PUNCH' SELECT MEMBER=FMT'
PUNCH' SELECT MEHBER=FMTENO'
PUNCH' SELECT MEMBER=LPAGE'
PUNCH' SELECT MEMBER=MFLO'
PUNCH' SELECT MEMBER=HSC'
PUNCH' SELECT HEMBER=MSGENO'
PUNCH' SelECT MEMBER=NUM'
PUNCH' SELECT MEMBER=SEG'
PUNCH' SELECT MEMBER=SUBLT'
PUNCH '1ISTEP2 EXEC PGM=IEBUPDTE,'

29

10/02/72

V2

IHS SYSTEM DEFINITION.
l DC

08J £:C T CODE

ADUKI AOOR2

SOURCE STA TEMENT

STMT
1227.
1228+
122q·

1230+
lZ31.

1232.
1233·
1234.
1235+
1236.
1237.
1238.

·

123q.

1240.
1241·

PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH

1248+
1249+

PUNCH
PUNCH

1250+
1251 +
1252+
1253+

PUNCH
PUNCH
PUNCH
PUNCH

1254+
1255+

PUNCH
PUNCH

•

+

1256.
1257+
1258+
1259+
1260 +

PUNCH
PUNCH
PUNCH
PUNCH
PUNCH

1261+
1262+

PU,"CH
PUNCH

1263+

PUNCH
PUNCH
PUNCH
PUNCH
PUNCH

·•

12M.

1265+
1266+
1267+

·

1268+
126q+

127(;+
1271·

1272+

PAGe

2711AY72
FOI0CT71

30

10/02/72

T" ,

+

•

ClOO

PUNCH 'II PAKM=NEW'
PUNCH 'IISYSPRINT Dr. SYSOUT=A'
PUNCH '1ISYSUT2 DO DSN=IMS2.PROClIB,OISP~OlD'
PUNCH 'IISYSIN CD
DATA'
PUNCH '.1
ADO
,.,AMf-C8lTDlI'
PUNCH' lIbKARY RESlIBCC8LTDLII
DL/I LANGUAGE INTERFACE'
PUNCH' ENTRY ell TCBL'
PUNCH '.1
AeD
NA~E=PLITDLI'
PUNCH' LIeRAKY RESLI~CPLITDLII
DL/I LANGUAGE INTERFACE'
PUNCH' ENTRY IHESAPD'
PUNCH '.1
ADD
NAME-DLl BATCH'
PUNCH '.1
NUI1BER NEWI-10,INCR=10'
PUNCH 'II
PROC
MBK-TEMPNAI1E,SOUT-A,PSB-,BUF=B,SPIE-C,TX
(:ST"'O'
PUNCH 'IIG
EXEC PGM=OFSRRCOO,REGION=130K,'
PUNCH '/I
PARM="DLl,&&HI3R,&&PSB,&&I3UF,&&SPIE&&TESl(

1242+
1243+
1244+
1245·
1246+
1247+

•

R3

PUNCH
PUNCH
PUNCH
PUNCH
PUNCH

'IISTEPLIB DO OSN=IMS2.RESLIA,DISP-SHR'
DO DSN=IMS2.PGMlIB,DISP-SHR'
DU DSN-IMS2.PSBLI8,DISP-SHR'
DU DS~=IHS2.0130LIB,OISP-SHR'
'/I0FSLCGTT DO OSN=IMS2.LCC,T,DISP-SHR'
'/IIEFROER DO DSN=IHSLOG,OISP-C,KEEPI,VOL-C .. ,qql,UNIT-ex
240ll"DEFERI,'
'/I OCB= CRECFH=VBS,ElLKSI ZE" l'tuB ,LRE:CL-1400, BUF NO-II'
'IISYSUDUHP DO SYSOUT=&&SOUT.DCB=CRECFH=FBA,LRECL-121,ALX
KSllE:=6C5I,'
'II SPACE-C605,C5LU,500I,RLSE"RCUNOI'
'.1
ADD
NAHE-OBBBATCH'
'.1
NUMBER NEW1=10,INC/l-10'
'II
PRUC HI3R=TEHPNAHE,SOUT=A,PSB=,BUF-a,SPIE=O,TEX
ST-("
'IIG
EXEC PGH=DFSRRCOO,REGION=130K,'
'II
PARH="DBB,&&MElR,&&PSB,&&ElUF,&&SPIE&&TESX

'II
'IIIMS
'II

T" ,

'IISTEPLIS DO DSN=IHS2.RESLIB,DISP=SHR'
DO OSN=IHS2.PGHLIB,OISP=SHR'
00 OSN=IHS2.ACBLIB,OISP=SHR'
'IIDFSLOGTT 00 OSN=IHS2.LCGT,OISP=SHR'
'IIIEFRCER CD CSN=I~SLOG,OISP-C,KEEPI,VOL=C",99I,UNIT=CX
2400"OEFERI,'
'/I ecc" ClUCFM=VBS, BLKS I ZE= 1408 ,lRECL= 1400, BUFNO=ll '
'IISYSUOUHP DO SYSOUT=&&SOUT,CCI3=CRECFM=FBA,LRECL=121,BLX
KSIZE=b051,'
'II SPACE=C6D5,C50C,500I,RLSE"ROUNDI'
'.1
ADD NAHE=AC8GEN'
'.1
/l.UI'BER NEWl=lC ,INCR"'1C'
'II
PROC SOUT"'A,COHP=,RGN-10CK'
'IIG
EXEC PGH=OFSRRCOO,PARH="UPB,&&COHP",REGION=X
&&RCN'
'/I SYSPR I NT DO SYSOUT=&&SOUT'
ODDSN s IHS2.PSBLIB,DISP=SHR"
'1III1S
DO OSN-IHS2.0BOLI8,OISP-SHR'
'/I
DO DSN=IMS2~ACBLIB,OISP"OLO'
'/I IMSACS
DO UNIT-SYSDA,SPACE"CBO,C10C,lGCII'
'1ISYSUT3

'II
'1III1SA(8

3. 151

I~S

lOC

V2

SYSTEM UEFINITION.

OBJECT CODE

AOCR1 AIJOR2

ST~T

1l73+
+
1l74+
1275+
1276+
1277+
1278+
1l79+
1280+
1281+
+
1.18l+
1283+
+
1284+
ll8S+
+
1286+
ll87+
+
Il88+
+
1289+
+
ll<;C+
1291 +
+
1292+
1293+
1294+
+
Il95+
1296+
1297+
+
ll<;8+
Il99+
130C+
1301 +
130l+

1303+
13(14+
+
1305+
13(,6+
+
1307+
130H+
+
1309+
+
131(;+
+
1311+

3. 152

R3

CleG

27MAY72

PAGE
F010CT71

SOURCE STATEMENT

lC/02/7l

PUNCH '1ISYSUT4
00 UNIT=SYSOA,SPACE=12S6,C1CO,lCOII,DC8=KEYlX
EN=8'
PUNCH '1ICOMPCTl DO OSN=I~Sl.PROClleCDfSACBCPI,OISP=SHR'
PUNCH '.1
ADO NAME=OFSACBCP'
PUNCH '.1
NU~BER NEW1=lC oINCR=10'
COpy INOD=I~SACB,OUTUDaIMSACB'
PUNCH'
PUNCH '.1
ACD
NAME=PSBGEN'
PUNCH '.1
hUMBER NEW1=1~,INCR=10'
PUNCH '1/
PROC MBR=TEMPNAME,SOUT=A'
PUNCH 'IIC
EXEC PGM=IEUASM,REGION=llCK,PARM="lOAD,NODECX
K"

•

PUNCH '1ISY$lIB DO
PUNCH 'IISYSGU DO
OCI,RLSEI,'
PUNCH 'II
PUNCH 'IISYSPRINT DO
lKSllE=6CS),'
PUNCH 'II
PUNCH '1ISYSUT1 CO
OO,se) I'
PUNCH '1ISYSUT2 DO
CO,SOII'
PUNCH '''SYSUT3 DO

,

DSN=I~Sl.MAClIB,DISP=SHR'

UNIT=SYSDA,0ISP=I,PASSI,SPACE=C80,C1CO,lX
OCB=CBlKSllE=40Q,RECFM=FB,lRECl=801'
SYSOUT-&&SOUT,OCB=llRECl-lll,RECFM=F8M,BX
SPACE=C121,ISu~,SCOI,RlSE"RCUNDI'

UNIT=SYSOA,UISP=C,OElETEI,SPACE=11700,C1X
UNIT=SYSDA,OISP=C,DElETEI,SPACE=C1700,CIX
UNIT=I SYSDA, SEP= CSYSlI B,SYSUTl ,SYSUTllI, X

PUNCH 'II
SPACE=117CO,ClGO,SO))'
PUNCH ' I l l
EXEC PGM=Dt-SIlNKO,PARM="XREFollST",COND=CO,X
l T, C) ,REGION=llOK'
PUNCH '1ISTEPlIB DO
DSN=IMSl.RESlIB,DISP=SHR'
PUNCH '1ISYSlIN DO
DSN=*.C.SYSGo,OISP=IOlO,DElETEI'
PUNCH 'IISYSPRINT DO SYSOUT=&&SOUT,DC8=llRECl=12l,RECFM=FBA,BX
lKSIlf:=6CS), ,
PUNCH 'II
SPACE=Illl,llO(j,lOC),RlSE)'
PUNCH '1ISYSlMCO DO
OSN=IMS2.PSBll&I&&MBRI,DISP=SHR'
PUNCH '1ISYSUT1 DO
UNIT=ISYSDA,SEP=ISYSlMOD,SYSlINI),DISP=IX
,OElETF I,'
SPACE: 11024,1100,10 I ,RlSf) ,
PUNCH '1/
ADD
NAME=DBDGEN'
PUNCH '.1
~U~BER NEW1"'10,INCR=1O'
PUNCH '.1
PROC MBR=TEMPNAME,SOUT=A'
PUNCH 'II
EXEC PGM=IEUASM,REGION=ll0K,PARM="lOAD,NODECX
PUNCH 'IIC
K"

,

PUNCH '1ISYSliB DO
PUNCH 'IISYSGO DO
OO),RLSf),'
PUNCH '1/
PUNCH 'IISYSPRI~T 00
lKSIlE=6QS),'
PUNCH 'II
PUNCH '1ISYSUTl DO
00, SCi II'
PUNCH '1ISYSUTl DO
CO,SO))'
PUNCH :"SYSUT3 DO

DSN=IMSl.MAClIB,OISP=SHR'
UNITzSYSDA,0ISP=I,PASSI,SPACE=180,110Q,lX

PUNCH '1/

SPACE=117C~,llOO,SO))'

OCB=IBlKSllf=4UNCH '/IL
EXEC PGM=OFSILNKO,PARM="XREF,IIST,LET",CONUX
=(4,LT,CI,'
PUNCH '/I
REGION=120K'
PUNCH '/lSTEPLlB DO
OSN z IMS2.RESLIB,DISP=SHR'
PUNCH '/I SYSLI B 00
OSN-SYS1.PLILIB,DISP=ShR'
PUNCH '/I
CO
IlSN=SYS1.COBLlij,DISP=SHR'
PUNCH '/lRESLlB DO
IlSN=IMS2.RESLIB,DISP-SHR'
PUNCH '/lSYSLlN DO
OSN= •• C.SYSLIN,OISP=(OLD,OELETEI'
PUNCH '/I
00
DSN=IMS2.PROCLIBIPLITDLII,DISP=SHR'
PUNCH '/I
00
DONAI'oE=SYSIN'
PUNCH '/ISYSLMOO 00
OSN=IMS2.PGMLIBI&&MBRI,0ISP=SHR'
PUNCH '/lSYSPI{It.T 00 SYSOUT=&&SCUT,IlCB=ILRECL=121,RECFM=FBA,BX
LKSIZE=6051,'
PUNCH '/I
SPAC~·(605,(&&PAGES.0,&&PAGESI,RLSEI'
PUNCH ' /lSYSUTl 00
UNIT=SYSOA,0ISP=(,OELETEI,SPACE=ICYL,15.X
11. RLSE I'
PUNCH ' .1
ACO
r-.A ME= I ~S PL IGO'
PUNCH ' .1
NUMBER NEW1=IColNCR=10'
PUNCH '/I
PROC MBR=,PAGES=50,SOUT=A,PSB=,SPIE=O,TEST=O,X
BUF=8'
PUNCh 'IIC
EXEC t>GM:1 E:MAA, REG 10N= 114K,'
PUNCH 'II
PARM=' 'XREF, ATR, LOAO,NOOECK, NOMACRO, ,OPT X
=1' , ,
PUNCH '/ISYSUTl GO
UNIT=SYSDA,SPACE=II024,160,60I,RLSE,.ROUX
NOI, '
PUNCH '/I
OCB=BLKSllE=1024,0ISP=(,OELETEI'
PUNCH '1ISYSUT3 00
UNIT=SYSO~,SPACE=(1024,160,601,RLSE"ROUX
NOI,'
PUNCH 'II
DCB=BLKSIZE=1024,DISP=I,DELETEI'
PUNCH '/ISYSPRINT DO SYSOUT=&&SOUT,OCB=ILRECL=125,BLKSIZE=629X
,RECFI'=VijAI, '
PUNCH 'II
SPACE=(605,1&&PAGES.0,&&PAGESI,RLSEI'
PUNCH 'IISYSLIN DO
UNIT=SYSDA,SPACE=IBO,125J,8CI,RLSEI,DCij=X
BLKSIZE=BO,'
DISP=(,PASSI'
PUNCH 'II
PUNCH 'ilL
EXEC PGM=OFSILNKO,PARM="XI{EF,LIST,LET",CONDX
=(4,LT,CI,'
PUNCH 'II
REGION=120K'
PUNCH 'IISTEPLIB 00
OSN=IMS2.RESLIB,DISP=SHR'
PUNCH 'IISYSLIB DO
OSN=SYS 1. PL lL IB ,01 SP=SHR'

3.155

V2

IMS SYSTEM DEFINITIUN.
lOC

OBJECT CODE

ADDKI ADDR2

SOURCE STATEMENT

STMT
1438+
1439+
144(;+
1441+
1442+
1443+
1444+

PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH

+

1445+
1446+
+

1447+
+

1448+
+
1449+
·1450+
1451+
1452+
1453+

PUNCH 'II
PUNCH '1ISYSUT1 00
1I,RlSEI'
PUNCH 'IIG
EXEC
LTI,'
PUNCH 'II

PUNCH

+

1455+

PUNCH

+

1456+
1457+

PUNCH
PUNCH

+

1458+
·1459+
1460+
1461+
1462+

PUNCH
PUNCH
PUNCH
PUNCH
PUNCH

+

1463+
1464+
1465+
1466+
1467+
1468+
1469+
147C+
1471+
1472+
1473+
1474+

PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH

+

1475+
1476+
1477+
1478+
1479+
1480+

PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH

+
11,81+

3. 156

ClOO

27MAY72

PAGE
FOIOCT71

SPACE.,1605, I &&PAGES.O,&&PAGESI,RlSE I'
UNITaSYSOA,0ISP=I,OElETEI,SPACE=ICYl,(5,X
PGM=DFSRRCOO,REGION=150K,TIME=5,CONO=14,X
PARM="OLI,&&MBR,&&PSB,&&8UF,&&SPIE&&TESX

~NCH

'IISTEPLIB DO
DSN=IMS2.RESlIB,0ISP=SHR'
DO
OSN=IMS2.PGMLIB,DISP"SHR'
DO
OSN=IMS2.PSBlIB,DISP=SHR'
'II
DO
DSN"IMS2.08DlIB,DISP"SHR'
'IIIEFROER DO OSN=IMSlOG,OISP=I,KEEPI,VOL=(",991,UNITa(X
24DO"DEFERI,'
DCB" I RECFM=VBS ,BlKSll E=1408 ,lRECl=1400, BUX
'II
FNO=ll'
'IISYSPKI~T DO
SYSOUT=&&SOUT,DC8=elRECL-121,BlKSIZE-605X
,RECFM=FBA I,'
'1/
SPACE" I 605.c SOC, seo I ,RlSE" ROUND I'
'IISYSUCUMP DO SYSOUT=&&SOUT,OCB .. elRECL .. 121,BlKSIZE=605X
,RECFM=FBAI,'
SPACE= 1605 ,e 500 ,50C I ,RLSE" RCUNO I'
'II
, .1
ADD
NAME=MFDBDUMP'
~UMBER NEWl=lO,INCR-10 '
'.1
PROC SOUT .. A'
'II
EXEC PGM=DFSRRCOO ,PARM:' 'OLl, DFSSAHOB" ,REGIOX
'IIDUMP
N=130K'
'1ISTEPlIS DO DS~=IMS2.RESlIB,DISP"SHR'
'II
DD OSN=IHS2.PGMLIB,DISP"SHR'
'IIIMS
DO DS~=IMS2.PSBLIB,DISP"SHR'
'II
DO DSN: IHS2.DBDLlB,0ISP=SHR'
'IISYSUCUMP DO SYSOUT=&&SOUT'
'IIDI21PART OD OSN=IMS2.DI21PART,DISP=SHR'
'110121PARO DD OSN=IHS2.DI21PARO,DISP"SHR'
'IIUUTPUT OD
SYSOUT=&&SOUT'
'.1
ADD NAME=MFoBLOAD'
'.1
NUMBER NEW1"10,INCR=10'
'II
PROC SOUT=A'
'IILOAU
EXEC PGM-DFSRRCOO,PARMa"oLI,DFSSAM01",REGIOX
N=130K'
'IISTEPlIB DO OSN=IMS2.RESLlB,0ISP-SHR'
'II
DO OSN=IHS2.PGMlIB,DISP-SHR'
'IIIMS
DO oSN=IMS2.PSBlIB,DISpzSHR'
'II
00 oSN-IMS2.D8olIB,0ISP-SHR'
'1ISYSUoUMP DO SVSOUT=&&SCUT'
'1IDI21PART DO DSN=IMS2.oI21PARTIPRIMEI,DISP-I,KEEPI,DCBX
=DSORG=IS,
X'
'II
SPACE= ICVl, 3, ,CONTlG I, VOl=SER"&&PSER ,UNI X
'II

'IIIMS

35

10/02/72

DSN=SYSl.COBlIB,OISP=SHR'
OSN=IMS2.RESlIB,DISPaSHR'
DSN=*.C.SYSlIN,OISPzIOlO,OElETEI'
DSN=I MS2. PROCLI BI Pl (TOl I I,D I SP-SHR'
DDNAME=SYSIN'
OSNsIMS2.PGMlIBI&&MBRI,OISPaSHR'
SYSOUT-&&SOUT ,OCBs IlRECl=121,RECFM=FBA, BX

T" ,

PUNCH
PUNCH
PUNCH
PUNCH
PUNCH

+

1454+

'II
DO
'1IRESlIB CD
'1ISYSlIN DO
'II
DO
'II
DO
'1ISYSlMOD DO
'IISYSPRINT DO
lKSllE=6051,'

R3

V2

IMS SYSTEM DEFINITION.
LOC

OBJtCT CUDt:

ADOR1 ADDR2

STMT

SOURCE STATEMENT
~

14b2~

T=&&PUNI T'
PUNCH '1IOI21PARO DO

14B4~
14B5~
1486~

148 7~
1488~

PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PU,...CH

~

14!1'l~

14% ~
1.. 'l1 ~
14'l2 ~
14'l3~

PUNCH
PUNCH
PUNCH
PUr-.CH
PUNCH

~

1494~

1495+
14q6~

1497~
~

14 .. e~
1499~

150u+
~

15(.1 ~
1502~

15u3~

+
150"+
1~\J5+

1506+
15C 7+
+
15,)8+
+
l!>CC;+
151.j+
1511+
+
1512+
1513+
1514+
+
1515+
1516+
1517+
1518+
+
151 .. +
1520~

1521+
1522+
+
1523~

CLOO

27M4Y72

P4GE
F010CT11

36

10/02112

DSN=I~S2.DI21PARO,DISP=C,KEEPI,SPACE=CCYLX

X'
VOL=SER=&&OSER,UNIT-&&OUNIT'
'IISYSOUT DO
SYSOUT=&&SOUT'
'II INPUT CD DSN=IMS2.MACLIBCMFCFSYSNI,DISP=SHR'
'.1
ADD NIIME= IMSMSG'
'.1
t-UMBER NEW1=10,INCR=10'
'IIMESSAGE JOB l,IMS,MSGLEVEL=l,PRTY-ll,CLASS=A,MSGCLASSX
=3,REGICt-=30K'
'/IREGION EXEC PGM=DFSRRCOO,REGION=30K,TIME=1440,'
PAR"'="MSG,OCIOOOOOCOOC'"
'1/
DSN=IMS2.RESLIB.DISP=SHR'
'IISTEPLlB DO
DSN=IMS2.PGMLIB,DISP=SHR~
'II
CD
'/ISYSUOU",P DO SYSOUT=3,OCB=CLRECL=125,BLKSIZE=3129.RECX
FM=VBAI,'
SPACEs C125, C25CO, 100 I, RL SE, ,ROl;NO I'
'II
ADD
NAME=IMSBATCH'
'.1
r-.UMBER NEW1=lO,INCR=10'
'.1
PROC MBR=TEMPNAME,SOUT z 3,OPT=N,SPIE=O,TEST=O,X
'II
,
,3"CO~TIGI,

~

14B3~

R3

PUNCh
PUNCH
PUNCH
PUNCH

'II

PUNCH '/I
PSB=, IN= ,OUT=,CIRCA=OOO'
PUNCH 'IIG
EXEC PGM=DFSRRCOO,REGION=30K,'
PUNCH 'II PARM="B~P,&&MBR.&&PSB,&&IN,&&OUT,&&OPT&&SPIE&&TESTX
&&CIRCA" ,
PUr-.CH 'IISTEPLIB DO
DSr-.=IMS2.RESLIB,DISP=SHR'
PUNCH 'II
DO
DSN=IMS2.PGMLIB,DISP=SHR'
PUNCH 'IISYSUDUMP DO SYSOUT=&&SOUT,CCB=CLRECL=12l,RECFM=VBA,BX
LKSIZE=3l29I,'
PUNCH 'II
SPACE=C125,C2500,10CI,RLSE"ROUNDI'
PUNCH '.1
ADO
NAME=IMS'
PUNCH '.1
NU",BER NEWl=10.INeR-lO'
PUNCH 'II
PRDC RGN=30GK,DMB~=OOO,PSBP=000.DBBP=OOO,TPDPX
=ooe, WKAP=OOO,'
PUNCH 'II
S=O,PKEY=l,PTY=254,TEST=l,QCR=000,FBP=COX
O,SOUT=A'
PUNCH 'IIIEFPRCC EXEC ~GM=DFSRRCOO,REGION=&&RGN,'
PUNCH 'II PARM=CCTL, , .
•
PUNCH 'II &&PTY&&PKEY.O&&TEST&&S&&QCR&&FBP&&PSBP&&OMBP&&DBBP&&X
TPDP.~coeeO&&~KAPI'

PUNCH 'II.'
PUNCH 'II·'
PUNCH 'II·
00001' 4101
PUNCH 'II·'
PUNCH 'II·
PUNCH 'II·
PUNCH 'II·
=NON ZERO)'
PUNCH 'II·
PUNCH 'II·
PUNCH '1/.
PUNCH 'II·
N 1K BLOCKS I'
PUNCH '1/.

PARM=CAAA,BBBCOEFGGGHHHIIIJJJKKKLLLOOOOCX
AAA
BBB
C

REGICN TYPE'
DISPATCHING PRIORITY'
REGICN PROTECT KEYCO=O; lX

E
F
GGG
HHH

TEST OPTION'
CONTROL PROGRAM SUFFIX'
NUMBER OF QCR BUFFERS'
FORMAT BUFFER POOL SIZEC IX

III

PSB POOL SIZECIN lK BLOCKX

3.157

IHS SYSTEM DEFINITION.

LOC

OBJECT CODE

ADDRI ADDR2

V2
STHT
+
1524+
+
1525+
+
1526+
+
1527+
152B+
+
1529+
1530+
+
1531+
1532+
1533+
+
1534+
+
1535+
+
1536+
1537+
153B+
1539+
1540+
1541+
1542+
1543+
1544+
+
1545+
1546+
1547+
154S+
1549+
155C+
1551+
+
1552+
+
1553+
+
1554+
1555+
1556+
1557+
155B+
1559+
1560+
1561+
1562+
1563+
lSb4+

27HAV72

CLOO

SOURCE STATEMENT

PAGE
F010CT7l

SJ'
PUNCH

'II.

JJJ

OMS POOL SIZEIIN 1K 6LOCKX

SJ'
PUNCH

'II.

PUNCH

'II.

(IN 1K BLOCKS "

KKK

DATABASE BUFFER POOL SlZEX

III

LINE BUFFER POOlllN 1K BlX

COOOOO
000

RESERVEO PARM AREA'
WORKING STORAGE(IN II< BlOX

OCKS )I
PUNCH
PUNCH

'II.
'II.
CKS"

PUNCH 'II·'
PUNCH '/I.
IF SYMBOLIC PARHS ARE NOT SPECIFIED;
THX
E VALUES'
PUNCH 'II.
PROVIDED BY SYSTEM DEFINITION ARE USED.'
PUNCH 'II·'
PUNCH '/II EFRDER DO DSN= I MSlOG ,DISP"'( ,KEEP I ,VOL"'I,., 991, UNIT= (X
2400 .. DEFER I,'
PUNCH 'II
DCB=(RECFH=VBS,BlKSIZE-140S,lRECl=1400,BUX
FNO=lI'
PUNCH '/llflSlCGR DO
DSN=IMSlOG,DISP=(OlD,KEEPI,VOL=SER=COOOOX

0,'

PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUr.CH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH

UNIT=AFFaIEFRDER'
'/lQBLKS CO OSN=IMS2.QBlKS,oISP"OlD'

'/I

'IISHMSG 00 OSN=IHS2.SHMSG,DISP=OlD'
'IILGMSG 00 DSN=IMS2.lGMSG.0ISP=OlD'
'IIIMSACB DO OSN=IHS2.ACBlIB,DISPaSHR'
'IIOFSLOGTT 00 DSN=IMS2.lCGT,OISP"SHR'
'IIIHSDILIB DD DSN=IHS2.FORHAT,DISP-SHR'
'/lIHSSPA 00
OSN=IHS2.SPA,DISP=OLO'
'II SV SUDUHP 00 SYSOUT=&&SOUT,OCB-IlRECL=125,RECFM=FBA,BX
lKSIZE=3129I,'
SPACE=lbC50,300",ROUNOI'
'/I
'/lIMSDBL DO
OSN=IHS2.DBLlOG,DISP=SHR'
UNIT-OC2
IHS LINE 2'
' /lD02740S 00
DO
UNIT=OC3
'II
IMS LINE 3'
'/lD2740NSC DD
UNIT-OC1
IHS LINE 4'
'/l003270R DO
UNIT=OC9
IHS LINE 5'
'/l00327Cl DO
UNI T=310
IHS LINE b
TEX
RHINAL I'
DD
UNIT=312
IHS LINE 6
TEX
'II
RHINAL 2'
'/lDC327Cl2 DO
UNIT=311
IHS LINE
TEX
RMINAl I'
DO
UNI T=OCC
'/1001050
IHS LINE 8'
UNI T=OEO
IMS LINE 9'
' /lOD2260R 00
'/1002770
00
UNIT=OCS
IHS LINE 10'
'11D029S0
DO
UNI T=OCA
IHS LINE 11'
'/1002741
DO
UNIT=097
IHS LINE 12'
'/lDD2741S 00
UNI T-050
IMS LINE 13 '
'/l002741S2 DO
UNIT-053
HIS LINE 14'
DO
UNIT=OEl
' /1001030
"'IS LINE IS'
'/ISYSRORI
00
UNIT=OB1
IHS LINE 16'
DO
UNIT=vB2
IHS LINE 17'
' /lSYSPRTl
' /lSYSTAPE 00
VOl=CPRIVATE",99J,UNIT=OB5 IHS LINE IX

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

8'

3.158

R3

37

10/02172

V2

IMS SYSTEM OEFINITION.
LOC

08JeCT CUDE

ADORI AUOR2

STMT
1565+
1566+
1567+
1568+
156'H
157e +
1571 +
1572+
1573+
1574+
1575+
1576+
1577+
1578+
1579+
158C+
1581 +
1582+
1583+
1584+
l!>d5+
+
1586+
+
1587+
+
1588+
+
1589 +
l590+
+
1591+
1592+
+
1593+
1594+
1595+
+
1596+
1597+
1598+
+
1599+
1600+
1601+
+
1602+
1603+
+
1604+
1605+
+
16(,6+
1607+

SOURCE

R3

CLeo

FOI0CT71

STATE:/oIE~T

PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH

DO
DO
UO
DO
DO
DO
'/1
'/IDhX3335 DO
'/lOD211t0A UD
'IIDCI050A DO
'/lSYSI
'/ISYS2
'/ISYS3
'/ISYS4
'11 ARUODGPI

'".'

PAGE

27MAY72

0ISP=SHR,OSN a IMS2.SYS01·
DISPaSHR, DSN a IMS2. SYS02'
DISP"SHR,DSN=IHS2.SYS03·
DISP-SHR.OSN-11S2.SYS04·
UNIT-OFO
....
UNIT-OF3
•••
UNIT=OOl
•••
UNIT=061
•••
UNIT-060
•••

IHS
IHS
IMS
IMS
IMS

LINE
LINE
LINE:
LINE
LINE

38

le/02/72

20'
21'
22'
23'
24'

'".
'".
'".
'".

USER HUST SUPPLY THE DO STATEMENTS'
FOR THE ON-LINE DATA8ASES TO BE'
INSERTED HERE PRIOR TO ATTEMPTING'
AN UN-LINE SYSTEM EXECUTION USING'
'/I.
THIS PROCEDURE.'
'.1
ACO
NAME=SECURITY'
'.1
NUM8ER NEW1=10.INCR=10·
'11
PROC OPTN=UPOAT E, IMS=".O· ',SOUT-A'
'IIS
EXEC PGH=DFSISMPO,PARMa' ·&&OPTN.&&IHS.···
'IIST~PLIB DO OSN-IHS2.RESLIB,0ISPaSHR·
'IISYSPRI~T DO SYSOUT=&&SOUT,CCB=IRECFM=VBA,BLKSllE=400,X
8UFL=4041'
PUNCH 'IISYSPUNCH 00 UNITaSYSOA,SPACE=IBO,1800,4COI.,.ROUNDI.X
X'

PUNCH '11
=I,PASSI'
PUNCH 'IISYSLIN
DO
F,BLKSIlE"'801.·
PUNCH '/1
PUNCH 'IISYSUTl
DO

CCB a IRECFH=FB,LRECL=BO,BLKSIlE a 4001,CISPX

UNlTaSYSOA, SPACE" CTRK, Cl, 1 I I. DCe- I RECFHaX
DISPal ,PASSI'
UNIT-SYSOA.SPACE-II00.1400.4001".ROUNDIX

PUNCH "'11
DCB=IBLKSIlE-500,RECFM=FBI'
PUNCH '1ISYSUT2
DO UNIT=ISYSDA.SEP-SYSUT11,SPACE=II00.1400.X
40CI."RCUNDI,·
PUNCH '11
DCB= •• S.SYSUT1·
PUNCH 'IISYSIN
DO DSN-NO.SYSIN.DO.ASTERISK·
PUNCH 'IIC
EXfC PGM=IEUASM,PARH=··LOAO.NOOECK··.CONO-112X
,L T.SI, REGI ON=96K'
PUNCH 'IISYSPRINT DO SYSOUT=&&SOUT,OCB"IRECFH~F6/o1,LRECL=121,6X
LKSllE=6051 •
PUNCH 'IISYSGU
00 UNIT a ISYSOA,5EP-SYSPRINTI,OISP=C,PASSI,'
PUNCH '11
OC6"' •• S.SYSPUNCH,SPACE=180.1400,4001 •• ,RX
OUNOI'
PUNCH '1ISY5UTl
DO UNIT=SYSOA,5PACE-ICYL,15,111'
PUNCH '/lSY5UT2
DO UNIT=SYSOA,SPACE-ICYL, I 5,111'
PUNCH '115YSUT3
00 UNIT=ISYSDA,SEP"15Y5UT1.SYSUT21I,SPACE=IX
CYL.15.111·
PUNCH '115YSIN
00 DSN= •• S.5YSPUNCH.DrsP=IOLD.OELETEI'
PUNCH 'IlL
EXEC PGM=DFSILNKO.PARM .. ··LI5T.NE.OL··.REGION=X
1l0K.COt.D=1 4, LT, SI'
PUNCH '/lSTEPLlB DO D5N=IMS2.RESLlB,DISP-SHR·
PUNCH '/ISYSPRINT DO SY5DUT=&&SOUT.DC6"IRECFH-F6A.LRECL-121.6X
LK5IZE=6051'
PUNCH '1ISY5L~CD DO DSN"IMS2.RESLI6.DISP"SHR'
PUNCH 'IIINPUT
DO OSN- •• C.SYSGO.DISP"IOLD,DELETEI·

3.159

V2

IHS SYSTEM DEFINITION.
LOC

OBJECT CODE

AOCR 1 AOOR2

16C8+
+
1609+
161C+
1611+
1612+
1613+
1614+
+
1615+
1616+
+
1617+
1618+
1619+
1620+
1621+
1622+
1623+
1624+
1625+
1626+
1627+
1628+
1629+
+
163(,+
1631+
1632·
1633.
+
1634+
1635+
1636+
+
1637+
+
1638+
1639+
1640+
1641.
1642.
1643+
1644+

•

1645+
1646+
1647.
1648.
+
1649+
1650+
1651+
1652+

3.160

PUNCH ,'1ISYSUTl
PUNCH
PUNCH
PUNCH
PUNCH
PUtoICH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH

CLOO

27HAY72

PAGE
FOI0CT71

SOURCE STATEMENT

STHT

R3

DO

39

10/02172

UNIT=(SYSoA,SEP=INPUTI,SPACE=(CYL,(S,lIIX

'/ISYSLIN
DO OSN=*. S. SYSL IN,OI SP .. (OLD, DELETE I'
NAHE=FH1UTL'
ADD
'.1
~UH8ER NEW1=lC,INCR=10'
'.1
PROC SNOOE~IHS2,SOK·NOLIB,HBR=NOHBR,MNOOE-IMSX
'/1
2 .MAC=GElI;lIB,'
RGN=250K,8UF=4,SPIE=O,lESI-O.SOUT=A·
'/1
'II PREPROC EXEC PGM=IEUASH,PARH .. ··NOLOAO,OECK··,REGlON·IX
OOK'
'/ISYSPRINT 00 SYSOUT=&&SOUTI
'/ISYSPUNCH 00 OSN=&&&& ITBPASS, 01 SP= (NEW,PASS I, SPACE=( CX
YL,(l,ll1,'
UNIT"SYSOA'
'11
DSN=&&HNODE •• &&HAC,OISP=SHR·
'/ISYSLIB
DO
DO OSN=SYS1.MACLIB,OISP=SHR'
'II
'00 UNI T=SYSDA,SPACEz(CYl,( 1,111'
'/ISYSUTl
'1ISYSUT2
DO UNIT=SYSOA,SPACE-(CYL,(l,lll'
'/ISYSun
DO UNI1=SYSDA,SPACE-(CYL,(1,111'
'/ISYSIN
CO DSN=&&SNODE •• &&SOR( &&HBR I,D I SP=SHR'
'/IPhASEl EXEC PGM=DFSUNU10,COND=(8,LE,PREPRCCI,'
PARH="COHPRESS",REGION-&&RGN'
'II
'IISYSPR I toll 00 SYSOUT=&&SOUTI
'/ISYSUOUHP 00 SYSOUT"&&SOUT'
'/IUTPRIt.T 00 SYSOUT= &&'SOU1'
'/ISYSLIN
DO UNIT=SYSOA,SPACE=(CYL,(I,lll,OCS=BLKSIZEX
=800'
'/ISYSLHGC 00 OSt.=l HS2. REFERAL, CI SP=OLO'
'IIOUHMY
00 OUMMY,OCB=BLKSIZE=80'
'/ISYSUTl
DO UNIT-SYSOA,SPACE-CCYL,C1,111'
'/ISYSTEXT 00 OSN=&&&&TXTPASS,OISP=(NEW,PASSI,UNIT=SYSX
CA, '
SPACE=( CYL, ( 1,111, DCB=BLKSl ZE=eoc'
'/I
DO OStoI=&&&&ITBPASS.OISP=(OLO,OELE1EI·
'IISYSItoI
'IIPHASB EXEC PG~=OFSRRCOO,CONO=(4,LE.PHASE1I,REGION=&X
&RGN, •
PARH="OLI,OFSUNU20,OFSU1S20,&&BUF,&&SPIX
'/1
E&&TESft I t
00 OSN=IHS2.PSBLIB,OISP=SHR·
'/II"'S
00 OSN=IHS2.0BOLlB,OISP=SHR·
'II
'/IIEFRDER 00 OSN=&&&&I"'SLOG,DISP=(,PASSI,UNIT-SYSOA,'
SPACE-CCYL,C1,lll,OCB-OSORG=PS'
'/1
'/I0FSLl;GTT 00 OSN=I MS2.LeGT, 01 SP=SHR'
'11 SY SUDUMP 00 SYSOUT-&&SOU1'
'IISYSPRINT DO SYSOUT=&&SOUT,OCB=(RECFH-fA,LRECL=133,8LX
KSIZE=133I'
'/IUTPRINT DO SYSOUT"&&SOUT'
'/ISYSTEXT 00 OSN=&&&&TXTPASS,OlSP=(OLO,OELETEI'
'IIREFERAL 00 OSN=I HS2 .REFERAL, 0 I SP"SHR'
'IISE"BLKS DO OSN=&&&&BLKS,OI SP-( NEW. PASS I ,UNIT" SYSOA, X
SPACE=(CYl,(2,211'
'IIFHTlNCX DO OSN- I HS2.FMT INOX,O I SP=OLO'
'/IFMTlNCXO DO OSN .. IMS2.FMT INOXO ,01 SP=OLO'
'1IFMTOIl
DO OSN=IMS2.FORHATS,OISP=CLO'
'/IHSGINCX 00 OSN=IMS2.MSGlNOX.OISP=OLO·

VZ

IHS SVSTEM DEfiNITION.
lOC

OBJECT CUDE

ADDRI ADDR2

SOURCE

STMT
1653+
1b54+

1655+

PUNCH 'IIHSGINCXO DO
PUNCH '11MSC08
DO
PUNC~ '1IP~AS~4 EXEC

+

1668 +
1669+
1670+
1671+
1672+
1673+
1674+
1675+
1676+
1677+
1678+
1679+

.

168C+
1681+
1682+
1683+
1684+
1685+
1686+
1687+
1688+
1689+
1690+
1691+
1692 +
1693+
1694+
1695+
16<;6+
1697+
1698 +
16'1'1+
1100+
1701+
1702+
1103+
1704+

S"

CLOO

27HAV12

PAGE
f0l0CT71

ST~TEHENT

+

1656+
1657+
1658+
1659+
1660+
1661+
1662+
1663+
1664+
1665+
1666+
1667+

R3

40

10/02/72

OSN=IMS2.HSGINDXO.OISP=OlO·
USN" I MSZ.ME SSAGES,OI SP"Olo'
PGH .. DfSUNU30.REGION .. &&RGN.PARM .. ··COMPRESX

•

'IISEOBLKS 00 oSN"&&&&BLKS.oISpsIOLD.DELETEI·
'/ISVSPRINT DO SVSOUT .. &&SOUT·
'IIUTPRltIT DO SVSOUT,,&&SOUT'
'/lfORMAT
DO oSN s IMS2.fORHAT.OISP s OlD·
'11 SVSUDUMP DO SYSOUT=&&SOUT'
DO oUMMY.OCB-BLKSIIE-eo·
• II Dl;HMV
•• 1
ACD
NAHEsfHTINIT'
•• 1
NUMBER NcWl=10.INCR"10·
'IIIMSF"'T JOB 1.IHS.HSGlEVEl=l·
'/lSTEPl EXEC PGH=IEWl.REGION-13CK,·
PARM.. ··XREf,lIST.LET,NCAL,OCBS·'·
'11
• IISVSPR 1M 00 SYSOUTaA,OCe=IRECFH-FBA,lRECl-121,BlKSIIX
Es 6051,'
PUNCH '11 SPACE=1605,110,lOI,RlSE"ROUNOI'
PUNCH '1IlOAC
DO
OSN-IMSZ.lOAD,oISP"SHR·
PUNCH '1ISYSL~Co DO
DSN s IMS2.PSBlIB,0ISP=Olo·
PUNCH '1ISYSUT1 00
UNIT=SYSOA,SPACE-ICYl,I5,111'
PUNCH '1ISYSlI~ DO
$'
PUNCH' I~CLUDE LCAoIDFSUTS101'
PUNCH' N~HE CFSUTSIOIRI'
PUNCH' INCLUDE LCAOI DFSUTS20 I'
PUNCH' NAME DFSUTS20IRI'
PUNCH '1ISTEp2 EXEC pGM s IEWL,REGION s I30K,'
PUNCH '11
pARH="XREF,lIST,lET,NCAl,oCBS'"
PUNCH '1ISYSpRINT DO SYSOUT=A,DCB=IRECFH=fBA,lRECl"121,BLKSIIX
Ea 6C51, •
PUNCH '11 SpACE=1605,110,101,RlSE"RCUNDI'
PUNCH '1IlOAD
DO
oSN-IHS2.l0AD,DISp=SHR·
PUNCH '1ISVSlHCD DC
OSN=IMSZ.OBDLIB,oISp=Olo·
PUNCH 'I/SYSUTl DO
UNIT=SYSOA,SpACE"ICYl,15,11)'
PUNCH '1ISYSlIN 00
$'
PUNCH' INCLUCE lOADIDFSUTS301'
PUNCH' NAME OFSUTS3CIR)'
PUNCH' INCLUDE LCAoIDFSUTS40l'
PUNCH' NAHE DFSUTS40lRI'
PUNCH' I~CLUDE LOADIDfSUTS50)'
PUNCH' NAME DFSUTS50lR)'
PUNCh' I~CLUOE LCAOIDfSUTS601'
PUNCH' NAME OFSUTS60lRI'
PUNCH '1ISTEp3 EXEC pGH=IEBCOPY'
PUNCH '1ISYSpRINT 00 SYSOUT=A'
PUNCH 'IISYSUTI
DO oSN=IMSZ.LOAo,oISp=SHR·
PUNCH '1ISYSUT2
DO DSN=IMSZ.REFERAL,oISP=SHR·
PUNCH '/ISYSUT3
DO UNIT=SYSoA,SpACE=IBO,II0,ZOI)'
PUNCH '/ISYSUT4
00 UNIT=SYSOA,SpACE s I256,C2,411'
PUNCH 'IISYSIN
DO
$'
PUNCH' CCpy CUTOD=SYSUTZ,INDD=IISYSUT1,R))'
PUNCH' SELECT HEHBER=oFSHII'
PUNCH' SELECT MEMBER=DFSHIZ'
PUNCH' SELECT HEHBER=DFSHI4'
PUNCH' SELECT MEHBER=oFSH01'
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH

3.161

[HS SYSTEM DEfIN[T[ON.
LOC

OBJECT CODE

AOORI AOCR2

V2
SOURCE STATEMENT

STHT
1705+
1706+

1707+
1708+
1709+
1710+
1711+
1712+
1713+
1714+
1715+
1716+
1717+
1718+
1719+
1720+
1721+
1722+
1723+
1724+
1725+
1726+
1727+
1728+
1729+
1730+
1731+
+

1732+
1733+
1734+
1735+
1736+
1737+
1738+
1739+
1740+
1741+
1742+
1743+
1744+
1745+
1746+
1747+
1748+
1749+
175C+
1751+
1752+
1753+
1754+
1755+
+
1756+
1757+

3.162

R3

CLOO

27MAY72

PAGE
FOI0CT71

41

10102/72

PUNCH' SELECT MEMBER;OFSM02'
PUNCH
SElECT MEMBER=Of SM03'
PUNCH
SELECT MEMBER=OfSM04'
PUNCH' SElECT MEMBER=OfSOFl'
PUNCH' SELECT MEMBER=OfSOF2'
PUNCH' SELECT MEMBER=OfSOF4'
PUNCH '1ISTEP4 EXEC PGM-OFSRRCOO,REGION-200K,'
PUNCH '/I PARM-' 'OLI,OFSUTSOO,OFSUTSI0,4,OO'"
PUNCH 'II[MS
00 OSN=[MS2.PSBLIB,OISP=SHR'
PUNCH 'II
00 OSN~IMS2.0BOLIB,OISP.SHR'
PUNCH 'IIMSGINOX 00 OSN-IMS2.MSGINCX,CISP=OLO'
PUNCH '/IMSGINOXO 00 OSN2IMS2.MSGINOXO,OISP=OLO'
PUNCH 'IIMSGOB
00 OSN=IMS2.MESSAGES,OISP-OLO'
PUNCH '1IfMTINCX 00 OSN=IMS2.FMTINOX,OISP=OLO"
PUNCH "1IfMTINOXO 00 OSN-IMS2.FMTINOXO,OISP-OLO"
PUNCH "/lFMTCIl
00 OSN=IMS2.FORMATS,OISP a OLO"
PUNCH 'IISYSPRI~T 00 SYSOUT=A,OCBaBLKSIZE-80'
PUNCH "/ISYSIN
00 OSN=IMS2.GENLIBCOFSUTS70I,OISP=SHR'
PUNCH '1ISTEP5 EXEC PGM=OFSRRCOO,REGION a 250K,1
PUNCH "II PARM='IOLI,OFSUNU20,OFSUTS20,4,OO"11
PUNCH "IIIMS
00 OSN=IHS2.PSBLIB,0ISP=SHR"
PUNCH "II
00 OSN=IMS2.0BOLIB,OISP=SHR"
PUNCH "/lIEFROER 00 OSN=£.£.£.£.IMSLOG,OISP=C,PASSI""
PUNCH "II UNIT=SYSOA,SPACE=ICYL"ll,III,CCB a OSORG=PS"
PUNCH 'IIOFSLOGTT 00 OSN=IMS2.LOGT,OISP=SHR'
PUNCH '/ISYSUOUMP 00 SYSOUT=A"
PUNCH 'IISYSPRINT 00 SYSOUTaA,OCB=CRECFM=FA,LRECL=133,BLKSIZEX
=1331'
PUNCH 'IIUTPRINT 00 SVSOUT=A'
PUNCH 'IISYSTEXT 00 OSN=IMS2.GENLIBIOFSUTS901,0ISP=SHR'
PUNCH "/IREFERAL 00 OSN=IMS2.REFERAL,CISP=SHR"
PUNCH 'IIMSGINCX 00 OSN=IMS2.MSGINOX,OISP=OLO'
PUNCH 'IIMSGINCXO 00 ·OSN=IMS2.HSGINCXO,OISP=OLO'
PUNCH 'IIMSGOB
00 OSN=IHS2.MESSAGES,0ISP-OLO"
PUNCH 'IIFHTINOX 00 OSN=IMS2.FHTINOX,OISP-OLO'
PUNCH '/lFHTlNCXO 00 OSN=IHS2.FMTINOXO,OISP=OLO'
PUNCH '/lfMTOB
00 OSN=IMS2.FORMATS,CISP a OLO'
PUNCH '/ISEQI!LKS CO OSN=&&&&BLKS,OISP"INEW,PASSI,'
PUNCH I /I U~ITaSVSOA,SPACE= IC:VL, U ,111"
PUNCH '/ISTEP6 EXEC PGM a OFSUNU30 ,REGI ON=200K'
PUNCH "IISEQBLKS 00 OSN=&&&&BLKS,OISP=IOLO,OELETEI"
PUNCH 'IISYSPRINT 00 SYSOUT=A'
PUNCH '/IUTPRINT 00 SYSOUT=A'
PUNCH 'IISYSUOUMP 00 SYSOUT=A'
PUNCH "1IfORMAT
00 DSN=IMS2.FORHAT,OISP-OLO"
PUNCH "IIOUMMY
00 OUMMV,OCB=BLKSIZE-80"
PUNCH '.1
ADO
NAME"IMSRCR"
PUNCH '.1
NUMBER NEW1=10,INCR=10"
PUNCH "/1
PROC MBR-IMSMSG"
PUNCH "/lIEFPRCC EXEC PGM=IEFIRC,
READER FIRST LOAD I
PUNCH "/1
REGION=48K,
REAOER BASIC REGION"
PUNCH 'II
PARM="~01030050010249C5210SYSOA
X
DEFAULT PARM FLO'
PUNCH "II.
BPPTTTOOOMMMIIICCCRLSSSSSSSS'
PUNCH "/1.'

V2

IHS SYSTEH DEFINITION.
LOC

OBJE:CT CODE

ADDR 1 ADDR2

STHT

SOURCE STATEMENT

1758+
+

1759+
176u+
1761+
+

1762+
+
1763+
+
1764+
1765+
1766+
1767+
1768+
1769+
+

1770+
+

1771+
1772+
+

1773+
+

1774+
+

1775+
1776+
1777+
1778+
1779+
1780+
17131+
1782+
1783.
1784+
1785+
1786+
1787+
1788.
1789+
179C+
1791+
1792+
1793+
1794+
1795+
1796+
1797+
1791H
1799+
1800+
1801.
1802+
1803+

PUNCH 'II.
B
T NBR NOT NEECED'
PP
PUNCH 'II.
PUNCH 'II·
TTl
PUNCH ,'II·
000

R3

CLOO

27HAY72

PAGE
F010CT71

42

10/02/72

DEFINED PROGRAMMER NAME && ACCX
PRIORITY=u1'
JOB STEP INTERVAL-3u MINUTES'
PRIHARY SYSOUT SPACE-50 TRACKSX

I1HH
PUNCH 'II·
SECONDARY SYSOUT SPACE=10 TRACX
KS'
READER/INTERPRETER OISPATCHINGX
PUNCH 'II·
III
PRIORITY=249'
PUNCH '/I.
CCC
JOB STEP DEFAULT REGICN-52K' .
PUNCH 'II·
R
CISPLAY && EXECUTE COMMANDS-I'
BYPASS LABELau'
PUNCH ' / I .
L
PUNCH ' / I .
SSSSSSSS SYSOUT UNIT NAME=SYSDA'
PUNCH 'II·'
PUNCH 'IIIEFRCER DO DSN~IHS2.PROCLIB(&&HBRI,DISP=SHR,CCB=BUFNOX
zl'
PUNCH '1IIEfPCSI 00
OSN=IMS2.PROCLIB,OISP&SHR
PPOCEDURE X
LIBRARY'
PUNCH 'II
00
OSN=SYS1.PROCLIB,CISP-SHR'
PUNCH 'IIIEFUATA 00
UNIT=SYSOA.
SPOOLX
DEVICE'
PUNCH 'II
SPACE=(BO,(5GO,5COI,RLSE,CONTIGI, AHOUNX
T'

PUNCH 'II
OCB-(BUFNO=2,LRECL=80,8LKSIZE=BO,RECFM=FX
B, BUFL= BO I'
PUNCH '.1
ACO NAME:=IHSWTOOO'
PUNCH '.1
NUHBER NE~1=lv,INCR=10'
PUNCH '/I
PROC SOUTzA,JOB:A'
PUNCH '1ISPRTt JOB l,IHS,HSGLEVEL z 1,CLASS=&&JOB'
PUNCH 'IIPRINT EXEC PGH=OFSUPRTC,REGION=30K'
PUNCH 'IISTEPLIB 00 OSN=IHSZ.RESLIB,OISP=SHR'
PUNCH 'IISYSPRINT 00 SYSOUT=&&SOUT,OCBaBLKSIZE=141C'
PUNCH 'IISYSUOUMP 00 SYSOUT=&&SCUT'
PUNCH 'IISPOOLI 00 oISP=SHR,OSN=IHS2.SYS01'
PUNCH 'IISPOULZ 00 0ISP=SHR,OSN=IHS2.SYS02'
PUNCH '1ISPOOL3 00 DISP=SHR,oSN=IHS2.SYS03'
PUNCH '1ISPOOL4 DO oISP=SHR,OSN=IHS2.SYS04'
PUNCH '.1
ENOUP'
PUNCH 'I.'
PUNCH '1ISTEP3 EXEC PGH=IEV90,REGION=2COK,'
PUNCH ' / I PARH="LOAO,NODECK'"
PUNCH 'IISYSLIB DO DSN=IHSZ.GENLIB,oISP=SHR'
PUNCH 'II
DO USN=SYS1.HACLIB,OISP=SHR'
PUNCH '/I SY SLlII DO DSN=I I1S2. BLKS50 (oFSBBLKBI, iH SP=OLo'
PUNCH 'IISYSPRINT 00 SYSOUT=A,DCB=(BLKSIZE=6C51,'
PUNCH 'II SPACEz(6G5.(10u,501,RLSE"ROUNOI'
PUNCH '1ISYSUT1 DO UNIT=SYSDA,oISP=(,oELETEl,'
PUNCH '/I SPACE=ICYL,II0,511'
PUNCH '/ISYSIII DO .'
PUNCH'
OfSPSBD OUMHY,ZCiI8,O'
PUNCH '
SPACE 3'
PUNCH '
SPACE 3'
PUNCH'
IHSBATCH CENUA=Z5Z6,SVCNO=(234,248,213I'
OFSIPST REGIONS=l'
PUNCH'

3.163

V2

IMS SYSTEM DEFINITION.
lOC

OBJECT CODE

AOORI

AOD~2

STMT

ClOO

27MAY72

SOURCE STATEMENT

1804+
1805+
180b+

1807+
1608+
1809+
18lC +
1811+
1812+
1813+
1814+
1815+
1816+
1817+
1618+
1819+
182(,+
1821 +
1822+
1823+
1824+
1825+
1826+
1827+
1828+
1829+
+

183C+
1831+
1832+

PAGE
FOI0CT71

PUNCH •
TITLE I I oFSIOS4C - OSAM lOB ....
PUNCH •
OfSIOIOB ~UMIOB"l'
PUNCH •
CFSAVARA I,SECTYPE=CSECT'
PUNCH'
TITLE "oFSIWAIT - BATCH IWAIT ROUTINE.'~·
PUNCH 'oFSlwAIT CSECT'
PUNCH ••••••
PUNCH •••
PUNCH ••
IWAIT ROUTINE'
PUNCH •••
PUNCH ••
THIS CODE PUTS THE BATCH TASK'
PUNCH ••
INTO OS WAIT FOR THE DURATION'
PUNCH ••
CF A~ 110 OPERATION.'
PUNCH •••
PU~CH ••
ASSUMES UPON ENTRY:'
PUNCH ••
PUNCH ••
PST AOOR'
Rl
PUNCH ••
R13 SAVE ARE~ AOCR'
PUNCH •••
PUNCH ••••••
SPACE 3'
PUNCH •
SAVE C14.121 •• 0FSlkAIT·
PUNCH •
l
13.8(.131'
PUNC~t •
PUNCH'
WAIT ECB=ClI'
l
13,4(,131'
PUNCH '
RETURN 114,121'
PUNCH •
TITLE "OFSISCD - SYSTE~ CONTENTS DIRECTORY (SX
PUNCH '
COl." •
SECTYPE=CSECl'
PUNCH •
ISCI:
SCDDBFPl'
PUNCH •
eRG
F"8192"
OEFAULT BUFFER POOL SIlEX
PUNCH •
DC

+

1833+
1834+
1835+
1836+
1837+
1838+
1839+
184C+
1841 +
1842+
1843+
1844+
1845+
1846+
1847+
1848+
1849+
lA5e+
1851+
1852+
1853+
1854+
1855+
1856+

3.164

R3

PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH

..
•
•

'1.'

ORG'
EIIO'

'1ISTEP4 EXEC PGM=IEV9C,REGION=200K,'
'11 PARM···lOAO,NODECK···
'IISYSLIB 00 OSN=IMS2.GENlIB,DISP=SHR'
'11
DO DSN=SYS1.MAClIB,DISP=SHR·
'IISYSlI N 00 OSN= IMS2.BLKS50 COFS IDLIO I ,01 SP=OlD'

:~~g~ :~~S~~:~~~~6~~,~r~~~~~~:~~~~!~~~~!~~:6051 ••

PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH

'IISYSUTI 00 UNIT=SYSDA,oISP=I,DElETEI.·
'11 SPACE=ICYL,II0,511'
'IISYSIN DO ••
'PS8C7
OFSPSBO CONTEST,8000,O'
'PSBDl
OFSPSBO OFSSAM02,BOOo.O·
'PSBC2
OFSPSBO OFSSAM03,80CO,0'
'PSBD3
OFSPSBO OfSSAMC4.8000.0·
'PSBC4
OFSPSBO OFSSAM05,8COO.0·
'PSBC5
CFSPSBO OFSSAM06,8000.0·
'PSBC6
OFSPSBO DFSSAM07 .8000,0'
'PSBDB
DFSPSRO ENQOSK41.8000,0·
'PSBC9
OfSPSBO -HOTASK(.l, 8000, O'
'PS8CIC
OFSPSBo HHBLSK41,4000,O'
'PSBCll
OfSPSBO HHBlSK42,4000,O'

43

IG/02/72

V2

IMS SYSTEM DEFINITIUN.
LOC

OBJfCT CODE

ADDIU ADDR2

STMT
185H
1856+
1859+
1B6C+
1861+
1862+
1863+
1864+
1865+
1866+
1867+
1868+
1869+
187l+
1871 +
1872+
11173+
1874+
1875+
1876+
1 tl77+
1878 +
1879+
1880+
1881+
+
1882+
+
1tl83+
181)4+
1885+
1886+
1tltlH
+
1138tl+
+
18B9+
1890+
1891+
+
1892 +
+
1893+
+
1894+
1895+
1896+
+
1897+
+
1898+
+
1899+

SOURCE STATEMENT
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCh
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCh

• PSBD12
'PSklC13
'PS8C14
'PSBC15
'PSBD16
'PSBC20
'PSIIC21
'PSBD22
'PSBC23
'PSBD17
'PSB018
'PSBD19
'PS8C24
'PSBC25
'PS8C26
'PSBC27
'PSBC28
'PSBC29
'PS1!C30
'PSB031
'PSBC32
'PSBC33
,'PSIIC34

SB03 •
PUNCH '
PSBD3 •
PUNCH •
BD4 •
PUNCH •
PUNCH '
PUNCH •
PUNCH •
,PSBD5 '
PUNCH •
PSBD3 •
PUNCH •
,PSBD3 '
PUNCH •
PUNCH •
PUNCH •
PSIID6 •
PUNCH
SBD2 '
PUNCH •
8 •
PUNCH '
PUNCH •
PUNCH
25 •
PUNCH'
26 •
PUNCh •
27 •
PUNCH •

.

.

R3

CLOO

27MAY1Z

!'AGE
FOlOCT71

44

10/02172

DFSPSklO HHBLSK43. 4000. O·
OFSPSBD HHTASK41.80CO.0·
DFSPSBD HHTASK42.8000.C·
DFSPSBD HHTASK43,BOCO.O'
OFSPSBD HIBASK41. 4000. O·
DFSPSIID HIMAJCC1.8QOO.0·
OFSPSBD HIHAJC('2,8000,O'
OFSPSBD HIHAJC03,8000,O'
CFSPSBD HIHALH01,8uOO,O'
DFSPSBO HlTASK41,800C ,C'
OfSPS8C HIT ASK42, 8000,0'
OFSPSBO HSBASK41,40uO,O'
DFSPSBO LKHDFSOO,8000,O'
OFSPSBD L.KHDFS10,4000 ,0'
OFSPSBO HR 1.8000. C'
OFSPSBO HR2,80CO,O'
OFSPS80 HR3,8000,O'
DFSPSBO HR4,8000,O'
OFSPSBD HR5,8c.OO,e·
OF SPSBD HR6,8000,O'
DFSPSBD HR7,8000,O'
OFSPSBD HRB,80eO,O'
DFSPSBD HR9,80CO,O'
DFSSHB ACDINV,A70002,454C,65535,65535,O,5,O,PX
OFSSHB

ADDPART,A700C2,4540,65535,65535,C,4,O,X

DFSSHB

ClOSE.A70002,454C,65535,65535,e,3,O,PSX

CFSSH8
OFSSMB
DFSSH8
DFSSHB

CDNV1. 81lFFFF, 45C8, 3 ,6C,O ,1, 8(, ,PSBD7 '
CONV2,88FFFF,45E8,3,60,O,l,80,PSBD7 '
DFS,C50C05,4140,8.100,O,l,O,PS8024 •
DIS8URSE,A70e02,4540,65535,65535,O,2,CX

DFSSHB

OlETINV,A70002,4540,65535,65535,O,5~O,X

DFSSHB

OlETPART,A70002,4540,65535,65535,O,4,OX

DFSSHB
OFSSMB
OFSSHB

OLl, A50005, 8540,10,10 ,e ,l,C, PSBD23 •
OlN, 80(,003 ,4540 ,10 ,100.0,1, 0, PSBD23
DSPALL I, A70e02, 4140, 6.5535 ,65535,0 ,2, C, X

.

DFSSMB

OSPINV,A70002.4140.65535,65535.0,4,O,PX

CFSSMB

ENQ,88FFFF,4540,65535,65535,O,l,O,PSBOX

DFSSMB
OFSSIolB
DFSSMB

ICS,C5CC05,4548,10,100,O,l,O,PSB023 '
IMS, 52000A,0540, 1,100,0,1,0, PSBD23 •
LKH,OOFFFF,054C,65535,65535,O,l,O,PSBDX

OFSSMB

HR1,88FfFF,4540,65535,65535,O,l,O,PSeox

OFSSIolB

HR2,88FFFF,4540,65535,65535,O,l,O,PSBOX

DFSSMB

MR3, 88FFfF, 4540 ,65535, 65535,0,1,0 ,PSBOX

3.165

V2

IHS SYSTEM DEFINITION.
LOC

OBJECT CODE

ADOR 1 AODR2

STHT
+
1900+
+
1901+
+
1902+
+
1903+
+
1904+
+
1905+
+
1906+
+
19tH
+
1'>08+
+
1909+
+
1910+
+
1911+
+
1912+
+
1913+
+
1914+
1915+
+
1'>16+
1911+
1918+
1'119+
1920+
1921+
1922+
1923+
1924+
1925+
1926+
1921+
1928+
1929+
193C+
1931+
1932+
1933+
1934+
1935+
1936+
1931+

3.166

SOURCE STATEMENT
28 •
PUNCI1 '
29 •
PUNCH '
30 •
PUNCH •

R3

CLOG

21HAY12

PAGE
FOI0CT11

OFSSHB

HR4.B8FFFF,4540,65535,65535,C,I,0,PSBDX

OF 55MB

HR5 ,88FfFF, 4540 ,65535,65535,0, l,e, PSBOX

OF SSHB

HR6 ,88FFFF .454C ,65535,65535,0.1 ,0 ,PSBDX

45

10/02112

31'
OFSSHB HR1,88FFFf,4540,65535,65535.0.1,0,PSBOX
PUNCH •
32 •
OFSSMB HR8.8BFFFF,4540,65535,65535,0,I,O,PSBOX
PUNCH •
33 •
OFSSMB HR9,88 FFFF, 4540, 65535,65535, C, 1.0, P SBOX
PUNCH •
34 •
CFSSMB PART,A10002,4140,65535,65535,0,4,0,PSBX
PUNCH •
01 •
CFSSH8 SKO 1, B8FFFF ,4540,65535 ,65535,0,1,0, PSBX
PUNCH •
09 '
OFSS"B SKH 1 ,1l8FFFF ,4540 ,65535,65535,0,1.0, PSBX
PUNCH •
013 '
OFSSMB SKH2,88FFFF,4540, 65535 ,65535,0,1,0, PSBX
PUNCH •
014 •
OFSSM8 SKH3,88FFFF,4540,65535,65535,0,I.G,PSBX
PUNCH'
015 '
OFSSMI:I SK 11 ,88FFFF ,4540,65535,65535,0,1,0, PSBX
PUNCH '
011 '
DFSSHB SKI2,BBFFFF,4540,65535,65535,0,1,0,PSBX
PUNCH'
01B •
OF SSM8 TPPLl, 88FFFF ,4540, 65535, 65535.0,1.0 ,PSX
PUNCH'
B020 '
OFSSMB TPPL2, 88FFFF .4540 ,65535,6 5535 ,0.1,0, PSx
PUNCH •
B021 •
OFSSMB TUBE ,88FFFF,45C8, 65535, 65 535 ,0, 1,100 ,P X
PUNCH •
SB022 '
SPACE 3'
PUNCH •
ENTRY OFSLlSTG'
PUNCH •
PUNCH 'OFSLlSTO OS
00
USER SUPPLI ED 5MB EDITS'
DFSOMO 0041SKOl,0,0,1,0'
PUNCH •
OFSOMO
0041TS01,0,0,1,0'
PUNCH •
CFSOHD OH41SKOl,0,(j,1,0'
PUNCH •
OFSOMD OH41SK02,O,0,1,0'
PUNCH •
OFSDMO OH41SK03,0,0,1,0'
PUNCH •
OFSOMD OH4ITSOl,0,O,I,0'
PUNCH •
OFSOMO OH4ITS02,C;,c;"I,O'
PUNCH •
DFSOMO OH41TS03,O,Q,1,0'
PUNCH •
CFSOMD OI21PART,0,Q,1,C'
PUNCH •
OFSOHO OI31LH01,0,0,1,0'
PUNCH •
OFSOMO OI31PHC2,0,Q,I,0'
PUNCH •
OFSOMO OI41SKOl,0,Q,I,O'
PUNCH '
OFSOMO OI42SKOl,0,0,I,O'
PUNCH •
DFSOMD OS40JCOl,0,Q,I,0'
PUNCH •
DFSDMO DX41SKOl,0,0,1,0'
PUNCH •
DFSOHO OX41TSCl,Q,0,1,O'
PUNCH •
END' 3852
PUNCH •
PUNCH '1*'
PUNCH '1IIMSGEN2 JOB (82C,64431,IHS,MSGLEVEL=I,HSGCLASS=A.CLASX

V2

IMS SYSTEM DEFINITION.
LOC

OBJECT WUE

AOOK1 AOUR2

SHIT

+
1'738+
1'739+
194(, +
1941+
1942+
1943+
1944+
1945+
1946+
1947+
1948 +
+
1949+
19S0+
19S1 +
1952+
19S3+
1954+
19S5+
19S6+
1957+
195B+
1'7S9+
1960 +
1961+
1962+
1963+
1964+
1965+
1966+
1967+
1968+
1969+
+
1970+
1971+
1972+
+
1973+
+
1974+
197!>+
1976+
1977+
1918+
1'179+
1980+
19B1+
1982+
1983+
1984+
1985+
19B6+
1967+

SOURC E STA TEMENT
PUNCH
PUNCH
PUNCH
PUNCIl
PUNCH
PUNCIi
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUfliCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH

R3

CLOO

27MAY72

PAGE
F010CT71

46

lC/02172

S=O,PRTY=S'
'/lSTEPI EXEC PGM=IEV90,REGION=200K,'
'II PAR"'.' 'LCAC,NODECK'"
'IISYSLIB 00 OSN=IMS2.GENLI6,OISP-SHR'
00 OSN=SYS1.MACLIB,0ISP-SHR'
'/I
'IISYSLIN 00 OSN=IMS2.BLKS5010FSICLLOI,0ISP-OLO'
'IISYSPRINT 00 SYSOUTaA,OCB=IBLKSllE=6051,'
'II SPACE=1605,(10Q,501,RLSE,.ROUNOI'
'1ISYSLT1 00 UNIT=SYSOA,OISP=I,OELETEI,'
'II SPACE=(CYL,11C,SII'
'/ISYSIN 00 .'
SYSTEM
OFSCLB 1,0,O,1.COOB.O.CTSO-OFSICTB.O
'
CONSOLE CLB.'
2, OFOCB1. OFPLl, 1, OOOB, C, CTB 1-0FSI CTB,O'
OFSCLB
'.OFCll
,
AGO
.OFCL2'
'.OFPL1 ANOP'
'OFPLl OFTRMLST WRAPLST, IC6. E21'
AGO
.OFPL2'
'
'.OFCL2
OFSCLB 3, OFOCB1.0FPL2 ,2, 80EB. 0, CTS3-0FS ICTR,O'
,
AGO
.OFCL 3'
'.OFPL2 ANOP'
'OFPL2 OFTRMLST WRAPLST, 145,461'
AGO
.OFPL 3'
'
'.LERB1 ANOP'
'LERS1 LERB 2.1200,10.S.SI'
AGO
.LERB2'
'
4,OFOCB2,0,1.00E80C,O.CTBS-OFSICTS.O'
,'.CFCL3 CFSCLB
AGO
.DFCL4'
,'.CFPL3 ANOP'
AGO
.DFPL4'
' .LERB2 ANOP'
LERB
1,
(200,10,S.SI'
'LERE2
,
AGO
.LER83'
'.CFCL4 OFSCLB 5,DFOCB3,CFPL4,l.00E900.0.CTB6-0FSICTB,CX

,

AGO
• OFCLS'
PUNCH '
PUNCH '.OFPL4 ANOP'
PUNCH 'OFPL4 OFTRMLST AUTOWLST.140407F7F20.
CONT INUE'
C1C17F7F20,
PUNCH '
CONTINUE'
37373731371,'
PUNCH ',
PUNCH
AGO
.0fPLS'
PUNCH '. LERB3 ANOP'
PUNCH ,'LERS3 LERS 1, (200.10.5.51 '
PUNCH
AGO
.L ERB4'
PUNCH '. CfCLS OFSCLB 6,OFOCB4,0,1.00E800.0.CTB12-0FSICTB,O'
AGO
PUNCH ,
.OFCL6'
PUNCH ,'.OFPLS ANOP'
AGO
.0fPLb'
PUNCH
PUNCH '.LERS4 ANOP'
PUNCH 'LERf4 LERS 1,1200.10.S.SI'
AGO
.LERBS'
PUNCH '
PUNCH '.OFCL6 CFSCLB 1.0FOCBS,C.l.OOEBOO,0.CTB14-0FSICTB.O'
AGO
PUNCH ,
.OfCL7'

3.167

V2

IHS SYSTEM DEFINITION.
lOC

OBJECT CODE

ADORI ADDR2

1988+
1989+
1990t
1991+
1992,
1993+

•

1994.
1995'
1996+
1997'
1998'
1999,
2000'
ZC01+

•

27HAY72

PAGE

'.OFPl6

,

0'

,

201<;'
2020'
20Z1'
202Z'
ZOZ3+
2024'
ZOZ5.
2026'

2027+
20Z8'
ZC29'
2030'
2031,
Z032'
2033,

AGO
.OFCllZ'
PUNCH'
PUNCH ' .OFPlll ANOP'
AGO
PUNCH
.OFPl1Z'
PUNCH '.lERB10 ANOP'
PUNCH 'lERBI0 lERB
1,IZOil,10,5,5I'
AGO
PUNCH'
. l ERBll'
PUNCH '.OFC1l2 OFSClB 13,OFOCB11,O,1,00E800,O,CT8Z6-0FSICTB,OX

Z034'
2035.

PUNCH '
PUNCH '.OFPl12

•

ZOIC,
ZOll'
2012'

•

2013'
ZC14.
2015'
2016'
2017+
20111'

•

•

•

,

AGO
.OFCl13'
ANOP'

47

10/02172

ANOP'
AGe
.DFPl7'
'.lERB5 ANOP'
'lERB5 lERB. 1"200,10,5,51 '
AGO
.lERB6'
'
'.OFCl7 OFSClB 8, OFOCB6, Df'Pl 7, 1,OOE800, G,C TB15-DF SICTB, X
0'
PUNCH ,
AGO
.OFCl8 '
PUNCH '.OFPl7
ANOP'
PUNCH 'OFPl7 OFTRHlST WRAPlST,IE215,~415I'
AGO
.OFPL8'
PUNCH '
PUNCH '.lERBt> A~OP'
PUNCH 'lERB6 lERB 1,1200,10,5,51'
AGO
.lERB7'
PUNCH'
PUNCH '.OFCL8 OFSCL8 9, OFOCB7, OfPL8,l,OOE800 ,O,CTB17-0FS ICTB, X
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH

PUNCH
AGO
.OFCl9'
PUNCH '.OFPl8
ANOP'
PUNCH 'OFPl8 OFTRHlST WRAPlS T, 141FF ,40fF I'
AGO
.OFPL9'
PUNCH'
PUNCH '.lERB7 \r,op'
l,IZOO,10,5,5I'
PUNCH 'lERB7 lERB
AGO
.lERSS'
PUNCH '
PUNCH '.OFCL9 OFSClB 10,OFOCB8, OFPl9,l ,80E900 ,0, CTBZI-Of'S ICT8X
,0'
AGO
.OFCLlO'
PLNCH '
PUNCH '.OFPl9 ANOP'
PUNCH 'OFPl9 OFTRHlST AUTOWlST,IC1CIF520,C1CIF620,
CONT INU£:,
C1C1F720,373737371'
PUNCH '
AGO
.DFPlI0'
PUNCH '
PUNCH '.lERIl8 ANOP'
1,120(',10,5,51'
PUNCH 'lERBS lERB
AGO
PUNCH'
.lERB9'
PUNCH '.OFCllO OFSClB 11 ,OFOCB9, OFPllO, 1 ,80E900,0, CTBZ2-0FS ICX
TB,O'
AGO
.OFClll'
PLNCH '
PUNCH '.OFPllC, ANOP'
PUNCH 'OFPUO OFTRHlST AUTOWLST,le1C1F020,37373737I'
AGO
.OFPlll'
PUNCH'
PUNCH '.lERB9 ANOP'
PUNCH 'lERB9 lERB 1,1200,10,5,51'
AGe
.lERSI0'
PUNCH '
PUNCH '.OFClll OFselB 1Z,OFOCB10,C,I,OOE80C,O,CTB25-OFSICTB,OX

Z002'
ZOC3'
ZOC4t
Z005.
2006.
2007+
2008.
2009.

3.168

ClOO

F010CT7l

SOURCE STATEMENT

STMT

R3

Vl

IMS SYSTEM DEfiNITION.

LOC

OBJECT CODE

ADDRI ADDR2

SOUJ{CE STATEMENT

STMT
2036+
2037+
2038+
2039+
204l.+

2C.42+
l1l43+
2(,44+
2(,45+
2~46+

2047+

Z065+

2066+
2067+
2G6!!+
2.169+

27MAY12

PAGE
F010CT71

48

10/02172

,

,

PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH

AGO
.DFCLl4'
ANOP'
AGO
.DFPL14 t
'.LERB12 ANOP'
, LERB12 LERB I, (200,10,5,5"
AGO
.LERB13'
'
OFSCLII IS, OfOCB13, OFPLlIt, I, oeE 800 t 0 ,CTB2B-DF SI X
'.OFCl14
CTB,O'
AGO
.DFCL15'
'.OFPl14 ANOP'
'OFPL14 CfTR~lST WRAPLST,(64,t
AGO
.OFPL15'
'
'.lERB1) ANOP'
'LERB13 LERB I, (200,10,5,5"
.lERB14'
AGO
'.OFCLlS DFSCLB 16,OFCCB14,O,l,COEBOO,O,CTB30-0FSICTB,OX

PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH

AGO
• OFCL 16'
'
'.OFPLlS ANOP'
AGO
• OFPL 16'
'
'.LERB14 ANOP'
LERB
l,(200,10,S,S"
'LERB14
AGO
.LERBlS'
'
'.OfCL16 OFSCLB 17, DFOCB IS, 0,1, OOESOO, Il,CTB31-0FSICTB ,OX

PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH

'
' .OFPLl6

PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH

AGO
.DfCLlS'
ANOP'
AGC
.DfPL IS'
'.LERB16 ANOP'
LERB
1,(200,10,5,5"
'LERB16
AGC
.LERB17'
'
'.OfeLl8 OfseLB 19,OFoeB17,O,l,OOESOO,C,CTB33-0FSICTB,4X

PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH

+
21.48+
2049+
2('5':+
2051+
2052+
2053+
2054+
2U55+
+
2056+
2(;57+
2e5t!+
2059+
206e+
2061+
206l+
+
2063+
2;;64+

CLOO

AGO
.DFPL13'
PUNCH'
PUNCH '.LERBll ANOP'
I, (200,10,5,51'
LERB
PUNCH 'LERBll
AGO
.LERII12'
PUNCH
PUNCH '.OFCLl3 OFSCLB 14, DFOCB12, 0,1, 00E800,O, CTB21-DFS ICTB ,OX

+
2041+

R3

'

,'.OfPL13

,
,

,

,

AGO
.OFCLl7'
ANOP'
AGO
.DFPLl1'
'.LERB15 ANOP'
1'(200,10,5,5"
'LERB15 LERB
AGC
.L ERB16'
'.OFCL17 OFSCLB 1B,DFOCB16,C,l,OCE800,C,CTIl32-DFSICTB,OX

,
,

+
207,,+
2071+
li.72+

2013+

2" 74+
2075+
2076+

+
2071+
207S+
2J79+
2Ga.:.+
2081+
2J82+
2083+

PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH

'

,' .OfPll 7

,

AGC
.OfCLl9'
ANOP'
AGO
.DfPL19'
'.LERB17 ANOP'
1,(200,10,5,5"
'LERB17 LERB
AGO
.LERB21'
'.CFC1l9 OFSCLB 20,D~OCB21,C,l,00EBOO,0,CTB34-0FSICTB,OX
'
'.OfPL18

,

,
,

3.169

IMS SYSTEM DEFINITIUN.
LOC

OBJECT CODE

AODRI AODR2

V2

STMT
20B4+
2('85+
2086+
20B7+
+
208B+
20B9+
2090.
2091+
2092+
2093+
2094.
+
2095+
2096+
2097+
2098+
2C99+
21CO+
2101+
+
2102+
2103+
Z104+

2105+
2106+
2107+
21(;8+
2109+
+
2110+
Zl11+

21lZ+
2113+
2114+
+
2115+
+
21l6+
2117+
2118+
+
2119+
2120+
2121+
212Z+

.+
21Z3+

+
2124+
2125+
2126+
+
2127+
2128+

3.170

R3

CLOO

27MAY72

SOURCE STATEMENT
PUNCH '
PUNCH '.OFPU"
PUNCH ,
PUNCH '.CfCLZO
,

PAGE
FOlOCT71

10/02172

AGO
• OFCL2C'
ANOP'
AGO
.OFPLZO'
OFseLB ZI, OFDe821. 0, 2,OOE800, C, CT835-DFS I CTB ,OX

AGO
.DFCL21"
'
'.DFPLZO ANOP'
I
AGO
.OFPL21'
'.LER8Z1 ANOP'
"LERB21 LERB Z,1200,10,5.51"
AGO
.LI:RBZ2"
'
".CFCL21 OF seLS 22,OfOCB22. 0,1 ,oeE 800. 0.CTB36-0F SI CTB .OX
I
AGO
.OFCLZZ'
PUNCH '
PUNCH '.OFPL21 ANOP'
AGO
.OFPL22'
PUNCH'
PUNCH '.LERB22 ANOP'
PUNCH 'LERB22 LERB 1. I 200,10,5,51 '
PUNCH I
AGO
.LERB23'
PUNCH '.OFCL2Z OFSClB Z3,OFOCB23,CFPLZ2,l,OOEBOO,O,CTB37-0FSIX
CTB .0"
PUNCH I
AGO
.OFCL23'
PUNCH ".OFPLZ2 ANOP'
PUNCH ,"OFPl2Z CFTRMLST OIALST,0,IE2I'
PUNCH
AGO
.OFPL23'
PUNCH '.LERBZ3 ANOP'
PUNCH 'lERB23 LERB 1.1200010.5,51'
AGO
.LERB24'
PUNCH '
PUNCH '.OFCl23 OFSCl& 24,DFOCB24.CFPL23.1.0CE800.C.CTB3B-OFSIX
CTB.O·
PUNCH I
AGO
.OFCLZ4'
PUNCH '.DFPlZ3 ANOP'
PUNCH 'OFPL23 DFTRMLST OlAlST.0.IEZ151'
PUNCH ,
AGU
.DFPLZ4'
PUNCH ·.OFClZ4 DFSCLB 25.DFOCB24.0.1.COE800.0,CTB39-0FSICTB.OX
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH

PUNCH I
TITLE .IOFSICLLO - COMMUNICATICN LINE POLLING X
LISTS." ,
PUNCH I
AGO i .OFPLl"
PUNCH '.OfPL24 ANOP'
PUNCH I
TITLE "OFSICLLO - COMMUNICATION LINE ERROR BLX
OCKS." •
PUNCH I
AGO
.lERBl'
PUNCH '.LERB24 ANOP'
PUNCH 'LERB24 LERS 1,IZOO,10.5,5I'
PUNCH'
TITLE IIOFSICLLO - COMMUNICATION LINE GROUP DCX
B"" .. S . . . •

PUNCH "OFOCBl CCB
DSORG=CX,MACRF=IR.WI,lERB=lERBl,
CONT INUE'
PUNC ... •
ERPOPT=CTR W, CONAHE=OOZ 74 OS'
PUNCH I
EJECT"
PUNCH "DFOCB2 OCB
OSORG=CX,MACRF=IR,WI,LERB=lERB2,
CONTINUE"
PUNCH I
ERROPT=CTRW,CONAME=DZ740NSC"
PUNCH'
EJECT'

49

VZ

II1S SYSTEI1 DEFINITION.

LaC

OBJECT CODE'

ADDR 1 ADDRZ

STI1T
2129+
+
213(,+
2131+
2132+
+
2133+
2134+
2135+
+
2136+
2137+
2138+
+
2139+
214C+
2141 +
+
2142+
2143+
2144+
+
2145+
2146+

Z147+
+
2148+
2149+
215e+
+
2151+
2152+
2153+
+
2154+
2155+
2156+
+
2157+
215B+
2159+
+
2160+

Z161+
2162+
2163+
+
2164+
2165+
2166+
+
2161+
2168+
2169+

SOURCE STAHHENT

R3

CLOO

2711AY72

PAGE

FOI0CT71

50

10/02172

OSORG=CX,HACRF z IR,WI,LERll z lERB3,
PUNCH 'OFOCB3 OCB
CONTINUE'
ERROPT"C T, OEVC= BS, OCNAHE=0032 70R'
PUNCH '
EJECT'
PUNCH '
GSORG-CX, HACRFz I R ,W I, LERIlsLERB4,
PUNCH 'OFCCIl4 CCB
CONTINUE'
ERROPT=CT,OONAME=CD3210L'
PUNCH '
EJ ECT'
PUNCH '
DCB
CSORG=CX
,M ACRF= IR ,W I, LERB=lERB5,
PUNCH 'DFDCB5
CONTINUE'
ERROPT=CT,
CONAME=OD3Z1Cl2'
PUNCH '
EJECT'
PUNCH '
OSORG=CX,MACRF=IR,W l,lERB=lERB6,
PUNCH 'OFOCB6 DCIl
CUNTINUE'
ERROPT=CTRW,CO~AHE=DOIC50'
PUNCH '
EJECT'
PUNCH '
DeB
CSORG:CX,MACRF=I
R,W I,LERB"LERB1,
PUNCH 'OFCCIl7
CONTINUE'
ERROPT=CTRW,OONAME-OD2260R'
PUNCH '
EJ EC P
PUNCH '
DSnRG=CX ,MACRF= I R, WI ,LERB=lERB8,
PUNCH 'DFDC68 DCB
CONTINUE'
ERROPT=CT,OEVC=BS,DCNAME=D02110'
PUNCH '
EJ EC T'
PUNCH'
OSORG"CX ,MACRF= IR, WI , l ERB=lERB9,
PUNCH 'OFCCB9 CCB
CONTINUE'
ERROPT=CT,OEVC=BS,OCNAME:D029BO'
PUNCH '
EJECT'
PUNCH '
CCB
OSOKG=CX,MACRF=IR,WI,lERB:lERBI0,
PUNCH 'DfDC81C
CaNT INUE'
ERROPT=CT~,DCNAI1E=002741'
PUNCH '
EJEC T'
PUNCH '
DSORG=CX,MACRF=IR,WI,lERB=lERBll,
PUNCH 'OFCCBll CCB
CONT I NUE'
ERROPT=CT~,OCNAHE=D02141S'
PUNCH '
EJECT'
PUNCH '
OSORG=CX, HACR F=IR ,loll ,lERB=lERB 12,
PUNCH 'OFOCBIZ LCB
CONTINUE'
ERRUPT=CT.,OCNAME=OD2741SZ'
PUNCH '
EJEC P
PUNCH '
CCB
DSORG=CX,MACRF=IR,wl,lERB=lERB13,
PUNCH 'OFCCI1l3
CONTINUE'
ERROPT=CTRW,OONAME=DOI030'
PUNCH '
EJEC po
PUNCH '
EXTR~ OFSYSOUT '
PUNCH '
PUNCH 'OFDCfl14 DCB DSOKG=PS,HACRF=R,DEVO=DA,RECFM=F,BlKSIZE=80X
CONTINUE'
PUNCH
DDNAHE=SYSROR1'
EJEC T'
PUNCH '
DSORG=PS,H~CRF=W,OEVO=DA,EXlST=OFSYSOUT, X
PUNCH 'DFDCB15 CCB
CONTINUE'
DONAME=S YSPR H'
PUNCH '
EJECT'
PUNCH '
OSORG=PS,MACRF=W,OEVO=OA,EXLST=OfSYSOUT, x
PUNCH 'OF DCB It: CCB
CGNTINUE'

3. 171

IMS SYSTEM DefiNITION.
Loe

OdJECT CODE

AODRI ADDR2

V2
STMT

SOURCE STATEMENT

21n+
2171+
2112+
+

2113+
2114+
2115+
+

2116+
2111+
2118+
+

2119+
2180+
2181+
+

2182+
2183+
2184+
2185+
+

2186+
2181+
+

2188+
2189+
2190+
+

2191+
2192+
2193+
+
2194+
2195+
+

2196+
2191+
2198+
2199+
220(;+
2201+
ZZ02+
2Z03+
ZZ04+
2205+
2206+
ZZ01+
2Z08+
2209+
2210+
2211+
2212+
2Z13+
Z214+
ZZI5+

3.172

R3

CLOO

21MAV72

PAGE
FOI0CT71

PUNCH '
DDNAHE=SYSTAPE'
PUNCH'
EJECT'
PUNCH 'OFCCBI7 [C8
DSORG=PS,MACRF=IR,WI,OEVOzOA,EXlST~DFSYSDX
UT,
CONT INUE'
PUNCH '
ODNA~E=SYSl'
PUNCH'
EJECT'
PUNCH 'OFDC~18 CCB
OSCRG=PS,MACRF=IR,WI,DEVD=DA,EXLST=DFSYSOX
UT,
CONTINUE'
PUIliCH '
CCNAME=SYSZ'
PUIliCH '
EJECT'
PUNCH 'OFOCBI9 OCB
OSORG=PS,MACRFsIR,WI,OEVD=OA,EXLST=OFSYSOX
UT,
CONTINUE'
PUNCH '
DDNAME=SYS3'
PUNCH '
EJECT'
PUNCH 'OFDCB20 CCB
OSORG=PS,MACRF=IR,WI,OEVD=OA,EXLST=OFSYSOX
UT,
CONTINUE'
PUNCH '
DDNAME=SYS4'
PUNCH '
DC
AIOI
ENO OF SPOOL OCB SET '
PUNCH '
EJECT'
PUNCH 'DFCCB21 CCB
OSORG=PS,MACRF=IEJ,CENDA=l6,XENDA=l6,DONAX
ME= ARUOCGP l'
PUNCH '
EJEC T'
PUNCH 'DFCCBZ2 DCB
DSORGaC.X,MACRFs(R,WI,LERBzLERBZZ,
CONTINUE'
PUNCH'
ERROPT=CTRW,CDNAME=OTWX3335'
PUNCH '
EJ ECT'
PUNCH 'DFOCB23 tCB
DSORG=CX.MACRF=(R,WI,LERB"LERBZ3,
CONTINUe'
ERROPT=CTRW,CCNAME=00274CA'
PUNCH'
PUNCH '
EJEC T'
PUNCH 'DFCC~24 tCB
DSORG=CX,MACRF=CR.WI,LERB=LERBZ4,
CONTINUe'
ERROPT=CTRh,CDNAME=ODI05CA'
PUNCH'
PUNCH'
TITLE ItDFSICLLO - COMMUNICATION LINE GROUP. OPX
EN LIST.' It
PUNCH '
ENTRY OFSICOB'
PUNCH 'OFS(CtB OS
00'
PUNCH'
DC
ALIIOJ,AL310FOCBII'
AL 1(0 It AU I DFOC821'
PUNCH '
DC
PUNCH'
DC
ALIICI,AL3IDFDC83I'
PUNCH'
DC
ALIIOI,AL310FOC84I'
PUNCH'
DC
AL1101.AL3IDFDC85I'
PUNCH'
DC
ALIICI,AL310FOC86I'
PUNCH'
DC
AL1101,AL3ICFDC87I'
PUNCH'
DC
All 10 I. AL310FDC881'
PUNCH'
DC
All 10 I, Al3 IDFDCB91'
ALI10l,AL31DFOCBICI'
PUNCH '
DC
PUNCH'
DC
ALI10l,AL3COFDC811l'
PUNCH'
DC
ALII01.AL3IDFOC812I'
PUNCH'
CC
AL 1(0 I, AUI DFDC8131'
ALII0I,AL3(OFOCBI41'
PUNCH'
DC
PUNCH'
DC
ALll151,AL310FDC8151'
ALlI151,Al310FOC8161'
PUNCH '
DC
AL1131,Al31DFDCB171'
PUNCH '
DC
PUNCH'
DC
ALll31,AL310FDCB181'

51

lC/02/72

IHS SYSTEH DEFINITION.
L OC

U~J

EC T COOE

ADDRI AOOR2

V2
S THT
2216+
2217+
2218+
2219+
2220+
2221+
2222+
+
2223+
+
2224+
222!l+
222~+

2227+
+
2228+
2229 +
+
2230+
2231+
+
2232+
2233+
+
2234 +
2235+
+
2236+
2237+
+
2238+
2239+
+
224\..+
2241 +
+
2242+
2243 +
+
2244+
2245+
+
2246+
2247+
+
2248+
2249+
+
22 ~c.+
2251+
+
2252 +
2253+
+
2254+

.

SOURCE STATEMENT

R3

CLOO

27HAY72

PAGE
FOIOCT71

52

10/02/72

PUNCH'
ALlI31,AL3(DFOCB19I'
DC
ALlI31,AL3(OFOCB2CI'
DC
PUNCH '
ALllll, AL3( DFDCB21l'
DC
PUNtH '
ALIIOI.AL3(DFDCB22I'
DC
PUNCH '
ALlIC I.Al3(OFOCB23I'
DC
PUNCH '
ALlI12BI.AL3(OFOCB24I'
DC
PUNCH '
DFSCTB
G,1,OOOCOO,000003CO,OO,CO,CNT64-0FSICNT,O,OX
PUNCH 'CT BO

,0'

CFSCTB 1,2,C681Bl,4000GlCO,CC,CO,CNTI-0FSICNT,X
CUNTINUE'
COB I-OF S ICOB ,0 ,C'
PUNCH '
ENTRY UFSCTBHT'
PUNCH '
PUNCH 'OFSCTBMT EQU
CTBl'
OFSCTB 1,2,E28181.00000300,OC,QO,CNT3-DFSICNT,X
PUNCH 'CTB2
COf-lT INUE'
COBI-DFS I COB ,0,0'
PUNCH '
OFSCTB 2,3,4581Bl,00CGClOO,OQ,OO,CNT4-0FSICNT,X
PUNCH 'CT63
CUNTINUE'
COB2-0FSICOB,O,O'
PUNCH '
OfSCTB 3.3,468181,OOOOC3CO,CO.OO,CNT5-0FSICNT,X
PUNCH 'CT84
COt-oTINUE'
COB3-DFSICGB,O,O'
PUNCH '
OFSCTB 4,4,E2B181,OGC0030C,OC,CQ,CNT6-0FSICNT,X
PUNCH 'CT65
COf-lTlNUE'
COB4-0FSICOB,u,0'
PUNCH '
PUNCH 'CTI!6
OfSCTB 5,5,404C81,OGOOCIOC,OO,OA,CNT7-0FSICNT,X
CONTINUE'
COB5-DFSICOB,O,CIBI-CFSICIB'
PUNCH '
DFSCTB 5,5,C14081,COOOOIOC,18,2A,CNT9-0FSICNT,X
PUNCH 'CT87
CONTINU£:'
COB5-0FSICOB,0,CIB2-0FSICIB'
PUNCH '
PUNCH 'CT68
DFSCT6 5,5,CIC181,OOCOGIOG,18,2A,CNTIO-OFSICNTX
CONT INUE'
COB5-0FSIC06,O,CIB3-0FSICIB'
PUNCH
DFSCTB 5,5,CIC281,OGCOOIOO,lC,2A,CNTII-OFSICNTX
PUNCH 'CT69
CONTINUE'
PUNCH
COB5-0FSICOB,C,CIB4-CFSICIB'
OFSCTB 5,5,CIC381,C000014C,8B,2A,CNT12-DFSICNTX
PUNCH 'CTBIO
COf-lTINUE'
CO~5-DFSIC06,O,CIB5-0FSICIB'
PUNCH
OFSCTB 5,5,CIC481,OOC00340.88,2A.CNT13-0FSICNTX
PUNCH 'CTBll
CONT INUE'
COB5-0FSICO~,O.CIB6-0FSICIB'
PUNCH
DFSCTB 6.6,lOB181.0000010C.C8,2A,CNT14-0FSICNTX
PUNCH 'CT612
COf-lTlNUE'
COB6-DFSICOB,O,CIB7-0FSICIB'
PUNCH
OFSCTB 6,6,128181.00C003CO.OC,2A.CNT15-DFSICNTX
PUNCH 'CTB13
ceNT INUE'
COB6-DFSICOB,O.CIB8-DFSICIB'
PUNCH
PUNCH 'CTB14
DFSCTB 7.7,118181,COOOC34C,88,2A,CNT16-DFSICNTX
CONTINUE'
COB7-DFSICOB,0,CIB9-DFSICIB'
PUNCH '
CFSCTB 8,8,E2C281,OOOOOlOO,20,2A,CNT17-DFSICNTX
PUNCH 'CTB15
CONTINUE'
PUf-lCH
C08B-DFSICOB,C,O'
PUNCH 'CTBI

3.173

VZ

IHS SYSTEM DEFINITION.
LOC

OBJ EC T CODE

ACCRI AODRZ

SHIT
ZZ55+
+
ZZ56+
2257+
+
ZZ5B+
ZZ59.
+
ZZ60+
ZZ6l+
+
Z26Z+
ZZ63+
+
ZZ64+
2Z65+
+
2Z66+
ZZ67+
+
ZZ68+
Z269+
+
2270+
2271+
+
2272+
2Z73+
+
Z274+
2275+
+
2276+
2277+
+
2278+
2Z79+
+
ZZ80+
2281+
+
2Z82+
2283+
+
2284+
2285+
+
2Z86+
Z2B7+
+
2288+
2289+
+
2290+
2291+

3. 174

R3

CLOO

PUNCH
PUNCH 'CTB17
PUNCH
PUNCH 'CTB18
T.
PUNCH •
PUNCH 'CTB19
T.
PUNCH
PUNCH 'CTB20
T.
PUNC ..
PUNCH 'CTB21
NT.
PUNCH ,
PUNCH "CT1l22
NT.
PUNCH I
PUNCH "CTBZ3
NT.
PUNCH '
PUNCH 'CTB24
NT.
PUNCH '
PUNCH "CTBZ5
NT.
PUNCH I
PUNCH 'CT826
NT.
PUNCH I
PUNCH 'CTB27
~T •
PUNCH '
PUNCH 'CTB28
NT.
PUNCH I
PUNCH 'CTB2'1
NT.
PUNCH '
PUNCH "CTB30
NT.
PUNCH'
PUNCH 'pe3l
NT.
PUNCH I
PUNCH 'CTB32
NT.
PUNCH '
PUNCH 'CTB33
NT,
PUNCH '
PUNCH 'CTB34

.
.

PAGE
FOlOCT7l

SOURCE STATEMENT
PUNCH 'CTIl16

Z7MAY72

CFSCTB 8.8.E4C28l,00C00300.20.0A.CNTl8-DFSICNTX
CCNTlNUE"
COB8-0F S I COB.O.O I
OFSCTB 9.9.415181.00QOOl~O.44.00.CNTZC-OFSICNTX
CONT INUEI
COB9-0FSICOB.0.O'
OFSCTB lO.9.40A081.000QOlOO.40.00.CNTZl-DFSICNX
CONTINUE'
CUB9-DF SICUB.O.O I
DFSCTB 10.9.4CAlBl.OCOOOlOO.40.00.CNT2Z-DFSICNX
CONTINUE'
COB9-DFS ICOB. 0.0'
DFSCTB 10,9,4CA481,0000034C,CO.00.CNTZ3-0FSICNX
CONTINUE"
COB9~OfSICOB.Q.C"

DFSCTfI 11.l0.C 18181, 00004700. 80 .02.CNTZ4-0FS ICX
CONTINUE'
COBI0-0FSICOB,CXBI-0FSICXB.C'
OFSCTB 12.11.C140F4.00000l00.l0.00.CNT21-0FSICX
CONTINUE I
COBll-0FSICOB.0.C'
OFSC TB 13.11. ClFlF5.00000100.0 1.00.CNT30-0FSICX
CONTINUE'
COB12-DFSICOB.O.0'
OFSCTB l4.11.ClF2F6.000C03CO.OA.OO.CNT34-DFSICX
CDNTINUE'
COB13-0FSICOB.O.0'
DFSCTB 15.12.C18l81.00000300.CO.OO.CNT39-0FSICX
CONTINUE"
COB14-0FSICOB.0.O'
DFSCT8 16.13.50818l.00Q0030C.OC.OO.CNT40-0FSICX
CUNTINUE'
COB15-0FSICOB.0.O'
DFSCTB l6.l4.53B18l.00C00300.0A.OO.CNT41-0FSICX
CONTINUE"
COB16-DFSICOB.0.0'
OFSCTB 17.15.648181.00COCI00.CO.00.CNT42-0FSICX
CONT INUE"
.
COB17-0FSICOB.0.O'
DFSCTB 17.15.648181.00CCC70C.CC.OO.CNT4Z-0FSICX
CONTINUE'
COfl17-DFSlcoe.o.o'
DFSCTB 18.16.008181.0000C7CO.OO.OO.CNT42-DFSICX
CONTINUE'
COB18-DFSICOB.C.C'
OFSCTB 19.17.C08181,C000034C.00.OC.CNT44-0FSICX
CONTINUE'
COB19-0FSICOB.C.O'
OFSCTB 20.18.008181.0C000340.CO.OC.CNT45-0FSICX
CONTINUE'
C0820-0FSICOB.O.O'
OFSCTB Zl,19.00000c.000C0300,CO,OO,CNT46-DFSICX
CONTINUE'
COB21-0FSICOB.0.C'
UFSCTB ZZ.ZO.C18181.00004300.40.00.CNT48-DFSICX

53

10/02/72

V2

HIS SYSTEM DEFINITION.
LOC

O~JECT

CODE

ADDRI ADDR2

STMT

SOURCE STATEMENT

R3

CLOO

PAGE

27HAY72
F010CT71

+
2292+
2293+
+
2294+
2295+
+

NT,
PUNCH'
PUNCH '~TB35
NT,
PUNCH'
PUNCH 'CTB36

229t+

PUNCH '
'CTS37
NT.
PUNCH'
PUNCH 'CT83B
NT,
PUNCH '
CO~26-0FSICOB,0.C'
PUNCH 'CT839
OFSCTB D.25,C00281.200COIOO.CO.OO.CNT53-0FSICNX
T.
CONTINUE'
PUNCH '
COB27-0FSIC08.C.C'
PUNCH 'CT84C
OFSCTB O.25,000281.2C000100,CO,OO,CN156-0FSICNX
1,
CONTINUE'
PUNCH '
COB27-0FSICUB,C.O'
PUNCH 'CIB41
OFSCTB O.25,OCC281,2COCOIOC,OQ,OO,CNT56-0FSICNX
1,
CONTINUE'
PUNCH'
COB27-0FSICOB,C,C'
PUNCH 'CIB42
OFSCIB O,25,C00281,2COC0300,CO,00,CN160-0FSICNX
T,
CONTINUE'
PUNCH'
COB27-0FSICOB,O,O'
PUNCH '
OFS~OBS 27'
PUNCH 'CXB1 OFSCXB ~210,OCOC,0019,OOOO'
PUNCH 'CI81 OFSCIB COC4'
PUNCH 'Cle2 OFSCIB v2C7'
PUNCH 'CIB3 OFSCIB 02C7'
PUNCH 'CI84 eFSCIB COC7'
PUNCH 'CIB5 OFSCIB C360'
PUN CH 'C186 efSC IB 03bO'
PUNCH 'CI07 OFSCIB C240'
PUNCH 'CIBR OFSCIO OCC7'
PUNCH 'CIB9 eFSCIB 0340'
PUNCH 'CNTZ1
OFS~"T AA.OOOC,Q,CTB18-0FSICTB,65535'
PUNCH 'CNT22
OFSCNT AB,QOOC,C,CTB19-0FSICIB,65535'
PUNCH 'CNT34
OFSCNT ATELLER,00BC,O,CTB24-0FSICTB,eNT35-0FSIX
CNT'
PUNCH 'CNT29
OFSCNT A29B01,OCBO,O.CTB22-0FSICTB.65535'
PUNCH 'CNT31
DFSCNT A29R02.008u.Q,CTB23-0FSICTB,CNT32-0FSICX
NT'
.
PUNCH 'CNT35
OFSCNT BTELLER,C080,Q,CTB24-0fSICTB,CNT36-0FSIX
CNT'
PUNCH 'CNT5~
OFSCNT CAROL,uC02,0,CTB39-0FSICTB,CNT55-0FSICNX
T'
PUNCH 'CNT32
OFSCNT CCMHON,OOBO,O,CTB23-0FSICTB,CNT33-0FSICX
toT'
PUNCH 'CNTI
CFSCNT CTRL,400C,C,CTB1-0FSICTB,CNT2-0FSICN1'
PUNCH 'CNT53
OFSCNT ELEANOR,Q002.0,CTB39-0FSICTB,CNT54-0FSIX

2297+
+
2298+
2299+
+
23Q(+
2301+
+
2302+
2303+
+
2304+
23G5+
+
2306+
23C7+
+
2308+
23C9+
2310+
2311+
2312~

2313+
2314+
2315+
2316+
2317+
2318+
2319+
2320+
2321+
2322+
+
2323+
2324+
+
2325+
+
2326+
+
2327+
+
2328+
2329+
+
2330+
2331+

"r",

PUN~H

54

10/02/72

CUtH INUE'
C0822-0FSICOB,u.O'
DFSCTB 23,21.C48181.C0000300,OO.00.CNT49-0FSICX
CONTINUE'
COB23-0FSICOB.O.O'
DFSCTB 24,22.E28181.uOOCC3CO,OO.00.CNT50-DFSICX
CONTINUE'
COB24-0FSICOB.0.O'
OFSCTB 25.23.E28181,QOC003CO,00,OO.CN151-0FSICX
CONTINUE'
COB25-0FSICOB,C.O'
OFSCTB 26,24.E2C2B1.00CC0300.20.0C.CNT52-0FSICX
CDrHINUE'

C~,

PUtoCH 'CNT23
PUNCH 'CNT27

eFSC,.T ERNE,OCOC,(I,CTB2C-OFSICTB,65535'
OFSCNT HOMER1,CCBO,Q,CTB22-0FSICTB,CNT28-0FSICX

3.175

IHS SYSTEH DEFINITION.
LOC

OBJECT CODE

ADDRI AODR2

V2

snIT

SOURCE STATEHEtlT

+
2332+
2333+
2334+
2335+
2336+
2331+
2338+
233_9+
2340+
2341+
2342+
+
2343+
+
2344+
234S+
2346+
2341+
+
2348+
+
2349+
2350+
+
23S1+
2352+
2353+
2354+
2355+
2356+
2351+

PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH

2358+
+
2359+

PUNCH

2360+

2361+
+
2362+
2363+
2364+
2365+
2366+
+
2367+
2368+
+
2369+
2370+
2311+

•

2372+

3.176

PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH

PUNCH

PUNC.H
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH

NT'
'CNB8
'CNT33
'CNT2
'CNT40
'CNT41
'CNT48
'CNT49
'ONTSC
'CNTSI
'CNT52
'CNT36
CNT'
'CNT~7

CNT.'
'CNT3
'CNT4
'CNTS
'CNT28
NT'
'CNno
NT'
'CNTH
'CNTl8
ICNT'
'CNTl9
'CNT44
'CNT55
'CNT46
'CNT41
'CNT63
'CN T61
ICNT'
'CNT62
ICNT'
'CNT60
NT'
' CNT45
'CtlT42
NT'
• CNT43
'CNT20
'CNT6
' CNT39
' CNT56
CNT'
'CNTS1
'CNT58
CNT'
'CNT59
'CNT26
'CNT24

R3

CLOO

21HAY72

PAGE
Fe 10CTl1

DFSCtlT
OFSCNT
DFSCNT
DFSCNT
O_FSCNT
OFSCNT
DFSCNT
OF SCNT
OFSCNT
OFSCNT
DFSCNT

HOMER2.0080.0,CTe24-0FSICTB,65535'
HOHER4,OC80.1,CTB23-0FSICTB,65535'
HOWARD,OCOO.O,CTSI-OFSICTB,65535'
INQU0393,OOOl.O,CTB26-0FSICTB,65535'
I NQU040 I, 0001, 0, CTB21-0FS ICTB ,6553 5'
INQU0464.0001,O,CT634-0FSICTB.65535'
INQU0469,OOOl,O.CTB35-0FSICTB,65535'
INQUD477.0001.0.CTB36-DFSICTB.65535'
INQU0485,OOOl,O,CTB37-DFSICTB,65535'
INQU0493,OOOl.O,CTB38-DFSICTB,65535'
JTELLER.OO80.0.CTB24-DFSICTB.CNT31-DFSIX

LARRY ,OvOO. 0, CTB2-DFS IC TB, 65535'
MODEL2.0000,O,CTB3-DFSICTB,65535'
HOOEL2K,OOOO.0,CTB4-DFSICTB,6553S'
N29801,OC80,O,CTB22-DFSICTB,CNT29-DFSICX

CFSCNT N2S802,OC80,0.CTB23-0FSICTB,CNT31-DFSICX
OFSCr.T PRINTERl,OOOO,Q,CTB15-0FSICTB,6SS35'
DFSCNT PR INTER 2,0000,0, CTB 16-Df SI CTB, CNT 19-0F SX
DFSCNT
OFSCNT
OF SCNT
DFSCNT
OFSCNT
DFSCH
OFSCNT
OFSC~

PRINTER3,000u,1,CTB16-DFSICTB,65535'
PRTSYS,OOCO,0.CTB31-DFSICTB,65535'
SHARRON,0002,C,CTB39-0FSICTB,65S35'
SP 1, 0000,0. CTB33-DFS IC TB ,CNT41-DF SICNT'
SP2.0000,0,CTB33-0FSICTB,65535'
SkCOPNCH,0002,3.CTB42-DFSICTB,65535'
SWPRNTR2.0002,2,CTB42-0FSICTB,CNT62-0FSX

T SWTPPNCH,0002,2,CTB42-0FSICTB,CNT63-0FSX

DFSC.NT SwlC5C,0002.0,CTB42-0FSICTB,CNT61-0FSICX
OFSCNT TAPESYS,OCOC,C.CTB32-UFSICTB,65535'
DFSCNT T~033A,OOOO,0,CTB2B-DF~ICT6,CNT43-0FSICX
CFSCNT
OFSCNT
OFSCNT
DFSCNT
OFSCNT

T1033B ,0000,0, CTB28-DFS IC TB, 6 5535'
T2265XCl,000O,O,CTB11-0FSICTB,65535'
T214vNSC.0000,O,CTB5-0FSICTB,65535'
T2741 ,·OOCO, G. CTB 25-UFS ICTB, 65535'
T2741Nl,00C2,G,CTB40-0FSICTB,CNT57-DFSIX

OFSCNT T2741N2.00C2,O,CTB40-0FSICTB,65535'
OfSCNT T2741N3,0002,0,CTB41-DFSICTB,CNT59-0FSIX
OFSCr.T T2741N4,00G2,C.CTB41-0FSICTB,65535'
OFSCNT T2770C,OOOC,2,CTB21-DFSICTB,65535'
OFSCNT T2770P,OCOO.O.CTB21-0FSICTB.CNT25-0FSICX

~T'

PUNCH 'CNT25
NT'

10/02112

OFSCNT KTEllER,C080 ,0. CTB24-DFS ICTB, CNBS-DFSI X
OFSCNT
OFSCNT
DFSCNT
OfSCNT

[;FSCNT T277CV,COOO,l,CTe21-0fSICTB,CNT26-CFSICX

55

V2

IMS SYSTEM DEFINITIUN.
LOC

OBJECT

CUD~

ADDR1 ADDR2

SOURCE STATEMENT

STMT
2373+
2374+
2375+
2376+
237H

2378+
2379+
2380+
2381 +
2382 +
23113+
2384+
+

2385+
2386+
2387+
2388+
2389+
23%+
2391+
2392+
2393+
2394+
2395+
2396+
2397+
2398+
2399+
24(,0+
2401+
24(.2+
24lJ3+
2404+
24C.5+
2406+
2407+
2408+
+

2409+
2410+
+

2411+
2412 +
+

2413+
+

2414+
+

2415+
+

2416+
+

241H
2418+

R3

CLOO

PAGE

27MAY72
FOI0CT71

56

10/02172

DFSCtH T327CA,OuOC,u,CTB7-DFSICTB,65535'
DFSCNT T 32 7CB, OCOO, 0, CTBB-DF SICTB ,65535'
CFSCNT T327vC,CCOC,C,CTB9-DFSICTB,65535'
DFSCNT T32 70Ll, COOC, 0, CTB 12-Df-S IC.TB, 65535'
Of- SCNT T3270L2 ,COOO ,O,C TS 13-DF SIC TS, 65535'
OFSCNT T3270Pl,eOOO,Q,CTSlC-DFSICTB,65535'
OFSCNT T327~P2,COCC.,C,CTBI1-DFSICTS,65535'
OF SCt-IT T327CP3,COOO,C,CTBI4-0FSICTB,65535'
OFSCNT T3275,00CO,C,CTB6-DFSICTB,CNT8-DFSICNT'
DFSCNT T3275P,OOOO,l,CTS6-0FSICTB,65535'
DFSCNT WTOR ,COOO ,0, CTSO-DFS ICTB, 65535'
TITLE "DFSICLLO - COMMUNICATION TERMINAL MATRX
IX ICTMI.'"
PUNCH '
ENTRY CFSICTM'
PUNCH 'DFSICTM OS
00'
PUNCH'
CC
S"CCOOCOCC'"
8"100(OCOO'"
PUNCH '
CC
tI" OI.(JOOOOO' "
PUNCH '
DC
S' '0e,,00000C'"
PUNCH'
DC
B' 'OOCOl'oeo'"
PUNCH'
DC
S' '00000000'"
PUNCH'
DC
B"OOOOOCOO'"
PUNCH'
DC
[j"OOOOCi001'"
PUNCH '
DC
PUNCH '
END'
PUNCH 'I.'
PUNCH '1ISTEP2 EXEC PGM=IEV90,REGION=200K,'
PUt-iCH 'II PARM="LOAC,NODECK'"
PUNCH 'IISYSLIB DO DSN=IMS2.GENLIB,DISP=SHR'
PUNCH 'II
DO DSN=SYSl.MACLIB,DISP=SHR'
PUNCH 'IISYSLIN 00 DSN=IMS2.BLKS50CDFSICLLll,DISP 2 0LD'
PUNCH 'IISYSPRINT DO SYSOUT=A,DCB=CBLKSIZE=6051,'
PUNCH 'II SPACE=1605,II0Q,501,RLSE.,ROUt-IDI'
PUNCH '/ISYSUTl DO UNIT=SYSDA,OISP=I.OELETEI,'
PUNCH 'II SPACf=ICYL.110,51I'
PUNCH '/ISYSI/\ CD .'
PUNCH'
OFSCCBS 6,3'
PUNCH'
TITLE "DFSICLL1 - COMMUNICATION TERMINAL TABLX
ES I CTTI." ,
PUNCH 'DFSICTTC CSECT'
PUNCH 'CTTO
ICTTG OPT1=Z31,OPT2=O,OO=DFSONSCO.TSNC=TRCONSSX
,TREC=TRCONSS, X'
PUNCH'
BUFSZ=146.INLNG=129.NTRYL=O.LTC=51'
PUNCH 'CTTI
ICTTG BUFSZ=20C,NTRYL=2.IULNL=19.
CCNTlNUE'
I NLNG"144 ,I DL TAB=13. IOLLF=2,
PUNCH '
CONTINUE'
LTC=1.OPT1=O,OPT2=C,OPT3=0,
PUNCH '
CONTINUE'
DD=DF SONG 10,
PUNCH'
CONTINUE'
TSND=TR27401S,
PUNCH '
CONTINUE'
TREC=TR27401R'
PUNCH '
ICTTG BUFSl=257,NTRYL 2 2,IOLNL=O,
PUNCH 'CTT 2
CONTINUE'
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCII
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH

'CNT9
'CNT 10
'CNT 11
'CNTl4
'CNTl5
'CNTl2
'CNll3
'CNT16
'CNT7
'CNT8
,'CNT64

3.177

V2

IMS SYSTEM DEFINITloN.

lOC

O~JECT

CODE

AoOIH AooR2

STMT
2419+
+
2420+
+
2421+
+
2422+
+
2423+
2424+
+
2425+
+
2426+
+
2421+
+
2428+
+
2429+
243(,+
+
2431+
+
2432+
+
2433+
+
2434+ '
+
2435+
2436+
+
2431+
+
2438+
+
24308+
290'>+
2910+
2911+
2'>12+
2913+
2'>14+
2915+
2916+
2911+
2'>18+
291'>+
2920+
2921+
2'>22+
2923+
2'>24+
2'>25+
2926+
2927+
2'>28+
2929+
2930+
2'>31+
2932+
2'>33+
2'>34+
2935+
2936+
2931+
2938+
2'>39+
2940+
2941+
2942+
2943+
2944+
2945+
2946+
2941+

+
2948+

DC
PUNCH'
C"002C6'"
DC
PUNCH '
C' '002E2'"
PUNCH'
DC
C' '00345'"
DC
C' '00346'"
PUNCH '
DC
PUNCH'
C"004E2' "
CC
PUNCH'
C' '00540'"
DC
PUNCH '
C' '00540'"
C"005Cl" ,
PUNCH
DC
C"C05C2" ,
DC
PUNCH '
DC
C"005C3' ..
PUNCH '
PUNCH'
CC
C' '005C4'"
C"00610" ,
DC
PUNCH
DC
PUNCH
C' '00612'"
DC
PUNCH'
C' '00111'"
PUNCH'
DC
C"008E2'"
DC
PUNCH '
C' '008E4'"
DC
C"00951' ..
PUNCH'
DC
C"009AO'"
PUNCH '
DC
C "009A1'"
PUNCH '
OC
PUNCH'
C' 'OO9A4'"
DC
C"010C1' ..
PUNCH'
DC
C"OU40'"
PUNCH '
DC
C"OUF1'"
PUNCH '
DC
PUNCH '
C' 'OllF2'"
PUNCH
DC
C' '01201'"
DC
C"01350" ,
PUNCH'
DC
PUNCH'
C"01453'"
C"01564" ,
DC
PUNCH '
DC
C"01564' ..
PUNCH '
DC
PUNCH '
C' '01600'"
C"0110C" ,
DC
PUNCH'
PUNCH'
DC
C' '01800'"
DC
PUNCH'
C' '01900'"
PUNCH'
OC
C' '020C1'"
DC
PUNCH'
C' '021C4'"
DC
PUNCH '
C' '022E2'"
DC
PUNCH'
C' '023E2'"
DC
PUNCH '
C' '024E2'"
DC
PUNCH'
C' '02500'"
OC
PUNCH '
C' '02500'"
DC
PUNCH '
C' '0250C'"
PUNCH
DC
C' '02500'"
PUNCH'
ENO'
PUNCH 'I·'
PUNCH '1/IMSGEN3 JOB 182C,6443),IMS,MSGLEVEL=1,MSGCLASS-A,CLASX
S-D,PRTY-8'
PUNCH 'I/STEP1 EXEC PGH-IEV90,REGION-200K,'

,

,

,

3.189

IHS SYSTEH DEFINITION.
lOC

OBJECT CODE

AOORI AOOR2

V2
STHT

SOURCE STA TEHENT

2949+
2950+

2951+
2952+
2953+
2954+
2955+
2956+
2957+
2<;58+
+
2959+
2960+
2961+
2962+
+

2963+
+

2964+
+

2965+
2966+
2967+
+

2968+
2969+
+

2970+
2971+
2972+
2973+
2974+
2975+
2976+
2977+
2978+
2979+
2980+
2981+
2982+
2983+
2984+
+

2985+
+

2986+
2987+
2988+
2989+
2990+
2991+
2992+
2993+
2994+
2995+

3.190

R3

CLOO

27HAY72

PAGE
FOIOCT71

PUNCH 'II PARfo!="LOAO,NOOECK'"
PUNCH '/ISYSlI& 00 OSN=IMS2.GENlIB,OISP·SHR'
PUNCH 'II
00 OSN=SYS1.HACLI8,OISP-SHR'
PUNCH '/ISYSlINOO OSN=IHS2.BlKS5010FSISYSOI,OISP=OLO'
PUNCH '''SYSPRINT 00 SYSOUT=A,OCB=CBLKSIlE=6051,'
PUNCH 'II SPACE-C605,CIOO,501,RlSE"ROUNOI'
PUNCH '1ISYSUTl 00 UNIT-SYSDA,DISP-C,DElETEJ,'
PUNCH 'II SPACE=ICYl,ClO,5IJ'
PUNCH 'IISYSIN 00 . '
PUNCH'
TITLE "OFSISYSO - IOB""S, CHAN. PGM""S, AX
NO HSG QUEUE OCB" I I S. "'"
PUNCH "OFSFXCCO XCOO 23,500,2000,TYPE-CSECT"
PUNCH I
SPACE 3"
PUNCH I
OFSICIOH NUHIOB=15"
PUNCH I
HSGOCB QCRBUFN-31,HSGBUFN=13,
CONTINUE'
PUNCH'
SHMSG"'192,lGfo!SG=576,
CONTINUE'
PUNCH'
OEVTYPE=12314,2314,23141,
C'

PUNCH '
HSGBLK=576 I
PUNCH I
OFSAVARA 17,EVENTS=31,SECTYPE=CSECT"
PUNCH I
TITLE IIOFSISYSC - PARTITION SPECIFICATION TABX
lESCPST"'ISJ.""
PUNCH'
OFSIPST REGIONS-5"
TITLE '"OFSISYSO - INTERNAl/EXTERNAL QUEUE BlOX
PUNCH'
CKS." I
OFSQUEUE TASK=5,lINES~25,ClASS-5'
PUNCH '
PUNCH I
END'
PUNCH "1."
PUNCH "1ISTEP2 EXEC PGM=IEV90,REGION=200K,'
PUNCH "II PARM" "lOAO, NOOECK' , ,
PUNCH "IISYSLIB 00 OSN=IHS2.GENLIB,OISP-SHR"
PUNCH 'II
00 OSN=SYSl.MACLIB,OISP=SHR'
PUNCH 'IISVSLIN DO DSN=IHS2.BLKS50IDFSVCOCCI,OISP=OLO'
PUNCH 'IISYSPRINT 00 SYSOUT=A,OCB=CBlKSIlE=605I,"
PUNCH 'II SPACE=C605,IIOO,50I,RLSE"ROUNOI"
PUNCH "IISYSUTI 00 UNIT=SYSOA,OISP-C,OELETEI,'
PUNCH "II SPACE=ICYl,IIO,511'
PUNCH 'IISYSIN 00 .'
PUNCH 'OFSVCOOO CSECT'
PUNCH 'DFSVCS
SSCO SECTYPE=CSECT,SVC-1234,248,,213I,OESC=2,X
CONTINUE'
OSPS=10,TCT"5,
PUNCH '
CONTINUE'
PUNCH I
ROUTCOE=13,OCEP=l5'
END'
PUNCH '
PUNCH 'I.'
PUNCH "I/STEP3 EXEC PGM=IEV90,REGION=2COK,"
PUNCH 'II PAR"="LOAO,NOOECK""
PUNCH 'IISYSLIB 00 OSN=IHS2.GENLIB,OISP=SHR'
PUNCH 'II
00 OSN=SYSl.HAClIB,OISP-SHR'
PUNCH 'IISYSLI~ 00 OSN=IHS2.BLKS50COFSISCOOI,OISP=ClO'
PUNCH 'IISYSPRINT DO SYSOUT=A,OCB=IBLKSIlE=605I,'
PUNCH 'II SPACE=1605,IIOO,501,RLSE"ROUNOJ"

69

10/02/72

IHS SYSTEH DEFINITION.
LOC

OBJECT CODE

ADDR1 AODR2

V2
STHT
2996+
2997+
2998+
2999+
+
3GOO+
+
3e01+
+
3002+
+
3003+
+
3004+
+
3005+
+
3006+
3007+
+
3008+
+
3009+
3010+
3011+
+
3012+
+
3013+
+
3014+
+
3015+
+
3016+
3017+
31,;18+
3019+
+
3020+
3021+
31:22+
3023+
+
3024+
3025+
3026+
3C27+
3028+
3029+
3030+
3031+
3032+
3033+

SOURCE STA TEMENT

R3

CLOD

27HAY72

PAGE
F010CT71

70

10/02/72

PUNCH '1ISYSUT1 DO UNIT-SYSDA.DISP-I.DELETEI.'
PUNCH '1/ SP_CE-'CYl.llO,SII'
PUNCH 'IISYSI~ DO . '
PUNCH •
TITLE "DFSISCDO - SYSTEM CONTENTS DIRECTCRY IX
SCDI.···
PUNCH'
CFSGLBS Pse-34.DMB-16.SHB-36,TCT-5,
CONTINUES' 7982
cxe-1.CI B-9. CRB-O.
PUNCH'
CONT INUE'
PUNCH'
CLB-25.CTB-43.CNT-64.CDB-24,CTT-26.
CONTINUE'
PUNCH'
PST- 5. SA \/"17 ,WAT-31.RQE"14. Q\JE'" 1.231 •
CONTINUE'
SVC-1234 .248 I ,OSA"-' 213. Z51 • CVB-34, CTM-1X
PUNCH •
CONTINUE'
,CTHL-a.
PUNCH
FBP-13000. FRE"13 •
CONTINUE'
COB'"27 .CCB-19.0, 1 <;2 .150.1 00 I. EDn=NO'
PUNCH •
ISCD
SECTYPE-CSECT. CPOPT-2500. PS YSs10,
PUNCH '
CO NT INUE'
SINn-, INJT.CLASSA.AI.
PUNCH '
X'
MCS-D.DESC-2·
PUNCH '
EJ ECT'
PUNCH •
DFSINT UCRS-13.HSGS-576.
PUNCH •
CONTINUE'
PSBNO"8000,
PUNCH •
CCNTlNUE'
DMBNO-100GO.
PUNCH •
CONTINUE'
DBASE-llOOO.
x
PUNCH •
CONTINUE •
F BPNO-13000.
PUNCH '
CONTINUE'
COMH-10600 ,POUL-5000'
PUNCH •
END'
PUNCH •
PUNCH 'I.'
PUNCH '1IIHSGEN4 JOB ,e2c,64431.IH~."SGLE\/EL"1,HSGCL_SS=A.CLASX
S-D. PRTy-e'
PUNCH 'I/STEP1 EXEC PGM-IEWL,'
PUNCH '11 REGION-130K.'
PUNCH 'II PARM='·RENT,REFR,NCAL.LET,XREF,LIST'"
PUNCH 'IISYSPRINT 00 SVSOUT-A.DCB"'RECFH=FBA.LRECL-121.6LKSIZEX
-6051.'
PUNCH '11 SP_CE-'605.'10.101.RLSE •• RCUNDI'
PUNCH 'IISYSOBJ 00 OSN=IMS2.BLKS50.DISP=SHR·
PUNCH 'IILOAD CD DSN=II'S2.LOAO.DISP=SHR'
PUNCH 'IIUSERLIB DO DSN-ICS.CLOD.DISP=SHR·
PUNCH 'I/SYSLMOC DO DSN=IMS2.RESLl6.DISP"OLD'
PUNCH '1ISYSUT1 00 UNIT-'SVSDA.SEP-'SYSLHOD.SYSOBJII.SPACE='CVX
L,I10,l11'
PUNCH 'IISVSLIN DC . '
PUNCH'
CHANGE DFSVC400llGC0021CI'
PUNCH'
INCLUDE LOAD'DFSVC400I'
PUNCH'
NAME IGC0021C'RI
TVPE 4 SVCILOAD 01'

.

3.191

V2

IMS SYSTEM DEFINITION.
LOC

OtlJECT CODE

ADDRI ADOR2

STMT
3034+
3035+
3036+
3037+
3038+
3039+
3040+
3v41+
3C42+
3043+
3044+
3045+
3C46+
3047+
3048+
3049+
3050+
3051+
3052+
3(,53+
3054+
3055+
3056+
3057+
3058+
3059+
3('6C+
3061+
3062+

3063+
3\164+

3065+
3066+
3067+
3C68+
3"69+
307C+
3071+
3072+
3,)73+
3074+
3075+
3076+
3077+
3078+
+
3079+
3080+
3C81+
3082+
3083+
3084+
3085+
3086+
3087+

3.192

R3

CLOD

27MAY72

SOURCE STATEMENT

PAGE
F01OCT7l

PUNCH ' CHA~GE DFSVC4l0C IGC012lCI'
PUNCH ' INCLUDE LOADCDFSVC4l0l'
TYPE 4 SVCCLOAD 11'
PUNCH ' NAME IGC012lCCRI
PUNCH ' CHANGE DFSVC420CIGC022lCI'
PUNCH ' INCLUDE LOADCOFSVC420l'
TYPE 4 SVCCLOAD 2 ..
PUNCH' NAME IGC022lCfRI
PUNCH ' CHANGE DFSVC430CIGC032lCI'
PUNCH' INCLUCE LOACCDFSVC430l'
TYPE 4 SVCClOAD 31'
PUNCH ' NAME IGC0321CCRI
PUNCH ' CHANGE DFSAOSAOCIGC042lCI'
PUNCH ' INCLUDE LOADCCFSAOSAOI'
TYPE 4 SVCCLOAD 4"
PUNCH ' NAI'E IGC042lCCRI
PUNCH ' CHANGE DFSAOSBOCIGC0521CI'
PUNCH
I ~CLUCE LOAD CDFSAOSBO I'
NAME IGC052lCCRI
TYPE 4 SVCCLOAD 51'
PUNCH
PUNCH' CHANGE DFSAOSCOr IGC062lC I'
PUNCH' INCLUDE LOADC DFSAOSCO I'
TYPE 4 SVCCLOAD
PUNCH ' NAME IGC0621CCRI
PUNCH' CHANGE DFSAOSDOrlGCC72lCI'
PUNCH ' INCLUDE LOADIOFSAOSDOI'
TYPE 4 SVCC LOAD 7"
NAME IGCQ721CfRI
PUNCH
CHANGE CFS ICSCOC IGCl021C I'
PUNCH
PUNCH' INCLUDE LOADCDFSICSCOI'
TYPE 4 SVCf LOAD 101'
PUNCH ' NAME IGC1021CfRI
PUNCH ' CHANGE DFSVCICOIIGCl121CI'
PUNCH ' INCLUDE LOADCOFSVCIOOI'
TYPE 4 SVCCLOAD 111'
PUNCH ' NAME IGC1l21CCRI
PUNCH' CHANGE DFSASV1CIIGC1221CI'
PUNCH' INCLUDE LOADCDFSASVlOl'
TyPE 4 SVCf LOAD 121'
PUNCH' NAME IGC122lCCRI
PUNCH' CHANGE DFSVC440CIGC1321CI'
PUNCH ' INCLUOE LCADCOFSVC440l'
TYPE 4 SVCfLOAD 131'
PUNCH ' r.AME IGC1321CCRI
PUNCH ' CHAf\GE DFSVClOOClGC2341'
PUNCH ' INCLUCE LOAOCOFSVClCiO ..
TYPE
SVC INTERFACE'
PUNCH ' NAME IGC234CRJ
PUNCH' CHANGE DFSVC200CIGC2481'
PUNCH' INCLUDE LOADCDFSVC200l'
TYPE
SVC INTERFACE'
PUNCH ' NAME IGC248CRI
PUNCH ' CHANGE DFSAOCEOIIGG019Z51'
PUNCH ' INCLUCE LCADC DFSAOCEO I'
OS AM CHAN. END APPENDAGE'
PUNCH ' NA~E IGGO 19Z51 RI
PUNCH' CHANGE DFSAAPIOCIGGC19Z61'
PUNCH ' INCLUCE LOACI DFSAAPIO I'
7770 CHANNEL/ABNORMAL END APPX
PUNCH ' NA~E IGG019l6CRI
ENDAGE'
PUNCH ' INCLUDE LCADCDFSARWOOI'
7770 READ/WRITE MODULE'
PUNCH ' NAME CFSARWOOIRI
PUNCH' INCLUDE LOADCDFSAOSIOI'
r"AM OPEN INTERFACE'
PUNCH ' NAME DFSAOSIOIRI
PUNCH ' INCLUDE LOADCDFSADS201"
OS AM READ/WR ITE'
PUNCH ' NAME CFSAOS20lRI
PUNCH ' INCLUDE LOADCOFSAOS30l'
PUNCH' NAME DFSAOS30CRI
OSA'" CHECK'
PUNCH ' INCLUCE LOADCDFSAOS50l'

6"

7l

10102172

V2

HIS SYSTEM DEF INIlION.
lOC

OBJECT CODE

AOORl ADORZ

SHIT
3088+
3e89+
3(190+
3v91+
309Z+

3093+
3094+
3095+
3096+
3091+
3098+
3099+
3100+
3101+
310Z+

3103+
3104+
3105+
31C.6+

3101+
3108+
3109+
3110+
3111 +
311Z+

3113+
3114+
3115+
3116+
3111+
3118+
3119+
31Z0+

3121+
31Z2 +
31Z3+

3124+
31Z5+

3126+
3121+
31Z8+

3129+
3130+
3131+
313Z+

3133+
3134+
3135+
3136+
3131+
31311+
3139+
3140+
3141+
3142+

R3

ClOO

21HAY12

SOURCE STATEMENT
PUNCH'
PUNCH '
PUNCH '
PUNCH'
PUNCH'
PUNCH '
PUNCH '
PUNCH'
PUNCH'
PUNCH'
PUNCH'
PUNCH '
PUNCH '
PUNCH'
PUNCH '
PUNCH '
PUNCH '
PUNCH '
PUNCH '
PUNCH'
PUNCH '
PUNCH'
PUNCH '
PUNCH '
PUNCH'
PUNCH '
PUNCH '
PUNCH '
PUNCH'
PUNCH '
PUNCH '
PUNCH '
PUNCH'
PUNCH'
PUNCH '
PUNCH '
PUNCH ,'
PUNCH
PUNCH '
PUNCH'
PUNCH '
PUNCH '
PUNCH'
PUNCH'
PUNCH '
PUNCH '
PUNCH '
PUNCH '
PUNCH '
PUNCH '
PUNCH '
PUNCH '
PUNCH '
PUNCH '
PUNCH '

PAGE
FOIOCT11

CFSACS50CRI
INCLUDE lCAOCOFSOISMOI'
NAME CfSOISMOCRI
INCLUDE lOAOCOFSOlAOOI'
INClUCE lOAOCDFSOlA301'
ENTRY OFSSTART'
NAME CFSOlAOOCRI
INClUCE lOAOCOFSOlOOOI'
NA"'E DFSOlOOOCRI
INCLUDE lOAOCOFSOlOCOI'
NAME CFSOlCCOCRI
INCLUDE lOAOCOFSOlROOI'
NAME DFSOlROOCRI
INClUC~ lOAOCOFSODlEOI'
ALIAS DFSOOlIO'
NAME CFSOOLEOCRI
INCLUDE lUAO CDFSDXMTO I'
NAME CFSOXMTCIRI
INCLUCE lOAOICFSDOBHOI'
INClUCE lCAOCOFSOCSPOI'
INCLUCE lOAOCDFSGNSRO"
INCLUDE lCADCDFSFNDSO"
INCLUCE lOAOCDFSRCHOO"
INCLUDE lOADCOFSBFWROI'
INCLUDE LCAOCOFSDCVTOI'
INCLUDE lCADIOFSOBHROI'
NAME CFSOBhOOCRI
INCLUCE lOADICFSGGSPOI ,,
INClUCE LOAOIDFSLLCLOI ,
INCLUCE lOACIDFSMMLCOI ,
INCLUCE LOAOIDFSMMUDOI
INCLUDE LOAOIDFSRRHHOI ,,
INClUCE LGADCDFSRRHPOI
INCLUCE LCADIDFSDHDCOI'
INCLUCE LCADIDFSRCHBO"
INClUCE LCADIOFSFRSPOI'
ENTRY OFSOHOSO '
NAME CFSDHDSOCRI
I NCLUCE LOAOI OF5RRCOC I'
NAME CFSRRCOOCRI
INCLUCE LOACIOFSPCC301'
ENTRY PCSTART'
NAME OFSPCC30CR I
INCLUDE LCADIDFSPROOOI'
ALIAS OFSIPRXX'
NAME OFSPROOOIRI
INCLUCE LOAOIOFSRRAOOI'
NAME DFSRRACOIRI
INCLUDE LCADIOFSRRAI01'
NIIME CFSRRA10 I RI'
INCLUDE LOADIOFSRRA2CI'
NAME CFSRRA20lRI'
INCLUDE LOADIDFSRRA50l'
NAME CFSRRA5DIRI'
INCLUDE lOAOIDFSROBlOI'
NA~E

12

10/02172

OSA" COMMON SUBROUTINES'
Olll ISA'" SIMULATOR'

Ol/l ANALYZER'
CLII OELETE/REPlACE'
Ol/l OPEN/ClOSE'
Ol/l RETRIEVE'
OLII INSERT'
Olll INDEX MAINTENANCE'

Dl/I BUFFER HANDLER'

Dl/I SPACE MANAGEMENT'

REGION CCI\TROLLOR'
BATCH PROGRAM CONTROllER'
PROG, REQUEST HANDLER'
REGION PARM ANALYZER'

3.193

IMS SYSTEM DEFINITION.
LOC

OBJECT CODE

ADDRI ADDRZ

V2
STMT

SOURCE STATEMENT

311t3+
3 lit 4 +

3145+
3146+
3147+
314B+
3149+
315(;+
3151+
315Z+

3153+
3154+
3155+
3156+
3157+ ,
315B+
3159+
3160+
3161+
316Z+
+

3163+
3164+
3165+
3166+
3161+
316B+

+

3169+
3170+

R3

CLOO

27MAY72

PAGE
FOI0CT71

10/02/7Z

PUNCH
NA~E DFSRDBLOCRI
DATABASE LCGGER'
PUNCH
INCLUDE LOADCOFSILNKO I'
PUNCH' NA~E DFSILNKOCRI
LINKAGE EDITOR INTERFACE'
PUNCH' INCLUDE SYSOBJC DFSVCOOO I'
PUNCH' NAME DFSVCOOOCRI
SECONDARY SCD MODULE'
PUNCH' INCLUDE LOADCDFSRRCIO I'
PUNCH' ENTRY RCSTART'
PUNCH' NAME CFSRRCI0CRI'
PUNCH' INCLUDE LOAOC DFSPCCI0 ..
PUNCH' INCLUDE SYSOBJCDFSVCOOOI'
PUNCH' ENTRY PCSTART'
PUNCH' t.AI'E CFSPCCI0CRI'
PUNCH' INCLUDE LOADCDFSFPTCOI'
PUNCH' INCLUDE SYSOBJCDFSVCOOOI'
PUNCH' NAME CFSFPTCOCRI
STOP REGION'
PUNCH 'I.'
PUNCH 'IISTEP2 EXEC PGM=IEWL,'
PUNCH 'II REGICt-.-130K,'
PUNCH 'II PARM·' 'NCAL,LET,REUS,XREF,LIST'"
PUNCH 'IISYSPRINT 00 SYSOUT-A,DCB=CRECFH .. FBA,LRECL=121.BLKSIZEX
"6051.'
PUNCH 'II SPACE=C605.C 10,10 I,RLSE. ,ReUNDl'
PUNCH 'IISYSOBJ DO DSN=I MSZ. BLKS50, DISP .. SHR'
PUNCH 'IILOAD CC DSN-IHS2.LOAD.DISP"SHR'
PUNCH 'IIUSERLIB DO DSN-ICS.CLOD,DISP.SHR'
PUNCH 'IISYSLMOD 00 DSN=IHSZ.RESLIB.DISP=OLD'
PUNCH '1iSYSUTI DO UNIT-CSYSDA,SEP"CSYSLMOD,SYSOBJII,SPACE=CCYX
L.C 10,111'
PUNCH '1ISYSLlt-. DO .'
PUNCH' INCLUDE SYSDBJCDFSBBLKBI
BATCH CONTROL BLOCKS.X

+

3171+
317Z+

3173+
3114+
3175+
3176+
3117+
317B+
3179+
31BO+
+

3181 +
31B2+
31B3+
3184+
31B5+

PUNCH '
PUNCH'
PUNCH '
PUNCH '
PUNCH '
PUNCH'
PUNCH'
PUNCH '
PUNCH '
PUNCH '
S. '

I NCLUCE SYSOBJC OFS (cLLO I
INCLUDE SYSOBJCDFSICLLlI
INCLUCE SYSOBJCDFSICVBOI
I~CLUDE SYSOBJCDFSISYSOI
INCLUDE SYSOBJCDFSISCDOI

PUNCH '
PUNCH'
PUNCH '
PUNCH '
PUNCH'
PUNCH'
PUNCH '

INCLUDE USERLIBCDFSI03001 USER SUPPLIED ROUTINE.'
INCLUDE USERLIBCDFSS77701 USER SUPPLIED MODULE'
INCLUDE USERLIBCDFSI71701 USER SUPPLIED MODULE'
INCLUDE USERLI8CDFS077701 USER SUPPLIED MODULE'
INCLUCE USERLISCDFS29BOOI USER SUPPLIED MODULE'
INCLUDE USERLI8COUT77701 USER SUPPLI ED MODULE.'
NAME CFS IBLKBC RI
COMPOSITE SYSTEM CONTROL BLX

+

31B6+
3187+
3188+
3189+
3190+
3191 +
319Z+

3.194

INCLUCE LOADCOFSBINTOI' BATCH INT ERFACE SIMULATOR'
INCLUDE LOADCDFSBLOIOI
8A TCH LOG RECORDER'
INCLUCE LOADCOFSFLOGOI
LOG WRITER'
HTRY DFSBNUC'
NAME CFSBNUCOCRI
BATCH NUCLEUS'
I~CLUDE LOAOCDFSISTOOI'
INCLUDE LOADCDFSISTUOI'
ENTRY CFS ISTOO'
t.AI'E DFSISTOOCRI
STATISTICS 0'
INCLUDE SYSOBJCOFSIDLIOI
DL/I ON-LINE CONTROL BLOCKX

PUNCH'
PUNCH'
PUNCH'
PUNCH'
PUNCH'

73

CO~M. CONTROL BLOCKSC11,'
COMM. CONTROL BLOCKSC21.'
COMM. VERB BLOCKS.'
SYSTEM CONTROL BLOCKS.'
SYSTEM CONTENTS DIRECTORY. X

V2

IMS SYSTEM UEFINITION.
LOC

OtlJ EC T CODE

ADDRI ADDR2

SOURCE STATEMENT

STMT

+
3193+
3194+

+
3195+
3196+
31'H+
3196+
319'H
320,,+
3201+
3202+
3203+
3204+
3205+
3206+
3207+
3206+
3209+
321C+
3211+
3212+
3213+
3214+
3215+
3216+
3217+
3216+
3219+
3220+
3221+
3222+
3223+
3224+
3225+
3226+
3227+
322B+
3229+
3230+
3231+
3232+
3233+
3234+
3235+
3236+
3237+
323B+
3239+
3240+
3241+
3242+
3243+
3244+
3245+

R3

CLOO

27MAY72

PAGE
FOI0CT71

74

10/02/72

OCKS MODULE.'
PUNCH'
INCLUCE SYSOBJ I OF SI SDBB I'
PUNCH'
NAME CfSISDBBCRI
SECURITY DIRECTORY BLOCKS MX
CDUlE.'
PUNCH'
INCLUCE LOADI DFSl 1000 I'
PUNCH'
ALI AS PL ITDLI'
PUNCH'
ALIAS DFSPll'
PUNCH'
ALI AS CBL TOll'
PUNCH'
ALIAS OFSCOBOl'
PUNCH'
ALIAS ASMTDll'
PUNCH'
ALIAS DFSASM'
PUNCH'
ALI AS FORTDLI'
PUNCH'
ALIAS OFSFCR'
PUNCH'
NAME CFSLICOOCRI
DL/I LANGUAGE INTERFACE'
PUNCH'
I NClUCE leAD I DF SOL BlO I'
PUNCH'
INCLUDE LOADIDFSLlOCOI'
PUNCH'
NA~E CFSDL8l0CRI
Dl/l BLOCK BUILDER'
PUNCH'
INCLUDE lOADCDFSFSTCOl'
PUNCH'
t.AME CFSFSTCOCRI
START REGION'
PUNCH'
INCLUDE LOADC DFSLlOOO I'
PUNCH'
INCLUDE LOADCDFSUTSuOl'
PUNCH'
ENTRY CllTCBl'
PUNCH'
NAME: CFSUTSOOIRI'
PUNCH'
INCLUDE lOADCDFSUTlOOl'
PUNCH'
NAME DFSUTlOOIRI
FORMAT UTILITY INFO TABLE'
PUNCH'
INCLUDE LGADIDFSUTLIOI'
PUNCH'
INCLUCE LOADCDFSUTLXC I'
PUNCH'
I NClUDE lOAD CDFSUTLZO I'
PUNCH'
INCLUDE lCADIDFSINDXOl'
PUNCH'
ENTRY CFSUTLlO'
PUNCH'
NAME DFSUNUIOIRI
FORMAT UTILITY PHASE 1 PRDC. '
PUNCH'
INCLUDE LOADCDFSUTl20l'
PUNCH'
NAME DfSUTL20 CR I
fORMAT UTILI TY PHA SE 2 PROC. '
PUNCH'
INClUCE LDADIDFSlluaOl'
PUNCH'
I NClUDE lOAD I OF SUTL30 I'
PUNCH'
INClUCE lOADC DFSUTl50 I'
PUNCH'
It-ClUDE LCADCDFSUTL60l'
PUNCH'
INCLUDE lOADCDFSUTL7C I'
PUNCH'
INCLUDE LOADCDFSUTl80l'
PUNCH'
INCLUDE LOADCDFSUTL90 I'
PUNCH'
INCLUCE lDADCDFSUTLAOl'
PUNCH'
INCLUDE lCADCDFSUTLBC I'
PUNCH'
INCLUCE LDADC OF SUTLCO I'
PUNCH'
INCLUCE LOADCDFSUTLDO I'
PUNCH'
I NCLUCE lOADC DFSUTLEO I'
PUNCH'
INCLUDE LOADCOFSUTlFOl'
PUNCH'
It.CLUDE LOADCDFSUTLGO I'
PUNCH'
INCLUDE LCADCDFSUTLHOI'
PUNCH'
INCLUDE LOADIDFSUTLTOI'
PUNCH'
It.CLUCE LOAD CDFSUTLUC I'
PUNCH'
INCLUCE LOADIDFSUTLVOI'
PUNCH'
INClUCE LDACCDFSUTLWOI'
PUNCH'
INCLUDE LCAD COF SUTLXC I '
PUNCH'
INCLUCE LDADCDFSUTLYOI'
PUNCH'
INClUCE LOADCDFSUTLZO I'

3.195

V2

IMS SYSTEM DEFINITION.
LOC

OBJECT CODE

AOORI

AOO~2

SOURCE STATEMENT

STMT
3246+
3247+
324S+
3249+
3250+
3251 +
3252+
3253+
3254+
3255+
3256+
3257+
325S+
3259+
3260+
3261+
3262+
3263+
3264+
3265+
3266+
3267+
3268+
3269+
3270+
3271+
3272+
3273+
3274+
3275+
3216+
+

3277+
3271l+
3279+
328C+

+

3281+
3282+
3283+
3284+
3285+
3286+
3287+
+

3288+
32t!9+
3290+
3291 +
·3292+
3293+
3294+
3295+
3296+
3297+

3.196

R3

CLOO

27MAY72

PAGE
FOIOCT7l

PUNCH' INCLUDE LOAOIDFSUTOIO)'
PUNCH I INCLUOE LOADIOFSUT020"
PUNCH I INCLUDE LOADCDFSUT030) I
PUNCH I INCLUDE LOADIDFSUT040"
PUNCH I INCLUDE LOADIDFSUT050J.l
PUNCH I INCLUDE LOADCDFSUT060)'
PUNCH
INCLUDE LOADCDFSUT070)'
PUNCH
INCLUDE LOADIDFSUTOSO)I
PUNCH' INCLUOE LOAOIOFSUT090)'
PUNCH I INCLUDE LOADIDFSUTOAO"
PUNCH
INCLUDE LOAOIOFSINDXO)'
PUNCH
INCLUDE LCAOCDFSICATC"
PUNCH' INCLUOE lOAOCDFSISUBO)'
PUNCH I ENTRY DLITCSL'
PUNCH I NA~E CFSUNU20CR,
FORMAT UTILITY PHASE
PROC.'
PUNCH I INCLUDE LOAOIOFSUTl401 '
PUNCH I NAME DFSUNU30IR)
FORHAT UTILITY PHASE 4 PROC. I
PUNCH I INCLUDE LOADCDFSPRRCOI'
PUNCH I NAME OFSPRRCOCRI'
PUNCH' INCLUDE LOAOCOFSPRPXOJl
PUNCH I NAME DFSPRPXCCRI'
PUNCH
I NCLUCE LOAOI DFSPRPLO' I
PUNCH
~A~E DFSPRPLOCRI'
PUNCH' INCLUCE LOADIDFSPRRGOI'
PUNCH' NAME OFSPRRCOIRI'
PUNCH I I NCLUOE LOADI DFSFlOSO) I
PUNCH
NAME DFSFLOSOIRI
STAE EXIT ROUTINE'
PUNCH
INCLUDE LCADCDFSDSEHOI'
PUNCH I NAME OFSDSEHOIRI
PREFIX RESOLUTION ROUTINE'
PUNCH ' I . '
PUNCH 'IIIMSGENS JOB 182C,64431,IHS,MSGLEVEL-l,HSCCLASS=A,CLASX
S-O,PRTY .. S'
PUNCH '1ISTEPl EXEC PGM=IEWL,'
PUNCH 'II RECIOi-130K,'
PUNCH 'II PARMz"OVLY,NCAL,LET,XREF,LIST'"
PUNCH 'IISYSPRINT 00 SYSOUT"'A,OCB=IRECFM-FBA,LRECL-l2l,BLKSIZEX
,,6051,'
PUNCH 'II SPACE-1605,IIO,10I,RLSE"ROUNOI'
PUNCH 'IISYSOBJ DO DSN=IMS2.BLKS50,DISP-SHR'
PUNCH 'IILOAD DO DSN=IMS2.LOAD,OISP=SHR'
PUNCH 'IIUSERLIB DO OSN=ICS.CLOO,OISP-SHR'
PUNCH 'IITELLIS DO OSN=SYSl.TElCMLIB,OISP=SHR'
PUNCH 'IISYSLMOO DO OSN-IMS2.RESLIB,OISP-OLD'
PUNCH 'IISYSUTI DO UNIT=ISYSDA,SEP"ISYSLHOD,SYSOBJ»,SPACE.ICYX
L,(lO,l'"
PUNCH 'IISYSLIN DO .'
PUNCH' INCLUDE LOADIOFSFSWAO,. 2589
PUNCH' NAME DFSFSWAOIRI
STAE WKAREA HODULE' 2589
PUNCH' INCLUDE LOADCOFSDLNOOI'
PUNCH' INCLUDE lOADIOFSIINLOI'
PUNCH' If,CLUDE- LDAOCOFSIINlOJl
PUNCH' INCLUDE lOAOCOFSIIN201'
PUNCH' INCLUDE LOADIOFSDBPIOI'
PUNCH' NAME CFSDLBNOIR)
DUI INITIALIZATION'
PUNCH' INCLUDE LOADC OFSDPSBO I'

75

10/02/72

IMS SYSTEM DEFINITION.
LOC

O~JECT

CODE

ADORI ADDR2

V2
HMT
3298+
+
3299+
330C+
+
3301+
3302+
3303+
3304+
33(;5+
33C6+
3301+
33('8+
3309+
331G+
3311+
3312+
3313+
3314+
3315+
3316+
3317+
3318+
3319+
332u+
3321+
3322+
3323+
3324+
3325+
3326+
3j27+
3321l+
3329+
3330+
3331+
3332+
3333+
j334+
3335+
3336+
3331+
333B+
3339+
334C+
3341+
3342+
3343+
3344+
3345+
3346+
3347+
3348+
3349+
3350+

SOURCE STATEMENT

R3

ClOO

21MAY12

PAGE
FOIDCT71

76

10/02172

OLII UTILITY INTERfACE, PX
PUNCH ' t.AME CfSDPSeO CR I
SB GENERATOR'
PUNCH ' INCLUCE LOADCOFSOAPLOI'
OLII UT ILITY INTERfACE, AX
PUNCH ' t.A~E OfSOAPLOCRI
UTH PGM LIST'
PUNCH ' I~CLUDE LOAOCOFSUCMNOI'
PUNCH' INCLUDE LOAOIOFSUCCTOI'
PUNC'" ' INCLUtE LOADIDFSUC150l'
PUNCH' INCLUDE LOAOIOFSUC350l'
INCLUDE LOAOCOFSUCERO I'
PUNCH '
INCLUDE LOAOCOFSCUMHOI'
PUNCH '
INCLUDE SYSOBJIOFSVCOOCI'
puNCH '
PUNCH ' NAME DFSUCUMOIRI'
INCLUDE LOAOIOFSUDMPOI'
PUNCH '
PUNCH' INCLUDE LOADIOFSOMPMOI'
INCLUDE SYSOBJC OFSVCOOO I'
PUNCH '
PUNCH' ";AME DFSUDMPOCRI
IMAGE OUMP'
PUNCH' INCLUDE LOADCOFSUACBOI'
INCLUDE LOADIDFSUSCHOI'
PUNCH '
INCLUDE LOADCDFSUMGTvl'
PUNCH '
PUNCH ' INCLUDE LOADCDFSUMSGOI'
INCLUDE LOAOIOFSUSRCOI'
PUNCH'
PUNCH' INCLUDE LOADCOfSUAMBOI'
PUNCH ' ENTRY OFSUACBO'
ACBLlB UTILITY'
PUNCH ' NAIIE tFSUACBOIRI
,
I~CLUDE LCADCOFSLBLMOI
PUNCH '
BLOCK BUILDER MSG ROUTER '
PUNCH ' NAME DFSLBLMOCR I
INCLUDE LCAOCOFSURUlOI'
PUNCH '
PUNCH' INCLUDE lOAOCDFSAOS10l'
PUNCH' INCLUCE LOAOIOFSRULMOI'
INCLUDE SYSOBJIOFSVCOOOI'
PUNCH '
HISAM REORG UNLOAD'
PUNCH ' NAME DFSURULOCRI
PUNCH' INCLUDE LOAOCOFSURRlOl'
INCLUDE LOAOCDFSRRLMOI'
PUNCH '
INCLUDE SYSOBJIDFSVCOOOI'
PUNCH'
HISAH REURG RE-lOAO'
PUNCH ' NAME CfSURRlOCRI
PUNCH ' INCLUDE LCADIDFSUROBOI'
PUNCH ' INCLUDE LOADCDFSROBMOI'
INCLUDE SYSOBJIDFSVCOOCI'
PUNCH '
DATABASE RECOVERY'
PUNCH ' NAME DfSURDBOIRI
PUNCH' INCLUDE lOAOCOFSBINDOl'
INCLUCE LCADCOFSOBlMCl'
PUNCH '
PUNCH' INCLUDE LOAOIDFSOBLDOI'
PUNCH' INCLUDE LOAOCOFSOBLPOI'
PUNCH' INCLUDE LOADIOFSOBLROI'
PUNCH' ENTRY OFSBINDO'
BATCH ACB BLOCKS LOADER'
PUNCH ' NAME CFSBBLDOCRI
PUNCH' INCLUDE LOAOIDFSURGUOI'
PUNCH ' INCLUCE lOAOIDFSLlCiOOl'
PUNCH ', INCLUDE LCADIDFSRGUHOI'
PUNCH
INCLUDE SYSOBJCDFSVCOOOI'
PUNCH' NAME DFSURGUOIRI
HDAM REORG UNLOAC'
INCLUDE LOAOCOFSURGLOI'
PUNCH '
INCLUDE LOADIDFSUEXI0l'
PUNCH '
PUNCH' INCLUDE LCAOCDFSLIOOOI'

3.197

V2

IMS SYSTEM DEFINITION.

lOC

OBJECT CODE

ADDRI ADDR2

STMT
3351+
3352+
3353+
3354+
3355+
3356+
3357+
3358+
3359+
3360+
3361+
3362+
3363+
33M+
3365+
3361>+
3367+
3368+
3369+
337C+
3371+
3372+
3373+
3374+
3375+
3376+
3377+
3378+
33H+
3380+
3381+
3382+
3383+
3384+
3385+
3386+
331l7+
+
338S+
3389+
3390+
3391+
3392+
3393+
3394+
3395+
3396+
3397+
3398+
3399+
3400+
3401+
3402+
3403+
3404+

3.198

R3

CLOO

27MAY12

SOURCE STATEMENT

PAGE

F01OCT7l

PUNCH'
PUNCH '
PUNCH'
PUNCH '
PUNCH '
PUNCH '
PUNCH'
PUNCH '
PUNCH '
PUNCH '
PUNCH'
PUNCH '
PUNCH '
PUNCH'
PUNCH '
PUNCH '
PUNCH '
PUNCH '
PUNCH '
PUNCH '
PUNCH '
PUNCH '
PUNCH '
PUNCH '
PUNCH '
PUNCH '
PUNCH '
PUNCH '
PUNCH '
PUNCH '
PUNCH '
PUNCH '
PUNCH '
PUNCH '
PUNCH '
PUNCH'
PUNCH '

INCLUDE LOAD I OF SRGLMC I'
INCLUDE SYSOBJI OFSVCOOO I '
NAME DFSURGLOIRI
HDAM REORG RE-LOAD'
I NCLUCE LOADI OFSURGPO I '
INCLUDE LOADIDFSLIOOOI'
INCLUCE SYSOBJ I DFSVCOOO,'
I~CLUDE LOADCDFSURGMOI'
NAME DFSURGPOIRI
REORG PREFIX UPDATE'
I NCLUOE LOAD I DFSURG10 I '
INCLUCE LOADIDFSLIOOOI'
INCLUCE SYSOBJ I OFSVCOOO I '
INCLUDE LOADI DFSURGMC I '
NAME DFSURG10 IR I
REORG SORT I '
INCLUDE LOAOIDFSURGSOI'
INCLUCE LOADIDFSDSEHO I'
INCLUDE LOADIDFSLIOOOI'
INCLUDE SYSOBJIDFSVCOOOI'
I NCLUDE LOAD CDFSURGMO I'
N~ME CFSURGSOIRI
REORG SCAN'
It-CLUtE LOADIDFSURPRO I'
INCLUDE SYSOBJIDFSVCCOOI'
I NCLUCE LOADI DFSURGMO I'
NA,..E: DFSURPROIRI
PRE-REDRGIlOAD'
INCLUDE LOAD I DFSERAI0"
NAME DFSERAI0 I R I
LOG PRINT SERVICE AI D.
INCLUDE LOADI DFSACPI0 I'
NA"'E DFSACPI0lRI
7770 CHANNEL PROGRAM'
INCLUDE LOADIDFSUPRTOI
LOCAL SYSOUT UTILITY.
t.A"'E DFSUPRTOIRI'
INCLUDE LDADIDFSIMPOOI'
INCLUDE LOADIDFSIMPI01'
INCLUDE LCADIDFSIMP20l'
ENTRY DFSISMPO'
t.AME DFSISMPOIRI
SECUR ITY MAl NTENAf.4CE'
INCLUDE LOADIDFSFLBDOI' V954
ENTRY DFSHBDl'
N~ME DFSFLBDOIRI
STAND-ALONE LOG TERMINATCRX

PUNCH '
PUNCH '
PUNCH '
PUNCH '
PUNCH '
PUNCH '
PUNCH '
PUNCH '
PUNCH '
PUNCH'
PUNCH '
PUNCH '
PUNCH '
PUNCH '
PUNCH '
PUNCH '
PUNCH'

INCLUCE LGADIDFSFLOTOI'
INCLUDE lOADIDFSFLMTOl'
INCLUDE SYSOBJI OF SVCCOO I'
ENTRY OF SHOTO'
NAME DFSFlCTOI R I
INCLUDE LOADIDFSISTlOI'
NAME CFSISTlDIRI
INCLUCE LDADIDFSIST201'
NAME DFSIST20lRI
INCLUDE lOADIDFSIST301'
NAME DFSIST30lRI
INCLUDE LOADIDFSIST40l'
t.AI'E DFSIST40lRI
INCLUDE LOADIDFSDDLSOI'
If.4CLUDE LOADIDFSLIOOOI'
ENTRY DLITCBL'
NAI'E DFSDDL TO IR I

,

,

SYSTEM LOG TERMINATOR'
STA TISTICS I '
STAT ISTICS 2'
STATISTICS 3'
STATISTICS 4'

DL/I TEST PROGRAM'

77

10/02172

II1S SYSTEM
LUC

OBJECT CODE

V2

DEFI~lTION.

ADDR1 ADDR2

STHT
34C5+
34C6+
34C 7+
34C8+
3409+
3410+
3411+
3412+
3413+
3414+
3415+
3416+
3417+
3418+
3419+
342(+

3'+21 +
3422+
3423+
3424+
3425+
3426+
3427+
3428+
3429+
3430+

3431+
3432+
3433+
3434+
3435+
3436+
3437+
3438+
3439+
3440+
3441+
3442+
+
3443+
3444+
3445+
3446+
3447+
3448+
3449+
34%+
3451+
3452+
3453+
3454+
3455+
3456+
3457+
3458+

SOURCE STATEHfNT
PUNCH ' INCLUDE LOADIDFSBACKOI'
INCLUDE LeADI DFSRDBCO I'
PU~CH '
INCLUDE LOADIDFSLIOCCI'
PU~CH '
PUNCH' INCLUDE LOADIDFSBACMOI'
ENTkY ell TCBL'
PU~CH '
PUNCH ' ~A"E DFSBBCCOIRI
PUNCH ' INCLUDE LOADIOFSlxxXDI
PUNCH ' I~CLUDE SYSLMODIDFSltllKBI
PUNCH ' INCLUDE LOADIDFSISVVOI
INCLUDE LOADIDFSCFEOOI
PU~CH '
PUNCH ' INCLueE LOADIDFSCFE801
PUNCH' INCLUDE lOADIDFSCFEIOI
PUNCH • INCLUDE LOADIOFSCFEPCI
PUNCH ' INCLueE LOADIDFSCFEGOI
PUNCH' INCLUDE lOADIDFSCFEOOI
PUNCH ' INCLUDE LOADIDFSCFESOI
PUNCH' INCLUDE lCADIDFSCFEQCI
PUNCH ' INCLUDE LOADIDFSFPMMCI
PUNCH ' INCLueE lCADIDFSFPRFOI
PUNCH ' INCLUDE lOADIDFSFFETOI
PUNCH ' INCLUDE lOADIDFSFFRHOI
PUNCH ' INCLUDE lOADIOFSCFEZOI
PUNCH' INCLUDE LOADIDFSCLMOOI
PUNCH ' INCLUCE LOADIDFSCLMROI
t>UNCH ' INCLUDE LOADIDFSCMT101
PUNCH ' INCLUDE LOADIDFSCMT201
INCLUDE LOADIDFSCMT301
PU~CH '
PUNCH ' I~CLUDE LCADIDFSDBLHOI
PUNCH ' INCLUDE LOADIDFSDtlLDOI
PUNCH' INCLUDE lOADIDFSDBLICI
PUNCH ' INCLUDE LOADIDFSDBLPOI
PUNCH ' INCLUCE lOADIDFSDSSTOI
I~CLUDE LCADIDFSDBLROI
PU~CH '
PUNCH ' INCLUDE LOADIDFSDPDHCI
PUNCH ' I~CLUDE LCADIDFSDBPIC I
PUNCH' INCLUDE LOADIDFSFXC1CI
PUNCH ' INCLUDE LOADIDFSFLOSOI
PUNCH ' I~CLUDE lOADIDFSFBGNOI
ON. '
PUNCH' INCLueE LOADIDFSFlOIO I
PUNCH' INCLUDE·LOADIDFSFLOGOI
PUNCH' INCLUDE LOADI DFSIASEO I
PUNCH' INCLueE LOADIDFSTERMOI
PUNCH' INCLUDE LOADIDFSIASIC I
PUNCH' I~CLUDE LOADI DFSIASTO I
PUNCH' INCLUDE LOADIDFSICIOC I
PUNCH' INCLUDE LOACIDFSICLBOI
PUNCH' INCLUDE lOADIDFSICLDOI
PUNCH' INCLUDE LOADIDFSICLEOI
PUNCH' INCLUDE lCADIDFSICLFOI
PUNCH' INCLUCE LOADIDFSICLKCI
PUNCH' INCLUDE LOADIDFSICLNDI
PUNCH' INCLUDE lOADIDFSICLPOI
PUNCH' INCLUCE LOADIDFSIClROI
PUNCH' INCLUDE LOADIDFSIClSDI

R3

CLCO

27HAY72

PAGE
FOIOCT71

78

10/02/72

BATCH DATABASE 8ACKOUT'
SYSTEM DIRECTORY.'
SYSTEM CTRl BLOCKS.'
SVC MODULES.'
FORMAT EDITOR INPUT SCAN.'
FORMAT EO. OUTPUT BUILD. '
FORHAT ED •. INPUT PROCESS.'
FORMAT EDITOR PAGING.'
FORMAT EO. OUTPUT BUFFER.'
FORMAT EO. OUTPUT PROCESS'
FORMAT EDITOR SORT.'
FORHAT EDITOR CLEAN-UP.'
FORMAT POOL MANAGER. '
PRE-FETCH MODULE. '
IMMEDIATE FETCH MODULE. '
FETCH REQUEST HANDLER. '
FORHAT EDITOR TRACE. '
MESSAGE GENERATOR OVLY.'
MESSAGE GENERATOR ROOT.'
HSG GENERATOR TABLE I.'
MSG GENERATOR TABLE 2.'
MSG GENERATUR TABLE 3.'
DL/I BLOCK MOVER.'
DMB LOADER/RELOCATION'
INTENT LIST LOAD/RELOCATE'
PSB LOADER/RELOCATION'
DATABASE RESOURCE MNGMT'
ACBllB READER '
PSB/DMB POOL MANAGER '
BUFFER POOL INIT'
IMS/360 ENQUEUE'
IMS/360 STAE EXIT ROUTINE'
LOG INTERFACE INITIALIZATIX
LOG RECORDER ROUTINE.'
LOG WRITER MODULE'
SIM REGION TERHI~ATION.'
TERHINATION CLEANUP'
REGION INITIATOR.'
REGION TERMINATOR.'
COMM. I/O ANALYZER.'
COMM. INPUT EDITOR.'
COMM. DISPLAY PROCESSOR.'
SET/RESET COMMAND.'
FINO DESTINATION MODULE.'
FORMAT COMMAND. '
TRACE COMMAND. '
COMMAND PROCESSOR.'
MESSAGE ROUTER.'
SECURITY CHECKER.'

3.199

V2

IMS SYSTEM DEFINITION.

LOC

OBJECT CODE

ADDRI ADDR2

STMT
3459+
3460+
3461+
3462+
3463+
3464+
3465+
3466+
3467+
3468+
3469+
3470+
3471+
3472+
3473+
3474+
3475+
3476+
3477+
3478+
3479+
3480+
3481+
3482+
3483+
3484+
3485+
3486+
3487+
3488+
3489+
3490+
3491+
3492+
3493+
3494+
3495+
3496+
3497+
3498+
3499+
350C+
3501+
3502+
35C3+
3504+
3505+
3506+
3507+
3508+
3509+
3510+
3511+
3512+
3513+

3.200

R3

CLOO

FOIOCT71

SOURCE STATEMENT
PUNCH '
PUNCH '
PUNCH '
PUNCH '
PUNCH'
PUNCH '
PUNCH '
PUNCH '
PUNCH '
PUNCH '
PUNCH'
PUNCH '
PUNCH '
PUNCH '
PUNCH '
PUNCH'
PUNCH '
PUNCH '
PUNCH'
PUNCH '
PUNCH '
PUNCH '
PUNCH '
PUNCH '
PUNCH '
PUNCH '
PUNCH '
PUNCH '
PUNCH '
PUNCH'
PUNCH '
PUNCH '
PUNCH '
PUNCH '
PUNCH
PUNCH '
PUNCH '
PUNCH '
PUNCH '
PUNCH '
PUNCH'
PUNCH '
PUNCH'
PUNCH '
PUNCH '
PUNCH '
PUNCH '
PUNCH '
PUNCH '
PUNCH '
PUNCH'
PUNCH '
PUNCH'
PUNCH'
PUNCH '

,

PAGE

27MAY72

INCLUDE
INCLUDE
INCLUDE
INCLUDE
INCLUDE
INCLUDE
INCLUDE
INCLUDE
INCLUDE
INCLUDE
INCLUDE
Ir.CLUDE
INCLUDE
INCLUDE
INCLUDE
INCLUDE
INCLUDE
INCLUDE:
INCLUCE
INCLUDE
INCLUDE
INCLUDE
IHLUDE
INCLUDE
INCLUCE
INCLUDE
INCLUCE
INCLUCE
INCLUDE
INCLUDE
INCLUDE
INCLUOE
INCLUCE
INCLUDE
INCLUDE
INCLUDE
INCLUDE
INCLUCE
INCLUDE
INCLUDE
INCLUCE
INCLUDE
INCLUDE
INCLUCE
INCLUOE
INCLUCE
INCLUDE
INCLUDE
INCLUDE
INCLUDE
INCLUDE
INCLUDE
INCLUDE
INCLUDE
INCLUDE

LCADIDFSICLTD)
LOADeDFSICLXOI
LOADIDFSICllO)
LOADe DFS ICL2C )
LOADIDFSICL30)
LOADIDFSICL40)
LOADIDFSICL50)
LOADIDFSICL60)
LOAD I DFS ICL7ed
LOADIDFSICL80)
LOADI DFS ICL90 I
LeAD I DFSI CLGO )
LOADe DFSICLJO I
LCADIDFSICURO I
LOAD I DFS IDP(j(J)
LOADe CFSIDPIO)
LOAoeDFSIDP201
LOADe DFS [oP3D)
LOADe DFSIDP4C)
LOADIDFSIDP50)
LCADeDFSIDP601
LOADe DFS JOP70)
LCADCOFSIDP80)
LOADeDFSIDP9D)
LCADIDFSIDPAO)
LOADeDFSIDSPO)
LOAOIOFSIIDEO)
LOADeDFSI IENO)
LOADeDFSIINBO)
LOADe DFSIINDO)
LOADeDFSIIr.FO)
UlADCOFSllNLO I
LOADeUFSIINQC)
LCADeDFSIINSO)
LOADI DFS IINTO)
LCAD eDFS IINXO)
LOAD eOF SIINI0)
lOADe DF:S IIN2G)
LCADIOFSIMBDC)
LOADIDFSIMBEOI
LDADCDFSIPCPO I
LOAD COFS I POLO I
LOADeDFSFTRMO)
LOADCDFSIPREOI
LCADIOFSIRDI01
LOADCDFSQMGRO I
LOADCDFSQLOGO I
LOADeDFSQRSTO I
LOADeOFSISMICI
LOADeDFSISMNOI
LCADe OF SRCPOO)
LOADeDFSRBOIO I
LOADCDFSRDBCO)
LOADIDFSREREO)
LOADCDFSRNREOI

MESSAGE TRANSLATCR.'
RESET POll.'
BROADCAST COMMAND.'
CHE/RES COMMAND.'
COMfoIAND EO ITOR.'
START COMMAND.'
TEST/EXC/END COMMAND.'
CHANGE COfolMAND.'
ASS IGN COMMAND.'
OELETE COM"AND.'
LOCK/UNLOCK COMMANDS.'
IDLE CCMMAND.'
DEQUEUE COMMAND
OUTPUT EO ITOR.'
DISPLAY CONTROL.'
DISPLAY STATUS.'
DISPLAY ACTIVE.'
DISPLAY QUEUES.'
DISPLAY TRAN && LTERM.'
DISPLAY PGM && DATABASE.'
DISPLAY LINE && PTERM.'
DISPLAY ASSIGNMENT.'
DISPLAY CONVERSATIONS.'
DISPLAY SHUTDOWN STATUS.'
DISPLAY peOL.
DISPATCHER.'
BLOCK DEQUEUE.'
BLOCK ENQUEUE.'
INIT - COMMVNICATIONS.'
- DMB DIRECTORY.'
- FORMAT BUFPOOL.
- MOOULE LCADER.'
- QUEUE MANAGEMENT.'
- POOL MANAGEMENT.'
- CONTROL && MISC.'
- RE S IOENT XFR CTRL'
- JOBlI B MODULE TBL'
- SVCLIB MODULE TBL'
5MB DEQUEUE.'
5MB ENQUEUE.'
CHECKPOINT POST ROUTINE.'
POLLING LIST MANIPULATOR.'
TERMINAL LOOKUP MODULE.
LOG PREFIX BUILDER.'
DISPLAY MASTER.'
QUEUE MANAGEMENT.'
QUEUE LOG BUILDER.
QUEUE RESTART INTERFACE. '
SECURITY MAINT. INIT. '
STORAGE MANAGEMENT.'
CHECKPOINT MODULE.'
BACK OUT INTERFACE MODULE'
BACK OUT MODULE'
EMER RESTART OVLY MODULE.'
NOR" RESTART OVL Y MODULE.'

,

,

,

,

79

10/02172

IMS SYSTEM DEFINITIUN.
LOC

OBJECT CODE

ACDR1 ADDR2

V2
SOURCE STATEMENT

STMT
3514"
351!>+
3516"
35lH
351B"

..

3519 ..
3520+

3521"
3522"
3523"
3~24"

3525"
3526+
3527+
3528+

' I~CLUCE
' INCLUCE
' INCLUDE
' INCLUCE
' INCLUCE
LE. '
PUNCH ' INCLUDE
PUNCH' INCLUDE
PUNCH ' INCLUDE
PUNCH ' INCLUCE
PUNCH ' INCLUCE
PUNCH ' INCLUCE
PUNCH' INCLUCE
PUNCH ' INCLUCE
PUNCH ' INCLUCE
PUNCH' INCLUDE

.'

+

3542 ..

+

35 .. 3+
3544 ..
3545"
35 .. 6+
354H
3548+
354'H
3550+
3551"
3552+
3553+
355 ....
3555+
3556"
355H
3558"
3559+
356U"
3561+
3;)62"
3563+
3564 ..

PUNCH '
PUNCH '
PUNCH'
PUNCH '
PUNCH '
PUNCH '
PUNCH '
PUNCH '
PUNCH '
PUNCH '
PUNCH '
PUNCH '
PUNCH '
PUNCH

.,
'

INCLUCE
INCLUCE
INCLUCE
INCLUCE
INCLUDE
INCLUCE
INCLUCE
INCLUCE
INCLUCE
INCLUDE
INCLUDE
INCLUDE
INCLUDE

27MAY72

PAGE

LO~OeCFSRSTOO

I
LOAD eCF SWRAPC I
TELLlS( IECTLOPNI
TELLIBelECTCHGNI
LOACeOFSDNSCOI

RESTART ROOT MOCUlE.'
POLL OPEN/WRAP.'
BTA" LINE OPEN'
BT AM POll CHANGER.'
SYSTEM CONSOLE CEVICE MOCUX

LOAOe DFSPA(fEO I
LOADe CF SONO 10 I
LOACIOFSDN1201
LOADIOFSDS0101
LOADIOFSDN0801
LOAOIDFSDSOSCI
LOADIOFSONllO I
LOADI OFSON02C I
LCADIDFSOS\l201
LOADIOF SON03C I

TERMINAL PAGING MOCULE'
2740 CEVICE MODUlEeNSI.'
274C CEVICE MODUlEINSCI. '
2740 DEVICE MODUlEISI.'
2741 CEVICE MODUlEINSI'
2741 DEVICE MODUlEISI. '
2980 DEVICE MODUlEINSI. '
105e DEVICE MODUlEINSI.'
1050 DEVICE MOCUlEISI.'
2260 DEVICE MODUlEIREMOTEIX

LCADICFSCN130 I
LOAOe OFSONl40 I
LOACI OFSDN040 I
LDACIOFSCN0601
LOADICFSCNO'lOI
LOADI DFSBSCKC I
LOADI OFSDNS30 I
LOADI OF SDNS20 I
LOAD I OF SDS040 I
LOADI DFSDN150 I
LOAD (DFS 11150 I
LCAD( DFSICONO I
LOADI DFSICLHO I

3270 REMOTE DEVICE MODULE'
3270 LOCAL DEVICE MOCUlE.'
2740-11 DEVICE MOCULE.'
1030 CEVICE MOCULE.'
2770 DEVICE MODUlEINSI. '
BSC CHECK MOCULE. '
277C RWA SERVICE MOCUlE. '
2770 CEBlOCK MODULE. '
TWX CEVICE MOCULE. '
LOCAL SvSOUT ~OCULE. '
LOCAL SYSOUT INIT '
CONVERSATICN PROCESSOR.'
HOLD/EXIT/RELEASE COHMANCSX

INCLUCE LOADIDFSICLAOI

TI. '

PUNCH '
PUNCH '
PUNCH '
PUNCH '
PUNCH ,
PUNCH '
PUNCH '
PUNCH '
PUNCH'
PUNCH '
PUNCH ,
PUNCH '
PUNCH '
PUNCH'
PUNCH '
PUNCH '
PUNCH '
PUNCH'
PUNCH '
PUNCH '
PUNCH '
PUNCH '

CLOO

FOI0CT71

PUNCH
PUNCH
PUNCH
PUNCH
PUNCH

+

352<;"
3530+
3531"
3532+
3533"
3534+
3535+
3536+
353H
3538 ..
353<;+
354C"
3541+

R3

INCLUDE LCACIDFSICA101
IIICLUDE LCAD I DFS 11030 I
INCLUDE LOADeDFSDS0301
INCLUDE lOADeCFSICMYOI
ENTRY DFSSTART'
OVERLAY CHEA'
INSERT DFSRSTOO'
OVERLAY CHEAl'
INSERT CFSCBPIO'
OVERLAY CHEA'
INSERT DFSRCPOO'
OVERLAY I"SAIREGIONI'
IIISElH CFSClMOO'
OVERLAY I"SA'
INSERT CFSICl10'
OVERLAY I"SA'
INSERT CFSICL20'
OVERLAY IMSA'
INSERT CFSICL30'
OVERLAY IMSA'
INSERT CFSICl40'
OVERLAY IMSA'

80

10/02/72

lAM ROOTICONNECT-DISCONNECX
SIGN ON OVERLAY.'
7770 OPEN INITIALIZATION'
7770 DEVICE MOCULE'
INSURE NO UNRESOLVES.'

3.201

V2

IMS SYSTEM DEFINITION.
LOC

OBJ ECT CODE

AOOR1 ADOR2

STMT
3565+
3566+
3567+
3568+
3569+
3570+
3571+
3572+
3573+
3574+
3575+
3576+
3577+
3578+"
3579+
3580+
3581+
3582+
3583+
3584+
3585+
3586+
3587+
3588+
3589+
3590+
3591+
3592+
3593+'
3594+
3595+
3596+
3597+
3598+
3599+
3600+
3601+
3602+
3603+
36C4+
3605+
3606+
3607+
3608+
3609+
3610+
3611+
3612+
3613+
3614+
3615+
3616+
3617+
3618+
3619+

OBJECT CODE

AOOR1 AOOR2

PUNCH '
PUNCH'
PUNCH'
PUNCH'
PUNCH '
PUNCH'
PUNCH'
PUNCH '
PUNCH '
PUNCH '
PUNCH '
PUNCH'
PUNCH '
PUNCH '
PUNCH '
PUNCH '
PUNCH '
PUNCH '
PUNCH'
PUNCH '
PUNCH '
PUNCH '
PUNCH'
PUNCH '
PUNCH '
PUNCH '
PUNCH '
PUNC.H '
PUNCH '
PUNCH'
PUNCH '
PUNCH '
PUNCH '
PUNCH'
PUNCH'
PUNCH '
PUNCH'
PUNCH'
PUNCH '
PUNCH '
PUNCH'
PUNCH'
PUNCH '
PUNCH '
PUNCH '
PUNCH '
PUNCH '
PUNCH '
PUNCH '
PUNCH •
PUNCH '
PUNCH '
PUNCH'
PUNCH '
PUNCH '

3620+
3621+
3622+
3623+
3624+
3625+
3626+
3627+
3628+
3629+
363(,+
3631+
3632+
3633+
3634+
3635+
3636+
3637+
3638+
3639+
3640+
3641+
3642+
3643+
3644+
3645+
3646+
3647+
3648+
3649+
3650+
3651+
3652+
3653+
3654+
3655+
3656+
3657+
3658+
3659+
366C+
3661+
3662+

3.202

27MAY72

PAGE
FOIOCT71

81

10/02/72

INSERT OF SI CL50'
OVERLAY I '"'SA'
INSERT OFSICL60'
OVERLAY IMSA'
It.SERT OFSICL70'
OVERLAY IMSA'
INSERT OFSICL80'
OVERLAY IMSA'
INSERT OFSICL90'
OVERLAY IMSA'
INSERT OFS ICLEO'
OVERLAY IMSA'
INSERT OFSICLHO'
OVERLAY IMSA'
INSERT OFSICLGO'
OVERLAY IMSA'
INSERT OFSICLJO'
CVERLAY IMSA'
INSERT OFSICLNO'
OVERLAY IMSA'
It.SERT OFSIOPOO'
OVERLAY IMSA'
INSERT Of-SIOP10'
OVERLAY I MSA'
INSERT OFSIOP20'
OVERLAY IMSA'
INSERT OFSIOP30'
OVERLAY IMSA'
INSERT CFSIDP40'
OVERLAY IMSA'
INSERT CFSIDP50'
OVERLAY H'-SA'
INSERT OFSIOP60'
OVERLAY IMSA'
INSERT OFSIOP70'
OVERLAY IMSA'
INSERT DFSIDP80'
OVERLAY IMSA'
INSERT OFSIDP90'
OVERLAY IMSA'
INSERT OFSIDPAO'
OVERLAY IMSA'
INSERT DFSCFEIO'
INSERT OFSCFEll'
OVERLAY IMSA'
INSERT OFSIRDIO'
OVERLAY IMSA'
INSERT DFSIPCPO'
OVERLAY IIISA'
INSERT OFSCMTlO'
OVERLAY IMSA'
INSERT OFSCMT20'
OVERLAY IMSA'
INSERT DFSCMT30'
OVERLAY IMSA'
V2

STMT

CLOO

SOURCE STATEMENT

IMS SYSTEM DEFINITION.
LOC

R3

SOURCE STATEMENT
PUNCH'
INSERT DFSICA10'
PUNCH' OVERLAY IMSA'
PUNCH'
INSERT OFSIINXO'
PUNCH' OVERLAY IMSB'
PUNCH'
INSERT OFSI INTO'
PUNCH'
INSERT OfSFSGNO'
PUNCH' OVERLAY IMSS'
PUNCH'
It.SERT OFSIINLO'
INSERT OFSIIN10'
PUNCH'
INSERT DFSIIN20'
PUNCH'
PUNCH' OVERLAY IMSS'
INSERT DFSI INDO'
PUNCH'
PUNCH' OVERLAY IMSS'
INSERT OFSIINSO'
PUNCH'
INSERT OfSINTBO'
PUNCH'
PUNCH' OVERLAY IMSB'
PUNCH'
INSERT OFSIINQO'
PUNCH' OVERLAY IIISS'
INSERT OFSI INFO'
PUNCH'
PUNCH' OVERLAY I MSB'
PUNCH '
INSERT OFS IINSD'
PUNCH'
INSERT DFSII030'
PUNCH'
INSERT CFSII150'
PUNCH' OVERLAY IMSA '
PUNCH'
INSERT DFSIASEO'
PUNCH' OVERLAY I"'SA'
INSERT DFSTERMO'
PUNCH'
PUNCH' OVERLAY I"'SA'
INSERT CFSRNREO'
PUNCH'
PUNCH' CVERLAY IIISO'
INSERT OFSISMIO'
PUNCH'
PUNCH' OVERLAY IMSA'
PUNCH'
INSERT DFSREREO'
PUNCH' OVERLAY IMSA'
PUNCH'
INSERT DFSRSOIC'
PUNCH '
INSERT OFSROBCO'
PUNCH' OVERLAY IIISA'
INSERT IECTLCPN'
PUNCH'
PUNCH' OVFRLAY IMSA'
PUNCH'
INSERT IECTCHGN'
PUNCH' t-A,.E DFSCNUCBIRI'
PUNCH 'I.'
PUNCH ' ' ' '

R3

CLOO

27MAY72

PAGE
FOICCT71

82

10/02/72

V2

IMS SYSTEM DEFINITION.
LOC

OBJECT CODE

ADDR1 ADDk2

STMT

3666
3667

F010CT7l

10/02/72

BEFORE STAGE II EXECUTION

---

THE FOLLOWING IMS DATA SETS MUST BE ALLOCATED AND CATALOGED BEFORE ATTEMPTING TO EXECUTE
THE GENERATED STAGE II JOB STREAM:
IMS2.LOAD
IMS2.GENLIB
IMS2.RESLIB
IMS2.MACLIB
IMS2.PROCLIB
IMS2.BLKS50 ICS.CLOD

3673

3674
3675
3676
3677
3678
3679
3680
3681
3682
3683
3684
3685
3686
3687
3688
3689

,

3690

36<;1
309Z
3693
36<;4
3695
36':16
3697

3698
369'>
3700
3701
3702
3703
3704
3705
3706
3707
3708
370'>
3710
3711
3712
3713
3714
3715
3716
3717
3718

OTHER REQUIRED DATA SETS MUST BE AllCCnED
AND CATALOGED PRIOR TO EXECUTION OF THE IMS
CONTROL PROGRAM •

.,
.,
.,

SPECIFIED USER SUPPLIED MODULES MUST RESIDE
IN ICS.CLOD BEFORE EXECUTION OF THE
CONTROL BLOCK LINK EDIT STEP OF STAGE II.

.,
.,
*,
*,

1030 LINE GROUPS REQUIRE LOAD MEMBER NAMED
IDFSI03001 AND MUST RESIDE IN ICS.CLOD
BEFORE EXECUTION OF THE CONTROL BLOCK LINK EDIT
STEP OF STAGE II.

.,
.,
.,
.,

2980 LINE GROUPS REQUIRE LOAD MEMBER NAMED
IDFS2'>8001 AND MUST RESIDE IN ICS.CLOD
BEFCRE EXECUTION OF THE CONTROL BLOCK LINK EDIT
STEP OF STAGE II.

.,

BEFORE SYSTEM EXECUTION

.,
.,
.,

THE FOLLOWING FUNCTIONS MUST BE COMPLETED
BEFCRE SUCCESSFUL EXECUTION OF THE IMS CONTROL
PROGRAM CAN BE ACHIEVED:

*,

.,
.,

*,

*,
.,
.,
.,
.,

.,
.,

----

THE REQUIRED TYPE 4 SVC AND APPENDAGE MODULES
MIlST BE PLACED IN SYS1.SVCLlB.
THE RESIDENT SVC INTERFACE MODULES MUST BE
LINK EDITED WITH THE OS NUCLEUS. THESE
MODULES ARE PLACED IN IMS2.RESLIB BY THE
STAGE II JOB STREAM AND ARE NAMED IGC234
AND IGC248.

.,
.,
.,

THE LOAD MEMBER DFSRRCOO MUST BE ADDEO TO THE
'PRIVILIGED PROGRAM NAME LIST' MEMBER CIEEVLNKT)
IN SYS1.LINKLIB.

.,
.,

THE IMS2.RESLI8 DATASET HUST BE CONCATENATED hlTH
SYS1.LINKLI8 BY ADDING THE NAHE 'IMS2.RESLIB' TO

V2

IMS SYSTEM DEFII'4ITION.

R3

CLOD

.,

F010CT71

.,

THE LNKLSTOO MEHBER OF SYS1.PARMLIB.

.,
.,
.,

THE TERHINAL CONVERSATION FEATURE REQUIRES THE
I~S2.SPA DATA SET BE ALLOCATED AND CATALOGED,
WITH SPACE SPECIFICATION - SPACE=CO,81.

.,

THE CATALOGED PROCEDURE 'IHS' HUST BE UPDATED
TO INCLUDE 00 STATEMENTS FOR ON-LINE DATABASES
AND PLACED IN SYS1.PROCLIB BEFORE THIS PROCEDURE
CAN BE SUCCESSFULLY EXECUTED.

.,
.,.,.,
.,.,
*,

.,
.,

3733

.,
.,
.,
.,

3734
3735
3736
3737

PAGE

27MAY72

SOURCE STATEMENT

3719
3720
3721
3722
3723
3724
3725
3726
3727
3728
372'>
3730
3731
3732

3738
373'1
374(,
3741
3742

83

IMS SYSTEM DEFINITION
FOR ALL FUNCTIONS.

3669
3670
367l
3672

STHT

PAGE

SUCC~SSFUL

3MB

ADOR1 ADDR2

27MA, (2

.......................................................
.,.,.,., .........................................................
••
••
.,.,..
••
.,.,.,
.,.,.,
.,.,.,.,
..,
.,
.,
.,.,.,

3Ob5

OBJeCT CODE

CLOO

SOURCE STATEMENT

3664

LOC

R3

B4

10/02/72

THE CATALOGED PROCEDURE 'IHSRDR' HUST BE PLACED
IN SYSl.PROCLIB BEfORE ANY OTHER IMS GENERATED
PRCCEDURE CAN BE SUCCESSFULLY EXECUTED.
REFER TO THE IHS SYSTEM PROGRAMMING
REFERENCE HANUAL FOR INSTRUCTIONS AND ASSISTANCE IN PERFORHING THESE AND OTHER REQUIRED
FUNCTIONS BEFORE SYSTEM EXECUTION.

.,..
.,..
.,.......................................................
.........................................................
,

END

NO STATEMENTS FLAGGED IN THIS ASSEMBLY
.STATISTICS*
SOURCE RECORUS CSYSINI =
360
SOURCE RECORDS CSYSLIBI = B58'1
.OPTIONS IN EFFECT.
LIST, NODECK, NDLOAO, NORENT, xREF, NOTEST, ALGN, OS, NOTERM, LINECNT =
4~04 PRINTED LINES

55

3.203

BATCH DATA BASE EXAMPLE
This example illustrates the output from Stage 1 of IMS/360
definition. The input to stage 1 (that is, the control cards)
provided in the output listing as is a summary of the Data Set
Data Base Specifications, followed by the punch statements and
comments at the end.

system
is
and
warning

PAGE
LOC

OBJECT CODE

AODRl AOOR2

S1MT

SOURCE STATEMENT

..,

IMSCTRL
3
4
6

7+

,

FOIOCT71

8ATCH IMS SYSTEM FUNCTIONS ARE SELECTED
FOR A MV1 OS PROGRAMMING SYSTEM •

IMSGEN
,
TITLE 'IMS SYSTEM DEfINITION.
V2

IMS SYSTEM DEFINITION.
LOC

OBJ£:CT CODE

AOOR1 AOUR2

STMT

10
11
12
13
IS
17
18
19
20
21

.,.,
.,.,

OBJI:CT COU£:

ADORl ADOR2

23+
l4+
lS+

26+
27+
26+
29+
30+
31+
32+
33+

34+
35+

36+
37+
38+

39+
40+
41+
42+
43+
44+
4~+

46+
47+

41H
49+

5u+
51+
52+
53+

54+
55i'
56+
57+

58+
59+

60+
01+
62+
63+
04+

05+
66+
67+
68+
69+

7U+
H+
72+
73+

74+
75+
76+

3.204

CLOO

.,.,.,
.,.,.,
.,
SOURCE STATEMENT

PAGE

l'tNOV72
FOIOCT7l

2

10/10172

OS SYSTEM OPTI ONS:
MVT SYSTEM
RESV'O SVC'S (253,254,2551
RESV'O APNOG IGG019l9
RESV'O SQS
ISOO,10001
IMS/360 SYSTEM OPTIONS:
1 REGIONS
1 SUBTASKS
18 CONCURRENT EXCTL REQUESTS
1000 CHECKPOINT LOG FREQUENCY
GENERATE FOR BATCH
V2

STM1

R3

SOURCE STATEMENT

IMS SYSTEM OtFINITION.
LOC

10/10/72

SYSTEMs (MVT, BATCHI

r.3

CLOO

14NOV72

PAGE
F01DCT71

PUNCH 'IIIMSGENI J08 MSGLEVEL=l,MSGCLASS=A,CLASSzA'
PUNCH '1iSTEPl EXEC PGM=IEBCOPY'
PUNCH 'IISYSPRINT 00 SYSOUT=A'
PUNCH 'IISYSUTI 00 OSN=JMS2.GENLIB,01SP=SHR'
PUNCH '1ISYSUT2 00 OSN=IMS2.MACLIB,0ISP=OLO'
PUNCH '1ISYSUT3 00 UNIT=SYSOA,SPACE=(80,I10,1511
PUNCH '1ISYSUT4 00 UNIT=SYSDA,SPACE=I256,IS,111
PUNCH 'IISYSIN DO . '
PUNCH' COpy OUTOO=SYSUT2,INOO=SYSUT1
PUNCH' SELECT MEMBER=ALPHA '
PUNCH' SELECT MEM8ER=CKOON '
PUNCH' SELECT MEMBER=CKOPT '
PUNCH' SELECT MEMBER=CONVERT '
PUNCH' SELECT MEMBER-OATASET '
PUNCH' SHECT MEMBER=DBD •
PUNCH' SEL£:CT MEMBER=OBOGEN '
PUNCH' SELECT MEMBER=DBOLRECL '
PUNCH' SEL£:CT MEMBER=OEVSllE '
PUNCH' SELECT MEMBER=oMAN '
PUNCH' SELECT MEMBER=EXPARMS '
PUNCH' SELECT MEMBER=EXTOBO '
PUNCH' SELECT MEMBER=FIELO '
PUNCH' SELECT MEMBER-FINISH'
PUNCH' SELECT MEMBER=Flo •
PUNCH' SELECT MEMBER=FLDK '
PUNCH' SELECT MEMBER=GLOBALS '
PUNCH' SELECT MEMBER=HIERSEQ '
PUNCH' SELECT MEMBER=LCHILD '
PUNCH' SELECT MEMBER=PCB '
PUNCH' SELECT MEMBER=PCBPOV '
PUNCH' SELECT MEMBER=PSBGEN '
PUNCH' SELECT MEMBER=SEGM '
PUNCH' SELECT MEMBER=SEGPTRS '
PUNCH' SELECT MEMBER=SENSEG '
PUNCH' SELECT M£:MBER=SETFLGS '
PUNCH' SE:LECT MEMBER=SETFREQ '
PUNCH' SELECT MEMBER=SDURSEG '
PUNCH' SELECT MEMBER=XDFLD '
PUNCH 'IISTEP2 EXEC PGM=IEBUPOTE,'
PUNCH 'II PARM=NEw'
PUNCH 'IISYSPRINT 00 SYSOUT=A'
PUNCH '1ISYSUT2 DO DSN=IMS2.PROClIB,DISP=OLO'
PUNCH 'IISYSIN DO
DATA'
PUNCH '.1
ADD
NAME=CBLTOll'
PUNCH' LIBRARY RESLIBICBLTOlll
Dl/I lANGUAGE INTERFACE'
PUNCH' £:NTRY DLITCBl'
PUNCH '.1
ADD
NAME=PlITDLI'
PUNCH' LlBKARY RESLIBIPLITDLI I
DllI LANGUAGE INTERFACE'
PUNCH' ENTRY IHESAPO'
PUNCH '.1
ADD
NAME=DlIBATCH'
PUNCH '.1
NUMBER NEW1=lO,INCR=10'
PUNCH 'II
PROC
HBR=TEHPNAME,SOUT=A,PSB=,BUF=,SPIE=O,TEX
ST=O'
PUNCH 'IIG
£:XEC PGM=OfSRRCOO,REGION=130K,'
PUNCH 'II
PARM="Dll,&&MBR,&&PSB,&&BUf,&&SPIE&&TESX

3

10/10/72

V2

IMS SYSTEM UEFINITION.
lUC

OtiJECT CODE

AUOR 1 AOOR2

+
77+

18+
19+
80+
81+
82+
+

83+
84+

8H

88+

PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH

+

8'11+
90+
+

91+
92+
93+
94+
9S+

+

96+
91+
+

98+
99+
100+
101+
102+
+

103+
104+
10S+
106+
107+
108+
+
109+
110+
111+
112+
113+
114+
l1S+
116+
+

117+
118+
+

119+
120+

14NOV12

PAGE
10/10112

T" ,

+

8S+
86+

CLOD

F010CT71

SOURCE STATEMEf'.jT

STHT

R3

PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH

'1ISTEPlIS DO OSN s IHS2.RESlIS,OISPaSHR'
DO OSN a IMS2.PGMLl8,0ISPsSHR'
DO OSN=IMS2.PSSLlS,OISPsSHR'
'1I1MS
'II
00 OSN=IMS2.0S0lI8,0ISP-SHR'
'1IOFSlOGTT 00 OSN-IMS2.l0GT,UISP-SHR'
'1IIEfROER 00 OSN-IHSlOG ,01 SP-I,KEEP) ,VOL-I, .. 99) ,UNIT-IX
2400 .. 0EFERI,'
.
'II OCS-IRECFM-VSS,SlKSllEs[408,lRECl-1400,8UFNO-l)'
'IISYSUOUMP 00 SYSOUT-&&SOUT,OCS-IRECFM-FSA,lRECl-121,SlX
KSllE-6051, '
'II SPACE-I605,ISOO,SOOI,RlSE"ROUNOI'
'.1
ADD
NAHE-OSS8ATCH'
'.1
NUMSER NEW1-10,INCR-lO'
'II
PROC MSR=TEMPNAME,SOUTsA,PSB-,SUF-8,SPIE-0,TEX
STsO'
EXEC PGH=OFSRRCOO,REGION-i30K,'
'IIG
PARMa" OS8, &&MSR, &&PS8, &&SUF, &&SP I E&&TESX
'II
'II

T"

,

K"

,

'1ISTEPlIS DO OSN a IMS2.RESlI8,0ISP-SHR'
'II
DO OSN=IMS2.PGMlIS,OISP-SHR'
'1IIMSAC8 DO OSN-IMS2.ACSlI8,0ISP-SHR'
'1IOFSlOGTT 00 OSN-IMS2.l0GT,OISP-SHR'
'IIIEFROER DO OSN z IHSLOG.0ISP=I.KEEP).VOL s l ••• 99I,UNIT-IX
2400 •• OEFERI,·
'11 OCB=IRECFH=VBS,SLKSllE-l408.lRECl-1400,BUFNO-l)·
'IISYSUOUMP 00 SYSOUT-&&SOUT.OCS-IRECFMsF8A.LRECl-12ltSLX
KSllE=6051,'
'II SPACE z I60S. I SOO,SOOI ,RlSE .. ROUNDI'
'.1
ADD NAME=ACSGEN'
'.1
NUMSER NEWl"10.INCR-10'
'II
PROC SOUT=A.COMP-,RGN-100K'
'IIG
EXEC PGM-DFSRRCOO,PARM-"UP8,&&COHP",REGION-X
&&RGN'
'IISYSPRINT DO SYSOUTs&& SOUT'
DO DSN=IMS2.PSBLlB.0ISP-SHR'
'1IIMS
DO DSN=IMS2.080LIB.DISP-SHR'
'II
DO DSN-IMS2.AC8lIB.DISP-OlO'
'1I1MSAC8
DO UNIT= SYSOA, SPACE- I SO. 1100,1001 I'
'1ISYSUn
DO UNIT=SYSOA,SPACE=12S6,1100.10011.DC8-KEYlX
'IISYSUT4
EN=S'
'licOHPCTL 00 DSN=IMS2.PROClI81DFSAC8CP).DISP-SHR'
'.1
ADO NAME-OFSACSCP'
'.1
NUM8ER NEWl=lO.INCR=lO'
'
'COPY INOD=IMSAC8,OUTOD s IMSAC8'
'.1
ADD
NAHE=PSSGEN'
'.1
NUHSER NEWl=lO.INCR=lO'
'II
PROC MSR=TEMPNAME.SOUT-A'
'IIC
EXEC PGH=IEUASH.REGION-120K.PARH-·'lOAD.NODECX

PUNCH '115YSL18 DO
PUNCH 'IISYSGO DO
OOI,RlSEI.'
PUNCH 'II
PUNCH 'IISYSPRINT DO

OSN=IMS2.HACLIB.DISP-SHR'
UNIT=SY50A.DISP=I.PASSI.SPACE-180.IlOO.lX
DCB= I BLKS IlE-400. RECFM-F8.lRECl-80)l
SYSOUT';&&SOUT.OCB-IlRECl-121.RECFM-FBH.BX

3.2Q5

IMS
lOC

~YSTEM

OBJE(;T COOE

Vl

DEFINITION.
ADORI AOOR2

+
121+
122+
+

PUNCH
PUNCH

ll3+

PUNCH

Il4+

PUNCH

+

ClOO

PAGE

14NOV72
FOlOCT7l

SOURCE STATEMENT

STMT

R3

lKS I ZE=60S),'
'II
'1ISYSUTI DO
00,5011'
'1ISYSUTl 00
OO,SOII'
'1ISYSUT3 DO

10/10/72

SPACE=( 121, ISOO, SOO), Rl SE" ROUND)'
UNIT=SYSOA,DISp z l,OElETE),SPACE=11700,11X
UNIT=SYSDA,0ISP-I,OElETEJ,SPACE=11700,11X
UNIT= 1SY SDA, SEP= 1SYSll B, SYSUTl, SYSUT2) I,X

+
1lS+

120+
+
ll7+

IlB+
129+
+
130+
131+
132+
+
133+
134+
13S+

136+
131+
+
13B+
139+
+
140+
141+
+
14l+

143+
+
144+
+
14S+

+
140+
147+
+
14S+
149+
lS0+
+
151+
IS2+
IS3+

+
154+
15S+

ISo+

lS7+

15S+
15:
.. 6051. •
PUNCH '/1 SPACE=1605,1100.50I,RLSE"ROUNDI'
PUNCH 'IISYSUTI DO UNIT=SYSOA,DISP=I.DELETEI.SPACE=11100.1400.X
10011' 3401+4660
PUNCH 'IISYSUTZ DO UNIT=SYSOA.DISP=I.OELETEI.SPACE"11100,1400,X
10011' 3401+4860
PUNCH '1ISYSUT3 DO UNIT"ISYSOA.SEP=ISYSLIB,SYSUT1,SYSUTZII,DISX
P=I,DELETEI,'
PUNCH '11 SPACE=I1100.1400.10011 • 3401+4860
PUNCH '/ISYSIN DO ••
PUNCH •
PRINT OFF'
PUNCH •
OFSPSBO DUMHY,Z018,u'
PUNCH •
SPACE 3'
PUNCH •
SPACE 3'
PUNCH •
IMSBATCH CENDA=l9l8.SVCNO=IZ53.254.2551'
PUNCH •
DFSIPST REGIONS=l'
PUNCH •
TITLE "DFSIDS40 - OSAM lOB.··.
PUNCH •
DFSIOIOB NUMIOa"l'
PUNCH ,
DFSAVARA I.SECTYPE=CSECT·
PUNCH •
TITLE "DFSlwAIT - BATCH IWAIT ROUTINE ••••
PUNCH 'OFSlwAIT CSECT'
PUNCH • •••••

3.211

V2

IMS SYSTEM OEfIl>ilTlUN.
lOC

OBJECT CODE

AOOK1 AOOR2

.•.
.....••
.....•.
........
...
......
···
··

SOURCE STATEMENT

STMT
372+
373+
374+
375+
376+
377+
37d+
379+
3BU+
381+
382+
383+
364+
385+
366+
387+
388+
389+
390+
391+
+
392+
3'13+

394+
+

395+
396+
397+
398+
399+
400+
401+
402+
403+
+
404+
405+
+

406+
+

407+
+
408+
409+
410+
411+
412+
+

413+
't14+
't15+
416+
417+
418+
419+

R3

CLOO

PAGE

14NOV72
FOlOCT71

11

10/10/72

PUNCH
PUNCH
IWAIT ROUT INE'
PUNCH
PUNCH
THIS CODE PUTS THE BATCH TASK'
INTO OS WAIT fOR THE DURATION'
PUNCH
OF AN 1/0 OPERATION.'
PUNCH
PUNCH
PUNCH
ASSUMES UPON ENTRY:'
PUNCH
R1
PST AOOR'
PUNCH
R13 SAVE AREA AOOR'
PUNCH
PUNCH
PUNCH
SPACE 3'
PUNCH
SAVE (14.121 •• 0FSIWAIT·
PUNCH
PUNCH
L
13.8(.131'
PUNCH
WAIT ECB"(U'
l
13.4(.131'
PUNCH
RETURN 114,121'
PUNCH
TITLE "OFSISCD - SYSTEM CONTENTS DIRECTORY (SX
PUNCH •
COl.'"
SECTYPE:CSEC T'
PUNCH •
ISCO
SCDOBFPl'
PUNCH •
ORG
F' '7168"
DEFAULT BUFFER POOL SILEX
PUNCH •
DC

·

·

PUNCH' '
ORG'
PUNCH '
END'
PUNCH '1.'
PUNCH '1ISTEP4 EXEC PGH-IEUASH,REGION=96K,'
PUNCH 'II PARH="LOAO.NOOECK··'
PUNCH '/ISYSlIB DO DSN=IHS2.GENLlB,0ISP"SHR'
PUNCH 'II
DO DSN"SYS1.MACLIB,0ISP-SHR'
PUNCH '/ISYSGO 00 OSN=IHS2.0BJOSET(DFSVCOOO)'DISP"OLD'
PUNCH 'IISYSPRINT 00 SYSOUTcA.OCBa IRECFH"FBH.lRECL a 121,BLKSllEX
-6051, '
PUNCH 'II SPACE=1605,ll00,501,RLSE"ROUNOI'
PUNCH '/ISYSUTl DO UNIT"SYSOA. 01 SP"I ,DELETE I ,SPACE-I 1700, 1400. X
1001/' 3401+4860
PUNCH '1ISYSUT2 DO UNIT-SYSOA,OISp z I,OELETEI.SPACE-11700,(400,X
10011' 3401+4B60
PUNCH '1ISYSUT3 00 UNIT"(SYSOA,SEP"ISYSLIB,SYSUT1,SYSUT211,DISX
p .. ( .OELETEI,'
PUNCH 'II SPACE=11700,(400.10011 • 3401+4860
PUNCH '/ISYSIN DO . '
.
PUNCH'
PRINT OFF'
PUNCH 'DFSVCOOO CSECT'
PUNCH 'OFSVCS
SSCD SECTYPEaCSECT.SVC"(253.254,,2551,OCEP=l9X
lB.OSPS=10. CONTINUE'
PUNCH •
ROUTCOE".OESC·'
PUNCH •
END'
PUNCH 'I.'
PUNCH '1IIHSGEN2 JOB HSGlEVEL=1,MSGCLASS-A,CLASS-A'
PUNCH '1ISTEP1 EXEC PGH=IEWL,'
PUNCH '/1 REGION:130K.'
PUNCH 'II PARH="RENT.REFR.NCAL,LET,,'"

(

3.212

V2

IMS SYSTEM DEFINITIUN.
LOC

OBJECT CODE

AUOR1 ADDR2

STMT
420+
+
421+
422+
423+
424+
425+
426+
+
42H
428+
429+
430+
431+
432+
433+
434+
435+
436+
437+
438+
439+
440+
441+
442+
443+
444+
445+
446+
44H
448+
449+
4)0+
451+
452+
453+
454+
455+
456+
457+
458+
459+
460+
461+
462+
463+
464+
465+
466+
467+
468+
469+
470+
471+
472+

SOURCE STATEMENT

R3

CLOO

PAGE

14NOV72
F010CT71

12

10/10/72

PUNCH 'IISYSPRINT DO SVSOUT=A,DC6=IRECFM=F6A,LRECL=121,6LKSIZEX
=6051, '
PUNCH 'II SPACE-I605,110,10I,RLSE"ROUNDI'
PUNCH '1ISVS06J DO DSN=IMS2.0BJDSET,DISP-SHR'
PUNCH 'IILOAD DO DSN-IMS2.LOAD,DISP=SHR'
PUNCH '1IUSERLI6 DO DSN=IMS2.RESLI6,DISP=SHR'
PUNCH 'IISYSLMOD DO DSN=IHS2.RESLI6,DISP=OLD'
PUNCH '1ISYSUT1 DO UNIT-ISYSDA,SEP a iSYSLMOD,SYS06JII,SPACE z ICYX
L, 110,11 I'
PUNCH 'IISVSLIN 00 . '
PUNCH' CHANGE DFSVC40DIIGC0025EI'
PUNCH'
INCLUDE LOADIDFSVC400l'
PUNCH' NAME IGCOD25EIRI
TYPE 4 SVCILOAD 01'
PUNCH' CHANGE OFSVC410llGC0125EI'
PUNCH'
INCLUDE LOADI OF SVC410 I'
PUNCH' NAME IGC0125EIRI
TYPE 4 SVCILOAD U'
PUNCH' CHANGE DFSVC4201lGC0225EI'
PUNCH'
INCLUDE LOADIDFSVC420l'
PUNCH' NAME IGC0225EIRI
TYPE 4 SVClLOAD 21'
PUNCH' CHANGE DfSVC4301 IGC0325EI ,
PUNCH'
INCLUDE LOADIDFSVC430l'
PUNCH'
NAME IGC0325EIRI
TYPE 4 SVCILOAD 31'
PUNCH' CHANGE DFSAOSAOIIGC0425EI'
PUNCH'
INCLUDE LOADIDFSAOSAOI'
PUNCH' NAME IGC0425EIRI
TYPE 4 SVCILOAD 41'
PUNCH' CHANGE DfSAOS601lGC0525EI'
PUNCH'
INCLUDE LOADIDFSAOS60l'
PUNCH' NAME IGC0525EIRI
TYPE 4 SVCILOAD 51'
PUNCH' CHANGE DFSAOSCOIIGCD625EI'
PUNCH'
INCLUDE LOADIDFSAOSCO)l
PUNCH' NAME IGC0625EIRI
TYPE 4 SVClLOAD 61'
PUNCH' CHANGE DfSAOSDOIIGC0725EI'
PUNCH'
INCLUOE lOADIDFSAOSDOl'
PUNCH' NAME IGC0725EIRI
TYPE 4 SVCILOAD 71'
PUNCH' CHANGE DFSICSCullGC1025EI'
PUNCH'
INCLUDE LOADIDFSICSCOI'
PUNCH' NAME IGCI025EIRI
TYPE 4 SYCILOAD 101'
PUNCH' CHANGE DFSYCIOOIIGC1125EI'
PUNCH'
INCLUDE LOADIDFSYCIDOI'
PUNCH' NAME IGC1l25EIRI
TYPE 4 SVClLOAD 111'
PUNCH' CHANGE DFSVC4401lGC1325EI'
PUNCH'
INCLUDE LOAOCDFSVC440Jl
PUNCH' NAME IGC1325EIRI
TVPE 4 SYCILOAD 131'
PUNCH' CHANGE DfSAOCEOIIGG019Z91'
PUNCH'
INCLUDE LOADI DFSAOCEO I'
PUNCH' NAME IGG019Z91RI
OSAM CHAN. END APPENDAGE'
PUNCH'
INCLUDE LOADIDFSAOS10l'
PUNCH' NAME DFSAOS10lRI
OSAM OPEN INTERFACE'
PUNCH'
INCLUDE LOADIDFSAOS20l'
PUNCH' NAME DFSAOS20lRI
OSAM READ/WRITE'
PUNCH'
INCLUDE LOAOIDFSAOS30l'
PUNCH' NAME DFSAOS30lRI
OSA" CHECK'
PUNCH'
INCLUDE LOADIOFSAOS50l'
PUNCH' NAME DFSAOS50lRI
OSA" COMMON SUBROUTINES'
PUNCH'
I NCLUDE LOAD I OF SO I SMO I'

3.213

V2

IMS SYSTEM DEFINITIUN.
LOC

OBJtCT CODE

ADDRI AODR2

STMT
47314741475147614771478147914801481148214831484148514801487+
4881-

4891490149114921-

493149,.1-

49514961-

,.9714981-

499150015ill1502"
5031-

50415051-

506"
50715081509151015111512"
51]1-

5141515"
5161517"
518151915201-

521"
5221523152415251-

52015271-

3.214

R3

CLOO

FOlOCT71

SOURCE STATEMENT
PUNCH '
PUNCH '
PUNCH '
PUNCH '
PUNCH '
PUNCH '
PUNCH '
PUNCH '
PUNCH '
PUf\jCH '
PUNCH '
PUNCH '
PUNCH'
PUNCH '
PUNCH '
PUNCH '
PUNCH '
PUNCH '
PUNCH '
PUNC.H '
PUNCH '
PUNCH '
PUNCH '
PUNCH'
PUf\jCH '
PUNCH '
PUNCH '
PUNCH '
PUf\jCH '
PUNCH '
PUNCH '
PUNCH '
PUNCH '
PUNCH '
PUNCH '
PUNCH '
PUNCH '
PUNCH '
PUNCH '
PUNCH '
PUNCH '
PUNCH '
PUNCH '
PUNCH'
PUNCH '
PUNCH '
PUNCH '
PUNCH '
PUNCH '
PUNCH '
PUNCH '
PUNCH '
PUNCH '
PUNCH '
PUNCH '

PAGE

14NOV72

NAME DFSDISMOIRI
INCLUDE LOADIDFSDLAOOI'
INCLUDE LOADIDFSDLA30l'
ENTRY DFSSTART'
NAME DFSDLAOOIRI
INCLUDE LOADIDFSDLDOOJ'
NAME DFSDLOOOIRI
INCLUDE LOADIDFSDLOCO)'
NAME DFSDLOCOIRI
INCLUDE LOADIDFSDLROO)'
NAME DFSDLROOIRI
INCLUDE LOADIDFSDDLEO)'
ALIAS OFSDDLI 0'
NAME DFSDDLEOIRJ
INCLUDE LOAOIDFSOXHTOI'
NAME DFSDXMTOIRI
INCLUDE LDADIDFSDDBHOI'
INCLUOE LOADIDFSDCSPOI'
INCLUOE LOAOIOFSGNSROI'
INCLUDE LOADIDFSFNDSDJ'
INCLUDE LOAD(DFSRCHOO)'
INCLUDE LOADIDFS8FWRO)'
INCLUDE LOAD(DFSDCVTOI'
INCLUDE LOADIDFSDBHROI'
NAHE DFSDBHOOIRI
INCLUDE LOAD(DFSGGSPOI ,
INCLUDE LOADIDFSLLCLOI ,,
INCLUDE LOADIDFSHMLCO)
INCLUDE LOAOIDFSMHUDOI ,
INCLUDE LOADIDFSRRHMOI ,
INCLUDE LOAD(DFSRRHPOI ,
INCLUDE LOADIDFSDHDOOI'
INCLUDE LOADIDFSRCHBOI'
INCLUDE LOADIDFSFRSPOI'
ENTRY OF SDHDSO '
NAME DFSOHDSOIRI
INCLUDE LOAO(OFSRRCOOI'
NAME DFSRRCOOIR)
INCLUDE LOADIDFSPCC30l'
ENTRY PCSTARl'
NAME OFSPCC30(R)
INCLUDE LOAD(DFSPROOOI'
ALIAS DFSIPRXX'
NAME DFSPROOO IR I
INCLUDE LOADIDFSRRAOO),
NAMe OFSRRAOO(R)
INCLUDE LOAD(DFSRRA10I'
NAME DfSRRAI0lRI'
INCLUDE LDAD(DFSRRA20I'
NAME DFSRRA20lRI'
INCLUDE LOADIDFSRRA50),
NAME DFSRRA50lRI'
INCLUDE LOAO(DFSRDBLO)'
NAME DFSRDBLOIRI
INCLUDE LOADIDFSILNKOI'

DLII ISAM SIMULATOR'

DLII ANALYZER'
DL/I DELETE/REPLACE'
OLII OPEN/CLOSE'
DLII RETRIEVE'
DLII INSERT'
DLI I INDEX MAINTENANCE'

DLII BUFFER HANDLER'

DL/I SPACE MANAGEMENT'
REGIUN CONTROLLOR'
BATCH PROGRAM CONTROLLER'
PROG. REQUEST HANDLER'
REGION PARM ANALYZER'

DATABASE LOGGER'

13

10/10172

IMS
LUC

~YSTEM

ODJECT CODE

V2

DefINITIUN.
AUD~l

ADDR2

SUURCE STATEMENT

STMT
528+
529+
~30+

531+
5J2+
533+
534+
53!>+
+

!>Jo+
537+
!>3d+
539+
~40+

541"
+

542+
!>43+
+

544+
5'05+
~'to+
~47+

:;48+
549+
550+
551+
552+
!>53+
554+
555+
550+
557+
5~8+

559+
~60+

561+
562"
563 ..
504 ..
565+
566 ..
567+
568 ..
569 ..
570 ..
571+
572 ..
573+
574+
575+
576 ..
577+
57a ..
579+

R3

CLOO

PAGE

14NOV7Z
FOIOCT71

14

10/10/72

PUNCH' NAME DfSILNKOIRI
LINKAGE EDITOR INTERfACE'
PUNCH' INCLUDE SYSOBJIDfSVCOOO)'
PUNCH' NAME DfSVCOOOIR)
SECONDARY SCD MODULE'
PUNCH 'I.'
PUNCH 'IISTEP2 EXEC PGM"IEWL,'
PUNCH 'II REGION=130K,'
PUNCH 'II PARM"'''NCAL,LET,REUS,,'''
PUNCH 'IISYSPRINT 00 SYSOUTsA,DCB=IRECfM"fBA,LRECL-121,BLKSIZEX
=6051,'
PUNCH 'II SPACE=1605,IIO,lOI,RLSE, ,ROUND,"
PUNCH 'IISYSOBJ 00 DSN=IMS2.0BJDSET,0ISP=SHR'
PUNCH 'IILOAD 00 DSN=IHS2.LOAD,DISP=SHR'
PUNCH 'IIUSERLIB 00 DSN=IMS2.RESLIB,DISP"SHR'
PUNCH 'IISYSLMOD DD DSN=IMS2.RESLIB,DISP"OLD'
PUNCH '1ISYSUT1 DD UNIT=ISYSDA,SEP"ISYSLMOD,SYSOBJI),SPACE~ICYX
L,IIO,l))'
PUNCH 'IISYSLIN DO .'
PUNCH' INCLUDE SYSOBJIDfSBBLKO)
BATCH CONTROL BLOCKS.X
PUNCH' INCLUOE LOADIDfSBINTD)' BATCH INTERfACE SIMULATOR'
PUNCH' INCLUDE LOADIDfSBLDIOI
BATCH LOG RECORDER'
PUNCH' INCLUDE LOADIDfSfLOGOI
LOG WRITER'
PUNCH' ENTRY DfSBNUC'
PUNCH' NAME: DfS8NucaiRI
8ATCH NUCLEUS'
PUNCH' INCLUOE LOADIDfSISTDOl'
PUNCH' INCLUDE LOADI DfS I STUO I'
PUNCH' ENTRY DfSISTOO'
PUNCH' NAME DfSISTDOIRI
STATISTICS 0'
PUNCH' INCLUDE LOADI DfSLIOOO I'
PUNCH' ALIAS PLlTDLI'
PUNCH' ALI AS DfSPLI'
PUNCH' ALIAS CBLTDLI'
PUNCH' ALIAS DfSCOBOL'
PUNCH' ALIAS ASMTDU'
PUNCH' ALIAS DfSASM'
PUNCH' ALIAS fORTDLl'
PUNCH' ALIAS Of Sf OR'
PUNCH' NAME DfSLIOOOIRI
DL/I LANGUAGE INTERfACE'
PUNCH' INCLUDE LOADI Df SDLBLO I'
PUNCH' INCLUDE LOADIDfSLIOOOl'
PUNCH' NAME DfSDLBLOIRI
DL/I BLOCK BUILDER'
PUNCH' INCLUDE LDADIOFSPRRCO I'
PUNCH' NAME DfSPRRCOIRl'
PUNCH' INCLUDE LOADIDfSPRPXOI'
PUNCH' NAME DfSPRPXOIRl'
PUNCH' INCLUDE LOADI DfSPRPLO I'
PUNCH' NAME DfSPRPLOIRl'
PUNCH' INCLUDE LDADIDfSPRRGOl'
PUNCH' NAME DfSPRRGOIRl'
PUNCH' INCLUDE LDADIDfSfLDSO I'
PUNCH' NAME DfSfLOSOIRI
STAE EXIT ROUTINE'
PUNCH' INCLUDE LOADI DfSDSEHO I'
PUNCH' NAME DfSDSEHOIRI
PREfiX RESOLUTION ROUTINE'
PUNCH 'I.'
PUNCH '1IIMSGEN3 JOB MSGLEVEL=l,MSGCLASS"A,CLASS=A'

3.215

V2

IMS SYSTEM DEfINITIUN.
LOC

OBJECT CODE

ADDRI ADDRZ

STMT

SOURCE STATEMENT

580+
581+
582+
583+
+

584+
58!>+
586+
587+
588+ .
589+
+

5-9040
!>91+
592+
593+
594+
595+
596+
597+
598+
599+
60U+
+

601+
602+
+

603+
604+
605+
606+
607+
608+
6U9+
610+
6U+

61£+
613+
614+
015+
616+
617+
618+
619+
620+
621+
622+
623+
624+
025+
626+
627+
628+
629+
63U+

3.216

PUNCH
PUNCH
PUNCH
PUNCH

R3

CLOO

PAGE

l4NDV72
FOlOCT71

'I/STEPI EXEC PGM=IEWL.·
'11 REGIDN=130K.·
'11 PARM= .. OVLY.NCAl.lET .... •
'IISYSPRINT DO SYSOUT=A,DCB=IRECFM=F6A,lRECl=12l,6lKSIZEX
=605),'
PUNCH 'II SPACE=I605,llO,lO),RlSE"ROUNDJ'
PUNCH '1ISYS08J 00 DSN=IMS2.08JDSET,DISP=SHR'
PUNCH '1IlOAD UO DSN=IMS2.l0AD,DISP=SHR'
PUNCH '1IUSERlIB DO DSN=IMS2.RESlIB.DISP=SHR'
PUNCH '1ISYSlMOO DO DSN=IMS2.RESlIB,DISP=OlD·
PUNCH 'IISYSUTI 00 UNIT=ISYSDA,SEP=ISYSlMOD,SYSOBJII,SPACE=ICYX
l,llO,!)I'
PUNCH 'IISYSLIN DO *'
PUNCH' INClUD~ lOADIDFSFSWAO)' 2589
PUNCH' NAME DFSFSWAOIR)
STAE WKAREA "ODUlEi 2589
PUNCH' INClUOE lOADIDFSDlNOO)'
PUNCH' INCLUDE lOADI DFSII NlO)'
PUNCH' INCLUDE lOADIDFSIINlOI'
PUNCH' INCLUDE lOADIDFSIIN20)'
PUNCH' INCLUDE lOAD(OFSDBP 10)'
PUNCH' NAME DFSDlBNOIR)
Dl/l INITIALIZATION'
PUNCH' INCLUDE lOADIOFSDPS60)'
PUNCH' NAME DfSDPS60lR)
Dl/l UTILITY INTERFACE, PX
S6 GENERATOR'
PUNCH'
INCLUDE lOADI DFSDAPlO)'
PUNCH' NAME DFSDAPlOIRI
Dl/l UTiliTY INTERFACE, AX
UTH PGM LIST'
PUNCH' INCLUDE lOADIDFSUCMNO)'
PUNCH' INCLUDE lOADIOFSUCCTO)'
PUNCH' INCLUDE lOADI DfSUC 150)'
PUNCH' INCLUDE lOADIDFSUC350)'
PUNCH' INCLUDE lOADIDFSUCEROI'
PUNCH' INCLUDE lOADIDFSCUMMO),
PUNCH' INCLUDE SYSOBJIDFSVCOOOI'
PUNCH' NAME DfSUCUMOIRJI
PUNCH' INCLUDE lOADIOFSUDMPOI'
PUNCH' INCLUDE lOADIDFSDMPMO)'
PUNCH' INCLUDE SYSOBJIDFSVCOOO)'
PUNCH' NAME DFSUDMPOIR)
IMAGE DUMP'
PUNCH' INCLUDE lOADIDFSUACBOI'
PUNCH' INCLUDE lOADIDFSUSCHO)'
PUNCH' INCLUDE lOADI DFSUMGTO)'
PUNCH' INCLUDE lOADIOFSUMSGO)'
PUNCH' INCLUDE lOADIDFSUSRCOI'
PUNCH' I NClUDE lOAD I OF SUAMBO I'
PUNCH' ENTRY DFSUACBO'
PUNCH' NAME OFSUACBOIR)
AC6116 UTILITY'
PUNCH' INCLUDE lOADIDFSl6lMO) ,
PUNCH' NAME DFSlBLMOIR)
BLOCK BUILDER MSG ROUTER '
PUNCH' ~NClUDE lOADIDFSURUlOI'
PUNCH' I NClUDE LOAD I OF SADS 10 I '
PUNCH' INCLUDE LOADIDFSRUlMOI'
PUNCH' INCLUDE SYSOBJIDFSVCOOOI"
PUNCH' NAME DFSURUlO IRI
HI SAM REORG UNLOAD'
PUNCH' INCLUDE lOADIDFSURRlOI'

15

10/10/72

IMS
LOC

~YSTEM

OBJECT COOl:

DEFINITION.
ADDRI ADDR2

V2
STHT

lUC

~YSTt,'1

llIlJEl.T "uIJE

AIlUkl

STMT

SUUKCE

"tl5+
od6+
bd7+
utHl+
+

0<;0+
6'il+
b'i2+

6'ij+
094+
o'i7+
,,96+
6'-)7 +
,,'Hl+
1>'1'1+

70el+
7e11+
702+
7oj"J+

7Ll4+

PAGE
fOl0CT71

PUNCH
PUNCH
PUNCH
PUNCH

INCLUDE LOADIOfSfLOrOl'
INCLUOE LOAOIDFSFLMTO)'
INCLUDE SYSOBJeDfSVCDOO)'
ENTRY DFSfLOTO'

'
'
'
'

RJ

CLOO

14NOV72

~TATEMENT

PUNCH
PUNCH
PUNCH
PuNCH
PUNCH
PUN(.H
PUNCH
PUr-.CH
PUNCH
PUNCH
PUr-.CH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH
PUNCH

,
,
,
,
,
,
,
'
'

,
,
,
,
',
'

'
'

PAGE
FOlOC T71

NAME DFSflUTO(RI
INCLUDE LOAO(OFSISTIOI'
NAME OFSISTlO(K)
INCLUOI: LtJADIOFSIST20l'
NAME DFSIST20lKl
INClUOE LOADIOfSIST30l'
NAMt; OFSISnO(R)
I"'CLUUE LUADWFSIST40)'
NA:~L DI'SIST40(RI
INCLUUE LUADIUFSDDLSOI'
INCLUUE LuAD(OFSLlOOOI'
ENTR'r eLi TCBl'
"'AMI: OfSODLTOIKI
INCLUDE LUADIOfS8ACKOI'
INCLUlH: LOAOIDFSRUISCO)'
Ir-.ClUUE LOAD(DfSLlOOOI'
Ii'FLAG3 OS
125+C.LB31NP EQU
126+CL83CSUB EQU
127+CLB3DOPN EQU
12H+CLB3STOP EQU
l29+CU.BCBUF E!.JU
130+CLB3ICMD EeJU
EQU
131+*
. EQU
132+*
134+CL8CNTPT

as

C
X' 80'
X'40'
. X' 20 t
X' 10'
X' OB •
X' 1)/+ '
X' 02 '

NO INPUT ALLOWED
1 - NO OUTPUT ALLOWED
2 - DU NOT QUEUE ON THIS LINE
3 - RESERVEU fOR FUTURE USE
4 - [OU: LI NE
5 - INPUT IN CONTROL
6 - UUTPUT IN CONTKOL
7 - AUTOPOL L

C •

1 - COMMAND ENTERED AS NON-FIRST SEGMENT
LINE IS OPENED DYNAMICALLY
3 - LINE HAS BEEN IDLED FOR SHUTDOWN
X f 10 •
Xt 08' 4 - CONDENSED BUFFER ALLOCATED
X' 04' 5 - INTERNAL COr-H-1ANO IN PROGRESS
6 - RESERVED FOR FUTURE USE
X'OZ' •
7 - RESERVED FUR FUTURE USE
X'Ol' •
2 -

X' 2) •

F • POINTER TO CNT FOR KESPUNSE

139+CLBCSIO

ac •

145+CLBCSSMB EQU

F •

USED FOR TEMPORARY STORAGE
USED FOR TEMPORARY STORAGE

F •

FIND OEST FIELD

o

X'ZO' •

1
2
3

X'OS' •
X'04'

4
5

X'Q2'.
X'Ol'.

6

146+*

147+CL8CSOST EQU

148+CLBCSACT EQU
l50+CLBPOLAO OS
151+CLtlCTBPT os
152+CLBCRCTB os
153+CLBCNTQ8 OS
154+CLBSMBPT OS
155+CLbCTBPS OS
156+CLBDPOLC os

os
os
os

7

5.8

$

OL/i USE
RESTART IN PROGRESS
CVB FOUND AS DESTINATION
ALWAYS a FOR CLB
CNT/SMB NUT fOUND
J
CNT FUUND
1 5MB FOU NO
FNODST ENTERED (CLBCNTP POINTS TO DESTt
ACTIVE POLLING LIST

POLLING LIST ADDRESS
FIRST CTS ON LINE
CURRENT CTa
ZF • QCb FOR CNTS FOR OUTPUT
F • POINTER TO BLOCK FOR QUEUEING CNT/SMB/CVR

F •
H •
H •

H •

C
C •

eLB DEVICE CONTROL UYTE (USED BY DOM)
INPUT BUFFER POINTER
158+CLBINBUF
F •
159+CLBOUTBF
F •
OUTPUT BUFFER POINTER
160+*
161+* IF ($) FALLS IN COLUMN 71 THIS FIELD WILL BE SAVED IN A COB IF REQ

157+CL80CTl

$

•

140+*
l l , 1 +*

143+*
144+CLBCSFND EQU

o - O=OUTPUT NEXT, l=INpUT NEXT ON THIS LINE

X'BO' •
X' 40 •

F

142+CL8CSCVB tQU

3/27/72

o-

X'OI'

135+CLBTEMPl OS
136+CLBTEMP4 OS
1~7+CLBTEr.1P5 os
OS

flS0CT70

$

x

sn·H

SUURCE STATEMENT

F150CT70

109+*****************~*****************************************************

20C+-*
CTS - COMMUNICATION TERMINAL BLGCKS DSECT.
201+*
202+*
Zn 3+***********************************************************************
2n4+CTB
OSECT
20'5+CnHVPE OS
CTT NUMBER
C •
206+CTBLINE OS
LINE NUMBER
C •
207+CrtHERM OS
T ER {~ I N A L A 00 RES S
3C •
209+CfHFLAGl
LIC+CTBICUNV
211+CTbU-1AST
212+CfBISUBP
2.1:1+(TB IDI AL
214+CTEHSIGN
215t-CT£HHELli
216+(;TBIPCNl
217+CfBlP5MB

OS
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU

2l'1+CTBFLAG2
22:)+CTBZNOIN
221+CTB2NOOU
222+CTt)2NOQU
223+CTB2LOCK
224+CT82TEST
225+CTB2EXCL
226+CTB2INUP
227+Cff32EOIT

OS
EQU
EQU
ECJU
[QU
lQU
EQU

229+CTBFLAG3
230+(TB3READ
2Jl+CTB3QSYS
232+CfB3LOOP
233+CTR3CHE
234+-CTB3QEI{R
235+CTB3QHSG
236+CTB3LAST
237+CTB3SEGl

OS
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU

239+CTBFLAG4
240+-Cfd4CNCL
241+CT340UTP
2't2+*
243+*
245+*
246+*
247+*

OS
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU

249+CTBAcrL
2'50+creAINP
251+CTBAEOM
252+CTBASHUl
253+CTBA1NC

OS
EQU
EQU
EQU
EQU

244:1-*

EQU

EQU

· ·
···
··
X'Ol' ·
·
C
· ·
X'ZO' ·
11 • ·
·
X'04' ·
X'OZ' ·
·
X' 01 • ·
C
·
X' 40 ·
X' 20 • ·
X' 10 • ·
·
X'04 ·
X'02' ·
··
C
· ·
X'80
X
X' 20 • ·
·
x·os' ·
X' 04 ·
·
·
X'Ol'
·
·' ·
X' 80
X'20' ·
X' 10 ' ·
·
C
X'8]'
X' 40 •
X' 21) ,
X' 10'

0 TH IS CTS

IN CONVERSATION

1 MASTER TERNINAL

2 SLJ BPOOL CTS

X'OU'
X' '')4 •
X'02 1

3 DIAL CTB IS PHYSICALLY eOi\lNF.CTED
4 01 AL eTM IS LOGICALLY CONN EC TED
5 CUNVERSAT IUN IN PROGHESS HA:> HELD
6 PRESE T (NT
7 PRE SET 5MB

X' HO •

0 NO

X'40'

X'

X' 08 '

X'80'
t

X'1S'

1

X'Ol'

1
140·

X' 10 •
I

X' 02

t

C

X' 40'

INPUT
1 NO OUTPUT
2 NO QUE LJE 1 NG
3 LOCKED
It TE: ST t-10[lE
5 EXCLUSIVE MODE
6 INOPERABLE
7 US EI{ OUTPUT EDIT REQUES TED

0

INPUT ONLY UEVICE

1 QUEUE ALL S VSTEM MESSAGES
2 LOOP TEST PENOING
3 LINE 01 SCON NEC T REQUESTED
4 ERROR ON GE:: T NEXT FOR OUTPUT
5 (.!U cUE CAUSE Of ERROl{ WITH SYSMSG
6 LAST CTB ON THIS LINE
l 1: 1 RSf SEGIY1E NT

UEQUEUE ME SSAGE IN PROC E5S REQUESTED
OUT PUT ONLY TERMINAL
2 NOT USED
3 NUT USED
4 NOT USED
5 NOT USED
6
NOT USED
7 NOT USED
0

fLAGS TO BE USED BV ANAL YlER
Q=OUTPUT NEXT t 1= INPUT NEXT
l=END OF OUTPUT MSG
2 l=SVSTEM SHUTOOWN
3
l=INCORE S YS TEM MESSAGE

0
1

5.9

3/27/72

STMT

SOURCE STATEMENT

2 54+CTBAMUL T EQU
255+CTBAERR EQU

X' 08'
X' 04'

257+CTBOCTL OS
258+CTBOCTL2 OS

C •
C •

260+CTBFEAT
261+CTBFSYNl
262 +CTBF SYN2
263+CTBFPAGE
264+CTBFNAPD

OS
EQU
EQU
EQU
EQU

C •
X'08'
X'04'
X'02'
X'Ol'

266+CTBCOMP
267+CTBCINA
268+CTBCIIP
269+CTBC2NA
270+CTBC2IP
271+CTGC3NA
272+CTBC3IP
273+CTBC'tNA
274+CTBC41P

OS
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU

c

276+CfSINCT
217+CTOOUTCT
278+CTBCPMP
279+CTBCNTP
280+CTBPREST
281+CT8COB
2H2+CTHCCH
Zf33+CTBCXB
2H4+CTbPGNO

OS
OS
OS
OS
OS
OS
OS
OS
'OS

5.10

.

F150CT70
•

•

4
5

REJECT IF NOT MULTIPLE SEGMENT MESSAGE
ERROR FOUND ON LAST SEGMENT PASSED
FLAGS USED BY DO ROUTINES
FLAGS USED BY DO ROUTINES

FEATURES FLAGS
ASYNCHRONOUS DEVICE, SYNC FLAG 1
ASYNCHRONOUS DEVICE, SYNC FLAG 2
PAGING IN PROCESS
AUTOMATIC PAGE DELETION NOT REQUESTED

COMPONENTS
COMPONENT 1 IS
COMPUNENT 1 IS
COtJPONENT 2 IS
CO tJPONE NT 2 IS
COt-'PONENT 3 IS
X' 04 t COt-'PONENT 3 IS
X'OZ' COfJPONENT 4 IS
X' 01 ' CO/liPONENT 4 IS
X'SO'
XI 40'
X' 20 I
X' 10.'
X' 08 t

H •

H •
H •

H •
H •
H •
II •

H •
H •

TWO BI TS FOR EACH
NOT ATTACHED
INOPERABLE
NOT ATTACHED
INOPERABLE
NOT ATTACHED
I NOPf.:RABLE
NOT ATTACHED
INOPERABLE

3088

.3088
3088
3088
3088
3088
3088
3088

INPUT MSG COUNT
OUT PUT MSG C nUNT
PASSWORD MATRIX POINTER
LOGICAL TERMINAL POINTER
PRESET DESTINATIUN UFFSET
OFF SET TO COMHUNICATION 'OVl:RFLOW BLOCK
OFFSET TO CONVERSATIONAL CONTROL BLOCK
COMMUNICATION EXTENT BLOCK POINTER
CURRENT PAGE BEING VIEWED

3/27/72

A facility similar to the transaction code (input) edit is provided
for message switching.
The optionally supplied, user-written routine,
whose CSECT and load module name must be DFSCNTEO, is included in the
user's system at IMS/360 system definition time.
Only one message
switching edit routine may be specified for an IMS/360 online control
program. This routine is specified for inclusion with the online
control program during sy~tem definition. The interface between the
IMS/360 control program and the user-supplied message switching edit
routine is the same as previously defined for the transaction code
edit routine.
EXAMPLE OF MESSAGE SWITCHING EDIT
The user-supplied edit routine might be used to identify, in the
text of the output message to the output terminal, the logical terminal
name and message number from which the message was entered.
Assume the following message being entered from a logical terminal
named 'XSYSI' and is input message number one.
ABC SEND ALL XYZ MSGS TO THIS TERMINAL
The message as received at the output terminal assQciated with
logical terminal name ABC has the input logical terminal name and input
message number appended to it by the user's edit routine.
ABC SEND ALL XYZ MSGS TO THIS TERMINAL XSYSI
In this example, the logical terminal input name is used.
This
name exists within the IMS/360 control block for the input logical
terminal, the Communication Name Table (CNT).
The CNT is addressed
by a field in the Communication Line Block called CLBCNTPT. The field
in the CNT containing the logical terminal name is called CNTNAME.
The reader is referred to the IMS/360 control blocks in Volume I of
the IM~Ld60 ~Y§ig~ tl~nY~l (LY20-0629).
Upon entry to the message switching edit routine, the register
interface is identical to that for transaction code input edit routines.
The following is an example of the message switching edit.

5.11

PAGE:
STMT
1

2
3
4

5
6
1

SOURCE STATEMENT

2/13/73

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

*

*

USER EDIT ROUTINE FOR MESSAGE SWITCHING

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

*

-*

THE LOGICAL TERMINAL NAME OF THE INPUTTING TERMINAL AND
THE MESSAGE NUMBER ARE ADDED TO THE END OF THE MESSAGE

**

*

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

9 DFSCNTEO
10
11+
12+

13

14
15

16
17

CSECT
OS
STN
LR
USING
USING
USING
USING
USING

( 14,12)
OH
14 t 12 ~ 12 ( 13) SAVE REGISTERS
R12,R15
ESTABLISH
DFSCNTEO,R12
ADDRESSABILITY
CNT,R6
CTB,R1
IECTDECB,R9
eLB POINTER
SCD,Rll

SR

R15,R15

SAVE

18
19

*

22

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

20

*

23

24

l

29

SR
IC
SLL
IC
AR

31

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

25

26
21
28

32
33

FOIMAY12

*

LH

*
*

CLEAR RETURN CODE

fINO THE END OF THE PRE-EDITED MESSAGE
R5,DECAREA
R4,R4
R4,O(,R5)
R4,8
R4,1 (, RS)

GET LOGICAL TERMINAL NAME, AND ADO IT TO MSG

34

A

R6,CTBCNTP
R6,SCOCNT

35

MVC

1 (5 ,R5) ,tNTNAME

31
38
39
40

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

*

41
42
43

01

MVC
MVI

44
46
47

48
49
50

51
52

5.12

lH
CVD
UNPK

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

*

.SR

lA
STC
SRL
STC

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

POINT TO MESSAGE
CLEAR WORK REG
LOAD 0 OF 'OLI
SHIFT TO MAKE ROOM FOR 'L'
INSE:RT 'L'
R5= END OF MESSAGE

R5,R4

OFFSET TO tNT
R6= AOOR OF l~PUTTING CNT
INSERT 5 CHARS OF NAME

NOW FINO AND INSERT MESSAGE NUMBER

CHANGE

'Ol'

R5,R4
R4,9( ,R4)
R4, I( ,R5)

TO REfLECT NEW MSG LENGTH

REPLACE '0'

*

*

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

R5= START OF MSG (OL)
NEW LENGTH IS 9 MORE
REPLACE tLt

R4,8
R4.0(,R5)

*********

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

R3,CTBINCT
lOAD MSG NUMBER
R3,MSGrtUMP
MSGNUM(4l,MSGNUHP+4(4) * CONVERT TO
MSGNUM+3,240
* CHARACTERS
7(3,RS),MSGNUM+1
SLIDE NUMBER NEXT TO NAME
6(RS),C' •
BLANK SEPARATOR

1

*

PAGE
SOURCE STATEMENT

SIMT

54

55
56
57

58
59+

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

*
*

60+

L

F01MAY72

ROUTINE
R14,12(,R13)

RETURN

*

R13 STILL GOOD, R15=RC

RETURN (0,12)
lM
0,12,20(13)
BR
14 RETURN

************ CONSTANTS
64 MSGNUMP OS
0
.65 MSGNUM
OS
F
66 *
67
lTORG
62
63

2/13/73

***************************************
FEU:H RETURN ADDRESS

*

RESTORE THE REGISTERS

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

*

69
REQUATE
70+***********************************************************************

71+*
12+*

*

*
*

REGISTER EQUATES

73+*
74+***********************************************************************
76+RO
77+R1
78+R2
79+R3
80+R4
81+R5

EQU
EQU
EQU
EQU
EQU

Bi+R6

EQU
EQU

83+R7
84+R8
85+R9
86+RIO
87+Rl1
88+R12
89+R 13
90+R 14
91+R15

EaU

EQU
EQU
EQU

0
1
2

3
4
5

6
7
8
9

EQU

10
11
12
13
14

EQU

15

EgU

EQU
EQU

5. 13

2

PAGE
STMT

SOURCE STATEMENT

FOIMAY72

3

2/13/73

93
ICLI CLBBASE=O,CNTBASE=O,CTBBASE=O
94+***********************************************************************
95+*
eLB - COMMUNICATION LINE BLOCKS .DSECT. DSECT NAME IS IECTDECB.
96+*
97+*
98+***********************************************************************
99+1ECTOEC5 OSECT OEeB DUMMY SECTION
100 +*'
-----------------------------101+*
+
+
102+*
0 +
STANDARD EVENT CONTROL BLOCK
+
103+*
+
+
104+*
+--------------------------+
105+*
+
+
+
106+*
4
+ OPERATION TYPE
+
AREA LFNGTH
+
107+*
+
+
+
108+*
+----------------------------------------+
109+*
+ ON-LINE +
+
110+*
8 +TERMINAL +
ADDRESS OF DeB
+
111+*
+ TEST
+
+
112+*
+--------------------------------------+
113+*
+
+
+
ADDRESS OF AREA
+
114+*
12 +RESERVEO +
115+*
+
+
+
116+*
+-------------------------------~-----+
111+*
+
+
+
118+*
16 +
SENSE BYTES
+
RESIDUAL COUNT
+
+
1
&
2
+
+
119+*
120+*
+---------------------------------------+
121+*
+
+
+
20 + COMMAND
ADDRESS OF TERMINAL LIST
+
122+*
CODE +
+
123+*
+
124+*
+-----------------------------+
·125+*
+
+ RELATIVE+
+
+
24 + STATUS +
LINE + ADDRESS + VRC/LRC +
126+*
127+*
+ FLAGS ~ NUMBER + RESPONSE+ RESPONSE +
128+*
+----------------------------+
129+*
+
+
+
+
130+*
28 + TP-OP +, ERROR +
CSW STATUS
+
CODE + STATUS +
+
131+*
+
132+*
133+*
+
+
+
134+*
32 +RESERVEO +
ADDRESS OF CURRENT
+
ADDRESSING ENTRY
+
135+*
+
+
136+*
+----------------------------+
137+*
+
+
+
138+*
36
+RESERVED +
ADDRESS OF CURRENT
+
POLLING ENTRY
+
139+*
+
+
140+*
+---------------------------------------+
141+*
+
+
+
+
40 +RESERVED +RESERVED + WRITE AREA LENGTH +
142+*
~43+*
+
+
+
+
144+*
+------------------------------------~--+
145+*
+
+
+
146+*
44 +RESERVEO +
ADDRESS OF WRITE AREA
+
+
+
+
141+*

+---------------------------------------+

STMT
148+*

5.14

SOURC E STATEMENT

------------------------------------------

F01HAY72

2/13/73

PAGE
STMT

FOIHAY12

SOURCE STATEMENT

150+DECSDECB OS

IF STATUS FLAG + ADDRES5 OF THE TCB

152+DECTYPE

IH OPERATION TYPE

OS

154+0ECLNGTH OS

IH AREA LENGTH

l56+0ECONL TT OS
157+DECDCBAO OS

OCLI RESERVED FOR ON-LINE TERMINAL TEST
IF ADDRESS OF DCB

159+DECAREA

IF ADDRESS OF AREA

OS

161+0ECSENSO OS

1C 1ST SENSE BYTE

I63+0ECSENSI OS

IC 2ND SENSE BYTE

165 +OECCOUNT OS

1H RESIDUAL COUNT

167+DECCHCOO OS
168+DECENTRY OS

OCLI COMMAND CODE
IF ADDRESS OF TERMINAL LIST

171+0ECFLAGS OS

IC STATUS FLAGS

I73+DECRLN

IC RELATIVE LINE NUMBER

OS

175+DECRESPN OS

IH RESPONSE FIELDS

177 +OEC IPCOO OS

IC TP-OP CODE

179+DECERRST OS

IC·ERROR STATUS

I81+0ECCSWST OS

IH CSW STATUS

183+0ECADRPT OS

IF ADDRESS OF CURRENT ADDRESSING ENTRY

185+DECPOLPT OS

IF ADDRESS OF CURRENT POLLING ENTRY

187+

OS

2C RESERVED

189+0ECWLNG

OS

1H WRITE AREA LENGTH

19I+OECWAREA OS

IF ADDRESS OF WRITE AREA

193+CLBDECB EQU
194+CLBRCNTR OS

DECSOECB
lC RETRY COUNTER

196+CLBFLAGl
197+CLSICOB
I98+CLBlTEST
199+CLBIIBUF
200+CL8l0BUF

DS

C •

EQU

x'ao' •

EQU
EQU
EQU

201+CLBITEMQ EQU
202+*
EQU

203+ClBIRESP EQU
204+*
EQU

X'40' •
X' 20' •
X '10' •
X'08' •

X'04' •
X'OZ' •

X'Ol' •

&IT USAGE

o - LOB REQUIRED FOR CTS'S ON THIS lINE
1 - TEST RECYCLE REQUEST

2 - INPUT SUFFER ALLOCATED
3 - OUTPUT BUFFER ALLOCATED
4 - USE TEMPORARY QUEUE
5 - RESERVED FOR FUTURE USE
6 - RESPONSE WAITING
7 - RESERVED FOR FUTURE USE

5.15

5

2/13113

PAGE
STMT

FOIMAY72

SOURCE STATEMENT

206+CLBFLAG2
207+ClB2NOIN
20B+CLB2NOOU
209+CLB2NOQU
210+ClB2RSS
211+ClB2IDlE
212+ClB2INP
213+CLB20UTP
214+CLB2AlfTO

OS
FQU
EQU
EQU
EQU
EQU

C
X' 80' •

EQU

X'04' •

EQU
EQU

X'02' •

216+CLBFLAG3
217+ClB3INP .
218+CLB3CS02
219+CLB300PN
220+ClB3STOP
22l+ClB3CBUF
222.+CLB3ICMO
223+CLB3CL40
224+*

OS

c •

EOU

X'SO'.
X·40'.

226+CLBCIB
227+CLB TEMP 1
228+CLBTEMP4
229+ClBTEMP5

OS
OS
OS
OS

231 +C LBCS 10
232+*
233+*
234+CLBCSCVB
235+*
236+CLBCSFND
237+CLBCSSMB
238+*
239+ClBCSOST
240+CLBCSACT

OS

242+CLBPOlAO
243+CLBCTB?T
244+CLBCRC TB
245+ClBCNTQB
246+ClBCTBPS
247+ClBDPOLC
248+ClBOCTl
249+CLBINBUF
250+CLBOUTBF
251+*

OS
OS

5.16

EQU

EQU
EQU
EeU
EQU

EQU
EQU

EQU
EQU

EQU

EQU
EQU

OS

DS
OS
OS
OS
OS
OS

o - NO

INPUT ALLOWED
NO OUTPUT ALLOWED
00 NOT QUEUE ON THIS LINE
CONCENTRATOR LINE
lOLE LINE
INPUT IN CONTROL
b - OUTPUT IN CONTROL
7 - AUTOPOLL

1
2
4
4
5

X'40'
X' 20' •

X'IO' •
X' 08' •

X'Ol' •

-

0 - O=QUTPUT NEXT, l=INPUT NEXT ON THIS LINE
1 - COMMAND ENTERED AS NON-FIRST SEGMENT
X'ZO·.
2 - LINE IS OPENED DYNAMICALLY
X'lO·.
3 - LINE HAS BEEN IDLED FOR SHUTDOWN
X'OS' 4 - CONDENSED BUFFER ALLOCATED
X'04' 5 - INTERNAL COMMAND IN PROGRESS
X'02'.
6 - STATUS CHANGED BY Cl40
X'OI'.
. 7 - RESERVED FOR FUTURE USE
F •
F _•
F

POINTER TO CURRENT C. 18
USED FOR TEMPORARY STORAGE
USED FOR TEMPORARY STORAGE

F •

OC • FIND DEST FIELD
o
DL/I USE
RESTART IN PROGRESS
1
eVB FOUND AS DESTINATION
X' 20'. 2
3
ALWAYS 0 FOR CLB
CNT/SMB NOT FOUND
X' 08' • 4
X'04'
5=0 CNT FOUND
1 5MB FOUND
FNDDST ENTERED (CLBeNTP POINTS TO nEST)
X '02' •
6
ACTIVE POLLING lIST
X'OI' • 7

=

F.

POLLING LIST ADDRESS
CTS ON LINE
CURRENT CTe
2F • QCB FOR CNTS FOR OUTPUT
H •

H.
H.

FIRST

C

C •
F •
F •

Clb DEVICE CONTROL BYTE (USED BY DOM)
INPUT BUFFER POINTER
OUTPUT BUFFER POINTER

6

2/13/73

PAGE
STMT

FOIMAY72

SOURCE STATEMENT

2,3+***********************************************************************
254+*
255+*
CT6 - COMMUNICATION TERMINAL BLOCKS OSEeT.
256+*
257+***********************************************************************
258+C TB
OSEC T
259+CTBTYPE OS
c •
CTT NUMHER
260+CTBLINE: OS
C •
LINE NUMBER
261+CTBTERM OS
3C •
TERMINAL ADDRESS
263+CTBFLAGl
264+CTBICONV
265+CT&lMAST
266+C TB1SUBP
267+CTBlDIAL
268+CTBlSIGN
269+CTB1HELO
270+CTB1PCNT
27l+CTB1PSMB

c •

OS
EQU
EQU
EQU

X '80' •
X'40' •

EQU

X'lO'

EQU
EQU
EQU
EQU

X'04' •
X'02' •

X'ZO' •
X'OB'

•

X'Ol' •

273+CTBFLAG2
274+CTB2NOIN
275+CTB2NOOU
276+C TB2NOQU
277+CTB2l0CK
278+CTB2TEST
279+CTB2EXCL
280+C TB2INO?
281+CTB2EDIT

OS
EQU
EQU

C •

EQU

X'20' •

EQU

X'lO' •

EQU

X'OS'
X'04'
X '02'
X'OI'

283+C TBFLAG3
284+CTB3READ
285+CT63QSYS
2B6+CT83LOOP
287+CTB3CHE
288+CTB3QERR
289+CTS3QMSG
290+CTB3LAST
291+C T83SEGl

OS
EQU
EQU
EQU
EQU
EQU
eQU
EQU
EQU

293+CTBFLAG4
294+CTB4CNCL
295+CTB40UTP
296+CTB4TRAC
297+*
298+*
299+*
300+*

OS
EQU
EQU
EQU
EQU
EQU

301+*
303+CTBACTL

304+CTBAINP
305+CTBAEOM
306+CTBASHUT
307+CTSAINC

EQU
EQU
EQU

EQU

EQU
EQU
OS
eQU
EQU
EQU
EQU

X' 80' •
X'40' •

•
•
•
•

C •
X'BO' •
X'40' •

X'20' •
X'IO' •
X'OS' •
X'04' •

X'OZ' •
X'Ol' •

c •
X'80' •

X1 40' •
X' 20'
X '10 I
X '08'
X' 04'
X' 02'

•
•

•

•
•
X'OI' •

C •

o THIS CTa IN CONVtRSATIUN
1 MASTER TERMINAL
2 SUBPOOL CTS
3 DIAL CTS IS PHYSICAllY CONNEtTED
4 DIAL era IS LOGICALLY CONNECTED
5 CONVERSATION IN PROGRESS WAS HELD
b PRESET eNT
7 PRESET 5MB

o NO INPUT
1 NO OUTPUT
2 NO QUEUEING

3 l(;CKED
4 TES] MODE
5 EXCLUSIVE MODE
6 INOPERA6lE
7 USER OUTPUT EDIT REQUESTED

o

INPUT UNLY DEVICE

1 QUEUE ALL SYSTEM MESSAGES

7 LOOP TEST PENDING
3 LINE DISCONNECT REQUESTED

4 ERROR ON GET NEXT FOR OUTPUT
5 QUEUE CAUSE OF ERROR WITH SYSMSG
6 LAST CTB ON THIS LINE
7 FIRST SEGMENT

o

DEQUEUE MESSAGE IN PROCESS REQUESTED
OUTPUT ONLY TERMINAL
2 TRACE REQUESTED
3
NOT USED
4 NOT USED
5
NOT USED
6 NOT USEO
7 NOT USED
FLAGS TO BE USED BY ANALYZER
O=OUTPUT NEXT, 1= INPUT NEXT
1
I=ENO OF OUTPUT MSG
2
l=SYSTEM SHUTDOWN
3 l=INCORE SYSTEM MESSAGE

x'ao' • o

X'40' _
X'20' •
X'lO' •

5. 17

7

2/13/73

PAGE
STM'I

SOURCE STATEMENT

FOIMAY72

··
·

308+CTBAMULT EQU
309+CTBAERR EQU
310+CTBASAVL Eeu

X'08'
X'04'
X'02'

312+CTBOCTL OS
313+CTBOCTL2 OS

C
C

315+CTBFEA T
316+CTBFSYNI
317+CTBFSYN2
318+CTBFPAGE
319+CTBFNAPD

OS

C

EQU
EQU

X'08'
X'04'
X'02 '
X'OI'

FEATURES FLAGS
4 ASYNCHRONOUS DEVICE, SYNC FLAG 1
5 ASYNCHRONOUS DEVICE, SYNC FLAG 2
6 PAGING IN PROCESS
7 AUTOMATIC PAGE DELETION NOT' REQUESTED

321+CTBCOMP
322+CTBCINA
323+C18CIIP
324+C T8C2 NA
325'+CT8C2IP
326+CT8C3NA
327+CTBC3IP
328+CTBC4NA
329+CTBC4IP

OS

C •
X'80'
X'40'
X'20'
X'lO'
X'OS'
X'04'
X'02'
X'OI'

COMPONENTS TWO 8ITS FOR EACH
o COMPONENT 1 IS NOT ATTACHED
1 COMPONENT 1 IS INOPERABLE
2 COMPONENT 2 IS NOT ATTACHED
3 COMPONENT 2 IS INOPERABLE
4 COMPONENT 3 IS NOT ATTACHED
5 COMPONENT 3 IS INOPERABLE
6 COMPONENT 4 IS NCT ATTACHED
7 COMPONENT 4 IS INOPERABLE

331+CTBINCT
332+CT60UTCT
333+CTBCPMP
334+CTBCNTP
335+CTBPRT
336+CT8PREST
337+CT8COB
338+CT8CC8
339+CTBCRB
340+C TBCHA IN
341+CTBCXb
342+CTBCIB
343+CTBPGNO

OS
OS
OS
OS
OS
OS
OS
OS
DS
OS
DS
OS
OS

5.18

EQU
EQU
E'QU

EQU
EQU
EQU

E'QU
EQU

EQU
EQU

··

·
H •
OH ·•

H

H •
H •
H •
OH •
OH

.
OH ·
H
_•

H

REJECT IF NOT MULTIPLE SEGMENT MESSAGE
ERROR FOUND ON LAST SEGMENT PASSED
STATION AVAILABLE
FLAGS USED BY 00 ROUTINES
FLAGS USED BY DO ROUTINES

· ·
··

H
H •

4
5
6

···
··
··
·

INPUT MSG COUNT
OUTPUT MSG COUNT
PASSWORD MATRIX POINTER
LOGICAL TERMINAL POINTER
tURRENT PRINT POINTER
PRESET DESTINATION OFFSET
OFFSET TO COMMUNICATION OVERFLOW BLOCK
OFFSET TO CONVERSATIONAL CONTROL BLOCK
COMMUNICATION RESTART BLOCK POINTER
COMMUNICATION EXTENT BLOCK POINTER
COMMUNICATION INTERFACE BLOCK POINTER
CURRENT PAGE BEING VIEWED

2/13113

PAGE
STMT

FOIMAY72

SOURCE STATEMENT

9

2J 13/73

345+***********************************************************************
346+*
CNT - COMMUNICATION NAME TABLES OSECT.
347+*
348+*
349+***********************************************************************
350+CNT
351+CNTQE
352+CNTQCBOQ
353+CNTQCBEQ

DSECT
2F •
QE FOR CNT Q OFF CLB
DS
OS
A DRRN OF NEXT MESSAGE TO READ
OS
A ORRN OF LAST MESSAGE WRITTEN

355+Ct.JTQFLGl DS

356+*
357+*
358+*
359+*

.fQU

EQU
EQU
EQU
EQU
EQU
EQU

360+*
361+*
362+*

C CNT QUEUE FLAG 1
QUEUE READ IN PROCESS
X'SO'
QUEUE I HAS MESSAGE ENQUEUED-'
X'40'
QUEUE 2 HAS MESSAGE ENQUEUED
X'20'
QUEUE 3 HAS MESSAGE ENQUEUED
X'lO'
QUEUE 4 HAS MESSAGE ENQUEUED
X'OS'
MESSAGE EXISTS IN BALKUP QUEUE
X' 04'
QCBDQ POINTS TO QUEUE BLOCK RECORD
X'OZ'

364+CNTQFLG2 OS
EQU
365+*
366+*
EOU
EQU
367+*
fQU
368+*
EQU
369+*

C CNT QUEUE FLAG 2
THIS DESTINATION IS PERMANENT
X'80'
AVERAGE LENGTH IS AVAILABLE
X'40'
ENQ/DEQ COUNT IS AVAILABLE
X'20'
NAME FIELD EXISTS
X'IO'
DESTINATION TYPE 0 THRU 15
X'OF'

371+CNTOAVGL OS
OS
373+CI'1TNQCT OS
374+CNTNAME DC

H AVERAGE MESSAGE LENGTH FOR DESTINATION
H NUMBER OF MESSAGES DEQUEUEO
H NUMBER OF MESSAGES ENQUEUED
0'0' LOGICAL TERMINAL NAME

376+CNTFLAGl
377+CNTIEDIT
378+CNTIMAST
379+CNTINOQU
380+CNTINOSE

C CNT
X'SO'
X'40'
X'20'
X'lO'
X'OS'
X'04'
X'OZ'
X'OI'

372+CNTOQCT

DS

EQU
EQU
EQU
EQU
381+CNTILOCK EQU
382+CNT1SIGN EQU
383+CNTIQERR EQU
384+CNTICNT EQU

FLAG 1
USER EDIT ROUTINE
MASTER TERMINAL CNT
DO NOT QUEUE ON THIS CNT
no NOT SEND TO THIS eNT
CNT IS LOCKED
SIGN ON SPECIFIED LTERM ONLY
110 ERROR OCCUREO ON QUEUE
ALwAYS ZERO. INOICATES CNT

386+CNTFLAG2 OS
387+CNT2UPP EQU
388+CNT2PAGE EQU
389+CNT2AERR EQU
EQU
390+*
EQU
391+*
EQU
392+*
393+CNT2SUB EQU
394+CNT21NQ EQU

C CNT FLAG 2

396+CNTCTBP
397+CNTCNTP
398+CNTCPMP

H
H
H
C

399+CNTCMPNT

OS
OS
OS
OS

X'80' UPPER CASE TRANSLATION REQUESTED

X'40' PAGED MESSAGE IN PROCESS
X'20' ~YSTEM ERROR MSG PLACED IN Q BY DFSClMRO
RESERVED FOR FUTURE USE
X'lO'
RESERVED FOR FUTURE USE
X'OS'
RESERVED FOR FUTURE USE
X'04'
X'02' SUB POOL tNT
X'OI' INQUIRY ONLY CNT
CT8 POINTER
POINTER TO NEXT tNT ON SAME eTa
PASSWORD MATRIX POINTER
COMPONENT POINTER
PAGE:

STMT
400+

SOURCE STATEMENT
DS

FOIMAY72

CL3 RESERVED FuR FUTURE USE

5.19

10

2113/73

PAGE
'STMT

FOIMAY72

SOURCE STATEMENT

402
IseD SCOBASE=O
403+SCO
DSECT
404+*** * * * * * * * * * * *
* * *
*
* * * * * * * * * * * * ***
405+** *
*
*
*
* * * *
* * * * * * * * *
* * * * * * * * * * **
406+**
**
407+**
IMS SYSTEM CONTENTS DIRECTORY (SCD)
**
408+**
**
409+** * * * *
* * *
* * * * * * * * * * * * * * * * * * * * * **
410+*** * * * * * * * * * * *
* * * * * * * * * * * * * * ***

**

*

*

412+sseDORG
413+sseDSVCI
414+
415+SSCDSVC2
416+
417+SSCDSVC3
418+
419+SSCOSVC4
420+
421+SSCDOCEP
422+sseDOSPS
423+SSCDOSLV
424+SSCDIMSR
425+SSCOIMSL
426+SSCDASPS
427+SSCOASLV
428+sseDOESC
429+
430+SSCDROUT
431+
432+DFSXWAIT
433+DFSXIOBA
434+0FSXOPEN
435+5SCDMCIO
436+
437+

5.20

OS
SVC
fiR

SVC
BR
SR
BR

SVC
BR
De
DC
De
DC
DC
DC
DC
DC
DC
DC
DC
De
DC
DC
DC
DC
DC

**

*

*

**

*

*

*
*

*

*

*

*

*

00 SECONDARY seD ORIGIN
o USER TYPE I SVC NUMBER
14 RETURN ON REGISTER 14
o USER TYPE 2 SVC NUMBER
14 RETURN ON REGISTER 14
15,15 CLEAR REGISTER
14 RETURN ON REGISTER 14
255 USER TYPE 4 SVC NUMBER
14 RETURN ON REGISTER 14
CL2'Z9' OSAM CHANNEL END APPENDAGE SUFFIX
X'lO' 05/360 SYSTEM CONFIGURATION
ALI(18) 05/360 RELEASE LEVEL SPECIFIED
ALI(O) IMS RELEASE NUMBER.
ALICO) IMS MOD LEVEL NUMBER.
X'OO' SYSTEM CONFIGURATION - ACTUAL
ALI CO) 05/360 RELEASE LEVEL - ACTUAL
ALl CO) MCS DESCRIPTOR CODE
AL3(0) RESERVED FOR 05/360 EXPANSION
AL2(0) MCS ROUTING CODES
Al2(0) RESERVED FOR 05/360 EXPANSION
V(OFSIWAIT) IWAIT EP ADDRESS
V(OFSIOS40J OSAM 106 ~CB
ACDFSXOPEN) OSAM OPEN EP
ALl(O) CONSOLE ID - START IMS COMMAND.
AL3(O) RESERVED
FlO' RESERVED

*

*
*

*

11

2/13/73

PAGE
SIMT

F01MAY72

SOURCE SIATEMENT

*

**

**

*

* *

440+* * * * *
*
* * * * *
* * * * *
* * *
441+*
442+*
R E COR 0 E R
LOG
SEC T ION :
~3~

~4+*

**

*

***

446+SCDREENT
447+$CDREDCB
448+SCDREWRK
449+SCDREPlN

DC

DC
DC
DC

*

*

*

*

*

****

*

****

*

* **

*

*

* *

*

***

* ** ** ****

V(DFSFLOIO) RECORDER ENTRY POINT
A(O) DCB AND WKAREA LIST ADDRESS
V(OFSILOGW) WORK AREA FOR THE LOGGER
H'2a' LENGTH OF lOG PREFIX IN BYTES

***

451+*** LOG CONTROL BYTE
452+SCORECTL DC
X'OOOO'
453+$CDLGOPN EQU
X'80' LOG IS OPEN
454+SCDLGTRM EQU
X'40' LOG 5MBTASK DETACHED
456+SCDRELCT
457+SCORECCT
458+SCDRPENT
459+SCDRTECB
460+$CDRTCB
461+SCDRETXR
462+SCDRPFX
463+SCDDBlNT
464+SCDCWRK
465+SCDCWRKl
466+SCOCPNO
467+SCDDATE
468+SCDTIME
469+SCDSEQ
470+SCDRGTYP
471+SCDDBDCB
472+SCDDBLBA
473+SCDDBWRP
474+SCODBLBN
475T$CDLLOGL
476+SCDlLREA

DC
DC
DC
DC

DC
DC
DC

DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC

*

H'SOO' CHECKPOINT LOG FREQUENCY CONTROL REFERENCE
H1 500' CURRENT LOG FREQUE~~Y COUNTER, CPT AT ZERO
AiO) ENTRY TO LOG WRITER
F'O' LOG TASK TERMINATE ECB
ACO) LOG TASK CONTROL BLOCK ADDRESS
A(O) RESERVED
V(OFSIPREF) ENTRY TO LOG PREFIX BUILDER
A(SCDDBLNT) ENTRY TO DATABASE CHANGE LOGGING ROUTINE
FlO' CHECKPOINT/DB LOG WORK AREA ADDRESS
H'512' LENGTH OF CHECKPOINT/DB lOG WORK AREA
H'O' CHECKPOINT NUMBER
F'O' DATE FOR RESTART/DATABASE LOG
F'O' TIME FOR RESTART/DATABASE LOG
H'O'· DATABASE LOG SEQUENCE NUMBER
AL1CO,O) REGION TYPE (O=CTl,3=DLI)
ACO) ADDRESS OF DATABASE LOG DCB
F'O' ADDRESS OF BUFFER AREA
FlO' ADDRESS OF DATA SET WRAPAROUND POINTER
HIO' NUMBER OF BUFFERS
H'O' LENGTH OF lOG AREA
F'O' REAL ADORE~S OF LOG WKAREA

5.21

12

2/13/73

*
*
*
*
*

PAGE
STMT

478+~
479+*

SOURCE STATEMENT

FOIMAY72

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

~

*

5.22

*

****

*

*

*

*

2/13113

* * * * * * * * * **
SEC T ION: *

480+* D A T A L A N G U AGE I I
&
0 SAM
481+*
482+*
** ****
*** * * ** **
* ***
484+SCOOlICT DC
A(SCODLICT) Dl/I ANALYZER ENTRY POINT (DFSOLAOO)
485+SCDDLIMQ DC
ACO) RESERVED
486+SCDISAM DC
ACSCOISAM) ISAM SIMULATOR ENTRY POINT
481+SCDDLARE EQU
22 RETURN POINT FROM ANALYZER ENTRY POINT
488+SCOOlIRE DC
ACSCDDlIRE) RETRIEVE MODULE ENTRY POINT
489+SCDDLIIN OC
ACSCODLIIN) INSERT MODULE ENTRY POINT
A(SCODLIOR) DELETE/REPLACE- MOOUlE ENTRY POINT
490+SCOOLIDR DC
491+SCDDLOAE EQU
18 A~TERNATE ENTRY TO DELETE/REPLACE
492+SCDDlIHS DC
A(SCDDlIHS) HSAM ENTRY POINT
493+SCDDLIPS DC
V(OFSIDIRO) bEGINNING OF PSB DIRECTORY ENTRIES
A(O) EP TP PSB FREE POOL SPACE ROUTINE
494+SCDPS8FR DC
495+SCDDlILN DC
H'40' lENGTH OF PS6 DIRECTORY ENTRY
496+SCDDlINO DC
H'O' NUMBER OF P~B DIRECTORY ENTRIES
497+SCDPSBSW OS
OXL1 0 - FREE psa POOL SPACE
A(O) BEGINNING OF OMS DIRECTORY ENTRIES
498+SCODLIDM DC
499+5CDDLIDL DC
H'36' LENGTH OF EACH OMS DIRECTORY ENTRY
500+SCDDLIDN DC
H'O' NUMBER OF OMS DIRECTORY ENTRIES
VCOFSIPST) START OF PST ·BLOCKS
501+SCDOLIPA DC
502+SCDDLIPL DC
H'448' LENGTH OF EACH PST
503+SCDOLIPN DC
H'O' NUMBER OF PST ENTRIES
A(O)
504+SCOOlIBD DC
505+SCDDMBSW OS
OXLI 0 - RELEASE OMS SPACE, 1 - RESERVED
506+SCOOMBFR DC
A(O) ENTRY TO DMB FREE POOL SPACE ROUTINE
501+SCDPSBMlJ DC
V(DF5IPSBQJ PSS MOST USED QeB ADDRESS
508+SCODPDM DC
V(OfSOPOMO) PSB/OMB POOL MANAGER
509+SCOACBOC DC
V(ACBDCB) ACBLIB DCB POINTER
SlO+SCDP5BPl DC
F'O'
511+SCDDMBPL DC
F'O'
512+SCOLLOGD DC
7f'O'
513+$COOLIMV OC
VCDFSOBLMO) BLOCK MOVER ENTRY POINT
514+$C0055T DC
V(OFSOSSTO) SEGMENT INTENT RESERVATION (SECT
515+SCOOLICL DC
A(SCDDLICL) DATA MANAGEMENT OPEN/CLOSE ENTRY POINT
516+SCDDLI07 DC
ACSCDDlI07) ENTRY TO Ol/I LOAD PROGRAM
511+SCOWQCB DC
VCOFSPWQCB) DL/I MOVER QC8 ADDRESS
518+SC08PARM DC
ACO) Ol/I REGION PARMS(PXPARMS)
519+SCDASE
V(OFSIASEO) APPLICATION SCHEDULER TERMINATOR EP
DC
520+SCDDBFPL OS
A LOCATION OF OL/I BUFFER POOL
521+$CDDDBHO DC
A(O) ENTRY POINT OF DL/I BUFFER HANDLER
522+SCDOHDSO DC
A(O) ENTRY POINT OF GET/FREE SPACE
523+5CDDXMTO DC
A(O) ENTRY POINT OF INDEX MAINTENANCE
524+SCODBCVT DC
ACO) ENTRY POINT OF BYTE BLOCK CONVERSION
525+5C00108S EQU
DFSXIOBA OSAM lOB QCB
526+SCDOOPEN EQU
DFSXOPEN OSA" OPEN EP
527+5CDIWAIT EQU
bFSXWAIT IWAIT ENTRY POINT ADDRESS
52B+5COSAVE DC
V(OFSISAVO) ORIGIN OF SAVE AREA SET
529+SCDFLOS DC
A(0) 5 TAE EXIT ROUTINE ENTRY POINT
530+SCDFLOSR DC
,l\( 0) STAE RETRY ROUTINE ENTRY POINT
531+SCDNAVID OS
OF
532+SCDRLDTE DC
X'OO'

**

*

13

*

***

PAGE
STMT

F01HAY72

SOURCE STATEMENT

533+SCDSYNCN
534+SCOlOWID
535+SCDFIX
536+

DC
DC
DC
DC

2/13/73

AL3(0)

F '·0'

F'O' PGFIX LIST CHAIN POINTER
SF'O' RESERVED FOR SYSTEM EXPANSION

8966
8966

PAGE
STHT

F01MAY72

SOURCE STATEMENT

*

*

*

*

*

*

**

*

538+*
* ** * **** ** * ***
* * ** * * *
539+*
540+*
S TOR AGE
MAN AGE MEN T
SEC T ION :
541+*
542+* *
***** ** ** * * * ** *** *****
A(O) ADDRESS OF START OF SMM CORE AREA
544+SCDSMMlO DC
545+SCDSMML DC
F'O' LENGTH OF STORAGE MANAGEMENT CORE AREA
A(O) ADDRESS OF END OF SMM CORE AREA
546+SCDSMMHI DC
A(O)
547+$CDSMMGC DC
AlO)
548+SCDSMMFC DC
549+$CDSMMCP DC
VCDF-SICRET) ICREAT ENTRY POINT
550+SCDSMMOP DC
VCOFSIOEST) IDES TROY ENTRY POINT
V(DFSIFBUF) IFREEBUF ENTRY POINT
551+SCDSMMFS DC
V(DFSIGBUF) IGETBUF ENTRY POINT
552+SCDSMMGB DC
553+SCDMFBPA DC.
ACO) AODRESS OF FORMAT BUFFER
554+SCDMFBPS DC
A(O) SIZE OF FORMAT BUFFER POOL
555 +SCDFR ENR DC
AL2(O) NUMBER OF FORMAT REQUEST ELEMENTS
556+SCDILMSK DC
X'OOOl' PROGRAM LOAD MASK
557+SCDBFPTR DC
V(DFSFXC20) USED BY DFSXXXXO

**

559+*

560+*
561+*
562+*
563+*

******

* * *

*

565+SCOIDEQ

:0:

DC
DC
OS

**

*

*****

E N Q U E U E ,

566+$COIENQ

561+

*

** * *

14

* * *

*

*-

:0:

*

********

E Q U E U E

0

*

:0:

*

*-

*

*-

****

*-

2/13/73

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

8911

**** *****

**-

S E C T I 0 N :

*-

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

*

V(DFSIIDEO) IDEQ ENTRY POINT
V(DFSIIENO) IENQ ENTRY POINT
2F

5.23

15

PAGE:

·STMT
569+*
570+*

SOURCE STATEMENT

FOIMAY12

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

~71+*
QUE U E
MAN AGE " E N T
SEC T ION :
572+*
573+*
* * * ** *
*
* * *
* ****
575+SCOIRWQE DC
V(DFSQMGRO) IREAO/IWRITE QUEUE ENTRY POINT
576+SCDIQOCB DC
V(DFSIQOCB) ADDRESS OF INPUT OCR DCB
571+SCDS~DCe DC
V(OFSSMDCS) ADDRESS OF IHS2.SHMSG DCB
518+SCDLMOCB DC
V(OFSlMDCB) ADDRESS OF IMS2.LGMSG DCB
519+SCDSPDC B DC
V(DFSICDCB) ADDRESS OF SCRATCH PAD AREA (SPA) DCB
580+SCDQPOOL DC
ACO) POINTER TO QUEUE BLOCK POOL
581+SCOPRLNl DC
H'40' LENGTH OF FULL MESSAGE PREFIX
582+SCDPRLN2 DC
H'16' LENGTH OF CONDENSED MESSAGE PREFIX
583 +SCDQCRSZ DC
H'O' SIZE OF QCR BUFFER
584+SCOMSGSZ DC
H'O' SIZE OF MSG BUFFER
585+SCOQMREB DC
F'O' SAVE AREA PTR TO BUFFER ALLOC FOR REUSE
586+SCDCKCl DC
F'O' COHM FOR INTERNAL CHECKPOINTS
587+SCOQMSRB DC
H'O' RECORDS RESERVED FOR SHUTDOWN/REUSE
588+SCDPRDEF DC
ALl(128) PREFIX DEFINITION BYTE
589+SCDPDBS EQU
X'80' BASIC PREFIX INFORMATION INCLUDED
590+SCOPOFNM EQU
X'40' FORMAT NAME INCLUDED
X '3F'
.
RESERVED
591+*
EQU
592+SCOPRADL DC
ALl(24 yO,O,OyO,O,O,Q) PREFIX OPTIONS LENGTHS
593+
DC
AlI(O) RESERVED

***

5.24

*

*

*

*

**

*****

**

*

*
* **

16

2/13/73

PAGE
STMT
595+*
596+*
597+*
598+*
599+*

F01MAY72

SOURCE STATEMENT

* ***
*

*

*

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

* * *
COM M U N I CAT ION

2/13/73

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

*

SEC TID N :

*

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

601+$CDCTT
602+SCDCTTL
603+SCDC TTN
604+$CDCLB
605+SCDCLBL
606+SCDCLBN
607+SCOCTB
608+SCDCTBL
609+SCDCTBN
610+SCDCIB
611+SCDCIBL
612+SCDCIBN
613+SCDCRB
614+SCDCRBL
615 +SCDCRBN
616 +$CDCXB
617+SCDCXBL
618+$CDCXBN
619+$CDCNT
620+$CDCNTl
621+SCOCNTN
622+$COCOB
62.3 +$CDCDBl
624+SCDCOBN
62S+SCOCVB
626+$COCVBL
b27+SCDCVBN
628+$CDCPT
629+SCOCPTL
630+SCOCPTN
631+SCDCPH
632+$CDCPML
633+SCDCPMN
634+Sc"DC TM
63S+SCDCTML
636+$CDCTMN
637+$COCCB
638+SCOCCBL
639+SCOCCBN
640+SCOCCBND
641+SCDCCBNC
642+$CDCCBOL
643+SCDCCBCL
644+SCDCANOI
645+SCOCANOZ
646 +SCOCAN03
647+SCDCAN04
648+SCOCANOS
649+SCOCAN06

DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC

DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC

V(OFSICTT) COMMUNICATION TRANSLATION TABLE BASE AODR
H'2S' LENGTH OF EACH crT
H'O' NUMBER OF CTTS
V(OFSICl8) COMMUNILATION LINE BLOCK BASE ADDRESS
H'96' LENGTH OF EACH CLB
H'O' NUMBER OF CLBS
V(OFSICTB) COMMUNICATION TERMINAL BLOCK BASE ADDRESS
H'3Z' LENGTH OF EACH CTS
H'O' NUMBER OF CISS
A(O) COMMUNICATION INTERFACE BLOCK BASE ADOR
H'4S' LENGTH OF EACH CI6
H'O' NUMBER OF ('I6S
A(O) COMMUNICATION RESTART BLOCK BASE ADDRESS
H'20' LENGTH OF EACH CRB
H'O' NUMBER OF CRBS
AlO)· COMMUNICATION EXTENT BLOCK BASE ADDRESS
H'20' LENGTH OF EACH CXB
H'O' NUMBER OF exes
V(OFSICNT) COMMUNICATION NAME TABLE BASE ADDRESS
H'44' LENGTH GF EACH CNT
H'O' NUMBER OF CNIS
V(DFSICDB) COMMUNICATION DIRECTORY BLOCK BASE ADDR
H'4' LENGTH OF A COB
H'O' NUMBER OF COSS
V(DFSICVS) COMMUNICATION VERB BLOCK BASE ADDRESS
H'12' LENGTH OF EACH CVB
H'O' NUMBER OF cvas
A(O) COMMUNIC.ATION PRIORITY TABLE BASE ADDRESS
H'O' LENGTH OF EACH CPT
H'O' NUMBER OF LPTS
A(O) COMMUNICATION PRIORITY MATRIX BASE ADDR
H'O' LENGTH OF EACH CPM
H'O' NUMBER OF CPHS
V(DFSICTM) COMMUNICATION TERMINAL MATRIX BASE ADDR
H'O' LENGTH OF EACH CTM
H'O' NUMBER OF CTMS
A(O) CONVERSATIONAL CONTROL BLOCK BASE ADDRESS
H'3Z' (CB LENGTH
H'O' NUMBER OF CCBS
AL2(O) OFFSET TO FIR~T DISK eca
AL2eO) OFFSET TO FIRST INCORE CCB
H'O' MAXIMUM LENGTH OF DISK SPA
H'O' MAXIMUM LENGTH OF INCORE SPA
V(OFSCIOOI) COMMUNICATION ANALYZER ENTRY
V(OFSCI002) COMMUNICATION ANALYZER ENTRY
V(DFSCI003) COMMUNICATION ANALYZER ENTRY
V(OFSCI004) COMMUNICATION ANALYZER ENTRY
V(OFSCIOOS) COMMUNICATION ANALYZER ENTRY
V(OFSCI006) COMMUNICATION ANALYZER ENTRY

5.25

17

PAGE
STMT

SOURCE STATEMENT

650+SCOCAN07 DC
651+SCDCANOB DC
652+SCDCAN09 DC
653+SCOCANlO DC
654+SCOCANII DC
655+SCOCANOC DC
656+SCOCANOD'OC
657+SCDCPCUR DC
658+SCOCPHWM DC
659+SCOFNOST DC
660+SCOMSGRT DC
661+SCDMTRM DC
662+SCDClISO DC
663+SCDTRANS DC
664+SCDCONV DC
665 +SCDCOB
DC
666 +SCDCOBl DC
667+SCDCOBN DC
668+SCOCTCLB DC
669+SCDREPOl DC
670+SCDNTB
DC
671+SCDED'ITC DC
672+SCOEDITS DC
673+SCDINCT DC
614+5CDOUTCT DC
675+SCDCPCTL DC
676+SCDPCPOl EQU
611+SCDPCP02 EQU
678+$COPCP03 EQU
679+SCOCTROl DC
680+SCDCTRLI EQU
681+SCDCTRL2 EQU
682+SCDCTRl3 EQU
683+SCOCTRL4 EQU
684+$CDCTR02 DC
685+$COCTRA EQU
686+SCDCTRF EQU
687+
DC
688+
DC

5.26

FOIMAY72

V(OFSCI007) COMMUNICATION ANALYZER ENTRY fI. 7
V(OFSCIOOS) COMMUNICATION ANALYZER ENTRY # 8
V(OFSCI009) COMMunICATION ANALYZER ENTRY # 9
V(OFSCIOI0) COMMl.INICA TI ON ANALYZER ENTRY #, 10
V(OFSCIOIIJ COMMUNICATION ANALYZER ENTRY # 11
V(OFSCIOCO) COMMUNIC.ATION ANALYZER SERVICE ROUTINE
V(OFSCIODO) COMMUNICATION ANALYZER SERVICE ROUTINE
A(O) FORMAT EOITIOR IIOP CURRENT
ACO) FORMAT EDITIOR IIOP HI WATER MARK
V(OFSICLFO) FIND DESTINATION ROUTINE ENTRY POINT
V(OFSICLRO) MESSAGE ROUTER ROUTINE ENTRY POINT
V(OFSCTBMT) HASTER TERMINAL CTS ADDRESS
VCOFSICLSO) SECURITY ROUTINE ENTRY POINT
V(DFSICLTO) TRANSLATE ROUTINE ENTRY POINT
A(O) CONVERSATION PROCESSOR ENTRY POINT
A(O) COMMUNICATION OVERFLOW BLOCK BASE ADDRESS
H'32' LENGTH OF EACH C08
H'O' NUMBER OF COBS
V(OFSICLB) CONSOLE TYPEWRITER CLB
V(OFSIClXO) "RESET POLL MODULE ENTRY POINT
V(DFSINTBO)
A(O) USER EDIT ROUTINE FOR tNT DESTINATIONS
V(OFSLISTO) USER'EDIT ROUTINES FOR 5MB DESTINATIONS
H'O'
H' 0'

X'OO' CHECKPOINT POST SYNC BITS
X'SO'
X'40'
X'lO'
ALl(O)
X'SO' •

X'40' •
X' 20' •

TRACE BLOCKS LEVEL 1

TRACE BLOCKS lEVEL 2
TRAC E WORK AREAS
TRACE SAVE SETS

X'lO' •
ALICO)
X'SO'.
TRACE ALL POINTS
X'40·.
TRACE DEVICE INFO
ALI CO) RESERVED FOR SYSTEM EXPANSION
F'O' RESERVED FOR SYSIEM EXPANSION

18

2/13/73

PAGE
STMT

SOURCE STATEMENT

**

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * **
0 I SPA T C HER
SEC T ION :
*
*
***********************~ ******

690+*
**
691+*
692+*
693+*
694+* *
**
696+$COEXTWQ DC

**

697+SCOINTWQ DC

698+SCDINISQ
699+SCDTECBR
700+SCDPARM
701+SCDTECB
702+SCDSAVEL
703+SCDSLEV
704+SCDSAVEN
705+SCDSRQE
706+SCOSRQEL
707+SCDSRQEN
70a+SCDWAITQ
709+SCDEXTWl
710+SCDEXTWN

DC
DC
DC
DC
DC
EQU
DC
DC
DC
DC

DC

DC
DC
711+$CDSUBSV DC
112 +SCDeF AC DC

713+$CDCMOO

DC

714+SCDTEST
115+seDTlEV

DC

-/16+$CDRES2
117+

F01MAY72

DC
DC
DC

V(DFSEXTWQ) EXTERNAL WAIT QUEUE ADDRESS
V(DFSINTWQ) INTERNAL WAIT QUEUE ADDRESS
VCDFSINTSQ) INTERNAL SAVE QUEUE ENTRY POINT ADDRESS
V(OFSITERM) TERMINATION ROUTINE ENTERED IF TEes POST
A(O) ADDRESS OF PARM LIST FROM SYSTEM
FlO' IMS TERMINATION Eca POSTED BY CHECKPOINT
H'SOSI LENGTH OF SAVE AREA SETS INCLUDING QE
7 NUMBER OF SAVE AREAS IN A SET
HIO' NUMBER OF SAVE AREA SETS
V(DFSIRQEO) ORIGIN OF RQE LIST
HIS' LENGTH OF EACH RQE
H'O' NUMBER OF R~ES
V(OFSIWATQ) ORIGIN OF WAIT QUEUE
H'4' LENGTH OF EACH ENTRY IN EXT WAIT QUEUE
H'O' NUMBER OF EXTERNAL EVENTS
A(O) ADDRESS OF LAST SUBTASK 1ST lEV SAVE AREA
X'OO' CURRENT FIRST lEVEL FACILITY
X'OO' CURRENT MODULE WITHIN FACILITY
x'ao l TEST MODE CONTROL INDICATOR
X'OO' TEST MODE LEVEL INDICATOR
F'O' PADDING
4F'O' RESERVED FOR SYSTEM EXPANSION

5.27

19

2/13113

PAGE
STMT
719+*
720+*
721+*
722+*
123+*

SOURCE STATEMENT

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

736+SCDMRQEP
737+SCOPRQEP
738+SCDBPRQE
739+SCDEXTSQ

DC
DC

DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC

740+SCDPCBSZ DC
DC

5.28

***** * * ** *

****

* * * * **
A P P l I e A T ION
S C H E 0 U L E R
SEC T ION :
*
*
**** ****** **** *********** * *** ******

*

725+SCDASINT
726+SCDASTER
127+SCDSMBEP
728+SCD·SMBl
729+SCDSMBN
730+SCDSMBDQ
731+SCDSMBNQ
732+SCDCHKXS·
133+SCDTCTEP
734+SCOTCTL
735+SCDTCTN

741+

FOIMAY72

*

*

V(OFSASINT) . APPLICATION SCHEDULER INITIATOR ENTRY
V(OFSASTRM) APPLICATION SCHEDULER TERMINATOR ENTRY
V(OFSlSMB) SYSTeM MESSAGE BLOCKS BASE ADDRESS
H'56 1 LENGTH OF EACH 5MB

H'O' NUMBER OF 5MBS
V(DFSSMBOQ) 5MB DEQUEUE ENTRY POINT ADDRESS
VCOFSSMBEQ) 5MB ENQUEUE ENTRY POINT ADDRESS
A(SCOeHKEB) ADDRE~S OF ECB TO BE POSTED BY DF~lASOO
V(DFSlfeT) TRANSACTION CLASS TABLES BASE ADDRESS
H'80 1 LENGTH OF EACH TeT
H'O' NUMBER OF TCTS
V(OFSIMRQ) ADDRESS OF MESSAGE REQUEST QUEUE
V(DFSIPRQ) ADDRESS OF PARTITION REQUEST QUEUE
V(OFSI8PRQ) ADDRESS OF BATCH PARTITION REQUEST QUEUE
V(DFSEXTSQ) EXTERNAL SAVE QUEUE ENTRY POINT ADDRESS
A(O) MAX SIZE OF PCB AREA IN MSG REGION
3F'O' RESERVED

20

2/13/73

PAGE
STMT

SOURCE STATEMENT

**

*

*

**

***

*

***

* ***

**

*** ***
***

*

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

*
*

SEC T ION :

*

* *

*

*

* ****** * ** *

749+*** CHECKPOINT STATUS BYTE
750+SCDCKCTL DC
x·oo·
DESCRIPTION OF BIT SETTINGS
751+*
752+*
a NOT USED
753+*
1 DATABASE RECOVERY
754+*
2
PURGE REQUEST
3 SYSTEM SHUTDOWN REQUEST
755+*
4 DUMP QUEUE REQUEST
756+*
757+*
5 MASTER TERMINAL CHECKPOINT REQUEST
758+*
6 DATABASE DUMP REQUEST
759+*
7 SYSTEM SCHEDULED CHECKPOINT (lOG)
761+*** RESTART STATUS BYTE
762+$CDRSCTl DC
X'OO'
763+*
764+*
765+*
766+*
767+*
768+*
769+*
770+*
771+*

***
DESCRIPTION OF BIT SETTINGS
a PASSWORD SECURITY REQUESTED
1 QUEUE ONLY RESTART
2 PSB/OMB CHANGED - REBUILD SlOCKS
3 ALLOW COMMANDS EXCEPT RESTART
4 TERMINAL SECURITY REQUESTED
5
EMERGENCY RESTART
6 BUILD QUEUES
7 NORMAL RESTART

***

773+*** COMMON SYSTEM SHUTDOWN STATUS BYTE
774+SCDSTOPl DC
X'OOOO'
775+*
BYTE 1
DESCRIPTION OF BIT SETTINGS - USER
776+*
o STOP INPUT
COMMUNICATIONS
777+*
1 STOP OUTPUT
COMMUNICATIONS
778+*
2 SEND ALL OUTPUT
COMMUNICATIONS
779+*
3
PROCESS ALL MESSAGES
SCHEDULER
READ/WRITE Q
780+*
4 QUEUE'S AVAILABLE
781+*
5
FREE MESSAGE REGIONS
SCHEDULER
782+*
6
TERMINATE ALL REGIONS
SCHEDULER
783+*
7
STOP 5MB INPUT
COMMlJNICATIONS
784+*
785+*
BYTE 2
DESCRIPTION OF BIT SETTINGS - USER
786+*
o PROCESS AT SYSTEM PRIORITY SCHEDULER
787+*
1 DATABASE STOP
CHECKPOINT
2 FORCE EOV ON lOG FILE
CHECKPOINT
788+*
789+*
3
ABEND AT TERMINATION
COMMUNICATIONS
790+*
4 DISCONNECT ALL LINES
COMMUNICATIONS
791+*
5 ALL OUTPUT SENT
COMMUNICATIONS
792+*
6 SysTEM CLOSE DOWN
CHECKPOINT
793+*
7 FINAL ENTRY CONTROL
CHECKPOINT

795+SCDCKOBN OS
796+SCOCKDB DC
797+SCDlOGN OS

2/13/73

F01MAY72

743+* *
*
*
* *
* *
744+*
745+*
C H E C K POI NT/ RES TAR T
746+*
747+*
**
* *
*
*
*

OCL1 # OF ENTERED DATABASE NAMES FOR RECOVERY
AIO) POINTER TO POOL CONTAINING DATABASE NAMES
OCLl COUNT OF RESTART SERIAL NUMBERS

5.29

21

PAGE:

STMT

SOURCE STATEMENT

798+SCOLOG
799+SCDCL I PN
800+$CDCLOPN
801+$CDCPCOI
802+SCDCHKEP
803+SCDRSTEP
a04+SCDCHKEB
805+SCDRSTEB
806+SCODBTBl
801+

DC
DC

DC

DC
DS
DC
DS

DC
DC
DC

FOIMAY72

2/13/73

ACO) POINTER TO POOL CONTAINING SERIAL NUMBERS
H'OOOO' INPUT TERMINAL ACTIVE COUNT
H'OOOO' OUTPUT TERMINAL ACTIVE COUNT
A(O) SCRATCH PAD AREA LOG ROUTINE ENTRY POINT
OF
V(OFSRSTOO) RESTART ROUTINE ENTRY POINT ADDRESS
OF
V(OFSRTECB) RESTART ECB ADDRESS
ACO) RESTART DATABASE NAME TABLE
4F'O'

PAGE
5TMl

809+*

810+*
bl1+*

SOURCE STATEMENT

* *

*

FOIMAY72

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

*

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

S TAR T I S TOP
REG ION
SEC T ION :
812+*
813+*
*
****• * *** ************ ** **
815 +SC[)REGOP DC
A(O) ECa Tti OPEN REGION
816+SCDREGCL DC
ACO) EtB TO CLOSE REGION
817+SCDCMDCT DC
X'OO' # OF START/SlOP REGION COMMANDS ISSUED
HI8+SCDREGST DC
X'OO' ii OF PENDING STOP COMMANO'S
819+SCDREGCr DC
HIOOOO' COUNT uF OPEN REGIONS
820+SCOSRDR DC
A(StOPROC1) ADDRESS OF START READER COMMAND
821+SCD~RMBR DC
A(SCOPROC2) ADD~ESS OF HEHBER FIELD IN START READER
822 +SCDSMf.,BR DC
A(SCDPROC3) ADDRESS OF MSG REG PRoe MEMBER NAME
823+SCDSINIT DC
ACSCOPRO(4) ADDRESS OF START INITIATOR COMMAND
824+SCDPINIT ,DC
ACSCDPROC5) ADDRESS OF STOP INITIATOR COMMA~O
825+
DC
2F'O'
826+$CDPSYS EgU
SSCDOSPS PROGRAMMING SYSTEM OPTION BYTE FROM CVT
827+SCOPSMVT EQU
X'10' VALUE IF MVT
82B+SCDPSMFT EQU
X'20' VALUE IF MFT-II
829+SCDPSPCP EQU
X'40' VALUE IF PCP
830+SCDPSREL EQU
X'02' VALUE IF ADS
831+SCOIMSR EQU
SSCDIMSR IMS RELEASE NUMBER
832+SCDIMSL EQU
SStDIMSL IMS MOD LEVEL
833+
DC
2F'O' RESERVED FOR SYSTEM EXPANSION

***

5.30

**

22

*

*

*
*
* *

23

2/13/73

PAGE
,STMT

835+*

SOURCE STATEMENT

********

836+*
837+*
COM
838+*
839+*
840+*
641+*
842+*
843+*
844+*
845+*
846+*
847+* * * * * * *
849+SCDPROCl OS
850+
DC
851+
DC
852+
DC
853+SCDPROC2 OS
854+SCDPROC3 DC
855+
DC
856+SCOPROC4 DS
657+
DC
8:'8+
DC
859+
DC
860+SCDPROC5 DS
861+
DC
862+
DC
863+
DC
864+
OS

:0:

********

MAN 0

*

****

* *

:0:

* ***

SEC T ION :

*

* * * * **
*

*
*
*:0:
*
*'
ANY ADDITION TO THE SCD
*
MUST PRECEDE THIS SECTION.
*
*
* * * * * * * * * :0: * * * :0: * * * * * * * * * * * * * * *'
***

NOTE ***
THE COMMAND SECTION MUST RESIDE LAST
IN THE SYSTEM CONTENTS DIRECTORY SINCE
THE COMMANDS ARE VARIABLE IN LENGTH.

OF

AL2(17) TEXT LENGTH
B'OOOOOOOOOOOOOOOO' MCS FLAGS
CIS IMSROR.MBR='
CL9 MEMbER NAME FIELD OF START READER COMHA~D
ALi(6) LENGTH IN BYTES OF PROC MEMBER NAME
C'IMSMSG' MSG PROC MEMBER NAME
OF
AL2(26) TEXT LENGTH
8'0000000000000000' MCS FLAGS
C'S INIT.CLASSB",(B,A) ,
OF
AL2«12) TEXT LENGTH
S'OOOOOOOOOOOOOOOO' MC~ FLAGS
C'P (LASSB'
4F

*,*******~*****~**********************,****************

866
867

*.*
IMS SYSTEM
*,*
.VERSION 2
RELEASE 3
MOO LEVEL 0
:0:
*,****************************************************

868
869

872

F01MAY72

END

5.31

24

2/13/73

The user can also specify at system definition time a physical
terminal output edit routine to edit output messages just before they
are sent to a terminal.
One physical terminal output routine may be
specified for each BTAM telecommunication line group.
During system
definition, the user specifies which physical terminals, within each
line group, use the defined edit routine for output editing.
These
edit routines may be used to provide special user editing needs by
communciation terminal types.
An output message may be processed by
a physical terminal output edit routine and the basic IMS/360 edit
routine on the Message Format Service. output editing is performed
in this sequence. Therefore if the Message Format Service is used the
output provided by the edit routine must be the format defined to the
Message Format Service instead of the format created by the application
program.
Upon entry to a user-supplied physical terminal output edit routine,
the following interface applies:

The address of a buffer containing the
output message segment to be edited.
The
first two bytes are a binary count of message
segment length.
The second two bytes are
control information provided by the
application program which constructed the
message.
The text of the output message
starts in byte five.
The count includes
the first four bytes in length.'
7

The address of the output physical terminal
block (CTB) for the destination terminal.

9

The address of the IMS/360 control block
describing the output communication line
(CLB). This block starts with a BTAM DECB.
The content of DECAREA field in the DECB
is equivalent to Register 1 content.

11

IMS/360 System contents Directory (SCD)
address.

13

The address of a save area for use by the
edit routine.
All registers must be saved
upon entry and restored upon exit. The
first three words in the save area may not
be changed.

14

The address by which the edit routine should
return to IMS/360.

15

The entry point address to the invoked edit
routine.

The resultant output message segment returned to IMS/360 from the
user's edit routine must be pointed to by the content of the BTAM DECB,
DECAREA field.
The first four bytes must be in a format as received
at input with the binary count updated to the eaited message segment
length inclusive of the four bytes of prefix.
Upon return to IMS/360,
all registers must be restored.
If the message is to be edited in
place, the length may not be increased by more than 10 bytes.

5.32

When the last segment of a message has been edited r IMS/360 returns
control to the user's edit routine once more.
The edit routine may
wish to perform some housekeeping activities at this time.
Upon entry
to the user's edit routine, Registers 7, 9, 11, 12, 13, 14, and 15 are
as described above.
Whenever a physical terminal output edit is invoked, the
Communication Terminal Block is addressed by Register 7.
A field in
the block, CTBACTL, which is one byte in length, will contain a one
in the second bit position if this entry to the user's edit routine
is for end of message.
The reader is referred to the 1~~LJ§Q ~Y~igm
~£n~£l for definition of IMS/360 control blocks.
EXAMPLE OF PHYSICAL TERMINAL EDIT
The following example illustrates how any output message can be
extended in length and a prefix attached.
Two capabilities within
IMS/360 are used.
One allows the edit routine to obtain a buffer area.
This is called ICREATE.
When ICREATE is used, an identifier of four
bytes is provided in Register 2.
The length of the requested area is
placed in Register 3. The address of the buffer area is returned to
the edit routine in Register 3.
This area is used to build the output
message.
The prefix '*IMS*' is added to the message.
The edited
output message is addressed by DECAREA.
When the end of message entry
to the edit routine is made (CTBACTL=40), the buffer area obtained by
the edit routine is returned to IMS/360.
This is performed by the
second IMS/360 facility called IDESTROY.
Register 2 is used to
symbolically identify the area to IMS/360.
This example applies to
single-line messages only and to only one terminal at a time.
As the
addition of '*IMS*' did not sequence the extension of the message by
more than 10 bytes, it could have been performed in place without the
creation of an additional buffer area.
The following is an example
of how this could be accomplished.

5.33

STMT

SOURCE STATEMENT

1 OFSEDCT.O C SECT
2.·

3

* * THIS
*. MODULE
* * IS*
* NOTE

4 •

5
6
7
8
9

*
*
*

'$

10+

B
DC

12+

DC
STM
L
lR
USING
USING
USING
USING

13+

14
15
16

20

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

* * * *SAVE* *(14,12)"OCTllll
* * * *. ** SAVE
* *ENTRY
* *REGISTERS
*
* * * * *

11+

17
18
19

*.

NOT RE ENTRANT AND MAY NOT BE USED BY MORE
ONE TERMINAL AT A TIME. TU MODIFY IT TO ALLOW USE BY'
MULTIPLE TERMINALS THE TABLE MUST BE EXPANDED TO THE NUMBER OF
USING TE~MINAlS AND A'UNIQUE 10 fOR EACH MUST BE USED FOR THE
ICREATE OF THE BUFFER.
THA~

12(0,15) BRANCH AROUND 10
ALl(7) LENGTH t:f IDENTIfIER
CL7'DCTll11' IDENTIfIER
14,12,12(13) S6VE REGiSTERS
RI3,8(RI3)
POINT TO NEXT SAVARE~
R12,R15
LOAD AND
OFSEDCTO,R12
.ESTABLISK MODULE BASE
IECTOECB,R9
CLB POINTERS
CTB,R7
CTB POINTERS
sce,R11
SCD POINTERS

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

21 *
GET AREA FOR EDIT IF fIRST SEGMENT
*
22 *---------------------------------------------------------------------~
23
BAL
RS,DESTROY
DELETE THE USED SUfFER
24
TM
CTEACTl,CTBAEO~
END OF MSG
25
BO
RETURN
YES
26
CLI
DECTYPE,X'02'
1ST SEGMENT?
27
BE
RETURN
NO
28 ,CREATE
EQU
*
29
l
R5,DECAREA
VES,POINT TO MESSAGE
30
SR
R3,R3
31
IC
R3,O(RS)
LOAD MSG DL (LENGTH)
32
SLL
R 3,}3
•
33
IC
R3,1(RS)
•
34
lR
R6,R3
SAVE MSG LENGTH
35
lA
R3,9(R3)
ALLOW FOR INCR MSG LENGTH
36
lR
R5,R3
S AVE NEW DL
37 *ICREATE
SE TUP FOR I CREAT E
LR
R0,Rll
38
POINT TO SCD
Rl,R9
LR
39
POINT TO CLB
40
R2,IO
L
LOAD 10
41
R4, R4
ZERn R4
SR
42
R 15, seD SM~CP
POI~T TC ICREATE
L
43
BALR Pllt,R 15
STORE 10 IN TARL E:
44 *
ID WCULO INCL. CTB # AND WOULD
45 *
461.BE STORED IN lHE TABLE POSITION
CORRESPONDING TO THAT #~
47 *
48
ST
R2,TA8LE
STORE 10
4q *-------------------~-------------------------------------------------~
50
EI1TT r-'ES S AGE INTO AR EA

*

*

51 *------------------------------------------~--------------------------=
52
5TH
R5,O(R3)
SETUP NEW OlOO
53
xc
2(2,R3),2(R3)
•
54
MVC
4(Q,P3),EDMSG
~OVE IN EDITING
55
SH
R6,=H'S'
CALC LENGTH OF MnVf

5.34

STtJT

SOURC,E STATeMENT

56

L

R5.DECAREA

57
58
59

EX
B
MVC

R6.MOVE

MOVE
60 AROUND

EQU

PT TO OLD MSG
MOVE MSG LESS OLOO

ARCUND
l3(O,R3),4(R5.

*

SETUP PTR TO NEW MSG AREA
RETURN
63 ~---------------------------------------------------------------------*
64 *
RELEASE EDIT AREA IF NECESSARY
*
61
f.2

ST
B

R3,OECAREA

*---------------------------------------------------------------------*
EQU
*

65
66 DESTROY
61
68
69
70 *
71

*

12
73
7'4

75
76

77
7'8

lq

80
~l

*

ClC

TABLE.=F'O·

BCR

8,R5

lR

RC,Fl.ll

L,
l

Rl,R9
R2,TABLE
R 15, scnSMMDP

AAlR

R14,P15

xc

TAHLF.( 4)

LR

BR

Y E5.- BRANCH

,TABLE

ZERO

TABLE ENTRY

R5

.*------.;..------------------------,----------------.--------.. . -------------*
EQU

F33

l

*R13,4(R13)

e4

LM

O,12,20tR13)

85
86
81

L

R14,12(R13)

BCR

15,R14

*

138' TABLE
89 [0,
90 ECt-1$·G

CC

F '0'

OC

CIEOIT'

DC

C'

Sl R1

EQU

1

S2' R C
93 R2
qL. R3
9 5 R4

EQU'
EQU

0
2

EQU

3

96 R5

EQU

SA. R7
99 R8

E!~U

7

EQU

B

b

100 R9
101 R 10

EQU

9

EQU

102. Rll

E\~!J

103 Rl?

EQU
E:JU
EQU
EiJU

10
11
12
13
14
15

104 R 13
105· R14
106 R 15
107

II-1S

10 TABLE
AREA ID
ElH T MESS.l\GE

EI:)U
4
E,;)U5

97 R6

10'1

S ETU P [OES TROY
POINT TO seD
POINT TO CLB
LOAD Ie

**---------------------------------------------------------------------*
RETURN ROUT IN E
*

82 RETURN,

lOR

CHECK APPRCPRIATE TA8LE ENTRY
HAS AREA BEEN RELEASfD?

LTfJRG
=F'O •
=H' 5'

5.35

STMT

SOURCE STATEMENT

110

ICll

CL8BASE=O,CTBBASE=O

11i+************~****~***~***$*******************.*******~*~***************

112+*

113+*

CLB - COMMUNICATION LINE BLOCKS OSEC1. DSECT NAME IS IECTCECg.

114+*
115+·***************~******************************************************

lIt,+ I ECTOECB OS ECT

117+*

118+*

119+*
120+*
121+*

122+*
123+*
124+*

0

4

126+*

127+*

8

130 +*

12

13 2+ ~

133+*

134+*
135+*

16

136+*
137+*

138+*

139+*

140+*

20

141+*

142+*

143+*

144+*
145+*

STANDARD EVENT CONTROL ELOCK

+-----------------------------------~----+
O~-LINE +
+
+TERMINAL +
ADDRESS OF DCB
~
+
TEST
+

+
+----------------------------------------+
+..
+
+RESERVED +
ACDRESS OF AREA
..
-+..
+
+--------------~--------------------------+
+
+
+
SENSE RYTES
+
RESIDUAL COUNT ..

+

+
1
E
2
..
+
+-----------------------------------~----+
+
+
+
+ CCMMANC I
ADDRESS OF TERMINAL LIST
+
+
CODE
+
+

+

+ RELATIVE"

STATUS +

+
+

TP-OP
CODE

+

+

+

ERROR +
STATUS +

+

+
CS~

STATUS

+
+

+----------------------------------------+
+
+
+
32

155+*

36

+RESERVEC +
of

+

ADDRESS OF CURRENT

+

ADDRESSING ENTRY

+

ADDRESS OF CURRENT
peLlING ENTRY

+
+

+----------------------------------------+
+

+

+RESERVED +
+

+

+

+----------------------------------------++

157+*
158+*+
+..
15q+*
40 +RESERVED +RESERVEC"

160+*

+

161+*
162+*
163+*

+

5.36

+

+

+

LINE
ADDRESS + VRC/LRC +
+ FLAGS + NUMBER + RESPONSE+ RESPONSE +
+-.------------------------.---------------+
+

28

151+*
152+*
153+*
154+*

164+*
165+*

+
+
+

+----------------------------------------+
+
..
+
+ OPERATICN TYPE
+
AREA LE~GTH
+
+
+
..

+

24

149+*
150+*

156+*

+
+

+----------------------------------------+

146+*

147+*
148+*

SECTION

+

129+*

131+*

DUMt~Y

+

125+*

128+*

OECB

------------------------------------------

+

WRITE

~REA

LENGTH

+

+

+

+----------------------------------------+
+
+

44

+RESERVED +
+..

ADDRESS CF WRITE AREA

+
+

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

STMT

F150CT10

SOURCE STATEMENT

1

ICLI

3/27/72

CLBBASE=C,CNTBASE=O,CTBBASE=O,COBBASE=O,CTTBASE=O

2+***********************~***********************************************

3+*
4+*
5+*

CLB -

COMMUNIC~TION

LINE BLOCKS OSECT. OSECT NAME IS IECTOECB.

6+~**********************~*************~*********************************

7+IECTOECB OSECT
8+*

9+*
10+*
11+*
12+*

o

13+*
14+~

4

15+*
16+*

17+*

18+*

8

19+*
2CJ+*

21+*
22+*
23+";
24+*

12
16

20

32+*

33+*
24

37+*

38+*
39+*
40+*

28

42+*

32

43+*
44+*

36

41+*
50+*
51+*
52+*

40

54+*

44

STMT
56+*

+
+

AREA LENGTH

+

+

+----------------------------------------+
+ ON-LINE +
+
+TERMINAL +
ADDRESS OF DCB
+
+ TEST
+
+
+----------------------------------------+
...
+
+
+RESERVE:D

+

...

+

ADORESS OF AREA

...

+

+

SENSE BYTES
1
&
2

+

RESIDUAL COUNT

...
+

+

+----------------------------------------+
+
+

+
+
+

COMMAND I
CODE +

~DDRESS

OF TERMINAL LIST

+
+
+------------ ------------- ------------- +.
+
+ RELATIVE+
+
+
+ STATUS +
LINE + ADDRESS + VRC/LRC +
+ FLAGS + NUMBER + RESPONSE+ RESPONSE +

...
...

TP-OP
CODE

+

+

ERROR +
STATUS +

CSW STATUS

+
+

+

+RESERVED +
+

ADDRESS OF CURRENT
ADDRESSING ENTRY

+
+

+RESERVED +
+
+

ADDRESS OF CURRENT
POLLING ENTRY

+

+

+----------------------------------------+
+
+
+
+

48+*

55+*

OPERATION TYPE

+----------------------------------------+
+
+
+

45+*

53+*

+
+

STANDARC EVENT CONTROL BLOCK

+----------------------------------------+
+
+
+

41+*

49+*

+

+----------------------------------------+
+
+
+
+

36+*

46+*

+
+
+
+
+----------------------------------------+
+
+
+

+

+

28+*
29+*

34+*
35+*

SECTION

...

27+*

30+*
31+*

DU~~Y

+----------------------------------------+
+
+

25+*
26+*

DECB

+RESERVED +RESERVED +

WRITE AREA lENGTH +

+
+
+
+
+----------------~----------------------+
+
+
+

+RESERVED +
+

~DDRESS

+

OF WRITE AREA

+
+

SOURCE STATEMENT

--------_.-- --

F150CT70
---------- ------------

5.37

3/27/72

STMT

SOURCE STATEMENT

F150CT70

58 + CE'CSoECB OS

IF STATUS FLAG + ADDRESS OF THE TCB

60+CECTYPE

IH OPERATION TYPE

OS

62+DECLNGTH OS

IH AREA LENGTH

64+DECONLTT DS
65+0ECOCBAD OS

OCLI RESERVED FOR ON-LINE TERMINAL TEST
IF ADORE SS OF DCB

67+DECAREA

IF ADDRESS OF AREA

OS

69+CECSENSO OS

lC 1ST SENSE BYTE

71+[)ECSENSl OS

IC 2ND SENSE BYTE

73+[)ECCOUNT DS

IH RESIDUAL COUNT

75+0ECCMCOO OS
76+DECENTRV OS

OCLI COM~AND CODE
IF ADORE SS OF TERMINAL LI ST

79+DECFLAGS OS

lC STATU S FLAGS

81+DECRLN

lC R ELAT IVE LINE NUMBE R

OS

83+C'ECRESPN OS

IH RESPONSE FIELDS

85+DECTPCOD OS

Ie T P-OP CODE

87+DECERRST OS

lC ERROR STATUS

89+CECCSWST OS

1H C SW S TAT US

91+CECAoRPT OS

IF ADDRESS OF CURRENT ADDRESSING ENTRY

93+CECPOLPT OS

IF ADDRESS OF CURRENT POLLING ENTRY

95+

OS

2C RESER \JED

97+DECWLNG

OS

IH WRITE AREA LENGTH

99+CECWAREA OS

IF ADDRESS OF WRITE AREA

lOl+CLBoECB EQU
l02+CLBRCNTR OS

bECS oECB
IC RETRY COUNTER

104+CLBFLAGl
l05+CLBICOB
l06+CLBITEST
107+CLBIIBUf
l08+CLBIOBUF
109+*
110+CLBIQCRI
111+CLBIRESP
112+CLBHJCRO

C •

5.38

OS
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU

3/27112

80' •
X'40' •
X' 20' •
X'

X' 10' •

X'OS'
X' 04'
X'02'
X'OI'

•
•
•
•

o
I
2
3
4
5
6
7

-

BJT USAGE
COB REQUIRED FOR CTS'S ON THIS LINE
TEST RECYCLE REQUEST
INPUT BUFFER ALLOCATED
OUTPUT BUFFER ALLOCATED
RESERVED FOR FUTURE USE
QCR ALLOCATED (INPUT)
RESPONSE WAITING
QCR ALLOCATED
(OUTPUT)

$

$
$

STMT

SOURCE StATEMENT

F150CT70

3/27/72

114+CLBFLAG2
115+CLB2NOIN
116+CLB2NOOU
117+CLB2NOQU
118+*
119+CLB21DLE
120+CLB21NP
121+CLB20UTP
122+CLB2AUTO

OS
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU

C

124+CLBFLAG3
125+CLB3INP
126+CLB3CSUB
121+CLB3DOPN
128+CLB3STOP
129+CLB3CBUF
130+CLB3ICMD
131+*
132+*

OS
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU

C •
X'SO'.
0 - O=OUTPUT NEXT, 1=INPUT NEXT ON THIS LINE
X'40·.
1 - COMMAND ENTERED AS NON-FIRST SEGMENT
X'ZO'.
2 - LINE IS OPENED DYNAMICALLY
X'IO·.
3 - LINE HAS BEEN IDLED FOR SHUTDOWN
X'OS' 4 - CONDENSED BUFFER ALLOCATED
X'04' 5 - INTERNAL COMMAND IN PROGRESS
X'OZ'.
6 - RESERVED FOR FUTURE USE
X·OI'.
1 - RESERVED FOR FUTURE USE

134+CLBCNTPT
135+CLBTEMPl
136+CLBTEMP4
137+CLBTEMP5

OS
OS
OS
OS

139+CLBCSID
140+*
141+*
142+CLBCSCVB
143+*
144+CLBCSFND
145+CLBCSSMB
146+*
141+CLBCSOSI
148+CLBCSACT

OS

EQU
EQU

OC • F I NO DES T FIELD
$
o
DL/l USE
1
RESTART IN PROGRESS
CVB FOUND AS DESTINATION
X' ZO' •
2
3
ALWAYS 0 FOR CLB
CNT/SMB NOT FOUND
X' OS' •
4
X'04'
5 = 0 CNT- FOUND
1 5MB FOUND
FNDDST ENTERED (CLBCNTP POINTS TO DEST)
X' 02.' •
6
ACTIVE POLLING LIST
X'OI' • 7

150+CLBPOLAD
151+CLBCTBPT
152+CLBCRCTB
153+CLBCNIQB
154+CLBSMBPT
155+CLBCTBPS
156+CLBDPOlC
157+ClBDCTl
15S+CLBINBUF
159+CLBOUTBF
160+*
161+* IF ($)

OS
OS
OS
OS
DS
OS
OS
OS
OS
OS

F.
H.
H.
2F.
F.
H.
C
C.
F.
F.

EQU
EQU
EQU

X'80'
X' 40'
X'20'
X' 10'
X' 08'
X'04'
X'02'
X'OI'

•
•
•
•

o - NO INPUT ALLOWED
1 - NO OUTPUT ALLOWED
2 - DO NOT QUEUE ON THls LINE
3 - RESERVED FOR FUTURE USE
4 - IDLE LI NE
5 - INPUT IN CONTROL
6 - OUTPUT IN CONTROL
1 - AUTOPOLL

F • POINTER TO CNT FOR RESPONSE

$

F

F •
F •

USED F OR TEMPORARY STORAGE
USED F OR TEMPORARY STORAGE

POLLING LIST ADDRESS
FIRST CTB ON LINE
CURRENT CTS
QCB FOR CNTS.FOR OUTPUT
POINTER TO BLOCK FOR QUEUEING CNT/SMB/cva
CLB DEVICE CONTROL BYTE (USED BY DDM)
INPUT BUFFER POINTER
OUTPUT SUFFER POINTER

FALLS IN COLUMN 11 THIS FIELD WILL BE SAVED IN A COB IF REQ

5.39

$

STMI

SOURCE STATEMENT

F150CI10

199+***********************************************************************

200+*
201+*
202+*

CTB - COMMUNICATION TERMINAL BLOCKS DSECT.

203+************************************.**********************************
204+CT8
205+CTBTYPE
206+CTBLINE
207+CTBTERM

DSECT
OS
C •
OS
C •
OS
3C •

209+CTBFLAGl
210+CTBICONV
211+CTBIMAST
212+CTBISUBP
213+CTB1DIAl
214+CTBISIGN
215+CTBIHELD
216+CTBIPCNT
217+CTBIPSMB

OS
EQU
EQU
EQU
EQU
EQU
EQU
EQU

C
X'80'
X'40'
X' 20 •
X' 10'
X' 08'
X'04'
X'02'
X'OI'

219+CTBFLAG2
220+CTB2NOIN
22l+CTB2NOOU
222+CTB2NOQU
223+CTB2LOCK
224+CTB2 TES T
225+CTB2EXCL
226+CTB2INOP
227+CTB2EDIT

OS
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU

C
X'SO'
X'40'
X'20'
X' 10'
X' 08 '
X'04'
X'OZ'
X'OI'

229+CTBFLAG3
230+CTtJ3REAC
231+CTB3QSYS
232+CTB3LOOP
233+CTB3CHE
234+CTB3QERR
235+(T83QMSG
236+CTB3LAST
237+CTB3SEGI

OS
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU

C

239+CTBFLAG4
240+CTB4CNCL
241+CTB40UTP
242+*
243+*
244+*
245+*
246+*
247+*

OS
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU

C
X'80'
X'40'
X' 20'
X' 10'
X' 08 •
X'04'
X'02'
X'OI'

249+CTBACTL
250+CTBAINP
251+CTBAEOM
252+CTBASHUT
253+CTBAJ;NC

OS
EQU
EQU
EQU
EQU

X'80'
X'40'
X' 20'
X'lO'

5.40

EQU

CTT NUMBER
LINE NUMBER
TERMINAL ADDRESS

· ·
··
···
··

· ·
··
·
··
··

· ·
···
···
·

a

THIS CTa IN CONVERSATION
1 MA STER TERM INAL
2 SUBPOOL CTB
3 DIAL CTB IS PHYSICALLY CONNECT~D
4 DIAL CTB IS LOGICALLY CONNECTED
"5 CONVERSATION IN PROGRESS WAS H~LD
6 PRESET CNT
7 PRE SET 5MB
0

NO INPUT

1 NO OUTPUT

2 NO QUEUEING
3 LOCKED
4 TE ST MODE
5 EXCLUSIVE MODE
6 INOPERABLE
7 US ER OUTPUT EDIT REQUESTED

X'SO'
X' 40'
X'20'
X' 10 '
X' OS'
X'04'
X'02'
X'Ol'

0 INPUT ONLY DEVICE
1 QUEUE ALL SYSTEM MESSAGES
2 LOOP TEST PENDING
3 LINE DISCONNECT REQUESTED
4 ERROR ON GET NEXT FOR OUTPUT
5 QUEUE CAUSE OF ERROR WITH SYSMSG
6 LAST CTS ON THIS LINE
1 FIRST SEGMENT

· ·
··
···
·
·
C

DEQUEUE MESSAGE IN
OUTPUT ONLY TERMINAL
2 NOT USED
3 NOT USED
4 NOT USED
5 NOT .USED
6 NOT USED
7 NOT USED

· ·
·

··

0

PROCES~

REQUESTED

FLAGS TO BE USED BY ANALYZER
O=OUTPUT NEXT, l= INPUT NEXT
1
l=END OF OUTPUT MSG
l=SYSTEM SHUTDOWN
2
3 l=INCORE SYSTEM MESSAGE

0

3/27/72

Sl MT

SOURCE STATEMENT

F150CT70

254t-CTBAMUl1 EQU
255+CTtiAERR EQU

X'OS' •

4

X' 04'

5

257+CTBDCTL OS
258+CTBDCTL2 OS

C •
C •

260+CTBFEAT
261+CTBFSYNl
262+CTBFSYN2
263+CfBFPAGE
264t-CTBFNAPD

OS
EQU
EQU
EQU
EQU

C •
FEATURES FLAGS
X'OS' AS~NCHRONOUS DEVICE, SYNC FLAG 1
X'04' ASYNCHRONOUS DEVICE, SYNC FLAG ~
X'OZ' PAGING IN PROCESS
X'01' AU10MATIC PAGE DELETION NOT REQUESTED

266+CTBCOMP
267+CTBC1NA
268+CTBCIIP
?69+CTBC2NA
270+CTI3C2IP
271t-CTt3C3NA
272+CTBC3IP
273+CTI3C4NA
2"l4+CT8C4IP

OS
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU

C •

276+CTBINCT

OS

H •
H •

2 1"1 + C T B0 U TC T 0 S

278+CTt3CPMP OS
279+CTBCNTP OS
280+ClI3PREST OS
281+(T8COBOS
282t-(TBCCB
OS
283+CTBCXB
OS
284+CTBPGNO OS

x'ao'

X'

40'

X' 20 •
X' 10 '
X' 08'
X' Oft '

X'02'
X'Ol'

H

•

H •
H •

H
H
H
H

•
•
•
•

•

REJECT IF NOT MULTIPLE SEGMENT MESSAGE
ERROR FOUND ON LAST SEGMENT PASSED
FLAGS USED BY 00 ROUTINES
FLAGS USED BY DO ROUTINES

COMPONENTS
COt'PONENT 1 IS
CO t'POl\:E NT 1 I S
COt'PONENT 2 IS
COt'PONENT 2 IS
COt'PONENT 3 IS
COt'PONENT 3 IS
COt'PONENT 4 IS
COt'PONENT 4 IS

TWO BITS FOR EACH
NOT I,TTACHED
I NOPf:RABLE
NOT ATTACHED
INOPERABLE
NOT ATTACHED
INOPERABL~

NOT ATTACHED
INOPERABLE

3088
3088
3088
3088
3088
3088
3088
3088

INPUT MSG COUNT
OUT PUT MSG C DUNT
PASSWORD MATRIX POINTER
LOGICAL TERMINAL POINTER
PRESET DESTINATION OFFSET
OFFSET TO COMMUNICATION OVERFLOW BLOCK
OFFSET TO CONVERSATIONAL CONTROL BLOCK
CGMMUNICATION EXTENT BLOCK POINTER
CURRENT PAGE BEING VIEWED

5.41

3/21172

SIMI

SOVRCE STATEMENT

F150CT70

367
lSCD SCOBASE==O
368+SCD
DSECT
369+*** * * * * * * *
* * * * * * * * * * * * * * * ** * * * * * * * ***
370+** * * * * * * * * * * * * * * * * * * * * * * * * * * * '* * * * * * **
371+**
**
372+**
IMS SYSTEM CONTENTS DIRECTORY (SCD)
**
373+**
**
374+** * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * **
375+*** * * * * * * * * * ** * * * * * * * * * * * * * * *
* * * * * ***

*

*

377+SSCDORG
378+SSCDSVCl
379+
380+SSCDSVC2
381+
382+5SCDSVC3
383+
384+SSCDSVC4
385+
386+SSCOOCEP
387+S$CDOSPS
388+SSCDOSLV
389+SSCDIMSR
390+SSCDIMSl
391+SSCDASPS
392+SSCDASLV
393+SSCDDESC
394+
395+SSCDROUI
396+
397+DFSXWAIT
398+DFSXIOBA
399+DFSXOPEN
400+SSCDMCID
401+
402+

5.42

os
SVC
BR
SVC
BR
SR
BR
SVC
BR
DC
DC
'DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC

00 SECONDARY SCD ORIGIN

o USER TYPE 1 SVC NUMBER
14 RETUR~ ON REGISTER 14
o USER TYPE 2 SVC NUMBER

14 RETURN ON RESISTER 14
15,15 CLEAR REGISTER
14 RETURN ON REGISTER 14
255 USER TYPE 4 SVC NUMBER
14 RETUR~ ON REGISTER 14
CL2'Z9' (SAM CHANNEL ENti APPENDAGE SUFFIX
X'lO' OS/360 SYSTEM CONFIGURATION
ALl(18) CS/360 RELEASE LEVEL SPECIFIED
ALl(O) IMS RELEASE NUMBER.
All(O) IMS MOD lEVEL NUMBER.
X'OO' SYSTEM ,CONFIGURATION - ACTUAL
AL1(0) 05/360 RELEASE LEVEL - ACTUAL
ALl(O) MCS DESCRIPTOR CODE
Al3(O) RESERVED FOR OS/360 EXPANSION
AL2(O) MCS ROUTING CODES
Al2{O) RESERVED FOR OS/360 EXPANSION
V(DFSIWAIT) IWAIT EP ADDRESS
V(DFSIOS40) OSAM lOB QCB
A(DFSXOPEN) OSAM OPEN EP
ALl( OJ CCNSOLE 10 - ST ART IMS COMMAND.
AL3( 0) RESERVED
F'O' RESERVED

3/27/72

STMT

F150CT70

SOURCE STATEMENT

*

405+* * * * * * * * * * * * * * * * * * ******* * * .*
* *
406+*
SEC T I a N :
R E COR 0 E R
L a G
407+*
408+*
409+* * * * * * * * * * * * * * * * .* *
* *** * ** **** **
411+SCOREENT
412+SCDREoce
413+SCDREWRK
414+SCDREPLN

DC
DC
DC
DC

**

*

* *

*

VIDFSFLOI0) RECORDER ENTRY POINT
A(O) DCB AND WKAREA LIST ADDRESS
V(DFSILOGW) WORK AREA FOR THE LOGGER
H'2S' LE~GTH OF LOG PREFIX IN BYTES

416+*** LOG CONTROL BYTE ***
417+SCDRECTL DC
X'OOOO'
418+SCDLGOPN EQU
X'SO' LOG IS OPEN
419+SCDLGTRM EQU
X'40' LOG SMJTASK DETACHED
421+SCDRELCT
422+SCDRECCT
423+SCDRPENT
424+SCDRTEce
425+SCORTCB
426+SCDRETXR
427+SCORPFX
42S+SCDDBLNT
429+SCDCWRK
430+SCDCWRKL
431+SCDCPNO
432+SCDDATE
433+SCDTIME
434+SCDSEQ
435+SCORGTYP
436+SCODBOCB
437+

DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC

H'SOO' ChECKPOINT LOG FREQUENCY CONTROL REFERENCE
H'SOO' CURRENT LOG FREQUENCY COUNTER, CPT AT ZERO
AtO) ENTRY Tn LOG WRITER
F'O' LOG TASK TERMINATE ECB
AIO) LOG TASK CONTROL BLOCK ADDRESS
A( 0) RES ERVED
V(DFSIPREF) ENTRY TO lOG PREFIX BUILDER
A(SCDDBL~T) ENTRY TO DATABASE CHANGE LOGGING ROUTINE
F'O' CHECKPOINT/DB LOG WORK AREA ADDRESS
H' 5121 LENGTH OF CHECKPOINT/DB LOG WORK AREA
HIO' CHECKPOINT NUMBER
F'O' DATE FOR RESTART/DATABASE LOG
F10i TIME FOR RESTART/DATABASE LOG
H'O' DATABASE LOG SEQUENCE NUMBER
AL1(O,0) REGION TYPE (O=CTL,3=DLI)
A(O} ADDRESS OF DATABASE LOG DCB
4F'O' RESERVED FOR SYSTEM EXPANSION

5.43

* *
*
*
*
**

3/27/72

STMT

SOURCE STAtEMENT

F150CT70

3/27/72

439+* * * * * * * * * * * * * * * * * *
* * * * * * * * * * * * * * * * * **
440+*
441+* 0 A T A
&
o S A M
l AN G U A G E 1 I
SEC T I o N : *
442+*
*
443+* * * * * ** * *
**** * ** *** *** *** *** * * * * * * *
445+SCDDlICT DC
A(SCODLICT) OL/I ANALYZER ENTRY POINT (DF$DLAOO)
446+SC[)DlIMQ DC
A(O) RESERVED
447+SCDISAM DC
A(SCOISA~) ISAM SIMULATOR ENTRY POINT
448+SCDDlARE EQU
22 RETURN POI NT FROM ANALYZER ENTRY POINT
449+SCDDlIRE DC
A(SCDOLI~E) 'RETRIEVE MODULE ENTRY POINT
450+SCODlIlt\ DC
A(SCODLI IN) INSERT MODULE ENTRY POINT
451+SCDOLIDR DC
A(SCDDLICR) DELETE/REPLACE MODULE ENTRY POINT
452+SCOOLDAE EQU
18 ALTERNATE ENTRY TO VELETE/REPLACE
453+SCODLIHS DC
A(SCDDLI~S) HSAM ENTRY POINT
454+SCDDLIPS DC
V(OFSIOIRO) BEGINNING OF PSB DIRECTORY ENTRIES
455+SCDPSBFR DC
A(O) EP TP PSB FREE POOL ~PACE ROUTINE
456+SCDOlILN DC
H'40' LENGTH OF PSB DI'RECTORY ENTRY
457+SCDDLINC DC
H'O' NUMBER OF PSB DIRECTORY ENTRIES
458+SCDPSBSW OS
OXL1 0 - FREE PSB POOL SPACE
459+SCDDLIDM DC
A(O) BEGINNING OF OMS Of RECTORY ENTRI-ES
460+SCDOLIDL DC
H'36 1 LENGTH OF EACH DMB DIRECTORY ENTRY
461+SCDDLIDN DC
H'O' NUMBER OF OMS DIRECTORY ENTRIES
462+SCDDLIPA DC
V( OF sIpS 1) ST ART OF PS T BLOCKS
463+SCDDlIPL DC
H'424' LENGTH OF EACH PST
464+SCDDLIPN DC
H'O'NUM8ER OF PST ENTRIES'
A( 0)
465+SCODLIBD DC
466+SCDDMBSw OS
OXLl 0 - RELEASE DMB SPACE, 1 - RESERVED
467+SCODMBFR DC
AIO) ENTRY TO DMB FREE POOL SPACE ROUTINE
468+SCDPSBMU DC
V(DFSIPS8Q) PSB MOST USED QCS ADDRESS
469+SCDDPDM DC
V(OFSDPDMO) PSB/OMB POOL MANAGER
470+SCDACBDC DC
V(ACBDCB) ACBLIB DCB POINTER
471+SCOPSBPL DC
F'O'
472+SCDDMBPL DC
F'O'
473+SCDLLOGD DC
7F'0 I
474+SCODLIMV DC
V(OFSDBL~O) BLOCK MOVER ENTRY POINT
475+SCOOSSTDC
V(OFSDSSTO) SEGMENT INTENT RESERVATION CSECT
476+SCODLICl DC
A(SCDDlICL) DATA MANAGEMENT OPEN/CLOSE ENTRY POINT
477 + StOOLIO 1 DC
A(SCDDLIC7) ENTRY TO DL/I LOAD PROGRAM
478+SCOWQCB DC
V(OFSPWQCB) DL/I MOVER QCB ADDRESS
479+SCOBPARM DC
A(O) DL/I REGION PARMS (PXPARMS)
480+SCDASE
DC
V(DFSIASEO) APPLICATION SCHEDULER TERMINATOR EP
481+SCDDBFPL DS
A LOCATICN OF Dl/I BUFFER POOL
482+SCDD08HO DC
A(O) ENTRY POINT OF DL/I BUFFER HANDLER
483+SCDDHOSO DC
AIO) ENTRY POINT OF GET/FRE~ SPACE
484+SCDDXMTO DC
A(O) ENTRY POINT OF INDEX MAINTENANCE
485+SCDOBCVT DC
AtO) ENT~Y POINT OF BYTE BLOCK CONVERSION
486+SCOOIOBS EQU
DFSXIOBA OSAM lOB QCB
487+SCOOOPEN EQU
OFSXOPEN OSAM OPEN EP
488+SCOIWAIl EQU
DFSXWAIT IWAIT ENTRY POINT ADDRESS
489+SCOSAVE DC
V(DFSISA~O) ORIGIN OF SAVE AREA SET
490+SCOFLOS DC
A( 0) STAE EXIT -ROUTINE ENTRY POINT
491+SCDFLOSR DC
AtO) STAE RETRY ROUTINE ENTRY POINT
492+SCONAVID OS
OF
493+SCDRLDTE DC
X'OO'

*

STMT

SOURCE STATEMENT

494+SCDSYNCN DC
495+SCDlOWID DC
496+
DC

5.44

AL3(O)
F' O'

6F ' O' RESERVED FOR SYSTEM EXPANSION

F150CT70

3/27/72

STMT

F150CT70

SOURCE STATEMENT

498+* * * * * * * * * * *
499+*
STORAGE
500+*
501+*
502+* * * * * * * * * * *
504+SCDSMMLC
505+SCOSMML
506+SCDSMMHI
507+SCDSMMGC
508+SCDSMMFC
509+SCDSMMCP
510+SCDSMMDP
511+SCDSMMFB
512+SCDSMMGB
513+SCDILMSK
514+
515+

DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
OS
OS

** ** * **

*

*****

MA N A GE ME NT

*

*

***

* *

*

*

**

* ****** *
5 E C T I o N :

* * *

**

* * * *

STMT

DC
DC
OS

**

*

* *

A(O)
V(DFSICRET) ICREAT ENTRY POINT
V(DFSIDEST) IDESTROY ENTRY POINT
V(DFSIFBUF) IFREEBUF ENTRY POINT
V(DFSIGBLF) IGETBUF ENTRY POINT
X'OOOI' PROGRAM LOAD MASK
XL2 NOT USED
3F PADDI t\G

*

*

*

***

* * *

* *

*
*
*
*

V(DFSIIDEO) IDEQ ENTRY POINT
V(DFSIIEf\O) IENQ ENTRY POINT
2F
3/27/72

F150CT70

527+* * * * * * * * * * * * * * * * * * * * * * * * * ****** *
528+*
QUE U E
MA N A G E ME N T
SEC T I a N :
529+*
530+*
531+* * * * * * * * * * * * * * * * * * * * * * * ** * * * * * * *
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC

*

**
*

A( 0)

SOURCE ST ATEMENT

533+SCDIRWQE
534+SCOIQOCe
535+SCDSMDC8
536+SCDLMDce
537+SCDSPDC8
538+SCOQPOOL
539+SCDPRLNl
540+SCDPRLN2
541+SCOQCRSI
542+SCDMSGSZ
543+SCDQMRE8
544+SCDCKCL
545+SCDQMSRB
546+

* *

AIO) ADDRESS OF START OF SMM CORE AREA
F'O' LENGTH OF STORAGE MANAGEMENT CORE AREA
AIO) ADDRESS OF END OF SMM CORE AREA

517+* * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
518+*
519+*
E N QUE U E IDE QUE U E S E C T ION
520+*
521+* * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
523+SCDIDEQ
524+SCDIENQ
525+

*

3/27/72

* *

*

* *

* *

V(OF SQMGRO) IREAD/IWRITE QUEUE ENTRY POINT
V( OF SI QDCS) ADDRESS OF INPUT QCR DC B
V( OF SSMDCB) ADDRESS DF IMS2.SHMSG DCB
V( OF SLMDCB) ADDRESS OF It-1S2.lGMSG DCB
V(DFSICDCB) ADDRESS OF SCRATCH PAD AREA (SPA) DCB
A(O) POlf\TER TO QUEUE BLOCK POOL
H' 40 I LEf\GTH OF FULL MESSAGE PREFIX
H' 16' LENGTH OF CONDENSED MESSAGE PREFIX
HIO' SIZE Of QCR BUFFER
H' 0' SIZE OF MSG BUFFER
F' O' SAVE AREA PTR TO BUFFER AllOC FOR REUSE
FlO' COMM FOR INTERNAL CHECKPOINTS
H' 0' RECCRDS RESERVED FOR SHUTDOWN/REUSE
5H'0' RESERVED FOR SYSTEM EXPANSION

5.45

*
*
*

STMT

SOURCE STATEMENT

548+* * * * * *
549+*
550+*
551+*
552+* * * * * *
554+SCOCTT
DC
555+SCDCTTL DC
556+SCDCTTN DC
557+SCDCLB
DC
558+SCDCLBL DC
559+SCDCLBN DC
560+ SCOC fB
DC
561+SCOCTBL DC
562+SCOCTBN DC
563+SCOCXB
DC
564+SCOCXBL DC
565+SCDCXBN DC
566+SCDCNT
DC
567+SCOCNTL DC
568+SCDCNTN DC
569+SCOC08
DC
570+SCDCDBL DC
571+SCDCDBN DC
572+SCDCVB
DC
573+SCDCVBL DC
574+SCDCVBN DC
575+SCOCPT
DC
576+SCDCPTl DC
577+SCDCPTN DC
578+SCOCPM
DC
579+SCDCPML DC
580+SCDCPMN DC
581+SCDCTM
DC
58Z+SCDCTML DC
583+SCDCTMN DC
584+SCDCC8
DC
585+SCDCCBL DC
586+SCDCCBN DC
587+SCDCC8NO DC
588+SCDCCBNC DC
589+SCDCCBDL DC
590+SCDCCBCL DC
591+SCDCANOl DC
59Z+SCDCAN02 DC
593+SCDCAN03 DC
594+ SCOCAN04 DC
595+SCDCAN05 DC
596+SCDtAN06 DC
597+SCDCAN07 DC
598+SCDCANOa DC
599+SCDCAN09 DC
600+SCDCANIO DC
601+SCDCANll DC
602+SCDFNDST DC

5.46

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

F150CT70

* * * * * * * * * * * * * * * * **
SEC T ION
*
*
* ******** * *** *** *** ******** ** *
*

COM M U N I CAT I G N

V{DFSICTT) COMMUNICATICN TRANSLATION TABLE BASE ADDR
H'ZS' LENGTH OF EACH CTT
H'O' NUMBER OF CTTS
V(OFSICLBJ ~OMMUNICATION LINE BLOCK BASE ADDRESS
H'IOO' LENGTH OF EACH CLB
H'O' NUMBER OF CLBS
V{DFSICTE) COMMUNICATION TERMINAL BLOCK BASE ADDRESS
H'3Z' LE~GTH OF EACH CTB
H'O' NUMEER OF CTBS
AtO) COMfJUNICATION EXTENT BLOCK BASE ADDRESS
H'20' LENGTH OF EACH CXB
H'O' NUMBER OF CXBS
V(DFSICNT) COMMUNICATION NAME TABLE BASE ADDRESS
H'44 I LE ~'GTH OF EACH C NT
H'O' NUMBER OF'CNTS
V(OFSICDB) COMMUNICATION DIRECTORY BLOCK BASE ADDR
H'4' LENGTH OF A COB
H'O' NUMBER OF COBS
V(DFSICVB) COMMUNICATION VERB BLOCK BASE ADDRESS
H'IZ' LE~GTH OF EACH CVB
H'O' NUMBER OF CVBS
A(O) COM~UNICATION PRIORITY TABLE BASE ADORESS
H'O' LENGTH OF EACH CPT
H'O' NUMBER OF CPTS
A(O) COMfJUNICATION PRIORITY MATRIX BASE AODR
HIO' LENGTH OF EACH CPM
H'O' NUMfER OF CPMS
V{DFSICT~) COMMUNICATION TERMINAL MATRIX ~ASE ADDR
HIO' LENGTH OF EACH CTM
HIO' NUMBER OF CTMS
ACO) .CONVERSATIONAL CONTROL BLOCK BASE ADbRESS
H'32' cce LENGTH
H'O' NUMeER OF CCBS
AL2(O) OFFSET TO F1RST DISK CCB
AL2(O) OFFSET TO FIRST INCORE CCB
H'O' MAXIMUM LENGTH OF DISK SPA
H'O' MAXIMUM LENGTH OF INCORE SPA
V( OF SC 10 C1) COMMUN IC AT ION ANAL YIER ENTRY If. 1
. V( OF SC IOOZ) COMMUNICAT ION ANALYZER ENTRY #. 2
V(OFSCIOC3) COMMUNICATION ANALYZER ENTRY # 3
V(OFSCIOC4) COMMUNICATION ANALYZER ENTRY # 4
V(DFSCIOC5) COMMUNICATION ANALYZER ENTRY # 5
V(OFSCIOC6) COMMUNICATION ANALYZER ENTRY # 6
V(DFSCIOC7J COMMUNICATION ANALYZER ENTRY # 7
V(OFSCIOC8) COMMUNICATION ANALYZER ENTRY # 8
V(DFSCIOd9) cnMMUNICATION ANALYZER ENTRY # 9
V(DFSCIOIO) COMMUNICATION ANALYZER ENTRY # 10
V(DFSCIOll) COMMUNICATION ANALYZER ENTRY I 11
V(DFSICLFO) FINO 'DESTINATION ROUTINE ENTRY POINT

3/27/72

STMT

603+SCDMSGRT
604+SCDMTRM
605+ SCDClISO
606+SCDTRANS
607+SCDCONV
608+SCDCOB
609+SCDCOBl
610+SCDCOBN
611+SCDCTCLB
612+SCDREPOL
613+SCDNTB
614+SCDEDITC
615+SCDEDITS
616+SCDINCT
611+SCDQUTCT
61a+SCDCPCTL
619+SCDPCPOl
620+SCDPCP02
621+SCDPCP03
622+
623+
STMT

F150CT70

SOURCE STATEMENT
DC
DC
CC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
EQU
EQU
EQU
DC
DC

V(DFSIClRO) MESSAGE ROUTER ROUTINE ·ENTRY POINT
V(DFSCTB~T) MASTER TERMINAL CTB ADDRESS
V(DFSIClSO) SECURITY ROUTINE ENTRY POINT
V(DFSIClTO) TRANSLATE ROUTINE ENTRY POINT
A(O) CON~ERSATION PROCESSOR ENTRY POINT
A(O) COM~UNICATION OVERFLOW BLOCK BASE ADDRESS
H'32' LE~GTH OF EACH COB
HIO' NUMBER OF COBS
V(DFSIClB) CONSOLE TYPEWRITER CLB
V(DFSICLXO) RESET POLL MODULE ENTRY POINT
V( OF SI NT BO )
A(O) USER EDIT ROUTINE FOR CNT DESTINATIONS
V(DFSlISTO) USER EDIT kOUTINES FOR 5MB DESTINATIONS
H'O'
H' 0'

X'OO' CHECKPOINT POST SYNC BITS
X' 80'

XI 40'
X' 20'

Al3(0) RESERVED FOR SYSTEM EXPANSION
9F'O' RESERVED FOR SYSTEM EXPANSION

SOURCE STATEMENT

625+* * * * * * *
626+*
627+*
628+*
629+* * * * * * *
631+SCDEXTWQ DC
632+SCDINTWQ DC
633+SCDINTSQ DC
634+SCDTEC8R DC
635+SCDPARM DC
636+SCDTECB DC
637+SCDSAVEl DC
638+SCDSlEV EQU
639+SCDSAVEN DC
640+SCDSRQE DC
641+SCDSRQEL DC
642+SCDSRQEN DC
643+SCDWAITQ DC
644+SCDEXTWl DC
64S+SCDEXTWN DC
646+5CDSU8S" DC
647+5CDCFAC DC
648+SCDCHOD DC
649+SCDTEST DC
650+SCDTlEV DC
651+5CORES2 DC
652+
DC

3/27/72

F150CT70

* * * * * * * * * * * * * * * * * * * * * * * * * * * * **
0 I S P ft T C HER
SEC T ION
*

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

*

*
* * ** * * * * * *

V(DFSEXTWQ) EXTERNAL WAIT QUEUE ADDRESS
V(DFSINT~Q) INTERNAL WAIT QUEUE ADDRESS
V(DFSINTSQ) INTERNAL SAVE QUEUE ENTRY POINT ADDRESS
V(OFSITERM) TERMINATION ROUTINE ENTERED IF TECB POST
AlO) ADDRESS OF PARM LIST FROM SYSTEM
F'O' IMS TERMINATION ECB POSTED BY CHECKPOINT
H'SOa' LENGTH OF SAVE AREA SETS INCLUDING QE
7 NUMBER OF SAVE AREAS IN A SET
HIO' NUMBER OF SAVE AREA SETS
V(DFSIRQEO) ORIGIN Of RQE LIST
H' a' LENGTH OF EACH RQE
H'O' NUMBER OF RQES
V( OF SI WA TQ) ORIGI N OF WAI T QUEUE
H'4' LENGTH OF EACH ~NTRYIN EXT WAIT QUEUE
H'O' NUMBER OF EXTERNAL EVENTS
AIO) ADDRESS OF LAST SUBTASK 1ST LEV SAVE AREA
X'OO' CURRENT FIR.ST LEVEL FACILITY
X'OO' CURRENT MODULE WITHIN FACILITY
x'ao' TEST MODE CONTROL INDICATOR
X'OO' TEST MODE lEVEL INDICATOR
F' O' PADDING
4f'O' RESERVED FOR SYSTEM EXPANSION

5.47

3/27/72

STMT
654+*
655+*
656+*
657+*
658+*

SOURCE STATEMENT

********
A P P L

-* '* * *
660+SCDASINT DC
661+SCDASTER DC
662+SCDSMBEP DC
663+SCDSMBL DC
664+SCDSMBN DC
665+SCDSMBDC DC
666+SCDSMBNQ DC
667+SCDCHKXE DC
668+SCDTCTEP DC
669+SCDTCTL DC
670+SCDTCTN DC
671+SCDMRQEP DC
672+SCDPRQEP DC
613+SCDBPRQE DC
674+SCOEXTSQ DC
675+
DC

5.48

*

F150CT70

-* -* -* -*

* -*

C A T I 0 N

**

-* -*

*** *

-* * -*

*

-*

** *

*

S C H E DU L E R
-*

*

-*

*

-* *

***

-* *

*'

* -*

S E C

r

I 0 N

* *

-*. -* -*

**

* -*

*

'* * *
-*

* *

V(DFSASIt\T) APPLICATION SCHEDULER INITIATOR ENTRY
V(DFSASTRM) APPLICATION SCHEDULER TERMINATOR ENTRY
V(DFSISME) SYSTEM MESSAGE BLOCKS BASE ADDRESS
H'56' LEt\G TH OF EACH S MB
H'O' NUMBER OF 5MBS
V(DFSSMBCQ) 5MB DEQUEUE ENTRY POINT ADDRESS
V(DFSSMBEQ) 5MB ENQUEUE ENTRY POINT ADDRESS
A(SCDCHKEB) ADDRESS OF ECB TO BE POSTED BY DFSIASOO
V(DFSITC1) TRANSACTION CLASS TABLES BASE ADDRESS
H'SO' LENGTH OF EACH TCT
H'O' NUMfER OF TCTS
V(DFSIMRC) ADDRESS OF MESSAGE REQUEST QUEUE
V(DFSIPR') ADDRESS OF PARTITION REQUEST QUEUE
V(DFSI8PRQ) ADDRESS OF BATCH PARTITION REQUEST QUEUE
V(DFSEXTSQ) EXTERNAL SAVE QUEUE ENTRY POINT ADDRESS
4F '0'

3/27/72

-* -*

-*

*
*
*
-*

STMT

SOURCE STATEMENT

677+* * * * * * * * *
678+*
619+*
C H E C K P a
680+*
681+* * * * * * * * *

F150CT70

**

*

N T

**

683+*** CHECKPOINT STATUS
684+SCDCKCTL DC
X'OO'
685+*
686+*
687+*
688+*
689+*
690+*
691+*
692+*
693+*

* * * * * * * * * * * * * ****** * * * * *
1 R E S T A R T
SEC T I o N :
**

* * * *
B~TE

*

* *

***

*

*

*

* * * * *

*

*

* *

**

***

DESCRIPTION OF BIT SETTINGS
o NOT USED
1 DATABASE RECOVERY
2 PURG E REQUEST
3 SYSTEM SHUTDOWN ReQUEST
4 DUMP QUEUE REQUEST
5 MASTER TERMINAL CHECKPOINT REQUEST
6 DATABASE DUMP REQUEST
7 SYSTEM SCHEDULED CHECKPOINT (LOG)

695+*** RESTART STATUS BYTE ***
696+5CDRSCTL DC
X·OO'
DESCRIPTION OF Bli SETTINGS
697+*
o PASSwORD SECURITY REQUESTED
698+*
1 QUEUE ONLY RESTART
699+*
700+*
2 PSB/OMB CHANGED - REBUILD BLOCKS
3 ALLOW COMMANDS EXCEPT RESTART
701+*
4 TERMINAL SECURITY REQUESTED
702+*
5 EMERGENCY RESTART
703+*
6 BUILD QUEUES
704+*
7 NORMAL RESTART
705+*
107+*** COMMON SYSTEM SHUTDCWN STATUS BYTE ***
108+SCDSTOPl DC
X'OOOO'
109+*
BYTE 1
DESCRIPTION OF BIT SETTINGS - USER
110+*
o STOP INPUT
COMMUNICATIONS
711+*
COMMUN ICAT IONS
1 STOP OUTPUT
SEND ALL OUTPUT
712+*
2
COMMUNICATIONS
PROCESS ALL MESSAGES
3
SCHEDULER
713+*
4
114+*
QUEUE'S AVAILABLE
READ/WRI TE Q
715+*
5
FREE MESSAGE REGIONS
SCHEDULER
6
TERMINATE ALL REGIONS
116+*
SCHEDULER
7 STOP 5MB INPUT
717+*
COMMUNICATIONS
718+*
BYTE 2
719+*
DESCRIPTION OF BIT SETTINGS - USER
o PROCESS AT SYSTEM PRIORITY SCHEDULER
120+*
1 DATABASE STOP
. CHECKPOINT
121+*
2 FORCE EOV ON lOG FILE
CHECKPOINT
122+*
123+*
3 ABEND AT TERMINATION
COMMUNICATIONS
124+*
40ISCONNECT ALL LINES
COMMUNICATIONS
725+*
5 All OUTPUT SENT
COMMUNICATIONS
126+*
6 SYSTEM CLOSE DOWN
CHECKPOINT
127+*
7 FINAL ENTRY CONTROL
CHECKPOINT
129+SCDCKDBN OS
730+SCDCKOB DC
731+SCDlOGN OS

3/27/72

OCLI # OF ENTERED DATABASE NAMES FOR RECOVERY
A(O) POI~TER TO POOL CONTAINING DATABASE NAMES
OCll COUNT OF RESTART SERIAL NUMBERS

5.49

*
*

STMT

SOURCE STATEMENT

732+SCDLOG
733+SCDCLIPN
734+SCDeLOPN
735+SCDCPCOl
736+SCDCHKEP
737+SCDRSTEP
7.38+SCDCHKEB
739+SCDRSTEE
740+SCDDBTBL
741+
STMT
743+*
744+*
745+*
746+*
741+*

DC
DC
De
DC
OS
DC
DS
De
DC
DC

* * * * * * "* * * * * * * * * *

*** ** ***

DC
DC
DC
DC
DC
De
DC
DC
DC
DC
DC
EQU
EQU
762+SCD~SMfT EQU
763+SCDPSPCP EQU
764+SCDIMSR EQU
765+SCDIMSL EQU
166+
DC

5.50

* *

S TAR T / S T o P

749+SCOREGOP
750+SCDREGCl
751+SCDCMDCT
752+SCDREGST
753+SCDREGCT
754+SCDSRDR
755+seDSRMBR
756+seDSMMBR
757+SCDSINIT
758+SCDPINIT
759+
760+SCDPSYS
761+SCDPSMVT

3/27/72

F150CT70

3/27/72

A(O) POINTER TO POOL CONTAINING SERIAL NUM-BERS
H'ODOO' INPUT TERMINAL ACTIVE COUNT
H'ooao' CUTPUT TERMINAL ACTIVE COUNT
AIO) SeRtTcH PAD AREA LOG ROUTINE ENTRY POINT
OF
V(DFSRSTCO) RESTART ROUTINE ENTRY POINT ADDRESS
OF
V(DFSRTECB) RESTART ECB ADDRESS
A(O) RESTART DATABASE NAME TABLE
4F'O'

SOURCE STATEMENT

*****

F150CT70

*

R E G

0

N

* * * * * * * *
S E C T 1 o N :

* *

*

*
**
*

* * * '* * * * * * * * * * * * * * * * * * * * * * *

Ala) ECB TO OPEN REGION
AIO) EeB TO CLOSE REGION
X'OO' # CF START/STOP REGION COMMANDS ISSUED
X'OO' # CF PENDING STOP COMMANDS
H'OOOO' COUNT OF OPEN REGIONS
A(SCDPROC1) ADDRESS OF START READER COMMAND
A(SCDPROC2) ADDRESS OF MEMBER FIELD IN START READER
A(SCDPROC3) ADDRESS OF MSG REG PROC MEMBER NAME
A{SCDPRO(4) ADDRESS OF START INITIATOR COMMAND
A(SCDPROC5) ADDRESS OF STOP INITIATOR COM~AND
2F'0 I
SSCDOSPS PROGRAMMING SYSTEM OPTION BYTE FROM CVT
X'lO' VALUE IF MVT
X'20' VALUE IF MFT-II
X'40' YAlUE IF PCP
SSCDIMSR IMS RELEASE NUMBER
SSCDIMSL IMS MOO LEVEL
2F ' O' RESERVED FOR SYSTEM EXPANSION

STMT

F150CT70

SOURCE STATEMENT

3/27/72

*

768+* * * * * * * * * * * * * * * * * * * * * * * * * * * *
* * * * * * *
769+*
*
SEC T
COM MAN D
o N
770+*
771+*
772+*
*
*** t\OTE ***
THE COMMAND SECTION MUST RESIDE LAST
773+*
*
IN THE SYSTEM CONTENTS DIRECTORY SINCE
774+*
*
THE COMMANDS ARE VARIABLE IN LENGTH.
775+*
*
776+*
*
ANY ADDITION TO THE SCD
777+*
*
MUST PRECEDE THIS SECTION.
778+*
*
779+*
*
780+* * * * * * * * * * * * * * * * * * * * * * * * * * * * ~ * * * * * * *

*
*

782+SCDPROC1
783+
784+
785+
786+IHB0005
787+SCDPROC2
788+SCOPROC3
789+
790+SCDPROC4
791+
792+
793+
794+IHB0006
795+SCDPROC5
796+
797+
798+
799+IHB0007
800+
802
803
804

805

OS
DC
DC
DC
EQU
OS
DC
DC
OS
DC
DC
DC
EQU
OS
DC
DC
DC
EQU
OS

OF
AL2(IHBOC05-*) MESSAGE LENGTH
B'OOOOOOCOOOOOOOOO' MCSFLAGS FIELD
C·S IMSRCR,MBR=' MESSAGE

*

CL9 MEMBER NAME FIELD OF START READER COMMAND
ALl(6) LENGTH IN SYTES OF PROC MEMBER NAMt
C' IMSMSG' MSG PROC MEMBER NAME
OF
AL2(IHBOC06-*) MESSAGE LENGTH
S'OOOOOOCOOOOOOOOO' MCSFLAGS FIELD
CIS INI~.ClASSS",(S,A) , MESSAGE

*

OF
ALZ(IHSOC07-*) MESSAGE LENGTH
S'OOOOOOCOOOOOOOOO' MCSFLAGS FIELD
C'P ClASSB' MESSAGE

*

4F
*t****************************************************
*,*
IMS/360 SYSTEM
*.*
VERSION 2
RELEASE 2
MOO LEVEL 0
*
*,****************************************************

lAPS SMSBASE=C
807
808+***********************************************************************
809+*
*
810+*
APPLICATION PRCGRAM SCHEDULER DUMMY SECTIONS
*
811+*
*
812+~**********************************************************************

813+*
814+*
815+*
816+***********************************************************************
817+*
*
818+*
5MB
*
819+*
*

5 .. 51

STMT

SOURCE STATEMENT

F 150CT70

820+************************************* **********************************
821+SMB
DSECT
822+SMBQEBP OS
A BACKWARD POINTER
823+SMBQEfP OS
A FORWARD POINTER
824+SMBQCBOQ OS
A DRRN OF NEXT MESSAGE TO READ
825+SMBQCBEQ OS
A ORRN OF lAST MESSAGE WRITTEN
827+SMBQFlGI
828+*
829+*
830+*
831+*
832+*
833+*
834+*

OS
EQU
EQU
EQU
EQU
EQU
EQU
EQU

C 5MB QU EUE FLAG 1
QUEUE READ IN PROCESS
X' 80 •
QUEUE 1 HAS MESSAGE ENQUEUED
X' 40'
QUEUE 2 HAS MESSAGE ENQUEUED
X' 20'
QUEUE 3 HAS MESSAGE ENQUEUED
X' 10 '
QUEUE 4 HAS MESSAGE ENQUEUED
X' 08 '
MESSAGE EXISTS IN BACKUP QUEUE
X'04'
QCBDQ POINTS TO QUEUE BLOCK RECORD
X'02'

836+SMBQFLG2
837+*
838+*
839+*
840+*
841+*

OS
EQU
EQU
EQU
EQU
EQU

C 5MB QUEUE FLAG 2
THIS DESTINATION IS PERMANENT
X' 80'
AVERAGE LENGTH IS AVAILABLE
X' 40'
ENQIOEQ COUNT IS AVAILABLE
X' 20 •
X' 10',
NAME FIELD EXISTS
DESTINATION TYPE 0 THRU l~
X'OF'

843+SM8QAVGL
844+SMBDQCT
845+SMBNQCT
846+*
847+SMBTRNCD
848+SM8STATS

OS
OS
OS
DC
DC

H AVERAGE MESSAGE LENGTH FOR DESTINATION
H NUMBER OF MESSAGES DEQUEUED
H NUMBER OF MESSAGES ENQUEUED
NOTE: 5MBNQCT-SMBDQCT=OlD 5MBNQCT FIELD
0'0' 5MB TRANSACTION CODE
X'OO' 5MB STATUS BYTE

850+SMBFLAGl
851+SMBICONV
852+SMBIUPP
853+SMBICSPA
854+SMBIINIT
855+SMBAGE
856+SMBENQ
857+SMBPST

OS
EQU
EQU
EQU
EQU
EQU
EQU
EQU

C 5MB
X'80'
X'40'
X'20'
X'08'
X'04'
X'02'
X'OI'

859+
860+

OS
OS

C RESERVED FOR FUTURE USE - 3270 FORMAT
C RESERVED FOR FUTURE USE - 3270 FORMAT

862+SMBQCBPR
863+SMBSLTE
864+SMBPRIOR
865+SMBCLASS
866+SMBCTMP
867+SMBCPMP
868+SMBSPAL
869+ 5MBLMTC T
870+SMBCOUNT
81l+SMBTIME
872+SMBTQE
873+SMBPSBDP

OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS

C 5MB CURRENT PRIORITY
C USER ECIT ROUTINE NUMBER
C LIMIT AND NORMAL PRIORITY
C 5MB MESSAGE CLASS FO~ SCHEDULING
CL2 COMMUNICATION TERMINAL MATRIX PTR (REL)
Cl2 COMMUNICATION PASSWORD MATRIX PTR (REL)
H LENG TH OF SPA
H ENQUEUED LIMIT COUNT
H PROCESSING LIMIT COUNT
H TI ME SLICE
H RELATIVE TQE POINTER
CL2 PSB CIRECTORY POINTER (RELATIVE)

5.52

FLAG 1
CONVERSATIONAL 5MB
UPPER CASE TRANSLATION REQUESTED
INCORE SPA REQUEST
INIT PGM BFRS WITH EACH NEW MESSAGE
5MB IS AN AGING 5MB
5MB IS ENQUEUED ON TCT
5MB IS ENQUEUED ON PST

3/27/72

USER EDIT ROUTINE INCLUSION DURING SYSTEM DEFINITION.
All user-supplied edit routines should be placed in the OS
partitioned data set defined by the USERLIB= operand of the IMSGEN
macro-instruction of IMS/360 system definition.
This must be performed
prior to execution of IMS/360 system definition stage 2.
If the user
does not specify a value for the. USERLIB= operand, IMS/360 system
definition assumes the IMS2.RESLIB data set contains any user-defined
edit routines.
System definition will attempt to obtain any
user-specified edit routines from the specified library during Stage
2 of execution and link edit them as part of the IMS/360 control program
nucleus.
The names of the edit routines specified to IMS/360 system
definition should be the same as the CSECT and load module names for
the edit routine modules in the library specified by USERLIB=.
The
message switch edit routine must have a CSECT and load module name of
DFSCNTEO.

Since a 1030 terminal can not always check for erroneous input data
and normally can not specify input message destination, IMS/360 requires
that an edit routine be defined at system definition time for input
from 1030 terminals.
Only one routine may be defined.
This routine
is invoked for each input message entered from a 1031 or 1035 to enable
the user to verify the validity of his data and define message
destination.
A minimum validity check would be for the length of the
message.
The routine should also insert the IMS/360 transaction code,
logical terminal name, or command verb at the beginning of the message
to define destination.
This user-supplied edit routine gains control
before any IMS/360 security checking, validity checking, or editing
functions are performed.
The message text has previously been converted
to EBCDIC.
The 1030 edit routine may look at the IMS/360 blocks, but may not
change them.
If the message is valid, the .edit routine should insert
a valid IMS/360 transaction code and return a return code of zero in
Register 15.
Register 2 must contain the final edited message length
and the message must be placed in the buffer, beginning at the address
specified in Register 1, at entry to the edit routine.
If the length
returned in Register 2 is zero, no IMS/360 processing is performed.
In the 1030 edit routine, the user may write his messages to a QSAM
file rather than process them through IMS/360.
If this is done, a
length of zero must be returned to IMS/360 in Register 2.
In addition,
the user must define and provide access to the QSAM data set.
The
user should provide restart capabilities for such data sPts himsplf,
as IMS/360 is not aware of their existence. If a length of zero is
returned to IMS/360, the message is not placed on the IMS/360 system
log.
Multiple output buffers should be used for QSAM files to prevent
Operating System waits which degrade IMS/360 performance.
If the message is invalid, the edit routine should return a return
code of 4 in Register 15. This prevents a positive acknowledge by
IMS/360 to the terminal and causes the Repeat light to be set on.
Any return code except 0 or 4 causes the input terminal to be made
inoperable.
An error message is also generated and sent to the IMS/360
master ter~inal.

5.53

Interface to user edit routine:
CSECT name:

DFS10300

Registers at entry:

o

Buffer length in binary.
The resultant
edited message cannot exceed this size.
Buffer address:
The edited message text
must start at this address.

2

Message length:
This length includes the
leading 10 bytes described later under
buffer interface~

7

communication Terminal Block

8

Communication Translate Table (CTT)

11

System Contents Directory

13

Save area address.
The first three words
in the save area may not be changed.

14

Ret urn address

15

Entry point address to edit routine

(CTB address
address

(SCD) address

Registers at exit:
2

Edited message length (the message must
start in the address given in Register 1
a t entry)

'13

Save area address
entry)

15

Return code

(must be the same as at

Message buffer format and content at entry:
Byte
IMS/360 communication line number

1!Q~§L;.

2

Relative terminal address (terminals are
numbered from 1 on each line)

3-10

blr..nks

11-n

message; n equals value in Register 2

Buffer content, beyond the definition above, is unpredictable,
since the buffer area following the message is not initialized.
Buffer at exit:
Byte
1-n

5.54

message; n equals value in Register 2

The user-supplied 1030 edit routine should be placed in the operating
system partitioned data set cefined by the USERLIB= operand of the
IMSGEN macro-instruction under the member name DFS10300.
This should
be performed prior to execution of IMS/360 system definition stage 2.
If the us~r does not specify a data set name for the USERLIB= parameter,
the IMS2.RESLIB is assumed to contain the 1030 edit routine named or
defined in system definition.
System definition will attempt to obtain
the user-defined edit routine from the specified library during system
definition Stage 2 and link edit it into the IMS/360 online control
program nucleus.
The 1030 edit routine must exist as a load module
under the name DFS10300 and must have the CSECT name of DFS1030C.

DFS10300 illustrates the functions that are to be performed by the
user's own 1030 edit routine.
DFS10300 was written to test the 1030
support in IMS/360, and is tailored for the test installation.
~he
concept should be modified to the user's needs and environment.
IMS/360 1030 TEST INSTALLATION ENVIRONMENT
communication

1ing_!

Physical
Tg£mi!!~l_!

12

1031 + 2 1035s

12

2

13

1031
1031

13

2

1033

All 1031s have a card reader, a badge reader, and a manual entry
unit.
The 1031 transaction code has the same meaning on all 1031s.
All badge readers read 10 columns, and all manual entry units read 12
columns.
DFS10300 is capable of blocking "badge" input from one of the 1031s,
an d of creating a QSAM data set of "badge" input from another.
Most·
1030 input is prefixed with a transaction code and passed on to IMS/360
for processing.
A special switch card is used to start and stop
blocking and to open and close the QSAM data set.
1031 Card Column
I~~n§~£~iQn_~Qgg

card reader, badge reader, manual
entry ~lnit
2

card reader, badge reader

3

card reader, manual entry unit

4

card reader

6

badge reader

;

manual entry unit

Other values of the transaction code are invalid.

5.55

CARD FORMATS
Two cara formats are used in the system. One is transaction input,
and the, other is a switch card to control the QSAM data set and the
blocking of "badge" input.

~l:ansaction

Code

2-4

Length of card input data

5-80

Data

Must be "4"
2

Switch character

3

End of card character

Valid switch characters are:

o

Open the, QSAM data set and send "badge" input from the 1031 on
Line 13 to the QSAM data set.

C

Close the QSAM data set.

B

start blocking "badge" input from Line 12 terminal 1.

P

stop blocking "badge" input

All input is checked for both valid 1030 card column 1 transaction
code and correct length. If an error is encountered, the edit routine
returns to IMS/360 with a return code of 4. This causes IMS/360 to
continue operations on the inputting line without sending a positive
acknowledgment to the terminal. ,The Repeat light of the terminal is
turned on.
DATA INPUT

Line 12 terminal 2:

A transaction code is added and the message is
returned to IMS/360 for processing.

Line 12 terminal 1:

If blocking is not requested, a transaction
code is added and the message is returned to
IMS/360 for processing.
If blocking is
requested, the message is moved to a blocking
buffer within the edit routine.
If the buffer
thereby gets filled, the contents of the buffer
are moved to the I/O buffer area, a transaction
code is added, and the entire block is passed
to IMS/360 for processing.
If the buffer did
not get,filled, control is returned to IMS/360
with a zero return code and a zero length in
Register 2. This indicates to I~S/360 that the
edit routine has taken control of the message

5.56

and IMS/360 continues processing on the inputting
line with a positive acknowledgment.
Line 13 terminal 1:

If the QSAM file is closed, a transaction code
is added and the message is returned to IMS/360.
If the QSAM file is open, the message is written
to the QSAM file and control is returned to
IMS/360 with a zero return code and a zero
length.
positive acknowledgment is made to the
terminal.
No message is processed by IMS/360.

A transaction code is added, and the inputting communication line
and terminal number are appended.
The message is thereafter returned
to IMS/360 for processing.

A transaction code is added, and the message is returned to IMS/360
for processing.

The requested action is taken and control is returned to IMS/360
with a zero return code and a zero length.

The flowchart for the sample problem follows.
The pages following the flowchart show the output
preceding sample problem.

recaiv~d

from the

5.57

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

110

•
'.

•
•

FNT~Y

!1f'>,1)100

Al

...

• I,INI:

•

·,m

•----'--------)*••

lI'j')
•
U""INAI, NilS.
VlllllJ?

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

..............•
RETURN RC.~

~

..

,

112

·

TPAN5 ACT IO"l
• ConE S 1 - 3?

•

• YES

.

•

-

82
·NO

·"l2
.--.----------)

•

TRANSACIIO.. • .---.:.-• .:.--~--)
COOE ? • ,.

•

•

C2

r

•YES•

TR6

•

C3

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

.• .

• N~

:
:
. . -- .. -------.-.>:INVA~A~F tllAN :

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

TR~~~~CHON

•

·

.

TRl;: .... ~ ...... .

A4

TRio

• S£T UP flAIlr.r: •
• LOTH 'r. 'UN • •
• ENrRY U'IIT •

•

•

V

B\fTSWI

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

SIIITCH CARD?

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

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

•

INPUT,

•

r

• .>• .0••

85

·······/:::::::------------:=i·······
. .
••••••••••••••• •

PACI(
•

v

0

CAPO

A6

GTH

NIJ:04ER\r. (,'
004-160?

.",~

86

. . ·0 •

0--------.86.>.
• ••

••

•

• YFS

I

~

A7

·NO

• .) 136...

CO/4PIlTF.O LGTl4

• - INPUT lGTH? •

•

•

..••••••..

•

['"

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

AR

~

• AflO 1'451160 •
• TRA~ CODE C. •
• NL CHU TO

•

•

•

'4'5G

...............
v

...............
P.fTllP.r.t RC.n

5.58

41

•
••••••••••••••• •
RETURN Re-4

F'
•

·"'2

••••••••¥••••••••
.------------)•

VALID?

['"

·:•••••••••••••••:

...
• ""PENO INPUT.

.ONLY IN!OUT (, •

:1• M~n~~COO WA~ :•

•

•

•

.INOICATE CARD.

•
POINT TO
•
.IH5/160 TRII"I •
•
COilE.
•

•

INPUt (OTH

• : •• l·

•

v

•

T117

.VES ••••

·••••••••••••••
•

~'~ET~ ~1~"

...

v
•:.•••••••••••••••
•
HS'~~SRJRA .. :

: C0F.AA&

N",

:

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

!

C7

•••••••••••••• •
RF.TURN RC-O
•
•••••••••••••••

·

IUTURN IIC-4

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

•
•

TRb

•••

• •.
·.0
••••
•

•

•

•

AO
••
• ~VES

•

·•

..

, 1 NF 12

TERHl~~l

*---------~--)

•

..
••

•

TRh2

l1

•
•• ••

• NO

I
•• •
V

•
• •• LH!GTH
• . ..

IIlO

•
"'YES
• LENGTH
VALl!)? •
••
• .-------------------~--------------------------------•• •••
• NO

A1

" ..

'31

v

~u

•
• *------------)..
>k

VAllO?

.. •

•••••••••••••••• •
RETURN HC=4
•
............... •
~

•
,. Y!:S

I

V
• ••
•
•

.

A2

82

C2
• ••
•
••••••••••••••••••
*YES
.YES
•
• .-------------)• WR lTE
•
F Il E
ON
• •• LINE l3.1 • ~---------~--)
Ae TI VE?
QSM-tFILE
•
•
•
•
••
•
•
••
••••••••••••••••••
• ,. •N[J•
•• •
••••
• NO
- 05*
----------)*
••••
•

.

4'

I
V

••

.

·

·NIl

~I!j

.. • '"

~SG

43

•
• .)••••
nlOCr.1
• •• .. REQ'JESJ!:1'1
.. '" 0.,·••

•

QSA~

•••

••

V
•••••••••••••••••••

••

•

•

•

.C3.-~).

•

~[T

UP Tn.

C3

•

••• •

RFfURN lGTH .---) 06.
OF ZF.Rn

•

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

•

•••

•

YES

1

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

!4

•• MOVF. MSG TO •..
t)laCKIN(j
BtlFHR
••..................
....
:0<

..

V

••
ilNO

AS

v
................
••
• •••
• * t"lSFIH

'"
.. •••
'" SLOtKIN';
•
• .. tlllEO? .. "')•• C3.••
'"
•• •••
• YES
~UFFFI(

....

.05.--).tHS/1~Q

•

·

.HOVE

RlOC~'NG.

•
•

TR~~

CQOE & "iL
CHA~

•

•
•

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

·••..•• •••••••••••••• •.

.. *•• •

• RUfFE~ .TO 1/0*---)
•
A~eA
....

•••••••••••••••,.

•

D6

V

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

••

D5

•

...
D~.

.06.)*

•••

.

5.59

v

RETURN Rr.=O

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

•

••

SfTSloi.

•

••

•••
•_ •
• • SwiTCH
-An"
•
ZERO?
•••
••
• ••

COO~

.

r"

• •
•
•

. • •SWITCH

-• • • • ·

.........••........
.•............
*•
..•
• •• SET
•• ••
•
• • •• •• seT UP TO ••
. . ..-.:------>.• O"FN~S"'"
.:-:,---------------.)*
FlU-ACTIVe • • ---------*00.--). RETUR~ ZERO.
FILE"
•
...
• •
•
•
..•......
.......••............
.............•
~..............

.

• YF.S

•

•

SWlT'=H r.OOE

k1

••
• • ..NO•

.

•

lENGT~

00

.

C1

••••••••••••••••
•••••••••••••••••••
••
,... • ••
•
..
• • RFSFT
--....
•
.-------)*• CllJSE
QSA.. .----------------*>. FJl E-hC T IVF • • -> 00.
File.
... swnr.H
••• •
QSA~

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

I

• ••

~.....

..

• NO

v
••
•
••

..

.

O~AM

.SWITC~

Al

",\li)(

C?

•

.
....

co

f)0

~O

• .YE~
•

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

f
~*..

•

•

••

• ••

......••. •••
·•••••••••••••••••••.. ...
.....•.....

•• •.SET
. .-.-----.).*

eyeS

••

••
..

I..

~

AlnCKI~G

qFQUc:'i T Ell

SWI TCIf

..

• ...
•
• 0-) DO.
• ••
•

.

C3
R3
A3
.. •
•
••••••••••••••••••
•
•
•
..• •
*YES
.. • BLOCK ·YFS• .>••••DO·•
• •
RESET
••
CLIIlE • .------*>* Rl~CKING
... -------------> •
.. •
• •
•
• • "1
.... *REQ'D
..
..
••• •
•
•
••••••••••••••••••
•.
•
•• ••
• NO

••

-

v

.

swITC~

i

I

• SWITCH CnOf
•
I NVl\ll'l
•

"'

115

v
................

••
••••••••••••••• •
rc.ETUI(N RC=4

C4

04

••••••••••••••••
MOVE
• ••••••••••••••• .
*•
RETURN R('=O
•
BUFFEK TO .--------------->.
••
• INPUT AREA •
..
•••••••••••••••
•••••••••••••••••

•..

'••"

5.60

E~PTY?

v

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

..

I~m

~UFFER

N~

v
..... *••••••••••

•

S~ITCH

.
.

BL~tN~

v

SAMPLE EDIT ROUTINE LISTING
The following pages are the assembler output from the preceding
sample problem.

EDIT
TITLE 'DFSI0300, 1030 SAMPLE EDIT ROUTINE.'
DFSI0300 CSECT
PRINT NOGEN
SAVE (14,12) "DFSI0300'
USING MSGBUF,R1
USING DFSI030a,R12
LR
R12,R15
CLI
MSGLINE,12
BE
CHTERM2
BRANCH IF INPUT FROM LINE 12
CLI
MSGLINE,13
BE
CHTERM1
BRANCH IF INPUT FROM LINE 13
RC4
RETURN (14,12) ,RC=4
CHTERM1 CLI
MSGTERM,1
BE
OKTERM
BRANCH IF INPUT FROM TERMINAL #
ON THE LINE
CHTERM.2 CLI
MSGTERM,2
BNE
RC4 BRANCH IF INPUT NOT FROM TERMINAL # 2 ON THE LINE
OKTERM
CLI
MSGTRAN,C'1'
BL
RC4
BRANCH IF INVALID 1030 TRANSACTION CODE
BE
TR1
BRANCH IF 1030 TRANSACTION CODE IS 1
~1SGTRAN, C' 3'
CLI
BL
TR2
BRANCH IF 1030 TRANSACTION CODE IS 2
BE
TR3
BRANCH IF 1030 TRANSACTION CODE IS 3
CLI
MSGTRAN,C'5'
BL
TR4
BRANCH IF 1030 TRANSACTION CODE IS 4
BE
RC4
BRANCH IF INVALID 1030 TRANSACTION CODE
CLI
MSGTRAN,C'7'
BL
TR6
BRANCH IF 1030 TRANSACTION CODE IS 6
BH
RC4
BRANCH IF INVALID 1030 TRANSACTION CODE
CH
R2,=H'23' MANUAL ENTRY INPUT 13 BYTES; OVERHEAD 10 BYTES
BNE
RC4
BRANCH IF INVALID LENGTH
MVC
MSGTRAN+13(24},=C' FROM LINE 12 TERMINAL 2'
CLI
MSGLINE,12
BE
TR7A
BRANCH IF LINE 12
MVI
MSGTRAN+25,C'3' CHANGE TO LINE 13
CLI
MSGTERM,2
BE
TR7A
BRANCH IF TERMINAL 2
MVI
MSGTRAN+36,C'1' CHANGE TO TERMINAL 1
TR7A
LA
R2,24(,R2)
INCREASE LENGTH TO INCLUDE ADDED DATA
MVC
t.1SGLINE(6) ,=C'T1033B' INSERT TRANSACTION CODE
RETURN
AR
R1,R2
INSERT NEW LINE
MVI
0(R1) ,X'15'
CHARACTER
LA
R2, 1 ( , R2)
INCREASE LENGTH TO INCLUDE NEW LINE CHAR.
RCO
L
R14,12(R13)
LOAD RETURN ADDRESS
RETURN (3,12),RC=0
EJECT
TR1
LA
R5,22
CARD & BADGE & MANUAL ENTRY INPUT
R6,R6
POINT TO TRANSACTION CODE
SR
B
PACK
TR2
LA
R5,10
CARD & BADGE INPUT
LA
R6,8
POINT TO TRANSACTION CODE
B
PACK
TR3
LA
R5,12
CARD & MANUAL ENTRY INPUT
LA
R6,16
POINT TO TRANSACTION CODE
B
PACK

5.61

TR4

PACK
PACK1

R2,=H'12'
SETSWI
BRANCH IF BLOCKING SWITCH CARD
CARD ONLY INPUT
RS,R5
R6,24
POINT TO TRANSACTION CODE
R3,MSGCARDL
POINT TO THE LENGTH FIELD IN THE MESSAGE
R4,3
SET UP THE LENGTH OF THE LENGTH FIELD
O(R3),C'O'
BRANCH IF NON NUMERIC LENGTH FIELD
RC4
O(R3),C'9'
RC4
BRANCH IF NON NUMERIC LENGTH FIELD
R3,1 (,R3)
POINT TO THE NEXT BYTE IN THE LENGTH
R4,PACK1 BRANCH IF THE LENGTH IS NOT COMPLETELY TESTED
MSGCARDL,=C'004'
RC4
BRANCH IF THE LENGTH OF THE CARD IS TOO SHORT
MSGCARDL,=C'160'
RC4
BRANCH IF THE LENGTH OF THE CARD IS TOO LONG
DBLWORD,MSGCARDL CONVERT THE LENGTH OF THE CARD
R3',DBLWORD
TO BINARY
R3,10(RS,R3)
INCLUDE LEADING OVERHEAD & BADGE & MANUAL
R2,R3
RC4
BRANCH IF INVALID LENGTH
R6,TRANCODE(R6) POINT TO TRANSACTION CODE
MSGLINE(L'TRANCODE) ,O(R6) INSERT TRANSACTION CODE
RETURN

CH
BE
SR
LA
LA
LA
CLI
BL
CLI
BH
LA
BCT
CLC
BL
CLC
BH
PACK
CVB
LA
CR
BNE
LA
MVC
B

TR6

EJECT
CLC
BNE
CH
BE
CH
BE
CH
BNE
MVC
I

TR61

B

TR62

CH
BNE
CLI'
BE
TM
BZ
LA
LH
AR
MVC
MVI
LA
STH
SR
CH
BNE
STH
MVC
LA

TR63

TM
BZ
LA
PUT
SR

B

B

.EJECT

5.62

MSGLTNE(2),=X'OD02'
TR62
BRANCH IF NOT LINE 13 TERMINAL 2
R2,=H'22'
BRANCH IF
TR61
BADGE
R2,=H'33'
TR61
BRANCH IF 2 BADGES
R2,=H'44'
RC4
BRANCH IF NOT 3 BADGES
MSGLINE(6) ,=C'MASTER' INSERT TRANSACTION CODE
RETURN
R2,=H'21'
BRANCH IF INVALID LENGTH
RC4
MSGLINE,12
TR63
BRANCH IF INPUT FROM LINE 12
SWITCH,SWBLOCK
TR61
BRANCH IF BLOCKING NOT REQUESTED
R3,BLKBUF
POINT TO BLOCKING BUFFER
R4,BLKOFF
LOAD OFFSET TO NEXT. BUFFER POSITION
R3,R4
POINT TO NEXT BUFFER POSITION
O(10,R3) ,MSGTRAN+1 MOVE INPUT MSG TO BLOCKING BUFFER
10(R3),C','
INSERT SEPARATOR
R4,11 (,R4)
UPDATE OFFSET
R4,BLKOFF
STORE OFFSET
R2,R2
SET LENGTH FOR NON-DATA RETURN
R4,=H'88'
RCO
BRANCH IF BLOCKING' BUFFER NOT FILLED
R2,BLKOFF
MAKE OFFSET ZERO
MSGTRAN(88),BLKBUF MOVE BLOCKED MSGS TO INPUT BUFFER
R2,98
SET UP MESSAGE LENGTH
TR61
SWITCH,SWQSAM
TR61
BRANCH IF QSAM FILE NOT ACTIVE
R3,MSGTRAN
POINT TO MESSAGE
QSAMFILE, (R3) WRITE QSAM FILE
R2,R2
SET LENGTH FOR NON-DATA RETURN
RCO

CLI
MSGTRAN+1,C'O'
BRANCH IF ACTIVATION OF QSAM FILE
BE
OPEN
CLI
MSGTRAN+1,C'C'
BRANCH IF DEACTIVATION OF QSAM FILE
BE
CLOSE
CLI
MSGTRAN+1,C'B'
BRANCH IF START BLOCKING
BE
BLOCK
CLI
MSGTRAN+1,C'P'
BRANCH IF STOP BLOCKING
BE
PURGE
CLI
MSGTRAN+1,C'I'
BNE
RC4
BRANCH IF INVALID SWITCH CODE
RETURN (14,12) ,RC=8 GIVE INVALID RETURN CODE
OPEN (QSAMFILE,OUTPUT)
OPEN
OI
SWITCH,SWQSAM INDICATE ACTIVE QSAM FILE
SRR2,R2
SET LENGTH FOR NON-DATA RETURN
SWRET
B
RCO
CLOSE
CLOSE (QSAMFILE)
NI
SWITCH,X'FF'-SWQSAM INDICATE NON-ACTIVE QSAM FILE
B
SWRET
OI
SWITCH,SWBLOCK INDICATE BLOCKING REQUESTED
BLOCK
B
SWRET
NI
SWITCH,X'FF'-SWBLOCK INDICATE BLOCKING NOT REQUESTED
PURGE
LH
R3,BLKOFF
LOAD LENGTH OF BLOCKED MSGS
LTR
R3,R3
BRANCH IF NO MSGS BLOCKED
BZ
SWRET
EX
R3,MVC
MOVE BLOCKED MSGS TO INPUT BUFFER
LA
R2 , 1 0 ( , R3 )
SET UP MSG LENGTH
B
TR61
MVC
MSGTRAN(O),BLKBUF
HVC
EJECT
RO
EQU
o
R1
EQU
1
EQU
2
R2
EQU
3
R3
EQU
R4
4
EQU
R5
5
EQU
R6
6
R7
EQU
7
EQU
8
R8
R9
EQU
9
R10
10
EQU
R11
EQU
11
R12
EQU
12
13
R13
EQU
14
EQU
R14
15
EQU
R15
X' 00'
DC
SWITCH
BLOCKING .REQUESTED
x'80'
SWBLOCK EQU
QSAM FILE ACTIVE
X'40'
EQU
SWQSAM
DBLWORD DS
D
WORK AREA FOR CONVERT TO BINARY
TRANCODE DC
C'ERNE
C'MODEL2
DC
DC
C'L2740SM1'
DC
C'L2740S2 '
BLKOFF
H'O'
DC
CL88' ,
BLKBUF
DC
BUFNO=4,DDNAME=QSAM1030,DSORG=PS,LRECL=11,MACRF=(PM) ,
QSAMFILE DCB
RECFM=FB
INPUT BUFFER DSECT
*
MSGBUF
DSECT
LINE NUMBER
MSGLINE DS
C
TERMINAL NUMBER
MSGTERM DS
C
BLANKS
DS
CL8
1030 TRANSACTION CODE
MSGTRAN DS
C
LENGTH OF CARD-INPUT
MSGCARDL DS
CL3
END
SETSWI

/*
5.63

C

Since the 7770-3 is a switched device and the calling terminal may
not have the capability to generate the alphameric characters required
to form a /IAM command to sign on for LTERM, IMS/360 requires that a
signon routine be defined at system definition time for the 7770-3
lines in the system.
This routine is invoked by the 7770-3
device-dependent module- any time an input message or message segment
is received from the line and a logical connection does not exist.
Only one routine may be defined, and it applies to all 7770-3 lines
in the system.
A minimum user routine should validity check the input
data received from the line and use ·the data to develop a /IAM command
to be passed on to IMS/360. The user routine gains control before any
IMS/360 security checking, validity checking, or editing functions are
performed.
The message text is in EDCDIC.
The signon routine may build a /IAM command in the input buffer or
may place a ~esponse message in the input buffer.
Any response to be
sent back to the caller must be in 7770-3 output vocabulary drum address
form.
Through return codes to the device module, the signon routine may
cause the contents of the input buffer to be passed on into the system
(/IAM command in buffer) or cause the contents of the buffer to be
sent to the caller followed by a read to allow retry, or this routine
may cause the contents of the input buffer to be sent to the caller
with a reset to the line to disconnect the caller after the response
is sent.

REGISTERS

R1

Address of input data received from line

R2

Length of input data

R7

CTB address

R8

CTT address

R9

CLB address

R 11

SCD address

R13

Save area address.
The first three words
in the save area may not be changed.

R14-R15

Standard OS linkage registers
The save area chain fields for the save
area pointed to by R13 on entry mY§i n~~
be modified.

Data Format
See Fiqure 10A for the data format at entry and R1 and R2
relationship to the data.

5.64

All registers must be restored except RO, R1, R2, and R15.
The contents of RO and Rl are ignored by the device-dependent routine.
R2

Kust contain the count of data now in the input
buffer area that was pointed to by R1 on entry.

R15

contains the return code.

RETURN CODES

00

continue input processing with the contents of the input
buffer.

04

Send the contents of the input buffer to the caller,
followed by a read. Allows retry of signon operation.

08

Send the contents of the input buffer to the caller,
followeq by a disable to disconnect the caller.
For return codes 04 and 08, the contents of the input
buffer to be sent to the caller must be in drum address
form, as no tr·anslation will be performed before the
data is sent to the caller. It is also the user's
responsibility to determine when a sequence of signon
attempts should be terminated with a reset operation.

ERROR CONDITIONS

The line will be stopped and a message generated to the master
terminal for either of the following signon routine error conditions:
1.

The return code from the signon routine exceeds 8.

2.

The count value returned in R2 is greater than the available
space in the buffer.

I

REGISTER 1

I
J

~

l.....ao....

I REGISTER 2
Figure lOA.

LINE
NUMBER

I

9 BLANKS

I

INPUT DATA

I
J

7770-3 Input data format for signon exit module interface

5.65

777Q=1 ~I.Ql!Ql! !;ll! .RQ.!l!IN! Il!£1!!~IQH Illll!IN~ ~nll ~"t1!!!Ql!

A usable signon routine is supplied with the system in IHS2.LOAD.
This routine automatically signs the caller on for the INQUIRY LTERH
whenever the 7770-3 answers a call and receives data. As supplied,
this routine is transparent to the caller. If the supplied module
is to be used, it is the user's responsibility to move the module from
IHS2.LOAD to the user library specified in the IHSGEN statement before
stage 2 of system definition is executed.

For .further information on the IHS/360-supplied signon routine,
see the IHS/360 ~Y§te~ ~Anual, Volume I, (LYBO-0629) Description of
Module DPSS7770. The source listing follows for reference.

2
3
4
5

6
7
8

***********************************************************************
*
*********************** 7770 AUTOMATIC INQUIRY ************************
***********************
SIGN-ON MO'OULE
************************

*
*
*
*
•
*
*
*
*

*
*

*
*
*
*

*
*
*
*

*
*
*
*
*
*

5.66

3/27/72

*

9
10
11
12
13
14
15
16 *
17 *
18
19.
20 •
21 •
22.
23
24 •
25 •
26
27
28
29 *
30 *
11
32
33
34
35 •
36
37
38
39 •
40
41
42
43 *
44 *
4~

F 150CT70

SOURCE STATEMENT

STMT

*
*
*
*
THIS MODULE SETS THE PROPER FLAGS AND FIELDS TO INDICATE THAT THE *
TERMINAL IS SIGNED O~ FOR THE INQUIRY LOGICAL TfR~INAL.
*
*
BLOCKS AND TABLES:
*
*
THIS MODULE USES THE CLB, CT3. AND THE CNT
*
THIS MODULE RECEIVES ACCESS TO THE INPUT DATA,
*
CTB, CTT, CLB, CNT, AND THE SCD.
*
SIZE OF MODULE:
*
THIS MODULE CONTAINS APPROXIMATELY 54 BYTES OF
*
CODE.
*
INTERFACE
* 000i2000
REGISTERS
* 0002?OOO
ON ENTRY:
* 01)024000
Rl
ADDRESS OF INPUT DATA
* 00025000
R2
LENGTH OF INPUT DATA
* q0026~OC
R1
HAS DIAL CTe ADDRESS
* 00027000
R8
HAS CTT ADDRESS
* 00028000
R9
HAS CLB ADDRESS
* 00029000
Rll
HAS SCD ADDRESS
* 00030000
R13-R15 STANDARD O.S. LINKAGE REGISTERS
* 00031000
* 0.00321)00
THE INPUT DATA AREA HAS THE FOLLOWING FORMAT:
* ('0f)3300C
000340(10
*--------------*
* 'l"03500C
J REG 2 COUNT 1----*---------------------------* * 00f)36roo
*--------------* V1
1 * "0031000
9
NV * 00')38000
*------+----------+---------*
* 0003ql'lOC
1 CTB 1
1 DATA
1 * 0004('''00
*->1 LINE I 9 BLANKS 1
IN
1 * 00')41000

THIS MODULE RECEIVES CONTROL FROM THE 7770 DEVICE DEPENDENT MODULE
WHEN A READ HAS COMPLETED BUT A LOGICAL CONNECTION HAS NOT BEEN
ESTABLISHED.

*
*
*
*
*
*

*

lOt

1

I
I
1-*

*--------------*
I REG I ADDR.
*--------------*

*

46
41 •
48
4'9
50
51.*
52 *
53 •
54
55 *
56

00002000
0000300C
00004000
00005000
00006000
00007000
00008000
00009000
01)0101)1)0
00011000
00012000
00013000
001)14000
00015000
00016000
00017000
00018000
00019000
00020000
01)021000

1 NO. 1

1 EBCDIC I * 001)42000

*------+----------+---------* ** 00044000
0004300C
* 00045('00
** 00046000
00047000
*

ON EXIT:
k2
LENGTH OF DATA IN BUFFER
R15
RETURN CODE
ALL OTHER REGISTERS ARE RESTORED.
RETURN CODE S:
0 - CONTINUE INPUT PROCESSING WITH CONTENTS OF THE BUFFER

*
*
*
*
*

*

*
*

00048000
00·149000
00050000
0,)05100C
00052000
00053000
00054000
00055000
')0056000

SUURCt STATEMENT

STFIT

S7
5A

59
60
61
62
63
64

05
66

*

4 - SEND CONTENTS
ALLOW RETRY.
8 - SEND CUNTENTS
TO OISCGN~ECT

*
*
*
*
*
*
*
*

F 150CT10
OF BUfFER TO CALLER FOLLOWED BY READ TO
OUTPUT MUST BE IN DRUM ADDRESS FORM.
OF BUFFER TU CALLER FOLLOWED BY A DISABLE
THE CALLER.

,o,c

ABENOS:
NCT APPLICABLE

SOURCE: STATEI"IENT

F150CT70

68 CFSS777C CSECT

*

71
72
73
74

75
76
77
73+
79+
80+
81+

82
B3
84

*

*

(14,12)"S77At30
SAVE CALLER'S REGISTERS
12(0,15) BRANCH AKOUND 10
ALI(7) LENGTH OF IDENTIFIER
CL 7' S77A 130' IUENTIFIER
14,12,12(13) SAVE REGISTERS

*

94+
95+
96+

STf4T

00057000
00058000

00059000
00060000
00061000
00062000
00063000
00064000
00065000
00066000
3/27/72

00068000
00069000
0007000 a
OD07I000
00072000
00073000
00074000
00075000
00076000
00077000

BASt REGISTER
--) SCD
--) CNT (INQUIRY)
--) eLB
--> CTT
--) CTB

00078000
00079000
RlO,CTBC~TP
GET INQUIRY CNT OFFSET
00080000
A
R1 0 t SC DC 1\T A D 0 SA S E FI] R CNT ADD RES S
00081000
ST
RIO,60(,R13)
SET CNT ADDRESS TO eE PASSED BAC 00082000
NI
CTdFLAGl,NIMASK-CTBlPCNT-CTBlPSMB RESET PRESET fLAGS
00083000
NI
CTdFLAG2,NIMASK-CTB2LOCK-CTB2TEST-CTB2EXCL + OTHERS
00084000
01
CT~FLAGl,CTBlSIGN
DIAL CTB IS LOGICALLY CONNECTED 00085000
01
CNTFLAGl,CNTlSIGN
SIGN ON LTERM ONLY SPECIFICATION 00086000
MVC
CL3CTBPS(2),CNTCTBP
PUINT CLa TO CTa
00087000
00088000
KETURN t14,12),RC=O
RESTORE AND RETURN TO DEVICE MOO 00089000
LM
14,12,12(13) RESTORE THE REGISTERS
LA
15,0(0,0) LCAD RETURN CODE
BR
14 RETUR/\

9 1)

98
99

SAVE

LR
LH

89

93

*,R12
SC 0, Rll
CN T, RIO
IECTDECB,R9
CT r t R8
CT B, R7

DC
DC
STM

86
87
88

92

USING
USING
IJSING
USING
USING
USING
t3

85

91

*
*
*
*
*
*
*
*

***********************t***********************************************

STNT
69
70

3/27/72

R12,R15

SOURCE STATEMENT

****

EQUATES

100 *
102 NIMASK
103 RO
10 /1- Rl
10.5 R2
106 R3
107 R4
108 R5
109 R6
110 R7
111 R8
112 R9

113 RIO
lllt Ril
115 R12
116 Rl3
117 R14
118 R15

E(JU

EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU

F150CT70

****
*

3/27/72

00091000
00092000
00093000

255

00
01

ALL BITS
R
E

02
03

G

04
05
06

07
08
09

I
S
T
E
R
S

10

E

11

Q

12

U

13
14
15

T

A

E

5.67

00095000
00096000
00097000
001)98000
00099000
00100000
00101000
00102000
00103000
00104000
00105000
00106000
00107000
00108000
00109000
00110000
00111000

STMT
120
121
122

F 150C110

SOURCE STATEMENT

*
*

***

124
125+SCO
126+***
127+**

128+**
129+**
130+**
131+**

DUMMY SECTIONS

*
***
*

00113000
00114000
00115000

ISCD SCDBASE=C
DSECT
** * ******

00117000

* *
* * * * * * * * * * * * * * * * * * * * * ***
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * **
**
IMS SYSTEM CONTENTS DIRECTORY

(Scot

**

**
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * **
132+*** * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ***

134+SSCDORG
135+SSCOSVCl
136+
137+SSCOSVC2
138+
139+5SCOSVC3

os

140+

8R

141+SSCOSVC4
142+
143+SSCOOCEP
144+SSGDOSPS
145+SSCDOSLV
146tSSCDIMSR
147+SSCDIMSl
14B+SSCOASPS

o

BR

ON REGISTER 14
2 SVC NUMBER
14 RETUR~ ON REGISTER 14
15,15 CLEAR REGISTER
14 RETUR~ ON REGISTER 14
255 USER TYPE 4 SVC NUMBER
14 RtTUR~ UN REGISTER 14
CL2'19 t (SAM CHANNEL END APPENDAGE SUFFIX
X· 10' OS/360 SYSTEM CONFIGURATION
AL1( 18) (S/360 RELEASE LEVEL SPECIFIED
ALUO) I~S RELEASE NUMBER.
ALl( 0 ) I ~ S MO 0 LEV EL NUM Bf: R•
X'00' SYSTE~ CUNFIGURATION - ACTUAL
ALl(O) 05/360 RELEASE LEVE~L - ACTUAL
ALl(O) MCS U~SCRIPTOR CODE
AL3(O) RESERVED FOR OS/360 EXPANSION
AL2(O} MCS ROUTING CODES
Al2tO) RESERVED FOR OS/360 EXPANSION
V(DFSIWAIT) IH,4IT EP ADDRESS
V(OFSIOS40) USAM lOB QCB
A(DFSXOPENl USAM OPf:N EP
All(O) CCNSOLE 10 - START IMS ~OMMANO.
AL3{O) RESERVED
F' o· k ES ER VEO

8R

SR

SVC
BR
DC
DC
DC
DC
DC
DC
14~+SSCOASL" DC
150+SSCOOESC OC
151+
DC
152+SSCDROUT DC
, 153+
DC
154+CFSXWAIT DC
155+CFSXIOBA DC
156+CFSXOPEN DC
157+SSCDMCID DC
158+
DC
159+
DC

5.68

00 SECONCARY SCD ORIGIN
USER T~PE 1 SVC NUMBER

SVC
SVC

14

RETUR~

o USER TVPE

3/21112

STMT
162+*
163+*
164+*
165+*
166+*

F150CT70

SUURCE STATEMENT

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * **
R E COR D E R
LOG
SEC T ION :
*
*
** * * * ** * * * * * ** * *** * * * * * * * * * * * * * * * * *

168+SCOREENT
169+SCDRECCE
170+ SCDREWRI<
171+SCDREPLN

DC
DC
DC
DC

V(OFSFLOIO) RECORDER ENTRY POINT
A(O) DCB AND WKAREA LIST ADORESS
V(OFSILOGW) WORK AREA FOR THE LOGGER
H'2S' LE~GTH OF LOG PREFIX IN BYTES

173+*** LOG ceNTROL BYTE **~
174+SCDRECTL DC
X'OOOO'
175+SCDLGOP~ EQU
X'SO' LOG IS OPEN
176+SCDLGTR~ EQU
X'4D' LOG 5MBTASK DETACHED
178+SCURELCT
17'J+SCDRECCT
180+SCDRPENT
181+SCDRTECE
182+SCDRTCB
183+SCORETXR
184+SCOkPFX
185+SCDOBLNT
186+SCOCWRK
187+SCDCWRKL
188+SCDCPNO
l89+SCOOATE
190+SCOTIME
191+SCDSEQ
192+SCDkGTYP
193+SCOOBOC8
194+

DC
DC
DC
DC
DC
DC
DC
DC
OC

DC
DC
DC
DC
DC
DC
DC
DC

H'5QC' C~ECKPOINT LOG FREQUENCY CONTROL REFERENCE
H'500' CLKRENT LOG FREQUENCY COUNTER, CPT AT ZERO
A( 0) ENTRY TO LOG WRIT ER
F'O' LOG TASK TERMINATE ECB
A(O) LOG TASK CONTROL HLOCK AUDRESS
A ( 0) RES ER VEO
V(OFSIPREF) ENTRY TO LeG PREFIX BUILOER
A(SCDOBL~T) ENTRY TO DATABASE CHANGE LOGGING ROUTINE
F'O' CHECKPOINT/DB LOG WORK AREA ADCRESS
HI 512' LENGTH OF CHECKPOI~T/OB LOG WORK AREA
H'O' CHECKPOINT NUMBER
F'O' DATE FOR RESTART/DATABASE LOG
F'O' TIME FOR RESTART/DATABASE LOG
HIO' DATAliASE lOG SEQUENCE NUMBER
ALl(O,O) REGION TYPE (O=CTl,3=DLI)
A(O) ADDRESS OF DATAUASE LOG DCB
4F'O' RESERVED FOR SYSTEM EXPANSION

5.69

3/27/72

STMT
196+*
197+*
198+*
19<:J+*

200+*

SOURCE STATEMENT

*****
0 A T A
,I.
..,..

****

20~+SCODlICT

203+SCDOLIMQ
204+SCDISAM
205+SCDOLARE
206+SCDOLIRE
207+SCODLIIN
208+SCiJOLIOH
2')9+SCDDLDAE
210+SCDDLIHS
211+SCDDLIPS
212+SCOPS8FR
21'3+SCOOLIlN
214+SCOOLINC
215+SCOPSBSW

DC
DC
[JC
EQU
DC
DC
DC
E~U

CC
CC
DC
DC
DC

as

216+SCODLID~

DC

217+SCODlIOL
218+SCODLIDN
2l9+SCDOLIPA
220+SCDOLIPL
221+SCDDLIPN
222+SCODLIBC
22J+SCDOMBSW
224+SCDUMBFR
225+SCDPSBMU
226+SCDOPUM
227+SCOACBDC
228+SCOPS.sPL
229+SCODMBPL
230+SCDLLOGD
23l+SCDOLIMV
232+SCOUSST
233+SCDDLICl
234+SCDOLI07
235+SCDWQCB
236+SCOBPARM
237+SCDASE
23U+SCD08FPL
239+SCDODBHC
240+SCDOHDSO
241+SCDDXMTC
242+SCDUBCVT
243+SCDOIOBS
244+SCDOOPEt\
245+SCDIWAIT
246+SCOSAVE
247+SCDFLOS
248+SCDfLOSR
249+SCDNAVIC
250+SCDRLOTE

DC
DC
DC
DC
DC
DC

STMT

os

*

>,'c

* * *

~~

*

* * ***

L A N G U A G E /

':c

;:.f:.:

*

~~

,,'c

t.'
i;

~;

* ***
0 S A M

;(c

* ** *
S E C T

:1T

SOURCE STATEMENT

360+SCDMSGRT
361+SCOMTRM
362+SCOCLISC
363'+ SCOTR AN S
36'. + SCOCONV
365+SCOCOB
366+SCOCOBL
367+SCDCOBN
368+ SCDC TCL e
369+SCUREPOL
370+SCDf\4TB
371+SCDEDITC
372+SCDEDITS
373+SCDINCT
374+SCDUUTCT
375+SCOCPCTL
376+SCDPCPOl
377+SCDPCP02
378+SCOPCP03
379+
380+
S T i-lT

3H2+*
383+*
384+*
385+*
386+*

DC
DC
CC
DC
DC
DC
DC
DC
DC
DC
CC
DC
DC
DC
DC
DC
EQU
EQU
EQU
OC
DC

F150CT70

V(OFSICLRO) MESSAGE ROUTER ROUTINE ENTRY POINT
V(DFSCTB~T) MASTER TERMINAL CTB ADDRESS
V(DFSICLSO) SECURITY ROUTINE ENTRY POINT
V(OFSICLIO) TRANSLATE ROUTINE ENTRY POINT
A(O) CON~ERSATION PROCESSOR ENTRY POINT
A{O) COM~UNICATION OVERFLOW BLOCK BASE ADDRESS
H'32' LE~GTH OF EACH COB
H'O' NUMBER OF COBS
V(OFSICLE) CONSOLE TYPEWRITER CLB
V(DFSICLXO) RESET POLL MODULE ENTRY POINT
V( OF SIN TEO)
A(O) USER EDIT ROUTINE FOR CNT DESTINATIONS
V(DFSLIS10) USER EDIT ROUTINES FOR 5MB DESTINATIONS
H'O'
H' O·

X'OO' CHECKPOINT POST SYNC BITS
X' Sf)'
X' 40'

20 •
AL3(O) RESERVED FOR SYSTEM EXPANSION
9F'Q' RESERVED FOR SYSTEM EXPANSION

X'

F150CT70

SOURCE STATEMENT

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

** *** *

388+SCDt:xrWQ
389+SCDINTWQ
390+SCDINTSC
391+SCDTECBR
392+SCDPARM
393+SCLJTECB
394+SCOSAVEl
395+SCCSLEV
3CJ6+SCOSAVEf\
397+SCDSRQE
398+SC(,JSRQEL
399+SCOSRQEl\
400+SCOhAIT(;;
401+SCDE:XTWL
402+SCOEXTWf\
403+SCOSUBSV
404+SCCCFAC
't05+SCDCMOD
406+SCOTEST
't07+ SCDTLEV
40U+SCDRES2
40<)+

DC
DC
DC
CC
DC
DC
DC
EQU
DC
DC
DC
DC
DC
OC
CC
DC
DC
DC
DC
DC

DC
UC

.3/27/72

*

I S P

* *

*

~

T C HER

*

* ****** ****

*

3/27/72

*** ** *

SECTION

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

V(OFSEXThQ) EXTERNtL WAIT QUEUE ADDRESS
V(DFSINThQ) INTERNAL WAIT QUEUE ADDRESS
V(OFSINTSQ) INTERNAL SAVE QUEUE ENTRY POINT AODRESS
V(OFSITERI'H TERMINATION ROUTINE ENTERED IF TECB POST
AlO) ADDRESS OF PAkM LIST FROM SYSTEM
F' 0 tIM S TERM I NAT I (JI'J E CB PO STED BY CHE CKP 0 I NT
H'508' LENGTH OF SAVE AREA SETS INCLUDING QE
7 NUMBER OF SAVE AREAS IN A SET
H' 0' NUf'.1eER OF SAVl: AR EA SETS
V(DFSIRQEO) ORIGIN OF RQE LIST
H'8' LENGTH OF EACH RQE
H'O' NUMBER OF RQES
V(DFSIWA1Q) ORIGIN Of WAIT QUEUE
H'4' LeNGTH OF EACH ENTRY IN EXT HAlT QUEUE
H'O' NUMBER OF EXTERNAL EVENTS
A(0) ADDRESS OF LAST SUBTASK 1ST LEV SAVE AREA
X'OO' CURRENT FIRST LEVEL FACILITY
X'OO' CURRENT MODULE WITHIN FACILITY
X ' 8 ()' TEST t-10 DEC 0 NT RO LIN IJ 1 CAT 0 R
X'OO' TEST MODE LEVEL INDICATOR
F' 0' PAoel NG
4F'O' RESERVED FOR SYSTEM EXPANSION

5.73

*

*

411+~

412+*
413+*
414+*
415+~

*****

* *

A P P L

******

*

C A
l~

::,'(

),'t

T 1

* *

:(:

:(:

),'-'

*

,;~

t,c

** *

~::

S C H E 0 U L E R

U N

* **

* **

*

:(~

*

......

* *

l(:

*

>:~

"-

**

*

* *

*

S E

C

T

0 N

*** ****

l(~

:(:

*

*

**

***
*
:>!c

'1 .~ 1 + seD E: XT S Q

CC

V(OFSASII\T) APPLICATION SCHEUULER If\ITIATOR ENTRY
V(DFSASTf1 V T
X'20' VALUE IF I'1FT-II

X'40' VALUe If PCP

SSCDIMSP IMS RELEASE NUMBER
SSCDIMSl IMS MOO LEVEL
2F'O' RESERVED FOR SYSTEM EXPANSION

523+

DC

5.76

3/27/72

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

5~~1+SCDIMSR

522+SCDJMSl

F150CT70

*
*
*
*** **** *** ****
S

0 N

* * *

*

.520+SCDPSPCP EGlU
EQU
EIJU

3/27/72

A(O) POI~TER TO POOL CONTAINING SERIAL NUMBERS
HIOOOO' INPUT TERMINAL ACTIVE COUNT
H'OOOO' CUTPUT TERMINAL ACTIVE COUNT
AIO) SCR~TCH PAD AREA LOG ROUTINE ENTRY POINT
OF
V{DFSRSTCO) RESTART ROUTINE ENTRY POINT ADDRESS
OF
V(DFSRTECB) RESTART fCB ADDRESS
AIO) RESTART DATABASE NAME TABLE
4F'O'

SOURCE STATENENT

502+*
503+*
504+* *

F150CT70

S TMT
525+*
526+*
527+*
528+*
529+*
530+*
531+*
532+*
533+*
534+*
535+*
536+*
537+*

SOURCE STATEMENT

*******

559

562

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

COM MAN D

***

SEC T

* * *

*

* * * *

*

* * *

**

o N

~UTE ***
THE COMMAND SECTION MUST RESIDE LAST
IN THE SYSTEM CONTENTS OIKECTORY SINCE
THE COMMANUS ARE VARIABLE IN LENGTH.

ANY ADDITION TO THE SCD
MUST PRECEUE THIS SECTION.

*** *

539+SCDPROCl
540+
541+
542+
543+IHBOOO5
544+SCDPROC2
545+SCDPROC3
546+
547+SCOPROC4
54R+
5 1t9+
550+
5:i1+1HBOOO6
55?+SCOPRCC5
.'553+
554+
555+
556+1Ht30007
557+

560
5(J 1

*

F150CT70

*

uS
DC
DC
DC
EQU
OS
DC
DC
OS
DC
DC
DC
EfJU
OS
DC
DC
DC
E(-1U
OS

*

* * *

** * *

*

* ***

* *

**

* *

*

*

* * *

* *

*

*

*

OF
AL2(IH80C05-*) MESSAGE LENGTH
6'000000C000000000' MCSFLAGS FIELD
C'S IMSRCR,MBR=' MESSAGE

* MEMBER NAME FIELD OF START READER COMMAND
CL9
AL1(6) LENGTH IN BYTES OF PROC MEMBER NAME
C' IMSMSGt MSG PROC MEMBER NAME
OF
AL2( IHBOC06-*) MESSAGE LENGTH
B'000000COOCOOOOOO' MCSFLAGS FIELD
C'S INIT.CLASSB",(B,A) • MESSAGE
*
OF
AL2( IHuOC07-*) MESSAGE LENGTH
3'000000(000000000' MCSFLAGS FIELD
C·p CLAS~B' MESSAGE
*

4F
*,****************************************************
*,*
IMS/360 SYSTEM
*,*
VERSION 2
RELEASE 2
MOD LEVEL 0
*
*,****************************************************

5.77

3/27/72

*

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

STMT

SOURC E STATEMEN T
IClI

56:'

F150CT70

CLBUASE=C,CNTBASE=O,CTBBASE=O,CTTBASE=O

3/27/72
00119000

566+***********************~***********************************************

567+*

CLB - COMMUNICATION LINE BLOCKS OSECT. DSECT NAME IS IECTOECB.

56d+*

569+*

570+***********************~********************************~**************

571+IECTOECB OSECT
572+::'

573+*
574+*
575t*
576 . . *
577+*

578+*
579+*

0

4
8

+

ADDRESS OF AREA

+
+

+
+

+
+

+

+

SENSE BYTES
1

f.

2

+
+
+

RESI DUAL COUNT

+
+
+
+

+

+ CUl'1MAND I
+
CODE
+

AOURESS OF TERMINAL LIST

+
...

+

+ RELATIVE+

STATUS +
FLAGS +

+

28

+
+

...

TP-OP
CODE

+

+

+
+

ERROR +
S TA TUS +

--.-------..;--~

CSW STATUS

+...

+RESERVED +
+

+

..

+

t--------·--·-------- ----.----- ------------ 32

+

lINE + ADDRESS + VRC/lRC +
NLMBER + RESPONSE+ RESPONSE +

+----_._----_._--------------

ADDRESS OF CURRENT
ADDRESSING ENTRY

+
+
+

...

+
...

+---------------------------------------- +. .

+...
36

612+*
40

615+*

+RESERVEO +

AUORESS OF CURRENT
+
POLLING ENTRY
+
+----------------------------------------+

+

...

+

+...

+RESERVEU +RESERVED +

+

WRITE AREA LENGTH +

+
+
+
+
+-_._- --- -- -- -- -- --- - --- --- -- -- ---------- - ....
+
+
+

616+*
617+*

5.78

+
+

+

611+*

620+*

+

+

ADDRESS OF UCG

+RESERVED +

+
24

603+*

S Ti~T

AREA LENGTH

+----------_._- -- -- -.-------- _._---------_._+

601+*

61d+*
619+*

...

+

+ ON-LINE +
+TERMINAL +
+
T~ST
+

+

20

596+*

613+*
614+*

T~PE

+--_._--------- --------------------------- ..

595+.

610+*

+

...

OPERATIUN

+

16

593+*

604+*
605+*
6G6+*
607+*
608+*
609+*

+

+----------------------------------------+

592+*

602+*

+

+

591+*

597+*
598+*
599+*
600+*

+

+

+

12

589+*

594+*

STANOAR( EVENT CONTROL BLOCK

+-----.-------.- ------------- -------------+

588+*

590 +)~

+

+------------------------- -------------+

583+*
584 +*
58.5+*

587+*

SECTION

+-------------.------------- -------------+

581+*

5H6+*

DU~MY

+

580+*
582+*

DECO

-----------.--- -.------------- -----.--------+
+

44

+RESERVED +
+

SOURCE STATEMENT

+

ADDRESS

OF WRITE AREA

+

+

F150CT70

3/27/72

STNT

622+LECSOcCB OS

IF S TA TU 5 FLAG +- AUDRE SS CF THE

624+CECTYPE

IH OPERATION TYPE

OS

rc B

626+CtCLNGTH OS

lH ARE.A LENGTH

62B+CECONLTl OS
629+GECOCBAC OS

DCLl RESERVED FOR ON-LINE TERMINAL TEST
IF ADDRf:SS OF DCB

6:;)1+CECAREA

iF ADDRE 5S Cf AREA

OS

633+LECSENSO OS

IC 1ST SENSE BYTE

os

IC 2ND SENSE BYTE

637+CECCOUNT OS

IH RESIOLAL CUUNT

639+CECCMCOD OS
640+CECENTRY OS

OCll CUM~ANC CODE
IF ADDRESS OF TERMINAL LIST

643+CECfLAGS OS

1CST A T U S F LA GS

6 I t5+CI::CRLN

CS

Ie RELATIVE LINE NUMBER

6 1d + CECRES P t\

OS

IH

63~+lECSf:NSl

RESPO~SE

FIELDS

649+CI::CTPCOC OS

le T P-UP CODE

651+LECEKRST OS

IC ERKUR STATUS

653+CECCSwST OS

1H CSW STATUS

655+LECAORPT OS

1f ADDRESS OF CURRENT ADDRESSING ENTRY

6~

7 + CcCPULP T OS

3/27/72

F 150CT70

SOURCE STATEMeNT

IF ADDRESS OF CURRENT POLLING ENTRY

659+

OS

2C RESERvED

661+,Of.:CfJlNG

OS

lH

663+[I:CWARE~

OS

1F ADDRESS OF WRITE AREA

~RITE

AREA LENGTH

665+CLBCECB EQU
666+CLBRCNTR OS

OECSOECB
lC RETRY COUNTER

668+CLBfLAGl OS
6b~+CLBIC08
EQU
670+CLBITEST EQU
671+CLBlIBUf EQU
672+CLBIUeUF EQU
6 -13+ *
EQU
674+CLBlQCRI EQU
675+CLBlRESP EOU
676+CLI:HQCRO EQU

c •

BIT USAGE

X'80' •
X'4,)'
X' 20' •

X'04'
X'OZ'

X'Ol'

o - COB REQUIRED FOR
1 -

2 3 -

XI 10 '

X'OS'

$

•

4 5 -

6 7 -

CTB'S UN THIS LINE
RECYCLE REQUEST
INPUT BUFfER ALLOCATeD
OUTPUT BUFfER ALLOCATED
RESERVED FOR FUTURE USE
QCR ALLOCATED (INPUT)
RESPUNSE WAITING
QCR ALLOCATED
(OUTPUT)
TE~T

5.79

$
$

STMT

SOURCE STATEMENT

F150CT70

678+CLBFLAG2
679+CLB2NOIN
680+CLB2NOOU
681+CLB2NOQL
682+*
683+CLB2IDLE
684+CLB2INP
685+CLB20UTP
686+CLB2AUTO

OS
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU

C
XI 80' •

688+CLBFLAG3
689+CLB3INP
690+CLB3CSUB
691+CLB3DOPN
692+CLB3STOP
693+(LB3CBUF
694+CLB3ICMC
695+*
696+*

OS
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU

C •

698+CLBCNTPT
699+CLBTEMPl
700+CLBTEMP4
701+ClBTEMP5

OS
OS
OS
OS

F • POIN1ER TO CNT FOR RESPONSE

703+CLBCSID
704+*
105+*
706+CLBCSCVB
707+*
708+CLBCSFNC
709+CLBCSSMB
710+*
711+CLBCSCST
712+CLBCSACI

OS

EQU
EQU

OC-. FINC DEST
o
1
X'20'. 2
3
X'08'.
4
X'04'
5
0
= 1
X'02'. 6
X'OI'. 7

714+CLBPOLAC
715+CLBCTBPT
716+CLBCRCTB
717+CLBCNTQB
718+CLBSMBPT
719+CLBCTBPS
720+ClBOPOLC
721+CLBOCTl
722+CLBINBUF
723+(LBOUTBf
724+*
7?5+* IF ($)

OS
OS
OS
OS
OS
OS
OS
OS
OS
OS

F.
H.
H.
2F.
F.
H.
C
C.
F.
F.

5.80

EQU
EQU
EQU

X'40'
X'20'
X' 10'
X'08'
X'04'
X'02'
X'Ol'

•
•
•
•
•
•
•

3/27/72

o - NO INPUT ALLOWED
1 - NO OUTPUT ALLOWED
2 - DO NOT QUEUE ON THIS LINE
3 - RESERVED FOR fUTURE USE
4 - IDLE LINE
5 - INPUT IN CONTROL
6 - OUTPUT IN CONTROL
7 - AUTOPOLL

o-

O=OUTPUT NEXT, l=INPUT NEXT ON THIS LINE
1 - COMMAND ENTERED AS NON-FIRST SEGMENT
2 - LINE IS OPENED DYNAMICALLY
3 - LINE HAS BEEN IDLED FOR SHUTDOWN
X' 10 '
X' 08' 4 - CCNDENSED BUFFER ALLOCATED
X' 04' 5 - INTERNAL COMMAND IN PROGRESS
6 - RESERVED FOR FUTURE USE
X'02' •
7 - RESERVEC FOR FUTURE USE
X' 01' •
X'80'
X'40' •
X'20' •

$

F •

F •
F •

FALLS IN

USED FOR TEMPORARY STORAGE
USED FOR TEMPORARY STORAGE
FIELD
$
Dl/I USE
RESTART IN PROGRESS
CVB FOUND AS DESTINATION
ALWAYS 0 fOR CLB
CNT/SMB NOT FOUND
CNT FOUND
5MB FOUND
FNDDST ENTERED (CLBCNTP POINTS TO DEST)
ACTIVE POLLING LIST

POLLING LIST ADDRESS
FIRST CTB ON LINE
CURRENT CTB
QCB FOR CNTS FOR OUTPUT
POI~TER TO BLOCK FOR QUEUElNG CNT/SMB/CVB

COLUM~

Cl8 DEVICe CONTROL BYTE (USED BY DOM)
INPUT BUFFER POINTER
OUTPUT BUFFER POINTER
71 THIS fIELD WILL BE SAVED IN A COB IF REO·

$

STMT

SOURCE STATEMENT

F150CT10

727+***********************.***********************************************

728+*
729+*
730+*

CTT - COMMUNICtTICN TRANSLATE TABLES DSECT.

731+***********************************************************************
732+CTT

OSECT
OS
734+CTTREC
OS
735+CTTIJO
OS
736+CTTf:OIT OS
737+CTTINLNG OS
738+CTTBUFSZ OS
7~3+CTTSEND

74()+CTTOPTl
741+CTTlMULT
7't2+CTT lBACK
743+CTTlRESP

OS
EQU
EQU
EQU

745+CTTI0IAL
746+CTTIEBCD
747+CTTlNOTP
748+CTTISE8C

E(JU
EQU
EQU
EQU

7 It 4 + C T r 1 B s e E Q U

LOCtTION OF OUTPUT TRANSLATE TABLE
LOCATION OF INPUT TRANSLATE TABLE
POINTER TO DEVICE DEPENDENT ROUTINE
F .E NT RY FOR USER EDIT OUTPUT ROUTINE
H •
INPUT LINE BUFFER LENGTH
MAXIMUM OUTPUT BUFFER SIZE
H •

F •
F •
F •

C •
X' 80'

•

X'40' •
X' 20' •

o THIS DEVICE HAS MULTISEG INPUT BUFFERS
1

2

•

3

•
X'04' •
X'02' •
X'Ol' •

4
5
6
7

X' 10'
X' 08'

BACKSPACE ELIMINATION NOT REQUIRED
TREAT RESPONSE TYPE AS NORMAL MESSAGE
BSC
SWITCHED
INPUT IS IN EBCDIC
NCN TP DEVICE
OUTPUT IS IN EBCDIC

750+CTTOPT2 OS
751+CTT2UCAS EQU
7~~+CTT2SYNC EQU
753+CTT2NORP EQU
754+CTT2FRSP EQU
755+CTT21NQ EQU

c •

757+CTTNTRYl OS
758+CTTTABI OS
7~9+CTTNLI
OS
760+crTLFI
OS
761+
OS

C •

LENGT~

C •

# OF IDLES FOR TAB CHAR
# OF IDLES fOR NEW LINE CHAR
# OF IOLES FOR LINE fEED CHAR

X'BO' INPUT IS IN UPPER CASE
X'40'. 1
DEVICE REQUlRES SYNCRONIZATION
X'20' RESET POLL .NOT APPLICABLE
X'lO' FO~CE RESPUNSE MODE
X'OS' IN'UIRY ONLY TERMINAL

C •
C •
H •

OF POLLING LIST ENTRY

RESERVED

5.81

3/27112

STMT

SOURCE STATEMENT

F 150CT70

763+***********************************************************************
764+*
765+*
766+*

CTS -

COMMUNIC~TION

TERMINAL BLOCKS OSECT.

767+***********************************************************************

768+CTB
769+CTBTYPE
770+CTBLINE
771+CTBTERM

OSECT
OS
C •
OS
C •
OS
3C •

773+CTBFLAGI
774+CTBICONV
175+CTBIMASl
176+CTBISUSP
117+CTBIDIAl
718+CTBlSIGN
779+CTBIHELO
780+CTBIPCNT
781+CTBIPSMB

OS
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU

CTT NUMBER
LINE NUMBER
TERMINAL ADDRESS

C •
X'BO' •
X'40' •
X'ZO' •
X' 10' •
X' 08' •

X'04- •
X'OZ' •
X'Ol' •

783+CTBFLAG2 OS
7~4+CTB2NOIN EQU
7U5+CfB2NOOlJ EQU
7H6+(TB2NOQU E(JIJ
7B7+CTBZLOCK EQU
788+CTBZTEST EQU
789+CTBZEXCL EQU
790+CTBZINOP tQU
791+CTHZEOIT EQU

c •

793+CTbfLAG3
794+CTB3KEAC
795+CTB3QSYS
796+CTB3LOOP
797+CfB3CHE
79S+CTB3QERR
799+CTB3QMSG
800+CTB3LAS T
8Dl+CTB3SEGI

OS
E(JU
EQU
EQU
EQU
EQU
EQU
E(JU
EQU

C •

803+CTBFl:AG4
804+(TB4CNCL
805+CTB40UTP
806+*

C •

809+*
810+*
811+*

OS
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU

8l3+CTSACTL

OS

c •

8 14 + C T B A I N P

EIJ U

X'80' •

B07+*'
808+*

815+CTBAEOM EQU
A16+CTBASHUT EQU
817+CTBAINC EQU

5.82

o THIS CTB IN CONVERSATION
1 MASTER TERMINAL

Z
3
4
5

SUBPOOL CTS
DIAL CTB IS PHYSICALLY CONNECTED
DIAL eTa IS LOGICALLY CONNECTED
CONVERSATION IN PROGRESS WAS HELD
6 PRESET CNT
7 PRESET 5MB

X'BO' •

o NO INPUT

X' 40'

1 NO
2 NO

X' 10' •

3

X'OS' •
X'04' •
X'02' •

4

5
6

X' 01'

•

7

OUTPUT
QUEUEING
LOCKED
TE ST MOOE
EXCLUSIVE NODE
INOPERABLE
USER OUTPUT EDIT REQUESTED

X'80' •
X'40' •
X'ZO' •

o

INPUT ONLY DEVICE

•

X'ZO' •

X' 10' •

X'OB' •
•
X'OZ' •
X'Ol' •
X' 04'

X'SO'
X' 40'
X'20'
X' 10'

•
•
•
•

X' 08

f

•

X' 04'

•

X'02' •
X 101'

•

2 LOOP TEST PENDING
LINE DISCONNECT REQUESTED
ERROR ON GET NEXT FOR OUTPUT
QUEUE CAUSE OF ERROR WITH SVSMSG
bLAST eTB ON THIS LINE
7 FI RST SEGME NT

3
4
5

o DEQUEUE MESSAGE IN PROCESS REQUESTED
OUTPUT ONLY TERMINAL
NOT USED
NOT USED
1+
NOT USED
5 NOT USED
6 NOT USED
7
NOT USED
2
3

FLAGS TO BE USED BY ANALYZER

X'40' •
X'20' •
X' 10'

1 QUEUE ALL SYSTEM MESSAGES

•

o O=OUTPUT NEXT, 1= INPUT NEXT
1
2
3

I=ENO OF OUTPUT MSG
l=SYSTEM SHUTDOWN
l=INCORE SYSTEM MESSAGE

3/21172

STMT

F150CT10

SOURCE STATEMENT

REJECT If NOT MULTIPLE SEGMENT MESSAGE
ERROR FOUND ON LAST SEGMENT PASSED

618+CTbAMULT EQU
819+CTfJAERR EUU

X' 08'

821+(TBOCTL OS
822+CTdOCTL2 OS

c •

824+(TbFEAT OS
A25+CTSFSYNl EUU
~26+CT~FSYN2 EQU
827+CTBFPAGE EQU
828+CT3fNAPC EQU

C •
FEATURES FLAGS
X'OB' ASYNCHRONOUS DEVICE, SYNC FLAG 1
X'04' AS~NCHRONOUS DEVICE, SYNC FLAG 2
X'02 1 PACING IN PROCESS
X'Ol' AU10MATIC PAGE OELETION NOT REQUESTED

830+CTBCLJMP
S"jl+CTBClNA
832+CfbCIIP
833+CTBC2NA
834+CTBC2IP
835+CTBC3NA
836+CTBC31P

OS
EQlJ

C •

E(~U

XI
X'
XI
X'

838+CTBC4IP

EQU
EQU
EQU
EQU
EQU
EUU

840+(TBINCT
841+Cf80UTCT
842+CTBCPMP
8't3+C TBCNTP
844+CTBPRESl
84?+(TBCU8
846+CTBCCB
841+CTBCXB
84H+CTBPGNO

OS
OS
OS
OS
OS
OS
OS
OS
OS

A37+CTt3C4~A

•

4

X' 04' •

5

C •

X' 80'

40'

20 I
10'
08 '
X' 04'

X'02'
X'Ol'

H •
H
H

•
•

H •
H

•

H •
H •
H

•

H •

FLAGS USED BY 00 ROUTINES
FLAGS USEO BY 00 ROUTINES

COMPONENTS
1 IS
CO~PONENT 1 IS
CU~PONENT 2 IS
CO~PONENT 2 IS
COfJPONf:NT 3 IS
CO~PONENT 3 IS
CO~PONENT 4 IS
CO~PONENT 4 IS
CO~PONENT

TwO BITS FOR EACH
NOT ATTACHED
INOPERABLE
NOT ATTACHED
INOPERAOlE
NOT ATTACHED
INOPERABLE
NOT ATTACHED
INOPERA8lE

3088
3088
3088
3088
3088
3088

3088
3088

INPUT MSG CUUNT
OUTPUT MSG COUNT
PASSWORD MATRIX POINTER
LOGICAL TERMINAL POINTER
PRESET DESTINATION OFFSET
OFFSET TU COMMUNICATION OVERFLOW BLOCK
OFFSET TO CONVERSATIONAL CONTROL BLOCK
CCMMUNICATION EXTENT BLOCK POINTER
CURRENT PAGE BEING VIEWED

5.83

3/2"1172

5T('1T

SUURCE STA.TEMENT

F150CT70

3/27/72

850+***********************~***********************************************

851+*
852+>:(
CNT - COHMUNIC~TION NAME TABLES OSECT.
853+*
854+***********************.***********************************************
855+CNT
OSECT
856+CNTQE
OS
2F •
QE FOR CNT Q OFF CL8
857+CNTQCBDQ OS
A ORRN OF NEXT MESSAGE TO READ
85E3+CNTQCBEQ OS
A DRRN OF LAST MESSAGE WRITTEN
860+CNT(JFLGl
861 +",:
862+*
863+*
864+*
865+*
866+*
867+*

OS
EQU
E(~U

EQU
EQU
EQU
EQU
EQU

C CNT QUEUE FLAG 1
QUEUE READ IN PROCESS
X'SO'
QUEUE 1 HAS MESSAGE ENQUEUED
X' 40'
QUEUE 2 HAS MESSAGE ENQUEUED
X'20'
QUEUE 3 HAS MESSAGE ENQUEUED
X' 10 '
XI 08'
QUEUE 4 HAS MESSAGE ENQUEUED
X'04'
MESSAGE EXISTS IN BACKUP QUEUE
QCBOQ POINTS 10 QUEUE BLUCK RECORD
X' 02 '

869tCNTQFLG2 DS
EQU
870+*
EQU
~71+*
EQU
872+*
(j73+*
EQU
EQU
874+*

C CNT QUEUE FLAG 2
X' 80 I
THIS DESTINATION IS PERMANENT
AVERAGE LENGTH IS AVAILABLE
X' 40 '
X 120 I
ENQ/DEQ COUNT IS AVAILABLE
NAME FJELD EXISTS
X' 10'
X·, OF '
DESTINATION TYPE a THRU 15

876+CNT(')AVGL
8Tl+CNTDQCT
878+CNTNQCT
879+CNTNAME

OS
OS
OS
DC

H

881+CNTFLAGl
882+CNTIECI1
883 + C;'~ TIM AS T
SS4+CNTINOQU
885+CNTINOSE
886+CNT1l0CK
887+CNTISIGN
888+CNTIQERR
889+CNTICNT

OS
EQU
EQU
EQU
EQU
EQU
EQU
EQU

C CNT FL ~G 1
X' 80' USER EO I T R OUT IN E
X'40 1 MASTER TERMINAL CNT
X'20' DO NOT QUEUE ON THIS CNT
X' 10' DO NOT SEND TO THIS CNT
XI 08' CNl IS LOCKED
X' 04' SIGN ON SPECIFIED LTERM ONLY
X'02' IIC ERROR OCCUREO ON QUEUE
X'OII AL~AYS ZERO, INDICATES CNT

891+CNTfLAG2
892+CNT2UPP
893+CNT2PAGE
894+CNT2AERR
895+*
896+*
897+*
898+CNT2SUB
899+CNT2INQ

OS
EfJU
EQU
EQU
EQU
EQU
EQU
EQU
EQU

C CNT FL AG 2
X' 80' UPFER CASE TRANSLATION REQUESTED
X'40' PAGED MESSAGE IN PROCESS
X' 20 ' SYSTEM ERROR MSG PLACED IN Q BY DFSCLMRO
XI 10 I
RESERVED FOR FUTURE USE
RESERVED FOR FUTURE USE
X' 08 •
X'04'
RESERVED FOR FurURE USE
X'02' sue POOL CNT
X'Ol' INQUIRY ONL Y CNT

901+CNTCTBP
902+CNTCNTP
903+CNTCPMP
904+CNTCMPNr

OS
OS
OS
OS

H

STNT
905+
STMT
907

5.84

EQU

AVERAGE MESSAGE LENGTH FOR DESTINATION

H NUMBER OF MESSAGES DEQUEUEO

H NUMBER OF MESSAGES ENQUEUED
0'0' LOGICAL TERMINAL NAME

CTB POINTER
H POINTER TO NEXT CNT ON SAME CTa
H PASSWORD f'.1ATRIX POINTER
C COMPONENT POINTER

SOURCE STATEMENT
OS

3/27/72

F150CT70

3127112

CL3 RESERVED FOR FUTURE USE

SOURCE STATEMENT
END

F 150CT70

00120000

1770=1 INPul ]QIT ROUTINE - QFSI7770
For the 7770-3, a user input edit exit has been implemented at the
line level (from device module DFSDS030).
This exit is primarily
provided for a user edit routine to operate conversationally with the
line (caller) to do basic (no data base reference) validity checking
of input fields (the 7770-3 has limited error detection) and the
building of a transaction, field by field, until enough data has been
received and validity checked that the message (transaction) can be
scheduled into the IMS/360 system.
Message text has been translated
to EBCDIC before the user routine is invoked.
Nolg~

IMS/360 checkpoint/restart and recovery capabilities are not
effective until the message has been scheduled into the system
(see return codes 0 and 4 below).

In conjunction with the above concept of input editing, several
additional entries and actions have been provided for the user input
edit routine to allow the user edit to be continually aware of the
line status from operation to operation.

REGISTERS

Qn

~ntry~

Ent~I.

RO

Entry vector Value

Rl

Address of input data/buffer area

R2

Length of input data/buffer area

R7

CTB address

R8

CTT address

R9

CLB address

Rl0

CNT address

R11

SCD address

R13

Save area address. The first three words
in the save area may not be changed.

R14-R15

Standard OS linkage registers

Note~

The save area chain fields for the save
area pointed to by R13 ~y§! ~Q! be modified.

!2£iQ£

Val1!~

00

Entry is for normal segment read completion from the line
(caller) •

04

Reentry for next segment of message after input edit has
indicated that it has more segments to send to the analyzer.
R2 has count of usable buffer length of buffer pointed to
by R1.

08

The calling party on the line has hung up.

5.85

12

The line is being stopped or the system is shutting down.

Qn Ex.!1!.
All registers must be restored except RO, R2, and R15. The contents
of RO and R1, if any, are ignored by the device-dependent routine.
R2

Must contain the count of data now in the input
buffer area that was pointed to by R1 on entry.

R15

contains one of the following return codes:
00 -

The message segment in the input buffer
is to be sent to the analyzer and is the
last segment of the message.

04 -

The message segment in the input buffer
is to be sent to the analyzer and is not
the last segment of the message. The next
time the device module is entered for a
read, it will enter the edit module with
R1 pointing to a buffer area and R2
containing the amount of available area
contained in the buffer. RO will contain
the value of 04.

08 -

The message in the input buffer is to be
sent to the caller followed by a read.
R2 must contain the count for the message
to be sent to the caller and the message
must be in drum address form.

12 -

Repeat the last output message for the
caller.

16 -

The contents of the input buffer should
be sent to the caller with a reset to hang
the caller up.

ERROR CONDITIONS
The line will be stopped and a message generated to the master
terminal for anyone of the following input edit module error
condi tions:
1.

The return coue from the input edit module exceeds 16.

2.

The count valu~ returned in R2 is greater than the available
space in the buffer (buffer overrun).

3.

The input-edit module sent a single segment message to the
analyzer after the caller has hung up and indicated that it
had more segments to send to the analyzer.

4.

The return code from the routine exceeds 8 after entered for
disconnect indication.

SPECIAL CONDITIONS
After the edit module has been entered with the 08 entry vector
value indicating that the caller has hung up, the edit routine may
use return codes 00 and 04 to continue sending data to the analyzer
before the analyzer is notified of the line drop condition. During
5.86

this mode of processing, return code 00 will indicate the end of input
edit control and that the message should be enqueued for processing.
Alternatively, a return code of 08 during this mode will cause the
message to be cancelled and terminate input edit control for this
sequence. If the edit module was entered with input Vector 12, no
external action (device module action) may be specified. Returned
parameters, if any, are not used, as the entry with entry Vector 12
is an information-only entry. The return code value of 12 or 16 can
only be returned after the user routine was entered for a normal read
completion.
DATA SPECIAL CHARACTERS
The input data may contain one or more of the following special
characters:
X'OO'
X' 16'
X'26'
X'BO'
X'B1'
X' B2'
X'B3'
X'B4'
X'BS'
X'B6'
X'B7'
X'BS'
X'B9'
X' BA'
X'FA'

For
For
For
For
For
For
For
For
For
For
For
For
For
For
For
Key

Invalid Input Line Codes
2721 Cancel Key
EOB (on 2721 also '000' key and 'i' Key as EOIs)
2721 Verify Key
2721 Repeat Key
2721 Function 1 (F1) Key
2721 Function 2 (F2) Key
2721 Function 3 (F3) Key
2721 Function 4 (F4) Key
2721 Function 5 (FS) Key
2721 ID X'19' Code
2721 ID X'S9' Code
2721 ID X'21' Code
2721 ID X'61' Code
2721 00 Key and for TOUCH-TONE+ (or equivalent) Phone
when working on the ABB' Code Line Interface

'*'

+ Registered Trademark of American Telephone & Telegraph Co.

I~S/360 supplies a basic input edit routine for the 7770-3 as module
DFSI7770 in IMS2.LOAD. If the user wishes to use the supplied module,
it is his responsibility to move the supplied module from IMS2.LOAD
to the user library specified in the IMSGEN statement. If the user
has written his own input edit routine, that module must be placed
into the user library specified in the IMSGEN statement prior to system
definition. The module must be named and have an entry point with
the name DFSI7770.

For more information on the IMS/360-supplied input edit routine,
see the Description of Module DFSI7170 in the I~360 ~I§tem ~~al,
Volume I, Form LY20-0629. The source listing of the IMS/360-supplied
module follows for reference.

5.87

STivjl

FlSOCT70

SOURCE STATEMENT

3/27/72

2 CFSI777C CSECT

00002000

3 ****************************************~****************************** 00003000

4
5
6

7
8
9

10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27

*
*
*
*
*
*
*
*

*
*

•

THIS MODULE ASSUMES NO RESPJNSIBILITY FOR TRANSMISSION ERROR
DETECTION OR CORRECTION.

•

A MESSAGE IS

ASSU~ED

COMPLETE

A~D

NO ATTEMPT WILL SE MADE TO

SEGMENTIlE INPUT [ATA

•

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

T~E FIRST TWO CHA~ACTERS OF THE DATA IS ASSUMED TO CONTAIN A
DEFINED TRANSACTICN CODE OR LOGICAL TERMINAL NAME

00004000
qO()()5000
* 00006000
* 00007000
* On008000
* 00009000
* 00010000
* 00011000
* 00012000
* 00013000
* 0001400C
* 00015000

INPUT PASSED BY T~IS MODULE WILL BE 1 BYTE LONGER THAN THE DATA * 00016000
INPUT FROM THE TERMINAL WITH A BLANK INSERTED AFTER THE SECOND * OOa17000
CHARACTER
* 00018000
* 00019000
EGI ONLY INPUT WI lL BE SENT TO THE SYSTEi'\1 AS A NO TEXT MESSI\GE * 00020000
* 00021000
A~Y CHARACTER FOLLOWED BY EOI WILL BE SENT AS A REPEAT PEQUEST
* 00022000
* 00023000
A~ INPUT OF 99+EOI WILL BE USED AS NORMAL SIGN/OFF; THE EDIT
* 00024000
RCUTIN E WILL RETURN TO THE DOM WITH A DISCONNECT REQUEST.
* 00024010
* 00025000

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

SIMT

F150CT70

SOURC E STATEMENT

29
30+
31+
32+
33+

34
35
36
37
38
39
40 ENTRY
41
42
43
44

5.88

*
*

7770 USER INPUT EDIT MUDULE SUPPLIED HY IMS

SAVE
B
DC
DC
STM
USING
LR
CH
I3H
LR
B

EQU
B
8
B
B

(14,12), ,1779090
12(0,15) BRANCH AROUND ID
ALl( 7) LENGTH OF IDENTIFIER
CL 7' 17 79C90' IDENTIFIER
14,12,12(13) SAVE REGISTERS
OFSI7770,R12
SET BASE REGISTER
R12,R15
VALIDITY CHECK ENTRY VECTOR
RO , T WL VE
BRANCH If TOO HIGH
HAUVEC T
COPY THE ENTY VECTOR
R1S,RO
ENTRY(R151
GO TO PROPER ROUTINE

*ENTI{ YI
BA DV EC T
EN TRY2
RE TURN

00 READ COMPLETION FROM LINE
04 GET NEXT SHOULD NOT OCCUR FOR THl S
08 LJ.NE 01 SCONNEC T ENTR·(
12 NO ACTION ON LINE ST0P OR SHUTDOWN

00026000

3/27/72
00028000

00029000
00030000
00031000
00032000
00033000
00034000
00035000
00036,,)00
00037000
00038000
00039000

SCUKC( ST/\lEJ"IUH

S T ,w1T

46 ENfKYi
't .,

4b
It9

:>0

EQU
CH
BNH
CH
·3NE
CLC

5L

52
':>3

rvOVER.

Ef"iU

MVC
SH
EX
MVI

54
5~

'56

57

~H

58
59

SR

60

8

61 (.tOVT XT
62 SlGNUFF

MVC
EQU
SR
LA

63
64

e

65

sp·n

F150CT70

*

CHE CK N c. UA T A CHAR S R E C ' 0
LESS THAN 3 CHAR IS FUNCTluN REQUEST
rWf1 UATA CHAR + EOI ?
~1OV[ R
dR If NOT
10 (2 ,R 1) ,·=C '9<) I
I SIT 99 + EO I .?
BR IF YES
SI GNU"- F

P-2 , T v,L V[
SP EC lA L
1{2, TH[ RT EEN

*o( 2, K 1 ) , 10 ( R1 )
~~2

, T wL VE:

R2,i-1UVTXT
2(Rl),X'40'
K2,THR.EE
R15,R15
RETUHN
3 ( 1, R1 ) , 12 ( R1 )

*k2 ,R 2
R 15, 16
RE TU RN

SOURCE STATEMENT

SET TRANSACTION CODE
KEMUVE UVERHEAO COUNT
MOVE REMAINDER OF OATA TEXT
TRANSACTION SEPERATOR
SE T DATA LENGTH
SCHEDULE: S~GMENT WITH EDT R.C.
RETUR~ MESSAGE TO ANALYZER

00049000
00050000

00051000

00051010

NO MESSAGE FOR CALLER
SE T Dl SCONNECT REQUE ST RC
ANC GO HANG UP THE LINE

00051()2C

00051030
00051040
F

71
72

LM

GET RETURN ADDRE~S
R3,R12,32(R13) RO,Rl NCT RESTORED. R15,K2 PRESET
R14
RETURN TO DEVICE MDOULE

150CT70

*R14,12(,~131

*

76

BE

77

7<:)

MVI
LA
LA

80

8

HoE TU RN

78

3/27/72

0005300C

CANCEL ANY MESSAGE IN PROCESS

THIS SECTION DEPENOENT ON COMPARE IN ENTRYl CODE ••
R lS, 12
SET REPEAT VEC TOR
AND 00 REPEAT IF 2 CHARS RECIO
RETURN
O(Rl),EOT
SET EUT ONLY FOq NO TEXT MESG
AND SET 01\ T A COIJNT
R2,1
AND SET FOR EaT RETURN
R15,O

E\JU
LA

00043(540
00043050

00047000

L

74 SPECIAL
75

00')4303C

00048000

70

*

OOC't3010
00043020

00046000

*

73

00043000

00045000

EQU
LA
EQU

oR

0()04l000
00042000

00044000

67 ENTRY2
68
69 RETURN

R15,8

3/27/72

5.89

o 005 l tOOC

00055000
000S600C

00057 00 0
00058000
00059000
00060000
(10061000

00062000

00063000
00064000
(10065000
00066000

STMT
82
83
64

85

SUURCE STATEMENT
f~ACV

EC T

*

EQU

:(,

SI{
B

R15,R15
IF 8AD INPUT VECTOR SET EOT R.C.
RETURN
A~O TRY TO CONTJNUE
CUNSTANTS AND DSECTS FOR JNPUT ED[T

87 THIRTEEf\ CC

H' 13'

88 TWLVE
89 THRfE
90 EUT
91

H' 12'

OC
CC
EQU

F150CT70

3/27/72

00068000
00069000

() 007000 0
00071000

00072010
00073000
00074000
00075000
00076000

H'3'

055

~EQUATE

43+***********************************************************************
94+*
*
EQUATE REGISTE~S
9!J+*
*
96+*

97+************************************************************************

S9+RO
lCCtRl
lCl+f<2

lO2+R3
IG3+1<4
I O'~ + J.{ 5
lC~+R6

106+f<7
107+1<8
lOe+R9
lO9+RIO
110tRli
111+R12
112+R13
113+1<14
Il't+R15
STl-1T

1 16
117

5.90

EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU

EQU
EQU
EQU
EQU
EQU
EQU
EQU

0
1
2
3

4
5
6
7
8
9

10
11

12
13
14

15

SOURCE STATEMENT

F150CT70

3/27/72

00077000

END

=C '99'

The user has the ability· to install a 7770-3 with an installationtailored vocabulary. IMS/360 support cannot, of course, predict this
vocabulary. For this reason, an output edit exit was implemented to
allow a user-written module to inspect system messages and terminalto-terminal message switch messages and convert them at the user's
discretion to a message that is compatible with his vocabulary.
DATA FORMAT
See Figure 10A in this manual.
INTERFAC] - DFS07770
REGISTERS

R1

Address of output message segment

R2

count of output message segment length

R7

CTB address

R8

CTT address

R9

CLB address

Rl0

CNT address

Rll

SCD address

R13

Save area address. The first three words
in the save area may not be changed.

R14-R15

Standard OS linkage registers
The save area chain fields for the save
area pointed to by R13 must not be modified.

The output edit module will receive control on incore messages,
system messages, and message switches. It will not receive control
for a message from an application program that is a response to an
input transaction.

All registers must be restored except RO, Rl, R2, and R15. The
contents of RO and Rl, if any, are ignored by the device-dependent
routine.
R2

Must contain the count of data now in the output
buffer area that was pointed to by Rl on entry.

R15

contains one of the following return codes:
00

No action taken by the output edit. The device
module should continue sending the message and
any further segments without routing control
to the output edit module.

04

The current contents of the buffer are to be
sent to the line, and the output edit module
5.91

desires to gain control for any further segments
of this message.
08

The contents of the buffer have been changed.
What is now in the buffer should be sent, and
any further segments of the message should be
ignored (dequeued and not sent).

ERROR CONDITIONS
The line will be stopped and a message generated to the master
terminal for anyone of the following output edit module error
conditions.
1.

The return code from the output edit module exceeds 8.

2.

The count returned in R2 is negative or zero.

3.

The count returned in R2 is greater than the available buffer
space (buffer overrun).

SPECIAL CONDITIONS
The supplied output edit module makes the following assumptions:
1.

The vocabulary of the 7770-3 contains the phonetic equivalents
for the numbers 0 through 9 and that the translate table supplied by the user will convert the EBCDIC numbers to their
vocabulary equivalents.

2.

The prefix phrase (in drum address form) to be sent for system
messages follows the user translate table and the orientation
phrase and has the form nppp, wheren is a single byte containing
the count of the number of drum address bytes (p) following.
The orientation phrase has the format nppp.

3.

Because of the variable nature of the 7770-3 vocabulary, the
system definition utility requires that the user supply the
output translate table for the 7770-3. It is also the user's
responsibility to provide the required orientation phrase to
be used for system message conversion.

DATA FORMAT
The output message will be edited into the output buffer until the
end of message is reached or the buffer is full before control is given
to the output edit module. The buffer contains output message data
only and is in EBCDIC.

5.92

17 7Q=1 .Q.Y1.RUT ]DI,! ROUTINE INCLUSION DUR1NG

SYS!~l1

DEFINITION

If the IMS/360-provided output edit routine is to be used, it is
the user's responsibility to move the module, DFS07770, ~rom IMS2.LOAD
to the user library specified in the IMSGEN statement pr~or to system
defini tion.
If the user is providing his own output edit routine, the module
must be placed into IMS2.RESLIB prior to system definition.

777Q-3 OUTP!!! EDI,!

ROUTIN~

PROGRAM 1ISTIN§

For more information on the IMS/360-supplied output edit module,
see the Description of Module DFS07770 in the IMS/360 System Manual,
Volume I, Form LY20-0629.
The edit routine program listing follows for reference.

STMT
2

3
4
5
6

7
8
9

10
11
12
13
14
15
16

SOURCE STATEMENT

F150CT70

3/27172

DFS0777C CSECT

00002000
00003000
00004000
0000500C
*
*
00006COO
ANY MESSAGE SWITCHED TO THIS TERMINAL IS SENT AS IS WITH NO
* 00007000
*
MODIFICATION BY THIS PROGRAM
* OOPOAOOO
**
00009000
• SYSTEM 'COMMAND CUMPLETEC' MESSAGES ARE CONVERTED TO THE USER ** 00010.000
*
SUPPLIED ORIENTATION PHRASE
* 00011000
*
* 00012000
SYSTEM ERRUR MESSAGES ARE REPLACED BY THE USER SUPPLIED ERROR
00013000
*
PHRASE PLUS THE IMS ERROR MESSAGE NUMBER
* 00014000
* 00015000
***************************~******************************************* 00016000

***********************************************************************
**
*
7770 SYSTEM MESSAGE EDIT ROLTI~E SUPPLIEO BY IMS
*

*

•

*
*

.

*

5.93

STMT

SOURCE STATEMENT
SAVE

18
19+
20+
21+
22+
23
24
25
26
27
28
29

9

3f)

31

32
33
34

35
36
37
38
39

CT T, R8

I)()031000

L

R3 ,C TT SE f\O
R3 ,256 (R ~)
R4,R4
R4,O(R3)

000321)00

41

BH

42
43

EX
LR
LA

49 ERRMSG
50
51

52
53
54
55

56

57
58

59
60

STMf
62
63
64

5.94

L

LM
8R

4 ( Rl J, X'

EQU
LA
IC
LA
MVC
EX
LA
MVC
LA
LA
B

*

4 ( 3, R 1 ) , (5 9

ERRM SG
R4 ,;v1 OV FR Al F.
R2,R4
R15,8
R14,12(1.3)
3, 12 ,32 ( 13 )
R14

*

R3 , I (R 3, R4)

R4,0(R3)
R5,7(Rl,R4)
1)(3,R5),4(Rl)
R4 ,MOVFR~lE

NO
NO

AND NO
GET ACK PHRASE

00033000
00034000
0003.5000
00016000
00037000
00038000
00039000
00040000
00041000
000 f t2000

LENGTH CF PHRASE
COMMAND COMPLETE PHRASE
NO - ERROR MSG
SET NEW TEXT LENGTH
SET SKIP REST RETURN CODE

01)("143000
F150CT70
POINT TO ERROR PHRASE
GET LENGTH
STEP .PAST POSSIBLE SELF DESTRUCTION
SAVE ERROR NUMHER OF MESSAGE
MOVE USER ERROR PHRASE

R3,0(R4,RI)

O(3,R3),f)(R5)
R2,3(R4)
R15,8

SET ERR CR NUMBER
SET NEW LENGTH
SET SKIP REST RETURN CODE

EQU
SR

*R15,R15

8

RETURN

3/7..7/72

00045000
00046000

00047000
o 00't8 00 0
00049000
0005000C
00051000
00052000
00053000

00054000

RE TU RN

SOURC E ST AT EMENT
~SGSW

00019000
00020000
00021000
0')022000
00023000
00024000
00025000
001)26000
00027000
00028000
0002(101)0
0003COOC

fa'

MSGSW
5 ( R1 ) , X ' fO '
MSGSW
6(Rl),X'fO'
MSGSW

SOURCE STATEMENT

SHU

00018000

ALI(7) LENGTH OF IpENTIFIER
CL 7' 0779C90' I DENTIFIE R
14,12,12(13) SAVE REGISTERS
DFS07770 ,Rl2
R12,R15
R2 , S EV EN
TOO SHORT fOR SYSTEM USE
MSGSW
YES
1 ( 3, R1 ) , OF S
IS IT A SYSTEM MSG?
MSGSW

40

45 RETURN
46
47

(14,12), ,0779090
12(0,15) BRANCH AROUND 10

3/27/72

DC
DC
STM
USING
LR
CH
BL
CLC
BNE
TM
BNO
TM
BNO
TM
8NO
USING
LA
SR
IC
CLC

44

F150CT70

00055000
000'5600C

F l50r, T70

3/27/72

0005HOOO
01')05<1000
on060000

STMT
SUURCE
66 *
68 SEVEN
69 CFS
70 C59
71 tJOVf-kAZE
12

STATEMENT
CONSTANTS AND DSECTS USEO BY DFS07170
DC
H' 7'
C· OF S t
DC
DC
C' 059'
O(1,Rl),l(R3)
MVC
REQUATE

3/27/72

F150CT70

00062000
00064 ao 0
009 6 5000
00066000
00067000

00068000

7/t + ****:..'1:** *~<**** :!c***** ** ~c* ** *** **** ~:**';c* ';'* *********** *** *:x****************

75+*
76+*
17+*

*
*
*

EQUATE REGISTERS

78t*******~***************************************************************
EQU
30+RO
0

81+R1
82+R2
83+R3
1:;4+R4
B5+R5
86+R6
8-/+R1
88+H8
89+R9
90+R1O
91+Rl1
92+R12
93+R13
94+R14
(}5+R15
97

EQU
EQU
EQU
E(~U

E(JU
EQU
E(JU
EQU
E(JU
EQU
EQU
EQU
EQU
EQU
EQU
IGLl

1
2
3
4

5
6
7
8
9

10
11
12
13
14
15
CT T!3 AS E= C

00069000

98+***********************************************************************

99+*
100+*
101+*

CTT - CUMMUNICATICN TRANSLATE TABLES

OSECT~

102+************************************************** *********************

l03+CTT
l04+CTTSENO
l05+CTTREC
l06+CTTOO
l01+CTTEOIT
loa + CTTl N L.N G
1!J9+CTTBUFSl

DSECT
CS
OS
OS
OS

lll+ClTOPTl

OS
E(JU
EQU
EQU
EQU
EQU
EQU
EQU
EQU

11~+CTrlMLLT

1 l.1 + CTT It:~ AC K
114tCTTlRESP
115+CTT1BSC
116+CTTIOIAL
117+CTTIE8CC
118+CTTINOTP
119+CTT1SEBC
1~1+CTTOPT2

t22+CTT2UCAS
123+CTT2SYNC
l24+CTT2NORP
125+CTT2FRSP
126+CTT21NQ
1~3+CTTNTRYL

124+CTTTABI
130+CTTNLI
131+(TTLFI
132+
STf'.1T
134

0S

OS

OF OUTPUT TRANSLATE TABLE
INPUT TR f,NSLA Tf: T1\ BL E
POINTE~ TO DEVICE DEPENDENT ROUTINE
F •
F .ENTRY FOR USER EDIT OUTPUT ROUTINE
INPUT LINE BUFFER LENGTH
H •
MAXIMUM OUTPLT BUFfER SIZf
H •

F •
F •

C •
X' 80 •
X' 40 '
X' 20 '

X'lO'
X' 08 '
X' 04 '
X' 02'

X'Ol'

OS
EQU
EQU
EQU
EQU
cQU

C
X'
X'
X'
X'
X'

DS
OS
OS
OS
OS

C

C
C
C
H

·

LCC~TION

LOC IlT I eN

··
···
···

0

1
2
3
4

5
6

7

OF

THIS .lJEVICE HAS i>1UL TIS EG INPUT BUFF ERS
BACKSPACE ELIf-1INATIUN NOT REQUIRED
TREI\T RES PONSE TYPE AS NORM!\L MESSAGE
SSC
SII"i ITCHED
INPUT IS IN EBCO! C
NCN TP 01: V [C E:
OUTPUT IS IN EBCDIC

INFUT IS IN UPPE K CASE
UEVICE REQUIRES SYNC RON I ZAT ION
1
2:) , RE Sf T POLL NeT APPLICABLE
10 • Fe f~Fr

IX

·\llll'",c'W-*-1 »
X'i'~I'lqlh1')C'~'

PH·l~<;~

:>H,:A\[ L"JGHI
JlII,(A Sf 1$ 'r: tl /(

nOC36000
01)'117000
OI'OBOOO

!J"040000
00041000
')1;·142000

*
4' *
*
44 *.*.* * •••• *.* *.~ tlC= *** .. *** **.**** C= ****** *'
7770-'

01)011000
00012000
00013000
00014000
00015000
00C16000
1)0017000
00018000
00019000
00020000
00021000
00022000
00023000
000210000
00025000
00C26000
001)27000
(10028000

00~4'3fJOO

"1044000

a

'-l '

1'1)'=46000
"1)1)47000
1)~1)4'1COO

""':4'1':CO

Please refer to the paragraph Special Conditions in the section of
this chapter titled "7770-3 output Edit Routine - DFS07770" for a
description of the requirements for the user output translate table.
Refer also to the user output translate table listing that follows in
this chapter.
The orientation phrase is used by the device-dependent module.
Before and after each read, the phrase is sent to the terminal operator
to indicate that a read is pending on the line, and that he can now
enter his data.
The prefix phrase is optional.
It is used only by the supplied
Output Edit Routine - DFS07770.
See the description of module DFS07770
functions in this chapter.

Before executing stage 2 of IMS/360 system definition, the
user-supplied translate table must be placed in the user library
specified in the IMSGEN statement. The table must be a load module
with the name specified in the LINEGRP statement.

The default size of this pool is 7,000 bytes.
At the beginning of
the data base buffer pool, there exists a work area used by IMS/360
to retain statistics on the activity in the buffer pool.
These
statistics should be of value to the IMS/360 user in determining the
most appropriate buffer pool size for a given application program.
The following DSECT describes this work area.
There is a fullword
aligned address in the IMS/360 System contents Directory (SCD) control
block named SCDDBPPL which points to the following DSECT.
For IMS/360
Version 2.3, the SCDDBFPL fullword address is offset fr6m the beginning
of the SCD by 276 bytes (decimal). It is suggested that any program
which wishes to reference this area use the DSECTS for the SCD and the
buffer pool prefix which are in the macro library for the IMS/360
system.
The macro for the SCD DSECT is ISCD SCDBASE=O and the macro
for the buffer pool prefix is BPPL. The SCD is the major block within
the IMS/360 system. The address of the SCD can be obtained by an
application program through a GET seD call.
The format of this call
is:
CALL

, CBLTDLI'

USING

GSCD, any valid PCB-addr, IOAREA

where
GSCD
is a four-character constant for the data base function, and
IOAREA is an eight-byte area.
The first word of this eight-byte
area contains the SCD address upon return from a GET SCD call.
The second word contains the address of the PST.

R!RHIRQ:

When running a MSG or BMP region type, -using either the VS2
Operating system or the VS1 Operating system with fetch protect
specified, the GSCD call will function normally.
The operating system,
however, will not permit a program in one region (the MSG or BMP region)
to access data in another region (the CTL region), and, therefore, the
addresses returned on the GSCD call cannot be used in either a MSG or

5.97

BMP region type.
An OCQ System abend will result if they are used in
the above situation.
Since the SCD and buffer pool are in the same
Operating System Region as the application program when running in a
DLI or DBB region type, these addresses may be used by a DLI or DBB
region.

5.97.1

The buffer pool work area format is as follows:
BFPLID
BFPLSZE
BFPLFWDT
BFPLBWDB
BFPLQCB
BFPLEQP
BFPLRQCT
BFPLINPL
BFPLRDCT
BFPLALTR
BFPLOSWT
BFPLBKWT
BFPLNWBK
BFPLCHWT
BFPLCHBK
BFPLTLCP
BFPLBCMB
BFPLBMVD
BFPLISTL
BFPLIGET
BFPLGTBF
BFPLWERR
BFPLWERT
BFPLSW 1
BFPLCPCT
BFPLFBUF

DS
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DS

OF
CL4' ,
F'O' •
A (0) •
A (0)

•

2F'0' •
XL20' 0' •
F' 0' •
F'O'
F' 0' •
F' 0' •
F' 0' •
F'O' •
F' 0' •
F' 0' •
F'O' •
F'O' •
F' 0' •
F' 0' •
F'O'
F'O'
F'O'
X'D' •
X'D'.
X'D'.
X'D' •
OD.

ID OF POOL
SIZE OF POOL LESS OHEAD
ADDRESS OF LEAST RECENTLY USED BUFFER
ADDRESS OF LEAST RECENTLY USED BUFFER
QCB FOR USERS WAITNIG FOR OTHER TRMNATIONS
WORK AREA FOR BUFFER NQ AND DQ MACROES
NUMBER OF BLOCK REQUESTS RECEIVED
NUMBER OF REQ SATISFIED FROM POOL
NUMBER OF READ REQUESTS ISSUED
NUMBER OF BUFFER ALTERATIONS RECEIVED
NUMBER OF OSAM WRITES ISSUED
NUMBER OF BLOCKS WRITTEN
NEW BLOCKS CREATED IN POOL
NUMBER OF CHAINED WRITES ISSUED
NUMBER OF BLOCKS WRITTEN IN WRITE CHAINS
NUMBER OF POOL COMPACTIONS PERFORMED
NUMBER OF BUFFS COMBINED
NUMBER OF BUFFERS MOVED
NO OF RETRIEVE BY KEY CALLS REC
NO OF GN CALLS REC
NO OF BISAM READS OR QISAM SETLS
NUMBER OF PRM WRT ERR BUFFS NOW IN POOL
LARGEST NUMBER OF PRM ERR BUFFS EVER IN PL
SWITCHES
COUNT OF CURRENT NUMBER OF COMPACTORS
LOCATION OF FIRST BUFF IN POOL

The most important entries in the DSECT above are those starting
at BFPLEQP and down through BFPLGTBF.
BFPLRQCT
equals the number of requests ·for logical records, segments,
or physical blocks made to the data base buffer handler by
higher level Data Language/I modules
BFPLINPL
equals the number of requests defined under B~PLRQCT which are
satisfied from data already in the data base buffer pool without
a physical IIO operation required.
This number should be a
fraction of BFPLRQCT.
This value may be increased by increasing
the data base buffer pool size.
BFPLRDCT
equals the number of physical I/O read requests performed by
the buffer handler.
This number should be a fraction of
BFPLRQCT.
This value will norm~lly be increased by a reduction
in the data base buffer pool size.
BFPLALTR
equals the number of data base buffers altered because of
deletes, replaces, or inserts to data bases
BFPLOSWT
equals the number of physical I/O writes performed on an OSAM
data set or on an ISAM data set using OSAM to write back data.
This number should be a fraction of BFPLRQCT.

5 .• 98

BFPLBKWT
.equals the number of physical I/O write operations performed
BFPLNWBK
equals the number of new data base blocks created in the data
base pool which are subsequently written to data base storage.
This value is a counter of new physical blocks in all data bases
used.
BFPLCHWT
is the number of OSAM write operations performed where multiple
blocks are written with one channel program.
BFPLCHBK
is the number of blocks written in the mode described by the
parameter BFPLCHWT
BFPLTLCP
is the number of times the data base pool needed to be compacted
because of fragmented use of space. This value should be small
relative to BFPLRQCT.
BFPLBCMB
is the number of fragmented buffer pool areas combined to obtain
space in the buffer pool for new data from the data base
BFPLBMVD
is the number of buffers containing data which must be moved
around in a fragmented pool. Both BFPLBCMB and BFPLBMVD should
be small values. The ability to ensure these values are small
is achieved in two ways:
1)

Common block sizes for all data bases used

2)

Large data base buffer pool

BFPLISTL

is the number of retrievals by key field value made by DL/l
modules to the buffer handler.
BFPLIGET
is the number of QlSAH GET NEXT or BlSAH sequential READ calls
received
BFPLGTBF
is the number of BlSAM READs or QISAM SETL operations issued
to satisfy retrieval requests. This number should be smaller
than BFPLTSTL.
BFPLWERR

is the number of permanent
pool

WRIT~

errors currently in buffer

5.99

BFPLWERT
is the largest number of permanent WRITE errors ever encountered
in the buffer pool during the IMS/360 control or batch region
execution.
Just prior to the termination of an application program, it may
be beneficial to access the contents of the data base pool work area.
Analysis of the information should assist the user in determining the
size of the buffer pool for subsequent executions.

The Data Language/I access method called HDAM requires the IMS/360
user to supply a module for root segment placement in, or retrieval
from, an HDAM data base. One or more modules, called randomizing
modules, may be utilized within the IMS/360 system. A particular data
base has only one randomizing module associated with it. A generalized
module, which uses DBD generation-supplied parameters to perform
randomizing for a particular data base, may be written to service
several data bases.
The purpose of a randomizing module is to convert a segment search
argument key field value supplied by an application program for root
segment placement in, or retrieval from, an HDAM data base into a
relative block number and anchor point number.
After a randomizing module has been compiled and tested, and before
its use by the IMS/360 system, it must be placed into the IMS2.RESLIB
data set. Each randomizing module must have a unique name and the
name must not conflict with the already existent members of the
IMS2.RESLIB data set. Alternative locations for randomizing module
storage are SYS1.LINKLIB or any operating system partitioned data set
to which access is provided with a JOBLIB or STEPLIB job control
language statement.
The name given to the load module used for randomizing functions
with a specific data base should also appear in the DBD generation
associated with the data base. The load module name must be the value
of the "mod" parameter of the RMNAME= operand on the DBD statement
in the HDAM DBD generation.
The necessary randomizing module associated with a specific data
base is brought into core storage in either the IMS/360 online control
program region or batch processing region at the time the associated
data base is opened. If a single randomizing module is utilized for
more than one HDAM data base, it must be written, compiled, and link
edited as reentrant (RENT). It may also be placed in LINKPACK. This
will allow one copy of the module to service several data bases
concurrently open.
When an RDAM data base is to be utilized in either the IMS/360
online control region or a Data Language/I batch processing region
and the randomizing module does not exist in OS LINKPACK, space must
be provided for it. Space must be provided in the IMS/360 control
region to accommodate all randomizing modules which may be employed
for online RDAM data bases.

5.100

All randomizing modules are loaded from their resident library by
the IHS/360 open module, DFSDLOCO. The IMS/360 open module obtains
the name of the randomizing module from the control block entitled
RDMVTAB.
This block is constructed by the utility block builder program
and placed in IMS2.ACBLIB from parameters specified in the associated
OBD.
If the IMS2.ACBLIB data set is not being used, the block is
constructed in core and passed to the IMS/360 open module. The OS
LOAD macro instruction is employed.
When an application program issues a Get Unique, Get Next with
qualification, or Insert call which operates on a root segment of an
HDAM data base, the user-supplied randomizing module is invoked.
The
segment search argument and the segment I/O work area in the data base
call which relates to the sequence field of a root segment provide
the primary input parameter to the randomizing module.
The following
illustrates the format of a segment search argument.
ROOT SEGMENT NAME (SEQUENCE FIELD NAME-OPERA TOR-value)
The root segment and sequence field names are eight-character
alphameric values. The operator is a two-character arithmetic value.
A description is provided in the !~~LJQQ !£E1i£~~ion £rog~~ing
Bgfe~ ManYSl (SH20-0912).
Other operators at the root level will
give unpredictable results.
The value parameter is a term whose length
equals the length of a root segment sequence field in the data base
and whose content defines an already existent root segment to be
retrieved.
If the data base call consists of a root segment insert,
the segment search argument consists only of the segment name.
In
this case, the field value is obtained from the segment I/O area
provided in the insert call.
This field value parameter is supplied to the randomizing module
for conversion to a relative block number and anchor pointer number
within the data base.
In addition to the field value parameter supplied
by an application program, parameters from the DBD generation associated
with the data base being used are available to the randomizing module.
When a randomizing module is invoked for the purposes of conversion,
control is passed from the IMS/360 data base logical, retrieve function
module, DFSDLROO.
The parameters from DBD generation are available to a randomizing
module in a CSECT named RDHVTAB.
The address of this CSECT is passed
to the module each time a conversion is requested.

5.101

The following DSECT. defines the format of this CSECT:
DMBDACS

DSECT

DMBDANME

DS

CL8

NAME OF AD DR ALGORITHM LOAD MODULE

DMBDAKL

DS

OCLl

EXECUTABLE KEY LENGTH OF ROOT

DMBDAEP

DS

~1

EP OF ADDR LOAD MODULE

DMBDASZE

DS

H

SIZE OF THIS CSECT

DMBDARAP

DS

H

NUMBER OF ROOT ANCHOR POINTS/BLOCK

DMBDABLK

DS

F

NUMBER OF HIGHEST BLOCK DIRECTLY ADDRSD

DMBDABYM

DS

F

MAX NUMBER OF BYTES BEFORE OFLOW TO 2NDARY

DMBDABYC

DS

F

CUR NUM OF BYTES INSERTED UNDER ROOT

DMBDACP

DS

F

RESULT OF LAST ADDRESS CONVERSION

RANDOMIZING MODULE INTERFACES
Upon entry to any randomizing module, registers must be saved.
Upon return to IMS/360, registers must be restored.
A save area address
is provided in Register 13 upon entry for the purpose of register save.
The following registers upon entry to a randomizing module have
the indicated meanings:
Register

o

Data Management Block address (DMB)
DMBDACS CSECT address

7

Partition Specification Table address

(PST)

9

Address of first byte of key field value supplied
by an application program

13

Save area address.
The first three words in the
save area must not be changed.

14

Return to IMS/360 address

15

Entry point addr€ss of randomizing module

5. 102

If an HDAM data base does not have a sequence field defined.
the values supplied to the randomizing module are as follows:
a.

The executable key length field in the CSECT named
RDMVTAB is not initialized and should not be used.

b.

The value in Register 9 at entry to the randomizing
module contains the address of the first byte of the
user I/O area.

If an HDAM data base does not have a sequence field defined
at the root level, the randomizing module will only be given
control on an insert call.
All retrieval-type calls will
result in a scan mode operation to satisfy the root level
qualification.
On GU type calls, the scan is begun at the
beginning of the data base. On GN type calls, the scan
is begun at the current root level position within the data
base.
Internal IMS/360 control blocks which are of value to a randomizing
routine are: the Partition Specification Table (PST), the Data
Management Block (DMB), Physical Segment Description Block (PSDB) for
the root segment, and the first Field Description Block (FDB), which
is the root segment key field format description. DSECTs of these
blocks are provided in the examples which follow later in this section.
The result of a

ra~domizing

module conversion must be in the form

BBBR
where:
R

is a one-byte binary number of the appropriate anchor point
within a relative block within an OSAM data set of the data
base.
BBB
is a three-byte binary number of the block into which a root
segment is to be inserted or from which it is to be retrieved.
This result must be placed in the CSECT addressed by Register 1
in the four-byte fixed name DMBDACP.
If the result exceeds the content
of the field DMBDABLK, the result is changed to the highest block and
last anchor point of that block.

5. 103

~DAM

RANDOMIZING MODULE EXAMPLES

Three randomizing module examples are provided as guidance to the
IMS/360 system user. Each of the examples uses one of the following
techniques:
1.
2.
3.

Modulo or division method
Binary halving method
Hashing method

The intent of a randomizing module is to convert a root segment
key field value to a relative block number and anchor point number
in an HDAM data base.
The relative block number may range from 1 to
22~-1.
The anchor point number may range from 1 to 255.
MODULO OR DIVISION METHOD EXAMPLE
This module uses the principle that the remainder of a divide can
only range from zero to the divisor minus one. Thus, any number divided
by four can only yield a remainder of 0, 1, 2, or 3. To determine
the base location for a root segment, multiply the number of blocks
in the root segment addressable area by the number of anchor points
per block. This is effectively the number of base locations for root
segments in the root segment addressable area. Then, divide the root
segment key field value by the result of the multiplication. The
remainder indicates the appropriate base location.
To convert the base location to relative block and anchor point
numbers, divide the base location by the number of anchor points per
block. This last division leaves the relative block number as the
quotient and the anchor point.number as the remainder. Since both
numbers are relative to zero, both must be incremented by one to yield
the correct block and anchor point.
Example:
Assume

Result

a)

root segment addressable area is 50 blocks

b)

2 anchor points per block

c)

root segment key value is 23

a)

number of base locations

= 50

b)

appropriate base location

c)

= 23/100 = 23 remainder
= 11 (the quotient),

appropriate block = 23/2
appropriate anchor point = 1 (the remainder)

d)

adjust hoth numbers by one; thus, relative
block = 12 and anchor point = 2

x 2

= 100

Notice that external keys 123, 223, 323, etc. will be synonyms.
As
the number of base locations is increased, the distance between root
segments increases. This may waste direct access space. However, the
number of synonyms decreases as the number of base locations approaches
or exceeds the largest key value.
If the root segment key field value
is numeric and the number of base locations equals or exceeds largest
key value, no synonyms will be produced.

5.104

S TMT

SOURCE STATEMENT

F lSOC T10

3/27/72

2 hOCNVRTl CSECT
3 ~
*
* * * * * * * * *
** * *
* * * * * *
4
5
SAM P L E e 0 N V E' R S ION
PRO G RAM *
6
7
THIS CSECT CONVERTS AN EBCDIC NUMERIC KEY TO A RELATIVE*
B
BLOCK AND ROOT ANCHOR POINT. THIS RESULT [S OBTAINED AS
9
FOLLUWS RECNO= MOO(KEY,DMBDABLK*OMBOARAP)
10
~LOCK= RECNO/DMBDARAP+1
*
11 *
RAP
= MODlRECNO,OMHDARAP)+1
*
12
THE CSECT ASSUMES THAT THE EXTERNAL KEY IS 10 BYTES OR *
13 *
THE CSECl ASSUMES THAT THE: EXTERNAL KEY IS 1S BYTES OR *
14
LESS. NON-NUMERIC CHARACTERS ARE VALID, HOWEVER ONLY THE
*
15
FOUR LOW ORDER BITS WILL BE USED.
*
16 *
*
17 *
CALLING SEQUENCE
*
18
RO - DMB
19
Rl - DMBCACS
*
20
R1 - PST
71
R9 - KEY ADDRESS
22
ON RETURN
*
23
DMBOACP - HB3R
24
25
*
*
*
* * * * *SAVE
* * * * * * * * * * * * * * * *
26
STM
1'",12,12(13)
27
USING PST,R1
28
USING DMBDACS,R1
29
USING HUCNVRT1,R15
30
XC
PSTOECB(8),PSTUECB INIT FOR CVB
31
IC
RS,DM~DAKL
GET EXECUTABLE KEY FLO LENGTH
32
EX
RS,PACK
33,
SR
R4,R4
34
01
PSTDECO+7,X'or'
FORCE SIGN
35
cv~
R5,PSTOECB
36
L
R6,DMBOAeLK
HIGEST BLOCK NUMBER DIRECTLY ADDR
MH
R6,OMBOARAP
HIGHEST RECORD NUMBER
37
DR
R4,R6
38
39
LK
R5,R4
RECNUM
40
SR
R4,R4
41
lH
R6,OMBDARAP
DR
R4,R6
42
LA
R4,1(,R4)
ROOT ANCHOR POINT
43
LA
R5,1(,RS)
BLOCK
44
SLL
RS,B
45
46
OR
K4,R5
BBBR
ST
R4,DMBOACP
RESULT
41
it 8
LM
14,12,12(13)
RESTORE
ltC)
BR
R14
RETURN
PAC K PST 0 EC iH t) , 0 ( !) , R9 )
50 PACK
REQUATE
~1

*
*
*
*
*
*
*
*
*
*

****

*
*
*
*
*
*
*
**

*

**

****

*

***

*

*

***

*

*

* *

*
*
*
*

*

*
*
*
*
*

~3+************************************************~**********************

*

?4+*

5.105

00001000
00004000
00005000
00006000
00007000
00008000
00009000
00010000
00011000
00012000
00013000
00014000
00015000
00016000
OOOt7000
OOOlROOO
00019000
00020000
00021000
00022000
00023000
00024000
0002S000
00026000
00021000
00028000
00029000
00030000
00031000
00032000
00033000
00034000
00035000
00036000
00037000
00038000
00039000
00040000
00041000
00042000
00043000
00044000
00045000
00046000
00047000
00048000
00049000
OOOSOOOO
0 005 1 00 0
00052000

STMT

SOURCE STATEMENT

55+*
56+*

Ei,JUATE KEGISTERS

59+1<0
6C+1<1
61+R2
62+R3
63+R4
64+R5
65+R6
66+R7
67+R8
68+R9
69+R10
7G+Rll
7l+R12
72+R13
73+R14
7;.+RI5

lQU
EQU
[(JU
EQU
EQU
EQU
EQU
EQU
EQU
E(JU

0

F.QU

10
11

F150CT70

*
*
57+***********************~**~************************.*******************

5.106

EQU
EQU
EQU
EQU
EQU

1
2
3
4
5

6
7
B
9

12
13
14
15

3/27/72

S Tf'1 T

SOURCE STATEMENT

76

lOLl

17+~'

7h+*

CHANG~S

PST3ASE=C,DMBHASt=O

*

91+PSTSM~OE

92+*
9)+*
94+PSTRFfU
'
X'07'

CHECK FOR DUPLICATE lSAM BLOCK, ADOR IN PSTBFUSE
WRITE BUFFER AT PSTBFUSE
WRITE ALL BLOCKS MODIFIED BY THIS USER
MA~K BUFFER ALTERED, AODR IN PSTBFUSE
SEftRCH POOL FOR ISAM BLOCK, KEY AODRESS AT
PSTISAMW, IF FOUND, PSTBYTNM HAS ISAM RLAD,
PSTDATA HAS ADDkESS OF ISAM WORK AREA, PSTRTCDE
IS 0, IF NOT FOUND, SPACE ADDRESS IS PSTDATA,
AND PSTRTCDE IS PSTNOTFD.
X'OB' GET SPACE IN BUFFER POOL, # OF BYTES IN PSTBYTNM
PSTOMBNM & PSTCCBNM USED, 10 RETURNED IN PSTBlKNM
X'09' FREE SPACE IN BUFFER POOL, PSTDMBNM &
PSTDCBNM & PSTBLKNM HAVE 10 OF SPACE
X'OA' PUT BLOCK AT BOTTOM OF USE CHAIN & DO PSTGETNX
X'OB' LOCATE BLOCK AND MARK ALTERED, REL BYTE=PSTBYTNM
X'OC' MARK ALL BUFFERS EMPTY. USED FOR A GIVEN DMB
OR A GIVEN DCB OR A GIVEN BLOCK.
PARAMETERS - PSTCMBNM,PSTDCBNM AND PSTBLKNM.
X'FO' RETRIEVE BY KEY
BEGIN AT START OF DATA BASE
X'F1' RETRIEVE BY KEY
GT KEY ADUR AT PSTBYTNM
X'F2' RETRIEVE BY KEY
EO OR GT KEY ADDR AT PSTBYTNM
X'F4' RETRIEVE BY KEY
REC TO CHAIN THIS ONE fROM
X'F8' GEl NXT SEQUENTIAL ROOT (KEY)

210+*

SPACE

MA~AGEMENT

212+PSTGTSPC EQU
213+PSTFRSPC EQU
214+"'cpS TB TM PFEQU
215+PSTGTRAP EQU

X'Ol'
X'02'
X'03'
X'04'

GET SPACE FOR SEGMENT, R5 POINTS TO PSDB
fREE SPACE FOR SEGMENT, R5 POINTS TO PSDB
TURN OFF BIT FOR PSTBLKNM (ALSO RETURN CODE)
GET SPACE CLOSE TO ROOT ANCHOR POINT IN PSTBYTNM

217+*
218+PSTOCDSG EQU

OPEN CLOSE FUNCTION CODES
X'40' OPEN THE OSG FOUND IN PSTDSGA

220+PSTOCLD
221+PSTOCOCB
222+*
223+PSTOCOPl\
224+PSTOCCLS
225+PSTOCALL
226+PSTOCPCB
227+PSTOCOMB
228+PSTOCBAC

X'20' OPEN FOR LOAD
X'lO' DSG ADDRESS IN PSTDSGA - OPEN/CLOSE ONLY THE DCB
IN PSTDCBNM
X'OS' THIS IS AN OPEN CAll
X'OO' THIS IS A CLOSE CALL (BIT 4=0)
X'04' ClCSE All DMB'S IN THE SYSTEM
X'02' CLCSE PCB, ADDRESS OF PCB IN R2
X'Ol' ClCSE DMB, ADDRESS OF OMB IN R2
X'SO' OPEN NOT SUCCESSFUL

EQU
EQU
EQU
EQU
EfJU
EQU
E(JU
EQU

V610

INDEX MAINTAINANCE FUNCTION CODES

230+*
232+PSTXMDLT
233+PSTXMRPL
234+PSTXMISR
235+PSTXMUNL

FUNCTION CODES

EQU
EQU
EQU
EQU

V911

X'AO' PERFORM INDEX MAINTENANCE FOR SEG TO BE DlET
X'Al' I I
II
II
..
REPL V911
X' A2' I I
II
It
II
ISRT V911
X' A3' ••
••
••
" U N L O V911

237+*

BLOCK

239+PSTOMBRD EQU
240+PSTPSBRC EQU

1 READ D~B fROM ACBlIB
2 READ PSB FROM ACOlIB

lO~OER

FUNCTION CODES

5.109

3/27/72

3TMT

SOURCE STATEMENT

F150CT70

241+PSTINTRlJ EQU

3 READ INTENT & DMB NAME LISTS FROM ACBLIB

243+*

BUfFER

245+PSTRTCDE
246+PSTClOK
2't7+PSTGTOS
248+PSTRDERR
249+PSTNOSPC
250+PSTBDCAL
251+PSTENDDA
252+PSTNOTFD
253+PSTNWBlK
254+PSTNPlSP
255+PSTTRMNT

DC
EQ"U
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU

H~NDLER

RETURN CODES

lXL1'OO' STATUS OF CALL
000 EVERYTHING COPASETIC
004 RBN EEYCND DATA SET
008 PERM~NENT READ ERROR
012 NO MCRE SPACE IN DATA SET
016 ILLEGAL CALL
020 END CF DATA SET ENCOUNTERED, NO RECORD RETURNED
024 REQUESTED RECORD CANNOT BE FOUND
028 NEW fLOCK CREATED IN BUFFER POOL
032 INSUfFICIENT SPACE IN POOL
036 USER MUST TERMINATE, NO SPACE IN POOL

257+*

ISAM SIMULATOR RETURN CODES

259+PSTKEYHI EQU
260+*

012 ON SETL FOR ISRT ISAM KEY WAS HI, RETURN
CODE IN R15 WAS lERO

262+*

SPAC~

264+PSTBTMPf EQU

003 TURN OFf BIT FOR PSTBLKNM (ALSO FUNCTICN CODE)

266+PSTOFfST
267+PSTDSGA
268+PSTBlKNM
269+PSTDMBNM
270+PSTDCBNM
271+
2 "12 + PST B YTN~
273+PSTDATA
274+PSTBUFF-A
275+PSTOBSlE
276+PSTRQSlE
277+PSTDS8KQ
278+PSTBFPDQ
279+PSTBFUSE
280+PSTlFMST
281+PSTRTMST

H'O' OFfSET OF SEGMENT OR RECORD FROM PSTDATA
FlO' ADDRESS OF DATA SET GROUP PORTION OF JCB
FtO' REL~TIVE BLOCK NUMBER
H'O' OMB NUMBER
Xll' 00' eCB NUMBER
XLI'OO' RESERVED FOR ALIGNMENT
F'O' REL~TIVE BYTE ADDR OR RELATIVE RECORD NUMBER
F'O' CORE ADDRESS OF REQUESTED DATA (RECORD OR SEGMENT)
OF'O' CORE AOOR OF BUFFER HEADER
F'O' SPACE OBTAINED BY USE OF EXISTING BUFF(S}
F'O' SPACE REQUIRED TO HOLD BLOCK + OP CHNL PGM
F'O' DQ FTR FOR REQUESTED BLOCK
F'O' OQ FTR FOR BUfFER POOL
A(O) AOOR OF BUFF TO BE USED OR COMPACTEO,ZNDTM
A(O) COMFACTED BUFFER WITH lOWEST CORE ADDR
AtO) COMPACTED BUFFER WITH HGHEST CORE ADDR

DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC

283+*
284+*
286+CBLNDXC
2H7+0BLCMC
288+UBLNC1R
289+CBLLGOLT
290+CBLPHYI
291+CBLPHYD
29Z+CBLPHYR
293+CSLLASTC
294+CHLFScl
295+C8LFSEZ

5.110

MA~AGEMENT

RETURN CODES

DATA BASE lOG FUNCTION CODES
FUNCTION IN HI BYTE OF PSTWRKl
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
E(JU

EQU

X'SO'
X'OO'
X'70 t
X'60'
X'40'
X'ZO'
XIIO'
X'OB'

INCEX 1'1lUNTENANCE CALL
BIlS 1-3 -= 0 CHAIN MAINTENANCE CALL
COLNTER MAINTENANCE
LOGICAL OELETE
PH~SJCAL INSERT
PHYSICAL OELETE
PHVSICAL REPLACE
LAST CHANGE FOR THIS USER CALL
X'00' BIT 5= 0 ONE FSE (IF '40' OR 'Z()I ON)
X I 04' flr-J( FSE:' S
(IF '40' OR • 20' ON)

3/27/72

STMT

F 150CT70

SOURCE STATEMENT

296+0BLPHYRO
297+08LNEWBL
298+C8LOOPS
299+CBLBUFHl

EQU
EQU
EQU
EQU

X'02' OLe COPY OF A PHYSICAL REPLACE
X'Ol' NE~ BLOCK LOG CALL
X'OA' NO DATA - END OF USER CALL
X'FO' BUFFER WRITE CALL

301+*

PSTWRK1,2,3,4 USAGE BY DB LOG

303+*PSTWRKl
304+*PSTWRK2,3,4
305+*
306+*
307+*
308+PSTWRKl DC
309+*
310+*
311+PSTWRK2 DC
312+*
31.3+*
314+PSTWRK3 DC
315+*
316+*
317+PSTWRK4 DC
318+*
319+*
320+PSTNUMRD DC
321+PSTNUMCP DC
322+PSTNUMWT DC
323+PSTCLRWT DC
324+PSTIWAIT EQU
325+FSTLOGQ DC
326+PSTLOGWA DC
327+PSTISAM~ DC
328+PSTWRKT1 DC
329+ PSTWRKT 2 DC
330+PSTWRKT3 DC
331+PSTWRKT4 DC
332+PSTWRKT5 DC
333+PSTWRKDl DC
334+PSTWRKD2 DC
335+PSTWRKD3 DC
336+PSTWRKC DC
337+PSTLEN
EQU

PHYSICAL SOB ADDRESS/COUNT IF NEW BLOCK CALL(LO 2 BYTES)
LOGICAL CELETE - OLD COpy OF PHYSICAL CODE AND DELETE
BYTE (2 EYTES), CHAIN MAINTENANCE - OLD COpy OF CHAIN
POINTER (4 BYTES), PHYSICAL INSERT AND DELETE - OFFSETS
AND NEW FSE'S (6 OR 12 BYTES)
F' 0'

NEXT CHECKED - COMPACT
TRMNATE SIZE - FIND SPACE
F' 0'

SPACE COLLECTED SO FAR (HGH 2BYTES - CPS)
PST MASK WORK AREA IF WRT ERR - BFFRWRT
F'O'
DO PTR FOR BUFF(S) BEING WRITTEN - BFFRWRT
TEMP SAVE OF BLOCK NUMBER -SPCIAA
FlO'

DCB LAST BLOCK WRITTEN BEFORE WRITE -BFWRT
TEMP SAVE OF DQ PTR - SPCIAA
XLl'O' NUMBER OF BLOCKS READ ON THIS CALL
XLl'O' NUMBER OF POOL COMPACTS ON THIS CALL
XLl'O' NLMBER OF WRITES ISSUED ON THIS CALL
X'OO' INCICATORS
V878
X' 80' IWAI T I SSUED ON THI S CALL
V878
AlO) ADDRESS OF REUSE QUEUE QCB IN POOL
A(O) ADDRESS OF WORK AREA FOR LOG DIP
F'O' WORK AREA USED BY ISAM SIMULATOR
F'a' WORK SPACE PHESERVED ACCROSS CALLS TO BUFF HANDLER
F'O' WORK SPACE PRESERVED ACCROSS CALLS TO BUFF HANDLER
F'O' WORK SPACE PRESERVED ACCROSS CALLS TO BUFF HANDLER
F'O' WORK SPACE PRESERVED ACCROSS CALLS TO BUfF HANDLER
F'a' WORK SPACE PRESERVED ACCROSS CALLS TO 8UFF HANLLER
F'O' WORK SPACE FOR USE BY DELETE/REPLACE
F'a' WORK SPACE FOR USE BY DELETE/REPLACE
F'O' WORK SPACE FOR USE BY DELETE/REPLACE
3F'O' lSED BY CONVERSICN ROUTINES
*-PST

339+* COMMUNICATION AREA FOR BLOCK BUILDER UTILITY - OFSUACBO
340+
ORG
PSTOSGA
BUILDER INTERNAL FLAGS
341+PSTBFLAG OS
XLl.
PRE-COMPRESS REQUESTED
342+PRECOMP EQU
X'BO'.
POST COMPRESS REQUESTED
343+POSTCOMP EQU
X'40·.
PSG=ALL REQUESTED
344+PSBALL
EQU
X' 20·.
DATE FOR THIS RUN
345+PSTOATE OS
PL3.
TIME AT START OF THIS RUN
346+PSTTIME OS
F.
A(LCB) FOR DBD & PSB BUILD LIST
347+PST8l0L OS
A.
ENTRY POINT TO MESSAGE ROUTINE
34B+PSTMSGR OS
A.
ENTRY POINT TO BLK BUILDER MSG ROUT
~49+PSTLBLMO OS
A.
ADDRESS OF OC3 FOR IMSACB OUTPUT
350+PSTDCBAC OS
A.

5.111

3/27/72

STMT

FlSOCT10

SOURCE STATEMENT

351+PSTDCBSC
352+PSTPNAME
353+PSTPTTR
354+PSTPMBRC
355+PSTPTTRI
356+PSTPTTNl
357+PSTPFlAG
358+PSTPoATE
359+PSTPTIME
360+PSTPSIZE
361+PSTPBfR
362+PSTPDMOP
363+PSTPXWA
364+PSTPENo
365+*
366+* AC6lIB
367+*
368+
369+PSTDNAME
370+PSToTTR
371+PSTOMBRC
372+PSTDTTRI
373+PSTDTTNI
374+PSToflAG
375+PSTooATE
376+PSTDTIME
377+PSTOSIZE
378+PSTDBfR
379+PSTolSIZ
380+
381+PSTOENo
38-2+
383+PSTMFlGS
384+PSTMlOM8
385+PSTMSSTC

os

A •

OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
EQU

Cl8 •
XL3 •
X •
XL3 •
X •

ADDRESS OF DCB FOR IMSACB INPUT
PS B NAME
*MBRNAME *
PS eMEMBER TTR
*MBRTTR lOt
DIRECTORY FLAG BYTE
*MBRC
*
INTENT&oBO NAME LIST TTR *MBRTTRI lie
RESERVED--(ALWAYS ZERO)
*MBRTTRN1*
BIT 7 ON= THIS IS A oMB
*MBRFlAG *
JU LI AN RUN OAT E
*MBROATE *
BI NARY RUN TIME
*MBRTIME *
# OF OBLWOROS 1M MEMBER
*MBRSIZE *
CORE SIZE IN DBLWORDS
*MBRBFR *
DATA MGMT OPTIONS
*MBRoMOPT*
SIZE OF INDEX WORK AREA
END OF ACBLIB PSB oIR. ENTRY

X •

PL3.
F •
H •

H •
F •
H •

*

DIRECTORY ENTRY FOR DMB-- FIELDS COMPARABLE TO PSB ENTRY
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
EQU
ORG
OS
EQU
EQU

OF
CL8 •
XL3

OM B NAME

X

TTR OF oMB SEQ LIST - ZERO IF NONE
AL WAYS ZERO
BIT 1 ON FOR DMB

XL3 •

X •
X •
Pl3
F
H
H,

SIZE OF oMB SEQ LIST
UNUSED

H •
2H •

*PSTBLKNM
XLI •
X'OI' •
X'02' •

LOADER FLAG BYTE
'LCADoMB' MUST BE CALLED
RESOURCES RESERVED FOR AT lEAST ONE OMS

38cH* ••• 0 A T A

MAN AGE MEN T

390+0MB
391+0MBSIZE
392+CMBLENTB
393+0M8SECTB
394+CMBORG

DSECT
OS
OS
OS
OS

H OMB 51 IE
H OFFSET FROM OMB TO FIRST PSOB (DMBPSDB)
H OFFSET FROM OMS TO FIRST SECONDARY LIST (DMBSEC)
XLI OMB CRGANIZATION

396+CMBISAMI
397+CMBISAM2
398+DMBSSAM
399+0MBHSAM
400+CMBHO
401+CMBHI
402+CMBNDEX

EQU
EQU
EQU
E(.1 /J
E( J

EQU
EQU

404+CMBLoOC8 OS
405+CMBRESl OS

5.112

001
002
003
004
00 S
006
007

B L 0 C K :

ISAM t.ASE 1
ISAM CASE 2 {MULT OSG'SJ
SSAM (SEQ WITH ONE SEG TYPE)
HSAM (SEQ WITH MUlT 5EG TYPES)
HO 0 IR ECT
HD I f\OEXED
INDEX DATA BASE

OXLI DCB PREFIX NO FOR FElATI0NSHIPS AND NDEX ON LOAD
Xll RESERVED FOR ALIGNMENT

3/21112

STNT

SOURCE STATEMENT

Fl50CT70

406+LJMBNREF
407+CMBOALGR
408+DMBPPRND
409+0MBPPRLN
410+CM80CBOF
4I1+CMBOCBOL
4I2+CMBDCBAP
413+DMBOCBMX
414+CMBDCBMN
415+0MBOCBLf'.l
4I6+DMBPSCB
417+DMBSC
4I8+DI"1BPSC
419+0MBLEV
420+DMBXNULL
421+CMBPPFO
422+CMBPPBK
423+DMBDCB
4Z4+DMBPTR

OS
OS
EQU
EQU
OS
OS
OS
OS
OS
EQU
nSECT
OS
OS
OS
OS
OS
OS
OS
OS

OXLl NUMBER Of ENTRIES IN EXTERNAL REFERENCE TABLE
F ADOR OF DIRECT ALGORYTHM CSECT
* END OF PRE PREFIX SECTION OF DMB
DMBPPRNO-DMB LENGTH OF PRE PREFIX SECTION OF DMB
H OFFSET FROM * TO DCB
XLl DELT~ CYLINDERS TO SCAN
XLI NUMBER Of ROOT ANCHOR POINTS IN EACH BLOCK
H LENGTH OF LARGEST SEGMENT STORED IN DATA SET
H LENGTH OF SMALLEST SEGMENT STORED IN DATA SET
*-OMBPPR~D LENGTH OF EACH DCB SECTION OF OMB

4Z6+0MBCTR
427+DMBPTFO
4Z8+DMBPTBK
4Z9+UMBPP
430+0HBLTFD
43I+DMBLTBK
432+CMBLP
433+DMBHIER

EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU

x'so'

435+DMBPRSZ
436+CMBDL
437+CMBISRT

OS
OS
OS

H PREF IX SIZE
H DATA LENGTH OF SEGMENT AS USER SEES IT
XLI INSERT RULES

43CJ+DMBXNLP
440+0MBIHERE
441+DMBILST
4 /t2 + CMSI F ST
443+Ct'-1BIRL
444+DMBIRP
445+0MBIRV

EQU
EQU
EQU
EQU
EQU
EQU
EQU

X'SO'
X'30'
X'20'
X'lO'
X' 03'
X'OZ'
X'OI'

447+CMBOLT

OS

XLI DELETE

't49+ DMBORLC
450+0MBDRPC
451+DMBORVC
452+DMBRRL
453+0MBRRP
454+0MBRRV
'tS5+CMBDRL
456+0MBORP
457+CMBDRV

EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU

X' 30 •
X' 20 '
X' 10 •
X'OC'

45<3+CMBCKL
460+CMBUSE

OS
OS

XLl
XLl
XL 1
XL 1
XL I
XL 1
XLi
XLI

SEGMENT CODE
PARE t\T
LEVE L
DO NCT CREATE [NOEX ENTRY IF FIELD
PTR f\O IN PARENT TO FIRST
PTR f\0 IN PARENT TO LAST
DCB ~O
PREF IX FLAGS

X'40'
X'ZO'
X'lO'
X· 03'
X'04'
X' 02'
X'Ol'

X· 08 '

X'04'
X'03'
X'OZ'
X'Ol'

THI S BYTE

eTR PRESENT
PT FWD
PT BKD
PP
LT FWD
LT BKD
LP
HIER

IN5ERT RULE FOR INDEX, NULL BYTE PRESENT
FOR NON KEYED SEGMENT~ INSERT AT CURRENT POSITION
FOR NON KEYED SEGMENT, INSERT AFTER EXISTING SEG
FOR NON KEYED SEGMENT, INSERT BEFORE EXISTING SEG
INSERT RULE IS LOGICAL
INSERT RULE IS PHYSICAL
INStRT RULE IS VIRTUAL
R~PLACE

RULES

IN CUC EO DELETE RULE IS LOGICAL
INCUCED DELETE RULE IS PHYSICAL
[f\! CUCEU OEL TTE RULE IS VIRTUAL
RE PLACE RUL E [S LOGICAL
RE FLACE RULE IS PHYSICAL
RE PLACE RULE IS V[RTUAL
DE lE TE RULE FOR SEG IS LOGICAL
OEU:TE RULE FOR THIS SEG IS PHYSICAL
DEL f= TE RULE FO R SEG [S VIRTUAL

H CUNCATENATED KEY LENGTH TO SEG

or :'1

5.113

3/Z7/7 Z

STMT

SOURCE STATEMENT

F 150CT70

X'SO' THIS PSD~ IN USE EXCLUSIVELY
X'40' THIS PSDB IN USE FOR UPDATE
BITS 2-7 CONTAIN A COUNT OF READ ONLY USERS

462+CMBEX
463+0MBUP
464+*

EQU
EQU

466+CMBFDBA
467+CMBFSDB
468+DMBFLAG

OS
OS
OS

A

470+DMBPAIR
471+0MBLPEX
472+DMBLCEX
473+0MBNXEX
414+DMBXOEX

EQU
EQU
EQU
EQU
EQU

X'48'
X'40'
X'ZO'
X'10'
X'04'

476+DMBLST
477fDMBPSDBN
478+CMBPLEN
479+0MBSEC
480+CMBSCDE

OS
EQU
EQU
OSECT
OS

F ADDRESS OF SECONDARY LIST FOR THIS SEGMENT
* END OF ONE SEGMENT ENTRY
OMBPSDBN-DMBSC LENGTH FO EACH SEGMENT DESCRIPTION IN DMB

482+DMBSLP
483+0MBSLC
484+0MBSRCH
485+DMBSLCF
486+0MBSLCPR
487+0MBSOURC
488+0MBSUBSQ
489+0MBEXTRN
490+0MBINDXD
491+DMBNXISS
492+*
493+DMBNXXDS
494+*
495+*
496+CMBSNO

EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU

X'Ol'
X'02'
X'04'
X'08'
X'll'
X'20'
X'24'
X'40'
X'44'
X'60'

EQU
EQU

F ADDRESS OF FOB'S FOR THIS SEGMENT
FIRST SOB FOR THIS SEG
OXLl SECCNDARY LIST FLAG
A PHYSICAL PAIR EXISTS
LOGICAL PARENT EXISTS
ONE OR MORE LOGICAL CHILDREN EXIST
ONE OR MORE INDEXES EXIST
AN INDEXED SEGMENT EXISTS
A

XLI CODE BYTE
SEC LIST DESCRIBES A LOGICAL PARENT
SEC LIST DESCRIBES A LOGICAL CHILD
SEC LIST DESCRIBES INDEX SEARCH FIELD(S)
SEC LIST DESCRIBES LT SEQUENCE FIELD
SEC LIST DESCRIBES PHY PAIR OF LOGICAL CHILD
SEC LIST DESCRIBES INDEX SOURCE FIELD(S)
SEC LIST DESCRIBES INDEX SUBSEQ FIELD(S)
SEC LIST DESCRIBES USER INDEX EXlT ROUTINE
SEC LIST DESCRIBES INDEXED SEGMENT
SEC LIST DESCRIBES INDEX RELATIONSHIP
AS SEEN FROM INDEX SOURCE SEGMENT (ISS)
X'64' SEC LIST DESCRIBES INDEX RELATIONSHIP AS SEEN
FROM INDEXED SEGMENT (XDS) THIS LIST NOT
PRESENT IF ISS: XDS
X'80' LAST IN SECONDARY LIST

498+0MBSFLDS EQU

* FOLLOWING FIELDS LISTED BY CODE TYPE

500+*

****

502+DMBSFLG
503+DMBVKY
504+0MBPKY
505+DMBSfD
506+DMBSECSC
507+lJMBSECDB
508+DMBSECNf'
509+
511+*

OS
EQU
EQU
OS
OS
OS
OS
ORG

C C DE

o

1 . ****

XL 1
C'V' KEY OF LP IS VIRTUAL
C'P' KEY OF LP IS PHYSICAL
H LP KEY LENGTH
OCLI SEG~ENT CODE OF REFERENCED SEGMENT
A DDIR ACDR OF REFERENCED DATA BASE
CL8 SEGMENT NAME OF EXTERNAL SEGMENT
DMBSFLDS
****

C C Df

o

2

* ***

513+
OS
XLl NOT LSEO
514+DMBSL,CFL OS
H NO OF' FIRST AND LAST LC PTRS IN LP PREFIX
515+*
REMAINDER SAME AS CODE 1

5.114

3/27/72

STMT

SOURCE

516+

F150CT70

STATEM~NT

ORG

QMBSFLDS

518+*

**** ceo

S20+CMBFDFLG OS
521+*

5XLl 5 O~E BYTE FLAGS ASSOCIATED WITH THE
THE FOLLOWING 5 jiALFWORD,FOB OFFSETS

523+0MBSYMl
524+CMBSYMNl
525+CMBSYSFD
526+CMBFDUSE
.527+DMBFOOFF
528+*
52<;+

EQU
EQU
EQU
EfJU
OS
ORG

533+
534+DMBSFNAtJ.
535+CMBSFOFF
536+CMBSFCEt\
537+CMBSFLEN
538+CMBXSOFF
539+

OS
OS
OS
OS
OS
OS
ORG

543+*

SAME

547+*

SAME

551+*

SAME

COD E

o

8

* ***

ceo

E

1 1

* )',c**

E

2 0

****,

E

2 4

* ***

E

4 0

* ***

AS CODE 1

ceo

AS CODE 4

****

549+*

* ***

XLI NOT LSED
CL8 FOB FIELD NAME
H OFFSET TO FIELD START
XLI CODE UYTE (SAME AS FD80CENF)
XLI EXECLTABLE FJELD LENGTH
H OFFSET OF FIELD IN INDEXED SEGMENT
DMBSFLOS

)',c***

545+*

4

FIRST PART Of SYMBOLIC POINTER
X'04' NOT FIRST PART OF SYMBOLIC PTR (MIDDLE OR LAST)
X'OZ' THIS SLOT FOR SYSTEM RELATED FIELD
X'Ol' THIS Sl.OT IN USE
5H OFFSET TO FOB FROM 1ST FOB OF ISS IF
THIS SLOT IN USE, OTHERWI~E ZERO
DMBSFLDS

****

541+*

o

x'oa'

****

531+*

E

ceo

AS CODE4

553+*

**** ceo

555+0MBSFLGl OS

XLI FLAG 8 YTE

557+0MBSNULL
558+CMBEXIT
559+0MONLXll
560+DMBEXLOD

EQU
EQU
EQU
EQU

X'Ol' NULL FIELD PRESENT
X'02' EXIT ROUTINE PRESENT
X'03' 80TH NULL FIELD AND EXIT ROUTINE PRESENT
X'04' EXIT ROUTINE HAS BEEN LOADED

562+
563+0M8NBYTE
564+m.. 8XITAD
565+DM8XITNM
566+

OS
OS
OS
OS
ORG

H NOT USED
oeLI IF INDEX FIELD = THIS BYTE BYPASS INDEXING
A ENTRY FOINT OF EXIT ROUTINE
CL8 NAME OF INDEX EXIT ROUTINE
DMBSFLDS

* ***

568+*

****

570+DMBSKYLN OS

XLI EXECLTABLE LENGTH OF KEY

ceo E

4 4

5.115

3/271'72

STMT

SOURCE STATEMENT
OS

F150CT70

571+CMBSOFF
572+*
573+CMI:3XDSSC
?74+0MBXOSOB
57S+CMBXDSC
576+0MI:3XPSDB
577+CMBXDFLG

OS
OS
OS
OS
OS

H OFfSET TO CODE 60 OR 64 FROM START OF SECONDARY
LIST OF INDEXED SEGM
OXLI SEG~ENT ceDE OF INDEXED SEGMENT
A DOIR ACO~ OF INDEXED SEGMENT
OXLl SEG~ENT ceDE OF INDEXED SEGMENT
A PSDB ACDR OF INDEXED SEGMENT
XLl CODE BYTE FROM ASSOCIATED FOB

579+0M8XOLST
58C+L;M8XOSYM
581+CM8XOSSS
5&2+CMBXOSPC
583+CMBXOCOf\
584+0MBXOSSQ
585+CMBXDSOR
586+CMBXDEQ

EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU

X'BO' IN FOB LIST LAST FOB
X' 40 t IN CEX PU I NTER IS SYMBOL I C
X'20' PTR CONTAINED IN SOURCE/SUBSEQ DATA
X' 10' SPEC I AL F DB
x'oa' CO~STA~T PRESENT
X'04' SUeSEQ PRESENT
X'02' RESERVED
X'OI' XDS = ISS

588+0MBXOPAL OS
589+CMBSYMOF OS
ORG
590+

XLI PADDING CONSTANT
H OFFSET TO SYMBOLIC POINTER INDEXING SEGMENT
OMBSFLOS

592+*

****

594+
595+0MBXNSSC
596+DMBXNSDB
597+*
598+

6 0

* ***

OS
XL3 SAME AS CODE 44
OS
OXLl SEG~ENT ceDE OF INDEXING SEGMENT
DS
A DOIR ACDR OF INDEX
REMAINDER SAME AS CODE 44
ORG
UMBSFLDS

**** ceo

600+*
602+
603+0MBISSOF
604+
605+0MBISSSC
606+CMBIPSDB
607+
60B+OMBSECNO
609+0MBSECLl\

OS
DS
OS
OS
DS
OS
EQU
EQU

611+ CMBDACS
6l2+0MBDANME
6l3+0MBDAKL
614+CMBOAEP
615+DMBDASlE
6I6+CMBDARAP
617+0MBOABLK
618+0MBOABYti
61S+CMBOABYC
620+CMBOACP
621

OSECT
OS
OS
OS
OS
OS
OS

5.116

C ( D E

3/27/72

os

OS
OS
END

E

6 4

* ***

XLI SAME AS CODE 44
H OFfSET TO CODE 60 FROM START OF ISS SEC LIST
A S~ME AS CODE 60
OXLl SEG~ENT CODE Of INDEX SOURCE SEGMENT
A PSOB ACDR OF INUEX SOURCE SEGMENT
F SAME AS CODE 44
* END OF EACH SECONDARY LIST ENTRY
DMBSECND-OMBSEC LENGTH OF EACH SECONDARY LIST
CLa NAME OF AOOR ALGORYTHM LOAD MODULE
oell EXEC ROOT KEY FLO LNGTH
A E P OFADDR LQAO MODULE
H SIZE OF THIS CSECT
H NUMBER OF ROOT ANCHOR POINTS/BLOCK
F NUMBER Of HIGHEST BLOCK DIRECTLY ADDRSD
F MAX NU~ OF BYTES BEFORE OFLOW TO 2NOARY
F CUR NU~ OF BYTES INSERTED UNDER ROOT
F RESULT OF LAST ADOR CONVERSION
00055000

BINARY HALVING METHOD EXAMPLE
This module attempts to distribute root segments across the root
segment addressable area according to the bit pattern of a root segment
key field value after it has been converted to a bina~y value.
This
distribution is performed as follows: A result register is set to zero.
After a key field value has been converted to binary, the number of
base locations (number of blocks in the root segment addressable area
times number of anchor points per block) is computed and divided by
two. The low-order bit of the converted key field value (ckey) is
tested for one.
If equal to one, the current number of base locations
is added to the result register.
If the low-order bit is zero, no
addition to the result register is performed.
The number of remaining base locations is again divided by two and
the quotient tested for zero.
If nonzero, the next higher bit position
in the ckey is tested for a one or zero and the appropriate action
taken. This process continues until the number of remaining base
locations divided by two yields a quotient of zero.
At this point,
the appropriate base location is in the result register.
In order
to produce the proper relative block number and anchor point number,
divide by the number of anchor points per block. The division yields
a quotient of relative block number and remainder of anchor point
number.
As in the previous module, the results are both relative to
zero and must be incremented by one to yield the appropriate values.
Example:
Assume

a)

10 blocks in root segment addressable
area

b)

2 anchor points per block

c)

root segment key field value of 29

After initialization:
No. of remaining
locations

~gse

1 1 101

{10x2)/2

=

10

Result
Register

o

After bit tested

. x.. x.
.
x

.x.

10
5
2
1

10
10
12
13

At this point, the number of remaining base locations is reduced to
zero.
Hence the appropriate base location is 13. To get the actual
relative block number and root anchor point, divide 13 by 2 and adq
1 to both the quotient and the remainder to yield a relative block
number of 7 and an anchor point number of 2.
Notice that the number of base locations determines when testing ceases.
Hence, in this example, all key field values ending in the same four
bits will be synonyms. Additional bits of the key are tested when
the number of base locations exceeds another power of two. If the
number of base locations is not a power of two, some of the base
locations will never be used.
The major advantage of this method is that the relative order of
root segment placement is disturbed very little when the number of
base locations is changed.
5.117

STMT

SOURCE STATEMENT

F 150CT70

*
** ****** **** **** **
* * * * * * * * * * B* I * ~ * A*R *Y* * HAL
V N G
CONVERT
*
*
THIS CSECT DETERMINES THE RELATIVE BLOCK AND ROOT
*
ANCHOR POINT BY A BINARY HALVING TECHNIQUE. THIS APPROACH
*
IS SLOWER THAN THE MODULO SCtiEMES, BUT IT ODES TEND TO KEEP
*
THE SAME PHYSICAL SEQUENCE WHEN THE NUMBER OF ADDRESSABLE
*
BLOCKS IS CHANGED. SINCE THE ROUTINE USES SHIFTS ON INTEGER
*
NUMBERS, SOME RECORD NUMBERS WILL BE INACCESSABLE IF THE
*
TOTAL NUMBER OF DIRECTLY ADDKESSABLE RECORDS (BLCCKS*ROOT
*
ANCHOR POINTS) IS NOT A POWER OF 2
*
*
* * * * *STM
* * *14,12,12(13)
* **** *** *** **** ** ** *~ ******

3
4 •
5
6

7
B
9

10
11
12
13
l't

15
16
17

18
19

20
21
22

23
24
25
26
27
28
29

30 CVTL?
31

32
33
34

35
36
37
38 XIT
39
40
41

42
43

44
45
46
47
48 PACK
49
50
595
620

5.118

USING
US I NG
USING
XC
IC
EX
OJ
CVB
L
MH
SR
SRL
LTR
Bl
SR
SRDL
LTR

PST,R7
OM BOAC S , R1
DFSHDC20,R15
PSTOECB( S},PSTOECB
R5,DMBDA~L

IN IT FOR CVB
GET EX KEY LENGTH

R5, PACK
PSTDECB+7,X'OF'
FORCE VALID SIGN
R2,PSTDECB
R4,DMBDA8LK
R4,DMBDARAP
HIGHEST RECORD IN RANGE
R5,R5
CLE AR RESULT REG
R4,1
CUT RANGE IN HALF
R4,R4
RAN GE EXHAUSTED
XIT
YES
R3,R3
NO
R2,1
TES T MASK FOR 1
R3,R 3
8l
CVTl P
NO ONE
BXH
R5,R4,CVTLP
ONE - ADO IN RANGE
OS
OH
LH
R6,DMBOARAP
DR
R4,R6
LA
R4 t 1 ( t R4 )
ROOT ANCHOR POINT
LA
R5 , 1 ( t R5 )
BLOCK
SlL
R5,8
OR
R4,R5
ST
R4,DMBDACP
RES UL T
LM
14,12,12(13)
BR
R14
PACK PSTDECB( 8) ,O( 0,R9)
PRINT NOGEN
lOLl
PSTBASE=C,OMBBASE=O
REQUATE
END

3/27/72

00002000
00003000
00004000
00005')00
00006000
00007000
00008000
00009000
00010000
* 00011000
* 00012000
00013000
00014000
00015000
00016000
00017000
00018000
00019000
00020000
00021000
00022000
00023000
00024000
00025000
00026000
00027000
00028000
00029000
00030000
00031000
00032000
00033000
00034000
00035000
00036000
00037000
00038000
00039000
00040000
00041000
00042000
00043000
00044000
00045000
00046000
00047000
00048000
00049000
00050000
00051000

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

HASHING METHOD EXAMPLE
This module uses a shift and add technique to develop a 31-bit
binary number which should have a fairly even distribution from 0 to
231. The number is developed as follows: The result register is
initialized to zero. The first character of a key field value is added
to the result register and the register is shifted left three
hexadecimal digits. The bits of the register shifted left and off
the register are then added back to the register containing the previous
shift result. This partial result is tested to be odd or even.
If
odd, the contents of the register are complemented. The original
character is then added to the register.
This process is repeated
for each character in the key field value. Instead of starting off
with a zero content in the result register, the result of the previous
content is used.' When the key field value characters are exhausted,
the result is adjusted to guarantee a 31-bit positive result.
Example:
Assume
~Character

a)

Key field value

= ABCD

Result Regi2te!:

A

OC100000
OC10C100

After test for complement
After completion of A

B

1C20c10C
1CE1C20C

After test for complement
After completion of B

C

2CF1CE1C
EDF2CF1C

After test for complement
After completion of C

D

FEOEDF2C
FFOFEOED

After test for ,complement
After completion of D

7FOFEOED

positive number

The result can then be used as input to the modulo or binary halving
technique. The latter technique is used in this example.

5. 119

SOURCE STATEMENT

STMT

F150CT10

* * * * * * * * * * * S* * M*P* L*E* * *HAS
* * H* *I N* *G*T* E
* • C*H* N* I * Q* U* E**
*
*
*
THIS CSECT IS A ONE METHOD OF HASHING, AN EXTERNAL KEY *
*
INTO A 31 BIT SINARY NUMBER WHICH CAN THEN BE USED AS INPUT *
*
TO THE B INAR Y I-ALVI NG ADORES SES RESOLUTION OR A MODULO SCHEME*
*
TO DETERMINE THE BLOCK AND ROOT ANCHOR POINT.
*
*
THIS ROUTINE PLACES FEW RESTRICTIONS ON THE EXTERNAL
*
*
KEY E.G. IT CAN BE 156 BYTES LONG, IT CAN CONTAIN ANY BIT
*
*
PATTERN. THE KEY SHOULD BE LeNGER THAN 3 CHARACfERS TO INSURE*
*
SOME SPREADING, HOWEVER IT WILL WORK ON SHORTER KEYS.
*
*
*
*
CALLING SEQUENCE
*
*
RO - DMB
*
*
1 - DMB[ACS
*
*
7 - PST
*
*
9 - KEY ADDRESS
*

2
3 •

3/21/12

00001000
00002000
4
00003000
5
00004000
6
00005000
j
00006000
8
00001000
9
00008000
10
00009000
11
COOlOOOO
12
00011000
13
00012000
14
00013000
15
00014000
16
00015000
17
00016000
18
00017000
19 *
ON RETURN
* 00018000
20 *
DMBDACP - BBBR
* 00019000
21
00020000
22 * * * * * * * * * * * * * * * * * * * ~ * * * *
** * * ** *
00021000
23 OFSHDC30 CSECT
00022000
24
STM
RI4,R12,12(R13)
00023000
25
USING DFSHDC30,R15
00024000
26
USING OMBDACS,Rl
00025000
27
SR
·RI2, R12
00026000
28
BCTR R12,0
SET TO ALL FF S
00027000
29
SR
Rll,Rll
00028000
30
LA
R9,0(,R9)
CLEAR ANY HIGH ORDER BiTS
00029000
31
SR,
R7,R7
INIT.
00030000
32
IC
R7,DMBOA~L
FOR
0003100C
33
AR
R7,R9
LATER
00Q32000
~4
LA
R6,l
BXLE
00033000
35
SR
R2,R2
00034000
36 LOOP
OS
OH
00035000
37
Ie
Rll,O( ,R~)
GET GROUP OF 8 BITS
00036000
38ALR
R2,Rll
ADD TO HASH
00037000
39
SR
R3,R3
00038000
40
SRDL R2,12
BREAK UP CHAR PATTERNS
00039000
41
OR
R2,R3
ADO INTO HIGH PORTION
00040000
42
STC
R2,DMBDACP
COMPLEMENT
00041000
43
TM
OMBDACP,X'Ol'
ON
00042000
44
BZ
PASS
MODERATELY00043000
45
XR
R2,R12
CHANGING
00044000
46 PASS
SR
R3,R3
BIT
00045000
47
ALR
R2,Rli
DO SECOND PASS
00046000
48
SRDl R2,l2
WITHOUT
00047000
49
OR
R2,R3
COMPLIMENT
00048000
50
8XLE R9,R6,LOCP
EXHAUST KEY
00049000
51
N
R2,NOSIG~
FORCE POSITIVE 31 BIT ~ESULT
00050000
52
USE H2 AS INPUT TO HALVING OR MODULO SCHEME - HALVING SHOWN
00051000
53
L
R4,DMBDAfLK
00052000
54
MH
R4,DMBDARAP
HIGHEST RECORD IN RANG~
00053000
55
SR
R5,R5
RESULT REG
00054000
56 CVTL?
SRL
R4,1
CUT RANGE IN HALF
00055000

*

*

5. 120

~

*

*

*

*
**

STMT

SOURCE STATEMENT

57
58
59
60
61
62
63
64 XIT
65
66
67
68
69

70
71
72
73
74 NOSIGN
75
76
313
338

R4,R4
LTR
XIT
Bl
SR
R3,R3
SROL R2,1
LTR
R3,R3
CVTLP
BZ
BXH
R5 ,R 4, CVTl P
R6,OMBOARAP
LH
DR
R4,R6
R4,1 (, R4 )
LA
R5 ,1 ( ,R5 )
LA
R5,8
Sll
OR
R4,R5
ST
R4,DMBOACP
LM
R14,R12,12(R13)
BR
R14
OS
OF
DC
X'7FFFFFFF'
PRINT NOGEN
lOLl OMBBASE=C
REQUATE
END

F 150CT70
RANGE EXHAUSTED
YES
NO
TEST MASK FOR ONE

3/27/72

00056000
00057000
00058000
00059000
00060000
00061000
00062000
00063000
00064000
00065000
00066000
00067000
00068000
00069000
00070000
00071000
00072000
00073000
00074000
00075000
00076000
00077000

NO ONE
ONE - ADD IN RANGE
ROOT ANCHOR POINT
BLOCK
RES UL T
RET URN

5.121

12ATA BASE 1.QQ

ng] !!ECQ!!12 FOEMA!

The following DSECT provides an image of the log tape record format
a11.data base modifications.
This log tape record format is
provided. to facilitate the writing of any user-written statistics,
recovery analysis, or batch checkpoint/restart programs.
~or

DBLOG
DLENGTH
DSPACE
DLOGCODE
DLOGFLGl

DSECT
DS
DS
. DS
DS

H
H
CLl
CLl

LENGTH OF LOG RECORD
ZEROS
LOG RECORD I.D •
BITS 0-3 =
BITS 4-7 =

*
*

REGION PROTECT KEY
COUNT OF FSE'S IN LOG RECORD

DLOGFLG2
DNDXC
nCMC
DPHYI
DPHYD
DNCTR

DS
EQU
EQU
EQU
EQU
EQU

CLl
X'SO'
X·OO'
X'40'
X'20'
X'70'

INDEX MAINTENANCE RECORD
BITS 1-3 = 000 CHAIN MAINTENANCE RECORD
PHYSICAL INSERT
PHYSICAL DELETE
COUNTER l1AINTENANCE CALL

DPHYR
DLASTREC
DOSAl1
DISAl1
DHS
DHD
DNEWBLK

EQU
EQU
EQU
EQU
EQU
EQU
EQU

X'10'
X'OS'
X'OO'
X'04'
X'OO'
X'02'
X· 0 l'

PHYSICAL REPLACE
LAST RECORD FOR THIS USER CALL
BIT 5=0 OSAM DATA SET
BIT 5=1 ISAM DATA SET
BIT 6=0 HS ORGANIZATION
BIT 6=1 HD ORGANIZATION
NEW BLOCK CALL

DLOGFLG3
DRCALL
DDCALL
DICALL
DREGO
DREG3
DREG12
DRSV2
DFIRSTSG
DLASTSEG

DS
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU

CLl
XiSO'
X'40'
X'20'
X'OO'
X' 10'
X'OS'
X'04'
X' 02'
X'Ol'

REPL CALL
DLET CALL
ISRT CALL
BITS 3-4 = 00 MOD BY TYPE 0 REGION
MOD BY TYPE 3 REGION
l10D BY TYPE 1/2 REGION
UNUSED
FIRST LOG RECORD OF A SEGMENT
LAST LOG RECORD OF A SEGMENT

DIDLN
DOFFSET
DDATALN
DCCODE
DDBDNAME
DDPGMNAM
DDSID
DDATE
DTIME
DSEQ
DDATAID
DDATA
DFSEOFF
DFSE

DS
DS
DS
DS
DS
DS
DS
DS
DS
DS
DS
DS
DS
DS

CL2
CL2
CL2
CL2
CLS
CLS
CLl
CL3
CL4
CL2
OCLl
OCL 1
OCL2
OCL4

LENGTH OF DDATAID FIELD
DATA OFFSET FROM BEGINNING OF A BLOCK
LENGTH OF DDATA FIELD
DL/I COl1PLETION CODE
DATA BASE NAME
PROGRAM NAME
DATA SET I.D.
DATE
TIME
SEQUENCE NUMBER
ISAM PRIME KEY OR OSAl1 RBN
SEGMENT DATA
FREE SPACE ELEMENT OFFSET
FREE SPACE ELEMENT

5.122

2912{2,280 INRUT

~DIT

ROUTIN!

A 2980 input edit routine is required by IMS/360 2912/2980 device
support to perform terminal-related functions inherent in the design
of the 2912/2980 General Banking Terminal system. Usage and value
of these functional characteristics are installation oriented and are
therefore not performed by normal IMS/360 procedures. The entry (CSECT)
name of this routine must be DFS29800 and must be link edited with
the IMS/360 control region nucleus, since it will be called directly
by the IMS/360 2912/2980 device-dependent module (DFSDN110). Control
is passed to the 2912/2980 Input Edit routine to process each entered
message segment after that message segment has been translated by
IMS/360.
The 2912/2980 Input Edit routine must perform the following
functions:
1.

Determine the IMS/360 destination (SMB or CNT) of messages
entered from a 2980 teller or administrative station.

2.

Determine end-of-message of multisegment messages (by setting
DECCSWST bit 1 to indicate EOH).

3.

Reposition the entered data to the beginning of the input buffer
for IMS/360 processing (the entered segment must be in standard
IMS/360 input message format after edit processing).

In addition to performing the above required functions, the 2912/2980
Input Edit routine may add inputting terminal status information to
the entered segment, such as the presence or absence of a passbook
or auditor key on the inputting terminal. The Input Edit routine may
initiate retransmission of the last successfully transmitted message
to a 2980 logical terminal through a return code to the calling routine.
If the INTERACTIVE Query Facility (IQF) is incorporated into the
IMS/360 system and will receive input from the 2980, the following
additional steps must be taken by the input edit routine:
1.

The inputting terminal status information must be separated·
from IQF elements by at least one blank.

2.

If the inputting terminal status information is appended to
the end of a segment, any preceding carriage return must be
removed (replaced with a blank).

3.

The inputting terminal status information must be defined to
IQF as a null word.

q.

In the edited segment, the inputting terminal status information
must not be the initial characters of the segment.

Familiarization with IMS/360 terminal handling procedures and control
blocks is required for a user to write an input edit routine which
must interface with IMS/360 routines in the IMS/360 control region.
Examination of these control blocks may be required; however,
modification of IMS/360 control blocks by a user-written routine
seriously endangers the integrity of the entire system. A sample
2912/2980 Input Edit routine appears later in this chapter. The IMS/360
interfaces to the 2912/2980 Input Edit routine are as follows:

5.123

RO

Input buffer length

R1

start of input area. The first nine bytes of
this area are blanks (X'40') followed by the
terminal address character. followed by the
entered text.
(The first byte of text if the
data was entered from a 2980 Model 4 is the
teller identification character.)

R2

Input data length.
(The length of the area
pointed to in R.egister 1.)

R1

CTB Address

R9

CLB Address

R11

SCD Base

R13

Caller's save area address in the IMS/360
prechained save area set.

R14

Return Address

R15

The 2912/2980 Input Edit routine base address

Registers at return to the calling program must be as follows:
R2

Data length after edit (a zero length signifies
a no data segment)

R10

The inputting CNT address if a retransmission
of the last successfully outputted message is
required.

R15

Return Code:

o-

Process the entered segment

4 - Resend the last message to the CNT in
Register 10
IMS/360 provides a sample
described in this chapter.

2912/29~0

Input Edit routine ,which is

The format of the buffer pointed to in Register 1 at entry to the
2912/2980 input edit routine is as follows:

---------------1---1
9 Blanks

Entered Text

T
E

R
M
I
N

A
L

A
D
D

R
E
S
S

5.124

The first character of the entered
text if entry is from a 2980 Model 4 is
the teller identification character.

PAGE

SAMPLE USER SUPPLIED 2980
INPUT EDIT ROUTINE

STMT
2
3
4
5
6
1
8
9
10
11
~2

13
14
15
16
11
18
19
20
21
22
23
24
25
26
21
28
29
30
31
32
33
34
35
36
31
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55

SOURCE STATEMENT

Fl50CT1C1

EOIT298G CSECT
.* •••• ** •••••• *** •• *.********** •• *** •• **.*** ••• * ••••• ****.***.*.** ••• *.
*
•
*
THIS IS A SAMPLE OF THE 2980 INPUT EOIT ROUTINE REQUIREO BY *
• IMS/360 2912/298u DEVICE SUPPORT. THE INPUT EDIT ROUTINE MUST PER- •
* FORM THE FOLLOWING FUNCTIONS:
*
•
*
•
1. DETERMINE THE IMS/360 DESTINATION (SMB OR CNT) UF MESSAGES
*
*
ENTEKED FROM A 2980 TELlEK OR ADMINISTRATIVE STATION.
*
•
*
•
2. DETERMINE ~ND-OF-MESSAGE OF MULTI-SEGMENT MESSAGES AND SET
*
•
DECCSWST BIT 1 AT END-OF-MESSAGE.
*
*
*
*
3. REPUSITION THE ENTERED DATA TO THE BEGINING OF THE INPUT
*
•
BUFFER FOR IMS/360 PKOCESSING. THE ADDRESS OF THE INPUT
•
*
BUFFER IS PASSED TO THE EDIT KOUTINE IN REGISTER 1.
*
•
*
•
IN ADDITION TO PERFORMING THE ABOVE FUNCTIONS THIS SAMPLE
•
*
• ROUTINE ALSO DOES THE FOLLOWING:
*
*
*
1. OETEKMINES THE INPUTING LOGICAL TERMINAL (CNT) FOR MESSAGES •
•
ENTEKED FROM A 2980-4 TO BE USED FOR SECURITY VALIDATION ANO *
•
AS THE 1/0 PCB FOR THE APPLICATION PROGRAM.
•
*
•
•
2. INITIATES RE-TRANSMISSION OF THE LAST SUCCESSFULLY OUTPUTED •
*
MESSAGE TO ANY PHYSICAL TERMINAL.
*
*
*
*
DETERMINATIUN OF INPUT DESTINATION IS NOT PERFORMED ON DATA *
*
• ENTERED FROM A 2980-2 ADMINISTRATIVE STATION AS THIS TERMINAL CAN
* READILY USE THE STANDARD IM5/360 MESSAGE FORMAT. DATA ENTRY FROM A •
* 2980-1 OR 2980-4 TELLER STATION REQUIRE THE ENTRY OF A TRANSACTION *
* CODE.SEQUENCE IN THE FIRST SEGMENT OF ALL ENTERED MESSAGES IIMS/360 •
• COMMANDS MUST BE ENTEKED IN STANDARD IMS/36C1 FORMAT). THE TRANSACT-*
• ION SEQUENCE MAY OCCUR ANYWHERE IN THE FIRST SEGMENT AND CONSIST OF *
• A DESIGNATED BEGIN CHARACTER, FOLLOWED BY A VALID IMS/360 TRANSACT- *
• ION CODE TERMINATED BY ANY CHARACTER WHICH WHEN TRANSLATED BY IMS
•
* HAS A HEXADECIMAL VALUE LESS THAN X'C1', OR END OF MESSAGE SEGMENT. *
* IF A SCAN OF THE FIRST MESSAGE SEGMENT DOES NOT ENCOUNTER A VALID
*
* TRANSACTION SEQUENCE (IE: A BEGIN CHARACTER FOLLOWED BY NO MORE
*
• THAN EIGHT (8) CHARACTERS BEFORE THE TERMINATION CHARACTERJ, THIS •
* ROUTINE ASSUMES THE MESSAGE WAS ENTERED IN STANDARD IMS/360 INPUT
*
* MESSAGE fORMAT AND BYPASSES THE DESTINATION EDIT fUNCTION. THE
*
* DESIGNATED BEGIN CHARACTERS SCANNEO FOR ARE:
*
•
•
*
X'41' NUMERIC ENTRY OF KEY 0 (MSGACK) FROM A 2980-1.
*
•
X'59' NUMERIC ENTRY OF KEY 15 ICODE) fROM A 2980-4.
*
*
*
*
END-OF-MESSAGE IS DETERMINED BY THE ENTRY Of A PERIODI.) AS •
* THE LAST CHARACTER OF THE LAST SEGMENT OF A MULTI-SEGMENT MESSAGE, •
* OR AS THE LAST CHARACTER Of A SINGLE SEGMENT MESSAGE.
.
•
*
•
*
INPUTING TERMINAL STATUS INfORMATION IS APPENDED TO EACH MSG •
* SEGMENT IN THE FOLLOWING FORMAT:
*
•
•

5. 125

1/14112

00002000
000U300v
OOO~40~0

00005000
OOC06000
OGOC1000
OOOC8000
~QOC9COO

00010000
COOll~OO
C~012GOO

00013000
00014~vO

OOC15uOO
00016COC
00011UOO
00018000
V0019000
00020000
00021000
00022(00
0~023000

00024QOO
00025000
00026000
00021000
00028000
000290CO
00030000
00031000
00U32000
00033000
00034000
00035000
QO~36000

00031000
00038000
00039000
00040000
00041000
00042LOO
00043000
00044000
00045000
00046000
00041000
00048000
00049000
00050000
00051~OO

00052000
00053000
00054000
00055000

PAGE
TMT
51
58
59
60
61
62
63
64
65
66
61
68
69
10
71
12
73
74
75
76
77
78
79
80
81
82
83
84
85
86
81
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109

F150CT70

SOURCE STATEMENT

*

•

*
*

*

-WHERE:

*
•
•

1/14112

*

AABC
AA- IS A TWO (2) BYTE HEXADECIMAL FIELD CONTAINING
TWO NINES (X'F9F9')
B- IS A 'P' (X'D7') TO INDICATE A PASSBOOK WAS
PRESENT At SEGMENT ENTRY (OR THE AUDITOR'S
KEY WAS INSERTED ON A 2980-2); OTHERWISE
THIS CHARACTER IS AN 'N' (X'DS').
C- IS THE TELLER IDENTIFICATION CHARACTER FOR A
2980-4.
A - TELLER A WITHOUT SUPERVISOR KEY
B - TELLER B WITHOUT SUPERVISOR KEY
J - TELLER A WITH SUPERVISOR KEY
K - TELLER B WITH SUPERVISOR KEY
IF ENTRY WAS NOT FROM A 2980-4 THIS CHARACTER
IS BLANK (X'40'). THE TELLER IDENTIFICATION
CHARACTER IS REMOVED FROM THE INPUT TEXT.

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

*
*
*
•
*
*
*•
*
*
*
*
*
*
*
•
*
DETERMINATION OF THE INPUTING LOGICAL TERMINAL (CNT) IS MADE.
• BY EXAMINATION OF THE NAMES OF THE CNTS ASSIGNED TO THE INPUTING
•
* PHYSICAL TERMINAL. EACH CNT IS EXAMINED TO FINO ONE WITH A NAME
•
* WHOSE FIRST CHARACTER MATCHES THE TELLER IDENTIFICATION CHARACTER; *
• IF ONE IS FOUND THE CNT CHAIN IS ALTERED TO MAKE THAT CNT THE FIRST *
* CNT IN THE CHAIN OF CNTS. THE CNT CHAIN REMAINS UNALTERED IF NO CNT.
* IS FOUND.
*
*
*
*
ENTRY OF THE CHARACTERS '&RESEND' AS THE ONLY CHARACTERS OF *
•

• A MESSAGE WILL CAUSE THE LAST SUCCESSFULLY OUTPUTED MESSAGE TO BE
• RE-TRANSMITTED TO THE INPUTING TERMINAL.

*
*

*
•
*
*

REGISTERS AT ENTRY:
RO
Rl

•

*

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

R2
R7
R9
Rll'
R13
R14
R15

INPUT BUFFER LENGTH
POINTS TO THE INPUT MESSAGE SEGMENT; PREFIXED BY
NINE BLANKS, THE TERMINAL ADDRESS CHARACTER, THE
TELLER IDENTIFICATION CHARACTER(IF ENTERED FROM
A 2980-4), AND THE ENTERED TEXT.
DATA LENGTH
CTB BASE
CLB BASE
SCD BASE
CALLER'S SAVE AREA 'MY SAVE AREA IS PRE-CHAINED)
RETURN ADDRESS
ENTRY POINT ADDRESS

RETURN REGISTERS:
R2
Rl~

R15

DATA LENGTH AFTER EDIT
CNT BASE
RETURN CODE

•
•

*
*
*
*
*
•
*
*
•

*
*
*

•
•
•

*
*
*
*
*
*
*

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

5. 126

2

00057000
00058000
00059000
00060000
00061000
00062000
00063000
00064000
00065000
00066000
00067000
00068000
00069000
00070000
00071000
00072000
00073000
00014000
00075000
00076000
00077000
00078000
00079000
OOOBOOOO
00081000
00082000
00083000
00084000
00085000
00086000
00087000
00088000
00089000
00090000
00091000
00092000
00093000
00094000
00095000
00096000
00097000
00098000
00099000
00100000
00101000
00102000
00103000
00104000
00105000
00106000
00107000
001v8000
00109000

PAGE
STMT

SOURCE STATEMENT

III

F150CT10

REQUATE

EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU

1/14112

00111000

113+***************************************************.*******************
114+*
*
115+*
EQUATE REGISTERS
*
116+*
*
111+***********************************************************************

119+RO
120+R 1
121+R2
122+R3
123+R4
124+R5
125+R6
126+R 1
121+R8
128+R9
129+RIO
130+Rll
131+R12
132+R13
133+R14
13it+R15

3

o
1
2

3
4

5
6
1
8
9

10
11
12
13
14
15

5. 127

PAGE
STMT

136
137
138
139
140
141
142+143+
144+
145+
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163 CKRESEND
164
165
166 SETSCAN1
167
168
169
170
171
172
113
114
115
176
117
118
179
180
181 FOUNDIT
182
183
184
185
186
187 SETSTAT
188
189
190

5. 128

F 150C T70

SOURCE STATEMENT
USING
USING
USING
USING
USING
SAVE
B

DC
DC
STM
LR
L

SR
LR
SH
LTR
BNP
MVI
MVI
LA
TM
BZ
MVC
LA
BCTR
LTR
BNP
EQU
CLI
Sf

EQU
TM
60
BCTR
EX
LA
BC
LA
LA
LR
SR
BCTR
EX
BC
BCTR
EQU
SR
CH
BH
STC
MVC
EQU
MVI
CLC
BE

CTB,R1
IECTDECB,R9
CNT,R10
SCD,Rll
EDIT2980,R12
(14,12)"EDT298C
SAVE INPUT REGISTERS
12(0,15) BRANCH AROUND 10
AL1(7) LENGTH OF IDENTIFIER
CL1'EDT2980' IDENTIFIER
14,12,12(13) SAVE REGISTERS
R12,R15
SET PROGRAM BASE
R13,8(.RI3)
STEP TO NEXT SAVE AREA
R15,R15
CLEAR RETURN CODE
R5,Rl
SAVE MESSAGE POINTER
R2,=H'10'
REMOVE BLANKS FROM LENGTH
R6,R2
SET LENGTH REG
ZEROLNG
BRANCH IF NO DATA
DESTLNG,O
SET DESTINATION LENGTH TO ZERO
TELLERIO,C' ,
CLEAR TELLER 10
R14,10(,R5)
SET BEGIN OF TEXT
CTBFEAT,CTBFMOD4
2980-4?
CKRESEND
NO
TELLERID(I),0(R14)
SAVE TELLER 10
RI4,1(,R14)
STEP TO TEXT
R6,0
DECREMENT DATA LENGTH
R6,R6
NO DATA?
lERDLNG
YES

*
0(R14),C'S&"
RESEND

*

CTBFEAT,CTBFMOD2
SETSTAT
R6,Q
R6,SCANl
R6, lC .R6)
10,SETSTAT
R4,1( ,Rl)
R3,0(R6,R14)
Rl,R3
R3,R4
R3,O
R3,SCAN2
6,FOUNDIT
Rl,e

•Rl,R4

Rl.=H·8·
SETS TAT
Rl,DESTLNG
DEST,OlR4)

*PASSBOOK,C'N'
9(1,RS),CTBTERM+l
CKEOM

POSSIBLE RESEND REQUEST?
YES
2980-2?
YES
REDUCE LENGTH FOR SCAN
FIND BEGIN CHARACTER
RE-ADJUST LENGTH
BRANCH IF NOT FOUND
1ST CHAR OF DESTINATION
POINT TO END OF SEGMENT
SET END OF SECOND SCAN
SCAN LENGTH
SCAN FOR SECOND OELIMITER
BRANCH I,F FOUND
LAST CHARACTER W~S DELIMITER
DESTINATION LENGTH
VALID LENGTH?
NO
STORE LENGTH
AND DESTINATION
INDICATE NO PASSaOOK
NORMAL ADDRESS?
YES

4

1/14/72

00112000
00113000
00114000
00115000
00116000
00117000

00118000
0(,119000
00120eoo
00121000
00122000
00123000
00124000
00125000
0(1126000
00127000
00128000
00129000
00130000
00131000
00132000
00133000
00134000
00135000
00136000
00137000
00138000
00139000
00140000
00141000
00142000
00143000
00144000
00145000
00146000
00147000
00148000
00149000
00150000
00151000
00152000
00153000
00154000
00155000
00156000
00157000
00158000
00159000
00160000
00161000
00162000

STMT

SOURCE STATEMENT

191
192 CKEOM
193
194
195
196
191
198
199
200
201'
202
203
204
20S
206 NOTEOM

MVI
EQU
LA
lR
Cli
BNE
BCTR
BCTR
CLC
BE
Cli
BE
Cli
BNE
01
EQU

LA

PASSBOOK;C'P'

*R4,0IR6,R14)

R8.R4
OIRe),X'lS'
*+6
RB,O
R8,0
OC2,R8),=C· •• •
TESTHOD4
lCR8.,COMMA
NOTEOM
lCR8),PERIOD
ADDSTAT
DECCSWST,X'OI'

*

R8 , 1 ( , R8 )

201
208
209
210
211 ZEROlNG
212
213 RETURN
214
21S
216
217
218+
219+

lR
R4,R8
SR
R8,R14
lTR
R6,R8
BP
ADDSTAT
EQU
SR
R6,R6
EQU
*
l
R13,41,R13)
ST
R6,28(,R13)
l
R14,12(,R13)
RETURN (0,12)
lM
0,12,20(13) RESTORE
BR
14 RETURN

221 ADDSTAT
222
223
224
225
226
227
228
229 MOVESEG
230
231
232
233
234
235
236
237 TESTMOD4
238
239
240
241

EQU
LA
HVC
ClI
BE
MVC
AH
LA
EQU
BCTR
EX
lA
CLI
BE
lA
AH
EQU
TM
BZ
BAl
B

243 RES END
244

EQU
CH

*

F1S0CT10
INDICATE PASSBOOK PRESENT
R4 = END Of SEGMENT
ENDS WITH CARRIAGE RETURN?
NO
SEGMENT TO BE CANCELLED?
YES, DON'T ADD STATUS INfO
MORE SEGMENTS COMING?
YES
END-Of-MESSAGE?
NO
INDICATE END-Of-MESSAGE
R4 = END-Of-SEGMENT POINTER
RE-CAlCUlATE SEGMENT lENGTH
AND TEST fOR NO-DATA SEGMENT
BRANCH If DATA SEGMENT
SET ZERO lENGTH
GET CALLER'S SAVE AREA
STORE lENGTH IN R2 Of CALLER
GET RETURN ADDRESS
AND RETURN, RC IN RlS
THE REGISTERS

*CTBfEAT,CTBFMOD4
RETURN
R4,FINDCNT
RETURN

00119000
00180000
00181000
00182000
00183000
00184000
0018S000
00186000
C01810CO
00188000
00189000

VALID MESSAGE

00213000
Ij0214000

REDUCE LENGTH FOR MOVE
MOVE SEGMENT TO FRONT OF BUFFER
RE-ADJUST LENGTH
DESTINATION LENGTH ZERO?
YES
ADD 1 fOR BLANK AFTER TRAN CODE
ADO DEST LENGTH TO DATA LENGTH

•

R6, =H' 8'

00178100

2980-4?
NO
FINO INPUTING CNT
AND RETURN

ADD STATUS LENGTH TO SEG LENGTH
OCl'STATUS,R4),STATUS ADD STATUS INfO TO SEGMENT
DESTLNG,O
DESTINATION lENGTH ZERO?
MOVESEG
YES
CI8,R5),DEST
PUT DESTINATION IN SEGMENT
R5,DESTL
UPDATE TEXT POINTER
R5,II,RS)
INSURE 1 BLANK AfTER DESTINATION

•

00163000
00164000
0016S000
00166000
00161000
00168000
00169000
00110000
00111000
00112000
00113000
00114000
00115000
00116000
00111000
00118000

00191000
00192000
00193000
00194000
00195000
00196000
00191000
00198000
00199000
00200000
00201000
00202000
00203000
00204000
00205000
OG2C6GOO
00207000
002(,,8000
00209000
00210000
00211000

*R6,L'STATUS(,Rb)

R6,0
R6,MOVE
R6,lC ,R6)
DESTLNG,O
TESTMOD4
R6, l ( ,R6)
R6,DESTL

1/14/72

lE~GTH?

5. 129

PAGE
STMT

SOURCE STATEMENT

245
246
247
248
249
250
251
252

BNE
ClC
BNE
SAL

254 FINDCNT
255
256
257
258
259 NEXTCNT
26G
261
262
263
264
265
266 CNTRET
267
268

L

ST
LA
B

EQU
L

LH
LR
AR
EQU
AR
CLC
BE
LH
LTk
BNM
EQU
LR
BR

270 CNTFOUND EQU
271
CR
272
BE
273
XC
274
XC
215
XC
216
Sf{

5. 130

SETSCANI
RESENDSQ,O(R14)
SETSCAN1
R4,FINDCNT
R4,4 ( ,R13)
RIO,60(,R4)
R15,4
ZEROLNG

*R2,SCDCNT
RIO,CTSCNTP
R3,R1C
R3,R2

*
RIO,R2

F150CT70
NO
RESEND REQUEST?
NO
GET CNT ADDRESS
GET CALLER'S SAVE AREA ADDRESS
STORE CNT ADDRESS IN CALLERS RIO
SET RETURN CODE
ZERO DATA LENGTH AND RETURN
GET CNT BASE
OFFSET TO 1ST CNT ON CTa
SAVE ADDRESS OF 1ST CNT

TELLERIO(l),CNTNAME
CNTFOUN[)
R10,CNTCNTP
RU.. ,RIO
NEXTCNT

ADDRESS OF NEXT CNT
NAME MATCH TELLER ID?
YES
OFFSET OF NEXT CNT IN CHAIN
LAST CNT?
NO

*
RI0,R3
R4

USE 1ST CNT IN CHAIN
RETURN

*
R10,R3
1ST CNT?
CNTRET
YES
CNTCNTP-CNT(2,R3),CNTCNTP-CNT(R10) SWAP
CNT CHAIN
CNTCNTP-CNT(2,RIO),CNTCNTP-CNT(R3)
CNTCNTP-CNT(2,R3),CNTCNTP-CNT(R10)
POINTERS
R4
AND RETURN

6

1/14112

Ci0215COO
002160DO
00211000
002180(,0
~C21900(j

00220000
00221000
00222000
00224000
00225000
00226000
002270GO
00228(;00
00229000
002300()0
00231000
00232000
00233000
OG234000
00235000
00236000
00237000
00238000
00240000
00241000
00242CJOO
00243000
00244000
00245000
00246000

STMT
218
219
280

F1SOCT70

SOURCE STATEMENT

***
*

CONSTANTS,

*••

DSECTS,

***
*
*.*

AND EQUATES

1/14/72

00248000
00249000
00250000

282 DESTL
283 DEST
284 STATUS
2~S TABLEl
286
281
288
289
290
291 TABLE2
292 RESENDSQ

DC
OS
DC
DC
ORG
DC
ORG
DC
ORG
DC
DC

H'O'
CL8
X'F9F90000'
256XL1'OO'
TABLE1+65
X'41'
TABLE1+89
X'S9'
192XL1'FF',64XLl'OO'
C'&&RESEND I

00252000
00253000
00254COO
00255COO
OG·256f.JOO
00257000
002S8GOO
OC259COO
CC26(;(;OO
OG2610\iO
00262000

294 SCAN1
29S SCAN2
296 MOVE

TRT
TRT
MVC

O(O,R14),TABLE1
O(0,R4),TABLE2
0(Q,RS),O(R14)

00264COO
O(;265<':CO
(;0266000

298
299
300
3Ul
302

DESTLNG
PASSBOOK
TELLERID
PER IUD
COMMA
303 CTBFMOD4
304 CTHFMOD2
30S CT8A1SEG

EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU

DESTL+1
ST ATUS+2
STATUS+3
X'4B'
X'6B'
X'02'
X' 01'
X' 02'

OG268COO
00269CJGO
00210C00
C(;2 71000
O(;272COO
(;C273lo00
C0214000
O(J275CQO

3u7

LTORG

308

3u9
310
311

CTBFEAT SETTING IOENTIFING A 298C-4
CTBFEAT SETTING IDENTIFING A 2980-2
TO BE REMOVED

00277000
=H' 10 '
=H' 8'
=C'*·'
=H' 7'

5. 131

PAGE
STMT
313

SOURCE STATEMENT
JCLI

F150CT10

1/14112

00219000

CLBBASE=O.CTBBASE=O.CNTBASE=O

PAGE
STMT
594

595

SOURCE STATEMENT

942
944
945

947

5. 132

F150CT70

PRINT NOGEN
ISCD SCOBASE=O

943
END

8

*.************************************************** ••
*.*
IHS/360 SYSTEM
*,*
VERSION 2
RELEASE 1
MOD LEVEL 1
*
*.***.***.****.******.***.****.********* •• **.* •• ** ••••

15

1/14/72

00280000
00281000

002820CO

The IMS/360 basic distribution tape contains two data sets,
IMS2.GENLIB and IMS2.LOAD. These data sets are unloaded versions of
direct access partitioned data set libraries as produced by the
operating system utility program IEHMOVE. contained in these libraries
are the program modules and macro-definitions which comprise the sample
application.
A series of steps are involved in the creation of the sample
application environment.
Detailed background information regarding
these steps is available from the references shown below:
• Copying the distribution libraries
to direct access storage devices

SPRM

*

Chapter 2

• performing a system definition
and related functions

SPRM

*

Chapter 3

• Performing a data base
description (DBDGEN)

UTRM

**

Chapter 2

• Performing a program specification
block generation (PSBGEN)

UTRM

**

Chapter 3

• Performing an application control
blocks utility execution (ACBGEN)

UTRM

**

Chapter 3A

• Moving sample problem programs
and control blocks

SPRM

*

• Executing a print of the data
base in a batch environment

SPRM

***

Chapter 6

• Executing a data base load in
the batch environment

ORM

***

Chapter 6

• Initializing the system in an online
environment. Executing the online
application program from user terminals.

ORM

***

Chapter 6

*
**
***

Chapter 6

This Manual
IMS/360 Utilities Reference Manual
IMS/360 Operator's Reference Manual

Before proceeding with the instructions for setting up the sample
application, a description of the application and its data bases is
appropriate.

The application included within the sample problem is taken from
the manufacturing industry.
This application in its full sense includes
the creation, usage, and maintenance of the logical data bases
associated with the product data systems. This product data can be
contained in three subject data bases. The product data is either
related to engineering drawings, part numbers, or systems equipment
structure. There are three logical data bases, each organized under
one of the above sUbjects.

6. 1

To facilitate the implementation of these three logical data bases,
they have been split into three data bases of five data set groups
(see Figure 11).

LOGICAL DATA BASES

PHYSICAL DATA BASES

PARTS

2 DATA SEI'
GROUPS

DRAWINGS

2 DATA SET
GROUPS

END
ITEMS
1 DATA SET
GROUP

Figure 11. Logical and physical data bases
Each of the five physical data bases and the segments contained
within these data bases is described in Figures 12, 13, and 14.

6.2

I

PART MAS-.rERJ

.....L.

~

DA'l'A SET GROUP 1

__c=

~

L!:RAWING Imp

DRAi1INGl

CONFI~~~

MIN. /l-1AX.

CYCLE COUNT

Figure 12.

SUSPENDED
S'£OCK

Part data base and segment

6.3

DRAWING/DOCU~ffiNT

NUMBER
1

STD DATA

EDRS
SYSTEM

'ACTUAL
EFFECTIVITY

SET GROUP 2

[

Figure 13.

6.4

CONFIG~
OWNER~~~

Drawing data base

MAPL/EAPL
PARTS
LIST

fEND ITEN NUf>lBER

I
EAPL/MAPL

MASTER
SCHEDULE

Figure 14.

End item data base

The application portion of the IMS/360 sample problem includes the
implementation of a small subset of this entire application. The data
base structure of the application in the sample problem includes the
segments and their structure described in Figure 15.
This data base subset structure includes:
• One part number description segment for each part within the data
base
• A standard data segment for each part which provides additional
information of a standard nature about the part
• Inventory stock status segments for each part. The application
is designed with multiple inventory locations permissible and
normally required for any particular part.
•

~ero

to n cycle count and back-order segments for each inventory
location of a particular part.

In addition to the application data base substructure, the sample
problem includes application programs to:
1.

create the data base substructure in an IMS/360 batch processing
region. The input data for part, inventory, cycle count, back
order, and standard part data to load into the data base
substructure is provided.

2.

Message processing programs and associated transactions to
execute in an IMS/360 online control region to:
a.

Inquire about a part and its description

6.5

b.

Inquire about a part's total inventory in all locations
or by specific inventory location

c.

Add a new part and its description

d.

Add part inventory information by location to an existing
part description

e.

Delete part inventory information by location

f.

Delete a part after deletion of all its subordinate part
inventory information

g.

Close a part order to increase the part inventory at a
specific location

h.

Disburse a specific quantity of a particular part on a
planned or unplanned basis at a particular part inventory
location r thereby reducing inventory.

Figure 15.

Sample problem application data base

The foregoing describes the application aspects of the sample
problem.
Figure 16 interrelates the sample problem transactions, programs,
and data bases.

6.6

Part Oeser.
Program

Inventory
. Status of a
Part Location

Single Location
Inventory
Program

All Location
Inventory
Program

Display
Inventory
of a Part at
all Locations

Increase a
Part's Inventory
Program

Decrease a Part's
Inventory
Program
DATA BASE HIERARCHICAL STRUCTURE

Add/Delete
Part and
Inventory
Location
Program

TRANSACTIONS

PROGRAMS

Pigure 16. Sample problem transactions, programs, and data bases

As outlined in the introduction to this chapter, a series of steps
must be performed to create the sample problem environment. The
remainder of this chapter describes these in detail or provides
references for the required steps.
COPYING IMS/360 DISTRIBUTION LIBRARIES
Figure 17 is an example of the JCL necessary for the allocation
and cataloging of the data sets required for IMS/360 system definition
and execution.
The tape move described in Chapter 2 of this manual should move
the data sets into libraries created by the JCL example.

6.7

PERFORMING AN IMS/360 SYSTEM DEFINITION
prior to performing Stages 1 and 2 of IMS/360 system definition,
certain data sets must be allocated and cataloged. Figure 17 is an
example of the JeL required to. allocate and catalog the data sets
required by the sample problem.
Space requirements should be adjusted
if devices other than 2311 are to be used.
If a batch-only execution is planned, the message queue data sets
need not be allocated.

6.8

IIALLOCATE JOB 1,I!S,!SGCLASS=A,!SGLEVEL=1,PRTY=12

II EXEC PG!=IEBPROG! I/TWO DD VOL=SER=222222,UHIT=2311,DISP=OLD
IITHR DD VOL=SER=333333,UHIT=231',DISP=OLD

I/ILIB01
DD VOL=SER=ILIB01,UHIT=2311,DISP=OLD
IIILIB02
DD VOL=SER=ILIB02,UHIT=23",DISP=OLD
IISYSPRIHT DD SYSOUT=A
IISYSIN DD *,DCB=BLKSIZE=80
SCRATCH VTOC,VOL=23"=222222,PURGE
SCRATCH VTOC,VOL=23"=333333,PURGE
SCRATCH VTOC,VOL=231'=ILIB01,PURGE
SCRATCH VTOC,VOL=231',ILIB02,PURGE
I/LIBRARYS EIEC PG!=IEHPROG!
IISYSPRINT DD SYSOUT=A
IISIDC01 DD UNIT=23",VOL=SER=SIDC01,DISP=OLD
IIOBJDSET DD DSN=I!S2.0BJDSET,UNIT=231',VOL=SER=222222,DISP=(,KEEP),
II
SPACE=(CYL,(1,l,1).)
IICATALOG DD DSN=SYSCTLG,UNIT=23",VOL=SER=ILIB02,DISP=(,KEEP),
II
SP1CE=(TRK, (2,1»
I/RESLIB DD DSN=I!S2.RESLIB,UNIT=231',VOL=SER=ILIB02,DISP=(,KEEP) ,
II
SPACE=(CYL,(40,5,20» ,DCB=SYS1.LINKLIB
II!lCLIB DD DSR=I!S2.!ACLIB,UNIT=23",VOL=SER=ILIB01,DISP=(,KEEP),
II
SP1CE=(CYL, (30,5,15»,DCB=SYS1.!ACLIB
IIPG!LIB DD DSN=I!S2.PG!LIB,UNIT=231',VOL=SER=ILIBO',DISP=(,KEEP),
II
SPlCE=(CYL,(10,2,10»,DCB=SYS1.LINKLIB
IIPSBLIB DD DSN=IKS2.PSBLIB,UNIT=23",VOL=SER=ILIB02,DISP=(,KEEP),
II
SPACE=(CYL,(10,2,5» ,DCB=SYS1.LIHKLIB
IIDBDLIB DD DSN=I!S2.DBDLIB,UHIT=231',VOL=SER=ILIB02,D1SP=.(,KEEP),
II
SPACE= (CYL, (10,2,5) ,DCB=SYS 1. L1HKLIB
III!SACB DD DSN=I'!S2 .lCBL1B,UN1T=231', VOL=SER=1LIB02, DISP= (,KEEP) ,
II
SPACE=(CYL, (10,2,5»,DCB=SYS1.L1NKL1B
IIPROCLIB DD DSH=I!S2. PROCLIB,UNrr=231', VOL=SER=IL1B02,DISP= (,KEEP) ,
II
SPACE=(CYL,(1,l,5»,DCB=SYS1.~ROCL1B
.
IIQBLKS DD DSH=1KS2.QBLKS,VOL=SER=ILIB01,D1SP=(,KEEP),UR1T=231',
II
SPACE=(CYL,1),DCB=DSORG=PS
IISHKSG DD DSN=1!S2.SH!SG,VOL=SER=ILIB01,DISP=(,KEEP),UH1T=23",
II
SPACE=(CYL,5) , DCB=DSORG=PS
I/LGKSG DD DSN=I!S2.LG!SG,VOL=SER=1LIB02,DISP=(,KEEP),UR1T=23",
II
SPACE=(CYL,5),DCB=DSORG=PS
IIDBLLOG DD DSN=I!S2.DBLLOG,VOL=SER=SERHUK,D1SP=(,KEEP),
II
UHIT=231',DCB=DSORG=PS,SPACE=(512,50)
IISYS1R DD *,DCB=BLKSIZE=80
RELEASE 1NDEX=I!S2
DLTX INDEX=I!S2,CVOL=23"=SIDC01
CONNECT 1HDEX=1!S2,CVOL=2311=SIDC01,VOL=2~11=1LIB02
CATLG DSNlKE=I!S2.GENL1B,VOL=231'=222222,CVOL=231'=ILIB02
CATLG DSNl!E=I!S2.LOAD,VOL=2311=333333,CVOL=23"=1LIB02
CATLG DSNlKE=I!S2.RESLIB,VOL=231'=1LIB02,CVOL=231'=ILIB02
CATLG DSNA!E=1!S2.DBLLOG,VOL=231'=SERRU!,CVOL=231'=ILIB02
CATLG DSRA!E=I!S2.!ACLIB,VOL=231'=ILIB01,CVOL=23"=1LIB02
CATLG DSRAKE=I!S2.PG!L1B,VOL=231'=ILIB01,CVOL=231'=ILIB02
CATLG DSNAKE=1!S2. PSBL1B ,VOL=231'=IL1B02,CVOL=231'=IL1B02
CATLG DSRA!E=1!S2.DBDL1B,VOL=231'=ILIB02,CVOL=231'=ILIB02
CATLG DSNl!E=IIS2.1CBLIB,VOL=23'1=IL1B02,CVOL=231'=1LIB02
CATLG DSNA!E=I!S2.PROCL1B,VOL=231'=1L1B01,CYOL=231'=ILIB02
CATLG DSNA!E=1!S2.QBLKS,YOL=23"=IL1B01,CVOL=231'=It1B02.
ClTtG DSNA!E=I!S2.SB!SG,VOt=23"=1LIB02,CVOL=23"=1t1B02
CITtG DSNI!E=I!S2.tG!SG,VOL a 2311=1L1B01,CYOt=231'=IL1B02
CITtG DSRA!E=I!S2.0BJDSET,VOL?231'=222222,CYOt=23"=1LZB02

Figure 17.

Exaaple of allocation and cataloging

lfter having co.pleted the allocation of required data sets, stage
1 of 1!5/360 sjste. definition is perfor.ed. ~igure 18 describes the
6.9

control cards needed as input to system definition for an online system.
The TRANSACT, PROGRAM, and DATABASE cards describe the resources of
the application sample. For the sake of simplicity, only one
tele~ommunications line group, 'one line, and one physical terminal
(27QO) are described. Two logical terminals, the "ASTER and,one named
HOWARD, are describedw Logical terminal HOWARD is used by the
application as a destination for exception messages.
If the user of the sample problem desires to perform the sample
Froblem by mea~s of a 2260 Display station, it must be included~ in
his Stage 1 system definition. The user must follow the rules of"
Chapter 3 of this manual for system definition and modify the Figure
18 control cards accordingly.
!!ENtN~:
IKS/360 does not support the 2260 Display Station as a
master terminal. Prior to stage 1 of, I8S/360 system definition,
IMS2.GENLIB and IMS2.LOAD must be c~taloged. Those parameters in the
system definition control cards which ar~, y.!!9fili.n~,gcan be redefined
by the IMS/360 user to meet the requirements of his data processing
environment with no effect on the application.
.

If a batch-only execution ,is planned, a batch system definition,
as described in Chapter :3 of this manual may :be executed.
If assistance i~ required in making control card changes, refer
to Chapter 3 of this manual. In particular, the message queue dat~
set DD names and the 18S/360 library names should be reviewed.
The communication line and terminal operands may be mOdified as
required to conform to the user's system and the operating system
specifications. Chapter 3 of this manual provides information on the
vari6ns operands permitted.
Once Stage 2 of system definition is successfully completed, the
IMS/360 user must perform the following.
1.

Include the one Type 1 and the one T.ype 2 IMS/360 SVC interface
modules in the operating system,nucleus •. , This can be done with
a relink-editof the operating system nucleus if available user
SVC numbers were generated at time of operating system
generation. If available SVc numbers-do not exist, the user
must perform at least an operating system nucleus-only system
generation to provide the required SVC numbers. In addition,
a Type q SVC number mu-st exist or be made available. ,,'The' Type
1 and Type 2 SVC interface modules are placed into IHS2.~ESLIB
by system definition. The user must link ~dit these modules
from this library. The Type 1 SVC module has the name IGCXXX,
and the Type 2 SVC module, IGCYYY.
(The Type 1 and 2 SVCs are
required only for an online execution.)

2.

Link edit the OSAM channel end appendage IGG019Z8 or the
equiialent to SYS1.SVCLIB and link edit the OSAM op~n modules
into SYS1.SVCLIB. The names of the Typeq SVC modules are
listed in Chapter 3 of this manual as sp~cified in system
definition. Both the channel-end appendage and the OSAM Type
q SVC modules exist in IHS2.RESLIB after system definition is
~erformed.
These modules must be link-edited as RENT and RFER.

3.

Allocate and catalog the four sequential data sets used for
message queuing in this example. Their data definition statement
names are IHSDBL, QBLKS, SHaSG, and LGMSG. The assobiated data
set names must be IMS2.DBLLOG, IMS2.QBLKS, IMS2.SHMSG, and
IHS2.LGHSG. Chapter 3 of this manual provides information on
the allocation of these data sets.

6. 10

//IMSDEF
//STEP
//SYSLIB
//SYSPRINT
//SYSPUNCH
//SYSUTl
//SYSUT2
//SYSUT3

//

//SYSIN
IMSCTRL
IMSCTF

JOB 1,IMS,MSGLEVEL=1
EXEC
PGM=IEUASM,PARM='DECK,NOLOAD',REGION=130K
DD DSN=IMS2.GENLIB,DISP=SHR
DD SYSOUT=A
DD SYSOUT=B
DD UNIT=SYSDA,SPACE=(1700,(500,50»
DD UNIT=SYSDA,SPACE=(1700, (500,50»
DD UNIT=(SYSDA,SEP=(SYSUT1,SYSUT2»,
SPACE= (1700, (500,50) )
DD *
SYSTEK=(~!!,ALL) ,MAXIO=I,MAXREGN=l
SVCNO=(24],144,24~),APNDG=Z8,

x

x

CPLOG=500,CORE=(,2000)
MSGQUEUE

DSETS=(2311),RECNG=(112,1Q56),
X
BUFFERS=(9,1056) ,SHUTDWN=50
DATABASE
DBD=DI21PART
APPLCTN
PSB=DFSSAM02
TRANSACT CODE=PART,PRTY=(7,10,2) ,INQUIRY=YES
APPLCTN
PSB=DFSSAM03
TRANSACT CODE=DSPINV,PRTY=(7,10,2) ,INQUIRY=YES
APPLCTN
PSB=DFSSAM04
TRANSACT CODE=ADDPART,PRTY=(7,10,2) ,INQUIRY=NO
TRANSACT CODE=ADDINV,PRTY=(7,10,2) ,INQUIRY=NO
TRANSACT CODE=DLETPART,PRTY=(7,10,2) ,INQUIRY=NO
TRANSACT CODE=DLETINV,PRTY=(7,10,2) ,INQUIRY=NO
APPLCTN
PSB=DFSSAM05
TRANSACT CODE=CLOSE,PRTY=(7,10,2),INQUIRY=NO
APPLCTN
PSB=DFSSAM06
TRANSACT CODE=DISBURSE,PRTY=(7,10,2) ,INQUIRY=NO
APPLCTN
PSB=DFSSAM07
TRANSACT CODE=DSPALLI,PRTY=(7,10,2) ,INQUIRY=YES
LINEGRP
DDNAME=DD21~Q,UNIT=2740
LINE
ADDR=Q~~
TERMINAL
ADDR=~l
NAME
(CTR1,MASTER)
NAME
HOWARD
IMSGEN
ASMPRT=ON,LKPRT=(XREF,LIST) ,OBJDSET=IMS2.0BJDSET,X
PRTY=8
END
Figure 18.

Input to system definition

4.

Move the IMS/360 cataloged procedures named IMS (online only)
and IMSRDR from IMS2.PROCLIB to SYS1.PROCLIB. The.instructions
for Executing Jobs Using Procedures from IMS2.PROCLIB are in
Chapter 3 of this manual.

5.

Link edit the IMS/360 region control module from IMS2.RESLIB
to SYS1.LINKLIB.
The name of this module is DFSRRCOO and it
should be marked (RENT, RFER) in the link edit.

6.

Change the operating system privileged name list module 'in
SYS1.LINKLIB to include DFSRRCOO.
How to perform this operation
is described in Chapter 3 of this manual.
(This is required
only for an online execution.,

A narrative is provided at the end of the output listing from IMS/360
system definition Stage 1. This narrative describes the functions
a system user must perform prior to execution of his IMS/360 system.
PleMg .£~~fl .this nar!:atiyg.

6. 11

PERFORMING A DATA BASE DESCRIPTION (DBDGEN)

GENERATION

Part of the sample problem is the generation of a data base
description which is used by the sample application. The generation
process consists of an assembly and linkage edit. A member in
IMS2.GENLIB titled, DI21RART, contains the source input to generation
of a DBD.
A procedure is placed in IMS2.PROCLIB by system definition
to perform DBD generation. The following JCL should be used to invoke
this procedure and use the DBD source input to create the DBD.
The
output of the DBD generation becomes a member in the partitioned data
set IMS2.DBDLIB.

IIDBD
II

JOB
EXEC

IIC.SYSIN

DD

SAMPLE,MSGLEVEL=l
DBDGEN,MBR=DI21PART
DSNAME=IMS2.GENLIB(DI21PART) ,DISP=SHR

The operating system reader used to read this JCL must have access
to IMS2.PROCLIB. The suggested START command is START IMSRDR, XXX,
where XXX is the card reader unit address.
PERFORMING A PROGRAM SPECIFICATION BLOCK GENERATION (PSBGEN)
An optional part of the sample problem involves generation of a
program specification block (PSB). The generation process is called
PSRGEN. Like DBDGEN, the process consists of an assembly and linkage
edit.
A member of IMS2.GENLIB, named DFSSAP04, contains the source
input which will generate the PSB for the online application program,
named DFSSAM04.
IMS/360 system definition placed a procedure named
PSBGEN in IMS2.PROCLIB.
The following JCL uses this procedure to place
the output PSB in the partitioned data set IMS2.PSBLIB as defined in
the PSBL1B statement of system definition.

IIPSB
IISTEP
IIC.SYS1N
Not~:

JOB
EXEC
DD

1 , I MS, MSGLEVEL= 1
PSBGEN,MBR=DFSSAM04
DSN=1MS2.GENL1B(DFSSAP04),D1SP=SHR

The input member DFSSAP04 creates an output PSB named DFSSAM04.

The OS reader used to read this JCL must have access to IMS2.PROCLIB.
The suggested START command is START IMSRDR, XXX, where XXX is the
card reader unit address.
MOVING SAMPLE PROBLEM PROGRAMS AND CONTROL BLOCKS
The next step in the sample problem is to have the 1MS/360 user
relink edit the remaining PSBs and programs for data base creation
and message processing from IMS2.LOAD into their respective IMS/360
libraries (that is, IMS2.PSBLIB and IMS2.PGMLIB).
A load module exists within IMS2.LOAD for each PSB and application
program.
The following JCL and link edit control statement are used
to copy the PSBs from 1MS2.LOAD to IMS2.PSBLIB.
JOB 1,IMS,MSGLEVEL=1
EXEC
PGM=IEWL,REG10N=110K,
PARM='XREF,L1ST,LET,NCAL,SIZE=(100K,7248) ,
DD DSNAME=SYS1.COBLIB,DISP=SHR
IISYSLIB
DD DDNAME=SYSIN
IISYSLIN
IISYSLMOD DD DSNAME=IMS2.PSBLIB,DISP=OLD
IISYSPRINT DD SYSOUT=I
DD DSNAME=IMS2.LOAD,DISP=SHR
IISYSOBJ
IISYSUTl
DD
UNIT=1J11,DISP=(NEW,DELETE),

IIPSBMOVE

II
II

6,. 12

X

X

II
IISYSIN
INCLUDE
NAl'IE
INCLUDE
NAl'IE
INCLUDE
HAl'IE
INCLUDE
NAKE
INCLUDE
NAME
INCLUDE
NAKE
INCLUDE
NAME

SPACE=(CYL,(10,1) ,RLSE)
DD *
SYSOBJ (DFSSAM 11)
DFSSAMO 1 (R)
SY SOBJ (DFS SAM 12)
DFSSAl'I02 (R)
SYSOBJ (DFSSAM 13)
DFSSAM03 (R)
SY SOBJ (DFS SAM 15)
DFSSAl'I05 (R)
SYSOBJ (DFSSAM 16)
DFSSAl'I06 (R)
SYSOBJ (DFSSAl'I17)
DFSSAM07 (R)
SYSOBJ (DFSSAM 1S)
DFSSAMOS (R)

If a batch-only execution is desired, only DFSSAM11 and DFSSAM1S
are required.
The parameters underlined in the JCL statements should be modified
to conform to the user's system configu~ation.
The following JCL and control card statements are used to relink
edit the application program load modules from IMS2.LOAD to IMS2.PGMLIB.
IIPGMMOVE JOB 1,IMS,MSGLEVEL=1
II
EXEC
PGK=IEWL,REGION=110K,
II
PARK='XREF,LIST,LET,NCAL,SIZE=(100K,724S)'
IISYSLIB
DD DSNAKE=SYS1.COBLIB,DISP=SHR
IISYSLIN
DD DDNAME=SYSIN
IISYSL~OD
DD DSNAME=IMS2.PGMLIB,DISP=OLD
IISYSPRINT DD SYSOUT=I
IISYSOBJ
DD DSNAME=IMS2.LOAD,DISP=SHR
DD UNIT=2311,DISP=(NEW,DELETE),
IISYSUT1
II
SPACE=(CYL,(10,1),RLSE)
IISYSIN
DD *
INCLUDE
SYSOBJ(DFSSAM01)
ENTRY DLITCBL
NAKE
DFSSAM01 (R)
INCLUDE
SYSOBJ(DFSSAM02)
ENTRY DLITCBL
NAME
DFSSAM02(R)
INCLUDE
SYSOBJ(DFSSAM03)
ENTRY DLITCBL
NAME
DFSSAM03 (R)
INCLUDE
SYSOBJ(DFSSAM04)
ENTRY DLITCBL
NAME
DFSSAM04(R)
INCLUDE
SYSOBJ(DFSSAM05)
ENTRY DLITCBL
NAME
DFSSAM05(R)
INCLUDE
SYSOBJ{DFSSAM06)
ENTRY DLITCBL
NAME
DFSSAM06(R)
INCLUDE
SYSOBJ(DFSSAH07)
ENTRY DLITCBL
NAME
DFSSAl'I07(R)
INCLUDE
SYSOBJ(DFSSAHOS)
ENTRY DLITCBL
NAME
DFSSAMOS(R)

X

X

If a batch-only execution is desired, only DFSSAM01 and DFSSAMOS
are required.

6.13

EXECUTION OF THE APPLICATION CONTROL BLOCKS UTILITY PROGRAM
After the sample PSBs and DBDs are stored in their respective
libraries, the IMS2.ACBLIB data set must be created. This is done
using the Application control Blocks utility program. A procedure
is placed in IMS2.PROCLIB at system definition to accomplish this.
The following JCL will invoke this procedure. The output from this
execution is placed in the IMS2.ACBLIB data set.
//BLKS
//STEP
//G.SYSIN

JOB
EXEC
DD
BUILD

*

1,IMS,MSGLEVEL
ACBGEN
PSB=ALL

The as reader used to read this JCL must have access to IMS2.PROCLIB.
The suggested START command is "START IMSRDR,XXX", where XXX is the
card reader unit address.
EXECUTING AN IMS/360 DATA BASE LOAD IN A BATCH ENVIRONMENT
IMS/360 system definition has placed into IMS2.PROCLIB a.procedure
to execute the data base load. The input data for the data base load
execution, which contains the SYSIN for load, is a member.~f
IMS2.GENLIB. The name of the member is ~fQI~YSB.
This procedure
contains DD statements for the prime and OSAM data sets, the names
of which are IMS2.DI21PART and IMS2.DI21PARO respectively. The
following JCL statements will invoke the procedure to create the data
base.
//DBLOAD
JOB 1,IMS,MSGLEVEL=1
//STEP EXEC MFDBLOAD,PSER=333J33,PUNIT=lJll,OSER=l22£22,OUNIT=~J11
The symbolic parameters designate the volume serial" and unit for
the prime and OSAM data sets.
The data base must be scratched if a second execution of the MFDBLOAD
procedure is desired, since this procedure allocates the data base.
A message is printed on the operating system console when the data
base load is started and another when the load is completed.
PRINTING THE SAMPLE DATA BASE IN A BATCH ENVIRONMENT
IMS/360 system definition has placed into IMS2.PROCLIB a procedure
to print the sample problem data base. This procedure contains the
DD cards necessary to read and print the data base. The following
JCL statements will invoke the procedure to print the data base.
//DBPRINT
JOB 1,MSGLEVEL=1
//STEP EXEC
MFDBDUMP

6.14

INITIALIZING IMS/360 IN AN ONLINE

E~VIRONMENT

At this point, the IMS/360 system has been defined for the user's
environment, the application sample DBD has been created, the PSBs
and programs have been created, the PSBs and programs have been re1inkedited ~o their respective libraries, and tbe data base has been built.
ne are now ready to execute the IMS/360 telecommunications region
control program and perform message processing in an IMS/360 message
region.
The system user should review the 1~160 QEg~~!Q~~§ Rgiergn£g
(SH20-0913) for information concerning IMS/360 cold start.
The procedure named IMS, which is described in this manual, should
be used to start the IMS/360 control program.

~~nY~l

After the IMS/360 contrcl program region has been initiated, a
message is printed on both the operating system system cons~le and
the IMS/360 master terminal indicating IMS READY.
At this point, the master terminal operator should enter the restart
command message
/NRESTART CHKPT 0 FORMAT ALL
The FORMAT ALL parameter will cause the IMS/360 message queues to
be formatted.
Formatting is only required at the initial cold start
or after an I/O error occurs in the queue data sets. Formatting
requires about .75 seconds per 2311 cylinder and 1.5 seconds per 2314
cylinder.
These times are approximately doubled if write-checking
is included.
Immediately upon entry of the cold start command, the
IMS/360 system responds with a message
*NRESTAR~

IN PBOGRESS

After completion of the restart, which includes opening the message
log and message queue data sets and formatting the message queue data
sets, the fcllowing message is generated:
*IMS COLD START COMPLETE, ENTER

STAR~

COMMANDS

The system, through tbe operating system console, will request the
mounting of a standard label, nine-track tape for the system log during
cold start.
Although the IMS/360 centrel program is now available for message
entry, no message region exists for message processing.
This may be
accomplished by means of the /START REGION command entered from the
master terminal.
The /START REGION command causes an operating system reader, which
will read the JCL packet for a message region into the Operating
System/360 job queue, to be started. The JCL packet for the message
region is obtained from the IMS2.PROCLIB library.
Once the message
region has been started and communicated with the IMS/360 online control
region, a message, IMS MESSAGE REGION ST~RTED, is tran~mitted to the
mast~r terminal.
Message processing may now begin.
EXECUTING ONLINE APPLICATIONS FROM USER TERMINALS
At this point, each transaction code is discussed.
Both input and
output information and format are included in the discussion.
Figure
19, at the end of this discussion, provides a list cf some part number
records placed into the data base at time of data base load. Those
6. 15

part numbers may be used by the system user to enter transactions.
general format of all transactions is transaction code, blank,
and each transaction operand separated only by a comma from the next
operand.
No blanks should appear between one· operand and another.
Most of the transaction codes have been defined as multiple line
transactions and will require an EOT or equivalent to complete input.
~he

The first transaction, PART, allows the terminal operator to inquire
into the part number data base for information from the part master
and standard information segments of a particular part number.
The
input format is:

part

an960C10

The output or response format is:

DESC=iASHER

PART=AN960Cl0

PROC CODE=74

MAKE DEPT=12-00

INV CODE=2

PLAN REV NUri=

MAKE TIriE= 63

COMM CODE=14

The second transaction, DSPALLI, allows the terminal operator to
display all inventory, cycle count, and back order information for
a particular part. The input format is:

dspalli

an960c10

The output format is:

PART=AN960C10

; DESC=iASHER

; PROC CODE=74

followed by inventory description and detail information
AREA
1.

2.
3.

2

DEPT

PROJ
CD

AA
AK
80

165
287
091

IN~

DIV

UNIT
PRICE

CURRENT
ON
REQMTS
. ORDER
146
88
630

11
7F

26

IN
TOTAL COUNT
STOCK DISBURSE TAKEN

20

o

o

126
88
680

104
37
1157

N
N

N

The third transaction, DSPINV, allows the terminal operator to
display inventory information at a particular inventory location.
Assume it is wished to display only the third inventory entry listed
in the above output. Inventory location key is obtained by
concatenating AREA, INVDEPT, PROJCD, and DIV.
The input format for this transaction is:

dspinv

6.16

an960c10,

28009126

BACK
ORDR

o
o
o

The resultant output is:
PART=AN960C10

; PROC CODB=74

DESC=W1SHER

.000; STK CT DATE=513; UNIT=EACH

AREA=2; INV DEPT=80; PRJ=091; DIV=26; PRICE=

o;

CURR RRQKTS=

630 ; ON ORDER=

nISB PL ANNED=

1053, nISB UNPLANNED=

TOTAL STOCK=

680

o

104 : STK CT VARIANCE=

The fourth transaction, ADDPART, allows the terminal operator to
add a new part into the data base with its associated description.
The input for.at 1s:

addpart.

ab960c 10,

14

rivet.

The resultant terminal output is:
ADDED TO DATA BASE

PART NUMBER AB96dcl0

The fifth transaction, ADDINV, allows the terminal operator to add
inventory information to an e~isting part in the data base.
The input format

~s:

8009126

ab960c10 ..

al1dinv

Tne resultant output i-s!
IINVRNTORY 8009126

ADDED

PART NU"BER AB960C10

~O

If we wished to display the part's inventory information., we could
enter
DSPI~V

ab960c10,8Q09126

The resultant output would be:
PtlOC CODE=14

• DESC=RIVET

P1RT=AB960C10

ARRA=8; INV DEPT=OO. PEJ=912; DIV=6 : P-BICE=

o;
DISB PLANNED=

-OU ORDER=

o:

0: TOTAL STOCK=

DISB UNPLANNED=

.noo;

STK CT DATE=

; UNIT=

o
o

o ; STK CT VARIANCE:

The sixth transaction code, DLETINV, allows the terminal operator
The input
format is:

t-o delete a specific inventory item for a specific part.

dletinv

ab960c10,

8009126

The resultant output is:
INVENTORY 8009126

DELETED FROM PART NUMBER AB960C10

6. 11

If all the inventory items are deleted, then a particular part
number may be deleted from the data base with the transaction code
DLETPART.
~he

input format is:

dIet part
~he

ab960c10

resultant.output is:

PART NUMBER AB960Cl0

DELBTED FROM DATA BASE

The terminal operator may now wish to close an open order for a
specific part.in a specific inventory item. The transaction to close
an open order is CLOSE. The input format is:
quantity
~~g~ivgg

close

an960c10,

28009126,

15,

15

The resultant output is:
(UPDATE

COMPLETE)

The terminal operator may now wish to display inventory item 28009126
for part AN960C10. The input format is:

cispinv
~he

an960cl0,

28C09126

resultant output is:

l.?ART=AN960Cl0

; DESC=WASHER

; PROC CODE=74

ARRA=2; INV DEPT=80; PRJ=091; DIV=26; PRICE=
CURR REQMTS=

630 ; ON ORDER=

DISE PLANNED=

1053; DISH UNPLANNED=

.000; STK CT

15-; TOTAL STOCK=
104 ;

S~K

DATE~513;

695
CT VARIANCE=

Notice that the on-order quantity has been reduced by 15 and the
total stock quantity has been·increased by 15 to 695 from the earlier
display of this inventory information.
The final transaction code, DISBURSE, allows the terminal user to
allocate a quantity on a ~lanned Or unplanned basis of a given part
from a qiven inventory item. The input format is:
transaction

inventory

:lisbursement
planned or

quanti ty

£Qg,g

ke:t

.Yn.Ela~g

gi§By'!~g

28009126,

u,

10

DISBTJRSE

an960c10,

The resultant output is:
IUPDAT! COMPLETEDJ

6. 18

UNIT=EACH

o

Tf the terminal operator now wishes to display the inventory
information for key 28009126 and part number AN960C10, the input would
be:
~Qng

Transaction Part
]ymbg~

Inventory
KeI

dspinv

an960c10,

28009126

~he

resultant output is:

PART=ANq60C10

; DESC=WASHER

; PROC CODE=74

AREA=2; INV DEPT=80; PRJ=Oq1; DIV=26i PRICE=
CURR

630 ; ON ORDER=

~EQMTS=

nISB ?LANNED=

.000; STK CT DATE=513iUNIT=EACH

15-; TOTAL STOCK=

1053; DISB UNPLANNED=

685

114 ; STK CT VARIANCE=

~he

user may now terminate the IMS/360 system with a checkpoint command
such as described below.

~erminal

input:

/checkpoint purge
~esultant

I

output:

CHECKPOINT COMMAND IN PROGRESS

*CHKPT Q9365/132102**IKSDBS**PURGE**
The following is a list of available part records in the data base
which the user may employ for message processing.
Those parts marked
with an asterisk have dependent back-order segments.
All parts have
at least one dependent inventory status segment.

AN960Cl0
30038n6
300722R
3013412
65279CJ

*

14~8995p002

7618032P101
q223~q-001

82125-869
~iqure

19.

Part number records

A ~omplete listing of the part numbers available on the data base
may be obtained by executing the procedure KPDBDUKP as follows:
//DBDUKP
//STEP

JOB "
:EXEC

IMS,KSGLEVEL=l
ftFDBDUftP

6.19

o

The Data Language/I (DL/I) test program. is basically an IMS/360
application program that issues calls to DL/I based upon control card
information.
It also has the facility to compare the results of those·
calls with expected results which are also provided in control cards.
Its primary purpose is to provide a facility for testing of DL/I by
the issuance of calls based on control card information and, optionally,
to compare the results of those calls to anticipated results.
To a limited extent, this test program may also be used as a general
purpose data base utility program. However, the control card language
does not lend itself well to executing large volumes of calls.
It is
useful as a debugging aid, since it has the facility to display DL/I
control blocks, and provides an easy method of executing any call
against any data base.
GENERAL DESCRIPTION
This test program is intended to be a control card processor.
are four different types of control cards:

There

• status cards - establish print options and select processing PCB
• Comments cards - conditionally or unconditionally print comments
• Call cards - format the desired DL/I call
• Compare cards - compare anticipated results with actual results
The status card is used to establish print options and to select
which PCB within a PSB will be used.
The call to be issued is provided
in the call card. A compare card is optional and is used to tell the
program what the results of this call should be in the data base PCB
and in the user input/output area.
Various print and display options
are available; these are based on whether the results of the call agree
with the data in the compare card. Comments cards are also optional.
As the name implies, they are only comments and can be used by the
programmer at his discretion.
As will be seen later, there are two
types of comments: conditional and unconditional.
The general sequence of operation is to read call cards until a
noncontinued call card is detected.
The DL/I call is issued based on
data in the call card(s). The program then reads the next control
card.
If a compare card is read, it compares the contents of the
compare card with the corresponding field in the PCB, or, if a data
compare card, with the data in the user input/output area. The
comments, call, compare, PCB, input/output area, and compare data are
printed if requested.
If any control card other than a compare card
is read after a call was issued, the results of the prior call are
printed first and the new control card is then processed.

A.1

DL/I TEST PROGRAM JCL REQUIREMENTS

r--------------JOB

This statement initiates the job.

EXEC

This statement specifies the program name or may
invoke a cataloged procedure.
The required format
is:
PGM=DFSRRCOO,PARM='AAA,DFSDDLTO,BBBBBBBB,
CCCCCCCC;DDDDDDDD'
where AAA is the region type and BBBBBBBB is the
name of the. PSB to be used.
Parameters CCCCCCC and
DDDDDDD ar~ optional and can be used to specify
symbolic input terminal and output terminal names
respectively.

IMS
DD

This statement is comprised of two concatenated
data sets. The first DD statement normally defines
the library containing the PSB to be used by the
test program. 'The second DD statement defines the
library containing the DBD of the data base to be
processed:

database This Dg statement(s) references the data base to be
DD
processed. The DDNAME must agree with the DDNAME
specified in the DBD.

IEFRDER
DD

This statement defines the log data set, if one is
desired.
A DD DUMMY statement may be used if a log
is not required.

PRINTDD
DD

This DD statement defines the output data set
for the test program, including displays of control
blocks using the SNAP macro.

SYSUDUMP This statement is optional and is used by the
DD
test program only when normal termination is
unavailable.

SYSIN
DD

A.2

This statement defines the control card input data
set.

CONTROL CARD FORMATS
In the card fOLmats below, the S indicates those fields which are
normally filled in; the absence of the S indicates that normally the
field can be left tlank and the default value viII be accepted. If
COL 1 is left blank on any control card, the card type defaults to
the prior card type.
STATUS CARD FORMAT - establish print options and PCB selection
SCOL 01
COL 02

= S identifies this as a status card
= output device option
blank - use DD card PRINTDD vhen in a DLI region;
use I/O PCB in the MSG region.
1
use DD card PRINTDD in KSG region if the DD
card is provided; otherwise, use I/O PCB.
A
same as if 1, and disregard all other fields
in this status card.
COL 03
= print comment option
tlank - de not print
1
print always
2
print only if compare done and unequal
ceL 04
= not used
!COL 05
= print call oFtion
blank - do not print
1
- print always
2
- Frint only if compare done and unequal
COL 06
= not used
COL 07
= print compare option
blank - do not print
1
print always
2
print only if ccmpare done and unequal
COL 08
= blank
!COL 09
= print PCB option
blank ~ do not print
1
print always
2
print only if compare done and unequal
COL 10
= not used
$COL 11
= print segment option
tlank - do not print
1
print always
2
print only if compare done and unequal
COL 12 thru 15 = reserved
SCOL 16 thru 23=DBD Name
This must be one of the Data Base PCBs in
the PSB. This determines which PCB in .the PSB to
issue subsequent calls against. If blank, the
current PCB will be used. The default PCB is
the first Data Base PCB in the PSB.
If DBD name is 7 clanks and non blank, non blank
is number of which relative data base PCB in the
PSB to use.
SCOL 24
=print status option
1
do not use print options in this card
2
do not print this status card
3
do not print this status card or use print option
blank
use print options and print this card.

A.3

COL 25 thru 28 =PCB processing option - This is optional a'nd
is only used when two PCBs have the saae DBD name
but different processing options. If non blank; it
is used in addition to the DBD naae in COL 16
thru23 .to select which PCB' in the .PSB to use.
COL 29 thru 80 =n~tused
If no status card is read, default PCB is first database PCB in
the PSB and print options are 2: Nev status cards may occur at any
~oint in the 5YSIR stream, changing ~ither the data base to be
~eferenced or options.
COM"BNTS CARD FOR"IT - unconditional or conditional
Unconditional COllments:
$COL 01
= n ldentifies this as an unconditional Comments Card
COL 02 .thru 80 is comm~~ts - any number ·of unconditional commments
are allowed; they are printed when read. Time and date
are printed with each unconditional Comaents card.
Conditional Co.ments
COL 01
= T identifies this as a conditional Comments card
COl 02 thru 80'is comments - up to 5 conditional Comment~, cards per
call are allowed; no continuation in COL 72 is required.
Printing is conditioned on the status card. Printing
is deferred until after the following call and optional'
ccmpare are executed but prints prior to' the printing of
the following call.
CALL CARD FOBftlT - establish Ift5/36Q'call
SCOL 01
COL 03
COL 04

COL 05.thru
$COL
SCOL
COL
SCOL
SCOL
COL
SCOL
COL

10 thru
16 thru
24
25
26 tbru
34
35 thru
37
SCot 38 thru
SCOL XX +' ,
SCOL 72

1.4

= L identifies this as a call card
= SSA level (opticnal) - see below
= Format options
U if from COL 16 is unformatted; no blanks
separating fields
blank for formatted calls with intervening
blanks in columns 24,34, and 37
08= Number of times to ;epeat this call (optional) in the
range of OOe1 thru 9999
1~= DL/I application program call function
23= SSA .eg •• nt name
= not used
( if segment is qualified
33= 5SA field naae
= not used
36= DL/i caI'l.operator or operators
= not nsed
XX= Piel~ value
= ) end character
~ Honblank if more SSAs

This program does no checking for errors in the call; invalid
functions, segments, fields, operators, or field lengths viII not be
detected by this Frogram.
COL 03, the 5SA level is normally blank, in which case the first
call card fills 5SA 1 and each folloving call card fills the next lover
55A. If the 55A level, COL 3, is nonblank, the card fills the 5SA
at that level and the fclloving call card fills the next lover 55A.
COL 04 can contain a U to indicate an alternative format for the
call card, in which case COL 16 on is the exact 55A with no intervening
tlanks in columns 24, 34 and 31.
COL 05 thru OR are normally blank, but, if filled, must be right·
justified with leading zeros. The identical call will be repeated
equal to the value in 5-8.
COL 10 thru 13 - the DL/I call function is only required on the
first 55A of the call.
COL 16 thru 23 - the segment name is not filled for unqualified
calls.
If mUltiple S5As in the call, put nonblank in COL 12 of prior call
card and put next 55A in next card using same format; COL 1 and COL
10-13 are not required.
If field value extends past 71, put nonblank in 12 and 'CONTi in
10 through 13 of next card and continue field value starting in COL
16. Kaximum field value is 256 bytes.
Haximum number of levels for this program is 1ft5/360 limit of 15.
On insert or replace calls, data must follow last (noncontinued)
call card with an L in COL " 'DATA' in COL 10 thru 13, and the segment
data in 16 thru 11. Data may be continued with a non blank in 12 and
data starting in COL 16 of the next card. Maximum length of segments
is 1500 bytes. ~~!g: On insert calls, last 55A should have segment
name only with no qualification and may not be continued.
Since this program is unaware of segment lengths, the length of
the segment displayed on REPL or I5RT calls is the number of data cards
read times 56 (the data portion of the call card, continued to a maximum
cf 21 cards). 1M5/360 knovs the segment characteristics and viII use
the proper length.

A.5

CC'!!1PAR'R CAR:)} PORKAl' (PCB C0l1P1REl

=

COL 01

C.OL 02

:::

COL 03

=

cot 04
COL 05 thru 06

=
=
=
=

COL 01
COt 08 thru 09
COL

to

COL 1 t thru 18
COL 19
COL 20 thru 22

cot 23

COL 24 thru
cot 12

~X

=
::
-

::

=

=
=

identifies this as a compare card
H indicates hola CcmFare card (see
belo" for details)
blank indicates a reset of the hold
condi tion or a single compare card
option requested if compar9 results are unequal
1 request print of I/O buffers
2 request SNAP of entire region
4 request SNAP of DLI blocks
8 abort this step; go to erid of job.
Multiple functions of the first three
cptions may be obtained
1:y summing their respecti'Ve numeric
values. For example, a value of 5
iSa re~up.st for a print of the I/O
tuffers and the Dt/I blocks.
S SNAP subpools
not used
S-agment level
not used
status code
XX - do not check status code
01( - allow blank, GA, or GK
not used
Segment name
not used
Length of feedback key
not used
Concatenated key feedback
Nonblank to continue key feedback
E

fhecompare card is optional and is norm~llJ used to do regressi6n
testing 6f knc"n data ba~es or to ~all for print of blocks or buffer
foal.
.
Any fields left blank ar~ not compared to the corresponding field
in the PCB. SincE a blank is a valid status code, to nct compare
status code put xx in COL 08 and 09. To ac~ept any valid status code,
(that is blank, GA, or GK), make status code in COL 8 and 9 = C'OKf.
To execute the same ccmpare after each call, put ~n H in COL 2.
this is useful when loading a data base to compare to a blank status
ccde cnly. Since the comFare was done, the current control card type
isE in cot 1~ the next contrel card read must theiefore have its type
in COL 1 or it viII default to E. The hold-compare card will stay
in effect until another compare card is read. If a new compare card
is read, twc compares will be done for the preceding call, since the
hold compare and optional printing are done prior to reading the new
ccmpare carn.
.
COMPARE CARD FORMAT (USER I/O AREA

A.6

COL 0 t
COL 05 thru 08

::
=

COL 10 thru 14
COL 16 thru XX

=

COL 12

=

=

COMPAR~

E identifies this as a compare card
Length of data in card(s) to be compared
(oFtional) to a maximum of 27 cards
The character string 'DATA'
Data to be compared with segment in user
input/output area
Nonblank to continue data in next card

This compare card is optional. Its purpose is to compare the segment
by 1"5/360 to the data in this card to verify that the correct
segment was retrieved.
~eturned

The length in COL 5 thru 8 is optional; if present, this length
viII be used in the ccmpare and in the display. If no length is
specified, the shorter of either the length of data moved to the I/O
area by 1"5/360, or the number of data cards read times 56 is used
for the length of the compare and display.
If both a compare data and a compare PCB card are present, the
ccmpare data card must precede the compare PCB card.
The conditions for printing the compare data card are the same as
for printing compare PCB card; COL 1 of the status card is used. The
same unequal switch is set for either the compare data or PCB. However,
if central block displays are requested for unequal compares, a compare
fCB card is required to ·request these options.
SFECIAL CONTROL CARD PORMATS
FUNCH Card
The PUNCH contrcl card provides the facility for this program to
Iroduce an output data set consisting of the PCB compare cards, the
user I/O area compare cards, all other control cards read, or any
combination of the above. An example of the use of this facility would
te to code only the .call but not the compare cards for a new test.
~hen, after verifying that the calls were executed as anticipated,
another run would be made where the punch .control card is used to cause
the test program tc merge the proper compare cards, based on the results
of the call, with the call cards read, ~roducing a new output data
set which would then be used as input for subsequent regression tests.
If segments in an existing data base were changed, the use of this
control card could cause a new test data set to be produced with the
~roper compare cards, rather than having to manually
change the compare
cards because of a change in the segments of the test data base.
The PCB ccmpare cards are produced based on the information in the
PCB after the call is compl~ted. The data compare cards are produced
tased on the data in the I/O area after the call is completed. All
input ccntrol cards, other than compare cards, may also be produced
to provide a new composite test with the nev compare cards properly
merged in. The data set produced may alsc be sequenced.
since the key feedback area of the PCB compare card could be rather
long, two oFtions are provided for producing these compare cards.
Either the complete key feedback can be provided or the portion of
the key feedback which viII not fit in one card may be dropped. Porty
eight bytes of key feedback fit in the first card.
Producing the full data in the I/O area into the data ccapare card
might also be excessive and here the opticn again is to put it all
in the data ccmpare cards or put only the first 56 bytes in the first
card and drop the rest. 1he test program viII only compare the first
56 bytes if it only receiles one data compare card.

..7

PUNCH CA,RD PORMAT -

$COL Ot thru 03

~

teaL 10 thru 14

=

SCOL 16

=

produce compare cards
CTL - identifies this card type.
PUNCH ~ further identifies this card type as
controlling the punch output data set
starts keyword parameters controlling the
various options. These keywords are peEL - Produce the full PCB ccmpare card.
peES - Produce the PCB compare, dropping the
key feedback if it exceeds one card.
DATAL - Produce the complete data compare cards.
DAT-AS - Produce only one card ef ccmpare data.
OTHER - Reproduce all control cards except
fer_compare control cards.
START - starting sequence number to be punched
in COL 73 through 80. Eight numeric
char~cters must follow the START=
parameter; leading and/or trailing
2eros are required.
TNca ~ Increment to be added to the sequence
number of each card. Four numeric
characters must follo~ the INCR=
parameter; leading and/or trailing
zeros are required.

An example of the P'UNCH control card is:

crt

$~t

FUNeH PCBL,tATAL,O'fHER,.START=00000010,INCR=OOto
The DD card for the, Qutput data set is called PUNCHDn~ the data
characteristics are fixed, unblocked, LRECL=80.

DJ} r!xalllple:
IIPUnCftDD

DD

SVSOUT=S

ether control cards:
COL OT

::::

nOR. -

puts message- in remainder of card on
system console and waits for any reply,
then co-n,tinues ..

COL 01

liTO

COL 01

• or N; disre.gard this carel

COL 01

ASfND - issue ABEND2S2 with the DUKP option

same as iTOR but does not wait for reply

SPECI!L CALL CARD- FORMAT
SCOL 0-1

=

$COL 05 thru 08
$COl 10 thru 13

A.8

=

L identifies this as a call card

Nu .ber of times to repeat series of c'al1's
with a ~angefrom 000 1 tbru 9999
STAR - Start stacking control cards for
later execution
END - Stop stacking control cards an~
tegin execution
STAT - Print the current buffer pool 'statistics

The purpose of this·format is to provide the facility of repeating
a series of calls which have been read from SYS1N and held in storage.
All central cards between the STAR card and the ERD card are read and
saved. When the ~ND card is encountered, the series of calls is
executed as many times as the number punched in COL 5 through 8 of
the STAK card. This can be used to test exclusive control and
scheduling ty having two different regions executing stacks of calls
concurrently.
PORMAT OF DISPLAY OF DL/I BLOCKS
The OS SNAP macro is used to d'isplay the DL/1 blocks. The first
block in the snap is the first part of module DFSBNUCO. Within this
first block, the first decimal 40 bytes are the PSB directory.
Following the PSB directory is the PST. The format of the remaining
blocks displayed by the snaps will vary depending upon whether the
blocks came from the ACB library or vere dynamically built. The fields
in the PST, such as PSTSCIAD and PSTDBPCB, can be used to locate
relevant information in the subsequent blocks.
iXECUTION IN DIFFERENT TYPE REGIONS
This program is primarily designed to operate in a DLI or BftP type
legion but can also be executed in a MSG region. The input and output
devices are dynamically established based on the type of region in
which the program finds itself executing. In a BMP or DLI region,
the execute card allows the program name to be different from the PSB
name. There is therefore no problem with executing calls against any
data base in a BMP or a DLI region. In a MSG region, the program name
must be the same as the PSB name so, in order to execute in a MSG
region, the program must be given the name or an alias of the PSB named
in the I"S/360 definition.
When in a DLI region, input is read from SISIN and output is written
to PRINTDD.
When in a BMP region, if a symbolic input terminal was specified
as the fourth parameter of the execute card, input will be obtained
from that 5MB, and output will be sent to the I/O PCB. The name of
the I/O PCB may be specified as the fifth parameter of the execute
card. If no 5MB is specified on the execute card, SISIN is used for
input and PRINTDD is used for· output just as in the DLI region.
In the MSG region, the I/O PCB is used for both input and ~utput
unless COL 2 of the status card is either a 1 or an A, in which case
FRINTDD is used for output if the DD card is present in the JCL for
that message region. A limit of 50 lines per schedule is sent to the
I/O PCB and, after that, PRINTDD will be used for output if present:
if not present, tte program terminates.
Since the input is fixed ferm, it is difficult to key it from a
terminal. The technique used by the development group to test DL/I
in a message region using this program is to first execute another
message program which, based on the message from the termi~al, reads
central cards which are stored as a member of a partitioned data set
and insert the control cards to an 5MB. This program is then sch~duled
by 1MS/360 to process those transactions. This allows the same control
cards to bE used to execute in any region type.

1.9

HtN'tS ON USAGE
1.

To load

a data base:

~his·pro9ramis

only applicable for loading very small data
bases, since all the calls ~nd data must be provided to it
~ather than it generatin9·dat~.
it could be used to load large
voiume data bases if the control cards were generated as a
sequential data set.
2.

To display a data base:
To display a data tase, the following sequence of control cards
may be used.

S 1 2 22 1
1
GN
FH8
OK
L
9999 GN

3.

DBDNAHE

Display comments and segment
DO 1 Get Next
Hold compar-e, GA, -GK, OK, terminate· on GB
DO 9,999 Get Next calls

To do regression testing:
This program is well suited to regression testing. By using
a kncwn data base, calls can be issued and the results compared
to expected results using compare cards. The program then can,
in effect, determine i~ DL/I calls are being executed correctly.
By making the print options of the status card all twos, only
those calls not satisfied pr6perly will be displayed.

4.

To use as a debugging aid
When dci~g deb~gging work, usually a print of the DL(I blocks
is required. By use cf compare cards, the blocks may he
displayed at appropriat~ times. sometimes the blocks are needed
~ven though the call is executed cdrrectly, such as the call
before the failing call. In those cases, an extra incorrect
compare card may. be inserted. This causes the blocks to be
dis~layed even though the call was executed correctly.

5.·.

To .verify. how a call is executed
Since it is easy to execute a particular callt this program
can be used to· verify-how a particular call .is handled. This
can be.of value when DL/1 is susp~cted afnot·operating correctly
in a s~ecific situation. The calls wh~ch are suspected can
ce issued using this program and the results examined.

S!\MPLE Jet.
//JCLSAMP JOB ACCOUNTING,NAME,MSGLEVEt.=(1,1),MSGCLASS=3,PRTY=8
//GFT EXEC PGM=DPSRRCOO,PARM~'Dt.I,DFSDDLTO,PSBNAMEE'
//IMS DO DSN=IMS2.PSBLIB,DISP=(SHR,PASS)
.
II
DD DSN=IMS2.DBDt.I~,DISP=(SHR,PASS)
//CDCARD. DD DSN=DA'IAS~T,DISP= (OLD, KEEP)
//IEPRDRR DD DUMMY
I/PRINTDD DD SYSOn!=A
IISYSODUMP DD SYS6UT=A
//SYSIN DD *
Sl 1 1 1
CBDNAMEE

A.10

SAftPtE CONTRCL CABD INPUT
1.

Data base load:

//SYSIN DD *
U START TEST LOAD
1 ISRT ROOT SEG"ENT A060000111
L
ISRT
Al111111
L
DATA
A0600011
1069999888 ROOT SEG1
Eft
1 ISRT ROOT SEGMENT A06C00511
L
ISRT
Al11111
L
DATA
A060000511 1069999488 ROOT SEG2
L
ISRT
Al11111
{Al111111 = A060000511) X
AA~22222

DATA

XAA040511Z

/*
2.

Data base retrieve and update

//SYSIN DD *
S 1 1 1 1 1
GHU
L
S
L
L
S 1

L
t

ISRT
DATA
1 1 1 1
REPL
DATA

1
JHNXIX
JH2PABCX

(JllNXXX = A10H102000)
(J"2PABCI = DIOHI02A10)

2
J11NXXXX
(J 11 NIXXI
JK2PADXX
A10HDC2000D10HD02A1U
1

= A10H02000)

*
C

A10HD0200DB10HD02Al0

A.11

The File Select and Formatting Print Program is provided as a service
aid to be used with IMS/360 and its related data bases •. Its primary
function is to act as a utility to assist in the examination and display
of data from the IMS/360 log data set. The program has the ability
to:
• Print an entire log data set
• Print from multiple log data sets based upon control card input
• Select and print log records on the basis of sequential position
in the data set
• Select and print log records based upon data contained within the
record itself, such as the contents of a time, date, or
identification field
These features are selected and controlled by a series of statements
that allow the user to define the input options and selection ranges
as well as to specify various field and record selection criteria.
PROGRAM INPUTS AND OUTPUTS
All data input is processed using QSAM and may reside on either
tape or direct access storage devices. Data set organization should
be physical sequential, while the record format may be fixed or variable
in length, blocked or unblocked, or of undefined length. Since multiple
log data sets can be used as input, multiple ddnames may be defined
or, in the case of only one input, the default ddname of SYSUT1 can
be used. The data set containing control information must be in card
image form.
Parameter cards and related error messages are produced on the
output print data set in the same format and sequence as they are
processed. Data output is displayed in both hexadecimal and EBCDIC
form, 32 bytes per line, with the hexadecimal relative offset value
preceding each line.
PROGRAM CONTROL
The flow of control for the program passes through two major stages:
Control card processing - where construction of record test
and selection parameters takes place and control card errors
are diagnosed

B.1

Record selection and print processing - where the input data
is read, analyzed, and compared with the selection parameters
to determine the applicability of the record for printing
During the first phase, parameter cards are read and examined, and
the required test or test series is constructed to create a test group.
This test group is then used in record selection when control passes
to the next phase of the program. In the second phase, the input data
records are read, and disposition is decided by the results of each
test in the group. When the end of the input data is reached, either
by an end-of-file condition being encountered or the indicated record
count being satisfied, program control shifts back to phase one, where
the next group of tests is constructed.

Three types of control statements are used to guide the program
through the described phases. An additional card type can be u~ed
to provide titles or comments on the output listings. Operands on
these cards may be extended to additional cards, to a maximum of nine,
by placing a nonblank character in column 72 and continuing the operand
in column 16.
The CONTROL statement defines the beginning and ending limits of
the data set to be scanned; it also provides the ddname of the data
input if the default name of SYSUT1 is not used. Inclusion of this
card is optional if the default operands are satisfactory.
The OPTION statement defines the test or series of tests to be
performed upon the data of the candidate record to determine its
qualification for selection. One or more tests can be executed on
each logical record by the appropriate number of OPTION cards, creating
the logical "OR" function. Records can be analyzed with the logical
"AND" function by using the multifield test capability of the COND
operand and the necessary number of OPTION cards, creating a test
series. The operands COND=M and COND=E are used to denote the beginning
and ending, respectively, of a series for multifie1d testing of a
record. The maximum length of selection parameters that may be specifed
by the VALUE= operand is 510 bytes.
The END statement is a delimiter used to separate one group of tests
(comprised of one or more OPTION statements), from subsequent groups
of tests on the next data set. When an END statement is encountered
in the control input stream, the construction of record selection
parameters ceases and the processing of input data records starts.
Proper use of the END statement allows one execution of the utility
program to perform a varied number of tests on one or more IMS/360
log data sets.
The * or Comments statement may be used to include any information
deemed helpful by the user to identify tests or data and has no effect
on the utility program.

B.2

JCL REQUIREMENTS
The File Select and Formatting Print program executes as a standard
operating system job and, as such, requires a JOB card as defined by
the users installation.
Additionally, an EXEC and appropiate DD cards
to define inputs and outputs are required.

EXEC

This statement must be of the format
PGM=DFSERA10 or may be included in a cataloged
procedure.

SYSPRINT

This statement describes the output data set
to contain the formatted print records and
control messages.
It will usually be defined
as SYSOUT=A.

SYSIN

This statement describes the input control
data set. This file must be in card image
format.

input
data
DD

These statements define the input data set(s)
to be examined to produce the formatted print
records.
These data sets must be standard labeled files,
either direct access or tape. They may be
of any record format (F, FB, V, VB, VBS, or U),
as long as they are of DSORG=PS.
If a file with RECFM=U is used, the DCB BLKSIZE
parameter must be specified. These files are
processed using QSAM.
Therefore, any file that
QSAM supports can be described as input.

SYSUTl
DD

This statement defines the default ddname used
for data input if explicit reference is not
used.

B.3

CONTROL Card Format
1

16

10

CONTROL

[SKIP

CNTL

[

={a~a}J

,STOPAFT =

16777215l
~~~

1

(bbb, E)

rrDDNAME = {SISUT1}]
ddname
This card is optional. If not specified, the default values cause
the SISUT1 input file to be examined.
SKIP=
This keyword is used to define the first record tested.
prior records are ignored.

All

If this keyword is not specified, a default value of zero is
used and causes the first record on the input file to be tested.
aaa
The value specified must be in the range of
cannot have embedded commas.

ze~o

to 999999 and

STOPAFT=
This keyword is used to define the last record to be tested.
When this value has been reached by counting processed records,
the current group of tests is terminated.
If this keyword is not specified, a default value of 16777215
is used.
bbb
The value specified must be in the range of 1 to 99999999 with
no embedded commas. If the value zero is specified, one record
will be processed. The word EOF, which denotes end-of-file
condition, will allow record processing beyond the stated maximum
of 99999999 records.
E

This parameter causes records to be counted for test sequence
termination only if they satisfy selection criteria. Otherwise,
all records read (after the SKIP value) will be counted.
DDNAME=
This keyword is used to identify the input data set for the
current group of tests. A corresponding DD statement must be
supplied:.

B.4

If this keyword is not specified, a default of SYSUT1 is used
and the appropriate DD statement must be supplied.
ddname
This name must be the DDNAME of the input file if the default
of SYSUT1 is nqt used.
OP~ION

,
,

Card Format

I

,1

10

16

I

,

r
lOFFSET

OPTION

I

1
I
I
I
1

1

,,
,

{a~a}]

=

I

=

{~}]

PRINT

~VALUE = bbbJe FLOUR ={d~d}J
,COND =

E
H

T

I

I
I

tFLOTYP

MT
ET

{!}
{!}
{!}

1,
This card causes one set of tests to be constructed. One or more
OPTION statements can be defined for one or more sets of tests to be
performed against each input record. When all operands of this
statement are omitted, all records processed by phase two of the program
are printed.
PRINT
This parameter is used to cause records satisfying this test,
and prior tests in this series if this is a multifield test,
to be displayed on the SYSPRINT data set.
OFFSET=
This keyword is used to define the location of the first byte
of the field to be tested in the record. Default value is
position one of the record.
aaa
This value can be in the range from one up to and including
the length of the record under test. Maximum value is 32767
bytes, and no checking is performed to determine if the logical
record length is exceeded.
Noig:

If DSECTs are used to locate values in control records or blocks,
the user must adjust the starting value for the OFFSET
parameters. Most DSECTs start with a relative value of ZERO,
while the value specified in the OFFSET keyword is always
expressed as relative to byte one.
B.5

FLDTYP=
This keyword is used to define the type of data in the
VALUE=field.

x
This parameter defines the data to be treated as hexadecimal
pairs. The test data will be packed - two bytes into one to
form hexadecimal equivalents. This is the default value.'
~Z~IDE!g:

If VALUE=D9D6D6E3E2C5C7 (14 bytes)
is specified with the FLDTYP=X parameter, then
the resultant VALUE= will look like this:
ROOTSEG in EBCDIC or D9D6D6E3E2C5C7 in hexadecimal; in either case, the length is only
7 bytes.

C

This parameter defines the data to be treated as EBCDIC.
test data will be used as punched in the card, with no
alterations.

The

VALUE=
This keyword defines those characters that comprise the test
field. If FLDTYPE=X was specified, this data must be entered
as hexadecimal character pairs. For a 'Test Under Mask'
condition, a single pair must represent the hexadecimal vaiue
for the test. If FLDTYP=C was specified, this data must be
entered as EBCDIC characters. If the characters of blank or
comma are to be included in this operand, FLDTYP=X must be used
with the appropriate hexadecimal equivalent.
bbb
This value can not exceed 255 EBCDIC or 510 hexadecimal
characters. The length of this field is determined by the
FLDLEN= keyword value and not by the number of 'non-null'
characters in this field.
COND=
This keyword defines the type of test and its'relationship to
other tests in the group.

'This parameter indicates that this is a multifield test. That
is, more than one test is to be made on each input record.
All tests in this series must be satisfied before the record
will be printed.
E

This parameter marks the last (or only) element in a test series.
Any OPTION control stat~ments appearing after this .form a new
series of tests. This allows various tests to be performed
on each record and each test series can be used upon different
fields within the record.

B.6

T

This parameter causes the VALUE= byte to be used as a 'Test
Under Mask' value, instead of a compare field. Only the first
byte (two hexadecimal characters if FLDTYP=X) of the VALUE=
field will be used. If FLDTYP=C is used, the hexadecimal
equivalent of the EBCDIC character will be the test value.
If this parameter is used, the FLDLEN= keyword must not be
specified and a default length of one will be assumed.
Y
This parameter indicates that for the 'Test Under Mask' to be
considered satisfied, there must be a bit in the record test
field for each corresponding bit of the test byte. This is
equivalent to a 'Branch if Ones' Test.
N

This parameter indicates that for the 'Test Under Mask' to be
considered satisfied, there must not be a bit in the record
test field for any of the corresponding bits of the test byte.
This is equivalent to a 'Branch if Zeros' test.
MT
This parameter defines a 'Test Under Mask' OPTION as described
above in the 'T' discussion but with the properties of a
multifield test as described in the 'M' discussion. Since the
T parameter assumes a default value of one, the MT parameter
must be used for a multifield test that starts with a 'Test
Under Mask' value.
ET
This parameter 'signifies that a multifield test seroes ends
with a 'Test Under Mask' condition.
FLDLEN=
This keyword defines the number of characters to be used from
the test field.
Md

This value represents the actual number of bytes to be used,
not the number of characters specified in the VALUE= keyword.
The acceptable range of values for this field is one to and
ir.cluding 255. Default value is 1.

B.7

END Card Format

,

,

,1
110
116
,
END
I
~
I
IL---_____________________________________________________________
I

When all tests have been defined for the current input file, this
card must be used to cause execution of those tests to begin.
Any columns of the END card after 9 can be used for comments.

COMMENTS Card Format
r

11
1*

110
1

I

I

116
1
I

This card is optional and, if used, causes its contents
to be displayed on the SYSPRINT data set.

~~E1e

1:

Print all records from a data base Image Copy data set

//EPRT JOB
//IMAGEX1 EX~C PGM=DFSERA10
//SYSPRINT DD
SYSOUT=A
//SYSUT1
DD
DSN=IMAGE,VOL=SER=123456,UNIT=2400,LABEL=(,SL),
//
DISP=(OLD,KEEP)
//SYSIN
DD
*
* THE ABSENCE OF A CONTROL CARD WILL ASSUME SYSUT1 INPUT
* THIS OPTION CARD WILL CAUSE THE ENTIRE PILE TO BE PRINTED
OPTION
PRINT
END

/*

ExamElg 2:

Print the first 30 records from an IMS/360 log tape

//RINT JOB
//LOGEX1
EXEC PGM=DFSERA10
//SYSPRINT DD
SYSOUT=A
//LOGTAP1 DD
DSN=IMSLOG.VOL=SER=111111,UNIT=2400,LABEL=(.SL),
//
DISP=(OLD,KEEP)
//SYSIN
DD
* THIS CONTROL CARD DEFINES THE INPUT TO BE LOGTAP1
* AND ONLY THE FIRST 30 RECORDS FROM THE FILE WILL BE USED
CONTROL CNTL DDNAME=LOGTAP1,STOPAFT=30
OPTION PRINT
END

*

/*

'8.8

Example 3:

Extract log records of a type X'SO'. Only those
records after record No. 1000 are to be examined.

I/RINT JOB

IILOGEX2

EXEC PGM=DFSERA10
IISYSPRINT DD
SYSOUT=A
I/LOGTAP1 DD
DSN=IMSLOG,UNIT=2QOO,VOL=SER=111111,LABEL={,SL),
II
DISP={OLD,KEEP)
IISYSIN
DD
CONTROL CNTL SKIP=1000,DDNAME=LOGTAP1
* THIS OPTION CARD CAUSES ONLY THOSE RECORDS WITH A HEX 'SO' IN
* RECORD BYTE S TO BE PRINTED ON THE SYSPRINT DATA SET.
OPTION PRINT OFFSET=S,FLDTYP=X,FLDLEN=1,COND=E,VALUE=SO
BND

*

1*
ExamElg Q:

Print record No. 1S8 of an OSAM Image Copy data set
and all type X'SO' records on a log tape that references
this block number (assuming unblocked OSAM).

IIPRNT JOB
IICOMBEX1 EXEC PGM=DFSERA10
IISYSPRINT DD
SYSOUT=A
I/IMAGFILE DD
DSN=OSAMIMAG,UNIT=SYSDA,DISP=SHR,VOL=SER=DA0002
IISYSUT1
DD
DSN=IMSLOG,UNIT=SYSDA,VOL=SER=DA0003,DISP=SHR
I/SYSIN
DD
THIS CONTROL CARD CAUSES THE INPUT FILE IMAGFILE TO CLOSE
* AFTER THE FIRST RECORD OF THE SELECTED GROUP IS PRINTED
CONTROL CNTL
STOPAFT={1,E) ,DDNAME=IMAGFILE
OPTION
PRINT FLDEN=4,OFFSET=1,FLDTYP=X,COND=E,VALUE=0000009E
* THIS END CARD CAUSES THE SELECTION OF THE FILE TO BEGIN.
END
* THIS CONTROL DEFAULTS TO THE STANDARD INPUT FILE, SYSUT1
CONTROL CNTL
THIS CARD LIMITS THE SELECTION TO ONLY THOSE RECORDS
THAT CONTAIN A HEX 'SO' IN RECORD BYTE S
OPTION
PRINT FLDLEN=1,OFFSET=S,FLDTYP=X,COND=M,VALUE=SO
THIS CARD FURTHER LIMITS SELECTION TO ONLY THOSE RECORDS THAT
* CONTAIN THE DATA BASE NAME OF DATABAS1 IN RECORD BYTES 2s THRU 32
OPTION PRINT FLDTYP=FLDTYP=C,FLDLEN=8,OFFSET=2S,COND=M,VALUE=DATABAS1
* THIS CARD FURTHER LIMITS SELECTION TO ONLY THOSE RECORDS THAT
CONTAIN THE FLAG MARKING THIS RECORD AS AN OSAM RECORD
OPTION
PRINT FLDTYP=X,OFFSET=7,COND=MTN,VALUE=OQ
THIS CARD FURTHER LIMITS SELECTION TO ONLY THOSE RECORDS THAT
CONTAIN THE RBN OF 0000009E
OPTION
PRINT FLDLEN=4,OFFSET=43,COND=E,VALUE=0000009E,FLDTYP=X
* THIS CARD CAUSES THE SELECTION OF RECORDS TO BEGIN
END

*

*

*
*
*
*
*
*

1*

B.9

INDEX
This index was prepared using an automated indexing program
which is under continuing development. Your comments and
suggestions will be appreciated.
'ICS G"I'
5.4
'ICS'
5.lI
'ICS', MULTISE:;MENT TRA.NSACTION NAMED
5.4
ABEND, SYS~EM OC4
5.97
ABSENCE
A..3
ABSENCE OF A. CONTROL CARD
B. B
ABSENCE OF A. PA.SSB:>::)K
5.123
AC'l
2.10
ACB UTIL ITY PROGRA.~ FSUA.CBO
3.111
ACBGEN
6.1 ,6. 14
ACCESS
3 .1l1, 3. 29,3. BlI, 3.1 06,4.1,5.100,6.12,6.14
ACCESS DEVICES IMSwTNNN
3.9B
A.CCESS METHOD CALLED HDA.M REQUlRES
5.100
A.CCESS PA.RTITIONED DATil. SEl'S
2.1
ACCESS STORA.GE
2.1,2.3,2.5~2.6
A.CCESS STORAGE DEVICES
B.1
ACCESS VOLlNES
4.1 0
ACCESS, DRUM
3.2
A.CCESS, PPOITIDE
'5.41
A.CCOUNTING DATA, LENGTH OF THE
3.20
ACCOUNTING, JCLSAMP JOB
11..10
II.CCOUNTING, TIME
3.1
II.CCT
5.1
II.C::T NBR NOT NEED
3.113
ACKNOwLEDGMENT, POSITIVE
5.lI4~5.45
ACKNOWLEDGMENT, 759
5.46
II.CTIVIT'l
3.15,5.22,5.97
II.DDED BA.CK
5.119
ADDINV
6.12,6.17
II.DDITION OF '.IMS.'
5.21
II.DDITION, Nl
5.117
II.DDITIONAL
3.16,3.73
ADDITIONA.L COMMANDS
4.1
ADDITIONII.L MOVE/COP'l
2.1,2.3,2.5
II.DDITIONII.L PROCESS
3.81
II.DDPART
6.12,6.17
II.DDPART, PROC.CODE
6.17
ADDR
3.35-3.38,3.40,3. 4l1,3.lI6,3. 52,3.54,
3.53-3.54,6.12
ADDR LOA.D MODULE DMBDA5ZE, EP OF
5.102
II.DDR, 11.27402 TERMINII.L
3.53
ADDR, B27402 TERMINAL
3.53
II.DDR, PCH2 TER~INII.L
3.54
II.DDR, SECOND
3.lI4
ADDR, 027 TERMINAL
3.53
ADDR, 030 TERMINII.L
3.54
II.DDR, 226011. TERMINA.L
3.53
II.DDR, 2260C TERMINAL
3.53
ADDRESS CONITERSION
5.102
II.DDRESS OF FIRST B'lTE JF KEY FIELD VALUE
5.102
ADDRESS OF RII.NDOMIZING MODULE, ENTRY POINT
5.102
ADDRESS OF THE COM.'1UNICATION LINE
3.36
ADDRESS OF THE FIRST B'lTE OF THE USER 1/0 AREA
5.103
II.DDRESS OF THE SCD
5.97
ADDRESS OF THE 2972 CONTROL UNIT,
TWO-DIGIT HEXADECIM.II.L
3.38
ADDl1.ESS OF THE 3271, TIl'J-DIGIT HEXADECIM.II.L
3.38
ADDRESS REGISTERS
5.124
ADDRESS VALIDITY CHECKING
3.110
ADDRESS VALUE
3.36

APPENDAGE, COMPLETE
3. 13
II.PPENDA.GE, OSII.M CHA.NNEL END
3.85
APPENDAGE, OSA.M CHANNEL-END
3.3
3.68
APPENDAGE, S'lS1. SVCLIB CHANNEL-END
APPENDAGE, 7770
3.13
3.86
APPENDAGE, 7770-3 CHII.NNEL/A13NOFMAL END
II.PPENDED
5.lI5
APPLCTN
3.7,3.12,3.24-3.25,3.27
3.24
II.PPLCTN MACRO-INS'rnUCTION DESCRIBES
APPLCTN M/\.CRO-INSTRUCTIONS
3.8
APPLCTN STATEMENTS C, NUMBER OF
3.58
3.59
APPLCTN STATEMENTS, MAn MUM NUMBER OF
APPLCTN, DI21PART
6.12
APPLCTN, NO
6.12
APPLCTN, YES
6.12
APPLICABLE SCREEN SIZES
3.47
APPLICII.TION
3.3-3.4,3.7,3 .lI5, 3. 82,3.96,6.1,6.5,6.10
APPLICATION ANALYST
1.1
APPLICATION DESCRIPTION
3.67,6.1
II.PPLICATION DESCRIPTION M.II.CRO-INSTRUCTION
3.7
APPLICATION PROGRA.'I CA.LL
3.100,3.107,3.110
APPLICATION PROGRAM NAME
3.100,3.106
APPLICATION PROGRA.I1 PCB SIZES
3.111
APPLICII.TION PROGRA.'1 RESPONSE
3.lI5
3.26
APPLICATION PROGRA.'I SCHEDULING ALGORITIlM
APPLICATION PROGRA'I SIZE
3.1
3.25
APPLICII.TION PROGRII.~ USES OVERLAY DESIGN
5.100
II.PPLICII.TION PROGRAM, TERMINATION OF AN
APPLICATION PROGRA.'IMER
1.1
1.1
APPLIClI.rION PROGRAMMING REFERENCE M.II.NUAL
l\PPL ICATION PROGRA.~S CONCUF.RENTLY
3.2
3.120
APPLICATION PROGRA.'1S SIXTEEN DATA BASES
1.1
APPLICII.TION PROGRA.'1S, DESIGN OF THE
3.1-3.2
APPLICATION PROGRA.~S, NUMBER OF
3.61
APPL ICATION PROGRA.'1S, 255 NUMBER OF
3.63
APPLICATION PROGRAMS, 450 NUMBER OF
APPLICATION SAMPLE DBD
6.15
A.PPLICII.TION SPECIFICATIONS
3.121
APPL ICATION SYSTEM DII.TA BASES
3.82
6.5
APPLICATION, DATA BASE STRUCTURE OF THE
APPLICATION, ENTIRE
6.5
APPLICATION, NAMES
3.7
6.10
APPLICII.TION, RESOURCES OF THE
APPLICATION, SAMPLE
6.1,6.13
APPLICATIONS, IQF
3.29
APPLICATIONS, ONLINE
6.15
APPROPRIA.TE ACTION TII.KEN
5.117
APPROPRIATE ANCHOR
5.1 Oll
APPROPRIATE RESPONSES
1.3
AREA
3.110,5.20-5.21, 5.lI2, 5.64, 5.B5, 5.91,
5.97,5.110-5.102,5.1 Oll,5 .12l1
AREA CHAIN FIELDS
5.6l1,5.85,5.91
AREA OF THE PCB CO~PII.RE CARD
A.7
AREA, CONCATENATING
6.16
AREA, CONTROL PROGRAM WORKING
3.105
AREA, DETAIL INFORMATION
6.16
AREA, DSECT DESCRIBES THIS WORK
5.97
AREII., 1/0
5.97,7
5.lI4
II.REA, 1/0 BUFFER
5.12l1
AREA, LENGTH OF THE

ADDRESS, AREA.
5.42,5.64,5.85,5.91 ,5.12l1
ADDRESS, cm
5.12l1
ADDRESS, CONTROL UNIT
3.lI4
ADDRESS, CTLUNIT .SPECIFIES CONTROL UNIT
3.38
ADDRESS, DRUM
5. 92
ADDRESS, ENTRY POINT
5.3,5.42
II.DDRESS, FULLWORD ALIGNED
5. 97
ADDRESS, PARTITION SPECIFICATION TABLE
5.102
ADDRESS, RELII.TllTE TERMINAL
5.42
ADDRESS, RETURN
5.3
II.DDRESS, SAVE AREA
5.3,5.lI2,5.102
ADDRESS, SCDDBFPL FULLWORD
5.97
ADDRESS, VALID 2972 CONTROL UNIT
3.38
ADDRESS, 28115
3.44
ADDRESSES, LINE
3.36
ADDRESSES, 24 UNIQUE
3.44
ADDRESSING, WRITE LINE
3.3B,3.lI7
ALGORITHM LJA.D MJDULE DMBDAKL, NAME OF II.DDR
5.102
ALIAS
3.88
ALIAS NA.ME LINKEDIT
3.B8
ALL M/\.CRO-INSTRUCTION POSlTICNAL
3.6
II.LL, NRESTART CHKPT 0 FORM/\. T
6.15
A.LLOCATE
2.10,3.17,3.69,3. 8l1, 6. 8,6.10, 6.18
ALLOCATE ONE CYLINDER
3.69
ALLOCII.TION
3.2,3.57-3. 6B, 3. 76, 3. 7B, 6.7,6.11
ALL::lCII.TION GUIDELINES
3.69
ALLOCII.TION MUST INCLUDE SPACE
3.71
ALLJCII.TION, EXAMPLE OF
6.9
II.LLOCATION, INITIAL MINIMUM
3.73
ALLOCII.TION, PRIMARY
3.69
ALLOCATION, SECONDAR'l
3.72
ALLlCATION, SPACE
3.69,3.72
ALLOCII.TION, SYSTEM JOB STREAM CONTAIN
3.98
ALLOCATION, TIME OF
3.67
ALLOCATION, 20 MESSAGE QUEUE SPACE
3.72
ALLOWABLE
3.27
ALPHAMERIC CHARACTERS
lI. 3,5.64
ALPHAMERICS
3.33
ALTERNATE
3.85
ALTERNATE APPROACH
3.84
ANALYSIS, RECOVERY
5.122
ANALYSIS, RECOVERY SYSTEM LOG
1.3
ANALYSIS, TRADEOFF
3.2
ANALYST, SYSTEM
1.1
II.NALYZER
5.85-5.86
ANCHOR
5.104
ANCHOR POINT
5.103-5.10ll,5.117
ANCHOR POINT NUMBER
5.100,5.104,5.117
ANCHOR POINTER NUMBER WITHIN
5.101
ANCHOR POINTS/BLOCK DMBDABLK, NUMBER ::K
3.73
B1\.SE, END ITEM DAT1\.
6.5
BASE, HDAM D1\.TA
3.23,5.100,5.104
B1\.SE, PART D1\.TA
6.3
BASE, SYSTEM DATA
3.116
B1\.SES, ALL D1\.TA LANGU1\.3E/I DATA
BASES, HIDAM DATA
3.73
BASES, RELATED DATA
B.1
BASES, SUBJECT DAT1\.
6•1
B1'.SIC CONCEPTS
1.1
BASIC DISTRIBUTION TAPE CONTAINS TWO
6.1
B1\.SIC EDIT SERVICE
5.4
B1\.SIC INPUT EDIT SERVICE
5.3
B1'.SIC INTERFlI.::E MODULE DFSVC410
BASIC MASTER TERMINAL COMMANDS
B1\.SIC ONLINE SYSTE~
4.6
B1\.SIS
3.28,6.6
B1\.SIS OF 1\. GIVEN po.RT
6.18
B1\.SIS, AS-REQUIRED
3.1
B1\.SIS, PERIODIC
2.10
B1\.TCH
3.10-3.11,3.24-3.25,3.66,3.70,3.78,
3.96-3.97,3.116,3.120,5.100
BATCH ENVIRONMENT
6.1
BATCH ~ESSAGE REGI:>N I\.UTOM1'.TICALLY
3.106
BATCH MESSAGE REGION STARTS
3.106
BATCH NUCLEUS
3.21,3.75
B1\.TCIJ REGION ENVIRONMENT
2.10
B1\.1'CH SYST~
3.12
BlI.TCH-MESSAGE
3.116
BATCH-ONLY
2.7
BATCH, ALL FUNCTIONS
3.91
BFPLB::MB
5.98-5.99
BFl'LBMVD
5.98-5.99
BFpLCHBK
5.98- 5. 99
BFpLCHWT
5.99
BFpLEQp
5.98
BFpLEQP, TRMNATIONS
5.98
BFpLGTBF, CALLS RE::EIVED
5.99
BFpLGTBF, THROUGH
5.98
BFPLIGET
5.99
BFpLIGET, CALLS REC
5.98
llFpLISTL
5.98
BFpLRQCT
5.99
BFPLRQCT EQU1\.LS
5.98
BFpLRQCT, DQ MACROES
5.98
BFPLRQCT, FRlI.CTION OF
5.98-5.99
BFpLSW1, pL
5.98
BFpLTLCp, WRITE CHII.INS
5.98
8FpLTSTL
5.99
BFpLWERR
5.99
BI NARY
3. 33, 5. 42, 5. 104, 5. 117 , 5. 119
BINARY COUNT
5.3,5.20
BINARY COUNT INCLUDES
5.2
BINARY ZEROS
5~2
III NARY, TWO-BYTE
5.3
BINARY, 31-BIT
5.119
BISAM
3.89
BISAM, NO OF
5.98
BISAM, NUMBER OF
5.99
BITS :>F THE KEY, ADDITIONAL
5.117

BUFFER, IMS/360 M1\Y REQUIRE CORE
3.2
BUFFER, L1\RGEST TERMIN1\L INPUT
3.37
BUFFER, SYSTEM-DEFINED
3.72
BUFFER, 2772 LINE
3.37
BUFFERS
3.39,3.49,3.53,5.3,5.41- 5. 42, 5. 44,
5. 64- 5 .65, 5. 86, 5. 93, 5 • 98
BUFFERS CONTAINING DATA, NUMBER OF
5.99
BUFFERS KEYWORD, USE OF THE
3.50
BUFFERS, NUMBER OF
3.17-3.18,5.98
BUFFERS, X
6.12
BUFFS, NUMBER OF
5.98
BUFNO
3.99-3.100,3.104,3.1 08,3.112~3 .113
BUFPOOLS
3.15-3.16
BUFSIZE
3.35-3.38,3.42-3.43,3.49,3.52,3.54,3.53
BUF'SIZE, EITHER
3.49
BUFSIZE, 960
3.39
BYTE FIVE
5.20
BYTE OF TEXT, FIRST
5.124
BYTE 1-N
5.42
B2740 LINE
3.53
C1\LCULATION
3.19
CALL ~HI::H RELATES
5.101
CALL, DL/I
A. 1
CALLER
5.64- 5. 66,5.85- 5. 86,5.12 4
5.86
C1\LLER UP
CALLS, GN TYPE
5.103
C1\LLS, GU TYPE
5.103
C1\LLS, VOLUMES OF
1\.1
C1\N
3.67,3.72,6.10,9-10
CANCEL
3.106,5.4
CA.NCEL MESSAGE REGION AUTOMATICALLY C
3.110
CMDID1\TES
3.89
CMDIDATES, 1\DDITION1\L
3.89
C1\:<>1\BILITIES
3.3-3.4,5.41,5.64
C1\P1\BILITIES, FULL SECURITY
4.1
Cl\.pABILITIES, RECOVERY
5.85
C1\pI\.BILITIES, SYSTEM
3.1
C1\P1\BILITY OF CRE1\TING
3.3
CAPABILITY OF EDITING INPUT MESSAGES
5.2
C1\pI\.BILITY OF THE :OND OPERMD, MULTIFIELD TEST
B.2
C1\P1\BILITY OF THE SYSTEM, OPERATING
3.1
C1\PI\.BIL ITY, EXp MDED I/O
3.48
CAPI\.BILITY, PAGING
3.21
CA.p1\BILITY, QINDEX
3.23
C1\RD CHARACTER, END OF
5.44
C1\RD FORM1\TS
5.44,1\.3,B.4
C1\~D IM1\GE
B.3
C1\RD IMII.GE F:>RM
B.l
CA.RD IM1\GE FORMAT MAP
3.19
C1\RD RE1\DER
3.49,3.98,3.10fl,5.43
C1\RD REA.DER LINE
3.73
C1\RD RE1\DER UNIT 1\ODRESS
6.12,6.14
C1\RD REA.DER, DEVICE ADDRESS OF THE
3.98
CARD SPECIFICATION
3.48
CA.RD, 1\CBLIB DD
3.24
C1\RD, I\.SSOCI1\TED DO
3.73
C1\RO, CALL
A. 4
CARD, COMMENTS
1\.4,B.8
C1\RD, COMPARE
11..6
CARD, CONTROL
B.4

IlITS 0-3
5.122
BITS 4-7
5.122
BLANK INDICATES
1\.. 6
BLANK 8T1\.TUS CODE ONLY
11..6
BLANK, ALLOW
11..6
BLANK, CHARI\.CTERS OF
1\.6
BLANK, FIELDS
1\..4
BLANK, FIELDS LEFT
A. 6
BLMl{, PRINT CI\.LL :>pTI:>N
11..3
BLANK, PRINT COMMENT OPTION
11..3
BLANK, PRINT COMPARE OPTION
11..3
BLANK, PRINT PCB OPTION
11..3
BLMK, PRINT SEGMENT OPTION
1\.3
BL1'.NK, USE PRINT OPTION
11..3
BLI\.NKS 11-N
5.42
BLOL
3.24
BLDSIZE
4.9
BLKS
3.103,6.14
BLKSIZE
3.104,3.106,3.108-3.109,3.111-3.115,
3.117-3.118,4.9-4.10,4.12,6.9
BL:>CK
3.18,3.73,5.2,5.101,5.104,5.117,9
BLOCK STARTS
5.20
BLOCKING
3.73,5.43-5.44
BIDCRS, COMPOSITE CONTROL
3.10
BL:>CKS, CONTROL
2.6
BLOCKS, DL/I
A. 9
B~p
3.28,9
BROI\.DCAST
5.1
BROI\.DCAST CO~~I\.ND
4.6,5.1
BTI\.M AUTOWLST
3.32
BTI\.M DECB, CONTENT OF THE
5.20
BUFEXP
3.35,3.37,3.44,3.47
BUFFER 1\.LTERI\.TIONS, NU"lBER OF
5.98
BUFFER AREA
5.21,5.42,5.86
BUFFER EXpMSI:>N, SpE::IFICI\.TION OF THE
3.37
BUFFER HANDLER
5.98-5.99
BUFFER LENGTH
5.42
BUFFER NQ
5.98
BUFFER OF THE 2972 ::ONTROL UNIT
3.52
BUFFER OF 248 BYTES, MAXIMUM INPUT
3.37
BUFFER OVERRUN
5.86,5.92
BUFFER POOL
3.15-3.16,3.104-3.105,5.97-5.99,6
BUFFER POOL I\.REA USED DYNAMICALLY
3.15
BUFFER POOL AREAS, NUMBER OF FRAGMENTED
5.99
BUFFER POOL BFpLISTL
5.99
BU"FER POOL BFPLHERT
5.100
BUFFER POOL SIZES
3.16,5.98,5.100
BUFFER REQUIREMENTS
3.16,3.21
BfJFFER SIZE
3.38,3.53,3.100
BUFFER SIZE MUST
3.72
BUFFER SIZE SPECIFIED
3.72
BUFFER SPACE REQUIREMENT
3.72
BUFFER, I\.ODRESS OF 1\.
5.3,5.20,5.42
BUFFER, I\.VAILABLE
5.92
BUFFER, BYTES OF THE
5.3
BUFFER, CONTENTS OF THE
5.44,5.64,5.92
BUFFER, COUNT OF US1\BLE
5.85
BUFFER, CURRENT CONTENTS OF THE
5.92
BUFFER, FORM1\T OF THE
5.124
BUFFER, FOURTH BYTES OF THE
5.2

C1\RD,
CARD,
CARD,
C1\RD,
C1\RD,
CARD,
CARD,
C1\RD,
C1\RD,
C1\RD,
C1\RD,
CARD,
C1\RD,
C1\RD,
CARD,
C1\RDS,

1.2

END
EXECUTE
9
JOB
3.20-3.21,3
N1\ME
3.85
OPTION
B.5
PRODUCED EXEC
3.60
PRODUCED JOB
3.60
PUNCH
1\.1
SPECIAL SWITCH
ST1\GE 2 JOB
SPECI1\L CALL
ST1\TUS
1\. 3
STAK
11..9
SWITCH
5.4l!
SYSL'IOD
3.119
APpROpI1\TE DD
B.3
CA~DS, CONTROL
3.121,3.133,3.175,4.1,4.5,
6.11,A.l,A.3,1\.8-II..l0,B.1
C1\RDS, DATABASE
6. 10
CARDS, DESIRED DL/I C1\LL COMP1\RE
11..1
C1\RDS, EXPECTED RESULTS USING COMPARE
1\.10
CA'tDS, INCLUDE
3.84
C1\ROS, NECESSARY IEBCOpy CONTROL
3.97
CARDS, pARA."lETER
B.1
C1\ROS, P1\SSWORD MAINTENMCE CONTROL
4.1
CA~DS, PCB COMMENTS
1\.1
CA'WS, PCB COMPARE
A. 7-11.. 8
CARDS, PROCESSING SMp ::ONTROL
4.2
C1\RDS, PROVIDE ADDITIONAL INCLUDE 'CONTROL
3.84
CARDS, STA.TUS
1\..1,1\..3-1'..4
C1\ROS, SYSOUT DD
3.106
CARRII\.GE
3.27
CARRIAGE STOP
3.47
C1\RR11\GE, A~Y PRECEDING
5.123
C1\TALOG
3.69,6.8,6.10
C1\TALOG DO OSN
6.9
CI\.TALOGED
2.10,3.3,3.66,6.8,6.10,3
C1\TALOGED D1\TA SET
3.21
CI\.TALOGED PARTITIONED DATA SET, NAME OF A
3.20
C1\T1\LOGED PARTITIONED D1\TA SETS
3.66
C1\USES, SYSTEM CHECKPOINT FACILITY
4.11
CBLTDLI
3.98,3.108-3.~09,3.119,5.97
CDPNCH
3.54
CDpNCHA
3.54
CRMGED
5.42,5.85,5.92
CH1\NNEL
3.78,3.85
CH1\NNEL/ABNORMAL
3.86
CHAR1\.::TER OF 1\ KEY FIELD VALUE, FIRST
5.119
CH1\R1\CTER OF THE NA.'JJE, FIRST
3.23-3.24
CH1\R1\CTERISTICS
3.4,3.17,3.21,5.123,8
CHARACTERISTICS, 3271 CONTROL UNIT
3.38
CHARACTERS
3.50,5.119,6
CH1\RA::TERS, ALPHABETIC
3.6,3.23,3.32
CH1\RACTERS, LI~E CONTR:>L
5.2
CH1\R1\::'l'ERS, T1\B
5.3
CHECKING
3.96,5
CHECKPOINT
4.1,11.11,6.19
CHECKPOINT COMMMD
4.6,5.1,6.19
CHECKPOINT FREEZE COMM1\ND
5.1
CHECKPOINT L:>G FRE;JUENCY
3.13

CHECKPOINT PURGE COMMAND
5.1
CHECKPOINT RECORDS
11.1
CHECKPOINTS, AUTOM,\TIC IMS/360
3.13
CIRCA
3.106-3.101
CK";Y'
5.111
CLASS
3.109
CL"
5.3,5.20
r;LOSE
6.16
CL:)SE, C
5.44
CNTNAME
5.11
CNTS
3.75,5.11,5.123-5.1211
COBOL
3.96
C:)BS
3.75
CODE OPERAND
3.26
CODE PART
6.16
CODE, ABB
5.61
CODE, ACCEPT ANY VALID STATUS
CODE, CORRESPONDENCE
3.33
CODE, EIGHT-CHARACTER ALPHAMERIC TRANSACTION
3.26
CODE, FINAL TRANSACTION
6.16
CODE, GIVEN TRANSACTI:>~
3.11
CODE, IMS/360 TRANSACTION
5.111
CODE, INSERTED TRANSACTION
5.1
CODE, INSERTS TRANSACTION
5.1
CODE, INITENT:)RY
6.19
CODE, MAKE STATUS
6
CODE, NO TRANSACT
6.12
CODE, OUTPUT TRANSACTION
3.106
C:)DE, PROC
6.16-6.19
CODE, QUANTITY' TRANSACTION
6.18
CODE, ROUTING
3.11
CODE, SIXTH TRANSACrION
6.17
CODE, S:)URCE
3.66
CODE, VALID TRANSACTION
11.5
CODE, 1031 TRANSACTION
5.113
CODED
3.25,3.26
CODES 3.7,3.26,3.26,3.32-3.311,3.50,11.5,5.115,5.123,7
CODES CAUSE DATA BASE UPDATES
3.1
CODES REFERENCE MANUAl1.3,3.11 9
CODES, APPLICATION PROGRAMS THIRTY-SIX TRANSACTI:)N
CODES, COMPLETION
1 .3
CODES, RErURN
5.611-5.65,5.86,5.92,5.1211
CODES, STATUS
1.3,6
CODES, VERIFY-OK
3.50
COLLECTION OF CONTROL BLOCKS
2.6
COLLECTION, NAMES
3.6
COMBINATION
3.37,3.99,11.2
COMBINATION OF EXTENDED BINARY DECIMAL
3.33
COMBINATIONS OF CONTROL, VALID
11.2
COMM
3.15-3.16
CO~~AND
11.3,11.5
COMMAND VERB
II. 4
COMMAND, 'START IMS'
3.67
COMMAND, START IMS
3.3
COMMAND, SUGGESTED START
6.12,6.111
COMMANDS, PSTOP
II. 1
COMMAS, EMBEDDED
B.II
COMMENTS
3.133,3.175 ,A.1 ,A. II, B. 2,B. 8
C:)MMENTS CONSIDERED WARlUNGS
3.121
COMMENTS, CONDITIONAL UNCONDITIONAL
A.4

CONFIGURATION, REMOTE 2260 LINE GROUP
3.132
CONFIGUR1I.TION, SCREEN
3.117
CONFIGURATION, SYSTEM
3. , 0
CONFIGURATION, SYSTEM SECURITY
11.11
CONFIGURATION, 1030 TERMINAL
3.52
CONFIGUP.1I.TIONS
2.1,3.511
CONFIGURATIONS OF THE OPERATING SYSTEM, VS2
3.9B
CONJUNCTION
3.2,5. B5
C:)NSOLE, MASTER SYSTEM
3.11
CONSOLE, 0.5. SYSTEM
3.15
CONTAIN, NAr>!E STATEMENTS MAY OPTIONALLY
3.55
CONTAINS 1170-3 LINES
2.10,3.3
CONTAINS, DECB
5.3
CONTAINS, IMS2. GENLIll PDS
3.66
CONTAINS, DlS2. SOURCE PDS
3.66
CONTAINS, RANDOMIZING MODULE
5.103
CONTINUE
4.11,5.66,5-6,8
CONTROL BLOCK STARTS
5.3
CONTROL CARD TYPES
2.7
CONTROL PROGRAM SUFFIX
3.104
CONTROL SECTIOt{
3.33
CONTROL STATEMENT REMAINS
4.2
CONTR:)L UNIT/DISPLAY ST1I.TION CLUSTERS
3.36
CONTROL, HEADER
3.36,3.49
CONTROL, WILL NOT RECEIVE
5.91
CONVERSATION
3. 11,3. 14
CONITERS1I.TIO~S, ALLOW 20 CONCURRENT
3.111
CONVERSION
5. 101
CONITERSI:)N, SYSTEM MESSAGE
5.92
CONVERT
5.91-5.92,5.100,5.104
CONVERTED KEY
5. 111
COPY
2.6,3.116
CORE
3.2,3.13- 3.111, 3 .26,3 .29,5.101,6.12
CORE BUFFER SPACE, AMOUNT OF
3.2
CORE DUMP
3.105
CORE RESIDENT
3. II
CORE, AMOUNT OF
3.2
CORE, SPARE'A
3.111
CORRESPOND
2.1,2.3,2.5
CORRS
3.32-3.33
COUNT OF FSE'S
5.122
COUNTER
5.99
COUNTER MAINTENANCE CALL DPHYR
5.122
CPL
4.7
CPLOG
3.13-3.14
CPT
4.1,11.1
CREATED MAINTENANCE TABLES
4.7
CREATED MEMBERS
11.1
CREATED PROCEDURES SHOULD
3.96
CREATED SECURITY TABLES
4. 11
CREATED, NEW BLOCKS
5.98
CREATION
6.1,6.12
CREATION OF AN ADDITION!'.L BUFFER AREA
5.21
CRI':ATION, INITIAL
3. 116
CRITERIA, RI':CORD SELECTION
B.1
CROSS-REFERENCE
3.19
CSECT
3.33,3.86,5.41-5.42,5.101-5.103,5.123
CSECT NAMED RDMVTAB
5.101
CSECT, IEEVLNKT
3.61
CSECT, NE\{
3.67

3.120

COMMENTS, DISPLAY
"'.10
COMMON
3.52
COMMON 2960 LINE GROUPS
3.51
COMMUNICATI:)N
2.3,3.15-3.16,3.21,3.33 ,3.15,
3.121,11.6,5.3,5.11
COMMUNICATION CONFIGUR"'TIONS
3.52
COMMUNICATION DEVICE LINE CO'frROL OPERATIONS
3.16
COMMUNICATION INTERFACE
3.33
COMMUNICATION LINE BLOCK CALLED CLBCNTPT
5. 11
COMMUNICATION LINE BUFFER POOL SIZE
3.16
COMMUNICATION LINE ENVIRONMENT
3.53
COMMUNICATION LINE, OPERATION OF THE
5.2
COMMUNICATION LINES
2.6,3.1,3.3,3.6,3.9,3.11,
3.35,3.1111,3.52-3.53,3.55,6.10
COMMUNICATION LINES, NUMBER OF
3.11
COMMUNICATION PASSw:)RD TABLE
11.6-4.1
COMMUNICATION SYSTEM PROITIDES MESSAGE PROCESSING
2.1
COMMUNICATION TERMINAL BLOCK
5.21,5.112
COMMUNICATION TERMINAL DESCRIPTION
~ACRO-INSTRUCTION SET
3.8
COMMUNICATION TERMINAL MATRIX
11.7
COMMUNICATION TERMINAL TYPE
3.16
COMMUNICATION TRANSLATE TABLE
5.42
CO~MUNICATION, COMPLETE IMS/360 DATA
3.120
COMMUNICATION, INPUTTING
5.115
COMMUNICATION, INTERREGION
2.9-2.10,3.83-3.611
COMMUNICATION,
1030 TEST INSTALLa.TION ENVIRONMENT
5.113
COY.MUNICATIONS LINE BUFFER POOL
3.16
COMPATIBILITY
3.3,3.15
CO MPLEMENTED
5. 119
COMPLETION
5.65,5.87,5.119
CO"lPLETION OF SYSTEM DEFINITION, SUCCESSFUL
3.63
':OMPONENT
3.116,3.51,3.511
COMPONENT, MDI
3.113
COMPONENT, PTRDR
3. 1111
COMPONENT, SPECIFIC
3.51
COMPONENT, VIDEO
3.43,3.111
CO'lPONENT, 1053
3.111
COMPONENT, 2265
3.115
COMPONENTS OF 1052, OUTPUT
3.511
COMPONENTS, COMPLEX OF
3.511
COMPONENTS, 1 050 TERMINAL
3. 52
COMPONENTS, 1056 INPUT
3.511
COMPONENTS, 2160 TERMINAL
3.52
CO'lPOSITE
3.10-3.11,3.21
COMPOSITE TEST
A.1
COMPT
3.112-3.1111,3.116,3.50-3.52,3.511
COMPT OPERAND ASSOCIATES
3.51
CONCATENATED
2,6
CONCATENATIONS
3.89
CONCEPT
5.113
CONCURRENT CONVERSATIONS, NUMBER OF
3.11
CONCURRENTLY
3.1
CONCURRENTLY PROCESSED AGAINST 23 DESTINATIONS 3.18
CONCURRENTLY, STACKS OF CAl·LS
A.9
CONDITION, 'TEST UNDER MASK'
B.1
C:)NDITION, LINE DROP
5.86
CONDITIONS, SPECIAL
5.86,5.92
CONFIGURATION, PROGR"'MMING SYSTEM
3.10

1.3

CSECT, NEW NAME LIST
3.66
CSECT, TYPE 4 SVC IGCNNN
3.84
CT VARIANCE
6.11-6.19
CT, STK
6.17-6.19
CTB ADDRESS R6
5.611,5.85,5.91
CTB ADDRESS R9
5.1211
CTBS
3.75,5.3,5.20
CTL
3.104, II. 7,6
CTLBLKS
2.11,3.10-3.11,3.20,4.7
CTLUNIT
3.8,3.30,3.38
CTLUNIT MACRO-INSTRUCTION SPECIFIES 28118
3.36
CTLUNIT STATEMENTS, MAXIMUM NUMBER OF
3.60
CTLUNIT STATEMENTS, NUMBER OF
3.58
CTLUNIT, OAO
3.53
CTLUNIT, 200-A
3.56
CTLUNIT, 2260B
3.53
CTLUNIT, 255-A
3.57
CTM
3.75,11.7
CTRL
3.53,6.12
crT ADDRESS R9
5.611,5.65,5.91
CTTS
3.15,5.112
CUNITS
3.59-3.60
CURRENT
5.111,6.16,6, II
CURRENT BUFFER POOL STATISTICS
CURRENT ROOT
5. 103
CURRENT, COUNT OF
5.96
CITOL
6.9
CY'CLE
6.5,6.16
CYCLE, N
6.5
C~CLE, SINGLE SCHEDULING
3.28
CY'L,1
6.9
CYL,3
3.1111
CYL,5
6.9
CY'LINDERS
3.12
CYLINDERS IMS2. QBLKS
3.12
DASD
3.14,3.26,3.29
DATA BASE BUFFER HANDLER DFSDLEOO
3.89
DATA BASE BUFFER POOL SIZE
5.96
DATA BASE BUFFER POOL STATISTICS
5.1
DATA BASE EXAMPLE
3.120
DATA BASE LOAD
6. 14
DATA BASE LOG RECORDS
3.67
DATA BASE N1I.ME DDPGMN1I.M
5.122
DATA BASE ONLY
3.6
DATA BASE OPERATION, DATA LANGUAGElI
3.3
DATA BASE PCB
3- II
DArA BASE SUBSET STRUCTURE INCLUDES
6.5
D1I.TA BASE SYSTEM
2.1 ,3.6
DATA BASE SYSTEM ALONE
2.1
DATA BASE SYSTEM DISTRIBUTION
2.1
DA"'A BASE-ONLY SYSrEM
3.63
DATA BASE/DATA COMMUNICATION SYSTEM
3.11,3.83
DATA BASE/DATA COMMUNICAtION SYSTEM DISTRIBUTION 2.5
DATA BASE, BEGINNING OF THE
5.103
DATA BASES ACCESSIBLE
2.1
D1I.TA B1I.SES BFPLOSWT EQUALS
5.96
DATA BASES CONCURRENTLY'
3.11
DATA BASES CONCURRENTLY OPEN
5.100
DATA BASES CREATING SAMPLE
6.1
DATA BASES USED 2
5.99

DATA BASES 2740
3.122
DATA BASES, DATA LANGUAGE/I
3.108
DATA BASES, DATA SETS REPRESEN'rING
3.99,3.104
DATA BASES, NUMBER OF
3.61,3.63,3.68
DATA CARD TYP ES
4. II
DATA CARDS
11.5-4.6
DATA CARDS, NU~BER OF
5,7
DATA COMMUNICATION
2.7,3.3-3.4,3.6,3.11,3.68,3.120
DATA COMMUNICATION ENVIRONMENT
3.15
DATA COMMUNICATION EXAMPLE
3.121
DATA COMMUNICATION FEATURE
2.1,2.3
DATA COMMUNICATION FEATURE DISTRIBUTION TAPE
2.3
DATA COMMUNICATION FEATURE MODULES
2.1
DATA COMMUNICATION SYSTEM
2.1,2.3,3.3
DATA COMMUNICATION, SU~MARY OF THE
3.133
DATA CONVERSION
2.1,2.5-2.6
DATA CONVERSION FEATURE
2.1
DATA D1;:FINITION STATEMENT NAMES
6.10
DATA ENTRY APPLICATIONS, SPECIFIC KINDS OF
3.45
DATA EN'!'RY KEYBOARD
3.48
DATA EXTENT BLOCK
3.83
DATA FORMAT
5.64,5.91-5.92
DArA INPUT
5.115,1,3
DATA INPUT BADGE-ONLY INPUT
5.411
DATA LANGUAGE/I
3.3- 3.4,1
DATA LANGUAGE/I ANALYZER DFSDLROO
3.89
DATA LANGUAGE/I BATCH
5.100
DATA LANGUAGE/I BATCH, IMS2.RESLIB LIBRARY OF THE 2.9
DATA LANGUAGE/I DELETE/REPLACE DFSAOS50
3.89
DATA LANGUAGE/I INSERT DFSDLDOO
3.89
DATA LANGUAGE/I ISAM SIMUIATOR DFSDHDSO
3.89
DATA LANGUAGE/I MODULES BFPLINPL EQUALS
5.98
DATA LANGUAGE/I RETRIEVE DFSDBHOO
3.89
DATA LANGUAGE/I SPACE MANAGEMENT DFSARW'OO
3.89
DATA LANGUAGE II TEST PROGRAM
1
DATA LENGTH
5.124,6
DATA MANAGEMENT
5.103
DATA MANAGEMEN'!' BLOCK ADDRESS
5.102
DATA MANAGEMENT MACRO SRL
3.12
DATA SET 1.0
5.122
DATA SET NA~ES
3.66,5.43
DATA SET NAMES PRODUCED
3.34
DATA SET, SUMMARY OF THE
3.175
DATA SETS, CATALOGING OF THE
6.7
DATA SETS, PREALLOCATION OF
2.1,2.3,2.5
DATA SPECIAL CHARACTERS
5.87
DATA STATEMENT COMBINATIONS
4.11
DATA STATEMENTS
4.2-11.5
DATA STATEMENTS AVAILABLE
4.2 .
DATA SWITCH CARD FORMAT COLUMN
5.44
DATA., RECEIVES
5.66
DATA, ACCESS PARTITIONED
6. 1
DATA, ALLOCATE
3.117
DATA, APPLICATION
6.5
DATA, ASSOCIATED
6.11
DATA, BATCH
2.10,3.10-3.11,3.811
DATA, BATCH-ONLY
3.83
DATA, BEGINNING OF THE
5.97
DATA, CO'lBINED
3.15
DATA, COMPARE
1,7

DBDGEN, MEMBER NAME
3.99
DBDS, UNIQUE PHYSICAL
3.68
DBDUMP
II. 1 , 6. 1 9
DBDUMP COMMAND
II. 6 , 5. 1
DBLOI\D
6.111
DBPRINT
6.14
DBRECOITERY
4.1
DBRECOITERY COMMAND
4.6,5.1
DCB ATTRIBUTES
3.73
DCB BLKSIZE
3.98,3
DCB CHARACTERISTICS
3.67
DeB PARAMETERS DSORG
3.72
DCB, GENERATED
3.32
DeBS, BTAM
3.33
DCBS, LINE
3.75
DCBS, MSG
3.75
DO CI\RDS NECESSARY
6.111
DO DDNAME
6.12-6.13
DO DSN
3.61,6.12,10
DO DSNAME
6.12-6.13
DO NAMES
6.10
DO STATEMENT, OPERAND OF THE
3.67
DO UNIT
6.12-6.13
DO ITOL
6.9
DO, ASM.SYSIN
3.66,3.87
DO, C.SYSIN
6.12
DO, COMPCTL
3.98
DO, DFSLOGTr
3.103
DO, F~TINDX
3.711,3.101,3.103
DO, FMTINDXO
3.74,3.101,3.103
DO, HISTORY
3.74
DO, IEFDATA
3.113
DO, IEFPDSI
3.113
DD,IEFRDER
3.99-3.100,3.103-3.104,3.108,
3. 112- 3. 113, 3 • 11 8
DO, IMSDILIB
3.1011
DO, IMSLOGR
3.104
DO, LKED. SYSL"IOD
3.88
DO, LONGOUT
3.118
DO, LONGWKOl
3.118
DO, LONGWK02
3.118
DO, LONGWK03
3. 118
DO, MSGINDX
3.74,3.101,3.103
DO, MSGINDXO
3.74,3.101,3.103
DO, REFERAL
3.103
DO, SEQBLKS
3.103
DO, SHRTOUT
3.118
DO, SHRTWKOl
3.·118
DO, SHRTWK02
3.118
DO, SHRTWK03
3. 118
DO, SORTLIB
3.117-3.118
DO, SPCBOUT
3.117
DO, SPCBWKOl
3.117
DO, SPCBWK02
3.117
DO, SPCBWK03
3.117
DO, SPCBWK04
3.117
DO, SPCBWK05
3.117
DO, SPCB~!K05
3.117
DO, SSYNOUT
3.117
DO, SSYNWKOl
3.117

DATA, CONTINUE
6
1)11.1'11., CONTROL CARD INPUT
2
DATA, COUNT OF
5.65,5.86,5.91
DATA, DBD
3.78
DATA, DEFINES SEQUENTIAL TEMPORARY
4.11
DATA, ENTERED
5.2,5.123
DATA, lIDAM
5.100
DATA, IMAGE COpy
8
DATA, I..,S/360
2.1,2.3,3.120,5.1,5.101,6.14
DATA,IMS2.ACBLIB
6.15
DATA, IMS2.LGMSG
3.71
DATA, IMS2. RESLIB
3.84,5.111
DATA, INPUT
3.97,5.41,5.611,6.5,6.111,1
DA'T'A, IQF PHRASE
3.4
DATA, IQF SYSTEM
3.4
0"'1'11., ISAM
5.99
DATA, JOB ACCOUNTING
3.20
DATA, IARGE
5.99
DATA, LOG
11..2
DI\.TA, MARRIAGE OF THE
2.1
DATA, OUTPUT
2,7,3
DATA, PARTITIONED
11.9,6.12
DATA, PRINT OF THE
6.1
DATA, PSB GENERATION ACB GENERATION
1.3
DATA, PUNCH OUTPUT
8
DATA, QSAM
5.113- 5. 411
DATA, SAMPLE
6. 111
DATA, SEQUENTIAL
4.9,10
DATA, SEQUENTIAL MESSAGE
4.10
DATA, SEQUENTIAL OUTPUT
4.9
DATA, SEQUENTIAL TEMPORARY
4.10-4.11
DATA, SOURCE
3.108-3.109
01\.1'11., SPOOL SYSOUT
3.67
DATA, STEP "'CCOUNTING
3.20
DATA, SYS1. NUCLEUS
3.84
DATA, USERLIB
3.29
DATA, 0 OSAM
5.122
DArl\BI\.SE
3.23,4.2,4.4,4.3,4.5,4.13
DATI\BI\SE MACRO, THROUGH USE OF THE
3.4
DATABASE STATEMENTS, MAXIMUM NUMBER OF
3.59
DATASETS, PRINT
3.98
DB/DC
3.3
DB/DC SYSTEM
2.4
DBASE
3.15-3.16,3.59
DBBBATCH, ACBLIB MAINTENANCE
3.96
DBBBATCH, ME~BER NAME
3.99
DBBP
3.104-3.105
DBD
2.10,3.23,3.67-3.68,3.96,6.12,6.15,2-3
DBD DATA SETS
3.82
DBD DE1?INITION SOURCE MEMBERS
3.73
DBD GENERATION
3.20,5.100-5.101
DBD LIBRARIES FMTINIT
3.96
DBD OF A HIDAM DATA BASE, INDEX
3.23
DBD SOURCE MEMBERS
3 .73
DBD STORAGE ESTIMATES
3.68
DBD. ASSOCII\TED
5.101
DBD, ENERATION OF A
6.12
DBD, HIDI\M
3.23
DBD, INDEX
3.23
DBDGEN
6.1,6.13,6.12

DO, SSYNWK02
3.117
DO, SSYNWK03
3.117
DO, SSYNWK04
3.117
DO, SSYNWK05
3.117
DO, SSYNWK05
3. 117
DO, srEPLIB 3.99-3.100,3.106,3.108-3.109,3.111-3.118
DO, SWRKOUT
3.117
DO, SilRKWKOl
3.117
DO, SWRKWK02
3.117
DO, SWRKWK03
3.117
DO, SWRKWK04
3.117
DO, Si(RKWK05
3.117
DO, SWRKWK05
3.117
DO, SYSIN
6.9,10-11
DO, SYSLMOD
3.99,3.101,3.103,3.108-3.109,
3.111-3.112,3.114-3.115
DO, SYSPUNCH
3.104,3.115-3.116
DO, SYSTEXT
3.103
DO, SYSUDUMP
3.99-3.100,3.103-3.104,3.106,
3.108-3.109,3.113-3.114
DO, UTPRINT
3.103,3.117
DDNAME/DSNA'lE
3.34
DEB
3.83
DEB BUILDER
3.3
DECAREI\
5.2,5.21
DECAREI\, CONTENT OF
5.20
D1;:CB
5.20
D1;:CB, BTAM
5.3,5.20
DECIMAL
3.33,3.114,3.59-3.60,5.97,6
DECIMAL NUMBER
3.12,3.25,3.27
DECIMAL, BINARY
3.33
DECISIONS
3.1,3.106,3.110
DECK, SYSTEM DEFINITION CONTROL CARD
3.10
DEFAULT '1\'
3.99
DEFI\ULT BLOCKS
3.96
DEFI\ULT BLOCKS, BUILDING OF THE
3.75
DEFAULT BUFFER REQUIREMENT
3.21
DEFAULT e
3.110
DEF'I\ULT DDNI\ME
B. 3
DEFAULT LENGTH
B. 7
DEF'AULT OF SYSUT1
11..6, B. 5
DEFAULT PARM FLO
3.113
DEFAULT PCB
A. 3-11..11
DEFAULT SIZE
3.15,3.18,3.100,5.97
D5:FAULT, MAXIMUM
3.16
DEFAULTS APPLY
3.74
DEF'AULTS, SIZE
3.16
DEFINED
3.4,3.47,3.61,3.63,3.69,5.41
DEFINED SYSTEM
3.16,3.21,3.76
DEFINED UNDER B1?PLRQCT, NUMBJ;:R OF REQUESTS
5.98
DEFINED, DIRECT SYSOUT LINES
3.72
DEFINES, FIRST SUBPARAMETER
3.47
DEFINES, MOl
3.49
DEFINES, MICR
3.49
DEFINES, MSGQUEUE MACRO-INSTRUCTION
3.17
DEFINES, PT
3.49
DEFINES, PTR
3.49
D1;;FINES, PTRDR
3.119
DEFINES, READER
3.49
DEFINES, VIDEO
3.119

1.4

DEFINITION
DEFINITION
DEFINITION
DEFINITION
DEFINITION

1.1,3.38,3.40,3.49,3.61,3.73,3.78,5.42
BLOCKS
3.68,3.96
JOB CONTROL LI\NGUI\GE STI\TEMENTS
3.64
OF COMMUNICI\TION
3.1
OF IMS/360 CONTROL
5.3
D~<;"lNITION OF IMS1360 CONTROL BLOCKS
5.21
DEFINITION OF TRI\NSI\CTIONS
3.1
DEl>INITION PROCESS
2.6,3.9,3.19
DEFINITION STI\GE 1 OUTPUT WARNINGS
3.90
DEFINITION TIME
3.4,3.110,4.2,5.41,5.64
DEFINITION UTILITY REQUIRES
5.92
DEFINITION, BI\TCH DATI'. BI\SE SYSTEM
3.10
DEFINITION, BI\TCH ENVIRONMENT IMS/360 SYSTEM
6.14
DEFINITION, CONTROL BLOCKS FUNCTION SYSTEM
3.94
DEFINITION, EXI\MPLES OF SYSTEM 3.66,3.133,4.11,4.13
DEFINITION, IMS SYSTEM
3.75
DEl"INITION, IMS/360 ONLINE SYSTEM
3.12
DEFINITION, IMS/360 STI\GE 1 SYSTEM
3.56-3.60
DEFINITION, INI TII\L SYSTEM
2.7
DEFINITION, MI\INTENlUlCE SYSTEM
1.1
DEl"INITION, MI\XREGN P!'.R!'.METER OF THE
IMSCTRL STI\TEMENT OF SYSTEM 3.69
DEFINITION, NEW SYSTEM
2.11
DEFINITION, ONLINE SYSTEM
2.7
DEI"INITION, PROCEDURES SYSTEM
3.91
DE'!'INITION, STAGE 1 SYSTEM
3.76,6.10
DEFINITION, SYSTEM
5.3,5.11,5.20,5.43,5.66,
5.67,5.93,6.1,6.11,6.10,6.12
DEFINITIONS, BI\TCH SYSTEM
3.11,6.10
DEFINITIONS, DBD GENERATION UTILITY MACRO
3.66
DEFINITIONS, SYSTE:-f DEFINITION UTILITY MACRO
3.66
DELETE COMMlUlD
5. 1
DEPENDENT
3.70,3.73,3.96,5.2
D"!SCRIPTION IMSPLI
3.96
DESCRIPTION OF CONTROL CI\RDS
3.60
DESCRIPTION OF SAMPLE
6.1
DESCRIPTION OF THE REQUIREMENTS
5.97
DESIGN
3.55
DESIGN!'.TION OF THE UNDEFINED-RECORD
FORMAT SPECIFICI\TION
3.72
DESTINI\TION
5. 41,6. 10
DESTINATION, DEFINE MESS!'.GE
5.41
DETAILED CALCULATION
3.13
DETI\ILED EXPLANATION CJVERS
4.1
DETAILS OF CALCULATION
3. 16
DETAILS OF THE SYSTEM DEFINITION PROCEDURE
5.2
DEVICE
3.46-3.49,3.73,4.9,5.2,6.6
DEITICE MODULE !'.CTIJN
5.67
DEVICE MODULE DFSDS030
5.65
DEITICE TYPES
3.17
DEVICE, ANY VALID OUTPUT
3.72
DEITICE, OUTPUT-ONLY
3.45
DEVICE, SPECIFIC
3.32
DEITICE, SPOOL
3.113
DEVICE, SWITCHED
5.64
DEITICE, 1033 OUTPUT
3.45
DEVICES, BINARY SYNCHRONOUS
3.73
DEITICES, 1/0
3.19
DEVICES, INPUT-ONLY
3.116
DEVICES, SYSTEM OUTPUT
11.11

DISK
2.1,2.3,2.5,3.2,3.11,3.30,3.32,3.35-3.36,3.40,3.45
DIS!\' SPI\
3.111,3.91-3.92
DISK SPACE
3.70
DISK, TOTAL· NU:-fBER OF
3.14
DISTRIBUTION
2.10,3.70-3.71,3.73,5.117,5.119
DISTRIBUTION, BASIC D!'.TA COMMUNICATION FEATURE
2.3
DISTRIBUTION, MOD-LEVEL
2.11
DISTRIElUTION, NINE-TR!'.CK TAPE
2.1
DISTRIBUTION, SYSTEM
1.1,2.1,2.3
DII7
6. 16- 6. 19
DIVISIO~ METHOD EXAMPLE
5.104
DL/I
3.21,1,5,9-10
DL/I BLOCKS
6
DL/I CI\LLS
10
DL/I COMPLETION CODE DDBDNAME
5.122
DL/I CONTROL BLOCKS
1
DL/I INTERFI\CE NOTE
3.98
D['/I INTERFI\CE PLITDLI
3.96
DL/I, TESTING OF
1
DLET
3.28
DLET CALL DICALL
5.122
DLI
3.116,3.116,9
DLI BLOCKS, PRINT OF THE
1'..10
DLIBI\TCH
3.21,3.96,3.99
DLOGFLG1
5.122
DLOGFLG2
5.122
DLOGFLG3, BLOCK CI\LL
5.122
DL1B02
3.66
DMB
3.15-3.16,5.102-5.103
DMB CONTROL BLOCK POOL, SIZE OF THE
3.15
Dr.tB, BUFFERS SIZE OF
3.5
DMBDABLK
5.103
DMBDACP, FOUR-BYTE FIXED NAME
5.103
DMBDI\CS
5.102
DMBP
3.104-3.105
DMGIUl PSBGEN STEP
3.119
DMGSll
3.116
DMGSI2
3.116,3.119
DOPT
3.24
DPHYI
5.122
DREG12, TYPE 3 REGION
5.122
DREG3, TYPE 0 REGION
5.122
DRS172, TYPE 112 REGION
5.122
DRUM !'.DDRESS BYTES, COUNT OF THE NUMBER OF
5.92
DRUM ADDRESS FORM
5.65,5.66
DSECTS OF THESE BLJCKS
5.103
DSNAME
3.34,3.117,6.12
DSNI'.ME, I\SM.SYSLIB DD
3.66
DSORG
3.66,3.74,3.103,3.114,3.117-3.116,6.9,3
DUMMY, IEFPDER DD
!'.. 1 0
DUMP
3.97,3.113
EBCDIC TRlUlSLATION
3.34
EDIT
3.40,3.46,3.51-3.52,4.6,5.3-5.5,5.11,
5.20-5.21,5.123- 5.1211
EDIT MODULE DFSILNKO
3.86
EDIT OF CSECT IEEVLNKT, LINK
3.67
EDIT OF THE PRIVILEGED PROGRAM, LINK
3.87
EDIT OPERlUlD
3.29
EDIT PROCEOORE
3.96,3.96,3.97
EDIT ROUTINE REGISTERS
5.42

DEVICES, TELECOMMUNICATION
3.4
DEVICES, 2314
3.73
DFSAOSAO
3.69
DFSAOSBO
3.69
DFSAOSCO
3.65,3. 69
DFSAOSDO
3.89
1)FSCNTEO
5. 1 1
DFSCNUC
3.21
DFSCNUCN, MEMBERS
4.6
DFSCNUCO
3. 21
DFSDDLTO
1-2
DFSDF4
3.101
DFSDLJCO
5.101
DFSDLROO
5.101
DFSDN110
5.123
DFSERA10
3,8-9
DFSIBLKX
3.10
DFSICSCO
3.85
DFSIL~KO
3.66,3.99,3.106-3.109,3.111-3.112,3.114-3.115
DFSIOCEO
3.66
DFSIS:-fPO
3.115,11.6
DFSI7770
5.85,5.67
DFS07770
5.91,5.93,5.97
DFSRRCOO, NAME
3.79
DFSSI\MO 1
6.13- 6.14
DFSSAM02
6.13
DFSSA.M03
6.13
DFSSAM04
6.12- 6. 13
DFSSAMO 5
6.13
DFSSAM06
6.13
DFSSA.M07
6.13
DFSSAM08
6.13-6.14
DFSSAM 1 1
6. 13
DFSSAM12
6. 13
DFSSA.M 13
6.13
DFSSAM15
6.13
DFSSI\:-f16
6.13
DFSSAM17
6.13
DFSSA.M18
6.13
DFSSI\P04
6.12
DFSS7770
5.64,5.67
DFSUNU10
3.103
DFSUNU30
3.103
DFSUPRTO
3.113
DFSUTS10
3.101
DFSUTS20
3.101
DF'ScrTS30
3.73,3.101
DFSUTS40
3.73,3.101
DFSUTS50
3.73,3.101
DFSUTS60
3.73,3.101
DFSUTS70
3.102
DFSUTS90
3.103
DFSI7CIOO, COMM!'.NDS
3.65
DFSVC400
3.69
DFS10300
3.37,5.43
DFS29800
5.123
DIRECTORIES
3.62,4.7,5.20
DIRECTORY, DMB
3.75,9
DISCONNECT
5.64-5.65
DISCUSSION OF THE IMSCTRL MACRO-INSTRUCTION
2.7,2.11

EDIT ROUTINE RETURNS
5.411
EDIT ROUTINES GENERI\TION,
OPTIONAL INCLUSION OF USER MESSAGE
2.9
EDIT ROUTINES, NAMES OF THE
5.41
EDIl', IMS/360 BASIC
5.3
EDIT, IMS/360 BASIC INPUT
5.2
EDIT, IMS1360 USER RELINK
6.12
EDIT, LINK
2.9-2.11,3.63,3.65-3.66,3.96,3.98,
5. 41, 5. 43, 6. 10- 6 • 1 2
EDIT, LINKAGE
2.9,6.12
EDIT, PHYSICAL TERMINAL OUTPUT
5.1
EDIT, RELINK
6.13
EDIT, SPECIFIED
3.29
EDIT, USE OF THE
3.56
EDIl'ED
5.20
EDITED MESSA.GE SEGMENT LENGTH INCLUSIVE
5.20
EDITED MESS!'.GE TEXT
5.42
EDITING
5.2
EDITING, BASIC
5.3
EDITOR, LINKAGE
3.20,3.88,11.7,11.10-4.11
EDITS IMS/360
5.2
EDITS, TRANSACTION CODE
5.1
EDIT1030
5.43
EDIT7770
3.34
ELEMENT OFFSET DFSE
5.122
ELEMENT, SECURED
4.6
ELE.'1ENT, TERMS OF THE SECURING
11.5
ELEMENTS, SECURING
4.6
ENTERED CONTROL
4.4
ENTERED PTERM
11.5
ENTERED TEXT
5. 1 25
ENTERED VALUE
3.21,3.39
ENTRIES, MAXIMUM NUMBER OF
11.7
ENTRIES, MOST IMPORTANT
5.96
ENTRIES, VALID
3.46
ENTRY
5.21,5.41-5.112,5.611-5.65,5.65-5.87,5.91,
S. 102- S. 103, 5.123- 5.124
ENTRY DLITCBL
6. 13
ENTRY OF THE COLD STI\RT COMMAND
6.15
ENTRY OF THE NAMED l'RANSACTION CODES
11.5
ENTR1 OF THE SYSTEM OPER!'.ND, SECOND SUBLIST
11.7
ENTRY POINT
3.66,5.3,5.87
ENTRY VECTOR
5. 65
ENTRY, INFORMATION-ONL1
5.67
ENTRY, NEW NAME LIST CSECT
3.86
ENTRY, ONLY 'lALID
3.46
ENTRY, OSAM OPEN/CLOSE EOV
3.65
ENTRY, UNAUTHORIZED
4.1
ENI7IRONMENT
1.1,2.6,3.1,3.3-3.4,3.21,5.43,6.7,6.10
ENVIRONMENT, GENERAL SYSl'EM
3.3
EN'lIRO~TMENT, ONLINE
6 .1 5
ENVIRONMENT, OPERATING
3.69
ENVIRONMENT, OPERATING SYSTEM
3.10
ENVIRONMENT, OSI'lS
3.63
ENVIRON~ENT, PARTICULI\R
4.2
EN'lIRONMENT, PARTICULAR USER DATA PROCESSING
2.6
ENVIRONMENT, SPECIFIC
3.3
ENVIRONMENT, SYSTEM
3.2
ENVIRON~ENT, 1030
3.37
EOB
3.27,5.87

1.5

EOF
II
EQlJ
3 .R7 ,5.122
EQtJIIfALENT
3.27,3.67,5.3,5.20.,5.87,6.10. ,6.16,6-7
EQlJIVALENTS, VOCAOOLARY
5.92
ERT;:START
11.1
ERES'rART COMMAND
II. 6, 5. 1
ERROR CONDITIONS
3.50.,5.65,5.86,5.92
ERROR DETEcrION
5.85
ERRORS
3.3,3.50.,11.2,11.6,5.1111,5
T;:RRORS, ~RITE
5.10.0-5.101
EXA~PLE OF TIlE BUFPOOLS MACRO-INSTRlJCTION OPERANDS
3.16
EXAMPLE OF THE LINE
3.37
El(AMPLE OF TIlE LINEGRP MACRO
3.34
EXAMPLE OF THE MSGQUEUE MACRO-INSTRlJCTION
3.18
EXAMPLES, IlDAM RANDOMIZING MODOLE
5.104
EXAMPLES, JCL
3.87,6.7
EXAMPLES, RANDOMIZING MODlJLE
5.10.4
EXAMPLES, SYSTEM DEFINITION
3.120
EXEC
3.106,3.10.8-3.109,3.111-3.118,4.8,4.10,
EXEC ASMFC
3.66
EXEC, IEFPROC
3.10.4,3.113
EXEC, STEP
6.14
EXEClJTABLE IMS.f36o. SYSTEM
3.3
EXEClJTE
3. 3,6
El(EClJTED
2.10.,3.33,3.55,5.66,6.10.
EXEClJTING
3.88,3.97,3.116,3.120. ,6.19-1,9
EXEClJTION
3.2,3.4-3.5,3.26,3.32,3.99,3.108
3.112,6.7,6.12,6.111 ,A. 9
EXEClJTION OF STAGE 2
3.20,3.61,3.66
6.12-6.14,6.19,2,3
EXEClJTION OF TIlE MFDBLOAD PROCEDURE
6.14
EXEClJTION OF THE START IMS COMMAND
3.79
EXEClJTION STEP
3.96,3.98
EXEClJTION TIME
3.23,3.72
EXEClJTION, APPLICATION PROGRAM
3.21
EXEClJTION, ASSEMBLY
3.66
EXEClJTION, BATCH REGION
2.10.,5.10.1
EXEClJTICN, BATCH-ONLY
6.8,6.10.,6.13-6.111
EXECUTION, DlJRING STAGE 2
3.66
EXEClJTION, FOlJR-STEP
3.96
EXECUTION, LATER
EXEClJTION, ONLINE
6.10-6.11
EXECUTION, ONLINE SYSTEM CONTROL PROGRAM
3.15
EXEClJTION, OPERATING SYSTEM.f360 MVT
2.1
EXECUTION, OSAM MlJLTIVOLlJME
2.9
EXEClJTION, SEClJRITY MAINTENANCE PROGRAM
4.1, II. 6
T;:XEClJTION, SYSTEM
2.10,3.811
EXEClJTION, SYSTEM DEFINITION STAGE 2
3.29,5.111,5.113
EXECUTION, TIlREE-STEP
3.97
EXEClJTION, VS2
2.5
EXEClJTIONS, SlJB SEQlJENT
5.1 C 0
EXITS
5.1,5.3,5.20.,5.112,5.65,5.85,5.87,5.91
EXPANSION, ADDITIONAL BlJFFER
3.37
EXTENSIONS
1.1,5.2
EXTERNAL ACTION
5.87
FACILITY OF REPEATING A SERIES OF CALLS
FACILITY OF TIlE TYPE 4 SVC, OSAM
3.84
FACILITY, INTERACTIVE QUERY
2.5,3.4
FBM
3.72,3.99,3.114-3.115,11.10.
FBP
3.10.11,3.10.7

FORMAt', LOG TAPE RECORD
5.122
FORMAT, ~:lDIFIED
3.86
FORMAT, OPTION CARD
B. 5
FORMAT, PUNCH CARD
A. 8
F:lRMAT, RECORD
1,3
FORMAT, RESPONS E
6. 16
F:lRMAT, STANDARD IMS.f360 INPUT MESSAGE
5.123
FORMAT, STATUS CARD
A.3
F:lRMAT, 7770-3 INPUT DATA
5.65
FORMATS
3.103,11.6,5.1,5.20,5. 102,5.122,6.16,1,5,9,1,3
FORMATS, FJ;XED REC:lRD
3.72
FORMATTED CALLS
4
FORMATTED PRINT
3
FlJLL, DICT.IONARY
3.57
FlJNCTION OF THE SECURI'rY MAINTENANCE PROGRAM
4.1
FUNCTION, IMS.f36o.-SlJPPLIED ED.IT
5.3
FlJNCTIONS, BASIC IMS.f360 EDIT
5.1-5.2
FlJNCTIONS, CAPABILITIES IMS.f360 l'ROVIDES EDIT
5.1
FlJNCTIONS, DELETE
3.28
FUNCTIONS, EDITING
5.111,5.611
FONCTI:lNS, HEADER ::ONTROL
3.53
FUNCTIONS, MAINTENANCE
11.2
F[JNCTIONS, PERFORM EDIT
5.1
FUNCTIONS, PHRASE DEFINITION
3.28
FUNCTIONS, RANDOMIZING
5.100
FlJNCTIONS, SlJBSEQUENT IMS.f360
5.5
FUNCTIONS, UPDATE
11.2
Fl
5.87
F2
5.87
F3
5.87
Fq
5.87
FS
5.87
GC28-651Q
3.3
GC28-6538, FORM
3.20
GC28-655o.
3.83
GC28-6550, FORM
3.89
GC28-6647, FORM N:l.
3.12
GC3o.-2o.o.4
3.33
GENERATE MlJLTIPLE IMS.f360 SYSTEMS
3.21
GENERATED COMPOSITE CONTROL .BLOCKS
3.21
GENER1'.TED IMS.f360 ASSEMBLER
3.B8
GENERATED IMS.f360 NlJCLEUS
3.21
GENERATED IMS.f360 SYSTEM REQUIRES THAT
3.67
GENERATED MATRICES, MAXIMlJM BOlJNDS OF THE
4.7
GENERATED NlJCLElJS
3. 11
GENERATED SYSTEM
3. 3,3. 5, 3.66
GENERATED SYSTEM, ~ACRO REQUIREMENTS OF THE
3.20.
GENERATED, CORRESPONDING JCL
3.311
GENERATING SYSTEM
3.77
GENERATION
1.1,2.9-2.11,3.3,3.78,6.13,6.12
GENERATION MAXIMUMS, EXCESS OF SYSTEM
3.72
GENERATION OF RANDOMIZING MODULES, USER
5.1
GENERATI:lN OF THE IMS.f360 CONTROL PROGRAM,
IMS2.RESLIB LIBRARY 2.9
GENERATION PROCESS
6. 1 2
GENERATION, ACB
2.10
GENERATION, BATCH
3. 95
GENERATION, HDAM DBD
5.100
GE'IEPATION, NUCLEUS
3.6
GENERATION, OPERATING SYSTEM SYSTEM
2.10,3.811

FEAT
3.30,3.32,3.34-3.35,3.37,3.39-3.40,
3.42-3.44,3.116-3.47
FEATURE
2.3,3.2,3. 11,3.33,3.38,3.45,3.47-3.48
3.69,3.81
FEATlJRE OF OS.fVS2, FETCH PROTECT
5.97
FEATlJRE :IF THE PAGING, AUTOMATIC PAGE DELETION 3.45
FEATURE, ADDITIONAL BUFFER EXPANSION
3.117
FEATlJRE, AUTO EOB
3 .• 27
3.117
FEATlJRE, AlJTOMATIC SIGN-ON
FEATlJRE, AUTOPOLL POLLING
3.32
FEATURE, CHARACTER SET
3.33
FEATURE, FACILITY
2.7
FEATlJRE, HEADER CONTROL
3.36,3.49
FEATlJRE, LIMIT PRI:lRITY
3.27
FEATURE, LINE CODE
3.37
FEATURE, LTERM EDIT ":'ERMINAL CONVERSATION
3.91
FEATlJRE, NUCLEUS GENERATION TERMINAL CONlfERSATI:l" 3.92
FEATlJRE, RECEIVE INTERRUPT
3.46
FEATlJRE, SCHEDlJLING LI~IT COUNT
3.2
FEATlJRE, STATION CONTROL
3.27
FEATlJRE, TRANSMISSION
3.116
FEATlJRE, WRITE- AT-LINE- ADDRESS
3.53
FEATlJRES, POLLING
3.32
FEATlJRES, SYSTEM
3.12
.FEATlJRES, 1053
3.38
FEATlJRES, 278 0. TER~INAL
3.116
FEATURES, 2845 CONTROL UNIT
3.117
FETCH REQlJEST ELEMENTS, NUMBER OF
3.16
FIELD
5.11,5.21
FIELD, DECAREA
5.3,5.20
FIELD, EXEClJJ'ABLE KEY LENGTH
5.103
FIELD, LIMIT COUNT
3.26
FIELD, TEST
6
FIFO
3.28
FILE SEARCH
3.14,3.29
FILE, QSAM
5.41,5.45
FLEXIBILITY, PROVIDE GREATER
3.24
FL:l~CHART
5.115
FLUSH
3.15
FM
3.72,11.10.
FMTDB
3.711,3.10.1,3.10.3
FMTINIT
3.75
FMTINIT, MEMBER NA!"!E
3.101
FMTUTL
3.96
FORMAT BUFFER POOL
3.104
F:lRMAT DZSCRIPTIONS
3.96
FORMAT DESIG'IER
5.3
FORMAT LANGUAGE UTILITY
5.2
FORMAT NPPP
5.92
FORMAT OF THE MACRO
3.59
FORMAT SERVICES LIBRARY ALLOCATION GUIDELINES 3.73
FO!l.MAT lJTILITY DATA BASES
3.75,3.96
FORMAT lJTILITY DATA SETS
3.75
FORMAT, ARE....
5.98
'ORMAT, EASE LOG TAPE RECORD
5.120
~,()RMAT, CALL CARD
A.4,A.8
FORMAT, COMMENTS CARD
A.II,B.8
FORMAT, COMPARE CARD
A.6
FORMAT, END CARD
B.8
FORMAT, GENERAL
6.16

GENERATION, OS SYSTEM
3.84
GENERATION, PERFOR'I DBD
6.12
GENERATION, SYSTEM
3.811,6.10.
GENERATION, TYP E I~S.f3 6 0
3 •10
3. 11
GENERATIONS, OS
GENERIC
2.1
GETMAIN
3.13
GROUP, BTAM TELECOMMUNICATION LINE
5.20
GROlJP, LINE
3.32-3.33
GROUPS, ALL LINE
3.30
GROlJPS, 2780. LINE
3.116
GUIDELINES
3.87,3.96
GY27-7128
3.87
GY28-666o.
3.83
GY28-6660, FORMS
3.87
HD1'.M DATA BASE
5.100,5.10.3
HEADcrL
3.113,3.119,3.53
HEADER CONTROL
3.36,3.50,3.53
HEXADECIMAL
3.44,1
HEXADECIMII.L DIGITS
3.36
HrDAM DATA BASE
3.23
HIERARCHICAL
3.5
HIERARCHICAL LEVELS
3.68
HIERII.RCHICAL SETS
3.6
HISAM
3.23
HSAM
3.23
lAM
Q.4-1I.5,5.64
lAM COMMAND
3. 55,5.611
IBIL01
2.3,2.5
IBM INTERNAL INFORMATION SYSTEM
2.11
ICREATE
5.21
IDENTICAL
5.11
IDENTIFICATION CHARAcrER
5.1211
IDENTIFIED
3.10.5-3.106
IDENTIFIER
5.21
IDENTIFIER, CLASS
3.1
TOLE
Q.1
IDLE CO~MAND
5.1
IEANUC01
3.85
IEANue02
3.85
IEBCOPY
3.101
IEEPSN
3.88
IEEVA::TL
3. 8 8
IEEIfLNKT
3.83,3.87-3.88
IEEVRCTL
3.87-3.88
IEEIfRJCL
3.88
IEEVRJCL ALIAS
3.88
IEEIfSMBA
3 • 88
IEEVSMSG
3.88
IEFIRC
3.88,3.113
IEFRDE:R
3.1011
IEHM:lITE
2.2-2.6
IE"IM
3.111-3.112
I ElJlI.S '1
3.99,3.10.11,3.114-3.115,4.10,6.12
IEW'L
3.101,11.10.,6.12-6.13
IGCHY
6.10
13Co.ONNN
3.811-3.85
IGC00211B
3.85
IGC01NNN
3.85
IGCOIlNNN
3.85,3. 8q

1.6

I:;COSNNN

3.85,3.89
IGC06~NN
3.85,3.89
IGC07NNN
3.85,3.89
IGC10NNI{
3.85
IGCllNNN
3.85
IGC12NNN
3.86
IGC13NNN
3.85
I:;G019G9, RE1I.D/WRIrE
3.89
IGGO 19JV, WRITE CHECK
3.89
IGr.Q19Z0
3.13
IGG019Z6
3.13
!G:;019Z8, M1I.CRO-TIME R<:AD/wRrrE
3.89
IGNORE
3.43,3.50
IG'IORED
3.47
II, ST1I.GE
3.3,3.75
II!
3.104,3.113
IKFCBLOO
3.108-3.109
ILIBOl
2.2-2.6,6.9
TLIB02
2.2-2.6,6.9
ILIB02 CATLG DSNl'.ME
6.9
IMS COMM1I.NDS
2.10,3.79
IMS CONTROL REGION, EXECUTION OF THE
3.211
IMS EXECUTION TIME
3.32
IMS MODULES, LIST OF
3.89
IMS NUCLEUS
3.105
IMS ONLINE
3.34
1:"IS PROCEDURE PGN
3.105
I'1S READY
6.15
HIS SYSTEM
3.73,3.81
JMS.DBGENLIB
2.1-2.3
IMS.DBL01I.D
2.1-2.3
IMS.DBSDURCE
2.1-2.3
IMS.DCGENLIB
2.3- 2.5
IMS.DCLOAD
2.3-2.5
I"IS.DCSOURCE
2.3- 2.5
!MS/360 1I.PPLIC1I.TION PROGRAMMING REFERENCE MANUAL 5.101
I!-IS/360 BATCH
6.5
IMS/360 BLOCKS
5.41
IMS/360 CHECKPOINT/REST1I.RT
5.85
IMS/360 COMMUNICATION
5.3,5.42
1"15/360 COMMUNICATION Pi\5SWORD
4.1
IMS/360 COMMUNICATIONS TERMINAL MATRIX
4.2
IMS/360 CONTINUES
5.45
IMS/360 CONTROL
3.11,3.25-3.26,3.86,3.120,5.3,
5.11,5.101,6.15
IMS/360 CONTROL BLOCK DESCRIBING,
1'.DDRESS OF THE
5.20
IMS/360 CONTP.OL BLOCKS
5.2,5.11
IMS/360 CONTROL BLOCKS, 1'.LTERNATE SET OF
3.10
IMS/360 CONTROL FACILITY
3.13
IMS/360 CONTROL FUNCTI:lNS
3.84
IMS/360 CONTROL LOCKS
5. 11
IMS/360 CONTROL PROGRM1 NUCLEUS
3.52,4.2,5.1-5.2
IMS/360 CONTROL REGION NUCLmS
5.123
IMS/360 CONTROL SYSTEM
1.1
IMS/360 DATA BASE BUFFER POOL
5.97
IMS/360 DATA BASE/D1'.TA COMMUNICATION IMS2.SHMSG
3.67
IMS/360 DATA BASE/DATA COMMUNICATIONS SYSTEM
3.67
IMS/360 OAT!'. COMMUNICATION FEATURE
3.11
IMS/360 DISTRIBUTION DATA SETS
2.1

IMS/360 SYSTEM DEFIN'l'ION
3.57
IMS/360 SYSTEM DESCRIPTION BLOCK
4.2
IMS/360 SYSTEM EVEN
3.83
nS/360 SYSTEM GENER1'.TION
1.1
IMS/360 SYSTEM LOG
5.41
IMS/360 SYSTEM LOG OPER1'.TIONS, NUMBER OF
3.13
IMS/360 SYSTEM MANUAL 5.2-5.3,5.11,5.21,5.66,5.87,5.93
!MS/360 SYSTEM PRODUCED
3.56
IMS/360 SYSTEM STRUCr'1RING CXlNSIDER1'.TIONS
3.1
J"IS/360 SYSTEM/APPLICATION
3.49,3.55
IMS/350 SYSTEWAPPLICATION DESIGN GUIDE
3.1,3.13,3.16,3.68
IMS/360 SYSTEM, COMPONENTS OF THE
1.3
IMS/360 SYSTEM, DESIGN OF AN
1.1
IMS/360 SYSTEM, EXECUTION OF THE
3.84,3.90
IMS/360 SYSTEM,
P1'.SSWORD SECURITY CHAR1'.CTERISTICS OF A DEFINED
3.1
IMS1360 TERMINAL COMMANDS
4.12-4.13
IMS/3 5 0 TWO-STAGE DEFINITION PROCESS
3.3
IMS/360 UTILITIES DESCRIBED
1.3
IMS/360 UTILITIES REFERENCE MANUAL
6.1
IMS/360 2972/2980 DEVICE SUPPORT
5.123
IMS/360, CAPABILITIES OF
3.1
IMS/360, CAP1'.BILITIES WITHIN
5.21
IMS/360, EX:EX:UTE
3.79
IMS/360, EXECUTING
3.82
IMS/360, FACILITIES OF THE
1.1
IMS/360, MFDBDUMP INITIALIZING
6.14
IMS/360, OPERATING
1.3
IMS/360, PROGRAM LOGIC OF
1.3
IMS/360, RELEASES OF MODIFICATION LEVELS OF
2.10
IMS/360, TAILORING OF
2.6
IMS, CATALOGED PROCEDURES
3.83
I"ISACB
3.32,3.98-3.99,3.104
IMSACB DO CARD, FIRST CONCATENATION OF THE
3.24
IMSACB DO DSN
6. 9
IMSBATCH, MEMBER NAME
3.106
IMSCOBGO
3.21,3.112
IMSCOBGO, MEMBER NAME
3.108
IMSCOBOL, MEMBER N1'.ME
3.109
IMSCTF
3.10,3.13
I MSCTF MACRO NNN
3. 86
I"ISCTF MACRO- INSTRUCTIONS, EXAMPLE OF
3.13
IMSCTF SVCNO
3.14
IMSCTRL
3.10,6.12
IMSCTRL CARD STATEMENT NEED
3.6
IMSCTRL M"CRO-INSTRUCTION OPERANDS, EXAMPLE OF 3.12
IMSCTRL SYSrEM
3.12
IMSDBL
3.104,6.11
IMSDEF
6.12
IMSDILIB
3.32
IMSFMT
3.101
IMSGEN
3.19
I MSLO:;
3.32,3.99-3.100,3.103·3.104,3.108,3.112,8-9
IMSLoGR
3.32
I MSMAX
3.59,3.61
I"ISMSG
3.113
IMSMSG, COBOL
3.96
IMSMSG, MEMBER NAME
3.109
IMSPLI, MEMBER NAME
3.111

DIS/360
IMS/360
IMS/360
IMS/360
IMS/360
IMS/360
IMS/360
IMS/360
IMS/360
IMS/360
IMS/360
IMS/360
IMS/360
IMS/360
IMS/360
IMS/360
IMS/360
IMS/360
IMS/360
IMS/360
IMS/360
IMS/360
IMS/360
IMS/360
IMS/360
I"IS/360
IMS/360
!MS/360
IMS/360
1"15/360
tMS/360
!MS/360
IMS/360
IMS/360
IMS/360
IMS/360
IMS/360
IMS/360
IMS/360
IMS/360
IMS/360
IMS/360
I MS/3 6 0
IMS/360
IMS/360
LMS/360
IMS/360
IMS/360
IMS/360
IMS/360
IMS/360
DIS/360
IMS/360
IMS/350
IMS/360
IMS/360
I"IS/360
IMS/360
I"IS/360
IMS/350

IMSPLIGO
3.21
IMSPLIGO, PL/I
3.98
IMSRDR
2.10,3.75,3.83,3.98,6.11-6.12
IMSRDR, LANGU1'.GE/I BATCH PROCESSING REGION
3.98
IMSRDR, S
3.98
nSRDR, START
6.14
IMSSPA
3.104
IMS2.1'.CBLIB
3.23-3.24,3.67,3.98-3.99,3.104,5.101,6.9
IMS2.ACBLIB DATA SET
5.101,6.14
I"IS 2 • ACBL IB DBDGEN
3 • 96
IMS2.ACBLIB IMS2.SPA
3.68
I"IS2.ACBLIB, IMS2.DBDLIB
3.68
IMS2.DBDLIB
3.67,3.98-3.101,3.103,3.108,
3.112-3.114,3.116-3.118,6.9,6.12
IMS2.DBLLOG
3.67-3.68,3.104,6.9,6.11
IMS2.DBSoURCE
2.2- 2. 5,2.10-2.11
IMS2.FMTINDX
3.74,3.101,3.103
IMS2.FMTINDXO
3.74,3.101,3.103
IMS2.FORMAT
3.74,3.103-3.104
I"\S2.FORMAT DATA SETS
3.73
IMS2.FORMATS
3.74,3.101,3.103
IMS2.GENLIB, DCB ATTRIBUTES OF THE
2.1,2.3
IMS2. GENLIB, MEMBER OF
6. 12
IMS2.GENLIB, REQUIRED "IEMBERS OF
3.59
IMS2. LGMSG
3.17,3.67-3.68,3.104,6.9,6.11
!MS2.LGMSG DATA SETS
3.70
IMS2. LOAD
3.76,3.85-3.86,3.101,5.66,5.87,5.93,
6. 1, 6.9- 6.10, 5 • 1 2- 6.13
IMS2.LOA.D DATA SETS
2.1,2.3,3.66
IMS2.LOAD, EITHER
2.11
IMS2.LoGT
3.103
IMS2.MACLIB
3.66-3.67,3.75,3.77,3.97,3.99,3.114,6.9
IMS2.MACLIB DATA SET
3.20
IMS2.MACLIB, SYS1.PROCLIB
3.68
IMS2.MESSAGES
3.74,3.101,3.103
IMS2.MSGINDX
3.74,3.101,3.103
IMS2. MSGINDXO
3.74,3.101,3.103
IMS2.0BJDSET
3.20,6.9,6.12
IMS2.0BSDSET
3.69
IMS2. PGMLIB
3.99-3.100,3.106,3.108-3.109,
3.111-3.114,6.9-6.12-6.13
IMS2.PGMLIB, ACTION M:lDULES
3.67
IMS2. PROCLlB
3.83,3.86,3.96-3.98,3.108- 3.109,
3.111-3.113,6.9,6.11-6.12,6.1
IMS2. PSBLIB
3.98,3.100-3.103,3.108,3.112-3.114,
3.116-3.113,6.9,6.12
IMS2. QBLKS
3.17,3.67-3.68,3.104,6.9,6.11
!MS2.QBLKS DAT1'. SET
3.70
IMS2. REFERAL
3.73-3.74,3.101,3.103
IMS2.RESLIB
3.105-3.106,3.108-3.109,3.111-3.118,
4.7-4.8,4.11,5.43,6.9-6.11
IMS2.RESLIB DATA SET
3.21,3.84,3.104,4.7,5.100
IMS2.RESLIB DATA SET, MEMBERS OF THE
5.100
IMS2.RESLIB DFSMP10
3.86
IMS2. RESLIB DFSVC400
3.85
IMS2.RESLIB, SYSTEM
3.67
IMS2.RESLIB, SYSTEM DEFINITION
3.68
IMS2.SHMG
3.17
IMS2.SHMSG
3.68,3.70,3.104,6.9,6.11
IMS2.SHMSG D1'.TA SET
3.71

DISTRIBUTI:lN LIBRARIES
3.11
DISTRIBUTION L!BRARIES FIGURE 17
6.7
EDITING
5.3
ENVIRONMENT
3.2
EXECUTION 2.10,3.3,3.67,3.82,3.86,3.96,3.104
FACILITY C1'.LLED IDESTROY
5.21
GENERAL INFORMATION MANUAL
1.1
INTERF1'.CES
5.123
INTERREGION COMMUNICATION
3.13
LIBRARIES
2.6,2.10,6.12
LIBR1'.RY NA!iES
6.10
LOG DATA SET
11..1-1'..2
LOG TAPE
8
tiACRO
3.68
3.66
MACRO DEFINITIONS NECESSARY
MACROS
3.20
MESSAGE FORMAT
5.4
MESS1'.GE FORM1'.T SERVICE
5.2-5.3
MESSAGE QUEUES
6.15
MOD-LEVEL DISTRIBUTIONS
2.11
MODIFICATION
2.11
NUCLEUS
3.10,3.67,3.77
NUCLEUS CONTROL BLOCK
3.32
NUCLEUS NA.ME, CHAR1'.CTER OF THE
ONLINE
2.10,3.79
ONLINE BATCH MESSAGE, EXECUTION OF
3.96
ONLINE CONI'ROL PROGRAM FUNCTIONS
3.83
ONLINE CONTROL PROGRAM NUCLEUS
4.7,5.43
ONLINE NUCLEUS
3.21
ONLINE SYSTEM
3.84,11.11
3.23
ONLINE, USED UNDER CCNTROL OF THE
OPEN MODULE OBTAINS
5.101
OPERATOR MANUAL, CHA."TER 6 OF THE
3.82
OPER1'.TOR REFERENCE MANUAL
3.6,6.1,6.15
OSAM ACCESS METHOD
3.13
PRINT UTILITY
3.67
PROCEDURE NAMED IMS
3.87
PROCESSING
5.123
REQUIREMENTS
3.4
RESOURCES
2.6,3.1
RESOURCES, EXCLUSIVE CONTROL HANDLING OF
3.13 Y
RETURNS
5.21
SAMPLE PROBLEM
1 • 1 , 6. 1
SAMPLE, 1'.PPLIC1'.TION PORTION OF THE
6.5
SECURITY REQUIREMENTS, PRINTED ANALYSIS OF 4.2
SVC ROUTINES NEED NOT
3.84
SITC ROUTINES, INCLUSION OF
3.83
SYSTEM CONS:lLE
3.11
SYSTEM CONTENTS
5.20
SYSTEM CONTENTS DIRECTORY
5.97
SYSTEM DAT1'. SET ALLOCATION
3.68
SYSTEM D1'.T!\ SETS
3.66,3.69
SYSTEM DEFINITION CREATES
4.1
SYSTEM DEFINITION MACRO-INSTRUCTIONS 2.6,3.3 Y
SYSTEM DEFINITION RESOURCE LIMITS
3.59
SYSTEM DEFINITION TIME
5.11
SYSTEM DEFINITION UTILITY CONTAINS
3.3
3.66
SYSTEM DEFINITION UTILITY, EX:EX:UTION OF THE
SYSTEM DEFINITION UTILITY, FUNCTION OF THE 3.3
SYSTEM DEFINITION, EXECUTION OF
3.85-3.86

1.7

IMS2 • SOURCE
3. 66
I'!S2.SP1\.
3.67·3.68,3.1011
IMS2.SYSON
3.113
IMS2.SYSONNN
3.67-3.68
INCLUSION OF USER-WRITTEN ROUTINES
5.1
INCR
8
INDEX
3.23,3.69,6.9
INDEX, IMS2 DLTX
6.9
INDIC1\.TE EO'!
5.123
INDIC1\.TION, DISCONNECT
5.86
INDIC1\.TION, END-OF-MESS1\.GE
3.27
INDUSTRY, M1I.NUFACTURING
6.1
INF::>RM1\.TION, STEP 1\.CCOUNTING
3.60
INITIAL RESOURCE LIMIrS
3.56
INITIALIZATION
3.24,5.117
INIrIALIZATION D"'SAOSBD
3.85
INIrIALIZATION, VSl SYSTEM
3.85
INPUT BUFFER
5.2,5.64,5.86
INPUT BUFFER ARE1\.
5.65,5.86
INPUT BUFFER LENGTH Rl
5.1211
INPUT BUFFER SIZE
3.37,3.110
INPUT BUFFER, BEGINNING OF TilE
5.123
INPUT BUFFER, CONTENTS OF THE
5.611-5.65,5.86
INPUT CARD DECK
3.80
UPUT C1\.RDS, EX1\.MPLE OF THE
11.11
INPUT D1\.TA LENGTH
5.1211
INPUT D1\.T1\. R7, LENGTH OF
5.611
INPUT DATA, ADDRESS OF
5.64
INPUT EDIT
5.85
INPUT EDIT CONTROL, END OF
5.87
INPUT EDIT '!::>DULE
5.86
INPUT EDIT MODULE ERROR CONDITIONS
5.86
INPUT EDIT ROUTINE
5.87,5.123
INPUT EDIT ROUTINE PROGRAM LISTING
5.87
INPUT EDITING, CON:EPT OF
5.85
INPUT FIELDS
5.B5
INPUT FILE I,!1\.GFILE
9
INPUT FILE, DDNAME OF THE
B.5
INPUT FORMAT
6.16-6.18
INPUT LOGICAL TERMINAL NAME
5.11
WPUT MDI SEGMENT
3.50
INPUT MESSAGE NUMBER
5.11
INPUT MESSAGE SEGMENT, BUFFER LOC1\.TION OF THE
INPUT MESSAGE SEGMENTS
5.2·5.3
INPUT MESSAGE SWITCHING EDIT
5.1
INPUT MESSAGE, COMPLETION OF THE
3.27
INPUT MESSAGE, MAXIMUM SIZE OF AN
3.36
INPUT OF A SHORTENED FORMAT
5.11
INPUT ::>F IMS/360 SYSTEM DEFINITION
3.96
INPUT ONLY
3.51
INPUT OPTIONS
1
INPUT P1\.SSWORDS, M1I.XlMUM LENGTH OF
11.3
INPUT QUEUE
3.28,3.106
INPUT RECORD
6
INPUT REQUIREMENTS
4.2,4.7
INPUT SECURITY
3.116
INPUT SEGMENTS
5.2
INPUT STATEMENTS
4.5
INPUT STREA.'!
11.1-11.3,2
INPUT TERMINAL FOLLOWING
4.11

It'IPUT TERMIN1\.L SECURITY
3.115,3.52
INPUT TRANS1\.CTION
3.4,3.27,5.91
INPUT TRANSACTION CODE
3.106'
INPUT TRANS1\.CTION CODE EDIT
5.1
INPUT TRANSACTIONS, NUMBER OF
3.26
INPUT, 1\.TT1\.CHING
3.52
INPUT, DBD SOURCE
6.12
INPUT, DECARE1\. FIELD 1\.S
5.3
INPUT, EDIT
3.4
INPUT, INVALID
5.87
I "fPUT, M1I.NUAL ENTRY
5.115
INPUT, MOST 1030
5.43
INPUT, SOURCE
6.12
INPUT, ST1\.GE 1
3.5
INPUT, STAGE 2 TARES AS
3.76
INPUT, SWITCH C1\.!W
5.115
INPUT, TRANSACTION
5.411
INPUT, TYPES OF
3.48
INPUT, USER
3.3
INPUT, 100
3.71
INPUTTING LINE
5.411,5.46
INQ
3.26,3.28
INQ, OMITTING
3.28
INQU, CHARACTER SEQUENCE
3.51
INQUIRY
3.26,3.28,4.11,6.12
INSERT
3.811,5.98,5,9
INSERT CALL
5.101,5.103,5
INSERTED
10
INSTALLATION OF THE CONTROL UNIT
3.38
INSTALL1\.TION, IQF/IMS
3.120
INSTALLATION, l'EST
5.113
INSTRUCTION, LINE M1\.:::RO
3.72
INTEGRITY
5.123
INTER-DESCRIPTOR
3.73
INTER1\.CTIVE
3.2-3.3,3.111,3.21,3.23,3.25,3.29,
3.115,3.69,3.81,3.97,5.123
INTER1\.CTIVE, INCLUSION OF THE
2.7
INTERFACE
5.112,5.64,5.85,5.87,5.91,5.123
INTERFACES, SYSTEM
3.1,3.5
INTERUPT
3.43
I01l.REA
5.97
IPL
3.82,3.85
IQF ELEMENTS
5.123
IQF FE1\.TURE
2.5
IQF MOD-LEVEL DISTRIBUrIONS WILL
2.11
IQF MODIFICATION
2.11
IQr MODULE DMGSI1
3.97
IQF ::>PERATES
3.11
IQF PROCESSOR DATA BASES
3.81
IQF UTILITY
3.81,3.120
IQF.GENtIB
2.5-2.6,2.11
IQF.GENLIB, DCB 1\.TTRIBUTES OF THE
2.5
IQF.LOAD
2.5-2.6
IQF.LOAD DAT1\. SETS
2.5
IQF. SOURCE
2.5-2.6,2.11
TQr, MAXIMU'!
3.14
IQrFC
3.97,3.117
IQFFC, MEMBER NA.'!E
3.117
IQFIU
3.99,3.118
IQFIU, MEMBER NAME
3.11 8

IQFUT PROCEDURE S
3. 116
IQFXL1DB
3.118
IQFXOVL 1
3.118
IQFXOVSl
3.11 B
!QFlCS1DB
3.118
ISRT
11
ISRT C1\.LLS
1:SRT, ISSUING
3.28
J1\.CCT
3.59-3.60
JCL
3.32,3.61,3.66,3. BII, 3. 67,6.12,6.111,9
JCL. NECESSARY, EX1\.MPLE OF THE
6.7
JCL P1\.CKET
6. 15
:JCL, DESIRED
3.96
JCL, EX1\.MPLE OF THE
6.6
:JCL, PR::>VIDES
3.117
JCL, STAGE 2
3.20
JCL1\.SS
3.59,3.61
JOB 1\.CCOUNTING
3.20
JOB 1\.CCOUNTING INFORM1\.TION
3.60
JOB CARDS, NUMBER OF
3.5
JOB CLASS
3.61
JOB CONTPOL LANGUAGE
3.66
JOB M1I.N1\.GEMENT PROGR1I.M LOGIC M1I.NUAL
3.83
JOB PRIORTY
3.61
JO B STEP INTERVAL
3. 113
JOB STEPS
3. 116
JOB Sl'REA.'!
3.61,3.66,3.97-3.98
JOB, FOLLOWING
2.1
JOB, IEBUPDTE
3.59
JOB, IEEVLNKT
3. 87
J::>B, INITIATES SECURITY MAINTENAN::E
11.8
JOB, OPERATING SYSl'EM
3.3
JOB, ::>S
3.66
JOB, POOLS
3.5
JOB, PRODUCED
3.61
JOBCLASS
3.19-3.20
JOBLIB
3.32,4.8,4.11,5.100
JOBS, EXECUTING
6.11
J::>BS, SYSTEM DEFINITION STAGE 2
3.21
JllNXXX
11
KEY
5.119
KEY, ISAM PRIME
5.122
KEY, NON-ZERO PROTECT
3.105
KEYBOARD
3 • 49
KEYWORD DEFINES
6-7
KEYHORD OF THE LINE MACRO INSTRUCTION
3.39,3.47
KEYWORD OPERAND VALUES
3.6
KEYWORD, COMPT
3.51,3.50
KEYWORD, OFFSET
6
KEYWORDS, DESC
3.13
KEYWORDS, N::>RMAL
4.11
KEYWORDS, USE OF
3.6
KYBD
3.44,3.49
LANGU1\.GE VERB
4.3-4.4
L1\.NGU1\.GE, ASSEMBLER
3.3
L1\.NGU1\.GE, OPER1\.TING SYSl'EM ASSEMBLER M1I.CRO
3.3
L1\.RGEST TERMIN1\.L INPUT BUFFER SIZE
3,47
LENGTH
4.3,5.3,5.44,7
LENGTH OF FEEDBACK
6
LENGTH OF THE REQUESTED AREA
5.21

5.2

1.8

LERBS
3.75
LETTER
3.211,3.29
LG'!SG
3.32,3.104,6.11
LG'ISG DD DSN
6.9
LGRPS
3.59·3.60
LIBRARIES, APPLICAl'ION PROGRAM
2.10
LIBRARIES, DISTRIBUTI::>N
6.1
LIBRARIES, IMS2.GENLIB
2.10
LIBRARIES, IQF
2.11
LIBRARIES, IQF. GENtIB
2.11
LIBRARIES, RESLIB
3.68-3.69
LIBRARIES, 3270 FORMAT SERVICES
3.73
LIBRARY REPL1\.CEMENTS
2.10
LIBRARY, ACBLIB
3.68
LIBRARY, COMMUNIC1\.TION FEATURE LOAD MODULE
2.3
LIBRARY, DBD
3.68
LIBRARY, DCS::>URCE
3.73
LIBRARY, IMS2.DBSOURCE
2.11
LIBRA.QY, IMS2.L01\.D
2.11
LIBRARY, IMS2. PROCLIB
6.15
LIBR1\.PY, IMS2.RESLIB
2.9-2.10,3.80,4.2
LIBRARY, IQF.SOURCE
2.11
LIBRARY, IQF/IMS L01\.D MODULE
2.5
LIBRARY, IQP/IMS MACRO-DEFINITION
2.5
LIBRARY, IQF IIMS SOURCE MODULE
2.5
LIBRARY, MACLIB
3.69
LIBRARY, MACRO-DEFINITION
2.1
LIBRARY, PGMLIB
3.69
LIBRARY, PROCLIB
3.69
LIBRARY, PSB
3.6R
LIBRARY, RESIDENT
5.101
LIBRARY, SOURCE MODULE
2.1
LIBR1\.RY, USERLIB
3.37
LIBRARYS EXEC PGM
6.9
LIMIT1\.TIONS
3.56
LINE
3.9,3.36-3.37,3.52,3.120
LINE GROUPS
3.46
LINE, FIRST
3.120
LINE, LINE GROUP C::>NT1\.INING ONE
3.120
LINE, MULTIDROP
3.35
LINE, NONSWITCHED COMMUNICII.TION
3.54
LINE, PRINT
3.72
LINE, SECOND
3.120
LINE, SIZE OF THE PRINr
3.46
LINE, SWITCHED
3.40
LINE, 20
3.56
LINE, 3270
3.16,3.49
LINEGRP
3.8,3.30,3.311,3.37,3.52-3.54
LINEGRP DDN1I.MES
3.32
LINEGRP MACRO, EXAMPLE OF THE
3.311
LINEGRP M1\.CROS
3.37
LlNE3RP STATEMENTS, MAXIMUM NUMBER OF
3.60
LINEGRP TYPES
3.36
LlNEGRP, SPOOL
3.34
LINEGRP, SWITCHED
3.51,3.55
LINES, LOCAL CARD READER
3.73
LINES, SWITCHED COMMUNICATION
3.1
LINES, 7770-3
2.10
LINK
3.66,3.89,3.96,3.98,3.97,5.100
LINK EDIT JCL
3.88

LINK LIBRARY USING
3.78
LINK-EDIT
3.8q
LINK-EDIT, ORIGINAL OPERATING SYSTEM NUCLEUS
3.84
LINK-EDIT, SYSTEM tmCLEUS
2.10
LINK-EDHED
3.3,3.79,6.10
LINKA.GE EDITOR ATTRIBUTES
3.89
LINK~.GE EDITOR JOB STEPS
3.19
LINKPACK
5.100
LIST, NO POLLING
3.32
LISTING, SIGNON EXIT ROUTINE PROGRAM
5.66
LNKLSTOO
3.83
LOAD OF AN APPLICATION PROGRIUi
3.30,3.29
LOA.D OF THE TYPE q SITC, ADDITIONAL
3.83
LOAD, INCLUDE
3.101
LOA.DED MODULES, LIST OF
3.89
LOCATION, BASE
5.1011,5.117
LOG
4.13,5.122,2
LOG COMl1AND
4.6
LOG RECORD 1.0
5.122
LOG RECORDS
LOG TAPE, IMAGE OF THE
5. 122
LOG, LENGTH OF
5.122
LOGICAL
3.17,3.96,4.1,5.101,2,5
LOGICA.L CONNECTION
5.64
LOGICA.L DATA BASE
3.4,6.1-6.2
LOGICAL DATA BA.SES, GROUP OF
3. q
LOGIC~L DATA BASES, MAINTENANCE OF THE
6.1
LOGICAL RECORD
3.73,5.98,2
LOGICA.L RELA.TIONSHIPS
1.1
LOGICA.L TERl1INA.L DESCRIPTION MACRO~INSTRUCTIONS
3.30 Y
LOGICAL TERMINAL NAMES
3.26,3.110,3.115,3.51,
3.60,3.69,4.4,5.11
LOGICA.L TERMINAL StJBPOOL
3.30
LOGTAP1
B.8,B.9
LONG MESSAGE RECORDS
3.18
LOOPING
3.28
LOWERCASE
3.32
LT
3.99,3.108-3.109,3.111-3.112,3.114-3.116,3.118,11.10
LTERM
3.40,3.115-3.46,3.51-3.52,3.511,5.611
LTERti DEFINES
3.51
LTERM NAME
3. 51
LrERM OPERAND DESIGNA.TES
3.51
LYBO-0629
5.66
LYBO-0631
1.3
LYBO-0632
1.3
LY20-0629
1.3,5.3,5.11,5.87,5.93
LY20-0630
1.3
MA.CLIB DO DSN
6.9
M~CRO
2.7,3.6,3.8,3.111,3.20,3.27,3.44,3.69,3.76
MACRO DEFINITION SET
3.66
MACRO INSTRUCTION/RESOtJRCE
3.56-3.57
M~CRO STATEMENT SPECIFICATION
3.27
MACRO-DEFINITION
2.3
MA.CRO-INSTRUCTION
3.7-3.9,3.14,3.19,3.40
MA.CRO-INSTRUCTION DEFINES ALL DATA BASES
3.23
MACRO-INSTRUCTION DESCRIBES
3.35
MACRO-INSTRUCTION OF STAGE 1, IMSGEN
3.66
MACRO-INSTRUCTION, APPLCTN
3.8,3.24,3.26-3.27
MACRO-INSTRUCTION, BUFPOOLS
3.15
MA.CRO-INSTRUCTION, COMPLETE IMS/360 SYSTEM DEFINITION 3.6

MAXIMUM BLOCK SIZE WOULD
3.72
3.53
MAXIMUM BUFFER SIZE
MAXIMUM CPU
3.27
M!'.ltIMUM FIELD VALUE
11..5
MAXIMUM INPUT BUFFER SIZE
3.36
MA.XIMtJM LOGICAL RECORD LENGTH
3.72
MAXIMUM MAIN STORlIGE A'lAILABILITY
3.13
M!'.XIMrJM OCCURRENCES/SPECIFICATION IMSCTRL
3.56-3.57
MAXIMUM OUTPUT BUFFER SIZE
3.36
MA.XIMUM SIZE
3.1 Q, 3.17
MAXIMUM SPECIFICATION
3.16
MAXHIUM VA.LUE
3.36-3.37,5
MAXI 0
3.10-3.12,6.12
MA.XIO 'lA.LUE
3.12
M~XRE:;N
3.10-3.12,6.12
3.100
MBR, DLIB!'.TCH PROCEDURE
MBR, IMSB!'.TCR PROCEDURE
3.106
MCLA.SS
3.59,3.61
MeS
3.10-3.11
MCS SUPPORT
3.11
MDI
3.44,3.49-3.'50
MEMBER
6.12
MEMBER NAME PLITDLI LIBR!'.RY RESLIB
3.119
MESSA.GE • DFS06 7 TERl1INA.L SECURITY VIOIATIONS'
3. 28
MESSAGE BEING
5. 11
MESSAGE BLOCKS
3.19
MESSAGE BUFFER FORM!'.T
5.42
MESS!'.GE CLASS SCHEDULING
3.12
MESSlIGE D!'.TA SEGMENT
5.2
MESSAGE DESCRIPTOR CODE
3.11
MESSAGE DESTINATION
5.41
MESSA.GE EDIT ROUTmES
3.21
MESSAGE ENTRY
6.15
MESS~_GE FORM!'.T
3.17
MESS!'.GE FORtiA.T BLOCK POOL
3.16,3.107
MESSAGE FORM!'.T BLOCK POOL, SIZE OF THE
3.17
MESSAGE FORtiA.'!' BLOCKS
3.16
MESS!'.GE FORMA.T SERVICE
5.2-5.3,5.20
MESS!'.GE FORMAT SER'lICE EDITING
5.2
MESS!'.GE INPUT
3.3,5.1
MESSAGE LENGTH
3.70,5.2,5.41-5.42
MESS!'.GE LOG
6.15
MESS!'.GE PROCESS ING
3.4,6. 15,6.19
MESSA.GE PROCESSING PROGRA.MS
6.5
MESS!'.GE PROCESSING REGION
3.1,3.24-3.25,3.27,3.98
M1';SSA.GE PROGRM
!'..9
MESS!'.GE QUEUE
2.10,3.2,3.25,3.106
'IESS!'.GE QUEUE DAT!'.
3.72,6.10
MESS!'.GE QUEUE DATA SETS
3.17,3.69,3.78,6.8,6.15
MESSA.GE QUEUE MANAGEMENT
3.17
MESS!'.GE QUEUE REQUESTS
3.11
MESSA.GE QUEUE SP!'.CE !'.LLOC!'.TION
3.18,3.69
3. 67,6. 10
MESS!'.GE QUEUING
MESS!'.GE REGION CONTROL PROGRAM
3.25
MESS!'.GE REGION EXECUTION
2.10
MESSA.GE REGION EXISTS
6.15
MESS!'.GE REGION INIrIALIZATION
3.110
MESSA.GE REGION JOB
3.12
MESS!'.GE REGION PROCEDURES
3.79
MESSAGE REGION STARTS
3.110

MACRO-INSTRUCTION, D!'.TABASE
3.4,3.23·
MA.CRO-INSTRUCTION, IMSCTRL
3.10
MA.CRO-INSTRUCTION, IMSGEN
3.19,3.96
MACRO-INSTRUCTION, LINE
3.35
M!'.CRO- INSTRUCTION, LINEGRP
3.30
MA.CRO-INSTRUCTION, PRECEDING APPLCTN
3.26-3.27
MA.CRO- INSTRUCTION, RESMODS
3.84
MACRO-INSTRUCTION, TRANSACT
3.14
M!'.CRO-INSTRUCTIONS
2.7,3.10,3.69,3.76,3.84
MACRO-INSTRUCTIONS, DATABASE
3.23
MACRO-INSTRUCTIONS, IMSGEN
3.10
MACRO-INSTRUCTIONS, NAME
3.26
MA.CRO-ST!'.TE.'1ENTS
3.25
M!'.CRO, APPLCTN
3.24
MACRO, !'.SSOCIATED !'.PPLCTN
3.27
MACRO, BUFPOOLS
3. 15
MACRO, CTLUNIT
3.38
MACRO, D!'.TABASE
3.23
MACRO, IMSCTF
3. 13,3.86
MACRO, IMSCTRL
3.10
M!'.CRO, IMSGEN
3.19,3.66
MACRO, IMSM!'.X
3.59
MA.CRO, LINE
3.35,3.53
MACRO, LINEGRP
3.30
MA.CRO, MULTIPLE N!'..'1E
3.35
MACRO, NAME
3.51
MACRO, SN!'.P
!'.. 2,!'.. 9
MACRO, SP!'.RE!'.
3.69
M!'.CRO, SUB POOL
3.55
MACRO, TRANS!'.CT
3.111,3.25-3.26
MACRO, WTO
3.12-3.13
MA.CROS, USING GETMAIN
11..9
M!'.INTAINED
3.4,3.111,11.2,4.8
MAINTAINED.
4.6
MA.INTAINED, BEING
4.5
MAINTAINED, CONCURRENTLY
11.7
M!'.INTENANCE
2.10
M!'.INTENANCE PROGRAM CONTROL
4.2
MAINTEN!'.NCE, INDEX
5.122
MAINTENANCE, NEW SECURITY
4.11
MAKING CONTROL CARD CHANGES
6.10
MANUAL, BTAM
3. 33
MANUAL, OPER!'.TOR
1. 3
MANUAL, OPERATOR REFERENCE
1.3
MANUAL, OS OPERATORS
3.85
MANUAL, REFERENCE
1.1,3.10Q
MANUAL, SYSTEM
1.3
MA.NU!'.L, SYSTEM PROGRAMMING REFERENCE
1.1
MANUAL, THIS
6.1
MANUAL, VERSION 2 UTILIrIES REFERENCE
3.81
M!'.P
3.19
MASK Vl\.LUE
8,7
MASTER
3.51,3.53
MATRIX
4.1,4.6
MA.TRIX, NEW TERMINA.L
4.2
MATRIX, NEW TERMIN!'.L SECURITY
4.2
MAXCLA.S
3.10,3.12
MAXIMUM ALLOWABLE
3.17
MAXIMUM ALLOW!'.BLE SPECIFICATION
3.15-3.16
MAXIMUM !'.LLOWABLE 'lALUE
3.20

MESSA.GE REGIONS
3.12,3.86,3.98,3.109-3.110,6.15,9
MESS!'.GE REPEAT C!'.P~BILITIES
3.37
MESSA.GE SCHEDULING TIME
3.4
MESS!'.GE SEGMENT LENGTH, BINARY COUNT OF
5.20
MESS!'.GE SEGMENT NORMALLY
5.4
MESSAGE SEGMENT, LENGTH OF THE
5.3
MESS!'.GE SPACE
3.70
MESSAGE SWITCH
5.1,5.91
'iESSA.GE SWITCH EDIT ROUTINE
5.41
MESS!'.GE S~ITCHING
5. 1,5.11
MESSA.GE TEXT
5.41,5.64,5.85
MESS!'.GE THROUGHPUT
3.70
MESS!'.GE TYPES
3.1,5.1
MESSAGE 'lOLUME
3.70
MESSAGE, APPLIC!'.TION
3.1
MESSAGE, BATCH
3.24,3.78,3.120
MESSA.GE, COMPLETED INPUT
3.27
MESS!'.GE, DEFINING
3.96
MESS!'.GE, EDITED OUTPUT
5.21
MESS!'.GE, END OF
5.21,5.92
MESS!'.GE, ENTIRE
3.50
MESSAGE, ERROR
3.2Q,5.41,1
MESS!'.GE, EXA.MPLE OF
5.11
MESSAGE, IMS/360
3.26,3.119
MESS!'.GE, INCOMING
3.27
MESSME, INPUT
3.27,3.37,3.45,5.1,5.41,5.64
MESSAGE, JOB
3. 11
MESS!'.GE, LAST
3.30,5.124
MESS!'.GE, LAST OUTPUT
5.86
MESSAGE, LAST SEGMENT OF A
5.21
MESS!'.GE, MESSAGE QUEUE D!'. TA SETS
3.5
MESSAGE, NEXT SEGMENT OF
5.85
MESS!'.GE, NONRESPONSE-TYPE
3.2
MESSAGE, ONLINE
2.7
MESS!'.GE, OUTPUTTED
5.124
MESSAGE, P!'.GED
3.45
MESS!'.GE, PARTICULAR
3.2
MESSAGE, PERFORM
6.15
MESS!'.GE, PRIOR
3.71
MESS!'.GE, RESPONSE
5.64
MESSAGE, RESPONSE-TYPE
3.1
'iESS!'.GE, REST!'.RT COMM!'.ND
6.15
MESS!'.GE, SAME
3.45
MESS!'.GE, SEGMENT
5.86
MESS!'.GE, TRANSMITTED
5.123
MESSA.GE, 'lALUE INCLUDES BATCH
3.11
MESSAGE, WARNING
3.14
'iESSA.GES INDICATOR
3.28
MESS!'.GES, CONTROL
B.3
MESS!'.GES, DUGNOSTIC ERROR_
4.2
MESSAGES, EDIT OUTPUr
5.20
MESS!'.GES, ENQUEUED
3.27
MESS!'.GES, EXCEPTION
6.10
MESSAGES, HIGHER RIDRITY
3.2
MESS!'.GES, IMS/360 SYSTEM CONSOLE
3.11
MESS!'.GES, INCORE
5.91
MESSAGES, LINKAGE EDITOR ERROR
3.21
"IESS!'.GES, LOGICl\.L TERMINA.L
3.70
MESSAGES, NUMBER OF
3.2,3.27-3.28,3.56-3.57,5.11
'iESS!'.GES, OUTPUT
3.11,3.27,5.21

1.9

MESSAGES, PROCESS ED
3.70
11.2
MESSAGES, PROCESSING
MESSAGES, SINGLE-LINE
5.21
"!E~SAGES, SYSTEM
5.91
MESSAGES, TERMINAL MESSAGE SWITCH
5.91
MESSAGES, UNPROCESSED
3.18
MFDBDO"lP
3.97
MFDBDUMP APPENDIX
6.19
MFDBLOAD
3.97
MF9~SYSN
3.1111,6.14
MFDFSYSN ME'1RER
3.97
'1F'DFSYSN, PLACE MEMBER
3.97
'1FT
3.10,3.87,3.89,3.98,3.1G5
r1F':' SYSTEM
3.88
MICR
3. II 11,3.119
'lICROFI CHE
1.3
MINIMUM ACCEPTABLE In\LUE
3.36
MINIMUM VALIDIrY CHECK WOULD
5.41
MINIMUM VALUE
3.37
MNODE
3.104
M'iODE
3.104
MOD
3.108-3.109,5.100,5.122
MOD-LEVEL
2. 10
MOD-LEVEL, NUMBER OF THE
2.11
MODE, 'STARTED'
3.9
MODE, 2260-LOCAL
3.35
MODEL
3.36,3.38,3.53
MODIFICATION LEVELS
2.10-2.11
MODIFICATION, LIMITS
3.61
3.86
MODIFICATION, PRIVILEGED PROGRAM NAME LIST
MODIFICATIONS
3.4,3.87,5.122
MODIFICATIONS, DUMPQ CHAPTER 5. USER
5.1
MODIFICATIONS, PERMANENT
2.11
MODIFICATIONS, SYSTEM MAINTENANCE PERMANENT
2.10
MODIFIED
5.91
MODULE DEFINITION DFSDLAOO
3.89
MODULE DEFINITION IGG019Z9
3.69
MODULE DFSI7770
5.87
MODULE DFSI7770, DESCRIPTION OF
5.87
5.97
MODULE DFS07770 FUNCTIONS, DESCRIPTION OF
MODULE DFS07770, DESCRIPTION OF
5.93
MODULE IEFSD161
3.88
MODULE IGG019Z8
3.89
MODULE IGG019Z9, LAST TWO CHARACTERS OF
3.89
MODULE INTERFACES
5.102
MODULE LIBRARY
2.1
MODULE NAME
3.108-3.109
MODULE, ANY RANDOMIZING
5.102
MODULE, APPENDAGE
2.10,3.85-3.86
MODULE, DEVICE
5.64,5.86
MODULE, DEVICE-DEPENDENT
5.97
MODULE, EDIT
5.86-5.87
MODULE, FIRST IMS/360
3.67
MODULE, GENERALIZED
5.100
MODULE, IMS/360 2972/2980 DEVICE-DEPENDENT
5.123
MODULE, IMS/360-SUPPLIED OUTPUT EDIT
5.93
MODULE, INPUT-EDIT
5.86
MODULE, IQF DMGSI2
3.98
MODULE, LIST
6.11
MODULE, LOAD
3.29,3.33,3.811-3.66,5.3,5.11,

MULTIFIELD TEST
5,7
MULTIPLE BLOCKS
5.99
MULTIPLE CONSOLE SUPPORT
3.11
6.5
MULTIPLE INVENTORY LOC!'.TIONS
MULTIPLE MODE
3.69-3.70
MULTIPLE MODE INPUT MESSAGES 2,500
3.71
MULTIPLE OF LOGICAL
3.72
MULTIPLE SSAS
5
MULTIPROGRAMMING
3.10
MULTSEG
3.26-3.27
MV1'
3.10.3.12,3.87.3.89,3.98,6.12
MITT, M65MP VERSION OF
3.10
M65MP
3.10,3.12
NAME SPECIFICATION DEFINES
3.51
NAME. FIRST LOGICAL TERMINAL
3.54
NAME. MEMBER
3.83
NAME. ROOT SEGMENT
5. 101
NAMES OF THE TYPE 4 SVC MODULES
6.10
NAMES, DEFINING PSB
3.6
NAMES, LOGICAL TERltINAL
3.6,3.52.3.511 ,3.106,11.3
NECESSARY IDLE CHARACTERS
5.3
NECESSARY, CONTROL CARDS
3.98
NECESSARY. MACROS
3.20
NECESSARY, SOURCE SYMBOLIC uPDATES
2.11
NECESSARY, STEP
4.8
NON-STATION, TELEPROCESSING RELATIONSHIP 27110 3.123
NONBLANK CHARACTER
2
NONRESPONSE
3.26-3.27
NONRESPONSE-TYPE
3.1
NONRESPONSE,1
3.27
NONSWITCHED
3.30
NONSIHTCHED LINE
3.40
NONSWITCHED 2741 LINE GROUPS
3.33
NONZERO
5.117
NORMAL RESTART TIME
4.11
NORMAL TERMINATION
2
NOSTACTL
3.30,3.32
NRESTART
4.1.4.11,6.15
NRESTART COMMAND
4. 6. 5. 1
NUCLEUS
2.9.3.10-3.12.3.20-3.21,11.7
NUCLEUS LINK EDIT STEP
3.20
NUCLEUS MEMBER NAME
II. 8
NUCLEUS NAME
3. 21
NUCLEUS-ONLY
6.10
NUCLEUS, ALTERNATE
3. 12
NUCLEUS, ALTERNATE ONLINE
3.12
NUCLEUS, COMPOSITE IMS/360
3.11
NUCLEUS, EXISTING CONTROL PROGRAM
3.10
NUCLEUS. LINK-EDIT OF THE
3.85
NUCLEUS, NEW OPERATING SYSTEM
3.85
NUCLEUS, OID OPERATING SYSTEM
3.811
NUCLEUS, OPERATING SYSTEM
2.10,3.83-3.84,6.10
NUCLEUS, OS
2.9
NUCLEUS, RESIDENT
3.5
NUCLEUS, SYSTEM
3. 66
NULL SPACE
3.19
NUMERIC
3.27,5.104
NU~ERIC SUFFIX ASSIGNED SEQUENTIALLY
3.67
OBJDSET
3.19-3.20,6.12
OBJDSET DD DSN
6. 9

5.113,5.97,5.100
'tODULE, OBJECT
2.11
MODULE, ONF. RANDOMIZING
5.100
MODULE, OSAM BASIC INTERFACE
3.89
MODULE, OSAM CHANNEL END APPENDAGE
3.85
MODULE, OUTPUT EDIT
5.92
'tODULE, RANDOMIZING
5.100-5.103
MODULE, RETRIEVE FUNCTIon
5.101
MODULE, SINGLE RANDOMIZING
5.100
MODULE, SUPPLIED
5.66,5.87
MODULE, SYS1.L!NKLIB
3.89
MODULE, SYS1. SITCLIB
3.89
MODULE, TABLE
2.10,3.3
MODULE, TYPE 1 SVC
6.10
MODULE, TYPE 2 SVC
6. 1 0
MODULE, USER-SUPPLIED RANOOrUZING
5.101
MODULE, USER-WRITTEN
5.91
MODULE, 7770-3 DEVICE-DEPENDENT
5.611
MODULES, ACTION
3.15,3.66
MODULES, AFFECTED IQF LOAD
2.1 1
MODULES, ALL RANDOMIZING
5.100
MODULES, APPLICATION PROGRAM LOAD
6.13
MODULES, ASSEMBLE ACTION
3.66
MODULES, ASSEMBLER OBJECT
3.20
MODULES, BISAM
3.89
MODULES, COMMUNICATION TERMINAL MATRIX LOAD
MODULES, CREATED 7770- 3
3.86
MODULES, DUI
5.99
MODULES, EDIT ROUTINE
5.41
MODULES, EXECUTABLE CODE
3.5
MODULES, FLOWCHARTS OF THE
1.3
MODULES, HDAM RANDOMIZING
5.100
MODULES, IMS/360
3.1011
MODULES, IMS/360 ACTION
3.66
MODULES, LINK-EDIT OVERLAY
3.75
MODULES, LINK-EDIT REENTRANT
3.75
MODULES, LINK-EDIT REUSABLE
3.75
MODULES, MUST LINK EDIT THESE
6.10
MODULES, OSAM SVC
2.10,3.3
MODULES, PLACING LOADED
3.89
MODULES, PROGRAM
6.1
MODULES, RENAMED
3.85-3.86
MODULES, SVC
3.78,3.63-3.84
MODULES, SYSTEM
2.1
MODULES, SYSTEM LINK PACK
3.89
MODULES. TYPE 2 SVC INT ERFACE
6. 10
MODULES, TYPE 4 SVC
3.76,3.85
MODULES, TYPE 4 SVC LOAD
3.85
MODULES. USER SITC LO!'.D
3.79
MODULO
5.104,5.119
MP65
3.12
MSGCLASS
3.10,3.12,3.109.6.9,10
MSGDB
3.74,3.101,3.103
MSGLEITEL
2.2-2.6,3.87,3.101,3.109,3.113,6.9,
6.12-6.111,6.19
MSGQTJEUE
3.17-3.16,3.69,6.12
MSGQUEUE MACRO-STATEMENT
3.50
MSGTYPE
3.26-3.27
MULTI-PURPOSE, 2772
3.48
MULTIFIELD
7

OBTAIN
4.1,5.21,5.41,5.43
OBTAm SPACE
5.99
ONLINE APPLICATION PROGRAM NAMED DFSSAMOII
6.12
ONLINE HDAM DATA BASES
5.100
ONL INE IMS/3 60 SYSTE~
3.96
11.1
ONLINE IMS/360 SYSTEM, TERMINAL PROTECTION OF AN
ONLINE SYSTEM
3.83
ONLINE SYSTEM OPERATION
2.9
ONLY, ALL NONSWITCRED LINE GROUPS
3.30
3.30
ONLY. ALL SWITCHED LINE GROUPS
ONLY, DBDGEN MACRO-INSTRUCTIONS
3.69
O~LY, 2780 LINE GROUPS
3.30
ONLY, 2980 LINES
3.37
OPEN/CLOSE
3.3
OPERAND AFFECTS EMERGENCY RESTART
3.29
OPERAND~ ALLOWABLE
4. 2
OPERAND, COMPT
3.51
3.20
OPERAND. IMSCTRL MACRO SYSTEM
OPERAND, JOB PRIORITY
3.59
OPERAND, LTERM
3.44
OPERAND, MDI
3.50
OPERAND, POSITIONAL
3.23
OPERAND, PROCLIM
3.28
OPERANDS OF THE NRESTART, TWO KEYWORD
4. "
OPERANDS, ALL
5
OPERANDS, DEFAULT
B.2
OPERANDS, HEADCTL
3.50
OPERATING SYSTEM BSAM ACCESS METHOD
3.72
OPERATING SYSTEM CONSOLE
6.14-6.15
OPERATING SYSTEM JOB STREAM
3.98
6.10
OPERI'.TING SYSTEM NUCLEUS. RELINK-EDIT OF THE
OPERATING SYSTEM OPERATOR CONSOLE
3.98
OPERATING SYSTEM PARTITIONED DATA SET
5.43
OPERATING SYSTEM READER
6.12
OPERATmG SYSTEM SYSTEM CONSOLE
6.15
OPERATING SYSTEM, PREPARATION OF
3.83
OPERATING SYSTEM, VERSION OF THE
3.3,3.76
OPER1\TION
3.1,3.71, 11.2,5.1.5.85,6.11
OPERATION OF THE IBM
INFORMATION MAtlAGEMENl' SYSTEM/360
1.1
OPERATION, RESET
5.65'
OPERATION, SCAN MODE
5.103
OPERATION, 1030 INPUT TERMINAL
5.1
OPERATIONS PERFORMED BFPLNWBK EQUALS
5.100
OPERATIONS, CONTINUE
5.1111
OPERATIONS, QISAM SEfL
5.99
OPERATIONS, REPEAT
3.37
OPBRATOR
3.106,3.110, 11.11,5.101,5
OPEll.ATOR COMl1AND
3.73
OPERATOR IDENTIFICA'!'ION CARD READER
3.48
OPERATOR, M1\STER TERMINAL
4.1-11.2,6.15
OPERATOR, SYSTEM
4. 11
OPTION, FLUSH
3.16
OPTION, MAP
3.19
OPTION, NO
3.115
OPTION, OITERLAY SUPERITISOR
3.110
OP'!'ION, PRI1'fTED
8
3. lOS
OPTION, PROTECT KEY
OPTION, RETAIN
3.16
OPTION, SPIE
3.100,3.110

1.10

opnON, SPOOL SYSOU'l'
3.67,3.98
OPTIOn, SYSTEM
3.12
OPTION, TEST
3.104-3.105
OPTION, YES
3.45
OP"'IONAL IQF INDEX
3.4
OPTIONI\.L PRINTING
6
OPTIONS OF THE STAl'US CA..1l.D, PRIm'
10
OPTIONS, I\.SSEMBLER PRINT
3.19
OPTIONS, BASIC IMS/360 CONTROL PROGRAM
3.10
OPTIONS, ESTI\.SLISH PRInT
1,3
OPTIONS, LINKAGE EDITOR PRINT
3.19
OPTIONS, ON-LINE
3. I I
OPTIONS, RESID~NT ROUTINF:
3.89
opnONS, SYSTEM DEFINITION OUTPUT
3.19
ORDER
3.24,5.117
ORGI\.NIZATIONS, HDI\.~ FILE
5.1
OS
3.3,3.10,3.87,3.110,3.120
OS COMPONENT I\.SSEMBLER F
3.22,3.58
OS JOB MANAGEMENT PL'IS
3.87
OS LINKPI\.CK
5.100
OS LOAD MACRO INSTRUCTION
5.101
OS OPERI\.TOR CONSOLE
3.67
OS PRIVILEGED NAME TABLE
3.79
OS PRIVILEGED PROGRAM NI\.ME LIST
3.87
OS PROGRll.M PRODUCT ASSEMBLER H
3.58
OS R FADER
6. 12, 6 • 1 4
OS RE:;ION, SIZE OF THE
3.105
OS STI\.RT CO'''~AND
3.67
OS SYSTEM PROGRAMMERS GUIDE
3.89
OS SYSTEM TASK
3.67
3.67
OS SYSTEM, TYPE OF
OS/MITT
2.5
OS/175 SYSTEM
3.76,3.107,3.110
OS/VS1
3.3,3.88
OS/VS1 SYSTEM
3.68
OS/VS2
5.97
OS 1\."1
2.10,3.13,3.76,3.83-3.65,6.10
OSMol CQI\NNEL
3.13,3.76,3.63,3.69,6.10
OSI\.M CHANNEL END AP"ENDAGE IGGO 19GX
3.89
OSI\.M CHANNEL-END APPENDAGE MODULE, CREATION OF THE
OSAM CHANNEL-END APPENDAGE SUFFIX VALUE
3.13
OSAM CHECK DFSDISMO
3.69
OSAM COMMON SUBROUTINES DFSAOS20
3.69
OSAM DA'l'A SET
5.99,6.14
OSI\.M OPEN
3.89
OSA"!: OPEN/CLJSE EOV FINAL
3.65
OSAM OPEN/CLOSE/EOV
3.69
OSAM O"EN/EOV
3.89
OSAM O"EN/EOV DFSADSDO
3.85
OSAMRBNDDll.TA
5.122
051\.M READ/WRITE DFSAOS30
3.69
OSAM SUFFIX
3.13
OSAM SUFFIX 7770 SUFFIX
3.13
OSI\.M SVC LINK-EDIT
2.10
OS AM WRITE OPERATIONS, NUMBER OF
5.99
OSAM WRITES, NUMBER OF
5.96
OS AM, UNBLOCKED
9
OUTPU'!' BUFFER
3.47,5.92
OUTPUT BUFFER AREA
5.91
OUTPUT BUFFER SIZE SPE:IFIED
3. II 7

OUTPUT BUFFER SIZES
3.37,3.39,3.49
OUTPUT CLASS
3.20,3.61,3.106-3.109,3.116
OUTPUT CLI\.SS B
3.116
OUTPUT COMMUNICATION
5.20
OUTPUT COMPONENTS
3.46,3.52
OUTPUT DATA SET
6
OOTPUT DECK
3.66
OUTPUT DEVICE
3.119,4.10,9
OUTPUT DEVICE OPTION BLI\.NK
OOTPUT EDIT
5.91
OU"'PUT EDIT EXIT
5.91
OOTPUT EDIT 'IODULE ERROR CONDITIONS
5.92
OUTPUT EDIT ROUTINE PROGRAM LISTING
5.93
OOTPUT EDIT ROUTINES SPECIFIED THROUGH
3.56
OUTPUT EDITING
5.20
OUTPUT EIQUEUED
3.52
OUTPUT EXAMPLE
3. 90
OOTPUT FORMI\.T
6.16
OUTPUT INFORMATION
6.16
OOTPUT LISTING
3.121,3.133,3.175,2
OUTPUT MESSAGE SEGMENT
5.20
OOTPUT MESSII.GES INSERTS
5.3
OUTPUT MESSAGES 360
3.71
OOTPUT OF IMS1360 SYSTEM DEFINITION, STAGE 2
11.4
OUTPUT OF OBJECT MODULES
3.66
OOTPUT OF SMP
3.60
OUTPUT OF THE ACB OTILITY PROGRAM
3.107
OUTPUT OF THE DBD GEllERI\.TION BECO'lES
6.12
OUTPUT PHYSICAL TERMINI\.L, ADDRESS OF THE
5.20
OOTPllT PSB
6.12
OOTPUT TRANSLATE TABLE
3.33,5.92
OOTPUT, ASSEMBLER
5.119
OOTPUT, ASSIGNED LTERM
3.51
OOTPUT, CHECKPOINT P'ffiGE RESULTANT
6.19
OUTPUT, DEFINES
11.11
OOTPUT, LONG MESSASE
3.71
OUTPUT, OBJECT
11.10
OOTPUT, QUEUES
3.511
OUTPUT, QUEUI NG
3. 511
OUTPUT, RESULTI\.NT
6.17-6.19
OUTPUT, RESULTI\.NT TERMINAL
6.17
OOTPUT, SYSTEM
4.9
PI\.PER TAPE READER
3. q9
PI\.RAMETER
3.27,3.105-3.106, II. 9-11.10,5. q3,
5.87,5.101,6.10,8,3,5
PI\.RAMETER AUTOSCH
3.117
PARAMETER BFPLCllWT BFPLTLCP
5.99
PARAMETER INTER UPT
3 •q6
PI\.RMoIETER OF THE RM!'IAME
5.100
PA1l.AMETER, At'T:)SIGN
3.q7
PARI\.METER, FIELD VALUE
5.101
PAR1\METER, KEYWORD
3.16
PARAMETER, MAXREGN
3.11
PARAMETER, MT
7
PI\.RA.METER, OPTIONAL
3.100,3.106
PARAIoIETER, PROCL!M
3.26
PA1l.AMETER, REQUIRED POSITIONAL
3.109
PARI\.METER, VALUE
5.101
PARAMETERS, DBD GENERATION-SUPPLIED
5.100
PARAMETERS, DCB
II. 9

'PAR1\ME'l'ERS,
PI\.RI\.Io!ETERS,
PI\.RI\.METERS,
PARAMETERS,
PA.RAMETERS,

EXEC Cl'.RD
3.100,3.105-3.106,3.109
FLUSH
3.15
IM-SCTF MA:RO-INSTRUCTION DEFINES
3.13
OFFSET
5
SIIR EXEC C,"RD
3.96
"I\.RA.'~FTERS, STARTS KEYifORD
6
PARI\.METERS, SY~BOLIC
3.99
P~RM FIELD
3.15
PARM KEY~JRD VALUE
q. 8
PARM, IMSMSG PPOCEDURE
3.109
PI\.RMS, SYMIDLIC
3.1011
PI\.RTICULI\.R DATA BASE
5.100
PARTICULAR DISPLI\.Y STI\.TION
3.1111
PI\.RTICtJLAR PART
6.5,6.16
PASS.lJRD MAINTFNI\.N::E FUNCTION
11.1
P1\.SSWORD MATRIX
11.6
PI\SSOIORD MATRIX CHI\N:;ES
4.1
PI\.SSWORD OFFSET LIST
q.7
PASS\oIJRD SECUI!ITY
3.97,11.11
PASS\.ORO SECURITY REQUIREMENTS
11.1
PASSWORD SECURITY SYSTE!oI
q.2
PASSWORD TABLE
1I.6-q.7,q.11
PI\.SSWORD, ACCT
q. 13- 4.1 q
PI\.SSWORD, CURRENT STATUS OF THE
11.1
q.5·
PI\.SSifORD, LJCK
PASSHORD, LOGREC
q. 13
PASSWORD, NEW
q.1
PA!'SWORD, ONE-FOR-ONE BASIS REMOVES
5.1
PASSWJRD, SECURITY MA.INTENANCE PROGRll.M CREATES 11.1
PASSWORD, SMP
11.1
PASS;JJRD, TNL
11.13
PASSW01l.DS, DEFI»E ADDIrIONAL
11.11
PASSWJRDS, DELETE
11.1
PI\.SSWORDS, NUMBER OF
11.7
PCB
3.66,3.107,3.110,1,3-11,6-8
PCB COMPARE
6
PCB SELECTION
PCB, CURRENT
PCB, I/O
PCBL
PCBS, SIZE OF THE
3.107
PDS
2.2;'2.6
PDS, IMS2. SOURCE
3.66
PEN
3.q8
"HASE1
3.103
PHASE3
3.103
P HI\.S Ell
3.103
"HRASE
5.97
PH1l.I\.SE, ORIENTATION
5.92,5.97
PHRASE, PREFIX
5.92,5.97
PHYSICAL
4.11,5.113
PHYSICAL BLOCKS
5.96-5.99
PHYSICAL DATA BASES
6.2
PHYSICAL DELETE DNCTR
5.122
PHYSICAL I/O WRITES, NUMBER OF
5.99
PHYSICAL I/O, NUMBER OF
5.98,5.100
PHYSICAL INSERT DPHYD
5.122
PHYSICAL REPLACE DLASTREC
5.122
PHYSICAL SEQUENTIAL
1
PRYSICAL TERMINAL NUMBER
q.1I

2.9

1.11

PLI\.CE'IENT, ROOT SE:;MENT
5.100,5.117
PLITDLI
3.111-3.112,3.119
POINTERS
3.69
POLL
3.30,3.32
POOL BFPLCHWT
5. 98
POOL BFPLRDCT
5.98
POOL BFPLSZE, ID OF
5.96
POOL BFPLWERT
5.98
POOL COMPACTIONS, NUMBER OF
5.98
POOL MA.CRO-INSTRUCTION
3.55
POOL MACRO-INSTRUCTION, NUMBER OF OCCURRENCES OF THE
POOL, ADDITIONAL BUFFER
3.16
POOL, DATABASE BUFFER
3.10q
POOL, DMB
3.1 Oq-3.1 05
POOL, LOGICAL TERMINAL
3.30,3.55
POOL, QUEUE
3.106
POOL, SIZE OF
5.96
POOL, TELEPROCESSING LINE BUFFER
3.105
POOLS
3.1,3.9,3.15,3.30,3.55,3.120,5.97-5.100
POSITIONS, REMAINING OPERAND SUBLIST
3.49
PREALLOCI\.TED DATA SETS
3.77
PREALLOCATED SPACE
3.72
PRIMARY SYSOUT SPACE
3.113
PRINTER I\.FFECT ONLY DEFAULT BUFSIZE
3.32
PRINTER, LINE
3. q9
PRINTER, 1052
3.511
PRINTER, 32611 MODEL 3
3.118,3.52
PRINTERS, CANDIDATE
3.q8
PRINTERS, 3286
3.36,3.45
PRIOR CARD TYPE
3
PRIOR RECORDS
PRIOR SET CO>!MAND
5.1
PRIOR, I\.SSUMES
3.120
PRIOR, IMSGEN STATE~ENT
5.87,5.93
PRIORITIES, HIGHER SELECTION
3.2
PRIORITY
3.21,3.26- 3.27 ,3. 61 ,3.1 05,3 .113
PRIORITY BASIS
3.2
PRIORITY FIELD
3.26
PRIORITY ZERO
3.21
PRIORITY, DISPI\.TCHING
3.10q
PRIORITY, LIMIT
3.27
PRIORITY, NORMAL
3.27
PRIORITY. OS/360 DISPATCHING
3.105
PRIORITY, SCHEDULING
3.2
PRIORITY, SCHEDULING LIMIT
3.2
PRIVILEGED NAME TII.BLE
3.3,3.78
PROCEDURE ALLOCATES
6.1q
PROCEDURE CONTAINS
6.1 II
PROCEDURE IMSCOBOL
3.96
PROCEDURE ~SPLI
3.98
PROCEDURE LIBRARY
3.98,3.113
PROCEDURE LIBRI\.RY ~EMBER NAME
3 .96
PROCEDURE MFDBDUMP
6.19
PROCEDURE, DI\.SD REI\.DER
3.98
PROCEDURE, EXECUTION
3.311,3.97
PROCEDURE, F!oITINIT
3. 75
PROCEDURE, IMS
3.73, 3.96
PROCEDURE, I!oISMSG
3.96
PROCEDURE, LINK EDrr
3.97
PROCEDURE, NORMAL CORRECTION
5.1

3.56-3.57

PROCEDURE, READER
3.98
PROCEDURE, SYSTEM II.SSEMBLER
3.61,3.66
PROCEDURES, II.CCOUNI' ORIENTED
3.96
PROCEDURES, CATALOGED
3.36,A.2
PROCEDURES, COMPILER
3.88
PROCEDURES, GENERII.TED
3.98
PROCEDURES, GENERArES SYSTEM
3.11
PROCEDURES, IMSROR
3.79,3.86,3.98
PROCEDURES, LINK STEPS OF
3.88
PROCEDURES, NORMAL IMS/360
5.123
PROCEDURES, OTHER IMS/360 ORIENTED
3.82
PROCEDURES, SPOOL PRINT
3.32,3.34
PROCEDURES, SYSTEM
3.21
PROCESSING OUTPUT MESSI\.GES 1'10
3.11
PROCESSING OVERHEAD
3.25
PROCESSING REGIONS, NlJ'IBER OF
3.69
PROCF.SSING, BATCH
2.1,2.1,3. '1,3.8
PROCESSIr-lG, BI\.TCH-MESSI\.GE
2.1,3.8,3.28
PROCESSING, BATCH-ONLY
2.1
PROCESSING, "ItlLTIPLE
3.2
PROCESSING, ONLINE
2.10
PROCESSOR, COr-lTROL CARD
PROCLIB
3.19,3.21,3.96
PROCLIB DO DSN
6.9
PROCLIM
3.26-3.21
PROFILE
4.5
PROFILE EXAMPLE
'1.6
PROFILE-ORIENTED
4.1
PROGRAM CHECKS
3.101,3.110
PROGRI\.M FUNCTION KEYS
3. q 8
PROGRII.M NUCLEUS, AS PI\.RT OF THE IMS/360 CONTROL 5. '11
PROGRII.M PRODUCT ASSEMBLER H JOB
3.22
PROGRI\.M PRODUCT, MODIFICATION OF THE
2.10-2.11
PROGRII.M PRODUCT, SUPPOR T OF THE
1.1
PROGRI\.M PROPERTIES
3.3,3.18
PROGRI\.M PROPERTIES Tl\.BLE MODIFICI\.TION
3.88
PROGRAM RECEIVING
3.29
PRO~I\.M SCHEDULIr-lG TIME
3.28
PROGRI\.M SPECIFICI\.TION
2.10,3.4,6.1,6.12
PROGRI\.M SPECIFICATION BLOCK, GENERATION OF A
6.12
PROGRII.M SPECIFICATION BLOCKS
3.68
PROGRI\.M STATUS CHI\.r-lGES
4.1
PROGRI\.M SYSTEM REGION,
CONTROL OF THE IMS/360 ONLINE CONTROL
3.24
PROGPI\.M TEMPORARY FIX
2.10-2.11
PROGRII.M TERMINI\.TES
3.24,9
PROGRI\.M TERMINATES WJRMI\.LLY
3.10
PROGRII."'I TER."'IINATIOr-l
3.29
PROGRAM, APPLICATION CONTROL BLOCKS UTILITY
6.14
PROGRI\.M, CHANNEL
5.99
PROGRAM, CONTROL
3.66,3.106
PROGRI\.M, FORMAT UTILITY
3.96
PROGRAM, FORMATTING PRINT
B.1
PROGR"If, GIVEr-l APPLICATION
5.91
PROGRAM, IEHMOVE
2.1,2.3,2.5
PROGR!!.M, IMS CONTROL
3.105
PROGRAM, IMS/350 APPLICATION
1
PROGRI\.M, IMS/360 CONTROL
3.15,3.28,4.1,4.7,5.5,6.15
PROGRI\.M, IMS/350 ONLINE CONTROL
5.11
PROGRI\.M, MAINTENANCE
3.80

PROGRI\.M, ONLINE APPLICATIO~
6.1
PROGRAM, ONLINE CONTROL
5. 11
PROGRAM, OVERLI\.Y APPLICI\.TION
3.110
PROGRI'.M, PRIVILEGED
3.81
PROGRII."!, PROCESSING
3.29
PROGRI'.M, REUSABLE APPLICATION
3.2
PROGRAM, SCHEDULED I\.PPL ICATION
3.28
PROGRAM, SECURITY MAINTENANCE 3.80,4.1,4.4,4.6-4.1,4.11
PROGRI\.M, SYSTEM DEFINITION
3.66,3.68
PROGRI'.M, SYSTEM IEHMOVE UTILITY
2.1
PROGR!!.M, SYSTEM TlTILITY
3.69
PROGRI'.M, USER
3.50
PROGRI\.M, UTILITY
3.23,3.61,6.15,1,2
PROGRI\.MMER NAME
3. 113
PROGRI\.MMER, SYSTEM
1.3,3.3
l'ROGRI\.MS, BATCH CHECKPOINT/RESTART
5.122
l'ROGI1I\.:~S, DESCRIBES APPLICATION
3.6
PROGRI'.MS, IMS/350 SYSTEM UTILITY
1.3
PRTY
3. 19~ 3.21,3.26,3.59,3.61,3.109,6.9,6; 12
PS
3.68,3.12,3.74,3.103,3.111-3.118,6.9,3
PSB
3.99-3.100,3.106,3.108,3.112,4.5,6.12,6. H-6. 15
PSB CONTROL BLOCK POOL, SIZ E OF THE
3.15
PSB DIRECTORY
3.15
PSB GENERI\.TION UTILITIES
3.61
PS B POOL
3. 24, 3 • 10 '1- 3 .1 05
PSR, NAME OF
3.24,3.100,3.106
PSB, PERFORM
3.18
PSBGEN
3. 69, 3. 97,6. 1 ,6. 12
PSBP
3.104-3.105
PSBS, DYNI\.MIC
3.24
PSBS, SAMPLE
6.15
1>SER
3.114,6.14
PSTS
3.15,5.102- 5.1 03
PT
3.44,3.'19
PTF:RM
4.2,4.4,4.3,4.5
PTERM, WORD
11.5
PTF
2.10-2.11
PTl'NCfl
3.54
PTPMCflA
3.5'1
PTR
3.44,3.49
PTRDR
3.44,3.'19
PTY
3.104-3.105
PlHlCH
3.30,3.32,3.40,3.'15
PUtTCH, 1018 PAPER TAPE
3.49
PUNCH, ~45 OUTPUT
3.49
PUNIT
3.114,6.14
PURGE
4.1,6.9,6.19
PURGF COMMAND
4.6,5.1
PURGE SCRI\.TCH VTOC
6.9
PURPOSE OF A RANDOMIZING MODULE
5.100
PTJPPOSE OF CONTROLLING I\.PPLICATION PROGRI'.M
3.28
PURPOSES OF CONVERSION
5.101
QBLKS
3.32,3.104,6.11
QBLKS DO DSN
6. 9
QCR
3.104-3.105
QINDEX
3.4
QISAM SETLS BFPLWERR
5.98
QISAM, NUMBER OF
5.99
QSAM DATA SET
5.44
QUERY
2.1

QllEUE
3.68,3.15
QUEUE BUFFERS, NUMBER OF
3. 106
QUEUE, OPERATING SYSTE~/360 JOB
6.15
QUEUED
3.45
RI\.M
3.89
Rl'.NDOMIZING
5.100
RAr-lOOMIZING MODULE CONVERSION, RESULT OF A
5.103
RANDOMIZING MODULE, INTENT OF A
5.104
RI\.r-lDOMIZING MODULE, r-lA~E OF TIlE
5.101
RAMGE
3.36,A.8,R.5
RASA/SASI\.
3.33
RDM11TAB
5.101,5.103
READER
3.30,5.11
READER/INTERPRETER
3.113
REASSEMBLY
3.81
REC
4.13
RECEIVED
3.21,3.52,3.66,5.4
RECEIVED CLOSE
6.18
RECEIV'Ir-lG
3.28
RECFM
3.104,3.106,3.108-3.109,3.111-3.115,
3.117-3.118,4.9-4.10,4.12
RECLNG
3.11
RECORDS, FIXED-FOR~AT
3.12
RECORDS, VARIABLE-FORMAT
3.12
RECORDS, VARII\.BLE-LENGTH
3.12
RECOVERY
3.10
REENTRANT
3.89,5.100
REENTRY
5.85
RE?ER
3.32,3.49,3.69,3.84,3.89,5.3,5.91,6.10
REFERENCE
1.3,3.46,3.55,5.66,5.85,5.87,5.93
REFERENCE VOLlJ'IE
1.3
RE3ION CONTROL MODULE DFSRPCOO
3.83
REGION CONTROLLER
3.81
REGION ENVIRONMENT
3.3
REGIOr-l IMSBATCH
3.96
REGION IMSCOBGO
3.96
REGIOr-l IMSCOBOL
3.96
REGION INFORMATION
3.5
REGION JOB
3.11
REGION MEMBER NAME
3.91
REGIOr-l OPERATES
3.86
RE3ION PARAMETER
2.1,2.5-2.6
REGION PROTECT KEY
3.104,5.122
REGION SIZE
3. 11
REGION SYSTE~
3.78
REGION, FATCH MESSAGE
3.107
REGION, CONTROL
3.105
REGION, DL/I BI\.TCH
3.21,3.61,3.86
REGIOr-l, IMS
3.81
REGION, IMS MESSAGE
6.15
REGION, IMS/360
6.11
REGION, IMS/360 CONTROL
3.12,5.100
REGION, IMS/360 CONTROL PROGRAM
3.10-3.11,3.86
REGION, IMS/360 MESSAGE
6.15
REGION, I~S/360 ONLINE CONTROL
5.100,6.5,6.15
REGION, IMS/360 ONLINE CONTROL PROGRAM
5.100
REGIOr-l, IMS/360 TELECOMMUNICATIONS
6.15
REGION, JOB STEP DEFAULT
3.113
REGION, ONLINE CONTROL PROGRAM SYSTEM
3.15
REGION, READER BASIC
3.113

REGION, START
3.19,6.15
REGION, START MSG
3.79
REGION, SYSTEM
3.25
I>EGIOr-l, VIRTUAL
3.3
REGIONS, BATCH
3.89
REGIONS, BATCH PROCESSING
3.211,3.96
REGIONS, BATCH-MESSAGE PROCESSING
3.56-3.51
REGIOr-lS, MESSAGE-PROCESSING
3.9
RE3ISTER
5.2,5.20,5.102,5.119
REGISTER CONTI\.INING
5.119
REGISTER INTERFI\.CE
5.11
REGISTER, BITS OF THE
5.119
REGISTER, CONTENTS OF THE
5.119
REGISTER, PURPOSE OF
5.102
REGISTER, RESULT
5.111,5.119
REGISTERS, STANDI\.RD OS LINKI\.GE
5.60,5.85,5.91
REGRESSION
A.6,A.l0
REGRESSIOr-l TESTIr-lG
1\..10
REJECT
3.43,3.50
RELATE
3.52
RELI'.TIONSHIPS
3.73,3.121,5.2,6
RELATIVE
5.99,5.104,5.117,5-6
RELATIVE BLOCK NUMBER
5.100-5.101,5.104
RELATIVE BLOCK NUMBER ~AY RANGE
5.104
RELATIVE, ACTUAL
5. 111
~ELAT!VE, PROPER
5.111
RELEASES OF PTF TAPES
3.1,2.11
RELINK
2.10,6.15
RELINK-EDIT
3.84
REMAIr-lDER
3.69,5.104,5.117 ,6. 1
REMAINDER OF A DIVIDE
5.104
REMAINDER OF ANCHOR POINT NUMBER
5.117
~EMAINING BASE LOCI\.TIONS, NUMBER OF
5.117
REMOTE
3.33,3.40
REMOTE 3270 LINE GROUP
3.52
REMOTE 3271
3.38
REMOTE, GROUPS CONTAINING POTR 2260
3.38
RENAMED
3.81
REPEAT
5.86
REPL
A.5
REPL CALLS
3.28
REPL L
1'..11
REPLII.CEMENT CHARACTER
3.50
REPORTING, ATTENDI\.NCE
3.1
REPRESENTING DL/I DATA BASES
3.100
REPRESENTS
3.21
REPROCESS, EMERGENCY RESTART ~ILL ONLY
3.29
REQUIRED DATA BI\.SES
2.10
REQUIRED DATA SETS, ALLOCATICN OF
6.10
REQUIRED ORIENTATION PHRASE
5.92
REQUIPED PARAMETER LIBRARY LISTS
3.89
REQUIRED PASSWORD
4.12
REQUIRED PSBS
3.96
1
REQUIRED STEPS
6.7
REQU!RED SVC NUMBERS
6.10
REQUIRED TEST
1
REQUIRED, ALSO
5.1
REQUIRED, LONGF.R
3. 15
1.12 REOUIRED, MODIFICATIOMS
3.119

REQUIRED, NOT
3.116
REQUIRED, PHYSICAL 1/0 OPERATION
5.98
REQUIREMENT, MAIN STORAGE
4.7
REQUI?EMENTS
3.1-3.2,3.68,3.75,3.98,3.120,6.10
PEQUIREMENTS, DESCRIBE RELATED USER
3.5
PEQUIREMENTS, DL/I TESt" PROGRAM JCL
2
REQUIREMENTS, HIERARCH!CAL SET
3.7
REQUIREMENTS, INSTALLATION
3.2
REQUIREr~ENTS, RESPONSE
3.1
REQUIREMENTS, SAME SECURITY
4.5
REQUIREMENTS, SPACE
3.68-3.69
REQUIRES ABOUT. 75 SECONDS
6.15
REQUIRES, SEVEN-TR!\CK TAPE DISTRIBUTION
2.1
REQUIRES, TYPE 4 SITC O'>AM
3.85
REQUIRInG FORM!\T SERVICES, NUMBER OF LINES
3.16
RESERVED
3
RESET
5.64,5.86
RESET OF THE HOLD CONDI1'ION
RESIDENT, MAJORITY OF
4.1
RESLIB
3.108-3.109,3.111-3.112,4.8
RES LIB DO DSN
6.9
RESL!B, MEMBER NAME CBLTDLI LIBRARY
3.119
RESMODS
3.84
RESMODS PARTITIONED DATil. SET
3.84
RE':;OURCE LIMITS, BALANCE OF
3.58
RESOURCE OPERATIONAL
3.9
RESOURCE ORIENTED
4.5
RESOURCE REQUIREMENTS
3.24
RESOURCE TYPE
3. 56
RESOURCE-ORIENTED
q.1
RESOURCE, LIMIT OF A
3.57-3.58
RESOURCES
3.9,3.57,3.61,4.5
RESOURCES M, NUMBER OF UNIQUE COMBINATIONS OF SECURED
RESOURCES, NUMBER OF SECURING
4.7
RESOUR CES, SET OF
q. 1
RESOURCES, SYSTEM
3.3
RESOURCES, TERMS OF
q.1
RESPECTIVELY
3.17,3.37,3.45,3.47-3.48,2,2
RESPECTIVELY, IMS2.DI21PARO
6.14
RESPONSE
3.3,3.2,3.15,3.26-3.27,3.40,3.45,5.64,5.91
RESPONSE A'ITRIBUTE
3.27
RESPONSE EFORE
3.1
RESPONSE LETTER DESCRIBING
2.11
RESPONSE-TYPE
3.1
RESPONSE, IMMEDIATE-TYPE
3.1
RESPONSE, NO
3.45
RESPONSES, SYSTEM
3.51
RESPONSES, YSTEM ERROR MESSAGE
3.51
REST
7
RESTART
4.11
RESTART, COMPLETION OF TIlE
6.15
RESTART, EMERGENCY
3.29,3.67
RESTART, NEXT
q.1-4.2
RESTART, NORMAL
3.80,4.11
RESTART, NORMAL SUCCESSFUL
4.11
RESTARTED
4. 1
RESl"ORED
5.3,5.21,5".102
RESTRICTION
4. 1
RESULT, PARTIII.L
5.119
RESULTS
5.'01

RETAIN
3. 1 5- 3. 16,3 • 110
RETAIN STATISTICS
5.97
RETRANSMISSION
5.124
RETRIEVAL
5.100
RETRIEVAL REQUESTS
5.99
RETRIEVALS, NUMBER OF
5.99
RETRIEVE
11
5.98
RETRIEVE, NO OF
RETRY
5.64
RETURN
5.5,5.20,5.102
RETURNED, COUNT
5. 92
RET'JRNED, COUNT VALUE
5.65,5.86
5.20
RETURNED, RESULTANT OUTPUT MESSAGE SEGiENT
REUSABLE
3.70
RFER
6.10-6.11
RGN
3.98-3.99,3 .10q, 3.103-3.1 04
5.20
ROUTINE, BASIC IMS/360 EDIT
ROUTINE, BASIC INPUT EDIT
5.87
ROUTINE, CALLING
5. 123
ROUTINE, DEF!\ULT EDIT
3.29.
ROUTINE, DEVICE-DEPENDENT
5.65,5.86,5;91
ROUTINE, EDIT
3.33,3.37,5.1-5.3,5.11,5.20-5.21,
5.41,5.44-5.45,5.86
ROUTINE, ELEMENT 297212980 INPUT EDIT
5.122
ROUTINE, IMS/360-PROVIDED OUTPUT EDIT
5.93
5.87
ROUTINE, IMS/360-SUPPLIED INPUT EDIT
ROUTINE, IMSI360-SUPPLIED SIGNON
5.66
ROUTI~E, INTERREGION COpy
3.89
ROUTINE, INVOKED EDIT
5.20
ROOTINE, LOGICAL TERMINAL EDIT
3.52
3.52
ROOTINE, LOGICAL TERMINAL USER-SUPPLIED EDIT
ROOTINE, NO EDIT
3.37
ROUTINE, NO OUTPUT EDIT
3.34
ROOTINE, ONE MESSAGE SWITCHING EDIT
5.11
ROOTINE, ONE TYPE 2 SITC
2.10
ROUTINE, OS1I.M CHANNEL END APPENDAGE
3.83
ROOTlNE, OUTPUT EDIT
3.34,5.93
3.33,5.20
ROOTINE, PHYSICAL TERMINAL OUTPtn' EDIT
ROUTINE, RANDOMIZING
5.103
ROOrINE, SAMPLE 1030 EDIT
5.43
5.124
ROUTINE, SAMPLE 297212980 INPUT EDIT
ROUTINE, SIGNON
5.6q-5.65
ROUTINE, SUPPLIED OUTPUT EDIT
5.97
ROOTINE, SYSTEM INPUT EDIT
3.50
3.37
ROUTINE, TOPIC 7770-3 INPUT EDIT
ROUTINE, TRANS!\CTION CODE EDIT
5.3,5.11
ROUTINE, TYPE 1 USER SITC
2.10
ROOTINE, TYPE 2 USER sITe
2.10
ROUTINE, TYPE 4 USER SITC
2.10
ROOTINE, US1I.BLE SIGNON
5.66
ROUTINE, USER INPUT EDIT
5.85
ROOTINE, USER OUTPUT EDIT
5.96
3.46
ROUTINE, USER-SUPPLIED MESSAGE OUTPUT EDIT
5.11
ROOTINE, USER-SUPPLIED MESSAGE SWITCHING EDIT
5.2
ROUTINE, USER-SUPPLIED TRANSACTION CODE EDIT
ROUTINE, USER-WRITTEN
5.11,5.123
ROOTINE, 1030 EDIT
3.37,5.41,5.43
ROUTINE, 297212980 INPUT EDIT
5.123-5.124
ROUTINE, 2980 INPUT EDIT
5.123
ROOTINE, 7770-3 OUTPUT EDIT
3.33,5.97

4.7

1.13

ROUTINES OF THE RESTART FACILITY, BACKOUT
3.67
ROOTINES, ACTU1I.L SITC
3.84
ROOrINES, IMS/360 CONTROL FACILITY ENQlDEQ
3.13
ROUTINES, IMS/360 SUPERVISOR CALL
3.83
ROUTmES, SVC
3.84-3.85,3.84
P.OOTINES, SYSTEM RESIDENT
3.B9
ROlJrI~ES, TR1I.NSACTION CODE INPUT EDIT
5.11
~O!]TINES, TRANSACTION EDIT
3.56
~OUTmES, USER
3.56,5.85,5.87
ROOTINES, USER EDIT
3.21,5.2,5.4,5.11,5.20-5.21,
5.42,5.85
ROU1'INES, USER SVC
2.10
ROOTHES, USEP-DEFINED EDIT
';.1,5.111,5.43
ROUTINES, USER-FURNI~HED
3.21
ROOTINES, USER- SUPPLIED EDIT
5.1
ROUTINES, USER-SUPPLIED INPUT EDIT
5.2
ROOTI:qES, USEP-WRITTEN EDIT
5.1-5.3
SAMPLE APPLICATION ENVIRONMENT, CREATION OF THE
6.1
SI\MPLE EDIT ROUTINE FL)WCHART
5.45
SI\'1PLE PROELEM
5.115,5.49,6.1,6.8,6.10,6.13,6.12
SAMPLE PROBLEM APPLICATION DATA BASE
6.6
SAMPLE PROBLEM DATA BASE
3.97,6.14
SAMPLE PROBLEM ENVIRONMENT
6.7
SI\MPLE, APPLICATION ASPECTS OF THE
6.6
SAMPLE, MOVING
6.1
SAMPLE, OPTIONAL PART OF THE
6.12
SCD
5.20,5.q2,5.97,5.1211
SCD CALL
5.97
SCHEDULING SELECTION
3.26
SCHEDULING, SINGLE
3.27
SCRATCHPAD AREA, SIZE OF THE
3.29
SCRATCHPAD AREAS,
MAXIMUM SIZE OF CONVERSATIONAL
3.15
SCRATCRPAD AREAS, NUMBER OF CONVERSATIONAL
3.4
SCRI\TCHPAD, CONVERSATION
2.10
SCRATCHPAD, CONVERSATIONAL
3.29
SCR1I.TCHPADS, MAIN STOR1I.GE
3.1 II
SOB
3.75,4.2
SECONDARY SPACE
3.72
SECONDARY SYSOUT SPACE
3.113
SECURITY
3.2,3.80,3.97,4.1-4.2,4.11,5.2
SECURITY CHARACTERISTICS
3.46
SECURITY CONTROL BLOCKS
11.2
SECURITY DIRECTORY MODOLE NAMES
3.21
SECURITY ELEMENTS
4.6
SECURITY ENVIRONMENT
4.2
SECURIT!l MAINTENI\NCE
3.1,4.7
SECURITY MAINTENANCE CONTROL
4.4
SECURITY MAINTENANCE EXI\MPLE
11.11
SECUPITY MAINTENANCE FLOW
4.7
SECORITY MAINTENANCE PROGRAM IQFUT
3.97
SECURITY MAINTENANCE TABLES
4.7
SECURITY MAINTENANCE,
SECURITY MAINTENANCE PROGRAM
4.1
SECURITY OF A PARTICULAR IMS/360 NUCLEUS
11.6
SECURITY PROFILE SYSl"EM
4.1
SECURITY TI\SLES
4.8,4.11
SECURITY, PROVIDES TERMINAL
4.6
SECORITY, SMP TERMIN1I.L
4.2
SEGMENT CANCELED
5.4

SEGMENT DATA DFSEOFF
5.122
SEGMENT DIDLN, LOG RECORD OF A
5.122
SEGMENT DLASTSEG, LOG RECORD OF A
5.122
SEGMENT I/O
5.101
SEGMENT I/O AREA
5.101
SEG'IENT KEY FIELD FORM!\T DESCRIPTION
5.103
SEGMENT KEY FIELD VALUE
5.104
SEGMENT NAME
5.101
SEGMENT OF AN HDAM DATA BASE, ROOT
5.101
SEGMENT SEQUENCE FIELD, LENGTH OF A ROOT
5.1l1
SEGMENT, 'ICS GN' MESSAGE
5.4
SEGMENT, BIT PI\TTERN OF A ROOT
5.117
SEGMENT, EACH 460-BYTE PORTION OF THE
3.69
SEGMENT, EDITED
5.123
SEGMENT, MULTIPLE
3.27
SEGMENT, NORMAL
5.85
SEGMENT, RESULTANT
5.2
SEGMENT, ROOT
5.101,5.103-5.104,5.117
SEGMENT, STI\NDARD DATA
6.5
SEGMENT, THIS MESSAGE
5. II
SEGMENTS, LENGTH
3.73
SEGMENTS, NUMBER OF SENSITIVE
3.68,3.73
SEGMENTS, STATUS
6.5
SE:;MENTS, SUBSEQUENT MESSAGE
5.1
SEPARI\TION, PROVIDE
5.1
SEQUENCE
3.118,5.20-5.21,5.88,5.101,1
SEQUENCE FIELD
5.103
SEQUENCE FIELD NAME-OPERATOR-VALUE
5.101
SEQUENCE NUMBER DDATAID
5.122
SEQUENCE OF SIGNON ATTEMPTS
5.65
SEQUENCE OF SPECIFYING
3.110
SEQUENCE, LOWEST COLLATING
3.51
SEQUENTIAL
4.9
SEQUENTIAL DATA SET
3.69,3.73,6.10
SEQUENTIAL INPUT DATA SET
11.1 0
SEQUENTIAL MEMBERS
4.7
SEQUENTIAL MESSAGE D!\TA SET
II .9
SEQUENTIAL, BISAM
5.99
SERIES OF STEPS
6.1,6.7
SERIES, TEST
1-2,B.6
SERNUM
6.9
SET CONTAINING CONTROL INFORMATION MUST
SET OF TESTS, CARD CAUSES ONE
5
SET WITHIN IMS/360 SYSTEM DEFINTION
3.57
SET, SWITCHED COMMUNICATIONS TERMINAL
3.55
SRMSG
3.32,3.104,6.11
SHMSG DO DSN
6.9
SHR DISPOSITION, USE OF
3.88
SHR MEMBEP N!\ME MFDBDUMP
3.113
SRR MEMBER NAME PSBGEN
3.114
SHUTDOWN
3.70
SRUTDWN
3.17-3.18,3.69,6.12
SH20-0910
1.1,3.1- 3. 2, 3.13 ,3.16 ,3. 119
S"20-0912
1.1,5.101
SH20-0913
1.3,3.3,6.15
SR20-0914
1.3,3.119
SH20-0915
1.3
SIGNED DECIMAL NUMBE~
3.85-3.86
SIGNED INTEGER
3.85
SINGLE-DROP
3.32

SIZE OF !\. Mll.IN STO~!l.GE sp!\.
3.111
SIZE OF THE !o!ULTISEGMENT MESS!\.GE BUFFER
3.5J
SIZE OF THE SCRATCHPAD
3.29
SIZE, APPROPRI!\.TE BUFFER POOL
5.97
SIZE, DEFINES OAT!\' BASE BUFFER
3.21
SIZE, DESIRED BLOCK
3.72
SIZE, MINIMUM BLOCK
3.72
SlZE, 2972 CONTROL UNIT BUFFER
3.39
SKIP, CON!'ROL CNTL
9
SLOT, FIRST COMPONENT
3 .119
5MB
3 .75 ,5 • 123, 9
S'IP
3.60,4.1-1f.2,4.7
SMP CONSISTS
4.7
SN!\.P OF DLI BL::lCKS 6 ABORT, REGION II REQUEST A. 6
SN!\.P, UNEQUAL 1 REQUEST PRIN!' OF I/O BUFFERS 2 REQUEST
SNGL
3.26,3.29
SNGLSE:;
3.26-3.27
SNODE:
3.104
SNODE •
3.103
SOLUTION
2. 1 1
SOURCE
2.3,5.66
S::lUT MEMBER N!\'ME MFDBLO!\'D
3.113
SOUT, ACBGEN PROCEDURE
3.96
SP!\.
3.4,3.15,3.14,3.26,3.29,3.66
SPA, DISCUSSION OF
3.14
SP!\., SIZE OF !\'N
3.69
SPACE
3.69,3.103-3.1011
Sp!\.CE, FR!\.GMENTED USE ::IF
5.99
Sp!\.CE, REQUIRES
3.68
SPARE!\'
3.111
SPARE!\' MA.CRO-INSTRUCTION DEFINES
3.15
SPAS, INCORE
3.14
SP!\'S, NO MAIN STOR!\.GE
3.14
SP!\'S, NlNBER OF
3.69
SP!\'S, SYSTEM DEFINITION USING
3. 14
SPCBIN
3.117
SPCBOUT
3.117
SPECIFIC!\.TION !\.LLOWS
3.44
SPECIFICATION BLOCKS
3.97
SPECIFIC!\.TION OF ALL
3. II
SPECIFIC!\.TION OF AN EXPANDED BUFFER
3.37
SPECIFICATION OF COMMON
3.52
SPECIFICATION OF PRINTER
3.32
SPECIFICATION, APPLCTN MACRO
3.25
SPECIFICATION, MINIMUM
3.16
SPECIFICATION, P!\.RTITION
5.103
SPECIFICATION, PEN
3.48
SPECIFIC!\.TION, SYSTEM DEFINITION
3.72
SPECIFICATION, THIS KEYWORD
3.116
SPECIFICATION, VALID
3.12
SPECIFICATIONS, DIRECT SYSOUT
3.32
SPECIFICATIONS, GENER!\'L SYSTEM
3.5
SPECIFICATIONS, GENERAL SYSTEM ENVIRONMENT
3.3
SPECIFIC!\.TIONS, SYSTEM
6.10
SPECIFICATIONS, SYSTEM JOB CONTFOL LANGUAGE
3.11
SPECIFICATIONS, VALID SUBLIST ENTRY
3.49
SPECIFIED CHANNEL END !\.PPENDAGE NUMBER
3.86
SPECIFIED DIRECT
3.67
SPECIFIED LIBR!\.RY
5.41,5.113
SPECIFIED LTERM
3.51

SPECIFIED TYPE II SVC
3.65
SPECIFIED TYPE 4 SVC NUMBER
3.85
SPECIFIES
3.26-3.27,3.37,4.8,4.10
SPECIFIES, COUNT FIELD
3.27
SPECIFIES, SECOND SUBPARAMETER
SPECIFIES, SECONDS FIELD
3.27
SPECIFIES, THIRD SUBpARAMETER
3.116
SPECIFY THAT NO TERMIN!\'L SECURITY
11.2
SPECIFY 28118 CONTROL UNIT FEATURES
3.36
SPIE
3.99- 3.100, 3.104, 3.1 06,3.106,3.112
SPIE MACROS
3.107,3.110
SptE, ALL::lW USER
3.100,3.106,3.110
SPIES
3.100,3.107,3.110
SPOOL
3.30,3.32,3.34,3.115,3.47
spoor, O!\'TA SET
3.47
SPOOL O!\'T!\' SET N!\'MES
3.32
SPOOL DDNAME
3.32
SPOOL DDNAME !\.SS::lCI!\.TION, EX!l.MPLE OF
3.32
SPOOL LINE GROUP
3.32,3.36,3.44,3.47
SPOOL LINES
3.36
SPOOL SYSOUT D!\'TA SETS
3.72
SRL IBM SYSTEM1360 OPER!\.TING SYSTEM
3.3
SSYNIN
3.117
SSYN::lUT
3.117
STAR:
8
STAND-!\.LONE
3.96
STAND!\'RD
3.113,3.46,3.66,6.5,3
STARTED
6.15
ST!\'RTING OFF
5. 119
ST!\.RTING, THOSE
5.98
STARTS
4.11,6.15,6
ST!\'TE'IENT END
3.61
Sl'1\TEMENT OF SYSTEM DEFINITION, PSBLIB
6.12
Sl'ATE'IENT REl"ERENCES
3 .44
ST1\TEMENT WITHIN
3.55
ST1\TE'IENT, 1\DDITION!\.L DO
3.84
STATEMENT, APPROPRIAT E DD
6
ST1\TEMENT, 1\SSEMBLER END
3.19
S1'!\.TEMEN'l', COMMENTS
2
STATEMENT, CTLUNIT
3.38,3.52
ST1\TFMENT, CTLUNIT Mll.CRO
3.38
ST1\TE'IENT, D1\T!l.BASE
3.23
ST1\TEMENT, DBD
5. 100
ST1\TE!o!ENT, DEFINED TERMIN!\'L
3.115
ST1\TEMENT, EXEC
3.97-3.96,3.116
ST1\TEMEN'l', FOLLOWIN:; TRANSACT MACRO
3.25
STATEMEN'l', IMSACB DD
3.23
STATE'IENT, IMSGEN
3.97,5.66,5.87,5.97
ST!\.TEMENT, INDIVTDOAL TRANSACT MACRO
3.25
STATEMENT, LINEGRP
3.37,5.97
ST1\TEMENT, LINFGRP MA~O
3.35
STATE'IENT, LONGEST PhSSWORD
4.3
STATEMEN'l', riACRO
3.27
ST1\TEMENT, MSGQUEUE MA.CRO
3.50
STA.TEMENT, ONE LINE
3.33,3.35
Sr1\TF'lErlT, PRECEDING LINE
3.49-3.50
ST1\TEMEN"', READER PROCEOORE IEFPDSI DD
3.98
Sr1\TE~ErlT, REFERENCED TERMINA.L
3.52
ST!\.TEMEN'l', SECOND rERMINAL
3.46
STl\TE'IENT, SPAREI'.
3.67

!\..6

ST1\TEMENT, STEPLIB JOB CONTROL LANGUAGE
5.100
ST1\TE.'1ENT, SYSLIB on
3.76
ST!\'TE~ENT, TR~NSA.CT M1\CRO
3.12
ST!\'TEMENTS, COMPIL1\TION OF THE CONTROL
3.76
ST1\TE~ENTS, CONT!l.INS A.SSEMBLER
4.9
Sr1\TEMENTS, CONTA.INS LINKAGE EDITOR CONTROL
STA.TE~ENTS, CONTROL
4.2,4.6,2
ST!\'TEMENTS, CONTROL CARD
6.13
Sr1\TEMENTS, DO
3.106
STA.TEMENTS, JCL
6.13
STA.TEMENTS, JOB CONTROL LANGUAGE
2.3
STATEMENTS, LANGUAGE
2. 1
ST!\'TE~ENTS, LIST OF CONTROL
3.19
STA.TEMENTS, LTERH
3.52
ST!\'TEMENTS, NAME Ml\CRO
3.55
STATEMENTS, NUMBER OF NAME
3.58
ST!\'TEMENTS, OPTION
2,5
STA.TEMENTS, POOL
3.60
ST1\TEMENTS, PROCEDURE CONT!\.INS DD
6.111
3.121,3.133,3.175
ST!\'TEMENTS, PUNCH
STATEMENTS, SECURITY M~INTENANCE INPUT
4.9
STATEMENTS, SPECIFIC LOGICAL TERMINALS INPUT
ST1\TEMENTS, SUBPOOL
3.60
ST1\TEMENTS, TRANS!\.cr
3.56
Sr1\TEMENTS, USER ADDS DO
3.99-3.100
ST!\'TEMENTS, USER MUST ADD DD
3.1011
STATE~ENTS, 2265 TERMIN!\'L
3.36
ST1\TION
3.6
STATISTICS
1.3,5.97
STATISTICS, A.CCUMULAJ'E ERROR
3.69
STATISTICS, USER-WRITTEN
5.122
STATUS CHANGES
4. t
ST!\.TUS OF A pHYSIC~L TERMINAL
4.5
ST!\'TUS, !\.UTHORIZED SUBSYSl'EM
3.88
STEP !\.CCOUNTING
3.20
STEP EXEC MFDBLO~D
6. 14
STEPS, STAGE I I A.SSEMBLY
3.22
STEPS, SYSTEM DEFINITION JOB
3.75
STOP, INTERMFDIATE CA.RRI1\GE
3.47
STOP AFT
11,6-9
SrOR1\GE
2.2,2.4,3.4,3.111,3.66,3.104,5.100,9
STORAGE ALLOCATION
3.73
STOR!\.GE AVAIL~BILITY
3.13
STOR!l.GE AVAIL!\'BLE
3.2
SrORAGE !\'VAIL~BLE, A.MOUNT OF MAIN
3.13
STORlIGE BUFFER POOL SIZES
3.15
STORAGE DEVICES
6.1
STORAr;E DUMP !\.S MFBP
3.106
STORA.GE SPACE
3.69
STORA.GE SPAS
3.14-3.15
STOR1\GE SPAS DETERMINES, NUMBER OF MAIN
3.U
STORAGE, CORE
3.25,5.100
STOR1\GE, DISK
3.2
STOR1\GE, LEAST 128K
3.3
STORA.GE, RANDOMIZING MODULE
5.100
STORlIGE, SECONDARY
3. 1
STRE!\.M, STAGE 1 INPUT
3.19
STRUCTURE, SYSTEMS EQUIPMENT
6.1
SUBJECT OF SYSTEM DEFINITION
3.1
SUBLIST
3.51

SOBPA.RA.~ETER

3.47- 3.48
SUFlPAR1\METER OF THE VOLUME KEYWORD, CooNT
3.73
SUBPOOL Mll.CRO-INSTRUCTION
3.55-3.57
SUB POOL M!\'CROS
3.55
SUB POOL STArEMENTS J
3.58
SUBPOOL 0 CORE
3.105
SUBPOOL 252
3.13
SOBPOOLS
3.1,3.9,3.30,3.55
SUBPooLS, DELIMITS
3.9
SOBSEQUENT BLOCKS
9
SUBSEQUENT REQUES!S
3.28
SOBSEQUENT TIME
3.75
SUBSET
3.4,6.5
SOBSET OF THE COMM!l.ND LANGUAGE
4.6
. SUBSTRUCTURE
6. 5
SUFFIX CHA.RACTER
3. 21
SUFFIX, CHANNEL/ABNORMAL END APPENDAGE
3. 13
SUMMll.RY OF THE FE!\.TGROUP SPECIFICATIONS
3.121
SUPERVISOR CALLS
3.3
SOPERVISOR, OVERLA.Y
3.25,3.110
SUPPLIED OUTPUT EDIT MODULE MAKES
5.92
SUPPLIED TRANSLA.TE
5.97
SUPPLIED, OPTIONl\.LLY
5. 11
SOpPLIES, DURING SYSTEM DEFINITION IMS/360
5.87
SUPPORT, CONVERSATIONAL
3.12
SUPPORT, DI~L TELE:OMMUNICA.TION
3.55
SVC NUMBER, LOW-ORDER DIGIT OF THE
3.65
SITC NUMBERS
3.5,3.13,3.83-3.64
SVC ROUTINES, INCORPOR1\TION OF THE
3.64
SVC, 1\V1\ILA.BLE USER
6.10
SITC, ONE TYPE 2 CONTROL
3.3
SITC, OS1\M
3.66
SVC, TYPE 1
2.10,3.13,3.84
SITC, TYPE 1 INTERREGION COMMUNICATION
3.3
SVC, TYPE 2
3.13,3.84
SITC, TYPE II
3.13,3.611,3.66,6.10
SVC, TYPE 4 USER
2.10
SITCN::l
3.13,6.12
SVCS
2.9~2.10,3.3,3.63-3.64
SITCS, RESIDErlT
3.64
SVCT!\.BLE
3.64
SW!TCH CHA.R1\CTERS
5.44
SWITCHED
3.30,3.36
SWITCHED COMMUNICATION LINE
3.40,3.55
SWITCHED COMMUNICATION LINES, SET OF
3.55
SNITCHED 27111 LINE GROUPS
3.33
SWITCHED 7770 LINE GROOP
3.311
SNITCHES BFPLCPCT
5.98
SWITCHING, VOWME
3.73
SilRKIN
3.117
SWRKOUT
3. 117
SYMBOLIC
2.11
SYMBOLIC PARAMETERS DESIGNA.TE
6.14
SYNONYMS
3.6,5.104,5.117
SYSGO
3.99,3.114-3.115,4.10-4.11
SYSIN
3.112,3.115- 3.116,4.9-4.10,6.12-6.14
SYSIN DA.TA STREAM
3.73
SYSIN, USE OF
3.73
SYSLIB
3.99,3.1011,3.106-3.109,
1.14 3.111-3.112,3.114,6.12-6.13

SYSL'''OD
3.84,3.88,3.99,3.108-3.109,3.1 H ,4. 1 1
SYSL'''OD DATA SETS
3.88
SYSLMOD DO DSNAME
6. 12- 6.13
SYSLMOD, INCLUDE
3.87
SYS:>8J'
6.12- 6.13
SYSOUT CLASS
3.99
SYSOUT DATA SET
3.97
SYSOUT DATA SET ALLOCATION
3.72
SYSOUT LINE GROUPS
3.120
SYSOUT, SYSPRINT DO
6.9,6.12-5.13
SYSOUT, SYSPUNCH DO
6.12
SYSOUT, SYSUDUMP DO
10
SYSPRINT
2.2-2.5,3.115,4.9-4.10,3
SYSPRINT DATA SET
5,8
SYSPUNCH
4.9-4.10
SYSTFM CHECKPOINI' RECORDS
4.2
SYSTEM CONFIGURATION
3.10
SYSTEM CONTENTS DIRECTORY
5.42
SYSTEM DEFINITION EXAMPLE SUMMARY
3.121-3.122
SYSTEM DEFIlIInON RESOURCE LIMITATIONS
3.57
SYSTEM DEFINITION UTILITY PROVIDES
3.4
SYSTEM NUCLEUS
3. 85
SYSTEM PROGRMIMER
1.1
SYSTEM PROGRAMMER GUIDE
3.83
SYSTEM PROVIDES BATCH PROCESSING ONLY
2.1
SYSTEM UTILIZES THREE SUPERVISOR CALL
3.83
SYSTEM, BATCH
3.84
SYSTEM, GENERATED
3. 13
SYSTEM, GENERATED IMS/360
3.13,4.1
SYSTEM, GENERATING
3.66
SYSTEM, IMSCTRL
3.12
SYS'l"EM, IQF/IMS
2.5
SYSTEM, MFT
3.105
SYSTEM, MVT
3.87
SYSTEM, ::>NLINE
3.98,3.107,6.11
SYSTEM, OPERATING
3.4,3.11
SYSTEM, UTILITY
3.97
S~TEM, 2770 DATA COMMUNICATION
3.48
SYSTEMS, PRODUCT DATA
6.1 .
SYSUDUMP
3 • 32
SYSUT1, DE:FAULT NAME OF
SYS1.CI505
3.88
SYS 1 .COBLIB
3.108-3.109,3.111-3.112,6.12-6.13
SYS1. LINKLIB
2.10,3.3,3.69,3.68,3.83,
3.86-3.89,5.100,6.9,6.11
SYS1. LINKLIB IMS2.ACBLIB
3.69
SYS1.LINKr.IB IMS2.DBDLIB
3.69
SYS1. LINKLIB IMS2. PGMLIB
3.67
SYS1.LINKLIB IMS2.PROCLIB
3.67
SYS1 • LINKLIB RESPECTIVELY
2.1,2.3,2.5
SYS1.LINKLIB, LNKLSTOO
3.86
SYS1.MACLIB
2.1,2.3,2.5,3.103,6.9
SYS1.NUCLEUS
3.85
SYS1.PARMLIB
3.83
SYS1.PARMLIB, LINKLSTOO MEMBER OF
3.88
SYS1. PARMLIB, LNKLSTOO MEMBER OF
3.78
SYS 1. PL1LIB
3.108- 3.109,3.111-3.112
SYS1. PROCLIB 2.10,3.79,3.83,3.87,3.98,3.113,6.9,6.11
SYS1.S0RTLIB
3.117- 3.1 1 8
SYS1.SVCLIB
2.9-2.10,3.3,3.68,3.78,

3. 83- 3. 86, 3. 89, 6. 1 0
TABLE, USER-SUPPLIED OUTPUT TRANSLATE
5.96
TABS, NUMBER OF
3.47
TAPE BLOCKS
3.73
TAPE DRIVE
3.73
TAPE INCLUDES THREE DATA SETS
2.1,2.3
TAPE MEDIA
3.51
TAPE MOVE DESCRIBED
6.7
TAPE PUNCH
3.46
TAPE USING
2.1
TAPE, DISTRIBUTION
2.6
"'APE, HANDLING
3.49
TAPE, IQF FEATURE DISTRIBUTION
2.5
TAPE, LOG
5.1,9
TAPE, MAGNETIC
4.9- 4. 11
TAPE, SEVEN-TRACK
2.3.2.5-2.6
TAPE, SYSTEM DISTRIBUTION
2.1
TAPE, 1600-BPI
3.66
TAPE, 1600-BPI MAGNETIC
2.1
TAPE, BOO-BPI MAGNETIC
2.1
TAPES, BETWEEN PTF
2.11
TAPES, NINE-TRACK
2.1-2.2,2.4,2.6,6.15
TAPES, PTF
2.10-2.11
TASK, SYSTEM
3.87
TECHNIQUE
3.84,5.119,9
TECHNIQUE, ADD
5.119
TECHNIQUE, LATTER
5.119
TEDITS
3.59
TELECOMMUNICATIONS
6.10
TELEPROCESSING
3.77
TELEPROCESSING 1030 LINE
3.91
TELETYPEWRITER, 33/35
3.46
TERMINAL ACTION
3.45
TE:RMINAL ADDR
3.53
TERMINAL ADDRESS
3.44
TERMINAL ADDRESS CHARACTER
5.125
TERMINAL ALLOCATION
3.96
TERMINAL BUFFER EXPANSION FEATURE,
SPECIFICATION OF THE
3.117
TERMINAL CODE
3.44
TERMINAL COMMAND
3.79
TERMIN~L COMPONENT SPECIFICATIONS
3.4
TERMHAL CONVERSATImr CAPA'3ILITIES
3.4
TERMINAL CONVERSATION FEATURE SYSTEM DEFINITION
3.93
TERMINAL CONVERSATIONS
3.14
TERMINAL DEVICE
3.70
TERMINAL DEVICE: ALLOC!l.TION GENERATED WITHIN
3.96
':'ERMINAL DEVICE TYPE
3.33
TERMINAL FEATrJR E
3.37
TERMINAL I/O REQUESTS, MAXIMUM NUMBER OF
3.11
TERMINAL INPUT
6.19
TERMINAL LABEL
3.51
TERMINAL LOCKS
3.1
TERMINAL MACRO
3.40,3.52
TERMINAL MACRO STATEc'1ENT
3.114
TERMINAL MACRO-INSTRucrrON
3.35,3.40,3.56-3.57
TERMINAL MAP
4.4
"'ERMINAL MODEL
3.47
TERMINAL MODEL NUMBER
3.47
TE~MINAL MODEL NUMBER SPECIFIED
3.47

TERMINAL NAME COMMAND
4.6
TERMINAL NAMES
3.8
TERMINAL OFFSET LIST
4.7
TERMINAL OPERANDS
6.10
TERMINAL OPERATION
5.2
TERMINAL OPERATOR
3.45,5.97,6.16-6.19
TERMINAL OUTPUT BUFFER SIZE
3.47
TERMINAL P1\GING FEATURE
3.21
TERMINAL SEClJRITY
4.1,4.6,4.11
TERMINAL SECURITY MAIN'"ENANCE
4.2
TERMINAL SEClJRITY REQUIREMENTS
4.2
TERMINAL SECURITY, CURRENT STATUS OF
4.2
TERMIrlAL SECURITY, MINIMUM SUBSET OF
4.1
TERMINAL SECURITY, RESTRICTIONS OF
3.40
TERMINAL STATEMENT
3.8,3.44-3.46
TERMINAL STATUS CH!'.NGES IMS/360 PASSWORD
4.1
TERMINAL STATUS INFORMATION
5.123
TERMINAL TYPE
3.46
TERMINAL USER
6. 18
TERMINAL-RELATED FUNCTIONS INHERENT
5.123
TERMINAL, ADDITIONAL
3.12
!'ERMINAL, ALTMAST
4.14,5.1
TERMINAL, C1\LLING
5.64
TERMINAL, CO!>\MUNICATION
3.30
TE~MINAL, DEFINED PHYSICAL
3.51
TERMINAL, DESTINATIO~
5.20
TERMINAL, ENTERING
5. 1
TERMINAL, GIITEN PHYSICAL
3.55
TERMIN1\L, IMS/360
5.123
TERMINAL, I~S/360 CO~:.IUNICATION
5.3
TERMINAL, IMS/360 MASTER
3.51,3.53
TERMINAL, INPUT
3.27,5.41
TERMINAL, INPU!' LOGICAL
5.11
TERMINAL, INPUT-ONLY
3.46,3.51
TERMINAL, INPUT/OUTPUT LOGICAL
3.110
TERMINAL, INPUTTIN:;
3.28,5.123
TERMINAL, LEDGER
4.14
TERMINAL, MAINT
4.14,5.1
TERMINAL, MASTER
3.51,4.6,4.12-4.13,6.10
TERMINAL, MAXIMUM NUMBER OF
3.60
TERMINAL, OUTPUT
3.52,5.11
TERMINAL, OUTPUT-ONLY LOGIC1\L
3.52
TERMINAL, 001'1033
3.53
TERMINAL, PARTICULAR
3.1
TERMINAL, PHYSICAL 1033
3.52
TERMINAL, QTY
4.13
TERMINAL, REPEAT LIGHT OF THE
5.44
TERMINAL, SPECIFIC LOGICAL
4.5
TERMINAL, STATION CONTROL PHYSICAL
3.51
TERMINAL, SUBASSY
4.14
TERMINAL, SWITCHED PHYSICAL
3.8
TERMINAL, SYMBOLIC INPUT
2,9
TERMINAL, TWX
3.47
TERMINAL, USE OF A COMMAND
4.5
TERMINAL, VALID LOGICAL
11.3
TERMINAL, 1030
5.1,5.41
TERMINAL, 2260
3.38,3.120
TERMINAL, 2741
3.46
'T'ERMINAL, 2980 LOGICAL
5.123
TERMINAL, 3270 LOCAL
3.48

TERMINAL, 3275
3.44-3.45,3.48-3.49,3.51-3.52,3.120
TERMINAL, 3286 PRINTER
3.120
!'ERMIN!l.LS
4.14,5.1,5.11,5.20-5.21,5.41-5.45,5.65,5.86, 5. 92,6.15, 9
TERMINALS, DELIMITS
3.8
TERMINALS, LINES CONTAINING 3277
3.36
TERMINALS, NUMBER OF
3.2,3.58,5.45
TERMINALS, PHYSIC1\L
3.1,3.30,3.40,3.44,3.51,
3.96,5.1,5.3,5.20-5.21,6.10
TERMINALS, PHYSICAL CHARACTERIS'IICS OF
3.45
TERMINALS, READER
3.45
TERMINALS, USER
6.1,6.15
TERMINALS, 1035
3.44
TERMINALS, 1050
3.48
TERMINALS, 2265
3.21,3.38,3.44-3.45,3.120
TERMINALS, 2740 MODEL 1
3.120
TERMINALS, 2740 MODEL 1 NON-STATION-CONTROL
3.45
TERMINALS, 2740 MODEL 2
3.36,3.49,3.120
TERMINALS, 2770
3.48,3.51,3.50
TERMINALS, 2780
3.48
TERMINALS, 2980
3.52
TERM!~ALS, 3277
3.47-3.48
TERMItTALS, 3286
3.48
TERMIN!\LS, 33/35 TWX
3.28
TERMINALS, 7770 -3
3.33
TERMINATE INPUT EDIT CONTROL
5.88
TEST
3.104-3.106
TEXT OF THE USER-EDITED MESSAGE SE:GMENT
5.3
TEXT T E R
5.124
TEXTPASS
3. 103
TIME DSEQ
5.122
TIME, EXPECTED PER-TRANSACTION EXECUTION
3.28
TIME, INITIAL CREATION
3.117
TIME, PROGRlI,M-TRANSACTION EXECUTION
3.28
TIME, SYSTEM DEFIlIITION
3.40
TOUCH-TONE
3.37,5.87
TP
3.24-3.25,3.78
TPDP
3.104-3.105
TRANS
3.5q
TR1\NS OPERAND, SPECIFIED VALUE OF THE
3.59
TRANSACT
3.7,3.25-3.27,4.2-4.6,4.13-4.14,6.10
TF1\NSACT MACRO-INSTRUCTIONS
3.4,3.24
TRANSACT MACRO-STA!'EMENTS
3.25
TRANSACT MACRO, TJSE OF THE EDIT OPERAND OF THE 3.56
TRANSACTION
3.29,4.1,11.6,5.1-5.2,5.85,6.5,
6. 16, 6. 17,6. 18- 6.19,9
'T'RANSACTION CARD FORMAT COLUMN
5.44
TRANSACTION CODE CLASS
3.12,3.25,3.27
TR1\NSACTION CODE CONTENDS
3.26
TRANSACTION CODE DLETP!\RT
6.18
TRI'.NSACTION CODE EDIT ROUTINE ALLOWS
5.4
T!tANSACTION CODE VALIDITY
5.2
TRANSACTION CODE, ASSOCIATION OF
3.4
TR!l.NSACTION CODE, EXAMPLE OF
5.4-5.5
TRANSACTION CODE, VALUES OF THE
5.43
TRANSACTION CODES TERMINAL SECURITY CHANGES
4.2
'T'~1\NSACTION CODES, DELETION OF
2. 11
1'RllliSACTION CODES, FIRST CHARACTER OF
3.26
TRANSACTION EDIT ROUTINES E. NUMBER OF
3.58
TRANSl\CTION EDIT ROUTINES, MAXIMUM NUMBER OF
3.59
1.15 TR1\NSACTION INPUT EDIT ROUTINE,

USERS, IOF
2.11
USERS, LICENSED
2.10-2.11
USING
10
UTDB!)
3.117
UTILITIES REFERENCE MA~UAL,
IMS/3 60 RFLATIONSHIP OF MANUl\LS
1.2
UTILJrY
2.3,2.5,3.19-3.20,1
UTILITY BLOCK
5.101
UTILITY TYP~
3.67
UTILITY WRITTEN
3.3
UTILITY, FIRST STAGE OF THF
3.3
UTIL ITY, SECURITY MAINTENANCE
4.8
UTILITY, USE OF THE SECURITY Mll.INTENANCE
3.1
UTILIZES
3.71
UTRM
6.1
UTSPL
3.117
VALIDITY CHECK
3.100,4.8
VALIDITY CHECKING
5.41,5.64
VALUE
3.11-3.13,3.36,3.50,5.99,5.103,5,9
VALUE, ARITHMETIC
5.101
VALUE, BI NARY
5. 117
VALUE, ENTERED
3.21,3.39
VALUE, FIELD
5.119
VALUE, KEY
5.104
VALUE, MINIMUM
3.11
VALUE, MINIMUM ACC';;PTASLE
3.36
VALUES, EIGHT-CHARACTE~ ALPHAMERIC
5.101
VALUES, UNIQUE
3.36
VARIABLES
3.1,3.10,1
VB
3.72,3
VBA
3.106,3.109,3.111-3.112,3.115,4.9
VB'1
3.72-3.73
VBS
3.99-3.100,3.104,3.108,3.112,3
VERB, COMMAND LANGUAGE
4.3-4.4
VERBS
4 • 1 , 4. 5
VERBS, COMMAND
4.2,5.1,5.41
VERIFY, 2721
5.87
VERSION
3.76,6.1
VIDEO
3.44,3.49
VIDED COMPONENT SCREEN SIZE
3.47
VIDEO-DEVICE
3.21
VIDED-PAGING
3.21
'1M
3.72-3.73
VOKCHK
3.43,3.50
VDL
3 •. 74,3.88,3.99-3.100,3.104,3.108-3.109,3.112
3.114,6.9,8-9
VOLUME
5.3
VPPERS
4.6
VS/l
3.10
VS/2
3.10
VS/2 SYST~M
3.3
VS1
3.87,3.89,3.98,3.105
VS2
3.89
VS2 SYSTEM
3.3
WAITING
3.26-3.21
~KAP
3.104-3.105
WLA
3.38,3.40,3.47,3.53
\fDRD EOF
4
WRITE-CItECKING
6. 15
WRITTEN, RECORDS
3.72

WTOR
3.51
XREF
3.19,6.12
XREF INCLUDES
3.19
XREF, PRINT OPTION
3.19
ZERO CONTENT
5.119
ZERO LENGTH SIGNIFIES
5.124
ZERO, LENGTH OF
5.41,5.45
ZERO, LIMIT PRIORITY VALUE OF
3.25
ZERO, NON
3.104
ZERO, QUOTIENT OF
5.117
ZERDS DLDGCDDE
5.122
00, RETURN CD DES
5.65
1030
3.30,3.33,3.35-3.36,3.56
1030 AUTOPOLL
3.32
1030 COMMUNICATION SYSTEM
5.1
1030 EDIT ROUTINE MAY LOOK
5.41
1030 LINES
3.36-3.37,3.42,3.45,3.52
1030 NONS WITCHED LINE GROUP
3.120
1030 SUPPORT
5.43
1031
3.42,3.44,5.41,5.43-5.44
1031 LINE
3.54
1031 NAME
3.54
1031, DEFINE MULTIPLE
3.44
1033
3.42,3.45,3.52,5.2,5.43
1035
3.44,5.41
1050
3.5,3.27,3.30,3.48,3.51,3.54,3.130
1050 CONTROL
3.5
1050 FEAT
3.32
1050 LINE
3.43,3.46,3.54
1050 LINE GROUP
3.55
1050 NJNSWITCHED LINE GROUP
3.120
1050 SWITCHED LINE GROUP
3.120
1050 TERMINALS ONLY
3.27
1050 2740 2741 FEAT
3.32
1050A
3.54
1052
3.43,3.45
1053
3.38,3.40,3.43,3.45-3.46,3.49,6.17-6.19
1053 NAME
3.53
1053 PARAMETER CAN NOT
3.38
1053 PRINTER
3.120
1057
3.54,6.16
2260
3.21,3.30,3.33-3.34,3.38,3.40,3.44-3.45
2260 DISPLAY STATION
6.10
2260 LINE
3.53
2260 LINE GROUPS
3.39,3.45
2260 LOCAL
3.35
2260 LOCAL.MODE
3.36,3.45
2260 REMOTE
3.34,3.40
2260 REMOTE LINES USE CONVENTIONAL
3.32
2260 REMOTE MODE
3;38
2260 TERMINAL CONFIGURATION
3.54
2260S
3.32,3.53
2265
3. 30, 3. 33, 3.40, 3 • 44- 3 .45 ,3 .47
2265 DISPLAY STATION, PRESENCE OF A
3.49
2265 LINE
3.40
2265 LINE GRDUPS
3.48
2301
3.17
2303
3.11
2305
3.17
2311
2.1-2.6,3.17,6.8-6.9,6.12-6.14

NAME OF A USER-SUPPLIED
3.29
TR1\.NS1\.CTION TR1I.NSACT, USE OF A
4 .5
TRANSACTION, CONVERSArIONAL
3.14,3.29,5.2
TRANSACTION, 01 SBURSE~ENT
6.18
TR1\.NS1\.CTION, NAMES
3.7
TRANS!\CTION, RESPONSE-TYPE
3.27
TRANS1\.CTION, SECOND
6.16
TRANSACTION, SINGLE
3.27
TR1\.NSACTIONS, BATCH ONLINE
3.1
TRANS!\CTIONS, BMP
3.28
TRANS1\.CTIONS, HIGHER PRIORITY
3.28
TRANSACTIONS, IQF
3.29
TR1\.NSACTIONS, MULTIPLE-MODE
3.70
TRANS1\.CTIONS, SAMPLE PROBLEM
6.6
TRANSACTIONS, SINGLE-MOD~
3.70
TRANSACTIONS, TYPES OF
3.2,5.2
TR1I.NSC
3.32
TRANSLATE TABLES
3.75,5.92
TRANSLATION
3.32,5.2
TRANSLATION, NO
5.65
TRANSMISSION
3.52
TRANS'IISSION CODE, USE OF THE
3.33
TRANSMISSION OF BACKSPACES
5.1
Til'l{
3.30,3. 113,3.46
TWX SWITCHED LINE GROUP
3.120
TNl{, ALLOWABLE VALUES
3.32
TXTPASS
3.103
TYPE 4 SVC MDDIJLE N!\~ES
3.85
TYPE, SYSTEM RESOURCE
3.56
TYPES, 1\.LL TERMINAL
3.40
TYPES, COMMUNCIATIDN TERMINAL
5.20
UNIT-2311
2.6
UNIT, CONTROL
3.8,3.40,3.39
UNIT, MANUAL ENTRY
5.43
UNIT, SIDCOl DO
6.9
UNIT, SYSOUT
3.113
UNIT, 270l{ COMMUNICATION TRANSMISSION CONTROL
3.36
UNIT, 270X OAT1\. AD1\.PTER
3.33
UNIT, 2712 MULTI-PURPOSE CONTROL
3.52
UNIT, 2845 CONTRDL
3.45
UNIT, 3277 DISPLAY
3.45
UNITS, ATTACHIt;G
3.48
UNITS, I/O
3.2
UNITS, 255 NUMBER DF CDNTROL
3.61
UNITS, 2848 CONTROL
3.38-3.39
UNITS, 2972 CONTROL
3.38
UNITS, 3211 CONTROL
3.38-3.39,3. 117
UNITYPE
3.30,3.32-3.35,3.37,3.52-3.54
UNLOADED PARTITIONED DATA SElS
3.66
UNLOCK
4.4-4.5
UNPLAN~ED
6.18
UPDATE CD~PLETED
6.18
UPDATE SECURITY TABLES
4.8
UPDATES
2.11,3.115,4.8,6.18,11
UPDATES, PTF TAPE CONTAINS SYMBOLIC
2.10-2.11
UPDATES, SOURCE LIBRARY
2.11
UPDATES, SOURCE SYMBDLIC
2.11
UPPERCASE/LOWERCASE
3.29
USAGE, SYSTEM
3.14
USASCII
3.32

USE OF THE START
3.3
USED BUFFER BFPLBWDB
5.98
US ED BUFFER BFPLQCB
5. 98
USER I\DDRESSES
3.52
USER CALL OOS1\I01
5.122
USER CALL LISl'
3.100,3.107,3.110
USER CAN ALSO SPECIFY
5.20
USER CAN SPECIFY
2.9-2.10
USER CHODSES
3.2
USER CONTROL
3.24
USER DEFINED FMT/MSG DESCRIPTOR
3.73
USER DEFINES
3. 14
USER DEFINES IMS RE3IDN TYPE
3.116
USER DESIRES
4.11
USER DISCRETIDN
5.91
USF.R EDIT
5.85
USER EDIT FUNCTIDN
5.2
USER EDIT ROUTINE EXITS
5.1
USER ENVIRONMENT
3.69,6.15
USER GENERATES
3. 66
USER IMS/360 DI\T1\. B!\SES
3.119
USER IMS/360 SYSTEM
4.3
USER INPUT EDIT EXIT
5.85
USER OF THE SAMPLE
6. 10
USER OPERATING ENVIRON~ENT
3.68
USER OPTION
4.2
USER OUTPUT TRANSLATE TI\BLE
5.97
USER OUTPUT TRANSLATE TABLE INCLUSION
5.97
USER OUTPUT TRANSLATE TABLE LISTING
5.97
USER PCBS
3.107,3.110
USER PROGRM SPECIFICATION BLOCKS
3.67
USER RECEIVES
2.1
USER REQUIREMENTS
3.68
USER RESOURCES, DESCRIPTION OF
3.6
USER RESPONSIBILITY
3.85-3.86,5.65-5.66,5.92-5.93
USER ROUTINE SHOULD VALIDITY CHECK
5.64
USER ROUTINES REFERS
3.56
USER ROUTINES, MAXIMUM NUMBER OF
3.60
USER SPECIFICATIONS
3.3
USER SPECIFIED MACLIB
3.97
USER SPECIFIED PRD:EDURE LIBRARY
3.75
USER SPIE
3.100,3.107,3.110
USER STRUCTURES IMS/360
3.1
USER SUPERVISOR CALLS
2.9
USER SUPPLIES INFORMATION DETERMINING
3.5
USER SYSTEM
3.14,3.21,3.23,3.29,5.11
USER SYSTEM CONFIGURATIDN
6.13
USER SYSTEM DEFINITION SOURCE DECKS
3.15
USER SYSTEM RESIDENCE LIBRARY
3.5
USER SYSTEW370
6.10
USER TELECOMMUNICATIDNS SYSTEM
3.30
USER TRANSLATE
5.92
USER-SPECIFIABLE
2.1,2.5-2.6
USER-WRITTEN MODULES, INCORPORATION OF
3.4
USER, IMS/360
3.89,4.1,5.2,5.97,5.100,6.10
USER, IMS/360 SYSTEM
3.2,3.84,5.104
USER, SYSTEM
3.3,3.16,3.21,6.12,6.15,6.11
USERLIB
3.19,3.21,5.41,5.43
USERS INSTALLATION
3
1.16 USERS, IMS
3.4

2311 CnINDER
6.15
2314
2.1,2.5-2.6,3.17-3.18,3.69,3.88
23111 ::nINDERS
3.72,6.15
2314 SPACE, ABOUT 10 CYLINDERS OF
3.69
23111 SIiACE, ABOUT 5 CYLINDERS OF
3.69
23111 SPACE, 10 CYLINDERS OF
3.69
23111 TRACK
3.70
2400
3.99-3.100,3.104,3.108,3.112,8-9
2400-4
2.2,2.4,2.6
2400-4, GENERIC NA'IE
2.1,2.5-2.6
270)(
3.33
27110
3.30,3.32,3.44,3.51,3.55,3.120,6.10
2740 LINE
3.37,3.53,6.12
2740 LINEGRP
3.36
2740 LINES ONLY
3.35
2740 MODEL 1 NON-STATION-CONTROL
3.40
2740 MODEL 2 LINES
3.113,3.49
2740 N'JN-STATION
3.27,3.125-3.129
2740 S~ITCIIED LINE GROUP
3.120
27111
3.28,3.30,3.32,3.40,3.44,3.120
27111 LINE
3.27,3.33,3.43
2741 LINE GROUPS
3.46
27111 S~ITCHED LINE GROUPS
3.120
2770
3.30,3.33,3.45,3.48,3.51,3.120
2770 DATA COMMUNICATION SYSTEM
3.49
2770 LINE
3.32,3.44,3.51
2770 LINE GROUPS
3.33,3.117
2770 LINES ONLY
3.35,3.37
2770 TERMINAL MEDIA
3.52
2770 USERS ALSO
5.1
2780
3.30,3.34,3.48,3.51,3.131
2780 LINE
3.33,3.43
2780 LINE GROUPS
3.33-3.311,3.51
2845
3.40
2848
3.39,3.53
2972
3.38
2980
3.30,3.38,3.51,3.56,5.1,5.123
2980 LINE
3.44
2980 LINE GROUPS
3.38-3.39,3.47
2980 LINES ONLY
3.37
2980 MODEL NUMBER
3.117
2980 NONSWITCHED LINE GROUP
3.120
2980 TELLER
5.123
3270 3.16,3.30,3.33,3.35-3.36,3.40,3.44-3.45,3.49
3270 DEVICES
3.21
3270 DISPLAY UNITS MAY NOT
3.45
3270 LINE
3.33,3.51
3270 LINE GROUP
3.38,3.45,3.47,3.120
3270 LOCAL
3.35-3.36
3270 LOCAL LINE
3.40
3270 REMOTE
3.32- 3.33,3.38,3.42,3.120
3270 REMOTE LINE GROUP
3.45,3.48
3270 REMOTE LINES
3.119
3271
3.44
3271 CONTROL UNIT SUPPORTING
3.120
3275
3.42,3.44,3.48
3275 TERMINAL COMPLEX
3.51
3275 TERMINAL WITHIN
3.52
3277
3.112,3.44
3284
3.41-3.112,3.45,3.117-3.119

32811, BUFFER SIZE OF THE
3.119
32811, LINES CONTAINING
3.36
3286
3.112,3.117-3.118
3286 TERMINAL BEING
3.119
3330
3.17
7770
3.28,3.30,3.32,3.34,3.36-3.37
7770 LINE
3.32,3.37,3.56
7770 LINE GROUP
3. 120
7770 3 LINES
3.13
7770-3
3.13,3.35,5.64,5.85,5.87,5.91-5.92
7770-3 ANSWERS
5.66
7770-3 CHANNEL/ABNORMAL
3.3,3.83,3.89
7770-3 LINE
3.27,3.37,3.83,5.611
7770-3 LINE GROUPS
3.33
7770-3 LINES ONLY
3.35
7770-3 READ/WRITE MODOLE DFSFCPYO
3.89
7770-3 SIGNON EXIT ROUTINE INCLUSION
5.65
7770-3 USER OUTPUT TRANSLATE TABLE
5.97
7770-3 170CA3ULARY, VARIABLE NATURE OF THE
5.92

1.17

SH20-0911-4

s:

en

'W
(j)
o

<

CD

Ul

0'
:::l

~I\l

en

<

~

CD

3
"tI

a

to

Cl

3
3
:;'
to

:D
CD

~

CD

:::l

C'l

CD

s:
Ql

:::l

c:
!!!..
~
~'
CD

a.

:;'

c

en
?>
en
:c
I\l
o
b

co
-"

International Business Machines Corporation
Data Processing Division
1133 Westchester Avenue. White Plains. New York 10604
(U.S.A. only)
IBM World Trade Corporation
821 United Nations Plaza. New York. New York 10017
(I nternational)

Reader's
Comment
Form

I MS/360 Version 2
System Program Reference Manual
SH20-0911-4

Your comments about this publication will help us to improve it for you.
Comment in the space below, giving specific page and paragraph references
whenever possible. All comments become the property of IBM.
Please do not use this form to ask technical questions about IBM systems and
programs or to request copies of publications. ·Rather, direct such questions or
requests to your local IBM representative.
If you would like a reply, please provide your name, job title, and business
address (induding ZIP code).

Name:
Job Title: _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ __
Address:

Zip ___________________

Fold on two lines, staple, and mail. No postage necessary if mailed in the U.S.A. (Elsewhere,
any IBM representative will be happy to forward your comments.) Thank you for your
cooperation.

SH20-rJ911-4

Your comments, please ...
This manual is part of a library that serves as a reference source for systems analysts,
programmers, and opera tors of IBM systems. Your commen ts on the other side of this
form will be carefully reviewed by the persons responsible for writing and publishing
this material. All comments and suggestionsbecome the property of IBM.
./'

, fold

fold

.......................................................................................
~

en

FIRST CLASS
PERMIT NO. 439
PALO ALTO
CA. 94301

W
C)
o

<
CD
iri

0'
:::l

~~

en

-<
III

....
CD

Business Reply Mail

3

"'tI

a

No postage stamp necessary if mailed in the U.S.A.

~

Ql

3
3

5'

Postage will be paid by:

(Q

::x:J
~
~

IBM Corporation
Department J04
1501 California Avenue
Palo Alto, California 94304

CD

:::l
C')

CD

~

Ql

:::l

c:

9:'..

................................................... ............................... .... .
'

"

fold

fold

en
:::c
~
o

6
(0
-'

International Business Machines Corporation
Data Processing Division
1133 Westchester Avenue, White Plains, New York 10604
(U.S.A. only)
IBM World Trade Corporation
821 United Nations Plaza, New York, New York 10017
(I nternational)



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                     : 2011:10:04 15:57:13-08:00
Modify Date                     : 2011:10:04 18:19:38-07:00
Metadata Date                   : 2011:10:04 18:19:38-07:00
Producer                        : Adobe Acrobat 9.46 Paper Capture Plug-in
Format                          : application/pdf
Document ID                     : uuid:decb08cd-7576-4a1d-9e74-434fae3d881c
Instance ID                     : uuid:d5c78df6-f79b-45c5-bac7-2471a3681105
Page Layout                     : SinglePage
Page Mode                       : UseNone
Page Count                      : 456
EXIF Metadata provided by EXIF.tools

Navigation menu