LY33 6034 0_CICS_VS_Version_1_Release_4.1_OS_VS_PLM_Jul79 0 CICS VS Version 1 Release 4.1 OS PLM Jul79
LY33-6034-0_CICS_VS_Version_1_Release_4.1_OS_VS_PLM_Jul79 LY33-6034-0_CICS_VS_Version_1_Release_4.1_OS_VS_PLM_Jul79
User Manual: LY33-6034-0_CICS_VS_Version_1_Release_4.1_OS_VS_PLM_Jul79
Open the PDF directly: View PDF 
.
Page Count: 1014
| Download | |
| Open PDF In Browser | View PDF |
Licensed Material - Property of IBM
LY33·6034·0
Customer Information
Control System/Virtual
Storage (CICS/VS)
Version 1, Release 4.1
Program Product
Program Logic:
Description (OS/VS)
Program Number
~740-XX1
(CICS/OS/VS)
LICENSED MATERIAL - PROPERTY OF IBM
First Edition (July 1979)
This edition applies to Version 1, Release 4, Modification 1 ~ersion
1.4.~ of the.IBM program product Customer Information Control
SystemjVirtual Storage (CICSjVS), program number 57110-XXl.
This edi~ion contains Sections 1,2, and 3 of the Version 1.11 CICS/yS
Program Logic (OSIYS), LY33-6029-1. Changes from that edition are
·indicated by vertical lines to the left of the changes.
Information in this publication is subject to change. Any such changes
will be published in new editions or. technical newsletters.
Before
using this publication, corisult the latest IBM System/370 Bibliography,
GC20-0001, to learn which editions and technical newsletters are
applicable and current.
A form for readers' comments is provided at the back of this
publication. If the form has been removed, comments may be addressed to
IBM United Kingdom Laboratories Ltd., Technical Documentation
Department, Hursley Park, Winchester, Hampshire, S021 2JN, England. IBM
may use or distribute any of the information you supply in any way it
believes appropriate without incurring any obligation whatever.. You
may, of course, continue to use the information you supply.
Publications are not stocked at the address given above. ,i{equests for
copies of IBM publications should be made to the IBM branch office
serving your locality.
e Copyright International Business Machines Corporation 1979
,/
LICENSED MATERIAL - PROPERTY OF IBM
PREFACE
The CICS/OS/yS Program Logic, LY33-6029 has been split into two separate
manuals. This manual, the CICS/OS/yS Program Logic: Description
contains three major sections from the CICS/OSIYS Program Logic. These
sections are "Introduction", nMethod of Operation A, and AProgram
Organization". The other half of the split CICS/OSIYS Program Logic,
named the CICS/OSIYS Program Logic: Data Areas, contains the "Directory·
and "Data Areas· sections. The original section on "Diagnostic Aids· has
been dropped as the information previously in this section is now fully
documented in the CICSIYS Problem Determination Guide, SC33-0089.
This publication provides logic information for programming support
representatives and system programmers who maintain the IBM Customer
Information Control SystemjVirtual Storage in an OSjVS environment. It
describes CICSjOSjVS. When used with CICSjOSjVS source-program listings
and CICS/OS/yS Program Logic: Data Areas, this book enables you to
understand the internal operation of CICSjOSjVS. The two program logic
manuals do not replace the program listings; they supplement them and
make the information in them more accessible.
The major parts of this book are:
•
"Introduction,· which contains general information about CICSjOSjVS
services and overall operation
•
nMethod of Operation,· which contains Hierarchy Input Process
Output ~IP~ diagrams that describe CICSjOSjVS in terms of the
functions it performs
•
·Program Organization,· which describes CICSjOSjVS in terms of its
parts ~hich, in CICSjOSjVS, are source modules) ; an interface
diagram is given for each of the main parts of CICSjOSjVS
•
"Bibliography,· which identifies other CICSjOSjVS publications and
additional IBM publications of use to you when working with
CICSjOSjVS
Note: In this publication, the term VTAM refers exclusively to the
program product ACFjVTAM, program number 5735-RC2.
Preface
iii
LICENSED MATERIAL - PROPERTY OF IBM
TABLE OF CONTENTS
SECTION~:
INTRODUCTION.
USing the Program Logic Manual •
Purpose and Functions
Environmental Characteristics
System Configuration
CICS/VS Interfaces
Access Methods
Physical Characteristics
CICSjVS Address Space
Subpool Allocation of Dynamic Storage
Data Sets
CICSjVS Data Sets
User Data Sets
Operational Considerations
System Generation
Preparation of CICSjVS Tables
CICS/VS Intialization
CICSjVS Processing
Asynchronous Transaction Processing
Message Switching
Control Information
SECTION 2: METHOD OF OPERATION
Task Management •
Storage Management
~.3 Program Management •
~.4 Time Management
..
~.5 Terminal Management
~.6 File Management
~.7 Transient Data Management
~.8 Temporary Storage Management.
~~9 Journal Management
~.~O Sync Point Management
~.~~ LIFO Storage Management •
System Monitoring Components
2.~ Trace Management
2.2 Dump Management
System Reliability Components
3.~ System Recovery Program
3.2 Abnormal Condition Program •
3.3 Terminal Abnormal Condition Program
3.4 Keypoint Program
3.5 Activity Keypoint Program
System Support Components
4.~ System Initialization.
4.2 System Termination
4.3 High-Level Language Preprocessor
4.3A Command Language Translator
4.4 Dump Utility Program.
4.5 Format Tape Program
4.6 Terminate End-of-File
4.7 Recovery Utility Program.
4.8 Transient Data Recovery Program
4.9 Transaction Backout Program •
4.~O Temporary Storage Recovery Program
•
•
•
•
•
•
•
•
•
.
• 4
• 7
• 7
• 7
• 8
• 8
• 8
• 9
.- .
~.~
~.2
Table of Contents
1
1
1
2
2
3
3
4
.
• 9
10
10
12
12
15
19
56
80
99
112
305
361
376
384
423
430
431
431
440
445
445
454
457
461
475
479
479
500
510
511
518
519
522
529
547
549
560
v
LICENSED MATERIAL - PROPERTY OF IBM
4.11 Trace Utility Program •
4.12 Formatted Dump Program
4.13 Dynamic Backout Program
System Service Components
• • • •
5.1 Sign-On/Sign-Off Services • • • • • •
5.2 Master Terminal Services • • •
5.3 Supervisory Terminal Services
5~4 Operator Terminal Services • •
5.5 System Statistics Program
5.6 Batched Transaction Processor
5.7 Dynamic Open/Close Services
5.8 Time Adjustment Program
5.9 Terminal Test Program
S.10 Message Switching Program •
5.11 Interregion Communication
Application Service Components •
6.1 Basic Mapping Support
6.2 Built-In Functions • • • • •
6.3 CICSJVS-DL/I Interface.
6.4 Data Interchange • • • •
6.5 EXEC Interface Program.
6.6 Intersystem Communication
6.7 Execution Diagnostic Facility • • • •
..
.
.
..
726
738
749
756
764
783
SECTION 3: PROGRAM ORGANIZATION.
Abnormal Condition Program (DFHACP)
••
Activity Keypoint Program (DFHAKP)
• • • • • •
•
Asynchronous Transaction Processing Group (ATP)
••••
Asynchronous Transaction Input Processor (DFHRD1, DFHRD2)
••••
Asynchronous Transaction Output Processor (DFHWT1, DFHWT2) • • • •
Asynchronous Transaction Control Program (DFHATP)
Built-In Functions Program (DFHBFP)
•••••••••
•
Basic Mapping Support (BMS)
••
Pre-VS BMS Mapping Module (DFHBMSMM, BMS)
•
Data Stream Build (DFHDSB, BMS)
• • ••
•
Non-3270 Input Mapping (DFHIIP, BMS)
• • • •
Mapping Control Program (DFHMCP, BMS)
3270 Mapping (DFHM32, BMS)
Page and Text Build (DFHPBP, BMS)
• • • •
Route List Resolution Program (DFHRLR, BMS)
Terminal Page Processor (DFHTPP, BMS)
•
Cleanup Undelivered Messages Program (DFHTQ, BMS)
•
Page Retrieval Program (DFHTPR, BMS) • • • • •
Terminal Page Scheduling Program (DFHTPS, BMS)
• • • • •
Dynamic Allocation Program (MVS only)
•
Dynamic Backout Program (DFHDB~ • • • •
Dump Management (DFHDCP) • • •
• • • • •
Data Interchange Program (DFHDIP)
•
DL/I Interface (DFHDLI)
•••••
•
DL/I Interface Initialization (DFHDLQ)
•
EXEC Interface (DFHEIP)
•••••••••••
•
File Management (DFHFCP and DFHFCD)
•••
•
Formatted Dump Program (DFHFD~
•••
•
Faster 2260 Compatibility (DFHFIP, DFHF2P) • • • •
•
Forma t Tape (DFHFTAP)
••••••••••
•
Time Management (DFHICP) • • • • • • • • •
•
Interregion Communication ~or Shared Data Bases)
o
Interregion Communication SVC Module (DFHIRCP) •
•
Invocation of the SVC • • • • • • • • • • • •
•
Batch Region Modules (DFHDRP,DFHDRPA/B/C/D/E/F)
•
Batch Region Control (DFHDRP)
••••••••
• • • • •
0
0
0
•
0
• • • • •
0
•
•
0
vi
561
562
568
576
576
580
599
600
601
615
624
632
634
635
643
662
662
•
•
•
•
•
•
•
•
•
•
787
788
790
791
791
794
796
798
800
802
804
806
808
812
814
816
818
820
822
826
828
830
832
834
836
838
840
842
844
846
847
848
850
850
852
855
855
CICS/OSjVS Program Logic: Description
LICENSED MATERIAL - PROPERTY OF IBM
Batch Region Initialization (DFHDRPA)
Application Program Control (DFHDRPB)
• • • • •
Batch Region Termination (DFHDRPC)
•
Batch Region Cleanup (DFHDRPD)
•
DL/I Request Handling (DFHDRPE)
••••
• • • •
SVC Initialization (DFHDRPF)
CICS/OSjVS Region Modules (DFHCRSP,DFHCRNP,DFHZCX,DFHCRC)
••••
CICS/OSjVS Interregion Communication Startup (DFHCRS~
New Connection Manager - Transaction CSNC (DFHCRNP)
•
CICS/OSjVS Region Cooununication (DFHZCX) • • • • • • • • •
Interregion Abnormal Exit (DFHCRC)
Intersystem Communication (ISC)
•••••••
ISC Handling of CICSjVS EXEC Requests
ISC Handling of CICSjVS EXEC NOCHECK Requests
ISC Handling of DL/I Requests • • • • • • •
LocaljRemote Determination Program (DFHELR)
Intersystem Communication Program (DFHISP) • • • • •
• • • • •
Transformation Program (DFHXFP)
• • • • • • •
Mirror Transaction Program (DFHMIR)
Journal Management (DFHJCP)
•••••
Task Management (DFHKCP, DFHKCSP, DFHHPSVC)
Keypoint Program (DFHKP~
•••
Warm Keypointing • • • • • • •
Activity Keypointing
• • • •
Message Switching (DFHMSP)
Master Terminal Program (DFHMTP) • • • •
Dynamic Open/Close Program (DFHOCP)
• • • • •
Program Management (DFHPCP)
• .. • • .. • •
Recovery Utility Program (DFHRUP)
Storage Management (DFHSCP)
• • • •
System Initialization Program (DFHSIP)
System Initialization Overlays • • • • • • •
Sync Point Program (DFHSPP)
••••
• ;, •
System Recovery Management (DFHSRP) • • • • •
System Termination Program (DFHSTP)
Terminal Management (DFHTCP,DFHZCP)
Transaction Backout Program (DFHTBP)
Transient Data Management (DFHTDP)
•
Intrapartition • • • • •
Extrapartition • • • • • •
•
Tape End of File (DFHTEOF)
•
Trace Management (DFHTRP)
• • • •
•
Temporary Storage Management (DFHTS~
••••••••
•
LIFO Storage Routines (DFHLFA, D:FHLFO)
•
·.
0
•
•
•
•
0
BIBLIOGRAPHY
INDEX
Table of contents
•
•
D
•
855
855
855
855
856
856
856
856
856
857
858
859
859
862
865
868
870
872
876
878
882
886
886
888
890
894
896
898
900
903
906
906
910
914
916
918
928
930
930
932
934
936
938
940
• 943
..
.....
• 945
vii
LICENSED MATERIAL - PROPERTY OF IBM
FIGURES
1-l.
1-2.
2-1.
2-2.
2-3.
2-4.
2-5.
3-1.
3-2.
3-3.
3-4.
3-5.
3-6.
3-7.
3-8.
3-9.
3-10.
3-113-12.
3-13.
3-14.
3-15.
3-16.
3-17.
3-18.
3-19.
3-20.
3-21.
3-22.
3-23.
3-24.
3-25.
3-26.
3-27.
3-28.
Storage Organization under CICS/OS/VS • • • •
CICSjVSTransaction Flow • • • • • • • •
Composition of a HIPO Diagram • • • • •
Visual Table of contents for CICS/OS/VS HIPO Diagrams • • • •
TACP Message Construction Matrix • • • •
•
TACP Message Routines • • • • • • • • • • •
•
TACP Default Error Handling • • • • • •
Abnormal Condition Program Interfaces
Asynchronous Transaction Input Processor Interfaces • • • • •
Asynchronous Transaction output Processor Interfaces •
Asynchronous Transaction Control Interfaces
• • • • •
Built-In Functions Interface • • • •
• ••••
CICSjVS Basic Mapping Support
• • • •
Pre-VS BMS Mapping Module Interfaces • •
• • • • •
Data Stream Build Interfaces • • • •
• • • •
• • • • •
Non-3270 Input Mapping Interfaces
Mapping Control Program Interfaces
• • • • •
3270 Mapping Program Interfaces • •
• • •
Page and Text Build Program Interfaces
Route List Resolution Program Interfaces • • • • •
Terminal Page Processor Interfaces • • • •
• • • •
Cleanup Undelivered Messages Program Interfaces •
rage Retrieval Program Interfaces • •• • •
Tenninal Page Scheduling Program Interfaces • • • • • • • • •
Dynamic Backout Program • •
• • • • •
Dump Control Interfaces • •
• • • •
• • • •
Data Interchange Program
• • • •
CICS/OS/VS-DL/I Interface •
• • •
• •
CICS/OS/VS-DL/I Interface Initialization Interface • • • • •
EXEC Interface Program Interfaces
• • • •
File Control Interface
• • • • • • • • • • • • • •
Interval Control Interface
• • • • • • • • •
Interregion Communication - Batch Region Modules
• • • •
OVerview of Intersystem Communication ~sq (2 Parts) • • • •
OVerview of Intersystem Communication ~ith NOCHECK Option)
(2 Parts)
3-29.
3-30.
3-31.
3-32.
3-33.
3-34.
3-35.
3-36.
3-37.
3-38.
3-39.
3-40.
3-41.
3-42.
3-43.
3-44.
3-45.
3-46.
.
.
.
. • . .
. .'. .
• .
• • • • • • • •
6
11
17
18
458
459
460
789
793
795
797
799
801
803
805
807
810
813
815
817
819
821
824
827
831
833
835
837
839
841
843
849
854
860
863
OVerview of ISC Handling of DL/I Requests (2 part~ • • • • • 866
Local/Remote Determination Program Interfaces • • • • •
869
Intersystem Communication Program Interfaces
871
Transformation Program Interfaces • • •
873
Mirror Transaction Program Interfaces • • • • •
877
Journal Control Interfaces • • • • • • • • • •
879
885
Task Control Interfaces • • • • • • • • • • • •
Keypoint Program Interfaces During Warm Keypointing
887
Keypoint Program Interfaces During Activity
889
Keypointing • • • • • • • • • • • • • • • •
892
Message Switching Interfaces • • • • • • •
895
Master Terminal Program ~FHMTP) Interfaces •
Dynamic Open/Close Program Interface • • • • •
897
Program Control Interfaces • • • •
• • • •
899
Recovery Utility Program Interfaces •
902
Storage Control Interfaces
905
System Initialization Interfaces
909
Sync Point Program Interfaces • • • • • • •
912
System Recovery Interfaces
915
Figures
ix
LICENSED MATERIAL - PROPERTY OF IBM
3-47.
3-48.
3-49.
3-50.
3-51.
3-52.
3-53.
3-54.
3-55.
3-56.
3-57.
3-58.
3-59.
x
System Termination Interfaces. • • • • • • • • • • •
Terminal Management Interfaces • • • • • • • • • • •
Terminal Management Common Control Routine (2 Parts)
Terminal Management Bisync Nonswitched Routine
Terminal Management Bisync Dial Routine • •
•
Terminal Management 3270L/SS Routines • • •
•
Terminal Management General Flow through
Device-Dependent Modules • • • • • • • • •
Transaction Backout Program Interfaces
Transient Data Control Interfaces for Intrapartition
Transient Data Control Interfaces for Extrapartition
Trace Control Interfaces • • • • • • •
Temporary Storage Control Interfaces • • • • • • • •
LIFO Storage Interfaces • • • • • • • •
•
•
•
•
••••
•
• • • •
• • • •
917
921
922
924
925
92G
• 927
929
• 931
• • • • 933
937
• 939
• 941
CICS/OS/VS Program Logic: Description
LICENSED MATERIAL -- PROPERTY OF IBM
SECTION 1:
INTRODUCTION
The IBM Customer Information Control System/Virtual Storage (CICS/VS) is
a data base/data communication system that provides an interface between
a System/370 operating system and user-written application programs.
Applicable in most online environments, CICS/VS provides many of the
facilities for standard applications: message switching, inquiry, data
collection, order entry, and conversational and batched data entry.
CICS/VS is available as two program products: CICSjDOS/VS, which
executes under control of the Disk Operating System/Virtual Storage
~OS/VS), and CICS/OS/VS, which executes under Operating System/Virtual
Storage (OS/VS1 or OS/VS2). Both program products consist of modular
components from which a user installation can select and tailor a
CICS/VS system to meet particular application processing needs. This
publication, together with its companion publication CICS/OS/VS Program
Logic: Data Areas, deals with CICS/OS/VS, and all subsequent references
to CICS/VS in this publication refer to CICS/OS/VS.
The CICS/VS Introduction to Program Logic provides a technical
overview of CICS/VS. Users are advised to read the CICS/VS Introduction
to Program Logic before using this manual.
USING THE PROGRAM LOGIC:
DESCRIPTION AND PROGRAM LOGIC:
DATA
AREAS MANUALS
The two Program Logic Manuals, namely the CICS/OS/VS Program Logic:
Description and the CICS/OS/VS Program Logic: Data Areas, provide the
user with information that will help him to use his source listings and
locate the causes of any problems that may occur.
Once the user has a technical overview of CICS/VS ~y reading the
CICS/yS Introduction to program Logic, for example) and is aware of the
general functions being performed, he can identify the specific modules
involved in any function in which he is interested via the method of
operation ~IPO) charts in Section 2 of this manual. Many of the
modules interact extensively with other CICS/VS modules, or make
frequent use of external control blocks. This interaction is described
in Section 3 by means of interface diagrams supported by notes.
Certain control blocks provide vital system information. The format
and content of these is detailed in Section 2 of the CICS/OS/VS Program
Logic: Data Areas. Section 1 of the same publication provides an
alphabetical list of all CICS/VS source modules, together with a brief
description of each module.
PURPOSE AND FUNCTIONS
CICS/VS is a data base/data communication interface between application
programs and the host operating system. It provides most facilities
needed in an online environment. In doing so, CICS/VS manages
concurrent requests from:
Section 1:
Introduction
1
LICENSED MATERIAL -- PROPERTY OF IBM
•
Terminals on a telecommunication network of mixed devices to
activate transaction and execute a variety of user-written
application programs
•
Application programs for accesses to data sets and terminals,
obtaining or freeing of storage, or use of other resources
The components of CICS/VS are:
•
System Management - the supervisory functions: Task, Storage,
Program, and Time Management, and the data management functions:
Terminal, File, Transient Data, Temporary Storage, and Journal
Management
.
•
System Reliability - abnormal condition handling with possible
recovery action including user-written error exits and error
programs
•
System Monitoring - the testing and debugging aids:
Management and Dump Management
•
Application Services - the techniques for reducing application
programming effort, including Basic Mapping Support, 2260
compatibility, and built-in functions
•
System Services - the ready-to-use application programs for signon/sign-off procedures, master, supervisor, and operator terminal
functions, displaying statistics, batched transaction processing,
dynamic opening and closing of data sets, time-of-day control,
terminal test, initiating snap dumps, and message switching
•
System Support - the facilities needed to initiate and terminate
CICS/VS sessions, to generate a CICS/VS system and to define the
CICS/VS environment of the userls selection; the High-Level
Language Preprocessor; and the CICS/VS Dump utility programs
Trace
These components and their parts are summarized in the CICS/VS
Introduction to Program Logic.
ENVIRONMENTAL CHARACTERISTICS
CICSjVS operates as an OS/VS task within an OS/VS region in either a
dedicated or multiprogramming environment. The selection of the
environment is the user1s responsibility, as is the selection of system
options beyond those required for the operation of CICSjVS.
SYSTEM CONFIGURATION
The system configuration required for CICS/VS is largely determined by
the scope of the environment to be supported and the nature of the
user1s applications. A list of the terminals and control units
supported by CICS/VS is given in the CICS/yS General Information.
2
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -
PROPERTY OF IBM
CICS/VS INTERFACES
The principal system interfaces of CICS/VS are as follows:
•
Interfaces between CICS/VS and the host operating system (OS/VS1 or
OS,lVS2) :
the CICS/VS data management functions, using CICS/VS system
control tables, controlling the use of access methods, which
are listed below
CICS/VS System Recovery program, for SPIE and STAE (OS,lVS1 and
OS/VS2 Release ~ , and SPIE and ESTAE (OS/VS2 Release 2
onwards)
CICS,lVS Task Management and Time Management, for the interval
timer, to regain control after a WAIT releases control to OS/VS
CICS,lVS System Initialization program, when obtaining or
freeing storage, attaching tasks, opening files, or initially
giving control to CICS,lVS
•
Interfaces between user-written application programs and CICS/VS:
Command-level interface using EXEC commands and the EXEC
interface Block (EIB)
Macro-level interface using CICS,lVS macro instructions, Task
Control Area (TCA), COmmon System Area (CSA), and Tenninal
Control Table tenninal entry.
•
Interfaces between CICS/VS modules: system areas, work areas,
system control and service tables, and allocation maps
A detailed listing of the required and optional components of OS,lVS1
and OSjVS2 is given in the CICSIYS General Infonnation.
The major interfaces of CICS,lVS are the Common System Area (CSA) and
the Task Control Area (TCA). The CSA contains the system constants,
module addresses, control table addresses, task abnonnal termination
interface, time management storage, and work area for accumulating
system statistics. On a CICS/VS system, the open list address pointers
in the Common System Area point indirectly to the active interfaces of
CICS,lVS and the access methods of the operating system. The nonnal
diagnostic and serviceability aids as provided by the operating system
are utilized where applicable.
The TCA is the major vehicle for carrying parameter information from
a task requesting services to the CICS,lVS management module or service
program that provides those services. It consists of a system control
section, an application program communication section, and, optionally,
a user Transaction Work Area (TWA).
ACCESS METHODS
Standard access methods are supported by CICS/VS.
•
These are:
Basic Telecommunications Access Method (BTAM)
Section 1:
Introduction
3
LICENSED MATERIAL -- PROPERTY OF IBM
•
Direct Access Method
•
Sequential Access Method (SAM)
•
Indexed Sequential Access Method (I SAM)
•
Telecommunications
•
Virtual Storage Access Method (VSAM)
•
Virtual Telecommunications Access Method (VTAM)
(DAM)
~ccess
Method 1'T'l"'l!.M\
,--_ ..,
Either BTAM or VTAM, and DAM and SAM are essential to the running
CICSjVS. Depending on the data base configuration, ISAM, VSAM or both
may be required. Data sets created using any of these access methods
can be operated on by application programs executing under the control
of CICS/VS and by offline batch-processing programs.
In addition, CICSjVS users can use the Data Language/I ~L/I)
facility of the program product Information Management System/Virtual
Storage, (IMSjVS) wrogram number 5740-XX~). DL/I is a general-purpose
data management facility designed to satisfy diverse data base
processing requirements in either a batch or an online environment.
Through the CICSjVS-DL/I Interface CICSjVS application programs can
access DL/I data bases using the standard DL/I CALL functions.
PHYSICAL CHARACTERISTICS
CICSjVS is designed to run in a virtual storage environment. A system
such asOSjVSl or OS/VS2 provides CICSjVS with more address space than
the real storage capacity of the computer on which it is run. This
increase is accomplished by means of a paging technique, which simulates
real storage on direct access storage. Real storage is organized into
page frames which correspond to pages organized in a page data set on
direct access storage. A description of paging is provided in the
CICS/VS Introduction to Program Logic.
CICSjVS ADDRESS SPACE
The CICSjVS main storage address space is structured as follows:
•
CICS/VS nucleus, located in the high end of the CICS/VS address
space, and composed of: CICSjVS modules, CICS/VS tables, and
program storage for resident ~ixed and non-fixed) application
programs
•
CICS/VS dynamic storage used for CICS/VS control areas,
input/output areas, work areas, and program storage for nonresident
loaded application programs
•
OS/VS storage required for:
areas
OSjVS access methods and OSjVS work
In the CICSjVS nucleus, the high-usage CICSjVS modules ~ask, Time,
Terminal, and. Storage Management) need not be fixed in real storage
because activity causes them to be effectively fixed. Under OS/VS1, or
4
CICS/OSjVS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
under OS/VS2, the CICS/VS user has the option to tailor the placement of
the nucleus modules in real storage through the use of the Nucleus Load
Table ~T). This table allows the user to structure the smallest
working set for the CICS/VS nucleus and also, where necessary, specify
modules as non-pageable. If a NLT is not specified at system
initialization, a default load order is used to build the nucleus and
modules will be paged in accordance with frequency of use.
The storage organization for CICS/VS is shown in Figure 1-1. Several
aids for determining initial address space size are provided in the
CICSIYS System Programmer's Reference Manual.
Section 1:
Introduction
5
LICENSED MATERIAL -- PROPERTY OF IBM
Low
Storage
Dummy CSA
OS!VS Free/Allocated Storage
PAr.~
1---------------------:---,
rhO
PAM
either
above orox;"
below1
Dynamic
Storage
Area
w;U
the dynamic storage
area.
1---.----- - - --- -
_ _ _,If
10 _ _ _
PAM
TS/TD Allocation Maps
Resident Application Programs
Temporary Storage Control Interval Buffers
OS!VS Free/Allocated Storage
CICS!VS
Nucleus
OSPARM
I
SIP Overrides
1
oS!VS Save Area
High
Storage
OPL'
Figure 1-1.
6
Storage Organization Under CICS/OS/VS
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
SUBPOOL ALLOCATION OF DYNAMIC STORAGE
The CICSjVS Storage Control program manages the CICSjVS dynamic storage
space. It allocates storage, dependent on the type of request, from
different subpools. Each subpool obtains and returns storage in page
multiples from the dynamic storage area.
The subpools used by CICSjVS are:
•
The program subpool containing dynamically loaded application
programs
•
The control subpool containing resource management storage
•
The shared subpool containing temporary storage, BMS maps, DL/I
areas, tables, etc.
•
The teleprocessing subpool containing line and terminal
input/output areas
•
The mixed and isolated subpools containing user areas and file
storage
•
The RPL subpool containing parameter lists for VTAM
The effect of the use of subpools is to minimize the total number of
page frames that are used for CICS/VS dynamic storage, while ensuring
adequate performance
If insufficient/ real address space is available for the dynamic
storage area, CICSjVS is usually able to operate, but with reduced
performance, due to excessive virtual storage paging. An optimum ratio
of virtual to real should be determined for each user installation,
recognizing the processing requirements of that installation.
DATA SETS
CICS/VS DATA SETS
The access methods for use with CICS/VS data sets and the record format
of these data sets are predefined within CICS/VS. Any required
formatting of the data sets is performed by CICSjVS during
initialization or by the CICS/VS maintenance functions. The CICSjVS
data se.ts are:
•
•
•
Restart data set
•
Intrapartition data set
•
Temporary Storage data set
•
System Log data set
CICSjVS Program Library
Dump data set
Section 1:
Introduction
7
LICENSED MATERIAL -
PROPERTY OF IBM
•
Automatic Statistics data set
•
Auxiliary Trace data set
•
Trace data set
CICS/VS data sets other than the Dump data set~ the Trace data 82t.
the System Log data set, and other data sets ~or example, the Automatic
Statistics data set) which may contain extrapartition transient data
must be located on direct access storage. The Dump data set, Trace data
set, System Log data set, and extrapartition transient data sets may be
on either direct access storage or magnetic tape. Whether all of the
data sets are required, and the amount of space needed for each, depends
on the CICS/VS options selected at CICS/VS generation and the extent to
which they are used. Information about these data sets is given in the
CICS;YS System Programmer's Guide (OS;YS) and in the CICS/VS
Introduction to Program Logic.
USER DATA SETS
User data sets comprise those data sets that form the CICS/VS user data
base. They may also include Extrapartition Transient Data data sets,
Terminal Control sequential data sets, Data Language/I data sets, and
journal data sets. Information about these data sets is given in the
CICS;YS System Programmer's Guide (Os;yS) and in the CICS;YS
Introduction to Program Logic.
OPERATIONAL CONSIDERATIONS
CICSjVS is generated, initialized, and operated as outlined in the
following paragraphs.
SYSTEM GENERATION
The CICS/VS generation process provides the user with the means of
setting up the specific CICS/VS management and service programs that
will satisfy his requirements •. CICS/VS generation procedures are given
in the CICS;YS System Programmer's Guide (Os;yS) and the necessary macro
instructions are described in detail in the CICS;YS System Programmer's
Reference Manual.
8
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -
PROPERTY OF IBM
PREPARATION OF CICSjVS TABLES
CICS/VS is dependent on the user-created CICSjVS tables, which describe
the user's data-base/data-communication environment and the treatment
given to elements of that environment. Information regarding the user's
terminals, data sets wermanent and temporary), programs, and
transactions is contained in these tables. The CICSIVS System
Programmer's Reference Manual contains full details of the macro
instructions needed to generate the tables. The CICSjVS tables are as
follows:
•
Program Control Table
•
Processing Program Table (PPT)
•
Terminal Control Table (TCT)
•
System Recovery Table
•
File Control Table (FCT)
•
Destination Control Table (DCT)
•
Journal Control Table (JCT)
(PeT)
~RT)
The system service tables include:
•
Sign-On Table (SNT)
•
Terminal List Tables
•
Program List Tables (PLTs)
•
Transaction List Tables
(TLTs)
(XLTs)
The contents of these tables are listed in Section 2 of the
CICS/OS/yS Program Logic: Data Areas. Their use is summarized in the
CICS/yS General Information.
CICSjVS INITIALIZATION
CICSjVS may be dynamically configured under user control during CICS/VS
initialization. The user selects ~y using specified suffixes) the
CICS/VS modules and tables desired for the current session. The System
Initialization program is responsible for preparing CICS/VS for
communication and inquiry by user-written application programs. It
builds the CICSjVS nucleus, initializes data sets, opens system and user
data sets, constructs and initializes tables, and builds the CICSjVS
dynamic storage pool. This program is invoked as an OSjVS job by userprovided job control statements.
(Details of the System Initialization
program are given in section 3 of this manua~ •
Section 1:
Introduction
9
LICENSED MATERIAL -- PROPERTY OF IBM
CICS/VS PROCESSING
To achieve its objective of providing fast response to terminal users,
CICS/VS uses its own multitasking within one region of main storage.
Such multitasking within one region is analogous to multiprogramming
within the total OS/VB
a~viro~_T.ent.
Generally, tasks are initiated as a
result of transactions entered at terminals. Whenever one task is
forced to wait for completion of an I/O operation, availability of a
resource, or some other reason, processing of another task within
CICS/VS is initiated or continued. The interrelationships of, and
services performed by, various CICS/VS System Management functions in
the processing of a task are shown in Figure 1-2.
ASYNCHRONOUS TRANSACTION PROCESSING
The optional Asynchronous Transaction Processing ~TP) facility allows
transactions and the data associated with those transactions to be
batched for asynchronous ~oncurrent) processing. This means that the
transactions within a batch are not processed until the entire batch has
been entered into CICS/VS. Then, while the batched transactions are
being processed, the terminal operator may proceed to enter other
transactions. When processing of the batched transactions is completed,
the terminal operator may request that the resultant output be sent to
the terminal that originated the batch or to some alternate terminal.
10
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
I
I
~
~
TERMINAL
CONTROL
I
I
DATA
BASE
PROGRAM (
LIBRARY
\
MESSAGE
I LOG
\
(
\
\
PROGRAM
CONTROL
TASK
CONTROL
USER
PROGRAM
~
STORAGE
CONTROL
FILE
CONTROL
1
~
JOURNAL
CONTROL
T RANSLATE MSG
+
NITIATE TASK---o
VALIDATE
TRANSACTION
•
REQUEST
WORK STORAGE
GET ST,ORAGE
SCHED NEW TASK
+
DISPATC1H TASK
SELECT PGM
+
LOAi PGM
WAIT
BUILD DATA
SET SEARCH
. KEY
L
REQUEST
INPUTtREA
GETS/ORAGE
READ FILE
RECOjD
WAIT
"I
REQUEST
TERMINAL AREA
4
GET
STORAGE
:r
BUILD TERMINAL
OUTPUT
+
BUILD ACTIVITY
RECORD
I
PUT ACTIVITY
RECORD TO
LOG
I
AIT
,--- ------ ------
I
I
TERMINATE
TRANStCTlON
I
I
I
I
RETyRN
I
I
I
,
,
REQUEST
TERMINAL WRITE
TERMINATE
TASK
FREE
TRANSACTION
STORAF E
SCHEDULE
WRITE
OPL2
Figure 1-2.
Section 1:
CICS/VS Transaction Flow
Introduction
11
LICENSED MATERIAL -
PROPERTY OF IBM
MESSAGE SWITCHING
The Message Switching program provides the user with a general-purpose
message switching capability during execution of CICSjVS. Messages can
be routed to one or more terminals by specifying the transaction code
CMSG; the message text, and optional parameters that identify receiving
terminals. A message can be delivered immediately, or as soon as all
required resources are available, or at a designated future time.
CONTROL INFORMATION
System statistics are maintained during execution by the various CICSjVS
management programs. These statistics can be written to a destination
during the day in part or in their entirety on the request of any
terminal operator whose security code allows the request of such
information. They are gathered automatically when the system is
normally terminated.
System statistics are transmitted to a user-specified destination
(sequential output device) as variable-length, unblocked records
(maximum block size is 136). The name of the destination is the control
system system log (CSSL).
In addition, using the automatic statistics function, the user can
have system statistics recorded on a data set on a regular (userspecified) interval and have them printed offline in an interval or
summary format.
•
•
•
•
Number of tasks in system for any period
Number of tasks initiated
Number of storage acquisitions
Number of times storage cushion is released
•
Number of times storage request is queued
•
•
Number of times storage queue is established
Maximum number of requests in storage queue
•
Number of times a program is used
•
Number of READ requests per data set
•
Number of WRITE update requests per data set
•
•
Number of WRITE add requests per data .set
•
•
•
VSAM shared resources statistics
12
Number of deletes from VSAM data set
Number of WRITE requests (per data set) to extrapartition data set
Number of WRITE requests (per data set) to intrapartition data set
CICS/OSjVS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
o
Number of input messages per terminal
Number of output messages per terminal
•
Number of transmission errors
o
Number of transactions
•
Number of transaction errors
•
Number of polls issued per line
•
Maximum number of Temporary Storage Control Records used
auxiliary storage)
•
Maximum number of PUT requests to temporary storage, main storage,
and auxiliary storage
•
Maximum number of Temporary Storage unit tables used
•
Maximum number of Temporary Storage group identifications
used
•
Temporary Storage main storage requirements
•
Dynamic Transaction Backout statistics
•
Transaction Restart statistics
o
Number of records written per journal identification
~r~rmbal
(for
~SGIDs)
These statistics are useful in determining proper data set'
allocation, identifying infrequently used programs that should not
remain permanently resident, determining the activity from each
terminal, and, in general, ensuring that the resources of the system are
used effectively.
Although journaling for the File Control Program is performed
automatically, the creation of an audit trail is largely the user"s
responsibility. Through the use of CICS/VS Journal Management
facilities, the user can create and journal transaction data to
sequential data sets. These data sets are called journal data sets.
The user describes each journal data set when defining his system.
During CICS/VS execution, an application program issues CICS/VS macro
instructions that cause the Journal Control program to store transaction
data in that data set when the transaction is completed. The same data
set can also be used for other control and summary data.
If DL/I data bases are used, the "DL/I loggbg function can be used to
produce on the CICS/VS System Log data set (a unique journal data set) ,
or on the DL/I System Log, which is not under the control of CICS/VS, an
audit trail of changes made to DL/I data bases. The CICS/VS-DL/I
Interface routine logs a scheduling or termination record to this data
set when a transaction that alters a DL/I data base is scheduled or
terminated. DL/I provides utilities that produce reports from the
CICS/VS System Log.
Section 1:
Introduction
13
LICENSED MATERIAL -- PROPERTY OF IBM
SECTION 2:
METHOD OF OPERATION
CICSjVS is coded largely according to functional organization; specific
modules perform specific functions. In this section, CICSjVS is divided
into major fUnctional areas. Within each area, information is divided
into functions.
The information in this section is presented in the form of Hierarchy
Input Process Output ~IPO) diagrams. Figure 2-1 shows the structure of
a HIPO diagram. The HIPO diagrams contain three blocks of information.
The left-hand block contains the input to the central block, which
contains the processing steps involved in the function or subfunction
represented by the diagram. The right-hand block contains the output
(changes made to registers, control blocks etc.) from the processing
steps. The processing steps are numbered and the numbers correspond to
notes, if any, on the lower portion of the page. If notes are given,
they include references to modules, routines, and labels involved.
The HIPO diagrams use a number of special symbols to convey
information, and arrows to represent the flow through the diagrams.
special symbols are:
TCB
,---
-----,
... _----_ ...
'TCAPTR
1
TCB
Data Block
1TCAPTR
Flag Block
I...
Terminal
@
TCDFLG
TCDFLG
r-------- .....
1' -._
._
. _1_.
._._
.
_
eg
~:=.~
'.-
~
1
..
Disk
/
,~
t.. . '
wtI
The
Printout
1-
g
D
D
OPL118
Arrows are used for either of two reasons:
•
To connect blocks and shapes in the input and output areas to
processing steps to which they are related
•
To point from one processing step to a processing step other than
that which follows it sequentially. The processing step pointed to
can be on the same page, on a different page, or on a different
diagram.
Section 2:
Method of Operation
15
LICENSED MATERIAL -- PROPERTY OF IBM
The six kinds of arrows are:
---~
Data reference
--
~>
Data movement
==>
Data modification
22Z>
1----1>
Control flow
~
6:1>
On-page connector
110 1 ••
~'>
,/-,/
Off-page connector
[p
IZZZZZi
>
>
OPL119
Figure 2-2 is a visual table of contents for the HIPO diagrams. The
diagrams are numbered in a sequence that follows the pattern C.F.f where
C is a major CICSjVS component, F is a functional service area, and f is
a specific'function. For example, diagram 1.1.5 is for component 1,
System Management; functional area 1.1, Task Management; and function
1.1.5, Change Priority of a Task. Some functions are further subdivided
as represented by the pattern C.F.f.s where s is a subfunction. The
pages within each diagram are numbered sequentially beginning with 1.
More detailed visual tables of contents are provided at the C.F level
for all functional service areas consisting of more than three diagrams.
For example, diagram 1.1 is a visual table of contents for the Task
Management functional service area.
16
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
1I1lS IS 1m IM'lll' MU',\. IT CONTAINS DATA
IIItX·"':-I.
fACE
outvut
lU\'~~ _ _ _ _ _ _ _ _ _ _- - ,
TillS 1:-1 Till: I'R(I(·t-.SSINt.; ARl:". IT fONT ",NS
rm, 1'I{()(·tSSIN(; STU'S
rillS IS TilE INI'lIT
CllANNH. IT
CONTAINS SIX KINDS
Of' AIUWWS
rSA
~ 'TIllS ISI'R(){'lSSISc..; STl:P
i CSATCT{'A
AND
------>
SlIBl'R(I(·I,SSI~c..;
I
TillS IS TilE OUTPUT
ClIANNll. IT
fONT AINS SIX KINDS
OF AIUHlWS Till::
SAM!.: AS Till: INPUT
(·ItANNLl.
1 op
TillS IS Till: OUTI'UT "'O:A. n ('ON'I AINS UAIA
UUX·KS. f'lAt.; UUXX... ANI)SIIAI'LS Till: SAMl
AS TilE INPUT AREA.
STI-.PS
AND FLAG BLOCKS,
===:>
CSATRMf'1
.. ,1,
A,
~l'IIPRon,~SI'(,
STU'
IT .\LSO CO, HI'S Sl'IIIHHTI\I
ZZZZZ~>
AND EIGHT SHAPES'
1
I
D
.---/,
·'(1
r--,
@
1
0
.,
I
.--.
\
l'·--·~I
,
1
1
,
r,
1
r
/
/
I
UU){""~
r-',
r.- - - - - - ' - - - - ,
l.:..:.! )I SCf'Rll:\T
,---J,
~/
I
Pl:H.H)R~If'I'AL
I PR(){"lSSI\;(;
I'
I.'."
...
[1.:-:-:'>
--,1
f1ul::l'>
V~I
Fi'
r
LJ
DiagraM -
Co_position of a AIPO diagrall
L~::~I~:~J~I
Notes
!
THIS IS THE NOTES AREA. IT CONTAINS THE NOTES.
a
DEl All FOR PROCESSING STEP I.
I
TIIESJOLUMNsrJTAIN
REFERE1"('ES TO OTHER
PROGRAMS AND CHARTS
AND SUBNOTI:.S
I
A. THIS SUB:-lOTE PROVlDl:.S DL:Hll FOR
RTNA
I
lABA
.outioel~
~otes
I
3.11.1_01
I
Bef
I
I
IRm
SUBPROCESSING STEP IA
TillS AREA CANNOT CONT AIN BLOCKS OR SIIAPES
OR ARROWS
I
.
I
I
..... -
I
uia. ra.. - 3.11.1-01
OPL4
Figure 2-1..
Section 2:
Composition of a RIPO Diagram
Method of Operation
17
LICENSED MATERIAL -- PROPERTY OF IBM
OPL81
Figure 2-2.
18
Visual Table of Contents for CICS/OSjVS HIPO Diagrams
CICS/OS/VS Program Logic:
Description
en
(1)
(')
rtf-'-
....
'"~
Task Management
::1
~
1.1.0
~
0
N
to
~
~
!
rt-
::t
I
Initiate a Task
-ATTACH
8.
I
Enqueue upon a
Dequeue upon a
Resource - ENG
Resource - OEQ
1.1.2
1.1.1
0
I
Terminate a
Task - DETACH
I
Change Priority
Synchronize a
Resources -
of a Task-
Task - WAIT
DEQALL
CHAP
1.1.4
1.1.3
I
Dequeue All
1.1.5
1.1.4.1
1.1.6
t-h
0
'@
Suspend a Task
- SUSPEND
Ii
III
rtf-'-
Resume a Task-
Task Dispatcher
RESUME
Overview
1.1.7
1.1.9
U.S
Enter SRB Mode
Attach HTA
SA B Management
LI FQ Storage
Overview
Requests
1.1.11
1.1.10
1.1.12
1.1.13
0
::1
I
I
l
Task 0 ispatcher
Task Dispatcher
Time Analysis
DCA Scan
1.1.9.1
1.1.9.2
I
Leave SRB Mode
1.1.14.1
o
~.
~
I
I
Task 0 ispatcher
Dispatch
1.1.9.3
I
Dispatcher
Partition Exit
1.1.9.4
I
Detach HTA
1.1.14.2
Timer Interrupt
Exit Routine
1.1.14.3
I
SRB Dispatch
1.1.14.4
I
Subroutines
KCSRSA/KCRBE
1.1.10.1
1.1.9.5
I
SRB
1nitialization
I
Schedule a
Resource SCHEDULE
1.1.13.1
I
Declare
Resource
Availability -
AVAIL
Declare Removal
of a Resource UNAVAIL
1.1.13.2
1.1.13.3
I
SRB Initiation
- HPOSVC
1.1.14.5
Cancel an
AID
1.1.13.3.1
LICENSED MATERIAL -- PROPERTY OF IBM
Page 1 of 3
OUTPUT
PROCESS
INPUT
I
CSA
CSAFNLTM
>[Q!J
>~
I
TCA
TCAKCFA
TCAKCTI
I
TCATCTR
CSA
CSA Ma,x task
accounting
I
PCT
PCTTSKC
I
I
----v'
]
PCTIVDVSP
PCTMPCRO
PCTMPCQP
PCTJINP
TCTTE
TCTTESK
TCTEVTAM
TCTESUPI
TCTENSPI
TCA
TCAKCFA
TCA
..
PCT
I
KC CTYPE"LOCATE
I
'i/0"fffl
Locate transaction ID in peT
TCAKCTI
J
I
J
PCTTSKA
I
3L
Test for GICS in final termination and, jf so, ABEND
with message DFH0306
~
Check task class status
~
Check operator security and terminal characteristics
>
TCTTE
]
11-
Diagram-l.1.1·01
Attach a Task
NOTES
If the transaction ID cannot be found in
ROUTINE
LABEL
REFERENCE
KCTO
3.2.2
NOTES
ROUTINE
LABEL
REFERENCE
the peT 'CSAC' is substituted.
If the ATTACH was conditional and
the task is a member of a task class,
then, if the number already attached in
KCTOIO
that class is greater than or equal to
the limit the ATTACH is terminated.
A 'negative response' code is set in
TCAKCRC.
If a terminal is to be associated with
the attached task !X'O" in first byte
of TCAKCFA of called security and
terminal characteristics checks are made.
If any check fails 'CSAC' is substituted
as transaction 10.
KCT020
Diagram ·1.1.1-01
Attach a Task
20
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
Page 2 of 3
OUTPUT
PROCESS
INPUT
GSA
1
CSANXDCA
1
~
PCT
PCTTWA
PCTPRAL
PCTFLAG
PCTANTPG
PCTNXPRA
PRATCAA
PRALOW
PAM
I
PAMMIXBM
GSA
[;]
Obtain storage for new task
(:::::01
I
]
PRA
PRACHN
---,/
1
DFHSC
GETMAIN
I,J
CSANXDCA
CSAPCNAC
TCA
1 TCAKCTI
PCT
1PCTNXPRA ·1
1.2.1
I ~,----.I
~
I
Initialize DCA, TCA and PRA
New
DCA
I=:J
I
]
I
I
PCTANTPG
PCTTRTO
PCTTA
PCTTPA
PCTFLIND
PCTTSKC
PCTFLAG
PCTIPIA
TCTTE
TCTTETP
TCTTEOP
New
. TCA
PCT
PCTTA
CSA
GSANXDCA
-
Diagram -1.1.1 -02
Attach a Task
ROUTINE
NOTES
The DCA is acquired by GETMAIN or
from the DCA quick·cell chain. The
TCA is acquired by GETMAIN or,
LABEL
REFERENCE
NOTES
ROUTINE
LABEL
REFERENCE
KCT030
if the task is primed, is imbedded in a
PRA which is in turn acquired either by
GETMAIN, or from the PRA chain
addressed by PCTNXPRA. If any
GETMAIN fails then the attaching task
is made non·dispatchable or if the
ATTACH was conditional, the ATTACH
is terminated with a negative response
code
The KC register save area in the new
TCA is initialized so that. on first
KCT060
dispatch. the task will appear to be
about to execute a PC TVPE=XCTL to
the initial module of the task. The
dispatch code is initially set to 'max
task' or, if the task is in a class, 'max
task in class'
Diagram -1.1.1 -02
Attach a Task
Section 2:
Method o·f Operation
21
LICENSED MATERIAL ' - PROPERTY OF IBM
Page 3 013
OUTPUT
PROCESS
INPUT
~
Trace attach
<::=0
OFHTR
SYSTEM 10208
101=06
"CSA
I
CSAACTBA
CSAACTFA
I
CSATask
accounting
~
I
Put new task on active chain
9
~
I
I
I
I
I
1
CSAACTBA
CSAACTFA
KCTS
I
>
Update task statistics in CSA
CSA Task
Accounting
lields
TCA
[§
> r
Exit to dispatcher
9
TCAKCRC
TCATCDC
TCASCSA
KCTOOTN
1.1.9
I
Diagram -1.1.1·03
Attach a Task
NOTES
~
ROUTINE'
LABEL
Normal exit is to KCTDOTN to redispatch
REFERENCE
NOTES
ROUTINE
LABEL
REFERENCE
1.1.9
the attaching task. If a GETMAIN fails
on an unconditional ATTACH then exit
is to KCTOOO to make attaching task
non·dispatchable. save GETMAIN
request, and do. full dispatch.
1.1.1
Diagram - 1.1.1-03"
22
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
Page 1 of 3
OUTPUT
PROCESS
INPUT
CSA
CSA
I
I
I
I
CsAAIDBA
TCTIE
TCTIECAI
TCTIEOIC
TCA
TCAFCAAA
TCANXTI0
If task was associated with a terminal, look for
CSAAIDBA
automatic initiation requests
I
I
DFHTS
RELEASE AID
DFHSC
FREEMAIN AID
DFHTC
CTYPE=ATI
1.5.11.1.23
~
Process any Deferred Work Elements
DFHSPP
KCP
I
TCAFCAAA
TCAICEAD
I
1.10
TCA
Cancel any time-dependent event associated with the
task
TCS1CEAD
DFHICP
CANCEL
1.4.7
~
Terminate data interchange requests
DFHDIP
DETACH
Diagram· 1.1.2-01
Detach a Task
ROUTINE
NOTES
~
LABEL
REFERENCE
NOTES
ROUTINE
LABEL
REFERENCE
The DETACH macro instruction is
issued only by DFHPCP. The following
terminal-dependent task clean-up
functions are performed:
-
Set next task's transaction 10. if given
Scan AID chain to validate current
KCTINIDB
setting of the automatic initiate
indicator
Go to Tep if another task is to be
automatically initiated
~
OF HSPP is entered to pI ocess any work
that was deferred until task termination
KCTISETI
KCTIASBY
Diagram - 1.1.2·01
DetachsTask
Section 2:
Method of Operation
23
LICENSED MATERIAL -
PROPERTY OF IBM
Page 2 of 3
PROCESS
INPUT
OUTPUT
CSA
TCA
I
TCAFCAAA
TCTTE
I
TCTTEATP
I
I
Advise Tep of task termination
L
DFHTCP
CSAATP
TCTTE
TCTTECA
DETACH
1.5.11.1.14
TOT
TCA
I
I
TCAFCAAA
TDTIBM
initiated" indicator in OCT entry
PCT
TCATCPC
TCAISAPA
PCT
I
I
I
If task Was asSociated with transient data reset "task
PCTASAA
DCA
DCAEDLF
I
Remove task from DCA chain and update statistics in
PCT entry
PCTASAA
~__K_~_D______~
I
I
CSA
I
CSATRMFI
~
I
Trace detach
DFHTR
SYSTEM 10=208
101=07
Diagram· 1.1.2·02'
Detach a Task
NOTES
~
ROUTINE
LABEL
Clear task pointer for terminal. Post
ATP, if applicable
KCTTCNLB
Advise rep if a terminal dependent
task terminating
KCTITF
REFERENCE
NOTES
ROUTINE
LABEL
REFERENCE
,
Diagram· 1.1.2·02
Detach a Task
24
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
Page 3 of 3
INPUT
PROCESS
CSA
I
CSACDTA
CSA
I
TCA
~ TCAHTAA
TCAPRAA
TCASCCA
SRA
I
SRANXHTA
J
I
DCA
I
DCATSKC
I
PCTNXPRA
l
I
I
PCT
CSA
GSA Account·
ing Fields
CSANXDCA
OUTPUT
I
I
r
f
~
I
SRA
f------
~~_D_FH_S_C________~
SRANXHTAI
HTA
r----
FREEMAIN
HTACHN
I
PRA
'-----
PRACHN
I
CSA
~
G
I
CSACDTA
Free HTA, TCA and PRA
I
L
Update task statistics in eSA
CSA Accountingl
Fields
PCT
PCTNXPRA
I
I
I
CSA
Free DCA c;.nd exit to dispatcher
~
CSAKCNAC
CSANXDCA
~~K_C_D_C_________
Dispatcher
DCA
I
DCACHN
J
I
1.1.9
Diagram - 1.1.2-03
Detach a Task
NOTES
~
ROUTINE
If the task has an HTA (HPO onlyl
return the HTA to the quick call chain
SRANXHTA.
LABEL
REFERENCE
NOTES
ROUTINE
LABEL
REFERENCE
KCPNOTRM
If the task was not a primed storage
task, call DFHSCP FREEMAIN TCA
to free the TeA and any other storage
owned by the task
If the task was a primed storage task
KCTT70
FREEMAIN TeA is called only if there
are outstanding allocations outside the
primed area (TCASCCMTCA addressl.
In this case~ if FREEMAIN is called, it
does not free the TeA. The PAA is
placed on the free chain PCTNXPRA.
[22J
The DCA is returned to the quick·cell
KCTT90
chain CSANXDCA. GSAKCNAC is
'posted'. This word is used as a CICS
system event by STP when waiting for
4.2.4.1
system to quiesce.
KCPMAXTR is increased by 1. This is
an internal count of the number of
tasks which can be activated without
exceeding the 'active task' limit
CSAMAXT.
Diagram· 1.1.2-03
Detach a Task
Section 2:
Method of Operation
25
LICENSED MATERIAL -- PROPERTY OF IBM
Page 1 of 1
OUTPUT
PROCESS
INPUT
TCA
I
TCATCQA
I
QCA
QCAWKSP
QCAHMASK
QCAHASHT
I
I
I
QEA
QEACHN
OEALNTH
QEANAME
I
TCA
I
TCATCOA
I
QCA
I
I
OCANXOEA
I
I
QEA
OEACHN
I
I
I
OEAWTC
I
DCATCOC
J
=r
~
DFHSC
Gil
I~
OCAWKSP
KCOARG
~
OEAWTC
Argument name not found on hash chain. Get storage
for new QEA
I
I
DCA
queue name
OCA
OEA
~
I
w;m)
Determine hash value and search hash chain for argument
<9
I
OEACHN
OEAOTP
QEAUCT
• [0J
GETMAIN OEA
QCA
I
I
-t
L
Place new QEA on hash chain. Initialize it arid exit to
re-dispatch caller
Argument name found on hash chain. If already
owned by caller add one to use count and exit to
re·dispatch caller
Argument name found on hash chain and owned by
another task
9
KCTSM
,~
OEACHN
OEAUCT
TCA
TCATCTR
TCATCDC
OEA
QEAWTC
DCA
DCATCQC
Diagram· 1.1.3-01
Enqueue upon a Resource
NOTES
~
ROUTINE
LABEL
~
KCENQN
The argument queue name is hashed
to obtain an index to one of 64 QEA
OEAWTC, the DCATCOC lields 01 the
chain is ordered low to high by full
waiting DCAs and back to the OEA.
The DCAs are in the order in which the
ENO requests were made. The caller
is then suspended until the QEA is
released by the present owner and other
waiting tasks
KCEN020
If the queue name is such that the aEA
will be larger than 64 bytes a DFHSC
GETMAIN aEA is issued. Otherwise
a standard 64 byte OEA is used,
obtained from the quick-cell chain
ROUTINE
LABEL
REFERENCE
KCENQ60
The caller's DCA is placed on the OEA
wait chain. This is a loop through
chain heads in the QCA. Each hash
queue name within queue name length.
~
NOTES
REFERENCE
1.1.7
KCTSN
QCANXOEA, or via GETMAIN il the
chain is empty.
[Qil
KCENQ40
The new OEA is inserted in the appropriate hash chain at the correct point to
preserve ordering. It is also placed at the
head of the chain of OEAs held by the
task (TCAKCOCI, The calling task is
then redispatched
~
A 'duplicate request' code is returned in
TCATCTR to indicate that the caller
was already enqueued on the given queue
The caller is redispatched
1.1.9
KCTDDTN
KCEN050
KCTDDTN
1.1.9
Diagram - 1.1.3·01
Enqueue upon a Resource
26
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
Page 1 of 1
OUTPUT
PROCESS
INPUT
I
TCATCOA
TCAKCaC
r
OEANoa
QEALNTH
aEANAME
I
Search chain of QEAs held by calling task for argument
~~K~C~OA~R~G
I
I
I OEAUCT
aCAFLAGS
queue name
________
~
Argument found on owned QEA chain, Reduce use
aEAUCT
count by one and if result is not zero go to redispatch
caller
I
OCANDSP
I
Argument found on owned aEA chain and use count
now zero. Relinquish ownership and exit to dispatcher.
~~~K~CO~R~L~S~--1-.1-.4-.2~1
Ar9ument not on owned QEA chain.
Red;spatch caller.
Diagram-1.1.4·01
Dequeue from a Resource
ROUTINE
NOTES
~
~
The 'owned QEA' chain head is
TCAKCQC. The chain, which is not
ordered ends with a zero chain field.
The subroutine KCORLS removes the
aEA from the 'owned QEA' chain
LABEL
REFERENCE
NOTES
ROUTINE
LABEL
REFERENCE
KCDEQN
1.1.4.2
and resumes any waiting task. The
subroutine KCQR LS sets the flag
aCANDSP if any task is waiting. The
exit to the dispatcher is to redispatch
the caller, or if aCANDSP is set, to
perform a full dispatch.
Diagram - 1.1.4-01
Dequeue from a Resource
Section 2:
Method of Operation
27
LICENSED MATERIAL -- PROPERTY OF IBM
Page 1 of'
OUTPUT
PROCESS
INPUT
QEA
I
QEANOQ
QCA
I
QCANDSP
I
I
Release the task from each item on the "owned QEA"
chain (head in TCAKCQC) then redispatch caller or do
full dispatch
~~K~C~Q~R~L=S
,
v
I
4
________
1.1.4.2
Diagram· 1.1.4.1-01
Dequeue All Resources
NOTES
~
If any task was waiting for any of the
ROUTINE
KCDQALN
LABEL
KCDQL2D
REFERENCE
NOTES
ROUTINE
LABEL
REFERENCE
1.1.4.2
queues released from the control of the
calling task aCANDSP is set on, causing
a full dispatch cycle rather than a simple
redispatch of the caller.
Diagram· 1.1,04.1-01
Dequeue All Resources
28
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
Page 1 of 1
OUTPUT
PROCESS
INPUT
TCA
TCA
I TCAKCQC
QEA
I
\
I
QEANOQ
QEAWTC
I
QEAHASH
QEACHN
QEALNTH
\
QCA
I
QCAHASHT
QCANXQEA
Remove aEA from "owned QEA" chain of calling task.
If any task is waiting for this queue IOEAWTC +vel go
to step 4.
I
Remove QEA from hash' chain and free It
~
TCAKCQC
I
QEA
QEANOQ
QEACHN
DFHSC
FREEMAIN
Return to caller
TCA
I
TCAKCQC
I
Select first tas.k on wait chain. Place OEA on "owned
aEA If chain of that task. Reinitialize aEA and resume
I QCANDSP
waiter.
~~~D~F~H~K=C________~
...-------v
~
I
RESUME
IDCATCQC
Return to caller
Diagram' 1.1.4.2·01
Subroutine KCQRLS
ROUTINE
NOTES
The wait chain is a chain of DCA's in
the form of a loop through OEAWTC
LABEL
REFERENCE
NOTES
ROUTINE
LABEL
REFERENCE
KCORLS
and OCATCaC. The chain to the aEA
is distinguished by a high order bit in
the chain field.
If the QEA was for a short name the
aEA is returned to the quick call chain
headed by aCANXQEA. Otherwise it
is freed by issuing'a FREEMAIN.
The flag aCANOSP is set to indicate to
the caller that a full dispatch is required
since a task which was suspended has
now become active again.
KCQRLS5
Diagram· 1.1.4.2·01
Subroutine KCQRLS
section 2:
Method of Operation
29
LICENSED MATERIAL -
l
l.nput
PROPERTY OF IBM
PAGE
output
,
[:1.-:.
•••• , >
DCA
Next
DCHCPA
Low
priority
~m~Ity
1._' >
\.--.1 - - - - - - - I'-'\[--~
oncbain
----CSllCTBA
<
-----DCAKeBl
KeTD
"ext lover
priority
active task
riorit
pr~ority
"task
address
address
~~~!:!~~-~~
~~:stor.
['CATCDPJ ---1----------->
@]
[-------------j
Di.!i>pa~ch
pr~o~
~
address
task fro!!
I!l.gh
I
DPUKCP:
C~:AACTFj --------- =::!!:>
task
address
1 0'
r------------------l
rYPE=CS:P
'-'\
<,1~~/>
~::=-----------Chain task to
active task
~~,uestor
[--]---
gi~~~i~ling
chain
--------------
DCATCDP
Di~pa~ch
~~!!-
[ ;;;;;;~
---J:L
, 1
V
'To Task
Disj?atcher
1. 1.9
I
________________________ J
C.bange Priority of a lask
Notes
Dia1ram -
Routine
Latel
, .. , .. 5-01
--------------------------------------1
'tIef
. Rout ine La I::el
,,
Bef
I
Notes
---------------------------- ------ --------1------1
KeTD
Kepc
I I1
KCTS
KCDCA
I
I
I
I
I
II
1.1.9'
i
I
I I
I
!
I
I
Coange prioritY~7I;$k------------------
30
I
_______________________J
Die.~ra.
CICS/OS/VS Program Logic:
- 1 .. 1 .. 5-01
Description
LICENSED MATERIAL -- PROPERTY OF IBM
Input
-------------1
procEssing
--------~
.
TYPE=WA[~~ \
····1
Tf.~~mf.~---------=::!~'
control
indicator
r--------------------------l
I
OF HKCP:
>
@]
CHAll'r': t::P1HCF
PAGE
, OF
,
Output
I
I
I
Determine the ori3in of
I
I
the request and exit
I
I
accordingly
l-----
I
I
'ICATCBA
E.vent
I
[;;;;;;;;j
control
I
I
-----J:l
address
\
I
I
I
I
I
I
V
1.1.7 OR
[ iC~CAilJ
control
I
1.1.9
iac~lity
I
1
address
I
TeTTE
'C===:J
I
I
I
I
I
I
I
I
II
I
I
I
I
I
I
I
I
I
I
I
I
I
____________J
l____________~____________,
1____________________________ ]
Synchronize a TaSK
Dia;Jram -
~~~-::::pat::::-:~-::::::- -::~::I ~~:::-
Bef
I
made to distin:Jllisll an A'll? task
one associ.ated directly
I
I
with a Terminal.
For AT.!? tas,s, ATP' s ECB is
bel
KCDCA
j;losted. and control is
Exit;
to
1.1.9
I
I
I
I
transferred to the Task
I
Dispatcher.
I
For terllioa1-a55O dated tasks,
control is transferred to
KCTSN
suspend the tas k.
Par tasKS tllat require terminal
READ timeout, the tilleout value
is deterllined and placed in the
Del (OCATBTO).
Exit
to
1. 1.7
vi~l
be started for the task's
data areas, if running
under the MVS or 51.6
'variants of the operating
,syst~m.
!
I
I
I
II
I
II
I
II
I
I
I
I
I
I
I
I
I
I
II
II
I
I
I
II
I
I
I
II
I
1
I
I
I
I
I
I
I
I
I
1I
I
II
II
I
I
I
I
I
I
I
Ii!
I
I
I
I
I
I
i
I
I
i
I
I
I
I
I
I
1
1
I
I
I
1I
II
II
II
I
I
1
I
I
I
I
I
I
I
I
I
I
I
I
1
I
---------------------------------------.1
Dia;Jra. - 1.'.6-0'
Synchronize a Task
Section 2:
I
I
.
ZZZZ"{!Z!Z.Z/~
----------->
-
address
@n
,
:
~~~~~--I
~~~n~.er
!
III
!priority
Laddress
~/
L-.J\
l~:~~~~_~~_:~~
O~
--------
1/
unchain task from
L~!SiiSPAl---
r~~
~l'~~er
/
\ ~::v r-------------j
~:~~--------------
address
~~~rity
@]
1
17 1/~(> I--:--~~-A-:.-~---------I
--,1
pr.'SokIity
t
PAGE
output
,
,i
I
I
!:
~I
zzz:mzzzz~!1
,
Ii,
High .
t~~~=--'
[~~~~~~~======j
DCA
[OCArRTOJ ---
I,
Chain task to
~~~~:~~-:~:~-~~~
lerllIinal
BEAD
timeout
value
,I
~] Exit to dispatcher
I
;;::;;;;1
[------]-
I
I
I
I
'-I
V
To Task
Dispatcher
1.1. 9
,I
I
I
I
I
II
!
!
I
L ______________________________ J
D1a';Jram -
1.'.7-0 1
~;;;-;;-=~~;~~:.~=~;:;=1!::::--:::====~~:-:~:~::1::;~:1
I
CICS/iS system task (e.g.,
Terminal Control) CICS is
I
abnormally terminated._
i
I
KCTIANN1
I
KCTSTOA
If the taSIt. I:eguests timeout
the task is inserted into the
suspend chain ill ti_eout value
descendiny seyuence. The tasks
in the suspend cl1ain at'e not in
I,
pr iority sequence.
~]
I,
KCDCA
1.1.9
1
I
I
I
I
__L ___J
Suspend a
32
Diagrall -
i'a~k
CICS/OSjVS Program Logic:
1.1.1-01
Description
LICENSED MATERIAL -- PROPERTY OF IBM
r----------------------1
r----------------------l
r--------------------------l
I [~;~'>l
' I Dr~~AKcpA--1
i
I
~~:~:-r-- r-----=~~>, [~~)
7777777777777~ '>
!
1Lii-lut
processing
PAGE
output
1 r)f
r YP L=R. SU M'
I
DFHKCP:
,
rl,!mm:~f\
I
,,
'
L,e
A
J
-----
'III
I
CSA
J
I
m~~:-l-Il-
,
I ~g~USBA'"
t:d5K
'
I
'I
II m~:::Y
I,! I
,
I address
ICADCAA
,
L'
,
\
I
:
',
l:'.~:::~ __,
·1
'
:
,
:
!:
----------------'
,,
I
I
"
[:::::~:l
I
\-vi
1
!
1
I'
:I
I~gun~~esting I
I
,I
:I
i
I,
1
I
I
:
chain
1
----- I '
I
II
II~I
7777777777/~
I
~~~~~S&~fJ I
I
I,ext
lowerl
pnonty
"
~~
I 'I
I
Lfr·~:~~-1j
1
I
I
:~~:~--:---=-----'
fn-]
I
I
,~~~~ritY
!I ,------.
'I I ',
!'
DCAKeB!\.
ch~i~-;:~skt~----
,I CsAACTBAI
!il.~n
!I
'I :'.~:::~--I
I\ fKCTS------------l '
I II
l~~I~~rt~a~tspatch
I
r-----l-!-I
CSAACTfA
I
,~mi~ty
/I
~1
--------------
------------
'l!~i~=::y
{ II
-----. I I
II
I
'r---,I
luncha"
,sus
p nd task
d ta okfrom
r----------->
II ~~::~-
--I--------I'~I I,'
II / I;;' \ >rKCTii------------~
:
I
:
I
I
I
'I
!
'
I
I,
II
,L__________________I
'l____________________________
J
'
I\
I
J '1___________________________ _
ltesume a TasA.
r-~;:===~~~=======~~=~~~~1~::~:~~~:~~~1~:~=1
r~::::-=~~~~~=~~~~==~~=~=~=~~:::~::I~~~~:~~~I~::~~~1
tE~J
I
'
I
'\ : I I\
I
I
I
t
I
I
Tne
ta.SJl1S
re:p.sters are s3.ved
I
.l.D
I
No SIi'.l.t.cn occu:cs during
IKcr'D
tKCTE.N
I
tne :';SA :catne:c than in rCA.
processing.
,1071
IL : J
l@l
I,
II
I
I
'KeTS
I
I
,
I I
,
,I
,I
+1
, I
I,
I,
I"
I
I
I
II
III
I
I
11
!I
I, : 1I'
I
I
I
II
' I "
,
,
, I[
,
,I
I
L
II
___________________________________________J
Re::.ume a 'lasK.
Section 2:
i
I
I
!
I
1
\
I
'I
I'
,
I
I,
,
,I
I,
I,
,
I
I'
I:
I ' ,
I KCTRTNBYI
I
I
I
\
I
I
I
I
1
II I,I I\
I
I,
"
I,
I
I
::
:
,
:
______________________________________________________ J
Diagram -
Method of Operation
1
1.1.A-CI
33
LICENSED MATERIAL -- PROPERTY OF IBM
Page 1 of 1
OUTPUT
PROCESS
INPUT
Update clock values and perform any time-dependent
functions which have become due
Select a task for dispatching
If a task is found dispatch it
If no task is found return to
as and wait for one or
more events identified during step 2
Diagram - 1.1.9·01
Task Dispatcher Overview
NOTES
~
ROUTINE
lABEL
REFERENCE
NOTES
ROUTINE
lABEL
REFERENCE
When control is regained after the
WAIT the whole dispatch cycle is
repeated after updating the 'packed'
time-of-day CSATODP as well as binary
values
Diagram· 1.1.9·01
Task Dispatcher Overview
34
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
Page 1 of 1
OUTPUT
PROCESS
INPUl
CSA
CSA
CSABASCL
CSABASTU
CSAICIAJ
Reset run~way task control and update binary clock
I
CSATODTLI
CSAICITP
CSAICEBA
CSASBTI
value
~~K~C~TO~D~RT~N~
I
I
ICE
ICESTATI
ICEXTOD
____
~
CSAICRIN
CSAICITP
CSAICIAJ
CSATODTU
CSATODB
Treat any expired ICE events
DFHIC
CSA
I
I
Expiration Analysis
I
I
CSATTECB
DCA
DCATRTO
TCA
Purge any timed-out suspended tasks
~~K~C~P~U~R~G~E
CSA
CSATODTU
CSASBTI
CSATSDTI
CSATCNDT
CSATTECB
CSAMAXT
TCAPCAC
________
~
Abend Task
CSA
Determine whether Tep should be dispatched
HTA
SRA
HTASTGCH
HTATCAA
Determine whether any task which was in SRB mode
is now ready for redispatch in TCB mode
I
SRA
Enter task scan loop
SRADSPCH
SRASTGCH
I
Diagram - 1.1.9.1-01
Task Dispatcher Time Analysis
NOTES
~
ROUTINE
The time-at-day sub-routine recognizes
the passing of 24.00 hours and
*ts
KCTODRTN
LABEL
NOTES
REFERENCE
KCDC
~
CSAICIATP to cause DFHIC to be
called in step 2.
~
~
The internal time interval KCTOTREM
is set in this section to the time
remaining to the first unexpired ICE,
if any. otherwise to the system time
interval (lev value)
KCXTAN
If any task has been suspended
waiting for a terminal read to be
satisfied for longer than the 'time-out'
intelVal specified in the PCT, it is
purged with abend code' AKCT'. The
subroutine KCPURGE resumes the tasks
and sets a 'timed-out' dispatch code
KCTEVXAB
TCADCRTO in the DCA.
LABEL
REFERENCE
KCCTRECB
If KCP is aware of any possible reason
for activating the Tep task (KCTCPEVI
set by task termination, WAIT nondispatchable issued by some task etc.)
the remaining time will be set to the
scan delay interval CSASDTI and
CSATCN DT set to correspond to that
interval if this reduces the current
value of CSATCNDT.
~
If the SRA dispatch queues are not empty,
indicating that an SRB mode task is ready
for redispatch, the first HTA is taken from
the dispatch chain SRADSPCH (if this is
empty the stage chain SRASTGCH is
moved to SRADSPCH) and the
associated task dispatch directly.
SRASTGCH is fed by the 'LEAVE SRB
MODE' service in KCSP, which also
posts SRAECB.
KCTD29
Diagram-1.1.9.1-D1
Task Dispatcher Time Analysis
Section 2:
If the time in CSATCNDT has expired,
the timer ECB CSATTECB is set to
X'40' to cause TCP task to be dispatched. If not expired, the remaining
time is"saved in KCTCREM."
ROUTINE
Method of Operation
35
LICENSED MATERIAL -- PROPERTY OF IBM
Page ,1 of 1
PROCESS
INPUT
OUTPUT
CSA
CSAMAXT
CSAACTBA
I
Perform initialization for scan of active DCA chain
DCA
I
DCATCDC
DCATCDC
DCAKCBA
DCATCAA
I
For each DCA on the chain exit to one of the following
sections_ depending on the dispatch code DCATCDC in
I
the DCA. Each section, apart from 'end-of·chain'
either causes the task under consideration to be dispat·
ched, or returns to this section to examine the next
DCA on the chain.
DCAEOLF
DCATSKC
DCAPGLST
CSA
I
CSAPCAA
CSA task class
accounting
fields
I
CSAPCAA
TCTLESLI
DCA
DCATCEA
DCAAPURG
I
l
Dispatch codes TCADCIDT, TCADCABD, TCADCPRG,
TCATDPTO, Dispatch task.
DCATCEA
CSA
CSAPCAA
CSA task class
accounting
fields
CSACDTA
Dispatch codes TCANDCG, TCAMAXT, TCAMXTC
TCAPCWT. Check whether reason for task being nondispatchable has gone away and if so redispatch it
CSA
CSA
TCTTE
I
Dispatch codes TCADCIND, TCARCSC, TCASRBM
and TCARCTS. Ignore this DCA.
I
Dispatch codes TCAPGWT, TCADCIEL, TCADCISE,
If an as event for which task is waiting has
completed redispatch.
CSAPCAA
I
I
I
Dispatch code TCADCISY. If internal CICS event has
been 'posted' redispatch task, otherwise ignore this
DCA,
Dispatch code TCADCEND End of DCA chain reached.
Go to 'partition exit' section.
Diagram· 1.1.9.2·01
Task Dispatcher Active DCA Scan
NOTES
Gi]
The DCA scan is set to begin at either
'the first (TCP task) or the second DCA
on the chain. The TCP task is skipped
if the TCP dispatch time has not expired,
avoiding examining all TCP ECBs on
every dispatch scan. The internal switch
KCTDTCP is set to show which of these
courses was taken.
The address and length of storage in
which to build an ECB list are loaded
from the dispatcher TCA (placed there
bySIFI). The 110 event counter is set
to zero (used to determine the number
of events to be waited for in DIS wait).
ROUTINE
LABEL
NOTES
REFERENCE
~
KCTD40
1.1.9,1
1.1.9,4
1.1.9.4
[§]
~
The scan ma'y also end if the 'active
task' counter falls to zero. This count
is reduced by one for each 'non·system
task (Le. not TCP or journalling) which
is waiting for OIS events (see step 6).
Control passes to partition exits as in
step B.
Tasks with codes other than TCACIDT
are redispatched by calling PC ABEND
on their behalf· this is an immediate
ABEND as opposed to the deferred
ABEND, recognized by the redispatch
section, which waits until any CICS
services have completed ..
[Qi]
~
KCTDNDCG
• TCAPCWT applies to SVS only and
indicates that the task is waiting for
a page fixed area in which to build a
virtual subarea list for PG LOAD
issued by DFHCSVC, (MVS and
VS1 use register form of PGLOAD)
KCTDPCW
REFERENCE
KCTDMAXT
KCTDMXTC
Tasks in these categories are waiting for
OS events, If not yet posted the event(s)
is (are) added to the list of ECBs for which
an OS WAIT may eventually be issued.
TCADCEND is a special code assembled
into the 'dummy' active DCA int the
CSA at CSAACTOF,
Diagram· 1.1.9.2-01
Task Dispatcher DCA Scan
36
LABEL
• TCANDCG indicates that the task is
waiting for storage to complete a KCP
service. The storage request is retried.
If successful the storage is freed again
and the KCP service restarted.
• TCAMAXT, TCAMAXTC are codes
set when a task is inserted in the active
DCA chain (the latter is for tasks
belonging to a task class). Tasks are
unable to proceed if active task limits
would be exceeded.
The active task counter is set to CSAMAXT
ROUTINE
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
Page 1 of 1
OUTPUT
PROCESS
INPUT
DCA
TCA
I
I
TCADCAA
TCATCDC
I
I
CSA
CSA
r
CSATRMFI
CSATCTCA
T
~
Y
~
Call user exit if any.
I
~
If dispatching a Tep or KCP task go straight to step 6,
I
~
I
TCA
I
TCAKCTTA
I
TCACTCMT
TCAFCAAA
I
1
TCTTE
[TCffiCTTJ
TCA
I
I
DCAKCTL
If an 'immediate abend' code appears in the TCA
abend task.
TCAKCTTA
TCASYABI
TCASVMID
CSACDTA
Trace dispatch if required and reset stall purge.
I
DFHTR
I
SYSTEM I D 20B
I
TCTTE
TCTTETT
TCA
CSA
CSA
CSAICRIC
TCASVMID
otherwise treat deferred ABEND requests.
Set a runaway time interval if required.
CSAICRIN
Restore task's registers and return.
CSAPIPSW
TCA
I
TCATCRS
I
Diagram - 1.1.9.3·01
Task Dispatcher Dispatch
NOTES
EJ
~
ROUTINE
The stall purge indicator is turned on
by partition exit when the system
appears to have come to a halt. It is
turned off here if a non-system task is
to be dispatched.
LABEL
NOTES
REFERENCE
1.1.9.4
The 'no flush' indicator is turned on in
TCASVMI D so that services invoked by
the task after dispatch will not abend
the task when returning.
For tasks other that KCP and TCP
a test is made for deferred abend. In
such cases the task is to.be abended
when the present nest of CICS service
call ends.
~
ROUTINE
LABEL
REFERENCE
1.1.9.5
If CSAICRIC is zero, i.e. runaway task
support is suppressed, the task is
dispatched.
Otherwise the interval timer is set to
allow the task to be terminated if
stile running when the interval expires.
KCTD75
To avoid frequent use of the STIMER
OIS service the runaway interval is
increased by 2 seconds. Successive
dispatches use the same setting until
the 2 seconds has elapsed, at which time
a new STlMER must be issued.
If DFHPC has already started the abend
(TCAABIPM or TCAABRAM set) the
dispatch continues normally. Otherwise
the 'no flush' indicator is turned off
and the flush linkage entered if no
service calls are in progress ITCASVMI D
zero).
Diagram· 1.1.9.3-01
Task Oispatcher Dispatch
Section 2:
Method of operation
37
LICENSED MATERIAL -- PROPERTY OF IBM
Page 1 of 2
OUTPUT
PROCESS
INPUT
DCA
I
DCATCAA
I
I
Process TCP task event list if not already done
GSA
CSAACTBA
I
~~K~C=EV~L~T~
______
~
Add ECBs for 'SRB mode' tasks to
the ECB list (HPO only)
I
I
I
CSASOSON
CSAMXTON
CSACTODB
GSAICSIC
GSACTODB
CSASUSFA
CSAACTFA
I
Go to wait (Step 6) if whole active chain is processed
and not in 'short on storage' or 'max tasks attached'
condition
I
If stall indicator is off, turn it on, set a stall time limit
and go to wait (step 6)
I
Stall indicator on. If the stall time has not expired go
to wait (step 61. otherwise either purge a task or rescan
the active chain
DCA
I
DCAKCFA
DCATCDP
DCATCDC
I
9~KCPURGE.
PCT
I
PCTSPA
I
Q
Q
J!
Q
TCA
TCAPCAC
PCT
PCTSPA
j
Diagram· 1.1.9.4·01
Dispatcher· Partition Exit
NOTES
[Q!]
If the TCP task was skipped in the DCA
active chain scan it must now be examined
and its associated events added to the list
ROUTINE
LABEL
REFERENCE
KCTDPXN
1.1.9.2
NOTES
ROUTINE
LABEL
REFERENCE
for the OS WAIT.
If any event is in fact posted the TCP
task will be dispatched immediately.
@]
~
[iI
The 'SRB mode' ECBs are posted by KCSP
when a task running in SRB mode returns
to TCB mode by issuing a 'LEAVE SRB
MODE'request.
KCTDPX20
The stall time limit is the present-time
*CSAICSIC. If, after that time, no
useful work has been done, tasks are
purged from the system in the hope that
freeing their resources will allow
remaining tasks to proceed.
KCSTIMTA
Successive dispatches, separated in time
by the system time interval (leV) are
attempted until the stall time has
expired. If, when this occurs, the full
active DCA chain has not been examined
because of 'maximum active task' limits
KCSTIMTB
(CSAMAXT) a final dispatch cycle wi.th
no limit is attempted. If, and only if,
this fails purging of tasks is begun.
'Purgeable' tasks are purged in order of
increasing priorty from the suspended
chain, then in ascending priority order
from the active chain.
KCPATASK
Diagram· 1.1.9.4·01
Dispatcher - Partition Exit
38
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -
PROPERTY OF IBM
Page2of2.
OUTPUT
PROCESS
INPUT
Set a timer interval to the shorter of the intervals
determined during pre-scan processing
I
I
CSA
CSAMAXT
CSAMAXTC
CSAIOCP
CSA
1
Update the active tasks high water mark (CSAMAXTCI
CSAMAXTC
if necessary
I
CSATOOP
Issue OSWAlT
~
Update time of day fields and go to dispatcher again
Diagram - 1.1.9.4.Q2
Dispatcher· Partition Exit
NOTES
~
~
ROUTINE
The interval is the time to the next
timed event, or, if shorter, the system
time interval (leV)
LABEL
REFERENCE
KCTOWT
1.1.9.1
NOTES
ROUTINE
LABEL
REFERENCE
During the active DCA SCC!O a count
was maintained of I/O events ('single
events' or page 1/0 events). A percentage
(CSAIOCP) of this is used as count
argument to the OS WAIT macro In an
attempt, given a reasonably high percentage,
to ensure that a reasonable amount of
work will be on hand when control
is returned after the wait.
Diagram· 1.1.9.4-02
Dispatcher· Partition Exit
Section 2:
Method of Operation
39
LICENSED MATERIAL -- PROPERTY OF IBM
Page 1 of 1
OUTPUT
PROCESS
INPUT
CSA
I
CSAICRIN
I
CSAPIPSW
I
CSACDTA
I
I
Save registers, establish KCP base registers and load
GSA address. If runaway task indicator is off, go to
step 6.
I
If program interrupt in progress or time does not match
expected runaway interval expiry, go to step 6.
I
Set abend code' AICA' and turn off 'no flush' in
TCASVMID and exit to step 6 if zero.
TCA
TCASVMID
I
I
CSA
I
CSAPUBA
CSAPLBA
CSAPIPSW
I
CSAPIPSW
I
~
If interrupt address unfavourable go to step 6.
~
Save interrupted op. code and replace with zero
CSA
CSATTECB
Post timer ECB CSATTECB and return to O/S.
Diagram ~ 1.1.9.5·01
Timer Interrupt Exit Routine
NOTES
~
If runaway task indicator is off this
represents the expiry of a 'partition
exit' time interval. The CSA address is
ROUTINE
LABEL
REFERENCE
NOTES
ROUTINE
LABEL
REFERENCE
1.1.9.4
ICINTRPT
stored in KCP during initialization.
§]
~
~
Gil
in MVS it is possible for a timer interrupt
to occur as a result of an STiMER issued
before the current one.
Timing off 'no flush' causes the task to
be abended when control reaches the
top of the nest of CICS service calls.
ICINT30
Interruption occuring outside CICS
storage, in protected CICS modules, or
in SPIE or ESTAE exits cannot be
handled.
The op. code is temporarily replaced
by zero. When control retu rns to the
point of interrupt a program check
occurs which the SPI E routine, because
of the saved op. code, recognizes as
being in reality a timer interrupt. It
restores the op. code and ABENDS the
~ffending task.
ICNOPCHK
Diagram· 1.1.9.5·01
Timer Interrupt Exit Routine
40
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
Page 1 of 1
rO~U~T~P~U~T~________________~
PROCESS
INPUT
I
TCA
~
TCARSTSK
~
Locate HT A argument passed by caller
~
Place request on SRB work queue and initiate SRB if
necessary
9
[Ei]
KCSRBA
1.1.10.1
Return to caller
Diagram· 1.1.10·01
Attach HTA
ROUTINE
NOTES
~
The argument HTA is marked as being
associated with an. 'ATTACH'
[;]
The as register save area in the eSA is
used for this service
LABEL
REFERENCE
ROUTINE
LABEL
REFERENCE
KCAH
Diagram-1.1.10-01
Attach HTA
Section 2:
NOTES
Method of operation
41
LICENSED MATERIAL -
PROPERTY OF IBM
Page 1 of 1
OUTPUT
PROCESS
INPUT
HTA
I
~
I
HTALRQF
Identify whether long or short running E; RB request.
SRA
I
I
I
I
SRASRQXS
SRALRQCT
SRARQCHN
SRARQEND
I
SRALRQCT
SRASRQXS
SRASHDRT
Update appropriate (long or shortl request counter.
Place HTA on request chain.
I
Determine whether it is necessary to start another SRB,
and, if not, return to caller.
HTASTGCH
Start new SRB and return to caller.
Diagram, 1.1.10.1·01
Subroutines KCSRBNKCSRBE
NOTES
~
ROUTINE
LABEL
REFERENCE
NOTES
ROUTINE
LABEL
REFERENCE
1.1.10
Entry point KCSRBA is used by
'ATTACH HTA' and may request a
long or short running SRB. Entry
point KCSRBE is used by 'ENTER
1.1.11
SRB MODE' and assumes a short run
request.
@)
The HTA is placed at the end of the
chain. Because SRB executions,
possibly running concurrently, take
items off this chain, some moderately
KCSRB20
devious compare and swap logic is
required here.
~
~
A new SAB is started if either there are
very few 'short run' SABs active, or the
request queue has become larger than a
threshold value.
A type 6 SVC is issued. This dispatches
an SRB (with entry point in KCSP) and
returns.
KCSRB50
1.1.12
Diagram- 1.1.10.1-01
Subroutines KCSRBAlKCSRBE
42
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
Page 1 of 1
OUTPUT
PROCESS
INPUT
I
I
SRA
SRA
I
SRANXHTA
SRANXHTA
TCA
TCA
I
TCAHTAA
TCAHTAA
Provide the caller with an HTA if there is none
associ~ted
with the TCA.
HTA
HTA
I
I
HTACHN
~___D_F_H_SC________~
v--Y
I
HTATCAA
GETMAIN
TCA
TCATCDC
Place request on SRB work queue and initiate SRB if
necessary.
HTA
HTAFLGS
1.1.10.1
~
Exit to perform full despatch.
8f-'1
;==.CD=:.c..CA_---I
.
1.1.9.1
Diagram ·1.1.11·01
Enter SRB Mode
ROUTINE
NOTES
EI
If the caller does not already have on
LABEL
REFERENCE
NOTES
ROUTINE
LABEL
REFERENCE
KCMS
HTA (TCAHTAA=O) one is obtained
from the quick-cell chain SRANXHTA
(using compare and swap since HTAs
are returned by SRB mode process) or,
if this is empty, by issuing a GETMAIN.
If this fails the task is temporarily set aside
with a 'non-dispatchable' code TCANDCG
until storage becomes available.
~
From the point of view of normal
Tea mode CICS, the task has now
become non-dispatchable, and will
remain so (with TCASRBM dispatch
code) until, in SRB mode, it issues a
'LEAVE SRB MODE' service request
to KCSP.
Diagram -1.1.11·01
Enter SRB Mode
Section 2:
Method of Operation
43
LICENSED MATERIAL -- PROPERTY OF IBM
Page 1 of 1
OUTPUT
PROCESS
INPUT
Initialize SRB mode execution.
(See detail charts)
(See detail charts)
Select item from request chain, check validity of
request and provide environment exit to requestnr.
On return from SRB mede execution via DETACH
HTA or LEAVE'S RB mude service, dispose of
resources and go to step 2.
Diagram- 1.1.12·01
SAB Management Overview
NOTES
ROUTINE
LABEL
REFERENCE
NOTES
ROUTINE
LABEL
REFERENCE
.'
~
~
SAB mode execution is initiated by the
issuing of the type 6 SVC SRBSVC by
KCP.
1.1.10.1
1.1.12.3
The request chain is built by KCP as a
1.1.10.1
1.1.12.4
result of ATIACH HTA and ENTER
SRB MODE service requests. If the
request chain is empty the SRB terminates.
@]
These services and the above steps all
reside in DFHKCSP, which is loaded in
protected storage by DFHSIB1.
1.1.12.1
1.1.12.4
Diagram - 1.1.12-01
SRB Management Overview
44
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
Page 1 of 1
OUTPUT
PROCESS
INPUT
TCA
TCA
I
T
~
Check validity of save area of returning SRB
I
T
~
Put HTA on stage chain
ISRASTGCH
@]
Post DCAPECB ECB
I
I
I
\'TCAHTAA
HTA
HTARSAX
SRB
ISRBPARM
I
ISRBSAVE
I
SRA
ISRASTGCH
I
TCATCRS
SRA
q
HTASTGCH
KCSLOCK
----
0/5 POST
branch entry
q
HTA
DCA
I DCAPECB
KCSUNLK
SRA
ISRASHORT
I
• §]
ISRASHORT
Adjust short running SRB count and 90 to look for
another SRB request
KCSP500
1.1.12.4
Diagram-1.1.12.1·01
Leave SRB Mode
NOTES
~
ROUTINE
A check is made that the save area index
which was associated with the SRB is
still valid, and that the FRR parameter
area is still the one established by
CICS. The save area arid FRR
LABEL
REFERENCE
NOTES
ROUTINE
LABEL
REFER~NCE
DFHKCSPL
can be
reused if so,
~
P1acing the HTA on the stage chain
makes the CICS task available for running in TCB mode again from the point
at which 'LEAVE SRB MODE' was
.called.
~
DCAPECB is posted to indicated that
a task is ready to run. If CICS is
waiting on DCAPECB (among others)
KCSP120
the local lock is acquired and POST
invoked via branch entry.
~
The SRB execution has completed as
far as the caller is concerned. If there
is any outstanding SRB mode request
this will now be satisfied.
KCSP160
Diagram-1.1.12.Hll
Le..eSRB Mode
Section 2:
Method of Operation
45
LICENSED MATERIAL -
PROPERTY OF IBM
Page 1 of 1
OUTPUT
PROCESS
INPUT
SRX
ISRXRSCA
Ch.eck validity of save area of terminating request
I
HTA
I HTARSAX
I
SRA
SRB
SRBPARM
I
I
SRANXHTA
Put HTA back on quick call chain SRANXHTA
HTA
SRA
ISRANXHTA
HTACHN
I
Go to adjust short run SRB count if this was a short
run execution, or gb straight to look for next request_
d
KCBP500
1.1.12.4
Diagram· 1.1.12.2·01
Detach HTA
NOTES
El
~
Check is as for'LEAVE SRB MODE'.
If this was 8 short run SRB then the
count must be reduced by 1. Control
is passed to 1.1.12.1 step 4 In this case.
ROUTINE
DCHKCSPD
LABEL
ROUTINE
REFERENCE
REFERENCE
1.1.12.1
1.1.12.1
Diagram· 1.1.12.2-01
Detach HTA
46
CICS/OS/VS Program LOgic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
Pagel of 1
OUTPUT
PROCESS
INPUT
SRX
SRA
ISRATOTAL
I
ISRXRTNA
Add 1 count of running SRB's (SRATOTAL) end
save MVS return address (SRXRTNA)
SRA
ISRATOTAL
IssueSETFRR
SRX
ISRXCSA
@]
I
Get save area
~~,K~C=S~L~O~C~K~______~
0/5 GETMAIN
branch entry
Exit to SRB dispatcher
Diagram - 1.1.12.3-0"
SRB Initialization •
NOTES
~
ROUTINE
The MVS return address is saved here.
It is always saved in the same place, so
LABEL
REFERENCE
NOTES
ROUTINE
LABEL
REFERENCE
DFHKCSPP
SRBs always return to the same point
in MVS. The SRB executions which
return to MVS from KCSP are not
normally initiated by CICS in any case.
E]
§]
The recovery routine nominated here
simply ABENDS C ICS.,
KCSP310
An O/S save area must be supplied for
use by System SeNic.. called by the
SRB execution. The normal CICS 0/5
KCSP320
~
save area in the eSA cannot be used
since the SRBs run in parallel.
The save areas are protected to prevent
corr.uption during the c;:omparatively
long periods of use during I/O
operations.
If the chain of free areas is empty a
new area is obtained in subpool 252
using branch entry to GETMAI N (which
requires that theloca.llock be held).
The SRB execution is termfnated if the
GETMAIN fails.
Diagram - 1.1.12.3-01
SRB Initialization
Section 2:
Method of Operation
47
LICENSED. MATERIAL -- PROPERTY OF IBM
Page 1 of 1
OUTPUT
PROCESS
INPUT
I
SRA
SRARQCHN
I
HTA
I HTASTGCH
I
=t-
SRA
I
SRASRQXS
SRALRQCT
I
HTA
I HTALRQF
I
SRX
I
SRXVEA
SRXVAA
I
TCA
I
TCATCRS
I
HTA
I
HTAATTF
HTATCAA
HTAEPA
I
=L
~
~
If no save area is available go to initialization section
to get one (1.1.14.3 step 2)
SRA
~
Take a request from the chain. If none go to step 6.
@]
Initialize F RR parameter area
0/W~>
lb
El
Update request count and short run SRB count
(if applicable)
:>
~
Check validity of request and start its execution
:>
~
Terminate SRB
I SRARQCHN
HTA
HTARSAX
SRA
:>
SRATOTAL
SRX
I SRXRTNA
I
SRA
ISRATOTAL
I
Diagram - 1.1.12.4-01
SAB Dispatcher
NOTES
~
~
§]
ROUTINE
LABEL
REFERENCE
A save area may be unavailable if the
check in 'LEAVE SRB MODE' or
'DETACH HTA' failed.
KCSP500
1.1.12.1 .
1.1.12.2
The request chain SRAAQCHN is built
KCSP510
1.1.10
1.1.11
up by 'ENTER SRB MODE' and
'ATTACH HTA' services in KCP.
NOTES
ROUTINE
LABEL
REFERENCE
The SAX address and the current HTA
address are placed in the F R R
parameter area.
~
A check is made to ensure that the
address to which control will be passed
KCSP540
is one of a protected list of valid
addresses.
~
The save area is put back on the free
chain and the total of running SRB
executions reduced by one. Control
is returned to MVS at the address saved
in SRXRTNA
KCSP580
Diagram - 1.1.12.4·01
SRB Dispatcher
48
CICS/OSjVS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
Page 1 of 1
OUTPUT
PROCESS
INPUT
TCB
I TCBUSER
Check that SRB address in TCB is valid. Return if
not
SRB
Return to MVS requesting dispatch of SRB
I SRBPTCB
HPO svc IDFHHPSVC)
Diagram· 1.1.12.5·01
ROUTINE
NOTES
El
This module is a type 6 SVC link
edited into the MVS nucleus. It is
invoked only by KCP in response to
an 'ATTACH HTA' or 'ENTER SRB
MODE' request issued by ZCP or Fep.
Its sale function is to dispatch the
DFHHPSVC
LABEL
REFERENCE
NOTES
ROUTINE
LABEL
REFERENCE
1.1.9.2
1.1.9.3
SRB described by the SRB imbedded
in the SRX allocated in SOA by
DFHSIBI.
The user field of the callers TCB
should address the SRX whose TCB
pointer should point back to that TCB.
Ii]
The program flow logically splits at
this point, in SRB starting and the TCB
continuing.
Diagram-l.l.12.5-01
HPO SVC IDFHHPSVCI
Section 2:
Method of operation
49
LICENSED MATERIAL -
PROPERTY OF IBM
Page 1 of 1
From
INPUT
PROCESS
User
b
TCA
TCATCRS
KCP's register
save area
DFHKCP:
• @D
I
~~~
•
Kep's type of
request flag
KCP
DFHLFM
TYPE = PUST
~
Static in·line
LI FO parameter
OUTPUT
Restore registers 14 through 11 from TCA
@]
Issue LIFO TYPE = ENTER request
~
Establish addressability to Kep's code
~
Branch to service routine code
"0=0
AVAIL
UNAVAIL
SCHEDULE
TCA
W~7
I
:TCAKCRC
Kep's return
code
~
Set return code
~
Issue LIFO TYPE:: RETURN request
~
Return to user
list
~
To User
Diagram - 1.1.13·01
LIFO Storage Requests
NOTES
~
~
~
~
The registers are restored at this point
since return wilt be made from this
request to the user, not to KCP.
ROUTINE
LABEL
REFERENCE
NOTES
ROUTINE
LABEL
REFERENCE
KCLFM
Base registers are set up to be compatible
with KCP's registers in the non·LlFO case
Although the service routine is branched
to, it always returns to set the return
code
LI FO return is made to the requestor
KCLFMRET
r
Diagram - 1.1.13-01
LI FO Storage Requests
50
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
Output
rrpE=SC[~::> ~=-----------l
---, J
rCA
r ~:tli~~~l--I------------->
["
~!J :::~:s:~n:I~a:~:
necessary
_ _ _ _ _J
[
J--I-
\,--,/
-----
fe~~H;:-rl[~----I
I
[ liE~r~l
---
[~
1031
l::-
ro5"
rransaction 1D
~~~~~--
c~~__
AID chain
B.etutn new AID address
PeI:fo1"m operator check,
TCT
IIIII
l----------::~:-~j
l
/
000 000
--
:
I fAIncHNAD--l
otl
:
"1
Address
L~~~~~_-.J
'I [------,
I
I
~
------:1:[
,
!,'"
'rCA
~~~::~ ___ .J
TC'!'TE
:
'l'CTTEIC
IAuto.
I
1
'
,a~aia:i~r
_______ J1
:,
,
I,
:
/
V
/
'-J \
<, ~~/>
UTTEoCtJ
,
To Caller
[ _ _ _ _ _ _ _ _ _ _ _ _~
i~------------1.5.11.1.14
------------
I
,
1
I
!
,
I
I
_________________________ ...1
----------------
I
1\'>II I'>r-------l
7 77777
777777
----------11/
----
:
'I AID
--I------L~:::: >,
if
!,
rCSAAliiiiA-,
l!~~!:!:~~J
>
----------,
[
----- ----) 0
:
i
CSA
~I
I
l address
"
!
I~)\>
zZZZmZZZC~ll/
CsAr CT SA -
1~.Eerator
lCTTEOI
~j
I'~
the I
L::::J necessary
Tr~~--
1
I
L::
~~:rRiUDl
II5r"'-naL
ICr~AAiiiiA~
!~~isXIgf
r-TAfTD!_f,TA-l
- '.,
I
7777777777)
--1----------77\)'
ILOCATE----L
1.5.11.1.18
rterge-::-=-~~-::
!
:
A10
l::~~::=__-'
II~II
II
/ l-;i\>fTcP-----------J
',-")1
-------------r
~
\
matching terminal 10
10-_"]
AWWrO-
,
chain for a
1 OF
[=====J
New
17/7,)/>
I~
lGET::_____2:~~
AID
I
I
:=::===:~)l
_ _ _ _ _ _ _ _ ;~I
____ > (~n Scan the
iHPlied
-----
::e
fsCP---------~
-tc-.KC-;;;--I
•
~~~~~~ 10
PAGE
r-------------------I
PI'ocessing
l~~_____________
I
I _____________________________ .J,
l.
Schedule a Reso urce
Diagram - 1.1.13.1-01
~";~~:::::~~~::- ;~~;;:I ;~;:'~I fl::::::ro;;;;;~~:~~-==:=:~~~I,::::~:ll:~~:r:~~
I
I
I
I
If thl.s condl.tl.on does not
one. It AID storage ~s not
available, an appropriate
occur, the new AID is merged at
the end of the chain.
response code is returned
directly to the calling routine.
KCRS.CN
~ If an existl.ng AID with a
lIIatchinJ terminal 10 is not
involves comparing the operator
check field of the AID against
one of two fields in the TCTTE.
via toe D.FHTC .l..OCATE fUDcti.on,
tor ODe and" tbe address of the
It
If equal, or if no check is
required, the Automatic Initiate
response code is returned to the
indicator is turned on in the
TeTTE, via the DFHTC ATI
callin;J routine.
If a lIIatc.bJJlg ID is fauna,
function. If neither, the
the
indicator is left unchanged.
TcrTE address is put in the AID
and the AID is then searctled for
control is returned directly to
llIatching transaction 10 and
the caller.
operator check.
The new AID is llIatched against
I,
I,
1,
KCAIDHRG
existing AIDs until the fiI:'st
no-match condition after a match
of terminal IDs occurs.
Tile new AID is merged where this
1
,
I,
I,
i,
I I
'I
:
,
"
I
I
I
no matching
TC'l'TE is found, an appropriate
'I
1
I
IIKCSETTCl"I
1
I
1
II
'I'
II
II
II
I\
I
I
I
I
KCTDDTN
I,
I
I
I
1
,'I
1
I,I
:
I,
I
II
,
1
Iii
I
I
II II
II I
I
II
II
_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ .J
Diagram - 1.1.13.1-01
Sc.o.edule a BesouJ:ce
Section 2:
c::e a and-
check is to be made. The chp.ck
found, tile TCTTEs are searched,
matched rCITE.
II ~ :~e o::;a~~~ ~::;:i::l:e
I'
,
I
I
\
' "
I'
'/
Method of Operation
51
LICENSED MATERIAL -- PROPERTY OF IBM
Page 1 of 2
TYPE=AVAIL
INPUT
~
OUTPUT
DFHKCP:
TCTTE
TCTTE
TCTTETI
Terminal 10
PROCESS
•
I
~
GZ)
Scan AID chain to match the reTTE terminal 10
TCTTEDA
TIOA addre:ss
TCTTECA
Address of
owner'sTCA
AIDs
§]
AIDTRMID
Terminal 10
AIDSTATI
~
Status
Indicator
10
~
AIDOCTYPE
Type OP check
Auto init
indicator
TCAKCRC
Return code
1.2.1
Initiate the task or resume SUSPENDED task
<0
AIDOPCHK
TCTTEIC
SCP
GETMAIN
AIDTYPE
Typeo! AID
~0
Obtain terminal storage, if necessary
<0
AIDTRNID
Transaction
:>
Verify that the proper operator is on the tetminal,
if necessary
Operator
check
~
KCP
ATTACH
9
~
KCP
: RESUME
CSA
CSAAIDBA
Address of
first AID
1.1.1
=a
AIDOCTYP
Operator
check code
AID
"
~/-l
Determine the AID type
v
AIDCHNAD
Address of
next AID
Diagram - 1.1.13.2-01
Declare Resource Availability
NOTES
~
§]
~
[§]
~
If a match is not found, a return code is
set and control is returned to the caller.
ROUTINE
LABEL
REFERENCE
NOTES
ROUTINE
LABEL
REFERENCE
KCAVLSC
If the AID requires an operator check,
the operator check field of the AI D is
compared with either TCTTEOI or
TCTTEOCL, depending on the operator
check code in the Al D. If not equal,
the Automatic Initiate indicator is
reset in the TCTTE. If not equal, the
indicator is left unchanged.
Terminal storage is obtained if none was
previously acquired. If no storage is
available, a negative response code is
returned to the caller.
KCAVUNT
If this AI D represented a request by an
existing task for a terminal, then that task
is RESUMED, otherwise a Task Control
ATTACH is issued. If unsuccessful, a
negative response code is returned to
caller. If successful, AID status is set to
'Task Initiated'.
KCAVLGSB
1.1.1
If the A I D was not created by an
Interval Control PUT request, the AID
is unchained and its storage is released.
For BMS-type AI Ds, the data 10 field
is added to the new TCA.
Diagram -1.1.13.2-01
Declare Resource Availability
52
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
Page 2 of 2
OUTPUT
PROCESS
INPUT
SCP
FREEMAIN
1.2.2
Connect the new task to the terminal
TCA
~
Set response code
ITCAKCRC
IResponse code
Diagram - 1.1:13.2-02
Declare Resource Availability
ROUTINE
NOTES
~
The response indicates whether or not
the task was initiated. Control is returned
to the caller.
LABEL
REFERENCE
NOTES
ROUTINE
LABEL
REFERENCE
KCTDDTN
Diagram - 1.1. 13.2-02
Declare ResOurce Availability
Section 2:
I
Method of Operation
53
LICENSED MATERIAL -- PROPERTY OF IBM
TYPE
INPUT
TCA
-
TCAKCFA
Address of
=UNAVAIL
[b
Page 1 of·1
PROCESS
DFHKCP:
• ~
unavailable
TCTTE
@0
OUTPUT
~
Point to first AID
~
Advance to next AID
§l0 §]
If this AID is for the unavailable TCTTE, cancel
the AID
0=0
KCRUABOO
Cancel an
AID
'-
TCTTETI
Name of
TCTTE
• ~
TCTTEIST
r- Address of
system entry
Determine whether the owning system entry should
be put out of service. Set good return code if not.
~, ~
Point to first AID
~
TCSE
Update first AID, cancel AID
0=0
....1TCSESUS
Chain of
AIDS
8§J
Continue scan of AI Os
~
TCTTE
KCRUABOO
Cancel an
AID
~
~
Continue
~
Declare Removal of a Resource - UNAVAI L
Diagram - 1.1.13.3-01
To User
NOTES
~
§]
Dec~re
The TeTTE points to the owning
system entry (TeSE), The system
entry anchors the chain of AIDs
If-there are no available primary or
ROUTINE
LABEL
REFERENCE
NOTES
ROUTINE
LABEL
REFERENCE
KCRUAN
KCRUA040
secondary-conversations, the system
entry should be put out of service
Oidgf"3m- l.f fJ.3.()f
Removal ota Resource - UNAVAIL
54
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
,Pagelof1
From 1.1.10.3
OUTPUT
PROCESS
INPUT
[;b
n
DFHKCP:
TCA
I
Pass information to the suspended task that the
ALLOCATE request has failed
AID
I
AIDTCAA
Address of
TCATPTA
I
Resume the suspended task
suspended task
~ ~K_C_P____~
TCA
DFHKC
TYPE·
RESUME
Release the AID storage
r.:-'\. ISCP
~
I
DFHSCTYPE
• FREEMAIN
Return
To User
Diagram - 1.1.13.3.1-01
Cancel on A I 0
NOTES
~
ROUTINE
Field TCATPTA in the suspended tasks
LABEL
REFERENCE
NOTES
ROUTINE
LABEL
REFERENCE
KCRUABOO
TCA is cleared. This indicates a failure to
allocate a TCTTE
c..nc..tonAtO
Section 2:
Diagram -1.1.13.3.1-01
Method of Operation
55
-
~
~
Storage
'i
Management
f
1.2.0
'Ii
I
3
l!
I
.,
. GETMAIN
Controller
FREEMAIN
Controller
1.2.2
1.2.1
I
Control
-Teleprocessing
Subpool
Subpool
GETMAIN
GETMAIN
1.2.1.1
Isolated
Shared
Subpool
GETMAIN
Subpool
GETMAIN
1.2.1.6
1.2.1.5
1
Mixed
Subpcol
GETMAIN
1.2.1.2
Isolated
Control
Teleprocessing
Subpool
Subpool
TCAGETMAIN
FREEMAIN
Subpool
FREEMAIN
1.2.2.1
1.2.2.2
1.2.1.3
Aligned
Subpool
GETMAIN
1.2.1.7
1.2.1.4
Program
f'"
~
~
ProQTlIm
Exit
1.2.3
I
I
Storage
Control
Recovery
1.2.5
Isolated
Subpool
FREEMAIN
1.2.2.3
Prognlm
Subpcol
FREEMAIN
1.2.2.7
Shared
Subpool
FREEMAIN
1.2.2.5
Subpcol
GETMAIN
1.2.1.8
I
Mixed
Subpool
FREEMAIN
I
FREEMAIN
Exit
1.2.4
.".2.2.4
LICENSED MATERIAL -- PROPERTY OF IBM
------------r" - -::=--------
lu,tlUt.
PAGE
'l_~~_~~€_s_t
_
fQ2]
-----------) l:_
PAM
@]
Vahdate the reguest (TaSk7777777777777)') II
AS::a
Determine which storage
1'-"
----------->
[----------------~
~~~;~~:~t~~;g;----
,DAJII't'YPftQ
I,,:,
I
_____J
I,~~~
'Ilequest
',
i
I
-----------~:=-~.:.~
ZZZZZZZ??Z??Z\
necessary
Save stora;Je
!
I
II
Suspend the task if
@]
~~te~f
I
Test for DFH0501 condition
<... ~::~/>
Pf~i;qflyTR-l
~~~~~~-I
I
mzzzzzzzl~1
SUbpool to use
I~]
II
--I--------I///I~I~ I
ABEND test.)
n~
r)utput
[~::.
r~AScTRJ----I-----~~!: [~]
1
r--------------l
processing
address
I
>
I I
c~"
[cSisosi--l
Short on
J
____ _
I storage
l~~:
,
ZZZZZ????Zj;
TeA
I~/I\
@]
"-11
Trace the storage
allocation
[::::::;;1
-----J.:
\
L __________
L ________________ _
'
I
I
pro~ram
J"" -..,., I
To
II
l _____________________________
G.t.TIUIN ControLier
Oiaq't'am -
,
~
1.2.1-n1
,------------------------------- r------------------------------------------------------1
1_~~:-----------------I-:Uti~:! ~~~:~_I_~~ __ I_::~:: ______________________________ !I-:::~~:: I_~:~:~ __ I-:::--I
~]
1'[ the nU.IIl.ner of Dltes re>juested
l
SCSfGETK
I
I
I
I
I
I
1
I
,,'
i,
,
\
\
I,
,!
!,
I
I
I
is zero or exceeds the maximum
I
value"
't.ae taSK is abnormally
\
term.inatea. lI.l.t.o. a termination
I
I
code of ASCd,
I
deterlilines IIhich subpool is used
I
jlI
't::J
"00;21 The t.Yt'e at sto ra 3e requested
to oDta.l.D lot. W!len the storage
reguesteo. lIill De chained off
tne TCA Cb.a.LD, tne stora;e is
'
I
I I
aHocated tro. tbe saae sU"pool
I
as the TCA.
I
A branen is made to the
re~uired
suopool G.f.'l'I'lAIN routine to
sat.~sfr
t.ile reg,uest.
If the reguest was IlDconditional
and could. not
De
SCQ(JEUE
satisfied, the
,. '.7
1.2.4
tasK is suspended .. The PREEf'lAIN
1
I
'i,
I
I I
I
I
Exit routine will retry tne
CE':!uest when some stora3e is
I
freed.
1
t..:.:J
r;;o'-71
L~:~:=~:~:::
G.l::TKALN Controller
section 2:
ISCTRACEG
2.1.0
______L___J_____~ L________________________1_ _ _ _t_ _ _ _l_ _ _ ,
T.o.e GETMAIN reguest .l,S traced
Method of Operation
,I
Diagram -
1.2.1-{11
57
LICENSED MATERIAL -
PROPERTY OF IBM
~n~~ -----------l~~~~q '.[~: ":=~-----
OlltP~~
PAG!
1 Of
_________________ _
__
••••• >
--,/ @]
PU
fEAaruiQ-l--------------->
Be'!iUest
t1 pe
1-----
t
~~~N~itgJ
~~~:sted
I '-.J\ [ - - - - - - - - - -.........]
<,~~/> ::~~!!~--------Alloea te storage
on a best fit
~~-------
@]
[-------------]
<,/ ,--',
~~/> ::~~::::--------Assign another
!~~~~ t~ _ _ _
(I ~;;j \:> [SCiiQiii--------~
\,-,/
------- ..
--)
--------------Insert new page in
FAC! chain
--------------
(/1;;1' )[sciiiiTiii-----~
\ ..--,1 ---------Initialize stora";l@
--------
@~] Create a Storage
Accountin3' Area
~] Return address of storoge
1 ~II
77~\
PA~
l
PAiiCSiDiiJ
Stora'Je
area
address
!lEZ!1mlt.
L__________
Dis'Jra. - 1.2.1.1-C1
Contro! SUOilool GS:1'ttAl[iI
He uti De
Hotes
~ An. attempt is ./lade to allocate
La tel
. . =====-
~
Bef
SCBESTE'I SCC'lLGBP
~~::~~~
stora;e troll existing PAQBs On a
I
Dest tit· basis.
are
@]
Additional pages
assi~lled to
the SIUJl-0ol ooly wbeo tbe
reguest canoot De satisfied froll
eXistio3' .PAwEs.
@]
iIIhell new ,t:a;es are assi;nad to
the su.opool, thEY are treated as
a Ez:ee Area \Jueue Element (PAQK)
and are inserted 1DtO the FAa!
cbaill. tbe r~guest for storage
is tboo. retrieQ.
SCPAQBIN
~ l'he area is iDi.Ualized to the
bit pattern given Dr tbe
IHIUflG= operand if tbe operand
was s,tJecitied. A four-byte
stora:Je Accounting Area is built
in tne J:rollt. ct tile area.
SCIHIl'AL SCC'ILGOK
~ the address of toe area
allocat.ed is re turned to th e
caJ.lio; routine. I f no area
could De alioca ted, an address
of 2eros 1S z:eturned.
SCtlAStEG
!
I
SCC'l'LGB.K
COlltr~~p;;!GB'iiiiiii----------------------
58
-----------------------ii'i;~8ii-:-1:2:1:;:O
CICS/OS/VS Program Logic:
1
Description
LICENSED MATERIAL -- PROPERTY OF IBM
J:~~~:_________________
pr~~=:~.L
________________ _
1'[':)81.2.10r
1.2."
,
[:1--,
····1
PAK
EUTIPBQ
output
PAGE
1 O'!ll
---------------------------1
OF USC.:
>
------.. --=::!~) ~] Adjust the request
ae-J.uest
type
----EAftNBYTB
@]
Ro. of
Gytes
re !::lues ted
----EAtlPCAAA
-----------> [ScBiSTiT----~
, .--./ Ail;;;;-;t;-sto~;g;--
'leTtE
address
on a best fit
basis
-----------
II
I
I
I
I
,
J
_____
<''.--.1
I=i' >[SC;;;;ST.G---------------
II
Assiln another
~;!E~~~_~~
i
i
~]
I
I
I
I
<'' ,j;;j
"[SCiiOElii------~
- , / --------
I
I
I
Insert new page in
:~:2~~;_~~~~
__-,
I
I
I
I
I
I
I
.. ---- -- --- .. > (/
,L___________ >
I
,I
t'=I '> [sCiiiTAL-------~
---------Initialize stora,;),e
---------create duplicate 5tora';8
I
',....-,/
~
I
L
Accountin,; Areas
I
II
IL ___________________________JI
-------------------
-~~---------------- -~:I-~:~ -~
~ Tae nUIiDer of b 1tes reguested is
iDc~ude
adjusted to
SCTELGET
the
Diagram -
---------------------------------1--------,------,
Notes
Routine La bel
I
------------------ ------ -------- ,------,
'Ill"f
1he area is ini t1ali.zed to the
5CIIHTAt SCT~tGO~
bit pattern -;iven by the
d up~ica te Ston:le Account1n3
INITII'1G= oFerand if the operand
re~l1C!st
Duplicate Storage Accounting
+ 13 rounded to
Areas are built at the front and
the
B. For L.101, adjustment is
re~l1est
double -do ubi evor d.
SCBBS'I'l'l SCTELGBP
storage frolll existing FlQBs on a
I
I
t
I
II
IsmlGE'j
j
I
!
I
I I!
I
Dest fit basis.
~ Additiona~ pages are assigned to
of the area.
I
... B rounded to
~ An attempt is .aae to allocate
bac~
I
I
I
I
I
,
,
doq))le-douJJlevord.
,
I
I
I
I
I
I
vas specified.
A. for TIOA, adjustment is
'~:;;~1~2-CI
I
SCtUSl'EG
the Sllbpool only when the
reguest cannot De satisfied fro.
e.J.istiD.; iAQ!s.
[~
I
IIhen PBW Fa';les are assi3ned to
SClAQEIH
tAe sub pool, t.D.ej are treated as
PJ:ee Area wueue Eleaent (lACE),
and are inserted into tbe PAQE
Chain. fhe reljuest for stora:re
is then retried.
------------------------
'.fe.LeprocessiD.:I SUDfool GE'lftlIH
Section 2:
Method of Operation
I
I
I
.I
,
_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ .J
Dia1ram -
1.:;;.1.2-{1
59
LICENSED MATERIAL -- PROPERTY OF IBM
PAGE
2
o~
2
lnpu t
Proc€ssiu 3'
OlltpU":
~------~~~---i
~:-------------------l
1-------------------------------1
[~~!~J'- -----------, ~>]
i!1
:::,::';::,:"" "
[-~-~) allocated area
Return address of
I
~lz z z~Z ?Z\> Iili~~~]
'1
ill
I
)'
ZZZZZZ?Z???Z?l/>
[L
___~
........
r---~;)
Ij?2~"2.'
or
I .,"storage,
[pM;cSADR--l
I,
I
I
I,
I
area
t~~~::=- __J
I
I
,I
I,,
I
I
I,,
,
,,
L____________________
~:ele!lrocessin:1
IL______
~_____________________
,____________________________ 1!
suopool GETfUlN
Diagram -
1.~.1.2-C2
~;;:-~;,=~;==-::;·"t:;:='~l c::::==:=:::==-==~I~::~~::j:::~~
I :::::.':r t::. T:;~: ::o:a~:OA'
II
I
,
the
Ch[~~~~~===========J
---------------Calculate
turnaround pain t
~]
<~ >[~~~~~PG--====J
Assi'3'n another
~~~f~~~_~~:
@]
____ _
UpdatE the counter of
active allocations
§]
I ...... ,
[---------~
<, ~~~/> :::~.:::~~-------
Ini tialize storage
---------------
~~] Create storage Accounting
Areas
J
L_______________
--------------------'
a1.xed SUlliOaJ. G£TItAIH
Il __________________________l
Dia-gram -
1.~.1.3-Cl
-----------------------------------------------------,
Boutine
Hotes
LateJ.
, Poutinp 1
Notes
R~f
._------------ ----- ----- ---- §-~:-;:;::_:~:-:~:;::------I ~~~~:
@]
requested
SCPllIrCA
:rae DU.lD.Oe%; of Dj'tes
is
aUJusted to 1Dc.lude the
d~~.Lica.te
needed, based on the turnaround
Foi nt.
Stora;e Accountin;
[~~
1. For 'rCA, adJustment is
to
A count of the numhl=!r of active
1
allcc~tions
1
douDle-douDleword.
\
subpool. This count is kept in
J:e'lueSt + 10 rouDded t.o·
The area is initialized to
dOQDle-do uDl.eword.
@]
•• s specified.
II
adjusted to point to the end of
Duplicate Stora'3'e Accountin1
Areas are built into the front
I
tAe area Just allocated.
and the back cf the area.
l'bll:! stora;e area 15 .oDtained
INITI"G= operand i f the operand
SCLHXGRD
fro. tae Dext a vailaDle
loc~tiOD,
and tbe pointer to tbe
next aVal.laD.1.e .loca"tion i'5
~ Wbea addi tiona! pag es are
SC'l'AP
:
I
:
1
1!
I
I
I
I
I
I
I
:
I
I
I
I
I
I
i
SCIUXGAP
I
II
cbeC&.eCl to Clete.Illi.ne wbether the
a.l.locatibg of pa;Jes shouJ.d
cOlI.tl..Due" in an upward direction
I
II
I
or to turn around and start
"
__________________________L____!________l______l
L _ _ _ _ _ _ _ _ _____________ _
~
-
tti.:It"d SUDfoo.1 GBTl'IAlH
SE!ction 2:
:
I
ISC~IXG~
I
needed, t.o.e tur Da.Iound point is
again trom toe lov ~nd of
dynalilic stora;e.
:
~CINITUlsc.UGl.li
th~
tit pattern given by the
I
I
I
the second half of 1-.he pagE' map.
8. Non-TCA, ad.justlll.ent is
~J:'f
I--------I------!
I
I
is kept for each
pa'3'e assi'3'ned to the mixed
8 rounded to
:
'
1
I
Areas.
re'luest
J
Lat~l
Method of Operation
Diagrall -
1.~.1.~-r'
61
LICENSED MATERIAL - . PROPERTY OF IBM
~D~·~-----------l
"~L------l
~~---J--"''''----''-----'''>
roe]
• storage
L'::::'
L~~_D_
@]
Add stora~e area to
storage chain
I
) ,. r.1
!!\ / l~ [017.,.1')
area
I
.
2 OP
-------------------------1
TeA
777777777777~' >
------------- /
Ret urn address of storage
FAG'!
output
TeAsceA ]
Storage·
I
I
I.~~:~-----
::J-~\I
[;;;;;;;;"1
-----J~L
, I
V
To 1.2.1 or
1 .. 2."
I
I
I
I
I
I
I
I,I
__________...1
I
--------------------------.1
Diagra. - 1.:;;:.1.3-02
lIixed SUDEool GB'lIUIN
---------------------------------------------------1
Boutine
Notes
Tile area is added. to the rCA
storage ctla1.n •. ('fDe chain is a
Latel
Notes
Ref
----~-..;-------------------
SCflIXGSC
ltout1ne
La bel
'REf
----- --------1------1
I, Ij
¥USll-doll.D. gueue.J If a 'lCA is
being alloea ted I the chain field
is initialized to point to the
front ot tbe i'CA.
~ The address of toe area
SCIIIXGEI
allocated is retllrned to the
c~~l.illg
routine. If DO area
cou.ld De aUoai ted, an address
of zeros .is ret urned.
I
I
I
I
I
-------
I
L ___________________________________
!!_____ _
8ixedS;;;~-Gmill--------------·
62
CICS/OS/VS Program Logic:
C1agr8111 -
1.:i:.1.3-C2
Description
LICENSED MATERIAL -- PROPERTY OF IBM
IDtJIlt
---------1
.
CA AlIt:
Proll 1.2.1 or
1.2.ij
.
[:1.-..,
P~~~!..-------l
•• ··1 >
~~~II~rrE
1
I
I
I
I
II
Adjust the request
I
I
I
ro21
Ie Cjllested
D¥H~CF
1 OF
I
I
L:.:J
by tes
PAG'E
--------------------------,
DF BSCP:
p[ii~~~~OJ---------=::!!> §]
~~---
output
Z?Z??ZZ?ZZll ~.I
I::' \
J
Assi;JD another
pa';le to the
~~~_Ol_ _ _ _
,
I
I
~!:~/
(I
>fSCiiiSTPG------\ r-w/ - - - - - - - - - -
l
I
@]
. ----- ------>
/~, [------~
<, ~~/> ~::!:~~:------Initialize stora1e
----------------
~] Create a subpool header
I
I
@]
I
Create Stora3e Accountin3
I
I
Areas
I
II
[ ;;;;;;~
I
I
------,.:l
II
II
, I
V
To 1.2.' or
1.2. q
I
II
I
I
I
II
I
I
___~____J
l___________________________ J
Isolated SUIlpoo1 i'CA GETllAIN
Dia;rall'o -
..
'.2.1.~-Ol
~~:",,;_ -;~;;=--:;:.u,: ;;~~:~~~ ~~:~:;~~:;~~;:::;; .ccoun~~:~-=-!l-:~~::-jl~~:~:~~~l~::~~~l
leD3t.b to al1011 for the
Areas are built at the front and
duplicate Storage Accollnting
the back of the TCA. The storagf:
Areas. The request is converted
chain field is initialized to
point to the front of the TeA.
to the nUWler of ila:Jes reqllired.
This value is compared to the
nUIII.ller at pages requested IIbicb
is specified in the PCl. The
I
I
II
I
I I
I
hi;lher nuaber is stored as the
I
nu_ber of (alles required.
I
I
SCKASTfG
ell:clusl..ve cont.rol of entire
II
I
I
in'step 1.
SCIHITA1
zeros. All pa;es allocated are
aarked in the PAll as part of tile
initial allocation.
~ A Jleader containing forward and
nacJtward' :FAilE pointers is
created in the TCl. The
remainder of t,Q,e area that is
not 'a tJart of the TCI is lIade
into a :FlUE.
.ts~;t;dSiiDP~lTCAGEiiillH-------------------
Section 2:
I
I
I
II
I
I
I
I
I
~ Tbe TCA is l..nitiallzed to binary
Method of Operation
II
I
I
I
pa:Jes, nell pa;les are assi;lned
for the nuaber ot pages co.pated
I
iI
II
~ Since l.solated tasks ha ve
I
"I,
I
I
I
I
I
I
I
I
I
i
I
I
I
I
I
I
I
I
I
I
I
I
I
I
_______________________________________
1______1
I
I
tla';lram - '.2.1.q-Cl
63
LICENSED MATERIAL -- PROPERTY OF IBM
-------------l'rom
output
1.2.11 1.2.1
[:1.--"
•••• ,
>
Adjust the request
'Y pe
----EUtHEYTE
No. of
re guested
PAfl.TC1SA
Address of
re~t1esting
Storage
II
I
I
II
@]
bytes
-----
lCASCCA
1 OP
DFHSCP:
"PiftrURQ---->fil [-~-,/ [01]
Be ':Iu est
L.:J A ----> -
l;[~===J
-----
PAGE
r-----------------------l
Input
(I
\
---->
~~ \ >[SCPRSTFT--------]"
,..--, / ---------------Allocate storaje
on a first fit
basis
0
B
[~~]
cbain
I
--------
I
I
I
I
I
<,1'--"
~::~/> [---------------]
~:!~~:::~--------
I
another
~~~~o~~ tbe
I
15519'0
-----.------
I
I
I <~1 >[~~!~~~~!======:~
lnsert new page in
FlOE chain
-----------
.
[~ ---->
l______J
______J
Isolated SUbpool G£TlIAIH
Diagralll -
Bouti.De
Notes
I
I
Label
1.2. LS-01
-~:::--~--------------------~:~:--~:~:i--f-;:;--l
Ref
---;as-;p;~ified:-----------
~ The Dumber ot £lItes requested is
I
- - - ------- ------
SCISOGET
adjusted to include the
duplica te Stara ~e
~~ Duplicate Storaje Accounting
AccountiD~
Areas.
SCISOGE 1
Areas are built at the front and
the back of the storage area.
Adjustment is, regllest + 1&
rounded to douDJ.e - doubl.eword.
~ 1,0 attElJllpt is JUd.e to allocate
froa eX~5tin; FAI2Es using first
free area lar;e enough to
SCPRSTll' SeISOGfP
satisfy reyuest.
@]
Additional pages are assi;oed to
SCIUSTPG
the subpool. onl.y i.f the reguest
cannot; be sa. tisfied frail
existin; FAIlEs.
~ Wben Dew fa;ee are assign ad to
5 C.FA QJ:;IH
tbe sllbpool, toey are treated as
a Free Area Uueue Element
(FlQE)
and are inserted in the FAQE
chain. Tbe reguest for stora;e
is then retried.
~ The area is initial.ized to the
SCIIUTAL seTSOGOK
bit pattern given by tbe
~~:..:::::~~~~~~:::~ _____ _1 ________J
.Isolated subt'ool GETliUN
64
I
---------------------M;~rn-:-;:2:1:5:0 1
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -
Inpllt
--------------1
L:J
ldd stora'g'e area to
stora~e chain
PAGE
output
proc~!..--------l
fB1 ____ > ~
PROPERTY OF IBM
?I!l.Z?l'llll1.?!/\
2 OP
I
TeA
:.\
~ Return address of storage
area
. .
I
!:tJ71_2ZZll~~!)\
--\1
[ •••••• ;;'1
---j:L
I
I?A"CSiiiR]
I
Storage
area
address
I
'vI
To 1.2.1 or
1.2. q
I
L _______________________ ,
Isolated
SllbpoolGiHu'H----
Hotes
@]
Diagram - 1.2.1.'5-()2
--------_._---------------Routine
Label
Bef
--------1--- ---- --r.he storage area is ad3.ed to tae
rCl stora ~e cuiD. , 'lile chain
is a push-do.n 9I1eue.)
~ rhe address of tbe allocated
SC:ISOGBI
stoJ:age area. is returned to t.he
caliiag rOl1tille. If 0.0 area
cOllld De. allocated, an address
of zeros 1.s ret or oed.
Label--l-;:~--l
------------------- ---T-----I
Rotes
ioutine
I I
I
I
I I
I
I
I
I
I
I
.IsOlatedSu;p;)iGiH'iiI------------------
Section 2:
Method of Operation
I
I
I
_______________1
D1a9r .... '.2.1. '5-02
65
LICENSED MATERIAL -
PROPERTY OF IBM
lD£~_-----'-----lpro.
1.2.1 or
PAGE
output
p~roc~~~ _ _ _ _ _ _ _ _
1 OF
----------------------,
1.2."
[:1.---, \
p[~_j___
!
!
t.:..:
EASfiPRQ
~~ ~N ~lTE
I
I
':::~·U 101]
Beyuest
!!E
__ _
----- -- ---->
.cytes
!
DFHSCP:
~~~~d
('
i;;i' >[SCiiiSTPi------]
\,-,1
I
---------
~il~cg~:t si~fa;e
II
basis
---------------
I
I
I
1'--'\
(,
~~ />
r--------------]
::~~~::-------AssigD another
~:g~o~Y the
---------
I
/1;;I\>[SCiiOiiii------~
\
,..-,/
§]
----------->
( 1'--'
j •• , \
',-,1
-------Insert new pa;e in
FAOE chain
-------------
I
I
>[----------.---~
SCIRITAL
~~ti8i1Z~~tOr'~;
l r [illcSiDiiJ
PA"
~] Create a Stora;e
n
ACcouDtin; Area
~ Return address of storage
area
~II
?zm.?Zm.H. .
l ---,:l
········1
_______________________Ji~2?~~~
or
>
II
storage
area
address
------
I
I
____________________ J
Diagra ....
1.~.'.6-01
H:::-----------------:~·::--:;:--;:;-l f-;:::-----------------~:~:-~:~:~----;:;--l
- - - - - - - - - - - - - - - - - - - ----- ----- ------
@!]
An attempt is lIlaue to allocate
from e,u.stiDiJ i'AQr:s OD a Dest
SCBESlil' SCSHRGBF
allocated, an address of zeros
is returned.
fit basis.
r~ Ad,ditioDa.1 ,tl8a-8S are assigned to
the SIlbPOOJ. oa.l.j' lib en a
---~ti;;;:If;;~-;:mc;;;;Ub;_-- ----- --------1------\
I
I
I
I
SCIIASl'PG
re~uest
canDot be satist.l.ed froll
existiD~
§]
PAIJBs.
Wtaen Dell ,Pa:les are assigned to
SCPAOElH
tAe SUDPOOJ., US! are eaCQ
treated as
il
Pree Area Queue
JUelle.ot (l"A\lB' aad are inserte:1
in the .fAIoi.E chain. The re!Juest
for storage is
theA
retried.
~ rAe area is 1ni tiaJ.lzed, to tb.e
D1t pattern :Jiven bJ the
SCIIUlAL SCSHBGOK
IIrI'ITLftG= operand i.f the ot'erand
vas
@)
s~citied.
A tour-Dyte
Ate~
is
Stora~e ACCOUDt1D~
bu~lt ~D
the froQ.t of
toe area ...
~ rae address of tOe allocated
area is returned to the callini
SCSHBGEI
L________________________________________
Diagram'" 1.2.1.6-0t
66
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -
PROPERTY 01' I:BM
output
PAGE
, 0'
------------------,
@]
(I ~ \
'.--./
@]
>[SCiNiTU-----~
---_.
--~~~a1e
Create a Storage
I1
I1
Accounting Area
~] COllplete the page
allocation process
zmzmzmz~>
PA.
1
1
!
I
[
-----,:l
I
;;;;;;~
,
I
V
To 1 w2w 1 or
1.2. Q
I
1
I
II
1
I
1
I
l _________________________ lI
Diagraa -
_
~otes===========~~Ub:
~ Since all areas in this subpool
Label
-~;~J
SCI!I.lSTPG SCALGGET
are allocated only in fu1.1
lw2.1.1-Cl
--------------------------------------,
Botes
.
_____
~:~~:: -~~:~--I-~:~--l
I
1
pages, tbe requested Duaber of
I
pages are assigned to this
subpoolw
~ An area is initialized to tae
SCIHITAL
bit pattern given by the
I
IIlITlftG= operand i f the operand
lias speci'iied.
~ A four-byte storage Accollntin-;
I
Area is built at the front of
tAe area, eveD though it is Dot
I
needed by Storage Cootrol.
This is provided as a diagnostic
aid tor convenience in reading
dUl8p ..
I
~ Tbe page alloca tiCD pI:ocess is
completed by ad justing the
second ba 1f of the pa 3'8 aap to
I
reflect the allocation.
_______________________________JI_____JI
Aligned SUbpooi GET8A.lN
Section 2:
Method of Operation
D1agraa -
1w2wlw1-(1
67
LICENSED MATERIAL -- PROPERTY OF IBM
p_r_oc_Ess_in_9 _________ _
IDilIlt
PAGE
output
1 0 11
-------------------------1
- - - - - - - - - - - - l F r o m 1.2.1 or
1.2. q.
I
II
,
[:1.-,
..... \ rn,l
filftTUiQ]--,-------------> l~.!J
DF USC P:
)
I
PAM
--, /
I
I
Adj U5t the request
Beguest
,~~---
~~~·~FBJ
.cytes
t ~~~d
I
I
I
f(i21
I
l::J
I
I
I
(/1;;1 \ >[SCPfiSTPG-----3-
!
\ ..-, I
[~]
Assi;D pa;es to
the 6obpool
@]
I
I
I
II
II
------COlllp~ete
the page
allocation process
[~
I
--------------
7777777777777' '>
T---.----I~I\
"ark the prograll for
77n77m7/~
deletion, i f necessary
-r-------I~I
I
I
I
Return address of stora;e ~~ZZZ~~
area
,
!
I
I
I1
[ ;;;;-;;~
----J~t
\ /
V
To 1.2.1
1.2. q
1
I
II
I
I
I
I
I
I
I
I
_____________________________1I
I
Pro:lcalll SUb!,ool GEl'ftAIH
.
Routine
Notes
~ Pro;Jcalll. stora~e i.s reguested in
doublewords.
Latel
SCPG"GET
The number of
Ref
Diagram - 1.2.1.f-Cl
~~::-=~======~=~~--I-Ro~~::r~~:~~~F:~~~1
,I
I
doublewords is converted to
bytes.
~ prograll storage is allocated in
SCKASTJ;G
contiguous full pages froll the
I
II
II
II
I
I
I
I
I
bigh end of dynamic stora:re.
,
II
~ Tbe nUlliber of pages associated
witb tne alloca tiOD is kept in
tbe second half of the PAtt.
I
I
I
I
I
I '
I
[~ The prograll is marked for
deletIon if its allocated
storage is so low in the dynamic
storage that it is intermixed
with pages assi;ned to other
sUD,fools.
1
~ The address of the allocated
area is returned to the callin;
__________J ____________________________t_ _ _ _l_ _ _
routiDe. If DO area could be
allocated, an a ddress of zero is
~=-
pro~ralD.
68
Sub pool G.rlTtlA.IN
i
J
Diagraa - 1.2.1.e-Cl
CICS/OS/VS Program LOgic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
I--------l
1--------------1
,
: --', I
I' [-L'
-----l----------.J\
I
r
I
I
Im:::;--I'\'
Input
II
I
DPHSCP:
•••• , >
TCASC'rR
I
I
~
,I"
~
p[~~---DJ-- -----------> I~
\
1
~!~~:~~
I
I
,-
--- I
I'
16
1
1
I
I@~)
I
vahd. te the ,. quest (Task
II
1',1
ASCf ABEND test.)
!.ocate the subpool
contaJ.Dl.ng the specified
I
\
I
I
1\
II
Test for DPH050 1
condl.tl.on.
I
I
r;:j'>lsc......-1
'I',
L-; I
I'
I
'
!....
'I
1
I
1
I
',
I
or
) \.
Z'll.ZZZZZl?Z~Z\I>
I
I
l~~~-1
1
.1,
Save reqllJ.red information
--------,/
storage
area
I
rn7\
--, I
TC A
PAGE
Output
Processing
1------------lii~i~iIN
'I y~;;-tb;-;to~g;--1
area
I
I
L ____l.:.:~l
I,','
I
:1'
I
1
\
I
"
'
I
IL_____________J,
I
Il_____________J
I
I
I
I
, __________________-.!I
L
Diagraa -
PREE"!!N ContI:cller
r-;:~::_---------------7_;:::~:T I.abe~:::;-t
:;::---------
1. 2. 2-01
, Ro~::r:::~--I' ~;j
1-------------1---1--1---11--------------------1---1----,--I
I~
I
I
' ,I
I
I
1/
I
The request type and the address
1
I
,
of the storage area to be freed
are s. 'Ed.
,
The .ddress .ust be. double
doubleword in the dynamiC'
I
\§
I
I
I
I~
I
invalid, the task 's abnonally
terRll.Da tE d.
The suhFccl containing the
I
I'
,
1
I
(SCSF . .
I IIII
"1
I
I
I
.ppropriate subFool PREE.AIM
I
I
I
routine to satisfy the regu6st.
,
I 'I
I
I
I
I
I
I
I
I
I\
I
I
I
, I
I
I
I
I
I~
1
t
Control is p.ssed to the
I
I
I
I
I
!
I
!!
I
1
I
I
I
·1
II
I I !I
II
1
'I
I
I ,
1
specl,fled area is d e t e r n . e d ,
fro. the page oap ,n the FA..
,
II
J
I"
1
1
storagE .rea. I f tbe address is
I
I
I
\I
II
II
II
I
j'
,
I
I
I
I
I
I
/'
I
I,
I'
I
I
I1
!\'' III
I
I
,I
I
I
I
I
I
I
!
II
1
I
I
I
!
I
,
I
1
I
I
I
I
I,
I
!
I
I
I
I
I
I
I
I
II
I
1
1
I
I
1
I
I
I
I
I
I
,
1
II
I
I
I
I
lI_ _ _ _ _ _ _ _ _ _ _ ...:._~I________
- IL______________________I,________
L_
I, _ _ _
'J
I
'J
PREBftAIN Contrcller
Section 2:
D1aqrll. - 1.2.2-01
Method of Operation
69
LICENSED MATERIAL -- PROPERTY OF IBM
p:~~~~ ______________ _
Input
------------.-,.-----lprom 1.[;~,
····1
-.....,1
rf niiCSiiiii-l---l
storag-e
t
area
L~~:~:"_
DFHSe.:
>
Output
PAGE
1 O'F
---------------------------,,
,,
II
I
[-_oIl
I
.:J
I
L___________ >
(I
\
II
j:;j' >rscPRiETR--------~
,..--,/
-------------
,I
,
I
Trace the PRI!EPlAIH
reguest
L _______________ --'
I
I
I
,
,
,,
I
I
[. SCFAQEli-----3\ r-"11 - - - - - - - - - - - - - -
I
I
I
Insert area in
PAQ! chain
I
------...-------
I
I
1'--"
I
r------------]
l
I
,I
,I
<, ~.:.:~/> :.:~~~::~~---------unallocate any
free pages
I
----------
I
I
I
[;;j
--,/'>
I,
[sCrRiEiT------]
----------
,
I
Perform final
I
,
processing
I
1.2.Q
---------
I
I
I
I
I
I
I
I
I
L_________
L________________________
Il____________________________l!
Control subpool PRKElurH
Dia;rsil -
1.2.2.1-0 1
--------------------------------------------------,
Houtillel Latel
Hotes
Ref
--:-------------------- ----- ----- -----@.!]
Tne area to be treed is traced
SCFREEIR SCC'ILPRE 2.1.1
~~~~--~-I-:::~:I~~--I-::~-!
via a X 'C9 1 trace entry.
§]
The area to be freed is inserted
in the Pree Area \,luelle Eleaent
'(PAOE)
@]
I
5CFAQBIN
I
I
cnain.
I f the freed area had created an
I
SCUNALLO
I
1
PAQE tnat spanDed a full page,
the paiJe is removed froa this
subfool's page allocation and is
now Aval.laDle to any subpool.
I
I
I,
1
:
1
I
I
I
I
1
I
rne eXl.t is to tne CO 111111 on
serREEX'!
1.2.'
1
I
I
:
I
I,
:
II
I
:
,
I
§]
I
I
:
I
,
I II
PREEfl.AIH exit.
I
I
I,,
,I
I
I
I
I
cont~~ubpo~PiiwllN---------------.:..----------
70
I
I
-----------------------------------------------------.1
I:1agr811 _ 1.2.2.1-(J1
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
PAGE
Output
, o·
[------------------------------1
I
,
I'
I
I
___ -J,
[~::~
II>
ITO 1.2.5
I
I
I
:
I
TenB
?ZZ?2ZZZ?Z?Z?~ >I !~!~~~~l
[I
I
i,'
TC't'TEDA
I
Ig~~~p'ss
I
t.. _ _ _ _ _ _ _ .j
!
I
[~]
I
'_J \
[--------------3
----------------
[------------1
Unallocate any
_____J
_____
[~~]
--J
I
[;;1" rSCP'iiEEXT--------J
_____________==~~_ ~~~~~~:~~~~;i----
Te.leprocessin; Suopool .t'BEEKAIN
I
I
'
I
I
<\ ~~~ /> ::~!~:~~------:~::_!:~:=-
I
I
1n5el:t area in
FAQE chain
1'-' \
I!
I
<\ !.=-~ / > :~:~~::!--------
[~~]
II
1.2 ..
._----------
I
I,
1
I
I
L _ _ _ _ _ _ _ _ _ ... _________________ .J
Diajrall -
Q
1.:C.2.2w('1
Notes----------------:::::--::~:~-r;:;--l f-;:::-----------------------------~::::l-~:~:~----::~--1
~ T:-:~::::~::~~::::~:;_ ------1 ~;;:~~ ------, ,---~~;.;-;:;-;;;;p;at;;dfor. e;;~----jl------II-------I------II'
t.:..:J
I
@]
area on the stora]e chal.D before
Exitinl to the COUlllon 'PPEEPlAIW
.
Areas are cOill&la:ted to see if
either vas destroyed..
exl. t ..
If the ar Ea Deing freed is a
TIOl, it is removed from the
termi""l
SCFREt:'I1i
2.' .11
via a X l e9' trace entry_
The area to
De
in the lree
AI:~a
(lA~E)
free d is inserted
oJUeue
seF AOE.IN
El~lIIent
chain.
If the treed area bad created an
SCU NA.LLO
PAOE. tb.at spanned a ful~ pa;e,
tbe {Ja;e is relllcved froll tbis
SUDpool's pa;;le a,Lj.ocation and is
now available to any subpool.
rAe exit 1.5 to the CO III. on
I
I
I
I
I
I
Il
,
i
I
I
I
I
I,
I
I
II
f
:
,,
,,
1
I
j
I
I
stor.ge c••iD.
Toe area being; treed is traced
I
SCF RlrEIT
I
I
I
,, II
I
I
II !I
I
'
I
I
I
I
l·el;~~gS;;~lTaEiftAIN-------------------- L---------------------------------'iii;1~;;-:-;:2:2:2:(~
fB£iIUIN exit.
NOli.: If all. 110A6 are to De
releasea
(that is, RELEASr.:=ALL
.. as sfjeci.t:J.ed), the above
Section 2:
Method of Operation
71
LICENSED MATERIAL -- PROPERTY OF IBM
PAG!
Output
, 0'"
,-----------------------1
I
I,
I
I
!
( / '---'
I •• ' \
',.-, I
:j']
~
"1CAs'CclJ--.. ---.. -------> r,;'
[ ~~~ig!Je
:rCA
-----
I
>[---------~
SCFBBETR
I
~;ce-tb;piiEirn
reguest
--------
TCA'
Be.ove storage area froll
storage chain
TGASCCA-l
Storage
chain
-----.1
@~ Decrease the counter of
active allol=atlons
@]
/'--, \[-------3
. .---
<,~~/> :~!~:~.
anallocate any
free pages
------
C,/"
r;;j
[SCiiiiExT--------]
_________ _
___--=rPerforJl final
processing
Hogtlne
Hates
~ The dupl.icate .storage Accounting
Areas are com~ ted to see if
either vas destroyed.
@]
Ttle area being treed is traced
via a .l'C!:f' trace entry.
@]
TDe storage chain is searched
for the area Deing freed. YheD..
found, tlle area 18 relloved frail
tbe cllain • .
§]
The count. of active allocations
.is decre.ented for every page
touchea bl tJle area bei.ng freed.
~ ., hen toe count of active
allocat.ions rEa eb es zero, tbe
'page .is relloved. fro. tne
SUDpool.·S 1I43'e
al.locatio~
Latel
I,
'.2 .•
I
l_______________________J
J'Jlagrall - "2.2.3-(11
I
-----------------------------------~outlnF.! LatE!
'of
-------------------------------- -------- -----repeated for each storage area
Bof
Notes
.
SCUIPB~
on the storage chin before
exit~n3 to the COllmon 'PREEPIAIR
Exit. The TCA is the last area
freed.
SCl'BE87B
,I
I
I
I I
SCONAl.LO
I
and is
I,
nOli available to any sllbpool.
~ rhe ell:l.t ~s to the co alii on
I
sCrBtEX'l
I
, .2.'
.lBEiSAIH ant.
HOlE: 1.i tb& request is to free
a leA, the above process is
lliaed
72
s;iPo~pwiuH-~--:---------------------
---------------------------ti;graii-:-1:~:2:i:c
CICS/OS/VS Program Logic:
1
Description
LICENSED MATERIAL -- PROPERTY OF IBM
--:--------------1
IntJllt
From
output
1.[~~, :~:~---------------------l
•• ··1
;>
---of
ffAHcSADRj--------------->
PAM
r,;,'
l~ Vall.date the Storage
,~~~~age
Accountin3 Areas. Exit if
IllMTYPBQaddress
valid
l ~~~~:~
[;;;:1'>
TT~' ~ 2. 5
@~]
[SCiiEETii-------~
, r-, I
leA
[
-slCt-oA~.Ca~-eA
L
-1-------------->
CHu'I: DFHHf
PAGE
1 01'
1
[------------------------------1
Processin;
------------
m';l
~
..
~~~---'
-----------Trace the PREEIIJAIN
request
Remove the stora;JE area
from the stora:J€ chain
!
I
II
I
!
:
!
1
1
1
I
I
TCA
Z'Z'mZ'mmZ'~>
1
I
I
:
1
1
I
§]
:
[SCFAQEIN--------
J
I
'r-, / ------------Insert area in
FAQ! chain
---------------
I1
1
:
:
1
1
t;;-I'
I
(I
>rSCONiLLO------3'.-, I 1---------
I
l~:~:-!:~~::----
:
unallocate any
I
I
[~~]
I
r:~ >[SC'RE~~=======l
l___________J
I
Isol.ated
sun~oo.J..
Perform fl.nal
processing
@]
01
~
[~
:
I
I
I
L__________________________ J
Dia;Jram -
_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ __ '
_::::~: _~:~~
~:~
_____________________
el.ther was destroyed..
a TeA, the above process ].S
repeated for each stora;e area
on the storage chal.n before
exi.ting to the common PREEPUIN
'rne area be:l.u; freed
exi L The leA is the last area
freed.
:rae aupl.l.cate stora;e Accountl.og
1.5
traced
SCISOPRE
SCFBEi:'Ui
2.1.11
I-:::~~:~ I_~:~~~ __ :_::~ __ :
I
I
j
\
Tbe stora 3e chain is searched
for toe area neing freed. When
I
I
I
chain.
SCFAQEIN
l.n the .FI:ee AI:ea '.lUeue Element
(FAOE) chain.
that are not paI:t of the pages
initially allocated for tile TCA
request aI:e I:ElRoved fI:om tbe
tasks page allocation an'd are
no., aval.lable to any Sllbpool.
the co .. o.
'OlB: I t the request
lsOl~d
:lS
SCPR.Ell
to free
11.2.
subpoc;uiiiiAiN-----------------
Section 2:
1
I
,
,
,I
I
I
,
,
I
\
I
I
1
I
I
I
I
!
I !
I
I
Method of Operation
"J
I
I
I
II
I
1
II
I
II
II
!
I
I
:
I
I
I
1
I
Any fllll fa~es contained
entirely in the nell f :tee aI:ea
\~ :::E:::: ::,:~
I
I
!
na a l'e9' trace e.try.
The aI:ea to be tu.ed is inseI:ted
1.2.2.Q-Cl
[---------------------------'-------'--------1------1
_ _ Ref _
found, it is I:etllloved fI:Oll tbe
L
I
P[tE;Btl.AIN
Areas are compared to see 1£
I
I
_________ ~~:~J
_________________________-.1
------------------------J
r
I
_~:::
I
I
I
I
I
I
I
I
I
i
------------------------------------------.1
I Dia;rall -
I
1.:t:.2.1.\-l:'
73
LICENSED MATERIAL .- PROPERTY OF IBM
r'--------lFrom 1'[~, 'r.N~:L-----J
~.::~/)
PAM
ffAiiCSADii-]---l
j
Stora1E
area
t~~::::.._
----- ------>
PAGF
r------------------------ - -------1
II
-
[~~]
<1'-'
1•• 1\ )
1 OF
Output
II
I
I
I
r--------------~
SCFREETR
j
,,
,
,I,
I
I
\ r-, / -------------Trace the FREEPfAIN
[
:.:~~:~-------
I
[~]
I .-, \
r---------------]
I
r
<\ ~::~ /) ~::~~.::~---------
I
r
r
r
[ Insert area in
:~~:-:~:~----
I
I
I '--' \
r--------------]
I
----------------
,r
<, ~~~/> ::~!~::~----------
I
I
unallocate any
free pa 3'€S
[~]
[;;j
"
--'1/
I
r
I
[SCPiiEEx:r---------l
I
,I
,
,,
r
------------
Perform final
processing
_________
r
,
,
~::~J
r
I
,I,
,,I
I
I _____________________________ ]I
L
------------_J
Shared Sutlpool FREEItAIN
,
Diagram -
---------------------------------Notes
RoutinE
lale1
Ref
----------------------- ----- ------ -----[~
Tbe area to be freed is traced
SCPBEETB SCSHRPBE 2.1. q
Vl.a a IIC9 1 trace entry.
~] The area to be treed is added to
Free Area Queue Element
SCFAQEIN
(PAQE)
(§]
I t the free area bad created all
SCUNALLO
FAIoiE that spannEd a full page,
tb.e
pa~e
::::-=-==-==--=-I::::l~;~::F::l
I I I
I
cbain.
I
I
I
I
I
I
II
II
I
I
I
I
is removed frOID the
subpool's page allocation and
nOli avail.able to any subpool.
~ The exit is to the COIiMon
1.2.2.5-01
II
I
I
II
SCPREEXT
FREEftA! N exit.
I
I
,I
I
!I
I
'
i
I
I
I
II
I
I
II
,
,
,i
I
I !
I
I
I
I
I
I
I
I
!
I
!
I
I
,
I
I
I
I
,
I
________________________ _______ I ______ J,
~
SQared subpool FRJ::EftAIN
74
~
Dia3rall -
CICS/OS/VS Program Logic:
1.2.2.5-C1
Description
LICENSED MATERIAL -- PROPERTY OF IBM
I~~~
_________________ _
ProcEssin 3'
-------------------------------1
Prom 1.2.2
[:1--"
····1
----,/
P[~-----1---1
StoragE
area
"E~H
address
llHPGKiP-j
Ed. ~e map
-------
>
1 0 11
r--~----------------------------l
OFHSCP:
I
~I]
I
'r--,I
----------->
HG!
outpu"':
'
[SCFREE1R--------]
----------------lrace PREEf'lAIN
reguest
I
----------------
@~] Determine the numter of
pa; es to be freed
Indicate the Fages are
available
/
,--',
I
T----""----ll I
77777777777771 "
1
I
[--------------]
I
---------------
I
I1
<, ~~~/> ::.:~::::----------
1
I
ReleasE pa;Jes to
operatin;J system
,
r--------------~
[--"
~~~ I > ::!~=.:::----------
[
I,
Per form final
:::::~:~ ___ 2:::~J
,I
1
1
I
,I
,
I
I
L__________________
______________________________J
All-gned SUDilool f'iti..foMALN
1
1
I
I ____________________________ JI
L
Dia1r~m
-
1.::i:.2.6-(1
(~tes==========~=~~=-~::~::-~~~:~=-~~:~~~ ~::~:-=~~~~~~~~~~~~~~==~~=~~l~::~:1~~~:~~~1~::~~~1
@~] ~:: :r:~c:~ :;a~:-::t:;.'raced
@]
,CFm . . SCALGFRE 2.1.4
,
second .o.a If of the PAtt.
The pale PIai' in tile PAK is
enan3ea. te ind,icate that the
pa3ES vnieh were allocated to
o!-,~rating
any
unn~eessary
SCPGRI.!:E
sys'tem to prevent
pa3in3' when the
I
I
II
I
II
pa3ES are a3'ain allccated.
The exit loS to the cOPlmon
I
I
I
i
I I
the treea. area are ava1.laDle to
any suupeol.
lna freed Fages are released to
'
I I
The. nU!llLler o:t ra!)es allocated te
the areq. loS determined from the
the
I
.:iCPREEll
FIi.li.£.KAlN eX1.t.
1.2.4
I
I
I
1
I
I
II
II
I
I
I I
I I JI
L_________________________L_____1____________11
l_____________________________lI______1-_____________
Aligned subpooJ. fd.HIUIN
Section 2:
Method of Operation
Dia::JI:aa -
1.4:.2.6-C1
75
LICENSED MATERIAL --. PROPERTY OF IBM
r~-------T' ';~~, r:~------I
PA "
l::~/)
u
•
rN~~~j---l
[---------->
l ~~~iP1
PAGE
1 O'!l
r----------------------------l
output
1
1
I
@~]
1
I1
I
I
II
fage _~:£
----------->
I
[~~] Deter.ine
the numter of
pages to be freed
1
I
I
I
!
1
PA"
E~] Indicate the pages are
available
1
1
I
I
/
1
1
1
L__ J\
< 1··1 >
\ r -.. I
[~~]
>
I
[~~ [SCFREEi~======::::]
Perform final
processing
1.2.
------------q
I
1
I
1
I
L ___________
1
I
I
_____________________________ J1
program. Subpool FHBhfUIN
D!a:Jram -
1.2.2.1-C1
--_____________________________________________c_,
Notes
@II
@]
Routine
Tile. area to be freed is traced
via a X le9 1 trace entry.
late1
Notes
Routine La tel
f 1:e f I
------------------------- ------- --------1------1
Bet
SCiBEE'IR SCPGl'IPRE 2.1. q
I !
I I
II i:
The Du.oer of pages allocated to
tile prog-rall is determined. froID.
toe secoDe bali of the PAtte
@]
I
Tbe p8:Je lIIap of the' PA!'! is
chanJed tc inciJ.ca te that the
pa~Es
1
I
wbich were allocated to
I
I
I
the freed area are available to
any subpoo.l~
§]
@]
The freed pages are released to
the operatin~ sjstem to prevent
any unnecessary
pa~ing
pages are again
allocated~
SCPGBLSE
:
I
I
I
I
SCPRBEU
I
1~ 2~ q
I
I
I
--__________________J
I
!I
I
I I
I
------------______________ 1_______________
J1
Progra. SUbpool PBEEIS!I N
76
I
I II
when the
rhe exit is to the co •• on
FBEE,lIllY exit.
I
~
018:1ra. - 1.2.2.1-01
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -
1.~
_ _ _ _ _ _ _ __
p::~!==~~--------------------
PROPERTY OF IBM
PAG'E
output
1 0'
1
[-------------------------------,
,
[:1._-"
····1
[-----J ---------------)
teA
--,I
I
II
OF 'SCP:
>
@-,
01
teAs CRS
__ .J
,,
Restore 1:9;Jisters
iie;ister
sa ve area
[~~] Beturn to reguestor of
Stora;e Control service
I
I
[;;;;;;;;1
------:1:
,
/
V
'Io caller
I,
I
II
L_ _ _ -_~
I
I,
I,
,i,
_____________________________JI
,______ -'-________ __________ jI
L
~
Dia:Jram -
Pro::p:::am But
1.2.::1-01
~~~.;;;~;;=.r::;;~;~~~~~~~=[~:~:~I~~~~l P:::::==.:--=:::::::r::~:F~::l:::~:1
I
l
reguestor na t.lle Bunallay TasJt
tacllity Vla an lnterval Control
Ull macro l.ns
.
fCSlSOSI
~i'l.~
rn
L\
'.
CSASU50P
~:peDd
--,1
prOCEssing
1 0'
------------------------1
I
I
DFBSCP:
)
I -------,
CD.a.l.D
PAG!
output
[!!]
----------> @]
Deter.ine wbether the
slste. is short on storage
I
Locate saspended GET!!AI"
I
requests
II
DCA
I
.eel chain --riiCilliiA~
----OCI'l'CDC
J:lspatcb.
( 1'--'\
•••• >
ind.
----g:.l'l'C",
, ,-,I
[ Address of
II
--------J
se.........
1
I
I
.
II
I
i;:trI ;-rnp;iid;a:G!'lft 1M reqUEst
1.2.1.X
----
task's 1'C.l.
---------)
~] Besuae suspended GET"lI!
reguests
@]
I
I
Deter.ine wbether the
7777
J'
s.fstea is sbert aD storage----!ZZ'zzmz~ /
II
CSA
Short on
rcS;:sosrl
storage
l~~:
I
I
___-,
I
I
§]
E1> [~~-~-~-.=!~~~====::..~
Retarn to caller
'.2.3
._T
.paBBIU.XI Exit
Bo utlne
lotes
@]
The DCl suspeDd. chain
La tel
I
______________________ 1I
Dl~~ra.
- 1.2.Q-01
-----------------------------------1
Routine Lat!l I '"et I
-------------------------- ------ -------- ,------1
Bef
'Hotee
I
is
1
I
sEarched for ta SAS sllspeaded by
Stora:Jti Control.
I
I
I
I
1
@]
Bach silspended EeYllest is
retriea. bl entering the re!luired
SUDP0ol. GBTflA.IJf routine.
[§]
WbeD a suspeDded reguest is
I
1
I
I
I
SCP6BlBB 1.1. B
sati.sfied, the sllspended t.ask is
reeu.ad via a TasJt Control
"'SUIIB.
~ 1.£ thE freed area relieved the
snoJ:t-on-stora6i e co.aditioD, the
snoJ:t~.a-stora6iE 1Ddicator is
tUJ:oeQ of f.
I
SCPBBISS
I
~ l'ae exit .is to tAe E,"O:l ra. exit.
I
II I
1
I
I!
j
I
I
I
,iiirn"HiXit-----------------------
78
_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ .J
D1agra8 - 1.2.11-('1
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
Input
r----------------,Prc:.
1 .. 2.2.2,
r
i 1.2 .. 2.3,
,
,1.2.2. q.
II
I
,\
I
I,'
"
'CA
r-----,7
1~~~:Esc-l
,
~ha1'
J!!torage
,
lValldaU
1
"
"
--1I I"
I
Ide.tify the source of the
violation
/' /;;;;\fSCPAQE"--Jn
/ ' ....-.1
or fix
tbe FAOB chain
I'r;;;;,
tlli~~:~-flZZmzm\/1
I
~
DFHOS02
I~
I
/'
II
l
DFBSCP:
I
I
,
1
generated 18 system,
I
I
I
1 OP
rnO"1 If Recovery has not teen
L:.:J
I
I
PAGB
Output
/
r:!;;,
'>1
1::_-'1 j
I
I
I
r
ProceSS1D 9
~
---------'
validate the storaqe chain
"I
I
@J
I
I
I
I
)'
zrzmmZZ\/1
,
1
II
I
I
Betry the regu.st
\,~
1 ~ Abnormally terminate the
system, 1f necessary with
/
TCA
/
r;;;-;j
'>
L':":=,/
I
I
\,~:i~~~ to
11
I
I
I
I
I
I
DFHOSO) ABEND
L--
St~rage control Recovery
I Notes
, BOUtin.! Label
I@1TheSUb Poolthat
I
I
V101at1ons are:
du~11cate
storage
B. O.,erlapping free areas.
~:.::: ::~:o;~Q:a:na:h:A~:
... is
checked for validity. If an
error is found, the _PAO! is
I'I~" :::u~~:c:~
I
...
a du.my is. created in
Tbe TeA or 'l'CT'IE storage chain
1S
verified or corrected
~~:a::pl1cate
I
I
If the proble. .as corrected.
,1t.::::J control 1s returned to the
I
subpool routine that had contrel
I
.
I
wben the problem vas
I
I II
,
,I
I
/
I'
I,
"
:1'1,
--1'---1----1'---1
located or recovered, tbe system
is abnorllally terDl1nate1 uS1ng
operating system ABEND .aero.
Lab:-T~~
1
1
I
1
I
I I
I
I
I I
I
I
I
,1,1
, I' II'I
I
I
I
1_·____________1_____1 _ _
I
I
1
I
II
L~
Storage Contrel Recovery
Section 2:
I [~
11
I'
, Bo::.e/
1.2.5-01
!/ I" I',I
uS1ng
Storage Accounting
Iro5l
I
Diagraa -
IefnCOthu.nteprrO·bdl·e. CO-U--ld--.o-t-be
I I I
1 I II
I I
Accounting Area.
I
II Notes
I
I
LI_ _ __
'Bef
enco:-.t-.-r-e-d~;:- ----1'---1---11II
storage v101at10n 15 detera1ned
by 9z8.1n1ng the current subpool
header.
A. Honllatched
j
Method of Operation
L____________
Diagra. -
1.2.5-01
79
CD
o
Program
Management
1.3.0
I
Pass Program
Control
Anticipating
I
I
Transfer
Program
Control
I
Abnormally
Program
Terminate
a TASK
Fetch
Delete
Request
Processing
I
I
' Return
Program
Control
Cancell
Get
COBOL
RLI'
Activate!
Directory
Information
About a
Interface
Interface
an ABEND
Exit
Program
Return
1.3.2
1.3.1
1.3.4
1.3.3
I
r
PPT
Program
~Search
Release
I
1.3.5
I
Loader
Commun-
ication
1.3.4.1
1.3.2.1
1.3.4.2
()
H
I
()
en
aen
Execute
ABEND
en
L3.3.1
I1j
11
0
11
PI
a
t"I
0
....
I.Q
0
t1
CI)
en
0
11
....
ItJ
rt"
....
0
tl
0
;r
~,
...
~
Delete
Loadeg
Program
Exit
.~
I.Q
I
Program
Elevation
1.3.3.2
1.3.5.1
1.3.6
Reactivate-
1.3.7
I
I
1.3.8
I
I
Restart
Task after
ABENO
1.3.9
1.3.10
1.3.11
LICENSED MATERIAL -- PROPERTY OF IBM
-----lTIPE=t1MR
1:1--"
I
~"·I >/
IiaFot
PAGE
roCeSS1ng
/
I
It
0Il
I'
•
TCA---~------I'
~
TeAI?C!lI
--------,/
~~o~~:CPA
l~:t:ted
J
Acgu1re and chain a
r"1r=:>1
Reg ister Storage Area
1111
IL--J,
I@]
02
----
!~
!
----
I
I
addresses, the RSA chain
address, the BtL SaY8 area
I
address, the BtL storage Chain',
address, and the return
\
I
I
\
I
L_________________
L ______~
lllr;::s
I
I
I
!
I
I
I
I'I
II
I'l
III
I,
Method of Operation
:
I
/
Routine1 Label
t~
I
/
I,
I
I
I
I
I
I
I
I,l
I
I
I
I
I
I
/1
I
I
I
'I
'I
I
II
II
I
II
I
I I
II
I
---
I
I I
I
I
I I
I
I !I
"
.----'----
D1agraa - 1.3. 1 -0 1
-----------1---1----1---1
I
Section 2:
,
I
registers.
•••• 'rog ... Control Ant1cipat1ng Return
I
,
- ----- - - -
The intonation saved includes
the AB!BD exit flags ana
.
,
I
\
,
rl'~::_--·----------I'-:::ne!' Labe~-I
Ref
[§
I~:~ts~~~s {
------
I
,
,
!
I
I
IPCLIN.
I
related
[;;j \ >lP~~a;-Fet;;-h--1
-,/ ILoad and execute 'I
Lhe program 1.3.'J
I
!
!
I
I
Register
,..n~J
.
I
,
I
l>smm.:torage_~·1
RSAPCAII
/toprogram
RSAPCSAR I
I
I
I
I
;~~APCSA-i
RS! chain I
address
J
l':':~/
I~
§]
1
r;;t '>fPPT
Search
.-1/
________
I
I
::!J
I
I
Se.rch PPT
I
~
I,
Save required inforllation -I - - - - '
I
Pass Progra. Control Ant1cipat1ng Retu-rn
Ir
ILI" "I
_,I!
\~/rSCp 1.~2-
I :
I
I
I
or
D.BPCP:
---,/ I~
(RSA)
I
1
"tput
I
II
I
II
/
II
I
II II
I
I
Jl
I
I I
j
IJ
010gru - 1.3. 1-01
81
LICENSED MATERIAL -
PROPERTY OF IBM
PAGE
'n'P
r------------------------------]
Output
I
I
I
I
I
I
I
!
I
I
I
I
/,-', [-----------------J
<\ ~~:~ I > !:~~:~~-~:~:~~--Break all ties
.,i til calling
program
1.3.2.1
----------------
[::1 >[~§~~~~=~~~~~====J
10813 and
execut~
the program
1.3 ••
---------------
I
I
II
I
_____________J
II
I
II
----------------------------~--j
Diagr.am -
1.3.2-r;1
~;:====~=======~~=~~=-~~:~::~~~~=-~~~~~J 1~:~~:==~~=~~~~~~=~=~~~~~~~~~=_~::~~::-I~~~~:~~I::~~~ll
I
[~
1.1: COllOl.
is use d, free toe
PCXC'IL
I
I
storafle area aC':lu1red for rGT.
If fL/I. is usea I free the
stora:;'EI ar.eas aC':Iuired by P1/1
for tais progralll.
I
1
,
I
1I
I
I
I,
I
I
I
I'
I
II II
I I
I !
I !
I !
I
82
I
I
I
I
____________________________________________________________ .J
1:r;;;1;;-Ero:J ~;c~;t~l-------------------------
CICS/OSjVS Program Logic:
01a1'rall -
-'.~.2-01
Description
LICENSED MATERIAL -- PROPERTY OF IBM
p:~~~~~!----------------------
~~___
IiitfaC
[:1.•. .··1. . . ,)
l~~~;~~
--"11
~--\--> 0 [~----)
c~~tr~~ce
OP HPep:
~,]
-
I
[ ~:m::-J--ItYre
CSA
[r~~~f.l---
[~----> @]
----------->
r-----------------I
Output
Decrement t"esidence
control
7777777777777)',
-------------~ I
cOlJnter
CheCk the value of the
residence control counte't'
~~] Pree the storag~ areas,
II
PPT
\
-nc--.-]
II
lr-RP;;.Ts-iR -dC~.control
counter
---------
I
I
if
necessary
I
Ilil~::J j
\
I
I
lpAII
>c==~---
I
I
I
l__________
:':,
1____________________________1
ciagI:sm - C3.2.1-01
.£Ir031:am Jielease
_________1~1~~--111-::~--1
---------------------------------1 -------------------------------------------,
=~~=~I~.,,: ~ ~~I ~
I
II
I
r~
II
zero, tne tasx >s abnormally
ttat'lIiJl.atE::d witb. all. APeH ABEND
I
code.
II
~~r::·c::::::r>~s r!:::::: ::a:..
caUer.
I
Toe stora;e areas are released
II
it either:
The lIodul.e is a map.
Tbe sbort on stora1e indica'tor
is 00.
Tbe .t-oI:o;ralll is to be deleted ..
pcp fifiL E
I
IPCPIiPB
I
IL ___~_______________________________
I I _
I
I
I
______________________________________________________ .J
Ero; r all .tiel ea 5e
Section 2:
Method of Operation
Diagri'!llll -
1.::.2.1-Cl
83
LICENSED MATERIAL -- PROPERTY OF IBM
Page 1 to 1
OUTPUT
PROCESS
INPUT
TYPE· ABEND
[b
Type of
request
TCA
0---- ~
TCA
TCAPCTR
DFHPCP:
W$ffi
Determine whetner to cancel
all exits
I~CASYABI
ABEND exit
information
I
--0
~
Unlock all locks tield by
the task
IITCAPCPI
Program 10
• El
TCAPCAXI
ABEND exit
0:::)
I
J
Execute ABEND Exit
information
1.3.3.1
TCASYABI
ABEND exit
information
0----- §]
~
Dump all requested ~ata
9
9
9
DOP
2.2.1
ACP
3.2.1
or
DBP
4,12.1
Diagram ~ 1.3.3·01
Abnormally Terminate a Task
NOTES
~
A cancel all exits request Is
ROUTINE
LABEL
REFERENCE
NOTES
ROUTINE
LABEL
REFERENCE
PCABEND
specified by the CANCEl"'YES
operand.
§]
PCSTXTB
~
PCABCEB
El
~
A dump is requested with the
PCUNLKB
ABCODE=xxxx operand.
XCTL to DFHACP, or DFHDBP if
Dynamic Transaction Backout
is required.
Diagram -1.3.3·01
Abnormally Terminate a Task
84
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
.':'------------1
r---------------------l '. :L~,
[
ll --,/ rnt"J
IupUt
3.3
r-------------
l'lake eXl.t inactl.VE to
I
T[~h~~:_Jr>[=====:J J-----------> r;;;]
~
area
I fFAFCu-lr>Hhn::-J --~!!~==-J
i
I
77777n777777)'>
Check the type of exl.t
rou tl.ne and transfer
con trol accordingly
I~I
I
~I
7777777n7/~
II
I
~~~ECXPA
I
TCA
I
[~~~~?~~~~11
II
informa+-.ion
I
I
I,
----------
l!~~~;~~~
------------
I
,I
,I
I
I
[;;;;;;-;;1
------].:L
l~~ __
! ~-----lr>[fPTPI---1
I
,
protect agal.Dst recurSl.ve ----------III~/
ABEND
1 C'F
[-------------------------------1
•• ··1 >
L~~
PAGE
output
I
'vI
J
'.3.3
I
,I
I,
,
:~:~~~
~~:===--I
TC~fCXRA
I
EXlt
routine
,I
l address .J
--::::==---------
I
I
,,I
,,I
I
,,I
I
I
,
I
I
I
I
I
I
,I
IL-______________.J
IL
,
I
_________________________ .J
Il ______________________________ JI
Bxecute ABEND Exit
DiaTram -
1.3.~.1-Cl
~f~~;:~;;.;--I-~;F:=~=I ~:::-:::::=:=---=:~-=-l~:~F:;::I:;;:]
I ::.~:.:.::.::.:: ::::;'::
I
H
I t t.e exit is a H11 routine,
::s::~e
the reg isters and branch
I,,"no
I
I
I
I
I I I
!I
II
I
II
I
I
I
I'
I
!I
II iI
I
I ,
I,
I
I
I,
I,
I
I
I
I
II II
I
I
I I
L _____________________________________
_ __________________________________1_______ 1________ 1______ 1
I
Execute HUD Exit
Section 2:
Diagram - 1.3.3.1-01
Method of Operation
85
LICENSED MATERIAL _. PROPERTY OF IBM
In..,ut
procEssin;J
r-------------------
I
(:1._-' \
•••• J )
---,1
[~~]
.
1
I
I
II
!I
I
I
I
II
I
r:~.\ fc;I;t;-L~d;d----~=~.!::~
1 ell
1-------.,-----------------------,
OF HPC.P:
--, I
PAGE
output
,------------------------------
_________. . _
I
~~o~~g:Elf~~er
I
I
eX1.5tst r'.elete all
loaded pro;Jr8111s
1.3.5.1
-------------I
\
zmzzzzzmz~ /
II
.c~
TCAPctt-;;;]
PCPA.
[TeA
progrllll
related
I
data
---------
~~] Free the Register storage
Area
,--' \ [-----------------~
<,I ~::~/~
~:.:----------~-:-1.2.2
-----------
I,
FRI'EP'lAIN
~~] Ret urn via the link
reg ister
I
[;;;;;;;;1
-----J~
\
V
I
To application
________"__J
pro;rralll
_______________________________1
Fro:ijrall Elevation
86
Diagram'" 1.3.3.2-01
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
Page 1 of 2
INPUT
TYPE-LOAD
~
TCA
TCAPCTR
Request
Type
--0
;,P.:..:R:,:O:,:C::E:.:S::S=--_ _ _ _ _ _ _ _ _ _ _....;......
OUTPUT
DFHPCP:
§]
PPT Search
I
find program in
the PPT
1.3.4.1
TCADLIT
DLII
Indicator
I
--0
~
IB---
PPTTLR
Program
@]
Residence
Indicator
Area
Required
DLII Task
Initlation
--0
----I!l
PPT
PPTSAR
Storage
Perform DUl Initialization. if required
~I---I
--[[J
I
[!}---+
CSA
CSAOPFLA
Optional
Features
Get a load list, if LOAD request and new list required
SCP
~
I
• .1
--1 2 1
Perform processing for nonresident programs.
A. Get storage for program
--0
List
Address
CSADLI
DLII
Address
List
Diagram ·1.3.4·01
Program Fetch
NOTES
ROUTINE
~
§]
LABEL
REFERENCE
NOTES
ROUTINE
LABEL
REFERENCE
RCPF
In addition. all permanently resident
HLl prolJ'ams must be initialized the
first time they are referenced.
PCGPS
A: The Storage required (in number
or doubleworcls) is kept in the PPT.
.
Progl'lm Fetch
Section 2:
Method of operation
87
LICENSED MATERIAL -- PROPERTY OF IBM
page 2 of 2
OUTPUT
PROCESS
B. Load program
C0
Loader·Comm un icati on
Load the program
1.3.4.2.
PPT
C. Perform HLL processing
Gil
W/ffk
PPTCOTGT
TGT size
Check the type of request
PPTCOBLL
Bll cell
displacement
~
A. IfTYPE=LOAD
To Cal Ie r
~
Perform pre-execution processing for non· LOAD
request
EJ
Transfer control to the specified program
TCA
>
WWA
co- TCAPCTA
PPT
address
TCAPCCA
HlL save
area
address
~
To Called
Program
41
Save Area
1
Diagram - 1.3.4e02
Program Fetch
NOTES
ROUTINE
LABEL
B. Program load
PCCLOAD
C, The address of the PL/I or COBOL
macro interface routine is placed
PCPEXIT
REFERENCE
NOTES
ROUTINE
LABEL
REFERENCE
in the PL/I or COBOL program.
~
If a program load was requested,
control is returned to the caller,
PCPFRCUB
~
The PPT address is placed in the TCA.
DOCPCP10
For HLL request, task-related storage
is obtained.
For an application using the command level
interface, LOAD DFHEIP if it has not
already been loaded.
DFHPCEI
6.5.1
For COBOL applications the first two
BlLcells, BllDS and CSA are initialized
El
PCPE
Diagram - 1.3.4e02
Program Fetch
88
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
Input.
l L__________
CHART: DrOPCp
1 OF
1
PAGE
Olltput
f:L, '[,:::'
l
TeA
'TCAPCTB
Request
L:~. -I >
----------:::!:.>, ~
typ_e_ _
I
>
Sea. the PP'r to find a
.atch tor the progra. 10
TCl1'CPI
Prograa IO
--
r-----------> [§]
PPT
Perfor. required
processing
-~--"TP1
il
i~~
'leAPeTR
Return
code
I
PPTPLGS
Bnahl,e
cg~S~~A"T
address
I
I
~gra. I.O
TCA
--1
I
\
L-______
.I
L -_ _ _. _ _ _ _ _ _ _ _
D1agraa -
PfT Search
I ~outi.el
i Hotes
II
I
I
---.J
1.3. ll. 1-01
IR.~
1-§1------·j--j-·"'",I-l------------'----I--I--1
If the PPT entry .as disabled.!
the request. is treated as an
error.
If
a. error tera1nat.ed
occurs. thetABBND
task is
abnoraally
code lPCT)· unless the request
vas conditional or SET II'! vas
'i
~~§~~:::~:::::;':::.::~. I
If LOCATE vas reguested, tbe PPT
address is placed in the TCA,
and control is returned to the
calling prograa.
Label
'.ef
Notes
,\;PCPPTLB I
O~
j.C ....
I II
I
11
K
....
I
Routi.e' Label
II
I
1,1
II
I"
I,
I
II
I
If Dot LOCATE, ret.urn.
The PPT is searched, Ilsing the
Dl'UPC-LOCITE .acro iQstract1oD..
.''1 Search
Section 2:
.~L
Method of Operation
Dillgraa
:-1:''3. 4. 1-01
89
LICENSED MATERIAL I;:A:!P~~U.:.t
PROPERTY OF IBM
_ _ _ _ _ _ _ _ __
[L•••• ,
J:AG!
~~"'----------~----l
":::~L-------1
>
--, I
rn-._Ol] Read aad process all
records
l::":
, 0'
Loaded
::::::::~::::>
A. 1'or RlD records,
relocate address
constants
Prograa
I
[=====J
I
II
. B. Por centrol records,
determine the length
and address of the text
record tc follow ant'!
read the text record
I
[;;;;;;;;1
-----J~
',I
To Caller
_________________________J
l.oahr-=-S;iOCau------.. .-
Diagram ... 1.l.II.:2-01
-------------------------------0:-----Notes
@]
COAtro.L is retu:aed to caller
BoutiDE
Latei
PCLCADBT
Ref
'"::::-----------------:---------;::~::--~:;:~-.--~:;--
,---------------------- ----- ------- ------
eitber IIheD tbe last RLO record
is processed. or III'AeD the last
I
text record is read.
I
I
I
I
I.I
I
I
I
I
I
I
L_______________________________
I
________ ..._____________________________________________ ---.II
Loader ... ieloea te
90
CICS/OS/VS Program Logic:
1:1agram ... 1.3.11.2"0 1
Description
LICENSED MATERIAL -
IAPUt
·rcA
····1
--,1
' ' ' ---------------l
n,el
prcc_Essin_g_ _ _ _ _ _ _ _ _ _ _
--------------------lTYP..O.[~~,
OF tiPCP:
>
[iCAPCrR-' --------------->
PROPERTY OF IBM
1 0'
I
~]
~
~~~!..~
1=1'>[fPi-s;;~~h------~
',-,1
___________
(I
.
TeA
),
ZZ?1Z!Z22.!I!?\/
Locate the ~~~?fi~'
[TCiic-rR---]
RetUrn
code
-------
--------------
<'\ .-,1
t;;. '>[ii;i;t;-L~;d;d--J
__________ _
::~2=~~
Beme.,e prograll
references from
load list
I
I
1.3.5.1
----------------
I
[;;;;;;;;1
----J~
, 1
II
V
To caller
I
!
II
I
I
I
I
______________________J
-----------
D~HPC
TYE!.=D~J.r;TE
Diagram'" 1.3.5-01
Jle:iuest Processing
-------------------~---------------------------l
!iotas
Bout.lDe
LatEl
Bef
PCD:ELETE
Hotes
~outine
I
tatel
I
tle t
I
-------------------------------- ----1--------1------1
1 I
I
I
1
I
I
1
I
I
II
I
I
I
I
I I
-----------------------
DPliPC TXPE=Dj.LJliih BeQuest processiD3
Section 2:
Method of Operation
------------------------------------------------------j
• ... 1.3.5-01
Dia~t'a
91
LICENSED MATERIAL -- PROPERTY OF IBM
r
-l mJ::-
or
PAGB
oa.tput
1
t:~ >
!;.C:.:A:......_._.... - ____ .. ____:::!!> ~ Parfor. processing for
~ClfCU
legaaat
type
DBLftB reCJuest
fo~r=~rst
mzzzzm:m~ ;>
ellll1D
toad List
Load List
<1'-'-"
••• , >-------~
Prograa Balease
>~=:J
'r-II
---
~:;::~~rrogra.
1.3.2.1
E~!l
',,
Ifa Caller
L._______
Di.gr. . - 1:"3."~. 1-01
Delete Loadea (lrograa
Iotas
§]
Por DILI'!I request, prograa 1s
re.ayed fro. the 101.4 list.
-
Boat1ne
Label
Ref
--- --PCCDLPI
Rotes
---------- ---- --80at1ne
Label
Ref
If i. latching ID 1.8 Dot found,
control 1s returned to the
caller.
Delete Loal.. .rogra I
92
S!; .•
CICS/OS/VS Program Logic:
ai.gr...
-
-
1. 3. 5. 1 01
Description
LICENSED MATERIAL -- PROPERTY OF IBM
r-----lTIPZOBETOn
T[_CA_ _
TCApCSl
F9
I
[;L-,1\>
j,_. . _____ .t:···
L::..:J
t:~::::J
:Sdres~
PAGE
1 O.
D.8PCP:
_:::-!~>1 fOi1
as! chain
Output
Perfora BLL processing
/"-' \ r
<, ~ / >L-S_C_P_I.~-2:._2_:._:._:._:.-__:.__
-
@J
I <11-'-',
I··' > p:togri!& Elevation
I \,--,/
I
:slevate task to
I
next hl.gbest 1e"e1
I
1.3.3.2
I ~ Check the prograa level
I
L ___. _
B'-:.t-ur-n~p-ro-9r . . Control
l,~__
Dia.gra.& ... 1.3.1;)"'01
_~::~~: ~ ~JI[
I
Hotes
~ All BLL storage areas are
relea.SEa.
I
PCBBTOBH
If the prograa is at the highs st
1.".1, a Task Cont. tol DET lCD 1 s
l.ssue4 to tera1nate tbe task.
I
I
Notes
If not at tbe highest level,
control is' transftu:rea to the
specifiEd prograa.
~~_---,---,_U,---I
I.ttrll frogr •• COntrol
Section 2:
Method of operation
_
93
LICENSED MATERIAL -
r--------------------1 g
PROPERTY OF IBM
.Input
~
I
l'CA
OF.PCP:
rl~sc~·-c~.oPu-nCe~S-tR -1--1-------------> @~
.,
I
I~~~~-JID
nutput
------------------------
:1.--"
[I..'::~~
/)
P"GE
TCA
Check the reQuest type and
set the
.cti~e
indicator
1 OF
[------------------------------1
I,
,
ProcEssing
~IiB IX IT/ H
)"
Zzzzzzzzzmz\/ I
I
I ~~~~ine
L~~~::~
[TCAPCAX!
ABEND
1
~
:
eXi~1
I
!m~~i::~,I
~~~PCUI\
l~~~r~ss
!
,'
Of]
!,
~:~2:~~___
,,,
Perform processing for
t request
SET XI
,,I,
,,
,
,
/
V
'Io Caller
i
I
II
,
l_ _~_ _ _ _ _ _ _ _ _ _ _ _ __
L________________
Cancel/Activate/Reactivate anABBND Exit
Routine
Notes
§
For activate/reactivate
reguests, tae dct~ve indicator
Latel
PCSE'lXIT
Bet
l_______________________________
!
J
Oia1ram - 1.3.1-0 1
~:~:====~=~~~~==~-=~~=~~=-~::~~:-~~~~~~~~1~~:~~~1
is turned on.
For cancel reguests, tb.e active
I
indicator is tUI:Ded off.
[§]
The routine or EFT entry address
is set up in tlle TCA.
is
sear~heQ
I
1.3.".1
(The PPT
to dete rmine tb.e 2FT
ent!:! aadress.)
I
I
I
I
________________________________________________1_____ J
Cancel/Activate/Reactivate a.oABt;ND Exit.
94
D1a1ram -
CICS/OS/VS Program Logic:
L3.1-01
Description
LICENSED MATERIAL -- PROPERTY OF IBM
Input
PAG!I
Output
TCA
a~~
1
SIP
Obta1n required
in£or.atioo
TCAPCPI]
PPT
0'
PPT
Free old resident
iofor.at1on and save
infor.ation
PP'I'SlB
storage
area
reqU1.red
PPTBHTD
B~m
~~~~l&ce-
II@]
CSA
!Crurnll
[
L:~-'
SIT
[)~PBDLL ~
I
I
PPTDASA
TTR on
disk
Save disk address of the
progralll
[·I .....;~l
0
, I
)SIP - ]
SIPBLDL
----> B
BLDL
:~
SIP.lBftP~
PPT
entry
address
\TO
caller
I
.~J
Get Directory Infor.ation about a progIaa
I
I
lot..
~
','I
Diaqra. - 1• .:t. 8-01
_ ..:ouune
Label
1 DOS/'S LOID .acro instructi.on
PCBLDL
H"' I"'"
---==-1
RO:UD.
Label
~9·t
is l.ssued to obtain the 'progra.
~;::~:::~e~:~r~:::~::c:~Sk
I
II'
l.nstruction is issued vith a
I
TITcHO para.eter to cause a
directory search only.
jOCSLDLOK
I
PCSLDPS
'\8~.=t~D~1r=.=c=t-:o"'r=J-:l:-:D=f:-:o=r=.a-'t=1"'o"'.-'''b-oo=t-a-p-rcgra
Section 2:
a ---"'----'----' '-----------
Method of Operation
95
LICENSED M~RIAL -- PROPERTY OF IBM
l.a,Put
-------1
.i.'CI
{
"::---------1 °l""'-_________
P.lGE
f,L,
l -····•
- , I>
mm~s
of -------------.)
r;;";l
r;;;]
~ Perform service-related
'I
fUDct~ons
~~~ested
~I
~~~
.odllle
----------) @]
J
Il
:~~a save
I
r
~~~~~~--
I
I,
"
COBOt Save
Area .
I
I
I
> C=====J
>
Enter requestea eICS
lIodule
---------) §]
~,:
TCA'
r ['!CADCHS
L~~ SaVE required 1~forll8t1oD 777777777777:,)')
--,-------,-~//rl
1 O.
I
Perforll bit lanipulation
for trace request
~~] Restore saved infor_stion
[;;;;;;;;1
-----J.:
,
I
v
To COE!OL
Program
I
I
I
!
I
L ______________________l
"
cOBoLi;t~Ce---------
r~-------------------~~::r-~~:~---;:;--
§]
'1'b.e contents of t.ne registers
PCCBUN
are saved.
!
D1agJ:a. - 1.3.'3"0'
-;~::--------------------------~:~~:--~~:~--;~;:~-l
---------------------~---------
,
------ --------1------'I
I
aoved. oy the .acro regl1est
exp8DS1on.
I
I
PCKCPPB
I
I
PCHLLrR
PCCOBBTN
I
I
CObOL .1~~---------------------
96
I
I,
~ flOVE infotliatioD previously
I
I I
I I
! LI _______1______I
___________________~________________
J
t1agra. - 1.3.CJ-q1
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -
1 ali
--------------------------1
,
,
[:1.-,
•• ··1 >
---.1
, TCA
Save required information
II
B
Perform processing for
rmPfrs
first call from a PL/I
progralll
'~=:~--
m(>
TeAPCRS
save
[ HLL
area
me>
Enter requested CICS
I
~
TeAPCTA
PL/t first
[ time
1
,I
svi tch
I
[~]
1
]
~~:~--
mzmmr~
Adcu:ess of
tICS
J:e-1Ues ted
----------->
!
DFHPCP:
----1--------------->
l
lmodule
PAG!
output
~--~~-l
tCACSPE
PROPERTY OF IBM
l
J:lL/I Save
Area
[====J
>
module
----------->
I
~] Perform bit aanipulation
for t race request
@]
I,
Restore saved information
I1
I
[;;;-;:;=1
----j:t
!,
'vI
To PL/I
program
I
I
L _____________ _
P~/L
Diagralll -
Hotes
@TI
RoutiDe
The cont.ents ot 'the registers
La tel.
Ref
I
------------------------------1
I ""outio191 Latel 'FEf
1
1
------------------------ ----- -------1------1
I ,
pePL UN
location speciliad by the ElL/!
cali statEment.
I~
I
I
1
1
II
The CSA. address loS savad in the
I§J
1.3.10-01
lI'otes
are saved.
@)
I
_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ .J
In teJ:face
1
I'
I
peSCles
I
1
I
I I
I
peRLLT.
IpePLUN
I
I
I
1
I
L________________~L___________
I
II
_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ .J
Pl./I Interface
Section 2:
Di8gran -
Method of Operation
1
1.3.1o-rl
97
LICENSED .MATERIAL -
PROPERTY OF IBM
Page 1 of 1
OUTPUT
INPUT
DFHPCP:
~L_S_PP
______
~
Perform restart processing
1.3.2-01
Diagram
Restart task after ABEND
NOTES
§]
Free user class storage, not TeA.
~
Re·initialize Dynamic Log.
§]
Set 're'started' flag, clear ABEND code, and:
ROUTINE
LABEL
REFERENCE
NOTES
ROUTINE
LABEL
1.3.11-01
REFERENCE
PCRETRY
'synchpointed' flag. 'Move initial program
10 into PCXCTL.
Diagram
Restart task after ABEND
98
CICS/OSjVS Program Logic:
Description
1.3.11-01
LICENSED MATERIAL -- PROPERTY OF IBM
CHill!': J:CPYT
PlGI
1 OF 1
triae "anage.eDtt
I
1.' .01
'---1---'
I
I
I
I
I
I
I
I
I
I
I
I
I
I
,
i
,
d,
dr,- - - - - - : - - - .
I Deleay
I signal
ITasl Initiation I I I Current Tiae of I I I Data BetrieYal
I processing of a I I Expiration of a I 1- INIUlTE/pUT IIIDay - GETl..
111- GET/BETHI
I
(Task. - !lAIT
I I Specified Tille I I
1 ••• 3111
"'.~III
1 ••• 61
I ,
'I'
'I'
,
I,
1.'.11 1- POST
I
1.' .21
I
I
'---1---'
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
.
•
icancel a
It' ue-Drd.ered
IBequest ICIICEL
.
I
I
ITiae-of-Day
I I Clock Beset
I I Support
I I
1 ••• 71,
.
I
I
I
1 ••• 81
V
i
i
ITiae Bspiration! 1CE SCHBDULE
IAnalysis
I I
1.4 .. 101
I
1 ••• 91 '
,
i Build
.
I
Basic ICEi
1.' .'1,
Diagraa -
Section 2:
Method of Operation
1.q-41
99
LICENSED MATERIAL -- PROPERTY OF IBM
r~--------r"··;~~, j::~--------I
J
l~me or
interval
J
lCArCQiii-,
l~~::=_~J
I
I
,:
~
I
I
I
/ ,--"
[-----------------)
\
I
Build hasic ICE
cr~ArCEU-l-l-l- ------ ---- Iroz]
>
,
,
,I
<,~~~/> ~:::~:~~---------
AQaress of
'OF
r------------------------------l
Tf~ArCRT-l--II------~~~~: [~n
!
I
I
n.GE
nut put
I
1.4. q
---------------- -------------'
,
_____________,/
t~
"'{cr
I,
l~~:hai~
II
[--------1
I,
TeA ICRC
p.l"'sponse
code
_ _ _ _ _ _ _ .J
I
,,
I
/ ,----', [----------------~
<, ~::~/> ~:.:::~-----------suspend the task:
I
I,
,
1.1.7
---------------@~]
I
Process the rl?sumed task
,~
I
A. Set response code
I,
B. Release ICE storage
/ ,----', [--------------~
<, ~::~/> ::.:--------------
,I
,I
,,
FFEEl'IAIN
1.2.2
----------------
[;;;;;;;;1
L ______ ] :
l
,
!
I
L________________________
_______________-.l1
Delay'
PJ:oce5s~lJ.g
,
/
I
V
To Caller
o.r a Task
I
I
l______________________________J
Diagram -
r--------------------------i
1.Q.1-01
---------------1[------------------------------,---------------,------1
;:------------- ~+~~~;-I;:~~II-=~:---------------I ~:::::I-~~'--I-:::--!
~~
Tne cbdl.n se,uence 15 foned
aCCOrdl.ll; to e.ltiara hon tl.mes.
ICCNAL.
I
I
I
\[041
1----'
I,
,
I
1. l. 2
A.
I
exp~rat~on
t~me
interva.l or
of the
re-juested.
When ta,,- suspended task. is
resuIIIE:d, !-,rocess be3'l.ns
immediately. It the
expiratJ.on time .had elapsed
when the or~3inal request was
II
I
I
II
made, an dfJ?I:o!-,riate response
is ret urned.
B.
A Stora:/e Control fREEltAIN is
J.ssued.
I
ICkTBICE
I
I
I
100
~,
I
I
I
I
"
I
I
I
I
I
I
I
"
\
i
I
I
I
,
!
I
,
!
I
I
I, II
1.2.2
L _________________________ _
Delay P rocessl.1.i:l of
I,:
II II
I
,I
"j
I
!
II
I"
I,
Tne suspenaed task is resumed
upon
I
I
I
I, II 1'
l___________________________________ _______ ,,________ ,I______J,,
I',
~
TasK
~
~
Diagr<'llll -
CICS/OSjVS Program Logic:
1.4.1-C1
Description
LICENSED MATERIAL -
III.!Jut
PAGE
p_r_oc_essin_~ _ _ _ _ _ _ _ __
•••• , >
--../
I
I
1
1
ICE
""]
l.CArCaT-.l---------------> ~
11.1Q6
1 01'
output
r-~-------------------l
r-----------------lryPE=POlr~__', DPHICP:
TCA
PROPERTY OF IBM
1
I
'CaTe.~Ao-~
TC~
O[
[ mtetval
-----~l
~:~~--
(I j;;'i'>[ICiCECRN-------~
lClICQID ..
~~~~
ICE't'ECA
Event
con1;rol
area
----------Build basic ICE
\,-,/
,.[1..11
CSA
J
---------
rCSArCaiiA-j---
l----let. cbain
ICECHNAD ~
[ Address of
next tCE
Ad dress of
---------
@]
Initialize the posting
area
=:==~::::)
-----------> @]
T[~~~ ICTEc-J
>
1
I
1
Event
control
area
address
I1
I
1
------
---" I r.1
<,/ '--"
~~ /> [---~
:::~~:!_______
~1
forll an 'lCE cha in
---------------
---,
-----]
I
1
TCAtCRC
Response
code
I
I
!
I
~] Issue a Task Control WAIT
request
1
I
I
[iiPiiiCP-------;)
1
/ \.,--,/
j;;I' > --------
I1
WAIT
----... ------1.1.6
1
~~] Set response code
II
I
L__________ .
Si~nal
II
1
--------------------------.1
Diagrall - 1.Q.2-C'
EXploration of a Specified Time
Hates
Routine
Lacel
repOSl'H
@]
The event control area tbat "ill
Ref
I
;;::-=-:--==~I~-~~~:F~:I
and 1s posted
U.PQD
expiration of
toe requested t.iae of interval.
accordiD;I to ezpiration t1.e.
l'asJt
C:ont~ol
I
I
I
I
II
I
I
I !I
~ Expirat~on at. time-dependent
event is detected by Task
l:as~
I
I
I
~ Tne chai.n seque.a.ce is fortled
Control
I
I
I
posted at tbe x:e9ues~d time
or interval is part of the ICB
De
1
I
I
i
1
1
1
Dispatcher. The
WAIT is issued to
1
cause. 1. • • edlate postin~ if the
expirati.on ti.e had elapsed whan
toe ori;i.nal reguest vas aade.
I
I
1
I i
I I
I
II
1
L ______________________
Si~nal
.r.:xpiration ot a Specified Tillie
Section 2:
Method of Operation
I
I
I
I
t
I
I !
I
----------------------------------.
_____ J
Dia;Jra. - 1.11.2-0'
101
LICENSED MATERIAL -
PROPERTY OF IBM
--------l
~':!~-----------JTYP'=IHITIArE/::~~-g
PUT
rCA
f-----]
l
~~~L_j---->
.
. . . . ,>
[:1.····1
0 [B
---, I
A
A
---->
PAGE
output
I
I
I
I
I
DP HICP:
rn,]
~
Verify the necessary IDs
C0!
ZZ
1
I
I
I>
I
I
1
1
I
In'?]
lCAICBT
f~~:r~~l
------
~
1
I
I
<\ ~=:~ />[-------------~~~:~~:!!--------
II
1'--"
TCliCQIDj----> fCl
~~~~~
L:J
Build basic ICE
-------'.4.
lCAICII
[ Trans
ID
----lCAICTID
Ini t1al1ze autollatic
10
ini tiat10n fields
ter.inal
Q
ICE
IC'~'"ID
Terminal
10
§]
r [ICAlCD' ~
Data area
address
-----
l
fCSAPCTBA- ----> 111
address
Perform addi t10nal
p:r:ocessing for PDT
reguests
CS'
PCT
, 0"
r---------------------~--l
t.:J
[rl
~ ---->
CSUCTUTCT
1
I
I
I
I
------Trans 10
------ICETliNIO
II
ICECHNAO
Address of
l. next
_______
ICE _
I
/ ,;;I '> [jjPiiTSP-------~
---------\,--,/
@]
address
-----
1
I
1
POT
I
-------1. B. 1
I
I
pur ftess8ge
Area
I
>[=~~---->@
CAICRC 1
~Response
TCA
I
:~~---- ..
1
I
1
1
I
I
I
I
I
I
_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ .1
TasiLnitiaUOD"--------
Bo ut1ne
Hotes
~ the transaction ID is verified
by
Diagrall - 1.u.3-01
scanD~n;
tba t
I\a tc bes
La tel
-----------------------------,--------,------,
Ref
Notes
Rout inr:! La tl'!'l IllEt I
------------------------------ ------- -------- ------1
ICPCTSH
tlte 10 of the
original reljuest. If no .atcb,
I
1
II
1
1
1
set return code and return to
I
caller.
A. lor ter.inal-dependent tasks,
I
II
the pel' for an entry
I
ICTSTEBfiI
I
if a terlli.o.al. ID vas
reques t, it is verified hy
scannl.ng the TCTlE for a
IRa.tchin~ ent:r:Ye If no match,
set the appropriate return
code and returD to callere
I
1
I
I
I
I
1
!
:
1
II
!
siJecified in tile original
i
I
1
I
I
I
1
I
I
I
:
I
I I
~ A 11 time-ordered aessages are
stored 11S1D~ le.porary 5tora;e
facilit1ese Tbe reguest .ID is
used as data ID tor tbe stored
messages.
I
1
I
I
II II
~ Tbe chain sequeDce is for.ed
accord1ng to ex.pira tioB times.
I I
II
I
1
- - - - - - - -__________. --____________ ~L ____ J
TaB.(. 1.01 t1a tion
102
01811'a. - 1. u.
CICS/OS/VS Program Logic:
~-r 1
Description
LICENSED MATERIAL -- PROPERTY OF IBM
l~~
________________ _
[:1._"
•••• ,
----, I
-----------------------
>
DEHle.:
r;;-]
[lCArCBAri-]--!-------------> ~~
'c~
Address of
~~~v ious
r
Ob"tain ICE st.ora:lE, i f
necessary
~~~~~D~--"
_________
=1
Be .uest
I;!~---
1 C"F
OUi:pu ....
I ~e~
Addrp.ss
===========:::) r [---------1
J
I
<~ ~ ~>[~~~~~~=========l
----'lCAICTB
PAG"E
[--------------------------------1
procEssing
Prom 1. q. 1
1.".2 or 1.".3
'rCA ICBAT)
l ~SSi;Jned
ICE
,
of
1~>1
~=2J
j
l_-, ,
I iCAICRT
'l1lie o[
_____f'l
l~~~-----------}
[~~) Build basic ICE
A. GiVe it an ID
B. Specify
c.
th~
type of ICE
I
I
I,
Calculate the
expiration time-ot-day
,
I
•
To Call<:!r
1. ".1 1. Q. 2
1. Q. ~
L___________________________J
---------------------------------f
I
,
L______________________________l
niagr.am -
BUJ.ld basic ICE
Notes
~
RoutinE
I. t "the tasK h.Cla. ~l:evious.l.Y
1ssued a. EOST relJuestjl an ICE
La.tel
-----------------------------------------------------,
~~:~-·------------------I-:::~~:: II-~:~:~--I-::~--I'
I,
Ref
value vas specified, it is
ICICECRN
:~::. alone
wouJ.d remain ass1:Jned to the
task ana. it
1S
.Ie used for any
I I I· I
1
re'juiring an I(;l.
I
ICICECRX
I
I I
Iii
I
I' I
11CBEQ.LtN
the .Ielj,uest, a I1n19oue IO is
develo fed usin3 the COlln ter
I
in CSAUduLJJ. TAle CICS
I
I
COIII!-,oneDt codejl DYU, prefixes
toe sjlstem-:leJ1erated .lD.
.d.
as tbe expiration
I
Interval Cont.Iol se.Ivice
A. If no ID lias supplied with
1.q.q-Ol
lype's at lC.t:s and
I I
I
I
I,
cortespondio3 codes are shown
1P the l"t.erva.l. Control
I !
I I
,1
Bie.eDt. aata area in Cnapter
5.
c. ~~:v~::::S:~f:::h:·~;·:s
I
l ~::;~:f~'~~~~~:::·11
1
!'
I
I
ICC.VRI,
j'l
expuat>OD t»e. If d h o e '
'II
I,
,,
1
I I
II
I
I\
i
------------------------------ L_____________________________________________ ~~-----J
Build Basic ICE
Section 2:
Method of Operation
DiaJr.all - ··1.q.Q-Cl
103
LICENSED MATERIAL -- PROPERTY OF IBM
r-------------------1
Input
TYP E=G:\I ~~:"
PAGF.
1 Of
ProcEssiDg
output
rl-::~=------------------l
'1------------------------------1
1
•••• , >
rCA
I
L_-, I 1[-1
fiCuCTR-'I--------------->1 ~..!....
11Yil e ·of
I ~!:~~-
I IeAICDA
l ~aa~eg~ea
1
<,1'-"
~.::~/>
------
[~~]
daY7777777777777J'>,
----------I/l~'
~
I
[---------------J
~::_____________
~
Branch to GETTlf'lE
Routine
'41.11,,,
----------------
I
/
I
I
I,
/I
.~
~
Set time adjustment
j,
indicator, if necessary
I
\I
I
I
I
fCSi;rODP--l
Packed
a~ye of
I
I
I
I
----I-~r~~i7DB
I
I+ime
day
of
-----~--
!~) 'I>
1---------,I@l
1
I
C"A
Obtal.D current tl.me of
and refresh CSA fields
,
,I
I
I
CSATODTO
I
~~rf~ time
t~~~~! ___ J
I
I
,
[--------1
'I
linitiate
I
i~~~~~:r,,
L:~:::~~:J
I
I
Return time of day to user----------:;l
area, if specified
--[------ll_l-_::"
.
[;;;;;;;;"j
Data Area
11
[::::=::::::::=J
:
i
------F}
To
I
I
I
I
I
1
l_____________________________J
I
L____________________J
c.urrent Time of Day
I
caller
I
I
i
I
l_ _ _ _ _ _ _ _ _ _~_ _ _ _ _ j
Diagram -
1.lI,5-Cl
r-Not:----------------------I-:::::--~:::---;:~-l0:::-:------------------1-:~~~::T-~:~:--1-::~--1
!§:~~~::::~:::~~::~::-I----- ~~~~:~
I
Control u:
I
.>nary
Packed
I[~
I
- - -1 1----------------------------------',------- --------I------!
ICTODBIO
dec~mal
I
lC'lODPAC
I
test is made to see if the
current
t1me
I I
! I
I
I
I
,
I
I
:
I
I ••• 9
Within tne aDove subroutines, ,
II
I
I'I
of day obtained
fro. tae o.eraun, system is a
I
::~::n::a~~:e~b:: :0 ~r::ioUSlY
system
ClOCK
bas Deen reset
I
'I
to cause tbe 11.lIIe Adjustment
~::!r::p::a::o~~::;:~s~n
I
@)
the
Current Time of l.Iay
104
,
'I
!
!
I
I
I
I
I
I
L~--------------------I' __________
!
I
(at
ml.dnl.gbt, .tor example). Au
l.ndl.cator in to.e C.:iA 1.5 then set
I
I,
!'I ;:I~
I
indicates tnat. the operatinJ
II
I
I
I I
I
'I
I
I
!
I
I 1
-.1 _________________________________________ ~ ______ . J ___ J
Diagram -
CICS/OSjVS Program Logic:
1.Q.5-CI
Description
LICENSED MATERIAL -- PROPERTY OF IBM
r~------------l'YPE=G;:/RE'BYP~~L---_-:1.--"
····1
1
PAGE
Output
,
0'
-----------------------1
I
DPHlep:
}
>
(~~~>
Tr¥CliCia --------------->
I
~!]
'lype of
Perform
GET
request
I1cAPCiii-
A. pi ad and save the data
, address
~~~t ~~rY
10
Da.ta area
address
I
, r-"11
-----------> @]
lcsAim.a---->f11t:.J
>
B
I
-
I
,
mzzmzmz~/
AID
nDCHNAD ~
[ Address of
next AID
rrn;t'iiN-----
,eA
--------1.2.2
fii1n)'>
Retrieve the data record
l::J--\/
<,1'-·'
~~/> [------~
:::--------,
GET
f
@]
!
I
l' 0
<1'--"
1•• 1 " [scp
-----;]
'ICAlCPC
r Address of
UD Cbal.D
n
-- I
B. Release UO storage
TealeDA
CSA
I
i
processing
re 'Juest
:~ar:~~r1
iI
1. B. 2
---------
Set response code
~/J'>
Zmmm~t.I\1
[TCATSoI-l
nata 1D
_ _ _ _ _ -..1
TCAICRC ]
[ Response
code
TeAIeDA ]
[ Data area
address
-----
I
[ ;;;;;;~
----j:l
, I
V
To Caller
,
i
I
l __________________________ l
Diagram -
;~ ==---=---::"":-'"~
A. If the task is associated
: -:., ] ~::::~f~l~-::1
cbain is scanned for an lID
created Dy a pur request that
If no data area was supplied
vitb the request, the data area
address is returned with th~
response code to the requesting
bas tb.e sa.lle terainal. 10 as
routine.
ICGTTTDtI
w1tb. a terminal ... tbe 110
in tlle tasl.' 5 associated
Te1':l':: and the salle
transaction .ID as in tile
t8K'S associated peT. If
foud. t1I.e data ID is stored
in tile TCA. If no matcb.in3'
I II Ii
I, I,
I I
II II
,
AID is found.,. an end-at-file
code cond! tJ.OD is returned to
the caller. If the taSK is
te[,II1.Da1, Ue data 10 is in
the AID pain ted to by tae
fac111 ty COD. trol address in
the rCA.
ICBE1Dlt
rel:iuest is retrieved frail
Temporal:! Storage. If an I/O
error is encoUD. tered in
'1'eaporary 5to~~e. or if a du •• y
Te.lIorary Stora ~e module exists,
aD appropriate retllrn code is
DataBe~ie;;l----------------,--
Section 2:
Method of Operation
I
I
i
II
II
I I
I I
I I
II II
Dot associated with a
orbe data associated with the
1.1I.E:-01
I
I.
\
-----------------"'~
____J
Dis;rra. -"'.Q.6-01
105
LICENSED MATERIAL -
r---------------------
PROPERTY OF IBM
processing
~.D.put
\
[:1_-,
.... , >
!I
OF HICP:
Hh~~F:l--I--r:::::~~~=:
[~~] "atcb the request 10
L
I
I
ICA
l~~::~'ICAICEAD
/1.
Ad dress of
<,
l___________
- ----)
l
_.
!'
m~~~ii:~l
~:~;-::!--.
ICR't'ECA
~I
J
,
II
IrE
I
~~~/>[~;~;~;i~;=th;~~~J
I
cod~
'J
---- ---- --
bE1n:l
I
1
~~~~~__
II .
@n cance~-~~:-:;::~~~- zzzzZZmZt~
II
reg uest
>
I
rg~~~=I---------
IC"
i
?I>
~~n~:~~3st
1
WI~>I T[~hm~:-J
I
J \
eli
I
@~
Ir~~~r~~ ---I
1
r------------------------------1
??1.???Z"!?Z!.!.
lei; ~~~
FAG!
Output
r-------------------------1
TYP E=CA NC EL
IC.RQID
~~~=-=-~
I
A.
I
L_J \
[ ________________
I
j
II
<, ~::~/> ::~!:~~--------B.
I
Onchain the ICE
Perform
---------------
J:eguest-specif 1.e!1
functions
/ ,;;I \>[;:sp-------------~
---------------',.--,/
I
L_J \
II
Release
1.8.3
--------------~
~
[ - - - - - - - - - - __
___
<, ~~.:~/> ~~ii~AiN--------1.2.2
----------------
L_____________
J
------Z~I
V
To Caller
--------------------_._-----
C4D.Ce.i a lilRe-Ordered Rt:guest
.
I
___________________________ .1
Dis:Jram - '.U.1-01
I-~:~~;~;~;;:~;;;;;~~~:-;;=-~:~~~~~ ~~~:~~-~~:~~_ r~:::-~:~:-::~~:::~:-:~=::~:~-~::~::-~;~;;:~-;~~~;~l
[~
I
I I
ICA vito
"
I
I
[;;;:;;;;1
releasing the data storerl in
Temporary Storage and by
a lII.atcbl..Dg' re,:(uest 10.
If no reg,ue::ot. 10 vas given witn
releasing the ICE storage.
lCUNCttH
the cancelat.,l.oQ t"eguest, the leE
prev~ollsl'y assigned to tbe tasK
IlDcna.i.ned via a subroutine,
c. An INITIATE request 11'5
11.Q.3
canceled kly r~leasing the lC11'
11.2.2
and its stora3e
1.S
storage.
released
II
tbJ:OU1h storage Control.
~Ilis
I
I
I
I
1.S
sUDroutine also directs the
processing to the 8fpropriate
Cancela ti on p;ro cess in g.
!
I
8.
A. WALT ,re'iuest 1s canceled by
I
ICwtXPON 1.Q. 1
1.1.8
resulIlin; tM vai tin1 task via
a Task Control RESO.!lE.
A POST request is canceled by
I
J
ICPSIPDN l.Q.2
II
:::;~:!,:: :::::::;ati01e
with. Dotn O::i/YS ECEs and
I
I
;::~:1 C~::a ':s:~:n::e::
,
I
I~'
I
L_________________________.:. ._______________~-- L-----------------------------------L-----------~---l,.ii:-"1:o1J
CaDcel a lime-Oroered Request
106
.
C18gral -
CICS/OS/VS Program Logic:
J,:.•
Description
LICENSED MATERIAL -
III~~
_ _ _ _ _ _ _ _ _ _ _ __
PROPERTY OF IBM
PAGE
Ontput
,
,,,
[:1.--"
····1 ) DPtilCP:
---./ r;;,oI]
L.:..:
C(~~ArQiiiii~
--------- Pre'10US
----)
,
:::.z:::o::l::::: ::1.0. zmzmzz~r/
rollback occured, refresh
tbe esA. fields
.
@J
~]
CSABASCL
Base
i:1.~-of-
~:Iu~lock
CsAOAs=r.i-
I
Base
2Q-hour
clock
value
tiller
units
CS'''ODP
Packed
time of
Schedule tiae adjustment 77}')fi1
program ('UJPI 1f rollback--ll l:J
I
oeeurea
~
eSA
J'
Obtain current tilDe of day
2Q-hour clock. If no
timer
uaits time
~~
1 0'
------------------------1,
l'XPE=BB5El'
~-----
I
I
I,,
CSA.TODB
Binary
tille of
~~----CSATCDTO
Return appropriate return
~'[~
77 > B
code to caller
-- ,
j
Tiller
units time
I
of aay
CsAJiDp--
[;;;;-;;=1
-----J:l
,
Julian
datf!
I
V
To caller
[B~>
I
I,I
eSATAOJ~ ~
Time
adjust.
allount
------eSAICIND
Tille
contl;ol
indicator
,
----'
!
,!
,,I
I,,
,,
_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ .J
------------
Diagram -
Tillle-of-Day Beset Boutine
,.q.e-~.'
-------------------------------------------j------l
BoutiDe
Motes
~ Current tilDe-of-day 'clock is
Label
Bef
ICBSCLHG ICBESB'IN
oJltained via a Store Clock
y-
~o.t1n. _~~:~ __ I-::~--II
the task dispatcher. A 'timp.
'adjustment is scheduled' return
instructioJl • .It tAe condition
code iIIdicates a clock failure
return a 'c.LOCI. iJlOperati'le'
return code.
code is returned.
I
I
ObtaiD tbe 2Q-bour clock (timer
uuits) value fro. the opera.tiD:I
systea.
~ 1 cloce rolloack co DditioB
Rote.
- - adj ;5tmEDttasi1siniilitea'b
ICD.lB.lll KCTODB'IH
exists if tile current tiaer
uBits value is saller thaD. tbe
previous tiaer units value. rbe
I
.\
Dase cloc.k and tiaer units
values and J uliau date are
extaOJ.1sb.ed and the other
tiae-of-day vaJ. uss in the eSA
are oDt-aiued tbIOug b task
control (KCf). A DOr.a1 return
code is retu.rne d.
@]
If a cJ.OCI. roll.back is det'ectei,
ICRST&JB 1.".9
t~e
a.lIOunt of cAaIl;Je is saved ill
the COS! for "UJ P. I.f XlJP is Dot
scbeduLed it W:111 bE scheduled
by settiAg tae appropriate
iDdicators in the eSA. rite tiae
--------------------------
'rille-of-Day Reset ioutine
Section 2:
Method of Operation
I
I
I
I
I. 1"
__________________________________ .; 1
Dia1ram /- -,:ii:'8:C1
107
LICENSED MATERIAL -- PROPERTY OF IBM
Input
PAGE
Output
, Of
-------------------------,
----------------] M~~.tcher
r
I
1.1.11.1
.
rl:J...-..,
OFijICP:
····1 >
[71-'/
ricAiCiiT~---->1Al ~ ----> @
I -----------)
rCA
Ex~t tille
l interval
rCSAIcrNf~ --of
0-_1] Adjust the CICS time of
day, if necessary
I
ICECHNAD
~
Address of
next ICE
I
I,,
(I ;-;;'1 '> [-------------~
CSA
I!~Hli~~
i~fr~~~A
I1
I1
ICB
\ .-,/ TAJP--------:-
-----------)
@]
--------~~
,,
1
I
Pind all expired requests
,I
I,,
L~~~~
IrCSAsOS1j ----> fBI'
t.:J
Short on
storage
ind.icator
1----(SAKe!!
I,,
I &x.
task
l~~~r
I
reB
I
f~pygfl---->0
I
l ICBT~"IDj
1
I,
lerlll.nal
,
,I
,,I
10
1
I
I
I
I
L __________ _
L ____________________________ l
Tillie Expiration Analysis
Dia3'ram -
1.q.9-()1
----------------------------------------,------,
Routine
Notes
§]
If tne operating system clock.
Latel
ICEXPANL 1.1.1
bas been reset (at midni;bt,for
example),
a TasK
CODtro~
-::~::----------------------------! -:::~~:: I-~:~:~--l-::~--I
, ,
Ref
I1
5.8.1
I
1
I
I
ArTACH
is issued for the TimE
Adjustment pro;j'I:am. One of the
ind~cators vbieb were tested to
CheCK for the reset condition is
I
toen turned off to indicate tbat
tbe condition l.S being Dandled.
~ Eacn successive ICE of the
ICE
tim~
I
I
I
'
I
! I
ICEXPTEN
chain loS tested to see if its
expiration
I,
,I
has passed.
I
I,
,
1
I,
!
I,
,
I
I
l
I .
I
-____________________1.____________ _
Ti.e Expiration
108
Ana~ysis
I
I
I
------------------------------------Di;~~;.-:-~:ii:q:C;~
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
ID.,}ut
@]
P"G'I!
Output
p:~:~::::~~----------------------
------------------
2 C'F
r---------------------------,
Clear out all expired
reg uests
A.
<,/ '--"
~::~ /> [----------~
::::!~!:-------.
[~---->
Determinp. the type
of each expired"·
request
--------------
B.
I
I
[~~~!~~!=========~
!
Unchain the ICE of
each
[~---->
C.
~xpired
1
request
---------------Perform
I
I
I
II
re~uest-dependent
processin;l
1
I
L ____
T1P1e l:ixp1riltion anal}, SloS
L_________J
I
I!
I
I
I
l___~_____________________..J
n1;!,'t8m -
~.
11.9-02
r;:~:-----------------~:::-:~--:~--l r~::------------------------:::~~:I-;:~:~--T-~:;--l
llffu---------------- ----.- ----- -----I------~:::n~::~~:::;~O~h-th;----- ------- -------I------!
I !
I
I
I
A. Ihl.s SUDroutl.ne also dl.recrts
tAe procesSl.Dg to the
F:or POT requests, the ICE
c.
:::C::::~ed .AIr re9uests,
IC"UPDN
::::rE'quAst.
::: ::e:n::~:~:v;O:::Ol
I. I. B
lor expired EOl::i'r reque3ts,
the event coapj,eticD. bits
CCDlpatl.Dle witlL both OS/VS
.E~Bs aDd DOS/VS CeEs are
turll.ea. 00. in the event
control area a.ssigD(j!d to toe
taslC..
ICPSXPDN
eX'pir~d INL'lI1TB or PUT
reyuests tha t are not
tecllinal-del? E.D.Uent ,the task
is l.m.media~ely i,nitia.ted via
ICINXPDN Lt.1
Fat
l'BSK
ContrcJ.
a Task Cont'tol SCHEI)[JLE, to
synch:ron;i.ze thp. initiation
with the availabilii::y of thp.
terminal.
tbe
IC.c; chain and an, a ttempt will
tasK.
-----------------------------------------
'liae i:xp,1J:atioD. Allalys,is
Section 2:
I]
I
or PUT requests, the task, is
Method of Operation
ICSCAI'N
The ICE address is passed to
thE' Task Control SCHEDULE
facilities as an "In aadrp.ss.
Por each expired request, i::hp.
user-specified exit is talten
if ODe vas ;l1vp.o.
n9t IlQ der stress. If tne
the:
I1:',
scheduled for initiation viQ
system. is UDd.t;sr stIass, the
be aad.E: '&0 1n1'ti.ate
I
'For e~pired.
terminal-dep@ndent INITIATE
provided that the systam is
00.
I,
GET
A'iTACH,
eX.£l1rea. .LCE remains
I
I
facility control address. "I.'hp.
the ~a1t.i.n:l tasK is resulled.
via a Task Centrol RESUMB.
a
I
I'
address is used as the
a.pproJ:lriatE expiration
I
I
1
\
,
\
I
I1
I
I
I
I
I
I
I
I
I
I
1
I
t,
I
I
1
D1a"gr811 - '.1I.Q-02
- - - - _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ .... __ .... __ .J
109
LICENSED MATERIAL -- PROPERTY OF IBM
r~~---------------
Processin 1
r-----------------------------l
nut put
I
Ir--'
I
L~~J Return to 1ask Control
I
(::V [~~~--------------~
Eranch Interface
___________ ~.:2:..~~
I
I
I
3 Oli
':I
r-------------------------------l
I
7777777777777)') 1
Task Dis Fat:::: _________ I~~~~~-----\
PAG'F
I
II
TCA·
[TCAICRT---l
!
m;~~~!J
I
I'
II
I
!
II
I
I
II
I
I
I
II
I
II
I
I
II
I
I
l________J
time
,l:;xpirat~on
I
I
!
II
I1
L ______________________ ':"' ______ "
Analysis
t________________________________ J
HIPO"AT 1.1
'Ciagralll -
1.Q.9-(l3
~~~i~~~~~::::~;~~~~~l ~::::::=:=:===:=~,:::~~~~::1:;:;=1
eXfu:ea
re~llests,
to.e
t~m.a
remal.Dl.Dg un tl.J.. ttll.S ICE expl.res
loS returned to the requestl.ng
'o.h~ ,,~
- - .,'."•••,.
I
1
,
'I!'
1
1
I
I
I
I
I
II
I
II
l
I
I
II
I
I
I
I
I
I
I
I
I
1
!
I
I
I
I I I I
r
I I I
I' ~
1
1
1
1
I' ___-1 _____________ J It_____________________________________________ ~--------<'- _____ J
______________________
1ilAe EXi-iratl.on Analysl.s
110
Ol.a';n:am -' l.ij.Q-01
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
Oat put
froces_si_u.;9'--_ _ _ _ _ _ _ _..,
1.,"
I
--'\ @]
-----,1
Obtain ICE storage
<1'--"
1•• 1 >~scp
'.--11
G--ET"'!"-A--I-.- - - 1.2.1
I
~ Sove Ie! data
I§J
IC!
[·· .. ··i~l
I'
To
ICSBBDI - IC! Schedule
1_·_o_te_s_ _ _ _ _ _ _ _ _ _ _ _ _
~
!=~~
~ ftoYa IC! aata to' new area.
@B
l
IF-----------I
._ _1
I~I~ .~
I
calIer
D1agra . . . 1.11.10-01
Routine
~~=f-;:~
-I
!
!large IC! ·OD chain by eXploration
tiae.
ICln •• - ICI Schedule
Section 2:
Method of Operation
l______.____-.-~~~~~
01&9r •• - 1.4.10-01
111
LICENSED MATERIAL -- PROPERTY OF IBM
CHaar: BlPOOOOl
P1GB 1 or 1
iI Tor_inal
Planag-ellent
I
i
,
1.51
'--~
i
•
ICollmon Control I
I Line Analysis I
I
1.5.11
'--1---'
I
I
I
I
I
I
I
I
I
I
,
"-------"
I Rse Entry and
I I!:vent
I Evellt
i BSC
IAnal1sis
I
Initial.ize
i
itnPllt Event
i
iAetivity
i
I COllpletioll
rrerllinal Scan I ,Collpletion
I ,Control
I
I I Analysis and
I
1.5.~1 I
1.5.51 I
1.5.61
' L...--- - - - - ' L----l----.I
I ,
I t Processing
1.5.21 I,
1.5.31,
Y
I
IColllpletion
,-------',
.---.
111
L-.....O
; PASTER Input
I Analysis
1
I
1..5.5.11
,
I
.---.
111
L-.....O
r'-------------------------------------"
I
1
V
Y
i
i
i
iTrallSdction
iOutput Rvent.
ii'ask
'Input Eyent
iSJstea _et.ark
IInitiation
I 1101ti4tioo
I Iteraination 1'1"11 IInitiation
I IArchitecture
I
______'_._5_.....
7!
'~5."! IproceSSin9'.~.9! !
1.S.10! !
1.S.11!
~isual
112
Table o( Contents
Dugua - 1.5-l11
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -
llr-
l r::::'
i:L",
t..: ••• ' >
eSA
_____=:!1, @]
l---~: ~
leSATC,aa_r-
-- ,/
~a~~~e
Dode
cSi~
II
1
or
Initialize line scan
'orfon s1stO. teroiriaUon
analysis
analysl.s
tiOD
r.l~) ~ Select Device Dependent.
\.:
I
-
i
TeTLB
>uL~o
having been processea
TCTLBSLI
1nit. ]
TeTLBSIE
iblo EBlD
1ndl.cator
II
II! TenB
Il
ftodule
Analysis for last line
I~
I
IlJ
Unterru~1I
I
'~GB
~ Pertorl 11DO and tiler
Pinal
terllina-
II
I
Output
PROPERTY OF IBM
---',
r····:
>
I
.
BSC 1.5.2
Other
1.5.J
Task Centrol DPBltC
TJ!"B=if liT .acro 1SS'UEd
I I--"'E:~
1··1 >
mI <\,--./
1.1 ••
I
I ~ On iIIAIT co.plat1on,
reprocess at step one
>rTCTLBBeO--j
ILine BeB
I
=;)1A1
TeTTBTT ]
I
I Toninal
t1po
l::1
"lIT LIST
I>~
I
CO •• OD Control Line lDal1s1s
t.!!J
I
I
I
I
- -~~~~
-
1\ loto.
.\ rn;'l
The vait list whicb conta1DS the
addresses' of each Una entry 1 s
1.ui U.ali zed.
~ If sJst •• 1s in qU18sce lode,
onl::r writes are perfor_d.
go.iesee lede occurs when only
TCCSIB
IITeeSIN
lor BSC lines
III!fii51
t:.::J
.,hen the end of !fait list is
1.5. 1-01
I~ ~..,---:.., I
1.5.2
1.5.3
111 others
l~
rel8.10s.
'lCCC!I!IR
reached, then all 11.D.8s have
been processed.
'receAIA!
A
,n"l
80weyer, all other tasks lay be
gone with a IRIT! reaaUl.ng aD
the tar.inal. If f1Dal
IS.
Hotes
'I
the sJst •• tera1nat1oQ task
terlinatloD 1s posud
r
D1agn.• -
Task
cont"rol lilT 1s issued.
@]
If til.l: has elapsed, all lines
TCCCTRCB
v111 be processed 1f posetea
co.plate, if interruptible or
Qot initiated.
If tiler has Qot been posted,
then only lines that are posted
co.plete are processed.
Otherwise ad.,ance to next liD8.
~ 'er£orl De"ic8 Dependent Sodule
TeeeLT!~
selection.
CO ••OIl Contrel Line AnalJsis
section 2:
Method of Operation
Di_,r. . ,- 1. 5. 1-01
113
LICENSED MATERIAL -
PROPERTY OF IBM
------------l'·'·' [lbJ',
IDtlU.t
p_rOC_Ess1.D_g _
I
,"re"
Auto
answer
feature
I
H~~;~d
---1
r---:~~f::S :;1 _. _~ ....___ .
XerLBUA
J
@]
_>
ad.dress
UOA
>~ta
T~
A. If
J
1
~---.I
[il---->
:J
----
-----------
Hates
c.
Boutine
Latel
DFBSSBl
A. Switched line
DFHeSDEl
s. HODswitched liDe
DPHbHDBA
-~I
______ _
]
Co.pare the BTl" poll ----list index byte to the
iadex entries in the
TCTTBs on this 11 ne for
an equal co.pare
I,,
I
----------------------------------------,
Bef
Hotas
"outine
---~i;t1nqtOtt;;""lli~- - - - (aud onl,., entry withoat
further test1n1'
B. This applit!s to switcbed
lines onlT· If the
traDsmission code is ASCIl,
the data vill be translated
to BBCDIC before d01n9' th'!
comparison.
C. If all terllinals on a line
are searched vi thout finding
an equal co.pare, the TC'l"
search error will be set op
and TACP attached. If a WRITE
type operation has completed,
qo to initialize Ter.inal
Scan.
If 6itDer the liD.e i.nitiated
indicator loS .not set or the teB
is Dot posted coaplete, exit
this routJ.ne to i.nitialize
lerainaJ. Scan.
Nonsllitcbed
J
1_-
RIPO"AT 1.1 niagrall .. 1.S.2"Cl
sse lines aal' b.a's .111tiple
deVice ty pes. Because of this,
terminal CoatroJ. .uat deter.ine
wbich teraina.l entrl is
associated vith an event
co.plation before processing the
coal-letione
~ SlIitcaed.
I
-------',
_--.:. _________~_Jl:~' L_____________________l
III
[iCHiiHd---->
'Ierainal
t::J
index hfte ~
sse Entry aDa B,en t Co...let1oD Analysis
Latel
I
'liF.!f
,
------1------ 1
I I
\
,
I
I
I
I
,
I I,
I
-I
!
I,.~ .. 1
I
I
I
I
I
!
I
I
rCBSDrlS
I
rCBSTEs
l. tbis will lie the lIeans by
whicb tbe couect terminal
entry wul De deter.ined onoe
initial. contact is
estalllistl.eo. On a
gOint .. to-point nonsvitched·
line, the tcttE1B Mill be
I
BsclDUi~~tc;;Pl~~---------
114
ter.inal 1s
---' ,>
r:····1
renB
[§
act~ye
I
----------'
--------,/,
characters of data line
1.10 area to the I Ds of
terminals on this line
until an equal co.pare
is found
rl~ItsrH~--I-->
@
iDc1ex
.:J
@]
I
B. CO. pare first four
'l'CTLB
.
I
Deter.ine ter.lnal entry
address
:]--___
!
Determine tbat eTent bas
co.pleted
1
texnu
[ 'Ier.1.nal
I
I
specified in the line,
use it
[~~Bf:oJ 1---------->
I
I
1
~~~letiLoD
l~ __
ype
B. HODsvitched
102
----------> a.:.:
iCD
1I
I_ Switched
---L
I-C:rLBECB
1 Of '-'-
-------------~-l
r[~~~:iPAi- --I-------=::!!>@]Deter.ine1inet
r-----
PIG!
output
!
\
\
-------------------------".::
J
.
D1agra •.- 1:~ :2=r'
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
lA~'!------------l
PAG!
r~
i'CfT! 'lor
rleniUll .. -.. -.. ----------~
l:!~ __ .-J
2 0'
r~:~~:-------------------------~r·
I
I --
~~] Determine device type
I
I
~~]
:;0 to Device Dependent
lIodl11e event COIIIFletion
entry point
I
[ ;;;;;;;~
------]:t
1.'5.3
, I
v
I
I
I
I
I
I
I
I
!
I
!
I
I
I
I
l___________________________l
I
Diagrall .. 1.S.2-C2
i
-=====~~==~-=-~~:~::~~~~=~~:~~-
lot s
• D .. It a
IIId~'l'J::
tJPe comlRAnd has
cOIl~leted,
:10 to Initialize
1.'5.4
ler.ID.1.D a1 :icaD.
A tai.lure to Ilond. an Egual
cOllfare atter reaching the last
------------------------,-----j------,
-:~~------------------------ -:::~~:: -~:~:~--I-:::--l
I !
I
I
I
I
I
\
I
I
I
I
:
II II
terJlina! wU.L result in settin;
Ufo a. Tera1Dal l'aole sea reb error
and at't.AcD1Bg rlc..:p.
,sVitCAE!d.
TCBSDDEC
HODSllit.ched
TC&SNDEC
I
I
I
I
I
I
I
I I
I I
I I
I I
I
.
I
I
I I
I I
.
I .l__________________~__________!_____I
I!_~""_~J
. \
____________________
L_________________
L_______
j).l;iC IDtty
aDd. -'5vent Completion Anal,rsis
Section 2:
Meth.od of Operation
Diagtafl .. ';'5.2-02
115
LICENSED MATERIAL -- PROPERTY OF IBM
r--.---------------1
.LD~llt
p_r_oc_ess~_,
___________ _
OU't.put
r
1.5.1 - 1.5.2
[n;;j"
I
P"G'E
,
o•
--------------------~·-l
.1
I
r
DFHTCP:
---.> 0 ---, I
I
[iCtLiBCiiJ ----- ---------->
l'Cf.t.E
~~] Deterlline that line vas
initiated and an evpnt vas
J:ivent
control
cOII~leted
block
Line
--!-l--J~====~ (02"]-lriCiLm-)
status
-----
r---]--lelLESF
statllS
(81---->
@]
:J
l
Determine that event
completed successfully
> Ifjl
l::J
I
------>
fiCHBO'Sl--------I rr=----'
\IOs
I r----'I
Data areB
l~_J
I
I
I
l Pree bu'ffer unless RlAD or
l::J
I
'I'his is an output eVEnt
7777777777777)'>
coapletioD, turn off "RITF.------------~I
reiuest
l~~~=-.l j
fiCHEoAl I ==-
,
J~'~S'S
~]
reTtE
or
II
Input event cOlllpleticn
[;;;:"t'>
[iCiLm-J ---I
liEAD
SA VE
I
L-1:5~'
~~_s_ _
IU" of
~per~~~
r;::-:J'>
SAY E
1 L-J \
is on
\'
7777777777777 >
------------- /
[-----------~
I
<, ~/> ~!-----------
IR£EP.lAIlf
1.2.2
------------
i
!
I
1
I
I
!
I
I
----------------------------"
D18gra. - 1.5.3-01
--------------------------------------------1
~:::------------------'-~~:: ~~~~-- -~:~-- ~::~------------------~ -:::~+~:~:~--I-::~-I
5 'taJ:t/S 'to 1" .lines vill enter froID.
1.5.1. H5C line "ill enter frail
1.5.2.
~
l.t Ei'thar the .i.l.De lias not
'.
rC1SSEA
posted, :10 to Activity Control.
start/stoe teraiD.als 21141 and
.loB
II II
terlli.oal
del'EOdellt ao<1w.ti.
@]
DC!terlllio.li:I t4&t 'tae
not
com.plet~
response
clDQ
re~llest
did
I I
TCBSDl:lCA
111.to. a ne;ratJ.'Ie
tnii't tbe cOll.l?letioD
code vas '1F I • .unary
·synchronous teral.Jlals, except
1.170 ana. .t!780 a
handled in
re
I
tarm.l.Da.J. aepeDQent moQu.l.es.
@]
@]
&:lIXO - It oJ:'eration completing
II
1.5.5
It eittler 'toe It.r.Au or ,saVB bits
are
O~I
rti!u,in 'tile storag
I
7777777777/'1 \ 1 1
----------1'
I
~I
I
I
I
I
I
I
I
I
I
I
II
1
I
I
ZZZZZZZZZ?.t..t..
I
I
I
I
I
sat full scan indicator
I
I
I
I
I
Determine device type
I
II
I
Go to Activity Control
I
II
entry to DOl'!
l_____~
liSC
I
I
[ ;;;;;;;;j
I
I
------]:l
I
l_______________________,
I
,~/
II
I
11 • 5 • 6
L____________________________ J
l'Et"tullal Scan
In.l.tia~ize
Diagr.am -
'.!:::.1.I-(1
---------------------------------------- ---------------------------------------------------------,
Notl::ls
itO ut.l.ne
La tel
Notes
Ref
I·
"Routinel Latel
I
l1~t
:
§j-:::::-------------- ----- ;~~~~ i~i~~~ ----------------------------------I------l-------- j------1
Nonsw.l.tched
I
I
l'ChNDATS
If the opet"at.l.on in pt"ogress is
~]
if the line J.S cut of set"vice,
~er:iot"tll.
a
ft.~S}S
1.5. ,
POLL and go to
L.l.ne Auvancc.
I
4. Switcned and nOD-switched
,
1
I
I
I
STFP 3
I
I
I
i
iI
I
I
I
I1
not an .l.D.terrUf'tiDle READ, 30 to
J...l.ne Advance.
I
I
I
TCBSDITZ
11.nes.
I
II
I
II
I
I
I
:
I
I
I
I
i
!
!
I
1
I
1
!
:
I
I
I
8. Switched lines only.
c. Nonswitclled ll.nes only.
Switched
TCBSDAC
Nonsll'itco.ed
TCBSNDAC
--------________________________
sse Initialize TErminal Scan
Section 2:
Method of Operation
III
Jl
\
!:
I
I
I
i
i
1
I
_____________________________________________
.!.:.. ___1
Dia,}rAm -
1.~:4-(1
117
LICENSED 'MATERIAL -
PROPERTY OF IBM
l
------------r" .
~DlJUt
procEssing'
~~, ~..
r-'--- -----PAG!
output
1 0"
~----l
r[lili~ -l !--==§~; s: r:!:.~: ~ ~: y mzmzmz~>
T[~ iml J --I
I
@] ::::,
area
~~_
[t_
c_rL_EIO_L -_)
Chain
~-l-)·---------->
nO!
[02',
::.J
Calculate input data
,IlO
area
~:_.s_s___
I"
(T~
,
>
~IOiTDLJ
I',
jIJJ,JII",17 /
------------
leD;ltb and put lenqth in
rIOl
[~~===r--
771\
@] .Execut.e
~
user input exit
<~>[=--=========J
.!~~~----. User inpat exit
~ l'raDslate tbe data froll
liDe code to EBCDIC
\/
I
Data
len!~__
,I
I
I
,
~~-,==J
~
~
~ll,J
I,
I,,
I,,
[;;;;;;=1
-----'~l
,'I
1.5.6
•
I
,\
,I
I
I
_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ ..t
Diagralll - 1.5.S-Cl
-------------'-----....:..----------
Rotes
Routl.n8
Lallel
Ref
-----'-------- ---- -------I-----~I
,,
,,
,,, ,,,
, ,
~ 'ibis is clone in. the
dll3lvice"'4e,p!i!odent a04111es.
~ Scan data tor ending cbaracter.
;~::------~-------------~:~:--~:~:;--i-;:;--l
,I
rCIDLCB
If tb.e eDd.of the L101 is
reached aefore ti.ndiDi tha da.~a.·,
set;. lip a .essa;e to lo~ error.
@] ..
tC.P
[g
I, I,
I
IIser exit aay
D'e
included
at
.'iJeDe~atl.On.
'lhe traaslatl.Oli of. i.D.put data is
Dlpassed tor a dey1.ce on a' .Bse
line. usia g EuCDIC. transaissioD
code.
:,
:
I
:
I
II
I
!
I
II
rClonlN
I,,
I
I,
!,,
'
I,
I, II
I,
InputiYeDtco;pi;tio;----------------------------
118
------~ ....
!
1
II I:
I
-----------------------------------.,
CICS/OS/VS Program Logie:
Diagt'al -
1.5.'5'-;1
Description
LICENSED MATERIAL -- PROPERTY OF IBM
In~Qt ________________ 1.S.5
[L, ':::~---------1
····1
PAGE
1 0.'
--:.----------------
out out
-~-'·---l
I
rI
ro,l If no data, return
rI>rUo.---I---->r&'I[;--01
r L:J _.- ... ) L.:.:.J
~-----.I
TCl'lEAR
~§E:l
I
[Al----> @]
[
:J
[::~~§::J --1-1
l
>
AI ----> [~~
[~§:~~:J---:J
:1
[~~~DA
I
iI
~
Determine if 3210 native
r;;~'>rOel
or 22bO compat mode'" if
L_-, I-
neither
If~reselp.ctF.ld
native, is it
A.
res'" remove
return
\,
I
(.GT.)
and
177~\>
??:!.?????I!.!.!.I I
B. Ho
-----------)
~~] Itl S 2260 compat,
determine screen
of
si'Z~
2260
Search for user coded S!11
A. Not found
[;;,"[081
8. Found
r:::,,'>
I Ibl
t::J
--, I
'I
L ___
Calculate relative 5
~I
and
I
cursor positions
A. Cursor before
S~I
-
rearrange input
B. Cursor follows SIU, no
I
___::::::______________ J
---------------"
lnput ADii.lysis
I
,
L ________________________ J
Diagram -
IA!a~~a
1.15.5. '-01
Hotes=== .=====-~~ut':: _~::=~~~~ ~:::=:a~r;.1.-i~p:-~~-(~I~--I~:~::I~~~~I::~~~
~ Deter.lone it 1n'put data exists
I"
DFHIP9A
i.n str&a.a ( Dot ttl Key, Pi Key,
DATA, COFSOR).
or BHT.ciA lC.el V1.tn no delta). If
.0.0
I
Qata, ret.urA.
It terllll.niu. is not in eitner
2260 cOlilpat 1I0d.e or 3210 native
(fields in .loBI-utI. If n6ither,
ITSAKSG
return.
If 1l8t.l.Ve 1II04e, rellove
preselected. ChiiJ:8cter (.GT.) if
I
I'
J
1
,
!
1
I
I
I I
I I
i
,
I
I
IUTY
one exists, anel ret.urn.
Deterll1.ne .t.2bO screeD
s1muj,ated
@]
®
,
I
siz~
oeili:J
PGilSEr
I
CLam
I
, .l4U, .. 00, 9b 0) •
~::::hs:::.::e:/::: ::~.~:
:::~:, _ ,~~.
I
ak"u.
IL:::::~:: s;:::::;:r:::o::",r
I
I"''''
I
I
I
I
I
I
I
I
I I
If cursor 's Defore
I _______ lI_____JI
__________________________________
J Il_______________________________JI_______L
A.
SOL,
'ROLLFLD:;
Clagram -
PlSl'klB Input Anal/sis
Section 2:
Method of Operation
'.5.5. '-(\1
119
LICENSED MATERIAL -- PROPERTY OF IBM
r-------------
p:~~~!..------------------
out.put
PAGF
2 I)f
-~--------------------~--··--l
I
I
I
I
~~]
Look for user coded new
7n7777777~~)~~)
line symbols and. put input--------:...---
,,I
,
I,
,,,
§~====J
and put input in correct
order
I
,,I
,
,,
~~] Return
[;;;;;;;;"]
------J.:l
,
I
V
To caller
,
I
I
I
I
l________
PAST.B8 Input Analysis
L_ _ _ _ _ _ _
II
I
I
_____________________ - -------.1
Diagram - 1.5.5.1-02
~~~~:~~~;=-:~~:~~~ ~~===-=~~-=:-:::::jll:;:-.:;:~,:::;l
It
I
I E~
I
stroam to ehm.ate data
pOSl.t~ons
between new line and
II
I
II
the next hoe of l.Jlput.
BeturD to TCP.
I
.
I
I
,I :I
i i
I I
,
I
'
,
,
,
I
I
I
I
,
I
,
I
I
I
I
I
,
I
I,
,
I,
,I
,
,
II
I
I
II
I
,I
,I
,
,
I
,
I
,
I
I
__________________L_______ ~ _____J'IL___________________________________________
lI_____ _
l'ASl:ER Input
120
Ana~fSis
r.ia1ram -
CICS/OS/VS Program Logic:
1.5.S,,'-C2
Description
LICENSED MATERIAL -- PROPERTY OF IBM
r-------l'···
~, r.::::~----I
I
['=-.T~ ___)--_______ ~~~:I[Ol]
~~~~~i~
!
~~~~
I
I
be
I
I --
1[02]
( ;J
JI
riOiTroiiR-J---->fA1 ~----> --
t
User
i~~~~st
LJ
I
I
~~ITECA
)
l aC1Qr~_
I
)
I
1S
a
[;J
~
11.5.7
I
:'.5.8
[;;'.\[011
I
11'1
'I
~~;~.g_
['::~/>r~}l
~~]
,
Is a
Deternine i f task should
be resumed
Scan the next terminal on
the line
A. If last terminal on
I,
,
'0
Activity Cont1:o1
,
II
II
,
,
,,I
I
,
:,
,
:
I
,
I
I
,
I
I
,
I
I
,
I
I
II
I
I
,,
I
,,
I,
,,I
,I,
:
I
I
I
I
r;;i " [011
L.:_,
I
I
'.I
,
,i
I
,
I
I
I
I
I
L__________.____J,. '"
l__________
I
i
,
L,____,:
I
1
I
I
,
r-----;TI
........
l i no
t
I
,
[----------------]
terminal required
·l
I
I
!
I
'I
I' <,~~~/ scp------------~I I
[001
~::~-::-:-:;::~~: 1'.5.
I
'I
then test for pendin3 AT!
----'1I -,
'
,
,
I
1£ no task is on the
1
,
[;:~'>roll
"
1 OF
r-------------------------~---l
--, I
t.E:L'minal, freli' all
attaCbE'd terminal storage,
L__________ >I [~]
I
there
Is tllere a WFITE request
1'--"
~~=::~- I
I
~~]
I
rl~mESR-1T
I
1f
to be inl.tiated
I --
---- I [----------->/
-------I
I
r
I
I
Deternne
tasK
PAG!
Output
'VI
I
I
II
,,I
L____________________________ l
llia';Jram -
1.5.6-('\1
..,;,. ;;~~;'~II~~:::~~;~~~;rl-;~=1 r~:~:s =~~~~~~~~~~====~~~~~--! ~:~~::p~::~~~F:~~~1
~:;;
J
I
I
1.1 ftULl:l:I::i Teb ~AS
on a .Ll.ne to de t.eI:lluue what
""'1uases are panulllg.
I IIIII
I
.1.J:, on a prev.l.OUs scan, Tarml.llal
~ontro~
'II
II
was noe anle to initiate
I
a tasK JJeCaUSl; tAO::: system was at
HAXlA~1\ OJ: ::;05,
in~tl.at-dd
tAe tasK to be
inal.Cator will nave
I
Deen .left
DeteellOIl of
ii
tasK. init.l.atioll
Tbl.S will. CdU.$e an entry to
OUt.r'llt
event .tlreparation.
@I
OJ
Tnis rout.l.Ue
Wloll clean up auy
stOI:a 3€ cilained to terminal
~
I
C1
BEAD re'luest
return to tile
co.l.ler + H. rllt: sup Flag: logl.c
rou"a. Hl.
be
entered.
I
1
,
I
1
1
I
I
1
'
"
,
,
II
I
I,
1
I
:
I'
11
I
I
:
I
1
1
\
'
I
;
1
II
I
I
"
,
,
,
I
I
D'"'CCBSI
I
1
'I
IDFHTCCSS
I
11II
II
"
II
I
:
,1I
:
,
I
I
,
I,
",llFtlTt:(;BSI
I
I
i
II iI
",
I
d
I
I
I
I
cause
I
,
I
eerminaeed.
Wl.ll
I
I
I DfHTCCSS
entry aLter a tasJI: has been
Tne detection of
I
I
l
I,
I
I1
HHrCCBS
I
I
I,
I
II
I
I
'
I'
I
OYHTCCSSITCSSNITsl
I
\
',
I
II
II
will cause a return to the
.caller.
l
I'
I
I
1
1
\
I
I
1
I
I
I
I
,,I
1I
I
'
1
' I
!
I
I
I
I
i
' ___________________________________ ,_________________
L __________________________.!.________________ JL
I
' _____ _
~
Section 2:
~
Oiagram -
lct..l.'U.ty CODtroJ.
Method of Operation
1.'5.6-(1
121
LICENSED MATERIAL -
PROPERTY OF IBM
.lDt'llt_________________
ProcEssing
PAGE
1.5.6 O[~:~~9 -:HTC:------------l
J
····1 I > ,",1
--.,
'fCiCirECi--j--------------->
UE
Address of
l~!:~~:~
[~~~:~:~J--I[
Set up transaction code
[!~![i~~h1~~~~J
CSAKCftZ-j--~!!~~:..
~~]
I
j
TCTTEOTI -,
[~~:~~J
TCT"'E
l~ Determine that transac.tioD777777777T177)'>
ini tiation may be don~
--'--:...-'-------~ I
§]
0.1
1 r11:
r~!£~---------------------l
I
Task to bpi
)' ,
I,
!,
,,
zzzzzzzzmzZ\/1
I
II
II
I
Issue ATTACH macro
I
I,
1'-' \ r---------~
<\~~/>
~:~--------.
Task Control
,,
1.1.1
---------
~ Update statistics
,,
,,I
I
>
ZZZZZZZZZZZZZ/ I
[1;;;;;;~
-I-----F~
II
I
Return Vto
caller
I,
1
I
I
I
!
L ____________________________ .J
Transaction Ini tia tiOD
Dia1ra1'll -
'.5.1-(1
_Notes===~======~=~~=-~~ut'~:~~~~:=-~~~= ~~~:-==~=~~~~=~-=~~=~=~=~~~::~::'~~:~~~~1~::~~~1
I ,
@]
If a tasK is a~ready on tne
terminal., retw:n to the caller
1
,
before settl..llg toe taSK to be
initl..ated bit. If either
sas
or
I I
!UXTASt{ indl..cators are on,
return to tne caller, leaVing
the taslt to be initiated Dit
DFH'ICTII
the TeTTE Te. If pag in 'iJ is
active, cause ::SPG to be inVOKed
the deJl.t"ession at a PA or ElF key
!Jassed to TCP. :rep 111.11 S2t up
an error cot1e tor ACP.
l
1
I
1
,
I
I1
,
I
I
I
i
,
on a 3.Z10.
entry l.o. the peT,
an abnor.al return "ill be
I
1
I I
or De 3'enerated as a result of
corres~ondl.ng
I
I
oDtained trom toe influt data,
I'asK ControJ. does not nave a
I
i
:
,
tbe next t1lle this line is
scanned.
If the traJlSaction 10 passed to
I
I
I
,
set. 1'o.i5 111.11 ca use activity
control. to tlhL to this routine
The transaCtl.OU 10 may be
,
1
TCPCTLK
I
II
I
II
I
,
I !I
1
I I
I' _______1I _______________________________ ___ I________ ! ______ J
___- -_______________
~
Transaction IniU.atioD
122
~
Diagram -
CICS/OS/VS Program Logic:
'.~.7-Cl
Description
LICENSED MATERIAL -- PROPERTY OF IBM
Input
Processing
\
.
J:L'.
t.:::.:.!/>
--1----..-------->1
~
II '.
DtHTC':
'[eTLB
T
n t.BSLI
LC
1T
statns
Ensure that the line is
at'8.118.b1e
~~BTS~ .Il-r-----------> §] ::~f:::p::r:~::la::~;::s 77ZZllllZZ~ ,>
I!
TerUna!,
d-onl1
I
~\ ~/
r ••
'tC'r'tBBe
I
Butfer
t;~:!:al
counter
----
f7l
~~~~BD'"
rn;)
~ .. - .. ->
address
.L
>[IIOAsiL
TIOA
I
_Ll
Data
!TeBRRSB
.j
----
(~
Set up the output data.
area n.tb the appropx:iate
J\
mZZ2Z?Z?1.l!.\ ,>
control characters
1'CTLE
TCTLEIOA
:~::E:~-!
line entry
I
---->0
TIOftOL
:=J
ttA \TeP)
2771
0---->
0----> ~ ~::g:: :::a ~:~~:::s~1st 1nZZZZZZZZZZZZZ(;>
I
I/O area
~gth
~
User Bzit
.2
~~--------~
!
r----~1.5..
or
PAGE
Out. put.
I/O area
length
'fCTtE'lLA
TerD1nal
address
length
list
1C177! '.,
TCTL!'!B!
Act1t'e
tar.inal
t.:.I--11
:S~ilss
!
TCTLBSLI
Line
status
I@] to
Translate data fro. EBCDIC
tra
code
L
OutPllt E"ent Initiation
r--.----
@]
a llESET POLL, then test
that tbe line is net initiated.
~:I~: ~~.~n~:~.ted.
oiagra. -
L~~I~~1 Ref '[Notes _____
1 lotes
§] Perfor.
I
I
nS.1s910D
I
____ fto::.e
'.:;i. $-01
L.b:=~~
{@]Tbisvillteperfor.edbythe
I
1
set tbe
OeV1ce Dependent. nodule
\OO!).
~ Th1~ is done loD the ooa. The
data length
be adjnst.ed for
the line control charaters added
in step 3.
vill
Three error conditiOns a.re
tested in this
hCOAA
XOQt1ne~
I
A. the Ilppl:1cat1ons 1S
atteaptinq to vrite to a
read .. onlJ de,,1ce.
B.
The user has 'faUed to place
I I
A Bse line vith EBCDIC
TClotRlR
trans.issioQ code vill by pass
this step.
the output area address in
7C7Utl.
C. 'fh. Qser has set up a data
atrea. \'1IOATDL) longer than
the
area
(TI01SlI)
he
acquired.
D.
If errot found, sat 8r2:0r
indicator and attach TACiI'.
!be user .z1t ,,111 be
el.ecuted after the ae.1ce
status teat but before the
analysis of, the output are ••
oatplit I •• at
IA1t1at1oll
Section 2:
Method of Operation
D~.grao
- 1. S. e-01
123
LICENSED MATERIAL -- PROPERTY OF IBM
processing
Input
I
I
--"I
i!!~ss
-,1
or
2
iTeRRRS!
Issue IIT!II request
',..--,/
f011
t.:.:J
2
TCA ITCP)
[
TCTrnii]-:-r L__
Term-Dal.
PAGB
Output
='""""~:--::~-
BTAII
RIll .od ule
Put TCTT! address in 11ne
Ioa :::~v;i::r:~::~a:::rJ
r.ol
"r;:J
>6
77,
and -- I
t..:::::J Turn on sk1.p flag and
advance to next taxa
!
~
D1agraa - 1.5.8-02
output Event Initiation
I
I'
Note.
~
III
opon return fro. the access
aethod, t~st the return code in
~~m;:;:~~)~:m~~O~:;:::::Ch
'l'ACP.
I
B::~nel
Label
~I r;::-
---1-- --11-==---
I
I
I
___'__I~I~__ I
Ret
I
III
II
~_~u~_~
oatp1lt By-eDt In1. tie.t1.oD
124
Diagra.
CICS/OS/VS Program Logic:
:-;:-5. '-02
Description
LICENSED MATERIAL -
1------------.
Input
I
\
r:l~ I
1
CTTEsC~- . . ---- . . ----..
g~~~ter
I
Address of
Terminal
storage
l
I TCTTEIO~
I
r---------->
'C'UTS
Il~
I
j
I
AT! flag.
m~~~--!-
--l I
-
DCT
[T""D-DC"-'--'--I-O--"
t~~~
TranS-
I
Issue auto output
I
,_---.1
aessage _ _ _ _ _ _ _ .f
\
_ _ _ _ _ _ _ J\
I
J
I
II
I
'II
I
l.nsturct1on
r
IL-J\
\~~/L,-,DP:..::U:..::KC:..::'
__.
3
1.1.10 •
B.
:::~::::~'"':c::-=:-t:cD;'"':-::-s-a-ct-1-c..Jn.
L.-==--:-~
locate the OCT address,
then go to 'rep
~
L
l
Entry to this routine is fro.
-----,,1
transactl.OD, 1ssue Task
Contrel AVAIL macro
I (I t::I \>[~iiiliaUo;--'
II '.--.1 1
1.5.
Task Terllination A'll processing
r Hotes
A. Tiae-1nl.tl.Bted
transaction 1ni tiation
J
III(§
1.2.2
Deterlline type of
I@3AttaChtaSk
I
:Sa~~ss
PBBBllAIN
I
J.J ;:::=:~>I
'CTTEAR
TerJll.nal
----
OlaSCp
---------
operat1on
f'ii"71
~~_t_
reg
L..-4,
. .I. . I-----------> I@]
IDternlll
operatl.OD
or ,
Free any storage chained
to tar.inal entry
'ro/
chain
~
--->1 ~
It < ,•• , >
I
L
TCTii5c-
1
DPU.C.:
~::~/>'
1:CTTE
~
PAGB
°rQ_t..:.p_u_t_ _ _ _ _ _ _ _ _ _
prOCESSl.Dg
1 • 5••
PROPERTY OF IBM
l
I10utinel Label
O:i.agraa ... 1.5.9-01
~~------------
11~~~11~;-1---1111
I
RO::~--~
------- --- ---- -----1
the Activlt:y Scan rout1De.
If tbe contents of TCTTESC point
: : TCTTBSCB, there is no stora ga,
!1
II
'I
II11
,1
PRBBIUIJ and go to ATI analysl.s.
If they are not equal, perform
the PRB!t!AIN of all attached
storage.
I
~
I
II TCCFATSB
The setting of the Internal
III
Request field and the ATI flag
::~~r:~~:·1:e:::::11~0:t::~kt:o
II
O!r
!;.\I
::0 1:::~:::~ :::et::l.:::~::n
Transient Data.
11
~ ••It
tera1nat1cn i'tI PtocesSing
Section 2:
Method of operation
..:----::D1a:-:-:g'"'r:':a-=.-·:-;:- 5.'-01
125
LICENSED MATERIAL -
l
Input
PROPERTY OF IBM
PAGB
processing
~\
2
Ol'O'l'Cf:
~!J>
--=b l@2]
§§~"71.'
1 0'
r-
1.S ••
I @]
TCA
TUrD OD BEAD iDd1cator
fellaXIO
BBAD
indicator
'lCSPTA
Turn OD SKIP flag
BIAD
tar_inal
:a&~18S
T
;C::.T:;L:;B=::::-=---. _______________> ~ Input eyent preparation
TC'l'LBSI
Line
iJlitU,te
TCTLBBC
~~E~~l
~~er--,
-----------) ~ Perfora storage a.nalysis ..
free and obtain storage as
required
Set up polling list and
DiCe for:
A.
I
=====~:>
DIAD to a specific
tar.inal
B. pol11ng all actiVE
tar_inala on the line
Act1Ye
I
L ___
Input BV8nt Initiation
lotes
Tbis fUDction is perfor.ed 1.0
the· DDft. Por a dial"up or point
I
Label - I Ref
'I
Por a t4!rainal on a aultip01nt
line, scanning of all. ter.~oals
00 the line continues unti.l
Ter.inal Sean Ter.1Aation
detects the last tar.inal OD the
11ne.
At this tiae, contIol vill be
passed to Input IYent
Preparation.
tar.inal
entry
Notes
. ----- ---- ---1--
to point ter.inal, go directly
to step j .
\@J
Rottine
TCTLBSI
LiDe
iDitiated
'lCTLBU,
D1a.graa" 1.5'.
Rout1ne
Label
'o-O~
Ref
storage, that 1t1s as large or
larger than tbe 11101aua 11De
area size, and tbat the user has
not specified 'saye' on his
buffer.
If any of the above cond1t.10ns
eXist, a G!'UIAIB vill be done to
acquire a nev area to read into.
In addition if tbe syate. 1s
50S, all line buffers vill be
freed and processing vill
ad vance to next. line ..
The source of the iafor.a ti.OD
for the polliDg list depends on
the type of list the user
defined at eIes/,s generation.
Input. l1'ent Preparation v1.11
ensure that the 11ne 1s not
already acti1'ate~.
If acti.ated, IIO vill be
delayed until processing on sa Ie
line_.
Test. vill ba aade to deter. ina
tkat. the user .has proY1ded
XDpat ••• Dt InitiatioD
126
D1agr. . -
CICS/OS/VS Program.Logic:
'.5. , ...,
Description
LICENSED MATERIAL Input
output
praCeSSl.D-=-.g_ _ _ _ _- ,
II
I~
~~ Perform e.e nt 1n1 ti.Uon
II ~
PROPERTY OF IBM
PAGB
1 OP
2
:::::::">" 0
AdV'ance to next ~l.ne
L.:_--._
r; •••••••
I
'-I
r"" ·
I
II
L
I
Input B.---cent-=In...,...,it---c
i • t:--10.-
~
Hotes
I~
IS8ae BTAIt macro
" oiagu. - I.S.10-02
~ E-~--~DStruct10D.. .L~::~:I~~
II
II
Bnsure that it vas accepted.
I
I
I
II
I
I
I
!
I
I
I
I
I
Input B.eDt ID1t1atioD
Section 2:
JI,--_____--'---~
.--'---"
Method of Operation
01.gu. - 1.5.10-02
127
LICENSED MATERIAL -- PROPERTY OF IBM
PAGB
1
D1agra.-- 1.5.11-01
Visual Table cf Contents
128
lOP'
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
PAGB
iftainline
IRoutines
I
1 OP
2
I
'.~.".'1
'-----1----'
I
I
I
I
v
i
iDispatche["
jAttach loit.
i i Set
Logon start.
I (Df'HZDSP)
I ITable (DFHZAIT) I I (DPHZSLSI
1.5.11.1.11 I
1.5.11.1.21
T
,
'--------'"
I
I
y
ii
i
Receive-Any
jActivate Chain
I I Co.pletion
I (DPSUCT)
I
I IDFSZBAC,
I
1.5.11.1.51
,
I
1.5.11.1.4,
I
•
,,
V
iI
iSlftLOGOI
, (DPHZSI.)
iOPlnST
I (DPBZOPI)
,
1.5.11.1.1!
1.~.11.1.6!!
I
y
,
iSESSIONC
istart-up Task
iTask Attach
iAppl.ication
teoll.and Requesti Isend DFASI
I IDFHZSES,
I I IDFHZSUP)
I I IDPHZATT)
I (Request
I (DPRZCRQ)
I I (DPHZSDA)
I
I
1.5.".'.BI I
1.5.11.1.91 I
1.5.11.1.101 I (DFSZUQI
I I
1.5.11.1.121 I
1.5.11.1.131
,
, ,
I
1.5.11.1.111
•
,
•
I
,
.
I
I Receive
I Specific
I (DPBZBYS)
I
!
1.5.11.1.14!
'-----1----'
I
I
,
I
I
V
V
isend Response
I (DPilZSDB)
I
,
iI ~'Conun---;;~-]
Response:
1.5.11.1.151
,
(DF. HZSKRI.
l.S.ll.l.lSA
V
1
,
, y
V
Deta~h
iTask
I (DF!:IZDBr)
j',send DFSYN
lot (DPHZSDS)
1.5.11.1.1611
"
---.--
iUiLOCA!'B
(DPBZLOC)
iliGET8AIN ReguestiiipREEftAII
1,1 (DPHZGET)
UBequest
,.5.11.,.,1 1'.1
1 •. 5.11.1.18 111 (DFHZPBBI
II
.
I
'''---1
'I
1.5.11.1.191'
( I ' .
1
iI
1.5.11.1.201
.•
'
f
I
"
1
y
i
i
i
i
jaKSBTsB
iCLSDST Bequest
iResynchroniziDiB Processing
jAuto.ati.c Task
iChaiDin9
I (DPDZRST)
I I (DFHZCLS)
I lation (DPHZRSY) I I (DPRZDWE)
I IInitiation
I f (DPDZQOEJ
I
1.5.11.1.21!!
t.S.11.1.22!!
I.S.11.1.23!
I.S.11.1.24! I (DPR~~;~~I.'.25:!
1.5.11.1.26!
~~~--~,
~~~~~ .
.--.
I 1 I
L---'
.isua1 Table of ConteDts
Section 2:
Method of Operation
Diagra. -
1.5.11.1-01
129
LICENSED MATERIAL -- PROPERTY OF IBM
COABT: DTCPSNA2
PAGE
2 Of 2
,---,
I 1 I
l.......-'
I
I
I
I
i 3~70
1
Print
K~y
I ('fas" Attached)
i i 3270
r
I I (DFHCPY I
I
l.s.11.1.28!!
l.s.11.1.29!
1- (DPHEXI)
!
r
Print Key
1- Copy f'rogralll
i
r
iI IiTranslation
3270 Uppercase
i
13270 Print Key
I
I (No Task.
I protjram
I
I Attached 1- (DFHPI
I (DFUZUCT)
I (OPHnK61
I
IIiK)
I
; 3:170 Unlock
I Keyboard
1.5.11.1.30 !
I
~r~'
I
I.s.11.1.32!
Diagra. - 1.5 .. 11.1~2
Visual Table of Contents
130
CICS/OS/VS Program Logic·:
Description
LICENSED MATERIAL -
PROPERTY OF IBM
Page 1 of 2
OUTPUT
PROCESS
INPUT
From DFHSIP
··...
DFHZDSP:
TCTFX
CSA
ICSATCTBA I
======>
Establish addressability
:>
TCTFX
!TCTVDRSA
If the VTAM ACB is open call the SETLOGON
!TCTVOAF
start modu Ie.
!
03
TCTFX
! TCTVBFQF
..
If SlAM final quiesce flag is not on, call BTAM
module.
!
TCTFX
I
!TCTVOAF
TCTFX
J
J
I TCTVVFQF
ITCTVVTHL
>
If VTAM ACB is open call the "Receive Any
completion" module.
>
If VTAM" is being quiesced then call "Shutdown"
module.
Diagram 1.5.11.1.1-01
Dispatcher (OFHZDSPI
NOTES
[§J
ROUTINE
REFERENCE
NOTES
ROUTINE
LABEL
REFERENCE
CICS may be generated with or
without VTAM. SETLOGON start
OFHZSLS
module.
[§J
LABEL
If STAM is included, it turns on
BTAM final quiesce flag after
executing its quiesce logic; which is
invoked by CICS terminating, without
abending transactions.
[§]
Receive Any Completion module.
DFHZRAC
~
VTAM may be being quiesced
because
a) CICS is being terminated.
DFHZSHU
b) VTAM network is being closed.
c) CICS Master Terminal operator
wants to uncouple CICS and VTAM.
Diagram 1.5.11.1.Hl1
Ditpltcher (DFHZDSP)
Section 2:
Method of Operation
131
LICENSED MATERIAL -- PROPERTY OF IBM
Page 2 of 2
OUTPUT
PROCESS
INPUT'
TCTFX
~
If VTAM has not been quiesced then call Activate
Scan module.
~
If both VTAM and BTAM have been qu iesced set
system termination flag.
I
I
ITCTVVFOF I
CSA
TCTFX
I TCTVBFOF I
:>
I CSASSI2
~
If timer event is posted, clear Tep's next dispatch
time of ~ay field and turn off timer posted flag.
>
>
ITWATEPF
CSA
I CSATCNDT
~
If ATP is waiting, post ATP ECB.
:>
I CSAATP
~
Wait for a terminal event to complete, or timer event.
TCA
I TWATEPF'
CSA
CSA
I CSAOPFA
I CSAATP
TCA
I
G
If timer event is posted, turn on flag. Then repeat from
Step 3.
Q
Diagram 1.5.11.1.1·02
Dispatcher IDFHZDSPI
NOTES
~
~
Activate scan module deals with
outstanding VTAM communication
ROUTINE
LABEL
REFERENCE
NOTES
ROUTINE
LABEL
REFERENCE
DFHZACT
requests for a node.
BTAM will only be quiesced when
CICS is terminating via DFHSTP
module, which issues a KC WAIT on
ECB CSASSI2. When this is posted
all terminal activity is finished and
CICS can terminate.
~
DFHKC TYPE=WAIT •
. DCI=TCP
Diagn>m 1.5.11.1.1-02
Dispatcher IDFHZOSPI
132
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
1
Input
------------1,
.
•• "1 >
c['-_~:-_.5-_IT-_BA_-_l==-I--::)fA]
---,/
t:
[~n
I [:1--"
r;;:TPGciiii-l =:::::) fiil !:J ---, /
,it
.. _ _ _ _ _ J
I
L:J
-_
[ElA -__- , I [02]
-.J\
taole.
in Attach module.
I
[--]
I--,/~
LSitPLoS?-J
-------
[~---"
I
A
04
---,1
--
II
Generate pa'3'=! com.mand
r------,---"r.l
j Sl'Lf1DSr
II
s
~'~t!fC
tliaqraa - 1.5.11.1.5-03
lcti .ate Chain (DPB ZAC"l
'1otes
~)
po (tach
Logqer queue.
~l)BB~
!-rCUICOB
Detacb routine.
.)
D
'fCTBILOS
L. If Detach, link to
.,
:/ ....
I
"l'CTE'''rSS
CRIItT: IItPoOOO 1
paGE J OF
5
output
90atine
Label
Ref
1 Notes
--- ---
Routine
Label
Ref
----- --- --I
I
I I
I
I
&ct.l ...... Cilaia (DrRlle'!',
Section 2:
Method of Operation
-
141
LICENSED MATERIAL
PROPERTY OF Im!
CRA": ftIpO0001
Proc9Sni1l9 .
PIGZ
output
• OP
5
'!'. If llltoaatic Task
ID;lUalizatiob, link to
A~to. .tic
'I'a.t
Initiallzation routine.
J.... ~)
"0
~I
Analyze tUspositioD of
~'- <=
"•• , ),03, [ /
'7'CT'I'Z. If R~SCA" desired.
I V
rapea t 'l'C""Z 8nal,sis.
,••.d_. '"- ~'".
fro. AcU Ya t8 cltaln.
letlyate Cilain (DPRZaC'l')
.otes
ur)
I'l'C'I'!B&cp
'I'CTPI
DiI!grae - 1.5.11.1.5-01
WoatiD8
t.abel
Ref
lotes
Routine
Label
Bef
1 - - - - - - - - - - - · 1 - - - - - - - - 1 - - - - - - - - - - - - 1___ - - - - -
_ t n t . Qab IDPBlle'!')
142
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
CRlRT, RIPIIOOO 1
Input
r==:-:-"":::j00~) ~
I
0=:>
:::::j0 r.r--')
~~=:I
~~
.
~
PAG!
Oat put
PrOCesSiDIJ
OP
5
If 'aep Deeds to be
attached, issae a KCP
attach.
I~ClKCTI
~
)~I
~====!:) ~
If Response L09IJer neeas
to be attached, issae a
KCP attach •
Betarn to 'l'CP aispatcb
routine.
TCTPI
!TCTflLGP
TCl
'"'IT:::c""n:':c"'"Rc:--'I:::::j ~
leti yat.e Ckaia (D.nZ1C'!')
lotes
Dlagr. . -
Routine
Label
Ref
lotes
Roatine
1.5.11.1.5-05
Label
lief
-----------1-- - - - - (-----------1--- -----
Section 2:
Method of Operation
143
LICENSED MATERIAL -- PROPERTY OF IBM
Input'
I ill.L_.J\
TCTPI
I'Tc-_TJRSAP1]
L!~
.:..--.I
I
TCTTB
II
rruERPLll~I-~>1I@]
C-=:J- I
I
I
§lliiD-,-.r;:::===",,/1(jj1
L::::J
IJ
I
Reg1:: 15
~l
I
I
[--I
I
Tcm]
I
TCTVBSiPi
Sa.e caller's rog1sters
and va11date SIIILOGO!
1
or
1
'TC~PI
-------"
--11"
t§'ffBS~
II'
l!:::>
request.
/
~~~lJ
::7--']
I
I
fTCTiroPDl ::::::J
TCA
,
••••
, >1 r;;;,
--, I
I~>/' ~J
PAGB
Oatput
rS1Dg
--1--'[>
ITCTBVRCS
I f a. RPL is anilable,
in1t1al!l)ze l.t. If not, get
one and 1nit1a11ze it and
reaove '!'CTTB fro. Activate
processing chain.
Issue SIftLOGOH . . cro
instruction and take
approprl.ate actioD 1f
DOD-zero return code.
,
-,I
---::;.,
~)
r·····.j~
'v'
/
TCT'fRS~
I
I
L ______
SIftLOGOH lDPBZSlft)
{
ROto~
@TI
@)
D>.ogra. - 1.5.11.1. b-Ol
_ _ _ _ _ _ _ _ _ '-':::::
check Activate Scan raguest b1 ts
to 1nsure th1s is a valid
S:IftLOGOH regueat.
~ ~ I-"'~
--- ~ ~~- -.ei
1 storage contrel GB'r,U,IR 1s
used to acguire BPt storage. If
1t should fail, an BPL GBT!AIH
18 gueued for that 1'C'r'TB.
The OrRZIR".PL .aero 1DstructioD
is issued ·to insure tntegrit]' of
an existing BPL.
@]
If register 15 1s aegat1",.,
LRHID
or
SYRAD hay. do De the
error processing. Baturn.
If register 15 is X' PO' the
'reTTB 1s pleeea back on the
Acti ...ate queue for l!lD.otbar
atte~pt at SI!LOGOJ. I~PO' aeans
''rAft has Experienced a teapora rr
storage preble ••
If req1stfjr 15 1s none of the
.. ~o ... , the 'l'C'!"fB 1s ga..ued to
IICP for error process~g.
SIIILOGOI IDrSISIft)
144
,__~~__~__~l,______________,__________~====~~~~~
D1a9". - 1.5.11.1 •• -01
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
l
f~L_-l
H}.~I\II
-:::!1, @!]
l;;;VBSA£J] I
'.'
I
'leT'1
~
~cnB
II
Save caller1s registers
.nd ,.lidate aPHOST
request.
[TruiLOfl
~~I
~CTBBPLl ]l-Ir--==~> @J ~:i:.:.~:~ei:t~';~l::~:'
I
I
TCTEBIBA
TCTPI
ASCSA,
§§pCL
-II['
'!
Act1nt. gu....
IJI I~>!®
c=.:::J
I
Tl,'
C=:J-ri
1J! I!
Iss •• aPROST and
oacro
instructl.on
take
appropriate actl.on if
non-zero return code.
R.gistor 15
,
§iiiCs=]
I
')
:_1
--~,'
I
r~_·.l
I
!
I
II
,
II
Routine
I
L_J
L ___~
10PHZaER)
Rotas
TcnB
'I
'"";-"--]!
!
I
TCTPl
ITCTVBSBG
'v'
I
Tem
\TCTVBSAP"l-.
l:CTYRS iiG
aPROS~
1
I
_ _ _ _ _ _"
I
1 a.
get=-l[--'[>
one and in1 tialize 1 t and
reaove "rC'rTE fro II the
~]I
B
PAGB
Output
.
I L~be~ r;::::-
I
Dl.agraa .. 1.5.11.1.1-01
Routin.' Label·
Bef
\ - - - - - - - - - . - --I--=--I-=--11---- ._------- --- ---- ---
I§J
I
(§J
I
I
Check Activate Beguest bit t o ,
"
insure OPRDST should be dODI\I.
A storage cont §]
Establish addressability.
If VTAM ACe alreadv open then
~
oxi~
~
Open ACB. If unsuccessful set a return code and
[§]
Call SET LOGON start module and set flag to
denote call from DFHZOPA.
~
Add one to statistic.
return to caller.
~
>
I Registt>J' 15
>
ITCTVDOF
>
ITCTVDOC
TCTFX
I
TCTFX
TCTFX
I TCTVDOC
OUTPUT
PROCESS
>
I
06
07
..
..
~
@]
>
Set open flag and reset Dynamic Close flag.
Set zero return code.
>
TCTFX
\TCTVOAF
TCTVSCSW
l.Register 15
... :t)
Return to DFHMTPD.
DFHMTPD
Diagram 1.5.11.1.7A-Ol
Dvnamic Open of VTAM ACB (DFHZOPA)
NOTES
[§]
SETLOGON start module.
ROUTINE
LABEL
REFERENCE
NOTES
LABEL
REFERENCE
DFHZSLS
Diagram 1.5.11.1.7Mll
Dvnamic Open of VTAM ACB (DFHZOPA)
146
ROUTINE
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
from
DFHZDSP
~
INPUT
Pagel 012
~
OFHZSHU:
§]
TCTFX
I TCTVSHUF I
OUTPUT
PROCESS
>
II not the lirst call lrom the Dispatcher module
then check session status.
~
TCTFX
1TCTVDCF
1TCTVVTHL
I
1
> [§J
> [§J
Put a dummy TCTTE on DFH2NAC error queue to
1
~ ~
Scan all VTAM TCTTEs and put each active TCTTE
ITCTEVRCB
on either the Activate Scan queue or Node Abnormal
Condition Queue 50 that closing of the session can
TCTTE
ITCTEICCT
TCTFX
1 TCTVDMTE
If VTAM is being halted then check session status,
~
II VTAM was cancelled close ACB.
generate a message.
>
TCTTE
CSA
1 CSATCTBA
1 ~
TCTFX
TCTVVFT
.
TCTTE
----,
"':1T':'18
I
II
r.1---,\1
I
~J---'/I
!
I
I ~CTiISiin--.
I L-_"I'
SESSIONC
Deter'ine RPL st.tus.
B.
\
I
I
TCTEISl'S
:~~~
L_ _ _- - , /
I
I
rQj1
L.:.:J
!I
!
I
'
II G'CTiSTIB --,
L ____..I\!
! -!
!
I
TCTEStoP
lBPL
I
I,
Det::::~e
L_ _ _- , /
I
I
I
I
I
\!
__~!
II
I
~>l
[;;:'>fD71
-"
I
'[;;J-~'
~-"
!
Start data traffic.
!
I
!
,
nu.bers.
TCTTE
I
TCTEIHQS
~'@@l--'\
-,/ C
CI---,/
,
TCTEACH1
TcTEACR2
I
l·eTEVI~
I
I
BPL
~PLCHT~
---"'--1'-1--''1
,-" L:J L~ - , 'I
---1'0
,
D. If none of the abo,ve,
--"wi B
set error code r put to \
NACP queue and eXlt.
I
I ____________ I
L
J
I
I
,
IL_________ _
J
Dl.agralll -
Not09----------
1.5.".1.8-0·'
I RO:~1nel ~::~-I;;:;tl
-!---I---l-!!--------~-------I----I----!--I
I
!
I
j
I
!
I
I
Ii
II
I
I II
I
I
!
I
,
\I
I
II
I I' I
, I I I
I I
I
I!
II II
I
I
I I
I
I
I
I
I
I
i
I
1
Section 2:
,
TCTEVBPS
=F>@[~~>!
\ '
I,
SISSIOJC \DPHZS!S)
I
ITCTEIC~
TCTENSD~
~~,
I
--~/~
--"r;;J
C. Set and test sequence
'I
I
I
lI
:~>@0~>1
B. Clear.
1-:::------,--------I-::::r:;:~-r;;:-ll
!
j
TcrTE
SESSIONC tDPliZSES)
'.
!
1 OF
'rCTPX
f
!
I
I
I
II
SESSIONe co •• and \'
request.
A.
1'111
11
-.!.-..,'rnl
active, set error code, I/~J
put to NAep queue and
I
PAGE
--\-~
If BPL present but
I
> I\iPLAeTIQ~)fA1
l~_
LJ
,
and set on
request b1t.
OPt'lTCPSV
A. If no BPL present
I
II
I
via
ro?l
,
Output
~ Save caller '5 anVir, on.ent ~------.,
.I
TeTTE
II
i--
ProcessJ.ng
I'
r
I
I
I
I
I
I
I
I
!
'
I)
I
'
1)1
I '
II II
I
I
I
j
II
j
I,
I
I I
I
I
I
I
UL________I __I___
Method of operation
01agraa .. 1.5.11. 1.8 ... 01
149
LICENSED MATERIAL -
PROPERTY OF IBM
~-'~
r
~
§
lote that co••aDd in
progre'!ls and ra.o,e froll
actiYllte gueue.
ISBue 'TIB SBSSIORC .aero
~'r;;'I
m::::>
r.;(>JOi1
l=!/ \1
unsaccessfully
c~ller
J
t:l
I ,
If co.plated
Z 0'
~)rpl0=:>
1"'/l!J
instructioD.
Return to
I
PAGB
Output
v1a
DPB1'CUr.
I·
1
Issue storage contrel
GITe!I. for an aPL.
;J-"
~>0[!J--"
lrC"lBfRC5
.,
1-. [~=:>
I rii1::::>
E'>
1
I. If unsuccessful,
~,'
--./rjJt::.I
request IPt GB'rfllIR via
L:J
Actiyate .Scan and Exit.
IrC"lBRPLA
0~>
r;;j'>to.1
t.::~1 \/
B. If successful,
1Dlt11l11ze RPL aDd
'refT! f1 elds an d
eontlD.ue processing.
I
r;)---"
~>0l!J-"
I, [;]: : :)
r.;j >1031
L.;I V
.
S!SSIOIC IDPSISHS)
F
Roo
I
~~I~I~
F
-------
Routine
Label . 1 Ref
----
I
I
I
SlSSIOIC IB.aZlIS)
150
.
Dt'gr •• - 1. S .1I.1.8-0Z
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
Processing
I .... t
PAGB
output
.:I
or
.:I
II~ .... QU'U~),"
n,_
1
cc.s.t.l tTl!
t:J
SBSSIOllC.
I
I
I. LBRID/StIID handled
~>fil
er.ror, clean up and
exit.
t::J
B. Handle ovn error,
gueuer.;-j'>lOb1
to lct1t'a.te chain and
exit.
~I
V
r.;;'>1obI
~I
C.
Assaae 'TAft 1s dead,
put to Rlep queue and
ez1.t.
V
~\ r;,
--I·'1, t:.J
r.;;
>Iobl
~I V
I
L_~
SBSSIOIC IDPDZSBS)
llotas _ _ _ __
~ V~ll! return code
<.in register
15) v111 be "P', 'PO', or '20'
••• Ding, respectit'ely:
- error condition bas a.lrea4y
b.en, handled by LERAD/StSID
.. bandle your own error
.. 'Till is dead
\
J
Diagr •• - 1.5.11.1.8-0"3
R~)
Label-'-;:~
I----1------------I
'I
1
I
1
Routinel Label
Ii
I
Hotes
'Routl.De
I
I
I
I
'--------------".----,-D:'.-a-qr-a-.'-o-:-'o-=,J
.
•~ ,DPBZSISI
Section 2:
Method of Operation
151
LICENSED MATERIAL --. PROPERTY OF IBM
processinq
tnDut
ootput
Save reqisters in
Peset thp.
'rCTn
"I'CTlI""RT
~,~L,
-:-1---.
E-STt;"~L
in"ica tor.
?ZzzzzzmzzzC>
If an 'PIn is not present
r::1'>~
'""
=~
-----TCTEIPRP.
]
_
~) t~J
II______J,
II
TCA
11
TeA.
<=l
,011, If BOD not sunported
L_'
!
j,"cnSlGI
I
f' r=
Lf,'
S >!oii1
\I
~
lui > .D?,
V
I
., ~
I'C ~:
I
::;:1
{061
'> ~
TC'r"B
(TCT!IL~
'l'CT'rB
~:J
L--~
____
~~~~~
Start-up Tasle
______
U
I"RP"R=ALL in PCT
If nRP""=!OD' in PCT and
in~ic.te~ in PH"
eons
"'ello •• P'PlB froa iDitlitl
TIOA.
__ ,: )fnijJ
S!
V
I.
I
V
J'
ZZ22ZZZ2ZZZZZ\ /)
I
I,
[~
Tf loqical rp.cord
presentation, issue
'I'erainal i'~tT.
"
@)
-C-_ _ _ _ _--'~>
If • VTA" 3'170 printer,
enforce message inteqr1tT
option.
,I
,I
I
~_'
(O'PnZSDP)
Diagra. - 1.5.11.1.9-01
1~ ~ ~ef
r·-Ro-t-e.:.s------------------~-------:I,-B-o-ut-.i-n-."'"_-·La--b-O-l--=-.-ef--, r,_"_o_t_es_________·____________1
l!!]
1
control is receiyed airectl, by
B B~tR 10,14 the first ti.e the
task is dispatched, following
its creation h.,. A'1"l'ACH. ;Obis
suhrou"tiDIi! o~era tes under t.be
user's
1'CA.
~ KC Wait is non-dispatchabltll. "l'hf!
~ask
is resa.ed vhen i'!eblockinq
bas co.pleted.
~ l'~A" 1270 printftrs require to be
run in "efiDite response .ode.
5t.art-ap
152
~ll.t.
(DPlIZSOP)
nlag-cill. -
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -
Input _ _ _ _ _ __
PROPERTY OF IBM
output
pror.~s_si_n..:g_ __
If lIessage protection is
request~d or III'f!SSi'lgP.
journ;tlinq, ohuin a JC!\.
Por mlP.ssage protection
output. obtain a DWE.
~nquetl""
a TCA DWl! chain
and .ark as cancelled.
Store DiP aildress in
1'CT'1'P,
r ITCTEown
TC't"TP..
POI' lIessage jourDaling on
innut messages, issue a
joarnal request fo~ 't'!OA
data and lIessaqe sequence
I
I .'\
-----~
b D••
DlI"ESV"JU.
DWRSV1HO
----rHfE'I'CIPS
DW"P.t\Dt
D'iEPIIIOnPN
DUllbp.r.
!
JCA
"C>TrVSO
,TC~JP"'ID
JCASPL
Por input. lIessage
issu~
protection.
I ----JCUD~TA
journal
request to system log for
a nd. sequp.nc~
JCUD~TA
.1CAJFID
...
TIOA ilata
nUllber.
1
I
~
start-up Task
Diagrall - 1.':i .. " .. 1 .. 9-02
!fotes
~ Any class of lIessage protection
I
I,ef
- ---\--1----------1-"Routine
t.abel
\ Ref
"otes
Rout.ine
Label
or journalinq viII require a JCl
potentially so it is alvays
allocated ..
I
II
~ output lI~ssagp. protection
poten tially requires a OWE so it
is always
@]
Aatoaatlc journalinq of in.put
.essa~es
I~
1=
allocated~
is perforlled here fnr
tbe fir1Al
I
TCTEBID'
CSA
I
[TCTRBPLA
~
~ Establisb .idress.bility
[§
L:.J
rn:il
\.~
1~>0
.
I
If "AJTA~!{ or SOS flags
are on. add: 'l'C'l'TE to
fOil
I f there is no apt
availablp., acquire onf'!
.-------,--1, r.l
conditionallY.
TeA
A. I f not successful. 0
'!'CTPX
"
A.
1P1=,1
--',
rTCTlliiil~
I fRl l.:.J
~
I
I
iii
~>r;1
Isslle 'rBACB .aero
CJ
TCTTE
r;;,-"
t.!J --. 1
~)0
,
0=::1
Actiyate Chain and redriye
I
'I
1 OP
Attach.
"
,---,/rB1~_.J'
L.J u --.1 -
I,TCTECID
P~GP.
I
•
instruction.
@]~)
eR ~RT: RIPOOOO 1
output
rn1l
with DPRTCP~V.
fi1~>
--',
TCTTR
L-,/
L:J
[C'SiiCiitI-C-Ol@
CSASosr-1
------'
=l
Processing
and
'-=~=-""~>1Jl [PI=::> ~
t.::J :J
I
~-,/
-,'
:::::,>[r;t r;;,
l!!.J-' I
:::~::::::::::-::::::'inl, ~
RT?L address in
L.J
r;;, --''-
SAt
TCT~E
up "PL.
If RESytfC/Rf,STABT in
CSR~
progress, set
I
I
--:-t/fR'1
LJ
II
ED--','I
I
-.l'r;}
~I 1 ~
transaction In in TeA.
@]
Establish addressability
to TIOA and TCT"E-Ext.
Task Attach
(DPB'UT'!')
,
-~I-~I~llI
Rotes
Rotes
@]
E]
I
TCZATT9QI
DPHSe TtPE=GET,u.r!f CLASS=qpr.
Register 1'; is set to
~
for
Activate Scan if "rCT'TP. is added
to chain.
Task Attach
(DPRZAT,.)
Section 2:
Method of Operation
------I~~~
I
I
!
!
Qlagra. -
1.'5.11.1.10 ... 01
155
LICENSED MATERIAL -- PROPERTY OF IBM
pro:~:~~~
CftU!: 811(((11
___________________ _
1IU2 (I
cutput
5
-------------------
I f thE nell cClltains an
PIIN. Ut:ilatE data (citter
tc Eoint P!st HH aDd
rEducE (leta lEIIgtt hy
REG q
l Data
pointer
length of lP!lI.
r------) ~~] If
tEst
!
.UD.
I
I
I
~~~~---)---1 II
------ 1
l '~lEF.bI
@]
I
I
I
I
I
,--)
I
@)
I:
I~~~~~~--,
I
I
I:
r------,-------.I
I
I 'C'E1D~T
J lt~~n1o
1I
::::---- I
i~~~~~-=rr------
::bctt
uac ct
HI tOI
is
FS1U lEy.
It thE 1C'I1E cCDUin:: a
DE-xt ttan!:Clcticn Jt, sltiF
furthEr AIr tEsts.
@]
I
I
\
.J' r--, Ir~/>
'fe'l'U
[ __
•• , ) 111
--,1 'I /
~
It a ::4'C tEuinal.
~
~
~
A. Setd a Hite cc •• and tc
~
:tesEt tilE )~ytcard i f 2222ZZZZZZ!!1
I
i
"
AID· if:
I
________________ J
1a.u. Attach
~~j( data stteaa,
tCI
It'iI .j;;liC tEliiDal, f!:Et-u~'7'i7in777777J')
tc attach tIan::actiO[ (5£'1'\-------------'1
if
,i
<------, JI i :
H11E
a
I
I
1
_
ter ClEn kel_
____., __________________ J
ICfhU'l'I)
'--_~_-_-...:------J
£1ogul - 1.5.11.1.10-02
f;::---------------------60-U-h-[:--:~~--IiE-.-'f~--------·----IO-.-th.--:~~-~-~~~~~
I
lalalE -ltt~tiltfE~A'i;)---------------------------
1______-----------~
156
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -
PROPERTY OF IBM
CUU,: 1!l1CrCtl
P~~.':~~:~L--------------------l
1·!:~-----------------1
Cl1tP~
u .. 3 C' 5 _
_______________
1
2222ZZZZZZm,J\
If IU is a t"."CtiOD
It, s.t-af tc attach ta •••
-~~I
I
2222222U!HJJ\
--~I
CEtEr.ioE i f task to
attacil is fEcI IiH.
I
A. It teuill81 is in
~~'i]
di£r: la y .statu! Bnd Dct
t;
fECD CSIG, .set CSIG it
r:J~)
~CI.
E. If tex.hal is not 1~
:::~)
ch.splay stetaE" net
rj1
1..:J
trel C~lG, tut r:aglDIj
'colund is 10 He). set
CSiG Ir. HI.
t('n!
I
1c1iiTc-C:~>r;:1
[ ________
J
L:.
~] Deterlline
if task to
attach i.5 fIcl data.
I
A. It therE 1:5 a JlExt
traDsactiCI! II: in the
le'IT!, leu i t to 1(A
and set iaHcatcr h
~C11l.
l___________
I
l_______________________
la.5& Jttacb (Ub.2.A1'l)
L ____________________
1
~ ::~:::::~:::::::::, L
Notes
--------- ---- --- --Routine
TC1:ATT_15 1.1).'1
I
Lahel
I
,
I
I
I
I
I
/"
I
,
II
158
.ef
I
I
.,.ask l't'tach (D:P"R'tATT)
I
,
.1.17
Register 15', is set to q for
Actiyate Scan.
In
Prepare TCA anr1 attach
L
Task Attach (DP'RZ ~,.,.)
'!he SEND STIfCR DATA FLOW in
DFff'ZCP is called ..
:~::~ ~:t t;:::::~::~n
task.
L!I
@]
situation and
ia Te>.
!
'!Jotes
sbut~ovn
is Dot in table. set CS Ie
1::;::::>0
}
0::;::::>
1::;::::>0
-----' I
If
a
~J
rTrnc~::;::::>B
~TTETEA
S
pnsitiYe, .0Ye
=:1::;::::/ )rQ1
(±CTmu
OP
transaction In to TCA.
r~CHC!f>0B~> @)
'TCTTE
Q
0~)r
posi.tive and the di"lta
length is not s.aller
or oriqinal length
!
-
T/@JB~)I
transaction ID froll
L::J
(TCI"'C~~)~
(T_CISCSI
PIG!
- - '
I
Tel
CRIRT: HI,,000n1
TCA
C51~,
I
output
r
1
f
L i-
processinq
I
CICS/OS/VS Program Logic:
-
I
-
Description
LICENSED MATERIAL -- PROPERTY OF IBM
CHAR": lITPOOOl'),
PAGE 5 OP
Ii
Processing
Input
~
'" I
Ilot p u_t_ _ _ _ _ _ _ _ _ _ _ _ _-,
~
f!i1=J @]
[cs.;;c;w:~::::::)rQ1
l..'!J L::1
If sh.tdovn situation. and::::::)fii1
r::==-::--,.-:.....-J'
Ret p['['or code in 'rCI...
_I
l CSASSI2 ,I--.,/r,;!
I t.:J
TC"'TE
l I,
TI
l.:1
transaction 10 is CSlC,
~,
B::"" I
fil::::::')
t.:J
'"~-':\.)I ~
L.J
[~
to
"'CT'T'P. extension
and
""tabUsb
addressabilitr
~~~::.
CSpr, requests in
I f task ID calle froll
+=fl!r
Derlllanent, clear out
transaction 10.
§
>1
I \
,
1\ \
aoa t['ansaction is not
I
TC'T'TEIU
I
TC",.E
t.:J r--')1
~' t
::::::)ftl
"n":'TTR~
TCTTP.PGB
!TCTTv.TC
1TC,.TEOT
!'T'CTP.ICA'"
, ,
U!l
'pdate statisties. turn
off Utacb flail. tate
TC'M'P. off ~ctl"ate Chain
and retUrD t.o caller.
TCT'T!
tTCT"nRQ I
", I l~
1
I
I
I
I
r
Routipe
lIotes
'('0
\ I
V
caller
L
I
-------------------@]
'f'C't'RIT~ DP
l~·······\
;----J:L
I
I
TC'l'RILBV
TC"I'T'P.BF
RAIT.
I
'l'r.'TTE
ttnYiCS
DPmSlJP to issae '!'erainal
I
(DPH'U.TT)
record presentation, set
up request flags to cause
\
Task Attach
''01
Tf' task reqllires logical
Diagra. -
Label
~ef
--- ---
DPHTCQnt QUE="CTtVITE ("R"IN=OPF
I
Not'!s
Rootine
J
1.-;.11.1.10-05
Label
Ref
----- ---- --- ---
I
I
,
I
\
Task Attach (DPRZA.'l"r)
Section 2:
Method of Operation
l
!
Diagra. - 1.13.11.1.10-05
159
LICENSED MATERIAL -- PROPERTY OF IBM
Page 1 of 9
..... .
INPUT
CSA
ICSATCTBA I
TCA
I
TCAFCAAA
ITCAJCAAD I
JJL
OUTPUT
TCA
~
Save caller's registers in TCA.
~
Issue DFHIC TVPE=ENTER.
@iI
> I
TCATPRS
I
Establish addressability to TeT prefix. TeITE, and
JCA.
CSA
I
I
I
CSASS12
~
If system is in Quiesce mode, issue ABEND.
~
For VTAM Readbuf requests, convert to a WRITE,
READ request with Readbuf modifier.
~
If required, convert VTAM PRINT requests to Readbuf
requests with Print In Progress flag on.
TCA
TCTTE
TCTEVTAM
I=:J
1-
TCA
I TCATPCRB
TCA
TCTTE
TCTEVTAM
I
TCA'I"PCPT
I
TCTTETT
ITCATPOWR
,
>
TCA
I
TCTTE
TCATPCPT
I
TCTEPRP
I
TCATPOWR
TCATPORR
TCTTEFPA
TCATPONT
TCA
~
TCATPOS2
If there is a Write request in the TCA and a Write or
Read request in the TeTTE, or if there is a Read
TCATPOSR
request in the TCA and a Read request in the TeTTE,
issue an ABEND.
TCATPCS2
Diagram -1.5.11.1.11-01
Application Request
NOTES
§
Prevent Tep from being abnormally
ended as a runaway task.
~
DFHPC TYPE-ABEND, ABCODEATeA
~
For VTAM 32.70, a Readbuf command
~
VTAM PRINT requests require'a-READ
aUF to be done unless the terminal is
A. A3650 Host conver1ational
ROUTINE
LABEL
REFERENCE
NOTES
ROUTINE
LABEL
RE FERENCE
must be sent to the lodgical unit.
3275
B. A 3275 without the PRINT
feature
C. A 3270 Compatibility Mode
logical unit".
~
DFHPC TYPE-ABEND,ABCODE-ATCA
Diagram--1.5.1'.1.t1-01
Application Request
160
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -
PROPERTY OF IBM
Page2of9
PROCESS
""'UT
TCA
>
TCATPOS2
OUTPUT
TCTTE
~
:>
Move request flags from TCA to TeTTE.
TCTTEOS
TCTTECS
TCATPCS2
TCTEOCB
TCATPOC3
:>
A. Turn off Sync and Async Override flags.
TCA
I
I
I
TCATPOS2
TCTTE
TCTTECL
TCTEVTAM
I~
I
TCTEQCB
If ATP device and there is a wait request in the TCA,
a wait is issued.
I
I
A. If STAM device, STAM logic is activated.
B. If VTAM device, VTAM logic is activated.
TCTTE
TCA
I
TCATPRS
I
I
Clear wait request in TenE. restore registers and
return to caller via DFHIC TYPE:::EXIT
TCTTESR
To macro
instruc.
caller
Diagram - 1.5.11.1.11 - 02
Application Request
NOTES
ROUTINE
~
A. The Sync or Async override
~
OFHKC TYPE=WAIT. DCI=TERMINAL
LABEL
REFERENCE
NOTES
ROUTINE
LABEL
REFERENCE
flags may have been set by the
p-:evious TC macro instruction.
~
TCZARQ92
Diagram-l.5.11.1.11-02
Application Request
Section 2:
Method of Operation
161
LICENSED MATERIAL -
PROPERTY OF IBM
Page 3 of 9
OUTPUT
PROCESS
INPUT
I
TCA
TCATPOS2.
I
-
,----:--,; G
;
If there is a Write request in the TCA and journaling
to do, the I/O area is journaled.
==-
JCA
TCTEOMJF
JCAADATA
TCTTEDA
~CALDATA
TCTEIMJF
TIOA
ITlOATDL
TCTTE
I
I
I
TCTT2
TCTE1NEC
ITCTTESR
TCTEOCCF
: >[EJ
1-----:>
@]
If there is a Read request in the TCA and journaling
to do, the Resume. Operating request is set, a Waite
is issued, and the I/O area is journaled.
I
===--
If there is a Wait request in the TeA, a Walt is issued.
....
To macro
instruc.
caller
'--'----'\
--V
Gl
If there isa Write request in the TeA and
CCOMPL;:: NO was specified and the
transaction was not authorized to control
outbound chaining indicators, an ABEND
is issued.
Diagram -1.5.11.1.11 -03
Application Request
NOTES
ROUTINE
B
TCZAR020
GJ
TCZARQ22
@]
REFERENCE
NOTES
ROUTINE
LABEL
REFERENCE
DFHKC TYPE-WAIT, DCI=TERMINAL
Return to macro instruction caller.
G
LABEL
TCZAR092
DFHPC TYPE - ABEND, ABCUDEATCG
Oiagram'-1.5.11.1.11 -03
162
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -
PROPERTY OF IBM
Page 4 of 9
OUTPUT
PROCESS
INPUT
TCA
lC
--
TCATPOS2
TCATPOC2
TCA
ITCATPLDM
I
~
A. If an Loe request in the TCA and terminal
TCTELLDC
TCTPX
I
TCTVSLDC
Otherwise. establish addressability to the?
terminal local LOC list. Search list looking
for match of LOC's.
TCTTE
I
]
local LOe list is O. set LOe in TCTTE to O.
~
A. If no match, set LOe in TCTTE to 0.
I
I
>
If there is a Write request in the TCA. Send flags are
set.
,----v
TCTTE
\TCTEWDAI
ITCTE1CSS
ITCTEVLDC
\
\
I
=:J
B. If match and LOe is not D, move code
~
to TCTTE to O.
1-
C. Otherwise, establish addressability to
system LDe list. If no match there. set
LOe In TCTTE to D.
JCA
TCTTE
TCTEOMJF
TCTTEDA
TIOA
I
TIOATDL
J
T
@]
If there is iournaling to do, the 1/0 area is iournaled.
>
I
I
JCAADATA
JCALDATA
I
Diagram-l.5.11.1.11 -04
Application Request
ROUTINE
NOTES
[lli
I
J
A. Process as normal Write.
LABEL
REFERENCE
NOTES
ROUTINE
REFERENCE
LABEL
TCZARQ40
,
Olagrem"-1.5.11.1.11-04
Application Request
Section 2:
Method of Operation
163
LICENSED MATERIAL -- PROPERTY OF IBM
Page 5 of 9
OUTPUT
PROCESS
INPUT
I
TCA
TCATPFRC
:>
I
~
Is FORCE=YES specified?
No:
====:>
Yes: Set request'flags.
I
TCTTE
I TCTEICIP
A, If data or command in progress, queue TerrE
B. Otherwise, send E-Signal.
I
DFHZSOA
19
TCTTE
TCTEAIOF
TCTEORAF
TCTESIDO
on active chain.
1
I
I
1.5.11.1.131
00
I
I
If task is Sync or macro override is Sync
and there is no Wait in the TeA, and if
there is no Read in the TeA, Send is
chained.
TCA
I
TCATPOS2
TCTECSA
TCTEIESG
:>
TCTEIDIP
TCTTE
I
A. Otherwise, if there is a Read in the TeA, Receive
and Read/No Wait Chained flags are set before
Send is chained.
r
Diagram-1.5.11.1.11 -05
Application Request
NOTES
~
The TCTTE is added to the Activate
chain before exciting this module.
ROUTINE
LABEL
REFERENCE
NOTES
ROUTINE
REFERENCE
TCZARQ90
Diagram·-l.5.11.1.11 -05
Application Request
164
LABEL
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
Page 6 of 9
OUTPUT
PROCESS
INPUT
TCA
I
TCATPOS2
I
TCTTE
TCTE1CIP
TCTEIDIP
~
r
~
If it is a deferred Write or if the Write is Async or if
there is a Wait request in the TeA. check for command
or data in progress,
TCTEAIOF
TCTEORSF
TCTEVTP
TCTTETS
I
I
A. If not on and terminal is not out of service,
call send routine.
:>
TCTTE
:>
B. Otherwise, set Send flag and add TeTTE to
chain.
ITCTEICS
TCTTE
I TCTEIECN
:> EJ
I
.
TCTTE
ITCTERADF
I
~
If there is a Read in the TCA and a previous Write
request did not terminate a chain, an ABEND is
issued.
:>
Set the Receive flag and reset the indicators FMH
Present, Chain Terminated, and EOOS Detected.
TCTTE
TCTETRCS
TCTEFMHI
CTEEOCI
@]
If read-ahead data is available call OFHZRAR and if
data is retrieved go to Read Logging Routine.
CTTEEOO
~
Diagram-l.5.11.1.11-06
Application Request
NOTES
ROUTINE
~
Send Sync data flow.
EJ
DFHPC TYPE=ABEND, ABCODE=
ATCH
OFHZSOS
LABEL
REFERENCE
ROUTINE
LABEL
REFERENCE
1.5.11.1.17
Diagram -1.5.11.1.11-06
Application Request
Section 2:
NOTES
Method of Operation
165
LICENSED MATERIAL -- PROPERTY OF IBM
~701'
INPUT
OUTPUT
PROCESS
TCA
TCTIE
~
f TCATPOS2
TCTIE
TCTEICIP
~
:>
~
If there is a Read in the TeA and if task Is Sync or
macro override is Sync and there is no Wait in 'the
TeA, Receive is chained and Re8dlNo Wait Chained
flag is set.
1- ~
If command or data in progress, or If the terminal Is
out of service, Receive is chained.
I==-
LTCTEIRCS
LTCTEIRNW
J
J
TCTEIDIP
A. Otherwise, Receive is called.
TCTEVTPS
TCTIETS
TIOA
:>
ITIOATDL
TCA
I
TCATPOS2
TCTIE
>~
~
If logging Is supported and the Sync flag is on, or if
there is a Walt in the TeA, the Resume flag is set, a
Wait is issued, and journaling is done if required.
TCTELOGP
TCTEIMJF
1::
TCTIE
tTCTEICRP
J
ITCTIESR J
JCA
IJCAADAT(' I
IJCALDATA
I
TCTIEDA
Diagram-h5.11.1.11-07
Application Request
NOTES
~
TCTTE is added to Acti,vate chain.
~
A. Receive Module.
ROUTINE
LABEL
REFERENCE
NOTES
ROUTINE
LABEL
REFERENCE
TCZARQ90
(OFHZRVS
1.5.11.1.14
I
DIotro'" -1.1.11.1.11 -07
Appfation Request
166
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -
PROPERTY OF IBM
P... Bof9
OUTPUT
PROCESS
INPUT
0==> @]
TCTTE
:>
TCTTESR
@]
TCA
I TCATPOS2
TCTTE
IJj
~
TCTTE
ITCTEIRNW
If there is a Wait in the TeTTE and the Read/No Wait
Chained flag is on, the flag is turned off and the Read
journal logic is entered.
TCTEIRNW
:>
After journaling, check again for logging supported..
If Sync flag is also on, the TeTTE is added to the Log
chain.
Q
:>
If there is I/O in progress or if there is a Waif in the
TCA, the Resume flag is set and a Wait is issued.
TCTEVTPS
TCTEIRCS
TCTEICSS
I TCTERAQF
• (i]
I
:> ~
TCTEIWSR
If read - ahead queuing is required call DFHZRAQ
and retry the Send.
Q
If Wait on Signal not required.
TCTEOIS
lEl
Q
If inbound Signal not supported ABEND.
Diagram - 1.5.11.1.11 - 08
Application Request
ROUTINE
NOTES
@]
(i]
lEl
REFERENCE
NOTES
ROUTINE
LABEL
REFERENCE
DFHTCQUE QUE-LOG
TCZARQSO
[ill
~
LABEL
DFHKC TYPE-WAIT, DCI-TERMINAL
TCZARQ1B
Read - ahead queueing will be required
TCZARQ8A
if the Send failed because the receiver
is in transmit status. DFHZSDSwill
set bit TCTERAO to indicate this.
DFHPC TYPE-ABEND, ABCODEATCO
TCZAR08C
Diagram -1.5.11.1.11 -
Application Request
Section 2:
Method of Operation
167
~
LICENSED MATERIAL -- PROPERTY OF IBM
Page 9 of 9
OUTPUT
PROCESS
INPUT
TCTTE
I
TCTESIGI
I====~>
A. If signal was received already, ABEND
1=====>
B. The following.indicators are set:
Waiting on Signal, Task waiting at a terminal,
and Activate Scan for Resume
and a non-dispatchable Wait is issued.
Signal Received indicator and Wait on Signal request
are reset.
1=====>
Flag TCTEIWGS shows that task is actually waiting
on E-Signa1.
If the Freemain Activate bit is on, Freemain is called
and a wait is issued.
Diagram - 1.5.11.1.11 - 09
Application Request
NOTES
ROUTINE
LABEL
REFERENCE
NOTES
ROUTINE
LABEL
REFERENCE
TCZAROBC
A. DFHPC TVPE=ABEND,ABCODE=
ATCO
B. DFHKC TYPE=WAIT, DCI=
TERMINAL
[2i]
FREEMAIN
DFHZFRE
DFHKC TYPE = WAIT,
DCI '" TERMINAL
Diagram -1.5.11.1.11 -09
Application Request
168
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
r---------------',
:---------------1
r-L
'
I
,\
: ,I'
\
'
!
Input
Processin 9
~~g~o CHPE
I
Instructicn
I
II
CSA
I
I
Irnol
Ir
Save callerls regl.sters 1 n - - ' - - - - - - - ,
-"I' fii31
1Al--,1
L:.l
I L_'
_ _ _ _ _ .1
TCTPX
I 'Gl
r.;---::--1L~~~~J-J11 ~
1'
;
II f'Q.i1
J
\
1
II
terminal, task. is aboendEd.
'\
\
'I
I
Issue DFHIC TY£'E=EN1ER.
'I
I
Establish addressabi!>ty.
I f terminal is not a VTM
Il::l
\
! !,-."
ITcTruDol=======~>1 L~
!TCTEEI~ 1 J I
!
I'\1
' I
fTCTEI:iis-l:;=tL-------'" ~
lTCTEVT~d
,I
Issue 'lRACE macro
mtruchon.
I
I
RESETSR ActlVate flag
1.5 on and acceptable,
RESETSR is called.
1"
I
A.
I -----'/1
If
Otherwl.se TeTTE loS
;:."I~¥.:ETT-TL----------->![~~
:h:::::~D
----D !
II
:'
I
I
I
I
J
:1'
"
I
FCATRF2 .J
I
TCTTE
fTcTEEiiio-l
L _ _ _ _ _ _ _ ..I
I
I
I
I
I
I
I
I < , •• , )
I ',..-,1 TYPEoABENO _-==1 \
--""1@!J
!
0---,/,
I
I
I
I
RESPONSE
ABEND
I
,
task.
~---------,
DfHPC
I
If a command or data are
"
I,
in progress, the TCT'IE is
I
,
"
,t______________..J' Il ____~ _______J"
CTYPE Command Reguest
I'
~>I
1::~_1_1
!
or
request for a 3210,
1 ....-"
I"
'"II
r'::ATCT~q
I
TCTEACR2,I
l____
1
:
I
I
TCA
l
If
,
I'
I
I
\
"\
I
:-'--~f~>1
! I!!
TCTTE
,
I
!
I
TCA
-,-----'/1
_.:.I
T:~__
-.!.-ll
[TCAFCAAA""""l-I
!
I
[~~1CTB~li\----::::::)1 ~J
'I
------------,
II
I
--,/>1I lol1 TCA.
~ ••• ,
I
CHART: HIPOOOOl
PAGE 1 Of 1I
output
I
II
I
~--------~
tDFHZCRQ)
Dl.agL"am -
1wS.11.1.12-01
r--------------,---i--i-ll""-----------------------,---,-----,-~
l~---------------L~::~:t-~~~~Il-~------------------,~::~~::J'-~:~:~-I-~~I
, , , "
,
,
, ,
l@l
03
DFHPC TY[I'E=ABEND AECODE=ATCF
I
,\ 1Q.j'.
t:::.J Prevent 1CP from bang
I'
I
I'r;;;:]
abnormally ended as a L"unallay
task.
,
I
I,
"
II
II11
,
I
I,
I
,
I
I'
I
I
\'
I!
I,
,
,
I,
!"I
I,
I,
I,
1'· 5. 1111
'"
I !I
I
'
I,
I
,
I,
I
I,
I
I
,I\
I
I
I
I'
I
I
I
I
I,
I
I
I
I
II
,
I
I'
I
I '
I
I
I
I
I
I
,,
1
I
I
IOPRZRST I
I ~ RESETSR
I~
'
I
I,
1
I
I
'BCOOE=ATCP
!I
,
I
I
,I,
,
,
"
'
ITCZCRQ10
II
!
I
I
,
I
I
I
I
I
I'
II
I
I
I
I
I
I
\
\\
"
I· 1. 21
'I
'
I
I
I '
I
I
!
II
,
I
I
I
I'
II
i\
'II
I
I
\
I
11
1"1
I
:
,
,
I
II
I
I
I
I
I
I
I
,
,
I
,
,
,
I
I
I
I
!
I
I
I
I
I
I
I
I
I
I
I
I'
,
I,
,
,
I
I
'I
I
I,
I
I
I
II
I
I
,
I
II
I
I
I
I II
I
1 I I
IL ______________________
I
I
! --'IIL ______________________
I
I
I _J
CTYPE Co •• and Bequest
Section 2:
(DFHZCRQ)
Method of Operation
DJ.agram -
1.5.11.1.12-01
169
LICENSED MATERIAL -.- PROPERTY OF IBM
r--------,
CBART~
Input
I,,
r------~
I,
,I
,I
I
I
lEICIB=:>0
,I
~~~p
,,
I r-----.. ,I@]
TCTTB
,,-----'11
~--l-'
TCTEICSS
1l'
,I
--- J I
TCTEVTSS
I
I
,,I
,
II
,
I,
,,
----- I If
TeTTErs
------'
I
l
IIL-"
III
II [------'
/
---"I~
,
I
,I
If send sync Data Flow,
and logged on, OPNDST, and
Start Data Traffic bits
are on, and the terminal
15 J.n serv1ce, the Send
DPSYN module 1s callEd.
Otherwise TeTTE is
chained.
1
1
I
cha1ned.
A.
,Ir------'/j
If Send Async, and Logged
II
I
I I
I
I IL,---,/,
____ , 'I
the Send DFAS! module is
On, OPNDST, and Start Data
Traffic bl.ts are on, and
termi.nal is
,\
I
I
I~>I[!i]
,
\
I
I
I,
I,
,
I,,
II
[oJ=:)'
~-,J@]
---,II
_______J
Il
CTYPE Co •• and Request
1..:,
PAGB
output
Processing
1n
service,
called.
I
\
I
I
I
,,I,
,
I
I
HIPOO:)01
•
2 OP
-------,
I
I
I
II
II
I
,I
I
II
I,
I
I,
,,
I,
,,I,
I
I
A. Otherwise TeTTE 1s
chained.
If SESSIONC, and Logged
on, and OPNnST bits are
on, and terllll.nal 15 in
sern.ce, the SESSIONC
module is called.
A. Other TeTTE 1s chained.
I f Send Response, a 1lC!
Logged On, OPNDST, and
\
I
I
I,
,I
,,I
,
I
II
I -________--1
L
(D'HZCRO)
II
,,
I
I
I
L
J
,,I
,
1.5.11.1.12-02
Diagralll -
_______·I;~~~I~I;:~I'II!~_______________I"::~~::I-~~:~-II'·~!
~-----------------I-----'---~r----------------,---,----I-~
II
;e:·~~:~~
I
I
A. TCTTE chained.
I~
Send Async
IDPR2SCA I
t
A. TCTTE chained.
I
j
SESSIONC
,DPD75ES
Is
I . ~'" . n....
,I
I
II
I
I
I
I
I
I
L_____J..
170
!
I
I
I
TCZCRQ90 /.1;
!,' TCZCRQ90
!
tDPHZCRQJ
II
II
:;l 1
II
l·l;~81111
Ij
j
I
I
I
I
Ct'YPE Co •• and Reguest
rCZCR090
I
I'
II
III
II
I
I I
I
I I I I
I
I
I
I I I j
II I I
I
I
!
I
I
I
I
I
I
I
I
,
I
I
I
I
I
II II II II
I I
I
j
I, I
I,
I JL_~_______I_.1JJ
D1agrall -
CICS/OS/VS Program Logic:
1.5. 11.1.12-02
Description
LICENSED MATERIAL -
.....
PROPERTY OF IBM
proc. .sillg
Start DIIta "I:'afflc bits
are OD, til. sea4 R_pOD ••
Bol.le is call.a.
I. Ol ..... iII.
'!~I
is
cll.lae4.
lorenEcl '1,:U1TI~===:>
@lIf.otraUiaq .aaer
oreP"~'====:::::::'}
'tea allc1. a 'tast is attached
('rC'rBIC.'
to Y~"B,. til. lesa •• fla9
is tu•• a oa. If I/O is ia
C"S::I===-,
CSI'rCIlC
I
progrea.,. a waI'!' 1s
issa8ft.
I. Otherwise 'l'C'I''I'B. is
chaiaea..
B
B.store registers aaa
retara •.1& D'PRIC
'!'TPZ=-!ZI'!'.
, •••• ~>
'1'0 caller
C'rRB
ca... a
1"'I_.t (DPIIZCBQI
lot. .
@l
loatine
SeDa leSPOD ••
DPHlISDI
I. 1IfC!''f. cla.l.el.
@l
Label
lef
--- --1.5.11
.1.15
.ote.
aoatiDe
Label
.ef
---- ---
'rCZC1Q90
DPIKC 'r". . . .U is 01l1y i .... a
aft. . a .04111. ba. b••• 0&1184.
_ _ aaa ."'IDeat (DPIIClOI
Section 2:
~thod
of Operation
171
LICENSED MATERIAL -- PROPERTY OF IBM
Oa1:pet
Processinq
'reP SA lE
.....
~
"-
'/ >
@!1saTecaller's en.,ironaent
~=====::.)
.ith '!'CPS1'JI!.
'reT,.!!
(Ye'l'!OR"
'!CTZOPIIE
I
'I'CTT!
[!'eTHYl.l
[ Y"eTBRPLI
Rn
>j
I
,>~
,
Test for oatstandinq
response.
S/IOPRZSOB
I]
I
I
seael RSJ!Ponse
1.5.11.1.15
@]
I
16
If yali4 eo •• and. p1'1.8
BPI. accorcUnqly.
I
I
-"=:==~'\
-:tI
otherwise. queue TC'r!'B on
tllep chaiR.
Set co •• and in proqress
rlaq and issue ''fA'' Asyne
====::;;1.
·L-"I
-,
I~C!'BCU
Send for co •• and.
'('CUI
I Ye!'nsap I
'!'C". . SI
,)
I
J
~ Restore caller's
en.,lronaeitt .1 th TCPlIM'.
Send lalnchroDous Co •• and (DtnzSDI)
.ot.a
@l
W.ent coaplation vl11 be checked
.hea the list is schedalec1. The
requestor of tIlls routine is
responsible for issuing an, task
Roatine
Label
I
Ref
Wotes
--- ---
lout.ine
tabel
R.f
--- ---
control Walt or Asynchronous
lesaa. request. t.hat .ay be
reqaireil.
__ lQaC'lroao." Co. •••a IDPB71S01,
172
·Dl.,r•• -
CICS/OS/VS Program Logic:
'."n.'.;,....
Description
LICENSED MATERIAL -- PROPERTY OF IBM
Page 1 of 4
OUTPUT
PROCESS
INPUT
TcnE
1
.-1
TCTTESNP
TCTERPLA
1111-
ITb
TCTFX
~
~
TCTEIOLD
Save callers environment and turn on Receive
lC
Specific activate bit.
Check for possible entry error conditions.
RPLACTIV
All other error conditions set appropriate error code
and put on NACP queue.
TCTTE
• §]
TCTEORRN
Check
f~r outstanding
..
TCTEOFME
Send Response
,I
TIOA
TIOATDL
TCTTE
I~
8
TCTECRS
I
TCTTE
I
I
CX3
response •
DFHZSDR
I
TCnE
I
~
If overlength data error condition
TCTEINB
1-
TCTVRS 14
THRU
TCTVRS 10
TCTEVRC5
TCTEBPE
RPL
TCTVRSAP
1.5.11.1.15
l
I
If data is required to attach a task and Chain
Assembly is not in progress, check for TIOA space
and eventually acquire new TIOA
TCTEIORQ
TCTEICAP
TCTESOAL
Diagram- 1.5,11.1.14·01
Receive Specific (DFHZRVSI
NOTES
~
ROUTINE
LABEL
REFERENCE
NOTES
ROUTINE
LABEL
REFERENCE
Error conditions checked for are:
NIB disabled
TCZRVSQS
CLSDST scheduled
TCZRVSQS
RPL missing
TCZRVSQA
RPL busy
TCZRV5QC
Overlength data
TCZRV5D2
Read to TeTTE in Receive status
TCZRVSQE
Task bracket protocol violation
TCZRVSQG
Diagram - 1.5.11.1.14-01
Receive Specific (DFHZRVS)
Section 2:
Method of Operation
173
LICENSED MATERIAL -
PROPERTY OF IBM
Page 2 of 4
OUTPUT
PROCESS
TCTTE
LTCTEOBP I
I TCTEIRMD I
If Batch protocol and not in Receive mode, then
perform turnaround.
Remove TCTTE from activate chain, set activiate scan
flag for 'Receive Specific and Data in Progress flag.
1=====>
TCTTE
r
TCTERCS
r
TCTEIOIP
l
I
Issue VTAM SEND macro to send a stand.alone RU
carrying CD and requesting definite response.
I
TCTTE
TCTEIOIP
If SEND operation not yet completed. return to caller.
I
~
To caller
~
Otherwise, VTAM schedules the corresponding exit
To Exit
Diagram· 1.5.11.1. 14-02
Receive Specific (DFHZRVS)
NOTES
~
ROUTINE
LABEL
REFERENCE
NOTES
ROUTINE
LABEL
REFERENCE
.Turnaround is performed by sending
a stand-alone RU in definite response
mode carrying CD.
Diagram. 1.5.11.1. 14·02
Receive Specific {OFHZRVSI
114
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
Page 3 of 4
INPUT
PROCESS
I
.G
TCTTE
TCTESQAL
I
G
OUTPUT
Receive.
Z00Yffi
Issue VTAM Receive and check for errors.
»,~p~
Get address and length of TIOA to be used for VTAM
VTAM
I
RECEIVE
RPL=(RPLBARI
TCTTEDA
>
I
I
Q
If no error
El
TCTTE
I
>
Analyze VTAM error.
W~~
If LERAD/SYNAD handled error
Q
Q
If must handle own error, put TCTTE on Activate
chain.
Else set VT AM is dead error code and put on NACP
queue.
TCTTE
I
TCTEVRC5
Q
Diagram - 1.5.11.1. 14-03,
Receive Specific (DFHZRVSl
NOTES
ROUTINE
G
If authorized path SRB support is
being used, this in'Jokes the RPL
service routine to interface to VTAM.
DFHZHPSR
@]
Return code in register 15 after Receive
macro instruction has following meanings:
TCZRVSQ2
R1S'"
a-
No abnormal condition
LABEL
REFERENCE
ROUTINE
LABEL
REFERENCE
1.5.11.1.37
TCZRVSP2
R1S=-1-Errorhandledby
LERAD/SYNAD routines
TCZRVSQB
R1S = X'FO' - An error occurred that
the module must handle
TCZRVSQ2
R15 = X'20' - VTAM has terminated
abnormally
TCZRVSQ4
Diagram. 1.5.11.1.14 - 03
Receive Specific (DFHZRVSl
Section 2:
NOTES
Method of Operation
175
LICENSED MATERIAL -- PROPERTY OF IBM
Page 4 of 4
OUTPUT
PROCESS
INPUT
RPL
RPLBUFL
r
RPLRLEN
TCTTE
TCTTEDA
TIOA
1 TIOADBA
:r
TCTTE
~
Get TIOA large enough for complete message.
1 TCTTEDA
~I
1TIOATDL
TIOA
J
CICSSTORAGE
CONTROL
1
DFHSC. TYPE=GETMAI N
1
1
1TIOADBA
Move received data from old TIOA to new TIOA.
Freemain old TIOA.
G
Issue VT AM Receive to get reset of data and check
for errors.
(::01
I
TCTFX
TCTVRSAP
>~
1
VTAM
RECEIVE
RPL=(RPLBARI
I
Q
.
If error
>
%W~
Set appropriate return code, restore user's
V~ffi
environment and return to caller.
TCTVRS 14
THRU
TCTVRS 10
1 REGISTER
15
1
~
To caller
Diagram·l.5.11.1.14.Q4
,Receive Specific (DFHZRVS)
NOTES
ROUTINE
LABEL
REFERENCE
NOTES
,Receive Specific (OFHZAVS)
176
ROUTINE
LABEL
REFERENCE
Diagram-l.5.11.1.14-Q4
CICS/OSjVS Program Logic:
Description
LICENSED MATERIAL -
Input
l
Pt'ocessinq
"CT"l'~
I ~" r
r;;--=-=----> ---', r.1
r ~~~T/l.!:J
•••• , >
--,1
=
('11
L-.J
I ---',
~)@]
-,
. [3--,1 [m
l
RPL
>
,
-,/1I
---'''00--''
I
A. If no lIP( prespnt
rrn:§'ii!ll-Tll
Ft
Sfii'il
L---,I ' I
I
))~_J'
•
-,1
A. If RPL P'['esent But
~'rv1
Active, set error code. ~
::~t~O
I
1
---"\[01
0_,/
_.:.J
1
Deterlline I:'equested
response tYDe.
If neqatiYe r.spons., s.t
~
,
---"
I
"{';1
"""1'1 L'J
b'I>rA1 EJ~)I
[TC"BI!i)"O
LJ
S!'fD .0"0.
r.=
I
10
,ur.p queue and
@]~>
rssue '''Arl 'S!~D' macro
instruction.
~fiV.
A. If co.pleted
r.:~' r::;:"J
J
L.J
...-.~~ '"
~
>,Oq,
Send Respo1lse (DPR'ISD'Il
Rotes
Doutine
Label
••r
"otes
---- ---
I,
Routine
Lab'!l
Ref
--- ---
I
I
I
I
Sell4 .esponse (DP1I'&sn8,
Section 2:
Method of operation
Diaqra. -
'.1IJ.1,.1.,IIJ-01
177
LICENSED MATERIAL -
PROPERTY OF IBM
Processing
'fC'PI
~ Set off Request bits.
--"-')0
~ B
,enasu
I tcn,sAP I L '
lIIl.....
.
)
~
@]
Retarn to caller- .la
Df',",cPl~
oi t h retara
A.
• Good
I.
= Brror
C.
= BrraE
code.
~,
0-,/
!eftl
l,c,..n1:5
[!]~)
I'C!IICSI
[!]~)
1'c!IYS~.
:~,
-""-"°0--'
R -.
0~)
Issae Stora,. coat.rol
for an apt.
I'C!IRDYD
GI'I'RlIW
I.
'If
anaaccessfal,
--"-')IJ1Ii1~>
_i.§'J.:J
I
req_at. IPt Gataaia
actiYata scaD. aDd 8Elt ..
l.:J
001 >1061
I"
1'";1--'''
--"-')0 ~-.,
B. If successful,
laIUsli'l. BPL aat!
'l'C"I''!'! fielas aDd
coat.l••• proce.iD,.
~">Ioil
~, V
--'
0-.)
I!C!IIPLI
l!C!nl1:5
sa.a
"spoaA (DPBlSDR)
wat..,
Roat.i.e
r.abel
lef
wotes
Boat 1••
Label
lef
1 - - - - - - - - - - - · 1 - - - - - - - - 1 - - - - - - - - -__.1 ___ - - - - -
...a .. _ ..
178
IDPBSSDI)
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -
PROPERTY OF IBM
Clift' Inoooo,
oatput
Processinq
ID'Plit
PlG!
3 01'
3
~ Error analysis of
unsuccessful '''1.11 ·SEIO'.
--'-'\.
t. L'!110/srllo bandled
error, clean UP and
exit.
1"0
T>~
--"
1"0
ovn error, qaeaeE:f:; [061
•• , > 06
to acti ..ate cbaLa •• d
"V
eJrit.
B. Banale
C.
"!'A"
.ssaae
is dHa,
put to IlCP q ae.e' an a:
BEit.
r'~
Saad BespODse (DPRZSOR)
Botes
@!]
Routine
nlft retarD code (in reqister
'5) vl11 be • PP', • PO'. or • 20'
Label
loatine
lotes
Ref
--- ---
Label
..
~
--- ---
, ••aninq respecti ...ly:
I. Brror condition bas already'
bee. handlell bf LERaD/STI .. D.
B. RIlDdle rODr ovn error.
Co ""1ft is dead.
5 .......... _
ID1'IIZSDII,
Section 2:
Method of operation
I
I
-
179
LICENSED MATERIAL -- PROPERTY OF IBM
PAGE I OF 3
INPUT
··...
OUTPUT
PROCESS
Save caller's enviroment via DFHTCPSV and set on
EJ
Send Response Request bit.
§]
Determine RPL status.
TCTFX
~@) @l:::::::::>
TCTTE
[ ,="'''
TCTEIRRN
TCTEIFME
TCTEKCA
TCTEKNEG
TCTEIEXM
I
I
~
RPL
I
RPLACTIV
I
03
m=:::>
A. If no RPL present
E)~
B. If RPL Present But Active, set error code.
Put to NACP queue and exit.
==>ill
Determine requested response type.
~
I
..
c
§]
If
§]
negative response, set SEND mode.
I
Issue VTAM 'SEN 0' macro instruction.
A. If completed unsuccessfully.
I
E)c,
:>
I
TCTEISMO
:>
Diagram· I.S.I'.1.1SA·01
Command Response (DFHZSKR)
NOTES
\
ROUTINE
LABEL
REFERENCE
NOTES
ROUTINE
LABEL
REFERENCE
\
,Diagram·'.S.I'.'.'SA·O'
Command Response (DFHZSKA)
180
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
PAGE 2 OF 3
OUTPUT
PROCESS
INPUT
~
I
Set off Request bits.
1061 ••
TCTPX
>
TCTVRSAP
TCTVRS14
Return to caller via DFHTCPRT with
TCTTE
TCTEVRC5
I
TCTEICSR
I
TCTEVSDA
I
TCTEMDID
return code.
thru
TCTVRS10
~
A.
0= Good
B.
4= Error
C.
8= Error
Issue Storage Control GETMAIN for
~n RPL
RPL
A. If unsuccessful. request RPL Getmain via
activate scan and exit.
I
TCA
TCASCSA
B. If successful, initialize RPL and TerrE
fields and continue processing.
>
I
I TCTERPLA
I
TCTEVRC5
Diagram· 1.5.11.1.15A·02
Command Response (DFHZSKR)
NOTES
ROUTINE
LABEL
REFERENCE
ROUTINE
LABEL
REFERENCE
Diagram·l.5.11.1.15A·02
Command R _ (DFHZSKR)
Section 2:
NOTES
Method of operation
181
LICENSED MATERIAL -
PROPERTY OF IBM
PAGE30F 3
OUTPUT
PROCESS
INPUT
Error analysis of unsuccessful VTAM ·SENo'.
~~
I
A. LERAD/SYNAD handled error,clean up and exit.
~
I
B. Handle own error, quetJe to activate chain and exit.
C. Assume VTAM is dead put to NACP queue and exit.
~~
~
~
~~
Diagram· 1.5.11.1.15A·03
Command Response (DFHZSKR)
NOTES
~
ROUTINE
LABel
REFERENCE
NOTES
ROUTINE
LABEL
REFERENCE
VTAM retum code (in register
15) will be 'FF', 'FO', 20
meaning respectively:
A.
Error condition has already
been handled by LERAD/SYNAD.
B.
Handle your own error.
C.
VTAM is dead.
Diagram·l.S.ll.l.1SA-Gl
Command Respo.nse (DFHZSKR)
182
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
proc8Ssinq
CRnT: "naOOOl
PIG! 1 or 6
output
Sa•• caller's reC)ioters iD~====~:)
Tel.
'I'Cl
IYClTPiis
"renE
~ Issae nPRle 'l'YP'!:I¥,!!I'I'ER.
!YC'!'!S.B
!stabiish a.,4ressabl1ity
to "reT Pref!:!, ore,.'!'"! and
BPt.
YCl
[TCIPCAAA
-'-----"J
IssQe nlC! .aero
instruction.
I'I'CUnBl
[ [
I~I"-:>@]setoPP1 09
first after
. sync. If lIB was disabled
1r.!c='I'E=I=Pt~l~'lf)0
L:J L::J
If data or co.mand are in
prOCJress ,and there is a
!'I'cnuno
~)rp1
CJ
ReeeiYe reqaest in BPL,
Continue Specific is set.
1~>0
and RESETSR is called.
Magroa - 1.$,11,1,16-01
'fask Detacb (orMD:!'!')
loatine
lot.s
§]
)
[!]~>
nag and return to caUer.
====""~fi1I'iJ~) ~
I
t:.J
bT W-ACP, tarn off Detach
t'C'I''fB
,---:..;..:",--,'
~)fB1
Label
Bef
- - - ---
"otas
Rontine
Label
Bef
--- ---
Pr • .,eot. TCP fro. being
abnoraallT ended as a ranava,
_ask.
§}
BES !'fSR aodale.
Dl'BZRS'f
~;~2P
fte '1'C''I''rB .111 be chllined to
rear! •• detacb.
Section 2:
Method of operation
183
LICENSED MATERIAL -- PROPERTY OF IBM
C8A~T:
@]
PkGB
output
Processing
Input
flYPOOOO 1
? 0' 6
If·'l'CTT! is in ase with
DPHZ!PlW, chain Detach
request and return.
I '\ /
~£l
To
caller
If anprocessed data in
pi pe, Ii nk to Error
~>
I
TCTEPUI
TCTBSWR
"e5sage Writer.
TCnS!~
I
I
I
~=l
I
V
DPHn~.
Other vise,. if Tr.T'rE
is Dot::.;:::)'Gl
scheduled for lUCP, the
flags Detach, Read
ActiYate .. Dead-In Request
Pield .. Task IItH'Id aequest,
Resulle Acti .,ate, Resaae
L.J
Operation, 'l'ext Option,
Exceptional Input Recp.i .. ed
Indica tor, Exceptional
Input in, progress, Print
in Progress#, and 'Readbuf
Request are all turned
off,. a no1 the OWE pointer
is cleared.
Ti1sk Detach
-------
(DFHZO!T)
Hot.es
Boutine
Label
.------------~
'Rotes
Ref
----- ---- ---
I
I
Diaqr. . -
Foutine
1.5.11.1.16-02
Label
Ref
---- ---- ---
I
\
I
Task Detach (DPHZDl!T)
184
Diaqrn -
CICS/OS/VS Program Logic:
1.5.11.1.15-02
Description
LICENSED MATERIAL -- PROPERTY OF IBM
Iopot
processing'
If there is a task to
Attach, tarn off task to r;:-!I"
~I
Initiate, tOrD on lttacb
flaq and return (to OPlS) •
!:b:~:i:s::::~:l::
reset
pr09ress' flag.
'fC.-rE
'fC't'f1!l
IYen leBA
IPL
!IPU!O
1
IT>@!
:)
CBlBT: WIPOOOOl
PAGB 3 OP 6
output
I
'~>
f16/,'
61
r
'I'C1"!'1:
TCT1!I:IC1P
TC'I'1IILBP
TCT1!It.W'l"
If logical record
'l'C'I'1!ILROP
presentation was requested
TCTXLRPP
by task,. tree I/o-area of
iapat aait (LtDl), reset
1~>0
address and offset fields,
1'CY!:ICD'!'
'Deblocking' IlCU ... ",' flag'
'l'CY!IBCS:
and all deblockinq request
'fCT'BBSP!
aad statas flags.
Tcn'DB
"~lIIC:'.
'fC'fT'!S'
'I'C'I''BDI!l
~nn
'I'C'I'E'I'ZII
TC'I'EIltP
~ZI."
TCT'!'ftBI
..,.,tl.~
'0"-
@]
"if
!'Cf'I'E .ill be ~a1.e~ to
ari .. tile tttacil .o~lle for 1!I!15.
DnZlT!'
~I~I
Te'D·'"~I'·~·"
. '.'0
I
.ot.ee:
i
-
I-~
1.0 ...1
let
----
I
I
Section 2:
Method of Operatibn
185
LICENSED MATERIAL
PROPERTY OF IBM
cn!'!',
peoeessiul}
Input
PAG'!
Oatpat
811'00001
• O'
fi
If outboand processinq
chain state is set, qaeue
TC'l"'f,! on If'ACP chain.
TC'rn
r.;]
('fC'l'BAU
~l, 0
====_1--./
I
:)1.5
0~> @l
.:..:.c;:,---'f>0
,-___...,..L,
(!'C'l'BIUe
If
tast ranainC) on a BLl)
tar.tuates Doraally,
indicate to Send rout ine
-=:::::==~'\
--:01
If there is a write. the
~)r.1
@]~)
Send routine is callail
unless ter.inal 1s out of
serYiee, then orc,.,.! is
chain.a.
--',
1-,/00--. 1
~~-.l.,
-,/E!
'l'C'f!tCLO
'l'c'fl!ICn
'l'C'f!ISSQ
I
! 'l'C'fBICO'l'
~I L!Jrp1~)
t.:J
@I~)
r,Q\ If Send was Dot sdccessfal~>101
L:.:J
or if successful bat I/O
t:l
is in proqress or sen" is
L:J
OD, taro on Detach and
return.
!'l'C'fnCR2
fil=::>
iC:riiPiA
"Hi"
ht",k (OrRZD!'l't
Diaqr. . - 1.5.11.1.16-01
--------------lot.••
loutine
L.hel
---------- ------ ---
{!!]
•• e. eCl'or eq4. X"C· •
@J
110,. .. 1 terat •• tlon ot a task
r • .,Dtn" 01 • ItU 1. Indicated by
Yr.tBlJlb belnq B.t:
-
ler
lotes
Label
eer
--- ---
or,.
@!
S.Dd
~
"he '!'C1''i'! will be chin_d.
',nc o,!'Irl.
~ ;:~ 11
D'HZ5D9
TCZD"'r~n
I
186
Routine
Db,r •• - 1.5.".1."-0'
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
Inpat
If In Bracket State. set
~nd Bracket. Send Data.
and Send Actiyate flags ..
Jf
DO
Write iD
t'en.
and
I
~>rp1
TC"'I'B
[;:cm~
:>
k. otherwise, set Detacll
.---_--.1,
.
1--./0fi1==') @]
ITmma
I TCTUDa
I
I.::J'
flag.
If there is aD ftl't. or a
noa, frae the •• •• d s'wn
Reset co.pletioD.
.ode indicators.
Task Datach (DP'RZDE'f1
r..
l!J
r.-:i'>f1iI
TenB 1s DOt. sclled.leil fort:.:..;,
109 or WACP. or not
already OD ODe of the
sTste. ser.ice qaeues. and
if a reSPODfii8 is not
awaited, check bracket
state.
Rates
CIII .... : .JPOO001
nCB ~DP 6
Oat pat
V
---..I\.@I0--"
--'1 I Q R--.I
ITcaSCSl
---')r.1
t.!J
T
~====~"
i
I
n109''' -
Routine
Label
.ef
---- ---
lot.es
Roatine
Label
Method of Operation
Ref
--- --- ---
Section 2:
1.~.11.1.16-D5
187
LICENSED MATERIAL -- PROPERTY OF IBM
ProcessiDCJ
'lC""
r.al
tITC~TE!R~O~S~'l~I~1====~:> ~
out.put
~.
If DOt. in Conti~ae In,
~)I"iIfi1~}
aode, set. Continue In, in
~ L.:J
'lCTT!!
ITCTI!ISBR
'rC'l"l''B and call BBSE'!S ••
II
lr:''I'C~TE=I'''n=-=R---'!~>0
l'lcTRIcn
l. If ·not. s.accessful.
retarn to caller.
[TCT==EI:-:C::::Rl;--'I~1 >[!]0~) @]
If Release request. .ss
beeD. rece! yed and "'1'1 1s
'rCI
Dot scheduled, II. CLSDs,;'.
request is seheaule4.
ri'-Cl-'rP-R~S--'I~>[!J
If allY Acti't'ate bit.s are
OD, ada 'rCT'l'1t 't{) lctl ••t.e
chain.
'ltestore rpg isters an a
ret.ara ria Iep.
Tast Det.ach (D'P'RZDB'I')
lotes
[ill
IB5ftSlt .oct_Ie.
Diagra. - 1.5.11.1.1&-06
Bout iDe
DnzasT
Label
lef
--- ---
lotes
Bootiae
1.S.11
.1.21
Label
lef
--- ---
Register 1'5 viII coataln 2eros
if" raset was aaeeessfal.
@} DFRIcP TTn-Un'
-
Ta.' Det.... (DPBSDIITI
188
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
Page 1 of 12
.
INPUT
~
... .
HIP00001:
TCTFX
El
§]
TCTTE
I
I
r
I
TCTENIBA
TCTEIICP
I
>~
I
> §J
TCTERPLA
RPL
RPLACTIV
I
OUTPUT
PROCESS
Save caller's environment via DFHTOPSV and Set on
'Send DFSYN' Request bit.
==r
TCTEICSS
Issue OF HZI A (trace) macro instruction.
Determine if further 'sends' are to be suppressed.
A. If so, set errors code/put to NACP queue, and
exit.
~
If an incomplete chain is in progress, branch to
chain logic to continue chain.
Determine the RPl status.
~
A.
If no APL present, and a data send is requested,
set error code, put to NAC? queue, and exit.
8.
If no RPL present, and a command send is
requested, queue an RPL g€tmain request and
exit.
Diagram· 1.5.11.1.17-01
Send DFSYN (DFHZSDS)
NOTES
§]
ROUTINE
If an incomplete chain is in progress, we
must finish the sending of that message
before allowing any other task to gain
control.
LABEL
REFERENCE
ROUTINE
LABEL
REFERENCE
TCZSDS02
Diagram· 1.5.11.1. 17·01
Send OFSYN (DFHZSDSI
Section 2:
NOTES
Method of Operation
189
LICENSED MATERIAL -
PROPERTY OF IBM
Poge2of 12
PROCESS
INPUT
C.
TCTTE
r
TCTEIRRN
TCTEIFME
I
>
OUTPUT
If an RPL is present, but active, set error code.
put to NACP queue, and exit.
.Check for outstanding responses.
DFHZSDR
1.5.11.1.15
r
TCTESCMI
TCTEWDAI
I
>
Determine the type of send request.
A.
B.
If command. branch to command logic.
If not data, set error code, put to NACP queue,
and exit.
Check terminal characteristics and status.
I
TCTTETS
TCTEIESS
I
A.
If 'read only' and not stand alone end bracket,
set erro~ code. put to NACP queue, and exit.
Diagram· 1.5.11.1.17·02
Send DFSYN (DFHZSDSI
NOTES
~
Upon return from DFHZSDR. the
ROUTINE
LABEL
REFERENCE
NOTES
ROUTINE
LABEL
REFERENCE
TCZSDS06
completion coda is checked to see if the
'send' was successful. If it was not,
DFHZSOS will be exited. The failure will
have been.noted In DFHZSDR.
Di8!J'arTl·1.5.11.1.17-02
. Send DFSYN (DFHZSDS)
190
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
Page 3 of 12
OUTPUT
PROCESS
INPUT
I
TCTEIOCT
TCTEIESS
I
B.
C.
~
TCTTE
I
TCTEIBPE
TCTEIINB
TCTEIBBP
I
I
I
====>
If CLSD5T scheduled and stand alone end
bracket to be sent, reset status and request
bits, and exit.
TCTTE
Determine bracket protocol requirements.
A.
11 brackets are required, we are not 'in bracket',
nor are we 'between brackets/begin bracket
pending', set error code, put to NACP queue,
and exit.
RPL
B.
I
If CLSDST scheduled and not stand alone end
bracket set error code, put to NACP queue, and
exit.
TCTESQOP
TCTEM1F
TOTEX
TCTVFMEF
I
If brackets are required, and we are not 'INS',
but are 'BETS/BSP', reset bracket flags.
Anticipate the beginning sequence numbers of the
TCTESQSC
chain.
I
I
RPLRH3
Determine requested response level.
TCTEIPRA
RPL
RPLVTFL2
Diagram~
Send DFSYN (DFHZ5DS)
ROUTINE
NOTES
G
LABEL
REFERENCE
NOTES
ROUTINE
LABEL
1.5.11.1.17·03
REFERENCE
Response level will be one of the following
four combinations:
DBF/FME
DCFiRRN
EX/FMC
EX/RRN
Diagram - 1.5.11.1.17-03
Send DFSYN IDFHZSDSI
Section 2:
Method of Operation
191
LICENSED MATERIAL -- PROPERTY OF IBM
Page 4 of 12
OUTPUT
PROCESS
INPUT
TCTTE
I
I
TCTEMIF
TCTTECA
TCTEIESS
:> GJ
I
@]
I
0:=>
Determine CNCS mode.
c:::::::0
Determine
A
jf
f;
sending r;. stand alone end bracket.
If so, set status to request bits and branch to
issue the send.
TCnE
TCTEMOST
TCTEIBBS
TcnE
I
TCTETOST
~
I
Determine characteristics if this is a 3270 data stream.
TCnE
I
TcnEEUB
I
:>
A.
I
I
:>
B.
TCTTEPRT
I
TCTEIFPO
I
:> GiJ
If BAU code:
If 3270 print code:
Jb
TCTEIPRA
RPL
RPLVTFL2
~
and branch to issue the send.
:>
Determine if FMH present.
RPLOPTl2
[il2'ZZ>
Diagram - 1.5.11.1.17-04
Send OFSYN IOFHZSOSI
NOTES
ROUTINE
LABEL
REFERENCE
NOTES
ROUTINE
REFERENCE
Diagram-l.5.11.1.17-Q4
Send OFSYN IOFHZSOSI
192
LABEL
CICS/OS/VS P.rogram Logic:
Description
LICENSED MATERIAL -
PROPERTY OF IBM
Page50f 12
OUTPUT
PROCESS
INPUT
I
TCTEILST
TCTEIOWO
TCTTECA
I
I
TCTEIBPE
TCTTEOCV
I
>~
>
I
>
I
Determine if task is ended or will be ended with this
'send',
A-
B.
If yes, and bracket protocol enforced. set status
bits and then branch to 'send:.
If no, and this is a converse request, set status
bit.
Ilk
I
RPLRH3
I
TCTTE
I
TCTEIEBS
I
l?224>{!]
TCTTE
\
TCEOAL
'\
TCTEPFT
TCTTEDA
TCTETDST
RPL
I
RPLDPT12
I
d~
[EJ
Analyze TIOA and message lengths.
A-
If TIOA size less than message size, set error code,
put to NACP queue, and exit.
TIOA
I
TIOASAL
TIOATDL
B.
11-
If not 'pipeline' and chaining allowed. but m~
too long for device, branch to chaining logic.
Diagram· 1.5.11.1.17-05
Send DFSYN IDFHZSDSI
ROUTINE
NOTES
EI
If chaining not allowed by the user (TCT
parn BUFFER:O)' the user accepts the
responsibility for ensuring that the message
will fit the device to which it will be sent.
LABEL
REFERENCE
ROUTINE
LABEL
REFERENCE
TCZSDS2B
Diagram-l.6.1'.1.17-05
Send DFSYN IDFHZSDSI
Section 2:
NOTES
Method of Operation
193
LICENSED MATERIAL ' - PROPERTY OF IBM
Page 6 of 12
INPUT
OUTPUT
PROCESS
TCTTE
I
TCTEPTR
~
I
~
I
TCTEIESS
Determine if message to be sent synch or asynch.
RPL
A.
Synchronously.
:>
B.
Asynchronously.
>
and if not sending a stand
I
~
>
Initialize common RPL fields
alon~
RPLCNTSC
RPLYTFL2
RPLCNTDF
RPLCHN
RPLSRTYP
end bracket.
Remove the TCTTE from the activate Queue.
~
.",
I
I
User Exit optional
I
Oiagram·'.5.1'.1.17·06
Send DFSYN (DFHZSDS)
NOTES
ROUTINE
LABEL
REFERENCE
NOTES
ROUTINE
REFERENCE
.Diagram - 1.5.11.1.17-06
Send DFSYN (DFHZSDSI
194
LABEL
CICS/OS/VS Program LOgic:
Description
LICENSED MATERIAL -
PROPERTY OF IBM
Pogo 7 of 12
OUTPUT
PROCESS
INPUT
=====>
Issue the VTAM 'send' macro instruction after
indicating that 'data in progress'.
VTAM
I
Send RPL-{RPLBARI
A
TCTTE
TCTEIOIP
I
I
======>
If completes unsuccessfullV. check reason:
• DEBAD/SYNAD handled error, so return to
caller.
·Handle own errors, so put to activate chain, and
exit.
_ VTAM is dead, so put to NACP queue, and
exiL
Determine completion processing which should be
performed
A.
If send was asynchronous, return to caller.
Diagram-1.5.1'.1.17-07
Send OFSYN {OFHZSOSI
ROUTINE
NOTES
~
LABEL
REFERENCE
NOTES
ROUTINE
LABEL
REFERENCE
TCZSIDS2B
If the send was made svnchronously.
control returns immediately after VTAM
accepts the request. If asynchronously,
control returns after activation of the
RPL exit IDFHZSDXI,
If authorized path SRe support is being
OFHZHPSR
1.5.11.1.37
used. this invokes the RPL service routine
to interface to VTAM synchronously.
Diagr~m-l.5.11.1.17.07
Send OFSYN {OFHZSOSI
Section 2:
Method of Operation
195
LICENSED MATERIAL -- PROPERTY OF IBM
Page80f 12
OUTPUT
PROCESS
INPUT
TCTTE
RPL
I
RPLSEONO
B.
I
If send was synchronous, and definite
TCTESOOP
responses requested, return to caller.
C.
If send was synchronous, and exception responses
TCTTENO
TCTEIDIP
TCTEICSS
TCTEWDAI
TCTTEWR
TCTTEOCV
TCTTERR
TCTEIDWP
TCTEILST
TCTEIESS
TCTEIFPD
TCTEVTC
TCTEVLDC
requested, update statistics and reset status and
request bits before exit.
:>
1. If end bracket was sent.
TCTTE
I
TCTTESTS
TCTTEDA
TCTEICER
TCTEFMSA
J
:>
2. If TI OA to be freed
I
CICS STORAGE
CONTROL
DFHSC
TYPE=FREEMAIN
I
J
1
TCA
TCASCSA
Diagram - 1.5.11.1.17-08
Send DFSYN IDFHZSDSI
NOTES
[E]
If send was asynchronous, completion
processing will be determined in the RPL-
ROUTINE
LABEL
REFERENCE
NOTES
ROUTINE
LABEL
REFERENCE
TCZSDS30
exit (OFHZSDX). 1f send was synchronous
and definite responses requested, completion
will be determined in the Response Exit
IDFHZRPXI.
Diagram· 1.5.11.1.17-08
Send DFSYN IDFHZSDSI
196
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
P...,9of12
INPUT
OUTPUT
PROCESS
CHAINED OUTPUT
TCTTE
TCTTE
I
TCTEOAL
:> [E]
I
~
[ill
Initialize the variable RPL fields.
16
I
:>
-
Initialize the static RPL fields.
·.
I User Exit optional
VTAM
A.
RPLVTFL2\
RPLCHN
RPLAREA
RPLRLEN
RPLOPT'
RPLCNTSC
RPLVTFD2
RPLCNTDF
RPLSRTYP
RPLECB
J
RPLEXTDl
:>
Issue the VTAM 'send' macro instruction after
SEND RPL-IRPDBARJ
I
RPL
I
indicating that 'data in progress',
·. I
TCTEIIOP
TCTTE
I
TCTEIDIP
I
I
I
If completes unsuccessfully, check reason:
· OEBAD/SVNAD handled error, so return to
caller.
. Handle own errors, so put to activate chain, and
exit.
. VTAM is dead, so put to NACP queue, and exit.
Diagram· 1.5.11.1.17-09
Send DFSYN IDFHZSDSJ
NOTES
@D
ROUTINE
If authorized path SAB support is being used DFHZHPSR
LABEL
REFERENCE
NOTES
ROUTINE
LABEL
REFERENCE
1.5.11.1.37
this invokes the RPL service routine to
interface to VT AM synchrouously.
Diagram· 1.5.11.1.17-09
Send DFSYN IDFHZSDSJ
Section 2:
Method of Operation
197
LICENSED MATERIAL -
PROPERTY OF IBM
PiIt lOotf 12
OUTPUT
PROCESS
INPUT
CHAI NED OUTPUT:
Determine jf may continue with next element of chain
or if must give up control.
TcnE
I TCTEIOST, I
I
TCTEIOIP
>-
I
>0
TCTEOAL
TCnEOA
TCTEIFRO
TCTETOST
TCTEMIR
A
If last of chain sent, go to analyze completion.
8.
If data is till In progress, return to caller.
Reinitialize RPL and TCTTE fields for sending of
next element of chain. Then branch to processing
step 24 and issue the send.
TCTTE
1====::::::>
TIOA
RPL
TIOATDL
TIOAOEA
TIOAWOI
RPLRLEN
RPLAREA
RPLVTF12
RPLCHN
RPLRH3
RPLOPT12
I
Olagr.m·I.6.11.1.17·1~
Send OFSYN (OFHZSOS)
NOTES
~
A.
If data is still in progress, the previous
'send' has not yet completed. Control
ROUTINE
LABEL
REFERENCE
NOTES
ROUTINE
LABEL
REFERENCE
TCZSOS46
will be returned so that other work
unaffected by 'data in progress' may be
done. The RPL exit (DFHZSDX) will
set up for an asynch return of control
to finish sending the chain.
Send OFSYN iOFHZSOS)
198
.plagram.l.6.11.1.17·IO
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
Page 11 of 12
OUTPUT
PROCESS
INPUT
COMMANO SEND:
TCTIE
TCTIE
>[iI
TCEIOCM
TCTEIHOS
TCTEICNC
TCTEICHS
TCTEICBD
TCTEILUS
I
TCTEVSDA
I
Determine command type to be sent.
A.
Quiesce complete
B.
Cancel
C.
Chase
D.
Bid
E.
DU Status
lC
TCTEICIP
I
RPLSRTYP
I
SI
I
RPLCNTDE
I
lE
I
I
RPL
RPLCNTDC
RPLOSENS
TCTEVSDA
I
Diagram. 1.5.11.1.17-11
ROUTINE
LABEL
REFERENCE
NOTES
ROUTINE
LABEL
REFERENCE
Diagram - 1.5.11.1.17-11
Send DFSYN (DFHZSDSI
Section 2:
I
I
TCTIE
I
Send DFSYN (DFHZSDSI
NOTES
I
I
Method of Operation
199
LICENSED MATERIAL -
PROPERTY OF IBM
Page 12 of 12
OUTPUT
PROCESS
INPUT
COMMAND SEND'
[EJ
Initialize RPL fields necessary to issue 'send',
~
Remove the TCTTE from the activate queue.
~
Issue the VTAM 'send' macro instruction.
VTAM
r
SEND RPL={RPLBAA)
A.
TCTTE
>~
TeTEIOeM
RPL
>
RPLECB
RPLOPT1
RPLEXTD1
RPLVFL2
RPLSRTYP
I
I
If completes unsuccessfully, see notes at
processing step 21.
TCTTE
>
If command sent was for a 'quiesce complete', set
flag which indicates that CICS is quiesced.
TCEIHQS
Diagram· 1.5.11.1.17-12
Send DFSYN IDFHZSDSI
NOTES
ROUTINE
LABEL
REFERENCE
NOTES
ROUTINE
REFERENCE
Diagram· 1.5.11.1.17·12
Send DFSYN IDFHZSDSI
200
LABEL
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -
P!GB
r--~---j'''' '~\F"''"
\
--,/ I~~]
T~CTn
..,-, _ _ _ _ _ _
TCTBICTA
I
~1
TCTiGiS-
TC"rIlCID
]
TCiiICii.
I
"! ~
II
I
I
1
!1
I.,- a
-'/
I 11
l!§VACBQ"-J])
1 "
1
u put
:-!I: _- - - - - - - - - - - - - - - - - - - .
fr=:>
establish .ddress.bil1ty.
I f TIOA Genai. is
requested, l.SSIl8 DrBse
.aero load HIOADiO, clear
Get.ai.D flags, length
=-_J I
·1
I J-"I
[
field.
r;;-;'03 If aPL Get.ain is
'reT PIX
PROPERTY OF IBM
--
requested, l.ssue DrHse
macro
--~>
BPt
l.DstructioD, load
RPLBAB, tarainal control.
[~:ATCTBA J~
~
Bestore reg1ster 14.
Baturn vitb a IDR 814 1 •
I
L______~
Gft!lAIH BeqUEst CDPHZGBT)
Hotes
~
.
~-.
- __
I~OUti:I'
Control is rece1"ed fro. yar10US
V'U,! !CP .04ules. nrUZGET
1
treated as a subxoutine, to
Get.aiD storage for TIOA or RPL.
Register 15 .is used as the bas@
regl.ster. Register 0 18 used to
I
loS'
I
'''I~
,"M'
I
save register 1'1. Register 1'1 is
used as a work xegiBter. No
other registers are used, DODe
I
I
______________
Dl.agraa -
~II~
I
II
I
III
I
I
II
II
J
1.5.11.1.18-01·
I
_Bef
II
(
are sa'Yed.
'rast TC'111C!'1.
II
~ If
,CTBlCT-! IGBTftPLGI is HOT on,
1t is assu.ad TC1'B:tCBP IS all
(RfL Get.ain) •
Beturn to caller.
al'fIIII .equest (D1BZGB'fJ
Section 2:
Method of Operation
:I
U<. - - - - - - - - ~ D1~; ·=g=r.: .~-~l-.
5:;-".11.1.11-01
201
LICENSED -MATERIAL -
PROPERTY OF IBM
.
.
.
l
XDpat.
~;~,
g
i,rocess1D
t:,••• 1 >
-~/ I ~
!c[§§~TB-.._I______.. ,Jf021
TCTlep! -
'-I------,/jl::J
WC~""IcftrSls
......
_
Bstablish addressability.
If 'reeaal.D All flag is
on, issue a DPBse
.aero
1."71.
L-==~>Il@]
j
II'
1
--------.'
_ _ _ _ _ _. \
l.Dstruct10n.
Tarn
off flag.
I
!
TC'l'BIBPLI---. L ___ ---' \
"Ll
T-=-T .. r
1 OF
FBBE'UIR, RELEASB=ALL
I
1
=l
PAGE
OUtput
L _ _ _ _ _, /
fQ"41
l:21
I f .. e .. Un specific flag
is on, 1S8ue a DrUSe
PREEftAIN .aero
:~
--rr=:>
1Dstruction. Turn oft
flag.
Zero TCTEPaSA.
If Pree.ain 8PL flag is
----..rr=:>
OD, issue a DraSe 1828"&11
-
.acro instruction. Turn
off flag. Zero TCTERPLA.
[!CTRICPU..,. L--=~)I ~ Turn off 'ree.ain flag.
Restore register 1 q.
I
Return with a 'DB 814 1 •
ttA
I
L________----'
~_~~~=~--_-J
Pree.ain Request (DP8ZPRB,I
I
R:~~:I L'be-l-I-~ fNote.
Botes
-- ---I-I--II---~I
!I
Dsa register 15 as base
register •. Save reg1Ster 14 io
register O. Ose register ,.. as
work register. No otbe r
registers are used, none are
sa ...ed.
Control is received fro. variolls
'Tift TCP aodules. D,aZrSE is
treated as a subroutine to free
storage.
~---~
Disgr. . - 1.5. 11.1.19-01
I
Routinel Label
I
Ret
1--- - - - -
I
-
II
II
~. After 'reeaain All flag is
processed, continue with step 3.
After Pree.ain SpeC1fic flag is
processed, continue with step 4.
II
~ After 'ree.ain RPL is processed,
continue vi th step 5.
§]
aeturn to caller.
II
'Eee••:L•
202
••
,u••
t
(DPRZI'BB)
,~,JL
Diagru - 1.5." .1.19-01
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -
PROPERTY OF IBM
PAG!
1 0.
Locat.e fer.inal
[iiiaij;ei;;q;;;~
B·'~t~I.:~~1
. D1agraa -
Section 2:
Method of Operation
'.5~1'.'.40..,.('1
203
LICENSED MATERIAL -- PROPERTY OF IBM
FAGE
------''
1
iC~PTA-J :=~-----'I
1 Of
[~~] Validate address.
[----- I
I
(j~~!~~J ==]1
It====::::) ~]
~~]
I====--=:>
I
I
Locate terminal entry.
:::~ )[i]
Analyze reguest.
----', r.l
I -
T"l~~
A. Sync
I
,
[ ----~
•••• , >
B. Locate or
Locat~LOC
----,1
1.5. n.
10.7
'.2
[ ----~'
•••• , >
I,.
----,1
~.11.
1.2
0.3
I
_____________________________ .J
ADalyze i(e'luest LocatE
~l'erll1inal
Entry
(DfbTCP)
[~~;;;~;;-:;;;;;;~--r:-:--~~;:I~-;;;-- P::;-::::::::::===--=-:::::F=~::;l: ~::~~~I
~nstruction
I ' ,I
I
I
I
aacro
Status or
bJ DPH'£C
Locate,
~
A'l~,
1
for
sync~
ITCZLOCPR
Ii this terunal reguest is
Pirst or ID the address is
II
val~dat~d.
If toe terminal
re~
uest is for
I
I
I
Tez LOCLL
J.D, the TeTl't; ).5 J:ollDd using tne
DPl:ihAStt
I
laacro instruction.
It the reyue.st is 1.llvalid, the
tDe TCA ..
I
1/
,
II
II'
I
II
TCZLOCAR
invalid re'!luf;:st Dit is turned on
~n
I,
,
,
I
I
1
I
/
I
I
I
I
i
I
I
I
I
/
I
I
I I
I I I
II
I
I I I
'Iii I i
I ! -_____li______I
JIL_________________________ ~__________
I
I
L ______________L____ I
l
...!.__________
laal.,yze
204
.f(e~uest
iDcate Terminal lintry
(DF!:ITCP)
Dia3'ram -
CICS/OS/VS Program Logic:
1.5.11. L2C.l-01
Description
LICENSED MATERIAL -
l~~~
PROPERTY OF IBM
HGI
2 01'
r------------------------l
___________ _
output
C. All
D.
---',\ >
r=••••
---,1
status
1.~.
\ O••
11.'.2
[----'
•••• , \ >
E. In valid request
Bestor:e re;isters and
return to caller.
I,.
---"':"1.1
5.11.1.2
0.5
==::; )[~]
I
i
I
1
I
i
l
I
I
1
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
1I
I
!I
I
I
I
I
I
I
I
L______________J
~
__________________:.~~:I_~~tel __:~__
~ Input .r.or ·tnis step is from
TCZ10CBT
I
I
I
I
I
I
i
L ______________________________ J
1
1~S.".1.2C.l-02
Diagram -
-------------------------------------------------,
Wotes
I Routin,,! tatl;l I
I
--------------------------------1-------1--------1------I
I
I
I
I
charts 1.5.11.1.20.7,
1.5.11.1.20.", 1.5.11.1.20.3,
1.S.11.1 • .:tO.5,I.S.I'.1.20.b
-q,:t
1
I
I
I
I
1
I
I
I
I
I
1
1
I
I
I
I
I
II
1
I
I
I
I
I
I
I
I
1
I
I
I
I
I
I
I
:I
I
I
I
I
I
II
I
I
I
I
I
I
I
I
I
I
I
I
I
\
I
I
I
I
I
I
I
I
1
I
I
I
1
!
I
I
I
I
I
I
1
I
1
I
II
I
I
I
I
I
I
I
I
I
L_______________~_________J
AD.al.yze Re1
DPRSLDC
IcsncTBI
[
) '!'CT PrefiE
!TCTYSL.C
SLDC""
TCA
..I
I TC.T.CS'
processing
.. s.... :o..
ffi::1,
r;;";l
!--,-L --.. -----,--)
8rn:;l
••••
~/
>
r-'-------------> ~
output
:~:::::;::::.:::: JI
cbanqe status to Paqe or
r
CRABT: HIPO'OO,
P~G'E
1 OP ,
TCA
.
Autopage.
~
Chanqe the paging status.
=,====~:>
I
E.... ·i~l
.',1
'.5. 11 ••• 20. 1
L
tDe
p~a-q-.~S~t.~t~u-.~(~n'~H~T~C~p~)-------J
Boutine
Wat.es
~
@]
Dlaqra. -
not found in the
table. retarn _itll 1nuita LDC
retarD code.
I f tDe is
If Statas is· not Psq. or
DPRZLOC
Label
Ref
---- ----TCZLOCDC
IIotes
ROQtine
'.~.11.
1.20.2-01
Label
.of
------------------------ --- ---- -----
TC2:[OCDt
TCZtOCDl"
.etopaqe return with Inyalid
reqaest error co~e.
~
Set. LDe St.tU8 to page or
... top_g ••.
,
Lite Pa •
206
~t.t ••
'I'CZLOCDP
TC!tOCDA
-
(0 P H'rCP)
CICS/OS/VSProgram Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
'IDpat
1.5.11.1.20.1
.
Cst
'fel
JCSnC'rBI
\'rCI'rPOS1
,
~ §J
1------------->
•••• ,/>
Detar.be if Locata-tDC:
[
'l'C'r PraflE
I. If lIo--retan.
~---->
>\IC'rtSLDC
l!CIULD'
@]
1---->0
I····:~~
Pat. !lef•• 1 t 811H10aic
elilanet..,r ill yca if
req •• stel.
I,01
~=:)
'fel
\'l'CI'rPl.D'
I'fe1'rPl. IX:
,
I---->(!J
ICI----> ~
L:J
ITC'l'ELLDC
[
: : : :. rI90--'
Sea. local toe list. or
bt. ... ".1 Local LDC list
for a ate..
aat.ry.
i.,
>OPBt.LOC
<=\L""LOC=C=O,.--"---->0
DPftSLDC
'->ISLIX:RU
I
Pub LDC code ia. "!'Ca.
I!;J
~----> §]
~
I---->~
=:)~
I'"SL::'CIX:=co,.--,J-->
'
B B____ >@J
ScaD
I'
\ 'rCI'rPl.OI
syste. tDC table for
a ••telllDq entry.
Replace LDC code ill yea
'rca coda is Zero.
P1It LDC entry address iD
'rCI.
1ft>@]
'I
~
.!-.,
, 1····1 )
~I
.
a:~·11.1.2
Locate aaa Locate-LDC ,DPB"!'C')
lI'ot.••
. Dlaqr •• - 1.... 11.1.20.3-01
Boatine
~
If Dot aa LDC reqae.t or not a
''rIll tera,iaal clear t ••
associat.a 'PC" fi.14s aDd
raturll.
§)
If I IJ)Cs .. r. Dot supportaa by the
teralDal, retarD.
§]
I"f 80· aatela is fo •• a, retarD.
DPBZLOC
~I~
'fCSLOCLD
loatl ••
Label
aef
--- ---
'rCILOCLL
~
'rClLOCLS
~ If 80 ~at.c", taurD.
'rClLOCSL
.§J
'rClLOCL1:
~
'rClLOCS
......'" •• 1 ""',",.-tlll: ....'rCft
Section 2:
lI'otes
Method of Operation
-
..
Dt.,r•• -.,. So 11.,.10.... '
207
LICENSED MATERIAL -- PROPERTY OF IBM
r···
----ll.S.l1.[;;::
"-~-----l
!
····1 )
I
---, /
I
.
§]
Set
t ille
control
.ransaction flag.
II
Output
----:------~------------,
,I
-r--~
r;;;;;;;;j
l.:..----l~ l
,
I
-----::::::1
,
L. . ,
-1/
/
V
I
1.5.11.1.20.6
I
I
I
,I
I
I
I,
I
I
I
I
II
I,
I1
!
L__________
~U
\OhTCPl
Notes
§l
Bo I1t~ De
DPHZLOC
._----------
l_______________________J
----
--------------------'------1
La bel
Bef
TCZLOCSR
. ..
D18grl!I" '.5.'1. 1.2C.Q-01
-:~:~----------------- ~.~~~! -~:~:~--I-::~--!
I I
I
I
I
1
I
1
1
!I
!
I
i
I
,
I I
1
1
1
1
I
I
I
j
1
I
1
1
I I
1
I
I
I
I
I
I1
I
-----------------------tDPU:ICPJ"
·L'
All.
208
1
i
I
I
I
1,
I
II
- - - - - - - - - - - - - - -_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ .J
Dia;ram'"
CICS/OS/VS Program Logic:
1.5.~1.1.20.~-Ol
Pescription
LICENSED MATERIAL -- PROPERTY OF IBM
I
proceSSiD~;:g~
Input
'jl.~.
_ _ _ __
E~/11n.l
TCA
or
2
tc'l'lE
1
I
1
--
,
L.~-C-l-TP-r-s-......,--'1f-----~>! ~
TCITPIfOP
I
r ITeTtBTA
TCAfPTA ~~r-----::::)18 Process Ser'l1Ce status
TC'TPCS~
TCA7PSAT
fAU
output
11.1 .• 0. I
r:L-,\ I
I
I
I
ITCl1PIH~
A. In •• rnce
B. Out of sern,ce
Proce •• processing status
-====:lL!:::>
A. 'l'rallsactl.oa
,B.
!
====::::=~> I@J
I
teUB
irT-C-T..:I'-.-U-.-.,J---------~>
.
TranSC&1'99
c. Input
D.
Receive
E.
Ho Poll
Process paging status
A. page
B. Autopage
fMl
L~ Deter.1ne if vrAn
terai.Dlll.
L.~----I
L
.------------------1---'1
I
I_No_t_e_s_ _ _ _ _ _ _ _ _ _ _ _ _ _ _
§]
1
II
I
II
,
!
I I
II ! I IIII
CPHZLOC ITCZLOCSR
l~mn2 I
'fCTBBPR
J
TCTBYICCT
IJ.5. II. 1.2
~~-~
D1agraa ... 1.5.11.1.20.5-01
__
r---------------~---:----;-~
J~::~I_~~I~~lI
I
L
_,1
!
0=:>
E~l>
A. If Don-V TAli
Status (DPHTCPJ
~>0
Notes
I
l~:~~ ~~
~
ITCZLOCS.'
I f the paging status 15 changed
::;:e.erse status bit is turDea
Control returDS if the teroinal
is not a 'TAft taraiDal.
!TCZLOc"l
I
I
ITCZLOCH
I
I
I
II
I
II
II
Jl,_
Status IDraTe.)
Section 2:
II
Method of Operation
. oiagraa - 1.5.11.1.20.5-01
209
LICENSED MATERIAL -
PROPERTY OF IBM
F-'I
I
IDpot
ijH3i~28 11
====~> @] ::::e::~OSS aegum
•
l!CUP8S
PlGI
OUtput
2.0.
2
:~I >0
. A. Cold
___
l§~Q71_L-- ~> ~ Process release request
~>0
I
E~:l
',I
1.5.11.1.20 ••
Statu.
(D'BTCP)
Iotas
L_~
Dlagraa - 1.5.11.1.20.5-02
,__~__________________ ~:.tln.l~ ~lr-!-No-t-.-.-_~.~~~~~~~~:~~~~~:~:~~~~::~~~~~~~_--R_O_:_'1_n~.~-L_:-_b-_.~_--_~--_R~_---f_
!I
I
~ tbe .e"dull! 1. scheduled for a
SULOGCI.
II
If cold the prey10us ABBRD and
aeSYDC requ1re4 bits are reset.
fib. ter.inal 1s sc:bedliled for a
CLSDSI', aDa aDY task. attached 1s
scb_dulea to be abnor.ally
tar.inatea.
TCZLOCRL
I'
It' .ore thin one function within
a category 1s c1.etected lsuch as
transeai •• , input) control
retarDS to tbe caller Vl.th an
1n"'114 request lndicatea 1n tbe
return code.
I
.ta... CDl'I!CI)
210
.~~I_________~~~~~~
n.
Dl.agua - 1. S.
CICS/OS/VS Program Logic:
1. 2 O. 5-02
Description
LICENSED MATERIAL -
PROPERTY OF IBM
CRAB'I: HtHeetl
P.Loc';5~illj
.U't'yt
r------------------------l':~: II~~: jg: ~
I,
output
r-----------------------------
I :~;-;~ \11[--)
.CU.
[~~~.!~~~=I:::===:::~)l ~~
PAGE
1 OJ
1
--------------------------------
I
I
II
c ___ , /
Detel;'lIIine if 91A" terminal
A. H
<--------1J--------·'I' ro~]
l~;:~::.._I--------'/ l:_
I'
1
I
I
I
bit u
required.
clctivatf! bit i f required
Il":"1ri::"U!)~
a.nd it quiesce at End of
I
I
I
,",USH.
l ------
II
ri~l.Ac':;-F=-1
1
VUH. sot All activate
1"-------1------------"
-!---~-----'" 'I (OJ]
I
t 'It.,;'l.t:~'o!Ct'
, ... :.:tU.TS
I .L~Lr.E.)Al·
I
U
non-VTAPI termi oal.
Set.
release quiesce
chaiu
~]
=iet
[ ~~~~I'>
----,1
r-
~.1I.1.2
--~~~------"
-r-----------'I
--__-.,',
::::::::::,.~
L-
(OEC) is sUHorted.
UI$C
activate tit if
J,--"
:::::=---~--,I
m~~~LJ ,1 1------', @ ~ = ~b] :::~:::::::,::,:·:.:: ldl~)'
fiCiiICSi-]
r.;:,:ECSA
...
on the activatE chain.
"
II
Put an out-af-service
terllinal OD the acti vat.e
------'11
Chdiu oDly, if any
I
I
I
;activate tit is set ..
I
I
[~~~~;-;~TI
F:~~~~~·20.
L_J L_________J
CtL<:U.11
AlIa.1i~.6:i
lJj"bi~f)
At!Ctol.VU-OIl.Lj
~'::DttC.L
::it.dt.U~
I
Diagral! -
1.5 .. 11.1.2C.b-Cl
and nut.
t.neu Ie tUlliS to tat!
I
I
L
____________________-.lI____JI_________ _
I
I I
I
---------------------------------Di;g~_;;-:-,:~:l1:i:~c:;;:c,
Section 2:
Method of Operation
211
LICENSED MATERIAL IDpat
PROPERTY OF IBM
r-'." ~:
I
PAGB
OUtput
I 0'
I
'hrocesS1D9
____ t:.:=.:..:,>
__
~> ~ If there is II deferrEd
I
IIrite, or aUf IIrl.te, call
routine.
Send DPSY.
~ If logging is supported
and the node is 111
posit1ge response 1I0de, a
IfAIT 1S 1ssued and the
'!eTTB 1s added to the log
chain.
I
SIDC IDFBrCPJ
LJ
D1&gra. - 1.5.11.1.20.7-01
Rotes
~ Send Drsy • • odule
II
SJOC (ornePJ
212
"-,-----,----Ut--I_ _~
D1&grao - 1.5.11 MO.1-DI
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
Processing
a~,1
I
I
~·"I
~'l1BS"Z
"I
>1
i
-!,.J------.J\ ~ In1tl.all.ze dedl.cated flPL
TCTTE
T_Tgfl~~r-l-l-r------'/
~
and deter.ine aode
requested.
§iiSiRl.! ====:::;) I
f"n'";1
TC'!TE
~
I
§@~Tll
L __--', t::J
f'()";i
I r------,/
'leTl%.
~~-.
I
I
~~-
I
I1=
1CTPI
TCTVRSiiGl-]-il
-
~
IB1e5giste~]1
-----::::>, ~
L'
-i
BPL
T
~(RPlLOPT51]
I
I
II
invalid, an error code is
set and queued to RACP.
!
I
I
I''-'L~ I,'
'l'CTTE
IL,
1"
lL' ,
RPL for issuing RBSEtSE.
---, I
A
-,1
TC'!TB
/TCTEVBC5
BPL
f71--"
Issue RRSETSB aacro
instruction
Cbeck coopletion code and
take aFprOprl.ate actioD
based OD that code. Also
I
1
~-, 1
I
'BnABG
I
OPLACS
BPLLBH2
RPLOSPLD
,BPLEnD1
--==;1
I
~ L~\
TerrE
L::::; I
return status to original
setting i f not zero. Then
return.
I
t
[~""~:1
~I===~=-_TI_;~"~T'
~
J~~g1ster
____~'
J
Diagraa ... 1.5.11.1.21-01
RRSBTSR(DPBZBS~I
Dotes _ _ _ . _ _ _ _
§
~:.
@]
Set OPL to zeroes.
prefix conta1ns p01nters and
!...'::~:!~=-!...':~
I
ii'
!
@]IssueD'llTcQD!CBAIN'Klcp . .c r o l l l l
1D.structicn to ~lace raTE on
(Error 9:1100.8.j
I
I
till in 'TA!!-required fields.
RESBTSB. changes BOde status
lel-CSI and also purges any
outstanding receives.
I
j
VT18 returns a coaplet10n coda
in register 1S indicating the
success or failure of the
request.
LEBln or SIBAD Day also send a
co.plettoD code.
Since RISB'ISR caa" be linked to
r
a coaplotion code 1s insertod 1n
rogister 15 on exit.
allSftu ID'OZ'Stl
Section 2:
1
"
====;-J
Coaplete settl.Dg UF of tbe----"0
[T~~TlI
aACP cbain.
a'
~ Deter.1De r-tJpe regtlested-----~ - , 1
and set up BPL. If
-I-~ i
-
I
1
======:::"1
--,{,
__ ,/ roil
l:..:J Set up addressab111tJ aDd - : /
soye col.ler's registers.
'tCTPl
TCTYBS AP1
PAGE
OUtput
Method of Operation
I~~:)~:=_'-
I
I
I I
I
\I
I
[Notes _ _ _ _ _ _ _ _ _ _ _
Bef
I
I
I
I
I
~I:
II
I'
II
I
II
I
'I
I
II
II
I II
I~L
~
D1agr ..... 1.5.11.1.21-01
213
LICENSED MATERIAL -'- PROPERTY OF IBM
Processing
PAGB
OUtput
ne'
Setup ad4ressabl1itr. sa"ecaller's registers, and
insure th1.s 18 a .,alia
request.
1 OP
1
"
,
KHI
I
Get an Bi'L 1f one is Dot
ay.Uable. If tbe G!'l'IUII
======:.,
if
request falls, queae a
GB~IIlI. ru.guest.
Beaowe 'l'C!''fB frOB aet.i.yat.e
process cbain, set up BilL,.
and issue CLSDS'f .aero
1Dstruct1on.
CLSDS! Bequest IDPOZCLSJ
~:~1~~11
Iotas
§]
I
Sa ". caller's registers and
.alidate ctSDS'! regaest.
@]
I
Iflth issuraDC8 of tile DUteQUS
CRIII-Or • • aero iustractiOD, the
TC'f'l'B 1s reao•• 4 fro. tJae
acti •• te proc••• cbu.n. Prior to
1ssuing tb. aboy. aero
instraction, the IlL 1.
iuit1allae4 to zeroes br 1.Onl.uq
tb.e O.8lnn sacro .1astract1oa.
I
... ror o,oUU ott_pt ot CLSD!!!
u. ooa.. rt.8O. or t_
uo •• are :tr .. ,. t. •• 'IC'I'n 1.8
, ..... to lac. fer .rr«
process1.,.
of
CL8Sf . .
214
,.8t
I CPIICLS)
-------I~I~~ -~
I
I
I
I
I
~ ft.l8 pee ••• a ccspletioa coa.
back i . register 15. loreal
coapletioD 1. . . . . reg1ater 15 •
zero. If it t.. lIegaut'.,. U.U
or SHaD . . . . .terea 4_ to· ••
error bat ... be. . u.. car.
of. If ~t egals I'ro',. Y'!&8
aper1 •• ua a t ••pc::a.rJ .torag.
probl.•••• a t ... '!'C!I'I U da.a1ae4
------~------~------~-----
lotes
I
I
I
I
I
I
I
II
I
I
I
Diagrao - 1.5.11.1.22-01
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -
I.pat
I
I!C'URPLI
,'C!EID
-,1
!
II LJ
BPL a.llocated, if Dot,
rnt--"
I <
DrOZIS!. It one is not available
aPL storage 1s required.
Proyidin9' the GB'l'fUIR is
successful the lifL is for.atted
for the :(irst 'TAt! request.. If
~t fails, au BEL GFrIlAIli is
gueue4.
~
is the f1rst request
issue4, thus that :r:eguest bit is
turne4 on io' tbe TC1'TB and the.
function perforaea.
eLBA.
~ SBSSIORC is callea lIecause i.t
iss'ues' the Clear request.
and pro't'1de lSI RettlrD
Section 2:
!
RU
RPL1CB
RPL1BG
RPLosrLD
BPLLBI2
1
I
-I
L.::J
Addres ••
1-·1
>
J
f>0
I
Label
r;;:;ll
I
1
IIllHIliI
II
I
I
Ootes
J
I
I
I 1II- --1----
Routine
1.5. 11.1.2j-01
Label
Bet
!I
TCZRSY12
TCZRS!SC
~~~_~_UL
a••!acbronization
,rC!BlCSC
Diagraa -
Routine
se.eral lTAft reqQe:sts issQed 1n
I
::::::>ICI
rurD ott Be.YDc, reguest
Flag Setup, clear request, I
a.sYDcbronization lD,aZRSI)
1n BPL .ust be on .hand for tbe
0::::::> I
I
I ,~, . . "....
[§J
TCT!lSaA
V
'1C'f'fE f1elds.
1/~:l~SBSSIOHC.
Sa". caller's registers in the
'reT pretil:' area.
I'fCTBICLB
--.>0 L!!J--./I
1.01. tializa aPL lind
18
@!1
'rCrBlCRY
,
~I
B. If successful,
I
Iotas
----'\
@]---'I
r.;'1 >[Os1
I
II~
II
('C!BBPLI
BPL~
I
_
TCI
]mSCSl
lssare that. there is an
1. If not possible, set UP::::::)fiJ
TC'r'fB for BPL-GBT!!lI.
L:J
request.
~1]1f1- - , 1
(TCTUCU.
T;..:.;:...C"'_%
with O'O'fCPSf
I
I
'Ill
Sa'fe caller's enYironaent
obtain
.:t
l
I
lli'> §]
'fllI~I@]
>i,-----,PL
1 O.
,
•
!C!'fB
PIGB
C)Qt.put
Proc:ess1Dg
SaiD !Et.r!
PROPERTY OF IBM
lDPHZRS!J
Method of operation
______~~~~
Diagraa - 1.5. H.1.23-01
215
LICENSED MATERIAL -- PROPERTY OF IBM
processing
'Icl.ear
Bntr
y AftEr
----l
'/
,,
,r:L~,
.•.. !/,I
====-=--'=:)0
I~
,!~ISOOL
~
~EIIfIP
I
I
'Ill
TC'fTIDI
1tt"T~J
SaTe caller1s environ.ent
nth DPKTCPS.
Itt"TFoff' , "
~
I
11,1
I
I --'\
E~~/
I IL
!I
i
r-===~>II
III1
'>G
---1
ResrDcbron1zation
! ~005t.Sopon
I
t.:.::J
I~
::::~::. ASY
return
test Outbound SEquence
number.
B.. Otherwise,. set up for
I
Set Inbound and Set
Outbound sequence
number.
------
return fro. 1ssu1ng the
Clear regoest DPHZRSY reg1sters
are reinstated and process1ng
continues.
Due to asynchronous pOint of
control i.ple.entation registers
.ust be saved in the TCT prefiz
bE!fore issuing the Dezt request.
The nezt VTArt request 1S set and
test seguence nu.bers (STSH).
CICS/VS seguence n u.bers are set
up in such' a fashion as to allow
the'Logical Onit to co.pare aDC!
reply positi't'ely OJ: negati'l81y
to these presented to hi ••
a.:.:
!
I '
-\------.1
________ J\
ITCTRASE.
I
L-_ _ _
. ____
J
D.1l1graa - 1.5. 11.1. 2joo02
_I;_~::~:I~~ ~'f lllll_~tes_===______ ~~ ~abel-~~I
I !I
DPHZRSY21
\\
I
I
TCZRSY20
'rCZRSY2b
I
II
II
216
0::::: >
V
I
••• JllchrOD1.lat1on (D'BZ!SI)
TCTEASRA.
II
~\~
1-'1
L -__________--1
tD'BZBSY)
~ Resetar (D'HZRS'l') .uat be
executed; to insure the Dode 15
in Continue specific .OOe.
@!)
logl.cal sequence nuaber to
pbysical sequence nu.ber.
set Inbound and SEt and
L _____
_-1
TCTESQOP
--,IL!;
continue specific.
'I
.J, I
-----,/,
I
II
TCTEIS~S
TCTESQIP
-----
A. If there 19 any data to:~)fH1
be present, sat uF for I
c:J
,
J
[~=;)
'~:rj~~ to
j
I, Iil:::::>I~--:: u:·:~:;·:~::es~~:~e =~)fG1
L.::J
3
!
Call BESETSR to switch to --"r.l
IRPLOBSQ
I--~
I
I
I
!
If there
110 data to be
1S
Beturn Addresses.
Otbernse. set up Attacb
II
:
I
Set up SDt request.
I
I~
I
I@J Besetsr to
I
/ /j;;j '>1
Continue
~,
Per£ora house cleaning.
~
,
I
I
Registers are stored 1.0 the TCT
pref1x.
If a 'tIOA. 1s present at
resYDchtcn1zatlcD i t is
request ,SDT) 1.S set up for
th~
Log1cal On1t and the sess10n is
fully establisbed ag81n4
@]
I
I
Jtcnxcu
JtCTBISDT
ltetERsRR
JTCTBICRS
I
III
I
1
II
I
!
I
L
J
Oiagra. - 1.5.1LL23-03
1I.-------
1~:::!~I~II_·-o-te-s---I
IDUUSr3
II
II II II III
TCZBStlO
~;p:::e:t::a:: :::aL::::~cO"it
'!@)sa..
--.
I'
1\11
-~----.!
r~
I
BaSYDcbronization IDPHZRSYI
\
)[!£)
1
I
I
L,
I
"r.=:>1
tI ,
:~>0
ADr4
I
I
I~
Switcb to
I
,
1 .. 5_11_, .. 21
r~
I
J
'III
,
'...-.1 --=---:-----
I
t.:J --./1
I
-.!.....'0 0 ==:>1
witb DrHTCPSf.
Call
)tcTRlSRl
I
0 ==: >I,
~'>~
Sa .. e ca~~er's enY1xcnaent
,
~ ~..-.I'I
I
T'.
l~t~f' t
•/
==:)1I1
' B e q u e s t to attach thE
IS
SDt
'\.
,'Besrnc representation
Euoj\/
I
\
v1tb D'8'fCPSI.
u~
I
!
II
I
\11
resent. or 1£ sequence
I
Duaber:: .atch. Fro-..ide ISl
!
..!..J I
RPL
l
I
II
1 8 Sa .. e ca1~er's en.~Eor.eDt
1 / I'
-=:->BBnLA
I
r:L,
I
I .... ~/Irn.l
II L
T"cr"iCoPP
i
----,
r \
'ctn
§L... LAar....
-II
J
II
I
I
I
I
II
I
1\II
I II
II
aSDote10.
Reg1sters are sa.ed prior
Resetsr request.
To the
1nput
allow
Log1cal
to the
Dr-HZRSt4
Onit to
I
data or co •• ands the node
.Qat
b~t
sV1tcb to COnt1D118 lilY
(Cl) Resetar is called 1f1tb a (1
ragueat
indicator on.
~ .1.11 B1.t indicators relat1Dg to
Tcsasr40
resJDcb:roDization are turnea off
at this FeiDt because
resynchrOD1.ZatioD 18 coaplata •
•••YDchrODlsatl0ft (D.BZRSI)
Section 2:
Method of Operation
217
LICENSED MATER:IAL -
r----·
PROPERTY OF IBM
IJl .. Ut
III
II
procEssing
-lm~'~:':'II---1
~:~----1- ___==!1\ 10'1]
l~~~~-1--llu-----"
JJ
I
-----------',
.-::::>
G=~) @] ~::::u~:~~::ocro
::::::=4 i[
riC~iiisl=:>r,;J
;:::---~
I
----
and
JJU
r uiiAiDl:J-I
I
----------------~
tLk'tlZD.J::)
~CTTE
[--------]
D"
:::::>[8]0:::::>
-
is addel3 to the
DWRS'fIIID
DIiESTlT
DWE'ICOPS
DilE1CIPS
DWE"ODl"M
DlIl!S'V"lIA
---------
I
[~=:~) @]
Ptocessin~
in
AiiAIT queue.
:tl0!
Dw.ti
TCATtofl
!:~!!:~---
[EJ:::~>
It
ORnE
TeT'I£r the TICA 1:: set up,
."
'IeiT! 1
-----
"ICA.TeTRQ
::::: )~][~=:::>
I
lrl .-~.••rsB••op-J-.--II-l--r====:~) ~~ tn.re is •
l
[---------]
--,1
[icU:ji;ii:J:~)@]
.
I
r-_O-:...A-_o-_.-R-S--_J
L'"
~_-',
l:J
r~~n[]f>0 [~=:~) ~~] ::t::~i::a":::e:::bil1tJ
----
~-------C--l
--1------------',
listaal1sh addreseabil1ty
aDd S••• co11.r's
registers in '[CA.
r~uc'AiI--
E:~~~-I
L.:_
CHAn, HlFCCCC 1
~AC;!
1 C, . :
output:
I
Restore [E:risters and,
I
return.
I
l___________________________
I
l____________________________~_j
Diao;ra. - 1.5.1,.1.:;;;II-C'
!~~======-:~r~ ~=====~1~~1~;~:~
!
I
1
I
I
II
I
1
I
I
II
I
I
I
I
I
I
I
I
------------------------------------________________ ! ______ J
C1agra. - '.S.11.1.4Q-CI
218
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -
IDPQt
prOcess1Dg
I
TCA
J
I
I
LTCASIU
1r;;;-)
'\
[TCAJcuDl~)0
I
TC'"
fTc;iBIOo
r~:::!BIDl
----I!:::::::::::::::--:::;
reg1sters in TCA.
fGl=:>1 8
lTcAiClAA - -
t::J
Set. logical sequence
J
'- '-T-§m-~-A-T-P-RS- - J- -'
>
r-'
,
lb)
~)@] ru1--.J'I~
It
~ --,//
2 OP
------1,,[ >
Issue T'ACE .. era
instruction.
I'
I
PiG!
Output
I---~] r-----~>, ~ ~: -.:-~-~-:h-C-:;-: -:-:-.b1 1tl
I
PROPERTY OF IBM
-----',
nUllbers equal to physical --,- - - - , 1
'fC'rTE
'TCTEEIDO
'TCTESQIL
sequence no_bers. I; there
TTCTRS~Ipl~ )rti1
ITChs
I
OP ,
LTCTTE •
'"
e. write request,
perfora
10g1c.l upd.te.
1S
L::.I
r,1:=~> @]
------I
rTCT~--:...-J 'r.ll.:
~gn~~8 IT1/ L.!J
~~~Hit
r
I
J
JCA
~I
queue, but there is
",.
I
______J
Ir
I
IL
==__--l 'I
cOlll.l.1tted logging, turn
off cO •• l.tted log flag and
I
",,~"'"Jr)0
Ott! Process1ng
If TeTTE is not on, or
"scheduled to be placed on
the cO • • 1tted output
~)
L
I
L _______~
(DPaZD"E)
D1'-.g--r--.-.---=-'.-:S=-. ".'.24-02
!r----------------:l[
1~~I~I~~1 ~__
Hates
,
I
!
I
I I I
I I I
\
I
1
I
I
I
I
II
II
!I
I
I I I
II
I
U
1
Dill 'roc ••• ing (DrOZD,.!)
Section 2:
--'----
Method of Operation
.
L - - - - . . . , - - ' - . . . , D ' " ' 1 - . - g - r . -•..;...--,.,•...,S=-•...,''''':1.24-02
219
LICENSED MATERIAL -
PROPERTY OF IBM
.lDtlut
PrOCESS in 1
f,----------------,
r------------------------l
I
'
'I
,
I
,:
'I
~~---,--'------.J,'
Gol
,ICUSPS.
L::,
,-------,/1
l.~:~~~~--.J
""
I
, I
I
ric;TE'Rs-' =--=:)fl1
l ____-1 I LJ r-, __ ,I
I
t~---'/I
.I
I
"
r
cU.,
r------~
---"
I
11(;:1THllli
i
L ______
I,
r7l
I---,/IJI
-J!
I
~
I
I
"
i
"
I',
I
I
rlJC:~;\
"
:.J
I
"
:,:
I
(l1:::~;IQ~]
1
I
,
,
.:J
I
I
I
I
I
I"
'I'
II
1
:;
!!
Ii: lO;Jical End of task r
cha~nt
"
[----------------------------1
I
',unCba~n CRr: fro. 'I(A
"
ClI.IIIi'I: HIFC(CCl
FAG!
~ ell
-=
Cllt:put
and set sync foint
"
--------l
I r--'
l./ "
_~ _ _ _ _ _ _ _ _ _ " , '
oce ut: red fl a g •
I
,I
'lCA
hCA2LUiii-l
,
L_________ .J
're'l''!'!
I,
--' , I
r:r_::-_,_-_. -_, -_5 -_N;:_- -_-_1
'---,
/ 1I .
.
..
t
I
I
A. I i pbysical end of task--------:l
ana there is DC iFI'IE,
---------ll r--'
L-"I/
the tVE Fcinte I i n · ,
It
~~::~t~:d c~::r:~a:n~s
I
I
::,:::==:'
"
I
a
B. I f there is
"IU,
KPs enn and odd
I
tits are
turned off, the DiE
-
r-.-c-.-.-,:.-.-.-l
TCTED'IEA
I
II
I
!_T_C'_E_'C_L ___ !
I
!
I....
li:~>'
turned cft.
cracki.~
,
I
riCTfIKPO--]
:
E:~::~::__
"
"
II
!:~:;:~ ~:/~~~:i~:ed I
log flag is turned oft.
!
,I
Restore rqisters and
return.
I
[;;;;,'>
-T~-S~nc
Foint
II
I
Pro3ram
I,
I'
I_ _ _ _ _ _ _ _ _ _ _J
' I
L____________~
',I
L___________________
DW:; P.rocessin::; (LFdZvu';J
I:iagralll -
1.5.1'.1.~q-C3
i~~~~:~~~==~=~======~=~~--I ~::~:: I-~~~=r~:~~~l !~~:~::~~=~~~~~~~~~~~~~=~~~=~~~~~~~~~::~::1~~:~:~~~1~~:~~~l
I
I I I I
It
I'
I,
I
I
t
I,
I 'II
I
I
,"
!
I
,
I
I
II
II
I
I
I,
I
"
I
.
I I I I
'
I
I
!I
I
I
I
I
I
i
'
II
I
i
I
I
I
I
I:
I,
I
I
I
,
I
I
I
I,
I
I
I
II
,
I
I
I
II
'
II
II
I
!
I
I
I I
,
I I
!
I
I I I
I
\
I i
!L _________________________________________________
! , I JL.____________________________________________________________
I I I ,I
I
Dllf;
P.rocessin:;j lDftiZDiu:;)
220
I:iagr.am -
CICS/OS/VS Program Logic:
'.5.".L~4-(l3
Description
LICENSED MATERIAL -- PROPERTY OF IBM
PAG!
InpUt
Processing
·---------------I~~~ Activate
1------------
I'
11
~----l--l
r:L,
----- I
TCT&EIDO
[TCUEInI
.I
r
I
~CTEiBPBl--
I
fQ4l
I
::g:~:::
JJ Jr-
L_______
-~LII ,
~
1
resync
1.D
session,
TC'l'TE frail act1vate
I
-------',
I
GETftAIN.
A.
JF
-------.1
Chal.D and call SIIILOGCN
J
I
iTCTHBI~
I
I
allocated,
l.ssue a condltl.onal
I
TCTTB
:: ~:e!::!ress,
not
If D.OdB
_
1
1
penhng.
I.::J remove
r:~Tc_,.,,~b, >,r:@.:J 0=~>11!
~!....--'/C
I
TCTTBCA
I
TCT'HOS]T
I
\
-)
.odule.
r-----=~> I ~ If
RPL not
~"PLQ--
I
vl.th DfHTCPSVa
50S, ftUTASft,
[-----,/!."
I:
I
r--','I
Estabilsh addressab11ity
~)II ~ Check for errors, sucb as
I
CTlIRSB_ I r
~T_CT_liRIP
'leTT!
1
IIIrol
~
or "
l
DFHZAU:
'I[-====~>"@) Issue
TRACE .. ero
'nstruehon.
[fuSOSII]1
l~Rcr!I-l 1
T::-E--'
r~~:~:p
~--~
I
~~/>:
TeTTE
1
II
I
TCTTB
>,'
1
:::;~::::::~::::::::to :11 ~
I
Activate ScaOa
ITCTHICYD
TCT:BICiB
TCTEICVD
1TCTEIC~..-l
II
I
,I
l_________
J IL . . - - - : - - .
lutou.tl.c Task In1t1alizatl.OD(DPHZATI)
Dl.agraa - 1.5.11.1.25-01
r------------I---I----I--,f
1 Note.
, Rootinel Label I Bef ,I Hotes
'/ §] If ~:-;,:;;::-::::::-:::-III------'1 ;~~
I
I
I
on, or it ·resync is required or
::::::::::::~~::~:::::;:::/:o
j
I
receive is pendi'g, TCTTE is
I,
II
taken off chain.
'1;:5 111,1,1-----
II
II
1!;
7b11 11
II
\
I~
IDmm I
1
I
I
"
II
II
II
IIII
I
I
I
I
I
I
I
I
L
lutoaaUc
I
I I
~.sk
Initializat10n(DPBZA'rI)
Section 2:
I
Method of Operation
II
II
JL
J
D1.agra. - 1.5.11.1.25-01
221
LICENSED
M~ERXAL
PROPERTY OF IBM
'"
I.pat
i,~-""
r;;:;--~--"IClr;,_--J' §]
~s:S&
---'1 .It!i l!J---,I.
'reT"
I
--1
RPL.
ITcincBD:::;)fE1
~
-
'Ie'!'!'B
TalZBPS
1D1tl.all.Z8 £191d8 1n new
L:J
r;,--'" @]
07
~J--"
If brackets Ire not
enforcEd, no task. 1s
attached and lIode 1s
~
__
~rt
1
Set 'rC'ITB RPt p01Dter and
=::::>fD10--..'
I
I 0--.
-'\
PAGB
2 0'
4
§~~
l:J
C ' ~1
l=:1
1
---II 0---a1
>.10
V
---' \
continue specific, go
a
1
orCT. lIAIP
1;CiiiDi,
1SSu8 IUIL.
IDEICl
A. If lIlolie 1s Continue Anr:::::~fAl
~'l_E_C_A _
call
'l'CTBIIRB
issue "AIL.
RBS~TSR and then
B. If brackets are Dot
enforced and a task is
attached, turn on
Defer~ed 1 VAIL' flaq.
Return to Act1vatE
Scan~
~ If brackets are e.forced,
and A'll bid is Dot 1n
progress, I/O is 'Dot in
progress; 1£ there 1s a
I
L:J
~\
t.:.:~ >GOl
I
.=:JI
V
-,)fi1
L:J
I
I
I
E.·:
\
>
T;;C'ller
task and Dode is Dot in
J
bracket state, return to
caller.
J
0109ro. - 1.S.11.1.25-02
Auto.atic Task Init1a11zat1on,OPHZATI)
lotes
[!!]
If RPt available, go on to step
~~'.:'~ l~f-::·--==
1.
@]
Send DP Sync .caale.
I
OPH2S0S
___!_~t1·e!~::~I_~
I
1.5.111
.1.17
III
~~~=~_I_J,---I_
A''lo••tic Task In1t1a11za'l1ontD,nZA'l'II
222
0109U. - 1.5. 11:i. 2S-02
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -
---I
--1
~_9
I
'lCT'lBPGB
____
I
teTTE
I
lu.d
1D
pJ:ogress, bid,
L.:J
aDd send synchronous
r;] ---',
flags. Call Send DP
synchJ:onous .odo1e.
l.!!J---"1
I 0~) I"J :.::::~"o." ..," '" f)(;]0~)1
:='>fil fi':::;>
- - I fP1:::::;>
I
=: >
fiCTiiiC~:::::;)~_,
~
l':J 1.:.1
teA
[~CAr.cBC
TeA
~KCRC
~~S:SA
:::;)fGl
I
Gl:::;>t'
I:::::; >[!1
,
I
J=: )0
If AU
'4 10 Kepis sa1'e area
is altered to point to
, S t a r t op Task and
I
I
addressabl.ll.ty to new
teA 15 estab11shed. set
!
Routine
I
ItCAKC'A
TCorTB
ITCtEICVl
TCA
ItCAtCR~
Ij(1
L:.J
I
I
r-----
Label
L:J
IV lIL dona £ 1a9 and
update statl.stl.CS.
L
----------------
I
I.!.I t.::J
teA
A. If successful, re91ster:k>1Kl
t...::J
~-=-:-----~
S
If un~uccesSfUl, and the
AT1 b1t is not 00., the BTE!
flag 15 turned off, and
the TC'ITE is taken off the
act1vate Chal.D.
l:J
Auto •• tic Task Init1a11zatioD(DlHZA'rI)
lotes
§ § :....J
send cOII.and request,
TCT~~
TClKrn
1$
1. OthervJ.se, turn OD ATI _ _
/~.Jt
'leT !IPR!1:::::;)fGl
'tC'r'lBiliR
3 O.
E1'> G01 f--" /
.I, I
-----,/
'leTT!
PAGB
output
r._tC_TBICYQ-I--------::>@]IfBTUhasbeenreCel.Ved,------:>
l':
tur.D off flag, and gc
issue AVAIL.
TCfmA'!lllL
---
PROPERTY OF IBM
I Ref I Notes
bit is cn, ret.rn-::-;-I----I~~1~1:511 I II
J
Diagraa - 1.5. '1.1.25-03
l Bout1.ne
I
Label
;:;-]
-----1
is set and. control is returned
: :~~::O.::O'
1""".0
I
actoaat1c ~.s, In1t1al1zat1o~iJ-------'----~
Section 2:
Method of Operation
II
l
I
I
Diagraa - 1.5. "ii:1. 25-0J
223
LICENSED MATERIAL
_0-
PROPERTY OF IBM
Cf!H;'I~
1-------------------------]
r~;------------------l
c,"
Processing
I
ICSATCNAC--] :=~) r"J]
::::____)
L
("icHic'i--] :=~) f:il
-------- I
I[2n :~:;v:~: :~:g:~d AU
{~~] Set return cede tc e and
[FfU'Jl
4 C'f
4.
r~------------·-----]
:t)EJ[~F~)1! [~~~~~~~==l__
1~~~~~:2;
return tc activate scan ..
-~
fH!
CutDut
,
I
\
l'JC
1
,1
I
[~I~~~~~i~1
I
II
~
I
I
I,
/
V
Activate
ran
1
I
II
I
i
I,
___________J
!
I
L____________ ~ _________________
Autolllatic Task IIll.tl.all.zaticn (DFHZA'U)
I
I
iL____________________________ I
!
l
~
EiagI:3111 -
,.~."~,.~~-O,,
r::~:~~~~==~=~===~~=====-~:~~:~~~:~:~~~-~~~~~~ll~~::::~~=~~~~~~~~~~~~~~=~~=~~==~~-~~~~~~l~~~:~~~I~~:~o~~l
I
I
I
I I I
I!
! ! I I
°
1
,
I
I
°
I
I
1
II
I
I
I
I
I
II
I
I! I II
I I I
224
I
1
I
I
!
I I
II II
I
II
I
I
!L.,._________________________________________________ II
Autcaatic Task Initiall.2.aticn (DFHZA'II)
!
I I I
II
°
I
I
II
°
l
I
I
I
I I
.J L ____________________________________________________________ .1
Liagraro -
CICS/OS/VS Program Logic:
1.
r:. , 1.1. l
': -f\ 4
Description
LICENSED MATERIAL -- PROPERTY OF IBM
lll----------------l m~~~Ht:: r-------Input
processl.ng
I
['" 'I )
1/1
----./
II
,I
I
I
I
TCTTE
I
§CCT::·ACP
T
I
/...,.",
1/
/
I
I
11
llJT1l
I
II
I
f
l _________ 'I:~:.::J
I
~CTEHAcPl::;:;-J]
l
I III
I
I
II
I
I
I It
1CTH
~CTm.-llll
, //
I L~====~>llil §]
I
- ,-I'
~
B. If request not
C.
[~')f1il
I
\
lIacro instruction creates a
one-wora in-line parameter list
that contains a bit strl.ng to
control tbe functions 1.0 thl.S
.oaule.
I
[::II'I>rBlrllll'>
I_~L.,
I
the pointeI:' is updatEd if
tbere are more TCTTEs on
the chain. Otherwise,
pointer is set to Null
EXl.t routl.De.
!I
I
I
I
I f TO"E
on to
a
queue
and not
can already
be added
pointer is updated
e
~
r-,
I
It
I
TCTTE
I
I
>I
I
It- " /
11'//
II
I
...-----.
[TeTEH.e~l
TCTTE
ITCTEHACP
II
TCTP I
ITcr"A:;-)
I
:h===:!J I
EXl.t
I
l
I
J
111
L - ._ _
Dl.agraa -
1eS.11.1.2b-Ol
-----------1----I----,--:1
I
If
/
III
II
II
I,
-I-~::~~:I-~~ I~~' L::~:.--------------I-::~::I~:~-I-~r
,
I
I
II
I
!
I I
!
!
I II
I
/
I
I
/I
II
/I
\I
I
I
!
!
II
I
I
I
,
II
I
I
I
,
I
I
II
I
I
!
I
I
I
1
!
I
I
I
!
I
I
I
I
I
II
I
/
I
I
I
/
I
!
/
I
I
I
I
I
II
IIII
II
II
II
II
II
II
II
I, II
I
II\I
II
I II
I
! I IlL
lcti'f'ate Chai.n and Queueing Subrouti.tle 10P",QO'1
Section 2:
TCTPX
(DPH'ZQUE)
I,
!
L
I
I
If the TenE is on a
__
queue, lot is unchained and-I--------. I
I
expanSl.on of the DFHTCQUE
I
\
~ ______ ~
~
A.ctivat.e Chal.D and Queuemg Subrolltl.ne
=1
analysl.s.
chained as last and
I
I
" I )105
I
'I
~~t:::::~tg:o:oO:n
I
\f
actl.vate, go do fUrther
Actl.vate Chal.D, it is
I
,I
Activate process.
C:~~--.J
\
go to Ex it Process
routine.
/
TCTTE
I
A. If request from eut,
<>;...
----~
l
I
Estab!>sb addressability
and save return address.
I
~CTVU2=i" ------',lro:;l
I
I
5
rl!- ' - - - - -
determUle actioD reguired.
I
I
J
lOP
Ill~ Analyze parameter ll.s't to
"
II
I
I~
PAGE
Output
Method of operation
----'
II
/
I
/
I
I
I
,
I
I
/
I
II'I
I
I
I
I
/
I
/
I
I
I
.
I I
I
I
I
I
I II
I I II II
I
I/
I
I
II
I
I
I/
I
II
/
I
I
I-----------"
I I
!
I
Diagraa -
leSe l1ele2b-01
225
LICENSED MATERIAL -- PROPERTY OF IBM
l
r---tt~--.
l
F:::~..
["'. II I
I
!
"'-.J
Tcn I
..LJ I
I @B
ri:TVROQ-lill
l::::VBOQ~ III
I
!
I
I
/
I"
1
I
take off a queue, go
I
1I
,I
' 'l
I
I
I
l-==::=~)I~)
I
1
I
I____~
Activate Chain and Queueing Subroutine tDPfl2QDE)
\/ II
I
I
:::u~~9~oN~~P:OO:E~::~ti:~/IJO. I
B. I f lOquest 15 to take
r:""
from Awa1t queue.
I
Resfonse '.81ted
updated as reguned.
'.5
lobi
"d1c'tor:~_=
I
I
II~
ll.st to deterllll.ne actl.on
I
requl.red.
,
A. If request to add to
Log queue, go to Log
I
1/
I
ao~/
further an.lys1s.
•
I
J
r.;j'>1oil11
turned off. If TCTTE loS
on any serV1ce queue, it
15 removed from the Await ,
cha1D and p01Dters are
I
:
II
I
___ j
I
I
Purther analyze para.eter
t
,
[!-.. \
r.:-:"l
~1'1/>lh'/91
.
2 0P
5
'fC'lTE
If)
I ILI'/!... ,I
Purther analyze para.eter
list to determine action
required.
A. If request is not to
PAGB
Output
Tr:C:::TP=:I:=,:~
EROQ!]
I
I
I
I
I
I
I
!
1
1
l_=__~ L ___J
Dlagrall -
1.S.1l.1.2b-02
------------------1.---------------I
I
,I
I
I I
I1@1 on~~:~:-::rrent1y
-1------1----\1----------------- --- ---- --II
I
I I! I
I
I
I
II
I
~
Notes
ROUtinet Label
"ple.ented.
I
II
I
I
I
Ref
Notes
I
I
l!l
I!
Ref
1
I
I! II
Rouu.ne\' Label
!
11
,I
II
I
II
I
I
I
! II
IIl
jill
I
I\
II
I
II
!!
II
I I
I
I
II
I
II
! ____II___--.JIL-_ __
________L
Activate Chain and Queueing Subroutine lDPHZQ(J!)
226
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
CHAl1'I: HIHCCCl
[-------------------------------1
lL!,put
ProcEssin:l
:-------------------------1
i
;;;,,;,~-J~
II
11"<£15;;;)-1
II '"_1E~~_AO_--j
I
--
IIt
--
I
I'· " '"."'"' " ..,..
>'"
t:J
Response 1I.IoIaited queue,
I
I
f
I
[~~~~~~~:~~)0
1~:~~------l-.'.-"'
~1
' [--]
IC'IVROQ
---.1 A r-;1---.J'1 08
I
I
It~~~~~~-jl
!
'I
-'
l~---'/II --
I
lClVSRQE
I
I
r-------:J-.!.-I'0
llCl'VRTLE
---,I d
I
I
------!
I
[~=:~)I ~~
-.I
I
,
NACP
30
,I
Set terminal out cf
service. If 're'I'IE is
Response Awaitea queue,
II
---I\r;:1
remove it. If lCT'IE is on
L03~er queue, set
NACP
If lCl'IE is cn Re~Fon5e
Awaited queue, remove it
and set
[~::~)
[~T:C-~T~E~lTC~E=A==1
----------
II
1~~=C~T=E~l~,~A~Q=~1
-----~----
!
__ I
l~:~::.:~~ __ J
:::~:~:::
I
I
TCTPX
[mmi!~~}
[~:::~) [~~~~~~~~==1
:::::)[01
I
"equest and!
10 3
I
TC:TTE
---'/l:.J[D1::~>1
:J
exit. Otherwise, add TCT'IE
I
IL_____________________ _"
III
0"
to NACP routine.
I
I
Activate Chal.lJ, ana. wueueing subroutine
\
otm queue,
than the any
above, ::~/
I ~~I
,I
II
I
r-;:,:r--' / I
[::1---'"
I
[ __ .J
I ::t~::t~:::~~:::~:::~\m I
I Update pointe"s and exit.
I
I
I
I
,/
I ~:~:::~::~e~:::~~::;, ::::.
I
I
--,.1
I[__];:~:::e:~i::~:Ss::mtin,.
I
I
I
I
I
'
C. If request to aCId to
~
3 OF
[--------------------------------1
[1:, "Gil
I !' 3 0 to Await "outine. I
!?AGE
output
_.J
I
I
l~:::~~:::
I
___ J
I
I
'I
:I
I
I
I
I
I
II
' I,________________________________,I
Il______________________________ J
(DEHZQUI:)
I:iagram - '.5.".1.a-C'3
[~:~:~~~~==~=~=======~~~~]~~~~:~~~~~~~~[::~~~l f~::~::=~~~~~~~~~~~~~~~=~~~=~~~~~~~~I~:::~~::I~~:~:~~~1~::~~~1
!
!
I
I
1
I
I
I
II
i
I
II
I I'
I
I
I
I ,
I
I
I
II
I
!I
I
II
II
'
, I,
I
I
I
I
II
I1
I
I
1
I
I1
I
I
I
I
I
/
I
I
,
I
I
I I
II
I I
I
I
III
I
I
I
i
:
I,
:
I
II
I
iI
II
II
II
!I
I1
II
II
II
II
'I
I'l
,
I
I
I
,I
Ii
III
I
I
I
II
:
I
:
I
I:
I
I
I
I
I
I
I
I
!
I
I
I
I
I'
I
I
!
I
I1
!
!/
I
I
!
II
I
I
I
I
I
I
I
I
I
I
I
I
I
I
L
I ________________________________________________
,
1
,
J,I _______________________________________________________________
I
I
:
,I
Act~vd.te
LhaJ..D and Ilut::ueing Subroutine (iHHZQUEJ
Section 2:
Method of Operation
J:1.agram - 1.5.".'.a-03
227
LICENSED MATERIAL -- PROPERTY OF IBM
r-------l '.
'I
Output
<~'----l
--------------------------1
m~~=~-]II-~====-~) @J ~:r:~~:Eq~:u:: ::! ::::;. :=:==~---[~>
indicato!: and exit.
TCl'il
[~~~~~~=~j
TCTE'SSC
otherllise, clear activate
[.!::!~~~:=J--
I
TeTTE
request, turD CD lIesponse
Awaited queue indicator,
_-.1\
-,1
add to Response Avaited
queue and update FOinters
as reguireCi. Exit
subroutine.
@]
Purther analyze para.etar
list to deterlline action
regllired.
A. If exit request to add
to Activate queue, go
to Activate OUEU9
routine ..
B. If exit request to add
[;;f'>r121
I
--, I
\,
[;;i'>r'i31
I .
to Log gueue, go to tog --.I
Queue Set-up rcuUne.
c. If exit request to add.
to
HACP
queue, go to
HACI? Oueue, go to lieF
l-------_
Qlleue Set-up routine.
[;;"j'>f";ii1
I.
--, I
:,,--,1
Activate Cbain und \r,!ueueiD3' Subroutine (Dl'tiZUUl)
IIi]
t..::
~urD OD EXit-added
Rotes
:J
---"[01
---,1
~:~_=:::J
r.::----------------------------I-~:~----------------- -~~~: ~:~~~ ~~--
'I
.
~
[ ;J---"
'/
-
I
I
-----------------------______
1
Diagra. - '.5.11.1.:i:6-0Q
Bout.1ne
Latel
I
I
I
I
L ___________________________ _
lctivtlte CRdio eana.
228
~llellldiD~
Subroutine (DfHZIJOl)
I
----------------------------------_____________________
1
"
Diagrall '.5.1'."'.:if:J-Oq
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
r------]
I
TeTTE
I
iTCiEHACP
1
L':_
1
I
II
]~)rv
L':J
TCTPX
GCTVill'~)0
II
mwec'
__=--.l
I
"I
!
!
I
I
Irj'jl
II
I
r
i~
I
!
I
I~
pseudo-post act.ivate scan
BC8. Exit rout1ne.
Set Log Response
and go to Activate Queue
routl.ne.
Set NACP indicator, set
terllll.Dal out of ser"l.ce
and go to Activate Queue
I
0,
VblCh loS
>mo '""truction.
I
I
I
\
I
I
I
/
\/
~1\>f12l
t..:...:..:1 \/
1
!\
!I,
I,
'leT"
II
I
I
I
I
~
III
L___
~
:
1
I
I
I
II
I II
I
IIII
I
I
U
tI
II
1
II
I
II
II'
I
I
,
Section 2:
L-.-J
Method of Operation
<.1_ _ _ _
I Ref
I
1----1---- - - I
II II
'I
I
I'
I
'
I
I'
1
II
I
I
I
I
II
lDiiii::Qo::.::-,'--_ _
, ----,
I Rontl.nel Label
IIII
Activate Cbah and Queueing Subrouti.ne
J
D1agraa - 1.S.11.1.2b-OS
I'
I
I
!!
I I
I I
!
'81-"
I
return to caller.
L ________
1
I
•• , >1121
Restore return address and \
I
fro. register
0~>1
~)G
routine.
--~r-
volatile across system. post
5
I
I
\
-',
=-~)~0-d
1---------------"[----,
I;,::es _ _ _ _ _ _ _ _ _ _ _ _ +~~:~~:I~~I~~III~-\ ~ If Bee vas posted (step 12)
I
I
I
I
I bypass reload of register 1. I
I
I
!!
~
II
I
Activate Chain and QueU9.lDg Subrout1ne (C'H2QOE)
\
or
1nd1cator~1 \ ('_l~--,I
I
_____-1
5
pOl.oteI:s as x:equl.red. Post
timer ECB in tbe CSA, and
~
1,
PAGE
o;.:u:.,:t'-'pu:.,:t_ _ _ _ _ _ _ _ _ _
Proc9ssin 9
Input
r-----------.
I
,
I
D1agra. -
J
1.5.11.1.1 ... 05
229
LICENSED MATERIAL -- PROPERTY OF IBM
CHUT: 811C(:Cl01
lUfut
j-------------------
p
:~:~~~~!----------------------
[~2] Save re;Jisters
QU':~~':
PAGE
1 Of
3
______________________
_
(P!acro
DFtiTCPSV)
Il~l
{~~~!~~~_J
--
entry?
[ ;;~ '>[oii1
Nc:
I
--, I
turn
I
OD
I
'I
initial entry flag--------------',
-------------, I
Clnd set €rror bytes to
r:.:~___ J ____________ > @;;l
r, ______ --1 I
I
lC1EMOST - ,
..
In~b.al
I
-
TeTTE
::!~~:!!!=~-
ret'lYReS
--------'lCTElRC6
zero
ttTiiRC7-
f'lode=' CS'?
No:
A. Indicate initial mode
was
'CAl ..
______________ .J ,
TeTTE
--------------,1
I~~~~~==lj
d. Call IIESETSR
(I
TCTERSRR
i-:-:"i '>[UFHZRST----------]
'r--,/ ----------------1.. 5.11.1 .. 21
-----------------
I
I
I
l_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ l
IL_________________JI
1:.r1:0r
rlessd..:I~
Wl:l.t.e:r
luHIZEIIW)
-------------------------------------------
r-
"Ot.5
[------------------------------------------------
-----------------------l-~::~~~l ~:~~-'-~:~-1 !-:~~::------------------------------- -:::~~:: -~:~:~-- -::~--
I
I
L____~l_ _ _ _ _ __
_______________
1 ___
.lJ:ror !'Iessa.:jIe
230
~rl.teL
11Ii'HZ8eW)
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
f:~:~::::~L-------------------
In~ut
[--------------------
O~~~
CHARt: HIFCCOC 1
FAGE
2 Of
3
______________________ _
I
[~~J
'"' ' " I
[;§u::rr------------,
Ireo]-
IDl.tiate TRACE
(l~8CtO
OlHZTH)
tUCP request?
No:
I
1--
[~§D-------------'I @~]
'1C'£l<
AD)' errors saved tefore1
No:
I[~~]
I
,U':l",U!
I
fiCtiiru-j---------------> ~~]
1------I Ie.;'UUOIP
1.---------'
I
[-~-o]
Set·i:r.cessivE Errors'
tld. 1
_______________J
I
T----------, /
[::::, ')
/
Comlland or Data in
pro3ress1
Ie!:,;: OngueuE TCT'IE f.co.
Acti •• te chain
-I¥~~~r~~
lOjic
r::~\>f121
-1'-' I
V
Send or Receive pendin;J?
Yes,
h.crOJ: Messa 7~ W.citeI
[~~I
" \0.1
--,/
'\I
_ _ _ _ _ _ _ _ _ _ _ _ ..1 ,
L___________________
(JJl'd2.Erhtl)
F~I\\li1
f'
V
II:.co'i"8~-;tit~tuidzi~---------------==~----------------~.===~3;;-;-:-1:5:;;:1:~1:02
Section 2:
Method of Operation
231
LICENSED MATERIAL -- PROPERTY OF IBM
r-----------------------l
iUt'ut
I,',
:
I
lCnE,
,--------------------------------1
Pr:oCEssin 9
I
I[--1
.
f~~~~~~=l--l-------------> ~~ ~ht!CK.
l~~~~11(.;1£::;£lI
i'
_I
t~~~~~~~
j
I
I
II
'I
II,
I
I
I
I
IE~l
If
I
I
I
L_____________________J
[!•••.
___ , >
.J\
[~ ___ .J\
..•. , >
1mi!~~sp.
re,uest
[ ____ ..1\
~I~~~{~:i
Send Error
'sg lcgic
D .. I f Purge reguest
[----... \
~I~~~~~~'
Purge
lOjl.c
Return to
caller
I
[~~~~~ \ >
-liiPH2~"
I
'
I
I
d. If Ne,;,ativ€ REEfonse
error IIEssage
,
::3
-liipH2~"
EI I: lO3'ic
'I
,
3 Ol
I
I
c .. It request to .send
I
HGE
r-------~---------------------l
II
request tla3 S :
A. I f BID requFst
I
Output
Iieturn
logic
I
I
:
I
[______________________________J
I
l___________________________J
Diagraa -
1.5 ..
1'.1.~1-03
1.---------------------------------,--------------' ,--------------------------------------------------------------
I-::~:---------------------------I-::~~~~: I-~~~:~--I-~:~--II-~:~::-------------------------I-~::~~:: I-~~~~--I-::~-I
I I I I
I
I
I
I
I I
I
)
'I
'
I
I
______________________~ _____L____________ J
EJ:tor
232
"essa~e
Wl.~ter
tDt!::lZEJHI'J
.
Diagra. - 1.5.11.1.41-0]
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
r----------------------l
FAGE:
1 01
r------------------------------l
r--------------------- --------1
I
[-1
I
I
"
I l_:· - .--/,'/'>
'I
:I'
I
I
I
I
~::~~------,-l-------------)I[;;,l
-~-------------',I
[~~H~~~~=]
,I
J.Llk'l.It
I
'I
no.; "'"
.L".
£lI:oc",:;j~iu ~
'I
I:
l~~~:~:~_J
I,
I
,--
.......
output
·.L·~![--1
• -,
06
.,i-' , "
rie~t,.H0 prrcr codes tOt
NAl:t' "'lid '1ueue TC1'IE on
NACF
H
chain
Lndin F"qed tla, is
Oil, -jU,"U€ TC1'IE on NACF
1L0
rcque.ts
oth«
penJill~
I
[::~\>fCBl=::~)1
--,
I
[L,
::~ /
~~~~~~~~==l
I If----------1
~:~.:~~.:~--I
[--1
~,
L"
I
i"
,
i
I
I,_______________________________ 1'
I
I'
LI'ICT'EVRCB
__________ .J
I
f •• , I >[-::1
CAl
\I
1,_'
TCTTE
1
\/
I
Ch.~h
It
I
I
I
,
II
I
I
I
l_____________________________1'
Diagram -
1.5.11. 1.2i.l-Cl
1~::~:~~~~==~=~=~~==~~=~~=~~=[:::~::E~::~~~[~:~~~ll~~::~~~~~~~~~~~~~~~=~=~==--I ~:::~~::1~~~~:~~~1~~:~~~1
I
I
II
I
II
I
I
I
I
I,
,
I
,
,
I
I
I
I,
,
I
j
I
I
I
I,
I
,
,I,"
,
I
1'1
,
I
"
,
1'1,
I
II
I
"
II
I II
I II
I
'I
'
"
I' I 'I
I
I
I'
I
I
I
I
' I '
I
I'
I
I
I
I
I
i
I
'I
I
'
I
I
I
1
1 I
I I
'"
I
I
,II "II
I
\
I
i
I
I
I,
"
I'
'
I
'
I
'
' I
I"
I II
I
I
I
I
I
I
I
I
I
I
I
I
I
II
I '
I,
"
I
I,
'
"
I
I
1'1
, I
I
I
I
I
I
I ,
I
I ___________________________!.I________ !.i ________ !.I______ J'IL ____________________________________ J'
I! ______ JI
L
_________________
'I I
I
II
i.l¥U.I.o.t.t'hl -
loaL'.iUudt:~Ou
Section 2:
.illa iitOtU1:11 LO:J.l.C
Method of Operation
Diagram -
'.'.11.1.:21.1-C1
233
LICENSED MATERIAL -
PROPERTY OF IBM
Input
p~r;e
r.;;;~'
L:.::!/)
[~
I
Queue
~
TCTn
2
r
I
on Activate
Chain
*.*
Pro.
DPHZE"If
2 OP
OlltPIl_t_ _ _ _ _ _- - ,
Processinq
Rl'!'l'!JRN LOGIC •••
Set return
cod~
to 0 and
return to caller
I
"
Return code
ZZZZZZZZZZZZZ~ />
I
[·I ..... ~:t
\ I
ITO
[
calIer
IL.______
J
OPB'lEPnr - Termination and Retarn Logic
f_No_tes _ _ _ _ _ _ _ I_"ou_tin"
I
_L'be~ _ ...
lI_ootes_.
-----1'·"..·~I'··l
!
I
11
I
t ______
~----~_---~~--
Termination ana 'Return Logic
DPHZE'UI -
234
-1 -------.-----~c::__:_--~
-'
DiagrJII. - 1. 'l.11.1.27.1-0'
L-'
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
Input
p"q!
aat.pot
proces_s_in...;Q'-_ _•_ _ _ _ _ _--,
1 a,
1
Pro.,: OPRZ""'A
Step 11A
1
TC,.,."
I
I
r:L"
~/
rn-1\
r~I~=====-~> l~ Turn off ern request flag
L _ _ _ _J
I
l
~'
zzzmzZL
!
"re,.'!'!
/
------:>
Set t:E"quest flags and
indicate 8ro to be sent
[§
Call Send DPSt!i (OpnZSDS1.
DPHZSDS
'....-.1
TCT'!'!
1---
T------------>
!
1. '.11.1.11
if anT
HACP requ.est flag has been
Sawe error code"
set ..
EI·
.. ~~t
I
I
L=.:::..
=---=B:::rn::-:l-::o-Q7
i O-
Return
Log 10
I
J
1_·_ot_es___________
'I
1nPHzE":
Oiagrall -
I-.:::': ~'--I~ I'"'
-----
1.11).11.1 .. 21.2-01
,
---Routine
1
Label
Ref
--- ---
II
orlll!!1I1 - BID logic
Section 2:
Method of Operation
235
LICENSED MATERIAL -- PROPERTY OF IBM
Input
r
Processing
------,proa:
DPHZRPlW
,step 11e
II
TC't'T'!
~>
~~=~~,'>El
l:::.msNB
II
~
PAGE
Out pat
Turn off' Sent3 lfeqatiYe
Response' request flag
1 OP
1
TC'r'T1!
zzzzzzzmzz4~>
I
TeT'!'!
Set r~quP'5t flags and
:;:::====~"
indicate "egati"e Response
,/
"C!'!!ICSR
TCT!lOSl
to be sent
'I'CT'!Us2
TCT!IRSP
I
~ Call Send ~espons@ lIodu1e
(DP8'£snR1.
/~'>rDPRZSDB
,~/
-----I
1. t;. 11.1. 15
r-'-===---,---------------> ~ Save error code, if anT
I
NAcP request flag has been
set.
E j~
.... l
\/
DFR1:E":
Logic
Returnl
.
!
DrHZE,,' -
Send -VB Response Logic
niaqraa - 1.5.11.1.27.3-01
r----------------~~----~---------~
DPIIZ'I1i1 -
236
Send - ' I BespoDse Logic
D10gru - 1.5.11.1.27.3-11
CICS/OSjVS Program Logic:
Description
LICENSED MATERIAL -
ilLOCE.:i"';~il
J.l.Irut
1------------------------1;
,
~~~: 1t~u 1.&.11 ~
"
I'
I
r:1 __ " II
,.L
>1
I,
I,
I
,--------
i
ii~~~~~=rt-----------' [~n
I
I
I'
'I
[;-J1
u
I --,
I
,
"
,I'
II
I
I
I
I
I
tc
~o
E~I1'i ~r I
~Qt
lJL.t.diu
u[. .sENt: cnly
,--,
d
'TIC-A
l~~~~~~~~~~~~====J
lL~~j
•
~~
(,'
I
[::,"[011
'
'-1-"
I
II
'I
I
::1~~::v:~:1:~a~~e::rl TeTlE
L__________________________
-
:::I<:.. ..J. LLL"UL"
/':;:;'j
10j1.G
I
[--1
Cb
r' "
1I
I
::::::=:::=:~)I
I
I,'
reTT F.
[L-----l
...... ..
T----~~~
,mw·
/
Fi'CTEICGR--l
I
!~~i~~~~~==1
t~:::':~~:
L_ _ _ _ _ _ _ _ _ _ _ _ _ _ J
J
I,
1
\
,
SEt GE'lMflIN
Utn€rlOl.S€,
I
!
t··, )
I
!I
I
I
I'
I
II
I
I
"
[~~~~~~~~=]
I
1:t:t UL" n
I
I
TerrE
'I'
!I
IJ.t:'lMA.H was sllccesstul r-- J
I r--:-'.
I
:J::::::::::::)I
, I
[--"
[--1
I
[;;'H5<:-------------1
1
I
t
lIe< is mil,b1e
Lr ,
I,ro--. ll.t
I
'
'I
J....fIl';J:.n ..
..1;\,J
II ' ,--,
!I
I
e tc
I/ ;::,')
I
,
.1
"ed-O,ly t.[mina1,
J.ll,llCc1t
CE iU~::;t
I
'
II
'
I
I
1
I .. ··'
II'
l"'
r----------------------- --------1
I
"
,~:~::lI;_--J,J,------~~~~~~~) :,1 [~n .(
I
1 C~
Ciltput
' I
I'
,,
FAGE
J
r-------------------------------1
,II
PROPERTY OF IBM
I
___ J
I
neturnl
l_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ J
Diagrall
1.5.11.1.~1.1I-Cl
-
f-::~:=----------------------------I-:~~~::T-~::::--I-:::--1 r-::~::--------------------------------I-:~~~~:I-~:~:~--,-;::--i
\----------------------------------1-------1--------1------ i1--------------------------------------1--------1--------1------'
,
!
I,
I
:,
I
I
I:
,
,
'
I,
I
I,
,
I,
I
I,
,,,
I,
I
I,
II
II
I'.!
I
I
I
II
I
,
,
/
I
II
II
II
I'
II
II
II
II l'II
!,
I,
I
'
,
, "
I/
I
I,
I
I
',
I
,
I
'
'
",
,
I,
,I
,I
I
,,
,
I
,I
,
:,
I
II
I
\
I
I
,
:'
I
I
I
',
I
,,
I,
:
I
I,
:
,
I"
,,
I,
I
:
I,
:
/
I
,,
,I
I
I
I
I,
/
I
:
"
Ii
Method of operation
I
I
'I
I,
I
I
,
/
II
I'
'
/
II
I:
I
I
I
1
,
I
I,
I
I
I
I
II
1
I
1
I'
I
I'
IIII
I'
"
I,1/
'/
I
'1
'
'I
\ ,
II
I, I
'
,
I
'
I'I
'II,
1'1
I
II
'\,
II
'
II
I
I,
I
II
'I
II
I,1/
~f ~:~;.;-:-s:;:;_:~ ~~-:;:~-L:;~:;--------------------------------J
Section 2:
I
I,
I
,
/
,
1 _____ - - - - - - - - - - - - -
,
I I
I
I
I
:
I
I
I
,'
,
I ''
I
I,
I I
,
-;: 1:;:
/
I
-------------------~D~:;1~~~-:- '~S:l':
~
c~
237
LICENSED MATERIAL -
PROPERTY OF IBM
Input
Processinq
f
I
'~Tr---------->
E"V"GOO
~
_L1
?C?TE
___
2 Of'
3
I
!
TC'!'TE
PAG!
Ol1tput
1
1
set TIOA aYaihble flag.
select the .essage
according to s,ste.
SeDse
nI
r
')
L-,'I
'TIOa
I
code and hoild it in the
TIO.
'--,/
lTCTEI"VG
~~-I
"SG2
.
~::::IPOR
r---------->
Jr--I
I
~ If data is to be Durged
1-,
-----> ~
u
In case of Interacti ... e
toqical Unit. turn off
'Signal Sent' indicator,
if lin E-SIGIAL has been
EJ
:::1~:.
t~q~~
~~)l
::;=::1
,
-.:...,_I__V___ ,
Othervise. set. up flags
and fields to send
!';;'SIGIUL ana call Send
------.1
(DPRZSD~)
('reUTSIS
~>G1l
sent already.
DPASf
TC'I'T!
Tn'T!
'PCT!tESG
TCT!ICSI
TC'rlSIDO
..
TC'l!ISIS
'00'
<1'--' \ >===:----~
DPRYSD,
\.---.1
-------1.~.".1.13
~ Su'e error code, if an,
lflCP request f.lag bas been
s~t.
1•••• 1~>
OPH I!PI.
Retarn
toqic
D1II9r8. - 1.'5. t1. 1.21.11-02
DPHZ!Plll - Send Error "S9' Logic
Rotes
Roatine
tabel
RAr
"otes
---- --- ---
I
DPRZE'"
238
-
Sand Brror
~sg
Logic
Routine
Label
Ref
--- ---
I
Dieq ... - 1.5.11.1.27.'-02
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
processing
PAGE
Output
3 OP
3
I
I
Turn off BIn Send Reqaest.
Storage Acquired and Pirst
BO Pat'qed flags
I
Set request flags and
indica te aessage to be
sent
@]
CaU Send DPSIII
II=====:;":)
~===~
~)
(DP8Z~DS).
TCTT!
TCT!!!ICSS
TCTBlIDAI
r---------------
( I'-...J,
, •• , >
,~/
DPRZSOS
1.5.11.1.17
'--------'
~ Sa.e error code, if any
JUCP request flag has been
i
I· .....~:l
,,
/
OP'R'lE'UJ
'l'arainft t.
Log-ie
L
DPRIR". - Send error "59 Logic
"otes
@]
Routine
---
Label
I
Ref
---- -----
Routine
"I 'otes
Ite.oye anT lie" Line characters
froll aessa:qes to be sent to a
32"11) Data Strea. terainal.
I
Label
lef
- - - -----
II
I I
I
I
DPIIS1UII
- sea
Error
Section 2:
".'1
Logic
Method of Operation
..J
Diaqua - 1.5. It. 1.27. __ 03
239
LICENSED MATERIAL -- PROPERTY OF IBM
processing
1
~~~~~1.1.;n.lJ
Step 6
'rCT,rCAP
I
.
·op
.
~\>
'
",===--.,--------------->
~
Tcn.
PIG! .,
t]Qt!tut
I f Chain Asse.bir is in
proqress
RPI.BlB
['-,-----.r-------------->@JIfBpI.not8wsilable,set
.
up GET"Atlf reqaest for
aPL, queue TCT'l'E on
.ctiute Chain ant! retllttt
Lr'\
C;I·'I>J~I
I
.
)·· .... ):1
I DPRZE~i/
Loql~
Set up .essaq. in TIOA to
shoo that inbound data has
been 'Purged
Return
_If
.,
"IDA
I
prepare to append au:. 00
characters fro. first aD - - - to be purged to .ess8ge in
T!OA. Re.owe S8a
seqa~nc""s
fro a 12'1\ data
,\
r.;j
>fii6I
L...;I V
L==--=-----:---;---1
pPB"r.n -
Dlaqraa - 1.5.11.1.27.15-01
Purge Logic
I-~ - - I - I
Wotes
Label
t
Ref
Botes
I~~~
I
I
I
D•• I . .
240
-
-
hrge Logic
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
r-------------------------l
~"'t'ut.
1--------------------------------1
~
i!IOCES:.;iu
~~~~: ,¥~" Hn,
output
r-------------------------------
li~~I------W~i;;I~ ::.::':::,:':.:::::';::: ::I=:::=~)II
'Ii
I
:
I
I
aDIl
I
I
,"c~ic
=_,LI _____ JI'--""
II
I
"co'"'".. ,,,..
.c"uH.d,
I
I
jl,'
I',
I,
I
I
I
:~;;lJ "~ _
I
[;;;;;;;;1
r----F;
II
I
II
§;e;::]
tc 'Ieuination
SEt "qUESt --,------------'/ 1 [:::~:~:~~--l
~~:~:~t:U~::i:C~~: ::turn
I
::~::~~:::_J
L ____---'
I
~c
[~~]
I
11
tiet on tat. in
:~:~.::~
FregrEss
issue 'eCEi VE
ItFHZE,t
Lo~ic
Return I
I
:::::::=:=::~)I
I
I,
'>@t'iiZiiVS-----------l'll
I
~eturn
~
0,
tf an,. se .. ere failure
detected in tEqID/snUD.
I
01
set EXcessi,e !rror and
'IIACP ActiYate Request
flags and queue TC'M'E on
I
"jTO-C=T='=-"=-='='-'! __
Acti'fate Chain
I
Tcn.
n n n _ n ____
>
§]
'tf data recei .. ed, but no
SEHn request. pending
~ Otbervisp., indicate tbat
first RtJ has been rea~ ana
include up to q()
!
I,
Ej>rf1OI
1 V
I
I
'--------------'
HI
----1-1
. "••
DPHZR"V vill perf or. tbe
rec~hei!
TeTTE
I
DPRZEI!I - lttit TCZ!"X01
\fotes
If EOr:
"'tOA
l
lk)
characters fro. RO in
.essage. DeliOTe Sl3l
sequences fro. 3270 data
RPL
.,
h ...
Rotes
I
Routine
Label
!
Ref
---.------------- --- - - - --I
Error.
I
I
I
»I'II"U
- Exit
'('CIR"XO 1
Section 2:
Method of Operation
243
LICENSED MATERIAL -- PROPERTY OF IBM
P,\GE
""ru.t
\--------------------------,---1
rt:OCES..iillJ
:
I
I
I
I
I
t~~=~:~: __ j I ~
I
,I ' L__
-I
I
I
I --
Ir~;:;~lcf--l-i--I-----------)I[~~J
lU..
:
I
, _________ ,
I I
II
;~:::i;;;';-TfJI
I
'.
!I[~~] '"mot..
l~:~~~:~ __ J
I
I
'
I
I
I
I :
I
I [lil
I
L __ J
--.I
I
I
I,
I
'
I
"JI: ... t.
I
,
I
\I
oi~t
,1."
l~~~ /
r- 71
~~
II
r=========]
ljill,~]
I"
I
I
.:lEt 1..1Iaill ruq.;d tV.l.; aud _~ ____________ .J\
I..!U"Cl: cod", 1C2HGC
-1------------,/ ,
, I
I
I,
I
I
,
I
1'0
I,
T----~~~
VTIM
,
I,'
II
I
I
l ________________________________
1_______________________ ________ ..;J
t____________________________ J
-
is p.ndinl'--,
r~~~~~~~~l
I
II
Lt'Ilt..c.l'hl
I
I
r~cEivFd anJr~-;;~')rl01
[~~J ,"cu. :~:':F::r:ctiv.tF
I
I
I
en
i1 Cn.in '"qed fla, is
I
II
II
in msa,' that
I
I
I
C.\.;:.L has t •• n "cnivF·J
~::~:-- ___ -l-L------------)1 rill
J
WtiS;
I'1
J:::::::::::~)I
'1I@J::::.:;:.::::;::::::.. ,'1"'='='=:)1
L _________,
I
,
,",D
has tec:n
'jUEUC 'l('fTF.
requost
It C"l'lCH
I
i f • ccuand
Chnin
i!.ctJ.Voltc
I
I
I
I
(;"~CEl
ulll<::!I." t.h3.r.
L~c';J.vcd,
I
,
r--------------------------------l
I
~~:-------,j-------------,\ [;;71 "
[~;;~;;;;l
I
,-----)
I
I
I
I
['1;;;;iiT1---'
IData
l_l~_g~~
_
___
III
I
.J
I
!
I
I
!
I:
I
Il_______________________________ J
.fEf~iRRI
I
I
[~~~~~~~]
:
I
I
L_______________________-.l
I
I'
I
Set restore read J.ndl.cator 1
::-,
I --,
I
J270 Pr.l.ct Key
I
I
~~-
10:51
I
I
!I
I
I[~~~~§============l
I,
I
,
I
I
I
I
,
,
I""
Get TrOA and set
I
iI
1
!
I
I
I
!
!I
I
I
,-, \/ r-----------------1
)\ I
I \/~~~;
~::~~:------------- zzzzzzz~zzzz\ / I
I
I
I
~"'_''''______J I·
[e!l
I,"
,
II~~~~§==========]
:1'
,
I
DPI:iEXI:
i l lro2"l
I
1 Or
r------------------------------l
I
t:L--J\.
'::1
;::::----- _L ____ ~~~i~: @n
!
PAGE
Output
~
\
/
V
I'
!
::
I
:I
I
I
I
I[________________________________1!
(laSK Attacbed)
Diagram -
1.5.11.1.~P.-Cl
I~~:====~=~======~~=~~=[::=:~~~~~=[~~~~ll~~::::=~~~~~~~~~~~~~~~~~~~~=~~~~~~~]~~:~~~::I~~~::~~~I~::~~~1
IrOIl
pI:ogtaw I
I
I I
!
I
I
:
I L __ '
1
1
dllFll.catl.On J{Ej' that has _een
Tne AID dennes tno 3270
II
II EXI£T
::::::'~~ c:s':~:I:::::: ::y
I
I
the
jrcm.
I
II,
r-~-:]
DFlllC :rYP.c;=PBINl macre.
I1,--,
IIOijl Cj(hel:l
I'L-~
5k'8Cl.b€1l as the 3270
I
I
I
I
I'
I
II
I
II
wtl.te conttol CbaracteI: .loU the
I
I
111
I
I I
I
II
I
I
11
II
1
I ::::::::::~::"":.:.::':.. I I I I
I
II fool
I
II
II
L
-'
1
'
I
I
I
1
I
j
I
i
!
IIEUEET
I
I
I
I
I
I
,
I :
I
I
I
I
I
I
I'1
I II
II
1
1
I
I
I
\
I
II
I,
,
!
!
I
I
I
,
1',
:
I
I
,
'
II
t
:I
I
'I
':1
I
1I
II
I
:
1
1
I
I'
II
II
I
I
I
I
I
I
1
I'
'II
I
1
I
1/II
I
!
II
I
I
I
I I I I
I I
I
I
1
I
:
,
I
I
:I
:
:
:
i
!
,
I
I
I
I
:
I I I
IL________________________________________________
II
I
J'[ _____________________________________________________________
1
II
II ,I:
I
I
I
I
3270 Prl.at Key
Section 2:
l'l:'a.sK Attacb.ed)
Method of Operation
, Diajram -
1.5,l1.1.2E-Cl
245
LICENSED MATERIAL -- PROPERTY OF IBM
procEssing
lu,t'Ut.
r------------------,
wg:n.l.31
II·
I
II
r:L~,
PAGE
Output
I
I
I
I
J--"
DF 6CPY:
l=:-VI[~
i
I
tw.
[:rffisTIL---
--,1
A.
Get source terunal ID
'
\ t~~,/
!
I
length of
record
---------
:::::::=_J
1
'twASTIC
itiisTID--
and model nUllber
Terminal
ID.
r;:FiiI~-----------j
I
1 0'
--------------------------------,
r------------------------------
1WAS,(T!'I
L----.:-----------______________ _
II
Terminal
model
B.. If the return from
I!~~]
I
Dt'iiIC is ncnzeto, set
an ABENt code and
branch
Get 'rIO'
II
I
I
I
I@~)
I
II
(05]
I --
I,
IL________________________J
Ji10 PrJ.nt Ke.t -
~Ofi
I
II
TIOACLCR
3270 copy
control
Put source terminal ID
into llCA and set len1th
zzzzzzzzzzm~
~~~!~:~=~-
1'IOA
,,0;,iit---1
[---------tenlth
J
TIOASTID
J£~:~:~~ __
r-----------------]
<, !:~~/> L~!~:::------------_______________ _
l~~~_::~:~~:~_:~~~~~:::~_:~~:_
PJ:o;rali.
>
Copy data
1 ,-',
[--------1.
TIOA
Set 327C copy control
cbaracter
I
I
l_ _~______________~_ _ _ _ _ J
Diagram" '.5.11. '.:i9-CI
J-:::------------------------I-:::::--~:~::-I-~:~--l r-~:~::---------~-----------------------;:::~~:--~:::~--j-;:;--l
[~~ :~~~~:~:~~:~:~~:~:~-II; ------'" ;;;~t-------------------I---- -----1'------1
1
J
I
I
Toe datCl loS reccvered by
toe
Dihle TYEl.=G.t:l
mND
lid)'
I
of
macro.
code = AeEl.
1
I
I
I I
jr--,
l~~
1
I
lI.ust: be i'I:OVl.cted to start
II II
I
prl.ntiJl:l tram t.ne bufter. The
I
I
I
:::::c:;r
!
!
I
mGET
t •• WO copy centro! cbaracter
exa.~le.
t~:e:o::::·~:r::n~b;or
Hode! , "equires •
II
CDdI:acter at 5ti (lleX', whereas
I,
Hodel ,L rei:tul.res 78 (hex). The
ilodel. D.Ullltler at the source
t
screen l.S avauaD!e in TWAsrTH
18 "~. . ""'.,,
1,--"
.II!~:J
Toe .,'Htc an=copy macro wi!!
COiJi tram tne t.erminal whose ID
I
I
I I
I
I
I
,
I""""
I
I
t
I
I
I
I
I
I
I,
loS specl.tl.ed in t.oe T lOA.
IL______________________....!I_____...!.______________
1 I
3..::70 Prl.nt KI:!I' - coPt program
246
_________________________________________! ________ !I______ JI
'
Dialt'all -
CICS/OS/VS Program Logic:
1.5.11.1.29-01
Description
LICENSED MATERIAL -- PROPERTY OF IBM
r--------------l
!I
PAGE
output
IDrUt.
~
2 OF
----------------------------,
II
II
I
I
I!
II
I
(I
I;;' '>
\. r-,/
@~]
~~~~11.
I
@~]
.29-0 I
fOal;! "
(~V.-:3{
--, [0"9]
--
I
~
--,1
["'81<:------------]
I
---------------..,.-
-----------------
If return is zero, branCh;[-;;-;~'>f9l
otherwise, set ABEND code ___ , / L~j
If abnorllal exit, ABEND
transaction
I
If normal exit, return
1
)
[;;;;;;;;1
------J~
, I
v
I
I
I
I
!I
I
I
!
I
I
I
I
I
1
IL_______________J
I ________________________
L
I
I
L ____________________________ J
:U.70 Print Key - copy Pro:lralll
Diajram -
.
----------~--------------l------I--------'------ !
I
I II II
II I j
,---------------------------------------- -~::::--------------------t
J doutiDE
Bef
1--------------------------- ----- ------ ----- [
Notes
,1'@~]
J
Late1
rransact.ion CSlI.K w1.11 unlocK the
source t.erllliDdl Itld'j board.
I
i~
1.5.11.1.:;:9-C~
---------;::::::--~:~:~--i-~:~--l
1
AiENO co<1.
=
ACE<,
1.--1
IL~~
I
CPt UN D
I~~
CPI nET
1
I
I
1
1
1
I
I
I
I
!
I
I
I
I
I
I
I
I
I
I
IL _____
3270 PriDt
K~j'
!
~
I
I
____________________ _
- Copy program
Section 2:
Method of Operation
I
I
I
L
II
I
I
1
-----------------------------oi;]r;;-:-1:s:,,:,:29:c
2
247
LICENSED MATERIAL -- PROPERTY OF .IBM
F~GE
1
C~
,. • r----------------------------- -1
r------------------------- ------1
f':L~, I,
I ' ,I
'"
?rocEssi~3
J.Ul"ut
r---------------~--l ~! ~~n.
,
I
I~
Output
9
Dit ••• :
L~~~V f,r--,
~lJ
!
Jet rICA stcrage
I
I
I
II --,<~~1 >[~===============j I
II
"
1
[rlOA
- length
0;
1'
... Set
tc zero
I,,
I~D
)\
I
II
ZZ?!ZZZzzz:m\ ,> ,
!
I'
TIO'
,
[:riOiiOL--1
,:~~~;~ ___,
I
I,
U.LOCi< kEytoard
III
(/1-:-:' \>ftFHlc------------l
I,
[~]
!
1,1
I
I
\ r--,!
-----------------
00<0;:----------------'
I
I
I
I
[;;;;;;~1
------F
I
'.5.11~1.29
J
I
I
!
I
!
L_______________J
I'
L____________________________l
I
I
L____________________________l
Diagram'" '.5.11.1. jO-CJ1
.:1...:10 UuloclC. Keynoclrd Erogralll.
~;;-;.-;;~~::~~~ :::;:~=:====~;::~~:~:Fq
!
I
vrl.te cootIOJ. caaracter ill the
CTlCtlAa. 0l'E.t'cUIQ ot a DiB'l'e
TYf.£=W!tl.T!. .aCro u.o.l.ocks tboe
I
I
I
,
I
!
I
I
I
uytoarQ.
I
i
I
,
I
I,
I
I
I
,
!I
I
I I
,I II
!
I
,
I,
,
,I
'
I
I
I
II
I
I'
,
I,
,
,I
I
j
I'
I
I
I I
L___________________________________
-----------------------------------------------------,
I,
J.l10 Unlock Keytlocl.,td Erogralll
248
I'
Di8";Jrall _ 1.5.".1.::0-01
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
lnpUt
\r::::-------------------procEssing
r---------------l~~g~H~~:
EAGE
output
1 0'
----------------------- --- -----1
l~:~/L r 1C1i~iTJ--I------------->1 @!]Brancbifterminalisa
I
I,
,
reTlE
larm~nal
L:!~___
I
[AI
~::~---,
I!~~~I~~t 1----> 0
'l~~i~~~t
______..!J
'I
~ ---->
I@]
I
J-----------> I[~]
I
I
1
IMr~~1
IIcui'T-1
t ~~f~~D- I
I prl.oter .... _1
E:~~_~~
feature cannot •• used
~ranch
Find. a specified printer ..
If none specified,
I~]-
rmmr-]---
I
I,
Brancb i f 3270 copy
I
nnE
I
J27~
j----------->
I
~~;::m==-~)
I
II.:.:..:.:....:.:.:..!...
out of service, or
intervention required
-- IJrancb
_ _ _ _ _ _ _ _ _ _ _ -.1 ,
Be Yes -- save printer
'lC'ITE address
iciiiis-I' I
l~~~~~~J j
I
,
r-~'
'l'C'l:lE
rj~~!~fl--!
f i~i~le~ddrl
liCTEAPT-
I
L_________~~~~~~J
J~10
frint Key
,NO :I'cUIt Att.ached)
,~~ Haraware copy ..teature not.
avaJ.laale tor
1~
I,
I
l_ _ _ _ _ _ _ _ _ _ _ _ _ _ _
IL____________ _________________ _
~
1 Oia-;ran - 1.5.11.1.::1-('1
PRKST
::,sa~.
Tne COfI Ol-tioD. must have Deen
:~;::~:;e~:ll::eO:a~:~T~p:~CT
I
macro.
'1~
It 110 l"cJ.lltec ~s a'fai.laille,
I
T!k.b=.EJU.Hl .acro J.S i.nvoked .
I~
See also Note 0:'.
PRKfDPT
::::i::~Q:::::o~h:~l~h:i:;:~~e
• •• AVL
I
l ______________________________ _
~.ao
Pr.l.ut Kat
,No last\. Attached)
Section 2:
Method of Operation
_________________________________L_____
t_ _ _ _l______
I
J
Diagram - 1.5.11.1.::1-CI
249
LICENSED MATERIAL -
PROPERTY OF IBM
r--------------------------
r----------------l
I I
I
I
ProcEssin ';
lA~U.'t
II
[~
ro~)
I f COpy was not specif1ed [---"
~~~~~:al
jI
I
:
I
I
liCir.rnI Source
I
11':'
j
,
t I ------,/ --
I
terminal 10 and------------A\
--------------v'
model number and eet
rEcord lEngth
T ••
rrnSTIt---l
Length of
i~i~~ic---
----------1
___
ter_1nal
l~~~:
I
I
II
~]
----> l:_ tor tbe available printer, ..."'I
--,1 > -9
r--------1---t
[__] • ra DC b
--1..:-----"\ 06 Get source
,1::t'rElI
2 011
--------------------------------1
I
II ·
:I
1
P.o\GE
OlJtptJt
T
•• STID
t:.p.tmin
.... l
1
1
)
ID
-------I Terminal
____ _
1
TWAST'I'"
t~~~::
I
A. Initiate eSCY
transaction to print.er
to copy data
I
1'-"
I
1
I
II
B. It an atoollla! letllrn
,
:ro_s]
L:
thE[;;~'>rlil
Go to exit
I
[;;~ "
I
r-,:::J{
--,'
--,1
I , r--,
l_~--------================-----J
lasK Attacbed)
ri.1
\I
I
I O!f I-I >1
V -.1
[LriiTc-----------]
1 Eri~t-d8ta------J
L ________________--1
\1
II To
1.5.11.1
.31-03
[~E~"I~~]
,"0
To
1.5.11. ,
code from DPRIC i s . 31-03
rece1Yed, tranch to
ABUO rcutioe
)47Q .Pr.lot Kt#l'
I
r----------------j
<, ~~~~/> IL~:~~:-----------______________ _
L______________________________
Diagorall -
I
J
'.!l.11.1.3 1-C:l
,-------'------------------,--------------------- ---:--------------------------------------------------j------1
l_tiO
for abnormal exit
B. Set OlBIC response code
I
in RO
c.
@]
Fot" norllIal exit, return
:
I
1
1
J
, I
\
V
I
I
I
I
I
1
1
L_______________________ .______ j
L _______
3270 PrJ.nt Kt:lY
!
!
I
ABEND transaction
Diagram - 1.5. 1 1.1.;1-(3
tHo 'Ias.k. Attached)
1.----------------------------------------- --------------------------------------------------------.,
L~~~:~--I-~:~--!
l~e::-~::.--::-:;;;~-OPt:::--- -:~~::I-~~~~- -~:~-- -:::::------------------------------I-:::~~::
[~n ABEND code APR
IpRKA"," i
t
I
I
[~~
,PR"" I
=
1.
II
wl.11 nave Jleen specl.£J.ed J.n the
J
PRINT'IO
1
AU'fBI (alternat.Lve pr.Lntet")
i
!~
(,tlt".LIIIat"y prJ.Dter)
1
or
opeunds ot tne DiH'IC'I macro.
See also Note OJ.
PRKci:\y
t
t~!]
TAe esc}': transaction is
'II
:::::::::
t::::t~:~;::~:;;:::
iD
~D
and. t.erminal Jlodel
',@J::":::. co~y teatore caDDot
3.<10
I
PRKEBT
JlE. used, copy loS peI:forllled by
t.e
DFHIe THE=
lrl~ ~j (.bex)
fUNO 'acro.
specitJ..ed as tne 3270
,,-- write COD tro1 c.aracter in the
I
I I
I ____________________________________
I I
L
_
't
CTLCHAh O,klsrand of a DEKle
X}':PE;=IIIR.U.t.; lIlaCl:O unlocks the
key~oard ..
:J270 PClont Key
Section 2:
,NO
Ta~
!
I
I
I,
I
I!
,
I
the TWA, and coDta.ins the sOllrce
terminal
I
\
,
Attached)
Method of Operation
II
\
i
I
II
I I:
\
I
I
1
I
______________________________________________________ ------.1I
Ciagram - 1.S.11.1.::1-C'3
251
LICENSED MATERIAL -- PROPERTY OF IBM
----------l
~I··~·t
output
ProcEssing
or
DFHZRVX
DPHZRAC
--------------------------------,
.------------....;--------------
I
f:l-J'
•••• , :>
I
,'I
l ___ ,/ ~~]
Set Uf haSE re;Jister via
I
DFhtCES~
~:!~---l---------------> ~2]
m~~~~ I'
1'10A
filo.iiiLj--I data
,
Ilen;th
I
iLOAD&A~.
• dat.a be:Jl.l1
I
1--
[-----------> @]
I
-----------> rn-]
l~~
I
II
r-'/ - ,I
I---" 1-]
Return l.f z€rc data leDgtb ••• r > 5
translate data to
uFpercase
l!~~~~
[51;;j ')
I
Address TIOA
ZZZZZZZ!ZZZZZ~ /
! [-------]
TIOA
TIOAr:BA
data begin
I
:~~::::---
!
@~] When all data has been
:::.l_-'1/
I
translated, return via
I
DFH'ICEIl'I
[;;;;;;;;1
------]~
, I
V
'Io caller
I
Ii
,
I
I
!L ____________________J'
3.270 Uppez:case Trans.l.at~on
_______________________________ 1
ciagram -
(DFUZUCT)
1~5.".1.~2-01
-----~--,---------------------------------
I-------------------- ------ ------ ------ ~~~~:--=~~~~~~~~~==~=~=~~~:~~~l:::~~::I~~:~:~~~I~::~~~l
Hotes
:~
No
Boutl.,DEI Late!
reg~s\.~rs
are saved.
DPH2UCTl
l'rOAl'D!. is tested for zero.
The data is tIaDsla ted 256 bytes
at a tHe.
Ref
TCZOCTl
I!
I
I
I
I
I
l'CZ OCT 1
I
I
I II
I
TCZllC1'2
I
I
I
I
I
Ii II
I !
I
I
I
I I
I I
'
I
! II
I
!~----- _______II ________L____
I
I
_________________________________________________________
JI
3270 Uppercase translation CDPHZUCT)
252
/"
, llia3'ralll -
CICS/OSjVS Program Logic:
' . 5 . " " , : 2-0 1
Description
LICENSED MATERIAL P.roce!:i$ill~
J."rut
' LO., ;~~~:~:
1:: - - - - - - - - - - - - - - - - - - - - - - - - - - - -
1
11
I
l ----,/
I~~ ::::':::,:':::::.."'"
I
,"10
1
t
I
I --
a
r!~~iL~"]---------- .. ----)1 (~~]
l________
I
tI
il...l'".I..c:
,---------1---------------> ~4J 1 t daDlockin;J is in
I
I
I
I --
J
I
L~~:::~:~__' I
I,
\iE1.~AIN
request for
rl;i.ttj
GE'I/'IAIN
',I
>
l!~~:~~_ -1---------'/, --
,
I
I
I
;::~ _ _,_L _________.,!
!~ll~-'.·-·,~-~-uO-rD- jL______
1\
_
I
.. JO
--,-----------"1
c •• eve 110A fICO HO'
'I
I
______________.J\
I
I
[;;~ " Iii;;,
r'"
I
nzzzzzzzznz(> I
I
choi"
' I
S.v. f o91
I
1771\
7777777777111\1
illQl.Cdtors, thEn turn thEtt----------:---
I
I
III
Scan
~~::!-----J L____ ,I e'] ::::':::::::'.:::":::
I
I
--,------------"
I
I
II
cI.
I
I
TIUA 1S pendin3, .set up to --, I
I - t'l:o;lr~ss, reset 'f P.H
',.l"lJ.Clctt~[
a1Dd go ~c
OL" oglca recate
I
I
It
II
r---------------------------- ---1
,I
t.N1'#Y LCGI.C
PAGF '1 OF
output
r--------------------------------1
····1 )
1
PROPERTY OF IBM
I
I'
_____________________________J
I
L______________________________ J
I
CiB')cam -
1.5 .. 1' ..
1.~3-('
1~=:=:::==----=--I~:F~F=1 ~;==:::::::::=::::::===r::;;:F;:;::I:;:;::1
I
U foql
L___________________________
J'
I
\I
l-rel:H::llt.clt.1o.JlI
I
----------------------------------ti;;r;;-·:-,:-;:''i:':l3:c:;
254
CICS/OS/VS Program Loqic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
r------------------------l
II
II
lUt-tAt.
ProcEs.:;in
~~J
[2~]
Deterwine len,th of neA
to
obtained
.t;-==
nnw 110A Reed not bE
olltaiued, ~rocess as
It •
.::iuccesstul GE11Ultl
!
I
"
I
I
I' [ - _ I - _ I J
ls~u~ GE1~AItI
'I
ootdin new lIOA
I
I
-
Hove 10,ical
1
I
1.;3 !.UJ.l.J.J..!."a:
I1
I,
I
-
be U,sI::lL
-
·J.ne.r~ 1.:;'
lJ.GA
<1
J
re':l,Ul;:lst.
I
::::~:::::::::::::::~:~::<
I
tOt
I\I -I~"
...
UP . " . . . . •••
«cnt.ation
Section 2:
Method of Operation
I:ia1ralll -
1.5.".1.':::!-l3
255
LICENSED MATERIAL -- PROPERTY OF IBM
r--------------------- ------1
r------------------------------ --1
IDi-ut
'I'
:,"
I
lei'.'I,
<,coce::i.;in3
IJ.!£:t",uiiIlE if
I
I
I
.$E"':;CIIIl
I
I
tuliUl.>"_ It
',t:,[ cf 3nticn
"
I
tdil\~d"
ljJ If ':;J.;;J..'IAIN
the
sc,
,I
II
I
I
I
I
l(.'l'!.r; cn l\ctiv~te C h a i n ,
dUll
I
I
'10
I,
'I
"
I
I _____-------_____________1I
L
II
I
"
II
',-----J:,
I
lJi'ti"l.hi' - !.O:llJ.Cu.l
lH:iyCJ.:U
'10
1
,
I
cdlL:r
II
I,
I
I
I
I
I
IL________________________ _______'
Il________________________________ ,I
I
:
II
!:o:o='-~ )
' \
"
I
"
r~~~~~;~;l
',I
,
I
calYer
ill,!!'] :::::::::::::::;;: :::,," :
I
I
1
'I
"
I
I
I,
[F:::~~l "
I,
I
\
I , 'I
I
;1,
II
I
1
"
Of
'
! II
I
return
ij
I,
ler sutsEI]Ut~nt)
tcc rEtry has
cl.lr;;d,uy lJe.::n done. Queue
'"
/',
this is
r---~----
"
I
,
"""
"[--'
'I, --
_______________ )
[-_'
.. ' _'-_'-_"_I-_"b_-_"::::1
_..
'
,>c'A"
,
-----------------------1
FlIGE
r:utpu t
I
:
I
,
,I
11
ftt:.3"Ut.d,tlon
Diagram -
'.5.11.1.~3-C(j
r[;;::=~~~~==~=~===~~==~~~~~~=r:~~~~:I~~:~~~~I~~:~~~1\
!~::~:~~~~~~~~~~~~~~~~~~~~~~~=~~~~~~~JI~~::~~:r:~~~~~-I'
~::~~~1
I
I
I
I
,
~~j 'rne
!-I,;l,ht",).;
cell t
I
I
----'11
',1,'(.1'1£
,
[ -_l;-_O-_J.~-_H_E_f::-l------------- .. -) ~2J
---1
1-:-:i'>fo31
If t3tJ:or class is zeto OJ:
'~reatEr than IaxilEum erret -_, I
\1
elliS;:; Jenerated
[~~J Point to aF~rOP~iate NEP
'{'able entry
"'(,.i,.JuHiil
rn~]
r----~=::====:~) t~~
1------------
1-------L
___ _
I
I
1f
a NEP na.e
.
e:usts
in
tb.e lI.t.P 'tablE, place NEP
nciliE 1.n leA and link to
uSI3!:-written NEP
I
\
V
I
'Ie: C.PHZNAC
___________________________-1
I
_______________________________ .J
Dialram -
'.5.11.1.214-Cl
,--------------------------------------------- --------------------------------------------------------------1
liii;·:;:;:-;;;::;::;;;:;;;----I-:~: -=:~~- ~- -~::-..-------------I-=:·:: I-~::~+:·-I
I~~J
'n. ,o..c.r to tne HE' t.ol.
aut;t.,Y 1.:; LEtiet
to
~cil:l1;. to ttLa
il.I:st t.dLllE. entl.j'_
I II I !I
I
I
I
§l
I I
I II II
I
II II I
I
I
II
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
IL ____________________________________
I
_
ll.Pni.lu•.t' - lIoa.c t.U:Ot fJ:0:Jrcul Interface
Section 2:
Method of Operation
257
LICENSED MATERIAL -- PROPERTY OF IBM
Page 1 of 1
INPUT
.... .
lb
:>
TCTTE
I TCTTEDA
I
ITCTTETI
I
02 ••
@E0
:>
TCTTE
ITCTTECIP
TCTTEDIP
TCTTESOS
OUTPUT
PROCESS
TCA
~
Save TIOA address and generate temporary storage
data identifier
:>
I TCATSDI
~
If command or data in progress, or if the terminal
:>
I TCTTERCS
TCTTE
I
is out of service, Receive is chained. Otherwise
Receive is called
TCTTE
TCTTE
ITCTTERCS
TIOA
ITIOATOC
irlOASAL
TCTTE
I:CTESQlP
TCTTECR
TCTTECRE
:>
I
:]
WAIT for completion
~
Save the TeTTe status in the TIDA, flrS't'<:ibtaining
a larger one jf necessary.
:>
ZRAOSOIP
ZRAQCRE
~
~
I
TIOA
TIOATDL
ZRAOCR
TCTTE
ITCTTESMD
:>
~
Issue a temporary storage PUTa macro to save the
:>
TIOA and set the read ahead data available and purge
required bits
~
If not in send mode return to step 2 to read more
data, otherwise restore the original TeTTE status
and reset the read ahead queue required bit, and
return to the caller.
:>
TCA
I TCATSDA
TCTTE
~
Diagram 1.5.11.1.35-01
DFHZRAQ - Read ahead Queueing
NOTES
~
~
Receive module
DFHKC TYPEcWAIT
ROUTINE
LABEL
REFERENCE
DFHZRVS
ZRA010
1.5.11.1.14
NOTES
ROUTINE
LABEL
REFERENCE
ZRA030
DCI"TERMINAL
or DFHKC TYPE=WAIT, DCI=OISP
~
DFHTS TYPE = PUTO
ZRAOSO
Diagram 1.5.11.1.35-01
DFHZRAQ - Read ahead Queueing
258
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
Page 1 of 1
INPUT
TCTTE
I TCTTETI
I
Uk)
TCA
• ~
TCTTE
I
TCTEICSS
~#
Construct temporary storage data identification
~
TCATSOI
If temporary
stor~ge
error occurs ABEND the task
with a code ATCR
~
If the queue was empty reset the Read-Ahead Data
Available indicator and return to the caller with a
I W00';4>
~
Wait for an outstanding WAITE to complete if there is
one or allow higher priority tasks to be dispatched.
I
~
Oecrement TIOATDL by 4, the length of the data
saved by DFHZRAQ at the end of the TlOA.
return code of H,
TCTTE
0W~h
>
0'§/ffffi
>
I TCTERADF
:?"/~$/~
I
TIOA
TIOATDL
I
Retrieve item from temporary storage queue
[§]
I
OUTPUT
PROCESS
FROM
DFHZARQ
TIOA
TIOATDL
TIOA
rZRARSQIP l/WWAl
ZRARCR
~
ZRARCRE 1
Restore the TeTTE from the data saved by DFHZRAQ
WA//ffi
Save the TIOA address in the TCTTE. reset the read
request bit and return to the caller,
'BYNffi
TCTTE
El
.
~
Return to caller
Diagram 1.5.11.1.36-01
DFHZRAR - Read Ahead Retrieval
NOTES
ROUTINE
LABEL
§]
ZRAR90
~
ZRARBO
~
ZRAR20
REFERENCE
ROUTINE
LABEL
REFERENCE
Diagram 1.5.11.1.36-01
DFHZRAR - Read Ahead Retrie\lal
Section 2:
NOTES
Method of Operation
259
LICENSED MATERIAL -- PROPERTY OF IBM
Page 1 of 1
INPUT
From
DFHZHPAV/
DFHZHPSD
macro expansion
APL
I
I
I RPLNODE I
RPLREQ
~
TCTFX
I TCTVRAVC J
I
TCTVAAVL
I
I
CSA
CSAOPFLA
CSASAAA
CSATCNAC
I
I
SAX
SAXNXHTA
HTA
.1
I
HTAAD
HTACHN
I
I
TCA
I
TCASYAA
I
APL
APLECB
RPLNEXIT
I
RPL (Extnl
I
I
ZRPLNHTA
TCTFX
TCTVRARP
I
I
r
r
:>
~
:>
~
OUTPUT
PROCESS
DFHZHPSl :
~
Clear RPL Extension and save return address
[§]
If no HTA needed for request, set indicator on
~
Address SRA and access HTA quick-cell chain
RPL (Extn)
c::::)0
Take HTA off chain
~
ZAPLNHTA
:>
HTACBAA
HTA
If none on chain, call
GIGS Storage
HTA
Control
DFHSC TYPE=GETMAIN
CLASS=CONTROL,
COND=YES
Jb
~
Initialize HTA
~
Initialize APL for SRB mode SYN request and complete
~
If Receive Any request without an HTA. add RPL to
queue, return to caller
~
Pass RPL to executor via SRB
RPL extension
CICS Task Control
I
TCA
TCAASTSK
RPL
:>
RPLBAANC
RPLECBIN
APLASY
ZRPLCOMP
ZAPLECB
ZAPLTCTE
ZAPLSRB
q
TCTFX
TCTVAARP
DFHKC TYPE=SRB,
SEAVICE=ATIACH
~
~
Return to caller iRETCO-=O)
Diagram· 1.5.11.1.37-01
To Caller
RPL Service {DFHZHPSR}
NOTES
:>
ROUTINE
LABEL
DFHZHPAX
1.5.11.2.18
REFERENCE
NOTES
ROUTINE
lABEL
REFERENCE
Return address saved in RPL extension
while HTA obtained. then in Register
O.
@]
~
HTA not needed for Receive Any
requests unless there are too few active
SRB made Receive Anys, always obtain
HTA for SEND or RECEIVE SPECIFIC
for SRB attach.
Control is given to the RPL executor
in SRB mode, via Type 6 SVC, issued
from SRB management services in
task control.
Diagram· 1.5.11.1.37·01
RPL Service (DFHZHPSRI
260
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
PAGE
1 Of
iExit Routines
;
1.5. 11.21
I
'---1----'
I
I
I
I
I
I
I
I
I
I
I
I
I
i Logon
i iOPNDST
E:x it
I (DP'HZLGI)
1 .. ~.1'.2.11
'-------',
I
,
'.~_11
,
i StSSIO~C
Ex it
I I IDPItZOi-l)
1:.xi t
I B~ct:'i .. ~
I I specif ic
I
1.:'.11.2.31 I (JFti2.8il)
I
~--I----'
I
1 .. ~.11 .. 2 .. 1I1
I I IDfBZSEJ:)
.. 2 .. ~1
,
iScIH) DPASI Kliti
I (lJPi.lZSAl)
I
I
1 .. S .. 11.2·"1
,
,
I
I
I
I
I
I
I
I
I
I
I
r-------------------------------------~------------------__,
I
i
isession Control
!Input exit
I
r (DFI::IZSCI)
I
I
1.5.11.2.61
I Cl~DST 1'::1 i t
I (01"I:I2.CL1)
I,
I
1.5.11.2.71
,
i
a~!:ipQns~ hit.
I (Ol' HZRP;(I
I
I
1.~ .. 11.2.~1
'---1----'
iLCJSTI':Rl! t;Xl.t
I (VlIHZLTl)
I
,
iii~ledse
I I Bait
1 .. ".11.2 .. 91 I
,
,
•
llequesti
(DPHl.RRl) f
1.:> .. 11 • .i .. l01
.
I
I
I
I
I
I
I
I
I
I
I
I
iumAD
IDFASY Bxit
I (DPHZASX)
I
I
1.5 .. 11.2.111
,
,
B:lit
I (DFHZLEX)
I
•
1.~.11.2
I'rPEHD exit
I
.. 1:t1
I (DPH7.'Xl'l)
I
iSl:!nd
!
Method of Operation
!
UPSYN
I (DPHZSSX)
1 .. ".1'.2.131 I
Visual Table of Coo"tents
Section 2:
i
,
e.1itl
I
1.5.11.2.HI
I
SYNAD Exit
(DFHZSYX)
.
I
I
1.5. I 1.2.15 :.
Di.agraa -
1.5.11.2-01
261
LICENSED MATERIAL -
CSA
PROPERTY OF IBM
processing
l
OutPllt
r:1-,,1
1:::':':/1 fn."1
ESATCT~-I-====~> l~ ::~eU;T::d::::::i~::!e::~ --II-===:>
---- __________ I@)
[!TT·.C~TTYYCL
•• I BB
-1---------'1. 02
ri~
l!!S=
C
-A~.~g~gR
.J\
"]--------"
fOil
-1.----------'/ 1'.
~~ ~
'r;,
I
TCTrl
~Ciyon~]l
SYlIlloll.c
E:
CSA
fF>
up
addressab11:i.ty. If not in
NIB list .....
Indica te node logged on
b'>r.Alllj
_L
I
I
V
J
and guelle TCTTE for OPHDS1'
as long as system is not
,
ter.looat1ng.
I
JJI Lr----,/
------'1I
•
I
I
LoqOD Exit
I
lotes
I
Scan NIB list to identify
§IDR~
Tl
L
@1
--1-----./
TeTrI
If terllinatloog •••
[CSiSSI2:=1-1
i
------.,
NIB table search.
I
r.\--' to;j1
l!CTYEYB!::]---'1 /~J ~ __ '/lll::.J
ii~i·!~er
In1tl.all.ze pOinters for
t.:.::J Dode and set
§sSI~:=1T >~]
1 OP
1\
1
Tdu
PAGE
.ootinel Label
Re;':;:;:-:::::-:~::- -----1--loS the return address to VTAti.
Due to th e speed at which the
logon ex.:i."t is driven by V'rAft, it
is very tossible that the 'reT'rE
could vind up in SII!LOGOH again
before the SIftLOGOR request bl. t
is turned off. Thus, Logon Ezi t
turDS it off also.
Rote: This hipo indica tea the
nor.al flov.
A. In order to log the syabo11c
naae -of the inva11d node, a
I
I
I
Dloagra. - 1.5.11.2.1-01
.:-l!
Note.- - - - - - -
---I r
11
II
Rout1ne
Label
Ref
II
II
II
I
I
I
\1
du ••y 'l'CTTE is Deeded.
I
'I
I I
Logon l:iit .
262
~UL
I.-J
D1.agra. - 1.5.' 1. 2.1-01
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -
OUtput
B. Since s!'stea is
tar aloDa ting pre 'lent
additional lagon
atteapts. Initialize
dedicated BPL for
SB'lLOGOI aDd CLSDS'r
hcro iDstructionS".
lIB
"
,1
[~cnB'U
C. CLSDS'r 1n'la11d node
at.teapting to LOGe.,
in!. t.1a'lize c1ec11catea
BPL for SB'fLOGOI aDel
CLSDS'f aacro
instructions. Ilso
lond1catB 1f CLSDST
failed by g01ng to
MACP.
l'AGB
20.
2
~>
1J>
D. In1t1.al1ZB dedicated
aPL for SB'rLOGOI ana
CLSDST aaero
1QstrQct10DS.
PROPERTY OF IBM
I····:;>
I,01
---I
Logon b i t
D1agraa - 1.5.11.2.1-02
Boati.na
lotes
B. BI issuing SBTLOGOI gU1esce,
Label
aef
lot.as
---- --- ---
-
ROQUaa
aet
Label
---- --- ---
all sQbsega.en't LQGOHa wUl be
raj_ct.1t by ''fIll. , COUOD
BfL set up rout:i.De is l1nkea
to "ith a BILB.
I
C. IIh.tber tbe sJ sua is
ter.1nating or DOt, a CLSDS'r
of the 1n.a114 DOde 18 40ne.
I Bit is _48 to the co••on
apL •• tup '£outll18.
D. COa.OD aPL set-up ,£out1lLe is
l1nkea IIILal
~o
bJ
~be
SB'fLOGOI and CLSDS'f ,£OQtiDe.
I
I
I
I
-~
Diagraa - 1. 5. 11.
Section 2:
Method of Operation
~.
1-02
263
LICENSED MATERIAL -- PROPERTY OF IBM
r:H~ll'1':
p~r;f
"roces~in'1
TRDUt.:
r)utnut
8P'on001
1 (')'P
1
--,---,----1I
l--------------------------,-----,----,---l [---:---------------------,
I 'jo~p.s
f Routin""l tab""l .\ npf \; "'ot",c;
~ l1outin~~
Labpl
\
?~f
\--:;------~------~---------I---\ ----1--11--------------------------1----1---1--
I BJ
'
,
,
TOT'UP LS l.o.d., nth the
cnntent,f; of qPL['IC;F'LJl.
!Fi"2l
,-,
regist.er 15 at comnlE'tion of thp
II
of the OOHDST reqUpst.
1,
\
I
V.,"
inserts, roturn co,p in
macro instruc"on
CHP.CK
ot"ocpssing in<'1icat:in(] t:.he
I
If t'P.'qistp[, 1'1 is
I
".,ry h"e
processinq so
II
I
,
:
,
1r~l
r~gistp['
:
,,II
'I
I
I
I
'
,
,
I
I !I
,
J
\
n",qi'lf'.iv~
LF'rH.D
II
I
I
I
I
I
,
11
,
,
,
',II
I
I'!
'!
I
'I
'
:
,
1
I
I1
II
I'
I,
:
:
I
!.
,
II
Ii
I''1
I
I
'II
:I
, I
,
1') h'lS any other co"le
in it, th"" TC'1''''r is qu~uE'iI t o :
I
"I,
'"CPo
flr~vi<1us
If the
spssion vas
I
I
I,!
~r(lcessing.
~~ no~f' is to be I
j
brought
out of servtc~, tho:!
I:
"'C'l'TF: will not h~ plac~it 'In the!
1
~
I
'
activate nrnGPc;sir.q chl'lin.
I1
if the svstem is 50S, tho PP',
I
wi 11
Tf'
11
II
',',
Il
1
..
UIJ
1\1~o,
IIi
h~
II
tho TO'"
is qUPuf>d for n'synchroni'tiltion
f'['~ecl.
I:
II
"I''I
I',
" 1
ffpsynchroniz"ation is nt"lt
np.rforlllp.itforacoH!';t:art
1
1
I
,
!
,I
I
'
"
:
I
1
,,I
,
l
:
:
I
,
,
I'
I
I
I
,
I
,
I
I
I
I
!
I
I,
I
1
'I
I
' I '
:
I
I
I
,
,
,
I
I
I
1
I
II
\
,
I
\
:
I
I
'
,
I
1
,
~
,
I '
I
!
,I
I
I !"
I
,~
,
!
I'
f
I
1
I
/I
,
I,
I
I
I
I
1
"
II
I
,
' 1 '
I
!,
,
I
,one the error
we just t'pturn. Tf
" - , ,hoor.,llv terminat"'"
II
st~tlt!';
I
I,
I
I
1
I
,
I.
f
,
1
,
I
!,
termin-ll.
I _.J"t____________________________ I _____-...!.I ______,1 ___ I
t, ___________________
,"_____ _______
~
Oln,n5T Exit
264
(D~nf)f)"O
~
~
n"qTil;fII
CICS/OS/VS Program Logic:
-
1.">.11.2.2-fl1
Description
LICENSED MATERIAL -- PROPERTY OF IBM
I--------l
Processing
Input
r-------------llm~ ~;~~-',
r--·-----------1\1
, ••• -, >I
[!]B --.,
)1
I
'----, / I§]
r;:----,------------.l,,
011 Estab11sb CIes contrcl
l=c:ApAX
r------'IIII
--'
block and save area
T
veOH
r
-1]
i
IL
I=
~~==~ I rf-=::::=~) Il~ ~;:~~e:;::~~:E:::c:::::~d
II
fI;PLrnscl~ )[:\1
I -'
L!::~~
II 1CTT.
I
I
-
rece1ved and comlland
,1.SSued. CLEAR and SDT:
I
A. I f
§kp-l
--
I
I
I
>II
==--==-lJ
io
I
I
I
II
I
,I
::~~:::: :::u:~:::9h ~l, r --',
~I:
I,
+VE response
recel.ved is for Clear,
turn off command
2
I
II
III
I'
fr--=::::=~)II
)~---fl-"
TCTEICLR
-TCTEASRA.
•
1"1
or
1
~F=~) ~
I
EOL
1
II , Analyze for response type
f ~USPLUI
1
I
flr>1
addressability.
fTC;:VERS..-.--l
PAGE
Output
Besume or asynchronous
'I
\
control return.
"I
~--~
TCTUSOT ,------,/
I
I
I
I
I
,I
I
I
1
I
B.
I'
I
L-_______
.
SESSIONC Exit
~
If "VE response
recei.ved
turn off the command 10
progress and SOT
request.
I
I
I
I
II
________~I
r;l
r~
I
,I
l -_ _ _ _ _ _ _ _ _ _ _ _ _ ___"
~
Diagram - .1.5.11.2. J-Ol
--l-~::tinel Labe~-t:::l r~----
requestor
of Clear cOII.a.nd
CC_Fletion of SOT
makes
TCTTE available to crcs for
processing. There 15
no
requirellent to return to the
requestor of SD1.
I
I
II
I
I
I
II
L:~--I ~~
II
I
I
I
,
I
I
II1
I
I
I
I
1
I
II
I
,
I
II
I
1
I
I
1
II
II
,
I
!
1
I
II
I
I
II
I
Sectio:n 2:
Ro::oel
I
I
(DPBZS!X)
1
---W------·------------1---,----,1---1
I
I
SESSIOBC Bxit
I
---'/~~--'/I
I
II@! ~::~~:nc::t~~::~'~~~g:::~e~ll-----I--service.
for SDT..
(DrHZSEX)
I"H~tes
I
>s
l
I II
LJL
Method of Operation
\
I
I
,
I!
I
I I
II I
I
I
--.J
Diagram - 1.5.11.2 •• 3-01
265
LICENSED MATERIAL - . PROPERTY OF IBM
Processing
. .-.. l
Input
r-----------l
---- I
I
r---~--------"Ifo;,
l llFLU5PLD -------,1 I t::J
r
l>[-_-_-_-1,
,
I
I
I
for -V1: response to Clear
and SD'{, copy sense
1niorllatl.OD from VRPL to
/,
'rCTTE
TeTTE EFL.
Put TCTTE to
lov activate queue for
NACP schedule. Return to
'VTA".
I
r;:~ '>
ITo vTAtI
\
I
I
I
I
I
I
!
~ ---->
->0["'-
return of control. Return
I
to
I
I
I !
,
1
VTAO.
I,,;
I
1,0
I
I
I
I
I
L __________J
-
I TCTEICRR 1
rn
CTBICRtlj
TCTEISTS
TCTBIRSI
.,1
I -
S--,I 1
~~~=;:l
I
I
l
[~----)
,!---,
I
--~
I
II
=-~
L'lCTEICEA
2
'I
resume or asyncboDouS
§iASiQ~"
2
I ="
t..:..:.--"./
"
---
PAGE
~\.0@)--J'1
---,1 C C - 1 /
T[C~=T:ThEC¥~~~J l,r--=::=~)"I@] :::::::~:::::~::E:::~:f::;-t\.
RPt
0i-u-"t;:.p- 'u- 't_________or
I
I
VT:{
I
I
I
L ______J
I
,
D1agral ... 1.5.11.2.3-02
SESSIONC Eut (DPHZSEXJ
.
~esPo.=====~==I:::~:L~·
~l~ef-1
r~::-======--!'-:~~:' ~~:=-'-~J
response,
I
I
I
II
~
NACP 1S
-VE
scheduled to o.olyze and resol,e /
the errcr condition. The sense,
l.nformation is copl.ed fr'am the
iTA" rEad-only RPL to the aPL
attachEd to the TeTTE. This
avoids an extra VTA" Receive
IIBrely to obtal.n the -VE
response associated SBnse
informat1cn.
When ccntrol
returned to
I'
(
II,
'/
the
no longer
:::o~::: :~t:T:::::~S C~:l::~!
VTA.,
~
loS
VT •• RPt 1S
Control 1Iill always be returned
to the routine requesting the
I
I
!
II ::S!::h:::~Z::~::s~:~t~:.s:::u~:
!
I
STSN operat10n, after copyl.ng
tb.e sense data.
the current TCP deSl.gn but
future support may reqU1re
III
I
I'
,
II11
!
II IIl
I
II
I/
,
I
I
I
I
I
I
I
'
I
lJ:::::::"~::::·:':~::'
S:BSSIOIC Bxit tD1HZSEX)
266
IiI, \
I'
I
I
I
I
II"
I
\
'I
'/'1
'I
'I
II
I
device dependent
resynchcDiozatlcn lodules so the
I' 'I
L__! __JL________
I
I _____
1
D1agra. -
CICS/OS/VS Program Logic:
J
1.5.11.2 .. .:1-02
Description
LICENSED MATERIAL -- PROPERTY OF IBM
l
Input
Processing
CllIOT: HlPOon01
PkG! 1 or 3
output
pro. 'T:"
veoR
r:b
i
l~/
,>
r;;-;l
@~--:J]]f-~) 8
TC~PX
@)
f
-, I
o?
TC"'!RS1--.J
is enteretl for errors.
-1,
.~]r
L_
r§ml
I.!.!!:!L!R
J .OLDun
I
@)
"I
If chain asse.bly reqaest,
I
go hantlle chain asse.bl.,.
rr==--') ~
~I
~~~!:~~~:~:;:~~:'
'
I
,-------)
i
[iimSiu=J
[
,( - - - ]
.
'rCTT!
Tcm
'.
I
and no bracket error
occurrei! for enforced
bracket. protocol, the read
request, oyerleR9th l1ata,
I
indicators are
0----> EI I f a
turne~
321" data str...
(DJ'HZlIVX)
!fotes
@l
and ReceiYe Specific
The P,," is ra.oyed according' to
the specification of I1'IBY"R in
off.
TCT"t'E
TCTEOLDP
TC'f'U:8R
Te'l'ERSP!
TCT!IP"!
TeTE!B!R
TC'!EI!lt"
LI
tbe respon.e type i. n l i d - r - - - - t
J__ J
~~
ttaceiYe Specific Exit
r)
the PPIIH, if requested. If _L ______ ,
'----, I
fTCTEUP"
-.-=====::::",/
Test and set/reset
chaining indicators.
rn§OC]JJ1
RPL
Check B{tL for successful
coapletion. t.ERAD or STlun
j
TCT"l'E
,!stabl ish eIes and sa ye
"rea atHressllbilii::y.
l
>
j
TCTEBPEP
TCTT!,,.,
TC'!T!BBB
TC'EISAB
't'CTT!
(TeTBIP""
I
tliaqraa .. 1'.S.".2.II-01
'-='"'
Uk'
the appropriate PC'!' entry.
' '1
Rates
Boat.irle
Label
I
I
I
I
lecel ... specific Exit
Section 2:
(DPR~RVI)
Method of Operation
.ef
--- ---
I
I
Diagra. - '.5.11.2.'-01
267
LICENSED MATERIAL -- PROPERTY OF IBM
CR~R":
Input
Pr'oces.:.s:.in:.q'--_ _ _ _ _ _ _ _.
I
'DlG'P.
Output.
l
RIPno.nl'),
2 OP
,
J.. Siil'e the AID and' cursor"TT77':rT7=r7
address in thp 'l'CT'I'E.
fl.
!ZZZZZZ!ZZ<~~ '>
I
--1/
o v... rla T the. b'f ao,,1"n9
up the data.
fii71
L---I
TInA
[f 0 327~ reouhiD.
TTO""'DL
"IOAD!lA
up~ercase
translation"
in't'okp. the uppercase
translation routine.
'.--, I
~
nl'HTC;PCL
-=.=.T::.::T:-=-=O=P~:::z::U::C:::~7,-
1. C). 1101012
~~] Tf a PRIR.,.' k~y fro.
.
ft
1210, turn on the
exceptional input bit. If
a C[. !AR key" clear tbe
cursor address in the
TC"'TE.
~ Por co •• and received, onlr
I
a Chase co •• an!) or a
Qoiesce COllplete are
Talid.
RPL
rRPLC.~OP I------~>
======:>\
•• Chase co .. on~--The
0 kJ
TcnE is nut b a C
the actiyate Chain ..
L
I
O'O.-,,-'
'oce'7"iy-e-s-p-ec"""'i-U'"'"C-Ex"""i-t--,""oP'-."",
...
I
Notos
_R_o_u_t_in_" __
LO_b_e_1_ _R_e_f_ 1_._o_t_e_s_ _ _ _ _ _ _ _ _ _ _ _ _ _
@]
268
I~ ~ ~
TC2''PVX20 1.'5.11
.1.32
II
leceiYe . Specific nit
'---_._---
I
fDl"HZRVt')
Diagrll. -
CICS/OS/VS Program Logic:
,.
'S.". 2 ••-02
Description
LICENSED MATERIAL -- PROPERTY OF IBM
r-------..
rODut
~IHR":
P~GP
proce!;sinq
r------~
TC"n
[::~~j
Lr----~>II
rel'>pODSe is sent, and,
=;:===~L,>l,j
if the t.euinl'll is not
\
B. Ouiesce Co.olet.e
cOl.. and--~ Dositiv",
---J
Oat.!,ut
L-,
nTPnooo1
3 OF
1
ITeTrIes. I
J~~
tTCTRJ"OS
out of sE'rvice and Dot
in rp.cei Ye status a
release quiesce request
is sPt. UP. Othervise,
thE" terminal is
qllipscerl.
TCT'PX
B~forE'! leturnin q to VTA"
the TC'M'E is put on the
EEURA ] =~====-"·tI
!
activat.e chain for
RPt!
fiiPLiiUPLI]
r====::> I[23
I
-j
RPtEtRR
TCTTE
I
IL
space. If so, set RU 5iz","
•
~,
'no",
f'T'YOA'I"DL
I f end of chain, resuae
I II
,I
application" otherwise
schedulp
tH"R1.FV~
aqain.
I
--===~,J
L ______
l'lia:qrall -
I
Notes
TC"'!'E
--~r
Op
~_CO_s~_ --'-~-Jf
l::~
---l
TCPPX
r---
I
IJr.
L--=:!)
'tTCTVERS;:-'==--"
----~
I
L---~T
I
fTCTRIE'G
tTC'J'E~i~=1
an~ sav~
cOIIDletion. L~lU.D viII be
I
enteretl for errors.
Aoal'11;e cOliliand
I
,/
,
'
======~'>
TP,
[:reT.eIP
]
TCT'rP
TCTRTPSr.
"C~STn('l
clear nutt'lound SrC;JfAL
D~TA
Held.
A.
I f c;TGNAL vas issup.d
during a batch session
as i!!I request to spnd,
1
1
_____ ::::...J ,
(;;;c:no;,OCI------~>
bi ts. lleturn to V'I'A!If.
I
I
I
I
_ _J
._,-".,~-;::J
lj~!~:r~"D
]
I'
I
I
I'
L_~~-;:-: ~
nial'fralll -
(DYTt7.'H.X)
I poutinel'
I',
TC''I''I'JI'
~-----' '
-,
----,>1
QlJiesC'f'!:
"urn off cOlllllland req'uast
!,
I
I
!
====:=~>!
SAt SF-ND Morle.
,
Notes
!
,.r.. .
'Pp.set SrGNAl indicator anll
!
~EDBP -.J:;:====-~>
I
Send Asynchronous COli_and exit
- - - - ' \ II
,/
SIGNAL:
TOTTR
TCT"E
I
Chec. k PPL for successful
.erformed.
.\
2
EstRblish CTCS
area addressaHlity.
progrp-ss.
I
HIPOnoo,
1 0"
f')utOIl._t_ _ _ _ _ _ _ _ _- - ,
Turn off cOII.and in
I
'l'C"'TE
[~
~>I [~:l
r----,-
RR
~H~R":
PAGE
Processing
Wol
I
I
Ref
Ir.:=------------
1.'l.",2.'j-01
j_pouUnej'_Lahel I_,of_
- - ) - - ---\--\\---
,
I
l
II
II
11
I II
II
I
I II
I
I
,~~-===~~--------~--~JLJ--------------
fDPRZSAI)
Send Asynchronous Co •• and Ext t
270
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
C!I'\lI'T! RIPOon01
Ioput
PAGP
., ('IF
2
r)utpu_t_ _ _ _ _ _ _ _ _-.
'Processing
l ~,r-"'M~_--'
-'1--C:>!1
GCT'R::::D~----'/
I~CTP.RtSO
Turn off cOIIII"nd requE>st
hi ts a nil
no~~
qui"!scer'l
flag.
r-~---I>
t TC~"R'n
Shutilown requf!st:
1----,
-----' II
~ui
I'
~J - , 1
,
1
I
1
---J'm 0-"1
Tr"'p1;
h:::::)rjjj0=:>1
L::J
\
TCT'l'B
~/
I
I
~
I\.
-'-
--,/
\
~=:>II
control
I
II
"1tb ,aPL fr.olll para.eter
list.
-------,/
re.coy.
set ~ndic.tor and chain
err co_mand recEived.
I
TL_~~_:~VRA J=====:=-~>l, EJ ::~::t t:e::::: recovery
I
I
If req uest recovery, then
t..:.:..:.:::.:
=_!
_J I
':.:." _. ,'' ,F"::;;[
"
I
I
L ___~
~~~~~~~-~~-~.~
Dl.agrall -
To chain to HtCP, issue nPHTCQO!
QDE=H1CE
.aero insttuction.
I
To chain to HACP, 1S5ue DPHTCQO'E
QOE=RACP lIacro instructi.on.
1.5.11.2. b-01
IRef I!~._o_t_e_s_-______________IRo:-ti-n-e-L::=~Ref
I I I
I
II I'I
1~:t1nel~abel
Rotes
I
1
lTCTVEVR_A _
-----l
I
S!SSIOlf Contrel Input Exit (DP8ZSCI',
,
_L~
set indicator, save
;;;::.~
~e~px
1 0P
-----------,
I
II IIII
II
I
II
II
!
I
I
I
I I
\,
________- - - ' L--~ISSIO.
272
control Input !:Il.t lDPH2SCIJ
Diagrall -
CICS/OS/VS Program Logic:
Description
LICENSED
r.,..:
processing
~
[~§.Q
laPL
I
nh'
..... 1/>
_______
.J,
--------,1 §]
l
Save ''Ill! return address
and set up RPt
addressab11ity_
I]~-=~)
@)
Issue CBRelt aaCIO
1Zlstruct1.oD to verify
nor.a1 coapletion of
CLSDS'l reqaest. If
,OD-zero go to KACP.
up 'lCTTB.
ITetlEYRA
U
[......j:
:TI[
, 1
•
or
1
)orC'rVBy!D
'rcTU
r
1'1
1
§§~
TC!'BVSSS
'fC'l'BVIRl
TCTBical
'fCTBACR2
'retBACH]
'rCTBV!PS
T
T
T
'rc
T
T
TC
T
~~~.~~,
'rCTBYIR 1
'reTBVI R"
TCTBUa5
~----~~--~.~---~
D1agraa - 1.5.11.2.7-01
CLSDS" a,it IDPaZCLl1
---r;::
lotes
J-1r>
I
/TeUB
!C'lPJ
PAGE
'fC'fI'I
------.,
-------.1
., @] On Dornl coaplet10n c l e a n : - - - '
,I
-- PROPERTY OF IBM
output
.---
~~-I[
t1De
l IB~ ~ _________,
I I II
Label
1 - - - , - - - - - - 1 - - - - ---11--{!!l
~TERIAL
,:rAil passes the address of the
,
BRt tbat the CLSDS'1' vas 18sued
I
against.
II
~I
Label
_~
\ ,
I
I,
In order to verify good
coaplation of the CLSDST,
request the CBBCI .acro
1Dstruct1on is issued. It a
DOD-zero return code 1S passed
back in register 15, the '!C'rTE
is passed to B1CP tor error
processing.
On zero coapl~t1on of the CRBCI{
aacro instruction, turD oft all
Don-qeDerated 'fC'f'rB b1 ts.
II
a._ .
1t· ,DfaZCLlI
Section 2:
.~uL_---,--'--;~
Method of Operation
Diagra. - 1.5.11.2.7.-01
273
LICENSED MATERIAL -- PROPERTY OF IBM
Input
-':§]
r
I
I\ L~:..----,
~~~,
r;;----
I!:::T_E~DR
I
I
-'-----.
.,:[02l
----------,/,
Ir----"/\
:::J
1
1
\
,_r--------'/'I:
I §~=-Ul
I
\
j
\
I
I
I
I
I
,
[RPL.DBK3
1
I
T::-
set up se.se data and
go check for .:1270
::;::~:~::~~
~=::::=~>I
B. If Fositive response,
:]--'1')0 (~~1~ >I
!
rTcmsTSl~)1Jil
LTCTTEDA
"
1:1r.]-" [=
03,
-J
'I
I
I~
---'/1
~
"
II
aatal
A. If exceptio. response,
]
>[:CTTERR
___
Check response to the
--
send.
I {ii1:=~)1
§]
-, I
:::so::d
a~~c::::::t
I
Check Read request.
A. If not requested, Skip
to task attach check.
Check Save TIOA request.
Tr~----l
J
I
'
TCTEV.C7
L~~~ __l
I
TCTTENo-l
I
II
(
I
r/ \/ II
I
ITCTEICf~ I
j'
I'
~!~J
-___
___
' [-,/1
.----,
I!STElRCS!
TCTEIDIP
:h==dl ,j
r--' ,
I
I
\
L _______
skipnot
to totask
If
be attach
sn.d,
!,~
~TCRSPI
I
• '•/'1
r-,
--I==~
I
L________~
A.
,
r::::-------------I-;::~I
TCTVE_VRA
output count.
check..
-1
I
8'·8,0;
r-=:>II
•• , >1081 r
'I
Response Exit tDPRZR1JXJ
r--.,I
r-./'
II'
==:::=::::!'J
'I~I'
I
j
-"I~!Q
--I-====-'/\
Save return address on
entry to program.
1 OF
C--------.II
I-~r=
"~~II ~>r/~-l---1
I
I' r ~!:2~=-..I
PAGE
Output
Process~ng
I'
I',
I
I
I
L________J
Dia3'rall - 1.5.11.2.13-01
tabe:-G:;( r.:::------------------r·;:::::~:~:~--~~
I--~----~---~-~--'----I--I--\ \-------------------,---1----1---\
I,
'
II
/'
I, I,
II II'\
j
'I
,
I
1
I
I
l
I
I
I
\
\
\
I,
,I
I I
,
I
\
1
I
I
!\ II
I I
I
/
I
I!
I
I
II
I II
I
I
I
I
\
II
II
II
II
1\
II
d
II
II
1)1
I
I
I
I
'
!
I
,
I
I
!
I
I
I
I
I
I
I
II,
I
I
I
! /
!
I!
I
I!
I
I
II
I
I
I
I
I
I
I
Ii
,I
I
" "
I
I
I
I
I
I'
I
I
I
I
! I
II
I
1
I
I' II/I
! I'
" ,
IIl_________________L,\ ____L!\ __L
__JL ____________II_____I _~__L_~I
I
IIi
'I
Response Exit (DFHZRPI)
214
Diaqraa - 1.5.11.2.8-01
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -
Input
fi!;ii~C-l=====~: )r~-::::"
I[ .
I:Cft!CI
'l'C'I'BIBPE
TC'l'ZITRA
[TC'l'ELOG'P
!TCTnSB
Ii,
PAGE
nu.....§ .
A. If one, skip to VAt ...
check.
lr/@l
PROPERTY OF IBM
!. If none, brackets are
U
2
~) ""~r'm I
o.
3
..
j,
TCTBIOAY
TCTEI!SS
.
supported and ve are in
Bracket state. set u~
request for sending
stand-alone 2nd
Bracket.
I~
1C1=:::> ~
l::.J
check for .essage lo99iol)
require.ents.
I. If none, put 'leTT! to
actil'ate qaeqe and
exit.
8.
Else, put to syste.
loqqing que ae.
- - - - " ) ~ Cbeck for
it
WAI'l' request.
I. If none, put 'l'C1'1''E to
acti.ate chain and
es:it.
lasl'onse EEi t
-.
Routine
Label
~ethod
lef
--- ---
I
.8-03
r;;,'>
r1iil
'--,/ V
I
Motes
Boatine
Label
Bef
--- --- ---
-
. . .,0_. Id.t IDPaz.PIJ
Section 2:
1 'l'~~·11.2
I'rCTEIeD!
,"C1'T!SII
niagra. - 1.5.11.2.8-02
(DPRZAPl)
Rotes
=====~~)
of Operation
275
LICENSED MATERIAL -- PROPERTY. OF IBM
Input
p['oeessing
I
'-'-----i-i,-l-----~~J~~:
' I -,/
RPL
rRPLSSRST
I.PtOSISI
--I-
:::--' r--------->
r!CT£:!~---
TC,.rx
[ TCTV£VRA
paGE
outpu:t
l
If systelll sense indicates 77m~'>
request rp.ject for a ",,,PI -------------11
127", treat as a p'0siHve
respons..
QqeQe to the I!fI.CP. I f
I
~
0'
3
,(,CT'l'E
ITCTEVRC7
r:;j'> rn2l
~I
V
I
127"7777777777777l
'>
TCTTP
intervention is required, -------------, /
also flaq the terllioa 1
entrT.
~ Return to Caller.
r:----.:
..···.. l
'.1
Response Ezi t
(DPRZRPI)
Disgra . . . 1.5.11.2.8-03
f_·o_te·_ _ _ _ _ _ _ I~I~I~ 1_·o_tes________ 1Routinel~l~
I
I
I
I
Response !Kit (DPRZRP%)
276
DiaiJraa - 1.5.11.2.8-03
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -
PROPERTY OF IBM
PAGE 1 OF 2
OUTPUT
PROCESS
INPUT
BALR 14, 15
from VTAM
[1v
TCTTE
I TCTEEIDO
I TCTEEID1
I
Establish addressability
with DFHTCPSV
I
@l
PARMLIST
(Reg 11
I ACB ADDR I
I
I USERFLO I
I CID
I
~
REASONID
I
:>
~
• ~
Issues TRACE macro
instruction.
Address TeTTE by NIB user
field.
If VTAM is attempting
recovery. set terminal out
of service and set
in-recovery indicator.
~
~
Set ABTERM flag.
If VTAMwas able to
recover, successful code
is set for NACP:
otherwise, unsuccessful
code is set.
~
TCTTE
If a 3270 segmenting error
TCTEVRC7
has occurred, code is set
for NACP.
[§
Add TCTTE to NACP chain
and return to VTAM with
DFHTCPRT.
to VTAM
Diagram - 1.5.11.2.9-01
LOSTERM Exit DFHZLTX
NOTES
ROUTINE
LABEL
REFERENCE
ROUTINE
LABEL
REFERENCE
Diagram - 1.5.11.2.9-01
LOSTERM Exit DFHZLTX
section 2:
NOTES
Method of Operation
277
LICENSED MATERIAL -- PROPERTY OF IBM
Input
1
PrOCeSSl.Dg
1-------II~m HA~5
I
!
1:",,>/
l: ___, / I El
I 01
=--DIll
-1
l:::YLHIB
----
II
I
/
/
lL
'~\ [Oil
--==--,/
:::.J
HIB
r--.~-----------.'l
------'/,
l----.i~:~:- - -I'r------"
tC~E
TCTBBIOO
---~CTEEIDI
--'
--
I
[-iB-L·
.TCT~
TCTEVl'PS
@I
OJ
r ---'/I
NIB1LG 1
/
.
rQ.i1
L::J
--", as
~]--'/I
[~
/
1.11-·,1
'r.l ~_"'_'/I C::..J
rob1
- - , /~
Tc'iiAcR1
@!]
t
I
i
/
L ___J
Establish addressabi11ty
with DPHTCPSV.
Get f1.rst NIB address froll
TCTlI.
Issue TRACE .acro
l.Dstr.uction4
TCTTE
0=:>
Search for sy.bolic
teral.nal na 119.
ITCTEEIDO ,
,rCTBIRLii-)
='>00=:>1
I
If release request OK, set:~>@]
::::ki:o:C:::. work in
,I
progress or schedulEd for
tar_inal.
Set CLSDST request flag
:::1:::eT~::n~O the
VTA" nth
DPH'lCPRT.
:~>0
,-'
I
.
",
I
EI>
I
I
1,;VfA"
L~
D1llgraa" 1.5.11.2.10-01
------ -~::~~:t-~~J~II~~-------------I~:~I~~:~-~=I ,
,
I
I
[§)
l~---------.
I
I
l_______~
Release Bequest :Exit (DPBZRRXJ
r--
l
1
.
I~ Return to
!
1
r--------~
1:1-... , I
/I
TCTPI
or
-----,- T : : I r -
If no .atch is found, control 1s
I
~
.(
I
processing.
/
II
@BIfanyworkis.inp:ogres.orlllll,
!
returnEd to lTA" v1th no further
scheduled for ter.lIlal, control
I
,
I ,. ~..'"."...".
I
II
I
I
II
II
I
____1
.el•• se aequest !z1t (DPflZBRXJ
278
UL._
CICS/OS/VS Program Logict
Description
LICENSED MATERIAL -
r-----------------------l
,U&"U't
"
II
I
\--11
t11"'ell"
r---------) II 1\
I
L ______ '"
,
I
I It
I
I
I
'
I
II
.
Set. CLSDS'I anl3 sbut doyn
1U i:["'~ross iol3icators.
('
>
I
[~F~)
I
shut dewn:
:::~)!-_E][B'::~)
::J
lC'rTE
[_il:::~)
. I
Put. on NAtF. cbain.
I
II
:iHUll.::
.,,,,t.
JuH'le qlliesced by CICS :::~~[CJ
I -
£.I0j.
,
[CF:~)
[~~~~~==l
'lC'I 1. ICC1'
---------TCTf.ISHI?
l~~!~~iicl=J
I
1
~~!!iCS~==l
~:!~!~:~--j
'ICT!SCln
--------,[CT!IHCS
-------
.'lC'ITE
[~~!~~~~~=J
I
I,
1I ___________________1I
7/77117777777
I
l-------,/
-------" 1
II
I
__
\
'I
I
I
I
Fut 1C'I'lF. cn
I
L:==:::~)II
_
cn inbouDd-------------
.cemte chain.
I
1.;~iT£~-J
L________
.. aitin3'
r,;-:Jll.ihAl,
I
I
I
1.S
II @;;l- ••, ....
;;;;:c.tii~-
,
t.dl::OK
-r'---"'n~
II
I
r.-~IGrlAl rEceivEl1 and
I
I r;;;:Cii~;:-l:=l-l
1I
f
I, t
1
,
If
--.I
III
dii...
.
2
)
----'1/
It-------,,I [Ol] ls~u. met .acre
------:1-1-:--------'/11 [~~l
lo,;u':.uG~
1 Oil
'~"'--------------------l
~
r-------------------------------
t,A'
r
"c.~ J.J::
r-------- - - - ,
I
I
~~~: ~
PROPERTY OF IBM
t______________________________ _
L____________________________ _
Di.agrall .. 1.5.11.2. "-C1
l·"~==~=-I-:;~f~F=I[;:::::::~~:=-~::::==~~:I:~~I~::::
I
I
I
I
I
,
I
II
I
I
I
I
-I
I
I
II
II
I
I
I
I I
.
I,
II J
I II
I
·
I
j
--------------------------------------...!.---------- --------------------------------------------------------------"-c,
I
~l'A:..:r. L&.Lt
'Lll'n40d~lf.J··
Section 2:
Method of Operation
I
-I
t18'1rall -
1.~.11 •••
279
LICENSED MATERIAL -
PROPERTY OF IBM
r----------------------------1
r:~:::~:~~2----------------------1
II
II
II •.."c,.",.t<. fut on
J."'.t.. Ul
II
I
I
I
I
I
t
I
'telIE fct SeDe o.u; ••
I
I
I
I
I
I
I
I
I,
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
II
II
,1[0;1
--,
,
":;"'J.
t
CUil':Ece:
~
E
-
otf CICS qUiC'CF ty
IlO,,1o.; .tl<1:1. Put en NA.CP
'U[ll
::::,:"' .,,""
--,-'/ _F,
4
II
FCTfvj;c;;--l
I --------,
[_F]:::~)I
I
I I
_1_ . . '[T":l r-::~)
---"[-1 ,f
I
I
I_T-_c_T_'i-_I-_"_C-_S_--_l
I
[~~~~~~~~=]
I
I,
I I
fUl.'n on si:)nal inQlcator • •
I
I
1______ . . _..
-----------
:it!t.UI.'U
tc
V1A~
I
I
I
L______________________________
I
L __________________________J
1,;i:1I~:':
f!~lthl~<::
I
I
I
cc-L" [-J -
tc.r: me,ssa;,Jf!.
I
I
I
I
:~:,/[~l['iF:~)
II
I
I
II
I
I
I
1 ... ,
---,
I
1
I
I
II
II
I
I
'Ju~ut!
~ACE
L
2 r.F
I
:
"jUl.'I:.;;;iC'" dt EnQ of chain:
J
I
I
I
I
rAGE
I~~~~!------------------------"--
J
I
I1..___________________________..1I
Cla;ral! - 1.5.11.2.1'-C2
(LI.riJL4.,:)AJ
F::-~--==::::==--:::::::=--I-:::f:~q::] i~:::::::::::=:==:::::::::::=:::'f::-:I:~::P:;=l
I
I I
t
I
I
I
I
I
IL
I I I I
I
I
I
I
II
I!
I
I
I
I
I
I
I
II
I
I
l___________________________________
280
II
I
I
I
lLlr.tH.llol),J
I
I
!h--'-~--t------~------------------1---"J---.J----J
! I
I
e.XJ.
II
I
I
I
I
II
I
I I
iIi
I
:
II
I
Ii 'I
II
I
I
I
J
I
I
I II
II IIj
II II
I I
I
I
I
I
II
I
u~i'.':'
II
IJ________lI___~____1I______
Ciaqrall. -
CICS/OS/VS Program Logic:
I.~. 11.~.11-r..i:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
Page 1 of 1
INPUT
.... ..
RPL
I
ZRPLSRB
OUTPUT
PROCESS
I
~
I
[§]
If entered in SRB mode, set entry for TCB mode in RPL
and EXIT
CSA
I
I
CSATCTBA
RPL
RPLUSFLD
I ~
Save VTAM return address and establish addressability
to reTTE
r
r
RPL
RPLFDB2
ZRPLSRB
:>
Reg6=VTAM
Return
Address
Reg 10=
TCTTE
Address
Tene
TCTTEAR
I
:>
I
I
~
~
Verify TeTTE address and take appropriate action
~
Return to caller
:>
TCTEVRC5
To Caller
1.5.11.2.12-01
LERAD Exit IDFHZLEXI
ROUTINE
NOTES
~
~
LABEL
REFERENCE
NOTES
ROUTINE
LABEL
REFERENCE
Save VTAM return address in a register.
LE RAD must be reentrant.
If TCTTEAR is zero, VTAM did not
correctly fill in the RPLUSFlD that
will cause a dump to be initiated
If TGTIEEAR has an address in it and
feedback information ;s available, the
TeTTE is passed toN ACP.
TCZIEXD
TCZLEXNO
1.5.11.2.12·01
LE AAD Exit (DFHZLEX)
Section 2:
Method of Operation
281
:LICENSED MATERIAL -
PROPERTY OF IBM
l:!~------------lBALR
10 1H'5
fro. VT
P~~~!.------------1
I
m:;
~] :~:~~n VTA~ t~rmination
@]
,I
1
~:::::>l
addressability~
leT!-X
1 0'1;
----------------------------,
[:1.-"
····1 >
i~~------J--l-J-~-====~) @)EstabUshelesand
save
area
[iCTV"ERiA:J=
FAGE
(iutput
=,====::::..
Return to VTU' DR " " .
,I,
,
I
I
1
I
I
1
,1,
,,
,
,
~;;;j\>
1
To-lf,"
I
1
1
I1
,
II
II
I
I1
,
,
1
I
I
1
I
I
I
1
I
I
,I
,
,
I
I
1
II
II
-----------------------______
1
Diagram - 1.5.11.2. 13-{l1
--------------(D!'HZTPIJ
l'ProlU)
Bl:~t
--------------------------------------------,
Hotes
1:10 ut.J.De
La be!
Bef
Notes
1 Rout.inel
Lab<:!l
1 Ro:t
--------------------------------I'-----I-~------I. ------
I
I
i
I II' i, :,
I
,
I
,
I
I,
I
1
,
I
:
1
I
I,
I
,
I
,
I
I
I
1
,i
,
,
1
,
I
1
I
I
,
1
,
1
I
I
'I
,I
,
1
,
I
,
I
,
1
,
1
I
,
I
! '
II
II
,
II
,
fl~DititToi.im~-----------------------
282
L__________________________________________1i______1i
Dia:Jram - 1.5.11.2.13-01
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
r---------------------------l
~Jroci;i:;~iu~
lilk-ut
,
'
~~~~ i~~~'
I
.
1--------------------------------1
I
,:L_.J,
I
I . . . . , >I
,----,/ I'--1
I,
[~~~~~=l+,-{,I, [~] :::~),I (~~J ~::::"::~n ':: :::::::':~nt :~I',::::::::=::~)II
t
I,
\
I
I
I
[~~======Fllr=::::::~)ll~~-
<1l1o.l t02.Jc;~ ;.lFFrC~riate
I
~':':--------, -~-j \
[;;~;:.hTi:;:--l:~~)r~l
u? .. C'NTUr'
I I
L.:.J
II
l,a'LU!::b"=
J lIt,,-!lSLi
I
I
I
I
::::----' !
:
t
I
1\
I
I t~·nnju I II r---------.1,1
r---------"1/1 [o~l
__
,
:
f
I
I
I
,
I'
t
,
I
iI,
r--------.--.J,
:·t:t~~fi~l
Jltt¥H~~
r~
:-I'/t~
I
i~:~A;b::--l:~~ I
-r
,--------- I ',,'
r---------1-!-J J'
l~~~_~: ___,
o. I t
.J
!
"
I
ree':;::i;q~
o;:Iccr
I
"
!
i
I
!
' I
I ,
t __________________________-1
and negative
send error
I
I
'IU~U€
I
I
lig~n~ij;
I'ICTE5C1"!I
!~~~!l~~g
'ICTHDRt
'IeTEl!:!I
I
I
'I
1~~~~f:5~
I
L~:2:':~:~
.J
and tEturn
:~::::::::~::~)I
[!~~!~~~~~]
I
I
I
[~~~~~;;;l
II-----~~/
I
I
j
L_______________________________ _
Method of operation
I
I
I
IL______________________________JI
r.ialtam -
section 2:
I
I1
II~mm·___ I
without HE.
uHecLlline if '1Ci'IE should
"10 t'ldCEd en activatE: c'[
I
I
'
I
J
,
"
Cl[
r~.::;I:cnsE,
I
'- _ _ _ _ _ _ _ _ _ J
II
JlIe~soge with EE.
I
t
I
i i OIl: ollld Fosit.ive
.t~spcnse, S€od error
I
HiihHr1I
~~~ng~~
ccw,"du(l
j
II
I'ICTEl':lP
tascd uFon thE
aCtiOl1
I,
l~~:~::~~__.l--I--.J
05w11,h a",'rossatilitv
I
I
I
'I
I
!
,
1 0'
,--------------------------------1
'CU'
,
HGf
output
1.~.'1.:C.1l1-C1
283
LICENSED MATERIAL -- PROPERTY OF IBM
Page 1 of 2
OUTPUT
PROCESS
INPUT
From VTAM
[b;
RPL
I ZRPLSRB
CSA
I
I Register 1
I
RPL
I RPLUSFLD I
I
I
Register 0
r
I
TCTTE
TCTEVRC5
I Register 0
I
T
RPLFDB32
I Register6
[£iJ
If entered in SRB mode, set entry for TCB mode in
~
Save VTAM return address and set up APt-TenE
:>
addressability.
>
Determine if Receive Any or LOGON exit
encountered the VTAM storage error and insure
TeTTE has no multiple unprocessed synchronous
I
TCTEVRC7
errors.
~
>
I
I
:>
APL and exit.
@]
I
RPL
I
RPL
:>
I
I CSATCTBA
DFHZSYX:
Isolate major error code; for following values in
register D.
A.
If RO=OC - Identify RPL reason code, take
appropriate action depending on the error, set
up return code to module which encountered
the error.
E:V
>
ToVTAM
Diagram· 1.5.11.2. 15-01
SYNAD Exit (DFHZSYXJ
NOTES
Since SYNAD must be reentrant, the
ROUTINE
LABEL
REFERENCE
NOTES
ROUTINE
LABEL
REFERENCE
DFHZSYZl
VT AM tetum address must be saved in
a register.
RPLUSFLD contains its corresponding
TCTTE address.
If RPLUSFLD is zero and register
0'" 08 (VTAM storage problem)
SYNAD assumes Receive Any encount~
ered the error.
DFHZSYXl
If RPLUSFLD is X'FF's, SYNAD
assumes LOGON exit encountered an
TCZSYXDO
Most important is when TCTEVRCS
already contains an other error code.
This is an indication that a previously
encountered error has not been
processed, thus indicating catastrophic
TCZAYXAO
The major error code is isolated and
unique major code routines are branched
to, depending on that error.
TCZSYXAl
A.
TCZSYXAl
A reson code which identifies the
error, each anticipated reason code
has an associated routine which
passes a return code with the
terminal entry to NACP as well as
to the module which encountered
the error in register lS.
Diagram-l.S.11.2.1S-01
SYNAD Exit {DFHZSYXI
284
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
Page 2 of 2
OUTPUT
PROCESS
INPUT
RPL
I RPLFDB2
I
I Register 6
I
IRegister 0
I
Dummy TeTTE
I
TCTEDVSC
I
~r
RPLFDB2
RPLCNTDC
If RO"'lO - Identify RPL reason code, take
appropriate action depending on the error, set
up return code to module which encountered
the error.
JJ
If RO=08 - VTAM has a temporary storage
problem; keep a statistical count.
:>
D.
If RO=04 - Determine which exception error
presently supported was received.
I
~
ToVTAM
C.
RPL
I
B.
:>
E=V
ToVTAM
:>
RPL
RPLOSENS
RPLSSNSI
RPLVTFL2
RPLRH3
RPLOPTl
RPLSRTYP
Diagram· 1.5.11.2. 15·02
SYNAD Exit (DFHZSYXl
NOTES
ROUTINE
8.
A reason code which identifies the
error, each anticipated reason code
has an associated routine which
passes a return code with the
terminal entry to NACP as well as
to the module which encountered
the error in register 15.
C.
This is not an error condition but
a way for VTAM to tell the
application program (CICS) that
temporarily it does not ha ....e enough
storage to honor a request.
LABEL
REFERENCE
TCZSYXOO
NOTES
ROUTINE
LABEL
REFERENCE
If an exception request containing
3270 sense/status information is
recei .... ed, the information is checked
for the presence of the intelVentionrequired and device-end conditions.
If intelVention-required is present,
the terminal entry is flagged before
it is queued to the NACP, If
device-end is present, the foregoing
intelVention-required flag is turned
off and the caller is returned-to
with a special return code.
CI CS keeps track of how many
times this condition is encountered
in the dummy TCTTE.
O.
If an exception request required
indication was recei ....ed, SYNAD
exit will send an exception
response with the sense codes
received in the original request.
TCZSYXF3
However, if an exception-responsereceived indication is recei .... ed and
the exception is to a pre.... ious 810
request, control is returned to
OFHZSSX, which will handle its
own error recovery,' If it is other
than a BID, an error code is set
and the TCTTE is placed on the
system error queue.
TCZSYXFC
Diagram- 1.5.11.2. 15-02
SYNAD Exit (OFHZSYXI
Section 2:
Method of Operation
285
LICENSED MATERIAL -
Input
PROPERTY OF IBM
output
ProcessillC}
DIG!:
1 np
2
.stllblisb eTC!; control
block and SIlye Ilrea
addressllbl~lty.
Check RPL for successful
coapletion. If error
occurred, enter L!RlD or
SINln.
Sa,e V'I'A.IIf-assigned
sequence nUllber.
I!!]
----=~>
!TCTRSOO'
If S "In reqaested II.
definite response, put
'!'C""E on Activate cb.ain
and exit this IIOdu1e.
~ Ifp.set Data in 'ProlJress
flag an~ set outbound
Pt'ocessing' chain state •
If this vas not the last
1m to he sent for II.
specific request, then
prepare for lsync Retarn
to DPRZSDS. Brit this
....;===~'\
-:
tI
Send DPSn Data 1!Iit !DPRZSDII
.otes
I
~ If definite response vas
requested, t~e co.pletion 1"'91c
vl11 eyelltulllly be executed in
the ~espoDse hit (D'PRZRP().
I~~~F------------'~'~I~
~ This caD occur if the "tOI,
asaociat:ed with the Dl"HTC
,.'P!:zllltn reqaest: is lODger
thaD tile allzi.u. allowable
output. Ia this case" DPftZS1)S
.ust 1ssue seYerlll SlID
requests.
/
i
\
5 •• a DJ'Sn Dot• • zit IDPRZSDI)
286
ClCS/OS/VS Program Logic:
Description
'--
LICENSED MATERIAL -- PROPERTY OF IBM
r:::~-
I[
Plr;.
I')ot,!,ut
II
rftql1f1st coapletioD------.I\
10g1c.
tI
20P
TC'l''l''P.
TC'r;oP,WO
'I'C'f''EICSS
'J'C"'EVDAI
"C'!'''!'BV~
-----1
TCTP,Y1I!C
'l"r,""EP,lI
"C~"!OCV
'rC'l'ElnVp
"rC'TBILSow:'
'l'CTBI!SS
----TC1''!Yl''PD
:;cm;;-c'fCTEVLDC
1'CT-eYP."!i
----TCT1!:IIlIB
TC'lP.IS"D
"rCT!IR"O
SeDd UPS!! Data 1!:xit
l_-l
(DPR'Z~Dt)
I
Wotes
§]
"".Une
certaia indicators are reset. ana
fields are cleared. 'Transition
of Sena aode ilDd Becei •• aode Is
p.. rfora.c! if Bnd Bracket vas
seat. in Batch protocoi •
PR!BIfUI request for the "fI.OA is
set up if SAVE vas DOt specified
in t.lle D'a'rC rel)'1lest.
~I~
Wotes
niagraa - 1. -;.11. 2.16-n2
1
I
~o.U.e ~~II
I
•
s••••"n
I
DIlta Bdt: IDUZSDI}
Section 2:
Method of Operation
287
LICENSED MA'l'BRIAL -
.l" .. "t
,--.. ---------------------1 frail
I
PROPERTY OF IBM
,. _______
,e ,£lUi>
1._______
J
IC'L'l!;
~-----------;J'
I
01
----------,/
-
TU1:D
.
oU tata in Etogress
',1ndlcatCt
t
PAGE
1 OF
__________________
.. - .1,____ _
~
I
: __h
::~~ /, ~-]
I
O~!~~!
r------------------------------
[-1
II
tCflB
ProcEssil13
VT Aft
. --
r:l [';1--"' [02] I t posit!.e respoDse
{ ------1---"
--1--1/~ ~---,/
-.
------
::C:::E::
on activate
m
7i
--
~'[_] [~
I
I
~
) -B
B
~'
77 )
-- I
caaia.
1'C.I: ... i
I
rii::l;;iR-~ii-- =====:::::~~
t;;;ulsiiii- I
----
I
I
I
I
TCTTl .
tI.
I
Perf 0[11 .ode
translHeD.
I
I
I.
)'
ZZZZZZZZZZZZZ\/
I'
.---C-""J:
[~~~~~:::l
\
( i1=:~)
[~]
:J
[~~~~~E]
/
•
To caller
It ae;,atin' respcnse
received:
A. BesO!!t Data in ~rogress
indicator.
lie (,jueue 'lC1'U aD ItACP
cbain and Exit ..
--)")
~.!\I'
Iii]
..
_J ____________.J,
-r-----------' /
[ :~:~~:::l
------J:
\
/
7
To caller
I
I
I
I
L___________J
'!ur.&lu:fJUba .t.xJ,t
Il ___________________________ _
''''.l'u~'lA)''
I
_____________________________ -1 .
Dia!}rall .. ' .. !>.11.:.!.1'1-C1
1.--------------------------------- ------------------------------------------------------------
1~~:_____________________ I_~:~~::1 ~~:~--L~:~-- -~:~::------------------------------ -~::~~:: I-~:~:~-- L~:~--
"
I
II
!
I
I
I
II
I
Il
I!
II
I
I
"
I
I
I
I
I
i
I
I
I
I
I
I I
I
_
.1L ________________________________________
.
lUAlll0UJlO U.lt
288
luttl:c.
lA"')
I
---------..:-------_________________~ ___________ L_______ l______ J
I:ia!Jra . . .
CICS/OS/VS Program Logic:
'.S.'l.c.n-Cl
Description
/
\
LICENSED MATERIAL -- PROPERTY OF IBM
Page 1 of 3
OUTPUT
PROCESS
INPUT
FromTCB
mode via
SRB services
~
HTA
HTARSAX
HTARPLA
SRX
]
DFHZHPRX:
@I
save SRB extumion pointer and access save area and
get pointer to RPl
[§]
Validate ACB pointer to VTAM request processor and
pointer to exit lin; Validate pointer to ACB in RPL
~]
>
lib
I
RPL
RPLBAR
I
ACB
ACBINRTN
ACBEXLST
I
RPL
RPLACB
I
TCTFX
TCTVRARP
I
CSA
I CSATCTBA I
TCTFX
]
I TCTVACBA I1 RPL
RPLRCVCD
PLAR
RPLBUFL
~
If Receive request, verify that input area does not refer
to protected storage
RPL
RPLRCVCD
RPLNDDE
~
If Receive any request, determine whether need another
active RPl for VT AM:
TCTFX
TCTVRAVC
TCTVRAV
TCTVRARP
I]~
A-
If RPlnot needed queue it. and exit
B.
If RPL needed bump active count. .•.•
>
I
:>
I
Q
TCTFX
TCTVRAVC
Diagram ·1.5.11.2.18-01
RPL Executor IDFHZHPRX)
NOTES
ROUTINE
[Eil
FRR alreadv set up by SRB management
services. Save SRB extension (SRX)
pointer in a register to allow register 13
to be set to save area; save area is in
protected storage, pointer set in HTA
by SRB services.
~
Data area should have application Fogram
key.
rru
When number of active SRB mode Receive
Any requests matches threshold, RPL is
queued, so that request can be reissued to
VTAM. as soon as Receive any is completed
without going back into TeB mode.
I DFHZHPSR
Receive any RPLs are also added to this
queue in Tea mode
LABEL
REFERENCE
NOTES
ROUTINE
LABEL
REFERENCE
1.5.11.1.37
,Diagram ·1.5.11.2.18-01
RPL e-norlDFHZHPRXl,
section 2:
I
Method of Operation
289
LICENSED MATERIAL -- PROPERTY OF IBM
Page 2 of 3
OUTPUT
PROCESS
INPUT
~
Issue request to VTAM
0=0
I
SRX
SRXKCSPA
:>
I
I
VTAM
EXECRPL
RPL-CRPLBAR)
I
~
Reestablish FRR using SETFRR macro and put HTA
and SRX addresses In parm area
~
Put APL on completion queue and post activate scan
to reawaken ·TCB mode
A.
(:::::)
§J
09
..
~
TCTFX
TCTVRPLQ
TCTVAPCE
:>
If ECa changed or OFHZCP waiting
.I
CICS Task Control
OFHKC TYPE-SAB,
SERVICE-POST
RPL
RPLRCVCD
RPLNODE
FRRPARMR
FRRSPARM
RSCSVFRR
I
If Receive any completed
A.
Reduce active count
B.
Determine whether need to reissue
request
Exit using
..
~
I
TCTVRAVC
I
1
CICS Task Control
I
:>
I
~
OFHKC TYPE=SRB:
SERVICE =DETACH
To Exit
Diagram·' 1.5.11,2,18·02
RPL Executor COFHZHPRX)
NOTES
~
Type of request was set in RPLREO
in TeB mode. SAB will be suspended
by VTAM, and 'reawakened' when the
request completes.
~
FRA address in SAB management
~
If a full POST is needad, the SRe
management services will use Branch
entry to POST and Get/Free the local
look
§]
By trying to reissue Receive any requests
In SRB mode, the number of SRB to
TCBmode switches is reduced. If no
RPL Is available, the SRB is all!Jwed to
terminate
~
Terminates SRB. unless the SRB
management services find more work for
it, e.g. another HTA request
ROUTINE
DFHZRAC
DFHZRVS
OFHZSDS
LABEL
REFERENCE
NOTES
ROUTINE
LABEL
REFERENCE
1.5.11.1.4
1.5.11.1.14
1.5.11.1.17
services is passed
. Diagram ·1.5.11.2.1B.Q2
290
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
Page 3 of 3
INPUT
OUTPUT
From VTAM ;..P.;.R:.:O:..:C::;E:.;S::;S=-_ _ _ _ _ _ _ _ _ _ _ _-.
TCZHPLE1:
SRB LERAD Entry
CSA
====>
I ====>
I ====>
I CSATCTBA I
TCTFX
I TCTVELEA
RPL (Extn)
I ZRPLSRB
[§]
EstabCid1#refix eddressabillty
~
Get TCB mode LERAD entry address
~.
Determine whether RPL executed in SRB mode
~
A.
If not. pass control to TeB mode exit
ToTce exit
Exit called in SRB mode, save TCB mode entry address
In RPL extension and set flag to tell Tea mode CHECK
to call exit
B
~
I
CSATCTBA
ZRPLERXA
ZRPLERR
J
Set 0 Return code and return
TCZHPSY1:
SRB SYNAD Entry
ToVTAM
FromVTAM
CSA
> I
RPL (Extnl
I
~
Establish Prefix addressability
I
G!]
Get Tea mode SYNAO entry address
TCTFX
I
TCTVESYA
RPL Executor (DFHZHPRX)
NOTES
Diagram· 1.5.11.2.18-03
ROUTINE
LABEL
REFERENCE
ROUTINE
LABEL
REFERENCE
. Diagram- 1,5.11.2.18..Q3
RPL Executor (DFHZHPRXI
Section 2:
NOTES
Method of Operation
291
LICENSED MATERIAL -- PROPERTY OF IBM
Page 1 of 1
PROCESS
INPUT
OUTPUT
From
VTAM
DFHZNSP:
n:::J
RPL
1======>
~
@]
L
RU
D
[§]
~
TCTTE
Establish
elcs and save area addressability
!TCTEVRC6
TCTEVRC7
TCTEVRCB
J
If entry caused by cleanup routine then clear
TCTTE of status flags and schedule ZNAC to process
error.
If entry caused by network service error then schedule
ZNAC to process error.
Return to VTAM BR 14
~
To VTAM
Diagram -1.5.11.2.19·01
Network Services Exit (DFHZNSP)
NOTES
ROUTINE
LABEL
REFERENCE
NOTES
ROUTINE
REFERENCE
Diagram - 1.5,1 t .2.19·01
Network Services Exit (DFHZNSP)
292
LABEL
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
isupport
Iloatin8
1
.5.11.31
'---.---'
1
1
1
~
.
•
NACP
(DFHZNAC)
1.5.11.3.1'
i
I
y
y
y
iI iI Writer
Error Message
II
I
.
1
1
~
1
1
1
1
1
1
1
I
1
i.espoDse Logger: il.slD.C 58Da
1 I Prograa
1 1 (OrBZRLG)
1.5.11.3.~1 I (DFBZISP)
(DFHMGP)I 1
1.5. ".3.'A I •
iI
.
I
,.5.11.3.31
,
1
I
I
I
;
I
I
y
y
y
y
i
isessage aoutiDei iBespreseDtati't'ei jlBP Interface
iliCP A".D .ziti"
I
1.5.11.3.1.11 IError Routine I I
1.5.11.3.1.31 I
1.5.11.3.1._1
•
• I
'.5.11.3.1.~I'
• •
,
.
.
Yisaal 'l'able of c:onteDts
section 2:
Method of Operation
293
LICENSED MATERIAL _. PROPERTY OF IBM
Page 1 of3
OUTPUT
PROCESS
INPUT
CSA
I
CSATCTBA
TCA
I
TCAFCI
TG.tISCSA
..[b
....
Ij
I
TCTFX·
I TCTVSRQ
I
~
TCTFX
Set up addressability to required control blocks
and verify that NACP should run.
~E
.
TCTTE
TCTEVSSC
TCTEVRC5
TCTEICLQ
TCTEICOQ
@)
Returr'l
lS
>~
eE0
Remove TCTTE from error proceSsing chain, If any
remain, and adjust chain pointers to prepare for
processing. If logging I. required, place·on
appropriate queue.
TCTEVRC5
TCTEVRC6
TCtEVRC7
TCTEVRCS
:>
~
~
ITCTPFBAR
I
I
TCA
ITCAPCERA
TRAPCAC
ITWAWSA
I
I
,TCTFX
~
Return
r-.l
~
TCTTE
I TCTVNACF
. VCTVSRQ
,TCTVSRQE
TCTVCNTE
I
TCTTE
ITCTEVSSC
TCTEINIP
TWAEC
I
ITCTEISNQ
I
TCA
Check TCTEVRC 5, 6, 7, 8 for error codes.
isolate them and establish the error message to be
LS
sent.
ITWACTLB
I
I MSGREG
I
For each error code, save RPL and TCTTE in TWARPL
and TWATCTTE respectively so that this uncorrupted
copy can be printed later if requested.
If TCTEVRC 5,6,7,8 are X'DO', check the next error
field.
Diegram - 1.5.11.3.1·01
Node Abnormal Condition Program (DFHZNAC)
NOTES
[§]
ROUTINE
LABEL
NOTES
REFERENCE
ROUTINE
LABEL
REFERENCE
Addressabllity to the TCT prefix Is
required:
.
Since NACP is a transaction which is
attached, it must be verified that It was
not initiated from a node and, if so,
NACP will ABEND.
(DMPCODE ATNAI
Q
NACP must also acquire working
storage in which messages are built,
.control blocks formatted and information
temporarily saved.
The NACP ABEND Exit is armed at this
time.
§]
A pointer in the TCT prefix contains the
address of the TCTTEs in error. Each
time NACP removes an entry the p~inters
must be changed. When the chain is
empty X'FF',s replace ,the chain pointers.
Before processrng the TCTTE, the TWA
must be cleared of any residual indicators.
[§]
If TCTEVRC5 is X'OO'. indicating no error
code, check the next error field.
The error code is u$E!d to access an index
into a table of message entries for each
error. The message entry contains the
number of the message to be written,
the actions to be taken for the error. and
an offset to the error routines to be
taken.
Diagram -·1.5.11.3.1·01
Node Abnormal Condition Program (DFHZNAC)
294
CICS/OS/VS
Program Logic:
Description
LICENSED MATERIAL -
PROPERTY OF IBM
Page 2 of 3
PROCESS
INPUT
§]
OUTPUT
Log the error message.
C
Message Routine
Prepares any necessary
message inserts and calls
OFHMGP
1.5.11.3.1.1
I WKREG1
~
I
, Call sense code routine.
~
Sense code routine
Determine cause of
sense code error and
log reason
1.5.11.3.1.2
~
Allow NEP (Users Error Program) to intervene and
alter the actions about to be taken to the node in
error, if applicable.
~
NEP Interface Routine
Link to, NEP and process
action flags
1.5.11.3.1.3
.
TCTTE
1TCTEICEA
TCTEVRC5
TCTTE
El
.1
I
If any Asynchronous Exits have not added any
TCTEVRC5
additional errors, continue.
~
Else
Diagram -1.5.11.3.1-02
Node Abnormal Condition Program (DFHZNAC)
ROUTINE
NOTES
[§J
~l
~
LABEL
REFERENCE
NOTES
ROUTINE
LABEL
REFERENCE
A BALR is made to the message routine
which calls DFHMGP to log the message.
If the message entry indicates that sense
code analysis is required for this error
condition, call the sense code routine
BALR to the NEP interface routine.
Note that the NACP does not call the
NEP for all conditions.
Node Abnormal Condition Program (DFHZNAC)
Section 2:
Method of Operation
Oiagram.- 1.5.11.3.1,(
295
LICENSED MATERIAL -- PROPERTY OF IBM
P0IJI3 of 3
OUTPUT
PROCESS
iNPUT
I
TCTTE
TCTEVRC6
TCTEICEA
:>
I
~
Check TCTEVRC6-8 for asynchronous error
codes, log messages, and process the error
condition.
If an error code. save RPL and TeTTE in
TWARPL and TWATCTTE respectively so that
this uncorrupted copy can be printed later if
requested.
I
TCTTE
TCTEACR1
TCTEACR2
TCTEACR3
TCA
ITWACTLB
IJ
[§
09
••
TCTTE
r-v'
request to honor.
<=0
I
~
Insure TeTTE is placed on Activate Queue if there is a
0=0
Message Routine
Prepares any necessary
message insens and calls
DFHMGP
1.5.11.3.1.1
b
TCTEISNQ
TCTEVTPS
TCTEVRC6
TCTEVRC7
l
TCA
ITWAROPTL
I
NEP Interface
Routine
Link to NEP and process
action flags
1.5.11.3.1.3
Now check for any more TCTTE in error
~
Diagram - 1.5.11.3.1·03
Node Abnormal Condition Program (DFHZNAC)
NOTES
~
ROUTINE
LABEL
REFERENCE
NOTES
ROUTINE
LABEL
REFERENCE
If there is a request outstanding, the
TeTTE will be placed on the Activate
Queue.
At this point the error queue is
scanned again.
Diagram - 1.5.11.3.1-03
:te Abnormal Condition Program (OFHZNAC)
296
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
r-------
Input
I
TCA
I
Save caller's return
,address.
JJ/ I
fTrnsAl71L
l!~:~~~ I
TCTTE
PCT
I
I
__
f
~
1_1
§n ~TI I
l~:lTODP
1,
-"0
I
===:>,' ~
1
L____~
aessage Routine (DP8ZHAC)
inserts for the
message to be logged.
r.J---' "I @)Return.
~ --'II
I'
I
I
J
L
Diagram - 1.5.11.3.1.1-01
!
I
I
,..:::~
-~~-I-~
Insure integr1.ty of caller ' s
II
return adaress.
I
I
@A"'~
Build any remaining
Hotes
1@1
1
I
I
§)
1 () P
----------1
TCA
:J===::=:=~il ~
1.:_
fiiOOREG
f
PAGE
processing
Each message put to the
message logs contain time,
terminal id, task id, and
the message OK control
I
block (i.e., RPL,
TCTTE).
This message format
can be altered simply by
I I
I
I
I I!
I
changing the message
prot:otype.
I . .... . .
J§}
,
lfter the entire aessage has
been lOggEd, the caller l s retut:n
::~-'
'"~''"'
~~
!
iI
L--===------,----,--I JL
..... g. Routine (DP8Z1IAC)
section 2:
Method of Operation
I
IJ
D1.agraa - 1.5.11.3.1.1-01
297
LICENSED MATERIAL -
PROPERTY OF IBM
Processing
-:lI]I ~)@!] ~:::;;p::::~=:;:e::: :::-1
Itcn~PD
UL
UGB
output
1
or
1
)
.
1IP •• nd.torr act10Ds to be
IPLIB3 - , ]
IPLCI!D~'I
ICB
.
§~]
~l~IlSI1
--,
nUI2 ---'
~atllD., depen4iDg aD the
..
,error.
RetarD to caller
.
>
I
••preaeBtaU •• '1gor8 Bout1De,O.UIAC)
lote.
§]
Boutine
1'12.8 h1po represents aore than
f1ftJ' iRcU.14aa! lingua e1:'X'01:'
Label
Ref
----- --- ---
I
lotes
---- ---- --Boatine
Labal
Bef
routin •• in IlCg.
lIalll bita are GsaaiDea in tbe
IctTZ, as H11 'as other control
blocks, to isolate the error aDd
correct :1.t.
'~t.t1ye
298
Ugare
Boat~a.IDIBZIlCI
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -
PROPERTY OF IBM
,."11' .,
r--O'['or:PRsi.nq
on
I
li 1UV'l~
I -----'~''>
I
{~] 'i'ave cIIllpr'::. roturn
address 1
I
I
'l'eo
lk>
I
r;;;;~\
~/>
To caller
L-.-,;-:o,::p"",.,,:-:.
;-:o-::q
Notes
@]
Routine
Label
RAf
-,r-I
Notes
---------this routine Derforas that
function. No resnonRe is sent +:0
it
"1\"
32'70
('!~.,ice,
,
!
out-of-serYice messaqe is sent
to the !'laster '1'p.rllinlll toq.
I
f-of
l'
!
II
I
I
I
)
I:
I,
I
!
I
\
I
!
!I II II
I
I'
I
I
I
i I
I
1
I
I
!
I
I
I
1
I
J
II
I
,
.~:::.,_::__--,--~--"----'L--------.----!
(DP'H'ZlUC)
I
, II
I'
or the error routine, an
aRt' Iaterhce Roatine
,
!
i
service, either because of NPoP
300
OOUH.O' Label
I
hovever.
When a norle is placed out of
L
I
'-----1
II II I
If !I' response is outstandinq to
the APO or if the error routine
decides a. response is requirpd,
I '.Ii. I
DiaQt'lIl11 -
CICS/OS/VS Program Logic:
1 '. 3.1.::t-n2
Description
LICENSED MATERIAL -
0"
lTIf-------'~r~m.
1
_______.J\
{§§:Q
_
CSATCUA
- ______ ,
------.1
or
1
1
'reT,X
\TCTfHACr
active.
§lliCFJ-- __----" ['0"21
orllAHID
TCAti'Tl
1
I
and indicate BACt» is Dot
'ECorll
~
meA
PAGB
Output
fQi1 Bstab11sh addrassabil1t]'
~
PROPERTY OF IBM
I
1
-[r-----'/I
ABEHO
and return.
-•
I
!
rr>
Take act10n on DodE- which -_ ____
::J may have caused the
~ Insure DO further link
r='l
=__==..1I r
attellpts are made and
react1vate the BACP ABERD
Exit.
I
~~---~
IACP ABEID Exit ID'HZHACI
I
Hotes
~
_______
L_~
I~:~II~ ~ef
Addressabl.11ty to var10US areas
.ust bo confiroed.
The 'HAC. Is Processing' fl.g
Ilust be tUloea off to ::adblO
HACl' to be reat:.tached .......
cont1Bue pxocess1Dg.
I
j
I
I
Assailing the cause of HACP
ABEHDing \I~S invalid or
incorrect. data in the 'lCTlB,
J
'-----,01-.-gr-.-.---I,...-::-S•...,I~,.-cJ,...· 1••-01
II_Hotes _ _ _ _ _ _ _ _
11
II
!!
I~
I
I,
/1
I
I
I
II
II
u __ -'"
I
that 'ret'll .ust again be located
and put per.anently ou.t of
service to insure 1t d08s not
cause another ABBRD.
:1
an RZP lBIRD occurs or if HEP
disabled, 11e£l cont1D.u.es
processing vithout attnpt1ag
future links to RIP.
:If
1s
II
lAC. &BIID .x1t IDIRZIlCI
Section 2:
~IL_~~
Method of operation
01.g . . . - 1.5.11.3•.1. '-01
301
LICENSED MATERIAL -
PROPERTY OF IBM
Page 1 of 1
.....UT
From DFHSPP or
DFHZNAC
~
,
TCA
TCAFCAAA
TCACSDAD
I
CSA
CSAMGTAC
I
-
OUTPUT
PROCESS
DFHMGP:
~
Analyze passed parameters and count
number of inserts.
~
Use message number passed by caller
to access correct message prototype
in table
TCA
TCA
TCAFCAAA
TCASCSA
TCATCPC
TCATDDI
TCASCNB
TCATDDI
TCATDAA
~
Build message using message prototype and inserts passed by caller.
Log message.
§]
Return to caller
CSA
CSATODP
CSAJYDP
CSADATFT
f--
~
PCT
U
To Caller
f--
Diagram -1.5.11.3.1A·Ol
Error Message Writer (DFHMGP)
II!OTES
§]
ROUTINE
LABEL
REFERENCE
NOTES
ROUTINE
LABEL
REFERENCE
The passed parameter list contains a
series of pointers; the first points to a
control record containing the message
number and the destination of the message,
the second and subsequent point to
individual inserts for the message.
~
Message prototypes are held in a special
module DFHMGT. A single prototype
contains the constants for one message
together with control-bytes denoting
the location and type of any inserts.
Certain inserts, e.g., the time stamp, can
be provided automatically by
DFHMGP and do not have to be
passed by the caller.
A simple index is created in the
module DFHMGT to allow rapid
location of the required prototype,
using the provided message number.
~
Using the inserts passed, and the
prototype, the full message can now
be constructed and logged.
Diagram - 1.5.11.3.1A.Ql
Error Message Writ.- (DFHMGP)
302
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -
PROPERTY OF IBM
PAGE 1 OF 1
OUTPUT
PROCESS
INPUT
:> @D
TCA
ITCAFCI
1
1 TCAJCAAO
1
Check task dependency.
A If not a task facility.
set Code and ABEND.
CSA
I CSATCNAC
]
Got JCA address and TCTTE
Prefix address.
1
A. If no JCA, issue DFHJC
maql,? instruction to get one.
TCTFX
1 TCTVETL
I
I
TCTTE
TCTTETI
TCTESQIP
I
L
J
JCA
J
CICS JOURNAL
CONTROL
DFHJC TYPE=GETJCA
Check Log Response Queue
for TCTTEs.
A.lf none, go to Clean Up
and exit.
~
Write the Journal Record.
CICS JOURNAL
CONTROL
TCTTE
OFHJC TYPE=PUT
1 TCTEVSSC
JCAJRTIO
JCAAOATA
JCALDATA
JCAAPRFX
JCALPRFX
TCTEISLC
TCTEICRS
TCTERSRR
TCTEVSSC
Successful completion
processing of TCTIE.
1
TCTFX
I TCTVRLGF
Clean up and return
control via DFHPC
TYPE=RETURN.
TCTTE
1 TCTEMOID
CICS PROGRAM
CONTROL
TCTTE
I TCTVRTL
DFHPC TYPE=RETURN
Oiagram ·1.5.11.3.2.01
Response Logger (DFHZRLGI
NOTES
@D
The program may be activated
ROUTINE
LABEL
REFERENCE
NOTES
ROUTINE
LABEL
REFERENCE
TCZFLG10
only by the activate scan
routine of Tep. Any other
facility code'causes the program
to ABEND.
~
Invokes the Journal Control
TCZFLG30
Program to write the record to
the system log.
Diagram ·1.5.11.3.2-01
Response Logger DFHZRLG:
Section 2:
Method of operation
303
LICENSED MATERIAL -- PROPERTY OF IBM
.... .
INPUT
TCA,
TCASCSA
I =J0
TCATSDA
@]
with DFHTCPSV and locate
I
TCTTETT
TCTTEDA
I~
:::)0
I TCTTEDA
0=>
TCA
CICS STORAGE
CONTROL
1:::)0
1=:>0
TeTTe
If a 3614 transaction, get
aTIOA.
TCTTE
I
0=:>
Establish addressability
associated
A
I
TCTTE
~
I TCAFCAAA I
I
PAGE I OF I
OUTPUT
PROCESS
DFHSC TVPE=GETMAIN
set up, and WRITE restart message..
B
@J
If rao TI.,9A, retrieve data from message cache and
build data ID.
0=0
0=>
I TCATSDI
CD=>
I
TCASONE
=:>EJ
CICSTEMP STORAGE
CONTROL
DFHTS TVPE=GET
A
~
If retrieve, was normal, get a TlOA
dcs STORAGE
CONTROL
JCA
I
JCSPBA
JCSPTCL
DFHSC TVPE=GETMAIN
I =:>GJ
TIOA
I
TIOATDL
TCTTE'
>
Enforce begin bracket and', retransmit message.
I~
J
CICS TERMINAL
CONTROL
DFHTC
TVPE=(WR ITE. LAST)
~
Perform housecleaning.
@]
Return to system via DFHPC
TVPE=RETURN
I
TCTEIBBP
TCTTE
TCTEIRSI
TCTEIERSTO
TEIRPB
TCTEIPSA
'TCTECOPF
TCTEIFTP
TCTEMDID
Diagram·I.S.II.3,3-o1
Resync Send Program (DFHZRSP)
NOTES
ROUTINE
LABEL
REFERENCE
NOTES
LABEL
REFERENCE
Diagram -1.5.11~3.3-01
Aesync Send Program (DFHZRSP)
304
ROUTINE
CICS/OS/VS Program Logic:
Description
en
CD
0
c1"
....0
=:I
..
IV
:!!
<>
File
Management
f
~
1.6
a
Module
Structure
~
1.6.0
g:
8.
I
0
HI
GET
0
it1
I
RELEASE
1.6.1
GET AREA
1.6.3
GETNEXT
DELETE
1.6.4
1.6.7
I
III
....c1"
g
VSAM GET
SETL
1.6.5
I
Automatic
Journaling
1.6.15
1.6.12
I
VSAM GETNEXT
VSAM
OUTPUT
VSAM
SETL
1.6.6
1.6.16.1
1.6.13
I
Initialize
In·Core Index
1.6.16.2
I
ICIP Output
1.6.6.1
I
File Control
Table Scan
1.6.2.1
Indirect
Access
1.6.2.2
I
I
Direct Access
Deblocking
1.6.2.3
Input Segment
Service
1.6.2.4
VSVW
Acqu isition
1.6.2.5
I
VSWA
Disposition
1.6.2.6
I
ICIP Processing
GET
1.6.2.7
I
o
~.
3
I
w
o
VI
ICIP INDEX
Retrieval
1.6.2.7.1
I
GI·Read ICIP
Index Control
Interval
1.6.2.7.2
VSAM Close
Processing
1.6.17
I
ICIP Open
OPEN/CLOSE/
LOCATE
1.6.14
1.6.9
VSAM Open
Processing
1.6.16
Processing
I
I
I
I
RESETL
1.6.11
1.6.8
I
ESETL
1.6.10
I
PUT
1.6.2
I
I
ICIP Close
Processing
1.6.17.1
LICENSED MATERIAL -
PROPERTY OF IBM
Page 1 of 1
OUTPUT
PROCESS
INPUT
FI LE CONTROL ; . . . : . : . . : . . : . . : : . : : . . : : - - - - - - - - - - - - - - - - ,
REQUEST
[b
DFHFCP
~I
I
'\r-=-:'y/fscan the File Control Tablel
L
1.6.2.d
TeA
T~CA~F~CT~R~]I:====> ~
dl
If data set ISAM or BDAM and request one of the
following
GET
PUT
SETL
GETNEXT
RESETL
~
Continue with VSAM Processing
DFHFCD
Diagram 1.6.0-01
Module Structure
NOTES
@D
ROUTINE
LABEL
REFERENCE
NOTES
ROUTINE
REFERENCE
FCFSAN
FCFSANB
FCFSANC
FCFSAND
FCFSANE
FCRFAN
FCAJRNN
FCJOURNL
FCDWEACN
FCECNA
FCOUTSEG
FLISSNB
FCISSNA
FCISSNC
FCRFSAN
FCRFFIOA
FCIXUUT
FCIACNA
FCFRIFLN
FCCVTDBN
FCLOCKYN
FCIRE
Note that in some cases (eg PUT
UPDATE) it is not necessary to scan
the File Control Table. The FCT
address has been stored on the previous
related request (GET UPDATE) and
can be picked up from the stored
location.
~
LABEL
Note that not alllSAM and BDAM
requests are processed in DFHFCD.
For the following ISAM or BDAM
requests the processing is carried out
completely in DFHFCP:
OPEN
CLOSE
LOCATE
ESETL
RELEASE
GETAREA
linkages back to DFHFCP are made
from DFHFCD in order to use the
commOn routines in DFHFCP. Exit
for these requests is always made at
the appropriate exit in DFHFCP.
The labels which follow are those in
DFHFCP which are referenced by
DFHFCD for linkage purposes.
FCDSINVR
FCXSENDF
FCXSRNFR
FCXSIOEA
FCXSNSR
FCXIPUX
FCXSrRR
FCXDUPR
Diagram 1.6,0.01
Module Structure
306
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
FHE
Output
10'
-------------------- ---- -- ------1
I
I
I
CCI1
(I ~:-:.JI
I
trol
'>fKcp---------------l
\ ,.--, I
__________ 2:~.::J
------------------
t~::
!
I
I
L _____________________________ .1
tiagrilbl -
1.t:. 1-C 1
'-----------------------------------'--------------11--------------------------------------------------------------I twtt::.::i
j aout...l..Il{:;j
I hef
P;cte~
I f;outin€ I LatEl I F.~t 1
LdtEL
1----------------------------1--------1--------1------1 --------------------------------------1--------1--------1------1
trU":l 'l'h ..
h:~ul.l.~d is t1\~ flUA tFC~!jAb It"Cf'SANl I
IIII
II
1
I'"--.J
I
I
I
I
.::itUl:d:i'"
I
1
t,
I
!,,--,
.l.ell,t • • ".oeK.,,<_ I t tn.
LC-aUt:lst.
~CI:
1.':;
Ut'UdtE,
th>;}
~:~:::t:~::.::e~:~:: :::,::e~t:
.(";1.
tllQ JCUL'lIal ~vent ccntLol
nU!\lL.t:[
.. 0 v ...
I
dJ:O::dS..
r~j ~:~::~:~::~:::~:~::::
: : : :.
\
dna «, - Ll tn. adt. set .0
'I,'
eLatee«"
,,,Go=11I1t.1.1
'"'J
~:c::~~~:
:::::o:o:s ci~;:~l.a~d
,
:
,
I
l.~
Vloci
lL.H.UtdlOtHJ.
<1
ltJ:.lI.L
the
S~llC
..:.JI.l.:J..Ii~J.Vt:
o"AO_"L·t""O",.o"t,o
t
J..:;;~u~a
i
<11JIJ
"!1l~U~UC
I
"L una oE'
I
~ll'1u~lle
.L!:i
loS
to
d.LSO
1
Tnl..:i
00 tnt: ccncu.te.latl.OII
Odd,.
mH.,," . . . . . a
1
I
uloe<
'.J.
it any_
I I
I
I
I
I,
1I
I
I
I
I' I1\
1 \I
,
I
m
1
I
I
I
I
I
\I
"
'
I
I',
I,'
I 1'1
I,
I,
I
I
I
I
w'[=============-~=P~rfo'I'm
'r'~---~-'"-'
[71--' ,I raj] If lO::~:-::~:---~~·'5
=~~- --"6 ~--'I L:_
r:~ >r~~
r ,-----[~--" roii]
t~d
L:..:
Lt.2r·:~
I <.----'r.1
r
11CAi'CRI
""APCAA
II
It
A ___,1
a se';)lIIen
rn;:]
[AI~) l~
:J
<.>r======)
L____ _
If SETL or RESETL request
segment service
A. Have i1efault se";Jsp.t IO
from VSIiiA to
TC~
an(l go
to Input SE1ment
Service
fl. If sq'3l1~nt Sll!t
I
I
l______________
VSAM GETNEX'l'/GE'rPREV
I
I
viII fit
in PVA, return to Input
S. ,.ent Servic.
'
I tC~
I r G~~~~=J
II>r~~;;~;;~
11,,--------,
..
.
I
l
•• 1 > 0'1
V
,--, I
SE:l meDt ServicE'
L~ _____ J
I fila
J.S
re;juest, go to Input
>ru;-i~rdl
,
1t
,I,
,,
,,:
I
Automat ic
Journaling
V5.&
!:
,
Issue VSA/'! GET
I
[~F:::>
1.6.2.q
1-----cord
)~~~;;---1
L _ _ _ _ _ .....
r::,
') ra1l
t_-" '/
I!
,I
1.6.2 .. "
r:;j
') ro51
L_-,' ' I
I
I
L _________J
,I,
,I
,,I
_____-:-______________________ 1I
Diagril.m -
1.6 .. 11-C 1
--------------------1--- ---1-----------------------------,-------1------------I
I
r-~~:-----------------:::::--::::--~:~--l r-::::---------------------l-:::~:'-~:~:~--!-::~--l
I ,
I
I
I
II
!
I
I
1
I I
I
I
1
,I
,
!,I
I
1
I
I,
L
I I
,
I
I
1
I'
I
I1
!
,I
I
!1
I
I
I I I I
---------------------------------___ - __1,_________________________________________________ ,
VSAM GETNEX'l'/GE'l'PREV
Section 2:
Method of operation
D1a1r.am -
1.!).11-n1
343
LICENSED MATERIAL -- PROPERTY OF IBM
Input
r--------------------
I
I
C. Free curnmt
F~A
and
return to Input segment
Service
fscp-------------]
\ ,.-, I I .... -------------~
l~~~~:~~:
\
r-1-'
07 _I :>
V -,/
[ .1
:J
r{}'1)
l~_
/1.ove record ID from PIP
VSWA
=~) [~~)
If
locate mode, return
VSWA
rl
1.6.2.'-
I [;;, '>riiiil
_____!.::::..
[~~] !'love record to F"A
2
2
f)'f
r-------------------------------l
r-~---------------------------l
,::I \.
HoGF.
nut.pu+;
Proc essin;J
\I
I
I
I
I
I
I
I
I
I
i
I
I
I
I
I
I
I
I
I
to_l_
___, /
Il
,
-
J \ [-]
I
I
I
II
II
i
I,
to user, othervise
return FIolA to user
I
[;;;;,'>
T'~-~'l1er
I
I
II
I
II
L_______,
I
I
I
I
I
L______________________________ J
I
VSAM GETNEXT/GETPR.EV
Dia'!Jram -
1.6~
11-02
f~:::===~~~=~====~~=~~~~~~=r~:=::r~~::=-~::~~~1 r~::~::=~~=~~~~~~~~~~~~~~=~~~~~~~~l~::~:r~~:~~~!~::~~~I
II
I
I
I
II
II
II
I
I
\
I
I
I
I
I
I
I
I
I
I
I'
I
I
,I
\
I
1
I
III
I
II
II I!
I
I i
II II
II
I
I
1
I
I
I
I
I
I
I
I
,
I I
II
II
I
I I
I
II
' i:
I
I
I
I
I
I
I
1
I:
I
I
I
I
I
I
I
I
I
I
I
I
I
I II I
I I
L________________________L___J _______L____ l___________________________________l _____L______i______ 1
I
I
I
VSAM GETNEXT/GETPREV
344
I
I
I
Diagram -
CICS/OS/VS Program Logic:
1.6. "-02
Description
LICENSED MATERIAL -- PROPERTY OF IBM
r----------------1
Input
,I\
--" >I/
"····1
Ir:1
II r-----"
I
TCA
frufCiiI-1=-r--------,I'
r1
L - - - , r----------',' fOil
:..:.J
, ---~ \ 1\
1
I
lJ L
I
TCAPC"
,
/
,
I
, -_____ ,lI l
,
FCT Entry
If 'VSAlt locate mode, go to
RELEASE
b~~----, I
I
\
r---."l[03l
FWAlllr---------'I'I :::.J
f I~~~~
Release PBWA
set, go to
tpC[JPDRA
I
11
,I
'l ·----'lJl
"I
I
:,'
'I'>L~_-C.'WA.
1 .. b.3
,--" "'-1
~~/'~}
8~~k
,,1
I
I
-)
]_,,_J
I'
------- ,
,
,
l>r~--l I !
II"
['-----1 I
\
"
I
1 1 " 7 . ,"
"\
,/
{~1>rzJl
I
I
I
,
I
I,
I,
I
,I
I~GotoRELEASE
I
I
"
______J
I
I
I
i
II
,
,
,
I
I
I
lf> ,i'CPBiOA___1
I l>[PEWA =1
1
PIOA
~,
" ••• 3
I
I
I
I
L FO'
I, . r»FCDPDRA=)
'I'
I
I
---~
\!
ESETL
V
/ ',--.1 - - - - - - - ,\
PIOA
I
I'/
I
' I
\ [SCP1.2.2--
1
-l-----.,'
~--,
--,-------./1 r ~::~
storage
,"AlNO
I
1 OF
'I
I
r=
I ~~VSA'QI--==:~>! ~ ~:L::~: data
,
I
I
output
\
1
I
DFHFCP:
PAGE
I------------i
processing
1--------------1
I
_--.l
'
'
,,
,
I
I
'I
I
I
II
' I
l__________~
L_________J
Diagram -
r---------------------,---I"----, r----------------,
1.6.12-01
----,----I"~
!~--~-----------_'_~::~~:!~~~I~~II~~~-------------I-::~I~:=-L~l
"
I
I
I
I
I
I
I, ,1\'I
,
,I 1
,I
I'
I,
I
,'
I
I,
,
l
"
,
I
II
I
I/
II
II
II
II
II
I
I
"
I
I
,
\
,
I'
II "
'I
\
I
,
(
II
II'
"
"
,
, "
I
I,
,I
!,
II
,I
\I1/
I II
I'
,
II
I
,I
,,
I
I,
I
'I
,
I,
,,
,
I
I, I'
I
!,
II
I
I
I
I
I
,
,
,
I
,I
I'
I,
'I
I
I\
I
1
!
I
1'1
I,'
I
II
" "
I
I
I
,
I,
/
I,
I
I'
I
I
II
1'1'
II
II
II
II
IL_______________I,____I, _____,, -.--lIIL-_____
BSETL
Section 2:
I
I'
"
I' I
I I
" ,
'
I, II I,
I/ II I
'
'-.J
D1agrall -
Method of Operation
,
1.6.12-01
345
LICENSED MATERIAL -
PROPERTY OF IBM
'::::L--l
I.nput
I--~-----------
I
[L
····t )
---,1
-, @!]
[----j--------..
~~~~- -----------,/
peT Entry
If data set 1s Dot VSA(II,
go to S'€T-L
output
PAGE
1 OP
,
----------------------------,
I
I
I1
1.6.8
[;;j'>ro41
--.,1
I,
,,
,I
\1
I
I
TCA
f
[ -----~
iCAFCU
----
ff-----"'\
~----' /
1
@]
02
-
Beinitialize the ~equest
Paralleter List
L v s••
-------:...----, I
i
I
TeA
__________ ---J \
r
[~~~CAA:J
)[====J
>[----~=
I,,
VS"A
1
@~] Go to VSHI SETL
I
i
I,
I
,1
I
I
I
I
__________________________1
~ESEU------------
Notes
---------------------
Dlftgr.am -
I
Routine
----~
1.6.13-01
-------------------------------,------,
Label
Ref
----- ----- -::~::------------------------- -::~~:: -~:~:~--I-:~~--
\
I I
1
1
I
I
!
I
I
I
I
I
I
I I
I
,
,I
I
I
I . -1I
- - - - - - - ' - -__________________________
I
I
BiiSiTL---------------------------
346
Dia;rall ... '.6.13-(11
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -
r
I
Rrocessing
I
'r!P!-CLOS!
TUB'DE!!
'rrpB.L~'11
~
a •••
se. 10 ======:"
fro.
-',
02B1/CLOSB/LDCUB
eara.etar
tcliciA.
1 0'
1.
~
_____
L:..:.J
21GB
output
Tf:C:.;A~=:--.J g~~~~ ;';':::e .be
TCAICT B
PROPERTY OF IBM
TCA
If:e"'.o:-":--S-:O:-'--'
_~
Ll.st to 'rCA
@]
.:==1
~>
If request
18
Sc.n .heTab
'~f.
centrol
e
1 ••• 2.1
tbe data set is
open, set the data Bet is
open l.nd1cator in 'PC'!
Fet]
CLOSE, reset data set is
1Dd1C& tor 1D 'PC'!
Set the rer eotry address
in the OnR/CLOSB/LOClTB
Paroetar List
I r/
,
If tb. r.q•••• i . f o r :
open
reT Butry
ana-ill'
PbJ'S1CB111D
for OPEl
:-===:::;:tC::: >
,.
~ Do steps 1 thru 5 fOl: each
eDtry in the
DUII/CLOSB/LOCATB
PB.ruater L1st
L_
. Dlagra. - 1.b.14-01
OPBI/CLOSB/LOCATB
-
Boatine
Botas
§l
'lbe 'rtP.B-LOCA'!B 1s used to find
Label
the address of a specl.f1c Plola
Control 'Iable entrJ'.
§)
Bof
--- ---
If data set identlf1clltioD
cannot be found in the .rct, .b •
.rct entry 1l44ress is set to ze:EO
at step 5.
I,
Hotes
Routine
Labal
--- ---
Bof
I
I
II
L
O. . ./CLOSI/LOClfl
Section 2:
Method of Operation
Oiagr .. - 1 ••• 14-01
347
LICENSED MATERIAL -
PROPERTY OF IBM
----~[--Q----jL~~ [~;:'~;~,
. ~~ ,.,,~~I
~
IaPlit
iCiF~~ -
I
--..1
-.,1
>[S;;;;;~":~-]
';L:O: 'CO _rd
[~~J:d
Autoaatic
i
~2~
R~corrl
__
address
ID
JCALDA"A
Record
length
----JCAADATA
Becord
address
JCAPCPI
Data set
ID
JCl
Issue the Joornal
request (sl
Entry
1~3J.cator
/!ii~:ir~_
JCA 'CARl
and length, data set
identification, and
appropriate function and
.odule indicators in the
I
-'CTD-SLO~~::::::>1A1
itT
!I
JCllCLRI
Record ID
-l]~===~> @]storerecordaddressand
l.en;Jtb, record 14 address
:1-
r;:~:~~
L _ _ _ _ _'
--1
~~_--1]
iSilA
f
't'CA
.
[---1
1 OF
-----------~-------1
jour•• ling ar9 not t : : :
perforlled for this type of[;;;;i'>
----:-11
request against this data
~eturn
set, return to calling.
rootine
[[~]
PAGt
output
1.:J
~]
----lCTDSJiD
Return to
cal1in~
routine
Auto_atie
JOurnal ID
[;;;;;;;;-J
~~;;l-
-----""1:L
~l:1uests
,
I
V
Return to
Caller
I
_________________________ J
Auto.at~c
JouJ:.oaling
80 utine
Botes
§J
Diagra. - 1.6.15-01
La tel
------------------------------------1
Bef
Notes
---------------------~---
Beads tor update are
auto.aticall! l.o:J;Jed
aSYDchronously, aDd sl'Dchronized
on tb.e .,rites far update.
lIol1tinp.
tatel
I
~et
I
---- -------I------!
I
'
!
I, II
1
Write-adds iire auto.atically
lO:J;Jed sIDcDronously. ifbat is
I
8u.toaatlc.al.Ly Journaled is
8nt1.r81y up to the user.
1
~ A DlUJC TIP.i$=GE'IJCA .aero
I
I
1
illstrllCtion i~ aillays isslled to
ensure tAere is a JCl for this
task.
I
I
I
____________________
. ____________ L __J
lu.to•• tic
348
JourDalin~
1
D1agral - 1.fi.115-Cl
CICS/OS/VS Program LOgic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
Page 1 of 2
OUTPUT
PROCESS
INPUT
OFHQC Macro (Op
cnr-------------------------------------,
data base VSAM file 51
Open Processi n9
.....
TCA
TCAOCIC
TCAFCTR
[,
CICS
PLiST
Get storage for
I
A
as parameter list
SCP
I c::::=::::>0
GETMAIN
1.2.1
Obtain the FCT addresses for files in parameter list
C
FCT
CICS
PLiST
FCP
Open List
~
Deferred
Locate
1.6.14-01
List
Verify ACB and FCT entries
ACBs
Parameter
List
Build
--
OS
as parameter list
I
PC
SETEXIT
1.3.7-01
Issue
I
ACB
===~>
as OPEN macro
Obta'n key and record information by issuing VSAM
I
SHOW CB
macro.
ACB
====>
Diagram - 1.6.16·01
VSAM Open Processing
NOTES
~
ROUTINE
LABEL
REFERENCE
NOTES
ROUTINE
LABEL
REFERENCE
If the ICIP option (& VSIC1P) has been
sysgened then the
as OPEN macro is issued
in authorized mode using the GICS SVC
(DFHCSVCI.
Diagram - '.6.16·01
VSAM Open Processing
Section 2:
Method of Operation
349
LICENSED
M~RIAL
-- PROPERTY OF IBM
Page 2 of 2
INPUT
OUTPUT
PROCESS
====>
ICIP Open
DFHIDAC
I
VSWAs
I
Processing
Data Buffers
I
I
In·Core
Indexes
1.6.16-01
I
I
Index Buffers
I
I
[£)::::::>
~
FCT
=======>
Reset deferred and open parameter lists in FCT
Open list
Deferred
List
0==> ~
0==>
Issue logical open
ACBs
FCP
======>
Open
1.6.14.01
El
I
FCDSOPN
I
Return
PC
RETURN
1.3.6-01
Exit
Diagram - 1.6.16-02
VSAM Open Processing
NOTES
ROUTINE
LABEL
REFERENCE
NOTES
ROUTINE
REFERENC'E-
Diagram - 1.6.16-02
VSAM Open Processing
350
LABEL
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -
OUTPUT
PROCESS
INPUT
PROPER'l'Y OF IBM
1.6.16·01
Ght>
IDFHIDAC
I FCICLEN
I
I
>~
·.
IDA
I~
I
FCT
VSWA
>~
IVSWABLEN I I FCTDSACB I
ACB
ACBAMBL
ACBID
AMB
AMBLDTA
1 IAMBDSB
I
I
I
AMDCINV
IDA
FCTDB
I IVSWA
I
FCICFRPL
I
VSWABLEN
I
SCP
I
GETMAIN
1.2.1
I
>
Get master RPL and initialize.
·.
I
SCP
I
GETMAIN
1.2.1 ]
>
> LOiJ
Calculate data buffer size.
>~
Obtain required number of data buffers and RPLs.
Initialize and page fix chain buffers and RPLt.
FCT
f FCrlDA
I
IDA
I
I
IDA
VSWA
VSWAMASK
VSWATYP
VSWARLEN
VSWAACB
VsWARBA
VSWAARG
VSWALEN
VSWABUFL
I FCICAMPL
I FCICSTCH
FCT
I FCTDSREC· r
VSWA
FCT
I VSWARBA I I FCTDSBLK I
I
FCT
FCICSTCH
===rs
Got storage for IC.IP data area control block.
I
I
IDA
·.
I FCICRPL
1
sCP
I
I VSWAMASK I I FCICSTCH I
GETMAIN
1.2.1
I
I
Diagram· 1; e; 16. 1'l11 .
lelP Open processing
. NOTES
ROUTINE
LABEL
REFERENCE
NOTES
ROUTINE
LABEL
REFERENCE
~ ~ ~ ~ ~
Should there be insufficient storage for
the CICS ~ETMAIN or should the page-
fix fail, then the following messages will
be output.
OFHl521·lnsufficient file storage
for an lelP file.
DFH1622· Pagefix of buffers for ~n
lelP file hIlS failed,
The files will be closed and any storage
already obtained will be released.
[§] [§]~
This storage is all chained using the third
word of the storage obtained (the first two
being used by CICS storage management).
~
The data buffer is chained from the VSWA
using the first word the VSWA.
i.e. B bytes before the start of the RPL.
of
Diagram - 1.8.111.1.01
lelP Open Processing
Sec~ion
2:
Method of Operation
351
LICENSED M~RIAL -- PROPERTY OF IBM
Page 2 of3
OUTPUT
PROCESS
.NPUT
0=0
0=0
FCT
I FCTKSDS
>[~}
I
.
DFHCSVC
PAGEFIX
SCP
GETMAIN
1.2.1
Is It ESD5 file?
,
Vos
No
J}
FCT
ACB
ACB
AMB
I FCTICACB I I
I
~
II ACBAMBL , I I AMBLDTA I
II ACBID
I
> @i]
~
Issue OS OPEN SVC to open Index component
of the cluster.
>
Calculate I~ngth of index buffers and translate table,
and number of index levels.
>
ACB
I
IDA
FCICSZ
FCICXLSZ
FCICNL
FCICAMR
AMBDSB
AMDCINV
FCT
I
I
FCTILIC
FCTBUFNI
AMDNIL
AMDHLRBA
I
Diagram· 1.6.16.1·02
ICIP Open Processing,
NOTES
~
ROUTINE
LABEL
REFERENCE
NOTES
ROUTINE
LABEL
REFERENCE
TIHi 05 open macro Is Issu~ in
au!honled mode using CICS SVC
(DFHCSVC).
Dlogram·l.6.16.1.02
352
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -
PROPERTY OF IBM
Page 3 of 3
OUTPUT
PROCESS
INPUT
Obtain required number of index buffers and page fix
and obtain index RPLs.
SCP
GETMAIN
1.2.1
DFHCSVC
PAGEFIX
Data Buffers
I
I
I ndex Buffers
FCT
I I
I 1
FCTIDA
IDA
RPLs
I
I
Initialize in-core index.
I
I
Initialize In-Core
Index
1.6.2.7
10
..
Return
Diagram· 1. 6, 16. '·03
lelP Open Processing
NOTES
§]
See notes on page· 01.
~
See notes on page .. 01.
ROUTINE
LABEL
REFERENCE
ROUTINE
LABEL
REFERENCE
Diagram - 1. 6. 16. 1-03
, IC1P Open Proceooing
Section 2:
NOTES
Method of Operation
353
LICENSED MATERIAL -
PROPERTY OF IBM
Page 1 of 3
OUTPUT
PROCESS
INPUT
DFHDCP
Initialize
In-Core Index
.... ..
I~J 1.6.16-01
FCT
I
FCTIDA
VSWA
I
~
Obtain arid initialize RPL to read master index record
I
~
c:0
r VSWARBA l
r VSWAARG l
IDA
I
FCICRPL
FCICAMPL
ICIP Index
Retrieval
1.6.2.7·01
I
DFHIXL
~
I
031 ••
j}
Are further levels required in core?
y~
No
~
VSWA
IOAIRD
J DFHIXH
IBFLPF
IBFLPL
IBPLP3
I
I
IXHSEO
IXHFLPLN
I
DFHIXL
IXLMASK
[~l
J!
Obtain RBA of next level index record from current
record and prepare ,to read it
I
I
I
VSWARBA
Data Buffer
I
DBXLBIT
DBXLMASK
DBSAVE
·DBARBA
041 ••
Diagram· 1.6.16.2.01
lnitialize In-Core Index
NOTES
§]
An RPL is obtained. but not dechained
from the free RPL queue In IDA
~
The code is that used to initialize the
ROUTINE
LABEL
REFERENCE
NOTES
ROUTINE
LABEL
REFERENCE
in-core index dynamically.
§]!~
If 1 level of in-core index is specified,
the master index record Is read in.
If further levels are required in core at
open time then there will be a translate
table associated with the master record
and the RBA of .ch Index entry in the:
master record will be used to read in the
next level of index.
Subsequent required levels are built up
in a similar manner
. Diagram· 1.6.16.2.01
Inlllllizo l..co... Index
354
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
Page 2 of 3
OUTPUT
PROCESS
INPUT
~
Read in new index record
0=0
G1
Read ICIP Index
Control Interval
1.2.6.7·02
Data Buffer
I
I
I
IXSHEP
IDAIRD
DFHIXL
IXLVLEN
I
I
I
:>
~
End of sectlon?
:>
~
Update to next section
JJ
Yes
No
IBFLPL
Diagram· 1. 6. 1B. 2·02
Inida1ize In-Core Index
ROUTINE
NOTES
~
LABEL
REFERENCE
NOTES
ROUTINE
LABEL
REFERENCE
EJ
Each VSAM index CI is split into seperate
sections
Diagram' 1. 6.16.2-02
Initialize In·Core Index
Section 2:
Method of Operation
355
LICENSED
M~ERIAL
-- PROPERTY OF IBM
Pege 3 of ~
OUTPUT
PROCESS
INPUT
~
More sections to be analyzed
JJ
Iindex
Buffer
Prefix
I
SRI$
I
Q
~
Add"ess new buffer
~
Switch to Tea Mode
10. ••
~
Q
Yes
No
KCP
leave SRB Mode
1.1.14.1
I
I
VSWA
VSWAREA
I I
I I
I
IDA
FCICBF
FCICBFEC
I
I
I
=>
G
Release Buffer
@]
Return to DFHOCP
I~
Exit
~
1.6.1&01
Diagram - 1.6.16.2 - 03
Initialize In-Core Index
NOTES
ROUTINE
LABEL
REFERENCE
NOTES
ROUTINE
LABEL
REFERENCE
I
\
Diagram - 1.6.16.2 - 03
Initialize In-Core Index
356
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
Page' of 2
OUTPUT
PROCESS
INPUT
OFHOC macro
close database
VSAM files open
processing.
r
.....
TCA
I
~
TCAOCIC
Get storage for
as parameter list
:>
SCP
TCAOCTR
GETMAIN
CICS
Parameter List
1.2.1
I
I
OS
Parameter List
@]
Obtain FCT address for files in the P list.
FCP
LOCATE
1.6.14·01
OS
Parameter List
I
I
Data Buffers
I
In-Care
Indicators
I
I
:>
~
Issue OS close macro
:>
ACB
I
DFIDAC
II
I
I
VSWAs
I
I
lelP Close
processing
1.6.17.1·01
Index Buffers
I
FCT
======:>
FCT
I
Reset Open/Deferred parameter lists in the FCT.
Issue test CB macro.
Open
List
I
Open
List
Deferred
List
DeferrE:d
Ust
Diagram
VSAM Close Processing
NOTES
~
ROUTINE
LABEL
REFERENCE
NOTES
ROUTINE
LABEL
~
1.6.17 - 01
REFERENCE
If the lelP sysgen option let VSICIPl
as close macro
is issued in authorized mode using the
CICS SVC. IDFHCSVC)
has been used there the
Diagram. 1.6.17 - 01
VSAM Close Processing
Section 2:
Method of operation
357
LICENSED MATERIAL -
PROPERTY OF IBM
Poge 2 of 2
OUTPUT
PROCESS
INPUT
Iss~e
logic&! close
FCT
==~>
FCP
I
FCTDSOPN
Close
1.16.14-01
Return
VSAM Close
Diagram. 1.6.17·02
P~5Slng
NOTES
ROUTINE
LABEL
REFERENCE
NOTES
ROUTINE
LABEL
REFERENCE
\
Diagram· 1.6.17·02
VSAM Close Processing
358
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
Page 1 of 2
OUTPUT
PROCESS
INPUT
[§]
04
IIDA
VSAM close
processing
1.6.17·01
.....
Pagefree and release all lelP storage
areas chained from FCICSTCH in
IDA.
I
r
l
~""="
I
RPLs
DFHCSVCS
I
I
DATA BUFFERS
IINDEX BUFFERSI
IMASTER RPL I
I
I
IDA
I
PAGEFREE
SCP
FREEMAIN
FCT
I I FCICORE
1.2.2
Release any in·core index (chained
from FCICORE).
I
~r-_S_C_P__________--1
FREEMAIN
1.2.2
lelP Close Processing
Diagram· 1.6.17. '·01
NOTES
ROUTINE
LABEL
REFERENCE
ROUTINE
LABEL
REFERENCE
Diagram -1.6.17.1-01
lelP Close Processing
Section 2:
NOTES
Method of operation
359
LICENSED MATERIAL -- PROPERTY OF IBM
Page 2 of 2
OUTPUT
PROCESS
INPUT
FCT
I FCTIDA
Release ICIP data area control
I
block IDA.
1
SCP
I
>
ACB
~
I
I
FCT
I
FREEMAIN
1.2.2
j
ACB
Close Index file issue
as close macro.
====>
Reset Fer flags.
I
Return
1.6.17-01
Diagram -1.6.17.1-02
ICIP Close Processing
NOTES
ROUTINE
LABEL
REFERENCE
NOTES
ROUTINE
REFERENCE
Diagram -1.6.17.1·02
ICIP Close Processing
360
LABEL
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
Diagram -1.7.0·01
Transient Data
Section 2:
Method of operation
361
LICENSED MATERIAL -- PROPERTY OF IBM
~~~.:::~~-------------
O~!£~;
PAGE
1 OIl
________________________
.,
,
I
,
1
,I
DF H'l'DP:
I
!,
~] Locate appropriate
I
destination
!,,
,,
~~] Test type of destination
I
A. Intrapartition
I
II
B. In direct
i,
C. E%trapartltion
,I
~~] Analyze service request
I
A. POT
B. GEl
I,
c.
,I
I
POBGE
,,
I
I
II
,I
I
II
I
I
,i
____________________________ ... _.1I
Transient Data Entry
DiAgram -
'.'.1-01
~:;~-~;;,==-~~;;::~:~:;:- ::::::=---:--=--===~=i:::::~:~::l;:~:1
issue X'02 ' return code to
caller.
@]
If not A,
B, or C, ABENO=ATDI.
Ir;;-;l
~ Intxapartition: Go to proper
,
I
I
,
I
TDEAlS,"
I
I
service routine for:
A. PUT
TDii ETRTH
B. GET
TDIARTN
c.
TDEAPPBG
PURGE
I
I,
TDEATD
I
I
,I
I
,i
I
i
'
Toe DF/iTO CrYPf:=J.OCATE lDacro
instruction is used to scan the
Destinatl.on Control
I
Tab~e.
I
------------------------------_________
Trans.l.ent Data Entry
362
I
I
II
i
- - -_ _ _ _ _ _ _ _ _ _ _ _ _.... _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ JI
Diagram - 1.1.1-01
CICS/OSjVS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
In.v ut _ _ _ _ _ _ _ _ _ _ _ _ _
PAGE
r:::~::~~--------------------
~J Indirect:
2 OF
2
n~;~~~-'------------------------l
r;;,'>rii21
I
\/
L __ ,
A. Set indirect
I
destination
@~] Analyze service request
ITO
--, I
\/
I
_________________J
L_________J
Trans~ent
'.7.6
[;;, '>rii'l
Data r.ntry
Notes ---------------------~::::t'-:::--;:~--1
~fl~:=~~-:-::;;:::-;;~-:::;- ----- ~~;~;- ---contains the old dress of the
I
I
1
____________________________ .J
Diagram -
r-;:::----------------------------~:~::--~:~:~--i-;:~--1
--------------------1 ------I-------!I------1
I !
I
1
aH[Oprite OCT e.try
~ Extx:apartl.tion; check tor PBOV
reyuest.
1.1.1-C2
extra,
I
TDEXTI?Ail
i;l
p".rs''to
I
'1
I
1
I1
1
1
!
I
I
1
1
!
1
1
I !
1
I
I
I
l_________________________ l___________
transient Data Entry
Section 2:
Method of Operation
I
----L___
JJ
Diagra\ll -
'~'~'",:,02
363
LICENSED MATERIAL -
PROPERTY OF IBM
Page 1 of 3
INI"UT
FROM DFHSPD
··...
ITb
DFHDWE
IDWFMCOFN
OUTPU.T
;..P.:.R:.:O:::C:::..:::E;:S,:S:....-_ _ _ _ _ _ _...:..._ _ _ _ _-,
Check function to be processed.
A. GET
I
B.
PUT
C.
BACKOUT
PUT deferred process.
A.
DEO DFHTDOUT. Queue
DFHAID
>
Check trigger level for auto task initiation.
04
DFHDWE
TDIFBELT
TDILBELT
TDDCTTOC
TDDCTIDA
TDDCTODA
OFHOCl
r
I
DFHDCT
TDDCTOSA
..
Exit to OFHSPP.
05
~
..
TDDCTLOS
TDDCTLAI
Return to
Lock OCT.
DFHSPP
A.
Update OCT.
B.
Set tracks for release.
~
C.
OEO DFHTDINT. Oueue.
TDDCTLAO
DFHDCT
l
TDDCTLOS
TDDCTLAI
TDDCTLAO
TDDCTEFCA
DFHDWE
TDDCTICT
TDDCTLOS
TDDCTLAI
Diagram 1.7.2-01
Transient Data OWE Processor
NOTES
~
Control is passed "to the OWE Processor
from OFHSPP at end of LUW (logical
unit of work) or from DFHDBP when
ROUTINE
LABEL
REFERENCE
NOTES
ROUTINE
LABEL
REFERENCE
OWE
TDDWEPR
PROCESSOR
dynamic transaction backout is required.
In this case, DWEMODFN will have the
backout bit set.
@J
For nonterminal destinations, tasks are
attached. For terminal destinations, an
AID is built.
~
~
lock OCT to prevent extraneous
modification.
This is the deferred processing done at
end of LUW, (logical unit of work).
T _ DIto OWE PrOC8llor
364
Diagram 1.7.2-01
CICS/OS/VS Program Logic:
DescripUon
LICENSED MATERIAL -- PROPERTY OF IBM
Page 2 of 3
PROCESS
iNPUT
OUTPUT
DFHDWE
I TDIFBELT I
I
TDILBELT
I
08
09
DFHDCT
·.
·.
A.
Unlock DCT.
B.
Scan track chains.
C.
Update bit map.
Lock DCT.
Does this task own
L TDDCTlNT
TDDCTOUT
A.
Input.
8.
Output.
Unlock OCT.
Exit
12
DFHDLT
I
I
·.
Does back out require change in input track.
Yes
I
I
TODCTLAI
TDDCTIDA
C)S
DFHDCT
Recover no of records remaining on input track.
~
Read LAl track chain records. Recover forward chain
address and total records remaining to be read.
:>
TDDCTRQC
DFHDCT
:>
TDOCTFCA
TDDCTRQC
OlOUriliTl 1."1.2·02
Transient Data DWE Processor
ROUTINE
NOTES
@J
LABEL
REFERENCE
NOTES
ROUTINE
LABEL
REFERENCE
For no-nreusable queues, the data is
left intact. For reusable queues, the
tracks are made available for other users
and will be formatted upon allocation.
~
Regardless of whether this is an input
or output DWE, input must be backed
out first. The existence of input activity
for the task is indicated by its, 'owning'
the input for the destination.
Gi]
~
New number of records remaining on
input track = old less difference between
logical and physical input pointers.
Numbe~of records remaining to be
read;;; total records on the track less
those passed by logical input pointer.
Diagram 1.7.2·02
Transient Data OWE Processor
Section 2:
Method of Operation
365
LICENSED MATERIAL -
PROPERTY OF IBM
Page3013
OUTPUT
'PROCESS
INPUT
~
DFHDCT
>
TDDCTLAI
TODCTTaC
~
DFHDCT
Recover Input pointe~. total queue counter. Reset
records read by LUW to zero and clear input owner's
TDDCTIDA
>
address.
TDOCTTaC
TDDCTICT
TDOCTINT
(SE0
~
Scan tracks allocated during the LUW and release them.
:>
@]
ReCover TDDCTCUA from chain record of logical
Q
TDDCTINT
DFHDCT
DFHTDIA
I
TOCRBX
I
I
TDDCTCUA
output track.
DFHDCT
DFHDCT
TDDCTLAO
TDDCTTaC
I
I
I
:>
~
Recover output pointer, t~tel queue count. total track
count. Set number of records output by l:UW • zero.
Clear output owner's address.
Q
>
TDDCTODA
TDDCTTRC
TDDCTPTA
Diagram 1.7.2·03
Translont Data OWE Processor
NOTES
ROUTINE
LABEL
REFERENCE
NOTES'
ROUTINE
LABEL
REFERENCE
I
(
Diagram 1.7.2-03
TnnoIont Data OWE " ' - "
366
,CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -
Input
Processing
I
'"••••-~', >I
I
~~~~:~~
I
-
I
Check type of reco'le:rl'
required
I
B..
I
I
C. PHISICAL
!
r.1-.I\
~---'/I
@]
I
I
§]
A.. LOGICAL
NONE
If not fl.rst POT, cbeck.
owner of queue
If Dot ovner
A.
Enqueue on DFHTDO(JT.
queue nalle
B.
Set TDDCTOOT=A ('leA)
I
fOil
--Set TDDCTPLB uS1Dg -
"
I
I§)
TDDC'lOSE
TDDCT.LB.
TDDCTDPR = physical recovery &
I
'l'raasient Data ,oor
section 2:
=
TDDCTPLA .oved to
I ..~"'.. '~'~"~M'"
r-->
I"
I
I
I
-=1
I~~I
I
I
§;:~ I,
I
J _______ --1
II
00.
crot;BftOVPH
_ _....,
1
I
D1QljrrU -
- - - - - .- - - - - -ROO:::,
,
t.:.:.l queue-lon-use -
!
DPHOCT
L - 11 L_._ _ _ _
-----~
Transient Data PDT
I
I'~BI
.. !
1
\
I
----:>1
c .. Build DWE
1 Hotes
r==~
,
I
I
DPHDCT
-------' ,
II
DC.OOT
I
I
I
I
I
POT
0-"lf021
A __ ,1 l::.J
\1
J
I,
protect10D flags on f1rst
-
j'
---
2
I
D'HTDP:
DPBDG'
I
~
--=1-'-"0~]--." 01
Set "queue-u-use" &
-.. I A A --,/
--- I
8TOOCTPLA I I
1 OP
1tp.=PO~!
~l
r,
PAGB
output
,.--------------.,,
----. D.EU
PROPERTY OF IBM
Labe~N!
Kotes --------
-------1---1--11
Illecovery TRRAIlAL I
1
:,
II
I! I I
I
I I II
aDalysiSI
I I
II
I
I
III
I
I
I I
I
II
I
II
I
JIL-_
Method of Operation
II
Rout1ne
t.
1. J-O,
II Label II ---"l
Ref I
-----I-I--rI
I
I
I
I
I
I I
I
! I
I
I
I
I
J
Oillgraa - 1. 7. J-01
367
LICENSED MATERIAL -- PROPERTY OF IBM
i---------l
Processing
I
I
I
I
I
I
\
I~~
L~~
I
I
II
l,
I
I
I,
I
I,,
,\
I
I,,
I
I,
I,,
I
,I
,\
I\
,
!
!
1
I,
C.
OutFut error recovery
(PUT,
I
D.
Lock OCT
I
E.
Issue Put call
Il~
!,@!J
I
I
V-"ll
I
"
I
'I
,
I
Log OCT entry for
I
Check trl.gger level for
Return to CICS/VS
L-J
!I
1
'I
--1------' / ,I
"
-l----:::l
-,------F-"
II
--,1
\
II
I
I
I
[~~;;;;;;'l
,--,: ,I
.
I
phYsl.cal----------
recovery
task initiation
Ir-,
r-g(-~'
08 •• , >11081
J \.
I
I
I
I
\. I
, V to
lIleturn
CICS/VS
I
,I
IL ________________!I
2
I
Allocate track
Format track
I,r-..
,I
I
I,
,I,
I
I,
,,
!,
,
!
I
(LOCK/UNLOCK)
B.
,
2 OF
~-'---------------.
I
Issue PUT
A.
I
I,:
'
PAGE
Output
1----------1
Input
!L_______________
DP!tArD
(===:=1
OPHOCT
I
I"
l_____________
Diagram -
TrllDraont Data POT
.J
1.1 • .:1-02
r--------------------------------,
1
I
I
IIr----------------------------------------...,
1I Routine\ Label
I Ref II Notes
II Rouu.nelI Label ,Ref
II
I
: Notes
I~-----------------I---~--I--- !---II-;::~----------------------I----I------I---I
I~
I
,
,
I
A.
Format rout~ne
threaded.
B.
Track is formatted when
I
,,
l
\
~s
I
s~ngle
" "
" I '
I AcquirI
II'
a
I
IlIng
track.
I
II
allocated.
,
I
1
I
C... output error recovery
t
D. The CCT is locked prl.or to
I,'
I
!\
~s
as needed.
,I
used 11 IiIrite
ferrcr
TIP E~L 0 COl •
E. Issue Put call.
I@B
I
I
II
:rOWENR
1
\
I,
I
:
I
I
I
I
II
II.
II
return to caller.
I
,
t
/
:
I'
l
I
I
I
,,
I
,I
,TDPLRAJ
I
, I
On the fIrst Put. l.f the
destination is physically
I
recoveratle the OCT entry is
logged.
:
t
\
I'
~
I
I
I f the trigger level 15 met, an
ITDTINT
AID is scheduled if the
I
I
destination is a terminal, or
I
I
the specified task l.S attached
I
:
1.£ the destInatl.On ~s not a
I
I
I
I
I
I
I
:
,
I'
I
,
!
I
:
I
I
l I t
I
I
I
termal.
I
I
lI _________________________________
•I'
I
I
I
I
I
I
I
,
I
I
I
:
I
II
'
I "I
I'
I
Set return code 1n TeATDr E and
I'
,I
:
I
II
\I
H~~cess-I
the EUT to prevent extraneous '/
modifIcation (DfHKC
,
I~
,
1
I
I t ' ~j
I IIII
I
tTDSPlIGNS
I
II
I
I
I
I
L- _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ .... _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _
Transl.ent Data POt
368
t
~
Diagram - 1.7.3-02
CICS/OS/VS Program Logic:
Description
(
LICENSED MATERIAL -- PROPERTY OF IBM
~
PAGB
output
frocess1Dg
Input
1 or
j
DrB'!t 'UP!=GlT
---"
m
DPUTOt?:
····1
---,1> rn.l
____ ~)0 0=~>
~
----'fDDCtPLB
oraDer
'iDd type of recovery
'tDDC'l'TQC
I
I
I
I~~
l_
I
I
[021-',I§l
02 -I >
' I -,/
I
I
I
!I
I
I[§
I
I
/
!
I
LOGICAL
B.
HONE
C.
PHYSICAL
1Osl
II
Check input queue
A.
If
Q-zero, e Xl. t
B. If no cwner, set
TDDCTINT & build CllfE
=I-lh,
I
1/
c. =A (TeAl
D.
ENa on DPHTDINT.queue
name
A.
Test for output
ovnershl. p
I
I
I
B. Compare
I
C. If
loglcal/physical counts
I
condl. tl.onal GE'l
O. If unaval.lable: DFHKC
II
I
TYPE=ifAIT,DCI=ECB
IL-__________--1
) Hotes
If01l
~
I'
I
A.
-:-;::~::::::-~
I
:::.::.~::::" ~ ~'"
jTOGl BAA I
.:e:::: for a
U.
I
I
I
II
A. If the request was
'5
conditicnal, control
returned to tbe user w.1tb a
QOEBOSl return.
\
B. Logical/Physical cc.pare i.
I
.ade to see i f data is
available to requestor.
IL\
I
I
j
I
I
I
'I
/
I
L _________
! R::~ne I L:::--I ;:~
------1--1--- ---I
! I
1
I
I
II
III
I
I
11
I
II
I!
II/111
'transient Data - GET
Section 2:
I
I
II
!
I
[:~'>lOal
I
ImCTINT
II
II
II
I
.------,
1I
I
--,1
Of'UDCT
/
I
1/
//
1
I
"ii--,
/
I
111
III
I
-,/1
'"00
L----.l
II
II
\@J
'1
r.::
II
II
I
B. TDOCTDL" - logical recovery
!@) :~D:T:::c:S
I
Reco1er Y1 TDRINAL
Analysisl
TCDCTDfR .. pbys1cal recovery
I
0""
Iow
D1.Q9rn. . . . 1. 7.1.1"01
--------1---1---1-11
I
I
I
/
I
II
I
I
I
I
I IIII
TDDCTPLB is tested for
-1- 11-,"
I
I
_J
L
Transl.ent Data" GET
I
/
/
I
I
I
I
\f
ownership
I~
I
II
II
~'>~
V
•• ,<>!Oi1
A.
II
IIII
I
II
I
!1
I
I
/
I
II
I
I
I
I
I
I
I
II
I
I/1 II
II
I
III
/
I/
I
I
..--J L -_______________I _ _ _ _Ij _ _ _ _I__-.J
D1agra13 .. 1.1.4-01
Method of Operation
369
LICENSED MATERIAL -
PROPERTY OF IBM
PAGE
Output
-=-
~rocessed.
I
-----~,' fOil
--"It.::1
LOCk OCT
A. If track ent = 0, set
I
-::::;rl
'11.-_-
3
E. If the reguestor cvns
output Q, GET is
l
ToiiCTr:AO
TiDCiiQ'c
2 0'
~.:JII
1----1.
_~ -1JI
f05Fi
'>1I
@J
track for release in
DWB
•
L,
=====::;-L...,
tog OCT entry
\1 -.1
I
1
I~
!
!
rG'11:l '>
--------',
-I
----"
--,
Issue GET CLOCK/DHLOCIt)
r---------]
,'---',
1"--.~\
S;STBft
I
LOGPILE
oPRJOl
_ _ __
~ Process track release
\/ -,1
roel;!'> E!J
Return to crCS/VS
\1 -,1
I
_-1
L
'l'ranblDot Data .. GET
I~es·
I
IrI
-r---'-I-I
I
A. OCT is locked to pre.e.t
extranEOUS .edification.
is
II.. If Tete'noc i.s 0, or DDeTIOA
c~
-1
D1agra. .. 1. 7. 4-02
I.-Routine 1 Label I• Ref
_ _ ._ __
updated to point to
track.
/
Hotes
I I~
I
1
DBW
processed, the track is
released.
I~~I~~~--~
Set response code in TCar oTR and
I
TORrE
return to caller.
II
If 'lCDCTRQC is 0, track -1s to
be released. Opdate the DIE
'I
with 'l'DIPREL'l', TDILRBL'l'. See
D"E DSBCT for f1e14
descriptions. The release 1. s
processEd by DI! Processor /lit:
end of task.
~ Por physical recoyerr, the DC'!
ToPIPIA
entry is logged with JOIlrnal
Control aaero, then the actual
track release routu8 is entered
prior to the GB1.
~ G!'I 1s ploeesaed.
@]
If the destination is Dot
racoy.rable but 1s reusable and
all records of a track haYe been
~r •••1. . t
370
D1agr.. .. 1.1 • ..-02
Data - GB'r
CICS/OS/VS Program Logic:
Description
I
\
LICENSED MATERIAL -- PROPERTY OF IBM
Inpu.t
output
PAGE
.i 01
.i
l
1. Process lIDs
B. Set Queue zero and
tetatn to eles/,s
~ Rat urn to caller
[----,:
········1
'v'
II
I
I
I
L ___~
Transieat Data" GET
I
_II_~::~:I~~I~II Hate.
rHate.
~
1~
I
CaDcel es1st1Dg AIDs, reset DC!.
Set resFoDse code 111 TCUDTR,
unlock DC'! eDtE!, and return to
caller.
I
I
f
II
!",
I
,
I
I
I
I
I
I
I
I
I,
I
I
Dj.agrao - 1. 1. 4-OJ
TraaS1eDt Oa1:a .. GIl!
Section 2:
Method of Operation
371
LICENSED MATERIAL -- PROPERTY OF IBM
Input
II
,;'
1
1
;
I
t.~~':)/I
I
OCT
Il
I L_::::::::~) I[~
I
I
I
\
\
1
I
I
I
I'
,
I
I
!
\
GkCTQSAlb
l~~CT'"~
V
/---', -ll
I
I!
E]
>[.1
I -,
I
!'>-----.~ll
I,
-./
1@1
~F:~>I §)
n;i~:ii~- IIII LI-:=:=~>I
r::-l " Ir.;,,01
Set
DCT
[~~CTDQC
Check for recovery
IU 07 -I
J
_J 1..!....J
-
V -,I
L.:...:J
>
I'
Logical
Set purge flag
I
I
r
I
:~=:-:l >I i~:OCTf~~J
I
II I'
g(>fBlll I
[ •• , >fio
1!1 I
=J( ~ ,I
[ •• , >1071"
1'/ \ I 1\
I
:=====J,
'
I
I
I
,
Log OCT entry
I
:::e:::CkS ,TTR) for'
Obtain sto~age for a DECB
to scan chal.D records
:~===ll
I
,
I
:~:=--ll
\
1
I L'
'[~
I
I
TDDCTCUA/
-=--i
purged. Issue good return code
to user.
PHYSICAL, get Journal Control
purge flag is nsed ~uring
recovery.
I"§] :~:r~:.~::k:~d:~1::::::~
I~
I\
!I
\fOil
\
\
' I,
'I
If destinatlon 1S LOGICAL or
1031
, L-'
I
OCT is written to the System
Log.
Reset CCT-set tracks for release
first track - 'IDDC'lCUA
last track - TDDCTl'IUA
1t.:.:J Allow POEGE on a Q zero
condit1cn tor nonreusable Q.
~
I'
i
I I
'I
Transient
f~~~aS~~;~ge
II
A~~'Ocat1on
L~>IL ____________
[~
I
~
r-
,
,
\
I
left intact.
,'SPACE
--,
,ITDSPl'IPRGI
I
I
,I
I
,
I
:
I
I
I
I\
I!
IITDPGRAD
,I FROC!SS ,
I
II
I
j
',\
,,
\11",
,,1/
---.l1\
~__,
I
1\
' ,
L--____________
I
,
\
I
\
:
I
I I
'
I
' I"
1\
I
'
\ 1II
I
,CO""N
PURGE
~ARAGE-~
,ERT
'M_~
'I",
I
'I
I
I
Tracks are unallocated: data is
I,'
',"CevERY,
/' POEGE
I
L.:~
I
'
I
,
1 PH1S1CALITDPGRAE
,L___________________ ' I
"
I
II,
I
I
TranS1ent Data PURGE
372
"
~~~~_J
I
0, then previously
\
'
I@)
I
OCT
----------------J~::~:J~~~ ~~II~~:-------------------I~:~~l~~:=-L~'
=
I
I
IIfOil
I'
,\
I
\
If TDDCTQSA
r-. Are.. Set dynamic flag in OCT.
,
I
I
Diagrall1 - 1.7.5-01
~-----------------i'------,----I~
Notes
1
I
Transient Data PORGE
'fO'i1
I L:..:J
I
I
,
II
!',·------·~l
DPHJ01
'I
\
Update b1t map
I
IlL,.1
I -./,'
L ___________~I 'L____________J\
1
I,
I
I
:~====:=:) I ~:DCT~~LJ
\
I /---e,
:~===~:>
Lock OCT
~,
I ~~
t
I
,.!.-,'
A. Phys1cal
I
I
2
'I
\
'I
I
,I
I
c. No recovery
I~Fi\'I~
'
\
flag for
specification
B.
1 Of
\
~L-"I ~~~:
~~~~~: 11 Ir-::::::::~>Ir~ ~~::~o::a;~:G~CT
!~---~ I
I
,
Output
1----------------1
II
PAGE
r--------------,
processing
r---------·------l
I
I
I,
I,
I
I
'
!
II
I
I
,I
I
I
,
I
I"
,
I'
II,
"
,
"'
Diagrall -
CICS/OS/VS Program Logic:
I
I
I
I
I
'J,I
'
,
,
1.7.5-01
Description
LICENSED MATERIAL -- PROPERTY OF IBM
r--------------,
i------------l
Input
Processing
I 'I
I
,
!
:,
i
I@~
I,
OfROCT
[~~~~--===::=~>Ir:-:,
I
l101~ '>: ~
I
I
I
' I -,1 I
t
II
I
I\
I
I
I
r
"
I1
Return to user
PAGE
cu.t_P,-u_t_ __
2
or
2
---------1
1
I'
II
I
11
Ei\
\~~y~~
Check if requestor J.S
owner cf l.nput gueue
A..
If
to
,I
I
I
1
[~~' ~1
not owner
--I >103
I,
I
1!@]LOCkOCTr/\/111
I
I
\
I
I
'[:~ _ _ _ '
r
I
I
I
________
..1'
II
::~~~~I-----------'/I
~
-
Locate
D~E
for l.nput queue
DOE
heturn
I
I
II
~ILRELT
\
--,/
II
\/
I
I
I
I
I\
II
I
I
"
I
I'
I
I
!
I
I
DOE
L'~'>fO'/
I
L ____________J
I
I~~ller
I
>[==-~,
l
I
:~=====: >I ~fRELT I
I
L________
Transient Data PORGE
I
I
I
I
J
1
I
I
I
I
JI
L _______
Dl.Qgrall -
1.. 1.5-02
,---------------------------------,
,-----------------------------------,
I
I
I
I
II
I
I '
I
I
\~--------------}~:~~t~~
'-~~-iII!~:~-----------------I~~,~~::-L~J
I
I
I
I
I
1.--.
\ ~ Return code is set.
,
t r;Q1
I t..::1
I
I
:~,
1l.2...!J
I
If requestor is new process
as physical - purge
deferred.
nat
is lacked to p:tevent
extraneous modif~cat~on.
OCT
I
1~
~s
,I
,TOEIA 1
"
I
I
\\
: LOGICAL ITOPGRAA
It RECOVERY
fORG E
IJ
1
I
I
I
1
I
I
I
I
I
\
I
I
I
I
/
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
\
I
I
III
1\
II
III
II
II
II
1\
I
II1I11
I
II
I
I
'I
I
II
I
I
I
I
I !I
I
II
I
I
I
I
I
I
I
I
I
I
,I
I
I
I
I
I
!I
I
I
I
I
'I
III/
/'
I
I
,I
I
I!
I
II
I
I
\
1
I
Fl.rst and last tracks a:te s e t '
for deferred release.
/
1I \
:
,I
I
I
I
I
I
I
I
I
I
I
IIII
II
II
II
I
I
I
I
I
I
I
I - -_______________..!I_____II _ _ _.!.-_-1
I
IIL--___________________
I
'
I
I
L
.!.-___
.!..._-1
I
\
T:tans~ent
Data PORGE
Section 2:
Method of Operation
I
\
I
I
Diagra. - '.7.5-02
373
LICENSED MAXERIAL -- PROPERTY OF IBM
'
C
····1
Input
----~"'...f=;:~,
j
>
- ... ------.----.. ~>
~
lI
:::"'
°ri·~t~P~.t~
PAGB 1 or 1
____________
_
check if the dest1Datlon
is open
IIrite/read the recorCl and
update sta~::.st1cs
I
}\
ZZZZZZZZZZZZZ\/
Sat re spoDse code
!
D1spose of Acquired Data (Extraparti :tiCD)
r--
L_______~
Di'gr..... 1. 1. b-01
-----I--~l
I ~------------------!-~::~~,-~ ~~II~----------------- ~~ ~~- -~
~
I
If the DCB 1s closed, task 18
terllinated with ABEMD code ATDD.
I
§
I'
A link is . . d. to the gSAft
GET/POT %cutine.
(The sa.e
routine is entered for both GET
J DOCtDPOe
I
I
(1
I
I
1\
II
and POT requests.) The
appropriate statistics are the n
updated.
~ Bither the nor.a! response code
DOCTDP 11
I
I
\
or the queue zero response (GET
requests onlYI. is issued.
DiSPOse of leg aired Data (£xtrapart1 tl0~)
374
Dlagraa ... 1. ,. b-01
CICS/OS/VS Program LOgic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
I
Pl:ocess1ng
rUE=no.
I ill"····1- -"
I
~~~~::J I
I[~
>II
DCT
---,/
--.. -------~---->
r-
CT e.try
--TOOCTCTL
is ope.
\
reel
\~
Set response code
Check if the destination
.emd and unload tbe tapE
I
I
J'
Zi777!Zl?Z!.!Z\/
\
I
II
Hates
I
1
L ___~
----,I-;;:ut1.e' Label
l
I
I
ITO
Control p:rocessing of De. ta Set
1
~
\ ',I
I
I
or
I
1
_J
1
I
O'HTO:
fOi1
t.:.:J
1
opeD/Close
_._
PAGE
OUtPllt
I B~ I
Kotes -
Caller
I
L____
D1agraa .. 1.. 7.7-01
II BoutinelI 1--',
I
Label
Ref
-1---,--\-1 1- - - - - . -----1--1-- 1- - '
1@!lIftbeocB1sclosed,anerrorlloocTOPOS'II,
response 1s set and control
I
I
,
\11
I
1~
l.5
returned to the calier.
\
\
An operatiDg S]stel!i ,:superv1sor
!
I,
call is issued.
~ only tbE! Dor.a1 response can be
issued.
,
DOCTDP091
II
111\
I II
! , 1\
I II
! I II\I
1'OOCTOP 17
I
!1 I1
I
!
I
j
I
1
I
I
I
1
I
!
I
I I
CODtJ:ol Processing of De. ta Set
Section 2:
I
II
--'-,---,--.lJ
Method of operation
L
IJ
01a9ra. .. 1. 7.1-01
375
LICENSED MATERIAL -- PROPERTY OF IBM
PAGE
1 OF
1
r
Istore~1 tetrieve~at. [Release Da~l
'.8.'1
._---'
'.8.2
~
(
I\
Te.porary Storaqe
376
Diaqrall - 1.8-0'
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
Input
J
~_e__
6---->
fai~ss
fil---->
TeATSOl
Data ID
IE] ---->
~so~
I
----,
---->~_E
rcsuSAiAlr> TSOTPC
L:::::~
Chain
address
~SOmI
81g" ID
I
l~J
I
II
I
'rSO'rHI
H1gh ID
length
Lallx data
l::': l::J
I
I
' ____ >,[1
r-----' ..-> 'rscr
r""""------,
I~_O_II !Ua lD
ITSOTE'rC
----
table
I
[I-S-OT-oB-P-T-.--' I
AcqU1re stonge for 'lSGID
or record
IU~~sm
I address
I0
0--'1
L-,_ _ _ _ __
I Boutine
1
Labe1
-II----I~~
The unit tables are scanned to
determine if the DATAID vas
entered by a previous POT or
POTQ.
~ the length of a user data record
must be greater than foar bytes
and, for auxiliary storage
req;uest.s, less than the aaxiauJa
length that can be conta1.ned
within a control interval..
"
I
II~S'O'O
I
I
I
.I.
~
II
I
I
I
If an entry already eXlSts 1D.
the unl.t table for the specl.fied
DA'rAID, go to step b. Else, if
'III
I Ref
II
---
II
I
I
III
~records
I
----'I
iTSGI0Ta
e.
I
'I 0zz~>1
Store Data
'lSG.IDPT"BIl
ASA or~~J
I
Hotes
__J
o1agram - 1. B. 1-01
II ROlltine
ILabel
' 1---'
I Ref ,
---0-tb-.-r·-.-.t-r-1-e-S-1.-t·-h-e-U-b-l'-e-a'n-d--I------1----1---
\I
fill in control l.nformat10n. Go
I
to .tep C8_
I
III~ :~~~~ !~!Sr~;~~~~~e~Yt~U~e',
I
'
III
I
DO spaCE elists in the unit
.table for creating an entry,
acgu1re an add1tionu UD1t
table.
PUTO, GETQ, and PURGE request
set. Entries created by a pm
request are restricted to the
GET, PUT-REPLACE, and RELEASE
request set. Any violation of
these rules results in an
invalid request response. With
no recovery, a PUT request to
an existing entry results in a
TSGle being created. with
recovery, II. PUT request to an
existing entry results in an
ATSP abend (multiple requests
must be PUTO requests).
II
I
I
I
I
I
I
',TSI1100'
TSI10.,
TSI10 ••
Por a £I0TQ, acgu1re storage for
~SPC95
TSl100j
I
II.
!
I
I I
I
!I
Store Data
Section 2:
I
~'---~---'----'
I
I
J
!'SPObb
Method of operation
II
I
a TSQID.
~ Create a anit table entry in
proper collating saga.ence v1.th
II
I
I
~Sf220
I
I
1,1
I
Por a POT to .ain storage,
acgu1re storage for the record.
I
e;~_--I
I
TSGI0
> TSGIDPC
Chain
address
Create a Iln1t t.able entry ZZ~ ~>
Check the validity of the
request
t'~~~IDBA
.
I
l
I
Botes
oaul
I
I
~J
rAl---->,~
I§J
res;;
~s Ar AI
L::.:
~
'lSO'rB
I!J ----> I
I
0---->\@J
[£!]
I
CSA
tsaruLc;;
r;;;;'l
I Data 10
I iiax
I
i
~~I
Chain -
~ ____> L~ Acquire add1t.l.onal Ilnit
TSOTB.
fiSoTBlO
!SSU
>f1SSAl'COS
[iSo~ <1
data length
I
I
---->rcJ IAl-___>18
I
~Soruc-'
r.ll' I
Type code
'1501'
rjj2l Check the validl.ty 01 the
L::J
~--1
ID
t
.i
1Q.11
L:..:.J !latch the DA'lAID
I rn.1
iSiiiLILo;'
iCSATSSTA J
or
1:~
fAF::!.!>I
TenSOA
eSA
1
f:l"CI'
)
---- >0Iil---->
rr:1
fill~m
'J:CA
PAGB
-!. 8.1-01
L---------------.:.----=0.:..1a-g-r• •---
317
LXCENSED MATERXAL -
'l
==:-J
IcsnSl'fl
uo~
r)
~SORc
FSiD9
!SOTi
l
fil---->
I
1Cl----> rn71
!~~
U°ii:i'l:Ov'
PAGB
Outpat
J---->0 0----> ~
!SOml
81gb ID ~
OF XEM
PROPERTY
Check the val1d1tJ of the
storaq e facl11tr for
3
!SOTPe
Chain
address
secondary PO'!Q reguest
!SOTHI
81gh .tD
I ~ :::::
!'sotLI Low
ID
r;;;;'J
---->00----> 8
Pind the next available
pointer slot
lcqUire storage space for
---->0
2 OP
/
\
record
77)\fi'!1J1771'>
-tl L.:J t.:J--~,
!SOTE
I
1. !SaiD storage - 1f POTQ
.0---->
fil---->
[!] ---->
B. AazUiarr storage allocate suffic1ent
space wit bin a cO'Dtrol
!SGID
>r.!~s=G=.ID:-:t:::c:-'---->0
m~ss
?1.' '> [9
~I
.
1"J177' ')
t.:J-\,
interval
~SGIDPC
m~~SS
!SGIDTB
Mo.
records
~SGIDn
10• .
records
----)~]
I
Icsnsnl
P~~BDO----)~
~~p
ill ----) Q!l
BoYa data to teaporuJ
Lst.orage and store address
77~ '>0
-j-
I
-
(
Store Data
D1agra. - 1.8.' -02
lotes
@]
Bo
:t1.el~1
tbe iUt1al PO~O request
aeter.iDes the stonge fac11it:J
of tbe I!ata. I subsegu8Dt lotQ
·reguest ~orces the storage
facilitJ of the %eguest to
cantor. to the faclli1:.:J of tile
original rega.st.
~ The Dei:t available pointer slot
TSP120
Motes
----iecord. If
a~a11able,
space 18 Dot
I~
Label
Bet
the task is
suspended QDt11 space becoaes
available, unless the Eeguest
vas condl tional.
@]
'ISP 600
~SP200
is found 1f a aessag8 set
8.1:1at8. '1h1s v111 contain eitber
tbe ..1rtoal storage address
,YSI, 0% the aux111arr storage
address tiS It of 'the record.
lcquire an .441 tional TSGID if
aecessar!_ If no't a •• 88age set,
the pointer slot 1s 1D the unit
table IDt%:J_
A. Por •• in Bi:oraga request.
Bef I
lIo"e the user's data to the
acquired area. Por an au:1l1ar:J
stonge %eqaest, update the b:Jte
.ap. If the CI '1s full, • %i1:.e
it. Store the record address in
the FOinter slot.
TSUOO
"lSP ~20
acquire storage for record if
a lO'lQ request.
B. Par
au_iliary storag_
!SP 400
!SP2S0
request, scan the byte aap to
fin4 a CI that has space
&",a11.1I1e to coDtalon the
non
378
(
D1agra& - 1. fl. 1-02
Dat.
CXCS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
r
processing
~] ____>
[!!J
output
Return to caller
PAGE
3
or
3
l .. ..... "
z,Zlm~Z71~1\ /
~ ~
~
•- 1('
I
// >
I ,/--/
'10
caller
I__J
Diagra. .. 1.8. 1-0.;S
Store Data
I
Botes
I
E!]
.
I B::~~nel Labe~~11
Ref
i Rotes
Set re.ponse coa. in the Tel and
return to caller.
I
------1-- --II . - - ITSHIIT
I
I
I
\\
I \
II
II
II
II1\
I
II
I
II
II
I
'I
IIII
!I
JL-I_
Section 2:
Method of Operation
379
LICENSED
Input
M~ERIAL
-- PROPERTY OF IBM
-----------l
pr~~~L
f:l--,
····1 \
_______________ _
Tr~---~
rAl ---->
=!~>
~~~~m
----) r.l
~J rBl
I~~ess
IiCaAtT.Sef-
tlcATSiiiIU.A.U
!iecord
(Cl----> [~]
/'latch the DATAID
rAl---->
rn?Q?21
r;:'l
t::J
15 ---->
Cbeck the validity of the
:J
I'ICATSDA
PAG!
1
t)1i
1-----------------------------1
DF H'S:
>
I :!~___
output
DO.
reiluest
I
I
I
II
1
1
fAl---->
- - - ] r -rsUT
r-::.
@
eSATSAr.
>r----j
r.l DI----> r;;:;]
--I,surre
----) 6 [;t
~
I
~a~:ss
~
----)
li5OiHi--1
I
I
Find the recor{l acdress of
tbe current (or rEquEsted)
entry
1··,bID=::1
l~~~:J
I
I
I
__________________________ .J
Retrieve Data
D1agra. -
(
1.8.2-01
~tes -------------------I-;;:::::r~:~:~--:;J -;;:::----------------;;::::l:~:--r::~--l
§]
~:;:~~::l:::~;:D::: to -II----II~~entered bJ a
PU'r~.
preY~ous
if a mateo
POT or
----I-------------------------------- ------'1-------
I
not fOllnd,
the user rece1ves an ID error
l.S
,
messa,e.
~ A GET reiJuest 1.S valld only for
-----1
1
I
I
I
1
,
I
I
I
TSP100
an entr! created Dy a pDT. A
GE1Q re'::luest is valid ooly for a
lIess8;e set created by a POTQ ..
~ .It tbe data tc lie retrieved is
an entry ot a .message set, the
T5PbOO
TSP500
I
eDtry doe sDot ".ist, tbe user
pOinter slot is found. If the
I
I
I I
I
:::;:::::....,,=<
I
_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ .1
ietriev~------------------------
380
CICS/OS/VS Program Logic:
Diagram. -
Le.2-C 1
Description
I
\
LICENSED MATERIAL -- PROPERTY OF IBM
1---------,
P r o c e s s i n g o;-uc;t..:.p_ut.:.-__
,---------------1
1
I
I
II
Input.
I
T~_E_-, I
fiil---->I
fTSUTEIO
I----)l~ r;l
I [§
'
\
t.:. .
I
I
r.l
I ro5l
l~ ---->\ C.l
lI l~~-.l II
1G1---->1~
I1
lT5DTETC
I
TYF~~
I
r
\
11
1
---->:1
I
\~~~-I
I
___
R5UTEP·n---->[El
1~~Afs~it t , . .
I
TSGID
>r.SGillc-l-!-->{~
1!~~IDCR
l~
I
TCA
[TC'A"iSTii-.---->''il
I
L...:J
I
additional specihEd
I
I r'7'71
'Al---->I ~ Hetua to caller
l:
l~~~
buffer --1
III
_
I
L
Retr~eve
CAT5DA
.SIOA
r>[TsIOAVHC I(
'TSIOAo"BA
f
Pl.eld
I
I
length
1
ose~~J
I TCA
II,
t [TCATSoA"1
177('>
I
I/~II
Data
address
III
TCATSTR
I~'
II
I
t~~~gon~:..J
~
III
/
I
I
7777777777~~1
-----------
I
I--'~
!
\
!I
l::J
I
1'
II
I
1
L -____________ .J
1:
'vi
I
I
l_______J
Dl.agrall -
Data
r-------------------I---
I
I r-------------------I----I
I
I
~Data
a~~~---I
[:::;;:;;-'l
I
1I
I Read
!
I
15...!
[TSiiRmI-L>'Gl
II
I
2
r-----...,
I
:-----:)
I
----I
2 OP
TCA
I
I
operations
I
I address
lm~~~NNo.l
I
II
ZllZZZZZZZZZZ,/
)\
I
0---->1[~ Check request for
:
1----1
mg5~~ I
I
I
I
l'!ove data record to task
l.nput area
I-
I
1
\
1
I
~~~!
I
I
I
I
[TSGlOPTRl-!-->0·
l~~~~ I
I
I I
1~!£_e__ 1 I
IE~~~SDA 1,1
I
,
Acguire a task l.nput area
I
I I
I Request
record l.n1.o the buffer
I
I
~]---->I
II
I~~~ss
I
Read the eI contal.Dl.ng the
PAGE
._____
1.8.2"02
---I~
I~----------------!-~::~:t-~~~
I~~}IIL:~:-----------------l-~~~~l~~:~-L~I
I
I
I
I
I
I
I
I§J
Qq
I
~s in aux111.ary
storage and is not currently in
I
I
I
I TSPSIIO
I
I
el..tber tbe read of vrl..te buffer,
II
I
1
:
the CI containing the record is
read into the read buffer..
I f the record
II rn @]
High ID
__ _
.SU.E
m~2[]-t-->@]
!
l:!~-=~:.J
l~
---->
XSGLO
.
>f~~HPCj-)
address
l
-1
I
storage
/
Pree TSGID
[06J
-
Return to caller
________________________
Rout~nel1atel
Ref
----- ----- --TSP020
~~~
1
I
I
I
I
)'
1
!
rul
1
ZZ\/~,
I
I
I
[;;;;;;;;1
J::-::~~~r l______________________________ JI
Diagram -
I
enterea. III a previous PUT or
PUlQ. It a match is ·Dot found,
tne user receives an 10 error
\
I
I
I
I
response.
A Belease reguest is valid only
for an entr}' created by a PUT. A
TSP 100
Purge re9.ue~t is. valid only for
a lIIessage set created by a porQ.
TSPOOO
1.S.::!-Cl
[::::-==~~~~~~~===~~~=~~=~~~~I~~:~~~:I~~~:~~~I~::~~~1
I
J
determine i f "the DATAID lias
t.he allocated srace.
1
I
table
1--------------------1-----------------
~~ Find to. record address and free
I
:r~iPBDi-l (
[CI
byte
_____
J
(s)ZZ~> @]
-
___________________
@]
J [~~~~~~~~~] I
TS!'!AP
I
I
I
@5] Remove entry from unl.t
Release Dat.a
I
I
I
I
LJ ~---->
[~ Tbe Um.t Tables are scanned.to
I
map
L~---->t--
Notes
)'
I
I
TSGID
~~~:~:':::--.1
B. Por an auxiliary
I~j\
storage entry, indica t'eZZ!?ZZZZ!'Z!'!'I .
I
space available in byte
r;::,
--------~----------------
"[-------1
en try, free the record
--!-->0 [~---->! ~~]
---- J
II
address,
I
I
fiSGiDASA)---->fF1 [;;-J
lor VSA
I
I
TSGID
add ress
and:
fCl---->
fiil----> -
.:=~~=-!
address,
vir+ual
\ ,--------,
A. Por a main stora;1E
[~ ____ >
~~~RNO.
rmTiiPTi--j
I
Find the record acMress
---- >0
f IfiSiiTiiPTR-]
~~Afs~~~
t L~~~=-_
f
TSGIDPC
[~ ---->
I
~~~~~.:J
TSOTETC
@]CheckthevaliditYOfthe
L:J
I tSUTHI
I TS.UlETC _
~------
"ate' tbe DATAlD
:J
----- l->riSUrEC-- ---->f'i1 ~---->
l!~~
DFB'I'S:
[Cl----> @]
I~~~~ILSurLI"Lov
1 OP
-----------------------------1
r.lf&l:::!!,
-j--' ~ f61---->
Chain
PAGE
output
I
I
I ~~~m
I~~___
1CAl'SDl
t------'
&at.a IV
___________ _
\
i
I
1
I
)
I
I
I
I
I
II
:
:
:I
I
I
I
I
)
I
TSP100
TSP SOO
It the da ta to· be released are
eDtri~s o~ a' messa;Je set, free
tb.e assoc~ated ISGIO(s) •
@]
.ne unit table entry is re.oved.
It this "lias the last unit table
entry, the unit table is freed.
@~
Set
res~onse
code in tbe TCA and
-/
TSN XIT
return to caller.
Be.Le;;;;n;t;--------------------------------
382
!
--_________________________________J _____L_______1______ J
Diagralll - '.B.]-01
CICS/OS/VS Program Logic:
Description
(
LICENSED MATERIAL -- PROPERTY OF IBM
O~;E~~
fll,Gl
1 OF
__________________________
_
T~S~-----] <,
~;;~~~==
---------TSUTl
CAllD
iIll.,E.lt.ent.
PAGE
Output
1 OF
DF"JCJH:
~
/
"
PROPERTY OF IBM
iD1o _ _ -1
Open output. tile for
10ra bttiny
~ ilri tE::: error message if
open fails
~ Wri t.e error message if
\
I
.tiLK S l1.E Dot supp~ied by
user
-j----------->1 .--.
~j
t..::...;:'::-=----1
I
I
I
I
1
/ '--', '-"--:-.-:---:o--~-__,
Ree One
< 1 •• 1
>,wr~te
'r--o/ \ WI: i te rt!'Cord one
on e very track of
L"_X_T_H_T__________- J
I
I
I
---.rr=:>1
-I
.,
liri te error .e554ge i f
formatting tailed and
/0--0,
1~
,
0
0
- -
0_ _-'0
/\
/
/
Formatted
d:i.sk.
e.l.t~Dt
tel' II inat& processing
\
I
I
I
JUUI:
nal
~
Wri t.e lIe!iSa':)B if
successful for.atting
I~ Clos~
journal ""teDt
L._.
t'or.llldt.
HlPOltlT 1.1 Diayra. - 1.9.1-U1
r-------------------~----~---~--,.-------------------------~----~------~-~
.u_t_._~_..___________________________ j--"-Ou-t-i-n-el~l~ I-H-o-t-e-s----~--~~~~~~~------.I--hO-U-t1-·-D-e
1__
I1r-,
\ """ I
I l....-.l
I
I
I'htSSdJ'e 'to operator: IIF1Iq.:)91 UDaU.Lt;;'
not initi.d..LizE:d -
I
Journal extent initialized -
Label
hei
------- - - -
DnODD tracks available.
to open DeJ:l, .. Cneck DIJ
:.;.u.p~.&.l.eQ ..
C..al:Q
f [g
~xt~nt
.JoUI'nu
EliROftl
[)PH"~!lb
He$d.ye to ope17a.t.or:.
k:ItkOh2
-
Jour'Jdl ex tent nut. initial.izttd -
I
t;.l.K!ll:t.t: not :;;pecifl.ed aD IH, card.
la
OL io D5Cb.
SiD9'l.~,
conti.;uous ellteots
ate toraatted. A, recurd one 1.5
(.111.4
VI:
~t:t.~n on every track with tbe
.l~ngtb.
II
of tbe journal labeJ.
r~ ,DF I::IJCKO.;J
Kl.ck-off
I
I
I
I
I \
d>
~ :d:~
rCA
..---'\ I
n
l
!a~~~ Il---~~:~:~~>
SIP
---'1
, •••• , >
I
J
"--1-
I
/L...-J\
,
\~/
11~g~.~
<
1;;~JW
!llriaIIJFHJCBSP Bootstrd~1
~~I'
I
'L>
TCA
Area
addre$S"
L--,/
~:~~;'.1
Jt.:lC....
JCUCHC"
, U!"'n/Close
t
I -----1
--'__ JI
Attach .pedal
t.sk. open
Journal
fl.les"
attcl.ch
journal tas~~9 .. 2.1
I
I
:.::
1
I
J...:OCl.
I
,.--
1 OF
!)lP
.Label
---- ----
,
Bef
I
,
Hotes
noutin~
I
1.~.2-01
Label
----
---
DtWCKOJ gets control via CIC~
ll.nk 1ro. SIP. Atter i t hdS
o!-,enea the Journal files I:etu1.ned to SIP.
All. a ttacbed tcl.sk,.s
Journal.
task tCl
address
77! '>
1~111
<1'--"
1•• 1 > DlaJCSDJ
Shutdolln
'r--1/. Journal.
~all open---
~~~i~~~f&
ta~s,
mll
0
Journal 10
zzzzmltC>I. J~~m~CB
journal
tar.1na te
subtas
as S I
DI JCQCP
J~~AJPI
2 O!
aya11able
BCB
JCTJ~TA.
k
Journal
task TCA.
address
"'.2.3
~
, I
•
CICSt'S
L __
01agru. -
Journal Start-up/Shutdo1lD
I
Y Kotes
@]
OlBJCSOJ is called froll D1'8STP
wben CICSIVS is closing down.
control is returned 1f
Journaling vas not actiYe ..
I
'III
I
II
"i:" 9.2-02
Hotes
-)--- - - - - - - Routinel Label
Ref
It is called froa CPBJCI.OB.
OlBJCBCY, or OlOJCBSP for soao
error conditions in Journal
ft&nageaent.
II
~_~IL
.]'0,u:••1 staxt-ap/SbutdOllll
Section 2:
Method of Operation
J)1agraa • 1. g. a-02
387
LICENSED MATERIAL -- PROPERTY OF IBM
r-rocessing _ _ _ _ _ _ __
1.J i-'u\,
r--------------
I
r
C~t.
I',
li il!~O~~
Ui1Y
II
I
I
II
,
I
I
II
-,-> 0 0
JCOCL
~ l:stdblish run stdrt time
---->
[ !:.t.art
addr~l:is
,0;,.,
>!'
V -,/
I
,..,-,-,~\
I~~TJ:
I!
tile ID
can
issue DPHJC ",acros ..
~
Iss" e wassage i f open
I
I
"
~
,I
,~
Il~
fdcilit.y Control Area .uddlo:!,sS in
I
!
'l'L/u--'L'tt.AA 1.5
I
1
I
I
1
t.Q~
Ur
z.ero.
~o
"':lCS/V!l
fO'r t.eUilindt.l.OD
Wdl.t.:;.
'11 ulls ...Cl..l.On
.d.i 1.5 ':;!:iJC f01'
~ro':Jrcll.
l.!J..a.tiQl
DFHJC35P. All
such l'eA's are l.den tified d.S
se Li:.l..ny field T(:AKCCIA
to
chaa.ctE:t'S JJJ.
I
I
!(~
',rh(,
I
-
!!I.~S~d.'je
UV<1J..laDle -
II
I
IIB
I
,
I
formdt i.::;;:
'Uh:i1.45Ul
ClC:"/V'S ..JourDdl un not
Init.ial open
!allur .. •• I i JouI.ndl is
'l'h~
1....
i::; dttdcbed as under
ti.l.::ix,
::..t.t.:y
L.
CJlU~lAL,
exc~,tlt.
t.ht! .r.ield ·.l~Ai"CAAA
l.Uitl.d.ll.zed to tne JCl elltry
ul1uess.
~'l:ul.I.::id.ct.~on
ID is CSJC fur
I
su<.h 'I:CAs
t
Ll~/VS
I
!::>o::tLi.ll'::l field 'N':AIH;frA to
L--
Journal K.lck-o±f
388
dJ:e
i.denti1ied
'sy::;tcl1I. tas!t.::i· oy
dS
,
f\out1ne I Label
I
I
I,
[L
.. ,'>1091
,/
I
\/
I
,~>I
JCA
lJCAJF'lD
,,",au rnal
file 10
l.)
----------
I'-----;
He.t
I " Notes
'I'C!
Hll'U!1AT 1 .. 1 uia9rdlll -
I
Routine, Label
1.9 • .t.l-01
the!
I
--'-1-1-1
1--1-'-'11------:-I'
characters J JJ ..
I
~COCl'.
,t
A'ttuch CICS/VS journal
!
.~-L.-U-"~~~~C~.k---Of~f----~
II
for output via
~::~ ~,:::::~OPEN ,OUTPUT) ,
1
I .. ute;:,
I
tdS k
.
,,
o~en
the n
~ :;i~:~r:::·~::~;.~ICS/VS
I'
II
l
stOI:dye for ovn JCA so
r---:-1
~'f"l:lI-I------------>
.Journdl
Get
L-J !'love Journal 10 into JCA,
I-~------------>I ~
~:~~~""l
II
.(1i t until tdsk is in
pla ce
I (J~I
I,
I
j'
I.~KCT'l'A
Task ID
Add [~5S 1st entry in JeT
l
I
I
I
,~
l~
J
I
TCA
termination
(DPH.JCOCf')
"
II
,
I~
I
I I
\
===:>
I
CICS/V~ task to
vai't on as subtdSJo;.
. - - - - - - , _.!.J-------->
I
~
I
I
I
special
!
I~~~~~::'A
1 OF
-----~>,
Attach transaction CSJC a,,:'
'Il~
~/ttese!
~~I
II
1
~>,~
----------->
l'AGE
Output
I
I
I I I II
I I
I I
I"
I
I
I
I
t
1
:,,1
1
I
I
I
,
I·
1 II
I I
\I
II
I
I
I I I I
I I I
1
,,
1,1
~ I'---_ _-------::-:=-:-::-=__~
HIPOMAT 1.1 Diagrall -
CICS/OSjVS Program Logic:
1.9.:':: .. 1-01
Description
LICENSED MATERIAL -- PROPERTY OF IBM
lAput
pr~~=:~~---------------l
[ Al----> [~~
:J
[091:1')
\1 -, I
I
[ --]
~: If not end of Jer, addreSS[-::"j'>r
next JC1 entry
- , I \1
o51
and return to SIP
2 O'P
2
r----------------------- --------1
Wai t until task. is in
place
[~~] Release JCA, issue message
~~GE
output
I
I
i
i
I
I
I
I
!
I
i
\
I
1
I
I
I
!
I
i
I
I
1
1
j
1
I
II
1
______________________J
L __________ _
l ____________________________ ,
Diagram -
Journal Kick-off
------------~-------.
1.CJ.1.1-C2
---------------------- r--------------------------------------------- --------1
Notes
,
Routinel Lai::el
Ref
Notes
1 tloutine I Latel I fI~f
~~he .es:~ for :~:~~;:~~~-I---- ;--- ----- --------------------------1------ 1--------1------1
-
J[X
I
of Y'l jouraals successfully
opened ' •
1
I
I
II
II
I
1
I I
I
I
I
I
I
I
!
i
I
I
I
1
L__________l _____
1
I
1
I
I
I
I
I
I
i
I
i
I
I
I
I
I
I
I
I
I
I
I
I
I
1
I
I ,
_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ .J
Journal KicJC.-oft
Section 2:
Method of Operation
Dia:ll:am -
1.'9.2.1-02
389
LICENSED MAXERIAL -- PROPERTY OF IBM
'_tocessiD9
lI
1 OP
~lGB
Ol1tput
2
DlBJCBS~:
r:L,
t=.:.:/>
~ flake self'
nOD -stall-purgeable
Get a
---------------> ,§]
.x:.&
If initiated as norlal
journal task, get joarnal
buffer. Else go to step b.
Initialize JeT table-entry-------',
--j/
buffer pointers
__ J----------> @J
JC~
JCTBBl
Buffer·
beg_ addr.
JetSIPl
Branch directly in to
Journal Control progra.
Start 1,0
frol
JeTSHI"
Start BeJ;t
I/O
IDPBJC~)
JCTSHUl
Start 'next
~~g~~al
~~l;~SI'
I
size
If iniU.all.zed as special
journal task, wait for
Dor.al or abnoraal
tar .1natioD of OS/' S
subtask DFBJCOCP
JCHii- -
I
Buffer end
addr
JCTBSUA
I Baffer
shift up
~ Bet urn on 0 rder ly
terllination
~]_- .. -> ~ Post reguest Idone I
I
Journal Tasks Bootstrap
hst is initiated as 'Dona!'
I
if
TC1PC1Al 1s not zero. This field
contains the JeT entry (JeT'!'B)
if--l' 0
77
I
r-:::;-------l~::~:I~~R~e.f [Notes
@]
rCB
I\
J
J
>B
/
01a9ral .- 1.9.2.2-01
___. -1~~~I~~-'-1·f.
II
,.
I
I
I
I
,
address.
@1
Bntry point. is aD label JC2b8 in
DPBJCP. Control never returns to
tbis progral: JOlJrnal tasks look
in OPBJCP.
Before control is lost, the. S~J?
task (actually, prograa DPBJC:KOJ
at this tiaeJ 1s reactiYa ted ~ J
posting dCTBlLeB: the 'Buffer
ayailable' ICD.
I
I
I
~
@)
'!ask is initiated as speCial
joarnal t·ask if 'fC'uC1U, 1s
zero.
I
II
I
!
II
II
II
I II
I
I
II
Bit -one of byte two in JCOC1BCB
i . zero for orderlJ terainat1oD.
390
CICS/OSjVS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
Input
Irocessing
,,~.
JCOClBCB
]
O•• II/Close
PAGB
2
or
_ _ _ _ _ __
2
II ... _. -~ ~
u •••
----)I"jl
~~1I18St.d
OQt~
\::l
abBo ... l ndng
~ Then vr1te .8888ge to.
operator aD d link to
olaurn.ling shutdown
progra a OI'HolCSDd
~ ter.illata e:Ies
I
L----.~.
L~~
olOU:rlla1 tasks Eootstrap
----
I
lotes ._ _ _ _ _ _ _."-_______ ~::~:: _~ ~
®
@]
Di.gra •. - 1.9.2.2-02
Ir-
l_H_o_.to_s___.__ .______
1 paneling jOGrual request is
canceled with ~/o 81:1:01' return
coda.
The aessage for_at 18: O.S454 .....
SHonon
Journal ContEol suJJtask vas
abnor••llr tar.1n.ted.
®
'CICS/VS/OS . to . . li1.tad with •
OS/VS DOlI aaero l-Dstruct10a.
.Joanal "a.a Bootstrap
Section 2:
Method of Operation
. Dl.9..... - 1. ,.
a. 2-02
391
LICENSED MATERIAL -- PROPERTY OF IBM
~n~~~
_________ _
P.:~~ssin
fl:l--l
\
•••• , >
CsAJCii.Ai-]
r r~~rm~rY
entry
l l~~ess
JCOCL
PAGE
output
1 01
--------------------------1
DPHJCSDJ:
---,/ §]
CS'
!.... _______________ _
J----------->
Return if journallnl not
active or already shutdown
I
Enqlleue 00" OpeD/Close
sub task interface
'
>fJCOC1iiA~--IOpen,IClose
Get a JC! and point to
l~~:~r
I
first JeT table entry
J[~roiiD-l--II---[~~~~~: [~J
~~~D~~
_ _ _ _ _ _ --.1
.
71
[
JCm--}---->r&1
~ ----)
Journal.
t.:J
[status
Close journal file if not
yet closed
~~] Set journal status
r nota pen' and resume
journal task for
~---
termination
::~~
J~~_I-
U~iW~.rJ
JCOCL
______________ >
I
- - - - - - - -)
[ ~~~~~fo~eJ
~~~meter
____________
~
~!J
,
I
-,
I
. I
I
:::/::r::'.:::k/:oZZZZZZZZZZmi\
I
--~I
'aken Ope~/Clos. (J~~
777777777m
snbtask if still alive alld----------I/I
ilrite messa';le to operator
alld release lockout for
single thread
fJc'iJ PI 0
~:~~;£J
~I
I
~!
I
~1/\' >
-- I
JCTB'BCB~
Buffer
~~~~
JCTJS
Journal
status
JCt
JCTBAECBJ
[ Buffer
~~~:.:~:!..
JCOCL
JCOcJCTi~
JCT
entry
[address
JCOCiiiCi-j
[-----g~Buest
JCOCDECB
[;;;;;;~
__________________J:::;~o
Jou.roal. Shut-do 110
I
ZZZZZZZZZZZZZ\l
vait for task to . end
r.;;;1
~
JCA
Zllz!zmz.t.t.1
close next if not end of
JCt
~\\
Done BCB
eICS
I
------~~----------------j
Diagrall - 1.'9.2.3-01
I I
-----------------------------------,
Hotes
@]
BoutiDe
Latel
Bef
can be active simultaneously.
If the OSIVS Open/Close subtask
Houtine
..
Tbis ensures no other Open/Close
requests or Jcurnal1ng sbutdolrfD
§]
Hotes
Label
REf
. I
JCLOS!
(DiHJCOCfJ is already detacbed,
an in line CLOSS is issued for
the journal file.
~ anffer available BeB (JCl'B1BCBJ
is posted by the terainating
journal taSJt, by code in DPHJCP.
@!J
The OS/VS subtask is forced to
end by setting all bytes in
JCOCJC'l"A to X r FF r •
aSTERD
@]
8essage for.at is: DPDijS10 - All
open jonrn~ls nOli closed.
ItESS1GES
----------------------------
Journal Sbut-doliD
392
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
Page' of 1
INPUT
FROM MACRO
....
~
. [;]
TCA
OUTPUT
PROCESS
OFHJCP:
TCAJCAAD
Journal
Control Area
address
.
TCASCSA
Storage
Control
storage
TeA
Get a JCA if not done before.
~
Point to the appropriate Journal Control Table (JeT)
by the journal fil? 10.
§]
Indicate file 10 error if ID not found in JeT.
TCAJCAAD
Journal
Control
Area
address
JCA
address
CSA
w--- 8
CSAJCTEA
[M~"
address
[il---- ~
JCT
JCTJFID
Journal
file 10
I-
Analyze type of request.
If thiS
IS
not a Dynamic Backout task, go to step ~
0=::)
JCA
Transaction Hackout.
and if it is, log it
4.12.3
JCAJFI~
Journal
file 10
JCA
JCATRl
Type of
request byte
on,
Dyn,m" Log
DeCide If thiS record IS to
be logged for Dynamic
1-
~
\--0
Backout
Journal Write
Handle journal write
request JC 100
1.9.3.1
EJ
TCA
reADSI
Dynamic
0::0
0=0
Journal Wait
Handle journal wait
request JC24Q
1.9,3.2
----lil
Indicators
Diagram - 1.9.3-01
DFHJC In· Line Request Processing
NOTES
ROUTINE
LABEL
REFERENCE
NOTES
ROUTINE
LABEL
REFERENCE
Return on Register 14 if already got the
JCA.
User task should be terminated by a
Program Interrupt if no JCA was
acquired. (No return code possible if
no JCA.l
If TCADBTT in TCADBI is on and
backout has not already started, i,e.
TCADBIPM is not on, then Dynamic
Transaction uackout Logging maybe
indicated.
JC150
Put request is identical with a write
request followed by a wait request.
JC100
For other macro requests, see chart 1.9.5.
1.9.5
Diagram-l.9.3-01
DFHJC In· Line Request Processing
Section 2:
Method of Operation
393
LICENSED MATERIAL -
r
PROPERTY OF IBM
I
,
DfHJCP:
ffutg~l- --!-1-----:::!~> I§J ~::r:::o:o:e~::: ::d:a~! ZP11_?lZl!..lZll~~/1
L::.
1
JCA
)
,
1.S 1D
exclusive control
mode
I
l~~~:::t
l--l-lL----------> I~
Ibl'~e
2
1'--' pe.di'g. vait for
I
----------->11021 If any other status
L____,
I!
I!
I
I§]
I
I
I
rjo••-uI~••'~iI l--l--..
I
JeT
!:::_e__
I
I
requested
)
II
compute size of resultant
I jouI.al record
'Ir;;;;,
---------->,~
bUffer
I
.I
request exceeds buffer
Set error return code if
2
I
~
I~
1/1)\
Z~ZZZZZZZf~I\/
::::~:::::l o:e:::. code i f
1 OF
output
r:=-----------,
I
I
f":L"
t,:
••• 1 >
/'
PAGB
-----l
Processi.ng
iFrcm 1.9.3
I~I
!~J
I
JCA
I
I
I~I
I/~'
I~I
' I II
ZZZZZZZZZZa
I
I
len gth and return
I
~2----,-Lr---------->
II~~ Increase buffer full count7!77777777777)'>I' ...--------1
Ig~~~:~
I
I
rn:i~~~~~Tt-L--------->I~ :~~o~::::
I
JCT
endl
L~:--1 I
!
I
Journal Write Bequest
I
I
I
I
I
if requ.est does, not fit
::~:::.::d >nihate output
LECB . f it
IJCTBPC
Buffer
I
------------tl
'full
c~~~..
is a7LZlZZzzzmi>!
I
I
J L__~
I Notes ---------------1"";::::, Labe~G~G::----------
I
I
L
Dl.agram ..
J
1.9.3 .. 1-01
! Rounnel Label I Ref
11
'\ @ R.::-=-~;:::-:-::;;:---II-------j;~-I--I'I-------------------I---1----',---1
I\
or not automatic jour.ahng and '
user-preU. are sUFPorted.
\
i ~J
!=05
Request is
1
enough tuffer avaUable.
/
I,
I
,
'I'JC1.0...
I
II
I!
II
I
I
,
I
I
II
\' \/
II
II
I
I!
/!
II
II
I
I
I
\
I
II
I
I
I
i
II
I
I'
I
I,
,
hand~ed
again if
\
I,
I
I
!I
I
I
l
I
I
"
~_____________
Journal Wrl.te fieguest
394
'I
/
!
I/
I
I
II
I
I
I II
I
I
II
!\
1
I
!\
\
I
II
I
II
IIII
\I
IIII
\I
II
II
II\I
IIL,
~L
I
II
I
I
I,
I,
I
II
I
I
I
I
I
I
I
I
I
II
I
II
!I
II
I
I
II
!\
____________________I___l ___L__J'
Diagram -
CICS/OS/VS Program Logic:
1.9.3. 1-0t
Description
LICENSED MATERIAL -- PROPERTY OF IBM
1--------' r---
Input
1Cl
~:fI5Al---i
-----------)
~~=__11 !
I
r
PCt
:~:,: : : ;: : L"W,I>I 1;~~m
@] :: ••
••
JCl
I
---~--PCnI
l!~~D
I
@!]
I
I
I
I~
I
I
HOTB reguest
I
~
§]
I
I
JCl SIS-PREPIX
REcase ID
length
SIS-PUPU
Dser prefix
'~ontrol
nu.ber
Task
no.ber
, JCASfTRH
ITrans
,number
--
In1tl.a~e
operat10n
1~
if
Ifal.t re9: ues t or fut
request. Otherwise rEturn ..
I
~
D1agral .. 1.·9.3.1-02
I
I
~r-
lef
Rates
II
-1------- -!
JC21~ I
II
1\
-'
--------1
output
I
'r-ol
I Rootine! Label
The record contains tbe
following inforl.tioD
IJeiSiTiia--j
L
I
Rote.
l
!
!nuber ___1
ISt.rt. Iiii---,
I
J·-ou-r••..,.l-.-r.,..it-e-Be-gu-.-.t~-
2
Ret urn if I/O not
requested and buffer not
full
\@J .ut ~~::on
l
I
I
I[~ ::~~:r l:~C:~.:.~::: ~:r
I
I~
2 OP
1~11>1 ~;~~iRJ
I
!
I
PAGE
I
!
I I
1
!
!I
I
II
1
I'I
I
1
.I
!I
I
1 Rout1.ell L.b.l R.;-]
1--------1
1
I
!
/
I
I
I
I
I I
I I
I
I
I
I!
II
II
Dser data
I
Journal "rite lieguest
Section 2:
Method of Operation
II
----=~----------'
D1agra... 1._ 9. J. ,,,02
395
LICENSED MATERIAL -
PROPERTY OF IBM
PAGE
r----l1~~~~ or;;:::: ·r.<::~I·
'::~/> -fJCiiCii-]--I--'----------->\
~~]
t
I
Sumber
Jr~J·C-AE=CN=J-U [AJ----,! ~~
:J
.Event
Control
r:iCiSipul---->fil
JCT
I m~~ai I I
1~~::~-I
I/OJ
r----- ------)
I
t~~~:~~
Jr_c_r__ ___
,~,~~U~B~ I
l~~~~_J
I
/
ZZZ??llz!Z.~/_~1
Set error return code i f
no data in tuffer to be
JCA
I'
l~~~~~~l J
.:~~----
I
f;Jc.;JCiic--l
'
Il
!
I
fJ.:iiiiLA-]
----> t:J
fij1
I Next I/O
l ~~~_es_s__
"
<~>[~~~=~2~=====J
roi;l
:;-:~~:::-:;-::rent
I"
Initiate output
operation 1.9.3.3
t..:J
I
I Next
7777777777777)\
--1--------1'1./1\1
outpu t
L~~~_
JC1'SNIU
Set ,cod return code i f
output already completed
and return
eli
°11""'-------------1
Jcr
II~~~~iOl'
1
I
L--.J
Pick
1
LECa if 1/0 vas already
,'I
r---I\
started
[~ ----> [os]
--
Pick up address of next
~:;:~'1>I__
B
'\[--]
~~
[-~?]
I
LECH if
,
'I'
ve started I/O
I
Increclse LEe'!! use count by
one and KC-WAIT
Set ;ood or error r""turn
code according to the l/C
'i"
r..:.----g~~~~:i l
.1eA
~\
?ZZ?,?,ZZl!.?I!.?"'/)
r~turn
,I
'I
J
l:~:___!
ending status
I
Decrement tECB USE count
and load exit address
@]
Branch to free-up LECB
····1 )
----,
l__________________[J----"
/
1. 9. 3.'
I
I
l__________________________J
Diagralll -
1.~.:.2-Cl
Entt)" f'oin't in liIal.t rOlltille if
POT macro reljuest.
1.9.3 •
•
[~] Tbe ertor is 1Ddica ted in tbe
I
LBCS.
!
I,
'.9.3 •
•
!
I,
!
_____________________________l..I _______J
Journal Wait aeyuest
396
I
I
I
I
I
_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ .J
CICS/OS/VS Program Logic:
Diagram -
'.S.~.2-01
Description
LICENSED MATERIAL -- PROPERTY OF IBM
-------------------l1.
procEssing
[~*,ut
9 .5 1. 9.3. 1
1.9 • .i.2
I
JeT
I
lI*~~~:
f:JcTslrAStart I/O
- - -- - - )
-----
JrnSiiAj
I
OP llJCP:
[~]
@]
---1_____ -- ----)
I'
1-----------)
f;
Ufdate
~1
pOintersZZZZZZZZZZ!:!:
Post huffer available if
anyone vaitinj on it and
I
mzzzmZ7~1
I
I
we are not in error
--IrJCT.iS-~
----Journal
stat us
JCTBABCl:i
Eutfer
laV'a~lable
[-;;;;1 '}
,:9"x l
- - - - -- - - )
I
recovery mode or flushing
tbe butter
I
I
I
I
~A\
~~] Bu~ld
~]
prepare
I
OECB
;:~
--------1
I
_______,
1
l~~~~~~OforJ
1
:~~-------
i
I J[~~iiSiic---l
ii
Buffor
1~~~~L:~--l
~f~~P'~/O
I
I
I
,'
1JCTSNIF'lI.
:~~~------I
I
Start
next
I/O from
1--------
I
1,
I
l!~~~:~::J
JCTSNL FA
1
I
I,
JeT
1
I
I1
"-ll
label record and
prepare block for outpl'lt
EC"
II
11~ll/ 1
Shift up buffer if
JeT
----JCTNILA
\.
ZZZZZZZZZZZZZ~/>
RetUrn if I/O currently
required
----~~Im
I----~~a~~ss
stat us
I/O
1:9:4"11
I
fl ~~g:;j
next
active
[-::::1 '>
Butf er
shi.ft up
address
JeT
Set reguest flag for start
1 0'
r----------------------
•••• ,
---1 --,
IIO froll
address
f
[:1.-" >
PAGE
output
----------------------
\
I,
and link to
1
1
1
BSUt for Uri te
@]
i
[---------
~~~~O~::ll
1
I
I/O
I
JCTCILA
Current
I/O LEeB
liext I/O
LEeS
l~~~
l~~~:~::
If executinj for user
1
I
__ J
1
I1
II
task, RESIJPlE the journal
task
\
1
1
t_______________________________ j1
Dia'Jram - 1.'3.3.3-01
I
----------------------1----------------,------1
Routine
Notes
@]
Tbe record forlilat is variable
and preceded by
I
Label
Bef
JC263
Motes
'Ilout:ine
I LatEl
•
1
1
:1
I'
i
1
I
'
I
1
I
I
I1
I
I
1
I
1
I
1
I
I
1
1
1
1
1
I'
1I
1
1
I
1
1
I
1
I1
1
I
I
I
1
I I
I
Method of operation
1
1
I
Section 2 :
1
1
1
1
I
---------------------~
I
1
1
LLbb'.
Jour»al Output lni tia tiOD
I lO!'=t
----------------------------- ------1--------1------ i
1
I1
,
I
:
\
,
I1
1
I
1
11
1
1
I
1
1
I
,I
I
I I
I
, i
__________________________ _______ ! ________ ______ J
~
~
Diagram - 1.5.3.3-Cl
397
LICENSED
M~IAL
PROPERTX' OF IBM
xap.t
UG!
p~~_essiDL _ _ _ _ _ _ _ _ _ _
--'---------~-lMrite ,[~::)
JeT
[ =X~e~~~
~Li~
---./
. . -------------)
rn;1
l~ Get
in
I,
address of next tEeD
pool
~ ScaD LEea pool for an
a va !lable LEea
Set allocat.ed IBCD to
vaitiDl and sa'e address
as neEt I/~ IECa
JCl
[
~~iOOL~ ----- --_ . . -available
loBes
address
---->
Set
I
[;;;;( '>
'.9 .•
""';'--,/
J[~iClllJ
Current
Ito LBCe
---------------)
L Be B
@]
aadress
~-----CTNILA
~~~ 1/0
JCTRt.!CB
••• t LECB
I
11\/
1 ':9~t' 177)"
iadt~~~'
[:;;;1')
available' LECD to
vai-tiD'; and wait for free
j
JCT
~zzzm~z~>
~] 1 f DO LEe a a .&11&1I1e
inci:ease poei-fall eeunt.
.
:2
"""------~-I
DPEJCP:
.
1 0'
JCT
JCT',PPC ]
[ Pool-fall
count
zzzzzzzzzz~~
Get address of current" 1/0
tEeD i f output co.pleted
and post tECa to wakED
user-task
~] Return to caller, 1f use
COIUlt not zero
~ If use count 2ero, .ake
LEeB 8vailatle and post
'LEee availab1e l IEeE.
[;;;:1'>
_-==~_JT."
II,
_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ .1
HIPO"A't' 1.1 01a,:)ra. -
-------------------------Houtillel Label Ref
-------------,-------- ---...- ----- ----Notes
§]
The number"
of
LECB's is
JC180
1.113.3.'1-01
----------------------------------------1
~:::-------------------------l ~::~: -~:~:~--! -::~--
:
three times .the number of
journals plus three.
lleanl.D~
of
I
nit.s:
0';: "ait lilt.
}. = I/O arrot
~-7 a Use COUllt, i".e., couot
of user tas,ks Maiting OD. the
associa ted D locK..
'rae fir:st U:CB in pool is used
I
JC'90
as ILBea a.a~1aDJ.el tECH. It is
posted available as soon as an
LBca is availa.ole. 110 wait is
issued
00
I III
cood1 tiona! return.
~ 'rbe jOllrnal tas .. :lets control
for outpo t co ...d.etioD
processl.Jl g.
I
JC286
I
I
.
I
--'_______________________________
JI
l.oiica.1 l~ffi~(iiCs)----------------
398
_...
CICS/OS/VS Program Logic:
D1.a~"r811
- 1.9.3.Q-01
Description
LICENSED MATERIAL -- PROPERTY OF IBM
I
Input
I
1-----
r:;;~~\l
I
I
I
.j
I
I
I
I
I
II
[o!]
I-
I
!
II fi01
L~:J
I
and issue Task Control
WAI T
I
If usa count zeIO,
1
Incr.as. LECD us. count if
user task 1ssued a "AIT
release
\
available' LEeD
\
Return to call1ng routine
I
2
~-----l
I
\
I
\
I
I
I
1
!
!
I
!
\
I
1
\
I
I
I
I
I
I
!
\
II
I
I
I
I
-I
I
I
I
I
I
I
I
II
I
I
I
I
I _______________J1
L
________ •
2 OP
.1
LECB and post' LECE
I
I
L
II
1 ~9:3~ ~
J~~mA-l--!I------------->I@~
Next I/O
I
~~~ss
PAGE
PIoceSSJ.Dg
L________________J
Dl.agram -
Log1cal Event Control Hock ,LECBI
1a 9.3.4-02
r-------,----,-1
Hot~ _ _ _ _ _ _ _ _ _ _ _ +~::~~:I~~I~~ll-~:~:-----------------1-::~~:!-~~:~-I-~I
!
--,----,--~,---11----------------------1
I
I
I
I
I
I
I
II
II
I
I
I
I
I
\
II
II
II
II
II
II
II
II
I
\
1
I
I
II
II
II
H
II
l\
I
I
I
!
\
II
I
I
I
1
I
I
II
I
II
I
1III
I
!
\
1
II
I
I
II
I
I"
II
!
I
I
\I
!
I
I
I
I\
I
I
!
II
I
I
II
'I
II II
I
(
I
I
I
II
!L________________!!_____I
I
I
I
\
Method of Operation
I\I\
II
II
II
U
II
I
II
II
I
I
!
I
I
I
I
I
I
I
I
I'
I
I
(
I
I
I
!
I --1/1L___________________I
I
I_ _ _ _
Logical B't'ent Control Block (LEeD)
Section 2:
II
II
I
!
I
I
I
II
I
II
I
I
I
I i
I
I
I
I
I
II
I
II
I
II
I
I
I
II
I
!
\
I
I
I
I
\
!
II
I
I
I
I I
I
I
I
I_ _ _L __l.
J
I
D1agraa - 1.9. 3.4-02
399
LICENSED MATERIAL -- PROPERTY OF IBM
--------i
Input
ProcEssing
l
Butter
aVal.lable
r ~~r~:l--I------------->I
I/O frolll
address
Wake up shutdown task if
II JCTSiiLiA-1
Start nextl
jlogical
I record
Ifrom
l~~:::=-
J
[--1
~~J
I
I
I
Suspend self
stat us
JCT
I
I
Post buffer aval.lab!E ECB
lof anj' "'Ie wa1t1D3' on 1t
Jlr~~~al ] J,_____________ [~n ::::::d
>
..
.
£Co
@]
1 OF
-------------------------------1
[
m: j[~:, l~::=--------l
Jf~TBAECB~--I-------~~~~1 [~~J
PAGE
f')utpu"':
7777777777777)'>
to temnate. ThenT----------
Clear buffer and reset
p010ters 1f no data 10
I
1/
I
I
zz,zzzzzzz~~~~:>l
but fer
JCT
I
I
JeT
JCTSIFA
Start I/O
from
address
JCTSNIFA
Start next
I
I/O from
address
J'CTSNLFA
Start next
Jr~TJS-J--I-------------) ~~]
I
Journal
l_st__
at_us_
logical
l
record
from
Suspend self if buffer
~~::~=
cleared and neither
__J
sta tus-exchange nor
involuntary EOV
outstandin3
Post buffer flushed FeE
when status-change
I
outstanding and suspend
self
I
l___________________J
~ut;,)ut
Event
COIllI-let~cn
I
I
I
1__________________________ _
1______________________________1
Diagram -
processing
l.S.Q-Cl
------------------------------------------1 r-----------------------------------------------------,------1
I
Notes
Routioe
Latel
Ref
Notes
B
I/O from, address' and
:::~e~::'::~ :::::~
I
Start
from
1 'ROutin8!
Label
I RF'f
,
-------------------------------1--------1-------1------1
I
I
I 1 I
I
I I I !
[~ uffe~:-:~~-=~~::-::~--I------ ~~~;-- -----1
I
1
I
I
I
I
1
1
1
I
I
I
I
I
I
I
I
I I I
I
I I
I
i
I
L___________L_ _L
I
I
Output EV€Bt completl.on processing
400
I I
I
I
1I
l ___________________________________________________
I
1
I
Diagram -
':)/OS/VS Program Logic:
1.9.!.i-01
Description
LICENSED MATERIAL -- PROPERTY OF IBM
l~~
_ _ _ _ _ _ _ _ _ _ _ _ __
P::~~~~!...------------------
output
PAGE
-------------------------,
I
I
I
II
\
I
I
I
I
I
JeT
~N~~Ofjr --------------->
[----1/0
I
~~] prepare for I/O operation
if data in buffer to be
I
I
output illlmediately or to
JCTJS
Journal
status
I
be output for EOV
I
/'--' \[--------J
< 1--1 >
',-,/
I
STAlIT I/O
Operation
Initiate output·
operation
1.9.3.3
I
--------------
I
II
I
II
I
I
______________________________ JI
output Event COllpleticll Processing
Diagrall -
1.9.Q-02'
----------------------------------1
Notes
ROlltine
Label
Ref
Notes
'Routine
Latel
I ~€f
,
------------ --- ----- ---- --------------------------- ------- -------- ------1
I
!
II
I
I
I
I
I
I
I
I
I
I
I
I
I
j
II
L_________________ ____________________L_____L______1I______ JI
Outllut Event COIIJ?leticn processin3'
Section 2:
Method of Operation
Diagram -
' .. c;i .. Q-C2
401
·LICENSED MATERIAL -
PROPERTY OF IBoI
P~~L
In,Pllt
iIIait for 110 coaplE't1oD if
OUtpu t vas already in
progress or has just been
initiated
fro.
address
l:iCiSiilnstart next
J::dr~~-
[ ~~~~:J
~~!-~
JC~
i~~:~-:
----written
:I O~
DFBJCP:
r i~~~fft;;- ---------------> @]
I/O frail
I?AG!
output
-~--------------------l
-~-l
l
____________ _
r---------> @J
If 110 error-free, cOIiPute
-J'
... ra~e block SiZE
zzzzmzzm~\/
- -J----------> ~
--
I
I
Por disk journal, force
EOf i f Dear to end of
extent and Dot the first
blocJt
QII
I f disk journal, link tD
dS&! for
r.l-~] ....
JCTBLKN
B.Lock
Dumber
t..:.
••••
~.
ri--
I~I~>
7777777777//
JCTABS
[ A.erage
I
d
I
~~~Zf!
JCT
JCTJS
]
[ Joarnal
status
JCT
[j~LBilj
----Last block
written
JCTTRBAL
Track
balance
M , ...
Bump COUDters and pointers
for Delt block
-J'
mzzzmm~,/
JCT
J'
zmzzzzmzz, /
JCT
Block
~iiLK.R~
~number
~----
JC'l'PBC
@J
Physical
block cut
-----JCTSIPA
Start 1/0
m~~~_-.I
_______J
Dhgral .... 9.1I-03
Hotes
(!£]
Routi.ne
AD. output operatl.OD is in
LaJ:.a.l
Ref
JC272
progress if 'Start I/O frail
address I aDd 'Start Dext 110
froll aadress I axe Dot egu&l.
~
I
Start Dext I/O froll address"' is
JC2S'
moved to the fl.ela. 'Start 110
tra. address I .
402
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
Input
pr~:~~~~ ___________________ _
PAG!
output
q 0'
----------------------------1
I1
!
[!~] Handle next outstanding
reg:uest
@]
{/',--,/
1='1' >[I10E«~HJc~OE
------------
I
~~~8~e I/O errors
,-;a]
JeT
[ status
jg~fa~J--------------->~!
::::y
1.9.4.2
---------------
I·
I
F.~~O operation if not
I
I
I
!
I
I
______________________ J
Out,Put Event COIliFletion pJ:ocessing
Hotes
Dia1raa -
Routine
Latel
~ Since end of reel on tape canlt
De
predicted by the pro;raa, the
I/O error can
be
caused by end
of taFe. In this case BOV is
forced.
Ref
I
1.9.1I-CQ
I.ote:-----------'--------~:~::T-~:~:~--i-;:~--l
-------I-------t-----!
I~------------------.
I'
I
I
1
I I
1
I
1
I
I
I
I
I
I
II
I
I!
_____________ ...:____________________________ 1
Output Ewent eoapletl.CD processing
Section 2:
Method of Operation
Di8gr •• - •• ~ •• -c.-
403
LICENSED
I~!:~~
M~ERIAL
-- PROPERTY OF IBM
________________ _
r~~, 'I:~::--~---
····1 >
L_--,/ [--1
JeTlE
rJCTJflo-]--------------->
h_le_I_D
I
I Journal
l_
I
I
-.J
I
I
~~ ~ove JOllJ:nal 10 to JCA,
then close currently open
output volume of the
reel or disk extent) of
t
the journal for output,
I
___. - J 1
macro
Open the n-ext volume
(tape
I
Return to calling program
if close and open
successful
I
[oii1
J
--.I
1 O'F
[-----------------------------1
II
I
I
,
I
I
I
I
!
I
I
I
I
i
I
macro
I
return
DFBJC
via the appropriate DPflJC
Jr~AJCRCl--I------------->11
~~]
Journal
l~~
journal via appropriate
I
I~~]
PAGE
Output
Ac"uire storage for
D1€ssa ge i f failed
I,,
I,,
I
I
[~J write messa3€ to master
,I
terminal and to opE-ratar
con sale
![~£]
I
Issue PI1EEI"!AIN for message
area
I
I
I
IL________________
l____________________
Journal Output Volume Switching
l____________________________ _
Diagram -
1.9.14.1-01
~~~~~~~~~~:::ll~~tel =~~~~;; f~:::=-::::==--=::::::::=t:~~~::ll:;;~:1
TCAFCAaA)
I
of th e loll yoking
Note tllat toe JCA - re':luired for
l.SSUiD:I DrbJC lIIacros -
I
I
Journal tas..
I
I
was
acymred tor jo uraal tasks Wilen
initialized.
I
1.9.2.
]
I
I
I'
'I
I
I
I
II I,
I
Caillon;; roI:03ralll is actnally
I
Illainline journal Control pro3ram
(DfHJCP)
executing for tne
/' I
Journal taSK which had detected
autfut iWV.
II[~~]
Message forllld't. is: DFH452A -
I,
II II
.I !
I
JC 120
eIeS/VS Journal no longer
aVal.laDle - output volume-sllitch
: ''''''"
I
I
II
,
II
I
II
L ______________J_______________
I
,
,
I
,
I
I
,
I I
,
I
J -_____________________________________________________ ------.1
Journal output Volume Switchio;J
404
I
i
CICS/OS/VS Program Logic:
Diagram -
1.'5.Q.1-rQ
Description
(
\
LICENSED MATERIAL -- PROPERTY OF IBM
1---------1
r----------------------------l
ProcEssing
lu,Put
I
JeT
fJCTJT- ] --1--- ---------->
l~~~~~
@]
I
ensure journal left closed
I
1
I
1
Reset journal status and
clear journal task TeA
I
I
1
crucial
[~]
~
Issue DFHJC macro to
)'
ZZzzzzzzzmz\/
:
I
~1~'-0:
. -us~r'-nsa-l---l
status
:
,I
,
I
JcTBAECH--j'
pointer in JeT
~J
2 Oli
I
Link to shutdown task and
OS-ABEND if journal is
,
PAGE
r!~~:-------------------------1
IBuffer
I~~~~-~:~
PC-ABEND the journal task
~~~~~~t
task
-------JCTXTTA
~CA
,
I
I
:,
,
,
t~~!:!~~:_J
,
1
I
II
,,
,
I
!
:
I
I
I
L__________J
Journal output Volume switchin;
l___________________________
J
I
1_____________________________ ]
Diagram -
l.S.I.I.1-02
~:;:-;::~~~--==--=~J::::f:;=~~ r~:::-=--=::::::::==:::~~P;;;:l;:;~:l;;:l
1@]
~B
I
II
eICS/VS AbEND code is AJCB
~.9.5.
JClliO
1
I
I
!
1
I
!
1
1
1
1
I
I
1
I
I
I
j
1
I
I
I
I
i
!
1
I
I
! !\ II I
!
I !
I
I
I
I
I I
L ____________________
~
_____ _
Journal output Volume Slfitching
Section 2:
Method of Operation
_
,
,I
I,
,
I
I ,
_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ .1
Diagram -
1.9.1.1.1-02
405
LICENSED MATERIAL -
PROPERTY OF IBM
processin~ __~________________
.lbiut
I
1
DPUJCIOE:
r.:..:.:-:-:-:-__, --------->
Ofl I
I
I
I
I
l..:!..:.;:..-----I
-;-LI
~
If error caused by tape
eDd:-at-reel," set EO\'
.b~i t.Cb.,
11a 9, and
-------> [§]
I@]
JeT
I ~,.:,~;: -:'i':'"~S-O-f- ,li --,1-'---------> 10)
;":1
jour nul
l
_
I
I
1/0 error
re~urn
It journal aoes not
requE:tst retry
I
!
!I
r~set
It so and retry was just
azzazza~>
L~>
L,
1 Of .
~
JCT
Journal.
CT:J~
llli
status
JCT
[ Journal
status
I
~>[61
atteDipted on last output
(i.e .. , recursion)
~
~AGr.
Output
~>m
&titrll to a new output
vol Dille by issuing
appropriate DP8JC macros.
A. It switcb unsuccessful (~\.0
----------> §
]'1
juurnal status tin 1/0
error retry' .t.o trap
l???l..?.!llZ
Set·
reeu Ision, then return
}'
m ,/>
JeT
l
iJCTJS
Journal
status
I
~ "ri tt,;- BCssBlJe to .aster
terlllinal aDd operator
con sale
~ Issue PIt£.EflAlJIl for .essage"
are4
Juurnul w't.put .11\) J:.rror I'rocessillY
i
1
HIl'UPIAT 1.1 Dia.gra _ - 1.,.,..Q.2-o 1
lioutine
lio1.tt::,;
IB
I
I
Ei
I
~
------- ----Label
Notes
Routine
A€:t.u.rn is to ga10lint! DPH.J('P, to
t.b~
het
Lobel
~-----
I
-----
.tOt!CL.LOD vhl.Cb pertor.s
output. 1/0
?~~~iLl.
cOllpl~tiol.l.
(und~r
I
tallk. TeAs only) .•
.Dyte JCt'J',r
set Lu
J~'1'JSI\
for
JC20
journalti 91i::!Derated v1th
.JtlUd.uJ'T=lU!t8t in ,JeT •
{§
I
.byte JCl'JS nit. JCTJCIOB is
zer~d aft.er every succas:u: U.1
Journa.J. output, ""d is onJoY St!t
00 idter in this l'tog:r CL• (see
:;;t'4? ~) to cauSI;! 1/0 retry by
1J1'bJC&, ..
@l
I
(B
@J
is: to 3d.inline DPI:fJCI', to
.III;!UJl:D
l.b~ ::£t:c~~on .which
perto.t.:I
0\1 'tp\I1. 1/4 cfo)apl.etioD (undel.
)~Ul:nal
hnt.l:!r
taak TCAs onJ.y).
l.b.i.~
routi.ne if output I/U
erIOI: cODtioiderea P-tI:IUlDent.
KemCl~e
101: •• 1.
is:
Drd'~3A
Cll.:S/yS Journal DO loDgel
-
1
JC100
I
JCUO
ava;i.ldDJ.e - output 1./0 error.
Journal Ultput I/O Ht'roJ:
406
Proce~siDIJ
HUOftAr 1.1 Diagrao -
CICS/OS/VS Program Logic:
1.9 •••• -01
Description
LICENSED MATERIAL -- PROPERTY OF IBM
lal-ut
Processing
PAGE
output
:2 Of
If j wx:nal type is
l,;BUCUL, linK to
joux:nalin9 shutdown
tx:a D tient, then tex:aina te
CIC S;VS
~ Else issue DPHJC .acro to
ensu le journal lett closed
Heset status of
journal
JeT
'JCTDAECB
I
buf fer
dvail RCb
JCT
• Jl.:TCILA
Current
,--I-------->
Post (111 waiting
u~er
tasks
l/tl LEC.
JCTlIILA
Next 1/0
JCTBFr;CH
I
Buffer
t~~Sh~d
JCTJTTA
Journal
task TCA
I
l.EeS
L_______
JCTXTTA
ExclusiV"e
@]
>
I
'rc.A
task
Rtde g.se any logical Beas
with zero use count
IJCSJS
JourDdl
status
~ Terminate task by means of
fC-AjjEHD
..:.tourDa~
CUtput I/O .Error Processl.ng
I
Kotes
[9
HIPOMAT 1.1 uiagOlm -
R~utine
I
Label.
----
Ref
lotes
---
JC'n:J.J...l and JCTIIl.l.l point a.t
A.lisociatea with CU:t::t:ent
DIeck (waich Ulcurred th~ I/O
error) , "Dd Dex t block to be
written to tb.e, Journal.
J,,~f.lIs
@]
It use count is not zero the
Journal task's CICS/lS
COOt
I- - I 1I- ,I
I
.
I
'auhoe L4bel
I
I
het
I I II
JC290
LEas is posted vith I/O error.
[B
1.9 .. it.:t 02
1.9.3.
I
•
I
lb~M~
is lJCA
I
\
1
I
I
.Jouaal OIIt.pat 1,10 &rror ProceSS1.Dg
Section 2:
Method of Operation
I
I
I
II
\
I1 I
!I I
HIPOftAT 1.1 Dl.agr4_ -
1.!.I.4 .. .t-O.i
407
LICENSED MATERIAL -
PROPERTY OF IBM
I.,..
output
ProcesSing
PAGB
i
Irel IIllero
:L-J\
····1 >
l
DPBJCP:
I
--l
1
or
2
f;;'I'> 88cro-ae gues-t--l
L-.il' pxocess1ng
iaaress Je'!'
U-d-J
analyze J:eque'~9.,i
==::--'---i----------.. > ~
I
-----------)I
t
OD. Open/Close requ~st,
o.,t for co.pleUon if
I
I
error retry
~. ~et
error return code i f m77m7777 I !'
status being cbanged or
-------, l.!, I>
another task has esclasiye
control
JC~
I
ReJ:t
L
~~g~al
~::;:-
Start I/O
fro.
Out-af-Line !aero Requeat ProcassiD.g'
Rotes
~ Journal is 1n cbange status 1£
JCA
"CAJCB~
,Journal
retarn
code
In1. tia ~e. I/O oper~ tieD if
close r.equest fEO. _Ilcro
and bllffer contains data
to be written
r.J==CT='sa=LP=-=A--' ---- -----------)
ada-tess- - "
)\
I/r7ZZZZ?J2ZZZ?1.\/
L___~
Bou tine
B.f
Label
-- --- ---
.-J
Diagraa - 1.9.5-01
F------
pr09rll.I Control link is issue:!
to the fcllov1Dg' tasks: DL'BJCC,
DPBJCO, DPRJCIOB and D"SJCBOV_
I
Journal :1s in transfer-control
lode if the file 1s closed by a
task or SIP bas control during
I
open for VOLUIIE=PIBSt.
I
I
I
IjOS-JOI
I
I I
!
I
I
I
I I
I I
Oat-of-Li•• aaCEO Requeat Processing
408
III
I
I
I
I
·CICS/OS/VS Program Logic:
D.1agra. -. 1.9.5-01
Description
LICENSED MATERIAL -- PROPERTY OF IBM
Input
\-----1
I
Jr~-:JJ-------------J
\
I
I'
fObl
t.:::J
JCTEfBCB
Buf~r
flusbed
II
I
\
I
Processing
Wait until buffer Hosbed
L:;CB
--
I\
!\
!,
II
,
1@1
I
I
I'
I
I'
,'I
.··1 ) ~-----~
Close Program
I~'
\,·
1
<
\r-1/
DPHJCC
\
iIgtg~f ~~~~:!iDjJ~
1.9.5.2.
I~
Il~
I
\
I
\
2 0,"
2
l
I
!
I
I
I,
I
IrJOQrnal.lnput
I
,
II
I!
I
I
',--,1
,,---1n~ut GnJ'
I
I
• and
1.9_~ ••
I
\
I!
I
II
I1
!
I!
L __~
L ___
-1
Out-of-Ll..ne Plaero Regueat Processing
Notes
I Routinel
---. ...- - - -
II Notes
--1-- - - - - 1 1 - - -
I
I
Label
I
I
I'
,
Ref
II
I II
II I
I\\
I
I I
I
!l
II
I
II
II\\
I'
I
1\
I
I
1\
1\
I
II
I
Out-of-L1De Sacro Bequeat ProcessiDg'
Section 2:
I
!
I
~
I
DfHJCI
Handle
I~a~:~
NOT
I
I
I I
!
,
.\
\
PA.GE
OUtFut
I
Method of Operation
11
LJ~___.
L_-----::--.
J
I RQutinel Label
,
,
, I
I
I
I
I
I
I
,
I
I
Diagrall - 1.9.5-02
-------------.
I Ref
1----1---,
I
I
!
I
I
I
I
I
I I I
,
,
1
I I
I
I
I
I
I
!
I
I
I
I
I
I
!
1
I
'
I
I l
I
I
I
I
I
,
I
I
I! I!~I
D1agra. - 1.9.5-02
409
LICENSED MATERIAL -- PROPERTY OF IBM
Input
I
processing
r----------,I:;:t;
/ fft--,
t:··· 1\>"nFHJCO:
~lJJc:ouJrSn'l-' -i,\I------:::!~>1 ~ Valid.te
I
I'
i
I
, ,
,
I
!
,1
OCA!
rJrnRi- l -i -'
~X8~est
I
\
II
I
I
~~-jl
@]
I
program, get stOragE for
jourD.a~
J C1
~~~~~'l
\
t!!:~-.l
\
II
G~JSIO' -LI7 •l-__________ I
,
I JCT lion
\
\1/0 _ _ _ /
Ig~mon-
I
'
I
t~~
,
JCA
I
'I
J : : -______
\
,
I
I
II
/
be 1n
ad3res~ __
JeTBEl
BUffer
/ address end
Return if tape. For disk,
~ handle VOLUf!E=PIRS't,
r
'-=-IJCTBiiA-]
Buffer
buffer and
reguest
1
,
>/~ Open output reguest,
Istatus fer'
4
JCT
-~-----"
-"--I- - - , 1
1n1tl.a11ze buffer pointers j'
I
I OF
~''F'm'''~ >I
I f initl.ted by Kick-eff
U---1-1..I/ l ___________>1II[-.031
I
I
open request,
error code 1£ 1DV8 lid
~~---.l
'-----l
/
PAGE
Out put
I
restore output positioninlzzzzm~l~'
inferllBt10n and reset DrF I
I~~(~>
I
JCTITTA XC
Task TCA
address
-----JCTJS
I
Journal
status
JCT
1£ journal used for input
before
fjC;:~l-i-l-- . . -.. --- .. --> ~ Validate volume reqUEst
,
lH~~e~t
r
r~~I~i:
sequence
I
(
I
I
I_r----------->I§J
1I
I
extent if ve are on the
.:~~_
right extent. Otherwise
JCTEO:ame
handle as VOLOI'IE=NEJ'I
lm~i~\I I
!
I
IL _______
I
1
III
For VOL,"B=cORRENT cn
d1Sk, go to open the
__________
1
-.l
L~ J
D1a.graa"
Journal Open Request
r;:-es----------------I'-;::~:/::~
1.9.5.. 1-01
I Ref -1 r~:--------------------~:::G::--:~
I -:~~-~~~-;=~-I---I~ -1\1---------------1---1---1--I
,
,
I 1
@]
I
1
is not closed. If 1D1h.ted by
KloCk-off program, type aust be
open and VOLO"!=PIBST
1
/
/
~,
"
\
II,
II
"\',
II
I"@)ForVOLO"E=FIRST,selectthe!;'I"JC'OO'I:
'/I
lIore recently used eztet\t At
;
tbis tille, Journal works 1B
transfer control mode ...
IS
1·
\
If journal
.a~
in up.t oode a
VOL=NEXT request is reset .nd
VOL=CORUHT is forced.
!
~ ~f
I
j/
LC200
I;
II
1'\ \
\
I
/
/
,
/'
/
/
/
I"I'
I
/
I
I!
/
I
'
II
/',1
@)validTel ..ere qu e s t s a r e : N B l T ' I I J 2 I o I 1 \ /
,
I
I : : .: : .,: :.: : : ,. I I
I
I
j
I
I' j '
II
!'
Ij
I
PIRST, and CORBENT.
I
it is taFe Journal er EOV
I
IL
Journal open Request
410
I
!JC215
\1' \1'
II
'/
I
l
I I
I
I
I
- ' ' - - - ' ' ' ' ' : ' - - - " ' L--------------------n-,-.-g-ra-.-:-1:9.'s:;:O;
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
r---~~-l
rlr@:-]€::~~--------------I
------j---l
rJCTVCD
I,
I
07
¥C~~:-
r;;-]
PCtlBiiAi:~ ---------------> L~~
~~t~~ce
l:;CnBii--
-1-----------
I last bloCK
l .,rl.~ten
------~
JCl'
:=~l
I Creatl.on
date
Il~~
Go to open file
l
1-----I
1
I1
I
1
\
I
II
I
1
[ ;;, '> [,71
\,
I
1
E'or VO[,(JI'IE=FIRST,
-----..1\
JerV SN
1
1\
I
--, I
------,1 [~]
I
to previous
I
I
rJCTvCO--
current positioning data
1
I
\
It disk journal, move
I
Ir;-]
I
ini tialize data for '9;01ullle
10. Then go to open i f
volume
se';l,uence
I nUllioer
tape journal
l:iClaLKNl~~~~ __ J
r---------->
J C1.h
J
, Hock
STiii~ --r:;CWi.
----I JCJ..RtATE
Da ta alack
I------1
wr lotteD
JCJ..RIltlE
\Ul!le block.
l~=:::~--1
@]
)
JCLR1BW
----) 0
A
rI -------]I
Last IJlOCk
J
L ____________
JOllrnal. open Nequest
_
ENU on iOL[lPlE=FIRST
processing and open the
more recently used" disk
I
1i.ecord 10
I Wrl.tteD
I
-
JeT
,
7777777777777 ~' >
-----------) ~8 ] If tape journal,
volume 10 data
l~~~_
L ______ _
:~::k 1:u:~:r o:::u!O f :~€
2 0"11
----------------------------1
-
~"u
,se'::l.uence
I
For VOLUltE=NEXT, :r::eset
PAGE
cutpU1:
I
exten t
I
I
II
I
I
I
I
I
l______________________J
II
______________________________1
Dia'3ram -
1.S.S.1-C2
_~:.es
_~==~=======~~== ~::~::~~~:=~:~]Ir~~~:===~~~=~~~~===-~~~~==' _::~~:i~~~~~~T::~~~ll
@]
I
Par a fll.p-tlop type of dl.sk
Journal, slla~ voluille sequence
nUml:er and tbe dence extent
I
1
data~
@]
It data aas Ctld.D:led, the volume
JC312
nUIl£er is reset.
It SIP read this Journal, tree
butter st.ora~e ana reset buffer
YO.L.UtlE=CUBRENl i f disk and as
lot tape.
I
I
I
I
I
I
II
Tile more recently used extent is
reco;nized D'J toe date and tillie
II
in the label tecord of relative
I
::a::t::::dr:;o::t:::· h:~n::;~r
I
I
I
I
I
DeeD used.
I
L__________________I__L__J
Journal
,
I I
pointer. Inen nanale it as
I
1
I I
for ta!-,e, tbe volume sequence
I
J
! I
I
creation da't.e .is updated and,
VOLUMi;=N~.x:i
,
I
I
I I
______________________________________________________ -.I
O~en Re~uest
Section 2:
Method of Operation
Diagram - 1.S.5.1-C2
411
LICENSED MATERIAL -
PROPERTY OF IBM
:lDput
froeessiDg
l,OUDUO
____>fil[i' ____> @]
J[:UiD~
S!t:rnate
[-U
JCl.B
il:~:LKH
Du.beE
I
l:J:S
@j
[~~:!¥t
>J[~__
~r::?
______________)
c;JpsD/Close OS subtask.
lakeD Bahtaslt hy postl1!-9
reguest ECa and wait
ffil;j\ @]
-,1
f~r
_..... ,
~I
'
2!ZZ!Z22221~
~
~
/
~ ('/ >
//
--
.'
JCT
I
JCTBDPBl
Prev10us
last block
address
extent
-----
I,
JC'1"BDPB'l
Previous
extent
last hlock
track
balance
---JC"l'C!D
I
data
alo ••• otherwise b •• dl.
second request
~ Elg on open/Close List ana
3 ""
Current
Retur. if VOLOftB'PlRST,
store infara.tioD for.
V
1
----~I
~]
14 Sa. . poiuters if fouud,
DBQ fro. VOLOftBaPlRST and
close extent
CSA
[
,~_. ,_" -'I ~,
-----1
last track output ,on this
anent
r.J[i1
---->~
~ ---->
----l
PAGI
output
!
JCT
JCTBLKR
Block
nuaber
-----JC'rLOW
Last block
written
JCOCL
address
JCOCJCiiJ
----JCOCJCTA
address
----JCI
JC'TT!
JCOCDBCB
Done BCD
JCT
JCT~S ~
Journal
status
JCTrnAiC
task
address
- - - - '-Dia;rn-:-':9:S:;:03
.--------_._---,---------,--- .-"
------------------l
Hates
Bo atiDe La tel
Ref
._------ ---- ---- ---- ~:--------------- -::~~: -~~:~-- -::~--I
@]
l'be for.at record one written hy
the Journal Foraatting pro;ram
guides to the track which
contains the 18 test written
record.
JCSOO
~
If an 110 error occurs daring-
JCS80
Open or r'eading or the extent is
full. the approEria~ flag is
tlll::ned 0.0 aad ccmtrol is
I
returned atter closing tbe
ezteDt.
@]
.If as subtask 1s detached,
cODtrol is returned with 1./0
error ·flag on. OS suhtask
returns control hl' post1n; the
• dODe l ECB.
[!!]
.If request 1s issued hJ the
.kick-off prograa. tbe journal
task is resu..eel hefore.
.:Iooraa! Open B_gaest
412
- ----
_.. ,. D18gr •• -
CICS/OS/VS Program Logic:
1.9.5.1-03
Description
LICENSED MATERIAL -- PROPERTY OP IBM
JCT
PAGE
Output
Processing
open input request: If
Innln))m('>
journal vas in outpu.t a o d e - - - - - - - /
before, save output
'OP
4
JCT
JCTJSIO
Status for
I~
intonation and set up JeT
and LCD
Clear input pointers and
... alidate voluae I'equest
JCT
JCTIILBA
Last
record
Inpu t VOLOftE=Ii'EXT is
JCT£DPEA
Previous
extent
block a.ddr
JCTIXBBI
Hoc;:k
han d led nov in the saae
vay as output poio t 7
~a~ss
Jcr.eDPBT
JCTIXBEl
Previous
extent
track
For
JCTI.lOPI
Output
-.,-
curr~Dt.
pos~tioD-
poio t
JCTLBi
Last block
written
set
POI'
nUJIbt!I'
read back.ward for tape
VOLOftE=CIlRBEYT,
------>
data
~
I
aDl-al77nn71~1
open extent
IJCTEDH
file naae
suffix
JCTAED
JCTCDCBl
CUrrent
DCB
7
Volulle
sequence
JCT
Then open as
VOL 0 I'l£=YEXT
Ulg info
Jerv S~
lllternate
extent
address
tOLUft!=PBEYIOUS set.
read backward for tape.
POI'. disk, .ake previoD.s
vol u.e infor.atioD to
balance
JCT
Block end
POI' disk. restore current 7~\.fC1
output. infor.atioD and
-~\/ L.::J
~
~!,l'
!!.'/>
JCTTRBlL
Track
balance
JCT
sel.ect the right extent ..
swap extent infor.ation if
JCT
nece ssary .. Then open
extent
.Journal
~en
Bequest
BIPOftAT 1.1 Diagraa -
Motes
@I
Dontine
Label
Ref
---- ---
lotes
Boutine
Label.
1.9.5.1-0'
Ref
---- ---
The first byte of the current
Deb address contains the OS Open.
indicator.
I
II
Journal C4:len Request
Section 2:
BrpOBI'I' 1 .. 1 DiagDl. -
Method of Operation
1 .. ' .. 5.1-0.
413
LICENSED MATERIAL -- PROPERTY OF IBM
::"ni \.It
'1'
I
\
Processin::..9__________
', 1.9.'.1
1.9.4.1
1
,.---
1.9.4.~
':L...\
L:.:.:·:·V
DFHJCC:
[011
~
Val idate journcl.l status
1 OF
2
)
JCA
lZZZZZZZZLaZ\ />
Set appropriate close
option for tape according
I .
I
JCT
zn)z/nzz~~\>
JCTC~D&A
Current
-"-\/
to the para.meter LEAVE
C'SA
PAGt
0...
· u_t.:.p_u_t_ _ _ _ _ _ _ _ _ _ _--,
DCB
address
EHQ on ol'en/Close List for
sl.nCjle thread
I
Prav ide ddta in Open/Close
~rJ/
~
~
~
I
JCOCL
JCOCJCAA
Jc.:A
Address
JCOCJCTA
JeTTE
Address
777777777711
L15t aDd waken os subtask - - - - - - - - by posting 'Request' ECB
/~\>
\,--,/
OS subtask
DPHJCOPCP
~~g~:st i1e in os
I
I
1.9.5.3
[g
blotes
B
fro. Open/Close List.
L._____-'
Journal. UOhe hequest
I
lJEQ
I
Routue \ Label
----
I--- I
Ref
Clost: option ior disk and for
rew/unl .is I t aU': i1 tApe
to be left on drJ.. ye X 'a.)' .. I'ape
in input .ode is always rewound
1···ti··I~~1
I
I
j
I
options are' set in oyte zero of
Dl:ll ad.drel$s.
@J
II
Journal Close ....equest
414
I
I
I
It: OS 5ubtaSit is detached.
return V.l.th I/O-error code.
I
I
I
1.9.!t .. 2-01
tG}e
ana uu..i.oaded .. The IlS close
I
Notes
HIPOIIfAT 1.1 Diagrd.. -
I
I
I
I
I
I
HIPOnA1' 1 .. 1 D.l.agraa -
CICS/OS/VS Program Logic:
1 .. 9.5.2-01
Description
LICENSED MATERIAL -- PROPERTY OF IBM
~~--------------l
J~[
!
~f.~~f-J
retu rn
---------------)
------------------------l
processing
I
@JIfclosevas successful,
-----
2
n~
z~zzzzzzmZ)I'>11 JI~J~oTu~Sna-l- -l
set indicator' not open I l L
status
and 'XC-mode' and return
JCTXTTAXC
cod.e
!
I
I
I
1
TCA
rn-]
J eI'
JCTBiiCB~---------------> L~
[ ~~~f~~l:le
I?~G'E
[----------------------------1
output
ECI::I
If close failed, Fast
I
~:~~_-.J
I
:
I
buffer available. EeB if
Dot IC-Iode and net error
1
II
recovery but anyone
waiting on it. Then return
II
II
I
I
II
II
I
I
I
,I
,I
I,
I
I
L_______________________________ JI
I
Jour Ilal Close Reyuest
;otes -----------------';:::::t-:~:~-I::~-l f-~:~::----------------------------'-::~::I-::~:~--l-:::--1
f------------------- ------ ----- -- -----------------------I-------'--------j------\
.
I
I I I
I
I
I
i
I
I
I
I
I
I
I
I
I
I
I
l-
I
I
I II
II !
I
I
I
----------------------------
Journal Close Rel:l.uest
Section 2:
Method of Operation
I
II I
I
I
I
_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ .1
Dia3raftl -
l.S.'5.2-C2
415
LICENSED MATERIAL -- PROPERTY OF IBM
"~,,~,~,.~t
_______________________,
~9
C!;'A
{c~AJCNA 1
I
JCP start
. address
II
-
.----,
~
f02l
0---->
I JCT1' E
~ess
I
and return to terlllinate
r--------->
1 .-.
~
!-1
r~t~CJCAA i-I
~~\
li~i~~t.
I
1--'
I
I
I extent
Jell..
LE~~~"st
II~
On n orillal request,
get
add r essa.ble to JC1 and
I
JCA .. Then validate reguest
zzzzzzzzzzm~
dev ice address from
supe rvisor
> fAt
LJ
I
I
00 0 len request, get
\
ZZZZZZZZZZZZZI/
bD-entry in TIOT in
1
'IJ-c-.-'r-rtlc---'t
rype
I
lr03l
---->1--'
I
1.,
I
I-I->~
Iddt.
If culled fI-om Shutdown
good OS comvletion COd8
I-~-> l:.I
r,::
Jre_'I.,,',,-----,.
At initial entz:y, get
L:J prog ram to termina te, set
I
[J.:OC JeT A
'+
EeB, aDd vait for next
reg u est
I,
!
I~tSU ~st
1 OF
add ressable to Open/Close
List, post Ireguest done'
U
IJWCIlECB
f'AGE
DFllJOCP:
~/
------->
I I
JCOCL
Output
I
I: L-.\
r
__________________--,
I
1 1.'.5.:'
1.9.~.1
~ Tape open output request:
I
>
I
write Nessagc to operator
to get tape
,
Dloun~eda
Then
open tile, notify operator
of successful open, and
ret urn
I
I
0t>en/Clo~e
JuUrIld.l..
,-t
I
L._ _
J
Sub task
HIPOIUT 1 .. 1 Diagram -
lat;- .. !>.3-01
-----:---,
1.ul.(:':>
I r~
Label
------------
: l~
l.IF'fUCuCP works it!:> OS sUDtd.sk.
I
Cont.I:ol
t
• n.qu\!st' fa.:u and ret.urned "ia
I
'riClh~'
passed t.o it via the
~s
r.;Cn.
I
I (~
1
I
I
I
II r--.
I
~
II[§]
I
11. cu..Lled to t.eraindte
oj
Routinel~l~l
I Rout~nel
R~ot~s
1----1- --------1
ollrna.l.iny-, all bytes of the
.. (;:.l"l'f; dddress in tne
Op~n/t.:lose
L.l.& are set to X'P P'
~
~t
t.ile d..::vice cau't De touUd,
tb..:: o .. en is ..Lssuea to get the
el: lor message.
11 upeu fdils, control
ct:wrn~d
~s
I
I
"'"JCOCP
I
L<~
I
I","
I
IIII
II1/
OPERTN
with .L/u e.rL-or
inuicdtion
a
I
I
I
L--~~~~--------~--~--~~~------------~~~~~~~~7.
Open/Close subt.d.sk
HIPOHAT 1.1
J\J~nQ.l
416
D~a9ra.
CICS/OS/VS Program Logic:
1.9.5.3-01
Description
LICENSED MATERIAL -- PROPERTY OF IBM
Processin 9. _ _ _ _ _ _ _ _ _ _ .
Output
PA~E
2 OP
I
I~
rI
Tape open input request:
Set uj.J the operator
.esso\je for the
appr upI' iate volume
requt:;st ..
Is~ue
.eSf:.dge and
..,ai t .for operator reply
JCA
Set
if
I
I
I
I
I
i
a
JCTBLKd
.td.oc.K.
i-I
'I
JDCcTaCOCQA
1--,1---------> (§
LI"_U_"_",,_r_--,I
I
I
t.H":TL~
l
Op~D
Disk
input. regucst.:
open extent dnd return if
Vall.date reguest 101'
posi tioninq and set up
registers for aSAft POINT,
Lci!?t ulOCK.1
wr~tten
\
link to uSA" for POINT and
retu I'n
I
I'JC~JT
Jour
1'n"
11,;1.1
I 11---------> ~
I,_UI
J_C_'_-:-_-,
I
I
/
1
I
I
L.:._ _ _J
\
1
Disk open output request:
set up .eosages either
priaax:y or secondary
extent. If 'OLUlIE=NEIT and
'pau:;el fl.ag is on, write
aessaye to get ollerator
repl y when ext~nt is
L'._liobl_e_ _
l
lI~n/Cl.ost!
Jc.d.:ro .. l
Su bt.ask
HIPOI"IAT 1.1 Diagra.a -
rlMOt.~b
18 Volu.~
I~I~
I
spec1.tic.J.tion can .CIe:
---'i
hef
No.!-es
JC1S0
b1' .L:.Cll·"lC l.Dput.
1
I
tao
pO~l..tionin9
tlO.lnts to block
1,---,
I
Il~
..
rOjrd.1I
if
volu.~
current
!
1.9.~.3-02
II -I
II- - I- - I
I
Bout1ne I Label
)-----------
l.Ut.hEIH, _eX"f, PREVIOUS, or
J~
Otherwise
no pu;;;itioniny Deeded
dddr~.:is
1
IDO· ..
ope n tile ana return
.!.-J-------->
Jl:'!'
error return code it
reply is
Bot
I
JC~30
DUa.l)er one.
loops 00 the
rCi·1y ~s not YE'.
lIIessd.~'==
if
IJC320
I
I
I
II
I
,I
r
I
II
II
I
I
I
I
L~~_--,---~IJ~._----===-o-:--:--,--~l
uo.>trll.iiol
~D/Clo.sl;!
SULtask.
Section 2:
Method of Operation
HIPO!llT 1 .. 1 Diagra. -
1.9.5.3-02
417
LICENSED MATERIAL -
PROPERTY OF IBM
______________________
:n~ut
Processing
JCT
(22J
JC'l'LLlW
l.oJst block
PAbE
Output
3 OF
open the extent and issue
aessage - ertent nov open
for output
written
JCTCiiCbl
Current
DCE
address
(§
On request for posit.i.oning
JCTBLKY
set up registers and link
DU.ber
to 1J SAt! for POINT
Block
~ Issu€' track balance SVC
JCA
and
S
--->0
retllrn
Close reguest: Get new
dey ia! address if
JeT
•
JCTVCl:>
.-------.
L.reatJ,on
date
--./
JCTVSoi
Sequence
I-l
--------->
JeT
r
-- /
JCTTHbAL
Track
Tape close output: If
LEAVE="IES requested, issue
aessage that file closed
but st ill load ed
L
nuabar
G
">
Disk close: Close current
exte ot and return
/
JCT
balanc~
I
I
1
0---> f15l
.,17777.",'77'7
.
I
heconfiguratioD'
by os 'Dfnam~c Devl.ce
--'Il
~\
sVitchel-zz.ZZZW21.1~~1
..
==~
.
~~!.!..!..l/>
-------> Q2]
If t <1pe is unloaded, a
lIess dge is issued to the
~
operator Which contains
label infor.ation of that
tape file
L._ __
"'-1
I
l[9
---------1---- -
I hlo~t.e~
I.
r
l'(,I1JiT is Dot J.S!:>u.ed if
VO.Ll.lft~=CU&aElIT aDd olock
nua.o~r
I~ ::~::::::::~~~~ ~~::
I
Boutine
Label
Ref
Hotes
LH"'r::p::O:::.-:-A=-.-'l=-.-:l:-::U-,-a9 ta It
-
Boutinel Label
1.9. ~. 3-0 J
I
ket
.
I
1------------1-- --1-,
POIIiTtiT
,"u_
"
I
III
tcdJ.ed..
1
I
I
I
I
I
1
I
I~~~~--~I--~~I_~I~________~I~~I~I~
,",UW(UlJ.
418
lpen/Clo::oe SUbt4Sk
Hlr-OrlAT 1.1 Diagrda _ 1.9.~.3-0J
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
Proc",ssing
lul,u\.
r-
r--------------------------
I
I
I
I
I
I
I
(g
"ut
PAbP
Output
Clost! and returD
Tape close input: A
aessaye wbich contains
ld.bel iDt.orlllation of the
last label record read is
issu t=d to thtt operator
If no rocord nas been read
froll loa input tape, tne
clos l.Dg lIes~age contains
the jnformation that the
tape bas. never been used
C105(~
aDd
file, unload tape,
return
I
I
I
L_____-'
I
-:-l
Label
I·
Ref 1
--1-- -I
I .atoutint!
kute.l:i
I
Hotes
HIPO"AT 1.1 Di09"'. -
1.~.~.3-Q~
I"'-U-",- - -I"1I
CoM'
I
1
I
I-
II
I
I
I
I
.JoutD.l
~D/Close
Section 2:
Subtask
I
Method of Operation
I
RIPOIIAT 1.1 D109""
-
I
1.9.~.3-0~
419
LICENSED MATERIAL -- PROPERTY OF IBM
-------------11.
IJllJU t
III
Proc essin ~
g., r:l~ \
L::::~
J eT
1----------->
Address
,~~~~-
.alldate input request
1
l
---
----
Jf::---j---
r---------->
J
I
I
JeT
z~~
r Buffer
• .,in
-
't
~~'
I
>
~~ Get-backward request:
Point to the next record
-- I
7777777777771
---------- I
starting at the end of the
block. All other handle in
the lIay as GETF
t~~~~~s
l filr~
I
",
I
[-;1
dCtI.KLR&
Ee;Jin
Aadress
l ------
Provide pointers of next ZZIZZ!ZZZZ~!)'>
record for user in Je". If
~ ~/
las t record of block
~
next block
Last
-----
1
Get-forward rEquest:
accessed, link to read
i3a~~~s
:iCuiiiiAblocJt End
AIldress -
I
7777777777777)\
-------------\ I
rn?l
l~
t~:~~_
JCrz,xLRA
r -----~
Last
I
/)
'I/a Status
~pHAiC
1 Ol!"
-----------------------------,
r-:::=--------------------l
rJCNSIO~---------------> §]
II
PAGE
output
I----------->
~
"II
read on disk or tape. Par
~
a disJt read in backward
mode, a IlSAPI POINT is
I ('
UI>
.
I**~iA-I'----------->1 ros]
t::
DCB
/
-
\ ~~~~_
JCTB.F.A
Buffer End
Current
I J'
~/\ /
[00]
-- If a nev block has been
read, set up DCB for BSA"
-~---
l~~~~~~-J
jl
r~ad
CiAii;;TAl
~-------User Data
Addl'l'!sS
.
JCALDATA
Data
:~~!:~_-.l
I
!
JCT
fJCTIiLRi-l
Last
~@cord
I
l~~~~-.l
I
ij
JCA
CiAiiiTi-i
Dser Dai-.8
Address
-------JCALDATA
Oat~
L _ _ _ _ _ -.l
Len:rth
JCT
1
JcTiiLRi-Last
[I1ecord
J
~~~~::~--
per formed before eacb
read.
Lini: to ESAPI for
wait for completicn
~
JC~
and
JC.r
r~uCA--l J
L___________________________J
l~~~~-.l
--------------
1
_____________________________ .1
Journal Input Re'luest
Dia'Jram -
1.9.5. Q-01
r---------------------------------------~----------l
Hotes
RoutinE!
Control is returned with EOF
Label
JC3CO
Ref
I
Notes
I lIoutineJ
tatel.
I ~~t
------------------------ ------1-------1------ i
indicator on it in back ward Dode
blocJt one .bas been accessed.
I
II
II
I
I
II III !II
POINT 1S not issued if first
access.
I I I
II I
I
I.
I
I
I
I I I
I
I
L __________________I____________J
_________________________=
.Journal Input
420
Be~uest
I
___
I
!
1
L ______ L
___ J!
01agra. -
CICS/OS/VS Program Logic:
I
1~9.5.q-01
Description
LICENSED MATERIAL -- PROPERTY OF IBM
--------------------1
processing
Input
1----------------------------1
~~iaLL--1 J!_______
I
'I [~ J
------> I
Il_f:_~~_t~_ .
--
J-R
i
<~ciiLi--J --,-
~~EL
~n ~:~:~:l~:e e~~~::
Irjg~lifD- --1-I -----------} [~~J
L~:~___ I
I
~~-=~i~~R~~~rt
I
JeT
I
I
rt~ft~~-l--!-
J:-----
r,;-
lbeeord RO.j
I
rJCARST~;;;;l--I.:::.:.:-:::'~
r--------->ll~~J
I~5tm
creatiOUj II
I\~*SN-lSe:1 No.
I
I
~hu
I
If:::') I
1/0 .t ailed.
JCLR
I
II
'>
-------------11
code if wrcng record or
J
I
r€~uest:
NOrE-InFut
::I:::::=-_J
and
'Ihe
I,.
·f'~ Jc.C- -l
I,:
~eturn
"
t~~~~ _____ J
I'
.lCt
[JOT1Xii;;;:--1
I
Im~~~A--1
I,
!, ~~~ii~~i--l
I
~ZZ~!ZZZZml
Ijl
are taken from the label
I·./~II·
t"€cord of the last block
I
,I
read and moved to the JCA.
I/~ >
Then control is returned.
-- I
validate
I
l~~~:::~ ___J
!
JCA
'II
fJ'cALRN----l
!
\
I~~~~~~~~~:\
IJCAFST nunl
I
I~ I\' I
li~~~~~~~
:~~~ ____J
!
I
~-Jc
-c'-'-J-CR-c---1
,
.
I,
I
~
II
I
,I
I*:~~rd
I
Z?12T!ZT!.~7!~1
I
~I
II
I
o.
(EIOCk End
data for the NOTE request
::::: :::~::~:
2
1--------------------------------1
Check all records of bloek7l77777777777!
for expected journal
format. Set error return
PP.f;E
Output.
>
-- /
'
1
I
l~~~~: __ J
,
1
o
-----
I
I
r~
lA
I
I
!
f"i'Ol
---->1 L_'
I
I
_____________________J
Foc tape, multiple reads
I
issued to get to the
"
,I~
requested bloet:. ror disk,
the BSAf1 POINT is issued
tor positioning bEfore the
blocK is read.
l_____________________________
I
I
L _______________________________J
Journal Input Reguest
Dia';Jram -
'-------------------------------------1
Tne
re~uest
'------------------------------~-----------------------1
data are compared
a';Jainst the afl'W rriate data of
t(1e lanel
1.9.S.1I-02
reCOCQ.
I
I
I
I
I
I
I
I
II
I
I
I
i
1
,
I
I I
I
I
,I
I
I
I
I
:
,
,I
II
,
I
I'
I
I
I
I
I
II
I
"
II
i
I
,
' I I I
L_____________________l ____l _______L_ _J L__________________________________J_ _ _ _ l_ _ _ _ l_ _ _ l
Journal Inllut £l.eguest
Section 2:
Method of Operation
- - - --
Diagram -
l.oe;.5.1I-C2
421
LICENSED MATERIAL -.- PROPERTY OF IBM
i
ID~_t
________________ _
p r~!~~~~
PAGE
______________________ _
3 011
O~~~~-----------------------l
i
J~~H~~KN =j~l~~~K~~-~
~~i~~aA-CurJ;ent
DeB
Address
l~~*--~---->0
(!l---->@]
Scan bleck tc find the
y an te d record ana
--------------',
-----------,/
Last
CTIiLiii-i
ecor"
Addrl!ss
------
~
in1 tialize the JC'I
Last BlOCK
.leTt'fN
.r1tten
to'1 1 ca1
Record
-----
-----------------
~~~-----'
JCB
jChLiiii-j ---->
fLogical
liecoz:d
Bumber
l
:iciLi--Secord
~~!~-
[!~] Return centrel
f8l
L:.J
.
I
I
I
I
I
I
·
l--------------------~
. ---.1
D1a1ralll .. , .9.5.4-0'3
Notes
~ CODtrol is retutDed lIith error
80 utiDe
La tel
Ref
-;~:----------------------l-;:~~::i-i:~:i-.---::;--l
--:--------~--
------1------- -----1
indicator OD it .bJ.ock nUlDoer is
@)
,
I
Qot found.
!
Coutrol is retu.tDed with error
indicator OD if Diock nuaDer is
I
I
I
I
Dot found.
II
1
I
!
L___________________
Journal Input aeguest
422
I
I
------------------------:-=~~:~~Di8gr"-:-;:~:;:ii:o~
CICS/OS/VS
Program Logic:
De scription
LICENSED MATERIAL -
PROPERTY OF IBM
Page 1 of 1
Sync Point
Program
(DFHSPP)
1.10.1
I
I
Build Loggable
DWE Chain
Write DWE
Log Data
1.10.1.1
Visual Index - Sync Point Program
Section 2:
Method of Operation
1.10.1.2
End
1.10.1.3
Diagram - 1.10.0-01
423
LICENSED MATERIAL -- PROPERTY OF IBM
Page 1 of 2
OUTPUT
PROCESS
INPUT
DFHSP TYPE: KC
TYPE: USER
......
DFHSPP:
~
Ensure against runaway
~
Checks if sync point process required
~
Ensure against stall purge
[§J
Save user register
~
Check for DLiI scheduled
~
Check for rollb(lck request
1.10.1.3
I
I
I
TCADLII
TCASPTR
TCADWLBA
:>
:>
I
I
I
07
..
Q
Point to fin.'1 OWE
If none
To
1.10.1.2
If processed or cancelled
DWESTAT
DWEINPM
DWECNLM
DWELGM
I
DWESVMNA
To
If loggable
I
1.10.1.1
Exit to OWE Processor
Q
Diagram -
Sync Point Program (DFHSPP)
NOTES
~
DFHIC TYPE: ENTER,
CLASS' CICSIVS
~
DFHKC TYPE' NO PURGE
~
DLiI scheduled
~
changes to protected resources
ROUTINE
LABEL
ENTRY
DFHSPPEP
REFERENCE
NOTES
ROUTINE
LABEL
1.10.1-01
REFERENCE
,
Issue a call to QUI task termination, if
Invokes DFHDBP to modify or reverse all
Sync Point Program (OFHSPP)
424
Diagram -1.10.'-01
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
' ... 2012
OUTPUT
PROCESS
INPUT
I
DWECHAM
I
12
I
DWEDWLBA
.
:>
I
I
TCADWLBA
Unchain DWE
@]
Free DWE
El
Go to
0
Point to first OWE
A.
None
To
1.10.1.~
B.
~
.Processed or cancelled
Q
To
1.10.1.1
C.
E::>e
Loggable
Diagram - 1.10.1-02
Sync Point Program (DFHSPP)
NOTES
o
DFHSC TYPE = FREEMAIN
ROUTINE
LABEL
REFERENCE
ROUTINE
LABEL
REFERENCE
SPP02100
Oiagram - 1.10.1·02
Sync Point Program (DFHSPP)
Section 2:
NOTES
Method of Operation
425
LICENSED MATERIAL -
PROPERTY OF IBM
I,put
Processing
l
-·'~>
I OF
1
.,uQ.
~ Reset loggable in4icator
,_.,_-'-_ _ _ _ ...J\.
r~WICB1B
PAGI
output
f021
----~I L::J
---------.1
'\
.
Be_aYe fro. DIB chain
l!C1DWLBl
~ Put on loggable chain
-------'\
"
I
~ Go to
TO
1.10.1
r;;j ') rii51
L:.."
-.-------Dia~ra;-::--;:-;O:_; _1-01
B-;'iid Logqable DlIE Chain (DFHSPP)
Routine
Hotes
V
Label
Ref
Rotes
Routine
Label
Ref
- - - - - - - - - - - - - - - - - - - - - - 1---'-------'----'--~ Reset the 'log indicator.
LOG
CHAIR
BUILD
SPP02020
~ Put on special log etaain
TC1ZLGCA_
@!l
kii4
426
Return.
l.o99uU .DIIB Chain
iDFiiSPPi-·------------
Diagrao - 1.10.1."1-01
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
Input
Processing
Pro.
~"
····1 )
,/
DPHSPP:
@J
If no log chaiD
@J
I
-',
,/
~
-',,/
~
@]
@)
El
I
~-CATCUCNJ :~-:..--::---==.:.:=:) [~~J
----- 1
----
Write S'I'Ast'l' Of' SIRe to
"aYe loq chain to
-=~J
-,I------./1
1
-,-----,1
tog DiP. data to 5yst"". L o q - - - - - - , ,
,I
tf DO dynuic log.
data for user sync points
RAinitiallze ilynaaic log
buffer.
'---
'V
Scan ISC TCT'l'Es.
I
J
Label
1
\
Ref
@]
DPHJC TtPP.=WRITE
WRITP,
50S1'
~!---
~
DPRJC '1'TPF.=IIRI'!'E
'ifRI'I'!
SPpoO" 10
r081
DFHTC CTYPE=PREPARE
DA.T~
1 lI'otes
II
I,,
]
I
!JCAJR'E
II
,
II
\
1
--------./
Send Request Conunit
----1
EiL'!!A
I
---"!,
1
Routine
Hotes
I
,
~~~~J
I
Send Commit to last.
I,,
I~~
1•. " .•. .-.,
purge only non-durable
I
Write DWE Log Data (DFHSPP)
L.. __ .J
D'i'~
chain
to all but last.
II
,
I
I
V
EJ'>I091
!,
--1
f, "
~''101l1
,
System Loq
§BQ
2
-,J
To
".,0.1.3
-',,/
, o.
r,
L __, /
l TCAILGCA
1?"G"
ou+.put
1. ,0.'
I,
DPRDPtOS
I
1,
j,
fiiRLlliTI
flPLW~'"
PP~""S"R_'_
,
1
I
I
\
I
!
1
,,I
1
I
L_
Diagralll -
--.l
1. '0., .2-0,
----:-------:----:--c-----,
-----.------!~I~J~
,
, '
,I !' II
II I !
I I I
DFHTC CTYPE=COMMIT
I
I
1
I
I
I
I
I
Wr1 te OWE Log
Data (DFHSPP)
Section 2:
Method of operation
L
Diaqra. - 1.10.1 .. 2-01
427
LICENSED MATERIAL -- PROPERTY OF IBM
Input
Processing
out put_
r
I
I
~-~====~) ~
~
La" "::OTK to systell Log
Reset jou't'nal IO fields
'DAGE
2
or
1
I
I
I
----'
,
\
I
-' -,1
-
=====:=::)1I
2
I
I
t .Tea. 'lS'J'FG I
'------'
llil
Set END OP SYNC
@]
Reset SOTK ind.icator
~
IssuE:' O'P'HJC TYPE=WUT
'--'
_I___"\
]-=--=:1
,
---,1
I
11.10.1
r;;J'>~
L_-,/
I
Write DWE Log Data
(DFHSPP)
_N_ot-'-es_ _ _ _ _ _ _ _ _ _ _
@]
DP.JC TY."'WRIT"
@]
Journal Control
,
II
I
I
II
I
!I
I
I
IL
'I
II
I
I
._~~
I
I
\
I
I
j
l
\
!
L
J
Dil!qr.alll -
1.10.1.2-02
Diaqra. -
1.10.1.2-02
I'~'_~·hel '~r:::-LOGEOT<
SPP01000
,,~..,"
1I
II
I
II
Write OWE Log Data (DFHSPP)
428
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
Input
r------------l
.Processing
r:L.... ,
DPHSPP:
~/ , ~
R.s.t OWB 1.-fl1ght
I~ "...
il
I1(~
I~
I·
~
<~ <~
...
torn off runa.ay task
1ndica tors
lI
-------,/ 1
--------. \
I
I
!
II
I
register
I
14
r= ...;1
I
I
1
aP
1
~~~J
I
II
Restore user registers
EE1t VJ.a
PAGE
Output
r=------'----l~~itUO,1. 1_"-,'------~
1I
I
I~ :~:< I
I
I
,
I ....
I
I
~
~
t indicator
DnKC TYPJ!:DBQALL
~ OlHIe 'l'lPE=BIIT
I Routin.1
'
I
I
I l___~_J
L
-~rNotes
I--I~~
- 1----
I
I
Lab.l
'
I I
II II
I I
I
D1agra. _
_ _--l
End (DFHSPP)
r-;:.• - - - - - - -
I
I
I
I
"10,1,3-01
-------------1
Routin.,1 Label
I Ref
I
I
I
I
II
I
I
I
I
I
I
,
I
I
I
I
I,' I II
1
I I
I I III
,
-------1--- ---1---,
I
I I
I
I I I
I'
I
I
1:
End (DPBSPP)
section 2:
U
1
IL--_
Method of operation
I
---
I
II
Diagr~-:l:1o:-1:"to 1
429
LICENSED MATERIAL -
PROPERTY OF IBM
Page 1 of 1
OUTPUT
PROCESS
INPUT
From
DFHLFA
~
TCA
I
I
]
D ]
TCALCDSA
---v
Registers
DFHLFD:
TCA
~
Update current TCA LI FO stack control values
§]
Determine if there are overflow segments to be
freed. If so, call DFHSC to free them.
@]
Determine if there is sufficient space in current
TCA
i
TCALCBOS
TCALCEOS
TCALCMAX
I
LIFO stack to satisfy request.
If not, issue DFHSC TYPE' GETMAIN
to obtain new stack.
1TCALCBOS
TCALCEOS
TCALCMAX
1
1
-
~
Chain new stack to old stack. Update TCA pointers
and maximum length of stack values.
~
Return to caller
I~
To Caller
Diagram - 1.11.1·01
LIFO Overflow (DFHLFO)
NOTES
@]
ROUTINE
LABEL
REFERENCE
NOTES
ROUTINE
LABEL
REFERENCE
DFH LFO is entered whenever it appears
there is no space in the current LI FO
stack for the requesting module.
Arguments are passed directly in registers.
Registers are not saved as there is no
space in which to save them.
'"
§]
@]
There may already be LIFO overflow
segments in exlstance which are not
currently in use.
Required space is now available in the
LIFO stack.
Diagram -1.11.1·0t
LIFO Overflow (DFHLFO)
430
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
Page 1 of 1
Trace
Management
2.1
I
Turn Trace
ON/OFF
2.1.1
I
I
I
User Trace
FE Trace
System Trace
2.1.2
2.1.3
2.1.4
I
I
Turn Auxiliary
Trace on
2.1.5
Close Auxiliary
Trace
2.1.6
Write Auxiliary
Trace Record
2.1.7
Program Exit
2.1.8
)iagram ·2.1.0·01
Trace Management
Section 2:
Method of Operation
431
LICENSED MATERIAL -- PROPERTY OF IEM
1Input
,----------l
I",,-:-----------l
Processing
--------.I::ln".~~,
1
CSA
reSAmBAr
-- I
I Trace
I
[IIm~ss
l.:~/ ,~,
I ,r----------->,Il~ Pind and clear the nezt
I
entry in the table
Ij
I!
II
I
II
L)[____-._j_
--~
I Trace Header I
___-.I
I
C SA
1I
I
Ir;;"
r----------~)I~:J Bltild remainder of entry
I
I
,
II"'--'l~
ics.Wiif'lT\1
I~~~~~r
I 1
I
I
I~~--III
II
I CSA'IR"P2
'Irace
I
I
I1
1~~~~~r
t
" \
[~2:___1 I 1
I
I
1,
I~I
1/1
1/1
ZZZZZZZZZZfj
I
I~"
I
1/1
7777777777/~J
-----------
1 (iJaster
I Flag
I
,--,:[
~
I
1
'vi
I
,
1
I
I
1
I
I
I
I
,
Typel )
I Trace
~~t
I
TCA~RIO ,
Trace 10
I
I
I
I
l
\
I
i,:,
II
I
I
II
I
\
II'
I
--
L_______________~
L _____________J
I
L ___________Ji
Turn Trace ON/OfP
r Notes
•
I
I
1-----1
,--_-_-__1
I
[~~;;;;1
I
\
I
!
Trace Entry
II
I I
'TCAma-1
,
\ '1
rmfR"p-p-I
I
1 0'
I
I
II 1
TO
1
J
PAGE
' I
I
I
I
I~~~i~r'
\
Go to EXIT {2a 1. 5}
I
I
I
j! I
,es.TiWT-
I
I
\
77777m77777!\,
---------1 II \ I
II
r,;;-)
I ~~ Insert the task 10
J
Output
Dl.agram - 2.1.1-01
---------------r::~~:l~::;-t;~' r~:::--------------------t -:utl.::f:::-f;:~
,--------------I-------,----I-Il-~------------------I-------1------ ---
I f011
I t:..:J
1
I
I
I1
This module is entered via a , '
I
DFHTR TYPE~ON/OFF,
"
STYPE=USER/SYSTml FE macro,
I
~::::CE
macro, or DFIILFM
Il~
I
1
I
,
TIPE=aN/OPP
I
II
STYPE=OSER
1
II
1
I
I
!
!I
I
1<=
lI [§
/TRCKTR
I
I
II
I
STIPE=S!ST,"
I
I
!
ITROK
!
'TRONOPF
I
ITRNOSVS
I
II
I
I
,
I
II
I
I
II
II
II
II
'I\I
II
II
II
II
I
STYPE='E
o•.
t.:::.:J
1:1rn.:l
The- maCIO instruction expansion
,I
I!.
II
I
performs the tUIn1Dg ON or OPF,
I
J
of the trace flags l.D the eSA
and TCA.
I
II
I
II '
I
II
'I
II
II
II
"
I)'
III
II
11'111
I
I
I
"
I\
I
!
1
1\
1\
I
'
____________1____1____~ L___
Turn Trace OM/OlF
432
I
'
I
I
II
((
III
I
II
III
I
I
1I
I\
TRGaON
I
I
I
I
,ITRFEE'
\'
,
II
l
J
l
DiagraDl -
CICS/OS/VS Program Logic:
2. 1. 1-01
Description
LICENSED MATERIAL -- PROPERTY OF IBM
Inpat
processing
:STYPE-USER
DFHTRP:
~ ~d .~
0'., ••tt ... "
in table
g
I
Outpat
:
PAGE
1 OP
,
orr.ce Bntry
I
~ Insert task to
~ Baild 't'e.ainc1er of entry
~~ •• =,
TCI
TCAT'BP1
Data field
1
fi~t~B'lelc1
I
:zzzzzzz2
I
2
(······i:l
TCITUD
Trace ID
, I
•
2.1.B.
Trace "snagem.ant ... User Trace
!
Dlagra .... 2.1.2-01
'Rout.ine
Hotes
Label
Ref
--- ---
EI
Botes
Boutine
~
Ref
I
TRCKTR
@]
TBO'l{
I@]
I
I
I
TB~05YS
I
I
I
1
I
I
I
Trace III nBqa •• nt - User Trace
Section 2:
Method of Operation
Dlagra .... 2. '.2-01
433
LICENSED MATERIAL -- PROPERTY OF IBM
I
I
t~
____________________
processing
~
PAGE
output
1 OP
1
STYPB=n
'race BntrJ
I
TCATUDI
PE trace
~ Go to EIIT
YO
'l'CATR?1
Data field
1
I······;~t
TC1TU2
~ata
Ue14
'.'
2.1.8.
Trace RaDage.ent - PE Trace
!fotes
-
Diaqr. . - 2. 1. 3-D 1
Routine
Label
Ref
------ ---- -----
~
1fotes
'Routine
Label
Ref
----- -----
TRCKTB
{~
TROK
@]
TIPB]!
,
I
,
-
434
CICS/OS/VS Program Logic:
-
Description
LICENSED MATERIAL -
In put.
-------_.-----,
h'lli..
output
processing
PAGE
1 Olf
il :)
DFHTRP
:02'
:~n~r::: :~::: .ext entry ...!..'----'r--")
L:.:J Insert task ID
Trace Heade,.l.I...........> L.:.:J
>
r;;;"\03
[§]
Build reaainder of entry
Trace Entry
I
_Ti
-
Go to EXIT
I·· ..
1
L
··i:l
'I
2.~.B.
Diagraa ... 2.1.11-01
Trace 11& nage.ent .... syste. Trace
----Boa.tina
Botes
Label
TBCIT'R
Data fields are taken from the
Ref
---- ---
[~
@)
1
~
STYPB-SYS'I"Bft
(9'>
[
PROPERTY OF IBM
r
TROI
!fotes
'Poutine
Label
~l
1
TCA based on the ID and type
request.
@]
TRGOOR
,
-.
Trace Rllnage •• nt ... syste. 'Trace
Section 2:
Method of Operation
D1.gra .... 2. '."-01
435
LICENSED MATERIAL. -
PROPERTY OF IBM
PAGE 1 OF 1
OUTPUT
PROCESS
INPUT
Atrace= On
TCA,
IThv
I'-----'.~~~:TRIr '
====>
Open Auxiliary Trace File
and put DCB address in
trace
h~ader
Trace Header
IDCB
Address
Trace Header
Put Auxiliary Trace header
record in output buffer
I~~:ress. I
Set return code and trace
I
master flag
CASTRMF1
. X 'OS'
I~
2.1.8
Diagram· 2.1.5-01
Turn Auxiliary Trace On ,
NOTES
~
If OPEN fails a return code of
LABEL
REFERENCE
NOTES
ROUTINE
LABEL
REFERENCE
TRAXOPEN
X 'EO' is returned.
§]
~
ROUTINE
TRAXOPOK
If OPEN successful. return code
isX'OO'.
Tum Auxiliary Trace On ..
436
Diagram· 2.1.5-01
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
Inpnt
processing
,
,II
-----------l
,
I
~
",
····'1>
I
====::: >§]
-1~1
0'---"
I
Trace Header
I
[~~~ress ~
Check open status and
return bad return code ' f
.L
not open
I
~
I
@]
Write last buffer
Close DPHA[J XTR file
I,
rQ51
~
I
Clear DeB address, reset
Trace master flag, set
return code
1
J-"0r-J-J
--"I
A
_A
L~I
I,
llTCAT-~P
----Return
Code
f'F.na
\ '
I
II
TCA
of
I~:~grd
==--..
,"---,
,
----, ,III
,,1
,
I
I
,,I
-.l
,,1
,
,,
DPHAUXT~
rsg;;;;tidf
I'cle
I
I
,,
I,,
I
I
.-,,1
ill
-----'
1'l'race
-,---11 1 l
!
I 'L I
I
j
I
I
L _______________
lI
Close Auxiliarv Trace
Notes
I~
1
,
, :, lI
,
I
I
!
,
I
I
,,-,
E .... I
V
2.18.
,
i
Reader DeB 1
a~dress
!
I
,
,,,
,
,,,
,,
,,
1
,
,
I
I
I
I
I
!
!
I
,
L __
-------,-----l--ll
j
,
1
,I
g~~¥~~
-!------L.,.,
I
I
---",-,
IL---,"I/I
---.11 AI
I,
,r
1 OF
r
I
Put end of data record in
output buffer
PAGE
output
~-----------------'ATRACE=C!OSE
I
I
1
I
1
I
I,
1
I
'----
,'
_-,--_ _ _ _ JI
Diagram - 2.1.6-01
I
I,
'I
_::~ _Labe~_ ~ l~ote_s_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ J-Rout1ne,~1~_I
TRAOXCLS
j@l
I1I
I'I
I
'I
I'
I
1
hRAXCLOS
I
I
1[031
,I ~
A check is ·issued if a previous
j
issued to wait for completion.
iRITE is outstanding. The last
,
rRAOXC2
'I'
II
I
I
I
,'
I,
I
'
1
,'
I,
,I,,
II
,I I,
I
1
H'l:ITB is started and a check
l§l
,,
TRAUXSCL
II.,,
,
I
I@J
I
I,
i
I
i
II
I
I
1
1
I
11
I
l __~,.,.
Close Auxiliary Trace
Section 2:
Method of Operation
L
II I
I
,
I, '
I
'
i
i
I
I
I
I I
II
Iii
I'
',
,I
I I I I
I
I I
I
I
I
1,
I'
I,
I,
1,
II
I
I'
I!
,I
'
'
II
I'
,
"
Diagram -
i
i,
I
I!
1
,,
-.l
2.1.6~O'
437
LICENSED MATERIAL -
PROPERTY OF IBM
Processing
Iap.t.
PAGE .,
Oat pat
If Aa.:111iary Trace not
act1•• , exlt
'ot
1
1···· :~)
.
~
2.1.B ..
Pat Trace entry in output
t'1'race
I Records
buffer
I
~ If baffer not full, exit ..
Else, issue Check. for
outstanding Irite •.
g:l':~
____ ,
Start trite of enrrent
1!r.C~_ !~>rv 0-,/
~~
L;l
I
,1....
:~>
.,,/
2.1.8.;
baffer.
fi;iff;r:-:-1~====~:> ~
OPHAUXTR
J seQuential.!
'\ Da:E:a set _1
l
Buffor
Control
Switches
switch baffer pointer to
alternate baffer
f
J
······i:t
,
/
•
2.1.B.:
IIrt te AuxiliarT Trace Record
o18qr. . - 2.1.7-01
Rotes
lIoutine
Label
~
@]
.of
--- ---
Rotes
~oqtln8
Label
.of
--- ---
TBU!RT
If car rent entry 1s 1"0- no
records are' POT. If previous
entry 1s ['PO' both the previous
and ,current records are PUT.
Other.ise, ,the 'current entry 1s
POT. III entries are
tlae-st.aped with the contents
of bits 13-411 of ·S'l'CJ{:.
I
,
I
I
@)
,
~
@)
I
TUUtPUT
Double bafferlnq is ased •.
,
Wrl te lu .. il1ary "race 'Record
438
CICS/OSjVS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
----------lZ.,.;
p:~~~.L----------l
2.1.1 2.1.6
[:1-1
..... ,
)
rn-]
Ttace TaDle
- -.. I
-_-I--I--·-·----~"-> ~~
__
(-_-_-
tJ~G!
.....I
_
1 011
~~;~~~--------------
;'
--------1
j
I
Trace ".'able
Incra.ent the duplication 7777777777777)"
cou.t. i f
n.c.ss.r~
@~ ChaI1;Je header information,
if
HeOd ..r
[ inf.o.
-r-------I~I\/
necessary
~~:::~==
I
1
I
mz!zmz~!
1
1
I
@~] Return to calling prograll
!
I
I
r.::;;:';;l
Li-----):!
I
,
!
!
I
•
To Caller
I
I
I
I
I
I
I
I
I
I
II
I
I
I
I
1
I
______________J
!
!I
I
I
L _________________________l
Diagram - 2.1.B-01
Pr0itraa Rxi t
---------------------------------------,
Hout1ne
Notes
§]
r.tt.e cau»,t is incremented if tAS
current entry,1.S the saae a.s a
£.atel
Ref
TaBIll'
Notes
upd.~te
I La tl!l
I
I
I
previous entr}'.
~ If Dell' eDt!:,)' bas Dsen built,
, p.out,in<:!
lIet'
-------------------------------\ -------1-------- ------1
I
I
I
1'85'1
t
.tt.eader J.Dforlllation to
5.tt.OIl nell' current. eDtry.
rRRE5r
I
1
I
I
I
-------------------------
progr •• Bzit
Section 2:
Method of Operation
l
___
~..,......_
I
!
I
I
I I
I II
I. I
I
_____. :._ ___________
I
I I
==:~=~------------_--.J
Dia'3'raa - 2.1. B-O?
439
LICENSED MATERIAL -
PROPERTY OF IBM
Page 1 of 1
Dump Control
I nterface with
CICS/VS
2.2.1
I
Dump Control
Program
2.2.1.1
I
Dump Control
Program
(DCWRIDR)
2.2.1.1.1
Visual Index - Dump Control
440
Diagram - 2.2.0-01
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
--l
Input
--I
f~-g
t===~/lr=-:-:::=::-l------~'
1TCAOCT Q
- __________ ,1 ro'i1
L:..:.J
type reg
of
I
I
dump
ITCAiiCiiB-1 I
Ir;v;,
L~
1 Humber of
I
IbYteS _ _ /
ITCAOCSA
1
I
I~~ml~
I
mi,m
I
r.r~JI§)
l~--'I
III
I
1'6~gg~l
!
loyn.m~~-I
II ,-=--=:)1,
I
lJ I
IoCiiiP.BLSl--l
--1
Request lock of dump.
facJ.lity
1dent:l.fl.ca tl.on
I~~g~~~
I
~l~'I'rObl
A --,1 L=.:
I
l18~mIECB JI-Ol 'I~J
_.J
I
I
Ir;;o"7
L:.:.J
I
I
I
I
!
I~
I
\
I
I
_________1I
and
2d~'ta ,I
l _____·~J
Release lock of dump
I
I
--"0
---,/ B
I
Reset and test runaway
task
Proude NOTE 1nformation
and get last record
indicator
I .,__
•.•
T"l!j
I
,
-..I,
E--'
iE~'
\
I
I -______---lI
L
II
~-o'
,
I
I
I
~:(~e~!tal
!
'I~~:
I
----Ig:~~r~D
1-0
record
L~
I
I
facility
I
I
I
~;-outP~1
>
___l
I
I
,
1
I
!I
I
I
I
1
I/§
II
All dump requests supply TCAOCTH
and TCADCD. Optionally. TCADCHE t
Output of data
prOV~ded"
\
~dent~f~cation:
!
records occurs ftOm • f>xed are.
in Dump Centrol prcgralll.
!
from arEa vhich data normally
I
Output of data records occurs
OCCupl.es. Storage address and
length of data records :1re
contained in the registers
(DCADRREG and DCLHGREG).
I
I
\\
II
II
I
I
I
t
Ib
/1
,I
,I ... 1\ I1 1
1
/
\
,I
I
I
I
I
I
I
I
I
II
2 1 ,"
!I
l!
I \
I
((
I
II
1\
I
I
I
!I
DU.p'-C""o-.-t-ro""'l:-O:I-.t-e-r""f-,c-.-'-:-it-:h-CICS/YS
Section 2:
I
I " II II
!' I
n
I
\
!
l
I
t
1
j
I
I
I
I
I
I
I
II
II
I!
II
! IlL
Method of Operation
----------------,
I
I
I
I Routine I Label I Bef I
1---1---1--1
I
I
I
I
!I
I
I
~
-=-:_ _.
Diagram - 2.2.1-01
-I
I'
I ----, r--r
, Notes
Rocti-ne I Label I Bef II No'tes
I
II
1---- - - - - - - - - - ---1--1---\
11-----
and TCADCSA Ilust be
1
,<-____
Dump Control Interface with CICS/iS
\§J
I
I1
I
<';-:;;'>r----~ -~\,)0
I
~-,--I'r.1
I
=.)101
I
L:l [-' ---' \
'r-ol
I
!
~~~[Cl=:>1
-~/L!J -'
I
:
DCDT!'
t~ength
Regues't trace
I~
I
L
I
I
I
='>0
I rn.::l
I~~
II
ICICSIYS
I I II
1
I
-,"12:1
I
fCICS/YS1/l-1
IT.bles _ I
I CICS,VS
II
l~f.Ool=-..J
Set runaway task
I
I[§
1 OF
I
r;,-"I
I!J--,/I
I
I
---"fRl
Dump requested
I
!TCiococ--l ,
l~mtif~
l
1:1..--" I OPHOCP:
rcA
PAGE
output
II
I
I
I
I
I
II
I
I
I
I
I
I
I
I
I
I
1I
1
II
1
II
1
I
1
I
I
I
II
I
I
I
I
I
I
II
II
II
I
I
II
I
I
I ! I I
I I I I
I
I
I
!
1
!I
I I
I
,
I
I
I
I
I! II II
_ _ _~I_
I
I
I
I
I-.J
Diaqram - 2.2.1-01
441
LICENSED MATERIAL -
PROPERTY OF IBM
IDput
.,,
~
....
::g-'I '0 0---"
8
=:
)
~::RIRSIf ~l
'lIT
/A
R
SUe registers aDa ottaiD
rov ::::
:::::::t:::
c
&
fil ___ " l::J
• 'r;'1l:J
re g 1ste.rs and PSIII
lm~e~-'I /CJ
OCR.
===;~..J
I
--,/0
abOp
'fCADCDC
---'1 1
1C1:=~> ~
l:.J
~ >0
~,
fE]=::"
"rite TeA lOser aDd
Sls t.O'
rQS1
Write pz:cgraa cbeck
l:::J registers and PSII
puaF: coda
i~~g;~Bof
tt~
~-
_=---
S.tdaa~1sDsg
~X:i~~l
Tables
::,
I
_ _ _ _- - - , /
~]~).~
or
2
DCP
"rite head1D!if infor •• tioD ~\[!]
---. ,
'fCl
.J;~:O~~
@]
.,
J
1
l
DPBDCP:
--..1 In.'1
CSA
PAGE
output
process1D9
Ifrite CSA and ell'
G
~>fG1
I
=---'/0,
I
I
I::J
--'\
~>~l
.
',f07I7 "rit
[!]=~I
t:.:J.
-.
e.tO£; ce
-able
.r.
0~> ~ Write seg.ent storage
traC'f .
__
. '~r.;'\G
---:,
t.:J
1,
--./0
DC'f
.cor
I
'-___
Duap cOIltrol Progr ••
I-
_Bo_t_e_s_ _ _ _ _ _ _ _ _ _ _ _• __ ~:~~: ~ ~
.~ Cond1t.1onallr perfor.ad basad CD
coa. in 'JeADe!!
442
I
--.I
Diagram' - .. 2.2.1.1-01
II _Bo.t.e.s_ _ _ _ _ _ _ _ _ _.
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
r--------.
~lg~:~~
ED
rlliHsiCTlcil--' 'Til ~--,/
I
r.1--"
I N-"
II
-1
li::::~~Rsl'
\
l eNCHAINED
I
I
DC.
I
1t.:J
~F~> ~
---" f1'i1
~l_E -"~I
L:.:..J
!
I
\
0r:utput
::::e fac1!ity contI01
Write terll1nal storage
and RS!
2
DClfRIDR
,. f
o:~p~i· of
*>0 II l~!~~::
\
-:.....1\0
I G
[>
I
DcoaT
Identifi~
I I ~mrgot.
,tion
record for
I'
0=~>1 ~ ::~::g:rogr ..
2 OP
-----~
b>1GI0:::::>
r
\
t::.I
I[ ~
I
' I t'r--l
Data Record
--"0
I (~F~>! @]r,; 1U.' ::::::'''.. -",., t;~ 1f>1 k
III
t...:.:.J
\
Provide NOTE information
and set last record
II'
I
\
1
I
!
I!
I
i
;
J
Duap Control EJ:ogram
I
~:::':~o;~~~!RPerfOrmed based c ' \
Ill!£J
Conditionally performed based on
code in 1CACTR
I
\12TI
I
~
!
I
G
Conditionally perforllled based on
code in 'leADCn
Condit1cnally performed based o.
I
r
n
I
I
I!
!I
I
II
" I',i
II'\
!III
1
!
Condi tic.ally performed based en
)1
1'1
I
I',I
I
In case of EOP, the NOTE
information .il1 net b e ·
provided. A DUIiP data set closed
l.ndicator (DCDTPCLI) vill be set ,
l.D.stead..
I!
L
Du.p Control P:rograll
Section 2:
•
II
code in TCADCTB
code in TCADCTR
I!,~
·;rr
ROll tine I Label
I' Ref 1i Notes
- -------,--- -11- - - -
I
@1
IJ
[; ....
I
'vi
L
\ Hotes
\
I
:~
I@J:::::""""II
I'
"
,
III
WrHe transaction storage
!
[~~'GS!DT >(g
PAGB
1
.~roceSSing
I
II
1__
Method of operation
1\
\\
L -_ _ _ _ _ _ _ _ _ _ _
I
~
Diagrmg, - 2.2.1.1-02
-'I
---/----/---,--\
I
I
I
I
I
I
I
'
I
,I
,
, 'I
( ( I I
, , I I
\ Ro:-t1-n-e-'-La-b-'-l
;:~
! ! I
!
I
I
I
I
I
I
II I' I
I
1'1
I
aI
IL-l_ _
._---!I___I__
O~agram
J
- 2.2.1.1-02.'
443
LICENSED MATERIAL -- PROPERTY OF IBM
,---------1
\
/
I
r:l
I
processing
output
'
I
G!;;r '>1
\
1
r;~;::;~ j
~a type J I
1
I
r----11.,
""" riir::::>I'
-,/1A1r;:'J---"\
DeBL Data
",
t
I
I~~II
lDCRA Data J
I
~~~---1 I
LJL5: --,II
r;;]---"/§J
l£ ---,/ I
1
,f:~~g
I
1
Request SA" output for ID
record
II
LaddIess
----,'
U~D~~gJtd
DCDT>
,
6--'/1~
rnJ---"\I~
!--'/1
'I
I.E
/
[----1-"r;11
I
I
---~ T' It.:.:
m
I
[===:If )~J
Request SAt! output for
Data record
Return
/
I,L___________..J,
va·-11-a-a-te-st-o-r-ag-e account1ng.
!
'I
I
'I'
II:
I'
I
,
I
I
I
I
I,
I
I
I
,
I 1I0""R;C0rdl
E:€~e~~ta
fE'='>
, L:I,/ 1----'
I
g~grd
I
I
_--1\.........
f
I
"ID-;;;;;~I
I
ffi~grd ~
II
I
[----.
:::=:;: l
\ ';1
ITO
II
I
,
,
\
I
!
"
" J
,----,
I
1
I
I
I
IL _______-.J,
I
~ .---------------------,---'----I-~
-I-~::~~:I-~~=---I~I
"
' I/L:~:-.-------------I~::~::J~~:~-;-~i
'
,
, ,I
"
I
I
I
I
I
II
I
! I I
!' I
'IIi
I, I,
,I
,I
I
1\
I
I
! I
!
\I
j
I I I
I I
'!
I I I I
I II
II
I
I
I
I
,I
!,
!,
I, II
!
"
I
I
I
I!
!
ouap Control Erograa (CC"RIDRJ
I
Diagram - 2.2.1.1.1-01
II
\
I
I,
"
"
'
"
!
I
\1
I
I'
1
-I'/L~J
Caller
I,L________
j
I
1
/
(DCWRIDR)
Ir Notes
444
-1-,1 L!J
"I
I
/
'
II
I
I
I
I
I/
Dump Control Plogram
I
I
I![~
\
---"[;1
I
)
/
r-1---"/
I'
1----1 I
I
I,
I
I§)
"ake val1dity tests
mgiiTiDl~>r~ r~l:=]<'
1
1 0P
I
DCP .
\
DPHDCP:
0:=bll~
PAGE
r-----------:
I
Input
II
I
I
II
I
' "
"It'
I
I
I
I
'I
I!I
I
I'
I I
,
,
'I
IIIt
I
I
~L-..
! I II
II
I
'I
I
'
, I
I
I
,
!I
,
I,
II
,
I,
II
,
I,
I
I
I,
"
I
I
!
I
I
I,
I"'~
I j
Diagram - 2.2.1.1.1-01
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
,
I 5 ystem
ffeCoVer~
PAliE
,
1 01'
1
I
l----I~
I
I
I
15PIE Iote [lace] IsTAl:: Interface 1
LI_ _ _ "·l.;' L-,~
I
I
I
I
rL
V
5 'rAE Retry
IsTAE
I
I
3.1.3.1j
I rutl.alization
J~1.4.1
r--------------,
: ESTAE Retry
I
l ______ :~~~:~=_t
Ii
Diagra. - 3 .. 1-01
Section 2:
Method of Operation
445
M~ERIAL
LICENSED
-- PROPERTY OF IBM
r----r" '.[~, i:~:~-l
I
I
=:.:.,:/> -
:lap'
r-_~~_>AVi-+J--I--lr,====,) §]
r:~---,-D
~;~lsters
Save required information
tJ~GE
jF'-,---·······i:'
~1tP
=========::>
[PI"AVE
1--,
J
I
rr-----" I -
r-----'/
~ Restore overlayed
IJ
m~m;~--I-~ [Al----> ~~J
l~~~-1':J
c::----
ins tr uction
ZZZZ~ZZZlZm\
1
i"
~~~: s~I~:_J
L
l 111-2
I 0'1:
I
,
I,
ADDlicat.ion
> [=====]
Pro?'t'l'lm
j
exit ,ia the linkage in
I
!
the CSA
II
, :,
[;;;;;;;;1
-----j:.
fcruciiiil-j---->0
I='~
L~~!.=--1
::,'
'vi
,,
,,
,,,
,
I
I
I
I
I
I
I
I
I
,I
I
L_________________J
iiUAa.way 'IasJt
I
________________J
,,
,I
,,
I
,
l____________________________J
Dia.-:rram -
~.1.1-rl
fl;~~~;~~;~~·cO;;~;;;;~;~-l-:::::~~~~~;-~~:= r~~:s =~==~~===~=~~~~~~~~1~~~~::1~~:~:~~~1~:::~~1
I
I
I
entered. as a resllJ.t
o~
I
I
a proJrc1111
I
CAee," causea DJ t.tle T1IIer
l.Dterru,t''t rou'tl.ne.
(one
l.DstrUCt.l.QD 1S cB4n;ed to a
0.1:
-~.
tClSJt
will. J.d'ter be
G.DDOr.lll.4J..L,Y
I
:
I
I
I
:
I
I
'
I
I
tAe overlayed
l.DstrUCtl.OD are sd.ved. Tbe PSii
ilLla 'tbe re;'l.sttu:s are a.~so
rae
I
f
'1
HOP.} 'l'ae op COGe and tbe
!'toelres::;
I
I
!
I
,
i
,'
I,,
I
PIPltN'l"K
I
I
t.erainated.
I
II
!
,"
I
II
I
,,
,
I
I
,I
,
,
,,
I
I
I
L ___________________..:______ ....!.______
I
_ _______________________-.!. ________ ________
~
i'lu.uawil.r 1ask
446
CiA':Jrl!i" -
CICS/OS/VS Program Logic:
~
,
______ J
~.I.I-CI
Description
LICENSED MATERIAL -- PROPERTY OF IBM
---l
~ [L 'N~=:_9
I ....,>
p[i!~r.er:-r-!==:=~} §]
Input
12
lij-2
Save required illfor.at1on
:J
PAG!
output
1 011
------------------------,
I
SRP
:====:~>
I
I
PISA'lE
]
Save area
for SPI!
I
1
SCP
[>![:=--:J~Ij------[~----->
eSASCHA:
U.a::Js and
~~t::~~ry
I . ----)
__ X--------->
r;;?]
TeA
TeAPeTR
pcp type
L::.:@OO:Jrindthecaller
~
~~]
~
I
I
~~:~~:~
TCA peAC
Prepare and issne any
lIlessages
Task ABEND
code
-------
I
1
1
I
Exit to Progral Control
I
through OS/'lS
1
I
[;;;;;;;;J
-----,:[
TeA
I
\ I
elKCTu~ ----> IAl
f----lask
ID
t.
l
\
V
I
I
L:J
lCAPCAC
laSk ABEND
code
----leASYABI
la& ABEND
l.Il.dica tors
I
1
1
I
I
I
II
1
1
II
L__________
I
I
I
1
1
I
1
____________.:. .______________ J
5PIE Interface
Dia;ram - 3.1.2-01
------------------~------------1------1
Notes
@)
Routine
Xbe P5~ and tile re~isters are
saved.
Label
Bef
PIP S'rA BT
-:::;tl;m:;;I;;:-;-;:;;kAiiEiiiii;-------! -::~~::
-~:~:~--I-::~--I
1
1
II !i
prepared with AB'END code ASRA.
!
~ If the 51'stelll liecovery prograll
DoePIPO.
vas entered dUJ:i.D;, stoJ:age
I
verification, the Storage
Control pro;rall (SeE) sets a
I
fola;! in the hi~h-order byte in
CSASCSACw COntrol is DOW
\
transferred bac.k to SCP fro a
sap. T.b.e'return address is given
sep entry pOint.
It SSP was entered for any otb.er
reason, processing is continued.
~ 1.f a systell taSk
is in control,
1
1
I
I
I
PIPCICS
aessa3"e DI80601 and OS/iS ABEND
I
PIP0602
If a progI:u cbec.k ocClirred in a
STAB exit routine, ae6sage
DfB061S and OS/VS' ABBID 615 are
issued.
SPI.
lntertace--------------------
Section
,--_._j
2~-
1
I I
j
'bOl are issued.
If a recursive prog:ra. check.
occurred, messa. 3"6 DfH0602 and
as/vs ABEND -602 u:e issued.'
I
I
II
I I
I I
in the fuololword vilicb preceded
~be
I I
Method of Operation
II
II II
I !
I I
_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ ....-_ _ -:-- ___________ ... _____ .J
Dbgrall - r3.1.2-Cl
447
LICENSED MATERIAL -- PROPERTY OF IBM
,----------------------------1
Pl:oce;j.5iu~
J.ut'u,t
PAGE
Output
[--------------------------------1
1 O}l
;;
r-----------------":------l
:~U~~i:~~~
_______ /-----m~~;:1 ~;j·:::o, ""'" 'u""'" L.__ J '"
I
---,.------------,1 rIHi~~~J
1
I
is tm, mDtere'.
.::>11\ t./.tS'lAl:;
f
I
!!
I
r~:~-~:.~~--l-f-i----------->1 [~~]
L __________ •
m~mE--]11 l----------->III[~~J
If~<.It.urc ..
I [u41
I --,
I
L>~~~~ ____, f
r nri1!)~~~~l' I I
U:~~~~ _____ j I
I
~I'CI.I\l:C
I
J-f::~)!
I
::,1:::::=_]11 /'1,
"ave ABEND code
TeA
TCiiTAC---l
~~i~~p~~~~
!H~~~f
Iu
I
I
"dtCn ABEN" code and
class and
I
I
I
r€~ui.l€d
I
l ~~~~-~~I I
:~~~~~~:J I:
save:::::=:::-
intotlliaticn
I
I[~~]
\
1'"-----------------1
!~.:~ / >I ~::~~:.:~-----------
/1 __ ..1
<\
I
I
I
I
I
I
I
I
I.a match tourld,
schedule
II !JTIIE.(ESTAE
routlne
I
I
1
I
rEtr7
j'- __________________
J A 1~ J. II.J
I
I
II
!I
I
II
J1
I --
I
L _ _ _ _ _ _ _ _,
I
(HilA: only).
r---------->I1-[051
tLd.IIGaction
___J
1
'-GQti'lue AbENC in
te . . indtieD situations
I
L~~~-----:---,-'!-j
I
I
I
l~~~~:::.-_J I
,
j
j
;;iave required infcrmatiOIl
L____________________________J
I
l______________________________J
1L __________________JI
Diagrall -
3.1.3-01
fl~~~~~~;~~~;~;~~~~;~;;;~;;~;JII~~~~~~:l,;~~~;]ll~~~~~l f!::::~;~;;;;;-:~..:;;-;;~~:~:rl-~:~~~~II' ~::~~~1
b 1.: dto:!
1[--,
~j
I
I
L-]
l~~
j
::::~::~::lIw~:~
t:::: ::~:~~
J.1lsutJ:J.CJ.t: •• t:. curt!
tD"
'e." "
dUO
1
:t~,::,
1.[
AUr. •• u
11 CIS
~.dll;HQ teu
JJ€
01
I!
!
LJ
•• ".a,e DtriOo IJ dnd
[~tu"'Il~II:1
STNes.,
I
to UOJ/V';j
I
!
I
I
I'
I II
I\ !\
I II
I
\
I
II
I
!
II II I
I I I jil
'lss"eNi?)
I
I
II
'I
I
I
!
I
I
'I
[.118
to .:.tt:!1- 7. tlt:LLj :rUUt.l.IH~
~(,;a .. Uu.Lt;U
II
'I
I,
llE:elJ.
occuut:.J loU r.jSLt"ldl
td"., .".U •
~~
J.t.
W1..U.
I~RPSl'EXRII
I
close!
ItO dtt~JllPt
dna
I
I
H.
""' LaLLe
tOI: d"...
IIIdt:(;ClJ.n~
ccue. io
l.U ""al:Cllea
~lAJ:. SJ..it.8WS
QEllbElc1te..l.,r
~~]
I
.i..:i,sUt:U
!I
I
I
1.
I
dna.
"ooe
LlltOr..t.o...
J
l '
j
J.~sl.le....
1\
I
\1
I
I
I
I!
I
\
I
I
I
1\
\
II
'I
I
I
!I
I
I
,
I
STilL!.,;!" L
,,
I
\1
I
II
1
'\1
'I 'I ,
I
I
I
,
I
I
\
II,---------------------------------------------------------I
I
I
J
I
I
------------------------------------------------------,
~tj,~/.b;:j'j.• l. lut.c;:l1.u.c",
Diagralll - ':.1.3-01
448
CICS/OSjVS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
r--------------------1
1urut
!
I
II
I
i
II
II
II
II
I
I
!
I
I
I
I
I
I
J
r-------------------------------1
P.['OUE~$.l1l
I
I
I
IE~)
I1[-]
I
I
II
>f------------------) I
',--,/ KfP-------------!I __(/i;;,'
,
L__________________ I
~~
.,.41 opet. '0< of A.",O
.ill. tc Kelpoi., proF"
FAG!
·2 O}
:2
1~;~-----------------------1
I
I
I
I
I
1. II. 1
I (£~j
C;ontl.l1UP,
I
I
ABUt
I
[~---.,
····1 >
Fc-~~IVS
I
I
I
I
I
I
I
I
I
I
I_ _ _ _ _ _ _ _ _ _ _ _ _ J
;,tar./.c.::"LA&.
l__________________________ _
lLit.a[Lg,C~
Section 2:
Method of Operation
_________________J
Dia~ta.
- !.1.3-(j2
449
LICENSED MATERIAL -
PROPERTY OF IBM
[~~~~::~11L
lll!'Ut
r----------------------,
J
J
I
\
I
I
1
1
II
f:1---1'
L
.... , >
---, /
~u'J.k'LG.ti
I
I
I
,---------.
I·UQ:;! Ul.ts
It
'"."
I
:
~~~~~ery
'~k'Uoo
ite~::!itC1blish
> (-_0-_3) t.:xecute spEcified recovery
J
lO:!,ic
J
--
It
terllinate the
task and cancel exits as
specl.tied
[;;1
--.,/" [--------------~
--------------,CP
I
1.3.3
--------------
I
I
I
SPI! and STAt
eXl.ts
I
__
I I-----------> (04 1 Aouorillally
,---------'J Ij
I
[~~~::~iTI
,
/
V
AS END ASHB
II
II
I
1 O'F
[~~] PI.e tbe .crk area
r~l;APtAhO-l-j-
I
r----------·--·-l
PAGE
output
Df'bSItP:
II
I@n
'r~~----:l J____________
I
____________________
1.3'.3
to
I
I
I
I
L _______________________-.1
L__________________________ J
_____________________________ J
Diagra. - 3.1.3.1-01
,-----------------------------------------------------1
l[~~j~:-=:~:~:=::-=:-::::-:~-:-I-~:~~~:: ::~~~~~ Il-~:~-- \1
------------------Notes
1\
~l.AJ:. li'UrA.
'
dred.
1El :::'.::'::::.
1!~~J
",COV""1
to
J.111":
~l:aDCn
dC':I,Ul.t"dd.
Cdll aprogram
,uJ.e
be
tc or :1 L:UutiJld
to • .Ll.i uotD cases
t'a.,ssello 1.1.
tl;;;ll...:>te.r
,. .". ". ,.
tUQt
(fool.
tljl.~
I
~::::::·:::,:::.I
.1';
d
~l""'i
j
!
!. '. "1
I
tlJ
Ii
val.ue
;:/;::L::.:d::·:II::C::~:s::'
1,1
I~
'tdl;;
I.
SnOWl.D:I
Sist~dI.
HO" •• CUDUO, AHhD .S
<000 . . ." . ,
I
~rA.l:. Aet.r},
450
I
I
II
I
I'I
I
I I
L_____________________________LI _____JI___ L_~-J L
_________________________L_____ LI ______1I_____ _j
1
II
I
I
I
Diagra. - 3.1.3.1-01
CICS/OS/VS Program Logic:
Description
(
LICENSED MATERIAL -- PROPERTY OF IBM
lilt- ut
output
paG!
1 0'
1------~---------------1
I
I
I
I
[:l__~ \
I
I
I
1
II
•.r~tEL~~:-1-'I------"
I
,---------,
j
I
J.~~:
1
J
L~!::~~~ __ _
I LecoveJ::t
~2]
!
••
establish SHE
-----) I1(--1 :::::te
{1~;p(:'AHG-l--I------------->
I ""tN[;
DFbS •• :
•• .. 1 )
--,I
I
~!j
specified recovery
I @~]
Free tbe vork are.
1[--1
I
specitied
~~J AVlloI:llally teruinate the
task and cancel Exits as
I
r:-'
l:~~ \I> [---------~
EC"P----------'-_______ 1.3.3
[ ;;;;~
I
--->:l
\
/
v
AB:E.ND ASRB to
1.3.3
I
I
I
I
I
I
I
II
f
L______________________J
L_____________________
t.STAL U€tz.:l
Diagraa -
_ _ _ _J
3.1.3.2-01
~~~~~~~~~~T-~;;I~:~T~:ll::=~----- ~:~-~~l:~:l
IB
'I
Recover y .o"c Co" Oe a pro
to
L~Ult
tt.;,
OL
<1
routl..llf;! to
,<0.
:::~:: ,:~: L::::::~d~~:;:::·e
/1',
I'~
l ~]
IC:tl..l:itI;H
.J
suo .. iu:j tb.i::Lt tb.i::;
.s an ." . . "y.tem.
Au (;';.)/'1:;
.ti:tr..I!.hAJd is
.I:.!:)ta.t. wo!.'''' elL.ad
A l'I:oJl"aw LUUt.I:O.,l
l.::;sue.J..
is::>u~d
'lidS
At:END
if
I I
III
II
I
I
II
ISRP!llR16I
I
I
routl.ue:.> dU J.hlll.Cdtor is t'Cls!>ed
I
II
II
II
I
I
j
a.c."uired.
i::;
lAbLblU coae is A::iHB.)
I
I
I
I
Il_______________________________________
I I I
J:::iTAJ:.
II
,
Jto::~q
Section 2:
Method of Operation
___________ _
Diagral -
451
LICENSED MATERIAL -- PROPF.RTY OF IBM
PAG!
1
or
r'~-------r' ·m:.Jl~:L------l j"'·:rcSs.1S~-:-I-:-s-r-:-'-I- - - - - -l
I
I: ::::::::,::"::::.::' f0 Ifl~> t:::;;:i-I
1,1
"----,/
I
j@~J
I!
I
I'
It
I
J:niHali2'
SPIE
rAlnl"
I
I[~~J
I
I
,
I
I
~1"fi1
Is.ue STAE/!STlE
illitLdlizatioD .essage alld--~I
save STAE/ESTAE addrEss
'I
I
S8P
PIPIPIIf
Pirst-ti.e
switch
1
---------
PleSlie
CS.
address
for SPIB
!
------SRCSUC
CSl
address
for
d
L:~~~~~!
I (/ ~;:~ \ >[Si'iE/.ESiAE----\,--,1
lnitializaticn
L __________________l
l:J
l:J--\/
!~~~~~:::.
l
I@~J
I
I
I
2m~ZLZL!A
-
J
l~iti;iiz;-------
STU./ rS'lAE
3.1. q. ,
----------------
L __________________________ _
L - -_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _
Diagr . . . . 3 .. 1.11,,01
1~~=;;-;';-I,-~UU:1~~~~;-~~~~~11 ~~::~=~~~~~==~======-~::~~:-~~~~~~i~~:~~I
J.ll.ltl.411..Lcl.tl.OIl
!,I,;o~raw
~~td.o.u~l.I.
dUll
~Xl.ts.
so:!t ,UIU
~t'J.r.
to
J
I
!)rA~/t.:;aru.
J:blo tl.l;::.;t-tl.me :;",l.tch lS
t.t.~
~h
J: dddce~s ~.li
I
I
ImmEl!
EJ
I§]
I~~
10F.S"••
8HS::ia ~t! IH n I ~uu ~s wr it t~".
!@]
!
I'' ' ' I
I I
I I
I
I
II
I
!
I
,
I
I
I
I
L______________________! _______ ..! _____! ______ J 1________________ _
I I I
I
IJu.tl.Q.L~za.t~\lJI:
452
S.I.'/tJ:/J:S"LAl
s-'-s"'in-'-q'-___________
r:L..·, r~
I ..
11.1.6
T[~---,TIL·
-.J
~/
DPRAC':
rOil
~
".:s.·e
T
t
pCP
At·~~O rpque~t
f-----.,~
l _ _ _ _ -.l 1
~
1 OF
1
c=_)
====-~)
PCT
I
~::TE-~]lr~> [~ 'repare .•ss.q.
PAGl!'
~====.~>
:. .:-:-:-2""'0'"'0-1-,
operator
Write aessa'le to ter.inal
I n'R22~.
Write \lessl!qe to IUl;ster
t.er.inal operator
I
~ Pp.!turn to caller
I
E~~l
To
l
',I ,.1.~1
PC~
-
~
Task lB!RD
Diagraa - 3.2.1-01
I_"ot_es----for _1_·out::II __
L'be~ll_··fll·ot.s
~
@]
aessages are issuil!'rl.
D,naaic Transaction Bactout
tasks that ha.e abended ..
DPR220X
.__._________
I~
Label
Bef
I
Bypass vritinq to terainal
operat.or if:
.. "Facility is not a terainal
.. Pacility control Address is
'Zero
.. Terainal is out of seryice
.. svitcbed line is not connected
.. Ter.inal type is 3735"
sy stea/1, or 7770
II
- 'his 1s a 3790 running DIP
~ Bypass writing to .aster
terainal operator if ABeln is
due to stall ourge.
II
~~a-.~k~I~B!~.~D~----------------------~~----~------~--~
Section 2:
Method of Operation
455
LICENSED MATERIAL -- PROPERTY OF IBM
Page 1 of 1
From 1.-1.1. and
4121
INPUT
OUTPUT
PROCESS
Gb
TOA
TICA
I
TOA
I
:~
TWA
[£!J
Move Transaction ID and error code to the message
~
If this is a disconnect request and the line is switched,
disconnect the line and exit from AOP
. r:m
L:i§=:J
Write the message to the terminal operator
~
Write the message to the master terminal operator
~
Return to caller
TIOA
~
~
1.3.6
Diagram·3.2.2-01
Terminal Error
NOTES
LABEL
REFERENCE
NOTES
ROUTINE
REFERENCE
If the line is out of service, return from
AOP: otherwise, issue a OFHTC TYPE=
(DISC, WAITI.
E]
TRANSBR
~
TRANSBS
Diagram - 3.2.2-01
Terminal Error
456
LABEL
TRANSPB
~
~
ROUTINE
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
lnf'llt
?roc€ssing
--------------------1
r:L-, \ I
I
/1 [--)
TJ-r=====~)l ~~ ~::::e
~~~~~=J1
l-)r[:~_----J-- I [71--J\t~21
[ .::~~~- --,J ~
I --,/, --'
l'c.r1E
I
I
-'\ [OJ]
r,>[lc;:;:~:~=lTlll
[~=-'I --
I
l,rr~~---=l--
r liZ~~~~ -11-1,
last mLE on orror
Generate output message
and perform error
II
U
EstaDlish "efault
corrective action to be
r;;o_;;] Call
L."
DP'HTEP and pass
address of current
-,-
---'[~:~::~_J
T~CLE
to field TCAPCAAA
!>i~~~~::J
I
II
I
"
I,
-----
!' I
ZZZZZZ!ZZZ?ZZ~/l
1'ACLF
I
I
I
777777777T'77~'>
II
-------------1/ I
I
TeA
r;;c;;;;C;;,,--l
I.. __________ .J
:
II
I
correctl.V€
I~~J perto:-:::-.O-t-i-.:-::~on
I~]
'
[i~:~::~:::l
I<~~~~)[m~~~~jEf>ii~==J
act~on.
I
I
!
ZZZZ~Z!Z!ZZZ!\ /:
I
I
:1
processinJ
performed
J'
r-------------------------------l
DF HrACe:
l~::)
Pllf-E
ou+~u+.
r------------------------1
established by steps 3 and
I
Return to caller
1
I
I
I
I
I
I
l______________________________J
I
I
I
L_______________________________ J
Dia3ram -
J.-~-Cl
r~~::~~=========~=~~=T~~ :~~~~~=I~~:~~~1 r~::::=~=~~~~~~~~~=~~~~~=~~~~~~J~~::~~::I~~:~:~~ ~ i~:::~~l
/[~:D
1/
\
!
!
!
I :~n::r:n:: :::l~C:~E::~dt::ld.
I
II
II! !
ut,
Toe last TACLE entry is fla,ged
ITACOEC
I
stote tae address of a lIorK
I
I
II
\1
area, tne TClE"""" bit is SO"
I
indicate tna last entry on the
I
chain. 'the cllain end location
routine cneCKS .tor eitner of
\
toese eM-of-coau indica"ors.
in the tell-fH2 .tield to
I
@l
j
It
"
,
I
I,I
"
I,
I,
I,
II
'I'
I,
\'
II
I'
I'
',I
:,
\
I
1
\
I
I
'
I
,
I
:
I
,
I
,
:
:
I
I
I
'
:
:
:
I
I
\,
I,:
II
I
,I
,
I
II
,
I
:,
,
1
:I
iii
I
I,
I
\
I1
I
:
:I
I
,
,I
I
I
I
I
Processin;1 at. t.D.l.S time depends
I'I
I:
II
II
hACr1SG
on toe "He of eno< that
occurren. Beter LO Table 1 for
I
I
tne
I'
I,I
I
II
I~ Detaul.t actloon de~ends on tilt:!
ITACMCOf'lP
I
.iJroce.l>:;;~n3
J:outines and.
I r;::;l
\
I
!
t.:_,
I
II
:~:et:: :::::~L "::::0:: :::l:a~n
I
DFHT£P 1.5 a u.Eer-sllpplied module
I
IITAC1£P II
error code.
I
I _,
fOIj.I
'I
their ordE:I: of execution.
toz: addl.tional error analJsl.s
I
II
dnd corz:ectl.on.
/ /"/
I
IIII
II
I
I
I
I
I
I,
,I
'
I'
,
:
,'
I
:
I
I
1
',I
i
:
II
,
,I
I
'
I
I
I
II
:,
I
I
I'
,
I
I
:
_____________________________________________
,I'l _____________________________________________________________
I
I
I
I .':
I
I
Terliina.i. Abnormal Conditicn Program
Section 2:
Method of Operation
II
,
I
,
Ciflgr,3!f - 3.3-rl
457
LICENSED
PROPERTY OF lIM
M~ERIAL
ERROR CODES
8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 A A
1 2 3 4 5 6 7 8 9 A B C 0 E F 0 1 2 3 4 5 6 7 8 9 A B C D E F O· 1
A
3
B
C
D
E
F
p
2
2
2
2
2
G
2
H
R
o
2
I
J
2
2
K
2
t
C
2
1'1
333 353 335 3 3 3 3 3
N
E
0
p
s
Q
s
S
I
T
U
V
N
G
R
o
u
T
I
N
E
S
R
W
X
y
Z
AA
4
5 333 3 3 3 3 3 3 344
3
2
3
5·
4
4 4
4
4
5
6 4 7 4 4
7 4
5 6 4 4 4 4 4 4 4 4 4 4
2
1
1 1
1 1 1 1 1 1 1 1 1 1 1 1 1 1
2
3
3
AB
AC
AD
liE
2
. AF 4
BA
BB
BC
BD
BE
BF
CA
CB
CC
CD
CE
CF
4
1 1 1 1 1 1 1 1 1 1 1 1 1 1
3 3
4
2
2
2
4
5
3
6
4
6
3
2
2
4
2
2
2
2
2
2
2
DA
DB
DC
5 5
4
4
2
2
DO
DE
l)F
2
2
The matrix defines the selection of message routines based on error
code.
The sequence in which the routines are executed is indicated by
the number in the column corresponding to the error code.
For example.
for error code X'88'. the processing routines are executed in the
following order:
U, F, W, X, N, BA, S.
Refer to Figure 2-4 for a list
of the processing routines.
OPL6
Figure 2-3.
458
TACP Message Construction Matrix
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
Funct ion
Routine
Generate message "DFH2501 MSG TO LONG, PLEASE RESUBMIT"
Not used
Generate message "DFH2503 AUTO OUTPUT HAS BEEN REQ.
PLEASE PREPARE TO RECEIVE"
Generate message prefix "DFH2502 TCT SEARCH ERROR"
Generate message prefix "DFH2505 POLLING LIST ERROR"
Generate message prefix "DFH2507 INPUT EVENT REJ"
Generate message prefix "DFH2512 OUTPUT BUFFER EXCEEDED"
Generate message prefix "DFH2506 OUTPUr EVENT REJ"
Generate mess age prefix" DF82513 OUTPUT LENGTH ZERO"
Generate message prefix "DFH2514 NO OUrpUT AREA PROVIDED"
Generate message prefix "DFH2515 OUTPUT AREA EXCEEDED"
Generate message prefix "DFH2517 UNIT CHECK SNS="
Generate message prefix "DFH2519 UNIT EXCEPTION S.N.O."
Generate message suffix "AT TERM xxxx, TRANS yyyy, hh.mm.ss"
or "ON LINE W/TERM, REL LINE zz, hh.mm.ss"
or "ON LINE W/TERM, hh.mm.ss"
Generate message suffix
"LINE, CNTRL, TERM xxxx, [REL LINE zz,] hh.mm.ss."
or "LINE, CNTRL W/TERM xxxx, [REL LINE zz,] hh. mm. ss"
or "LINE, .TERM xxxx, [REL LINE zz,] hh.mm.ss"
or "LINE W/TERM xxxx, [REL LINE zz,] hh.mm.ss"
or "CNTRL, TERMxxxx, hh.mm.ss"
or "CNTRL W/TERM xxxx, hh.mm.ss"
or "TERM xxxx, hh.m~.ss"
Generate message prefix "DFH2508 UNAVAILABLE PRINTER"
write to terminal causing error.
write to Destination "CSTL"
Write to Destination "CSMT"
obtain terminal main storage area (message build area)
Obtain transient data main storage
Generate message prefix "DFH2531 INVALID WRITE REQUEST"
Generate message infix "RETURN CODE xx"
Converts hexadecimal byte into two printable characters
Generate message prefix "DFH2513 PRINT QUEUED"
Generate message prefix "DF82531 1C FAILURE X"
where X may be "IOERROR" or "TRNIDER" or
"TRMIDER" or "INVREQ"
Not used
Generate message "DFH2534 INVALID DESTINATION"
Set terminal out of service
Set line out of service
Generate message prefix "DFH2504"
Obtain terminal statistics
Obtain line statistics
Generate message prefix "DFH2516 UNlr CHECK SNS="
Generate message prefix "DFH2518 UNIT EXCEPTION"
Generate message infix ",S.N.O."
Generate message prefix "DFH2520 NEGATIVE RESPONSE"
Generate message prefix "DFH2521 UNDETERMINED UNIT ERROR"
Generate message prefix "DFH2522 INTERCEPT REQUIRED"
Generate message prefix "DFH2526 INTERV ON PRINTER"
or "DFH2527 INTERV REQ"
or "DFH2528 ERROR STATUS MSG XXXX RECEIVED"
Not used
Generate message prefix "DFH2523 INVALID COpy REQ"
Generate mess age prefix "DFH2524 INVALID MSG BLOCK"
Generate message prefix "DFH2525 INCMPLT MSG"
Generate mess age prefix "DFH2510 TIME OUT"
Generate message prefix "DFH2529 UNSOLICITED INPUT"
Not used
Not used
Generate mess age prefix "DFH2530 INVALID READ REQUEST"
Generate me ssage pref ix "DFH2509 INVALID DISC REQUEST"
A
B
C
o
E
F
H
I
J
K
L
M
N
o
P
Q
R
S
T
U
V
W
X
Y
Z
AA
AB
AC
AD
AE
AF
BA
BB
BC
BD
BE
BF
CA
CB
CC
CD
CE
CF
DA
DB
DC
DO
DE
OF
!Q1~:
Output messages may be composed of up to three parts in the form
of "PREFIX INFIX SUFFIX".
These three parts are put together by the
various routines and then output to one of three possible destinations
depending on the type of error.
OPL7
Figure 2-4.
Section 2:
TACP Message Routines
Method of Operation
459
LICENSED
~_~TERLnJL
-- PROPERTY
ROUTINE ORDER
ROUTINE DESCRIPTION
81
83
84
85
86
87
88
89
8A
88
8C
8D
8E
8F
90
91
94
95
96
97
98
99
9A
98
9C
9D
9E
AO
A1
E
R
R
o
R
C
o
D
E
S
8
7
3
1
2
2
5
6
8
1
5
1
1
1
4
9
6
6
6
6
6
5
7
1
6
6
2
1
2
1
2
1/2
2
7
7
7
7
1.
Abend transaction
2.
Link to DFHTEP
3.
Put line in/out of service, as required
7
7
7
4.
Unavailable printer processing
5.
Put line or printer out of service
7
6.
I/O error test
7.
Test line for next operation
8.
Set line disconnect required
9.
Unavailable printer interval control error
7
1
1
1
2
1
2
2
2
7
2
1
1
1
1
1
1
2
2
2
7
2
7
7
7
7
2
2
2
2
2
2
7
7
7
2
1
1
7
2
7
7
2
2
7
7
7
7
7
7
Notes:
• The information given above is a generalization of TACP's default error handling.
•
The left-hand column contains the error code.
•
The right-hand column shows the routines used and the order in which they are used.
OPL82
(
\
Figure 2-5.
460
TACP Default Error Handling
. CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
PAGE
1 OP
r
r----1--f_s~~;-:
3.0:2)
riill;-RsD~
,control Record
L ____
~e.,point
~.9
. Save
TeAs Data
Save BeAs ~na
'ilREs
L_ _ _ _ _ 3 • O• 6
fro~
3.4.10
program
Section 2:
rs;;;
L-
1
rsave
L
TeTT'E's
T5
I
3.0.13
RIPalHoT 1.1 Diagram -
Method of operation
3.11.-01
461
LICENSED MATERIAL -
PROPERTY OF IBM
-----------------l
[:1--"
.. ··1
I
roil Prevent runaway, save
L:..:J ra,ist«s
'f~----)--------------->I 102"]
L_
TCA«PRB
lTCAKPSR-
Exa.ine type of regues'
and exit to appropriatlO!'
------
routine
'(CAKPRB2
output.
II
OtUKPP,
>
---,/
-----
Ut:E
1 0'
1
r-----------------------l
processin;
r~~~---------------l
II
-r---------..,/I
---------_ _ -'\
II
teA
[;;;Ciii~S-~l
-q:e;rister
sav~
a1"~8
------,
II
I
[======iTI
'
.
I
I
See not.e 2
I
I
I
I
I
L________________
I
I
I
I
.
L
____________________________
JI
.toutz:y Analysis
Oiag-ram -
.-------------------------------------Routl.nel Latel
I Notes
Ref
3.Q.'-C'
r-~:::-------------------------I~:~::--~:'~:~----~:;- -1
I.
\I
1~~T---------------------- -----I~;~;;;~ ---- -------------------------1-------1-------1------1
I
I
I
[~
I
for war. '.H0>"t
~ .•.
I
II
1
I
I
I
2
I I I
of Del'
II
ot :rCA
3.'.10
of Tel,tk,' s
3.~.
of a.J.l tueIj
3.11.2
I
II
13
I
Par IInee .tCestctrt I)ata Set data
3.'. "
'(or heuQ .iCel:ltart Data Set data
J .'.12
I
l
I
I
I
4(i2
I
I
I
I
L
I I
I'
I.
I
------------------------------~----------
!.ntti AnaJ.Ysj,s
I
I
.
I
I
I
I
I
!
. ...___ __. . .,. __________________
I
__________________-.--___
JI
~
.
CICS/OS/VS Program Logic:
Dh:rram - 3.Q.1-C1
Description
LICENSED MATERIAL -- PROPERTY OF IBM
.Page 1 of 1
OUTPUT
PROCESS
INPUT
[b;
CSA
~
CSAPPTBA
PPT Beg
OFHKPP:
@]'
Locate first entry
§]
Start first block
address
CSAPCTBA
PCT Beg
address
W~ff/{>
KPCTLREC
I
Control
Record
I
CSATCTBA
TCT Beg
address
CSAOCTBA
OCT Beg
address
CSAFCTBA
FCT Beg
address
KPBUF
PPT -,
PCT-,
TCT-, FCTand
OCT-Entry
:> §]
I
Move entry to keypoint buffer
Locate next entry and repeat
~
Write the block
~
Exit
Keypoint
Buffer
~
3.4.3 or 3.4.4
Diagram -
Save Table Entries (PPT, PCT, OCT, FCT, TCT)
ROUTINE
NOTES
~
LABEL
REFERENCE
I
NOTES
ROUTINE
LABEL
3.4.2-01
REFERENCE
This logic is common for:
- PPT
KPPPT
- PCT
KPPCT
- OCT
KPDCT
- FCT
KPOCT
- TCT
KPOCT
If no entry, the facility is marked
absent in the contro! record and exit
is taken.
§]
KPBLKl
~
KPWRITE
Save Table Entries (PPT, PCT, OCT, FCT, TCT)
Section 2:
Method of Operation
Diagram - 3.4.2-01
463
LICENSED MATERIAL -
PROPERTY OF IBM
tapat
Processing
.
....,/
~
,>
eSASBU
, OP
,
DPIIKPP:
[§
,>~
CSA
PAGB
Output
Start first block
IMove CSA fields to keypoint buffer
::llC?~l.e
I
DPRKPDDS
ItPCSlIeV
ItPeSlICR
CSAICSIC
Stall tia.
interval
ltPeSASCS
ItPCSlIeS
CS1ICBYC
Runaway
t.:,... .
interval
ItPCSARrr
ItPCSl'fP'r
CSASCRB
KPCSATPB
~~g~lg:
ItPCSAURQ
size
eSAKCKT
!!ax task
,
@]
value
'Urite" block
eS1URQID
unique ID
D!'RA'I'PDS
CSABeftXT
A'l'P alll:
'-:--
task
eSABeRIB
!lax batch
task
Save eSA Data
Diagra. - 3.4. ]-01
'Routine
Rotes
-
@J
Label
'Routine
Kotes
Bef
- - - --KPBLK'
@]
If ITt' 1s not present.
tabel
Ref
--- ---
ICPCSA~PT
Ilna KPCS1'l"PB are set to zeros
,
~~
KPWBITB
,
t
S!lV.
esa Data
464
]
CICS/OS/VS Program Logic:
oi .gr••
- '.4. -0'
Description
LICENSED MATERIAL -- PROPERTY OF IBM
Processing
Inpat
output
P1G!
, OP
1
CSA
@]
...
---------...
)
. r---------> @]
~L----------->
I
>Ir:O"'C=T-.-:t-·-·p'l
Start first block
Calculate map length and
el~~e_i~ k~y"poin.t.~,!!~er
======~:>
fto'le aap to buffer
~ If buffer fall, write and
repeat
~ Ezit
, I
3.'.5
V
L _ _ __
Sa'fe DCT Bit -f!ap
Rotes
Diaqratl ... 3.4.11-01
'Routine
Label
Ref
---- ---
I
Notes
Routine
Label
I
Ref
--- --I
,
,
I
Sa •• DCT Bit ftap
Section 2:
,
Dlaqraa - 3 • ., •• -01
Method of Operation
465
LICENSED MATERIAL -
f·:onp'•-...;t~_ _
I
'-----'l
AID
»
PROPERTY OF IBM
Processinq
f
PAGE
output
, OP
,
~'DPIIKPP:
-----::::~1~
Locate the control block
,-------.1' roil,
L.:.:..I
I
I
I
@]
1:j:
l=:JJ
Start first block
I===:1-!~)
I
1111 ~
:>' ~IMoveconlrolblocklokeVPoinlbuffer
'-----'
@]
KPSOP
)S.ffer
tocate nnt control block
and repeat
trite last block
Sa". tCEs and AIDs
Diagrn - 3.4.5-01
-~
Rates
@l
This logic 1s co •• on for ICEs
ana lIDs
'Routine
Label
Ref
--- ---
- Por ICBs
Ute!!
- Por AIDs
KPAID
Wotes
'Routine
Label
Ref
--- ---
If request is fro. DPHstP. the
addresses are in the Til.
tf either types of control
blocks are absent, this is
indicated in the control record
and e1:1t Is taken.
@]
,
In case 'of ICB, the julian I1llte
1s also ·.e)t'eel to the buffer • .
,
Diagru
Say. leBs aDd lIDs
466
CICS/OS/VS Program Logic:
- 3.4.50'
-
Description
LICENSED MATERIAL _.- PROPERTY OF IBM
Input
f
---------,
I
processinq
1
,II
f USAOPf'LP.
I
"
I
I
8--"
Optional
Features
List
CSAOPPL
f
t>L~~
L>
II:
I
L
fOPR.
__
TPDS
_ --'I '
r=---
r l"BCA.
I
I
1
OFHBCADS
'I
o ---->
~
rn;;,
1
I
I
I[il----> fOfC16---->
L=_--'
LD~HWREDS
\
I
fWR'CRAIN
tNe.t m
j
I
I
I
I
I
Ll
1---->101
!
I
I
~uffer
f'love iR'P. to buffer
nI Il
J,
"I
I
KPB{1P
[lli!~~nt
J
J!
I
A
r E~-.-l-'-->
0
I
rr:l
"
Move SeA to keypoint
Locate first liRE
0---->
;;.----,
1
start first block
'
L_
1
\
I
t>f~-~ ---->
I 0 0 ----> ~
:I
II
I
1
1
ICSABC'B'
Bea
address
I
-,
Locate first BC"
@]
II
!
1
a
1
'I
I --'
'
I
fcSAAT'PiTo'l
I
DfR.PP:
i~/>
--,' -------=:-!->
CSA
1 OF
l
I
I
PAGE
ou~put
~
I@]
Locate next w'!n~ and.
move of liRE
repeot ,
'
I
Locate next BCA. and. repeat
move of BCA
Write lost block
I
LJ
E]
Exit
I
I
II
,1
II
I
II
I
I
II
I
I
I
J
L _____________ l
L - - - - - - ' D i a g r a - .-_-3::-.7.-:.60-_ 0 ,
S1ve BCAs an:3 'iREs
---=] ,------------
---1--'1
f·,
.-::~:---------------_1~~I-~~ ~~_I
I[011
,
__ J
I
If request from DPRSTP, oadress
is in TWA. If BeA not present,
I
I
I
I
'I EJ
Processing
y----------
I
ItL=-:Jll,I ~>-:
C~~u~mA1
TS tJnH.·· I
Table
I
I
Locate first auxiliary
Temporary storage
destination in TSUT
I
I
'
I
DPHTSGID'
.
I
I
,
@]
Start first block
r.i'l3
t..:..::J
Move entry to keypoint buffer
r,:;;;,
>[!Bi--~------::::> ~ Collect RBAs in buffer
I
I
I
~
I
OFH~pons
I,
I
I
I
I
I
',
,I
Exit
E· ....·t
F;'
I
.___J
l
Save Temporary Storage Data
~--------------------------
~tine,I_~~J~,
I f no TS in svste •• indicate
Ir - - - - - - Notes
I
this in the control record and
!
I
I
I
!
I
,I
1
I
I,
L ______.___~
J
i
I l
I--1---'
Routinel Label
1
"
KPTSTOOA
the unit tables.
I
indica ted in the control record,
and exit is taken (bit lIap data
collection is also bypassed).
Pef
I '
I
1I
I II
I
,I
1
I
II
j
I,
I
I,
,
I
If no aux entry fOl1nd, this is
\
[~ l"or sing!e-RBA-dest.
I!
For lIlul t-RBA-dest.
I . . -."-..
[~~
Only in case of
I
I
I,
I
,I
I
I
I'
I
I
I
II II
I,, I,,
KPTS'1'02A
KPTST05 A
I~PTST07
H . . Hoo,
,I
I
I
I I
1 I
I J
L___
o---:-------'-.
SIl.e Temporary Storage Data
468
I
Diagram - 3.4.7-01
exit.
The locate is done by scanning
!,
r.p;;sTiO'
__ l
i!aentifica,
~~
-----'
"rite last block.
I[~~
I
I
1_ li/,'I
and repeat
_
r
II
Locate next entry in TSUT
, Notes
1 OF
OFHKPP:
JJ :
I
DP'HTSOT
PAGE
output
Diagrall - 3.".7-01
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -
PROPERTY OF IBM
PAGE 1 OF 1
INPUT
PROCESS
~
[I
CSA
,~''"''
TSMap
Address
I
I DFHTSMAP I
r:
I TSMAPEAD I
'
I
End
Address
.
I
1
Address
0--
-tE
_
1
DFHKPP:
@l
Start first block
@]
Locate TS bit map
@3J
Calculate and move map
~
Move map to buffer
~
If buff~r full, write and
repeat move
~.
Exit
DFHKPDDS
KPTSML
length to keypoint buffer
-0
I TSMAPBDA I
Beg
OUTPUT
B
I~
3.4.9.
Diagram·3.4.8-01
Save TS Bit Map Data
NOTES
ROUTINE
LABEL
REFERENCE
ROUTINE
LABEL
REFERENCE
Diasram ·3.4.8.Ql
Save TS Bit Map Data
Section 2:
NOTES·
Method of operation
469
LICENSED MATERIAL -
r~---~
PROPERTY OF IBM
,. .
[~,"JI':L~-~---l,.
I
---,1
I
",C,LB'C
PAGt
[~~]
j
rn-]
rl~rt~i--l--I-------------> t~~
~~:~_~
I@n
record
7n7777nm7) '> I
-'1-----------1/ I
!
Point to 1:irst record ar~a I
on restart data set
Write the block
I
@;J M", " ""''' "om
KDC'!'T.~Er.
I
I
rKPCTi;;:R--l
lm:_~~ J
__
1
I
'I
!
I
I
!
I
I
!
[ -------;"J
••••• ·.~l
------~~I
!
I
O~
r~--------------l
t
Tillie-st. amp the control
1
I
:
'
I
I
:
1
To Caller
I
I
I
I
I
,
I
I
·1
I
,,I
I
I
II
I
I!
I
L_~
~t'j:t.e
I
,I
II
I
I
I
!
I
________________
IL __________________________ J .
II
L _______________________________
Di'tI,,!)D (.;o.ntrol ti.ecord
Dia~rl1m
-
I
J
:.q.~-C1
r-----------------------i-----i-----' r---------------------------------------,---------------,
1-::::---------------------- -::~~::I-~~~:~--I-~:~--I'I~~-------------------L::.:=::
1
I
I
'L~~~~~--I-:~~__I
I
:
!
\ :' ,: :,
"
I
!§]
II
I
r;;,1
Il~ Tl.lIle taJten
iJ'j
l.SSUl..n:r operatin;
systt!.I/I macro.
I
StlDJ:OUtl..n""
I KPilfiltE
\
II
IB
II
I
"
!KPP"H
II
I
""
I
'
I
I
II
!
'
I II
I
' "'!
I
II"
I
III
I
I
1
'
I
'
I
I
1
,
I'
I
I
1
I
I
I
1\I
' I I,
I
II
1
I
1
I,II
I
I
I
,
,
1
:
:
I
I
I
I
I
:
I
I
I
"
I
!
I
I
I
I
I
I
:
"
"
I
,
i
I
I
:I
,
I :
I
I
I
I
I
I!
I"
I
I,
I
"'
I
t
,
I
I
I ,
'
I
I
I:
I
I
I
"
I
'I
I
,I
I
I
II
I
:
I
\
:
I
~
~
I
,
:,
,
II
:
I
I
:
I __________________________ .!.
I____ ...!.I_______________JIIl___________________________________________ I________ :______ ]I
L
.r~te
470
Oia~ratrl
DFHi\SD t;ontrol .aE:cord
CICS/OS/VS Program Logic:
-
~.ij.,:-r)'
Description
LICENSED MATERIAL -- PROPERTY OF IBM
PAGE
, o·
r-------------------------------l
output
I~~~----------------lpro. J[~~, ~='--------------1
I
,
,,
,,
,
,,I
,,
,
,I,
I
I
•• ··1 >
rCSMCTBA-j--'--·---------->
I
CSA
---,/
[--]
~!
Locate first 'lCA entry
Act.l ve DCA
cb.a1.D
~;-:UCTQp-
I~~~f.~
~~]
I
Il ~uAsSp'iiesnOdPDCA chain
Start first block
::I:::::::-Jur:~)
Hove entry to buffer,
:::::=::.
I
-
l-f===:::~)~]
..
;;;~>
locate next entry, and
,,I
~l :::::::::::0::' ,,, ~"II
' l';AZLUWD
,,
,,,
,,,
,
I
I
I Pla;Js
1-----l~~~~~
@~]
,,
Return
I,
I,
I
,,
,I
,,,
,,,
I
I
I
L ______________ .J
SclV~
________________ J
I
L _____________________________ -
Dat.a f1:,)" TeAs
Dia';J17liR1
-
3.tI.10-\(l1
f-:=---------------------:::~J-:~:---~:--ll-~::~---------------------------1-:::~:::1-~:~:~--1-:::--1
I"§J T:=:-:::~:-:::;-:-:;-::--l-----II ~~;~:~~
I-
r-J
~J.
TCAs.
I
I
I
are 1.n
I§J ::~~h::' :::~:·s;::::~~;~e:r
DIII1::
t'J:ocessin:l are
I
I
1,'1
I KPTCAO 15
:I
'
I
II
I
I
I\
I
A condl.t.l.cDill Journal. :::ontrol
I
\
II
!KPJCilTCA:1
not
I
1ssu
!'love data tc tuffer
----------~
II
--I-------l
,
I
write block
r~~;;~~r--l
"
1'1''rll for. "P
'I
I
:
I' ~~~:~~:---,
KFC'!;'BCC
1'1;'rP
:,
for FF"
'
'I I1;;~;:t~gI
~~~~~~~- --,
~~\
i,'
!I'I I m~~m~::J
I
I
\\PEnF
l!:~) 1 t~~=~~~~~]
::1: ::::::=-l~--., 1,'
,-~, [,§",::J
I
[~~~~=J --1------------->\ [~~]
II
:
<·C·L'"O
lIt
~~~;~cc---l
I
I
'I
1 f)F
I
Update TTR
KPCnHEe
I
I~'l '",."
I
,
I
I
,,
I
[ ~~~~;;~;1
------]:
I
,/
I
V
1'0 Caller
I
:
I
I,
I
,
I
I
I,
I
I,
I
,
I
I
l___________~_______J
Dr'dKPP
I'ItJ..te
l_______________________________
hestaL"t Data SetData.
I,,
I
J
,,,
_______________________________ J
lJi:!o')ram - :!.IL l1-fl
rr~~~;;;~;~;~;;;;~;;~-~~;;[~~~~~[~~~~=-~~:~~~I [1~:~::=~~=~~~~~~~~~=~=~~=~~~~~~]I~~::~~::II~~:~:~]I' ~::~~~I
lrall.sact~on
records, tne
tb~ i'~l~
I
I
cackout
l'aol~,
TaDJ.e,
tlackout
toe D1/.1. tlaCKout aud tDe Message
dacJC.out XaDJ.es to 1:he Restart
II~
',',
!I
\
I
data se1:a Oef/endloLlg Oli. Ifhlocl\
table loS wrlottt:Jl, the
I
I
I
I
,
I'
bufier
IiL~ttell
"~ac.,
OU1:.
XPW 180 10
I
< be record .,11
I
I
I
st'dDlled into more
pny.sical Dloclts.
I
[-,1
I ~~ SUDrout~ne
I III I
I'
..
Next availaDle n'R is updated.
~
II,
,I
I
I
~
472
1Ii;c~te
ns,sta;ct Lelta 5etData
:1
I
:
I
I
:
:
:
i
:
"
I,'
,
I
:I
\
I"
I
I
I
II
I
:
/1 KPpm
II
!
I
I
I
I
,
'
I,
I,
I
:
I
'"
\
I
,
II
I
I
I
~
'I
I
II
1\
I
,
',
,
,
,I
,
I
:r
"
i
II
'II
I ,
I
II
I
'L'_______________________ I _____
!.iYUKPP
,
:I
I
I
I
I
1,
II
I'XPNXTA
fos'J
:
I
:
1
I'II
KPIIRIrE
I
l[-~--"J
I
I
I
1
, ,
I
,
COLreSt'OllQln;r TIk-slot in t h e ,
I t user-r ecord-sl.Ze exceeds
I
I
I
I
I
I'
\
I
control record '" prim6d.
I
I[0:1
I -,
1,1
I'I
1
I
I
,
______________ JIIt___________________________________ , ________ , ________ I ______ I
~
~
~
I)iagram -
CICS/OS/VS Program Logic:
~
=.4.11~r'
Description
LICENSED MATERIAL -- PROPERTY OF IBM
PAGE
p_r_o_c_E_ssio_. ____________ _
.i.Jl,tlUt
,-----------------lpro.
KJ:Cl'LREC
m§~~~--
3['~~,
····1
DPHKPP:
>
---------------) rn]
--,1
I ~~~:..-
TTR
-----------' ,
T-----------.
slot
I
[§
I
-,------,/
-------------'
~
L~~~~::"
[~~!~~:J
~~ St.rt
rij21 Re.d data
I~~~=--
TeA
, n.
Obtain user' storagp and
place address in TeA
_~------_---J
\
,
-----------...., I
1'CA
=rCiKPoBi-J
Bufter
[address
--------
--------- ----->
Deblock data into user
area
@]
E~]
Set return code
____________ ....J ,
TeA
------------, I
L ______
f:rCiiiPiiill
~
Return
[;;;;;;;;j
-----j:l
,
I
V
To Caller
1
1
I
I
,1
1
l _____________ _
IL ____________________________ ;:
DtllKPi Bead ltestart Data Set Dat.a
Dia;rram - :.Q.12-('1
1-----------------------------
l-:~:------------------- -:~:: ~~~~-I-~:~-
I~
I
I
I
II
II
h~]
I~
t
I
rD.is lo3'ic 1.S t.be salle for all
dead-relsuests. the starting
Tl'B-address is iucked IIp
-----------------------"'1---------------,------,
l'Iotes
Routinl'! tatE'l
I
I
-----------------------1------- -------1------1
I
[~~
I;,:;t
X'OO' - good
I
I
I
dep6Dt1l.D3 OD. Ue t6g,llest .. For
read at
I
X'02' - BOP
I
I
TaODA"!' A
\KPP'BTN
lt10C.{'L
I
KPR1BS
.fBOC,}:!.
I
KPBftBC
I
KPBTBDIO
"uDrouUn.
Issue
D~HSC
",or.~E
i
I
,I
:
i
I
I
I
II
KPRIBC
BDoelL
:
I
X'01' - I/O error
I
I
I
I
I
I
,,I
I
I
I
I
II
co.trol ..cro -
1·lPi:.""~~'IflA1N,
I
KPBTBD 10
1
I
CU.SS=USEB
1
I1
~] i t record. .loS st'aDned over more
,
KPalBD12
I1
tllala one physic al Dlocks,
1
severd.!. 1/0 oferaticns lIay be
1
I
I1
I1
r"::l:I,lIir8a to Jive toe IIhole
record to t.ne User area.
L____________________________________J ____________________________
DPHt.i'" itead lias tart Data Set Data
Section 2:
Method of Operation
~
______L_______ ~ ______ l
Oi8gram -
3.Q.12-C'
473
LICENSED MATERIAL -- PROPERTY OF IBM
Input
r-----------:-----
p~~~!.---------------
3.14 .1
I
,
[:1.--0
•• ··1 >
CSA
[--;]
!:::~:~ix
---, I
CSATeT BA
PAGl!
output
1 0'
------------------------------,
!I
D. 8KP P:
r
[~start first block
I
!
(.CSAKOCNr] ----> fAl rAl---->
~.:::~~
r
Ir~!~===~; @~]
"[~~~~:J --1l response
------
r
'QUTST .. RESP' - chain
!
KPBOP
'-=l~)
I
r
r
r
rAl---->
I
[~---->
[~:;'r~t:B T------
------> @]
[-----J---l----------->
~i~~S~Q
[
1
Collect entries from
!
Collect entries from
I
TO-IH-LOGGEO' - chain
r
-------]
Ir
rAl---->
r
r
r
r
[~ ____ )
~~~---
§]
Collect entries frail NACP - - - - -
@]
ICXSEQIL
KP cyel ...
[TCTirnc-J
-------------, I
cbain
>r~~~~jT->0
01flTCTTE
--'\
bits
I
r
Back to caller
I
Inbound
seguence
----TCl'SEQOL
!
D.,U lib Er
[;;;;;;;;j
Outbound
sequence
Duaber
j
-----J~L
,
/
V
I
r
r
To caller
I
I
I
____________________________1I
-------------
Sa ve TC1"1'EI s
Diagrall -
3. q. 13-0'
---------------------------------------1
1Iotes
@]
Subroutine
Ro utine
La tel
Bef
KPBLKl
Notes
Routine
Latel
'liEf
-------------------------------- ------ --------1------1
I
~ tloen cO.Llect~D~ an Entry, the
Keypoint cycle bit 1s set to
retlect it the entry is taken
dllring all odd OJ: even Jteypoint.
I
If 1/0 loS reguired to collect
aJ.l entries, toe scan of the
r
chain is restarted fro. the
r
r
negiDDing I and an entry already
iI
taxen is thaD nypassed.
r
ir
I
Entries are collected at label
KPTCrCOL for steps 2 and 3, and
~ See note 2.
I
I
~ See note 2.
I
at label KP'lCHCOl. f or step q.
I
I
sa ..
;tCHv;------------------------
474
________________________
! I
~.,.==:_~----------_--------.J
. Diagralll - 3.&1.13-0'
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
Input
-----------------
p
CSKP
'l'J:ansaction ID
\
[:1.---,
····1 >
--,1
P,a.C;E
1
n"F
[------------------------------1
output
~~~~~~~--------------------
I
DFHAKP:
~~]
/
I
I
1
Sin31e-thread use of
I1
program
I
1
I
~'\I >I------------~
<, ~::~
~.:~~::----------
@]
ENe
I
I
I
I
I
I
I
1.1.3
--------------
Set to highest priority
I
I
I
\ [--------~
<,/~,
~~~/>
~:~~::-------CHAP
I
I
I
1.1.5
I~n Estab~:~-~~~:~:1 [~~~~~~==========-~
---------------SETXIT
I
I
I
I
I
I
I
I
II
I
1.3.7
~~J Write start of
I
I
I
AKF to
I
II
system log
I
I
I
I
I
I
I
I
I <~>[=;:;:;]
I
I
L ___________________________-.l
Act~vl.t.y
K~Yt'O~llt.
tlrograDl.
I
I
!
1
l_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ l
Di111!'am -
3.,).1-{1
~:::===~========~~=-~~uti::!1~~~~=~~~~~ I[::::-=~~~~~~~~~~~=~~~~=~~~~~~--lI~::::~::-I~~:~:~~I:::J
I
r;;,l
~~
AD.:.nd .;x~t .l.aJJeJ.cui AKi"'AB.t:ND 1.5
act~ve
tor ent1.te duration of
I
I
3.5.2
t.asK.
.
I
I
I
I
I
I
\ I
I
1
I
I
I
II
II
II
I
I
I
I
I
I
I
I
I
I
I
II
I
Act~v~tl
Keili01.nt pro3ram
Section 2:
I
I
I
I
1
I
1
I
III
III
I
L_______________________
I
I
I
I
II
I
I
I
I
I
I
I
I
:
I
I
\
\
I
I
I
1
I
I
I
I
:1
I
I
i
I
II
I
:I
I
I
I
!
I
I
II
I
I
I
I
I
I
I
1
1
I
i
Iii
J______________ L_____________________________J_______l________l______1
Method of operation
J
lJia'gram -
:.': .1-('
475
LICENSED MATERIAL -- PROPERTY OF IBM
Inl-ut
processin3
------------------------------1
I--------------~---
I
~~J
I
KeHoH' DCTS
I <~ ~~1~>[~~~~~~=========J
-------------:.:.~.:.~
[~]
I
I
!
:'
iI
I
E:~~::
II
Conditional link to user's
Activity Rencint program
II
,
i,
(D"HUARP)
I
1.3.1
I@] Write
,,
~nd of Al[iiFiiJC.-----------]
---------------I
:~~~~______2~.:
\
I
I
L______________J
,
I
I (/'r--,/
,;;, \>[DFiiFCF-----------~
LINK-------------
I
I
I
l~~~~~ ______ .:~:~.:
I
I
O~
/,-, \ r-----------------)
__________ _
I[~~]
I
2
r----------------------------- ---1
Keypol.nt '!CT'IEs
I <, ~~~/>
I
PAGT!
Outpu+.
I,,
,,I
,.-, /
I
l_________________________ JI
I
I,
I,
,,
I
,
[________________________________ J
Activity t
!
I//
I
I
----,/ I[~
,
I
!
clocks
Te.porary storage unit
table
I
1----------->1 ~
Petfotll varm. start for
\
II
DlIota r
\
f
!
I\
\
I
,----------->1 ~
/
I,:
I'
@]
Perform va.rlD start. for ATP \
, - - - - - . '/
::~;l:::o~F~:::;g:~:;'Sk
\
I
1\
,I
\
I
\
I
!
\
I
I
IL _______________J\
I
\
I
~J
C::=:J
~-----,
I
1,1
I
I
I
\ ,
I
I
I _______________---.lI
L
Dl.agra ... 11.1.1'-01
r-------------------------------,
I
Routinel Label
!I roil
I
I
Issue DPBte TtPE=RESET to
I
1
establish the U.e-of-day
I
clocks. If an ertOl: occurs,
lssue aessage orB 154::14
I '
\
,
I
CJ
f Q?12
t..:=J
I
:
I
1r7""'
>
I~
:
I
1
are l.ssued. ftessaqe OPH1500 1.5
also >ssued.
Read Ken:cinted Telporary
Storage entry froll Restart data.
set. Setup all assocl.ated RBAs
.ith tbe entry. then usue OFH1S
I
I
1ccnEcle t DlRSII IS
IORIH
I
I
I
I
I
Road Keypo>nted AIO entnes fro.
Restart cata SEt and bUl.ld AID
,I
"
control tlocks. Read Keypointed
ICE entrl.es froll Restart data
set and build ICE control
,
blocks.
I
I
!I
I
I
I
I
I
I
II
1
II \
I
I
,
I!
II
,I
II
II
II
II
I II
II
II
II
II
I
II
,I
I!
II
I
I
1
I
I
I
I
l'
1
t
I
I
:
II
I
Ii
blocks frOID Restart data set and t
II
bnld BCA and .RE control
I
I
block..
I
I
I
I
I
I
I
f
!
fl.elds l.n the eSA IIlth the
KencintEd CSA data:
CSAKCMT - Max. tasks
CSASBTI _ 'eg>o. time
CSUCR!C - Run •• ay time >nt.
CSAleSIC - Stall tl.lI! lnt.
CSAseRB - storage cushion
size
II
'11[01]
t
:I ,JI
:1
I
II
I
II
t
II
\III
I
\L
I
I
I
I
II
I
!I
Raf
I
I I I I
I
I
I
I
II
,
I
1
I
I
CSA8CtlXB -
ATP
max.
UP lQax.
I
II
I
I
I
!
II
batch
!
I,
!
1I
II
I,
,
\
1
IWRITE
com~lEtlcn
I
of DlHTEDP. If
I
Iconsole ICSAEII;IT ,
log 1.S on tape, "B1t foe
OPH'lEOP subtask fails,
I
"
:
I
I
I
I
I
I
tasks
If emergency restart and syste.
message OfH1SSS.
I
!
I
I
II
CSAONCIO - CSA m,u. 10
,'(SABCI'IXT -
II
, ROlltl.ne,1 Labal
--------1---1-----1---1I
I
I
I
IIObl Restore the follovlng con trol
1'--'
!
Read Keyp0l.ntei\ AT£! control
--------------~--
I
'II
I
I
II
I
I
II
l@Js
L
Notes
I ! I II
I
T¥PE=aESTORE to have rsp rebuild I
:::l::·pom y Storage unt
I
1
roo)
I z.::.::
r---~----------------------~--_::_l
I Ref II
--_.---------I----...:I--I--III;::~1I
I
StIUT AD/PC lIaCI:O 1nstructiou
I
L -____ J
IUl.tJ.all.ze Temporary Storage ::ontrol Blocks ,OPH5111 J
f Hotes
I
~~b~~l.t
\ ,
\
,
l\_______________ I
I
\
Perform "arm start for CSA-!.------I,
restart onlYI
'
I
!
and
I
/
I
I
--1---"'::-:>1
I
/I
1 1 ----------->\1~!]
I!
Perform warm start for thE-I----"---1-
~~::>::~z~I::;
I'
,I'
I
I
I-l-.. --..-.. . -.. .>!~
I,t,
~l
I .-----. / I I
I
~:~tart.
I
~-----------l
/1
I@) Establ~:e-Of-day _J
I
I
2
II'
t---------. ,
I ' ....
lOP
I
AB/~C
I
1nterfaco
11<1·-1>58P3.1.14
,L..~,
I 'r--,/ --------1I
I
,
Establish STIUT
PAGE
output
l.SSlle,
I
I
I
,
J
I
f
II
I
I
I
I
I
'
I
I
I
!
I
I
I
I
II
I
I
I
...---------------.-... ---------------.-----------------------------"
Dl.agrall - ".1.11-01
IDl.t1alize Te.Ferarr Storage Control Bleeks (DPHSII1)
Section 2:
Method of Operation
491
LICENSED
-- PROPERTY OF IBM
M~ERIAL
r---------------l
I
!
prccesslng
,
I
\
~
I
I'
II I
!I
!I
I
I
I
[ii]
1[",
[==:=J--l------------->'
I
I
II
PLT
I
I
I
'
~
I
11
, ' 11
1
,1
II
I
I
L~
2
I
I
I
I
U., '" ~.m .. «OM." I
I
teatart
!
I
Load and execute
post-l.nit1ali.zatlon
I
programs
I
[;;;;;;;;1
-,I---FI
To
1
1
r
)I
I
I
I
I
,I
Ll.k to OFHBUP IEmergency
restart onlYJ·
2:J
r~--------~
I
I
I
I f091 Open journal dllta sets
I L:.::J
I
I
PAGE
r----------I
Input·
oV'e~h.y
\ ~?~~~Vi.sor
1
I
I
!
I
1
I
I
I
J
IL______________
I
_________J
I
J
II
I
L____~----J
Diagrall ...
ID1tlall.ze Temporary Storage COJ)trol Blocks tOPBSIll)
~.
1 • 11-02
'j-;:~::--------~-------I-;:~~::I~::~-f~l r~:------------------I-R-O~~I Label -,::~
1-----------------1-----1---'-1---11-----------------1----1-----1---1
I§J
Issue OPHPC TYPE-LINK to OFHRUP
I
1£. emergency restart. If Llnk
'r091
1
L:.::J
"essage OPHI500 is lssued.
falls issue •• ssage OFH1580.
1
I
\
II
1
I
I
1
I
I
I
0.H1518 and 0.H1519 are
/tORSUBP !
I
1
I
I
jcon'Ol.\CSAEXIT ,I
.RIn
I
I
I® ::::::~s
!~~H¥le
I
I
I~~ml.
I
1
I
ISIPPLTLPI
I
I
I
I
I
\\
II
I'
,II
I
II
I!
j
1
I
,I
I
I
I
IIII
I I II
I
I
I
,1
I
II
1\
II
II I1 II II
II
I
j
II
!
I
II
II
I1
I
I
I
I
I
I
I
I
I
I
I
I
,
I
I
I
I
I, I,
1
I
,I
I I I I
I
I
I
I
I
,
I
I
I, I! II II
I,
I
I I
I
I
I
II
I
I
I
\
I
1\
I
I
L
lIIL ___________________________
I____________________________________
I
I
I
I . I
I --'I
I
I
I
!
\,
I I II II'
II
I
I
In1tl.a11Ze Temporary storage ':ontrol Blocks (DFRSlltJ
492
I
I
D1.8graa - 4.1.11-02
CICS/OS/VS Program Logic:
Description
(
LICENSED MATERIAL -- PROPERTY OF IBM
Page 1 of 1
OUTPUT
PROCESS
INPUT
From Overlay
Supervisor
4.1.2
DFHSIP:
~
Open Restart data set and issue message
[§]
Write track capacity record
~
Pre-format the Restart data set
~
Write the control record
~
~
Restart Data
Set
I
TCA
I ====)
TCAOCIC
TCAOCTR
~
>
Open ICIP files
..
I
OCP
I
r
TCAOCTR
1
I
DFHOC Open macro
8
TCA
r TCAOCIC 1
DFHDCSA
4.1.12.1
Diagram ·4.1.12 ·01
Initialize Restart Data Set (DFHSIJlI
NOTES
~
ROUTINE
LABEL
Messages DFHI 500, DF HI 506 and
Console
DFH1504 are issued
WRITE
RSDCLDST
SIPEKAB
NOTES
REFERENCE
ROUTINE
LABEL
REFERENCE
AND
EKPSYNAD
~
The block size specified in system
generation of KPP is used to pre-format
the Restart data set into fixed-length
blocks of an undefined-length data set
~
Message 'DFHl 50Q.ICIP Files being
opened' is issued
-
Diagram - 4.1.12-01
Initialize Restart Data Set (DFHSIJ1)
Section 2:
Method of operation
493
LICENSED MATERIAL -
.1apu.t
PROPERTY OF IBM
{~~~1~;~~, ~r:::::::L-----------l
Cs& '
ICsHCiCiJ
l~A!C1'BA
~ •• I
>
- ' / @ ] s a•• teTstartaddress
@] 'Set
PlGI
Oatpat
_"I~)
-_.:._,-_--.
1 0'
-reninal
Control IS
.el
[§CiCJ
up base register for
TeraiDlll Coatrol
@]
168118
start-ap .esnge
[······ill',/
'fa 'fer.1nal
Control 1. 5. 1
Botaa
l!!J
lIess"asre DI'.I:I1500 is issued.
so Ut1D6
La tel
Ref
DlBDeSBl
starti;-;;rrnar-C;;;tui'o'HDcsi)-------------
494
r.::. =~==~
________
~ ~~
__________________________J
D18gr •• - It .. 1.12. 1-(11
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL
Iopll't
processing
. --1
r:L., I
I
DPHSIP:
t.:.:.J Round raquest to
I
I@]
,
![§
doubl"ords
Obta1n otor ag a
aestora reg.stors
I
ItTO caller
'v'
I
I
!
!
!,
!
I
I
~" ,~"... ,...~~.
I@)
:::r:::r:::t
I
::l
a~~o;~:e:a~~e:~P
~,'
:::::::ed. ABEND code 1599 ••
I~
All
.xcept Reg.star 0
re.a1D unchanged.
1
I
I
I
II
II
I
j
: Routine: La.bel
!
I
I
DULDASI',
I
Bef
\ \ Votes
II!
,
I I I II
I !II
',I
,'I,
I I
II
I
I
I'
I I
,I
II
III,\I
I 'II
II
"
/I
I'
II
I !I
II,I
!
I
II
'j
II I IIII
L___________________
I
.
I!
I ___ I'L____
, !I
'I
I
13-0~
--------,---,----,---:1
I
ROd. t1ne
l
Label
I Bef
Method of Operation
I
I' II I'
I
II
I
'
I
I
,
I I
, I
I
I
I
I
I,
'
I
,
I
I
I
!
I, ,
, I! , I
____.__________
I
I
I -.l'
I
I
Ol.agralll - .. ~ 1.
storage Chopper
Section 2:
D1agraa - 4.1.
-r--j;;;;;;;l-W-------------,-----I----r--I
If -che request callnot ba=
reg.ster~
REG 0
I
,,~r
,@TI
~zzmzzzm!>1
, --:I_
~
storage Chopper
I
I,
I,
__-.l
I
J-,
t.:: ••••• : l
!
\
1
I'
I,
,
1 Not.es
or
I~ Save regutars
IJluaber of I I
.-------
1
II
t.:::.:.:/,~
~~--------------->I'1Qil
I
----I I
I
bytes
PAGB
----------,
CutPllt
r---------1
II
PROPERTY OF IBM
U-O~
495
LICENSED MATERIAL -- PROPERTY OF
processl.ng
r----------------j
I
!I
---, I I ~
III f;;?J.
!
SICO~
I
fSlliST--,""j------------>18
1I
--- I
"
~yste.
Inl.t .. Ll.st
I
\
I
I
I
!
I
I
I.
Save ail regl.sters
~
I
1
I
Get requ1red information
I
I
I
I
I
I
•I
I
1 OF
I
•••• , >
I
PAGE
outpnt
r:1
to --" !I DFaSIP:
II
II
I
,--------1
I
I
I
r-------------l
Input
t
·1
I
II
I~
Re.-3tore regl.sters
j:l
I· ..· ..
I ,I
ITO caller
I
I
I
j
I
I
L ___________________ lI
L________________ .J
I
IL
_________ ---.-1I
Diagram .. Q.l.U-Ol
Get Ol.rectory Information about. a Prcgl'ara
,-;:::------------------,
Ro~ti:T::~f;:;_l r~:---------------B::~nel L::~--;:l
I-;:-,---------------I--~-I--I--II---.
Il~
1.=
ll~
ISIPBLDL',
1
I SIP 159b 1
I
I
I
II
I
II
I
1
I
I
I
I
\
I
I
II
II
II
I
!
p01nt1ng to the 51 hst wh1Ch 1S
II
I
an
,
I
I
BLDL 15 UDSUCC~S5ful and the
I
I
,
p~09ram,
I
I
I
An op.rating system LOAD w1th no
text l.nfOIllatl.On loS l.ssued,
in~etllal
list in SIP. If the
program , . not an appl1caHon
1
I
1SSued.
I
II
I
I
I
AEEND code 159b 1S
------1-1---1---1
I
I
I I
!
I
I
I
I
I
I
II
I
I
I
II
I
II
I
I
I
I
I
\
II
I
I
I
I
J
I
I
I
I
II
I
I
I
II
I
I
II
II
II
II
II
II
IIII
II/I
II
I
/
!
I
I
I
I
I
I
I
I
I
II
II
II
I
I
I
I
I
II
I
I
! _____...JH
I _______________________!
L
! ______
L _______________________________.1I_______ I
I
!
/
1
~
Goat. Dl.rectory Infor.",tien abou"t a Proq:ram
496
I
I
I
I
II
I
I
,
I
!
I
J
I
1
I
I
I
I
I
I
I
I
I
II
~
1
I
I
I
I
I
I
I
I
I
I
I
II
I
I
I
II
I
II
II
I
I
I
I
I __.JI
____.L
D1agraa - '1.1 .. 1'4-01
CICS/OSjVS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
{-----------l
Input
1
I
)
J
,
I
II
I
pI:ocessl.ng
':1
J;L-'\ "
L:000I > DFHSIP:
---,1 f~ Save registers
I
~l~~:ru.A-l
.il-i----------->', ~
-----.I I
\
,I
L__________> §
'II
PAGE
output
1 OF
1
1----------1
Get control l.uformation if
necessary
II
I
I'
I
,I
I
P1nd kEyp01nt 10 1f
necessary
I
I
,
II ~
,I
fQSl
IL~
I
I
I
B.trl ••• next logical
record
Restore regl.sters
,
I
I
I,
I\
________
L'---:-~::7'
I
I
L:.:.:.:-'°l
I
I
I
'TO
.,/
caller
I
I
I
ISIP"KP~
r;;;;;;;;l
I!
!
SICOI'I
-------_."
-------,/
I
I
I
I
I
I
I
I
I,
-..l
L _ _ _ _ _ _ _ _ _ _-'
L____ J
Dl.a'1ram - ".1.15-01
Keypo1nt REA D
I
----I-I
r----- - ' - 1 - - - 1I r----------------\~---------------- -:::~:,-~~t~~II-~:::---------------- ~:I~~~- -~I
I,§
I~
I
The cant xel record 1S read on 1 :r
1
,I --' for the fl.rst request. The
I
I
I
1nforo.t>on 1S placed
1n
an arEa
I
rn>1
The Refpcint 10 table is
~
searcbed for G!TPlItST requests
I
\
only. ,SICO" is an ut.rnal
co •• un ic:ation arllla in SIP..
\~
I
~
\
I
IBSOGRTP
I
I
1S
retr1eved.
I\
,1
II
11
\I
I
II
I
I
I
I
1
I
I
Section 2:
1\
II
II
I
I
I
I
KeypOUlt BRAO
I
I\
I
II
I
I
I
I
\
1
I
I
I
I
I
I
1
I
II
I
I
1
I
'I
I
II
I
J
II
I
t i l
I.
II
II
II
1\II
1\
II
I
I
I
\
I
I
1
'II
IBSOEm
II
1
II
I
I
I
\
L
I
I
I
I
t
I
I@]
\
I
II
lRSOGETN (
I
deblocked and the ne . . log1cal
record
I
\
The ken:cint records are
III
I
I RSDCTLRO
fI
,II
I
I
I'
I
I
in the Ken o 1nt pregr. o.
I~
I
I
ISIPDPP.DI
\
I
I
1
t
I
I
I
I
I
I
I
I
II
I
I
I
II
I
I
I
I
I
I
I
II
I
II
I
I
I
I
I
I
I
,
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
f
I
I
I
I
I!
I
II
II
I I 1/
I ! I I
_______L___I___L.J L_________________!____L____L_J
I
Dl.agraa -
Method of Operation
ct.'. 15-01
497
LICENSED MATERIAL -- PROPERTY OF IBM
PAGB
output
Processing
1 DP
1
I
. . \I
ffi:.··::,vlln.l
8
DlBSIP,
InR£::B 1---------------> ~
SILtsr
Say. registers
Issue
05/'5 LellO .aero
inatraction.
~ Post eICS/' S co.plet@.
I!!l
ILoad
lodule
Bestor. registers
I
r;;····j:l
\ I
'10 Caller
•
I
j
I
L ___-.J
prograa Loader
lotes
1 Roat1ne
Label
Bef
~-----~
---- --- ---
D1agraa ... 'I.l.1tJ"01
-----
I1--- -lftout1D..
D1.g...-:-.:i .10.-01
....c •• LOlaer
498
Lab
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
Input
\
I
~III------------------,
~
I~
ISITt!SGLV
)
I
I
-----' ,
Il~::~ge
re91.s~ers
I
1\
\
I
,
L::J
fit
I
I
Save
I
II
~~~-.,-!------------->llro21
\
1
\
~
Check the message level
l.ndicator and wrl.te the
messagE
Restore r9g.l.sters
l
I
I
I
-"1
_______ f .--1/1
--------"
I
\1
,I
I
I
I
,
I
I
I
\
1
I
I
I
1
Console
I
I
I
I
I
I
I
I
1
I,;
L::~/>
I
I
I
I
l:JP
OU't.pu't
r;1- " DFHS=----------l
~I;I:---------------'II
PAGE
Processing
I
II
I·
I
I
I
Il ________________•I
Il _________________J\
I
I
I
I _____________ --1I
L
Diagram - Q.l.11-01
Console WRITE
:-::::-----------------7-~::~::::::-1.:;j I::~:---------------------, -~:~~::::~::~-I~;J
1--------------------1-----1------11----------------------I---'-----I--~I
I[§J
I
--oJ
If the lIessage level 15 zero, no :
message 1.5 wrl.tten. The lIIessa9~ I
I
15
I\
level is one.
I
:
The message level
\
1n the SIT.
I
wrl.tten only
I
I
I
I
I
!
1f
the message
15
l.dentl.fl.ed
1
t
:I
t
I
\
I
I
II
II
I
I
I
II
II
I
I
I
,
I
I
II
II
\
I
II
I
II
I
,I
II
I
II
I
I
I
I
\
I
I
II
I
I
'I
\
I
\
t
ISIPCONS
\
II
I
I
I
,I
I
I
I
II
II
I
I
I
I
I
I
1
I
II
II
I
I
II
II
I
I
I
I
\
I
I
II
I
I
I
I
I
I
I
II
I
I
I
I
I
I
I
I
I
,I
I
1
I
I
,
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I ___________________J..
I ___1
I_______~ L _____________________.!..._____I'______ .!...I __ JI
L
I
Console tlRITE
Section 2:
DJ.agrall. •
Method of Operation
1f.1. 11-01
499
LICENSED MATERIAL -
PROPERTY OF IBM
~AG,!
1 OP
,
oot.utoo.
TT'~
of Shutdown
'.2.1
s,at •• '.ralD.lt.1.on
500
Disgr ... - 4.2-01
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
proceSSl.!lg
Inpu~
,-----------------------1
I
ICSP.'l
I
II
I
!:llO'lCN
,-,
I
1
I
I
I
I
I
I
I
I
I
L __ -.
.
\
I
I
I
I
I
I
I
I
I
I
I
I
I
1I
1
I
I
type of the
I
-~
't'oj,
I
I
I
!
Table, XLT
Load 'tile Program L1.st
Table,
\ l~~
II
II
1
,
I
I
I
I
I
PLT
I
II
1
I
\
Qu~esce terml.ndl achVl.ty
I
!
I
--.I
I~,
1I
I
Load the Transactl.on L1.st
I
II
I
I
:
I
sb.utdown
II t'O'21
I
I
De't.erm~ne the
1
II
,
I
I
I
I
I
~.!J
1 () P
r-------------------i
I
I" I
I
I:;;~'>II DPHSTP:
I I [--.
I
PAGE
Output
r-----------------,I
I
II
I
I
I
I
I
1
!
1
A.
I
!
I
ltaJ.t to be the only
task
'the system
I~,
Il~:.J
PLT
I
I
1
Cancel exl.ts and break
storage chal.ns
I
Execute the programs 1.n
1
I
t [011
1 --'
the second poruon of the
I
I
PLT
I
II
.
I!I (0-_;;-]8
~ Perform fl.na1
I?roces.lOl.ng
:,1
,
I
I
I
I
1
I
1
I
1
I
!
I
I
II
I
I
I
I
I-~~
I
he
l
I
LI ___________________JI
______________________1'
I
E::::~:1
I
I
I
System Terml.natl.on
the fl.rst portl.on of the
II
:I~-,
l~~
1
Execute the progra ms
I
, I
os~vs
I
L _________________ ---1I
Dl.agram
Overv~ew
-
~.
2.0-01
r----------------------------------------1
r---------------------...-------------------,
I
I
I
I
II
I
I
I
I
I
Notes
I Rout:l.nel
Label
I Ref
II
Notes
I
Routl.n8\
Label
I
Ref
I
1------------------------11------1---1----11-----------------------1------1------1---1
1
fOil
I~
"
I
I
I
I
I
It':.:J
Ir':'"':"l
I
I
1
I
I fi1'
I
'STASKQ
I
I
I
I
1~.2.1
I
I
I
I
1\II
II
II
II
ISTILTLD I"· 2. 2 II
1
\I
I
I
II
I
I
I
I
I
I
I
I
I
I
I
I
I
I
1
I
1
I
I
I
I
\
\STPLTLD1 4 • 2 • J
II
I
I
Ir·--,
1I
1I
\
IIII
1I
14 • 2 • 4 II
I
I
I
I
ISTCHAP
I
I
I
It
II
I
114.2.4.11
:l~J
I
I
,
A.
I
I
It'Os'J
I -1
1,-)
I
Il
:
I
I
I
,
,1"
'
I
1\
1\
II
I
I
II
It
II
I
I
I
I
I
I
II
1
ISTPLTLtHj
Prevent runa.ay and s.all
t::.J
rQ?12 Deter.ine the type of
shutdotiD
I
I
I~
I
'I
!,~
I
j
Set indicators and
response codes
I
-1-=--===--=:>1
I
1
I
I
1
or 1
TCA
r:r"'~-i~~'i"'~-=~-~-o"
T(lPORGI I
~:~~c~me
mm--lI
CSA
)'
Z777ZZ?:mZ?:~/
2
~____1
Process uood,.te shutdown
reguests
A.
PAGE
tput
G1V8 the task the
highest priority value
I
B.
>~iSFi!---[-=-=I'
. / -------cancel ABllD 811tS
and breat storage
hai ".
".2. b
r
I
'l
To ".2.2
I
L
L_________J
________1
Deterlline Type of ShutdollD
r-;::------~---------!-B~:II Labe~pRefI
I
I(§
I
!
If thE data length is zero,
1. e., the shutdown type lias Dot
1by
.es~ag.
n ••••
:::~dlOt.,
OP81700) to supply
,,~"'.
_.
the busy-sntch
1S
One of aessag9s Orti170 1,
I ....
1
I
'STASKO
I
supp11ed, the operator 15 aske a I '
DP81702, Df8170J,
<0 . . . ., . . .
I
I
I1I1
II
II r
I1/1
I
I
I
III
I
I
I
I
!I
!\
I
I
l
I
,I
I
I
II
I
I
I II
II
I
I
I
Ro:~nel L::-I~ef
I
I
I
I
11
------- - - --- - -
I
I!
j
l
I
l
D1agraa .. q. 2. 1-01
11
II II
or DP81104 19
~
I
1
L
Fo---------------
---------1---- - - - - 1 1 -
II~ : I,
J
r;;·· ..j;.l
I
I
II
II
II
II
---l IL _____ _
502
L.--l
_~____!____
D1agraa -
Deter.lone Type of Shutdown
CICS/OS/VS Program Logic:
~.
2. 1"01
Description
LICENSED MATERIAL -- PROPERTY OF IBM
lI .~'~, 'f~::~' l
h"
1.!~'1 >
---,1
~
L!!!
saW..
1CA
lm~;~
of
l
~gagrg
...;.-
-i------------->II
~ Oeteru"e
Wh1Ch IL1 to
r
load
,I
-'lL
PiGB
I or
I
Inl.t1a11ZB the XLor address'7J'>riJ tAl7?">
field
fHTILfsr
output
- \ I t..:J t.:J --I I
I
Z!1.?ZZllll!\ ~\!'
!t.\'>
~
Load the
lL~
_ _-----""
_ _'1 fOil
t.:.:J Save t.he ILor address
I
--~;-:-4:" 2.2-01
Load 'lransaeti.on L1St Table,
I
--~:~~Dels::LbeTL1D ll'~ 1111\_R_ot_e_s_ _ _ _ _ _ _ _ _ _ _1~
Rote.
\
~
@J
Tb.e ILT aaaress field 1s set tc
:::O~L~
sum. sappllOd 10 the
shutdown regu,est deteru,a.es
which
XU
to lead.
If
DO
suffiX
vas g1gen, the one spec1.f1ed by
tbe ILT-. operand of the D.HSrr
.....
,I
II
I
III
IIIII
=rl-;:~I
Label
I
18 used.
II
If IL'l'=BO vas spec1f1ed,
no
~able
load
1.8.,
vas suppl18d, the XL'r
1S bJP~ssed.
I
~ I~
the table vas Dot fOGud,
.essage DrB' 150 is issued.
/SULrLOl
I!
IIII
II
II
JII...-___
_
"
1_'_
Load 'rransact1on L1St 'Iable, IL'I
Section 2:
Method of Operation
I
------~----~Di~a~9~r~a.~.~
503
LICENSED MATERIAL -- PROPERTY OF IBM
1--------------1
Input
Processl.ng
Frem q .2.;
I
(
.
I
I
I
r=L"
I
t.~/I....,--,
DFHSTP:
I
I
L~
I
I
!
I
sr.::..-Q--------------->
r;;?"\.02
SITELTSD
I
Il:::J
1
I
I
LPLT
I
suff1X
,:~-~
II
I
I
rTCAPCi:,'
I
tAddress ofl -j-]
I I
lo.~~~
I
I
~~~!l
I
I
load
I
I
II
II
!!
I1
Save the PLT address
I
II
1
I
!
/1
I
I
I
DFHSTP
I
I
,.---,
mLTA~.
I
addres~
I
I
TCA
ITCAPCPr-/
I
I
I
L~2::~~
I
I
I
I
I
I
II
I
I\
I
I
I
I
I
I
I
I
I
I
IL-
Load Program Llst Table, PLT
I
~
Diagram -
r--------------------------,-----il---
1
t~;1
'iTO '.2.'
I
L
_________Jj
I
I~~
I
Z~C> 0
)
I I
!____________ -.l
I
[.!---l
I
II
I
I
ZZZZZZZm?1/7Il' I
I
I
I
,\.
I
r7"'
II0ji
Load the PLT
1<--'
I
I!
1
Determine "h1oh PL1 to
II
-----------> 1EJ
I
) ' r-1"-'
ZZ\/~JL~JZZ\/I
held
1 OF
r-------------l
!\
II
I
!I
IDl.t1aJ.1ze the PLT address
PAGE
output
..----------------1
Lt.
2. 3-01
--------1----1----'--,
,-~:..---------------_'_::~:~:!..~~_'~~II~:::..---------------J~~:J~:~-I-~J
lED
!
1,-.
I
The PLT address field 15 set to
zero.
~J The PLT suffix supplied in the
I
shutdown request determines
I
wh1ch ft1 to load. If no suffu
I
II
I,
I
was guen, the one spec1f1ed hy
PLTSD= operand of the DPHSIT
1nit1alization request 1S u,ed.
If PLT=NO was specifl.ed, i..e.,
I
no tablE vas sun:!1ed, the PLT
I
load 15 bypassed.
I
.
II
&,
'--'
I
If the table was not found,
message DFH1750 1S muod.
\I
I
II
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
\
I
!
1·
II
II
I
I
I
I
I
I
II
I
I
I
I
I
I
ISTPLTLD
I
I
I
I
I
I
1\
II
II
II
II
I
III
I
I
II
II
II
I
I
I
I
I
I
I
I
I
II STPLTLDll
I
II
I
II
I
I
I
~
504
L~st
II
II
II
II
II
II
I II
I
I
II
II
II
I
I
II
II
II
I
LI _________________________________
I
I
I
Load program
!!
II
I
I
II
I
I
I
1\
II
II
II
II
II
!
I
I
I
II
I
I
I
I
II
I
I
I
I
I
:
f
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
\
I
I
\
II
I
I
I
II
I
II
II
II
I
I
IIII
II
I
II
I
I
I
1\II
II
II
II
_ _'IIt _______________________________
. \
I
I --.1I
II
Table, PLT
D1agt:a1R - "'.2.3-01
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
Inpu't.
!pm ';;1.
!
,
,-----------.1'
PrOCaSSl.Dg
I
J~
!
3
__
I
I@J
"~,
I
f--------,
II ' ...-.1
II
liiillt;-be
the
onl{ task in tbe
LSYS e.
..2 ••• 1 ' ,
--------
I
II
\
,I
'
I ...... ;:
"
I
--~I I
'-I
I
•• 2! 5
I
II
II
I
I
I
I
II
I
!
I
L-__
'---_______-1I
I
L
I
II
I
!
I
I
I
_________J
II
l
I
TCA
TCTTB
/TcnEcAi
ITCA
(address
I
I
I
I
I
I
I
I
I
I
I
2
I
'---ll~W>
I
I
\
\
\
,
,
I
,
mm
CSA
indicator
1~/l'~> I
II~I I
1~1
I
I
jl!
I
110
I
I
~I
J
I
!,
Z777ZZZZZZ7IVI~>1
,
, STCHAPO
I!
1 OP
OPHSTP:
l@l::::c:::r:erunaland set
I
PAGE
Output
j-----------l
A, I
, II
t.:':':':VI
.
r------------------.,
I
I
I
L
I
I
_____________--'
D1agraa - 4e 2. 11-01
QU18sce Ter.lnals
r-::::-
-I-;::::I~:-:;-G~: r~:------------------\-.-o::ne' L:::-'~~
1---------------1-------1--·-'--11-----------------1------1-----1--1
'§ The helds belonging to tbe
1
ISTPLTLOxi
\I
I
I I
I
\
freed teroinal ore sot to zero.
'I
Tbe toninal guiesce indicator,
1.S turned on.
I
,
I
I
II
1
I
'1'/
'I
"'
I
I' II
,
!
I1
" "
I
I
I
II
!,
1
I
I
I
I
I1
I
I1
I
I
II IIII
I'
1
1
I
,
I
II
1I
'I
\I
1
I
II
II
"
III'
I
1
II
'
"II\I
1I
" "
"II
I
I
I
I
I
II
1'1
I"
II
IIII
I
1\
!
I
I
,
I'
II
"
" 1
!
II
!
I
')
I I
II
!I
I
,
,
I
1
I\
I
I
I
1
I
" ,
II
I l l !
I
I II
,,11
1
I
I
III
'
1
,
I
I,I
I
1"I
,I
I,
I
I"
I
I
,
II
II
,I
I
,
I
"
I
I
,
I
I
I
I
I
I
I'
I
I,
,
1
1
,
I
I
I
I _______ -1IIL ________________________,I___ !.-.
I ____.!...._-'
I
__________________ 1_____.!....
~
QUlesce Ter.1Dals
Section 2:
D18qram -
Method· of Operation
'I.
2.
~-Ol
505
LICENSED MATERIAL Inpu..
r----~~~~--~--~~-~-hrc
I
I
I
I
!
I
I
PROPERTY OF IBM
••. 2..
!I
I~~':':/ I[Oil
I
,: --",
_...I
I
\
Guo task the l o w e s t '
priorl. ty value
I
CP1.1.s------J
I
\ <1;-;;j'>lrK
I
,
I
I
' ........ 1
f!~fW JT------------>I@] ~::::
I
'
I r---------->I[§
CSA
I
rCSA~l--I-
I
I~::~~.
I
ITask
I
II
II
~
III
I/~II
,
-----------,
1//1
-----~--
II
the Journa! Control
I
I
DeteruDe which task.
\
re.aiD
I
Wut for tasks to
ill
I
~-----,
SAKCNAC
KCP
,
entry
address
j
I
I
II
III
I
I
I~I
,
terID1Date
CSA
I
1~1
'~I
III
I
1
I
ZZZZlZ?Zn~C~1
II
II <~:1>rKCP 1:.1.:.~====] II
I _________J
I
I
ci=
.... 1
I
I
'
I
I
I!
J~I
III
IL
,I
I' I
17~71 1>1,
,
1 Of'
--------1
I
I
DPHSTP:
PAGE
Output.
r-----------------l
r1
I
"
I
Processl.ng
I
I
, I
10 cal.ler
14.2.11
1
I
I
I
I
IL
___~_________ J
I
I
\
________--.J
J
I_.~
D1.agran - ".2. II. 1-01
Change Task Sta tus
r:::-----------I Ro:~:t~:--r--:-ll',rl'~:::-----------i~::::G:::-I;:;_]
I~ ;;::-::::~1ty ·::::-::-::-:----l~;~~~~~1----,---, ,----------------------1------1------1---1
I I I ,r'I
: II :
I I
I
I
I
'
I
I
I
I
I
I
'I
I
I
I
I
Ref
r
zero tc lake this task, 1.8.,
'
I
SysteD 'l'era1nat1cn, the last
ta.sk 1n the sl'ste..
I
f021
I
ISTCHAPl
I
The acU,. TCA cha1D and the
Each ta.k ha.ing JJJ as 1tO 10
\
is COuntEa.
I
1r;;;
1~11 If
\
1,
\
I
, II
I
I
I
I
I
,
II
II
I'II
only tbe Syste. Tera1natiOn!
task and Journal Control tasks
calculotE a in Step
.guals the
walue accu.ulated in CS1KCTT, no
I
WAIT 1S issuea.
II
r.OUD. 1 •••• the valoe
2
I
II
\
I
I
I
I
,
I
I
I
II
,
'I
I,
',1,1
,I
"
:,1
I
1/
I
I
I
I
1
I
III,
I,
II
II
"
II
,
I
I
I
I
II
I
!I
I
I
I
I'
I
I
I
II
I
II
I
,
1
I
I
I
I
I
I
I
I
I
I
I
:STCH1Pb
I
posted ty 'lask Centrol for eICS
DETACH requests are turned O f f ,'
I
and a "AIT 1s issued. "hen the
I
I
I
kAIT is postea co·fle ... this
I '
rout1ne is re-entered.
I
I
I
I
I
,
,I
I
,
,
'11 1."......0
•• ,
.....-J
If any tasks otber than Journal
Control tasks re .. u. the ECBs
,
II
II
II
I "
I I.::J sllspended TCA. chain are scanned.
I
II
:
I
I
I
I
I
I
I
,
I
I
I
I
I
,
!
I
I
,
I
I
I
I
,
I
I
1II __________________!I ______!I____--1 I ___________________________ .!...___'
L~
Change Task Status
506
D1agraro. - "'.2. "'. 1-01
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -
PROPERTY OF IBM
PAGE 1 OF 1
OUTPUT
PROCESS
INPUT
. From 4.2.4 or
4.2.6
Set ABEND exit for the PLT
programs
Link to PLT programs
Cancel ABEND exit for the
PLT programs
Exit
To 4.2.6 or
4.2.7
Diagram - 4.2.5·01
Execute PLT Program
ROUTINE
NOTES
8
§]
LABEL
NOTES
REFERENCE
ROUTINE
LABEL
REFERENCE
portion of the PLT programs, the
exit is to Chart 4.2.7.
The PLT, if one exists, may be
divided into two portions.
STPLTLNK
for
first
A Program Control LINK is
issued. If a program error
occurs, message OFH1780is
issued. If a program is not
portion
found, message DFH1752 is
when the DFHDELIM program is
STPLT2
for
encountered or when the end of
second
the PLT is reached.
portion
issued. The linking stops either
,
The above processing is
performed twice consecutively,
once for each portion. If no
table was loaded. this
processing is bypassed. If only
one portion exists, this
processing is performed only
once.
EI
G
After executing the first
portion of the PLT programs, the
exit is to Chart 4.2.6.
After executing the second
Diagram - 4.2.5-01
Execute PLT Program
Section 2:
Method of Operation
507
LICENSED
~~TERL~JG
PROPERTY
Inpu:t.
r----------l
I
CSA
,
[CSACiPFLi"I
Ir---------->
nh~>!
lrm~m 111I
II
II
1\
ICilliiiiiA
lAID Beg
I laddress
I
I
I
l
I
I
I
,
I
1E~ - ;~
I
>Dl'~~
~SAELABA
\
I
1
I
'I
I
c:~
I
I
IS{ste.
II
I
II
r.l1
B.
~ ----> I
___ ~
I
I
~j I
I
! A.
I
~81t
::e:~~
peDhDg
Z~ZZm1:zW
ou~put
I
ITO
j
I
~~~ I I
!L
___~
I
.)~
I
I
II
I !L_______
I
I
II
EI -,:l
.... I
I
t
I
.77'
') I
1'1 \, I
for the cO'FlehoD I
,
L:J
I
I
Pre.ent De. 1Dput
I
1
,;,
To~.2.1
I
.
shutdown requ8s'ts
[CSiSSI2j---->fA1
1
)
[----·-1
:::~:
t t~ Process non -1.1I0d1.a 'tE
l~~ai;s=eg
1
reguests
~
CSAOEPL
I,:
I
I
1::.1 {lrocesE 1.1IIIIedl.ate shutdown
---
L
(@~ATP-~
\
II
-'I--------\,
I
I
J
I
1
II
I
i
IL __.._. _____~I
CAncel El:its and Break Storage Chains
iI Note.
I~
I'
l~
\
I
'I
Dlagra .... 't. 2. b-Ol
r;;::-----------1---1--11I
---I-.::::/
The stortiDg addresses of tbe
BCA, AIt, and ICE cbalns are
L'be;-~
I STaREAK
;:::dT~: :::g:::~e:o~::::a!:e
I!
I!
then set tc zeIOS.
The igncre input s1I1tch loS set
to prevent nav inputs.
I
Ifhen Ter.inal Ccntlol has serveli
I
1ts last OUtput, 1t posts tb1S
'I
10. the CSAe
II
I
II
1111
Cancel EX1tS and Break Storage Cha1D.S
508
1
II,,
I
II
III
I
1,\
I
I
II
I
II III
III
II
IIII
!I II I!1\
I
I
I
l[!
'II
I I I
I
i
1
I
II f(i?l2
I
1 01'
I
7777777777777)\>1
[address
_1
Out put
DPHSTP:
I §J Break storage chuDS
~~~::~--I-!
- - -
I
or
PAGE
,------------l
processin 9
r----------l~:~~~··2.'
I
I
I
I
II
I
I
II
II
!!
IIII
_________I ___L __JL___________ _
I
I
II
--c--.----------:--r
I~~:I~~-I-~I
I
I
I
! I
I
I
I
I I I
I
I
I
I
I
I
I
I
I
I
I I I
I
I
I
I
I
I
I
I
I
I
I
I
!
I
I
I
I
I
II
I
II
II
I
I
II
_ _ _.c..._.
CICS/OS/VS Program Logic:
I
I
I
I
II
I
I
I
I
I,~
Diagram _ q. 2. b-01
Description
LICENSED MATERIAL -- PROPERTY OF IBM
PAGE
processing
Input
-----------lPl:OII
4.2.~
or
i
o.2.b,
,
I
"~~/1§)
~-"
I,
DPHSTP:
,'--' ,
---~
<'~'::/>ISTDLIDIIN
'
I
I Shutdown DL/I
II <'.--,1
,•• , 'UPHJCSOJ
Shutdown
1I
Journal
I
Prep.re to get
L.....i
!'
t ti tic
S.
I@~
S
I
,
I
I
--------'
I"raj]
1
I
l
con'trol
or
,I
I~~, ~~....
I
1
r----~
-,
S
ZfZZZZZZZZZZj/
I
"
I
I
!
~ "~fHsTKC---l I
I
II /'.--.1
!~.t st.t1s~1cs J I
f~TIK~~t~y 1--1---·--------, . >1 ~
eSA
cancel SPIE and STAE exits \
l!~~---,
1
I
1I fQbl
t.:.:.J
',
I I
I
I
IL___________J[~~
OS/V>'
L___________J
I
I
Close system and user file_,
If shutdown is immediate
r;;;-)O
7
~ypass
~
Dump if so request-Ed
VTAM close.
I
L__________JI
I
I
.
Pinal Processing
[Note~___-=======J~::~:!
Label
!~
A P110
,
mued.
"
1
A progm Control UHK 151ssued
,
for Df"JCSOJ.
I,@]
The facility Control address is
I,
'I
~
'
I
Control TYPE=De/I,aHLO is
set
to zero.
I t is used to
l.ndl.cate
all statistl.cs.
Ip;<] :.:';::::.::"'" .."
1[g
u
15
',§
I
,
or
I,
~inal ProceSSl.ng
Section 2:
I
II
III
,,
I
,
,
1
II
II
1
,
I
,
II ,I
"
,
II
II
STKPLN.
.essage OPH1799
/' STKPBH 0
I I
I I
Method of Operation
I
"
,I
'1'1
1'1
II
I"
'I:
I
I,
I
! I
,
1,1
II
JI
,
,
I
I
,
I
,
! I
I,
I
' "
orB 1798 is issued. If a duap lias
I
ISTPSTAT
I"
If • dnoF •• s regnested, ••• sage /'
i:::::~ted,
1
tI.2.7-01
R~ l-Hot.s~---------===-l R:::n·!~~~=[~l
I I".....
' ,11
OPBI79b.
::t
I'
',STSHODeI
~""I
',ssued:
01"81790, 0181192, 0181194,
!
','
A warm '01po1nt is requested.
apon return, one of the
follow'ng o.s •• ges
I
D.l.agram. -
"
!
I,
I
,
I
I I
!
I
I
I
---~-, ---=o"',-.g-r-.-.'-:-4:" l. 7-01
509
LICENSED MATERIAL -- PROPERTY OF IBM
OS/VS
I
r.L ,
I:!:;:' DFHPRPR:
~>
I
soure
. •-.
---
dock
I
@]
I
OS/OPEN input and output
, d a t a 6-ats
1-1L------',1 fOJ'l
,
I
return to operat1.ng
as/CLOSE I data sets and
~Jstell
Notes
1§J
1@1
,
/l§
I
I
I
\
!\
l
l
I
,J
~:~:~:~:~::;~~~l:::~ I
If tbe input is net a eleS .aero
instruetien
er and
a DL/I
call,
source record
REPRO.
are the
Ifritten.
DL/I calls are changed to CICS
calls, and REPRO and II. ne.
source record are EUDcbed.
I
ROf
,BJA8PEN II"
1
uDchaa.ged, unless lBI'lIftG or
C'ltCBI! are found. In this case,
the hex code is coDt'f:!rtad t.o
decl_.1 for e.se of
"
I
I
I
.anipa let ion •
.. h.D the .1I.d of the input 1s
I
'I;:;l
: : ;:.:" . . "=-'s---I---I--(~I
II"
HOTeles
Diagraa -
IIJ 1
I "
ICles
I
I
1
.I . . "11 III
CICS .aero instruct1oa.S are left.
I
\180to:----
II II
I
Oshs
I
I
I
I
·------T---I~::::,I--II
DPR e r C A L L . !
510
ITe
I
--,'-;;:O<1no, Label
The UPSI byte is cbecled to see
I
I ,-/
!
!.ILL Preprocessor
--I'--------
[:::~:
I
J
1
J
177 ')
7777777777//'\/
I
!
l _______
or
\
I
'
I
1
\
I~
,
I
.
Read and precess the input I
_ _ _ _-,/ l:.::J
,
!
\
Perfor. general OS/VS
housekEep1ng
I~
I
r
r----PAGE
,------l
.Processing
InpQ~
ReGun·1 Label
I'
,!,
I
I
II II II
II
I
!
'I
I'
I'
'
I
I
I
I I I
I '
1~~Mhll
IL_
\I
CICS/OS/VS Program Logic:
n1agr •• - 4.3-01
Description
LICENSED MATERIAL -- PROPERTY OF IBM
Page 1 of 1
Command
Translator
4.3A.l
I
Scan Input
Text
4.3A.2
I
Toke!lize
I nput String
4.3A.3
I
Analyze
Command
4.3A.4
I
Process
Command
Options
4.3A.5
I
Generate
Replacement
Text
4.3A.6
Visual Index - Command Translator
Section 2:
Method of Operation
Diagram - 4.3A.O·Ol
511
LICENSED MATERIAL -- PROPERTY OF IBM
Page 1 01 1
INPUT
FROM SYSTEM
OUTPUT
PROCESS
DFHECP:
DFHEPP:
ITkt> El
I
116
INPUT
data
set
L---J
Perform general system housekeeping and initialization.
~
Open INPUT, PUNCH and LISTING data sets.
§]
Process. options.
~
Print options, if required.
~
Process start of program.
~
Scan input text.
-
~
==11
---'
C
J
SCAN INPUT TEXT
4.3A.2
EJ
Print options. if required.
Gi]
Print cross-reference, if required.
~
Print diagnostic messages.
[i2J
Close data sets.
E]
Return to system.
I
I
r
1
LISTING
data set
pUNCH
data set
~
~
-
......
Diagram 4.3A.l·0l
To system
Command Translator
NOTES
ROUTINE
LABEL
NOTES
REFERENCE
~
Diagnostic messages of severity greater
or equal to_ FLAG value are printed.
For PUI they are sorted by severity
order. For both PUI and COBOL they
are printed in lexical order.
For Assembler they are included as
comments in the output, immediately
following the commands to which they
apply. They then appear as part of the
assembly listing.
~
Close data sets.
DFHENOO8
~
Options printed at head of listing for
PUI if OPTIONS option set.
DFHENOO9
G
fiil
For PUI if input source start with a
procedure statement specifying OPTIONS
(MAIN) then an extra parameter is inserted
at beginning of parameter list and a %
INCLUDE statement generated to include
the EIB definition.
For COBOL if input source starts with
DFHENOIO
~
System housekeeping
Obtain all storage available.
I)
Determine time and date.
2)
Set up error exit routine,
3)
DFHENOOI
[§]
If LISTING data set cannot be opened
write' to operator (OS only) and abend.
If any data set cannot be opened
terminate translation.
DFHEN315
@]
Options derived from
1)
EXEC card lOS only)'
2)
·PROCESS or CBL cards.
DFHENOO5
When all options have been collected
they are checked for consistency.
DFHENOO7
ROUTINE
LABEL
REFERENCE
DFHEN026
DF~EN415 I
For as only a return code is generated
according to highest level diagnostic
issued. All storage is released.
IDENTIFICATION DIVISION then
extra parameters are inserted in the
linkage section and a COpy statement
included in the working storage
section.
E]
~
Options printed after input source for
DFHENOO9
COBOL.
Cross-reference of all functions
correctly used is printed if XREF
option set.
DFHEN025
.
Diagram 4.3A.I.Ql
Command Translator
512
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -
PROPERTY OF IBM
Page 1 of 1
OUTPUT
PROCESS
INPUT
~
Extract each 'atom' In input text
~
Tokenlze
Input Text
4.3A.3
BUF
------.
~
1/0 buffer
When 'EXEC' or 'EXECUTE' found
analyze the command
..
Analyze
command
4.3A.4
~
Gener:ate replacement text for the command
~
Generate
replacement text
4.3A.6
~
REPL
>
Insert replacement text into 1/0 buffer in place of
EXEC CICS command.
Replacement
11/0 buffer
text
I
I
Diagram 4.3A.2-01
Seen Input Text
NOTES
ROUTINE
~
Input text regarded as a contiguous
sequence of 'atoms' Read-in routine
copes with Cobol continuation convention.. NOTE statements and NOTE
paragraphs must not be searched for
'EXEC' or 'EXECUTE'
For Assembler only complete EXEC
commands are placed in BUF and
tokenlzed. Other text is separately
analyzed.
SCANTXT
@]
'EXEC' may or may not be followed by
'CICS'. If 'CICS' appears than analysis
successful even if command is to be
deleted. If 'CICS' does not appear then
analysis filII. and no change Is made to
I/Obuffar.
DFHEN019
§]
If anaiylissuccassful generate replacement
text for command analysed.
DFHEN021
~
Changed I/O buffer will be punched out
whon next card read In or when end of
file encontered.
DFHEN018
All text is maintained 8S card images
for Assembler. Whenever analysis of a
series of cards is complete they are
punched out. Tha replacement string
is also punched out direc~y without
being placed in BUF. Diagnostics. if
any. are then generated and punched out.
LABEL
REFERENCE
NOTES
ROUTINE
LABEL
REFERENCE
..
Diagram 4.3A.2-01
Seen II1>IIt Text
Section 2:
Method of Operation
513
LICENSED MATERIAL -
PROPERTY OF IBM
Page 1 uf 1
OUTPUT
PROCESS
INPUT
EI
1
INPUT
data
set
11-=======> ~
' - -_ _ _--I
1-
Analyze text in 1/0 buffer starting at current cursor
position to extract next' atom.
At end of I/O buffer obtain more input.
§]
Print card read.
~
If not analyzing an EXEC elcs command punch
current JlO buffer contents.
I,LlSTING
data set
> I
PUNCH
data set
~
IBUF
Concatenate card into I/O buffer.
I
I
[I/O buffer
1
Diagram 4.3A.3-01
Tokenize Input String
NOTES
~
I
Blanks and comments are skipped over.
If atomization is successful the starting
point and ending point of the atom are
noted together with the atom type. The
cursor is moved to the end of the atom.
For Assembler this is all the atomizatio~
ROUTINE
LABEL
REFERENCE
NOTES
ROUTINE
LABEL
REFERENCE
DFHENOll
routine does. It does not control input
and output of text. When the routine
attempts to look beyond the end of
aUF a condition code is set and return
Is made to the caller.
~
When the atomization routine attempts
to access the first character beyond the
end of the I/O buffer the read·in
routine is invoked to provide more
input.
@]
If more input Is required and is avaiiable
§]
DFHEN014
DFHEN015
the next card is read in and a statement
identifier is generated for this card. If a
source listing is required then the statement
identifier and card image are printed.
If not analyzing update current statement
identifier.
DFHENl15
If not EXEC command there is no further
DFHEN017
use for the contents of the I/O buffer
.,
which are therefore formatted into card
images and punched out.
[§
Continuation conventions are dealt
with so that contents pf card data
area can be concatenated into 1/0
buffer to provide a contiguous data
stream so that ato"mizatio" can
continue from where it left off.
DFHEN215
D...." 4.3A.3-01
Tokenize Input String
514
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -
PROPERTY OF IBM
Page 1 011
OUTPUT
PROCESS
INPUT
BUF
I
1/0 buffer
I
VBINFO
~
Check that EXEC CICS command has been found.
~
Check that Wrb I. valid and locate corresponding
table of adverb••
§]
Scan entire statement noting If adverb found.,
[§J
Locate function Information table.
Verb
information
table
ADVINFO
Adverb
information
table
FNPTR
pointer to
function
information
table
Rescan request analyzing options.
~
0:)
Process options
4.3A.5.
~
Check options processing completed successfully.
Diagram 4.3A.4-01
Analyze Command
ROUTINE
NOTES
[ill
~
§]
Once EXEC CICS found routine committed to successful analysis
DFHEN019
Check verb in verb table and is supported
SRCHVB
LABEL
REFERENCE
NOTES
ROUTINE
LABEL
REFERENCE
by this version of the translator. If verb
not found then attempt spelling correction.
The whole of the EXEC CICS command
up to a eorrect command delimiter is
scanned to ensure that whole statement
is held as a contlgious unmovable string
in the input buffer. During the scan
PRESCAN
each option Is checked against allowed
adverbs list until a match is found. No
SRCHADV
spelling correction is done during this
process.
For Assembler there il no delimiter
but the whole command and only th,
command Is already In the buffer.
[§]
The verb-adverb combination uniquely
defines a function information table
which completely describes the allowed
syntax for the command.
~]
The EXEC CICS command i. now
rescanned noting options and argument
values.
~
If options processing falls then command
is deleted.
Diagram 4.3A.4-01
Analyze Command
Section 2:
Method of Operation
515
LICENSED MATERIAL -
PROPERTY OF IBM
PC'ge 1 of 1
OUTPUT
PROCESS
INPUT
I
BUF
I
FNINFO
~
Pick up next word in command
~
Search table of keywords and options for a match
Function
Information
Table
§]
For a keyword operand analyze an~ note keyword
ARGVALS
argument
Argument
value
FNDSCR
information
Function
Description
L---.
Structure
§]
Check for inconsistencies between this keyword/option
and keyW'Ords/options already processed.
ARGVALS
Argument,
value
information
~
Set bit in OPtion bit strip to note that this keyword!
option appears.
:>
FNDSCR
Function
description
structure
Diagram 4.3A.S-Ol
Process Command Options
ROUTINE
NOTES
~
If next atom in text is not an identifier
or statement delimiter an error has
NOTES
REFERENCE
ROUTINE
LABEL
REFERENCE
DFHEN020
occurred.
§]
If no option matches then spelling
correction is attempted.
If a match is found check that corresponding option or keyword is supported
by this venion of translator
§J
If option has associated argument
Note 1) value of argument
2) syntactic type of argument
3) what keyword sets this
argument
~
LABEL
Function inforrT1ation table contains
a
SRCHOPT
CHKNIM
list of pairs of options which are
mutually exclusive. This list is scanned
to see if current option keyword appears.
If it does the option which is forbidden
is examined and jf it has already been
noted as appearing then the current
option is ignored.
[§]
For an option thauet'S an option bit
check that the appropriate bit has not
already been set to opposite value by
another option that has already been
processed. If it has then ignore this'
option. If not then set bit to appropriate
value and note which option set the bit.
If next atom In text i$ not an identifier
or statement delimiter a system error
has occurred.
_
Diagram 4.3A.S-Ol
Command Options
516
CICS/OS/VS
P~og~am
Logic:
Description
LICENSED MATERIAL -
PROPERTY OF IBM
Page 1 of 1
OUTPUT
PROCESS
INPUT
FNINFO
T
Function
Information
Table
ARGVALS
~
Argument
@!J
Invoke special case code if required.
[§]
Scan list of arguments found to check
§]
Generate call to appropriate entry point.
all present and correct
value
information
FNDSCR
-
Function
description
structure
•
[§]
Generate argument zero specifying function required,
arguments set, options set.
~
Generate rest of argument list.
~
If generation process fails then the EXEC CICS
statement is simply deleted.
]
-V
I
IREPL
Replacement
string
]
Diagram 4.3A.6-01
NO'rES
ROUTINE
The function information table contains
an entry point for special case code
routine for this function. These: entry
points are all entry points to a single
LABEL
NOTES
REFERENCE
DFHEN021
~
DFHEN022
module which contains all the special
case code
~
The function information table contains
an argument description list which specifies
which arguments must appear in the
call statement. This list is sc.nned in
reverse ordt!r comparing with the
arguments_found to determine how
many arguments must appear in the
The argument description list is then
scaned forward;
A. To check that all arguments that
must exist do exist
B. To de~ault arguments that are
optional and do not exist,
C. To check that mutually dependent
arguments have been specified.
D. To give error messages for mandatory keyword arguments, that are
miSSing.
The generated call statement Is built up
in an adjustable length character string
variable, beginning with 'call entrV11oiot'.
Argument zero consists of
1. a 2·byte encoding of the function
required
2. a 24-bit bitstrip which specifies
which arguments are genuine and which
arguments are merely place holders
3. a bitstrip containing option
settings.
ROUTINE
LABEL
REFERENCE
DFHEN024
The whole is represented by a character
string argument, or for Assembler a
hexadecimal string argument.
CALL stalement.
~
J
1-
Generate Replacement Text
~
J
~
Each argument, which has already been
evaluated and checked for consistency.
is generated into the replacement string
~
Generation may fail because;
1. analysis failed
2. inconsistency found between
arguments
3. mandatory argument missing
For Assembler the replacement string is
formatted and punched out.
DFHEN023
For. Assembler a macro DFHEICAL
is generated, with two sub-lists. The
first is a list of codes which indicates
what Assembler instructions should
be gonerated by DFAEICAL for each
argument.
Diagram 4.3A.6-01
Gena",.. Rep1ac:oment Text
Section 2:
Method of Operation
517
LICENSED MATERIAL -
PROPERTY OF IBM
Input
P,"ocasslng
lDJDlI
ID llecori
~!!-
IT1..~,
••••• >
I
TIL'
.
G:>
131:...
.
.DaU
La.qth
Dum •
r;;tJ.
8
.
~
DoteraiDe record tJpe.
r;,---',
IOi1
Por.at page bea41ng
~>
l!!]
'ora.t" data tJP. hEadiDg
I
@]
,"~=-...... --.. 'r:1 r.i-'"
05
'DSDJI
....IC_:~;..;.~_--'!-./~~-,I
0----\ S
• -"
Lf>
ur
.
Deter.iDe 48,,1c8 tJpe anel
Spa C1D 9 rega1'teH1Ita
~r-'I L::J
PlGBIO'J
OUtpD.t.
lorlat: a.plicate line.
-
.
I·
----=t-...
t-.)
-Ilk>
Poraat data lines
•..
=-.~ .--~:
8. calculate addresses an4
.
~)
Data Liaes
:~f·as
~:~.Lac....
f:U48Cttg:;O.8DtI
Character
f~8r-··Dta
DUlP
Ot~11tJ'
.prcgral
lotes
@l
Iheli D•• DOR 1s assuhle4 to
supPort .ore than one 48,,1c.
t1P., DlaDOII' senda •••88ag8 to
the operator console fen:
'defining tbe input. dey1ce type.
rhe OlS.I IIJt. 1s ll1t.egrate4 t.o
deter.ille if s1Dgle spac1ng is
·r81).17:111.
-~::~I~
I
Bef
F
louUne Lab.l
.of
--- --- ---
(
~,
518
CICS/OS/VS
Program Logic:
Description
LICENSED MATERIAL proa •• alDg
IDpat
Output
PROPERTY OF IBM
paGB
, or
3
Pro. OsJvS
A•. If open Dot successful, ~' r.::'I
O
•• , I )"B''-'
writ.e aassaga ana
\'
teraluate pro,r••
[!!]
Irite "lle&41119 •• ssagB
IOi1
L:.::J
Get storage for 32'1 ana
~'r.::'I
0 0 ' ),09.,
claar ar.. to blnBrr zero
I \1
I. •. If
storage is not.
ay.liable, ·write
•• ssaq. ana tar_luate
progra.
fiij~') ~ OpeD log vola.e
V -./
E1 ' fiiiI
00'
/
)
V
A•. If open not successful,
vri te aessag. ana
tarainate proqraa
oiagr•• - 11.5-01
Boutin.
Rot.es
{§
Check DCIIOI'LGS for 1'10' ..
I.abel
Ref
--- ---
!fat.es
Boatlne
tabel
Ref
--- ---
saccessful open
1 • . DPBIS1011 unable 4;.0 open
•••• aqe·data set (pr09r •••• r,
,
@J
for.at tapa' (ae.saqs
data set.l
@)
ISSUe' an 05/9'5 conftltloD GZ,.IUII
for 321 of storag .... Check return
coae in reg1ster 15 for GB'lIII'
statuse
DP'~100
,
XLG"S!G
A. . DP86102 unable to allocate
vorklllq atora,e .;. prolJ~.a
abortaa (a.,.aga· aata sett
§]
Check DCBOlLGS for 1'10" -
ILorlr,OG
sllcc;:eaaful opell.
A, 0'8&'03 uDable· to open 10q
yo1 ...... proqraa aboJ:tea
(a.ssaqe . lata sett
I
Dlaqr. . - ',5-0'
Section 2:
Method of Operation
519
LICENSED MATERIAL -- PROPERTY OF IBM
1-------------1
Inpu,,:
I
I:
:"
"
I
lOB
1
[-c-5·---)----I"
l
------~
I II
Wrl.te record on log
continue vrl.te
,
I
!
cheCK status 1n the DTF
C. If status 1.5 unlt
exceptl.on, go to Et ~
handler
D.
If status is neith-:r
UDl.t exceptl.OD or
check, go to
unrecoyerable handler
I
"
II
I
/
I
,,I
...-:-"'\ r-:-,
,J
,
l::~/>I~~1
I
'-:-1
~
t::!/)I~~I
rl-... ,
I
I
I
I
1/0 error - issue error
:::5:e::: :o:::: :::.
I
I
I
I
message to both operater
' I -,/
T-----
If status 15 unit
[--"
cheCK, go to I/O error ~~~/>I~~
handler
E.
I
,I
I'
operatl.on
B.. If I/O not successful,
-------",
I
j
vOlume-~----II~>'
A. If 1/0 successful,
'I
l L _______-' 'I'
,,
I,
2 Of
\
I
"
I
:
I
;:~~-,-'--------. . ,J~
L __ ~'-I-----------'/! -
PAGE
:-------------,
Output
prOC~ssl.lJg
1---------------------1
I
,
\
I
g
reguest for
A. If
ill OrE'
,I!
vcluDI€s
response 15 Y,
reopen log volul1e
rl::"i '>fQ;J
I
I
I ________________l
L
I
--,1 \/
L _____________l
i
I
L _________ ~
Format Tape
Diagram'" IJ.5-02
I-:~::-------------------i-~:~~::I~::;-' Ref - ,
rNot::------------------t::::-::G::;-r;:;-j
-------------------1-------- -----.1---1'----------------------,------1-------1---,
@.l'rite'.iKbaarYZerOSrecordtollLVOIT.IIII'1
la, data set. Cbeck posted
I
,
status ;l.n DEClil
.x'?P'
11LOECij
for a
(successt ul 1/0)..
If post status is not 1 '7F'.
locate address ot lOB fro. the
DJ:.CliI and cheCK status of CSIf.
1
I
I
I
I
\
I"
I
I
1L5.....
I
I
'
, I
I,
,I
I,
I
I
I
I,
I,
I
:
:"
I
I"
!I
I
I
!
I
I
I
I
I
I
1
I,
'
,
,"
,
II
II
,
,
,
I
I
I'
,
~
I
I
I
I'
I,
I
I
I'
I,
I
II
'
I
I
I
I
I,
,
"
,
,
,
,
II
I
I,
I
,
,
I __l
______________________ _______ ___ _____l L _____________________________ -.!._____ ________
,
~
,
~
,
~
II
520
~
D1agram - ll.5-02
Fcrmat TapE:
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -
----l
Input.
f
l
I
I
ProceSSl.ng
J
li
- !
l
I
I
' I ...., 1
.~~
.. "
.... '.
Unrecoverable error l.ssue lIessage and
EOV - increment voluea
II
coun't. request for aore
A. reopen
If
B. If
1091~''![~ 15S::
I
"
I
I
II
I
-,I
1S Y.
1S N.
I
I
G':"1
I
... /
-~-----I"'I
---------, /
j'
,
~' "--1
I
I
I
,
I
C=~
I
\/
II
·11·'/'~~
I
I
IE.it t~
II
I
I
I
I
II
1'--__
I
, /
OS/VS
I
L_______
I
ILVOLCNT
r.;~;1
Lf---,:l
!I
L____________~
::.5.ge
I
I'
I
I
r;;~') fOol
response
r
,
I
I
I
I
~
I
I
~
Dl.a3'rall - 4 .. 5-03
Ponat Tape
r
-----------.--'-:::~~:L~=-I~I'
~:~.:...
_________________
J-:::~~:,-~~:~I
I
I
I
tu_inatiOD
0'86199..
I
I
Ii~::~JI
~------------------------I---I-I
1_ Notes
rn:1
~
Load 88.0.88 data u:o. tlla lOB and.
did
aU as aD. a ex
t
I
1
1
I
iasCilrt arror teJ.t iuto tb.e error
value iDto to. • .Le lLIBB'rI1" to
I
aesBaga..
I
set up sense
DPH.10111 diseoatiQued proceasia.;I
C\lrreDt log 'olu •• due to .rJ:o~, proc••diu~ to
aeat '01 .... loperator ap4
.e8sa~. data .etJ
OJi
XXXlll.ll -
0186110& _ore yolll.es to aa
initialized - I or
»
(opera to!:)
or86105 uarecou:.caDle I/'O error
occurred - prol ra. aaorted
,.e88a;le data set)
IacreaefJ,t tield. ILTOLCMT DJ 1 ..
fbis field. is .. 184 to keep a
co .. a't of ,olu.as tAat baYe .eea
successfully initialized ..
D1'86110& aore ,"oluaes to De
iaitia.lized - I or )I (operatorl
ConYert 9011,1.e cOWlt 10 to
I
I
I
II
I
II
II
II
II
II
II
I
I
11
I~
-----l
\/
~/
::::::.::::
:J
!•• 1 )1091
S--'\
l-.,/
response
log volume
r
3 Of'
I
volumes
I,ll
PAGE
1,>""
I
ternnate progr..
I
rOil
[ii08-1~'
_I > 1..:-.1
I
C,-u_t.:.p_u_t_ __
tern.nate prograll
~, ['071
10,1.1)
:::J
\ / -,/
PROPERTY OF IBM
!
I
I
I
I
I
I
I
I
II
I
II
II
\,
II
II
I,
ILBOnTH
I
I
I
I
II
I
III
II
Ii
II
IIII
IIII
II
IIII
II\ ,
II
I
I
II
I!
II
\\
II
' I I
I
II
ILTEBR'
I
.eSSIl~e
Close .essage and lo~ data sets
and return to 05"5.
II
I
I
- - - - - - - - 1 - - - - 1- - - - , - - ,
II
I
II
DP86,,9 "lUll 'tolu.. (5)
1n1 UoUzed - log initialized
CO. plated (ae5s09 8 data setJ
I
I
I
I It
'I
I
I
II
I
,I
I
,
II
I
I
I
II
i
II
II
II
I
II
I:
II
II
I
II
I
:
I
I
I
I
I
I
I
I
I
I
I
I
I
I
,I
I
I
II
I
I
I
II II
I
II
I
II
I
I
I
I
I
I
I
II
II
II
I
I,
It
I
I
I
I
I
I
I
I
I
I
I
I
I
L _____________.__L_____L__LJ L_________________I_______L_____L_J
f'or.at
Tape
Section 2:
Dl.agrall -
Method of Operation
q. S-O.:l
521
LICENSED MATERIAL -
PROPERTY OF IBM
r-----,
r---i
PAG!
,[rocesS1D9
r:L. . \
OrRTEO' :
1::-"
---,1>I f'M'l
~
open console DT'
IlO7'
Il::J
EstabllSb addr.ssab111 t1
to label and log racer!!
I
1nput area
' I -,1
I
/---.,
~ L _______
-',I
f05l
• L----------'/ll::J
\~-.~-~ _rr==~)la
~
VOLORB
---JCLS
-,
open le9
I
I
ifr1te heading aesslgE
I
r--l-' \ ) fOOl
L::.l
lOCI _.
j
I
I
J~
1 OF
I
-----_.\
~nE-j
----
-------.1
RICaRD
JCLR
---~J
901• • •
-------./1
ITo
Read ycluH laaeJ.
lI.b.2
--'\ >101l
f;;j
~I
I
=-
Sm vol ... label
I
V
I
--l!::.\
,I
,
RECOBO
JCLI
IIiim""AmI
I
/'OLOIIE
JeLR
----j
RECORD
JeLR
i"iiPa"Tliii:
'OLOtl!
JCLR
----I
RECORD
JeLR
Iiim""
iiP'OiliiA
ARBA~
I
l
I
L ____~
'l'ape End of Pile
-----------T;;:::-ne-'
r-Not-.-S
I
@]
D18gral .. II_ b. 1-01
Ref
,'-,1 Rot..
-La-be;:-.-----.II
II
Boutln.\
\
R.~
:::::::1-:;:-::~-~::---T------r---,--'I---------------I-----I-----I---I
I
I
I
II
I
I
I
I
I I I I
I II I "II
I
I
I
I
1
I
I
I
I
IIII
~--::--:---;-
I
I
I
I
II
I
I
I
I
!
,
I
II
I
I,
I
I,
IIII
\
:
!
I
II
I
I
I
I
I
II
IIII
I
I
!
II .
II
I
I
I
I
I
I'
,
__________~_L___L___~ L____~--------------,-__L___L_.J
tape Bad ot '11e
522
Lab.l
.
CICS/OS/VS Program Logic:
Oiaqral .. II. b. 1-01
Description
LICENSED MATERIAL -_- PROPERTY OF IBM
1-----1
~-
!@!]
knt. volu •• label to
operator
I
a.4 venfy lab.l
I
A. If 'CaspoRse 1.S Y
I
I,
B.
Output
2 OP'
j
.1
I
>/Oil
~;,:~
I'
I,
t';;i >i011
l_,1
If
PAGE
,------------l
1~,.... II
I
[001
procilssing
I
V
respoDse is N, iSSU81
1
Dessage
I
C. If
r,1
cesponse 18 1, Close[;;j'>~l
,lOg
I
I
O. If
N, usu.
,"SPODS. 1S
.8588ge and terainate
--r-To~l~~1
@!J
' I -,1
I
Rea4 recor4 fro. log
,oluae (3) and sea.rch for
record label 'l'illid
A.
If
aD
1/0
I ~~>l
I
I
1f:====--1
1
last ,8114 record written
Update rocord JeLl!. area
I
I
error occurs
I
C ' rOll
up4ate recor4 JCLR areal::~/ ~~
I
I
c. If response 1& 11, .issue ,
aessage and terainate
-------~
'-----
Ta.pe End of Pile
f~---------i---·
I
II
I'
1'1'
!
1\
}
IVOLOftE
JeLR
I
,I
I
-I
iiC~'
_JC_L_R___
INPUT
I
II
,
B. If response 15 1,
I
l~ >
II
and the next reccrd
read ;LS val1d, notify
ope1:ato,: of tbl.s·
cond1't10n
I
,
II
1
==--:-1
..!.J------' 'I
I
'I
V
II
~l
I
I
I VOLuli~
I
'iiCQRD--
!JeLS
t~--I
!IN POT
L
_A-R_EAI
~
I
I
I
I
--~
I
.~- ~
D:i.~gra.
- Il. b. 1-02
I
'
1;
jl
positive aDd the co.pariso.
I
I
::::";:c
I,
I'
I
I'
1
I
I
1
I
I
-:-1
1;::--------------- -~::~~I~~ ~~II~t·:urnnti~b;-l·----------1 ~::~~::l~:~-'·~I
04
I:
I
:::~:~:~t::~U::~~::~r)
I
'' l o r •
l
\\
0'82908A 1S log VO,l.1188 va114 -
B. DPH290llA swap 90111.8
r
or Y
I
D. OP8291 S negative respoDse to
::~:::4 m1fication -
\@J
!
II
E.ogm
I
Read log record and veXif! thlit
I
I!
:h:o::::O::::t:::U:::: IJCLaveO)
-
I
I
L
volu ....gu •• ce
I
t~:b::l:::.~a::~ ;;: the
error
had occurr.:\ '5 vahd, a
va11d 1/0 error has occo.rred and
tbe infor •• tioD 1S presented to
the operator and .the pras PSM:
reset to 1nd1cate 11.0 error
occurred.
A.
I,
IJ~LBVSN)
I'
Run start ti.e (JCLBBST)
I'
label valid
I
I
Dl"H2901I label J.nforaatl.on -
,
I
I
I
II
I'l
procesSlBg
! or 11
C.
DfH2910I 1/0
error occurre4,
II
!I
I
II
I
prog1:a. teral.uated
IPTftOVBLK'I"II
!
I
I
I
___________L. ____' _L-l L _________________
' ____
tbe f1014& are va11d, updat.
the recor4 JCLR area nth the
If
I
Tape End of Pile
Section 2:
Dl.agra-. -
Method Of Operation
I
II
j
:::~~~9:·~:~:inu.
-
II II
II
I
I
t
:;:::~:~ ~: :r:::::.cor4
"'I'SCHBOr',
record Jet to the 901aae oI'CL 1D
II
,
I .
I'l
II
II
I
'
II
I
I I I
(operator)
1,1
1'02'. If the test proves to be
II
y
I
I
testing the PTBSPS~ f1eld for a
01029011 label iDfcrauoD _
::~::~ S;U:::: kt~:~~~:: rUD
An 1/0 error 1S 1ndicated by
I
I,: I
II I
.L_~
If.
b .. 1-02
523
LICENSED MATERIAL -- PROPERTY OF IBM
r----------------l
ProceSSl.n9
i
II
I
I
I
I
I
I
!IiPU-:'
r--------------------,
I
I
I
II
II
II
I
II r--,
Il~:.J
I
V'er1fy las't vall.d record
wl.th of era tor
(Fl''''tO~
1I
I
I
I
I
I
I
I
I
II
A. If response 1S Y
B.
I
I
I
1I
1I
I
\
I
I
\
I
E~~>~)
If response 1S N, iSSUE I
I
Backspace to record
following the last valid
record and close the leg
II
I
I
oj
message and eX1t
I
II
I
OF
I
-
I.J. b.4)
I
I
I
I
----l
oj
I
I
I
label (PTeONV'" ij.b.J)
I
!
I
I
I
I
I
I
PAGE
Output
vol ume
Terminate program
I
I
I
!
I
I
I
IL______________J
I
!L_____________-1
I
I
I _____________--'I
L
D1agraa ..
Tape End of file
ij.
b. I-OJ
r-~:-s------------------l-~::~::r-~::~r;~ r;:::--------------------:-;::~::::::::-T~;l
!-~-------------------!-----I---I--II--FTBsPs.."-.
-----------1----1----1"-1
A recori! is considoared the last I
,
I.
11
I
I
I
1
I [£~
I
val1d record wh.n:
- two consecutive I/O errors
occur
- unequal compare of the label
fl.elds bEtweEn th19 record JeL
and the vQluDle Jet
, I
I
,
I
t
I,
I
I
,'II
I
\
I
Tbe record label is then written'
to the cperator for
verl.fl.cation.
DP'H291Cl
rl'!cor~
label
ver1ficatien
OFH29071 label l.nforllat10n ...
etc.
DFH2912A
Y
B.
1S
record label valid -
or N
DFH291.:11 neg rsp to record.
,
I
J~,
:~ The amount ~f records to be,
I
II fQijl
II t:::::J
II
'1
I
1
11
"
II
I
I
I
I
I
1
II
I FTBLKVER
I
I
I
II
II
I
I
II
I
I
I
I
II
I
II
I
~PTBSPREC'
I
,
II \
I
I
II
I
I
,
I
I
1
I
I
I
II
!
II
II
II
I
II
II
II
I
I
:I
I
II
I I
I
I
I
:
I
I
I
I
1
I
I
I
II
II
II .
I
I
I
!
I
I,
II
II
I
!
I
II
1/I
IIII
t
I
I
I
II
II
II
I II
I I
I
I
I
I
II
II
I
I
DfH,[EOF
,I
1:1
I
'
I
\
DfR'90 11 successful cooplet10n -
I
I
label •• nhcahon - progra.
aborted
I
I
II
I
I
I
I
I
I
I
II
I
I
I
I
I
II
,
,I
L__::::::::~~:~:~:_::_:~:~~L___L__L_j t_________________________-_L____J _____L_J
'!"d pe End of
524
\
:
I
I
D18gra. - 11-. b. 1-03
F11p.
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
r--------------------1
r---------------------1
Inpu";.
I
'~;lO 1
Prom
I
II
I
I
\
I
/
I
FTGETREC:
ro;l
l:~
IJ-------.. , I
f
II
'_____ l
I
PTOEeB
,I
:
I
-------,1:
------'
\
I
B. If I/O unsuccessful,
I
I
'I
I
I
I
II
I
I
I
I
I
II
II
I
I
I
,I
j
I
I
~j
I
I
I
check
I
I'
- If
UDJ.t
l
I
status l.S none of
,...!._.J\
I
I
II
II
II
II
II
I
10': ,-, > I
'/ I I I
\
II
II
,
I
I
l ________________l
L
,
I
,
I
~-,-.J\
I
I
I
l··'/"~i'
\
I
I
no'tify operat.or of
con d, non
,I
I
response loS Y
A.
If
B.
If response
ho
N, l.ssue
I
I
I
I
I
I
I
I
'I
II
I
I
I
I
I
II
,I
I
I
~.Il. 1
'''l·;~\>f101
--,1 'I
I
I
I
I
"
I
II
II
I
I
II
\
I
ChecJl. FTBSPSW J.£ an
rIo
error has already occurred
A.
If an r/o error has
\
I
I
I
ITo
I
I
I
-;;.I,'>f081
rt
-,/
I
________________JI
already occurred
I
Li. b. 1
\'
I
I
I
L _____________--1
Tape End of Pl.le
Dl.aqram - i4. b. 2-01
r--------------------------i-----~-I---I----i
I lio't.es
I 'ROttJ.nel Label
I Ref
r----------------------------I--.--1----,-1
II
------1-----'1
I R~f
I
1- - -
1
:
II
:
I'
I
:
I:
I
II
I
I
I
,
,
I
I
I
I
Notes
\~ ~::;::::;::::::-::_;;---I-------l~TSYH:_'---! 1--7n-:i;;g-;;;:i~;-eo---------i
,L::J.
"
I1,.-,
I ~J
I
for type cf errer cccurrad.
I
II
I
\I
I
II
\I
\\
\I
I
If error occurs duung volume
I
PTEODAD
11
label Frecessing i s s u e : '
, I
I
\I
\I
I
DFH2919I EOD - no volume label I
l.Dvahd 'VelUDe m o u D t e d :
'
I
I
I
PfH291'H EOD occurred - last
\
"
record label v'!rificatl.on
1
DFH29011 label l.nfOrmatloon
tI
I
I
I
I
\
I
I
I
I
I
, " 1
1
I
I
I
,
I
II
I
I
I
I
:I
I
II
I
\
\
I
I
I
,
,
1
I
I
I
'I
:1'
I,
II
I
I
I
\I
\I
I
I
I
I
II\I
:
:
I
I
DFH29201 EOD occurred - :
request program "terminatel:
I
I
I
I
,
1
I
I
I
:I
II'I
:I
II
II
I,
I
II
\I
I
I
1
:
1
II
I
prevJ.ously occurrl'!d, go to
verJ.fy last valld Ieeord wl.th
I
operatot:. If an ert:or has Dot
prev:l.ously occut::::ed, set up
\
error cO!1r1itl.on l.n messa-Je
:
!,
I
I
I
I
I
,
I
,
I
, \1
error.lt::ln~rrorhas
II
,
I
I
II
Check fTBSPS'If for a prevl.ous I/O
I
1
I
t
I'
I
,
tI
\
:'r-,
~J
I
I
\
t
I
Label
\
DfH2915A loS proFer .,olume
lII.ountea - Y or N
B.
I
I
Routln~1
I
I
I
II
II
lINPO~R.EAl
I
I
message and eX3.t
1
1[03
_::..1
r-,
I'
condl.tl.ont'
close log volume and
1------------,/1
I
~~~/>I~;
r~-"'" r:-:'1
.. , >10.:11
--,1
\/
\I
I
-----"
r~-.J\.-:-:'l
sta tus l.5 unl. t
~~!:PSM __ -,-1________ ~,:
I
\1
ItO~ Handle EOO
I
I
loS
"the above
:!/ II -
I
I
:
- If
r-,-.I\ 1'-,1
II
II
I
- If status
exceptl.on .
I
I
I
cheCK status condl. tJ.on
I
I
II
I
I
II
,I
I
II
I
,
1
;~~ ___,2_J
l cs,
,--
I~:~ _ _ _ \
IRECORD
I
peeR
I
\
succ~ssfulr
I f IIO was
I
I 1\
I
I
I
II
I
I
II
II
L
\1
A.
r------",'
I tr
I Il
I
\
I
I
r-v-r".u
.... ---'1
ret.urn 'to caller
I
{I
2
I
I
I
----------1'
----------,/ I
comFletl.on
Ir--;}~-_l---------,/t
I
1 OF
O'l'tpU't
I
Read rEcord J.n'to l.nput
area and wal.t for
I
I
--0---
I
,- __ .J
I
~."I/
~L
____:::!..I'I
I L ________
,/
/
I
I
,-----------------l
PAGE
froc=sSl.ng
0'H2905I and indlcat~ e""o,,,n
FTBSPSW. 'Ih~n rear1 next record
\ \
1
\\
I
1
'I
I
II
\I
I
II
I
I
I
II
II
II
II
I
I
:
,
,
I
I
I
I
I
:
I
I
I
I
I
I
I
I
I
I
I
I
:
I
I
I
\
II
I
I
,
I
I
I
I
I
I___________________________ 1______________ 1 ___ JIIL ___________________________-1I______2.I______ .!.t___-.1I
L
~3.pE
~
Section 2:
~
Dl.agram - q. b. 2-01
End of Hle
Method of Operation
525
LICENSED MATERIAL -
PROPERTY OF IBM
r------------------,
~~:~~:L--------------l
Inpu·~
I\
I
1
II
s. If an 1/0 arror has not----------',
cccurred, l.nd~ca te
I
floret '!rror.
,
--------1/
II
1I
II
I
I
I
1
II
I
I
V
\
I
-,1
Wr1te error .essage
I
!
!I
!
I
I
I
I
I
!
I
I
I
I
/
I
I
I
2
I
I'l'BSpstt
~
___.J
I
I
l ______J l_______J
I
,I
!
20.
I
I"
lo'Ql:,'>, [g
!
PAGE
---------,
~utput
I
L ___________________ J
Tape End of Pl.le
0149r811 ... 'I. b. 2"'02
r-::~::--------------------T-~::~::I~::~-I~, r~:::-----------------r::=G::-';:~l
j~~
I
\
I
;;;;;-;;,:~-::::~:~~:~~~~::-l-------l---- 1---11------------------------1--------1-------1---1
til
,
I
I
II
I
I
II
occurred ... pr.ogram ter.lnated'
,
1
I
II
I
I
I
I
II
II
I
I
I
II
I
I
\
1
I
I
I
1
I
'1
I
1
11
/1
II
II
1/
II
II
11
11
11
II
11
11
I
\
I1
II
II11
1
I
11
11
/I
\1
III
I,
I/
11
1
I
I
I
I
,
/
I
II
I
II
I
I
,I
I
I
I
I'
I
I
I
1
1
I
1
I
/
I
1
I1
I1
I
I
,/
I
I
I
\
1
I
I,
I
1
I
/
1
1
\
I
1
/
1
1
,
1
\
,
I
I
I1
I1
I1
I
,
1
I
I
1
I
/
1
I
I/
1
I"I
I
I
1
I
I
"
I
1
I
I
I
I
\
I
I
IL___________________________________ I _________ .____ lI_________________________________ I _____________ I____.!I
~
rapil
526
~nd
~
~
of Plj-;
~
D1.8gtaftl ... q. b. 2-02
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
Input
,-----------------1 Fro ••••• ,
I
I
ProceSSl.ng
r----------------1
I
I
r:L~, PTCONV:
JeL
I
~~:~/>I r - - - - l - - - - - - -.. ,1 [~ convert the folloll1ng
1- - - - , -I----------'11I
fl.e115 t.O EBCDIC:
I
I
-JClRVCD
I
\
I
I
I
',I
\
I
I
I,
I
!
I!
, I
I
I
I
I
!I
I
I
II
II
I
I
I
I
I
I
1\
\
\
-JCLRRSr
I
I
II
I
and l.Dser't. data l.n'to
I
I
I
.essage DPH02011
I
Issuo:! messag9 to operator
and ret.urn t:> caller
I
I
I
I
!\
I
!
,
I
I
I
1
I
'
I,
1
II
I
Iii
\
II
!
!L _____________JI
I
I
I
I
\
I
\
I
II
1 0 po
II
-JCLRTIHE
I\[§
I
r1
-JCLRVSN
I
I
!II
PAGE:
1--------------,
Output
L_____________J!
I
I
I
I
II
II
I
I
L ________ ., _________ ---.!
Ol.agralll - q. th 3-01
Tape End of :hle
l~::-----------------'_;::~l.net ~::~-I;:-l r;:~::_------------------__r:utl.np.' L::-l;:~
1--------------------1-------1----1---11-----------------------1-----/-----1---1
1fOil
Ijt::.:l
I
convert packed decl.llal to
prl.ntatl~ charact~rs
values into message.
I
:
\
1
I
I1.-.-::,
E.
DPH29(J1I label lJlfOrll8t.l.On -
I
1
II
I
I
II
iii
I
I
I:
I
\
I
I
I
I
I
I
I
I
I
I
II
I
\
I:
I
I
I
II
II
1
\
I
II
I
I
I
I
I
I
I
I
1
I
/
I
I
I
lI______________________
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
/
I
I
III
II
II
"
II
I
I
II
II
II
"
II
IIII
II
II
I
I
I
I
I'
II
II
I
I
I :
I
I
II
I
t
I
I
II
II
I
I
I
I
I
I
I_____!I_____ .!.....-__.J
I
II
/
I
I
L________________________I' ____.!.....-___
!-_---.!
~_!
'tape End of Hie
Section 2:
i
I
I
I
II
I
I
f
I
/
IIII
/
\
:
I
I
I
II
I
:
I
I
1/
II
\
I
II
I
I
:
I
I
I
:I
I
I
I
:
:I
1
I
I
I
I
II
I
I t '
I
I
I
I
I
I
I
I
I
II
I
I
I
\
I
1
II~~J See Note 1£.
:III
,\
II
volume number YYDDD/KKK r U D ' "
HI'I.f'I!'I.SS block HM.lilt.55
I
,I
!
: DP'"'1'IEO' : FTeONV
and l.DSert
Ol.agraa - 4. b. 3-01
Method of Operation
527
LICENSED MATERIAL -- PROPERTY OF IBM
,..----------------------i
r-----------------------1
Fr em q. b. 1
I
I
:
1
I
,r
J\
\
~::~/I
I
r------, __________
J, II
R.;:gister 1
1 OF
,---------------------,I
I
r:1
,- __ :I FT'-'TOR:
I
PAGE
a'ltput
P=OCE;:3s~r.g
Input
l~:.:!~::~:JI-----------,/1
II
r--'-'"
01,-,
I
\/
-,1
~f()'11
> L:":'"
I
j
Issue !Ilessage to operator
wa~t
and
A.
I
I
return to caller via
reglster
B.
II
r
PTLKAR
I
I
If response loS N,
I
return to caller via
reg1.5ter 'P'TLKAR .. 'It
c. I f response
Y
nor
N,
1.5
neither
DotJ.fy
opeutor of l.nvalJ.d
reply and ral.ssue
message
I
r;:"I'>f011
L_,/
I
'I
I
II
I
I
I
II
I
I
!
\
I
i
I
I
I!
j
I
I
I
I
resfons~
for
If respcnse loS Y,
I
I
I
I ________________ -1I
L
I
I
L
_________ ____________ JI
~
I
I
I
I
I
'--______________
-1I
Tape End of pj lE
Ol.agram -
lI.b.Q-Ol
r----------------------,-----j----,--l r-------------------------j'-------'j------,---l
I Notes
I Routine: Label I Ref II Notes
I
Label I Ref I
1------------------1-------1-----1----1
1---------------------------1------1-----1---1
I
I
I
II
I
I
I
I
Routl.n~l
Ir~
'loll Antl.Cl.pate invlti
I''I
JIDTAB
L--,
II
Ot
---]
1
l>
''1
RU8RTOO
B
,I
I
I
I
I .
1'1
------lj
I'I L I - = = = = =
I
I
,
I
I
1 . . . - 1_
11
II
xux
I'
I
I
I
.
'
D•• 290SI •••
DSECT CfHJCR
1.
mHO code 2905
used to overlay
j
I
I
!aURD~OGRI
I
I
I
I
I
I
_ ._ _ _ _ _ _ _
Du.grall -
q.
J
7.2-01
i ;-----------------------'----,----'--:-,
JCRSTRIO • , is 'he function 10
that 1S Utl.i1'Zf!d as an 1ndex
II
"
value to ret:-ie'E anot.her inde x
1,
value that is used t.o execute
1
I
III
I
II
II
processor.
\
I
I
1
I
I
I
I
I
I
I,
I
I
,
,
I
I
1
1
I
I
I
II
II
II
' I
,I
,
II
\
"
I
II
,
I
I .
,
,
I
,
I
1\
I
II
1
I
I
I
I
I
I
I\
III
I
I
I
I
!
\,
I
t
'
\
the appropnate branch
I
I
I
II
II
tbe log record e At locatl,on
1nstructl.on to th"! update
,
I
I
I
porhon of the log record
I
________________ I-:::~~:I-~abe~I-~I!~:--------------------I-::~~:I-~:~-L~I
A. DrH2eOlI ••• ABEND coda 2801,
C.
1.S
I
L________J
REad Leg lioutl.ne
'
I
I
I@J
1:
!
I
I
I
lIessa9~
and tor.lona,:o
II
!
----------,-
1~~
I§
for prenous voluoe
The sYS't811 10 loll field
JCRSTRID cf the prefll
I
L _________J
ftORDLOGR -
close vol•• " and open
I
:
I
I
C. If any ot.her errors
,I
I
I
I
:
J
I
I
\
1
I
occur, l.ssua
I
1\
I
B. If end-of-fl.le occurs,
I{~
1
I,j
'tera1na'te
I
lOP
\
er:or.n~cc.rs.
If an 1/0
l.ssue aessaqu
I
!I
I
records
A.
I
I
u.era.
DFHJC
TI£lE=GETB to read log
I
I
I
~ Iaou~
PAGE
---------,
output
I
jl DrUBUf:
t:: •. ' >
I
I
r-----------------1
ProceSSl.ng
lo,.t
PROPER'lY OF IBM
I!
,III
I
!I
I
I
!
I
I
I
I
,
I
I
\
I
I
I
,I
,
I
I
II
I
"I
I
I
I
1
I
I
I
,
~
IH;JROLOGB -
Read Loq Routl.ne
Section 2:
Method of Operation
~
01a9ra. -
III
\1
,
I
I
I
,
I
I
I
I
I
I
\1
I
'I
,
,"
,
1
I
\
I
I
I
\
I
I
,
,
,
I
I
I
,
I
,
I
I
I
I
I
I
I '
I
,
,
I
I
I
I __...J L
I _______________________ -.!.I ____ I _____ I
L..
_____________________________
I
,
i
,
I
I\
II
II
I
II
I
'I
II
II
I
I
I
II
I
I11
\\
11
1\
I
,
I
I
I'
II
II
,
I
,
I
I
I
1
!I
I
I
,I
:11
II
II
1111
1\
II
\1
I
I
I,
,
,
I
I
I
~___1
11.1.2-01
531
LICENSED MATERIAL -
PROPERTY OF IBM
Input
r------------------l
Prem ilw 7.2
I
I
I
I
r:L--..,
I··· -, >I
g!~g~dLabel 1-r---=~\I@D
\/
1
1'
[
I
_~II_l---------'/!1
I
I
\
\
(I
I
-
I
:1
I
I
I
f
II
Output
I
V'er1f1Es
th~
I
block label
to be 1D seguentl.sl
desc-andl.ng order
III
A. If not in seguence,
,
'I
l.ssue eero.!: message and
B.
I
If 1U sequence, ret.urn
to lWRDLOGR
j
I
[h-;;;;;;l
/I
I
II
I
I
!i
I
I/
II
I
I
!
I
I
!
/
!
\
I
/
I
/I
I
II
\
I
I
\
I
/
I
I
\
lI
I
2
I
II
I
I
I
I
I
!
\/
I
I
\
t_________J
I
terll.nate
i---n
110 •. 7~
\
I
1
I
I
I
iI
I
1 OP
I
I
DPHRuP:
PAGE
1------------,
Process1Dg
,-------------:
/
\
t________
RULABELR .. Label Verl.fl.catl.onBou'une
r-------~-----------i'------i---I--I
J
!I_______________-.JI
018gr811
..
11.7.3-01
r-------------------I---,------,
l~~-----------------f-~::~~:,-~~~-'~~-II~~------------------I..::~::I-~~~-!-~11
Ei]
I
/
I
I I
I
I
I
IIII
I
I
I
I'
I"
l'
I
l
The iust block label data
l"aLABBLRI
LS
saved in fields:
I
I
I
I
I
I
II
I
I
II
IIII
II
II
I
I
... RORON'I"e ... run start tl.me
- RODAT! - date of ron
- RaBLKT"" - t1o. Hock record
IIa 5 vrl. t t en
Thereof all other tlock label
data is cc.par4=a against th1.s
field.
A.
OPH2802I ••• ABEND code 2802
I
I
"
I
I RULABE30
I
I
I II
I
I
I
II
I
I
I
I
f
II
II
I
I
I
!
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
1\II
II
I
II
II
II
II
II
,
II
II
II
II
/I
I
I
I
I
,I
I
I
I
!
'/
I
,
I
I
II
I
I
I
I
II
I
I
I
_______ _____.!. ___ _l
RULABELR - Lat'Cl Verificatl.onRouune
532
II
Il
II
I
L_____________- __________________
l-_--1 L -____________________ .
I
I
I
I
II
I
I
I
II
II
I
1\
1;1
I
, II I
II
" I\ 1
II
I
"
I
,
I
\
·
I
I,'"
I
I
~
Ol.agral!l -
CICS/OS/VS Program Logic:
ca.
1 • .i-Ol
Description
LICENSED MATERIAL -- PROPERTY OF IBM
Input
r---------------------i FreID
".7.2
I
I
\
I:
1°1
Ptocassl.ng
,-------------------:
I
l:~~-;'I\I
\
I
----,/ I [0;"1
!.J--------..
,,
r------1=--1--------'11I -
Sync Log
Record
I
~2.J
L _ _ _ _ _"
,
"
Check tor type of sync
reco=d
:
g~~~~f~~
,I
If ]!OTK t3nd·of-TaskJ,
1fisert.s part1nen1:
I
rX7;~;---'1
I
J.:lfctmatl.on l.nto the
I
I
Is'tart of
ISyt\c
I
I
I.!~::!.---I
!(' P 21 =
I
III
1
:
,
I1-------1
ir'~~Tt(J
I
I~~al.g~l
I
:
II
IX"3 1 =
I phXSl.cal
I
I
Ii.~SK of
II
1
:
U~~CTKI _1
\
1
I
II
I
I
1
I
Ii
\
1
I
\!
:
I
II
A.
SiIle Table
B.
If SOSY
(Start-of-sync),
s'':mrches 3ync Table fot
match ent.ry
C. If match found, l.nsert
enuy l.nto Dynamic
'able i f requued
D. If match not. founD,
Ferfatm no Ufdate
I
I
,
\
1
i{~
Checks for start-at-task
I
(SO'IK)
:
A. I f SOTK,
branch to
RUP.SOTR
I
'I
1 ',
I
I
\
,
I
1
I
I
I
1
I
II
I
1
I
1
1
I
1
\
\
(TAsKiii-l
1-----1
ITIUNS.IO
I
1-----1
ITERMl NAL
lID
,
I
1------1
I FLAGS
~T
I
I
I
I
1
I
I
I
l'
I
I
1
I
I
I
\
I
l::~ >
1".7.6
B. If Dot SOTft. eXlot "loa
I
[;:~'>roJ1
--,/ ' /
\
1
I
I
I
I
I
I
I
I
!L ___________.:___-.l!
L __________________l
I
-!------"
'I
III
~~,
I
RUSYNCHR -
I
\I
l.ndl.cat.or
I
II
1
I
II
I
I
2
I
II
-r------
1 Of'
,-------------l
!I
DfHRUP:
PAGE:
output
L -__________________
~
oloagt:all - '1.1. '1-01
Sync ProcessloD9 Routl.ne
,-----------------------------------------, ,.-----------------------------------,
I Notes
I ROU'l:1nel Label I Ref II Not~s
I RC'" 'i '1~: Label : Ref t
\---------------------1-----1---- 1---1 \-----_____________________ 1________ 1____ 1___ 1
II~'"
f011 ~hen a 50S! record 1S found tht' "I
: RUSYNC30 I
:
II
I
I
I
I
I
Dynamic 'Iable is scanned for a ,
I
matchlong entry. Thlos search 1S
I
I
by task 1C. The entry l.S
"
I
l.nsen.Ed l.nto the Dynam1c Table
1f an en"::ry l.S nct foulLd. 1n the
:
oynaml.C Table vl.th the sa.me task.
I
:
I
I
I
\
1
1I
I
ID.
II
I~
SOTK l.S determl.ne by checK-long
1
the prehx porhon of the record \
t
\
I
I
I
the fl.eid JCSPF1 for a x'02
1
I
1I
or X' 0., •
I
I
I
I
I\
I
I
I
I
II
II
I
t
I
I
I
I
I
I
I
I
1
I
I
IBOSY!fC80 I
I
\
I
I
I
1I
I
I
I
\
I
I
\
:
I
1\
1
I
I
1
I
I
I
II
1I
I:
I
I
I
I
I
\
1
I
:I
\
I
I
1
\
!
!
!L
1I
I
I
I
I
I·
II
I
il
1
I
I
II
1
I
_____________________-.!.I _____________ -1I _________________________ ___________
RUSYNCH~
~
-
Sync Erocessi:tg ROlltl.ne
Section 2:
Method of Operation
Dl.agram -
~_~
11.1.11-01
533
LICENSED MATERIAL -
PROPERTY OF IBM
r~~L.----·----l
Inpllt.
=,-" >/IrOJ!
Checks for kaYPoin. t
10J "I
L:::.I
\' - " .
processed 1nd1cat10n
I
A. If FEocessed, btanch to
l
B. If not processed,
return to ROROLOGR
I
,
5UTEBnR
I
I
I
I
I
I
I
I
IL_
-1
{;;;;j\
I
II
sync process1tg Routine
I
[;;:=1
')
--=--{
/,.7.0
I
j
-
I
I
I
I
I
I
I
~USYNCHB
2
I
I
I!__
2 0'
r·~"o
I
I
II
PAOB
------------,
Output
I
1
IL -_______--'I
D1!lgraB - II. 7..... 02
r
T;::::r~::;-r;;:;-lr;;:::---------------'-;:::n"l
;:~
!-----------I------I----II--------------j---I~ro:i1
deter.l.n~d
I
I
Notes
I
I l:::':
I
I
!
II
L::-'
Keypoint processed 1S
'
by chock 'ROSTATOS' byt. for a
X'02'.
I
III
I
I
II
II
II
!!"
I
I
I
I
I,
I
\
I
I II
,
!
II
II
I
,
I
I
I
1\
I,ll
II
!I
\I
I
,
I
I
II
II
1
\1I
II
II
I
I
I
I
I
________________
I
I
II
I
II
I
II
I
II
I
I
II
II
I
I
II
I
I
! --'
IIL____________________ I.____________
I
~_--.l
ftUSl'NCHB - Sync Erocessir.g Roatine
534
II
I
I!
I
I
I
I
II
I
!
I
II
I
II
'\1
II
I
I
I
I
II I
I
I
I
I
IL_______
I
I
II II
I
I
I
, I
I
I
0189ral -
CICS/OS/VS Program Logic:
11.7.4-02
Description
LICENSED MATERIAL -- PROPERTY OF IBM
Input
1-------------,
I
Processing
Pre ••• 7.;
I
,
•
,
I\
r> ~~~T~~g=-II
'1
1
1 L:._
\
t'
I
1
\
l~
_H
~· •• t
r-----./I
1:1
~g~~!~~g:
rx..~~I
,logl.cal
I!tg¥ut task!
1,
I
I~
I~~~1;~1
I
,:
i'PillI71 I
I
Ilog local
I I
0 uTr 9' @]
g~~o~~g
PAGB
Output
1------------------.,
~
D;a9ra. -
_
'I
_1
11.1.5-01
535
LICENSED MATERIAL -- PROPERTY OF IBM
Inpu't
ProceSSl.ng
f----------------~prcm 1.J~7.~
,---------------,
I
!I
I
JCRS1RIO
contUQs:
J
r-L
I
I
I\
I: -"' I
I
e:~~~/>1
~------"\I ~
fxt00007-. l---l---------,11 -
I
I
\ , trW
I
I '-'
Test for user leg record.
---~\
I,
\
I
\
\
!
!
II
I
II
I
\
\
I
I
I
1
\
1
Test. for ARB user record..
I[§
I '
I, /
~"I. '. >~iiPRLOGR---:-----l
------)
.!~.:::.::.:~~Ecord
!
\
l
I
Ro~tl.ne
I
I
I
I
\
I
I
\
I
\
!I
I
L_______________l
Oser Log Update
I
I
II
,
!
I
I
I
I\
I
,II
1 •• 1.2
I
II
I
f
I
1".1.8
I!!
I
I
\
r~~;;j\
L:.:_,I
I
I
I
I
I
\r--t I
L__________
lOPHROPJ
f-----------------·
PAGE
--I------,----,-~
~
1 OP'
1
:----------l
OlltpU't.
I
I
II
II
,
I
I
I
II
I
I
I
I
I
I
I
I
I
I
I
II
I
I
I
I
,
I
I
II
!
I
I
I
I
II
I
I
II
I
I
I
I
I
I
I
I
I
L
-1
D1agram ... If. 7.0-01
r---------------------I------"j:----,--,
:~~_______________.__ -L::::::I,_L.be=-ll~II-::::--------------------1 ~::~~::1-~~:~-' _~~I
I@]
I
I
I,
I . I
I I
I
I
I I
I
I
I
I II
I
I
I
II
I
!
I
I
I
The test for user log
-,/
/ •• 1.6
I
I
I
I
I
I II
I\ I
I
I
/
';
II
I
I _________________.II
L
Data Base
Up~atE
I
I
I
L -______________l
\
L -__________--lI
D18grall -
Rout.ine loriUtOp)
q. 7a b. 1-01
r-----------------------------------.
r----------------------------------------,
\
I
I
I
1\
I
I
I
I
\_::~ _________________ I~:~~~\_~ I~~i I_~:~: ____~______________ \~:~:II~~-I-~~ I
IIr-:'":'""l
~
I
I
1
,
\1.--.
BAL to RUPI'iLOG~ rout.1.De to scan
froll RUPELOGR.
I
1I
I
1\
I
I
"\I
\'
:
,
create an entry 1.n FBO table.
l
I
I
'
1'1
I
II
/
I
II
I
/
I
II
I
II
I
I
I
II
\
I
II
I'
I
I
I
I
I
II
I
I
I
I
I
I
I
II
I 'I
/
\I
I
I
(Jpdate counters ty record type
(1..e., vrlte, add, read, upda'tE, I
etc.).
I
,
I
Pile &ackout Table (FBO) f o r :
match. If no entry 1.S found,
I
\
I
II
I
:
I
II
\
I
II
II
II
II
I
II
I
'\I\
I
If return code 1s non-zero, scan
I
I
I
I ~J
,[§
I
I
tor lIatchlDg entry 10 DynaDll.C
\
Table. Ch'!ck for return c o d e :
I
I
II
I
I
I
I
I
I
I
I
I
I
I
I
I'
I
II
I
:\
I
:
I
I
II
II
I
I
II
It
I
II
II
\I
II
II
I
'
II
I
I
I
I
I
II
1
II
I
I
I
II
I
\
I
I
,
I
I
,
I
I
I
I
I
1/1
\I
\I
\I
\I
\I
\I
I
I
I
II
I
I
I
I
I
I
I
~
,
I
I
I
I
I
I
I
I
l _____________________________ ! ___ "___! _____________J L _________________________________ .. _____!.____ !.__ _'
Data Rase
Upaat~ Rout1.n~
Section 2:
lOFHROP)
Method of operation
r,l,agram - ".7. b. 1-01
537
LICENSED MATERIAL -
PROPERTY OF IBM
r---------------l
IDPllt
prOCeSSl.Dg
r--------~---i
II
I
I/
@cs'llllii-:J====:==~)h~:u
--- I
I
~~~~m~: I
I@~
II
I
X'8110'"
Input 1159
X'S010' HI resync
\
I
II
I'
I
I
I
i~i~I~~ed
I
/
/
:h::==~r-:>'
/
')
I
I
' I
Restart Data
Set
I
/
I rn....
II
~II:~:J
I
I
I
Pr:Jce.3!; POSl.tlvo resFc;-:s'!!.
/
output msg
I
I
X' F110' -.
cotput 115g
1
~;mg' d;ta
1/;
response
~~m~~e -,'
I
,
1/:
II
,
!
I
I
f
I
:
I
,I I
I
1,1
I
j'
:
II
I
/
II
"
I
II
I11I
I I
I
I
IL__~ ___~ __________l
IL-____________ I
L ______________JI
_1
ftessage update Bontine (DPAROPJ
Dl.agram -
r--------------------------------,
I
I Notes
ROUtine' Label
I Ref
Notes
1£ not set,
I --' en try.
'l~!.!
Scan Dynaeic Tahl'! for .atching
I
I
:
It
trOt
\
<0
~estart
\
I
\
.
found, write lI'
!\
I
I
I
I
,
I
I
I
I
C==.l
I
,
I
l
TSRT
_!I___==::::::>
I
I
!
'!
I
I
\
Process update record
I '
II;
\ @!l
Process Temporary storego
sync rEcord
output
create entry an.d wU.te data
record to restart data set.
I
I
I
I
I,I
1,1
II
,
I
,
:
,
II
I
\
!I
I
I
I
\
I:
I
I
I
I
III
I
I
I
I
\
I
1
I
1,1
I,
"
I1I1
"
I
'1,1
,
"
I'
I' "
I
I
I
I
I
II
I
1I
II
I
,
,
I
II
I
I
I
I
:
I
,II
,
,
,
I
\
I
II
:
II
I
I
I
I
1
I
II
II II
II
II
I
'
I
I
!
I
I
'I
I
I
I
II
I
I
,
!I
I
I
I
III
I
I
I
I
I
I
I
I
II
I
II
I
I
I
1\
I
I
I
II
I
,~
I
I
II
II
LI_______________________!I______.!.-_____
. ___J!I _____________________ .__ .. _____
!.I______ _
I
RUU'rSTR ~ Update TST
540
RoutJ,ne
D1e.grall ..
CICS/OS/VS Program Logic:
rJ.
7.
b. 5·01
Description
LICENSED MATERIAL -
PROPERTY OF IBM
PAGE
1 OF
1
r---------------l
)..-''----------------,
,
"
.
I'!
"
J[:~.S~-l------------.'!
_L___~" I
Input.
erocessl.og
f,--------------j
!
II
I
----.--------,/1 r=t01,
-..I
I
x,:~-·I
\
r=,O1.agraa - &t. 1. b. b-01
541
LICENSED MATERIAL -- PROPERTY OF IBM
I nput
I
r------------.
I
I:r.L~\,I
I,
r----,,-,-I
::~otdS
J
-----
I
"
I
I
Process act1'1tl' keypo1nt
record Ilpdating the
II
I
I
I
I
I
I
I
j
I
I
I
I
1
I
I
I
I
!
I
I
I
l
R[J£lRKPR ... KeYP01nt ProceSSl.ng Routl.D e
L~
\,
I
i___________~
OCT
I\ ,I
I
"
I
--./'
\,
/ 11 J 'I
l
I
Actl.Vity
Table
II
I
~;/lL.\'
1•. 7.10
TCT
I
r----]
It
I
I
~~"'r
Table
[---l"'--::::••• : It
I
START
-f---l
I r--:>
-'\
I
X'e3'
I I I
------'-' I I I
Dyna.1c
-----L
Dynallic or ACtl.V1ty 'IableE
and OCT
, II
I
t'l~~~~RI~1l1
III
I
D[~~STal~. ~l
1
I
I II
I
fjCBsTRi~. 7i I
\
l~~~_l , I I '
~~_A_~---'
1
II
DPHRUP:
I
I
I
JCRSTRIO =1--.
LX'Bl'
1 OP
I
l'::~~~/I _
I r--------..
\I[o!]
11 f--------~'~I -
Actif1t
KeYPol.nl
PAGE
output
process~ng
f - - - - - - - - - - - - - l p r o o •• 7.2
I
L__.~.
_~
D1agraa -
r----------------I------I---,--, r
--
I
I
..7.7-01
1"1
l..:::~----------------_L::::~:!-~~~I~II..:::~----------------l-~:~~:l~~:~-I-~l
'fOil
I~
,
1
\
I
'
,I
,I
,\
If tbe hr_t rEcord read dunng I
an Activity. Keypoint seguence is I
not the end keypo1nt record, the
ke YPOHt records are not
processed.
!
,
Once He 'end' reccrd bas been
II
I
es'tab11sfled, the 'rCA, DCT, and
/
I
TCT records are uhll.zed to
I
update the approp.,ate tables.
'hen the start record 1S
processed a flag (fiUPKPPRJ loS
I
I
I
I
1
\
\
II
I
I
set. in field RfJS1A1US to
indicate that a keYPo1nt has
been processed and no further
process1Dg cf tbe
"eypo~nt
records is necessary.
IBOPBKPB
I
I
II
I
I
II
II
\\
I
I
:,
I
I
1,1,'
I
II
I
III\
II
I
I
I
'
i :
I
I
'I
I
I
I
I
II
I
I
IJ
I
II
' I
I
/
I
II
I
II
I
I
RUPRKPR -
542
II
I
I
II
I/
II
I
I
I
I
I
I
I
I
I
I
I
I
1
I
I
II
I
II
III
/
I
I
I -________________________________
I
I
L
JI L
! I' ,
I
I
I
I !
I
I
/
I
,
I
I,
I
I
I
I
I
I
I
1
,I
,I
I/
I
I
I
/I
I
III
/
!
1/
I
1
II
I
I
I
I
I
I
I
I
I
I
I
I
_______.__! _______
!..._--.I
I
Diagram - q. 7.7-01
Keyp.o1nt Processl.ng Routine
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -
Input
PROPERTY OF IBM
PAGB
processl.ng
1 OP
r---------------,0.1.0 0.1.5
0.1.9 ,r
\ ,
O.l.t
,
\
I
I
\
~
I
I
I
,
/:L_.,
1··· -I >I DnRUP:
[~IS entered fro. -all update
----,1
~~gg~, ~----------., IQ2I
I
rmi;:-=-l=1:r~-------"l
I
1!~~---1
'\
1 ..
~·.C·:·c
I
I
.-----~'I f031
lJ'r--------'/\l:::J
,.~
I
[---l-J
,
I
L::J
_ _ _- A
I'
I'
',I
~
I
,I
I 'I"
'I
t
I
I
,
I
I
I
I
Cbecks .f SOT •••
~::::ted . . tbe 1099Ed
Searches Dynaa1c Table for
aa't.ch1ng task entry
\r~ Inserts task entry 1Dto
i
I,
rou'ti.a.es
Cbecks for act.uty
keyp0l.ut processed
!lUTEBn
B. If not processed,
cont1Due read1ng log
I!
\
IL
--l~:~~:Vabol
Cbecks the pref . . fl.eld JCSPP1'
for a I'C2' pbysical
start"'of-task (PSO!K)
or 1'0 .. 1
;::::::b:::::::::::'::~~;:~:~:
1;1,
I'
~
II
I
RUBDLOGB.
I
:,
I
delete entry
PSO'lK
= lBC'!'E,
inser't entI! lon
:=
LSOU •
§)
I
I
I
LEOTI,
no
ne'rE,
DO actio.
I
I
II
1"·7.10
I=~>
1•• 1• 2
II\\
II\
I
I'
II
!
IIII
I
,I,'
',:
I
Ifaotes _____________
"
II
I
act::LOD
Bef
I
----------------------~
D1agra . . . II. 7.8-01
I!
IROPSSOID
If entry 15 not foond 1D the
Dynaa1c 1a1:l1e, a task entry 18
created in the Ict.l.... l.'t.y Tabla.
I
I
I
I
I
I
I
I
I
L ____________L____I ___L_---1L
BoeRsorB .. Start"of-1:ask procesS1og Routine
section 2:
--~l
I! II III
place:
PSOTK
,
I,
the f01101l1119 updates take
= PEO'!K,
I
(;;=i'>
_J
"
Act1't'1tJ 'lable
I
: BUPBSon
Searcbes the DynaOic hble for,
.atcbiD9 tesk entry .. If found,
pso'n;
'I
1,1
I
RUPRSOTa ... Start-of-Task frocess1Dg BoutinE
~.s
--:]
I,
Ii________~I
I§]
I
Table
L-·/l r
A. If p.Eocessed, go to
I,
!,
Activity
:-:::::=L"
Acunty Table .f regouEd ,
Method of Operation
______._,_____L
Dl.agraa .. 4. l. a-01
543
LICENSED MATERIAL -
PROPERTY OF IBM
~rocessin.:.q
IniJut
_ _ _ _ _ _ _ _ _-,
Proll! 1I .. 7.6
~\
L:":..:. :..V
I.og';Jeil
User/Data
Bitse Record
DFHRIIP:
~ Write user log or ,data
base record to Restart
data set
output
t OF
~I~)
I ··d
I· ...
A.. If I/O error, write
PAGE
Re-start Data
Set
'./
4.7.q
lIessaqe and ter"inate
L
HU V!cR S D::"R---::.=r"'"it:Ce:-:R=p.=st:C.=r=t-:CD.-t:C'=S=.::-t-:!Houtin~
Boutin·l~
Notes
@l
Diagru - 1&.7.9-01
Kotes
Ref
Routine
The log record is vri t ten to tbe
Label
Bef
--- ---
RE'sta-!:'t ela ta set by issuinlJ
fla ero DPHKP TYPE;;Ii'TBODATA ..
A .. DPH280a ..... ABEND code 2808
I
RUWliRSDR ..,. Itr1te Restart DataSet Rout1",e
544
~l
CICS/OS/VS Program Logic:
Diagro - 11.7.9-01
Description
LICENSED MATERIAL -
PAGE 1 OP 1
O;.;.:..;t.:..pu:..;t'--_________ _
-----l
processing
Inpu't.
PROPERTY OF IBM
.--,- - - - - - - - - - ' / tJ_
•• 1.e
7•••• 7.7.....--!- - - - -
I
III
I
Table
II
[===:J
I
r.l····1 >/
E--"
I ,----""/
Dynalll.c
I
I
-./
1
DFHBUP:
~
r----------:J, t!!J
Scan Dyna81c
Tllbl~
fer
CO'Ilehon of work
r-------______ _
lR
IL--.',
\'!-:~/> E~~_P
Ecovers TD
I
I
.
destination
RO:~:OGR
II,'
IlIA.
I
I
'/I@uponretornfrO'DFHTORP'-I'/V
procoss 9tatl.st1cs
I
I
I
/
I
Else return to
".7.2
Ej'>loil
~~
!
I
I
1•. ,.,/
,!
I,
!
t _
L
__J
BUt!SOS - Tenination Rontine
___J
----
018.9ra ... ".1. tO-01
r-----------------------------., ,...----I
I:
1/1
each task .ntry
conto...
end-af-task
cond1t1oDS.
I'l
I,
!
!
If th.s cond.ton eusts, a LLnk
I
15 l.ssued to the Transl,.ent Data
I
I
!
I
11:
,1
lleco.ery progr..
(DtHTDRP).
1
I\
I
If • task entry does not contain "
;::d:::-:~-:::\::t::;~:::
;'5
cont1DIled unt].l all ant-rJ.es 1n
the Oyna.1c Table bne completEd
I ·
logical unit of .ork.
\
I
I
\
I
II
,
1,,'
"
"
I
II
!I
,
1/1
,I
I
I
!/
I
I
,I
I , ;11
II
II
I
Ij
I
,I
I,
!
I
,
I
I
I
I
I
/SUTERKJOI
II
1 "
Dyna81c 'lable, to ensure that
I
I
,I
I
,
I
1
I
I
I
II
II
I
'!
I
II
I,
I
I
I
/
I
/
,
I
I
'I
I
I
I
!I
I
I!
IL.._----________________!
I
\I
II
I
\I
1\
II
/I
II
/I
Method of Operation
I
I
/
I
I
I
,
I
I
I
II
I
II
I
II
I
!
,
I
I
Ii
I
,
IIL ____________________________
I I
I _ _ _ _ ~~------.!
HDTEROR - Ter.illation liout.l.ne
Section 2:
---------~
_I~:~I~I~~! I-~::----------------I~~:l~-I-~
I
/'::es ________
~ The cOlpleUon of work .s
deternn.d by scann.ng the
I
II
I
I
I
I
j
I
I
I
I
I
I _____ .!..._~
Dl.agra. - 16.1.10-01
545
LICENSED MATERIAL -
l
Inpa'
.---
Actint"
'fable"
PROPERTY OF IBM
Prroc.snn
rrc •• ,7.10
f!l-, \
l.!···1
>
---,!,
-=.....J
l_==:J--r - ----,1
DFBRO P:
~ Mr1ta
data to Statistical
~::t1St~CS
,----,1
to statuUcal
stausucs to stat1st1cal
log
Acti.~tr
-!,J-------"
1'---"1
L::::J-
1
or
1
l
,.--.,
l'.----.~l
' I
CSSL
-r---"'lJ
I
=_
~ Wri... f11. COntrol
!able
rl
----11 I
PAGE
~ ifr1t.e Transient Data entrl'--
--_""
[_=:1
J
~,
Act.1Y1ty Table task ___- - I
....ry
log
A. If I/O error. vr1 te
.eseage
DCT
rI
-~
g
rn.1
~ Wri ... Activ~ty Table and
lIess8gB Backout Table to
I
1
I
r-',I, 1 ,.---.,
=__:::=:::..r-'
I
Restart data set
"
,\
1'---"1
,
1
aet
1. If storage 18 net
Restart data
a'l81.1able for Act1'1tJ
'rable output !Juffez:,
vr1te .assaga and
tar.inate
L
I~_____J
B. If 110 error occurs,
vr.1. te aessage and
teruDat.
. [····:;:1
I ',
____
~DPBSIP'
Oiagrll. - ",.7.""0'
ROllaSt ..... Write Stati.stl.CB Rout1fte
_I~:~~~~ _~~II
Ilot.s _ _ _ __
/§l
'l'llke stat:Lstical data froa tbe
task entries in the Activity
table and write tbe da ta to the
I
stat1st~cal
log_
esse.
I
data
.. Task ID
A. DrHZB07I...
....'" I II
I II
.:::::::::::u
I!!I :::;,::-.::"
aacoury
I
I
II III
... Data Ccllectea Count
-
RO ....--------------
I
.. Transact10n 10
III
J,I
I
aO".SINR
CODSl.st of:
I :a::~.::::~::n::.t
B.f
of:
status
1,1
set to te used later br Il
:~a::::::::. ~C::::O p::::a:~Ob
B. OPRZ809I ... ABEBD coae 2809
I I
I I
I I
I
I
- Total recoX'ds 1D queue
I
~
I
I
L-
The entries 1ft t.he lct;a.'l,tl'
Ta ble a.4 Bessage Backoo' Tablo
are IfritteD to the
I
I
'801.5200
I
I
Re:~~ _ _- _ - - -_ _ _ _ _JL
"I
I
I
IJ
D1.graB - ... 7.11-01
BU"'51la - Vr1.t. Stat1st1cs Boat1De
546
I
CICS/OS/VS Program Logic:
Description
(
\
LICENSED MATERIAL -
Input
..
're.
P.toceSS2.ng
D!HHI
PROPERTY OF IBM
PAGB
Olltpllt
r
I O.
II
J:L,> O'H1'OBP:
1':---'
---,/ ~ Allocate storage for
an
input/output area
1.. If allocation 1s
ansuccessful, issue
aeseage and tera1nate
E:Lt Rap
,
- -[r===~)1.,
f1.::-:~TI
I C--------'/II
[::=1...,
.,lroJ!
i
rQil Bstabllsb. addrassalll.llotJ
L::.J tl) bit aap DC'r aDd au ••y
DC'r eDtry
L'::::...:.:.:.:.J
~K~i:dOC'r
L__________ ,I L:::J ScaD
[ci:o~~~i-l11L
I .
~'80'
•
DCT for
1Dtrapart1t11)D
dest1nat1ons
-------:-=,) ~ loS
:Lf destloDat1cn
te reco,ered
oe~er.lne
to
A.. If anreco,arable,
i~d2.cate error in input
~o2.nter h2.gb-or4eE tytE
I
I
----------,1 I
oloth X'10'
.--. ' --1I '--------.,
L l §05]
I
I
I>---.~I
I
Bead cba1D recoEds,
blot aap and counters
I
I
upaa:te-~
----~-l~>
I
Bit Rap
I
l
TranGl.ent
Data Data
~~'j
~Tr-a-D-S1-e-D-t~o~a~ta~R~e-C-O-ye-r'!
I
L-------------~D1~a-g-C-a-.---~
-------------------------
r----
--
'I
-
I
I
I
-ro;1-,------------- --- 1I-~:~~::t~l~1
I
I
II ~----------------I~:~
the total gue.e cou.t
I-~~- -:~
lotes
I
I
18
!
L:..:J
I
A. 0.828101 ••• lBIID code 2810
I@]
I
®
IDtrapart1tloon destuatl.oas are
IIII
I
Ii
I
1DCreoented.
!he cbai. is broken • be. DO
forward ~c1nter ea:1sts for
I
phyS1Cal recoury or oh •• the
cha1n "IeCOEd track aquais the
II
oDt~ut ~c1nter
I
track ,"!'DDC'l'ODA).
POr logical recotary, the
counters lIl"Ie updated 1D the DC''r •
I·..~.. I II
I I I
I
I I
'I
II
JL___
ITDR 1000
I
(
'l'raDai~~------------
Section 2:
II,'
I
IltOIOODO
'lhe des:t,1nat1on 1s recovered if
tbe queue start address lOSA)
TDDctqSA 18 Donze't'o aud the
b1gh-or~er byte does not cante 1n
a "SO' ,error in DrUiDf vbile
.pdat1ng tbe DC"!').
L
I ''IIIII
1,1
'aetera2.ned by cbecJa.ng 'loeld
'l'DDCtD'I o.f tbe OCT for a '180 1
,,,quatee to TDIHD'l'BO).
. begins v1th the <;5 A. As each
Cba:LD record 18 read, the b1t
representlong the track 1S
f11ppec1 on 1n the b:a.t up and
"
, DFK~DR2DI
5'01nter to b1t aap loS at
10catlooQ - 12 froa tile DCT
entry. Sa'le b1t aap address :LD
locat1on 'lDRBllfTB. StOES
po1nters tc the 1nfllt/outP~'t
.area and 4ua.y OC1' loB tbe rCA.
~ aead1ILCj ot chain records alva! s
I
Method of Operation
I
_____I'~_II ___-.-1I
01&gr .... - 4.8-01
547
LICENSED MATERIAL -
PROPERTY OF IBM
----1 [;) ." . ~.~ "~~. ."' II
Input
eXoceSSl.ng
(
I
I
II
/0--0, --.
J
I'
I
I 1a91ca1
,
L _____
I .
r~co.ery
-"Ifm Read last track on
C.J
L _ _ _ _ _, /
physical recovery ..
I
0----0/
/ I
I
"--" I
PAGB
Output
or
2
I
..I-"
::-,-===:::.r--' /
!
E---:l
I
2
I ~-/
1
1~
0---0
~I
1 0----- 0/ 1
Chm Reca:d
I
lTO DrH~OE'
I
I
I
I
I
L ________J
TranSJ.8nt Data Recovery
r;::----"ROttinel
If;:::-----I
IEl pa;:;;;:;::~.erY,. the .last --- ------I---,--!!-----------------I-----~---- --=--11
Label
pol.nter exists, tbe cbai. racora:
I I
If
po1uter eXl.sts, revr1t1D.g of
II
:::::.::e:~eI:e:t:::~;: ::.10
i."
\
re.r1t.eno nc £arvud
chinn record
1.S
bypassed.
I
I
"
,
1® :::.:::::::".::.::.:::'••ri •
I
1
1
1/
I,
I
I
:!::r::~:'.::t::: :~:c:a::~.:a
data length bas changed.
',1
\
I
I
I
"""'1I
II
1\II
!
1
I
I
I
r\
I
I
'1',1
I,
II
I
I
II Ra;l
I
I
I
II
--o----~--~-I--I_1_Jl__
Transient Data FecoYl!!!ry
548
1
ROQt1ne\ L_bel
I ' I I
I
I I
I
I 'I
I
I l.
,
I\
\1 Ref
I ,,
--"'-----Ol;GU;-:-q:e:02
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
PAG!
1
'iH
['ira;;;~ati;;n--il
backout FI'Cg1:B.
.
..9.0
------- -------
[ initi;ii;;ti~iiJ
1:0utiDe
0.9.1
------ ------
B.i;i-;i;t;;------]
[ .records
' .. 9.2
------- -------
['ier;iii;ti~ii-:--~
.
..9.6
----------
'transact,i,on backout progra.
Section 2:
Method of Operation
549
l.ICENSED MATERIAL -
PROPERTY OF IBM
z.a.put
proc~L-----------l
• o·
PAGE
output
-----------------------------1
DPil1BP:
§]
@]
Iti te beadQr aesS8';le to
CSflT. and to console.
Read the 'lBO, PBO, "BO,
and DBa tables.
@]
Check PBO table against
loaded PCT ..
~;;S-l
List
_
_ _ _ _ _ _ -.J
[' Add,
~flI
j-> [iioii; Ec----l
_________ .1
[!~~o;:ii==J
?zz???mp7I~1
It~' >
II
-- I
~
Check PlBC table against
loaded TeT. Copy "SO
information 'into ISC
[ fB"!oAii-=J
mmmZHI
nPHIIIBC
I~~l>
TCCTEs.
@]
Check DBC table against
DLlJ directories
~
Give user initialization
exit control.
>[:~!~~!]
~!:!!!!:~
T"ll
,
__ J
[!§!~~~===l
I'
77~'>[B)
~~'
-- I
/1)
DBO
rriDBiSBN:-l
!!~:!~~~ __
-- I
.J
[~Z~>!I
;:;;;;;;;1:--1
[cation
I
~:!:~~---________
.1
'!Bn'ICO~
'
,,,
,
_____________________________ J
Dlegrel" ".9.1-1)'
, Notes
Do utiDe
Latel
~ Kessaga D.85701.
~ If :rao taDle is absent, .essail'e
0l'B5103
is
TBoeOIOO
issued.
.If fBO' table is 818sing' ,saae
TB000130
aessage is issu.ed.
If 1180 table is .,issiDiJ, saae
aess8;Je is issued.
TBoeOt60
If tBO table is 81&s1n:}, saa.
TaOOtOOO
-------------------------------------------1
Bef
Rotes
lIoutina
Lahl
1B00025~ I
"BO entries without •• tching
'TCTTBs are flagged as ahsent ..
entries are checked against
the DL/I PSB Directory and the
DflB directory to ensure that thf!
fSB IS are scbellulable. If thp.
fSB is not schedulable, the
entry is lIarkell accordlnqly
~BO
,
I
I
I
• arked for no-action.
~~ Via a BAtR 1Q instruction.
I
I I
nOD.05cl
n0002'5!
'lb.e addresses to tbe tables are
placed'ln :f.ields :rSIROlD,
'rBJlBO~,
,
[~~]
the systel, all entries are .
If an 110 error occurs, aessage
D,a5702 is iSSUEd and eICS/VS is
teratnated.
qlllf
--------I------!
If there 1s no DL/I support in
.assage is issued.
I
---t;;:~U;y-;t;t;;;;-;;ha;;9;;;:------ --------
fBIlBDlD, aDd TSDBOlD
!
I
I
I,
respectiY'ely ..
.lao eAtries without a.tcbing
,era are tla.~ied· as absent •
TaO 002 10
.Initial status of file is
cbecked and .SO 'entries are
flagged for aEpropriate
TaO 00225
I
550
'\ I,
______________________ ___•_________ J
,
~
rra,Dsact1oD BacJtout Progr •• -Ia1tJ.al1zat1oD Bout1D.e
n1a~ra ...
CICS/OS/VS Program Logic:
•• 9.''''0'
Description
LICENSED MATERIAL -- PROPERTY OF IBM
FaGl
"~""''----l
roi'
ZZ,'.'zz,'
I!' 0 0
~:~~~~=~Output
2 Of
1
---------------------------,
lApat
t::.:.J
~'
1Iu.. t •• poru'! status
!
I
O'"'C'rDS
II
C"'D~.8 tc' files tlal'1ea
10 IBO
, 'CTDSOt
[:::::::;'\
'C'lDSADD
----,:t
','
Iteaa Data
I.cords q. 9. 2
I
I
I
II
I
I
II
_________________________ J
Dh1ru - u.Ci .1-t2
-------------------------I------------~-i------l
Bo IItJ.a8
Mot ••
~ 0p.D UJ deferea opea fUe. tbat
.Lat.l
.et
tBOC0310
~~---------------l-::::~:: -~~~:~--j-::~--!
.ba,e ut.11abt t.as .. bactollt
.1afor.aUoD.
I •• ue ••••• jI. DIiI5709 if DO
.pace.
J, • • "e
I
I
TBOOOJ 15
ae ...g. D.6$108 aad
I
I
ill"" CODtI:Ol. to "881: . . 11..
I
II
I
I
II
I
I
II
I
L
I
I
!
I
I
I
I
I
I
I
_________________________________________ I______ JI
~
Cia.1ru .. tI.9.1-0'2
Section 2:
Method of Operation
551
LICENSED MATERIAL -- PROPERTY OF IBM
.1
0
""9. - - - - - - - - .
::;:: 4.9.l
f!l--"
1::
•• 1 )
Plu
proc~~L---------------l
1 OJ
~
O~~!~~----------------------l
DPBtBP:
1 ~·---·;\~- =--:~ @]B.adrecordtro......rt=:::--Jf::::::> ~~:d::J
~-.- - - , ; '
" _ _ _ 0/
data set and ch4l!cll record
'../
tn •.
'fest for
~O,
DI';;;;--
conditio •.
DIHJCB
D/I backcut routine
[ ~_J~_~i_-_:_ii:J-1
:J
@]
It
7",
go
II
I
I
[;;;-;j'>
00
-.:~.~
~f
a nt/I record, free
areas ana read aDoth ar
record
DIlUIBO
[~~!!~]il==__~} @]Branchtoo.. rinpot ..it
DIH.PBO
[?,"!:_::J
J1f
bas e4 IIpon taco.rel
t:ne.
lor TCP recorda, locat.
!ISO tabl~ entrt aad take
ORr-input-nit ..
'or rep records, loclte
PliO tabl. entrr 'Ind take
aller-input-elit.
~] lor t~e detaalt retarn
oFtioa ot TCp &:accrds.
r;;;;,')
1.:
___ ,1
l a:~~;~~r
~~] Por tb.e defaalt retarn
optioll ot leI' recorda
~!]
..
Boutiae
'ote.
@]
[;;~;f')
theJ-~~!~=~4.
For other records and
))1P.58 retarn option fro •
_-..__....--- -------
Lahl
l~ 1/0 error, l..Esue aessai_
DI1I5780, give u8ar-inpllt-ez1t
...
Bef
~
' - - O - - - " .______ ____
I
J
• D1a1r . . . . 4.9.2-0 1
;:::-----------------.----lo~t;::--~~:~----;:;--l
[£~ Daer iaFut .'1its'retarn to
T800052C1 to bypass the
'processh; of tbe record.
controL, thea A8J:iHD eICS/'S.
If uDutcbed tCf record issu
1f.9.3
1'80009'15
allllS.sa!le 0,.115710 "lotb GO/CAlieli.
optl.oo. If GO retllro to read
Aext tecord.
If ua •• tcaed. ICE record i&8Q •
•• asaie DIBS110 yith GO/CANeII.
optioD. It GO retarD to read
1'80005'15
.aext record
It EOI CODdl. tiOD go to 1'8900000.
[§]
~
lor 1'ep records, go to 1'8000900
tor rcp recoJ:ds go to 1'8000530,
for aser record.E ;10 to T8000560.
User 1D,ilut
eJ:1t.~
'1'8000510
COila bac .. to
tbe follolliDg .LaDel.E for detau..1t
o.ctiOD. Par rcp records,
I'UDC0910, for lep records,
1'.&000521, tor aser records at
I
I I
lo.lId, TU000565.
~ Sae Dote J.
_~_~
.
____________________~~---------------J
D1I91:al .. 11.9.2-01
552
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
PI:OC~L
____________
Output
PAG!
2 0"
2
------------------------1
I
I
tbe IUU input elit, free
&1:'848 aDd read anethe!:
record.
I
I
I
I
I
I
I
!
I
I
I
I
I
IL________________________JI
Dtagrn -
lot ••
BOQtiue
Late!
Ret
q.9.2-Q2
----------------------------------.,
I
I
I
----------------------- ----t------I------I
II II
Hote!
floutizu!
Latel
IIEt
I
I
I
I
I
I
I
I
I
I
I
I
I
i
I
I
I
I
II !I
II I
I I
I
I
I
I
I
I
I
I
I
I
I
I
I iI
I
________________________________________________
1I
I
tr&QSactiOD UackOilt Ptojllraa-.a •• a DatI. Recorda
Section 2:
Method of Operation
D1alra. - 1I.C;,2-02
553
LICENSED MATERIAL -
PROPERTY OF IBM
~ 1:::-·
r:t-o,
IJC_8S'riiIDL'--'r-~1
II
4.9.2
C
=.:....J
.
'0i'1
'or non-logged records and
l:.:.l Do-actioD terl1uala free
area and rotarn to read
(;;;;;;1'anothe:.: recar4.
{--------''I @]sanaeslncaata
@rrcrIJ_I'-"
~B1S.a
e:~EoSiB
_
[!cr:rB
]
,
O'BUi.
>
~BIIBO - " _"
l~---1-
, 0.
•
- - - , I,
OPBJCa
UGB
oatput
1'I:OC.881D9
,Rea / gata
,=~i~~
8
.. !CnB.-:~====~"
il
I
O'Rtenl
tellSQIL
TcrlS.QIP
tetBSQOL
~~
RICO'.R!
III
:J=::.J
I10ICArOaS
I§J
outl=ut leBsages 11 I.E8age
.lot.
;c'!-;j'_r:D':':IH=:rs~i---·--'1
::::>0
'.,...."
P"O!~";"'---
,. e..
~ Saye"'1-n-pa-t-"-d-o-u-t'~
.0.80g8. . . . . . .ago cacho.
~
OrsTSi
'.--.1
1.8.'
inQ
rr
l.o,uteraU[
IO'RRten1d[
I
I
I
--. --'
[······j!l
. '.1
Read Data
aeeorels ".9.2
D1agr.O:O:9. ~-Ol
'l'ransact3.0D Backoat Progral-liesaage lIeco.,.rJ
i
-----;::~;.e ~ ~'Foto. - - - _ -_-_-_~--_-_-~~~~"'_-B=O_:~t1~.~e-_-L~a~b-;_l~~-_..__t_
Rotes
l~
T80oo9'0
~ Set. indicator. rCTlnBS and
I
'8000925
!'CTIIBea.
~ Issues D'8tS"'0'l' ••Cto. Sets
1allie.tor tCTBCOPP.
l!!l Issues D'H'1'S
pot"Q
lacro.
'80009'5
I
I
L
Tr••.
- .-ct-l"""O-.""8'""O'ctCQt Ffogra.·lles.oge Rtco .. r,
CICS/OS/VS Program LOgic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
r~-----
r---------------,
I
{:L.,
•••• , >
DPHPBO
--,/
PAGE
!I
D'UTBP:
fi\-;1
1 OF
2
----------.
I
output
Ptocessing
-""' •• 9.;
r.---l------------"IL~~ .or not >nfl1qht t •• k
r--------'I 11
I
@--:=J I
L;!!~!..-.. - ,
I
DPUJCa
JCSPt,
__
@§ii'l1lID
F::--1
---,
1
If§
f
I
nca-~os,c,'
I
I,
I
I
----,1
>
.files free area a.nd return lliearl data
records
,"'09.2
to I;8ad anotbet record.
Por r •• d update logg.d
record!: read current fil.;
record.
r-------
II <,:.:~/
1 L-',
:::.CP
I
EI
-"
····1
«cords,
records, and no action
1
I
-----\
L _____ ~:~~!
If curlent record esists
I
or 15 not found bac~cut
update or delete by
Vtl.tl.llg ot 1 91.na1 109ged
record.
·1
I' /~'>~iiiiifCP----'
\,--,1 -----------1
POT
,
I,
I
---~
I
L___~
I
I
I
I
L ____J
L___.________
--J
Dl.agra. - 4.9.4"01
Transaction Backout Program - Data Ba.e Backout
r
Hotes
----
I
"r-Ref 11 Notes
Routine, Label
l~ ---------I-------!;~~
l@l
I
I
I
I
II
'I
\
II
II
I
I
!
I
I
j
I
I II
I
I!
I I
I
I
' I
I '
!I
II
1
I
I
IIII
Jld
II
II
It
III
l___________~---lJ~--!_J l__________
Transaction Backout Program _ Data Base Backout
Section 2:
Method of Operation
I
--r--------.-.-----1----1----(-1
I'~*'"
II\I
I,
I I
I
-
I
I
I ROllt;Lnel Label
j
I
III
I
I
II
I
Ret:
I
'
I
I
I
II
I
I
I
I
I I
II
I
I' II II
I
I
j
I
'
I
II
I
I
I
I
I
I II
'
I IJ
D18gr.. - •• 9•• -01
555
LICENSED MATERIAL -- PROPERTY OF IBM
!----------------l
I
I
I
,
I
I
r---------------1
I
I
I~
,
I
1
\
I
I
I
1,1
record
I I
L _____ !:~:2J
If current record eusts,
perform delete VIA user
exl.t or !CP support.
I
I
I
I1
(/ ~ '>IDPHFcP------i
I
I§]
I
lI
,
I!
I
I
add
I
1S
required.
Por errors and
non-su,ported delete
reqll1rements .give centrol
to user-fl.le-error EXit.
!'I
,
I
,
EI
----,,
........
I
I
I
--l.:t
I
I
\ /
V
1~~~gag~Tt9.2
I
!
L ____ ... _.________,
L ____________ ---'
I
:11
I
I
I
II
\1
II
I
If current record 15 net
I
I
I
found DO backout of "tlote
~.LB~=~~]
\r--, /
I;
I
I
II
----------1
IG ET
\,--,/
'I
I,
I
(I ~;j \ >~I
DPHFcP--------l
I
I
,
I
Por wute add logged
records rearl current file
J
I
I
I
,
I
I
I
I'
\
r-------l
ProceSSl.ng
Input
I
L ___=~.
Diagram .. ca. 9. Q-02
Transaction Backout Program - Data lIale Backout
r--------------------------~-------, ,.-----------------------------~
Ii~~:..---------.-----l~::~~::L~~=-J·~~III~~-------------------I-~::~~l~~:~J-~1
~
I
I
I
I I'
I
I
I
,
II
I
I
I
!
I !!
I
I I
:::t 11\"
I!
I'
'I
1 :::l~:E~:.
\
1
1,1,
J
!
User £11e error eut 1S g1gen
control i f • record added to.
ISAft. BDAft. or 1SAn ESDS aata
!TBOOOBOO'
I!
I
a
t;h: ::::
should
log1cally delete the current
record by lIark1ng lot aecord1D9
!
!(§
I
I
to installation CODvent1.0n. TB P
:~~~t::e:e::;~~te
the logically
I'!I
I !\
!
The conunic.bon byte rBlITCOft I
def1ne. tho type of error f o r "
user filE error eXit.
I
I
'
I
I
1\
I
,
I
11
I
!
I!
I
l\
II
I!
I
I
I I
I
I II
II
I
'
I
II
I
I
,I I ,
I
,
I
I\
II,
I
'I,
II
r
I
;\1
I
I
\1I
II,I
II
II
I
!I
\\
I
" I I
" I I
,I
,I
II !lII
I
,I
,
,
II
I
I
I
I
II
I
I
I
I
I
I
I
I
,
I
,I
I
I
I
I
III
I
,
, ____________________
.
I.!......__ .!......_.
I
1 I
L
...!I
_____
__l1\l________________________.!.I____,I _ _ _ _ !.;.~
01agraa - 4.~. 11-02
Tren..ctlon 8ackout Program -" Data Base Backout
556
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
Input
ProCeSsl.n9
.--------------]..9.2
\
r-------------l
I
I
II
\
I
r:L.,
I
\.:.'"
I
I
I
II
I
I
i
)1
---,1 lI L:.-I
fOil
nate D!HTEP ell.(p.ble for
I:
DL/I sErvices
I t A . 'lbe fol1ovinq
I
I
,
I
I
\
5 steps
are executed for each
:
:
\
I,
\
schedulahle PSB l..n the
'II
I
I
\
[SO tabla
I
I
I
DPHO EO
r:---~-------"I
roil
TE£fPSI!S
~ r - - - - , / I L.:.:..J
II
I
---
I"'
,
I
! /;-;~\
',--, / ii~-~, II
I! IIII
1
:1
I
I
Schedule the PS8
I
~ili;;g----I
Rcuun_es __
I
II'
I I I '
--'
I
I
I
I ~ Reset the R-estart Da ta Set
p01nteIs to the beginning
I J:
I
I
:IIII!
II ~
Read a record from the
I I
I
Restart Data Set
II
II
I
I"
'
\
!L________"
l ______ ]1
D~HJCR
I
I
lDPGrllfAKE
t
I
I I
--~
I
I
I
I
I
II
I
I
I
I
I
I
I
I
,
I
I
,
I
,
I
II
I
I
I
I,
I
I
I
I
I
II
I
I
\
I
I
I
I
I
I,
-,
/ ' , ' \).:~/I---------\
____-1
!
,
I
~~
I
I
I
I
\
i
I
I
I
\
I
____}
I
L________________~
I
L-._ _ _ _ _ _-'- _ _ _ _
r.::------------------:-:::~:ne:
1--·----,-I~
The .ddressof an ACT asse.bled
l.Dsl.de D!HTBP 1S placed 1U the
I
III
entry for OP8'rBP is flagged for
\
Dt/I.
TCA and the Ot/I SCD. The PPT
1t::.l
\
I
I
\
~
I
The nUliber of tbe,ESB directory
entIY for thl.S pst!
placed
the AC'f vith1D DlH'IBP, and a
1S
:each Ot/1 log record contains
the PSB na.e.
I
I
\
I
I
\
1
\
I
\
I
I
II
I
I
II
I
DL/! scbE13u11nq call issued.
\
I
:
I
I
I
\
L:::-:;:l r;:::---
--/----1--1--\\
I
1n
I
I
II
ITB0015001
t
I
II
II
I R:::nO\ L::~-T~~
1--/--1--1
II
II
II
II
I
I
\I
:1
I
\1 t :
I
I
I
II
I
I
II
IttB0015101I I I
I
II
I
,
II
I
I1
\1
,I
II
I
I
II
I
II
:
I
II
II
I
I
I
II
I
II
III
II
I
:I
I
II
I
\Il i l t
I
I
II
I
I
\
I
I
ITB001550
I
I
I
I
I
\
1I
I
I
I
I
I
II
I
II
II
I
:
I
i l l
t\
II
II
1\
I
I
I
I
I
I
II
II
1\
:
:
II
I
I
I
II
\I!I
II
/
II
I
I
I
II
I
II
I
I
II \
1\
1\
\\II
II
II
I
I
II
I
II',
II
II
I
t__________________! ______I ___ ~_~ L _________________
Transact10n Baciloot progt'aJll-DL/I Backout
Section 2:
~
Diagram - 4.9.5-01
TraDsact1.0n Backout Program-DL/I 8a:: kout
I 1021
2
I
I
If record is thl,s PSB,
pass 1.t to DLZBDI,lCO tc do
the phys1cal backout
/t..-..-I'\ r
!
II'
I
1 J P
..-----------------,
I
r:''"=1
IJCiSTRiDl===:===,): ~
'
1,
PAGE
out put
Method of operation
II
I
I
I
I
I
I
I
I
I
I
I
I
L ___L'-~
I
I
II _ _ _
I
I
Diagram - 4.9.5-01
557
LICENSED
Input
~
M~RIAL
-- PROPERTY OF IBM
r:. ~. ,----J
,--------,
I
I
proceS._S1_D=-9_ _ _ _ _ __
---l
"h ••
"0
I
Res't.art Data Set,
I unschedule the PSB
I (/;-;;j'>r---·---.
I ',.-,/ l/01./1
OnscbedulE
Rcutlnes
PAG!
OUtput
\
II
2
I
I
I
II
I
111
2 OP
I@) When ~BO ta~:::~::-are I'
I
\
t
processed, go to
Transcation Backout
Progra. l'erainat.i,.on
!
I
I
•
Teralnat.l'On
4.9.0
I
I
!
I
I
!
I
I
I
I
Transactl.OD Backout Progra."'OL/I Backoot
~--
I
II
!
.~--------------'
\
....... .
I ,-/
j
I
I
I
[~-=a
__---,0
I
II
I
!
l
j
-j-----I- .-..--:I
r-
I
I
J
D1agra .... t1. 9. 5-02
-------;-------I-~
l~-s----------I~::~I~I~II~---------II'~:=I~-I~1
I
I
I
I
II
I
I
II
I
I
j
I I
I
IIII
I
I
I
I
II
II
I
I
I
I
I
I
I
II
II
I
It
!I
II
1\
I 1/
I"
I III
I
I
I
I
I
II
II
I
I
I II
I
I
I
I
I
I
II
II
II
I
\
III
\\
\11
1\
II
!l
I
II J1\L___________
_________________________
I
II
I
I
I
!
!
I
II
I
I
I
I
II
I
I
II
I
I
I
I
I
I
I
I
I
I
I
I
I
/ I
!I _____________
II
II -.JI
I
I
fransact.1oD Backout Prog1:aIl'"'DL/.I Backollt
558
I
I
I
D1.8gra8 ... 4.9.5-02
CICS/OS/VS P~og~am Logic:
Description
LICENSED MATERIAL -
PROPERTY OF IBM
PAGE 1 OF 1
OUTPUT
PROCESS
INPUT
4.9.2
Go to user termination
exit.
Send termination message
Reset Restart Dota Set
pointen to beginning.
Return.
I~
1.3.6
Diagram·4.9.6.Q1
Transaction Backout Program-Termination.
NOTES
~
[§J
ROUTINE
LABEL
REFERENCE
NOTES
ROUTINE
REFERENCE
LABEL
TB900000
Message DFH5790
§]
TB900030
TBPCRET
Di_.4.8.8-01
Transaction Backout Program-Termination
Section 2:
Method of Operation
559
LICENSED MATERIAL -
PROPERTY OF IBM
Input
O:OE I
F!;;~\I
----,/ I~
procesS1n"-9_ _ __
!-l
r
I"reo
,
I
'Iellporary
I!'
~~~~
'lable:g~ y
I
[==:=1
I
I
I
/ ' ~lJ
I~
I
I'.-----.~I
I
T
~!~~~~:rtata
!I IIr;:::===::::.>'~
Teoponry
'!
'I
(~ I
,
'I,
~
ro-:;,
Irr--===~>'I L:~
II
I
" ' , '
~~g~~3~y
Table
I
I
f05l
-----.1\
r-----,I
IJ------"
(-------,/,'
I
L.:__
[ObI
I
III
I
I
::::--=-:::-L., I
--C-,
I
I
I
_ _ _ _ _. ,
I
1 I
I
I,.,
_
teble(DFHTSOT,
~~61~ecovery
C=::~
I
'I
E··'>
Ir;;-~~HTS'
i
.
I
eI Byte nap
=======:>1 c=
BU11d C1 m.ap
1
--,
Restore unul
Schedule reco.ered ICEs
I
I
\, 1
,
1
::::J
[r~~l
i,'
,
1'1'0 DPHRUP
I
I
:;:
table
I
I
.
\
If ICE control blocks are
appended to data, huld a
L'
[-_==F~--'
I,
ta.le
or
,:,
'
If ICE control blocks are _
appended to data build a
I
1
I,'
Check current STCK value
r--,
I
[===~=-1'
~~gl:ecovery
-------1
PAGE
Output
I
!
I
I
"I'
!','
\1
I
)1
I
:
I
L-___________
---'j
Tell.porary
.-
II
~tcragE
J
L ____________-'1
Ol.agram -. Q.l0-01
Recovery Prog.talll
I
------------------.------------, .--------------------------------:1
Notes
, Routine' Label
I
I
'Ref
I.
1\
II
I
keypointea STCK value. If n o t '
I
\I@lEachrecordonthedatasethaslI
I
the data 1dentl.£1catl.On l.Deluded ,
"
higher, notify operator.
I
1.0 the record header, along' lIl.th 11
II
record nU8ber for gueue-type
II
I
I
data. The recovery table 15
scanned" to see 1£ the data 15 to I
:
be
I,
\
I
recoverea~
If mcre than ODe
record with the sa me DATAlD is
found, the data
"~th
the bJ.ghest
t
I
I
II
I
I
II
f
I
I
','
\1
I
STCK'value is taken. The
aUXiliary" s~orage address is
"
\'
stored in the TS Recoyery Table.
1
I
I
I
I
I
I
record, CICS t.start is
I'
/
,
\
ter'inatea,
I
If 031
"
DUrnl.ng the scannl.ng of the data I
I
\t.:::J
set r if a recoverable record has
an ICE appended, crea te a table
and !!love the tel l.nto the table
I
L__
'.
Te.por,:,~y
560
I
:
..
s~ora~e
I'
I
II~
1S
II
upaate the CI use lOap to reflo:!ct I
I
the number of available seggents :
:
',.1,
1n the cI.
I \r:-.,
\'I~
\\
\!
II
I\
"
'\'
:
t
for each ICE.
1\
IIII
It:
:
t
I
I
I
I
I
I
I
\I
II
II
II
I____ L __JL_
I
I
I
I,
I
II'
I
I
I
II
I\
I
I
I
I'
I
I
'
I
I
I
I
I
I
I
I
ICEs are eha1ned off the CSA .1a
ll.nk to either OFHI:P or DPIIKCP ,
:
II
I
the. record pref1X:--~----
I,
II
II
I
I
::ate~~~::..~:~:..J ______
1.0. ascendl.ng st;!quence by tl.lIla
I
II
I
I
I
I
l TsRPoo5ol
,
I
I
~:s:h:h::r:::\~~~ .. ::~:e o~s a
I
aof
I
I
I
I
I
I
Rout1no,' Label
---1--- ---I
,
"
I I
After thE aata set has
t
:
I i
II processed, D'HTSRP p01nts t o !
I
I
I
\1
::~hc:~~:yD::T:~\:e:::::! ::.le ,
I
I
I
II
I
II
II
"
II
l l,entrYin the unt table
'I
,VFHTS!JT) ,,"
I:
I
I
U
I
II
I
II [051 The rt=!cord length gl.ven 1n the "
II
II
II
aUll.ll.ary address
Ilsad to
II
\
I
:I
I
\
I'
Notes
'-;:::::;------------------1----'---1---",,-l,l~ Issues System/310 STCK reguest. I,
ITSRPOOIOI
'1\
If not set, notl.fy operator..
I
compare STCK value "l.th last
I
I
I
\ '[o~
I
J
I
I
I
I
iI
I
,
I
I
I
I
I
I
I
I
I
I:
I
I
I
I
I
II
I
II
J
_________ '--____' ____ L_
Recovery Program
D1.agralll -
CICS/OS/VS Program Logic:
~.10-01
Description
LICENSED MATERIAL Input
,r. . ,)
---llpr09ra~~~~~~
~~
S~y::~~----_=::!~'
\LfOi1
Sa!OCUOD ____________ ,,/L:..:.J
Paraaaters
PAGB
Output
Bead select:Lon parameters --~I--:
and bU11d selectl.on tat:les I
------
>/
I DP
I
se14ct~R1I
hble
-----'
I
,
, ' @ ] p r i D t h U h D g s a n d l ll
-TraclIJ Da'til.
--t-II
17------,1
---' I
Header Record ... set t1.e
base tor nev periOd
I
ro71
1'r1.l1t FJ:'1or par1oc1 totals
and new period heading
L:..:.J
l- - - " I ~ agalva.
Detul Record - m.tch
seleCtl.OD tables
-------"1
[=Dg;g~~H.tl=-l
I
selectlooD. pan,asters
I
I
r;;;,
~
I
-,------~'
~:~~~~s
i---------l
I
----I
proceSSl.llg
PROPERTY OF :IBM
l@!l
If .atchas, compute ti . .
I ::~::.
1----'1
------.. . ,I@!)
and pmt detul
1,
-----r=r
T---l
I
'I
IIII
/
T-I'
------
punt
BDd-of-Data per10d:===::!J
totals and jOb totals
1
r!--7
:··::;:l /I
IEl1t ~{.ysteal
I
L___~
L_____ ,__---1
1 _ ,_____________.J
.. )1.-
Trace Utility 1'r09r..
==-
I~u:
I@!
I
I @l
I
I
:~:. C~~~Kt~::t::~t:::~d
1: f
§1
\
_I~I~:' I~II~~---- ~::ne ~ab:=r;:~
! I I IiII
I II
I
I/
I
TUHED
I
I II
I
1
l@l ::::::.:: .~ ,mu' • -
IIa
D1&gra. - ".11-01
TOPRTSHD
,me
II
1
tlae.
odditg 'to e1es
I
I
I1 1
I
I
I
I
\
I
I
I
I
I
I
1
I
I
\1
I
I
II
'
I I
I
II
1
I
I
1
I
I
:1
1ATRBDDlD I
I
I
q
II
II
Trace Utl.11t, Proqra.
Method of Operation
II
\I
I
II
II
L______________ ~j__________)L_______________
Section 2:
\
I
II
I
IIL:.:.J
I
I
I
\I
II
Ii
11011
II II
I I
I 1
I
II1\
III
hae 15 deter. iDea by cODvert u 9
ITODTP
:h..splace.eht of S'l'CIt .. aloe to
, :
\f100 sec aDa
I I
II
I
II
___
I
I
II
I
I
II
I' II
I
__
L_-1
D1agraaa ... 4 .. 11 ...01
561
LICENSED MATERIAL --- PROPERTY OF IBM
--,
Irutut
I
r.S~
[_cs AO P1_~.'' _
_-1
I
>~SAOPFL
@~~:J
....processinq
----
r:L-.,
I
fii?1
'--'
-j_
l
n.H.Cpu:
l=' ') 6
II-----::::!~~
rssu"
D,"P H
froo ~'RsIt.
Op.n
P_G!
1 0"
1
OUtD'a..:.t_ _ _ _ _ _ _ _ _ _......,
not co lied
[-
~Y'~ST file.
[~
I
IC~AopnA
c~lopn
>f'§YDi~
I
Diaqr. . - l.12-01
-~--
Rout lnp.
Motes
tI!]
For the-- call to initialize
nJPHI'bp, DPHsry sets a bit in the
top b,te of. CSAPD.~C.
Lltbel
--- ----
••
f
Notes - - -
----I~I~I--l
I
'or•• t1:ea
562
"1I.p
proqt'a.
(DPRPDP)
CICS/OSjVS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
PAGE 20F 2
OUTPUT
PROCESS
INPUT
SIT
SITFDPOP
I
ITb
C
FDENTRY
~
If option 'NO' then iSsue
DUMP.
§
PDUMP the CICS partition.
~
~
If option 'SNAP' then
return.
~
Seve old STXIT
information, and issue
STXIT for DFHFDP.
~
Set up page heading.
~
Call DFHFDB.
FDPCVT
wwk)
9DFHFDB
4.12.11
~
~ G:D
Restor. old STXIT.
Return.
~
To caller
Diagram·4.12-02
Formatted Dump Program (DFHFDPJ
NOTES
ROUT!NE
LABEL
REFERENCE
NOTES
RDUT,INE
LABEL
REFERENCE
DI8gram • 4.1242
Section 2:
Method of· Operation
563
LICENSED MATERIAL -- PROPERTY OF IBM
PAGE 1 OF 2
OUTPUT
PROCESS·
INPUT
[b
FDPCVT
I
I
CICS
partition
DFHFDB:
• ~
Initialize Interpreter.
~
Find a work element.
[§]
Set up to process a work
> §]
~
element.
Fetch the operation code
of the current descriptor
and branch to the
appropriate routine.
~
~
From
step 04
Routine Entry
~
DFHFDB ROUTINES
A. Pointer Routines:
Add
a new work element
to a work queue.
B: Item Routines:
Display the value 01 a
field.
Diagram· 4.12.1-111
Formatted Dump Program IDFHFDP)
NOTES
@!J
~
ROUTINE
LABEL
REFERENCE
NOTES
ROUTINE
LABEL
REFERENCE
DFHFDB is an interpreter that
processes descriptor tables
contained in DFHFDC.
There is a work element for
f!Very instance of a control
block. A work element contains
the address of its control block
and a pointer to the appropriate
descriptor table in OFHFDC. The
work elements are chained in
work queues.
~
Each descriptor begins with a
code that indicates which
routine in DFHFDB will process
it.
Diagram·4.12.1.Ql
Formatted Dump Program (bFHFDP)
564
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
PAGE 20F 2
OUTPUT
PROCESS
INPUT
C. Checking Routines:
Check that a field is
valid.
O. Print Routine:
Print a hexadecimal
dump of a control
block.
E. Exit Routine:
De-allocate all work
elements and return to
caller.
Diagram - 4.12.1-02
Formatted Dump Program (DFHFDP)
NOTES
ROUTINE
LABEL
REFERENCE
ROUTINE
LABEL
REFERENCE
Diagram - 4.12.1-02
Fonnatted Dump Pr~ (DFHFDP)
Section 2:
NOTES
Method of Operation
565
LICENSED MATERIAL -
PROPERTY OF IBM
PAGE 1 OF 2
OUTPUT
PROCESS
.INPUT
~
DFHFDP SUBROUTINES
A. PUT Routine:
Forms
control
information
Print line
J
~
§]
Increment line counter.
@]
If end of page. eject and
print a new page heading.
>~
Print a line and return.
B. Get Storage:
Issue GETV1S to obtain
storage and return.
Diagram·4.12.2·01
Formatted Dump Program (DFHFDPI
NOTES
~
ROUTINE
LABEL
REFERENCE
NOTES
ROUTINE
LABEL
REFERENCE
The control information supplied
by the caller contains the
carriage con1rol character to be
used, the space used by th I.
line of prln~ and the space
required between this line and
the bottom of the page.
§!
@]
Place beginning and end
addresses of area obtained 1n
the OFHFOP communications area.
DFHFOB has a list of pairs of
addresses. each pair being a
possible program check location
and its corresponding restart
point.
Diagram·4.12.2-01
566
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -
PROPERTY OF IBM
PAGE 20F 2
OUTPUT
PROCESS
INPUT
C. Program Check Exit:
FDBPCS
I
I
• ~
~
DOS PC Save
Area
I
~
1-
Scan DFHFDB's addrass
list.
If entry found, reset PSW
instruction address
accordingly.
If no entry found, reset
PSW instruction address to
point to DFHFDP Second
Level Interrupt Handler.
:r
Restart PSW
I~
D. Second Level Interrupt
Handler:
~
FDPCVT
I
ARETRY
I
• ~
Print PSW and registers.
Branch to retry point
9
Diagram·4.12.2.o2
Formatted Dump Program (DFHFDP)
NOTES
ROUTINE
LABEL
REFERENCE
ROUTINE
LABEL
REFERENCE
Oiawarn • 4.12.2.02
. Formatied Dump Prognm (DFHFDP)
Section 2:
NOTES
Method of Operation
567
LICENSED MATERIAL -- PROPERTY OF IBM
Page 1 of 1
Dynamic
Backout Program
(DFHDBP)
4.13.0
I
Initial ize and
DWE Scan
4.13.1
I
Dynamic Log
'Scan
4.13.2
-,
Dynamic
Transaction
Backout'Logging
4.13.3
Visual Index - Dynamic Backout Program
568
Diagram - 4.13.0·01
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -
PROPERTY OF IBM
Page 1 of 2
INPUT
......
..
~
r=J
~ ~
02
OFHOWEOS
!OWECHAN
!OWESTAT
!OWESVMIO
Link to initial user exit and
Link to OFHACP to i..ue initial m....ge
Scan OWE Chain
A. End of Chain
TCA
ITCAOWLBA
OUTPUT
PROCESS
I:=J
E:;>4.12.2
B. "In progr...·! or cancelled OWE
!
!
C. Temporary Storage, Transient Data OWE
!
O. File control or DL/l OWE
E. BMS OWE
F.Terminal Control OWE
DFHDWEDS
Set 'Backout' bit in OWE
OFHOWEOS
IOWESVMNA
!DWEMODEN
!DWESTAT
Set 'In progress' bit in OWE and
invoke OWE processor routine
to do backout
I
Diagram - 4.13.1-01
Initialise and OWE scan (OFHOBP)
ROUTINE
NOTES
~
M....g. OFH2205. DFHACP I. used
ta write the message because it has the
logic required to write to the user's
Terminal.
§]
The OWE processor routln. i.lddressed
from the OWE. This is used as a convenient mechanism for accessing the
backout code in DFHTSP and
OFHTDP.
•
!
!
LABEL
REFERENCE
NOTES
RUUTINE
LABEL
REFERENCE
,
Diagram - 4.13.1-01
Inlllllila and OWE ...n (DFHOBP)
section 2:
Method of Operation
569
LICENSED
M~ERIAL
-- PROPERTY OF IBM
Page 2 of 2
PROCESS
INPUT
OUTPUT
Issue BMS PURGE
DFHDWEDS
I DWECHAN
Free OWE storag~ and address next OWE
Diagram -4.13.1-02
Initialise and OWE scan (OFHDBP)
NOTES
~
ROUTINE
LABEL
REFERENCE
NOTES
ROUTINE
LABEL
REFERENCE
Clears-out any partially built BMS
message - Prevents it being written
at th end of the transaction.
Diagram - 4.13.1-02
Initialise an~ DWE scan (DFHDBP)
570
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
Page 1 of 3
OUTPUT
PROCESS
INPUT
G:E:0
TCA
I
TCADBDLA
:>
I
~
Scan dynamic log buffer in reverse
A. There is no buffer or end of scan
DFHDBLDS
B. 'Overflow' record
DFHDBRDS
r
DBRSVMID
I
DBRMDDF\I!
I
I
DBRTSRN
I
I
=-
:>
C. 'Chain' record
D. DL/I reocrd
E. File record
F. Terminal Control record - Pass it to user
'Input' exit
hl0
hl0
~
Read spilled record from Temporary Storage
[§J
Read previous buffer, ifany, from Temporary
Storage.
Diagram - 4.13.2·01
Dynamic Log scan (DFHDBP)
NDTES
~&~
ROUTINE
LABEL
REFERENCE
NOTES
ROUTINE
LABEL
REFERENCE
TS queue name is
'DTB' prefixed by
X 'FF' and suffixed
by the task number
~ic
Diagram -4.13.2-01
Log - . (DFHDBP)
Section 2:
Method of operation
571
LICENSED Mll-..TERTJl.T. -
PROPERTY OF IBM
Page 2 of 3
PROCESS
INPUT
4'
TCA
I
TCAD.LlPA
..
Set up
I
..
Invoke 'input' user exit
I
I
> G)
~
oLlr envioronment and invoke OLII back out
module.
5
DFHDBRDS
OUTPUT
DFHDBRDS
I
I
DBRFID
DBRRCID
DFHDBRDS
I
DBRMODFN
>~
I
I
A. Record found.
c::::)0
B. Record not-found,
~
C. Error. I"yoke user exit.
~
> [QZ]
If logged record is write-add
>~
(Get-far-Update)
Update record with logged before-image
I
~
DFHDBRDS
I
'BEFORE'
IMAGE
OFHFWAOS
>
Do DFHFC GET-for -UPDATE for logged record
~
>
g
Diagram - 4.13.2·02
Dynamic Log scan (DFHDBP)
NOTES
~
DLZRDBCO
[QZ]
Only WRI·TE-AOO'S or get for
UPDATE'S are logged
~
Errors are passed to a user error
exit.
ROUTINE
LABEL
REFERENCE
NOTES
ROUTINE
Diagram - 4.13.2-02
Oynomlc Log - . (OFHOBP)
572
REFERENCE
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -
PROPERTY OF IBM
Page 3 01 3
OUTPUT
PROCESS
INPUT
(Write-Addl
II VSAM and not ESDS Iile, then DELETE the record.
Otherwise, pass record to a user exit
(Record not found)
If Write-Add log record
(It is GET-·UPDATEI
II VSAM and not ESDS then do a PUT NEW 01 the
logged record. Other wise invoke user error exit.
Diagram - 4.13.2-03
Dynamic Log scan IDFHDBPI
NOTES
ROUTINE
LABEL
REFERENCE
NOTES
ROUTINE
LABEL
REFERENCE
...
Diagram - 4.13.2.Q3
Dynamic Log...., {DFHDBPI
Section 2:
Method of Operation
573
LICENSED MATERIAL -
PROPERTY OF IBM
Page 1 of 2
Fro", 193
..
INPUT
Gb>
JCA
_\JCATR2
[ "MO."
JCAJRTID
JCR
IJCRSTRID
TCA
ITCADBDLA
PROCESS
.
\
IJ
~
• §]
I
OUTPUT
Is this rec?rd type to be logged? If not, return
Has a dynamic buffer already been allocated?
If so, skip step ~
CSA
• ~
ICSADBDBL
TCA
Calculate storage required.
<::::::::::> I
I
..
DFHSCP
I
'1 GETMAIN
•
I TCADBDLA
I
1
JCA
I~CALDATA
JCAFCLRI
• §]
1
~
Is this record longer than the dynamic buffer?
If not, skip step ~
Put this record to Temporary Storage
<::::::::::>I
0 FHTSP
Indicate that an overflow record is being written.
~
I
Is there enough room left in the dynamic buffer
for this record? If there is, then skip step ~
Diagram -
'Dynamic Transaction 8ackout Logging
NOTES
~
ROUTINE
LABEL
REFERENCE
NOTES
ROUTINE
LAIIEL
4.1~.3.01
REFERENCE
Types of record to be logged:· DLII
type 50·52 (OS) •
50·51 (DOS)
Terminal Control first input message.
File control Get-Update,
.Write-Add.
~
The Temporary Storage queue name
is constructed as: X'FF'IIDTBIITask 10.
Diagram - 4.13.3-01
Dynamic Transaction Backout Logging
574
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
Page 2 of 2
OUTPUT
PROCESS
INPUT
~
Put the dynamic buffer to Tempora.rv Storage
~IDFHTSP
I
Re-initialise the dynamic buffer, and write the chain
record in directly.
JCA
IJCAFCFI
JCR
I
T
I
~
>
Wffi?fo
>
Write this record into the dynamic buffer.
>
w-/Wffi
Set values in the dynamic buffer.
I
Diagram - 4.13.3-02
Dynamic Transaction Backout Logging
ROUTINE
NOTES
~
The Temporary Storage queue-names
is the same as for step.
~
For file control records. the file-id as
well as the record data must be logged.
For other records, just the data is
logged.
LABEL
REFERENCE
ROUTINE
LABEL
REFERENCE
Diagram - 4.13.3-02
DyMmic Transaction Backout Logging
Section 2:
NOTES
Method of Operation
575
LICENSED MATERIAL _.- PROPERTY OF IBM
Page 1 of 1
Sign On
Program
5.1.0
I
Sign On
5.1.1
I
Sign Off
5.L2
Visual Index - Sign On Program
576
Diagram - 5.1.0·01
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -
Page I of I
......
INPUT
OUTPUT
llivPROCESS
LIFO
I
SAVETRAN
I
DFHSNP:
Go to sign off if no terminal input
§]
If a formatted screen, remove control characters
~$#~
If explicit sign off, go to
~5.1.2
If terminal already anended, sign off previous operator
@]
TIOA
D
g
CSCS Security log
D
I
If 3270, and password field absent. ask operator for
details, then convert reply to the fixed·field format
Load the sign..,n table DFHSNT
~ D
TIOA
TCTTE
~
TIDA
D
PROPERTY OF IBM
Check name and password received against the table
TCTTEOI
TCTTESK
TCTTEDP
g
TCTTETS
~
'izl)
Sign operator onto terminal
escs Security log
§]
Slgn·On
r
NOTES
[§J
Exit
ROUTINE
Link to sign-off program
~
The screen format requests operator name
REFERENCE
NOTES
D
ROUTINE
LABEL
- 5.1.101
Diagram
REFERENCE
CSSNNFT
Transactor code of CSSF or 8888, obtained
from TCAKOID
~
LABEL
~
I~
DFHSFP
in one field, and password in anoth~r.
non-display. field
~
§]
§]
Abandon processing with appropriate
messages j if NAME field absent or table
not found
CSSNINEB
In case of error, compose messages to
security .Iog (CSCS), terminal operator,
and CSML, then exit
CSSNLSB
If the security log (CSCS) is not defined
in the OCT, all references to it are
non-operations
.....
Diagram - 5.1.1.!)1
Sign.Qn
Section 2:
Method of Operation
577
LICENSED MATERIAL INPUT
PROPERTY OF IBM
PROC ESS
;:..O-=U-=T..:.P-=U..:.T_ _ _ _ _ _ _ _--.
,/~ffi
DFHSNP:
G
Write 'Sign-Off' records
CSCS Security log
E]
9
~
DFHSFP
I
Honour 'Goodnight' or
. 'Logoff' option
9
DFHTC
I
8
Message to terminal
~
Exit
I~
Diagram - 5.1.2-01
Sign-Off
NOTES
~
~
ROUTINE
DFHSNP
Module DFHSFP writes a message to
LABEL
REFERENCE
NOTES
ROUTINE
LABEL
REFERENCE
CSSNPSF
DFHSFP
destination CSML, and resets the status
of the TCTTE to 'unattended',
Diagram - 5.1.2-01
Sign-Off
578
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
From
Page 1 of ,
DFHKCP
INPUT
ITCTVGMMA I
Ghv
~
ITCTETDST l
fTCTTETT
I
OUTPUT
PROCESS
DFHGMM:
~
• ~
Get message address length
Test for terminal type
[§J
Adjust length for control characters
~
Get storage for TIOA
~
~
W0Wfi
Insert appropriate control characters into data
stream
Vffi:;/g~
Move message to TIOA
~
Write the message
[§J
Return to caller
TlOATDL
Message length
TCTTEDA
TIOA
address
I~
To Caller
Diagram - 5.1.3·01
"Good Morning" Message (DFHGMM)
ROUTINE
NOTES
LABEL
~
Terminal types can be 3270, SCS
basic, or 3600
~
For 3270 and for CICS/VS logo panel
[§]
GETMAIN using DFHSC
SCGMSETL
~
DFHTC WRITE, WAIT in case
intervention required
CSGMWRIT
REFERENCE
ROUTINE
LABEL
REFERENCE
Diagram - 5.1.3-01
"Good Morning" Message (DFHGMM)
Section 2:
NOTES
Method of Operation
579
LICENSED MATERIAL -
PROPERTY OF IBM
PAGE
t OF
"aster Ter.ini:ll progra.
580
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY .OF IBM
Input
.
r
r----------------l
[;1
I" --" I DFHMT.:
.
I
I
iTiOATOL--l=')EJ' ~ --"'1
I~~~~h
I
I~-----
I
I TIOADS!
1.!:::~
I
I
II
I
I
-
II
/L--J,
l
'r--,!
I
C:A
_ _ --,-l-J
r-
\'
. i
l~ocat.e-;;;~;~-----JI
:~3~~;ng I jl
~~~~:~-----
:
\ E1 .
: [§J
I~E~TCTBA 1-.-. /00 ---->1
II
Buld a key.ora hst
I
III r--------'II
Im!::~orSIIII
I~
\
\
I
I:mf~
.
to
I
I
I
I
I) '
1:~~~111
, "T "CDUL
Ir~a~~~torsl
IIII
II
ITernnal
GcnETI
I
B. Set keyword l.nd:s.catot:s
lID
!
I
1---'
I
-----" I
'
L~___ ~~:~J
I
III
II
TIOA
l"TTIOACH
g
11't9ssa
area e
l
I
' 1 , : 11
-)''''''
77\ >~
-I,
I
I
.
L -__________--'
01a9ra. - 5.2.1-01
-------,--.------1-----11--~11---11\1
I fOi1
t:..:J
'I
adjustl.ng for pooled ll.nes.
I r:PUITPP
!@J
Tra1hng blanks and
!
\
1
Df'HKTPP finds the hne address,
control
characters are rellDved.
I
no ke]vords were spec~f~ed,
1nput loS requested from the
II
II
If
\
1
user.
To bU11d tbe keywora l1st, the
'I:
symbols, numeric far . . ete . .,
'~',
I
I
and
If a k.e]vord equals para.eter
vas speclo£ied, the k.eyword IO
"
I
Cn.1.A !"TSCNlPTI
11
I
t
!
IAll
I
i~~~~I~s I
f
the missing keywords or
far.mEters.
I
I
I
I
I
I1
J
II
I
,
II
I
I
I
I
I
I
I
II
I
I
I1
I
I
I
1he
mcd ule
affected requests
B. 'the requestl.ng modules set
tbe indicators.
C. SEe chart 5.2
I
All
IDPH"TP,I
Imodules
I
:
f
,
i
I
I\
I
\
II
1
I
!I
I
I
I
I, Cpa,TH I, OTSRCHSK II
II
1/II
I
I
I
\
I
I
II
1/
,
I
I
I
I
,
I
\
I
I
!~~~~~~_~~~~~_I___
InpUt In1ti.al1zat1on
Section 2:
II
I
I
I
"
,
loS on, ___
II
\
I
II
II
I
I!
\\
11
:
,
I
:
I
,
!
-
!!
,
I
IDPH.HA I"TORDCNAI
~_:. keyvQrd ~:d1cator
\,
-I
\
I
,
A.
I
II
"
I
.I
I
1.S moved to
tbe TCAPCAC field. Otherwise, a
DPHeC 'ltEE=XCTL is l.ssned.
,\
III
II
\\
t
\\
I
1, fOol
t.:.:J
\ \
II
I \\
I
tAIIJTA
lDFHflTPA ItlTEOUAL ,
entry.
I
II
I
"TGOTML.I
ABEND code
I
I
I:
table is SEarctE'd for a matching
II @)
I
!
I\
Jill
1 I II
I
I
I
I
!
I
\
II
II
II
I
I
!
I
I
tKTGETKLN I
I
I
I
!l§i
I
"flTMP!SGA11
'
I
l.Uput is scanned for new l.l.ne
!
_ _.....1
I
I
:-I---=::!J
on hrst line
I
,--"I
\
parameters Dot entered
' C . Process the J:eguest
I
__ I,
terunal
~!a~e~s
I
r.:l
\
1C~_E_ _,_1
1'1
I
liiTLIiiiA"D1
Plaster
I
I
I Iill
A. Request keywords cr
,I
I
I
TraDSfertoappropuate!
I
!
im:g;a-II
t~~
I
I
-i
m~~A~Odel
ZZ\/6
I - progr..
II 1'-" r-----------'
I \~::/ ----------1
II
1
I
0Z:Z:~>1
\
II 1'-" r---------,.
I \~::/I----------I
I
LCP
,.,.,1
I
I
'XC!
II
1
TCA
I
I [~
---------,
[ii --::::=-:---I------~'I 0'1 Set keyword and module
lm~r~~r
i.d1cators
I
II
,
keywords & parameter lists \
(~---->I~
I'
l~ZZ\/
r;:]
I
Scan request to det@rmine
I
------'
I
I
I 0
77 > CI
-il
I < 10 0 1 > D£H"TPP
1 OF
I.
I
~~~/r
---->rAl(-]---"I§J
TID!
'.------------'1
PAGE
cutPU1:
lIrocessiDq
--------------,
II
I
,
I
I
I
I
I
J L_________________I____L ___ L~
Dl.agraa - 5.2. '''01
Method of operation
581
LICENSED MATERIAL -
i
PROPERTY OF IBM
--lOCSR'l
IDPUt
r:l_~,
!
TIOI
fm~--r-'-l-----------")
teg~st J
I
'leA
<';-;;'r '>hDPU. _0_0'\......,/ I,IDl.t1a.l1:zatlol1
°
DfHB'ln1 7 j-
, Deteralne the
I
CSftT
___--'\ @]
000
D~:::~::T
J-B10R1TY
II
I
generate a decimal response.
\!Q.i1
f
I'
I
,
I
I
________·______L______' __L_J L_________________,_____,_____L._.-l
, t.::.:J
I
L
!
In numeuc responses. tbe
, All
,[!Eft"
leading 'Zeros al:e .suppressed.
Iloduies
!I
'I'
I,
I, I',I
I I
ftTftftOC
Servl.ce Inquiry - kith ParaliettH List
section 2:
Method of Operation
Is. 2.1.1II\
I,
,\
I
I,
I
I,
I
II
I ! I
I'
I
Dl.agram -
,
5.2 • .:5-01
583
LICENSED MATERIAL -- PROPERTY OF IBM
r----------------l
Input
(-l
I
I
nOA
[TroAiiiiA--'I--I- j
laser
tr(lquest
I I
1-----------------1,
Processing
: --'\ I DFHHTP:
1.-,
-----------> Il~~
I
I
~
I g~~~~T~~py:
:I
Ik.eyword
I
I'CCf__ "~ll
-.
I III
I
t=~~;~
f
I
I
I
1\
ICSABCAXB-I
',\
II
------
::
l~~~~sbatchJ
II
I,TNCeTLatE~Cve
~~~~~Xj
II
I
,I
I
I
,I
-
-
I
I'"---1
L __________________
Update the spec>f>ed
I::~:::-B-'\
I~I~/
III
II
I~I
1/
I,I/"
II
I:~:-ll ~~---.!II
I(SAATP
-----
--------------~I
I
II
I
II
zzzzzzzzm:zz\/l
.-_________1___---,
!
"
r---'
l··1 >1 Build Output
I
-./ 1~~~_e_____ 1
1~:I~e~lfnr2at~:" I
I response
I
L ______ ~::2~,
1
I
~
nOA
r-----:------,
Il'ITTIOACH
I
I Message
~~
\a
II
I
I
I
I r~
11021 The range' cf allowable values
SFeCl.fJ.ea
'Iille
parameter J.S:
value to 27902020
equal
BtlAXT: less than or
or
I
I:
I
:I
II
I
I1
I
I
L______~_____J
8I1A}T
equal AAXT
CUSH: 20 to b55j5
CLASS I1AJ'l:
ACTIVE
1 to 999
l'1AX'f:
1 to 999
TBIGER: 0 to 255
\
,
AKPFRQ:
200 to 055.:15
IOCP: 0 to
so
I
I
,I
,
I
I
II
I
IAII
,IItTttltDC
\1 5 • 2 • 10 1
I
II
I
~
II
,I
I
:
II ['PHP:'I'PE! IIt1TATBt'lTRII
IIII
II
I
11
II
II
It
i
I
I
I
I
I
\ £FHA'IPB
ItiTATBI1TE.!
I
I
I
I
IOPHP.'lFE looCl1TP1,d
I
I
I
I
II
I
II
II
II
I
I
II
II
II
II
II
I
1/
,
I
II
II
I
II
I'CFF.!''lPBtcoCATP1bl
I
I
I
,\
II
: DfHf':'IA
\
I
I
[H~'IPE
I
I
I
I
I DOCI1TPI4JI
\
I
I
I
I
ltlTAKPPOOI
"
I
I
I
I
,
I
I
I
'"
I
I
/I
II
II
I
1
II
II
I
II
I
II
II
I
I
I
I
I
I
I
I
II
II
II
I
I
II
I
Plodules I
I
I
I
I
I
I'
'ntHI'IPB'DOCI1TP1Sf
I
I
II
IDPH"TP
II
I
I
I
IttTTltSERT
I
\
NEGP: less than or equal 2000
- - - - ,----I-~
1DFf!A'IPA
I
I
2 to 999
I'II
"
1\II r:-,
II
I
________________ II_.::::II ~~~-I-~~l
I I
I
I
ATPI'IIT
f'lAXT:
:
!
5.2.1.1-01
I rPR"'lPA I DOCI1TPOJII
I
I
I
I
I
rn"~PE IDOC"TP.sl
I
I
I
I
I
I
100 to 279b2020
ATPtlXT: less than cr
tI
:
II
I
II
I
STALL: Tl.me value to 327bl
TItlE:
I
__ ---1
Dl.agram -
I
fiNUA!:
~~~~Jt,',
IL
J
L_____________
I,;;,)
I
i==~~~~:ll
I
1-------------------------1------,---1--1 j------------t_:otes -------------------I..:::~:11 ~~~~_ !~~I _:::~
~
II
II
lCSAKPRQ-j L>rc-----. I
Change Numerjc Data
: '----' for the
II
1~~:~~~1 ;:~~---.II
I
I
I~I
1~£CTDr __ 111
e:_D~:':~~.','1
parameter
I
j
I'
0,77">11
1/1
z~zzzzzmW
I
I
I
,'_CSAICS_I:"_,','
.,
\
I
I::~~~~::---/l
,','
\
I
I
\
I
1/
ICSAru--111 ll--------,d [~
II ~--------, Ifi~!E!m II: ----------,1:
I'II 15~~~Ig!
I ICSAATP
'':~~~~-\H
II
latl.on tHe,
ATPIII
Ir--,
I Ext ens>on 'II
r~' --" 'l~
\ \ \TiiiirnQi:--1
Tngqer
I
laddress
''I'
~1""/1
1
1
1
CSAKPRQ--, r
\I
L~~ ____-1 .! ~g~~6~i{l !II
I
I
1 frequency III
[__________.'::==:=::11
II
II
II
I
I
II
"
,--,/
I
I
li~i~rme Ifill
II
[;:~~'>rOl
I f ,"vahd
:~~~-dl:
lCSAICRIC
I
I
SpeCl.fled numerJ.c value
l~f!!rS~ilDelll'
IRunaway
I r--~-----DcT--____, I
~--.,
r,r------, II
-,
Check. the vall.d1ty of the
Ao
I
________S_0_,_.1J'
I
I~~~~~III
I"
I
g...
@J
I
I
1\
\
I
l.nd1cators
'I
I (SASCNB
II ;CTL: _____,
\I
Ithanged
~~i~i~t~~ ~gete
and set
II
I~~~ber of I1'1'
I::~~--III
I
Imk~axo
II
1
1:~::zatJ.~_1
\,--,1
I...
I
Ir---p--TPDS----C-;-----·l
',I
~~------.
: - - - - ,III
II
II
ICSABClU'T
I rI~pUt-.---------l
~~--- ... .,.!-j
1
"
zzzzzmzmz\/l
I
,------~ \ \
1 OF
1,1
I
1.:'::.:) /
PAGE
Cutput
,'
~
I
I
I
I
I
I
"I
I
II
L ______________________.'. _____.'...___ -'--__ l L _______________________' _________ .'..._-1
Change Nu.erJ.c Data
584
Diagral1 -
CICS/OSjVS Program Logic:
5. 2.
~-Ol
Description
LICENSED MATERIAL -- PROPERTY OF IBM
I
'IIOA
roces.,ng
/:L-" I OPHHTP:
I
1'--"In1tia11zatl.On
I
DSECT copy
of aJ.l
CSHT
-peT
... -- .......... - __ )
I
r-'P~IT1L
!~~I
PC'rDSOPH
open
indicator,
OC::"_
I
1
.J, I@J
03
II r--------.. 'I
lJ j
!
___
!'
I
spec1£l.ed and set I
•
5 ... ,.
Prepare request codes for
the Dynaaic open/Close
I' ~
I
I
program
I
I
r----------,
ZZZI'
L
ta set
the
5.7.1
J
oupby the f,.al statu.
I
I,
I~l
I
I
I
+zzzzzmzz~>
I
'Ed1t8~Fu~ I
!
L_____________
§J
I
.
I
L
_________________.
rCT
,
I1
!
TCA
\~IT/>I
zmmlL(>
OPHoe_p:-_~_ _ ,
I~ien/e!ose
I
II
"
I
,
'
I I
J' I
progra.
I{~
I ,
l;~~~
I
Z?2.11l!l1.!l.ZZ~/>
prepare the paraae tex list
for the Dynaa1c OPED/Close \
II <,~:)/
1'--"
O.stin~:_
.
'tIOl
,I
r;;",
'>1'BUild output
L-.il "e5s8ge
,I
all
reE~oDses
----.l- 5.2. I.
..1_ _ _ _ _ _ _ _ _ _
. __
Cbange Data Set Status
r-------\@l
I
Possible statuses for data sets
are om ana CLOSE
I,
I
I Ref
11:::----
-1----1----1---\
\- ---------.
I
I
tfStI'IPD IDCOf'lTPJJ!
I
I
Possible statuses for Dump data
\cr8!1PD ,OCCltTP37f
sets are OPEN, CLOSE, and
I
:
I
! ! !
SWITCH.
II
II
11
\\
I\
!@JjmmDIOCOHTP"!I:,1
I
I
I
I
I
\
I
"
I~ Por extrapartl.t10n dest1Datl.ons, IUtH!'1PD IDOCKTPJ915.7.1 II
I
I
the f1rst byte of 'lDDeTeTL 1 5 '
set to
O~.DlClo...
I
,~
I
status ctange.
I,'
I
Data base status Change..
Extrapart1t1on dest1natioo
I
I~
Extrapart1tton dest1nat10D
,
status change
I
I
Data base status change.
\
! !
I
1\
I
1
I
1\
,DPHr:TED fftTTDLUP11
I
I
I ,'II
!D!Htl1PB I'ftTPILDS,X II' I
'!
II
I
C!EtI'lPD IfilTtUIDC
15.2. HIII\
I
I
II
I
I
I
II
'I
I
IDPHt!TPB 'ftTIUWC
'
I
15.2.1'1"
I
II
\
,
I
I
I
I
I I ! I
I
I
I
I
I_________________________
!
I
I
L
I
IIII
\I
\I
II
~_J L
Change Data Set Status
Section 2:
----.I
01agra .... 5.2.5-01
1 Ilollt1nell Label
Notes
1
~~l~gi~orsl
'nhca~ors
~!!!::[l-'I-
I
TeA
HTIHDS
I
0.
and st atus
Imre••
L! I
,'iiiiiCToi-1
I
,I
L:~:~~/>'
I
1
cutput
[illr.::JTr----···--->I[~
II
!f <\,---,/
,•• , >~nput..
1 ZZ,ZZZZZZZttlZ~',> I
I
;tru. . .aat.-.;. I'
I
I
fOPflijffijq--'-1
I
II
' I
I '
Lm~~~or., I
L
I
~
'leA
1 OF
PAGE
r~----------l
Method of operation
I ROU~1n·r
Label
II
~
1--1----1
I I I
I
I
I
I
I I I
I
I
I
!
I
I
I
I
1
I,
I,
I
!
II
I
I
I
I
I'
1
I
I
' II
I
I I
I
I
1
,I
,
'
I
I
I
I
I
I
I
I
I
II
II
I
II I/' I I
I
II
I
!
I
----~,--,
I
I'
I
I
II
~
Diagraa ... 5.2.5 .. 01
585
LICENSED MATERIAL -- PROPERTY OF IBM
r------------------i
Input
I
1I
I
I
1ICA
fm~DBA
I request
r-------------------,
Processl.ng
see NotE t
I
;;1
" __.J, 1I DFHl!TP:
t.::~":,I/>Ir':'"7"1
-rn -----------> IL~
I
I I I
I I
I :
ZZIZZZZZZlZZZZ(>
L _____- - '
I
I
lCA
I I
foFiiru.Aj--I-11
I DSECT copy
lof all
I II 1
Ie St'l'l
I keyWord
L
in"ieatorsl II
I \ "-0/ IIt~t1al,.ahon
I
I
I ii.ter;~;;-d.it~7.t
I
and status
I
I11ndicators
spee1f1ed and~et
I
I
5.2.1
II
I
t
------' I
!
-----------> I ~
!
FeT
I
Check the vall.d1ty of the
data set
I
l~_CP___ ~.:~.:~~j
f'CTiiSViil-1:::;-r====~)ll9.:J Change data set status
l
II
I
I
l
I
1
-----' !f Il'L-----.. ,1!~
I
----------'/1
I
I
II
!I@]
I
I
I
I
I
'leA
fiiTriiOs~
f Ke vord
~~~~:.
I
I
I
I
I
I
ZZZZZZZZZZZZZ(> I
I
I
I
I
I
fCT
11
1
IPCToSviiJ-1
Data set
Icontrol
fl.nd.1cator f
~_-..-J
1\'1
,I
PreFare a fl.le statlJs
display
r-' \
I
Zkzzzzzzz~~i! >
I
I
,.-_~_______ L__~
~/lm~~9~otpot
Ilid1t~;a7utP;-ta 11 responses
I
L _______ ::.::.!.~J
L_______________~
1
I
L__._________--.J
D1agraa .. 5.2. b-Ol
--l-~::~~:f:::-T:::
r-,f
~~::_---------------~::De
1--------------1--------11---1--1 ---------I~
1
I
II
II
I ~ A hIe Control LOCATE .aero
\ DrR ~"B \DOC.r P181
I
I
I
I
I!
instruction is issued to find
the rCT entry.
I
iiSvRi""'"7
PC T
Data set
control
1ndl.cator
Change Data Set Frocessing Status
I~:---------
1
I
I
I
I
I
t_______~------~
11
I
I
I
I
I
!
10
I r;;'i1
Ig~~~r~rt
I 'II
J.Ddl.cator I I
I
1
II II
IFCTDSViiJ'"" I II
I~mr~rt I I II
3nd1eator ! I II
I
II
L______
II r=--------7
\ "-0/
-----------1
II
I
1 OF
Irl =-'---.
"
ri~-.-----l
PAGE
Output
I
I
I
f
I
I
I
I
I
I
II\\
II
d
\ L:::-r;:;-,
1------1------1--1
I
I
I
!
II
I
II
I
I
I
I
I
II
II
1
,
I
I
!@1lclR'TPBI'TFILCHG"'lll\1
I
I '
1
I
,
I§]
1I
I
Imom ImILDs.1
1
I
II
I
I
1
II §) CSKT DUBAS,status ,PILEID=
I
I
II
I
II§]
IcrRrtfE I'T"DC
I
1
1
I
II
II
5.2."11
I
1
II
II
II
II
II
II
1
1
I
II
I
I
II
,
\
I
I
1
II
II
II
IIII
I
II
II
I
I
II
I
I
II
I
II
I
I
I
I
II
I
I
I
I
I
I
I
I
I
i
1
I
I
I
I
I
I
I
II
I
I
II
I
1
1
II
I
1
I
I
I
I
I
I
1
I
1
I
l!
I
I
I
I
H
II
I
II
I
II
I
II
I
I
I
L___________________L _________ L~ L__________________L___L ___ L_-1
Change Oata Set Processl.ng Status
586
Diagram - 5.2. b-Ol
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
Input
£ItOCeSSl.Dg
r----------------i
II
'-)
I
I•- --'\ II
1•••• 1 >1
It
I
~~~AOB:;-"'l--II--I-----::::!.~>1 @ ! ] 7 ; 7 7 7 7 7 7 7 7 7 7 71"
~:;~est
-j-----------\I
f1~-.
Input - . -------1
:~:~~:~~ ___ \
I
/
I
I
I ........t
-..... _-_!
....)
I
I
1m;,
Search reT for terminal
I
IO(s)
I
I
t
II
I:
I
1
L':~~~
)
I
I
Change teI:ml.nal
statts
III
II.:.:.l
'l021 To dEfine the terDina1,s) to be
- - t changed, tbe follonDg k.e:lwords
•• ybeusEd:
!
SINGLE lused with 'tERIHO=)
specifiEs enIy ene ter nnal 1 0 . )
!
::;:~:~:: :/:::.:::ermal Us \
I
I'
I~I
\:1
I
lf~~j'cator
--
I
j
I
I
I
II
1;
\
I
I
I
I
I
I
!\
II
t::.t r-----------1
-,/ I~essage ------1
liflt r:~~og~~EUt I
L ____ 5 .2.'O'
I
I'
I
I
I
I
I
I
II
I
I
L
_______~I
I
Ref
11
Notes
I
5.2.1-01
-----,
ROUtine,' Label
I
Ref
,I
,
I
The allowable processug status
I
:
AUTOPAG!, and PAGE.
TRANSACTION, TRANSIEVE,
,I
:
I
I
1
\
I
:I
\
\
1
:
1
I
II
I
I
I
I
I
I
I
I
I
I
,OOCftTP221
IOOCHTP2J
I
OOCHTP1'l
!I
I
DOCHTP27
I
I
I
I
I
I
II
I
/OPH.TPe IDOCHTP28I
II
I
'I
I
The allowable sernce s t a t u s '
I
changes are: INS!BV, ODTSQV,
I
ACQUIRE, and RELEASE.
I '
L-_____________L__
II
I
15;2.'01
I
I
I
1
I
changes are: RECEIVE, INPUT,
8TH "OC
I
II
OFH .ue
I·odules
II
I
f
I!All
OPH HTP
'--'
I
uS1ng theu TL' sotfu.
It:::l
/11051
II
I
specl.fl.es a class of terlll.nals
!
!
I
I
I
II
II
I
Change Ter_inal Status
Section 2:
>\TCTTEPGB(
'II
I
CLASS lused with CLASIO=J
!If03l
I
I
I
I
I
I
,
I:
I
,
LIST (u.ed nth TEEHID-)
I
ltEBftTPC
I
II
I
/
,
I§)
TcTTETE"AI
TCT
-/------1--1--1
\;:::,-----------:--1----1--1
I
)
I
I
I
t
I
I
D1agram -
,I 'Rollt1nel Label
\
I r-7,
I
I III
I
I lIl~~~
I
I
I
III
II
r,\ >IBu11d output
I
1-,
----fOil
I
-'1
:~f~r~~al
I
I
zzzzzzzzzzzzz~/
,..-----------------------------, ..-------------
!
1TCTTETS
I
I
I~ I
I
I~I
I
I~I
zZZZZm~l!:~:
I
L
_______lI
1
/1:
'rCTTE
e:r.tens10n
III
I
\
I
L
___________J I
1
II
~~~
I
I
\~\
II
Ij
\ Hotes
;I;;I~. oOSr-d---1
I
>I
I
II
I
I
I
f
I
I
Status
\
I~I
I
:;
I
Change Terllinal
I
I
f051
I
I
I
I
I
I
I
\
!l~
I
L, ----- /
GcnEPGB 1
I ~a~~
1
1~I
I
~
177~
I
I
II[Ml
~
TETEA
5.<.,1
II
II
I
I
I@J Search parallletar ll.st for
I
TCTms-1 I
II
I 1~~fu~a~'1
I1
II Im
:~a~~~~on 1
---~ !
!1Dd1c.tors
\
\
I t e r nnal 10 (s)
TCTrE
I
tTCTTETI--,-j------------->
I
and set I
L ______ ~
----~·I
r /Hrm.l
I~~c~l~~~s
DeterlDJ.ne tetm1nall
Ig~E~l copy
II
tli~H~ord
1n~1catorsl I
, OF
:----------,
I
I
OPHHTP:
PAGE
Cut put
[------------1
Method of Operation
\
'I
II
II
11
,1
II
II
II
II
II
II
!I
II
11
II
I!.\\
Jl_______
II
II
I
I
I
II
I
II
I
I
\
I
I
I
I
I
!
I
I
1
I
I
I
,
I
I
II
II
::
/
I
I
II
"I
II
I
I
1
I
I
I
I'
I
I
II
I1
II
I
,
I
,
I
I
I
I'
I'I
I
II
:
_________1__.. __L____L--.l
Dl.agram - 5.2.1-01
587
LICENSED MATERIAL -- PROPERTY OF IBM
Input
,-----------1
r==----------------1
Processl.ng
r;L.,
1\;-----------------)/1
1
1.:"""1 >1
;~~~---,----------:::!~>lfOil
I
II
ItimOB! \ I \
II I
111
----.1
"'CA
II
I
,I /;-;;;\rl~----~
',--./ I__'_1tl.a_ll._za_Uo_D
h~2¥T~~pYl--I·-1
\1
lof all
I~mord I I
L:~~~ I
I
I
I
)\
\CJ
l req uest
,:~at~:tSf~8i~~~~rs,'
l ______
)
II
<. II
I~{~:>I
III
I
'~I
I~\
I
I
11'
1' I
I I/~/I / I
I
I
I
,I ---~-------> I fii2]
Search para.eter hst for I
l~
l
I
I
I
.ii~TETi-:l--\I-j----------->I~
TEl
Check the validuy of the !I
I
terDl.na.1 10
,
11:;
ITerml.nal I
I:~----I I
ITC11ETT
II
ll~y~:l.nal I
I
I
\
I . . . --..
II----.
-----'
->\l~ Locate the selecteo
line/control unit
I!
l::~~
II
I
!fOsl Change l,ne/conttcl I llli:~~~!
11~::':~~;;t-Fu-t
\
all respcnees
L ______ 5 • 2 • l bl
II
I
,
I
I
I _______-=__ I
L
--.J
Change Line/centrel On it Stat.us
Diagru ..
I Notes ------------------I~:tinel L::;--IIR~l Notes -------
I /
l~---------------!---I---
--\\----
1
I~I
III
II
I~!!
I,I
I
L
______________JI
I
1 OF
~I
!~I
Et '> f~iiaoirt'P~----l
-.1
t
I
I
I
--' I
5.
I
ZZZZZZZZZZZZZ\/l
Ig~~i~~ID~nf~n:~o f!
I
I
I
I
PAGE
CUt pUt
5~
2. 8"01
I Ro:tinel-:;;::--I;:;-j
-------/---/---- ----I
!
II
I
I
I
I@lIfnonEftIogivEn,aTER!I01'OfRftTPFlftTLINCTJII!)I,111
requested.
I
!
I
l@l
I
I
I
§1
~:R:::ft~: ~:q:::t~:. TCT, a nev
§]
LLne:
II
II
t
I
/11
00em50
I
II
I
II
1"'DOUf I"TCLIN' I
ControlOnit:
jOfE"1PF 'I"TCCNTaLI
/
An LOPEN lacro instruct10n 1S
I
iSSUEd to put thE b.o/control I
I
I
una n .ernee. S>nco 11"
I
I
I
status tor a
terillnal 15
I
V'lA~
,
Dot possible, a message 1S
I
1ssued.
I
I
Irobl
1l::::.J
rmm
I
Ii§ Li.e:
!
I II
j
IftTLINCTL I
Ii
IICPHft1PP IIOOC"TP.9!I I!d
I
ICPH.1 pp
Control D,it:
I
I
\
I
II
: CPHP"HP
I
I
I
I
/I
I
J
II
I
I
!
I
I
I
!!
~I:
/
/
j
II
I
I
/
I
!I
'I
/
I
III
II lI I
II
I
II
II
,
II
II
I
I
15.2.
I lb I\
I
I
I
t
/1
I
I
I
I'
I
I
1/
I
I/
I
I
I
I
II
I
I
1/
I
IItlTl'ltlDC
I
I
!
I
I
I
I
I
I
I
I
I
L~ L ____________________
, ____
I ___ L~
I
l__________________L____L__
Change L10e/Ccn'trcl Onlt Status
588
/
I
I
Dlagrall .. 5.2.8-01
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
men
iaput
----~iem
I
1--------------1
r:L. . , I
D'SKU,
~~~BA
E~~--1
I
,'--', r-------,1
\~,> n~~~.l1zat1on
~CA
I
r F~~try liT]
i~~~m
I
Iln~~~i:
--I!.r-->
,----------->.@J
I
10
I
!
,Icode
II I'1----------->1
I -- I
g~~~:~~PYll
CS!I'l
I'
I ReS1dent
!
199~~~~
I@!
I
I"
I
I
I
I
I li'l1
\I
II
Locate spec1f1ed pI:agram
\1
------:j
---'-
1\:1
E1
ZZZZ-7777
I
L________J
I
1
5.2·'"1
I
I!TYEWCPR 1\
I
/UYUCPR
I
I
\I
I
II
/
I I . - I_ _
_ _ _
----'
D18grall .. 5.2.9-01
I
I
I
j
!
I'
!I
I
1'·3. e II
I
II
I
1'~-I1l
11'-- cmm Imuml II
I
II
rnnn
I
mzz,\,>\
r:::'
r,;;;--------g;-J
~/I~~Hg· ftess.ge
I
I
I
L
DmU!
\I
II
I!
LmmJ II
Drute. II,
ftnftDe I15.2.,"IIII
I
II
I
II
I II
I I
I
I,
!!
I
I
I I!
I
I '
I IIII
I : :I
I
I
I______II __LJL
I II __________II__LI __L_J
I I
I
I
I
I
P01Dt to Ie. PEogra. copy
section 2:
t!~mss
fro. step q
1
!
L_____,_ _ __
I~CAPLA-.PT'l
Check the PCP return cod@
IcH!~P!
:::a~:t:;w p:::~ !:::~::e:~:' for I
!
I
I
Issue a Program CODtl:cl
I
BLDt f uuction allows PC' to
'P'l entry.
ijmos
t~~a~g~~orslI
De.eru.e whether the
-------~;;l·-' I~~
tasks are lnellgl.ble.
I
'lC_A_ _~
BLDL
1---->l-0---"'--->lfOSI
!
t::J
Point to Yev Prograa copy
Kotes
~
I
L ______l
I
II
ZZzzzzzzzzzzz~>
\ I
I
r~'
II ,L.-:-O, .--------~
I < 1··1 >1
1
''--''l~pcp- ,
.•. el
I!I
1n~3rao
/mOCC-
\
!
!Irno;;,:;-t
I
bP~P~
,
prograa 1S eilt)1ble
I
I
I
PFl'U
~9ra. ID
§]
I
~:3~g~~ors
l~mm~t~:~:~~~,
r;1
I~::~~~e.
, 0.
r---------~-I
\
E··'
--"'>) ~
r-'------------- I
nOl
PAGe
output
P:z:ocessinq
Method of Operation
I
\I
'
I
I
Diagrall - 5.2.9-01
589
PROPER.'r.l OF lEii
i~_ _ _~".>1<§]'
ooo
•
.
<~>~~~::;~~::::.~l
r
---
'II?,!>
aM set >nd1C.tCU
CSRT
'II,
5.2.1
-----------) I~
!~
I ..... or'
---------'
for ON or orr request
Test
,
'
Set trace 1D.d1cator to OH
orr'
I '.
~
or
fQ;l Set AUI. Tuce ON
CSI
I
I~
I
7777
Z_ZZZZZ
,.
1L.:J
1
Tr.:C:=A=~-,
ZZZZZZZZZZZZZ(,>
I
1 0.
Olltput
I~I
III
~
1'~1
1,1
Z?J77ZZZZZU I
Of'·
1/,
@]
.....
,
277"ZZZZZZZZ,,>
.
.
I
[--./
;;~ '>~.ilaOatP;t-:J
lIessage
'.
Edit end output
tesEouses
Lell
____
S.2.1bJ
I
Lon/:::'Of:-:f;-:-Tr-,.~C.~Ta~:b-.l~.-:L-,og-9-:1n-g
Turn
.Hotes·
L..-_ _ _ _ _ _ _ _ _ ---l
_
........
~ r;;:~---:---------
----------1--11
RocUne
Label
DUnE!
IDCCRuUI
,D.UUB
DOCRUU I
DPE"~PB IBTftftDC
.
I
I
5.2.10-01
'I
II
" I
I
I
II
II1/
II
'I
h
I
1,1
I
\I
5.2.,.1\
1
'-'--. -----------1
Rouu.el Label/I Ref
I
J
DPUU!
D1agrao -
I
I
II
II
ill
j
I
!I
I!
II
1'1
,
L ______J____l_L,Jt ____________
I
TurD On/Off Trace Table 10991D9
590
CICS/OS/VS Program Logic:
IJ
o1agraa - S.2.10-01
Description
LICENSED MATERIAL PI:ocessing
Input
I
\
I DPHfttP:
\
~~.:)/ I
-r-I--I------"~--->,' §]
[m:
.:~~---1
ZZZZzzzzzzm(
OBA
'I '.-.1 r---------1 I\
II
tC~__
I
___
fDPFlftTTIlU "
\m~ord
~~~
I
t!
I ----.. ------> I I
I
InpUt
,:~;~~-n--
Iset
~~~u~~~CJ.f1ed
t
I! I
>I
,I
' I
<1'---"
,._, >
'
:g~B~lCOPYI
I
I
I
l.ndl.cators fori
I
L _ _ _ _5:~:2.J
I
1771 >1
I~I\I I
\,
I
I,
I~I I
'I ~\ >,I
'II
'r;;:;1
I L~~ Chec}o, the 'fa.lJ.dl.ty cf the
I~I
t
specl.fud transactions/
III I
I
rPT
I
IPnPl--'I--,-'
Pro9ram 10
I-----1
'
I~mt:~;:JS I
(-]
-....., \>,,ro51
L.......
-5 ••
--,1 I
1
I'E~
Ob
l---.- "I
atle
indlcator
II
/
I,
AG--'j
peT PL
Enable/DiS
able
E~~~
I
PPT
"
)\
"
[;;,,'>rii;;ill-Out~1
-11 I Mes.!:age
\Eait;Da-~tP~t--l
I
resI=cnses
5.2. lb
L_____.____~==r--
JI
I,
I
II
, I
,all
' L
I
I'
I
II
I
I
zzzzzmzzzzz\ / I
I
PCt
I
------------
pro Fer vork area
3.n!~~J
'I
prep.rE OU< pu< .ess'ge 1n
I\I
,l___________J
"
indicator
tCA
'lliTIHDS ----',
Ke word
t
I
tIl
pr 09 r allis
II
I~I
1 A. If 00< valid
{~;;:, r.l1~1
~>~ I,
PCT
I~
, I
I~I
r~~;g- 1""1"1"---------->' ~ :::r~:::~ :;n:~:l table I
I~I
I '\
,I
III~
II ~:':~I
PCT!LAG
'transactl.oD/program
Enable/Disl
I
,1r:--1
\
'II
Iable
t
II
l:~~~ I I
I ~ Set enable/d1sable
7777777777~~1
I
1
I~I:
\
I
"
I
J ,
1 OF
---------1
I
\
!IOA
PAGE
Cutput
.----------------,
!=L. . . ,
PROPERTY OF IBM
I
"rIGA
[iiTtloACRl
Iftessage
area ___ JI/
II
I
I
I
~
Enable/D1sab Ie Transacticns or erogr aa
__________~
01.agr811 - 5.2.11-01
.--------------,---,---'1---, r-----------------------
,
1-----1rn7l
~
1----1-----/---,
,
,
,
,
IDPHftTPG ImKDC 15.2.,.1
I Notes
I Boutinel Label
I Ref
,
,
I
II Hotas
----1-------1----1--11----------'
,
,
II
\
transaction/ program
\
I
I
I'
\
spec1.fl.cation are:
I:
1
\,
jI
t\
I
I
II
SINGLE
I C'"ft'PG IftTSINGRT I
\
\
LIST
I
I
I
ID.Hr.TPG ,lftTLISTRT /'
I
\
CLASS
:
ALL
1DfP.ftTPG
I'
I
,
I~1
~
The PpT is searcbed tor tbe
I'D!E!l1PG \I'ITPkEO
progr •• 10.
',\
I
\ §)
Tbe allowable parameters for
I
I
\
I
!,@1
\
I
I
"
/'
I
I
1I~1
It'H'tEe IfttCLASR'1
the PCt is searched for
,.
L_"____ ~:.~.:!.l
L__________ I~
>
1
!
l!iiTCSiii--,-I------------->I~
'I'/~I'
I II'
J
I
I'
.
,_indicator j
para.eters·
l
Il..:.:J
I
-
I
~:~--Dl-Ll
16~~g~!~
I
l~~:;T~i-1
,r.:;O:;.l
I
pr~pare
proFer va:ck area
I
l!natle/Dl.s
l!~!~cat~.J I"
,
:::i::::~e/di.Sable
I
status
'I~I
I
11
1~1
~I
Z'll.Zl777lZ_~
output lessage 1n
j[~~
II
I
I
dest1Dat.OD,S'
J@]
OCT
,
I~
S •• rcb coDtrol tablE for
the. specified data SEt CSJ
' . or
'I'
I,~kl >I
Locate speclfic input
PCT
19ataset IO I
FCTDSDSA
I,:gr~le/Dis
1 Dr
TCA
\8'1'lHDS--'
, ,vord
1
I
..
testorsl
zzmamml>
<~~~>~li:f~£a11zat::=~~
I
rg~~~T~~~--I-1
I for all r,
PAGB
I
DUdrP:
rl~~~:CBAI-1--I--I----------->'I~
request
I
'leA
____I
' 7"
Z22ZZ7
71ZZZZ,,> I
,'
r.;j '>jS";:ldOa'tPiit--i
L=!/ l!esE~~ _ _ _ 1
Edit aDd oatFutd
resFonees
Lall
_____
~·I.
I:
~___,__~
EDable/D~sable
L _____--'I
Data Sets or Oest1Dations
11~~_s_____~_
---I-~::~~:L~~=--I~.':-I~~--
§J
1
Ill~
:
Data set IDs are speclf. . d by
the PILE1D=' OR ALL parameters..
I! ..
trapart>tion destloat10D IDs
are spec.fied by tbe DBSTID=
I
paro.etEr.
\§1 ::: :~:
, .
1\
The OCT is ••• rcted for the
destination 10.
16
II
~
Tbe enabled/disotled constant is
I'
I
I
I
I
I
!
I"FRnTPD 'IDocerPl81
! trHn1PD !DocnTP ... ,
,
l't.B.1H
,
l,oocnTP".'
I:,'
II
'I
II
II
II
1,1,
1\
I,
1,1,
1\
I,
I
Dotase. oEssoge output.
Extrapartl.t10n des'unat10D
.es88ge output.
I
I
15• 2• ,
tFF.ft'tPD 11'I'rIHIOC
I,15.:;: . 14j\Ij
"I ,!
I
Enable/Dl.sable Data. Sets or
Dp..stl.r~ati()ns
II
I
\I
.11
CFR.UE InTuDc
I"
II
"\I
L___' _J L
! _______
592
I
\I
II
II ,I
I
L________________
\
II
I
I
added to '7he aessage ..
,
18
1
!
lS searched for the datalmom IDoceTPI81
extraplu~1t1on
D10graa • 5.2.12-01
J1 '
,
~---------------i------
L~J
,I
,;. ___~--.-.
I
,,'
___,___, ----1
I
I
D1agraB - 5.2. '2-
IIQ11
\
-->00---->
rCA
;..O~P-H-"TT-.-.--.---->
~~e~Il copy
00 -->
DPFJ!'ITP:
t.::..:.J
m?l
8
TCTTW;:
Search paralleter list for
ter_inal It
10
Check the validity of
:!iOta tus
CS'tT
f~X~~~ors
~---> @]
TCASVASI
terminal ID
i~~~5·
I~3f~for
prepare to terminate the
TCAPeI
task
~~gi~~Y
indicator
TeTTETI
Ter_inal
i~i~i~:l
l.ndica tor
TCTT~TS
Terll1nal
sta tus
Terminate the task
r::j'>joutput r!essaqe
~/ IBUil~
l
Edit and output
all response~.2.16
TCTLE
TCTl..EsII~>@J
;t~~=.J
T~e-r.-Oi-na-ot-e-=T'-,s-:-k-u::-s-:-in-g-T=-.-ro io.lI 0
Diagrall - 5.2.13-01
IRoutinel~ ~
Hotes
@]
DPH!!TPP
DOCI!TP5t
@]
DPH"TPP
DOCnTP51
DPBKTPP
DOCI!TP54
~
The specified teninal lIust be
Motes
Routine
Label
Ref
- - - ---
out of service to terllinate the
ta.SX-.
I t the ter.inal is out of
ptTTEXSTS
service, issue ADEN 0 code U1T1.
@]
.
I f no rcp
~AIT was issued.
de1errdd ABEND is is-suell, (1)
DPHPI'l'PP
~TTEISTS
DPHHTPP
PlTSTE:STS
with ABEND code AlITF!. -rCAl BlITP
indicator set in TCASYABIIf
a rep
WAIT vas issued I
all
pUlgeable tasks are purqed" (2)
by setting the TCADCAB!>
Notes
3 and
• of
5.2.1.
indicator in TCATCDC.
~
DPHl'!TPP
!1T~I'lDC
I
I
I
Terll1h.ate 'rask U~ung Tar.inalID
Section 2:
Method of Operation
5.2.16
I
I
Diaqra. - 5.2.13-01
593
LICENSED MATERIAL -
PROPERTY OF IBM
Input
~rocessing
CS~T
\:1-,\
~/
TIO.
I
I
I
2
--1
TCA
":..:"'-.--1-r----....,---->
Lrequest
TCARSTSK
Addrass of
resulled
task
L:J ---->
Syste.
'~>fA1
area
l::J
=-TC=-':":K:"C"T=-T.:--1
1 OP
DPHPlTP:
User
T:..:I",O.:.'
'rCA
PAGE
output
TRMNAT
TCAPeAC
Abnormal
terllliRa-
/'--'\
<\~/> j~~~ralization
Task
number
~~~r?i~!i ii3U~~i
----TCASl'AA
i:ndicators
5ystelll
drea
S.2.1
tion code
rATeDC tC
cJSt~~lh
inSica tor
TCAATAC
4b~~I::~
.Ion
ADEND
code
TCAFCI
f'aci~ity
control
indicator
TCASYA 61
ABEti'D
ind1cator
----PCAPURGI
Task purge
1ndicator
TCATCDC ftC
~~~~~~~h
indica.tor
Terllina te Task Using Task NUliher
Rotes
@I
Tne uset is also asked if
tenination is to bol i"aedidote.
Diagrall - 5 .. 2.14-01
Rou tine
DPHl'fTPl"
~I~
~TGTI'IRID
NotA'S
Routine
I
I
Label
Ref
--- ---
II
I
I
Terll1nate Task USl.ng TasK. ,",umber
594
I
Dl.agrn
CICS/OS/VS Program Logic:
- 5.2.1" -01
Description
LICENSED MATERIAL -- PROPERTY OF IBM
Input
Proc\:!ssing
Output
PAGE
OP
2
~ Search DCA chain for
reauested task. number
rBl===:>
~
Check thf;!o validity of the
request
LJ
Termindte thp. task.
IQsl
Il:::J
/<--0\
1 ... 1 > ']ui1.d output
1 <\r-tl
'1essaqe
I
F.dit and output
I
TCTTEsn
I/O
teninal
vait
status
.n
"'~""l.,. ..
l;CA
l!ili
.o.CALCKAD
lock
address
Task
L__
~-;--::---,-.~
Terllll.nate Task Using T1II
I r-----------> I
r fCsAsiiSi'--l T~I~---1-Ll
J
I ~or"ard
I
'tIOABDA
User
I
I
I
TCA
Lr':"':"--.. . . --,
fI
CSAACTFA
Actl.ve
Chal.D
I
I
I
I
\
I
I
II
'
ID~~;-~gu~I'
IfFec>hed and set
II
,
L:.nd1catoc.s
I
1
~~
J t O!J
: -
I I TCATCPC
I I
of"
I treguest
I I II
I
Im~:::te.!
>1,1&Fm:ll
III LI
1""1
SCP
~~~~
L _________ •
'r--,I,
\rn"
Il'-=---"::~)! l~
I
I (/~ '>rDfiiiiTP-p--~
I
II
I
II '.--,/ g~:i~h t~C~e!U~g~rd',
I
.~~~~ ____ _l
I
I I
DFHIIT •• '
I
glE~l cOPYI
li-------
l----dl I
l
I
I
CS"T
II
~~a~~~~ors
I L -__"lroOl
PCT
->
rPCTrr--'!=,----,/.
I Trans-
I
l
1--------
'r-al
I~t:i~h tgC:e~Ci!~:
l:~~~~~ ______ j
I
!
II
I
II
I
I
I
I
I
I
I
I
!
I
l ______________ l
I
!
,
I
(/;-;;j '>fDfiiiiTP-p----l
II
I
I
I
C.
I I
l~~~_~
I
I
l
>1
I-----1 I I
I
~~:~~---11
I
---------,I
Obtal.n ~tora9'e for the
11St
I
I (
I
J \
5.2.'
I /'---'\ ,--------------,
---J
rlTCAmAl
DC.
area
I
,
I
!
IcSAiccT"--l
!!
I: I~~dress
11
J
~~~--- l ___
I 11
I Current
Inumber of
/L.._., r----------)
\~~/)I~~~~iall.zatJ.on
J
ITCAKcTTAi
II
I
I I //
I 'I'
LE::!!.:::""_ ,I lTCAfCI-1
I Pacl.ll.ty
I /
1 I:~~ 1 I I
I I forward
II
\
r>rsystem-l=~l
larea
2
r
I
I
j
I
,
1 OP
.-------------~
I
[-J
A ... _- ..>tL.:-.I
I
I
J
I I
r:~~:_t_J
po:lnter
_____ .1I
,
I
I
\rOil
CSA
f suspend
Icha1D
II
DFHI'ITP:
--.J \
PAGE
Cut put
L ________________J
I
IL
____________ -..lI
D1agra . . . 5.2.15-01
L1st All Tasks
~------------------I------I----I-lr--------------I-.--I----I-~
I-~------------------' -~:::~::!-~~~ I~~ll..:~:~-------------------,! ~~:~:/-~:~-J-~,
IE)
I/[§
Total Storage=L(1+3J.H where:
I
1
T 1S the number of tasks,
I
I
/DPH.rPP I"TASKLsrl
!!II
I/
I/
I
II
I
I
I
I
I
I
,
I
I
I
II
II
I
II
\ \
I
II
I
\
I
II
II
I
I
I
I
II
I
II
I
I
II
I
I
II
I
I
II
II
I
I
I
1
I
I
I
I
L >s the length of the output
\
11.e,
II
H is tt:e length of the head1ng,
I
I
I
I
I
I
I
•• sasafety.arg.n.
1[~
I
I
II
I
I~
--II
The cha.n .s searched from low
to hl.gh prl-ortty_
I
CPHe'Pf
I
I
I
I
eTLOOPSH
I
I
I
output ir.forllatien.
"
The chain is search ftem lov to
II nEII'!P! IIrtTLOOP2
h1gh prl.orl.ty.
\ ,
(The last teA 1.5
I
I
I
II
II
I
I
I
This sul:routlne gets one 110e cf ItFflP.'IEP lr!TASKLIN
for the 1CP which .lS not
l.ncluded l.n the output.)
L
\
/1
I
I
I
I
I
tI
II
I
II
I
II
II
II
1/
I II
I
II
"
I
I
I
I
I
I
!
I
II
I
I
I
I
I
I
I
I
I
'I
I
I
I"
i i I
II
II
I
\
II
I
I
I
J
I
II
I
J
/1
\
I
I
I
I
I
II
II
I
II
I
I
I
I
/
I
I
_______________________ L _____L___ L_..J L __________________________I ____L ____L_-'
II
L.l.st Ul 'tasks
596
I
Ol.agralll - 5.2.15-01
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -
I
\
I
I
\
I
I
!
I
\
I
1I
I
\
I
1~
\
I
II
I
~~~ _ _
I
I
!
mTImil-iJ
I
I
I
I
I
I
I
It
L ________ 5.2.1~j
I
I
TIOA
I
I
\
1--.--------1
IEdl.t and output
I
lall respcnses
I
I
II
II
I
>
.----------!-----,
l::~/>\~~~~~g~utPut
I
II
1
I
r--.J \
I
I
I
zzzzzm~~~zz~ I
I
II
I
II
I
2
r------------------,
' I
II
II
I
I
2 OF
Cut put
r------------------,
r--------------------,
I
I
I
PAGE
ptoceSSl.ng
InFut
PROPERTY OF IBM
II
\
\I
I
I
I
I
I
I
!\
I
I
I
I
1I
I
I
I
I
I
I
I
I
1
I
I
I
\
I
\
I
I
\
I
1
\
I
:1
I
II
I
1
I
I
I
I
I
I
I
I
I
I
L __________.-J
l________________J
lI ____________________-.JI
I
I
1
!
I
I
Dl.agram -
Ll.st All Tasks
5.2. 15-02
r----------------------------------, ,-------------------------------------,
I
I
,_Notes
Ifo51
.
I
I·
II
I L::J
I
I
I
I'DPRP.'IPF tKTtlttDC
II
I
I
I
\
I
I
I
I
I
\
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
\
I
I
\
I
I
!
I
I
I
15.2.1bl\
:
:
I
II
II
I
I
I
I
1
II
II
II
I
I
II
II
I
I
I
I
I
I
I
I
I
I
II
II
I
I
I
I
1
I
I
I
I
I
I
II
I
I
I
I
I
I
I
!
II
II
I
I
I
I
I
I
I
I
I
I
I
I
I
II
I
II
I
I
I
I
I
1
I
I
I
II
II
II
II
II
I
II
II
II
I
I
I
I
I
II
II
I
I
I
I
II
I
1
II
II
I
\
I
II
1
I
II
I
II
I
I
I
I
IIII
I
I
List All Tasks
I
II
I
1.1
II
II
I
~___.lL_ ____________________I_____
1_____ I
I
II
I
_______________.!._________
I
I
I
I
.!..._---1I
D::\.agI:am -
Method of Operation
I
I
I
I
I
I
II
II
Section 2:
I
I
I
I
I
I
I
L
I
I
I
1
I
I
I
I
I
I
I
I
I
I
I
I
I
\
I
I
I
I
I
II
I
I
I
I
I
I
I
II
II
I
I
•
----------------\-~::~~:,-~~~f-~~ll~:~--------------------tl~:~~:,I-~~:~-L~~1
5.2.15-02
597
LICENSED MATERIAL -
PROPERTY OF IBM
r------------,
Input
PrOCeSSl.Dg
f-------------,
:
! '101..----,:,
!
!
I'
: : /'.-0/
'-', rs--------' II,
I
·
"
I
:
,
,I~ ••_;;\'
I
D'HKTP:
ubtai.n proper Sl.ze
[-~~1
.:.J
I "
t
I
I
I
I
I
I
I·
< ,•• , >
: r-RiG;;-------FEGS--ll
II'
II
r-----,
Ift'1'f'!SGREG
Hf~~~s~.m
,-,-,
,-----,------------"'[02'
---------,/1 --'
of III
I
11'1 'If'! SG SC R
,~~~~~~s
lL~~~~~~~
!!~~kg~
:
rTCTmr~=-
!
L_____
1CA
I
li;~~nal
,
I
I
I
'1
riH~~~AII'I
77i/777777777
-,--------I~I
I
Insert device-dependEnt
I~I
7~77777777}~1
~'
/
>
UOA
I
I:~::age
.,1
Output .essage.
:~===~/I
'I
'I'
I
"
r;;. '>1------,
L_.I
1_ _ _ _ _ _ _ _ 1
~-.___~l
I
I
_ _1
I
L _________J
rftTTIOACH
I,
--1------.--
/
I
I
cbatacters.
@)
I
II
'----------'
I
I 05
I
I
I
I
' :
.oroat .essage for outrut. .
I
I ii"'mTII
CO'Plet;jd
IIEssage
[ ,nhcator
---I
I
17"1'
//
1 ,_
f--( /
I'
I/
I
I
IL _____~I
D1agraa ... 5.2.1b-01
r-.---------------,----,----1----' r--------------
I Rout1ne\ Label
1~----------------l-~::~~::,-~~I-.:~tl-:::~--------------
a
1
The or191n81 'UCA
l.S
used 1£ lot
is large enough.
I
I@) The lIessagE is fer matted into
not. more than IIO-charact.er
,
11.nes. Carriage returns are
1
I
1.Dserted where needed.
\
I
J~
I
Spec1.al f01:lIatt1.ng 1.S requl.re:l
for 2780, .:1270, TWX, VTMI, and
buync progr •••• ble ter . . nals.
I
IAll
Imm. I
!I ~~~JIITP !I
I
II
II
II,\
IlIIo(!tiles I
\
\
I
\I
'ftTtTIOL
i'!TlIfWC
I
I
:
I
I
r
I
I
I
I
ItiAtTP IJIITPNDSET 1
Imcd1l1es I
I
I
I
!I'
!KTTCP~'RII
I
,
I
','
for the final v1:ite, a Terml.Dal
Control WRIT'E 1S _issued.
':
II All
'I
I'
\
I
I
\
At the end of the fl.nal vrl.te.
the data and timE J.S wr.i.tten.
II
II
'I
II
,
"RITE. RtAD, and WAIT is issued; "
I,
\
1,-,-"
I~..II
A Df'HPC 'IYPE=R~TURN is l.ssued.
I
\
I
L-_______________
modules
Ig~~:I:s
I
I All
II t.HfttP
Dodtles
'I
!1'lTTCPilW
'JIITOUfDT2t
I
I
I
I
:I
I
I
II
:
I'
I
I
II
II
IIII
I
I
DFflfl!'IPA Itt'l'Rf"rOBNI
~
I
I
I
I/
I
I
I,
I
!
I
II
"
_
!
II
I
I
!
I
I
I
!
!
I
_ _.:..I_ _ _ _
' ____
Buld Output !!eS58ge
598
I I
I
II II
II
___ .!......____' _...J L-_________ _
I
I
I! II I!
I
:':'
of the task, a Terllll.na1 Control
I
I
,
then coni rol 1.5 returned to th e
caller.
I
/
I
I
I
I
I',
II
\
I
All
tfEfttP
,~
1-----1----1--1
\I
I
\fQ.i1 If t h . is not the f,n.l onte
t::..:J
I
I
I~)
l ___ ~::::( /
Build Output t!ess8ge
I .
1
~.
"I
sep----\
1.2.1.
I
1
TIOA~
I
I J-f=:==~>![~
I r;====::::>/§]
I
--.------;~;;~
I
III
PAGE
output
I
l._-1I
tu,agra. - 5.2.1b-01
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
r-------
Input.
r------
I
I ,:····1 I
I
...,
L..,
1----" >
I
nOA
fill,Io'ADBA]---->E)
I ~!~~est
---
TCAECPI
- .....
I
p~9r8m IO
->@
fiiJ .... -->I@]
~
I
I
,I
>/List~fTi-l
I
IterUDal
I
---JI I
IDs
fA]---->,
\.::
I
,I
r.:l
t:.
I'[O5l
---->! :~
,
Load Superv1sor Terlinal
L1St Table
----
\,...--,/
l ........ _...... __ .........>/ [g
I\
L_____ ~:;:·
Check the validity ot the
terlunal ID
!
I@)
I
I
foll0.1ng reguests:
a line/control un1t
~:::~::~ChangE the
sto tus
Terminate a task
~
!
I
'1
terll1na~
\1
list
The SPECifiEd teniDal XD must
be 1D the TLT: 1£ Dot, fonat a
The allo •• ble reguests are:
Chan~e
teroinal status
Change line/control UD1t
status
I
\
I
I
I
l
No~e
II
II
II
I
I
II
I
I
I
I
b
I
I
~
::
mSStRT
I
,
I
\
I
htIUE.'PP
E• UC
I
\
I
\'
I
!
I
I
I
I
II
I
I
I
I
I
II
1
I
\
I
I
II
II
1/
!MTSCHSIDIS.2. 1b
I
5.2.13
I
I
I
I~~~::/~~-L~i
5 2 U
I
or
i
,I
I
I
I
• •
l
I
I
I
I
I
I
I
j
I I I
I
'I
;1:
1,
I
I
I
I
1\
£fHtPC I.TCSSTR.!
I
~
D1agrall ... 5.3.1"'01
I
\
I I I I
rmm! I I
I
II II,\
I
lr"PEttTPP II'ITCSSTRTt
I
A program Control LOAD 1S issued
respoDse and go to S.2.1b.
I
of
table.
\~
\
I
I
I!
II~
InquirE/change the status ot
for the spEcified
I
I
I
---L~::~~:!-~:~I..:~)I-~:---I
,
I
I'
'Ierminate a task
II
II
II Ilro;:l To 5.2.J,. 5.2.7,. 5.2.8,
'[§JAsearch1SI18deforthe
I
I
I
r-------------------I-----I----~
I
fiiTSU PRTB
f Address of
ImemSOr!
------'
I~-------
!
I
I
teA
I
!
S u'-pe-r-n-s-or--::T'erm1nal
I
I
,'> I
II
I
I
II
I
\ See
IL
_____--1
I
A:~
I
!,
~
r:;~
I
I
I
I
777
__lZZZUZ7_ZZZ'
I
Process the reguest
I
I
l
5.2.11
r-IP-CP--------~
I
'
I
,
II
I
I
SEt \
supervisor terminal ID
1
I
I
:m~~iBof
I
r r,~~~""Y1sor!
TLT
~~3~~ii~~s an
L
,g~!gs~OPYII
! keyword
or
I
IDetrn~ea~;~t-1
I@] seaZ:Cb-;::~~~-;:Z:
!
l:~~~
1
I
II
I
-
~
,If <\~~/>
, '--" rjgf~ia11zat1on----1
"
~~Al . .l"'->0
__
DPHMU:
{~-;,
I
'leA
l
r------I
I
I
PAGE
pz:oces:ung
I
I
\
I
15 • 2• 1
l'l
I
II
II
II
!l
I,5.2.8 IIII
I
II
I
II
I
I
I
I
I
II
I
I
I
I
I
I
I
I
I
1 I
I
I
I
I
I
I
I!
I
II
I
I
I
I
I
1
I
I
!
I
I
I
1
I I
!
I
I
I
I
I
I
II
I
I
Inguire about terainal or
15.2.J l i l t
II
III
II
II
II
III
III
line/centrel unit status
I
II
II
LI ___________________
I_____
_
.
I ____I
I L ____________________________
I
I
I..J
_~
Super"usor Terainal
Section 2:
D1agra.
Method of Operation
-
~.
3. 1-01
599
LICENSED MATERIAL -- PROPERTY OF IBM
Input
Processing
r----------------1
"
'\
I
r-': L-"
II
I
noA
I·
,
I
[m~DBA-ri-······-·····>IL~
I
I
fTccrur--,·~··>[.l
I
','
1cnE
',
i Terlll.nal
tID
I I
------'I II
1C A
I
\
'I
I'
~~~~T.~I'J.>[~
IglEiflCoPY, I -
I
,
I~~!~~~~~I,'
,"TTEB"NI
I
r-,
I
l!~~~mr "
~] ..• -> L~ ::~.~:!:ord for the mglell~>0
. I
I
mm~LI II
Irn~'
'\
1;;1PiiiiIiio!1
{iil-.-->I ~ Load the sernce program!
I'
'l~~m~~f"ll
I <1:-=~'>rE=- ----.--1 I
:~-- I
I '..---.1 w-----~~~~;" I
,
I'1-
11ndl.cator
'I
I EaJ;aaeter
\
I
-J
11ndicator
,
':'
'
,
I
I,
I
\
I,
---------..
@]_ •. _>(~ Process the reguest
(
'"
,
.
I
I'I'
I'
.',I
Ii
I
,'I'
JI
!~~ d:~
r--------------------------------,I'r--------------,
I
I'
I
ftTOTRIHND
I
I
1
l___________J
Operator Ter_inal
Irl
'"
:~===--1
,C-1;1
I
1_____________~
I
! !l.,!'
,CSOT"
\':
I
I
,I
II
1CA
12APCP~==1
I
'~~~
I ~:.._
,ftTPR"IND
------
I
'
,
f,;:::>',
I
1
I~~I
SEt
[TCAECPr-'I-L>liil
program
I
~..
II
[~zzl>I,
I
I
, {/:-=~' >fI;;-;;t---------l '
I '..---.1 l:n~t:.:l1Za~_n__ 1 I
I
IsJ;ecif1ed
Deternne reguEst,
a
anCi
!l.ndl.cators
I I
II
L _______ ~:~:!_,
_...
1 OF
r------------l
' II
II DFH"TP:
~~~~~,> I ,-,
t~~u~st_.J
PAGE
CutPllt
r---~------------l
,.
II
I
L________~_J
I
D1agram • 5. ". 1-01
------------,
I
.
'I
1
i-~----------------I~~:i~~I-~~II-:::::-----------------1~:::1-~~-,-~!
I (021
!
!!
are turned on.
,1!Q31
r.::::.I "odul. D'R"TPC is loaded
I
program centrel XC1L_
na,
,I
I
I'
I
I
11"
U
(,.
:
!:
I,
:
,
I
,
processing status change
Servl.ce status cannot be
II
I
'I
changed.
I
I,
I
,
I
'
II
,
,
II
IrpF.!!'IPC 'tlTSNGBAt!s.2.3If
,
I,
"
IIII
II
:
,
I'
IDFR'TO'
',"TeO.DC"I
I
I
I
'
!
I\
t
,
I I I
requests are:
InqUl.rJ
f
1
I
AllowablE operator tminal
,
\
:
I
\
,
II
\
I
l ro.l
,'---
II
II
1CllHITPA J"TWHSGA I'
~nd Single l.ndl,catots \
I·
In the TeA, the te:r:minal,
: --' paralletaz:,
,
,
'"
,'I)PJP.TPC J Hl'C'l'RI1ST
I,
I
I,
II
II
,I
I
I,
I
I'
IIII
II
'I'I
II
'II
15. 2. 7
'I
I
,
,
,
:
:
:
,
I
,I
,r
I
I
,
lI
'I
,I
I,
I
,
,I
I,
I
I
I
I'
"
I'
I,
I
I
,
"
I
I,
I, I,II
II
,I
I
I
II
!
'\
!
I
I II
I
I
I
,,
I,
!I IIII
I,
I,
i,
,
'I
"
II
,
I
,
,
I'
II
I,
II
I,
I,
II
I
"
II
,
,
,
I
II
I
,
I
l ____________________ .! _______
, _ _ _ _ J L____________________
, ____
' ___ !..._---l,
I
,I
I
II
I
I,
I
I,
,
,
,I
!
operator Terml.nal
600
Diagram - 5.4.1-01
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -
PROPERTY OF IBM
PAG!
1 1').
r
r-----r-------"l--------""l
SYBtea---J
Statistics
Beguest
____s=.!" I
~rto-itatiit:lCJ
~A;tO-suti;ti~~[Stati;t1C;---~
Bequest fro.
Auto Iuitiatea
Utility Pro1raa
Tef.iaal
___ .:J2~.:2__
5.5.2.2
------
5 5 3
-----...:...~
D1aqra. - 5.-;.0-0'
Section 2:
Method of Operation
601
LICENSED MATERIAL -
I.pllt
PROPERTY OF IBM
-lesn csat
l
'roc ••• iag
saUDI
0<
f:l--"
r"'--!'!~!!!-~
1'e1'tl
DrastiC:
l--I:mo:r:J~---_-------) §]
[ ~~f~~
Chet lbe dl,gl,bUit, of
~bo
- PiG!
:3
'0'
O·~-------------l
IIG l'
rr[::::> [§!aA.:J
==:---1__ 1
nOA
~)
"9ao.UDiI tonhal
I
I
I
1
>[lhP;t or!!)
I
[**=:J--I- .@]::::.:::I,:::::.f;;""'-nJ'
![;~Aml J
0~!.,/)
gota atep "
>[~§:J]>0
@]
'c:~~~:J
D•• tinaUan ID
To•• for •• to staU.tics
II
.og ••• '
Zf , •• , 1'0 proc ••• re,a •• t
_
~]>0 ~~:J
[!!]
~~:!~~-l>[!]
CSASCPl
:::~~~:
----------) @]
-----......-.... )
IOlIt~..
I! 0_
.rat••
So. o.'p.' a"UD'UOD
1DcUe,tor
~~!-
[ill
r.at retarn coal ana •• na
corr•• poaaiD; •••••.,.
CSISCIO
~~2C
aUU.U,cs are
I
DlBsrlC
nl'>fII
--II t:J
~] 1.Ilf ••• pecUiea teCla.at
Late1
Bef
DrastIC
;:::----.,...-----------:::;;::--~;:;~-i-::;-l
--
~--T----I
tllJ . . .taa yi.. I. CSIl'l SBUfOI
I I
I I
rICJu••t, UU.• ch_c" 1. DOt .. 41.
@l
Z•• t ,1Iul10ItO," iA CSI ICSA
_CfKC, .la1ctt. 1ad1cat• • • rlga •• t
I I
I !
lto. lutO la.1tl.ated. lato
Stlt..lR.l.Ca to 8u4 •••••• g ••
~ C$Sl. 1. tAe 4a.talllt· a•• tiDaUoD.
olaSr&c
DlHsrKcg
[!!]
DPasrKC
I'S7CODI
DetuQ.a. ';.euu .lOa or soa va.
ra1ju••,ed aa4 e Met lbe label_
.t1.14 tor toUr-Claar.ctar
I
I
I
I
I I
I
4 •• ti.DU,i.OA••
1'111 cSllr SIlU'lDI reg.e.t
I
a.lvar.
outEUU: all re1."aDt at.at.i,_Ucs.
I
L_______~________
SJ8ta. S1:.atl..u..C8 aaoi.e.t ProceS.iDg
602
I
I
I
._____ _________..__ JI
.~
ntatra ... 5.5.
CICS/OS/VS Program Logic:
I ...
rl
Description
LICENSED MATERIAL -- PROPERTY OF IBM
r-------l
Input
Plccess1ng
-~~
I
I
r
§]
[--3-'-"r.=l
Vrito tho .tathtle.
~~_1_ _ -~/6
<'~~/> ---------~
SCP
Ren.
..
(!]=~)
[~=~)
B. Stora3e
C. PrO,)" ••
[~
I
'l'"ansiflnt.
Pat.a
destinlltion
II
D. Du.p
r.
lile
G. Tranaient Data
H. r •• porar, Stora1e
[~----,
aateDsioD
,U:e.
I
I. tel:ainal
(3=~)
fan
------
1.2. ,
fast
@-"
e -./
1~=~)
1~=~)
[!l=~)
I
.:I
I'~'~-
KTlnl
I
or
2
J_ =::::r~)
[- - = r -'-' 'r.l
~~-r/L.!J
,------,
PAGE:
Clltput
--.-,
I . Journal
[iCii!!:!:J~>0
I
I:----l I
reul
[ iCiLiiP' =,)fi1
I
\:J
---~---',r.J
!:~~~_ ---, I i!J
[iCiDSi'D-
L
ICl'DSID
I
lC'l'DSIIBl
I ______________ ---.lI
L
Syste. Statl.!5Ucs Request processl.ng
I
I
~
Diagram - 5.5.1-02
-----------------------------------,
----- --- ---- ~:~----------------------I-:::~: I-~~~:~--I-::~--!
--------------@)
Boutiu
lot••
Latel
let
.. Stou •• ConUal GlTftlll ia
I
1a.ued for .acll autistic
"egll••t.ed ... 'l'.rUai..Dt Data pur
,
to 'til. sp.cified 4 •• tiDatioA.
..
I
I
DOlif
I II
I
I
D,aStTB
DPUStTal
I
I
DlaSTtl
IlL!
Star·ie
DlUSTIC
S'fO&lGI
C. Pro;rs.
Dlus'nc
PROGBlfl
D. DU.p
gIBST .. C
I . Tel:si..a.sl
r.
DlUStTD
I
!
I
I
II !I
I
I
Data
I
I
I
I
GO
G. 'fra.a.a1eDt
I
I
i
!
DlllSTIC
111.
I
!
!
I
I
t ....
a.
I
!
I
ia i8aued to •• Dd .ach atatiatic
I
I
I
I
I
OPUS'f'fDIf
d. '1.sporarr st.or.;e
D1BSTtt
TBIHSTDR
II
I. JouD.l
DJUStTl:
JOOBMST
I
I
I
I
I
II
I
I
I
I
II
I
I
I
I
I
II
I
I
II
I
I
I
I
I
I
________________---------------------J
I
..
Section 2:
Method of Operation
1)ia~T'I!I.
-
:r.5·I-r2
603
LICENSED MATERIAL -
PROPERTY OF IBM
r--
I
I
[;;;;;;;;'1
---J~l
I
I
!
,
'.lI6 '
I
II
I~r.~::~
@~!!~:J
II
([~~Ciii:J
/~~~~~---->0
IlCtLBC
:Jc:ii;c-
:iCiisoc:iCH'iS--
I
IL _____________...lI
\ _________lI
L
I
II
II
II
I
I
1
I
II
1
I
I
I
I
I
I
I
L ____ . __________--.lI
DU.gral - 5. S. 1- 0.1
System Statistics Request l"tcx::esS1DjJ
rlotes
-----------I~! Labe~F'!
}--------------,------,---I--!I
1
,
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
!
I
'I
1I
I
!
I
I
II
I
I
1
I
I
I II
!
II
!
lI
I
I
I
II
II
,
I
1
II
I
I
II
II
1\
I
I
I
I
I
1
I
I
I
I
I
I
1\
I
I
I
II
II1\
II
II
II
I
1
I
III
II
I
II
I
I
I
I
I
I
I1
I
I
___-_________.!I___.!..I _ _ I
II
\11
II
I
I
I
I
I
I
I
l
IIl_____________________I
~
I
I
I
I
I
I
II
I
I
I
I
I
I
I
I
I
I
I
II
I
II
I
I
1 _ _ _ _I _ _ _ _.!.. ____
Syst\al Statistics Request processi.ng
604
I
I
I
1
n
I
'II
I
I
I
I
I
I
I
II
II
II
I1
I
I
II
I
I
I
II
II
I
II
I
I
IL
-------I---I---!--:...-I,
!
I
,
II
Notes-------------------,-::~t1nell LAb:,-;:;l
I
I
I
I
I
11
j
I
I
!.1st
J OF
OUtFut
-------~---------\
I!!!J ._..
CSl
,------------,
I
I
I
I
I
I
I
I
PAGE
Procecs1Dg
D1agra.a - 5.5.1-0.1
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
Input
1-----------------------1 t'rcn
\
£ll:acE.ssJ.ng
t:: fHS'I!le
I
I
I
t
[:rCAfCAAA] -i-----------'-.. >Il~~
I
I
r ------
!
Il 'ICT'IE
>r - - - - - - ,
I . . ----------->1
AU1:"ma1:l.C statJ.stl.CS
! reques,
t r-:;,
I
Lo~
\
r t:;::~_~1 : :
I-
I
,
I
I
II
:
I DFHSTSP:
1
TCA
II
I
IUser
I
I
I
I
I
I
-./1
I
I
Ir-;;]
I
\
I I
I
I
I eSA Optl.onal
1 F' eat ure s
I 1
I
[~~~O"~A J ll----------->l·~~ :::::~ ~ ::!~:~:~':~~·:Fen
II
I
III
- - - - - - - - ' III
II
I
I I
I
:
I
II
\
11-----------,/1
Ia~~:DBA
I Re~ •• st
"
I,
flag; Set ri:turn code
I
II
I
I
I
I
I
I
\
II
II
I ,
I
I
Sta:rt:
I
,--,,1
==1\======-I--' /,1
'
II
I
I
,-, , I
:=:--==~J-'/I
I
I
I
II
1
I
I
______ f-;:::)
-j"------l t
II
ICE; SEt lock flag;
return code
I
I
I
I
IIlell"eturn
,-,
I
Set
II
11
I
II
L
II
I
\
I
I
I
I
"I
.-,/1
t
I
I
I
I'-~
I
II
~
[~:::::oo:1
-Ll
I
'
L___________________Jdfh"tk~
l__________________J
eSA op'tl.onal
tI
Features
Ll.st
@SA
I
ST~
I
!
I
I
I
I
~----1
I
I
I
I
I~~~!!g~~,
"
ID-----'
II
II
ICSAADC~.J
~~:~~~~~
~
-
I
II
hut;
pr.mary
destl.natl.on; Establish
OF"n
I
I
II
I
I
I
I
I
prl.mary deStlnat.l.on lllDl.t.; \
Alt.Ernaee d.;!~tl.natl.cr.
I
I
)
Decoj~
numerJ.c
~ l.nputs: Int~rval lenqth;
I
l~~_a_--1
Cancel: Engu.;u~; ClOSE
Cancel ICE: Reset lock
;:~~---l------------..I, I ~l
I
De:lUeUEi 5et re't.u:rn ecce
current destl.natl.on;
I L __________>\
:
1
II
a altet:nate :leatl.naU.cn;
I1
II
l> L[:::---l-LI
,!-."
~~~~ig~~ I r :------- .. -- .. >1 ~~
I
I
I
I
I
I
I\
I~
I
I
II'
,
,-----'tLJ\ I
I I r-- ... -------->llOJI IN<,j: Set. IN" r-esponsE code
'I 1
L ___, I I
g~i~est
I
1
II
AnalYZE Specl.iJ.ed REqUE-st ---------,
l>;:~---lJ-l!
InOADBA
I
I ,--,
I
!
1 OF
r------------------,
I,'
\
l-lot':~::~/>I,.--", \
I
I
PAGE
au"tpllt
r---------------------,
I
II
1
I
fCillTSiC7
1
\1
I~~:~~g§~
ICS~POLI"
I
I
I
Ig~~:gZ~~:
E~:~
I
I
,
ICE
rI~i~IA;;'
I
I
IINTERVAL =1
~~~NSID =
I
I
I
~~!~~WJ
I
L__________________~
I
I
I
I
Dl.agram - ~. 5.2.'''01
Automatic Statistics Request from Terminal
,------------------------------------------,
r---------------------------------------------,
I
I
I
I
II
I
I
I
I
, Not.es
: R01.:tl.ne: LaDe!
: Ref
II
Natas
1 Rout3.n~l
Lab'3l
: Ref
1
1-------------------------1--------1----1----1
1----------------------------1-----1-----1---1
1.--,
I
I
I
II
speclil.ed, zo:::o 1.5 stored l.n tile I
I
I
I
absence of a TCTTE 1.lDplu:s
,tFHS'ISE \DfIiSl·SPHI3·5.2.::
CSAand l.mt:lle~ n.~ llml.t..
l
I
I
I
II~J The
automatic initiaticn.
I
I
II
I
I
I
I
I
I
I
Ir,;-;'
I
I
,'~J The TI0A ccntains a request. to
I
START, CANCEL, SWITCH, or ~NCr.
II
II [,'
1
DPHSTSP:
t.~'::/I._
TCA
r:~fCA~~T------------> IL~~ :::::::'c staUst1cs
I
I
I
I I
I
I r----------->,I@]En qu e u e l l l l '
r [~~OPPLQ ( I
I
I
11
I
I
,,
I
I
II I
I ~~:t~~~~cnal t I
I~ Establ~sh ICE for next
_! __.:_._J I
I
L, L>st
I J
I
1ntarval
-------~
r[CSAsrSr:D
I!rn.-'
CSASTOST ,-jI
CSA
ICE
nm~;;'--'I'
I INTERV
AL
=
P.HMS~~Qio!
=
STAS:~l
I
j,ll,
--------' I'
r [~~ATP
I
~
, L~~
vrl.te them to current
I
I
I!
collect all sta t1stics,
'TranSient Data destination
I
and reset them
II Cr~hSTsIN]~~L-----.,1
1051 Task statistics
CS. eTOOS
,/,l:::J
I [,g1*mA
A.
CSAKCftTC
I
,
I
II
I
I
:~~~
I
L _________
I
I
I
I
rcSASCAii-l~1.-----·, lOb]
1
nn~~s
I
L __________
'/I l:~
StoragE stat1st1cs
I 'lm~g~
- - - - 1I
!I
I fcSAOCKo-]---. 1.-____.,/ [071 OU'f statistics
I1
I
[:~~~
,
I
[I
m;~~on
1 r---------., 1['081
L __________
'/I ::.1
stat1st1cs
_-_L_--_-_..r.=.> I,
--'
,I
,I
:::====]1 I
\
,\,
I
IL..,'
------'
..--0/1
T---lil I
Typa
I
I
01 I
Cental.ns I
I
' SASTSIN
=
CSACTO~B
I
~
CSAJYD~
I summarYl
Record= 11
IType
!
,?vr~tten
'j~S~_Prl.orl
I'
_! __--.ll
"
!'
~:~j
T--li
II
_L __--.J I
l________~
! ___>~EMj r------vL________J----~
ATP
I Record
Header
I
D1agram .. 5. 5.2.2-01
Automatic StatistiCS program Automatic tr.itialization
r-----------------------I-----,------1 r--------------------i----,-------l
I..:::.---------------------I~:~:'I'~~I~~II-::~:-----------------II..:~~!~~-I-~II
I r;;"-'
't~ll
I
~
.
The presence of a facill.ty
»plus • usar raquest.
I
I
I I
ItPHS'ISP tDFHSTSPNISoSo2.,1
I
I
1
,
.
[~
The
Data
Collechon
rout1Da
\
!!
ItFES,SP
I
IAUTOIUITI
t
I
1I
I
I
I
1.-,
1
I
I
enqueues on the ad!1ress of the
,~
I
\
I
I
a
,
lock flag to prevent SV1tch and
Cancel hem. clcsing output
destl.nation dur1ng use..
II
The value 1n eSAKe'!TA 15 never:
"
I
Enter~d
,
Data is
record tc be written later.
~
SamE as notE! 5.
Sa •• a.
nete 5.
I
'f081
I l:::J
II
I
I : '
int~rval.
t~
\
I
requested
\
,l::':"
,
f1rst to c!oSAly appronmate th!
\
\
I tQb1
1
/
I
I
II tPES'ISP I,A(JTOINIT II
i
'
I
The ICE .ust be established
reset.
I
II
I
Same as note 5.
into summary
II
I
I
,
,DFHS'ISE 'TASK
I
I
'I
I
I
I
:
:
,
I
I
I
I
I
I tfHS'lSP I STORAGE
II
I
I
I
I
I
/
I
II
I
I
I
'I',I
!"
I"
I,
II
II
II
II
I\
II
,\
II
I
II
I
I
II
:
I
II
I
I
I
,
I
I
,
II
II
\,
I
It
I
\
f \
I
,
I
I
I
I
I
I
I
,
\
I
I
I
,
I
:
,
I
I
"
I
\
I
I
I
I
I
"
\
I
IDFHs,s, I,: D a f t p l l l
I
I
I
I
hPll!:'!S~
I
hASK
I
I
I
II
,I
II
II
LI _________________________________
I
I
I -1'\
,
I
I
I
II
,
I
I
I
I
,
I
I
L _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ ~ _ _ _ _ _ _ __<
Au'tolllatic StatistiCS P[ogram Automatic Ir.itia11zation
606
Di~grall
CICS/OS/VS Program Logic:
- 5.5.2.2-01
Description
LICENSED MATERIAL -- PROPERTY OF IBM
rI
r------l
ptOceSSl.Dg
i,;
i,;
f [~~,s;:iD [-[-===='>1 [~ ~:::::::!~Storage~)0
1
I
I
'r-1Pl=
O'H.rSUP
I r------,I,·[101
0_,1
~-,I
I
r
~re~: :Ir---'" ~
1pc,
'ri~nu
~g~SfC
II
I
l~
, ,'iPUI
o
~ ost
III
I
.program statlstl.CS
I
~I
I
I
~ Salle as note 5.
:!J
I'
~,~>
--,/0 II
Transa;;:-l
tion
Stat1st1cs
Records
Type = 02
one per
peT entry
used
I
JpJ:ogra;---\
Statist1csi
Records
1jnep~rOj
PPT entry
used
1
I
I
L -___________ _
1
_ _ _ _ _ _- . 0
llltoaat1c Statistics Program AlltOIlBtic Inlt1al1zatl0n
Botes
l
I
,
I
.
'I
I
-1'~)0
If>"
~~
II
__i
_L__
pr10r
ret~~
I
I
r---------II,rfm
.....----'/I~
-j
PP'l(J:C
I PPrTLB
lPPTBASO
L
Transaction stannics
JJ1,
r"[~:mnO
l~~_BA
I
I
b
i-l
.ritten
.
U
2 OP
1ar
5u.
Record
Type =' 11
I
1m if
PAGE
Cut put
----,---I-~:~~~~,I'~l
I
I
I
I
I
1
tHsm
I
UBS'SP ITESPSTOR
,TRANSACT
lomm
IPROGRA!
I I
Ref
1!_Hote: ------=_________ I~L~~-L:f
I
I
I"
I!
I!
I
I 'I
II
I I
I
I
1
\
I I
I
I
I
I
I,
!I
II
I
I
'l~
I
I
I
I
I
I
I
I
II
I
I
I
I
I
I
I
I
I
!
I
"
!
I
I
!!
I
II
II
\I
1\
II
I
I
I
I
i
I
II
I!
I
D18graa - 5.5.2.2-02
II
I
I
1\
I
I
!
I'
I
______________________
JIIl ______________________
I
I
I,
I ---'
Autoaatic Statistics Prc:gram
Section 2:
A~to.at1c
Me~hod
IIIitlallz8tl.On
of Operation
D18gralll .. 5.5.2.2-02
607
LICENSED MATERIAL -- PROPERTY OF IBM
Input
r--------------'I
!,
I
I
I
I
I
r----------·'llI2'
I I r------:--'/I' _-1
r'':''1
r;:----' I
L:~~~
r
I
TCT
lJ'
frefu
I
I
r fTCTmAl1---. I
[,cm..
I
l ----A 1/,1
I
II
I,
I '111
I IAddressesyl I II
II
I
1
\
I
!
Terun_l st_hshcs
/1
r> rILL~1snt.;;Efntr'y
\
I
,
'I
I TCTLEL.
ITCTtEPl
i'iCTTENI
TC'I'lEOT
I~mm
'I
I'
TenE EXT
I
"
I
j
I
I
I
I
,
I
II
I
I
II
I'
,,
I
I
,I
I
I
I
I
I
I
I
!I
II
' II
'II
I
I
I
I
I'
I
I
,-,-__-= __________-1"
I
I
I
I
,
11 II
I I '
I
I
I
!
rs;;~;;;:-;:-y-1
I
I I '
,
I
E~TESC~ I
I
~_, >I,
I
I
\'
II
'
E::~~I
I
I
\
~::~}
len tr y
'L
I
I
I ,
Tcnsc.T
TCTEtlCNT
"
I
' I
I
limm~ I I
IStat1sUCS!
H~~~r~so"
I~B~TEer
II,
II
,
I
I
I
I
I
"
I
,
h.rm1n~l--l
'I
I
II
11
1
I
I
I i¥ffi~~r~
"~~~£t;i~orl
l~~~}
I !r
I
l:~~_A
I
II
~~~ETl 1 1I
I
mm~
'
I
'
I
1
\
b
I
,.-,/1I
I
II
I TCTtE
'11
l,
r------, -~
ITCTLENJ?
1--
I
r-' \
--I----1
I
3 Of'
1--------------)
-----~
I
/ ------' I ' I '
\
I
I
I
i?AG~
Cutput
1-----------------1
I
CSA
,
Processl.ng
I
L - -____________...lII
I
I
I
I
I
L ___________ --1,
Autoaatl.c Stat1st1cs fro grail Automat1c Illlt:181izat1oD
D1agraa - 5.5.2.2 ... 03
.-----------------------------.
r--------------------------------,
'
I
I
I
II
I
I
I
I
I,~----------------I-~~:~~:!-~~
I~~II-::~:..----------------------L~:~~::t~:~_'-~I
I
I
,
II
I
I
I
@]
I
,I
I
12
I
I
II
,
I
,,
I
III
!
I
,
\
I
"I
I
\
'
\
I
I
,
I
,
I
I
I
I
I
I ro8S'S ~ I TEaffINAL
I
I
II
I
I
I
I,
"
,,
I
I
I
,
I
I
I'
,
I,
II
I
I
1\
II
I
1\
,
I
I
,
I
I
\
,II
I
I
I
I
II
I
/
I
I
I
I
I
,
I
I
I
I
I
\ ,
I
I
I
,
\
I
I
I
I
I
II
I
I
I
'I
I
I
I
/
I
I
I
II
,I
\
I
, I
I '
I
I
I
III
II
I
I
,I
I
I
I
\
' I
I
I
, I
I '
III
,II
I
I
I
,
I
I
I
I
II
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
II
I
\1
I
I
I
LI _________~____________ L ___LI ___~
__._ll, _________________________JI ______! ______ ---1
Automati.c Stat1stics Program AutomatJ,c InltlCJ12atlon
608
Dl.agrafll -
CICS/OS/VS Program Logic:
5. S4 2.2-0j
Description
LICENSED MATERIAL -- PROPERTY OF IBM
---------l
Inpu,;
fl:ocE:SS1ng
I-~~--l
[~
r [~ifn~!~
II
!
I,
,r-r-:=::::~>II t.!::J
TranS1.8nt. Data Sta.'t1StJ.CS
~,'
==1':--=::'~r-11
q
or
b
~----
'1 ,1"
gt!~:::::sl
~;~~r~s05 :
I
l>Or:::"--fll.J1
I
TDDCTDT
I'fDDCTDID
t
ITCDC'rOS
1
Im~m&
t~~g~gg
'
I
!
!I
==11
I
I
I
I
/
I
I
J r
I
\
-I
I
cs "
===l-L'I .I~~~d~~iry I
I
Ir~)
\I
I
1,1,
!su ..ary
>
I
:
---
I
~gf~~~
II
(I
I I
I
I
IJCTBtc
JCTBSUC
I
I
I
1/
I
I
I
1
ITl~~E~:~e~
1 I
l2~s;;_ ~r10r I
"
~~rn)J
'I
[~:.Q Illr--=)I~ ,...~, ."".~. -ifF'l I~!:~I
[jcrJiiiii=
--I-:::::::::!J . I ~2..~
I
I
l~~!m ~
/
I/
(
!I
I
I I
I
I
I
!
I
I !
r [CSAJCTBi"]:
I
I
!,
II'
I
I!
II
',I
i
!I
I
I
l__________J
L___~______~
Auto.atic Statistics i:'tQgralD A.utollatic IJ:1tieli'Z8.:;ion
~e-s-------·-------
I Beutinel
Label
r.:::------
IJOUSNAL
I
I
I:
I
I
I
III
!
I
I
I
I
1/
I
I
1I
I
I
I
I
I
1
\
I
I
I
I
II
II
I
I
I
II
!
II
I
I
I
I
II
I
I
I
/
I
II
IIII
I "
II
II
I
,I
I
I
I
I
I
I
! II
II
I
/1
I
I
III'
J
<-----...-Di;gr:;;-:-5.5:'~
Ro::nel
1------------·------!---!----- ---I
I Bef I
I@J --------------j~;~I~~I--!
IS
IDmm
I !!
-
PAGE
Cut put
,
II
I
Lab:--~
I!'
:
I
I
III
I !
I
I
II
I
'II
d
I
I
II
I
I
II
,
I
II
I
I
I
I
I
I
I
I
I
I
,
II
IIII
I
I
,
I!'
I
I
\\
1
1
II
II
II
II
I
II
I
II
II
II
I
I
I
II
I
/
I
I
I
I
II
I
I
I
I
,
II
I
I
II
II
\I
1
I
I
II
I
I
II
II
'II
II
\III
II
/1
II
II
I
II
IIII
II
/I
I
III
I
I
I
I
I
II
I
I
I
I -______ __--_________'I. _____II _ _ _ _
II _.--l1\L _____________________.___.!..-_____
I
II _____!I__---1I
L
I
II
~
Auto.atl.c statl.stl.c!': Frogram AU't:omatl.c 1r.l.t:.allzat;1oD
Section 2:
Method of Operation
01.agraa - 5. S. 2. 2-04
609
LICENSED MATERIAL -
PROPERTY OF IBM
r-----l
_~[}
PAGE
Pile stat.stics (eJ:cept
_I
, --'
I .
DL/IJ
•
Pile
Stat1stl,CS
Records
I
= Ob One
per reT
Ir)
~ri~::1CS
t
5 Of
~t'irp~rPe
entry IIsed
1'11e
Records
Type = 1.
One per
::z~ent
YSAN
Shared
Resources
Records
5l£ep:rO~I
S1ze used
Sa ••ary
Records
IY~~
•
11
~
J 1!!.s~_~r10r
lfr1tteD
~urnJ
I
__
L_________
----.J
Dugru - 5.5.2.2-05
Aatoa.tic Stat1st:$.ca PIograa luto•• tic Itit1al1zatioD
I
Rouune
Notes
Label
passes of tae
are aaela.
\@I Tvo
Tbe .f.1.rst gathers all stat1st1cs
let
\
ex.cpt ttl'I and notes 1f DL/I
files atE present.
II
I
610
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -
rpr~o~c,~.~S~S1~u~g~·_____________
IDpgt
.~~-----',
Jg~g~a8
rC'IDLGI
~-----,I
@]
Pile statistics lOLl I)
rCTDLGIP
ICTDLGBU
ICTDLGIIY
ICTDLGSP
rc'tDLISR
ICTDLRBP
ICtDSTBL
ICTDLBT
PROPERTY OF IBM
output
l
~,
1[
----------1
PIG!
b 0'
DL/irn~
St.atistics
'Records
Type. 01
One per.
I
~;~dentry
-,1
@]
Write sUllary records
@]
Exit
=--==11_-"
~--,~
~s~~~m J
iY~~ Da~~
collected
througbout
Progral
-----
[ ;;;=~
----J~l
, I
•
I
I
I
!
I
I
I
I
lutolaticSUt'1';ti~irO;'ra.a Autoaatic IDltializlltio-u--------------
Hates
BoutinG
~ Tbe secondl pass o'er tbe reT is
Latal
DIHS'lSP
DLIllLBS
Ol'HSISE
tOT ItS
___________________J
.
Dlagral ..
5.~.:Z.2-06
Sef
lade only for OLII files, if aDY
are present.
Au.to ••tic St.&tiat1ca prograa loto.sUe In1t1alisat10n
Section 2:
Method of Operation
611
LICE~SED
MATERIAL -- PROPERTY OF IBM
r~-----I
1
I,
hE
.
j§J :::::.~.... ......
I
Tl----------->! §] :;;!
/ I f----,,'(~
I
/ .j
II
m~~.iioO
"
"
...., ... rl"1....
~l
r'
r!§~;:10'::~...... ..... L-r,=:) ~--:--"
u
and analyze «ccrd
I'roca •• header record
I ,[--------'//
r;:--".-:-,-U
I
lilpo =
l Ko~g~a JlI'-----"/ [051
------I 1 r--------'/I:::..r
fm~1-1
Ij§)
-t1~n!
tRecord
1I-·
-----"\
-I r--------'/ Ob, froe"ss progre.
01 , - -
riuer~~31--1
I'
l!!:~---1! I----'" (071
OiII=.r-------'/I!
I
=
Trii;-.
:l----r;::::> ,
1
I
Process terainal record
oj
I
I
TI
:.:.J
1 OP
I
Proceos tran ..ct10n record-!...
rec~ra
!'AGB
Header
13,n8. for
De~!!!
1
J
Re~
r,::::>
oeu;::r-l
L.1.oii-for I
__ ~ ,
-~1~~~
Transa~
/
I--r;=:>I
- - - - - - 'r .......
r-:-'II'
-f------" .
-_..
- - , _ .--.
.
oatarr---'l
tin". tor
Tar,1Dal
I,
08.0.
Tern •• I· i
!!:~-'
I
I
.J
L
Statl.st1cs Dtl.11ty Pr09r_
I ~ota.
-------I~::~::l=~
I~ Tha I'ABft data con spec1fy the /CPHSTOf /I'ARftCH
I
I
,
nuaber of h.nes to be prl.ntad
por pase of report and 1fth.
datul raport 1. to he produc. d.
![§1
If the d,tul report .... not
SpeC:lf1e4, only type II(su •• ary)
:
records Itr-' processed.
I!B
I
1
612
I
I
II
II'
!'ROCHAn
CPRS1UE jURftIHAd
I
/ '
II
II
\I
II
II
~____!__I__JL.__
Stat1st;i.cS Utility PJ:ograa
1
I ·
II
hRU~ACT I II
I
I
I
ef
11
I
!~.THBAoal
!DPHStUP
\
·g
t,
I
I"
_L:::::I~
I
II
I'
, t:..:J
-
I
m.
I
(PHSTUf
!IB
!l,lo1l
I. .
CHSTOI' ICBTRBC
OPRS10E
P~)
~--
J
!' ,,·....
II[§
-
l. .
I '
I
!
R9'
1
lJJ
-----.---:.-.-
CICS/OS/VS Program Logic:
Dl.agra" ..
5.~.~-Ol
Descripq.on
LICENSED MATERIAL -- PROPERTY OF IBM
I
------,
Input
,
r--------------1
"
;',:
'I
[T;P;-;051=:-l-1
-------.J'll'OBl
ITransient i I ------,/1 ~
I Data
I I
1Reccrd
I
I I
I
I
'ITH
___
Q;;lJ..._\
I
ro-,
e = o. III ---------"1 ~
:
Process TrllnS1ent Data
reccrds
'-----' !
I',
l&ec~rd
I
t II
,
,.-----,1.
I I:
m~iPt
\
---
I
11
I
iseqllont
:
I
:,1,
.
I
I
,
I
~~~~1
I
I
I
[J~P~2~
1\
1
jl
I
I
d----.----'y::J
I
'I
I
I
11
I!
I
I
-----------~_:::/
Labe;:-r;;:l r,;::---
I
I
ID'HSTUf
1'lLE
,l
I@)
!
I
!S
I
/msTUf
I
1
IDLIFILE
Su •• ary data is collected for np I'CPHS10J; ,TOTALS
\
to 10 intervals ,and pr1nted
after 10 i.tenaJ.s or at end of
I
£11...
\
',f"i3'
1t..:::J
,
I
II
I
I
I
/
rHS1UfjJOUBNALI
I~
t
I
I
I
I
1
I'
lDPfls10E lTDTALs1
I'
I
~:~:~:~a::\:<::1::'d t:: :::.:~y I
1
1
I
I
I
I
------::-L...,'
,l_./,
I
I
1
1
I
I
I
I
L __________J
I
I
"
01agra. - 15.5.3-02
1 Ro:tJ.n.1 L:;;:;:-'~
--------1---1---1---1
,
I
,
,
I
II
I
I
I
I
!
I
I
I
I
I
II
,
,I
II
II
I
II
1
I
\\
I\
II
'
II
::
"
'
I,
!!
I'
\
II
I
I,
" I I
I
I
I
II
I
,
I
II
H
IIII
I,I
1.1
I
I
I
,
I
!
,
I
'I
I
,
I
I
1
I
I
,
I
I
! !
II
I'
I
jl
t
"
I
I
I
i
I
I
I
I
I
'
I
I
I
I
I,
I
I
I
! !,I
,I
I
II
I
I,
I '
I "
I
L ____\ ___ L_JJ._________________' __ L ____ ~
Statult1cs Ot1lit}' Progru
Section 2:
I
II
I1
I
L_~~ ____________
1
I
II
I
I
I
r;;;;~
iEines for I
h!~urnals
~ed
I
,
I,
~~---1
I'
II
I
I
I
J 9.~~I P1ie S I
I
II
)
I
1
\
I
!I
for
II
II
' I I
In addition, totals for the
entire pEriod le8sured are
I
1
T----'
\1
--/----1---1--11----I · II
Ims!OP rRANDATAI II
1..--.
~
,
IL1n~s
-!-~) I
L ________J
t___._____~
I
I
:=--~) I
1
I
Statistics Utility Progt8a
i Nate.
Accu.uJ.ate totaJ.s fre.
su •• aI@J
II
Process journal recold
dest1na
I-t1ons
I
,
,
t Data.
-, L-. \.
I '
I r-----'"I r:j21
11
I
I1
I
IOetal.l
L1nes for
Trans1ent
_~ _ _ _ _ _r~)\1
!
3
-J,-o/l I,------,--1
' I
I
---Ill
!
Process DL/I re,cord
.
yp.70al=
Jcu~~~l
'I
I
I
2 OF
------------,
I
-0,1
I"
I
\
------' fJ-----::::~>\ [!!]
\
tutput
:
I
----~
I
I r-----"',rfi01
I Ir--------"ll.::.J
fTiF0707l=
I
!~e~~I@:J Entry
f
: t
"
I
I
I
I I
I I
I
I'
no,
-
rciillR--l~
I Message
I I
~-----.1
'ICA
--_.I,: rloJl
1
I
1\
I
I
I
I
I
f
BUJ.ld lnpU"t and output
neTs
:
~nto
EntEr BCA
Be!
chal.n
I
'r-l
I
r;;l:=~>ll~ Get first terml.;}al dat3
J
L_..
I
I
I
I
,
I
messag.::
I
\fO~
II -
Execute user's t:!Xl.t
rAl:::~)Il~J itrlte to l.ntrapartl.tl.on
I
,-
prograll
~t
any
I~-,
I
I
1
J
;
\
I
,
/1
\
fcl=:>1
II
L:..
I
I
I
I
II
I
\
I
======::::>1
II
If~~~~~ter
I
I
~_rnJ.~ l
I
--
I
I
I
I
II
I
-~-
"~CAnCTE---11
1
I
DU"1i
TCTT ___J
I
I
I
f"ECACiiAli--l
I BCA ch al.n
t
,
If
t~~~~_j
I
II
':J:-'==l \
L _________ J I
/
II
II
I
I
-1-----..
I ________________.JI
L
I __________________ lI
L
1
II
\
<~~~~>r::p
II
II
f
f
queue
I
I
l'SCAoELii11
r-;:::
>I
r
t
:f If
--------'1
I
I
:I
1
I
\
L1
I
I
..-:'-:-1
Il~
/
:::-',~)fC1
I~~~~I
IBCAPA5SIj
I
I
I
I
I
I
lBC'AwEi
I
I
I
I
1[-;'."1
TeTTE
I
1>.-____
'_.J,[_'
I~~ii~~gl lj"l/:1
l~~ ___ l
-------~
I
I
2
BeA
I Password
I
1------1
I ECADLf'!L
f
_.!.-___ J~) I
BUJ.ld dummy TeTTE
I
_.J
I
I
I
\
1
rTCA"'iCAAA1======::~>', ~~
L______ ..
II
-1------1
I
[B1---," -,
)[.1 -,
I
I
I
II
I :
I
I I
II
(Al:=~)1 L~:J Extract parameters, l.nlOert-----J I
-~
I
uta BeA
I I
I ATP
I €xtellSJ.on I I
l~~~ ___l
II
I r-:-,
I
I~i~i t~~t·1
II
messa'je J.f any
I
b r - - - - - - , _!-l
1 0F
I
r;:::>'1
analysl.s, print
I
I
I I
PAGE
Output
r--------------------'
I
I
1-------------1
processJ.ng
OCT
/To DCTIO-r
IDest1na
tl.OfJ 10
I
I
I'TDoCTO-T-1
I Destl.na-
I
L~!E~J
TOOA
I
I
Ii
/
LI ______________
Dlagralll -
ATP InpUt PrOCESSl.ng
~
5.b.l-01
r-----------------------------------, r-----------------------------------------.
I
I
Notes
I
I
,I
ROlltlnel
Li:1bEol
I
I
Ref
II
II No'tes
\--------------------------1----1--- 1----1 :______________________
r-,
I~~
Of'HR011S entered froQl ilFHRD2
I
ICfEFCl
I
from the
1
I
program 1n res?onse to a CROB
I
I
I
Terml.~al
Control
command.
I
\
\ fOJ1
C.
The CBCR TC'l'TE 1S cop1e1 to
BCA ana frHd
th~
frcm the TCA and
terml.oal storagoa.
r:-l0'4~
-
I
I
f
IOFHR01NA
'~
I
11
I
I
I
II
1
\
II
I
t
1
I
II
I I
II
II
I
I
II
II
II
II
Ilo5l
1I
I
I
I
I
:'EJ
IcPRH2
I
I
i
I
1
l __ oJ
\
l~
!
{
I
I
I
I
(~
1II
1
I
II
1
Input messages are blocked 1n
I
the TOOA. . . en the block 15
1
full,
a DFHTO 'IYflE=PO'I
instruc'tJ.on is :lssued.
I
I
I
1
I
,I
I
I
I
I
f
I
I
I
I
I
t
I
,
\I
\
I
II
11
\
charactH.
I
I
I
I
I
I
I
I
I
I
The Oestinaticn IDs are
I
I
\
I
I
t
I Ref
I
I
COD structed from task IO
concatenated wJ.th d destl.Oatlon
Labal
-----1-----1---1
I
II
I
!I
I
,
I
II RoutlnelI
I HDRC"AIN I
\
II
I
I
I&DRXNrRY!
I
I
I
I
hORTDPUT!
I
II
I
II
I
I
~
I
I
I
I
I
I
I
I
I
,
I
I
II
II
II
II
I
I
I
I
I
I
I
I
I
I
I
I
l _________________________2. _____2.____ -'--_--1l ____________________________-'- ____-'-____ -'I-__---1I
D~a9ra.m
A'Ifl Input Proces:nng
616
CICS/OS/VS Program Logic:
- - 5. b. 1-01
Description
LICENSED MATERIAL -
----,
InpUt
A~~:Al
~
Batch
CClntIol
'na,e~tors I
--\'------------->!
I
I
I
~ e~d
I
At
I
I
1
..::n ~.tectad
,"
j~ aeturn to
I
I(§
I
I
A OPH!C TlPE:ATTACH
.aero
I
,~
I
,
IS
1 DPHOC nO!=B!TOBH . . ero
I
,.struction i. is ...d.
I
1
I
I
I
I
I
II:
1.J.bj
[......j.,
:l
I
\ V
\
I
I,
!I
I"
I
I"
I
_j_~~1 Laba~
I,
II
laDa"SGO,
II
!
!
I
I
IIII
I
,
II
'
I
I
IkDRPAN,
II
I
III
I
I!
I
'
I
'
II/
I
II
Method of Operation
/
'
,
I
III
I
II'
I
II
I
I
II
II
II
I
I
!
!
I
,
I
,
I
I
I
!
!I
I
I
,
I
I
I
I
I
I
!I
"
II
,
I
I
I
II
I
II
I
III
III
III
II
I
1,1,
I
II
~
l'U IDput Pro(:R891n9
I
I
II
I
II
I,
I
I,
II
/1
I
I
I
I
I
,
5. b. 1-02
______._1~1~_I_aef
III
'
,I
I
01a9r8o. -
I
I
I
"
I
I
'I
,
1<---_______-'
I
I
I
lomcl
I
I
"
I
I
I
I
II
II
11
I
I
I
I
I
!!-"OUS-------
aef
"
I
'
!
!
I
I
II
I
"
,
I
I
IJ
I
Section 2:
I
I
'IIOA.
I
OCP
I
I
I,
I II\I
!
I IIII
I'
I
I
'
I
I
I,
I. .
/ 1
II II
I
!
I IIL
L ________________________
II
I
L
I
I
I
_~!
1.I1struct1on 18 l.S!3oed.
"
.------.'1
-----"1
ClCS
I
I
I
I
I
I
I!
I
-------
I
o~etD.tor
::!/I
Z
I
r-" r.c--------L-l
I
2 OP
I
3- (
Send lessllges to
PA.GE
'I"
11
I
1•• 1 >,KCO 1.1.1
I~
I
I
I
Notes
UTACH
of ,nput.
ClTP 1£ DO artOl:S ha1e
'...--.1 --------
'
I
I
,----------1
proceSS1.ngO
,...U-,tp~u_t_ _
, <
l"rP I-np-u-t-O-xo-c-,s-'-i-ng---
PROPERTY OF IBM
,I
I
I
I
I
I
________________________________ ----'
Dl.agraa - 5.
t) ..
1-02
617
LICENSED MATERIAL -
PROPERTY OF :tIM
r---------,
proceSSlD9'
r------
Input
!
If;1-.
:
I ..:.... '. ,
I, DPHATP:
1
)
r~::-f--l-----"---":::!!>l@i]
I
I
l"'essage
E~~-----
,
I
[s.CASTAGE1::::::;'L-----,
I status
. L_ _ _ _ ,/I 1021
~
II
I~~II
I
i
I BClkRE WREJ I
l~~~
II
II
I,
I
A. Skl.p BCA l.f in held
status
l.Dl.t1.8'tl.OIl
c. If 1D progress, go to
ATP serVl.ce anal!f1s
D. It ready tor Oqtput,
scbedule the C iI'l'B task
I
I
by a caDa
\
I
purge
I
I
!
I
A DPHKC TYP!-SCEEDOLE .aero
I
R~
Label
I
1
'I
I
I
I
I
I
I
I
,
!,
I
IA'XPOPSCH
I
I
1\
II
II
,
:
I
II
I
II
II
II
II
I
II
II
II
II
II
I
I
1\
I
1\
IIII
I
\
II
~--
I
I:
I
I
:I
I
I
,
I
I
I
I
II
I
II
1
I
!
IIII
II
I
I
I
I
I
II
II
I
I
I
I
I
I
I
1I
II
I
I
I
II
II
I
I
I
II
I
,I
II
I
I
I
I
I
II
I
I
II
I
I
I
II
·1
I
_____________________
I
I
I ___'I'L ____________________________________
I
,
I --I!
1
41'P 1'rall.-ct10D Control
618
I
11
!!
II
II
,
I,
!
',II
I ATPBCANLII
:
I
------- ---1---- ----I
I
I
"
I
----------------I-;::~:nA: Lab:--~;-j
,
I!
I
I
I
L_____
.
jll;
Notes
I
I
II
L ________--'
II
II
II
I
I!
,
II
E~\>
IS:b!~
___________J
I ",
'I tHATP
"
I
~
/
-···2.2.
1
and DO ":lE, go to BCA
IL
attache a ty CRDR, .tap 1 is
1SSu.d.
•••• , >
I
bypass.a.
,.
1
I
--- I Routinel
transachon
or by
Tau,.al
Control
-p:rogra.
1D the
response
to a
ter.inal co •• and ,CA1'.PJ. If
O.
15:b!~.
~I ,
D18gra . . . 5.b.2-01
1(0i7
t -'
I
I
E~\>
E. If outpu't in progrEss
1-------------:-------1-----1-----1\
I{§
a
II
I
/1
E:i
'>1KcPi:1:9--~
- , / 1L
- _ _ _ __ J
Transactien centrel
I
I
1-------./1
______.,1
I
I
ATP is attache
II
II
I
I
I No~es
r
1
Analyze BCA status
to task
I
I
1:J P
terIl.ne1
I
I
''I'p
Process the CATP request,
release the attached
B. If ,.pUt coaplete, go
I
PAGE
Output
Dl.agraa .. 5. b. 2-01
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -
PROPERTY OF IBM
r------
I
~ letun to BCA analYBJ.s
L_
IF
I ~:=I~I
Imllml 11-'- - Bet
'l'b1s entty 18 os,.a whep OGe
aSYDchronoDs task teI'auatas anil
"nothel' 'a, be reaay to start.
I
I
I
~ 'fb:1. s eutty is used vben a batch
18 lark,a reaay to process.
!mJ
II
~
!
I r
I. "", I
I I
"PlEIca
l.
A PPBJC 'l'!'!IIIISCEBDULB •• 01:0
UPOPSCH
:a.nstruct;:a.on 1.5 lSs._4.
De1111l.t.er tabla 18 bul.lt fro.
tb.. fl. .. la stat't and. f1$ld
sepaJ;ator cb,ractexs o~ the 511.
I@) ,
prRKe nn-UtACH .aero
instruction 18 1esu4.
UUTtCR
I,
,'!peCHS
II
III
Section 2:
--'~
Dug. . . - S.
b. Z. 1-01
,---,--,
I
Ro:t1ne
Label
~I ~
I
I
I
I
I
I
II
I!
I
II
ATP 'rask lnl. t1iili;--
JI
L
I
I
.-!...-.._JL_____"'- __~J
Method of Operation
t>lagta. .. 5. tI. 2.
'~01.
619
LICENSED MATERIAL -- PROPERTY OF IBM
r--------------j
I
I1
\
Bq
I
r-_BCASTAG_E
J--I------------->,ll~.!.1 Deterune the serYlce.
II
N_D_A _
L'_E_CA_I
!
'ItOA
[---~--L
Out Eut
---.
~!!_a_
I
I
I
proyrall and WRI'lE Or IlPoAD
II
as speclfled
II
1.-....
---------. /
I
TJ I
!
I
I ----------'/1
II
,
!==--=__=-J
111
\
I
I
user rna regu.st
_::1
'I
II l::J
rn7.1
o '"
I
I
1
\
1
p l~g
tile BCA. ree.dy.
1::'::': Return to BeA 8nalYS1S
II
I
I
! .,
!1
I
,
.
I
I
I
E~
I
15 • .,.2
I
I
I
\
I
\
I)
I
I
I
I !L -__________-1I
!l
>
-!-------
1-,1
I1 1 rt>C:IOS•
I
I
r-'r-'
,--
I I !,
\
!
I
(/j";;j '>fTDPi:"7.T-----:]
I ',.--,1
1 ' - -__ ,,'(031 Proce ..
1I
I
1021 Process user wr1te rEguest---------'\
;~~-I--l
!~~t!·pu~.J
I
l-----,1
----.I, I"'"
I\
1
I
L-___________--1
________ J
Dlagral .. 5. b. 2.2"'01
AtP Service Analysis
r:::----------------T::~: I
Labe;:-T::;:
I Notes
1-------------------1---1---1--\11~
~out1ne
I
\'/
II
r~2
I, t:::l
\
I
Tbls
is entered e a c h :
,ATPSVANL
!!
t1.e a BCA 1nd1cates aD 1D
,
progress status.
Data 1E .o'led to the output
baffer ~ lfhED buffer is full,
1
asynchronous appl1cat1on
I
~
I
or
reyuestf,d by thi:
1
I
I
1
DP'IATP:
II
I
---------l
PAGE
output
,---------------1
r=L"
I
e':::..)/I.-=
processlng
Input
II
,
I I!
,
~~ svA ...../
11 •••
,
11111
I
Ro~:ne_II-L~~---II-~~1
I
I
/
I
II
II
1\
I
I
I
I
I
I
III
I'
,
II
"
I
II
,II\
II
,I
!.
_ _ _ _ _ _ _ _ 11
\
Dl'HTD T1PE=POT .acto 1nstruct1on
I
:
I
15 1ssued.
1
I
,
II
I
!
"
I
I!!I
Ij
II
II
II
/,
:
"
1
I
!
,
~
I
The next l091 c al input record
moved frem the TPU buffer to
the TICA.
is',j
I
I
IA'I'PSVARD
I
I
I
I
,
1
I
I
I
I
,
I
1
,
I
PI
I
1\
1\
I
II
I
' !
)
I
I
II
"
\\
II
1\
I
I
I
I
1
!
I
I " II
I
I
I
I/
l !
/
I
I
I
1
II
I
II
1
IIII
'I
IL
,
I l !
I
I\
!I
I/
I
I
I
I
I
I
1
I
t
I
I
ATP Ser'l1(;e Analysis
620
I
,
,
I
I
I
I
I II
\I
I
,
/
L-_____________________________---1 ____________________________
1
I
,
I
/
/
(
\
~
Dlagra. - 5. b. 2.2-01
CICS/OS/VS Program Logic:
!
Description
LICENSED MATERIAL -- PROPERTY OF IBM
Input
'
1---------------I!
'
r---~------------l'
r:L r::~:::'-------------l
I
~"·1
tr:~~---,
I
I
'I
i~~!f~!l
,Data
,
L _ _ _~
I
II
I
:
BeA
I
I
I BCANAtlR
~~~H~g
I ~~~_s
.. t ..
IL
l
\'
_II1I 1!
l~~~iegiLJ
I
------
,
I
I
I
I',
\
I
r=I
'
\ l--·-------->'r~
I
I-
!
I'
I
I
I '[~
I
I
I
I'
\
~
I
/,'I
I
I/
I'1f\:1
I'l
I
II
Tr£~-A---i..!...------"\Iron
TOt ADS!
---------,1 ~
I
~ut A~
,if~~S~~ta
I
I
--
I
Process any SAVE,
D'ELETP,
BUl.ld a ~ RE ,for each
tarnnal that is to
raeeive output
temnal
Get a logical record
,
I
I"
or iELEASE r e q u e s t s "
I[~ ~:e:::E
,
L~~'::l
I
l
I
L __________J
'I'
!Tiiu;;OX-/
I
\
user exit program
I
.
I
Status
I
'
II
!
fT~S;--l
I,
"\
2
I
I Password
I
I
1 at
TOA
\,
J.ocate the. reguested
1
I
1
-,------1/,
batches and verify
passwords
PAGE
1,'
I
I
I
I
'
, I
-------" l
I
Scan tba BCA chal.n tc
I~ TerslI1nate C~TR if it is
lIorkl.Dg wit bout a rea!
I
I
~eywords
I
I
I·
I
I
,
Varlfy
------..1'1 ~ Ext.ract parameters and
-----,1 \
~Dsert l.nto TWA
I;~~I '
!
>1
------:::!~" ED
-1 r--------'/I
~utput
,
t
I
I
I
I
I
'
I
I
I
1
I
I
I
.-._'\1
_ _ _ _ _ _ - . 1 'I
"RE
1-----./1
I
',I
!
I
J
I
I
l~---'/l
I
I
I
I
\
I
L _________~
L __________J
ATP out.put PIocessing
(!:'''\grl'.'' -
~.b.J-Ol
r------------------,----,---'--11-------------------1---,-----:1
:~:.._______
I~
I
,
I
H~)
DFaWT1 15 ent.ered
---t-~::~:I~~~I~t :~_s
:tesponse to
a em or em reguest.
I
The request. is scanned fo~ the
follov1ng ~ey."ot:ds; OSLET E,
:
SAVE, RELEASE,
I,(§
and STATUS.
The VRE cbain is scanned for
I L--' dupl.l.cates and the WRE entered
10 the ebau.
'r;;:il
I~
I
I, fOB\
CJ
/
,II
I
I
I,
I
I
,'I
I
,
:
I
,
I
I
I
I
,
I
\\
II
"
,\
" / '
1
I
:
II
II
I
I'
II
'
I I
I
IWTRGET'L,
, I
II
I
I
I
II
II
II
II II
'
I
I'I
I
I
I
I
1\
I
II I'-=05
U:JI
!,
1[!IBU'
,
I£PR'T2 1
I
I,
I,
I
I
I
I
I
'
I
I
I
I
I
I,
I,
I
I
I
I/,
I',
L_____________________ ______ -.!.___
~
,
'
I
I,
I
I
,
I
'
I
I,
I
I
,I,
)
,
II
III
I
I
1
\
/'
I
I
I
,,
/
I
II
J
I
!,
,,
"
/
L __________________,,_____
~
,
I
\'
I
I
,
I
I
I
I'
!
I
,,
,I
____ !.. _ __.l
D.l.agraa -
Method of operation
'
I
I
,
I
I
I'
/
I'
I
I
I
I'
I
I'
I,
I
I
I,
I
I
II
,t
I
/I
II
\I
II
II
"II
\I
II
'III
I,
II
II
""
I
I
I
"
~___1
ATP output PIocesslng
Section 2:
!
I
! I' II
" "
,
User oay insert a record.
______________ I...::~::I~:~J-~!
I
I
I
I
5. t. j-Ol
621
LICENSED MATERIAL -- PROPERTY OF IBM
\
,,
!
,
Input
,
,
I
!
',f"Q91
L::J
I
!
!
l
r
Processl.ng
r--------------l
I
I
Wrl.te. cutput
~
I
-,/
I,
I,
\
ATP
,
output Ptocessl.ng
Label
I'
I
I
L______ ~
a:;Jj II;;::----------------r;:Qt1nOl' ;:::-r~
I~ ---------------r-----I~~I--
I
ttfE=RETO&N aaero
10 struchon 1S
l
I
I,
D1agrali .. S. b. J"02
r;;:::-------~-----l-;::::nel
16 • orHPC
I
I
!
J
I
I
I
,
I
I
'
,IL -______----.J\'
l\___________--.-1I
I!J
'I'
'\
I
!,
\
c==--)
I
I
,
I
I,
,ssuod.
,
II
I
I
I
I,
,
I'
I
I'
I
!
1
I
I
I
,
I
'1------------------ ,----'
I,
II
\\
II
I IIII
\
'\
"
,
I
'"
I, "II
I
II
,
II
II IIII'\
I
'I
,
' I,
I
I
II
I
I
I
"IIII
I
I
II
I
\1
II
---'1---"
I
I I'
I
1
I I II
II I' I, I,
I
I
I'
'
II
I
II
I
t
,
I
I,
I
I,
I
I
I
I,
I
! I'
,
I
I
I
I'
I
I
I
I
I
I
I
,
I I
L ____________l ________~ L_________________I ____
l'U Output PIocessiDg
622
2
L~>j~cp 1:-3.0----]
I
I
,/
~'r.1
I
,
!====:,J
chun
L....,
Il!2J aeturn to CIes/vs
2 or
~------
Rellove the WRE fto. thE!
'
j
,
d.ata to
tern.a!
PAG!
OUtFut
I~
I ____
D1agr . . . . S. b. 0$-02
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -
processing
[:1
---1
1
DP~AQP:
~~~/>I
PAGE
Output.
!
,: --', I
PROPERTY OF IBM
1
or
1
~
,r,1
I~ Load the Batcb cont'Icl
,
\
I
~
,
Area ,OCl) to be
pur~Ea
Rehase storage ass.gnod
to the 1nput quoue
I'
\
ZZZZZZZZZZ?~,/
\
I"
I
'!CA
I
I r:
-----I I\~I I
I
L_.- .__..-J I
I~I I
DP 1.1.J
II ~
Bele.se storage ass1gn.d
to the output queue
ZZ-a2ZZZZZ}I',1
I
Ir~~~------,-I I I~I,
I§) Bele~~~-~ ,WII I
I
----J \\
II <'\,--,1
j';;'1 '> f5CP"T."2."2
----------
I
I §J
L__
Ternnate the progul.
I
r==1
I
I
I
>rPi:3:t-~
L___
I
L ________~l
r- Notes --------------------,1-;::::1:::;--1R~ r;::----------
I
I
,I
I
I
I
I
I
I
L ________J
D1agraa - 5.
I
ROu~1nel
tl.
I
4-01
L8.b:--,~
I{~ -;:-::::-::-:-::::~~:~j----I---I---III,------------------II----1----1---- 1
I
e1ther CPBATP 01: DfHWrR.
I
1(~
I
\~
1
II
I
~
\
I
I
I
I
A TranS1ent Data PUBGE .s 15SUEd I
to release the storage.
II !I
I
II
I
II
II
II
I'
I
1\
II
II
,
,I
storage Controi IBEEIIAIH 1S
"
I
1@).progra.contrOlBETaRNisl
l,
issued.
l.gpURGE
II
I
I
I
I
A Trans.ent Data P UBGE 15 1ssued
to relEaSE the storage.
1S5ued.
II
11
I
I,
I
A
I
I
I
I\
!
I
I
IAQPRLS!; I
II
\\
I'
I
1
I
I
I
II
I
!
II
I
I
!I
I
III
11
II
I!
I
I
,
I
!!
I
I
I
I
I
I
I
I
I
I
:
,
I
I
I
I
I
IIIII'!\"'I\
I
I !
I
I
I
I
I
,
I
,
I
I
\1
'\
IIII
I
II
1\
II
I
I
I
I II
,
I
I
II
:
I
II
I
II
I
II
I
I
I
II
I
I
.
I
II _________________________
I
\ _______ j IIL-___________________ -.!I________.!.I _____!..-.::.JI
L
!..
Asynchronous Queue Purge \AQPJ
Section 2:
Method of Operation
01agra. -
S. b ...·01
623
LICENSED MATERIAL -
PROPERTY OF IBM
PAGE
1 op
f
[ col.. on Ezit5.7.7
j
Diagram - 5.7.0-01
DynaMic OpenlClose
624
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -
Input
.Processl.ng
r-----------l
,
,
10'
I
~!;;j '>1
II'
I
---,1
!
I
,I
I,
I
Ol! HoeLOS
"
1
r> "'----1--------------->
I1021
I para.etar
1 t:.::~~
II.::.J
,
t
I,
rillfLA11
Laddress
I
',,:
_ _ _---i
---
I
,
r~
I
I
'1
,
'I ---------_.>',', (g
I
Set status of task to
stall and runaway non-
1
\
L_________ !
II ~oo,. .s
f~ares_s_
1'1
\
--',
"
I
I
l~m~T~odel!
TCASooiDll
,
I
I
.->[lli-----.
I
Para.etersl
~~a~t;eID
DPHOCLDS
DPHOCODS
11.S~~~
11st
=:)fA1
\
L.:J
purge •• le
Check request type and
eX1t to required routine
for processl.ng ,see 5.7.0)
'
'I'
------------,----,--1---1 r------------------------
---II-~::~~:I~~=-I~:=...II,-::~:.---------
, t:..:J TIl1S aodule is entered na a
,IOCPGHLPE',
1\
'II
I",
,I,','
,
II
DrUce 'U£I!=OPEH/CLOSE/SIHCH or
DF"PC nPE-LINK .. ero
instrQcticna
,
I;,
Hi~~CLA
1
~/' ll~~~~~se 1
-----l
L_________-.J
--1
1
I
I 0=:>'
------l II
I
Input In1tl.al1zllt10n
(~
I
I
I
I
I
!!
!
I
1
"
I
r
I
I-----====J ",'
,
fTCAOcT'i-l-j-l
l m~·se l' I
,,
Opan/Close Paralietet List
'/~\rSCP1.2.1----"
I '.--.1
I
'CA
Obtain seorag. for the
or
I
'1'@i]Ensueu.onDFRHAlNTOCP
I<~>L'P 1'~~_-==j
1
1-------1
DfHOCP:
I
PAGE
Olltput
r---------
,
\
PROPERTY OF IBM
The nuabet ot regu.sts cannot
exceed the nu.ber of entrl.es 10
:::r:::n~~~:::l f:::::~:r ~:sta
A
\
lI
Input Initl.a1:i28t.1on
Section 2:
,-,
,"""l
I":~~::! ~~:~-l-~
"
I,
"
!
I
I
I
I
I
"
,
I
'I
I
I
I
I
til',
1
\
I
I
I
II
II
II
I,
I
I'
1,1,:,:
II
,
, @ i IOCPRGBP I
I
'
,
"
1
\l1
locPLsm I
II
I
I
1\
I
I
I
I
I
,
'
'I
1\
II I IIII
i:,
,
Dn:graa .. 5.1.1-01
II
I,
I~
!,
I
L________J
I 1'1'
II,OCPG!LP
issoed to obtain enough storage
for all requests.
,
I
II
I
\
1
1
I
"
,I
I
I
I
I
I
!
I
I I '
I I
I'
II
I
,
_______.!....____--1 L _______________- - - - - , _____________ ----1
,i,'
"
_~
Method of Operation
II
' I
'
Dl.agralll ... 5.7.1-01
625
LICENSED MATERIAL -
r------------l
PROPERTY OF IBM
1-----------1
--- ---- __
~~~~n:t -]! --=---"! ~
T-l[-" I
Input
I
prc8
5~~ I
,
11;:
CSA
I
I
process1Dg
,. L •• ,
I OPHOCP,
o_'i1
.l"f
!
l:.~_._--l
I
Lock tbe Duap d.sta set
'/
rmg;;~-Ti,·t.......---.), [~
TeA
I
I
spec1f1e~
I
I
I
III,'
I
,
I
/
'l~
Unlock the OUlP da t • •et
'II
1:
1
'l;;;'>'IOCP-C~;;;~~!i~9t
I'
I
I
I
5.7.71
--./
'
L_______~
.
I
l
II
I
I
,I
I
I
,
I,
I
/
j
Duap control OEER/CLCSE/SIlITCH
I
__
I . II ,
_,:::=:::..J
II
I
j!
I
"
----------I petfor. fl.nal
I processing
L
'I
I
I OP
-----~
-------........."\
Process the
request
I\
PAGB
'II
~::~/I
I
C,..u_t..:,p_ut_ __
I
II
I
I
,I
I
I
L_________J
1
Diagral .. 5.1.2-01
----------1---1----. .----------,I -~::~~:t~~~I~~)
I,~~--------ED
I I!I~~~~--.-----------------I-::~:I-~~:~-I-~
I
I
I
I
\I
I
I
I
r-------------------i-------I--'1-:1 r
Lock on the S1nqle thread lOCk
IUCPOPCL
I
1n the CUIF CCnttcl program.!
\
I [§l
It
,
speCifiEd; tbe CUIE da'tll set is
~
TYPE'~kITCH
I
closed.
!
It
,
or 1UE"CLOSE .a.
TYPE'~'ITCH
I
I
I
I
I
IOCPOPCLX/
\
1£ the OUf'lE data set is d i S k . ,
If TYPJ!:=CPEN or TYEE=SIIIITCH vas
speCifiEd, the DUllE data -set loS
I
I
I
II
I
openEd.
I
!I
I
I
j
~
'I
I
IOCPOPCL ,
,
.as spec1fied the
fileDale in the DTP 19 .w1tchea
J
I
I
!
I
I
\I
1/
\I
II ,I/
I !
II
'l
}
J
I
I
I
I
!
II
I
,
,
I
I
I
I
I
{
I
I
I1I1
Jill
loCPDPOP I
i
I
I
'
I
\
I!
'I
/I
!I
I
I
/I
II
1\
I
d
\
/1
I
I
II
I
\
I
I
I
,
I
I
I
/I
I
I
I
I
H
I
I
II
I·
II
I
I
I
I
I
'
1\
,I
II
I
I
I
I '
I
I
I
I
II
,
I
I
I
II
I
\
\
I
I
"
II
I
I
!L _______________·_________!
!
I ___
_L _____ ----l1\L-_________
___.______II _ _ _ _LI ____LI _ _.!I
I
II
II
I
I
I
I
,
~
Du_p Control OEEIVCLCSE/SWITCH
626
D1agt81l ... 5.1.2 ... 01
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -
lngu,t
Pro.
[
CS1
CS1rCOll]
[ ~m·eter
5.[~,
,·::::L---------l
····1 > rn1]
---,/
~
-----------)
Locate all data base
entries
PROPERTY OF IBM
O!:~~:
I?AGB
I O'P ,.
______________________
_
DPHOCLDS
)'
?Z!1Z!!ZlZ!1?\/
p;r;;;i;rJ
[entri'!s
list
address
DI"HOCQOS
reT
>[~~:::~--I-
[
open
!~~~::~--
]
DlHOCLDS
--list
[Pa~;;taJ
Entries
~l open the data sets
@]
Verify that the data sets
are oEen
~] Rebuild the Pile Control
Table open list
@]
)'
?"??J..??:!.'!!.?I??~./
I~sue a Pile Control
log ical al?BtI aacro
instruction
@]
I
I
(-.. . ,/ r---------------J
:=~ > ::!-:~~~~~-~~~~--
I
Perfor. final
__________ :::::~~ __ ::2:~
-----------
P1.1a Contra! OPSH
Hates
~
D1a,!]raJl - 5.1.3-01
Routine
.l Pile Control LOC1TB .acro is
_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ .1
Label
-------------------------------------1
Bef
OCPBRrH
Notes
, ~out.1ne
Lat!'!l
I "et
issued.
I
I
II
II
II
II
I
I
I
I
!
I
aCI? CBSTB
I
OCPHLST
I
~ 1'01&
is an OS/VS I pbysical opeD..
~ If toe data set uses 'SAft, the
1
------------"------------------ ------- --------! ------1
OCPHLST
I
I
OCPPCLP2
reguired peT in foraatioD is
ad4e4.
I
I
OCPDBOLP
OCPDB101
I
I
ri:i;cont~Oih--------------------
Section 2:
Method of Operation
.--"----::___________J
Dia'Jra. -
~.,.
3-0 1
627
LICENSED MATERIAL -
l
Input.
PROPERTY OF IBM
rre.S.l.,
--1
pL,
l
l!!!i.ss- . I '
I
,
>~m.et«J--I-
II
I
tf'cP 1. b. ' " - - - ,
II
I
---------------1
'~I
L -_____J
1111001:'13
L:!J
II
'\:
[~
I
I
~
!
I,
/@!]
I
~1le
logical CLOSB macro
I ,..
I
I
---a hle eontrel
Il~ Issue
Ij
Dgr:;:~hrl--I-~
,......,/
'001
l::!t
e~f~1es
Locate all tcT entries
I (' j;;'j' >r---fiCi1.b:1ii-----l
I
pet
,
Yer1fy tba the data Gets
,..e op..
re~
data sets
I
Yeufy that the da . . sets
are closed
I@?]
Rehuld the Pet ope. li.t
I
I§J
------------ ,
I
!
I
I
I
r;:::'
1r'1
I
1
~I
zzzzzzzzaml>
DPHoeODS
, ,I
II
II
!,j:;- r-u. I
!
J
~,
r;;-------L~
l::~/>I~~~~~~-!~
1:
I ~~~~~;:i~iDal s.1;7J
I
L -______ L
Control CIOS!
D1&gra. - S. 7. ,,"'01
r------------------,--
I .
A P,le Co.trol LOCATB 's ....ed
~
r-.--
'oePDBDTN'
to ottai. the act.al reT addre s.
of the sYlbc11cally DlllIBd
I
I
e.tnes.
I
II
III
IOCPBCLRT
I
IOCPBeLRL
,
I
,
I
I
oeUBeL!
I@]
'IS
IOCPDBeLI
I
(§
I\
I
/1
I
___________ ,
\
I
'11e Contrel CLOSE
L abel
I;:;J
I II
I
\I
LcpsCHB21
!I
!
\
I
I
I ROQt1nel
I----~-=-I
I
IOCPRBSU
II
I
628
I.1
I
I~----------------I-~::~~:I..~~~I~II~~-------.----I§
I
I
I!
I
I II\I
I
I I
I, ~
I
I II
I§1
"
I
I
I[§1
I
I
DPHOCLDS
.),7777771 77771\
B.,ld a close
... t 11st==-::1
of open data sets
~
Phys>cally OS/CLOSE the
I
r----
I
Druoep:
r RhiCoLAl--!'-------::::~!:I@]
._lAG!
_ __1 OP
outp.t
Prroces.,.-g
I
II
I
'
II\I
1\
I
I
II
I
I
d
'1\
j L.._,-__
---'--
_l_~
CICS/OS/VS Program Logic:
D>agraa - 5.1.0-01
Description
LICENSED MATERIAL -- PROPERTY OF IBM
PAGB
--I'rDO 5~L-' 1----1
t=1 ' I
>
reg.ested I
processing
Input
•••• , > D'UOCP:
DC~
I
1
or
,
\
r;;";l
m~et:J--I------------->I~ ~::::::u
DPHOa.DS
l,
___ r----------->'\@!)CheCktheVa11dit r Ofthe
paraaeters
I
I I~' r
I~
r.l-.l, ~ Load the requested D'l'P
~---,I
I
-,-----.1
- .. : - - - - - - ' "
\~/ !:.=C=.P_,;,;-;.;J;.;-..;,"_ _ __
D.HOCLDS
DU1id an open request list
I@I
I
I~
"'~,.. ~..
r
U
..... ".
I~
I,[§]
@]
.,
l
Botes _ _ _ _ _ _ _ _ _ _ _ __
!'h1S check is lade only for
nonresideDt data stts
The DTP is loaded OIllJ for
nonresident data sets. It is
load~d .,1a a cond1tl.ODal program
load vi th the RELOAD=! IS
paraaeter specified.
/
Verify that the data SEts
I§]
I
hst p
,,,.
I@I :::~u
'transient Data OEEN
<---'
l>Iopen
DC~
\
I
~/> ~!~~~~-:~
final
_ _ _ _ _ _ , Perfor.
processing
L ____--=5. 7.7
I
L___~
D18graa .. 5.1.5-01
.
t:::~:t~~ c~..II-HO-te_s-_.----~----II'..::::I~II-··' I
/
laCPDPOPR
I
I
I
I
" l,u.n,,1
I
I
I
!
I
',..,... II
UOPBBBX
I~DOPBBLP
I
TnBDDDU
l:.:aa. • .1. . t
D~.gE&.
Dat.I O.PBB
Section 2:
Method of operation
- 5.1.5-0
629
LICENSED MATERIAL -- PROPERTY OF IBM
ID!:~_--_---------r· '[~
,:':=:L------1 -----------1
>m~::~--I-j------:::::l!> §J
[----J--.•
@]
Df.tlOCLOS
PAG!
Output
I
Locate all DCT entries
Ve.rify that tbe data sets
=======::::>
ate open and build the
ll~~ eter
entries
1·
1 0'
n[.
~~~~:_.]
requ~st
.
list
close request list
I
DFROCLDS
[
@J
I
[Ptt;;;;U;;:]
list
II
I
entri~s
--------
I
nCT
as/CLOSE the data sets
>r~~~}~!J
I
I
I
§J
I
Ver1f y that the data sets
are closed
I
I
I
Rebuild the open list
I
I
I
~] Free the nonresident
con trol blocks
!
I
[~===============~
@J
I
I
J
---
II
I
!
[ ;;, \ > CCP-CO;;;;-iiit---, I
------------
Per fer. final
processing
________________J ...
-----~
TransieitD;t;-cLoSB----
Hotes
I
.
5.7.7
_______________________ . . ____ JI
D1agr8 ...
Bo utine
1.a tel
§J
OCTtBTN
@]
OCP'lOCLS
@]
TOOCLAAD
~.I."'-r1
-------------------------------------------,
Ref
Notes
Rout1n~'
Latel
! ~Et
:
I
I
I
I
------------------------------ -------- --------! ------1
II
I
I
§J
DOCOCP20
@]
oepots!t
@~
OC.POLS'll
I
II
!
I
I
I
I
I
I
____L__J
I
~r&;;i;~Ci:OSi------·-------~--------
630
-...-----------
CICS/OS/VS Program Logic:
D~l!IIlra.
- 1!.'.6-C1
Description
LICENSED MATERIAL -
I
r--------
Inpu-:
I;L
rn---1---lII
I
I
l~g~~.eter
I
E~_t_--1
I
I
II
I 02
I
III
I
I
1
DFHOCP:
§l
I -'
I
I
II
@]
Il
Denueue fro. DPH.'U1CCP
,
I
l ___________>1 ~
I
I
I~
1.
~
•.
--=1
L -_____.!
Set response type
PAGB
1 OP
1
tpot
I
I
Reset status of tosk to
staU and runavoy
purgeable
Ir~ep
'
I
r
roc.s.u-g-------------l
-" I
~
•• .. 1/ >1
DPHoctDS
PROPERTY OF IBM
e
/'
'leA
Z2ZZZZZZZZ?~?\/
1
I~I
Itype
/
I
I
I~I
I
I
II
I
I I
m~CL-A-
address
I
I
I
m I li~m~e=~.
I
I~I
I
l
~
~~~~:e
I'rCAUS"ID
I
I
I~I
Z?1ZZZZZZZu.
t
Return
I
E1··=a
'v'
I
EXl.t to Calise
I
I
I
_~-----J
I'
IL---______________
II
I
~
-----------'
D1agraa .. 5.7.7-01
Co •• on BJ:1t
r
-----------, ,.-----------
, Hotes
1
II BClltinel LAbel
16 ~:~s P~:C:::1::~oon
exit all I· rem
for
!
The TCACCTR fl.Eld coota1D.S a
coapos1te response of all
~.=.
I
1
I
I
II
I,
I
I
,
I
I
I
II
\ ,
I I I
I I II
I
I
I
'I
I I
II
J
-,
Ref
- - - - - - - ---1---1
I
\OCPEXIT11
I
Label
!oCTBIITII
I
,
I
-
ROUUD91
Hot-es.
I' n
I
I
;,1
l'
II
,
1
I
Ref
I
----1--1--,1-----
!§l
II~
II
II II
/I
I II
II II II I
II
II
! ! I I
I
I
I
I
I
II
I
I
II
I
II I
I
I
l.
I
I
I
.
I
I
II
I
I
I
I
I
I
I
I
II
I
I
IL _________________L
I ___
I
1/l____________________"I ____--.!____----.lI
II ___ ~__.J
1
'
I
,
I
I
"l !1
Co •• on EXlt
Section 2:
I
I
D1agraa .. 5.7.7-01
Method of Operation
631
LICENSED MATERIAL -- PROPERTY OF IBM
Input
Processing
r
r----------------~
I
I
!
\I
I
I
I
!
I
I
I L~~ Inb1bn Runaway Task
Control for the l1fe of
I
I
I
the task
I
I[ii~
Reg uest check rese t
I
I
I
I -
service
1
'I
II
II
I
I
11
cr~~iCiNDr-II-- ----------->
I
I
1
Internal
initl.a,te
I
OFHTAJ.:
I
I I
I~~ii:::;r
II
IcSneEBA
I I
Il~~ar.ss
'II
I
I~~~:r"::! I
I
I
I
I
1
I
Perforo proceSS1Dg fer
1nternally l.Dl.t1ated tasks
A.
~:~:~~:::t the tue
B. Adjust the .Xpuat1OO
"
I
r::---------,I
1'--"
II '.-..,1 lRESiT---~
•. "l
IB - - - - I
I
I
I
I
ZZZZZZZZ2'ZZZZ I/ I
< I- -I >I Iep
I
1I
I
I
___--.J
I
1
I
I
I
'I
I
II
I
I
I
"I
I~II/I
I~I
II
/ I
ieA
r---------,
0
I"l'CASV":iJ
SerTl.ce
~~~ 10
~----,
l~m~Hionl
O. Adjust tbe next
d1spatch tHe of day
I
I~I
/1
l~l
I~I
I!, r.l
ZZ'/~[A177!'>
I
E. Refresh all CS. A current ~''''
77 >1A1
tille""Of-day helds
-- / L-,j
I
I
1
I
I
I
I'
I
II
1.II
II
I
~~---, r.C~TL=L"SE=B~=l-'1 I1
ITCTTEBC
I
::.J--"
I
I
I
I
~
~
I~
I
I
:1'-0"
EJ
UDl.ts valUE and ad justment
amount.
Tb
I
k
h
terminal.
If l.nternal CICS tests detect a
clock roll-back condl.tl.on, an
indicator l.n thg CSA is set to
initiate the task.
If the dl.fference between the
tl.lDe of day at the t1111e the
reset cond1ticn lias detected
and the pr10r tue of day l.5
greatEr than 23-1/2 Rours,
I
I
I
BOlltinel
Label
IContrOl
next
d1spatch
t1me of
day
I
II
I
I
I
I
1rnTciiip--11
I
'lPack.ed
I
l~!;e
of
I /~~m~-B-/
II II!WO_f
I
~~~~~DTU I
L_ da~==j
I
I
.J
tnl.ts tl.lle I
of
_____
---,
,------------------------------------..,
I
II
I
I
I
I
!
I
I
I
I
I
I
1
,
II
I
I
I \
: ,
I
I
I
1
:I
:
II
\
II
I
I
\1
I
I
,
I
I
I
I
II
I
I
\11\
I
I
I
\I
,
I
IIII
II
I'
II
I
1
/
\
II
I
\
I I I !
J
J
I\
II
\\
I
II
I
1
I
1
'II
I
I
I
I
III
II
I,
I
I
II
I
I
I
I
I
II
I
I
II
1
II
I
,
I
I
I
I
II
II
I
I
I
:
I
I,
II
I
I
I
II
I
!
I
11
f
I
2&1 hours.
II
I
I
I
II
II
II
I
I
I
1I
I
I
1I
I l!
I
I
I,
1
I
I
II
I
"
I
I
I
I
I
II
II
1
I
I
I
II
!
- - - - - I f the dl.fference l.S less ____
I
\
\
sets the adjustment tl.me to
the ~Ic:gram assumes tbat
Ill.dnl.ght had occul:l:ed and l.ts I
I
I
!I
I
I
I
I
I
I
I
! _______L ___ ~___ _"l ______________________l _____ ~ _____.!:__--.J
Tl.llle Adustment program
632
·1
Dl.agrall - 5. B. 1-01
etas t at EXEcutes thl.S
prograll can be initl.ated
l.nternally l.f lIIidnl.ght occurs or I
l.f l.nvokEd through master
A.
.,
I Ref
" Notos
I ROut1n~1 Label I Ref I
-------------1------1---1---111-----------------,-------/--/1
1
I
I
I
than 23-1/2-hours, that
I
I
II
IOPHTOPNAI
II
I
I
I
diffErence .,11 be used as
I
I
II
I
I
I
I
I
I
It
the adjustment 'amount.
~
I I
The clo"ek reset e. . nces of ICP
t a r e reguested .to ottal.o the
curren t 2Q-hour clock tl.mer
I
\
I
CSA
IcsATcNDTl
ITerunal I
T.lme Adustlllent program
II
I
II
~r___l
II'I~I~ II
77777777771/1
!
,.
I
I
I
,
'
!\
1r
,
L_____________---l
L______________J
I Notes
2
,tl.lle
-,--------177)'>11 1~6E~~gl I 1~~g~~~l 111
I
I
1/111
II
,exp>ration,
I·xp>rationlll
c. Adjust the polling
/
t.1me of
tLlle of
I
delay exp>rauon time ZZZZZZZZ2'Z!!1
'L
L~ _____ .I
~~! ___ ...JII
I
I
I -----------~ I
,
1I
1_____
CSATCTBA
,~~~r~~:i~f'
r----------------I
1 Of'
,-----------,
!
I
r=L,
I
t.::=.:,'/Iro-:-l
I
II
PAGE
Output
---------1
Dl.agram -
CICS/OSjVS Program Logic:
5. B. 1-01
Description
LICENSED MATERIAL -- PROPERTY OF IBM
Input
1,-,
I
.aquast clock resa t
I
serVl.ce
L~~
\
77) \fAl
... -~ I
I,<,L..~,
It
•• r-~-------l
iiSH-------I
,>ICP
'.--, I I
I,
:
II
IL.:~
1 ••• ~~j
Terml.Dat.e t.he task
1
I
I
I
I
I
I
22\/0
I
I
I
I
I
I
I
I
1
I
1
\
II
I
I
\
I
I
I
I
!1
L___________~
I,1 \
I
-,/ lii'iTaRii-------1
L
1... 0J
-----\
II
I
I
t.:J
r~'1 \lPCP------l
:I
I
2
,
\
fQS1
2 0P
I
I
I
r-----PAGE
processlDg
r-----------~
·---------------1
:
I
I
1
\
I
L __________J
I
L
. _________~1
Diagram - 5.8.1-02
Tl..e Adustaent progra.
:-~::_----------------I-~::~::I:.::-I~~~ f-:::::-----------------l-::=:I-:::-T;:~
1-------,ro41
--------1---1---1--11--------------------'------1-----/---1
'the cleck reset services of ICP
I :"::::1
t
are requested 'to establ1.sh the
II
I
I
new base clock and ti.8 um.t
values and to refresh the
current date and t,ue-of-day
I
values 1n the CSA.
I
I
IfQ51
It::::.I
A proqralll Control RETURN
:
issued.
1.5
I
II
I
I
I
II
I
I
I
I .
I,
I
I
I
\
I
1
II
I
I
1
I
I
I1
I
I
I
I
I !
I
I
1
I
I
I
I
I
1
1
I
I
!
I
I
I
I
I
I
I
I
I
I
I
\ '
I
I
I
I
t
)
I
I
I
I
I
:
\
:
1
I
I
!
I
I
\
I
!
I
I
I
I:
I
d
I
I
I
I
\
1
I
II
1\
1\
II
II
I
I
1
I
\I
I
I
I
!I
!I
I
II
I
II
II
II
I
II
II
I
I
1
\I
1
II
I
I
I
1
II
I
I
d
II
I
,
til
I I
I
: :
I
1
I
I
I
I
1
I
II
II
III
II
II
1
!!
II
II
I
1
I
I
I
1
IIII
II
I
I1
I
I
I
I
II
1
I
I
II
I
I
I
I
I
I
II
I
I
I
I
I
II
I
I
11
I
I
I
I
I
t______________________J____1 ___-'-__
.J L___________________,____I ___ L_~
I
I
'l'l..P. Adust.ent Preqr",.
Section 2:
Method of Operation
I
D1.8grall - 5.8.1-02
633
LICENSED MATERIAL -- PROPERTY OF IBM
----------'1
Input
I
!
,
,
rTcTtEtt
tTernna,l
I
,
ty}:G
I
-----'
, m,l
f ,
'I
I-
TCTU
~iir--rj-'
I~
tli~~m
\'
/1
J
_,.J!
fnoOO-1
=--j1
TIOA
IStatt of
l~~_a~
I
I
(;1
--" >II DFHPEP:
E····1
-, I 'fOOl
-l--l-iI. . _--------),It!!.J
TCT'rL!
Cut put
,----------------1
II
I'L
I
II
kt1te ENTER .essage
,\. - ,/ ,---------
!
---~\II[Q;1
l------'II:.:J
1
1.2.1
L
-----1
I
I
r=--------]
1 TCP 1.5. 1
II
II
I roil
I L.:.:.J
I
~\
T------JI~III
f
I
I
I
~
I
I
~I
zzzzzzmu:
r~>~CP"i'~~~~_ -j
L ____ ~
II
,
I
I
II
,
TDIOAD:QA
Start
of
data
,---J!l!!,sage
J
~a
I
f
I
I
L ______
j
~
--.J
D1.gr •• - 5. 9. 1-01
terainal Test
r-'---I Hotes
-------
ItPE1'!P
TU
;,:
I
.----------~--------------_:._l
I
'
ImftESS
I
I
I'~
,
I
Ij I:~~. II 1
I
::::':::.:
Bard-copy aevice
'TAft
--,
_1_~:::~:j~~I~!!':;:
[§-;:ndle speCial condl.tl.ons for:
I
J
j
j
I
\
i
I
TIOA
7777777777777 >
-------ter.loBate processing
1
I
I
ilr1te response
I \,--,/ ------
I
\
I
I
L _______J,
I /j";;j'>rscp
1 I
<~>r~cp l:~:T-
or
I
I
II
,
I
I
condJ.t10ns
1
I,
,
'
Prepare for terll1.nal
devlce-depelldent
PAGE
,----------l
processing
I
aevice
CO"FleUon message DPU3301.s
USUEa.
I~~:I'~~_I'_~I
I
"!
DPHPEP
I
jINCIDLES
j'EJOOftSGI
II
RETORN
I
1
I
II I!
! I
I@lAD,useTtPEoraEEftAlH'IIII'I'\I,
I
::~:::~.m
.acro JJlstrocho.
is I I
I
:::::::/:~. t:eS::::::·C~:trol I I
I :::::~:~ ~:.::~~. ':;.;:;::;:~l; I
I ,
I iss..
I
(
I
I~
.a.
l,sERDCHAR I
!
i.
a.
If pr1nt
req.estea, the
I
character set 18 pnnted Tall II
)
Ter.inal Centrel
,\
~RITE/R!AD/UIT.
I t end
entered, the OPB.HOl coaplet1on
f
•• s.age
is
'0.
>.ss.ea. Otheru.e,
'I' CfEHP
I
1
1
I
I
'
I
,
I
I
I
1'1
I I
II
\
1/
II
'II,
\I
\\
II
II
l___~~~:~:~_____L____I____L~ L
II
I
I
I
! I
I I
I/' I"
I'
I
I
J
,
D1agraa - 5.9.1-01
rer_laa! Test
634
II
!
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -
PROPERTY OF IBM
PAG!
1
0'
r
,--------r------r----------l
~-ssii;;-------J [ii;;;;i;;Ii;;;;sa.;;-J
[iii;.it----J [Pr;;;;;;;----J [ir;;;;;;ss------J
~.:.~.:.3
--------=--.
------- - - - - - - - -----------~
.lD.~t1IlUzation
5.10. I
cOJl,ersational
8esponse 5.10.2
operands
_____ _
conversat.ional
Response 5.10."
5
,O~
[iSG-op;~ani--~
5.10.3.1
----- ------
..... i" 5.1 telling
Section 2:
Method of Operation
635
LICENSED MATERIAL -- PROPERTY OF IBM
---. Trllnsact1cn
en1ered at
terlloa!
r1
I:
-_.1\
~.=.:/
'lCA
I
\
L
I
t"[ikU--l~
-I r - - - - -___- '"1'
,I
, f'02l
TcTTE
, 'r--------,lI l:.:J
I
I
1' DPHl'tSP:
r r:;;:;---'lJ--------.I\I~
t~~---1
,---,/1
I
DeterllllU8 transactlon ID
of thlS tasJl. (for Ilse 1n
step
5,
,
I
!
I
--~
,,',
I
Ternnal
type
II
I
I
tllCdel
I
!
II
I
rj--------"I
.----", ~
~
T~-~..!.-.I
________,-\fii4I
I TlI Lr----,IIl::.::.J
L
---
1
III'
Ilh
,"
I
and .Odel. Fcr .1270,
delete SBA sequence if
pre.eDt
characters
l
I
I
I
I
Rote.
A. Delete 3270 SBA sequence 1£
first 3 characters at
TIOmA.
,~
B. Delete backspace characters
and 98.e nu.ber of preceding
data characters.
I f CAHC!t enterE-d at EOD, or on
177\ >1
I~I
!
'1
1'/ 1
I~I
I
I
I
I'
I'
I'
,
Deter/une 1£ contlDu8 tlon
,II,
If con'tl.DUa tlon
Delete NL characters
Root1.el Label
r=;~'>
'5:i3~2
J'
II
r;1
22,/6
q=~
I ' ,.
______J
5.10./
II
II
'---_________--.J
01egra... 5.10.1-01
I
II
I
I
',flSlIDL1BYI
I
I,
I
-..
II
~-----
Ref
Notes
----------~
I'
Rounnol' Label
I'
in lIe558ge, only delete 1£ 1st
character.
I
I
\
\
1\
1\
Ref
I
',
I
I
I
I
I,
I
I'
,I
I
I,
I
I
I
I,
:
"
'
I 'II
I
II
,I
II
If'
I
I
I
I
I
I
t,
:,
I
'1'\1
II
'"
P
The flrst
TIOA arE ccapared "loth the task
I
IllsMOCHCL!S. 10."\ \
ISTEP .I"
'I'
1deot1ficatioo stored 1n
II
I'
',",
\'
I
I'
I
I,
II11
I,
I,
I,
j-
'
:,
I
I
II
1I
t
L:::J
q
characters of the
TilATBHlt. If Dot equal, th1S 19
,
,
a coot1nuaUon ,go to .SCONTIN).
If eqaal, treat as a nell start.
I f transac'"00 i~.nt1f1c.t1on is ,
'I
followed
by 'c', delete
f1rst
charactere of 1nt:at and go to
mom..
\1
~
J
'
t
I
I:
I:
I
I
I
I
I
"
I
I'\
II
II
636
:
,
I
,
I
' I IL -_________________ , ____,' ____L___1
I
_ _ _-,_._ _ _ _ _ _ _ _ _ _ _ _
' _____
I _ _ _ _ _.J
Inpwt IJl1t1e.11zatioD
I
,
l
fOS\
,
I
I'
I,
"
II
I
characters 10 1nput ucopt 1f,
•
I
I
J
1
operations (1 CLEAR operat1oD
allows continuation).. If CANCEL,
'flSSCAHBS
II
t
,
,
,
IftSHONL I
IftSftDLIBY I
\ftSBSTOT I
II
II
,
I
I
I
,
I
\
I
,'
I
3215/3211, 2 successiYe CLEAR
lssue tera1Dation response and
return to CICS.
I
TrOADSA
II----I--I--!'!-;:::~------------'--'---I--I
J
I
\ l~ Delete all Dew I1ne lNL)
,
I"SPIMDHL I
I
1§1
I
iTIOATD~=J
I
2¥ZZZZZaU'"
Deter.1oe 1f request to
"
"
x-op-u"".-:OXo-1'".'"'1--a-=1"'1 z at ion
TIDA
>
I
"I
ZZZZZZZZZZt.!_
Deter.1oe EOD
I
I
B. Process backspace
I
!
III~II I
A. Deterlll.ne ter_loal type
I
L_---"I' rQ;)
---,IIL:.:J
I
Al77! '> I
L_--
1
,CANCEL
- ------'" IL:::J
~
II I,r--=-----",
TeA
I
TIDATDL
iro~
1
~-,-------'I
lIOdlfy l.nput
I
1
-------',
L __________
'Tctmr~=
IHmm;-I'I'
Clltput
I,----------------1
or
----I
PAGE
processing
Input
~
..
CICS/OS/VS Program Logic:
D1agrall - 5.10.1-01
Description
LICENSED MATERIAL -
Inpu't.
,-----1
••••• >
---,t
r=::--;J-~ 'r.7 r.l---;a\
,TIO&DSA
- , Il~ll~r-'I
Loser data
I -
'SIO&
I
---
rTSIOlDB~
1il:::::~
\!
:=;)0
1!n.1
8
I ~~
!ntlr8
aess8 g 8
status
I
1 .. Get
;;.iteJ:iSt
~~LDSI
<~>[TSP
I
---"I
A ___ ,/I
I
Stonge
--
fro I
T5
I
-----------'\
1
-1-------.
recorf3
I
I
--
,
~
if 1D messagB, only delete
if 1st cbaracter
Continue vbere left off
A. Hev operand startEd
B. IISG operand continued
II
I
)
1
~SIOA
'leA
I
Part ft =~~~f.:=J
1'!sVAftSADR
"
q
address
II
c. EstaJJ.l1sh roote list
"
address i . case pr.s.ntZrzzmlP-~~1 /
or
t~~~!.._l
!
J
1
I
1______ 1r>r------,
L ___--l I
IT",
_
- -_
--1.
t:.:J
ro2I Delete all Dew 11ue (lit) 77777m7777
characters in input Ezcept--------II ('
II
I
I
I
r--)
I.B.2 I F
B. Restore ~art of
TItA
El•
T~lIIporary
,"cerd
I
l
Reestabl.1sh peen.oos
I
I
PAGE
Cutput
------15.IO.I~.L., :~I:::'----------l
'!'IOA
PROPERTY OF IBM
I
II
..
BaLOS
r'r;;;;:;::-;::-;;J
~2:~
·I
TIOA
I
II ___,
E··'
)
IS:t!~3
,
\r-~'
•••• b >
C. BOOTB opera.d continued
!
5. 1
_____J
I
I
~ 3.1
.----',
,'---.,.,1
.... ,
~_______J
)
5 • I U.J.2
I
L--..________ ____
Diagrall .. 5.10.2-01
PJ:ocess Conversational Response
y
i-
I~-;;;:I"~' '~r'-'
Hotes
I§}
I
l. TS record Dale is 11 byte I'fe' I " bytes - fer_lo4 I
bytes - C'nSG"
J
address of 1S
racoJ::d is stored
1.D
'f"'TSADR.
B. Restore 1st p art of Til A fro a
TSICA. Set up address of
.ess89_ (if pEesaDt in TSIOA
- IISG 1nd1cator OD 111
T1II1S'u'ri in ":1II1115IDB.
C... Set up
T"ABTLS~
I
'to wbere
rou~e list would start 1f
present. ~fullvOrd .. a11gDed
~fter end of .el!~ge ..
IaSCOH TIS
)
I
I
I
I
I
I
I
lIessase length in fliAftSLNGJ
D. Check :i.Dpat and coDt1Due .,1th
;"l
I
I
I
\
I
IftSCLRml
IIII
I
Ill,,!
I
_________I~I~I_.
I
I'~~'" 'I
I
II
I
,
I'!
I
II I IIII
I
II
I
I
I
I
I
I
I
I
'I
ftSCLBBTP
on~
of the follovl.Dg
con131t1oDS
I,'
.. Hev operand started
.. "SG or BOOT E opar an d
I
cont1DIled
.. Erxtr condition corrected
L _______
Process
Con"Er~at1cnal
Section 2:
II
!
I
!I I"
I
I
______________
I
I
I JIL _________________________
!
I
I ____I
,
REsponse
Method of Operation
I
I
I,
,
,
,
Dl.agraa- 5.1Q.2-0,
637
LICENSED MATERIAL .-- PROPERTY OF IBM
Input
:I'
I
I
:
1= L~, I
nOA
I
l~~=:~/>:
r-----,-------",I
\
I
,
' / - , r--------,II
[lm~D~::-,
III El--"
I,ioil
-------' I I
, "I >
'I'
\
I I I
.J __
III
I
'I
l--i
,I I
" II
III
I
! / -------',1 [OJ]
!
1\11----"1
I
I
II
I
I
/ 1/
I, J'I
I
I,
/' 'I
if
entry
TUSTATl
I
Set up error message addr
ln KSGRG reglster '3 f error
Jon steF 1 or step
I
I' @;'
,
I
,
,
I
rOO1o.
, , [
I
I ~ Set status for operand
, I
processed
I
,1'--0>17
I
r-:.J
Find next operand or
A.
/
I
\
L
_______________
Process Operands
J
15~13: s·
I
Is. 10 .•
C~"
V
ZZl,·
\
22,1,'>0
\
I
A. If next operand
B. If EOD
FeD
,.---"
!I
I'
,eA
=::--.
,T.AopeL5
I
'~t1¥~~~~ I
AJ! DP
ITk
T.AKSADR
1,,1
/
,~=:~i~~!_l
I
II'
1
1"":'"'1
l:::VL!J
\
I "
L_________________7s~<
"
I
~'I
_zzzmmz ,>
~
' /
-",
E··I>
r.;~'>1011
If Error
---------.1.'1 051 Save operand value
-------'''1
I
, I
"
1nd),c~~
,
, II
I
I
I
,I
I
/
TWASTAT
1\
I,
I
\
I
TeA
TkAeiiiiOPI
~~:~~~d
vahdate operand
I
tt'
I
I
"
,
2z(/00zz(/
end of data
/
I
/
A. SEND operand sl.gDl.f1eS
/ §]
/ //
'/
1
II
Validate keyword
L--"
I
loP
,\
I
Ifoo->12 s:::e:p::::~O.S
f
IL.::J
\
I
I\
DfHKSP:
PAGE
,--------1
Out put
prOCeSSl.Dg
r-------------------IS.l0.l s .10. 2 r------------~
I'
I
,
'I
I
I
1.
___________ _
'-----
.11,
D1agrall - 5.10.3-01
,---------------------,----,----,--:1
---------------,-:::~~:t-~~I-~~ll~~--------------/~::~~II~~:~-;-~~J
,
,
,
l'r-;;1
,
,
,
I
~---------------------I------'----I__,
: Notes
l
,,
r;;";l
~
I
I
I
/
I
Scan for f1rst charact er of
keytlord.
1!O2'
Turn off ccrre'Fcndlng ,.dicotor
I
:
in TIIASTAT or 'I'll AS tAT ,.
I Cl
I
I
I
I
I
\
,
I
I"@:J.,
\
checked cn continuation to
/
determine if fIISG or ROUTE
operands are be1ng COlltloDue':1.'
I
:
,
1 to 24,
II
E~RTEM
1
to •
cbaracter~. etc.
can only be done after tbe SEND
operand 1.S recel.ved .. 1.. e..
,I
comb1.nation of TlI'fE and DATE too
I
\
\
,
Il
Selle valida ti09
,
charts 11 5.10.J.l, R.$.19·J·2,
5.10.3.2. Tbe S operand g1ves
cont~ol
S
to Route l'Iessagc 5.10.5.
11
II , -
I' I III
I
, I 'I'
/
'
I',.---,
I'
11~!
I'
,Each
!~gm~~
I
II
I
II
II,\
I
II
I
I
I I
,
I
i
"
1,,1
,
I
"
I
:
I
II
,
'I
I
II
'II
,
II
1\
I'
InSOPER II
I
,routln e ,
,
taperan d I
,rout10e :
\
I
I:~~b lon
loperand I
OpeI:and values are stored 1.n
I
,
IlEach
I
/
first part of TifA except for I!SG
I
and ~COTE vhere address of
message or route Ilost 1S stored
,
I
II
',
I
1n 'l'lIAHSADR and TifARTLST.
1
,
I
I
1
I
I
I
,
,
Turn on correspoodloDg lolldlocator
1.n 'IliA STAT or TUSTAT'.
I
,,
,
'
I "
'~~~~and
I
I,
I'
I,
,I
Irout1ne t
I
,I
II
I
,I
I,
I
:
I
I,
I'
I
I
I,
I/
II
I/
t
,
I
I
,
I
,
,
I'
I
I
I
,
I
I
,
I
,
I
I
,
,
'I
,
I
I
'I
I
t
/
,
I
II
/
I
I
I
,
II
I
,
,
I
I
I,
I, ___...!.I_____ I _ _1I
_____________________ , ___ _'I__ __.JIIL ________________________
~
~
D1agr am - 5 ~ 1 O. 3-01
Process Operands
638
I
'
II
I
1
\ '
,,
,
\\
H
"II
II
H
I
"I
far in future.
NOTE: For l'I, R. S operaod
processing see the fol~o"ing
'L 0~1
II ,II",
/11II05J
r--=>
'"
I
Sucb as epeLA5S values ln rang.
I
,,
each
operand /
rout10e I
I
\
,
:
II
II
I
I
Istart of '/
Turn on correspond1Dg 10dl.cator
in 'l'ifACUROP to show operand
currently,pt:ocessiDg_ (This 1S
,
\I
I,
I
/'
,'
II1SNTRI
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
Input.
r--------
I
CUt put
'D.j
I
\
I
Deterllll.oe
l;~~~--.J-,-------'/I
;
I
I
I
\,
I
!,
I' 5. 'D.
"I
C,/
1
I
I
I
II
I
I
I
I
I
TIOA
ITlOADB~ __ )
I
I
I
\
I
\
I
II
\
I
I
I
1,
I
II
I
!!
1
L
_______---.J
L____________---1
j
V
!
I\
I!
I
)'
I
I!
I
I
I
I
I
I
I
L _________~
Ol.agram .. 5.10. J. 1-01
HSG Operand
La::-:-::;-l r.::;------------------I-;::unet'
r;:::---------------:-;::~~ne:
'Ir.;---------------I----I'---!---!
1--I
I
I
\
d
,I
I Ii
I
1
l
I
! 1I II'I
( ~::~;:;~r
1.
,
I
Ii
~ Scan for eDd1ug guc 1051
I
I
1 OF
ZZZZZZZZZZZZ2\ /
I
I
PAGE
r----------------.
ProcE:=ss1ng
r------"-----------'
reI--'\ \\ DFHKSP:
I
,;
II
T!el
I
L.:::':~ /1 El
~---1--------- . --.J, 011
end of message
'Is.
I,
I
I
t
l.._~
01a9r811 - 5.10 . .:1.1"01
639
LICENSED MATERIAL -
PROPERTY OF IBM
r--
1------------15.,0.3
Input
I
I
I
--,\>.I
l:101····1
I
I D'Hnsp:
TXDA
I
---./I@l
r- 7.;7;-:-1--------...., 01 Process
\
l!~~-I--------"Il
~~
Til
E
V
J
I
J
!
rTe,:lIl.n·~=l
l
I11<=021
l
I -~
D
----
:
II
L
I
.
I
_.I'
L)r.;----l
lii:~~~:~D III
----------'/,
---. ORLIS',
I
I,
lili
c.
I
I~--I I
DIperator
'I
II·ORLDS
B.
-r'/
'l'erIl1d.ldc/opl.d
II
I
I'
'
I,
I
r-------,
' _____
Load TLTs (DPHTLTnJ
I
,
Delete dupl1cate
I
I
11'/1
,
I
lm:~~~;::;11
,
.r_o_ut_e_l1S~!1
•
-
I
I
I
f hUPLft-Ov 1II
LA --,1
1~2!~.!/-
I
~s·
I
1,1
L'~iiLTiiiiiDl
ORLDS
I
t'LTs
l
I'
I
:~~::::1doldC/OP1d
I
IsUff~~:~--,
I
]1
.nd hU1ld route list
1ft
ITUTLST
~t't ~f
I
1---0-~"
I
1
I
------ I
C. E.ocess
I
I
"
\
I
I
ent.ries
!
J-' \
v1tbout:====-L"
Construct route hst \1t..
TLTe)
B.
,
'lCA
I
+1-terIDld*ldC/.OPid 1f --"fAl
present nth TLI .offu
t::J
TLT suffn
A.
'OP
I
I
A. ILT suffues ~f pre •• nt===~'--"II
I
L2..!:ns!
'1LT
I
parameters
I
I
PAGB
I
aOUTE
I
11
~~CA _~__
" ----------1"
I
I
I
output
ProcEss1ng
URLTRflID
II
ORLLDcnN
IORLOPID
~~~~
I
'l"erl1n!.l
'ffi-----ORLDS
I
~----,
1
ORLLDCnH
ldc
,
I I
l;~~~~~!
,
I
~ger.tor
~~r:j
IORLm----}
/
,
I
I
I
L __________J L_______J
I
BOOTE
Operand
D1agra .... 5.10.3.2-0'
l§lRo,t::-====~],~~::~~:I,I~'h.e~11
r
\
I
A.
1
~LT suUilie.
sa.,.d 1n
,(.~x. are
uuber of
TIfA'l'LS'f
elltr.1es spec1fied by &ftAXSOU
or ftAISOrlJ •
B.
I
I
l§l
I
I
II
'nSPERIDD
I
II
!
II
'lftSLS'fDON
wbere tbe address 1S stored
I
I
1n TUHnSV. The - or - 1S
II
II
preEE~t,
the entries a~e used
to· huld a user-suppl18d
route I1st whose address 1S
storE a in '!1fAR'lLST.
A. Loaa TLTs
(0 P 11'1" LTU) uS1ng
suffixes stored 1ft 'lIfATLSr
1j f;::~-------------.JI_~::~~:I,_~~~=l;:~1
I
II.
c. If no TLT sufUxes are
Ref
I
-'-terlid.ldc/alid entn..
are'saved in the for •. of a
user- supplIed rou.t:e 11st
sa .. etl 1ft URL'! SP ..
I
•• tri •• if a.u ••a pt'•• io ••ly
a1re.a, proce.. ed..
1" TL'l
I
c. ua aDJ' • eatrie. U Dot
:~~.~o::!!i::f~:·:r::~o::~;t.
awfine"'.
I~ch
+/- wntr,
;:::::.::
:::~D::) t~:
roate1:l8t b,:llt froa
',1
.nUr.
811 the
1'LT'a ,at atep. 21 all 2B).
I
I
I
I
11\
\II
.SNDTID
I
I
jl
.
.
8. If aore than one TLT, do not
1nclude Ter01d.ldc/op1d
ROoT!
640
OparauC!
II
I
I
I'
I
I
I
I
I
f'lSTLLDOR
I,
II
I1
"
I
I
II
I
I'
I
I
I
I
II,
,
I
I
I
I
,
I:
!I
I
II
,
,IP1SCHKDUP II
I
IIII
\II I
I
!
I,
I
I
,
I
\11
I
I
I
I
'
I !I
II
!
I
I
I
I
I
,
l·scHKTLTl
I
II
\I
111\
!L-__-.:.________'___'L_______I, __'L__J L____------______. . :______
and bU1ld a u...-suppI1ed
roo .. Hst.
.
I
I
II
I
I
I
,
I
~J
,
._____,______1.:,.._J
D18gralll .. 5.10. J.2"Ol
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -
,---------,
r-
rnput
!
I1
\
E~;9;--J<1
I
!
\
---
I
'
l U~::~J
\
I
II
II
JJI! 1
1\ OBLDS
§
~<
~:~
Route
I\
TSIOA
\
~~~ __ .J
1
II
I
'IT-- II
JJI!I
r
I
TWABl'LST
(Rou;U;t1 <" :83~:sil.st
II
-
I
;'
1,:
~e.porary :r---=-~)I
Get Temporary Storage
cutFut are.
~~--l<
=-:-1
I T1U'tSADR
JJ
1
l
Jm~t~
lts
part
II
I@]
I--~
IL
I 02
tadd~',
recor1
D. !'love a.ll route entJ:l.es
to TS record
.Teaporary stotage
:reccrd
E. PUT
I
I
I
I
IORLOS)
I
I,
I
I
I
I,
,
I
11
I
I
,I
ter.iDal--~
-----'
.
\
I
I
I
I
.--------1
I
I
I
)1
1.B.1
/--/)
/.
1
1/_ _ _ 1/
'_Hotes
-------
\§J
I'I
Set up for next 1nput and
terIIl.Date task
r-"
to'1 >IPCP
-,I
L
1--------------,
L-=___.J
,
L___________- - l
I.J.bJ
D1agraa - 5 .. 10. /6-01
I
Rcuti.e! Label
A. S1ze of output area 15 SUII of
the following pieces :if still
activ.:
TWA
first part
:e::::~cus ISg
I
II!
fOrt lold TS
- Curre.t osg part Ifro.
!
I ftSlNPTBY I
I
I
I
I,
I
1\'
II
I
\11,
I
I
,\
,
- Prev1cus [CutE l1st told 'l'S
J
r
\
record)
\1
II'
- Cuxrent route list \built
I
I
I
from curxent input or cha.ined
off eld TS record route l1st) I
:
B.
1
All cf the
,.1
fields tnru
I
II
I
I
I
:•
I
'I KSNPREV'
I
L'b:-I
10
ftSGRG
::::::::a:::: :::::0::. ft:~::::G
register peints to variable data
to te apfended to response.
I
I
I
I
I
I
I'
IHSftSGKV I
\I
ReSt;OnSe to ter.10al 1S 'f1a
3:i:7S/3211 DlHte TYPE=lfRITE to
positl.on on tottOIl line of
\111
II
I'
I
field in TS reccrdJ
,
,
II
I
I
'I
Issue Conversational BeSfoDse
Method of Operation
"
\\
II
DPHEftS TYP!= \EDIT,OOT).
--.J L _______
I
I
I
!
'
!ftSRuno·1
I
I
I
I
tI
!
!
!nSCHORS
rSSBABY~
I
I
I I
standard DPHRC TYRE=RBTORII.
II
Section 2:
I
ftoCeSSEd 1D previoos input.
Route list 15 start.ed on
full-word boundary_
R•• ponse .5g address . .
I
II
I
L____
'HiAR'ItS't and lila}, 1Dclude
entries 1n TS rec;:ord 1f
111,1,@1Ifcontinuatio.1sPossible,
effect1vely issue a DPHPe
TtPE=RETORH,1RANSID= to cause
\
I
I II
IIs9 indicator OD 1n 'litASTAT
-- P1ece 1D old is record \1.£
Route list is pOinted to by
samE task to start auto.a t1cally
on next input, otherwise issue a I
I
c. ftessa9E ca. ccnsist of:
D.
11
,\
I
I
!
.","SLNG
1,1
11
I II
I I I I
I I II@!
I
II
TIOA)
\:1
~
II-Ro~t1nell
----1
- Part in current TIOl
I
! -
I
Rj-=::----------
-------------'11---1----1---11
I
I
1
Response
Issue Conversational ResFonse
1
I
I
I
I
I
____J
II
~I
Rou~e 11s~ \
I
I
l
--------,
_En·ure !'lsg
,
Issue usponse to
I1I
fTiirniiIDl=-L
IIa::tl.1:1Cal
I l __~) I ~
I
t-tiOIl
-----'
::
's
I /~'>r-I~SP--------J
',.--,/ ,-----------
la;;~OAOBA
' ITe"rarary II
I~~~-'
,i!go~~e
I
I~~~:~--I
q
c. ::.:S.:::::d a.ss.ge to
I·
1
r~::e:::!a I
I
1
\
I
II
II <1'--"
1-·, >r-------1
SCP
',.--,/ - - - - II
L~:.'!~~~ III
I
I
1••• 1\
J J I B . ~~st part. of TwA \
1
\,
I II
I I
1 OF
I
I
::::.::.tus i.
A.
PAGE
I !
.
,'SIO
A
I ITWAIISLNG . I I
11,
I
I
I
I
I
I TWA,
.---~
\
\
]r====~)1 ~
TeA
[--~ ---. I
I
I
r;1. 1
l;l_-" I OPHKSP:
/
----,/
····1 > I fn.l
I
TIOA
i
p J : O C e s s l n g Oru_t-,P,-u_t_ __
I
\
PROPERTY OF IBM
11."SGSEn
I
II
I
I
I
,
15.10.11
STEP 1
"STEP 51
,
I
I
I I I I
I____l __L_J
D1agraa. - 5.10 ...-01
641
LICENSED MATERIAL -
PROPERTY OF IBM
Input
f---------~-------15. 10.' r;l
r~~=::"--==l
-ll
I~~~~:~:--I
T_"_A_E_R_R_CR __ ,
III
I I',
I
,~~:~~--:
TU_J__
YO_P __ I
'_
"
,_
' T"_AS_TO_T __
,nOTlftEE
t.:::.:~/>lr-':'"I
{§F=~)!~!J
"
I"
,I
,
Fiio=~~==l
I~~::~:':"-'
~~~::~:_.J
noo
1,,-~]---""02i
• ---,/, '-~
1'[-'"
I
',
----
r;;;;-----]
~~--
ftassage
RecoloVEd SEND operand
Check 1f •• ssago and
' !, [-~
Issue CCIIIFlet10n lIe!::age
L----- I
t,~L-ob1
:.J
--7'"
I
r------) >r.:~-A
l ~~:~~_J i
!,r.;::
r~;;t.) ->[------~ I
t::
---- T:~-!
I
Route
\
" ,
I
I'
--_..t'r::1
--I
,/,E,
'-'
I
I
!'
,
(~-{
,I,
Coatpletl.on
Response
,
"
I
1
I
liiPiiiiiiS--,
ItmBLD
I
l~~~~~~-j-,
m:::;>1
l______________J
I
I
I
'I'
I
,
' , '
Route Ples58ge
r--J
/1
/1
II
I'
,I:
l_T_"_TlftE_P I
L_____~
I
' lTYPE = I
g~1~~?!__1
I
,-----, "
,
E~EP--1
ftACRO INSTNS
fD1=:>
L.:J
...---------~----,
I \:1
I
rITWA!?TAT --,~ )[!l
,TIciAiro.-' I '
____ - I
'ICA
"
TCA
flii'iiIDiS---l
(TyeE =
I
,,~?~:t 1 \
,i
'lniSTAT--':::: )fAl
,
I
.:. -1/!
l::~/!~:~---------J'
l~_____~~~
'I
1:5
:~====:>,
Tetll.nate task
,~,
"
I
"
'
[El--'"
:~~>0
,
,S'ENt--', I ~
JI '
lor. rand
r L~~~--l ,------1'
st
and date
Route message
05
"
I
,
,
"
, -
I
I
I
\
,
!'
dest1nat1on pronded
II
'[o.!
I l ____ =::::~>1 ~
,--,//c
1
\
LI~F=~>,~:J ::~~~:~:1:~·e
------] r->\--------,-~
I \r-l
@
TWAflSADR
1 OF
Cut put
I
J!-~"M~D:
'rCA
,----------1
r--------------------1
PAGE
Processir. 9
I
I
I
I
TIO!
~ooiiB~
I
__l
1~~~---1
lIIessage
I
I
I
I
/text _...1
J
L
Diagraa ... 5.10.5"'01
,------------------------------------, r-------------------------------------.
I
l
Notas
Routu:e} Label
I 'fief II
Notes
:
Routl.nel Label
: Ref
I
!;::,-------------------I------I----I---II---~O;Unu.d-fr;;;;th;-p~;v;;;~--I-----I-----l---I
operands are required as a
,I
InsNO.SG 'I
.SNORTE
I'I
I:
I'/I
II1D1 .. 11B1, e1$9 error lIessage.
I
I
I
:
,I
,I
o1 ,
Il--'
I
',fOil
L:.:,
1
\
,
ftSG aDd 'COTE or OKLASS
I
§}3 Tlme and (late co.lanatl.on must
"
be less than 100 hours fro.
start of current day, else artor
"
lIIessag e •
IIE)
I
I
I
TOASTAT and TOOSTHI
I
,
'
",
,
the op El
DFHCRC:
CSACRBA
I
OUTPUT
PROCESS
I
If CSACRBA Is non· zero, issue DFHIS
STOPIMM (which issues an IMMEDIATE
aUIESCE request to the interregion SVC). and
issue DFHIS LOGOFF (which issues a LOGOFF
request to the SVC)
~
If MVS, invoke the CICSIVS SVC CSVC to
free the AFCB
~
Continue abend
I~
To OS
Diagram - 5.11.3·01
Interregion STAE Exit
NOTES
~
ROUTINE
LABEL
REFERENCE
NOTES
ROUTINE
LABEL
REFERENCE
DFHCRC is the STAE exit which cleans up
interregion communication. If CSACRBA
is zero, interregion communication is inactive
~
The AFCB is the block built by the
DFHAUTH macro
Diagram - 5.11.3-01
Interregion STAE Exit
Section 2:
Method of Operation
659
LICENSED MATERIAL -- PROPERTY OF IEM
Page 1 of 1
INPUT
From DFHSIJI or DFHMTPE
~
OUTPUT
PROCESS
DFHCRSP:
DFHCRB
~
Allocate the CICSIVS region block, DFHCRB
~
Issue LOGON request to interregion SVC
8
Attach new connection manager CSNC
G
Set the interregion slot in the TCT wait list
to point at the SLeB ECa
~
Reiurn to caller
'//
Z
v
I
I
TCTVRECB
I
I
I~
To Caller
Diagram - 5.11.3.1·01
Interregion Start-Up
NOTES
~
~
B
ROUTINE
LABEL
REFERENCE
NOTES
ROUTINE
LABEL
REFERENCE
DFHCRSP is the interragion start-up program
The program corresponding to CSNC is
DFHCRNP. CSNC remains attached until the
interregion session is closed
The interregion SVC posts this ECB when
CRS040
there is work for CICSIVS. The ZCP
dispatcher, ZDSP, notices the posting
and RESUMEs CSNC if there are any
new connections to handle, or if
Interregion Quiesce is complete
Diagram 5.11.3.1·01
Interregion Start-Up
660
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -
PROPERTY OF IBM
Page 1 of 1
OUTPUT
From DFHCRSPor DFHZDSP PROCESS
INPUT
IThv
DFHCRNP:
8
If interregion quiesce is complete, issue
DFHIS LOGOFF and DFHPC RETURN
CRBRTRY
I
I
§]
If there are any renEs on retry chain. issue
DFHIS RECEIVE for them
~
For each SeeB that represents a new incoming
connection, allocate an interregion TenE
and iSS1Je DFHIS RECEIVE. If RECEIVE fails
but can be tried again. place TerTE on retry
chain
~
Issue DFHKC SUSPEND. When CSNC has
been RESUMEd' return to step
@D
Diagram - 5.11.3.2·01
New Connection Manager
ROUTINE
NOTES
8
~
If quiesce is complete, LOGOFF from SVC
LABEL
REFERENCE
NOTES
ROUTINE
LABEL
REFERENCE
CRN030
and complete transaction
,
DFHIS RECEIVE attaches the mirror
transaction, CSMI. If the attach fails, but
I
CRN050
can be tried again (for example, MAXTASKS).
then the interregion TCTTE is placed on the
!
retry chain
~
~
The SeCBs are scanned using the SCACS.
These blocks are all generated by the interregion SV:C. (See also note 02 above)
CRN150
CSNC is only active when new incoming
connections are to be handled, and when
quiesce is complete. Incoming data on
existing connections is awaited. using
CRN260
.
DFHKC TYPE=WAIT, by the mirror
transaction, CSMI. CSNC is RESUMEd
by DFHZDSP, the DFHZCP dispatcher
Diagram - 5.11.3.2·01,
"New Connection Manager
Section 2:
Method of Operation
661
LICENSED
-- PROPERTY OF IBM
M~IAL
Basic
Mapping
Support
6.1
I
Mapping
Control
3270
I nput Mapping
6.1.5.1
6.11
Route List
Resolution
6.1.
TYPE·ROUTE '
3270
Input Mapping
6.1.4
PAGEBLD
Non-3270
6.1.3.1
6.1.1.1
6.1.1.3
TYPE = PAGEOUT
6.1.1.4
TYPE = PURGE
6.1.1.5
3270
Output Mapping
6.1.5.2
Terminal Page
cleanup
6.1.B
Terminal'
Output Subroutine
6.1.7.1
Delayed Message
Delivery
6.1.10
Execute Page
Retrieval Commands
6.1.9.1
6.1.4.2
6.1.2.1
TYPE = PAGEBLD
orTEXTBLD
Non·3270
Input Mapping
6.1.6
Page
Retrieval
6.1.9
3270
Output Mapping
Route List
TYPE"; MAP
and
TYPE = IN
Terminal Page
Processor
6.1.7
PAGEBLD
3270
6.1.3.2
TESTBLD
Non-3270
6.1.3.3
Page Query.
Reset to Autopaging
6.1.9.2
Page Purge
6.1.9.3
TESTBLD
3270
6.1.3.4
Page Copy
PAGEOUT
Page Chain
6.1.3.5
Insert
Device
Dependen,cies
6.1.9.4
6.1.9.5
Single Keystroke
Retrieval
6.1.9.6
FASTER 2260
Output
Formatting 6.1.3.6
Basic Mapping Support
662
Diagram - 6.1.0-01
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
,--------------1
Processing
Input
--iDfEEftS .. ere
I
I
10 - 5yst ••
Area
I
I
I
~~a~~~f""ria~e~--I I
I
r[:1·.··1/'I
1-----------> ~
l ~~~
~~~~:;-rh
[l~~--.l
II
\
PP~
I
1
and save appll.c8t10n
progra _ reg1sters
!§J
I
work area IDPHaSP"A)
!cPHumiCT-:=l
keaping
,
I,
I t.:::l
I
,para.eter hat to
I
I
I
I
~~~s I
I m~:!~DR I I
gm~st
TCi~
I Title
__
\
\
~CA
I
~~~~~Rt~st I
I I1 II
address
1>0
\,
77
I
'0.0 B.5 reguest
infor.ation fro. TCA to
~----------------I---
I
1/
II
II
1
I
~~a~I~e
1
'~~2;~~i-'
~
__
0zzl>
aSPWA
~
I
r
I
I
I
I
I' I
Z~ZllmZllZZI/
I
L _____J
__
BftS Control: Bequest AnalYS1S
I
---\,
I
\,
I
I
lim~::-)
Ega save I
!I~J 1"I> ~:---'
tCAS,.IiJ1
!
I
I
, .----------->1 ~
Lr~:::SA-'
I
I
I
"
Jarea
I
II
ITCi;;srn-1
l~ra11eu I
i I 'I
---
/HI'>
I I/lil
I ~I
I
I
I
r ma~g~t 1J
l~; __
I
'
----III
I address
--l--------I/~/'II\/I
!love addres~es froll COBOL --"
j
I,
I
TeA - 5yst..
I Arrc.e_._ __
Initializmon and hcusa-!
,
~ri~ftSrR1-S ::r:1
I
I
B~5
2
,
AcqUl.re address space for 7777777777771 J"
>1m~;~JT
__________ J~--=:er~:::e::·::::s:a~o
l~ __~ 1
\
IL
\
I
Il
1 OF
I
\
--~' I DFH~CP:
PAGE
Cut put
.-------------1
L - J_ _ _ _ _ _ _ _ _
Oiagra. -
I
I
~
b4 1.1-01
I
::I
~::____________________ I_~_~~~~~~ _~~~~_ ~ll~---------------J~~/~~~-J-~1
@]
50_e
a~p.U.c4tioo
i-'['O:j'['iUS.
'['o:pste'['s eirE tEaj-or4n.ly sawed
I,
. .::.:::e:~· .... toe osm ..
1
II
II
.
1 1 1 1 \ 1 1'I
DPUI'lCJ?MA
II
\}
J
I
I
I
I
I
I I
I
1,1,1':1
I
II
Indicate to lOt.E'['wa..l C011t'['O!
J?rog'['u tbat, J.1 tbe BUDolvay
Tas," J.Dterva.! 1;1 J.i'J.'['es du'['iD~ the
eaEiCuUoo or: bitS er .ice
'pro~rd..s, d.ODo.t:aa.l. teraiodtioD
sacu.l.d De aettlrrea uDti~ control
kas tleeD tEt. uro Ed t c the
4pp.hC4tJ.CG "ro,lr" ••
Set ui! O".E -exit Cl,l1dress.
ll1.1t.1atE (.SJ?1. tc .oDitor pur:Je
De.ld)
lfiGIJ.I.oUJ, ),f sys gelled by
II
,I
II
1\
II
II
I
I
I
I
I
I
I
II
I
!
I
T.bis CO.DS.lsts 01 all iDtorllatioo
1.0 tAe TCA co •• en COII.uDicatl.oll
\11
I
I
II
II
I
I
thE user.
a
' , "II
I
,
'II
!
!
!
I
l\
I
1
I
II
I
! !
\I
II
,II
/I
I
I
II
'I
I
I
IIII
I IIII
IOCH015T \
I
I
,I
II
II
"I,
II
II
,
I
I
I
I I
!
I
I I
I
II
I
II
I
I
II
I
I
I
I
II
I
,
II
I I
I
' II ____________II___,I __L.-J
1
I
L
______________LI ____I\ ___ L_~L
BftS control: Request Analys1s
Section 2:
Method of Operation
Dl.agralR - b. 1.1-01
663
LICENSED MATERIAL -- PROPERTY OF IBM
r------------------l
I
I
TeA -
Area
system
rtc,;OSPiiA1I
I BnS vork
1area
It ~
0----> 'I
~~~-.l
I
User
-----II'
i~~~~t~
1 I
r::,
I TeA "5TR 1
IB/IIS
,
l fij~~eTt
II
analysis and force any
f
pending output
'~~~~~r~tio~o~ie
I
I
I
oSP..
---->1'1
L>.-::----1
I
~1
IOSP'IR1-7
... --->
B r:J
C --_ ... >1[°1
r-,
I
I
I
!oSPINOO,1 t
I
l
I BftS
I
.J
I ~
-
Rbey"esuest
t
_Interna.l
I
I
I
.
'OS.PBDISPl-L->@
luon
II
I OSPDOISP. I
II fOal
lla~~~~~-
I I.J
Direct
II
Id1SPOS1I~~~--I
fOSP'lTP
I
I
m~iing
and bU1.ld Ternna.l 'lipe
l~~~~ruttg~-----I
------~
1/
1/
II~I
j
I
OSP~A
/'OsPTR1=8-1
I
II~:~uest
osmrsp-- I
I·
\
!
bytes
I
,
t_1°·___
I~f~~~~~-
OSPADISP
gf~~g~i-
I~
1
I
I
tl.on
I
OSPADIS'PI
I
Active
I
1
hSPOS1I
"'00
E l l -___ •)
III
II
1//1>1 ,
I:!_
[~
E
I
ZZ
,> I
,
1'1
I
Il
TTP
I
-
1@77/"r
10SPDTTP-l
I
--~, I
ID1rect~:':1
[~~'
E 77 >
E-:'
!;···.::;:l'
II
I
1/
1/
-'I'>0
-- I
I
I
1
--
1
>,--------'I
I
-
I
I
V
I
L~~_JI
l__--:-
I
I
C:::J
lospom-II
D1rest TTPI I
\
771' >
I~II
I
'I~I
Set up control inforoation7/
f address
I
I
I
---------'
I
[iillf'go~l
WI,_ZlZlZZZlZl\,> I
I
pena.l.ng output
',...-,1
TeA
-1-------, ~
(' j;;'f '>rOfHBLR--------1
II
J.>[;;l
,'\
7777777777/lj
I
i_.d_ica_t_or_,
I
II
Parameter (TTPJ for the
or1ginat1.ng terll1nal
1
\
2
II
I
I
Perform the reguest
I
2 OF
I
I
Il--I \
II
I
a term.inal oriented task
II < ,_., >~----------,
CCII}:lete Pendl.ng
I
: '\r-./ ~~put ________ \
11
------
I~
(~1~1---->1
~ ~
I ~~aie~iea
Deter. lone J.f task must be
to satisfy the DfHB"S
reguest
1
I
r----- ,-j"'- >
l~~a-
\
I
1
'
jl
I
Output
r----------------"
!I
PAGE
,-----------1
PrOCeSSl.Dg
Inpu~
I
I
J
L -_ _ _ _ _ _ _-.l
I
L
I
I
__________-1
Bns control: Request Analysl.s
DJ.agrall - b. 1.1-02
r:::::------------------l~::::r:::~-f;:~--l
r::::------------------,
-~::::r:::--;:~
1-------------------1-------1----1-1---------------------1------1-----1--,--/
I fn;::]
I
I
I
I
I
/
I
I ~ Transact1.on ABE!H ABM3 1.5 1.sSUEd I
if the task is notattachedtoa
I
terminal and should have been..
:I
I1rn:I
I ~J
I
II
I
II
t
II
I
I'
I
\
I
t
I
I
If it is necessary, preV'J.ously
built output viII be -forced to
t·
li l
comp
e 1.on so th,at tb e curren t
,
\\f~
,'8
I·
I
request can be processed..
Pass control to the rontl.ne
processing speclfic reguest: see
overviev_
I
I
I
I
\
I
\
I
I
I
I
II
I
I
~I
I
I
I
I
I
I
I
\
II
1
I
\
1I
\
I
I
\
I
I
I
1
II
II
I
II
II
\
I
I
I
I
I
I
I
I
II
I
1f!CPBl'TCK,I
!
!
I
I
I!
I
I
I
I
I
I
,I
I
II
I
III
I
I
I
I
1
I
I
:
,
I
I
I
,
I
I
I
t
I
I
I
I
I
L
I
I
I
I
II
II
1 :1 :
IIb • 1
II
I
I
I
II
\1
IIII
II
II
I
1:
I
I
I
II
I
II
I
I
,I
I
I
I
!
I
II
I
,
I
I
I
:
1
II
I
1
I
I
I
I
I
I
I\
I\
I
I
1
1
II
I
I
I
I
I
I
I
I
:
II
I
1
I
I
I
I
1I
I
I
I
I
I
t
I
I
II
I
I
I
I
I
I
I
I
II
1
I
I
1I
I
I
I
I
I
II
I
I
I
1
I
I
I
\
I
!
I
I
I
I !
I
I
I
I
I
I
\
I
II
I
I
I
I
I
I
I
I ----.lI L _________________________:..
I _____ .!...
I _____ .!...
I __ -.lI
L -________________________
:.. _____
Bns Control: Bequest Analysis
664
Dl.agram - b.
CICS/OS/VS Program Logic:
1~
1-02
Description
LICENSED MATERIAL -
I
rUBeS
T!P!=Boo'n
noL-" @:D Porco to coaplo.,on any
I--------------->
,I
u~n
OSPCDISP
Direct
Boat1ng
~-p.--
I
I
~~Jt2.Dg
address
0sPiHDci1
Ind1cator
IIIIIr F~'l
es
~o~~rol I ili:ost
-----------> §]
r
OSPU
a~droBS
IiII
L,
Bout1og
t1a8 or
1nt81:yal
OSPIlrI
IlJ
OSPC:C
I
1&2
!cor'rBU
tor
OSPBBTIO
BrrCr
teru.oal
II\
ID
"
II
I
I
os PO A
I
I
\
~::~~:l::e0::: As;:r::1n1nikZZmZZml >I
l
I
I
I{zrnna! I gr:: ,
---'lCT'rB
l~c.pletl.oD
I!~~~-
2
II
Output
iicmo:fm;--j
of
to the BoOtE request
OSPftl,2
bJ
'r--11
lOP
I
~~t;Pe;;diii9-1
Ii
'
osnTP
I
-----------"
process1Dg this '1'1 fE=BODTE
m~~sT1'p
----
PAGE
I
n77777777777}'>
pend1,Dg OlltPlit pr10r to
OSP£UP
I
I
DPHKCP:
---,1
~-p.--
I
r
•••• , >
CS,Pll
OSPBDISP
II
r------,
Olltput
R'rocess1Dg
:Input
PROPERTY OF IBM
I
OSPOA
OSPTOBD
~~~~1g~
~~
I
~:~ir~:I I
type count I
OSPIRDOl
~~
I
OSIOPRCL
gr:i:to~_J
I
OS'p'l'ERID
Brror
tera1nal
10
I
I
I
I
I
\
\
I
____ J
-
i lotes
_j' ~::~~:I_L_a_b_el_I_B_~_f_
I !::c:~::::::::!::;~::::!::e for
I
I ~.,~ ,_"U.
@!]
I
~ P1elds fro.
the 10lltB
roques.
.Qst he sayed to be ased at the
coaplet1cn of the logical
::::;::.::~~t
under tb1s routing
II
IKCPROUort
KCPUBTB
I
II
1'1
I
I
I
E-_-_-_-_--________ I~_··_1_n:I-L-.-b::_l--··-~-1
I
!
I
I,
I
I
!
L-_.-,---:--:==BIS Contt:ol: 1!1'!IIROO~B
section 2:
I
't:ocess1Dg
Method of operation
I I I I
I
I
I
I
11111\1
II
II
J\IL________
!
I
I
I
I!' '!,I I,
! I !
!
I
!
!
L ___J
Dl.agraa .. b. 1. 1.1-01
IllS Cootrol: TI,Pa-BOO'l'! frocess1ILg
I
I
!
I
I
I
!I
I
!
I
II
I
I
I
I
I
\1
I
I---------------'
I
I
Dl.agraa ...
b.
1. 1. '-01
665
LICENSED MATER:rAL -
PROPERTY OF IBM
Input
~S1D9
'---1
I
2
or
m mnmJ\
1~lr~~~IOf
~~~:
am~~s
'
--ZZ------tl
save area aDd gat a save
I
are. for Dew title record,
IfUUas of
l!ltle
I
'
PAGB
_ _ _ _ _ _ _ _ _ _~
~ L-------.I!!l ,~.... U~ ~'-". I
reCDrg
Ititle.
II
()Q.-t~p_a_t
1f
_.. _--------)
1 1,1Qcl<"S'~;: ;:~.:~~
L:::J
ftp
)'fTP
aDJ
Caba..
iDa.
ad
f.r
::~::s~PS
j <,.."".. . . . ,)
TTPILCBl
OSPOl
~ aeleasa any old tar.1.n.l
tbis
177('>
If,'>
Bom
I
DPHBLB
,I, ('
I~:~lu~i::
--.. oo-------)
=~D~~~1D
~
~¥Jtlng
address
mmtLqu"
''''''''' - - -
miiGiiI
ru~
m'iiiiCP
oSHte
BU11d
UD1CJB.
'II
~
ID for this
logical oessaga
ZZZZZlll.'tC(.
~ Ratarn to appl:a.cat1oD
progr••
[········1
-~:
','
J
I
8·"'as:-c"'"0-.t:-r-ol'"'" Tln-IOOTI Eroc_Uag
Dlagraa - b. 1. 1.1-02
..
~----------------------7---~----~.---,1',....----------'
~::~~~ ~ ~11__t_a_s_ _•_ _ _ _ _ _ _ _,
.otas
[§
aCPCKTU
~ Also rel • .,a•• anl storage
aCPCKTTP
cba1D84 off the 'fIfPa.
Iml
II
I
loahaa
I Label
Baf
--I---~-
I
aCPIXIT
II
I
I
_--,_~_~~L__
ails Control: T!.PI-aoo'r! 'roceas1ng
666
I
I
IJ
D1agraa .. b. 1. 1. 1"02
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
Processing
I
TeA
("HAPT: DPH"Cl'
PArol 1 OP 2
nutpllt
--I
0'"8,.5
TTPE=~AP
r=L-J\,
O"""CP:
~>
--------------~) ~
Set UD TIOA for prl)cessinq
and possible restoration
(saYe) prior to prograa
eyit
/
<
'--',
I
...,J'
OSPTIOA
ZZ?Il.?:!Z!ll.c..!.\ />
~~~~ess
I
nSPSTnA
Addrp.ss
fro. "here-
1~~:!I~:en
1•• 1 ') JIICPP'I'IOA.
'r--,/
1"'=--.,---'l"rOA setup
"''1'p
!
r.l
filil Locate requestpd
l~----> CJ
I.,.TP"U---'
Loade<1 11801
flap
set nalll~
I
TTPI'IL '-
r.oaded .81>1
~it(h:ess
J
I
nSPIA
05P1"2,~,
Type
II
6;~::st
----osp"
naae
511 !tap
address
OSPPfSA
!fap
set
II'
o_s~_i_n_~._~_~_p_
---->0
I
I
oSliru "al'
address
'1'.,.p
TTP"tlf
Loaded lIap
~~:"~~I
Loaded
I
118p
a"dr~
t__.--=-~l
L,---:--=----
Diaqra .... 6.1.1.2-01
RIlfS Control: TfP?=ftAP and TtPB=I1I' processinq
Notes
Routine
sll~p'lied,
If no TIOA
terdnate
_La~~
with 'AB":?'.
"epnAP
Deletes old .ap set if no 100q81'
JIll CPGTIUP
Fef
111_"_ot_e_"_______________R_O_Q_ti_n_e _L_._b_el_ _
ue_f_
1,1 '
11
needed. Checks i f aap too large
for page. Terainatp.s wit.h 'AIHIO'
I
if aap not found or 'AB"I' if
aap is not an inpot lIode n.pe
If there is a "~b aap, its
address Is stored in ,.,.PTPIU,
and tbe foraat indieator is
PlCPR! PLO
ao.,ed to 'l''l'P.P''I to indicate
actual horizont.al/f'ertical tabs.
If tbere is no Tab aap, "1'D'I'P""A
is set to
TTP'!'l'!lI
i!l
DE'!qatiYe 'laIne, and
rll!aains x'nn'.
I__
Laft-s--c-o-.-tr-o~l-:--'T-P-!-=-"-A-p-.-n~d--.,.-TP-!-=~I-N-p-ro--c-es"-s'lng
Section 2:
~I
Method of Operation
~-------------------
niaqraa - fi.1.1.2-01
667
LICENSED MATERIAL -
r
PROPERTY OF IBM
r
r~·:.:::~-------'
ut
.------------.,
~> ~
" •• "
'r-..,/
.
I
P~Gl
?
OP'fl'"'CP
OF ,
put
L'lZ(>1
....., , " .. ,
fAl----> (/!;-;i'>f",,""u;U;----=l
l.:J
(,ltAPT:
\------:J
L~~:"_
[~ np.terlllinf' the Module that
I
I
cOllpll'!tes the nrocessinq
for this requp.st
I !
'-----_.
,
~'> nPH'u---a
E1> . .O-PH-.3=-=?===-
3210 " . ,,'ping fi.l.1j
B. If not 32"7(1
-../
I
~O Inp;t-"fappiDq
6.1.1)
I
I
1
I
L J l______
_ __ .J
fliaqralll -
B"S Control: TTP'P.="'AP ana 'I'TltE=TR Pr(')cessinq
I 'o'~s
I
.outinel Label
Pof
1
I
I
II
I
I
1
I
I I
I
I
I
I
I
I
!
I
I
I
I
I I
J
hs-ront-rol:-;;Y:PE-;;;;'-.
andTt-.'=IK
pro-cess
inq ------------
I
II
;
668
!I
I
I
I
I1 I1 II
'I
'I,
I
-------------1---1-- ---
I .
I
1. 1.2-1'11
l ~----------------:::::el '.'h:;:--l'.ef
1 . - - - -- - ----- --1\I,
t;.
I
1
II
,\
i
I
I II
--------------------nloqr;;;;:--•. ;-:-,:2=ii~
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
Input
I
------
~ ---------------)
I~:~i~~~e
!~~r:~~a
I
j
--
TCT':I"!DA
a
[~
i~~ress
L _ _---'
I
;~
Loailed. lIap
nalle
'
TTPPlLW
spt
Go to the Page a nt1
=)
r------"
1
I
ospsynl.
I')SP"'IO~ __ I
va~ t~~
1TP
"'''PP'lL'N
r----Loeoietl .ap
set nalle
TTP"'L'"
Loadp" Map
aitdre~s
Te~t
r------('i--,
,.. ,I >[D'PHP~P
tlage and 'l'ext
lJrogralt
B1l11d
O. '.3
l
·:C,.,o-nt,.,r:-o-:l,.,:...,~=y:::P::E:-"-=P:-.G=,.:::B~L-=O-o-r-:T:::..:::1:TBLD or ROUT! Processing
Diagram -
-Jr-I
~
Mot.es
Deletes old lIap set if no lonqer
npede~ ..
Checks if lIap too large
for page .. Terllinates with '''81'10'
p
not output Dode. 'Tbe
loca~e
.ap
I
l'ICPGOPr.
the page for.attinq and deyice
I
II
Section 2:
Methoq of Operation
I
1
I'
I
I
I
,\
I,
II
II
!I
II
\
I II _________J ___
__ JL_
Control: TYPf.=PP.r.'P.flr..O or TF.l:'1'flr.O 0[' RCU'I'F. Processinq
\
!
I
dependence.
I~ef-i
I
I
The Pl!l)e Blliid prograa does all
6.'. '.1-0'
1\
I
just pertains to PI.GEAt'D
requests.
1~
L.hi
I
if aap Rot found or 'ABRO' if
lIa
.________ I~
I
I
"CPGTIOA
@1
I
,:~~~P.:~er~:
data
_"O_t_"_O______________ ~~ _~abel
!
I
fB~r~i"OAI
1
(lil.oiitreSS
,
/&--1'
II
H~~ I
L
B"S
I
.,),
ZZZll.ZZ?IZZZ~, I>'
,
1------L_""_p_i_o_ca_t_e_
~
l(~:__--------lll
-=--~
Locate request.ed !lap
nrH",cn
1 OF
Boild prograll to process
1
:::::
::: -1-1ar!d.ress
I
PMa'
77777777777m'>
~I
----~~r!'l~:.:ap
II
no, sotup
i-"C-P-"-'-PL-n--
SPTR2, 3, q
Type
~;~:~st
I,
;epp;jru-~
rn:;,
r----------> ~J
0o·s:sdp.r":sO,S"ap
pxit
~I
f02Fi',
, / -, /
---
Data
Set up ':orOA for orocessinq
and posdble restoration
(sa.e) prior to proqram
(/::-;;'>
I
[ ~::::::~
.
I
~I
1
I
f~;~rit::
>
-------l
lmmGb;;,~;~~::'"
."
r~AF'1':
IJ
I ___
Diaqral\l -
Iio.'. 1.
3-0~
669
LICENSED MATERIAL -
PROPERTY OF IBM
j---------l
Processinq
TnDut
I
1,
n:::Ni
in1 d------------> (~J
~ I
t
lndicator
T::--~___
I
I
I!
I
[mHhv
r~x~=~~N:! I L__________ > ~
~~~--.1
r---
nutout
I
I f PAGEALD
overflov
occurrerl in DFHPBP, then
pr::qu::. to
application
not or.cur, an'
I f p'GEBrD
nv.rflov W
,. Th€'r~ is ;'lnother "l'TP
/
13. There are no flore """Ps,
thpn return to t.he
apolicat ion oroqra III
__ I'
r.R~P":
PAGE
\0Ig~f.~gtD
zzmzzzzzz~ /'>l
I
1
r:S",P","'=-_,
I
l~riF~~l~1
1~~~~J~r
~~j
I
!
I
DPR"CP
'0' 2
~'r=
•• , '>,n21
--.1
'/
f
\
I
r.~;l
,--J~
I,
I""
I
V
!
I
I
I
J
L _____________lI
8"1'; Control:
f"1
TYpP.=p~r.p.BLn
0'['
Diaqralll - 6.1.1.1-02
TP,XTRLD or ReOTE
~~e:~==-~~~-----l~Rout::'-~abe~~~~JI)l'-::::-==~~=~=~~=~=-l,-.::~: r.ahel_I_~
,
J
I
application proqraa itllledi<'ltel'f
__
,!
::~~::i::e:h:p:~~r:. :':::;~;~:~.
11
In that case control is given to
the application progran! at thp.
I
I :::::::: ...0"'" ,.. ... ."..
I
II
d
'/
I
I
I
(I
,I
I'II,
I!
II
I,
,I
,
I:
II
I
\ III
I '' ,,
,,
II
\
I
'\
\1"
,,, ,,, ,,, ,,
I
I
I
I'
I
II
II II
I .
i
I ____________________________I
)I,______________________ I____ I _________
I _j
L
L ____________
II
~
lUIS Control:
670
"rTPP'=p,r;P,PLn or
TE'C'!'flL~
or· Rrll'!'f Procp!'>sinq
~
T'liaqrallt - ".1.1.l-n2
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -
r
process:.;i::";.:g'--_ _ __
Input
r----------------·I¥m~~AG!coT
\I
\r------~
1\
I
1\
III I
1
\ I
-1•
II
output for tb1s lcg1cal
,
mt1Bg
/
IIII
~~~-
ID1x-ect T'rP
T'IP
>
CCIIIElete pendlng
output
b.'.'.".,}
/
11
1
TTPCBA1--'~--I-'
I
r
> ~ Release all the TTl's and
=_--'
\
~~:fe'~lIof
---
I
t
\\
,I
any stcrage cha1ned eff
them
~CPPTTPB
I
II
I
I
I
I
I
II
I
'.--.'
§]
I
\
----,
Release T1'P;----)
.
But
US control ptogru
[;;······l
----,:
'vI
I
I
/
I
I
!
iI_______---1
J
L __~____
D1agra... b.1. 1.Q-01
BftS Control: 'IYP!=PAGEOO'l processing
I
!
~~es
,------I---/--!--I\--- - - - - ,
Bcaune' Label
Hate.
\~
Practically all the PAGBOOT
process.ng takes place
Ii@J
I~
I
I
I
I
1
~
------~
~~_O_ _ _ __
I
f. . . ---.. . __ . I
ospiiiiSp
t i lX~:~:D9
\L
___
I
,
I
I ........ '
l ___________ >!
41SF_
lOP
message
/
l~m~tSP
PAGB
Output
!
mzzzzzzzzzz~ ~
Co.plete aoy peod.ng
I
! \:=.:!/
I~~~~II
add....
/Os'Pim-p-/ii-/
1I1I
I
• --" II DFHftCP:
ra~:HDO,=,~ r-----::::~~: /a
OSP'lTP 1st
-----1
PROPERTY OF IBM
.0
the
ftCPCPO subrout11l.e. ortie IUl1n11De
sets up
FciD~ers
I
,
IHCPPGOOTI
',1
II
I~I~~-I-~
I
is the page buffer, a.p copy,
a.d up TIOA.
OSPU
.ree arEas chainEd off the
like· U:e title record sa va are a
and the returnE'd page ll.st.
ita -1D1 tl.a11ze oSPtfA.
'
i !
I
I
II
l!aCPEXIT
II
I I
I I
j
II
I
I
II
I
II I
____________ III
III
I
"
\
I
II
Bas Control: T1PE=PAGEOQ'r Precessin9
Method of Operation
1
I
I
II
I
I
IIiCHTPPR
I
I
fer IICPCIJO.
Tbe storagE chained off the 'lTP
Section 2:
1
\\
'---:----------
/I
II
I
II
IIII
II
I1\
II
/ I
II_____I____ I I
I
/
!1L -___________________
\
I
/
~____'
D1agram - b. 1. 1.4-01
671
LICENSED MATERLAL -- PROPERTY OF IBM
Input
.,n.'--------------.
I
rlOSPCTTP--l-i------------->II[~~
~¥~rent
I
•
l addIess I I
----~
I
I
I ~
I,
I
b.:~.::"
I
l ___________ >1 ro;;l
I!' r----------->
I\
,class
I',
f
rnn'iTTE-l
',,' " .ad_dross...J
'--
II
.
I
! \ ~~/ ILi;;;::~~o~~~-----I
______
I r----------~==:=:-;)l
L::.l
:: TTP
'¥iil~TLE ' ' ' '
record
I"
, @l
II ,.------l Iaadress
03
II
ITT PPG NO
, - - - - - II
I
OS'TERIO
!
'IIII IIPage
number
I
I Error
----.of
I term.nal
II
II
ITTPTCN'
I
110
I I
I
~~~~tnal I IOSPOPRCL II I J )
l'I \~--------I
Operator 1--r.-'
[04l
JI
ralllal-Ding data 1n the
~'---->I ::'::J
I f dispoS1tion not egual
I~~g~.~ha1n
"
I
I .
I
~~,
<7:1
('
>
------------ /
I
I
'I
1
I
I
I
~--"
!':':""1
•• , >100,
I
I
'I
I,
Ill_
[B1---->
using the DPIIIC TYPE=POT
~
"ypo
7777777777777 >
',
'I'I t TC'rTE
l6;~~e~t -.1'1
-'
,
.aero, inl.tiate thE CSPS -.--------- 1
"I >fTCTi'Eir-t
---I
I
task at a spec1fl.ed time
'I
II
li~rlll.nal
I
II
I
1n the future and pass the
,
l
______
-'
'
f
t
C
R
as
data
to
that
ta.k
)
,< - - - - - - - - - - - - - - - ' ,
I
'I
OS 'VA
=l~'>1,
r'l'OO.'
I
r------l
g:Pl!DEL
.. --->~
\
1I
I
\1 -,1
~
t
~1SiiE~:f-->0
I
ro:b1',
TEl---->1
L.::J
~
I
_o_u!t __
L••
"
l_______:~kOy _J
I
F TS TYPE PO't
h
OSlOg teO
H
=
_acto, place the nCR on
Temporary storage
I
'
I
7777777777777
' I-'- - - > 1 @ ) 5 \
1'-O-S-'-TRb--1
I
,
Get ana build 8essage
Contr.ol Record ,nCR" for
If Dot 'delayed delivery'
I
I
I
I
~/ ,~~
'OSPEGCN-"
I
'I
I
t
STORE
the logl.cal .essage
j
I
I' /'--', r--------. I
!~~~lac:.J ! !
\
I,
buffers
"
m~~~~sp-l--,:-'I
I
Go to Page and Te.t f.Hd
program to process any
1 OP
I ·
!
DfHOCP:
l:::~~/
\
Ol,lt.put
I
r:L., I\ _
I
as...
PAGE
1----------,
Processl.ng
r--------------------jftCPCEe Ro •
r::-"
r=
I
\1
~I >,09,
,1
I
rttAICRT:!
I tl.lle
Reg.oated
II
TCAICQIO
Regue.t 10
I
TeAICDA
Data
I
laddres~_J
I
\,
?21?lZZZtl1ZZ'/>
~
L.___________J
TCA
L__________J
BAS Control: co.plete Eend1ngOutput
D18graa - b. 1.. 1. 4.1-01
r------------------i-----,--------"1 r
----'"
-:I
1.::::.------------------\
-:::~~:!-~=--I~::.-! L~::..--------------I-~:~~::L~~:=-L~I
l§
!la
!
I
Any part1ally bU1lt pages .uat
\
!OCPPAGNGI
bo completEd acc«d1Og to OUT,
STORE, or RETORN.
I
I
I
'I
1nd1cates that the pages have,'
"
"
This
rEguires
the
bU11d1ng
of a
AessagE
Contrel
Record
ttlCR) "nd
I
,
:,', l::"
'-;;;02',. Disposition equal to STORE
',
\
'I
I
I"
I
I'
,
"
\
I
I
I,
!,'ftCPNODOS I,
!
,
I
I
:
I
I
II
I
I
1',
to lator retn.ve these pages
from Temporary storage or ...'INK
~
to a program (OPHTPBJ to
retrieVE these ~ages DOV.
t
~
I
I
IncludEd in th1s OCR
>s
a list
of ter.ml.nal 1dl9ntifl.catl.ons that
are to recelve "'.he
log~cal
.oss.g,.
I
l~]
,
'
I~
i
Tbe CSPS task uses the program'
,,
,
DPHTPS which builds an AID and
I
I,
issues a DPHKC TYPE=SCHEDOLE
"
I
I
I
,
I
\
I, '\
1'1
II
',\
I )II1
I
I
!ftCPTSTRTI
,
\'II
I I'\:,
"
the inl.tiation of a task ,CSPS)
I
I
',;
I
been put on 'temporary Storage.
I
II
'I
'ocprsPoTI
I'
I
I
II
II I I
I
"
I
I,
'I'
I
"
I
1
1
J
I
I
II
\'l
I,'
)1
,~
:
l'
I,
I
I'
I
I
I I
Il
II\\
,I
I
,
lb. 1.·10\\
It:
,
I
"
I
,I
i
I
I
I
I
I
I
I
!I
I
I
I
,
I
macro for every tern.al
I
...
I
'
l.dent1fl.cat10n 1n the !'ICR.
:
J
'
1
,I
I
,L_____________________ ,___ • ___.!..
I ____
' ..J"L _______________________________
I
I ---lI
'
' I
"
I
I
~
Bt!S Control: Complete Pendl.ogOutput
672
018grall - b.l. 1.. «1.1"'01
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -
r---i
r-----------l
P J : o c e s s l D g C;.u",t"Pc.:"c.:t_ __
Input
!
II
PROPERTY OF IBM
I!@!)
If C'l'RL='EUI N or RELE! SE
2
or .;
l
I
[~> fUl
1
r:~----,J------------->I
@!]
10.". zzzzzmzzzzz,/
I' I
~g:~:~gr II
I
I
iiCiiiLi3SII I
II
I
I
I
iiCii1iiiiID I
I
I
I
_--1 ,
, <,:::':/ li--------l
_______
Build a_ AID a_d
a!
DFHKC 1YPB=SCRBDULE .acro
I
AID
/Ui-~
assoc1ated
fields
_.II
for every ter .. nal
\
Indlcators
II
I
'
ldentlflcatl.OD 1ll thE flCD
'I'erll1_o1
10
1'--"
~~
BUlld AID and
,
\
I
S~~_E_ _ _ _ _ ..
,
I
f091-;i \ 1 @ ! ] R e l e a ' . K C R / 1
\
' I -,/
-1
' <, ::':~, > ;~irnrn----
I
/
I
I
1'--"
CiOl-;i\IG
1,1
"
-,1
I
r;;l;j\I~
\
,
-
Ent r<_tm
Beleas6 lSCR
/
I
\1
..--.'
l::~/>
I
rn-----J I\
' I -,1 I
II
1'--"
, \ I.. I/I~~----1'l'!PE"PRBBftlIH
I
!
II
I
IL
r--t
~ DPBec fYIE=LIHK to page
Retrieval lDPKTPB t to
:
I
-/'--',
traDS.lot florst F8ge
fiiFij.j:pji-----..
I \~/I~
----I
IL
I
"I
L _ _ _ _~
Page Retr1eva! •
---1
Diagra. - b. 1. 1. O. 1-02
DRS Control: Co. plate PeDd111g0lltput
-i~:::~:::::-~ r, Hotes
I Hotes
1-
I@]
C'1'BL=REUIN or RELEASE ind1cate.
I
,I
to the toroinal IDlH'1'PBI a U d !
I
contt:ol retuJ:Ded accard1ng 'eO!
BETAIN
I
15
spec1f1ed,
other taeks are scheduled to
trans.it tlle pages and control
I
18
I
!
§]
II
'I
II@J
\
I
,
I
I
I
,I
1,18CPCK80R
pc1Dters ax:e Ieset and
contJ:al teFEats at step 01. If
I
II
\
I
:
I\'l'W
I
,I
I
IIftCPftCRFR
I
jl II
__~ ___!
I
_..J
I
Il________
I
I
I
II
,I
I
I
I
Method of Operation
I
I
I
"
1\
t
\,
I
I
I
I
II
I
I
I I
I
I
!
\
II
I
I
,
III
I
I
I
I
I
III\I
IIII
lIIL_____
I ______
I
I
I
"
II
I
I
I
11\
I
B:tS Control: COlDplet!! 'endl.ogOutput
Section 2:
',I
I
,
I
II
"
II
/
,8cm.CB
Pnor to . .it, a cb$ck 1S .ade
not another T'I'P, ent routlOe.
I
I
I
I I
for ancther TTP. If there 18
Il o n e ,
II
I
I~
I
Lab:~--!t ~
I
II
!
'I':::r~::t::lt~: ~~:~:A~assed
I
II',
"
"
returned to tbe apP11cat10n!
prograo.
::e
I
6ELEASE. If DEl1ther
BE'1'AIN _or RELEASB
I
no::nel
\1
page of output to be transalotted
I
,
-------!---,--I---L---------------/---I-----I
1
/
I \
,I
I
IIII
I
I
I
I
I I
!
I
I
or
thot tbe u •• r dedre. the first
\
I
PAGE
\
___________I _ _ _ _ _ _L___
01agram .. b. 1. 1. 't. '-02
673
LICENSED MATERIAL -
PROPERTY OF IBM
r----------------l
Input.
PrOCessl.D 9
j-------------------j
I
I,
,
1
,\
I
I,
I
I
I
i'l:
I
:,
I\
,
I,
!,
,I
I
I
I
'I .-:--,
I
asP'"
I'OSP1ab---',--,------------->'L~:J CTRL=RETAIN or RELEASE
Type
,
I
A.
I
I
If RETAI N, go to eX1 t
Return to Program Control
1 _:..I
I
"
-I-,1
I
!I
I
1
I
:
I,
j\
I
'1
'
1
I!
I 'I
I"
\
I
\
,
I
I
I
I!
!
I
,
,
I
I
I
I
I
\
,I
,\
IL _____________JI
"
IL_______________JI
3
lh;;j\
routine
I[1"
I
I
II
I
3 OF
,
I 'I
!~i~~e:t J
t_____
----------l
PAGE
output
,
I
L ________________
I
I
~
D1agrall ... b. 1. 1. q. 1-0,:1
BI15 Control: CCIIIFIete Pend1Dgoutput
r----------------------,----.----.---1
I'
I
I
l~----------------,.-----1----1---1--, \------------------1---'----- ---I
I
I I
'
,
, ,,
',\
I
I
I
\
I Notes
I Routinel
~ Return .ia • Of "PC TrPE=RETURN,
,
I,
I,
,
I,
I\
I,
I,
I,
I
I
I
I'
La.bel
r--------------------.----I----.-~
I Ref
I,
,,
I,
I, I,
1
,,
,,I
I
I
1
I,'
Routinel Label
Notes
I' II
,"
(
I,
I,
II
:
'I
II,
'I
II
\
\
I
,II
:
!
I
I
I
1\1\
II
I
I
I jl
I
I I
I
I "
"
1\
"
:
:
I
"
I,
1
I
I\
1
'j
I
I
II
I
I,
'I
I
! I I I
II
I
I,
I
I
,:1,
\
I
I
I
I '
I"
,I
: :
l____________________L_____L___L__JL__________________________ .
j_.__________
Bl!.5 Control: CCIIIFlete Pelldl.ngou'tput
674
I
II
II"
!
"
Ref
1_~
OJ.agram ... 0. 1.1.4.1-0.1
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
I
I,
I
r---------
l?~ocess1n9
Input
lmi!~om
r---------TTP~
I
~mGNO--'1
I:~~ger
I
\\
11
Tiiiiml
I,
rllsp SLltt1X
'I'
ill:~ r~ftCP:
>1 8
·r----------->\
I'I 1
De.,1ce
H~r.ol' ~,
I,II
111",
fo't ev'ery TTP that has
--,----------"
pages CD Te.por«y Storage
\.
.
II
l~m~~e::Jl!
\11
I rD'iHTS--~
-----------1
'r--JI
II
I
I /i;;j'>!ftCPlTT-PR-=l
-II '.--./ eeleas~
_ _-'
II I\
\I
~~~ii~g
,~
II
I~~a~d I I
I
II
19r~~JPTTpl!Lj'
I,
~~II
I
II
ir~:PCHAU
I I !I
Address~f
I\I
L~~t m
1
jl______
1st,
Release all areas chainEa
I\
I
:\'
I,
I
I
'
I
I
'
I
I
II
I
I
I
I
I
I
I
I
I
I
1
\ ,
J! !L
t
I
I
off the OSPOA
I
I
___~\
L ______~
Diagra . . .
BlIS Control: 'ltPE=PORGE Processi.ng
I
------------!-;:::~el,
IE] -.
Motes
I~
\
I
L::--IB:;tll
Note:-----
---I----!~~I--,I-!~CPGOTTP111 I
I
I@J
These area. include the title
I
!~CPftISC
record sat'!!! arEa and the
I
I
returned page list.
II
II
\
1,1
,I
I
I
I
I
! !I ! 1II
I
I!
I II
I
I
II
I
I
"
!
1
I
I
I
I
I
II
I
!
IIII
I,
\,
II
II
II
tI.
1. 1.5-01
---------'-::::::-1L:::-r:;-]
--I-,--f~~
! I II
I
I
1
I
I
I
I\
\
,
1
I
j
I
1:) P
I'
,
~
I
l2 •• p~~~:~~_.l
f-----------, @) ~:: :::,~: :::.:::".::'
l
L--_____ --~
I
\ .------------,1
I
oSP .. - - ,
I
I
7777777777777)')
I
'iiPDCiS- 1..-
I
Issue a OPRTS TYPB'POBGE
:
PAGE
-------1
ont-put
'I;
I
I
I
I
!
1
!
!
II
I
I
I
'
'
I
I
,
I
1
! !
I
I
I
,
I
I
I
Section 2:
Method of operation
JI
I
1
!___________LJ_ul______________I__l_J
BIIS Control: 'tIP!=PORGE 2rocess1ng
I
',I
I
I
D1agraa .. b. 1.1.5-01
675
LICENSED MATERIAL -
PROPERTY OF IBM
Input
process1ng
r-----------l
I
I
I
I
I
/
':1
I; L__• \
II
OSPIU
fOSPTE. RI
l
D-,I--I' . -.. . . -.. . :::!~>I'
I
Tera1d of
error
l~~
fi
II
L: •••• >
/ /'-'\ --------=lI
I < .·-1 >ITCTTE Locate
I
IL~TE for
\r-ol
r It!5~~ess--'I r--.. --.. -----> II~
I
,
I'Fec1f~~
I
Build the D1rect TTP
I
II------f~;~;~ll, Ijl----------->!@] ~;~~:A~~ut1ng TT~s
I ITCrTmE"
II ,
1 /'-'\ r
--]
I
~m~'1on /11
JII J
I/ \~V :~~---Il
I
II
I
II
I r~Ustjj~l
I
l8U1~d
l~.t
1\
t
'/1
>fi~i~~OSl
I
·
----~,.<.,
1
for
r
TeTTE
'''9O'.1on.
Area
dependent
I
I\
suUu
II
Boute L1St Reeo!l,ltion
Motes
--------route
for that
rTP
l
TTP
> (rout1ng,
'
r~;;oc1atedf
lf1elds_J
I
I
L
J
---r;;:.unel Label
I
J
I
____.J
Diagr•• - b. 1.2-01
~Bef fNotes
I
1
!I
!I
I
II
I
I
Rouune1 Label
I~
--------1---I--j---I-----------------I---I---- - -
After precessing hEre, control
is passEd to cne of the
I
I
follov1ng: Step 2, Step J, Step
I
., or Step 5.
I
III
! I
ImoNLY
I
I
!I
I@]
I
!I
The TCTT! fETCH routue .111
return tile address of the Dext
TeXTE for a ter_in al that 1S
UDALL
Ii
I
I
supportEd ty BftS.
II
I
I
I1__
Boute q.st Be!olution
I
!I
I
I
II
I
I
j
II
L
I
676
I
,I
L _________
II@)
\,.-,1
_____====:::::J I
I
'
l§
I
_I /
l TCTTEftS~.
ftap sUf!:!J
l'
I
\,etch
the the
nut'Ie'!
'leTT! in
.. __
asp ...
loSPTTp--j
St,rt of
I
¥g~t~g _~g~_
1 OSP'rrcNt
_
-TTP
1 Icounter
I '----
I
II
2
osp.,.
f
are,
P
specified error terl1nal
I
~~_
C)
@TICheckVal1dl,tyofUSEr-
rTCAlill'1-j·-l
I P8cl.l1ty
I
l ____ ... ______ >
~cntrol
1
OPHBLR:
I
iCA
I
PAG!
output
!
II
l!II
II
I!
II
II
II
I'
l _____I__L_J L
I
I
I
I
I
I
I
1\
CICS/OS/VS Program Logic:
II
I
I
I
I
I
I
II
I
I
!
Diagraa ..
tI.
J
1.2"'01
Description
LICENSED MATERIAL -- PROPERTY OF IBM
.-------
Input
proceSSl.ng
--,
I
I
OSPY!
',--,,/
I
:,1
' . . .1
I\.----------, I
II
1rnru:l11
'm:,"n.l
TCTTmE
I § Blll.ld
area
address
II
!, ~--;;]
II
5~m~DS II'
II\\
II
dependent
I
I
I
II
~~-,
J
II
!TCTTEIISS
I
.op su OBLT •• lfl---->~
,Pntre to
Terainal.
~
I route
h~j
I~
___
I.Operator
1a
ORLOPID
I
I
I
I
:
The 'leTT! lETCR routl.ne v11.L
return thE address of the next
TCTTE for a tera:i.nal that 1s
I
IL'I'>
OS Pill A
,OSPBC 1
Return
~
1
__1
ORL
\
I'
I
I
I
LI
J
)
I
I
I,
11\
II
,
III
II
IRLRLIsr
!
I
,
I
I
\t
II
I II
,
I
I
II
P
1\
/' II
I
!
I
II
I
I
I
I
II\I
II
I I I
II
I
II
I,
IIII
II
I
II _ _'!-_.J\\L -___,____
________.!-___
,
Route Ll.st Resolutl.on
Section 2:
t··"i;)
11'11
I!
II
:,1
I
,I
!
!
I\
\
1\
,
I
_ _ _0_.'.>0
I
I'
I'
\
BU1la-l
route !1St
that TTP
I
-\-~::~~:\~~L~~ll~II
IRLBOPCL I
I
I\
1
Ll.st
zzzzzzzzzzul J'
I ---,II,....--------
I
I
\
1\:
I~Ulld
I
~> I~I
I
If ORLTRPlID is specl.fied l.n the
ORL entry, tbe TCTTB LOCATE is
\
Cor
~
! ::~~::;::.:.:~. :o::. I I
I
-
~-,
TCTTE for
<~~~~>tRoute
11///11
lEnt
I
_______~
supported by BPiS.
I
I@J
~.
I
I Hotes
~
rCTTE
! ,
r---------------------I
I
\
Locate
\'
,i. zzzzzmzz{~{\/
I
11~11 I
[L::::f:::c~
~~~~~d
II
,
Boute List Re.eolutl.on
1:
,
TTl's fer the
the user route hst
I' (~~~~>rTCTTE
l'Locate
I
---..
--
rout~Dg
terun.l_ spec1hed
!
'111
~if~S1:Jn I
I
~m~ i~et~:·~~
for that TTt 1. ,. 1
0---->1
0----> I
I
rCTTE
TCTTB Fatch
--------
>fRoruListB;u-d-l
B~~;t-
___________ >!
I
I
/L-J,
< ,-.,
IIII
2
l
< , •• , >
I
2 OP
,--'----
II ~el---->I
I
II
[m~f~~
--T~--~---->j,~~:~::oUt1~=:_l Z~!I-zzzzmrl/:~~/7Il>I'
,==_--l
I
1\
III
I
I
PAGE
Cut put
r--------~
Method of Operation
Di.agraa .. 0.1.2-02
I Routl.ne\ Label
,~
I
I
I
II
I
I,
II
I
I
I
I
I
I
II
,
I
I
I
I
I
I
1---/---1--1'
I
!I
I
I
!
I
I
I
II,
III
j
I
I
!
I
I
I I
! I
II
II
II
II I
II II
IJ
I
I ! I I
!I
II
II
---.:--
Dl.agra." b. 1.2-0:'
677
LICENSED MATERIAL -
PROPERTY OF IBM
r--------------,
Input
\:
1
TeTTE
II
1'~~~gDS
proceSSJ.D"'-9_ _ __
I
r:L-"
t:::-=-!/1I
'
I
I'
r------l--------------.. >' @'.D
~~m~eDt
L____
~
II
'
I
I
I
'.-..,/
r~h""fuMsJ
~ )l:J
fA] <71---" \
11n ORL ---, I
IA --,/1
I
ili~~1
have
sUPflied
-----
I
'
I
JI I
the
I
I
TTP
for
---------'
I
BuHd aD entry iD the TTP
user route list
--II"
[
I~ (' ,
-- I
-E]
•
-
Area'
I '
1
I
,I
>~CiWGLl~)rc1
L1, Des on all
L;,
I,
IE~_e- -
,
I
I TC!7EP,IlC
~::i~:~5
;;:
I
10
1' >r[1
fTT'PTciiT-l77
icount of
-tl
t:J
I term IDs
I
L:~---.i
1
/
I'
I:
II
I
I
II
I
I'
I
§
I
I
/
1
r
I
L _________________lI
1
.,1
L:J ---,/ I'
II
\
/
l~~~nter
.J
I~~p Chal..D
~~
UP
.----ITTPTeT~E
Address of
TCTTE
[- TTPOPID
~gerato~
TT~
TTPTSF~
! ~ \ I '1;~~~;;il~P
II
I I
I,
TTP
TTPl.INES
flost
I
restr1C-
\
r~:gtcage
Return V1a the ll.nkage!
regl.ster
j !L - -_____________(f=~
J1
J
I
>fTTPCHAIH
IflZZ!','
!
81n
TTP
III
7;~ 0
I
Rout1ng
II~
--,/ t.!J
1
OSPTTCNT ...
[I TeTTE E x t . , '
\
I
r ~~~~t~r
/
I
---"r.l
1 OP'
, lospup - ,
1//
\
I
r;:]-'
,
~ --,/
0 n ( \1 ~
OSPil1
)\
entryZZIZ?l.mz.?!\~/l,~/>
r.:-------=1
r--------
r li'-TCTiiHEl-l-->[E] -- / : for th1s
extenS1:JD I
, e n t xy
I ~aX~.s5
I
I
I --j
I
\
correct
fii1---->1
TCTn'
\
'1~d
I
I L-...... \
'15CPI.2.1
,
\
1\
th15 user route list
I
r
1
DPHRLR:
PAGE
Cut put
I RetUrn
I
I
1~~:iriC-
I1
/Udth ____ J
I
ITTPCOLS--l
tl.'1e page I
1
11
______
____',11
,____
Route List Resolutl.on ... RouteList Build
Diagrall ... b. 1. 2. 1-01
r~~::-----------------T-;::~::G:::_~l.-I ~----------------!-R:~::e: Lab:-T~~
:::-::-::~:-::-:::~--I----I;;:;;:~ - - - 1 1 1 - - - - - - - - - - - - - - - - - - - - 1 - - - 1 - - - - 1 - - - - 1 ,
t @1
If
I
flond the one needed, l.ssue a
1
I
DPHse
TTP.
TYE'=GET~AIN
for aDother
I@)
!
I
I\
I
II
II
,
I
I
I
• I
/
II
I
\
I
I
I
1
1
"
Por every ORL .ntry. a TTP rout"l
I
I!II
I/
mBLDL
II
I1
II
II
I
I
!1
II
I
I
I
I
I
I
II
I
I
I
II
I
U5t entry 15 built 1D the
I
proper TTP.
' I
II
1
II
I
I
1
I
I
IIII
I
I
II
II
,
II
I
I
I
I
II
1\
II
II
II
'I
II
\\
I
1
I
1
II
I
I !
I
II
I
\
I
1
!
I
1
I
I
I
I
d
L_____________
\1
IL____________________!I _____ ~
I ___~_...J
j
1
II
I
1
I
1
I
I
1
I
1
I
,
I
I'
I
I
I
/
I
II
!
I
\
II
I
I
I
1
I
I
,
I
I
I
I
I
____ ~ ____ ~____'
Dl.agra .... b. 1. 2. 1-01
Route List. Resclution ... EouteL1st Buila
678
I
I
/
j
1
,
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
I
r-
TT'
l_
--
[TT'PGBUP
f
~.1.-., ,
...... >
Obuu page buffer
storag6, 1f nec.s.ary
SC '
,
!
~~lIm:J
•
Pr.pare for current
l:
PAG EBLD I:eqllest
>II~A!.. 58T=11_>@ ~]----> ~...,
II
BltStKJDB'
BftSlI1RG-t
~
(-_cl--"'->
C
l~ne
---->1
\:.1
rlOA
-
1--, L _______",
ChecA for current page
1\
overflew
I
t::::l
I
•
DPHPBI?: PAGEBLD, Hon-3270 outpot ftapIirg
\
On the first r.guest for
a buffer 1. obtB1ned and
,
dependent char.ct....
II
~:.~:::f::g:::~:s
I
II@)
I
I
," a
"
I
I @J
'I
1
"PBOOOOS"
for.atted vith blanks and dev1cE
I
af::: :Uffer!
If JUSTIn-rIBS!· . . . specified,
si_ulatEd before ccnt1Duing
II
Imooo 111
I
I,
processing.
I f the .ap vill not f1t OD the
current page, the overflow
II
I'II
I\
I
~~ ::T:::~~C:P:::f:::::~:d.:::
IPODO, HO,
\I
II
'II,1
II
Por PIBLO data, thE data 1S
\
positioned according to t.he
\
f1eld specif1cat10ns proVl.ded ty
I,BDo;,oo
1\
I
L
__________
' _ _I__J
DPHPBP: PAGEBLD, Hon-321C output. tlaP'FiIg
Section 2:
"I
,
I
Method of Operation
I
I
L.
Diagra. -
b. 1• .J. 1-01
----:,----,----.--:1
I~~:I~I-~
I
I
I
I
I
I!
I
I
I
\
\!
!I
to colo.n and bne.
tbe usel: in the aap set.
I
,'!
I,
providsd in the lIIap set, then
tbe data is pos1tioDed accordl.ng
',J,
I'
DPHIICP.
returnEd to
,
'III
indica1:or is set fud control is
I
L
I
I
Tl'PE=PAGEOO'r proces81Dg 18
7LZ2Z2ZZZZZZ)
I a:;-t r;:::-
I,
is Dot cttained.
177}'>1
7777777777111\' II
JI
I~~gooosol
page,
'
I
"I@i---------I----,'--"--,'"
0'
a
!
\\
__ .
II
I
I
. , :Boutine,' Label
I
--------
I
I
I
~----
Oetermin. da. . starUng
address 1D page buffer
1,@!]uPdatethepageformat
p01Dters
"
I
DUllher
f'();1 !love data to page buf£f!:J:
I ,-------"
I
I
r
I
I
\
1
~]---->I
TCl ____ >j' ~
[0';;1:
I
I
~ Locate starU,ng COlUDD aDd "
m---->'§)
I 04
@]
I
I
1.2.'
--------'
rc]---->!~
I
2
,
,
Irntl
1
8
I
-;-- >l~ l~j ----> I
1
J-L->[il
I /~
~ I
l:l
',-,/'>t---------,
r.l raJ
l:JP
,
I
OPU'B':
----"
PA.GE
f-------------.
output
pz:ocess1Dg
l~UE=EAGHto r------------~
J
D1agrall - b. 1. .J. 1-01
619
LICENSED MATERIAL -- PROPERTY OF IBM
r--------------------l
Input
j
II
I
!
r-------------l
Process1ng
,-------------1
Out put
PAGE
2 Of
2
r~hCPP.LA....,I-!----------J@ l l i l
ICSACPPL
l~~pPEA~
I
I
II
I
<';-;-:,'>iPBDocrTPT""""----l
\,--,/
I
I
IpEr£o.t;-~tP-ut--\
_____}
~~ym
I
\
I
I
I
/
1
'--~
I
I
I
I
I
I
I
I
I
I
t HOC ••. 1.1.3/
I
II
!
I
:1:
I
I
I
IReturn to
I
I
1
I
1
I
II
l!::::~~}
I
\
\
I
I
\
/
I
\
I
I
I
I
I
I\
I
I
I
I
I
l
!
\
1
t__~_______________
I
J
OPHPBP: PAGEELO, Non-3210 Output HaPfilg
/
I
I !
I
1
1
I
/
/1
I
I
I
"
I
!
L__________________J
I
___________________J
Dl.agram -
b. 1.:J. 1-02
r--··-------------------,---i----T--,,-------------------j-----,----T----j
I_~~________________ I' ~:~::l~~~!~~ll-~:~:-----------------1 ~:~:I-~~~-1_~~J
I
I
II
I
I
I
tPBD01.:WO,
\ I
I
I
I
TYPE=PAGEQOT proceSSl.ug loS
' I
t
,
I
I
simulatEe.
1
I
I
I
I
I
\
I
II
II
II
I II
1
I
I
I
I
I
I
I
I
I
I
I
I
I
I
\
I
I
I
I
I
II
II
II
II I1
I
III
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
II
II
111:
II
I
II
I/
!I
I
I1
I1 II
II
I
I
I
I
I
II
I
II
I
I
I
I
\
II
II
II
I
I
II
1
I
I
II
II
II
II
I
I
\
II
I1
\
I
I
I
\
II
II
II
II
II
II
II
II
IL ___________________.!.I____ \ ____ !.._
I __ I
I
I
L _________________________________!.._-.--.!
1,=·
. .
t~ I f JOSTIP!=LAST was speCl.fJ.ed,:
1\
~
DPHPBP:
680
_J
PAGEBLD, Non-.:I270 Output tlappng
Dl.agram -
CICSjOS/VS Program Logic:
b. 1.3.1-02
Description
LICENSED MATERIAL -- PROPERTY OF IBM
Input
prOCeSSl.Dg
PAGE
r---------JmE=p;~:, r=------------~!\!I
r----=1 ----> 0
r 1--~
~~~~~/> I
t
r-,
OSP~A
OSPT101
-
II [011
_.:.1 Set specl.£l.ed pag-long
I
AI
I
1______ II
II ~
:
1.: .. ----):
>[----l--"r;l
I
1---1
==:
I
TTP
~----,
f
L..,
r'
T->l:J~F=~>I~
fTiPiiuA--'1I
SET
I
---rCl
I >C;
I
l OAP
>E----31
I
~:'~~~-.ll
L
:~:~-----I
__________
§) ____ >IE~
\
I
I
1-------------1
I r:-1
>fiiiiSiiii!--,---->[EF.1---->I~ update the chau pC1nter
!SiiSOCA
_J
I
-'~,
I
r--, for the maps
,
!iiJ:::~>I~!J copy the oodlHed oaF to
t
the new area
I
,-,
I
II
I
A. Add control l.nfox:matl.on
I
B.
~J---->II
I
I
I
Update '&he startl.ng
J
I
L__________
I
-j-2-70Cut-p-.-t-K-aWl n g
I
II
I
I
I
J-"
I
II
r>r-----'
~~n ¥~~~.J
I
It
I
m~>1
11//11
I~I
II
I
7777777777}~1
T------I~l
7777777777/~1
Fu~~p
I I~-P- I
I~::-II
I
I
IBOSPPP
I
L-----J
I
I
I
1
1
I
------------:
p051t10n
I!
\
hHPBP~-PA-G-Euii-.
1~1
I:;
~:::~:e:t:::ga tor H e !
I
~!:~
II
J
I /~~'>IsCP1.2.T-----l
1
'r-o/
I
L ___
I
COJ:1ed Map
r=---------,
II
I
I
If
II
I
II
copy usar TIOA to new areaT==--.r-o/ll
II \1'-"
~:V
I
I
1
1
,
ZZ!zzzzzzzW
Check tor currant Fage
overflow
I
lfii7.l
~~~:~--.l1
L:..:______ ~
I
!cJ---->I~
)Jcl t
I
11ne nutllber
I
2
i~I.D01--1
I~I I
Locate start1ng colu.n and
or
OSPWA
177
I
~~~I-,/~
l' >
"I~ I
I
I~I
1
-----1
Ollt-put
I
'-------::-:-----
.
D1&gra. - lb. 1. 3. 2-01
~
,.-----------------------------------, r
j..:::~---:§J
----J:::~~:L~~L~~I!~~----------------)-~:~~:L~:~:~_l-~,
r:
I
I
I I
I
t
1\
:
:
,
I
I
I
!
I
I
I
I
I
I
I
I
"
The user spec1fl.ES the requl.red
:
pagillg. If JOS'tIPt=flRST was
\
spec1hEd. TYPE·PAGEO.T
I
I
I
I
Ir021
\L::J
I
process1ng 15 sl.lD.ulated before
contl.DUl.ng procQssJ.ng.
I
"
l.ndl.cator
current
returne~
~age, the cverflov
15
set and control.).5
to DPHOCF.
I
I
IIr--.
~1
I
II
I
I
If the oap n11 not f1t on tne
The cha1n of pre'n.ous map~ 15
traced to update the pol.nter.
I
I
I
I
I
I
1I
I
I
I1
I
1'-0-7'
IU II
l--...
8. The held spec1hcahons ar.
used to calculate the
5tart1n9 posl.tl.on.
I
II
\
I
\
I
II
I
I
I
I
I
I
{PBD00100 I
I
II
I
II
Imolooo
I
II
II
I
\
IPBD0112010.1.3
I
I
I
I
I
II
I
II
I
I
I
I
I
II
I
I
I1
I
II
I
I
I
I
I
II
II
I
I
II
II"
',\
II
II
:
I
I
II
II
II
I
IIII
II
"
II
I
II
I
I
I
II
I
I
I
:
I
I
:
I
I
!
\
\
I
\
I
I
I
I
I
I
::
I
I
I
I
I
I
I
I
I
PAGEBLD, 3210 output ftappl.ng
Section 2:
I
II
I
I
I
I
I
l_____________________L ____L__ L~ L
DfHPBP:
II
J
\
II
I~
I
\
Method of Operation
I
I
I
________________
!
I
\
I
I
I
I
!
II
I
I
:
I
I
,
I
I
I
I
I
I
II
II
II
I
I
I
1I
I
II
I
I
II
l___l____ ~
Dl.agram. -
b. 1.3.2-01
681
LICENSED MATERIAL -
PROPERTY OF IBM
Input
r----------------,
I
I!
I
I~
Update the page fonat
I
pointers
' I
',1
\
---- l
IC~ACPPL"
I
l iiPiiiiill;;--
I
--
I
I,
I\
1,'
'
I
\ L-I, r
I
(,:':':":/>
-1
~Daly~s
_ _ _ _ _..
\
1
I
I
E=;~
\
,;,
\TO
•.
II
III
I
D'R"CP
1.1.3
II
I
\
I
I
_____
-,---------1,
II
II
I
I
,I
I I
i
l
I
~:!.-_______
I!erfora output
If
I(
OrRPSI': PAGEEtD, 3210 Cutput
2
7;777m77777 1,>
,
,I
I
'I
2 0,
J@)I
CrEhOPPLaA _t _____________>
:
PAGE
cutput
Process1ng
r-------.. ------------,
I
I
L __~
J
fta~pl.ng
r--------------------------------, r---------------------------,
II Rotes
!
Rott1De! Label
II Ref
1111 Notes
\
BOl1u.net
Label
1 Ref
I
I
,
)@J ~;-::-;:~;~~;;.;--- ----·---l---lt~II-------------------I----II----j---1
I
,
l1nks to 0'""32 to output the
I
pagE before returll1ng control 10 I
I
D'""CP.
\
,
I\
,
I
,
I
I
!
I
I
\
I
I
I
"
I,
,
I
I I
I
II'I
I,'
'I'
I'
I
I
I,
!I
I!
I
"
\
I"
I
I
I
II
III
II
I
IIII
I
'
I
II
I
\1
\"I
I
II
I!
\\
I,
II, I III
I
, , I
\ 'I
"
' I
' I
I
I
I
I
I 'I
IIL _______________I,I____!'\ ___~_.J
"
I
I' I'I,~___________________
I
-----'I
I
,
,
DPHPBP: PAGEELC, .:1270 cutput flapping
682
Ol.8gra ... b. 1. J.2-02
CICS/OS/VS Program Logic:
De$cription
LICENSED MATERIAL -- PROPERTY OF IBM
i
InpUt
r----------------1
II
\
(-1
:L_",>III
I
I
I
t.:.:.. -,
,'--'/ I~
I
I
' II
I
OSPU
I
I
T[;~~--'---1
'lIOADBA
J I
I
I,
II
I;
(
'
I
Ill---->l
L.:..
IfQjl
(l:::;
I
t ______ •• __
\
CSA
1I
I
I
·>1 [~
fQ51
E1-,•.---.> /l:::::1
I
I
1.2.1
\1
-----
\
I~
I
I r.;;-)
I
I
II
ICSAam-1
1------1 I
tDrBU'PEA I (
I
,
I
I
II~
,~!
I
,I~I
Prepare for and process
~"I
i~}~"
any JOSTIP! SpeCl.f1catl.One ' I I , ,_
Load the text buffEr
Update buffer poJ.nter
I
m.zzm~z_~ I
-- I
Page the data as needed!
I
1'--"
I
I
analysl.s
out~ut
I
I
:
I
---,:L
'vI
L______________J~? 1?~~~CP
L________________---l
I
TTP
[IDpoB.r
1
~~
I
I
1:1
~
\
( PBDDSADR
'rellt
I
,\@
) r : : - - ••••••
1
I
I
I
77777m7777
---------111I \ ' >
I
r--------,
------'
, \~~/ lPerforll
~~::-------i
I'
-------
I
11
/
I~'
I
I
reSAOmA'-·-·····-·-·-··>,~;
I
I
\
Add beader data to buffer,
>f requested
ZZ"ZZZZZZZZm
/
III
-
[----------1
-----------J
> scp
,
\ r~ll r.]
I§
[-----]
~~ _ _ -j-->/!) ~ ---->1
\
1
,
",-:.1
II
I
or
1
Allocate usar storage
1 <1'-"
,•• ,
I
1
I
DFiWBP:
!
I
PAGB
--------,
cut[lut
PrOCOSSl.Dg
--jTYPlaTUHLD
:
L:=-=-~___.
...J
HIPortAT 1.1 Dl.agra .... b.l.3.3-01
DPHPBP: TBITBLD. Non-.:I210
r-----------I
I
l"-l
t
Label
1----------------,-------1----1--11---------------1-----'
I
,
II
depEndEnt
I
I------1---1
I
I
\ fn.1
r - - - - - - - - - - - - - - - - , - - - - - I- - i - I
I Bottinel
I Hotes
buffer is allocated.
I,
For subsequent requests, the
\
1
I
II
saae page butfeJ; 1.5 used.
\
I Bef
II Motes
I PBDOOO 17
II
I
1\=,
I
"
I:
Return control to DPH"CP wben
the user data 1.S exbausted, else t
II
repEat £1:0. step II.
I
,
'II.£!!
'I
I
,
'
II
1'1
,
\
allocated.
'II
I
\1
:1
Por TYPE=OUT,EDlT toquests,
I
"
,\
I
I
reques~s,
::::;::~ :::e
I
a
T:::::/::::t
I@)
II
I
I
,~
1\ ~J
I
I,
II
I
~at. w111 net ht on tbp.
page, trailer data is added to
j
tbe page, the page 15 forced
\
,
I
out, and. a new page
\I
II
1
I@!
I
\
I
,
15
osed..
:::u~::e:!~:;:lF:!e:~eP::~::::
Control program IDfHftCP) ..
Por cO.fleta pag.s, PBDOOTPT
Unks UPHDSB for ternnal
I
II
II
I
I
Section 2:
Method of Operation
I
I1
I
!,,
I
I
I'
I
"
,I
I
"
\I1\
!',
II
II
I
I
\
I
1\
I
II
I
I ,\I
I
I
I
II
I'
\1
I
,
,I
I
I
I
:,;1\\
I!
1,1
1,1
II
,
I
II
,
I
I
,
,I
I
' I
I
J
I
1 _____
OYHPBP: TESTBtO, Non-327C
\
I
j
II
IIII
-1 L__________
I
IPBD01S'0,0. 1.7
!
t ________________ ! ______
I
I
I
II
I
I
I
I
,
'
I
:1;P~D01SRTII
I
,I
I
I
I I
!
I
1\
,
I
II
IPBD20002
I
I
II
II
'I
,
If the
I
I Ref
l '
I
Por TYPE-OOT
only
enough EF!ce for user da1;.8. 1 5 ' :
I
Rout1ne/
pIOCeSSl.ng.
~ PO~ florst reqqests" a page
!
Label
I'
I
--.J
Diagraa - b. 1. 3. 3-01
683
LICENSED MATERIAL -- PROPERTY OF IBM
Input
r-----------------'T'l
I
,I
I
r-------------------l
I
[-L
:.....,'. ,>,
!
I
I
.T_P_____I_____ ==:!~,' roil Det"r,,'e , f necessary to
fT'P""TCP -1- 7r--------,/ Il--'
I
I forward
lChal.D
t
11
1 1II
i~ap
II
I
po,nter
-----
II
I
! !1'
C;:~~-"!'_J
I
I::~~--I
I~~~mv - I I
l:~~1cat~
IOSPTH7
tYJ:E!
-
1I
I
I
!
force a page before
I
processing the current
t[021
I ::.:J
ObtUl.n storage for lOser
t
:
I
'>r
I
I
I.."..,
f'TTPMicp-l-j-l 181:=~>ll~
l~
1------11 ,
1
L_.----' ! l ___________ >! [~~
- - - - '- I I
I
I
I
I
rii;;s;;o.--l~ )[E1
If051
l-----j
I _J ~7---"\'
B"S~A
A --,/1 C:::1
I
II
Cop1ed Itap
,I
----- I -.
I
;:~--:--!--'
'(-' r;:l---' 'I' [00"1
ITTPPFNn.-I--,/ All~ --,/ ~
,I
\
1
m~ full
I1
ITTPiiiDii2= I
I
- -
l:~~~,
!
I
1
I
I
I
1
I
I
\
I
I,
I
'j
I
I
proceSS>Dg
I
Buld a line of te .. data
1
I
1
('
177 >1
7777777777//1 /
-~---------I
I
77777777777711'
-~--------'a~/
I
I
II
1
I
I
I
I
II
I
I
!L____________J
r~~~::~I~ >@
\
Perform header and just1fy
I
I I""
o'SPm:v-;-11
, jus'>fy
I I
l:~~1
I
update the chain poontEr
I
I
I
I
I
for the .aps
1
~1~:;:H7-:-,J~)[Al
m~est
\
copy the prototype lIIap to
the page buffer
I
I
I
!
\
data and thp. prototype Dlat:
cn ana one held \3270
spec1fl.catl.on are /!loved to the
acquued storage area.
I
!'-~
Ob As each 11ne
II~.
!~~~Wl
of text.l.S hul.!t.,
!
I
I
I
I
I
IPB02>oool
t
I
I
I
I
I
--..I
I
1l~~ld
I
I
llOs1
I
!
!
I
(OJ1
I
I 327C
1
'leU
the lIat: fiEld sJ:ec1fl.cat.ions ara 1'Eul.Jd,
I
Im20002\
,
I
!
I
I
I
!
I
II
I
!
I
I
1
I
1
I
!
I
1\I
I
1
I
II
1
/I
I
I111
1
II
\1
1/
1/
IIII
II
'I
I
I1
!
I
1/
II
I
I
1
\
I
II
I
I
II
I
I
1
~
I
1
I
I
I
I
I
I
I
I
I
1
I
I
l___________________________.!...____ I_
II
DtHPBP: T:UTBtD, J270
684
I
1
I
I
I
!
I
I
I
I
_ _ _ ~ _ _j
I
!
I,
~
I
I
I
I
II
I
I
IL______________________
updated.
H~~ld
I
I ______
!
!
I
1
I
II
I
1
I
I
I
II
IPBD2QuOOI
I
I
I'
I
!
I
I
1
I
I
II
I
I
1
1
I
I
1
___1
D18gra ... b .. 1. J.Q-Ol
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
r---------- -----------1
pro<:essing
I
\,
,
I
I
,,\'
\
,,,
I
I,,
,rLoil
,I ---'
I
I
\
Update the page format
'I (' ~:~' >fPBDO UTPT---------,
'll
I
1------------1
I PerfcIm output
I
L~~aly~ __ ...:.. ___
',.--,/
J
I
I r--,
,
,\,
;,TpPag -e
'
"
,
I
~~:~=-=-_1
!,
"
II
I
I
IIi
I
I
I
!1
I
'
[~~:;;;l
!I
,-,:L
1
, /
I
,
,,
I,
,,,
,,,
,
l'Io
v
,
,,
,
DrH~ICP
j
Itl. 1. 1.
I
!
I
I,,
,,,
,,,
,\
,I
,,
I
,I
,,I
,
I,
,,I
,
I
I
!
L ________c--________
,
I
I,
I
I'
L ________________l"
1 -_______________ -'-_J
,
\ ,
,
~
I
,
D~agraIII
OfflPBP: 'l'BXTBLD, 3270
I
I
----l
I
,
,I
I,
2
,II
I !~~ma +;
:
I~~
!\
I
,(~l,
I
I
1,
~\
1
ZZZZZZZZ~~~~~ I>
pOl.nt.~rs
2 J f'
,.---------------------,,
I
I
"
' I
I ,
I
I,,
,
,,
,
,I
PAGE
Output
,.----------------------,
,
"
Input
-
b.
1:
j.
Q-02
I
- - - - - - - - - - - - - - - - - - - - - , .-----------------------------------~
'
, Notes
" Routine,' Lab.el
I Ref II Not.es '
: Routl.ne: Label
Ref
t
II~~----------------------I----I---I---\
,
,
,
II
' "
,,------------------------1----1-----1---1
I I 08, Por page overfloll and. full page
I
'I
\
L.--I
condl.tl.ons,
c~ntrol
passes, to
0f'81132 tor output.
",
Return centrcl to DfHI1CP when
,
data is exhausted,
"
fro. step
,
I,
12
b.
\'
\
,
I
I
\
e~se t'epeat.
'II
I
I
I
I,
'I
I,
II
'"
1
,
II
I~
@.
,PBD01520lb.l.S."
III,
11
II
II
I,
1/
II
II ''I'
!
!III
, \
\
I
II
"
"
I
I!!
,
1
1
,
I
"
\'
1
"\
I
I\
I
,I
:
"
I'
I
'
"I
I
I,
II
'I'
\
I,
I
1
"
I
,
I
I,
,I
I
I
\
I,
I
,
I
,
\'
1
I
I
I
\"
I
IIII
' I
,
I
,
I
I
I
II
"
\
I
I
II
'
II
I,
I"
I
1\"
,\
I
I
I
II
I
I
,
"
"
\
I
,I
"
"
"
\
I
II
"
I
I
I
II
I
I
I
I
I
II
I
I
\
I
I
II
I
I
,.'
I"
I
II"
I"
I
I,
I,
,I
,
,I 1\"
,
,I ,
,
I
I
I
II
I
\
I
I
I
I
'
' "L _______________________
.
"
l-----------------------------'-------'---~
, _____!."
______ -'-_-1
DFHPBP: TEXTDI.O • .:1270
Section 2:
Method of Operation
Ol.agral!l - b. 1. 3. 4-02
685
LICENSED
-- PROPERTY OF IBM
M~RIAL
Input
Cut put
1,
I
\
I
II
I
r;'l
/
!~~-.... , I
I
I
I'
DPHPBP:
I
L.:~'::I>I r-:'7I
[OspTIiT--J-!-->["iJ
/~
CSPiU
I
\
I
-----
/
I
-
/.
I
II,
[OSP'ii7:J-i-l .. -.. -----.. -->:[O~
/
/-
I
I
CSA
I
I
I
/
'I'
I'CSAOPPL-'
I I
II
L'OPiimEA/
-----"
---.-
"
,ro-:;,
,l-J
I
lCSiom:A-'/--/-'/
CiiimiA/
II
L----------->/ro;j]
I L.:-I
/
/
I'
III
_ fimEQ --ri-l
II
I
II LItTPwc.-/
____- - ' II
I.
/
TTP
I - /
I
I
{"iJ---->1
I
I
II
\
J
\
I
II
I
I!!\//
I
ZZm?ZlZZf~1
II'!'
I
I
\
I
I
output the page
I
I
A.
I
I,
\,...-.1
'I
I
I
I
l======-J J---
I t · · · · · · · ·1
---(;1
III
\,...-.1
I
I
-11
I
I
ITo DPHKCP
Iii';
1,°'1' I..
:,1
I
lL _____________lI
PAGEOUT:
I
the pase
B.
1
,
I
I
Stop fcrmattl.ng data on
----------=1
r--------
'rTP
Z72.ZZZZZZlt!i '>
l I,
I
I
',:
I
II
I
J21Cd~~----'
I (/ ;-;=, \>rDFHlt32b:-i:-S:2--,
!
1'1
!ii;;s;;ii.----I
-------.1
I
Edit tbe end of the 1=8ge
Non-J270 daIDFilDSB 0.1.7
t,r::~::A~~d-!----------->1
\
II
Iou»l,.. pogo foro.'
PAGE
,------------1
processing
r------------------- TY Pt=PAG lOOT r-------------------,
I
L ___________________ _.l
ffTTPPGB_"_F __
Ir,
I
l
I'
P
I
f~~:a t
I
I!~~:~J
I
I
\
L,.-----,
JP~~a
I
~~
I
II
I
I
I
I
II,
II
I
I
III
/
L
I
I
_____________--1
D1agra. - b. 1.
Terillnate OutPUt Request
j.
5-01
r;:::-------------------I-:~:f::iG;-l j.::-------------------l-;::~~::::::-T~~
I;-~-----------------I----t---I--II-------------------------/----I-----t--I
1l!.!J
I
I
I
1'L:::J
027
I
I
:
I
The pagE format (:c1nters are
reset to the1r 1n1tl.al values.
DBn.ce-d"'pendent characters are
added to the end of the page l.f
the EDIT }:aralletEr vas
spec1f1.d.
I
I
I
I
I
II
I
,
\
I
I
I
II
,I
I
I
I
1\
JPBD1bbl01
I
I
I
I '
I
I
I '
I
I
I
I
I
I
I
I
II
I
I
\
I
I
I
II
,\
1\
II
/,IPBD1NLPb'l
I\!,
II'
I
I
II
/
\\
I
I
I \
II
:
I
I
'I
,PBDO.TPTI
I
I
I
I
I
I
I
\
I
II
II
\'
I
II
I
/I
I
II
t
I
/
I
\
Tra11er data , . added
'0
the end
I
of the page 1£ '!'liAILER=!ES vas
"
SpeCl.f1Ed.
II
II§
II
I
Dence-dependent characters are
added to the bufter to cause any
h
l ines rE .a1r.1ng
cnte page
1:0
Il
t
II
I
I1
b. sklpped.
I
1..--,
Il~
I\
I
I
II
!
I
/
\
I
PBDTRFJT
I
I
I
,
I
I
I
LI _____________________ .!.I______I'____ I
~
PAGBoat: Terll1nate output Reguest
686
\I
I
I
I
:
!
I
I:
I
I
I'
I
I
II
I
I
t
I
I
I
1\
I,
I
I
I
I
I
I
I
,
I
!
I
I
I
I
I
II
/
I
I
I
II
II
I
I
I
I
I
1\II
1\
I
I
I
\I
II
II
I
I
I
I
,
I
/
I
I
I
II
I
I
__ _.l1\L ________________________I' ____ /
/
I
II
I
I
:
I
I
I
I
I
I
I
/
I
I
I
I
II
I
~
I
/
____.!./___._JI
Dl.agralll - b. 1.3.5-01
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
CH""T: DPHDSft
Input
r:L.I\
I'
II
~~n---l=========~{'
DPflD~H:
1'YP!=KoenI'l'
I
cbaracters set.
I,01
ITTPUDO'
B.
"
!
I f 3600 or BeRLO •
an 'ftR.
If page nu.ber
=
, and
l±!±!!~
[ ncc
Set in
,
build
TTPYRDt"I' not equal to
§iiiCJlll
Page Duffer
3
'r===l
J?aga buffer co.pression.
..
OP
r.;j , riJoil
L..;I V
Establish pointer fro. TT'P
___ J'
to de .. ic~ control
2ZZZl..ZZZ!.t!I~,/)
@]
,
lc,
Dl'RPflP
~'
PA,Gl
Output:
proces._s_i_ng:......_ _
r-
ZfZZZZZZZZIIT
>
,
Paqe Buffet'
Z2ZZZZZ!.lZ[~
'. insert a Inev line'
seqllencQ in front of
the i!ata st.reaa.
I.~===:;"
c. "or 36011. when Rrase
01
flaq is on. insert a
Paras Peed into the
data strea ...
DftS-Data Straa. Builder fDP8DSBl
I
Motes
~]·-I-f-t-h-e-D-a-t-a-s-tr-e-.-.-B-Ui-l-d-p-rO~g-r-.-.
I I
t.abel
Ref
I I
is entered with 'T'TPE=JOEOY". no
data str.eaa buildiDq is
perfor.ea.
~ nsing the g1.,.en rteyice deoendent
suff11: in the TTP. the address
of the acco.paaying de.,.ice
control characters' set is stored
in the 1'TPDCCAD field ot" .the
I
,.' Lahp.l , Rp.£ I
"I ".outinel"
1 Wotes
- - - - - - - - - - 1----------------')·----1--- --Routine
I
I
I
DSBCCOO
'tTP.
\
!I II'I
\ II
~="::_7--=-~-;-:'7---,==--~---.!..-_J-J
BRS-Data Strea. BuiH.er
Section 2:
[npHIl~B)
Method of Operation
1,--1_ _ _ _ _ _ _ _ _ _ _ _ _ _
I
J
fliaqra. - fi.1. 3.fi-01
687
LICENSED MATERIAL -- PROPERTY OF IBM
Input
proces_"_in-'g:....._ _ _ _ _ _ _ ,
" tt._ n~
J
, ••
generate a co •• on
con t.rol character
Output
1
page Ruffer
L,,=:l
sequence to ~osi t~on
the cursor at linfll "
C01UliD
1.
D. Scan page buffer for
anft, elhillate. trailing
.,
-,/
blanks.
E. If 36(111 and TTPIIRSR 'nnt~'>E1
cbar.cter
equal 0 then
~
by
the cursor at the
l'?Cl!I:tion gil'en
TTPCtJRSlt.
P. ADpend a Portis
I
control --11
seq ••nc. is
geDf'!rated to position
Pee~
sequence for
,
I,
~C>0
trans.issieD of a fall
paqe to a 3600 printer.
o.
If "('!ITt" and Tab
feature present, insert
a ppro'Pri8te deyice
cont.rol characters.
f;'"S-Data Stren Builder tDPADSR)
1~:::I_~I·ef'I!-·-ot-e-s------
Motes
,
~"S-Dllta
688
Stre~.
Buililer
1
'----!
Routtnel L'bell~1I
1
(DP8DSR)
'I
1
I
Diaqraa ... 6.1.
CICS/OS/VS Program Logic:
.J
3.~ ... 02
Description
LICENSED MATERIAL -- PROPERTY OF IBM
InPlJt
r-----~
I
H. If BCHLU. " . IRS
(Inter-Record
!
recor"s.
proyio1p i'::otal data lenqth
page buffer.
/'--1,
\~~/
l
I
seoarator) is used
instead of the ilL
character to separate
a £ter co. pression of the
en ~R"I': nFRDSB
P,"GP. J OP 3
r
Processing
7
~'[!J
I
-- /
>
B
(¥R.pp.____ J
r
~
~ Return to caller
~
I
'vi
I
BIIS-nata Stretl. Builder
Diaqra. - fl.1.3.6-n3
(DPRDSB)
,
,
"
I
-------------1--- - - - - - ------------------- --- --- ---
f
lotes
ROl1tine' Label
IrMotes
Routine
r.abel
Ref
I
D. Tbe pllCJe buffer is scanned
line by line for trailing
blanks. Trailing blanks are
eli.inated, t.bus redncinq tile
effect he lE'!nqth of the data
strea. to be trans.ittetl. The
loqical new line character
which terainates each line is
replaced by its physical
equiyalents fro. the deyice
control character set. The
physical nev line characters
are inserted after the first
nonblaok character
encountered when backscanninq
II
I
a oarticular line. The data
fro_ any of tbe followiDq
lines ilt'e lIowed aft.ar tbe
preeedinlJ lines physical
n(l!V
line sequence. Tbis buffer
co. pression is continued
until the stopper character
is encountl!red.
L.~-,-,-,-~
BitS-Data Streall Builder
Section 2:
(DFHDSBl
Method of Operation
I I
'----.IIL _ _ __
I
Diaqra. - 6.1.3.6-03
689
LICENSED MATERIAL -- PROPERTY OF IBM
Input
,------------.OPHPH
------1
II
frocess1Dg
r--';"'--
a~,
1::::-1)
I
----,1
I
OPHP2P:
1@~
Obtu. vork areas
Deteru.ne Sloze of 22c>D
[§TEtT--1
Oeten1ne s,.. of J 2 7 0 i\
I
t§
t
1
I
I
Deter.loe 1f tube ox
'pu.ter
~~m ;-1----------.,1@]!
l!~~~!....J-1-----,/ I
I
I
1. Ell.I1nate bl.Dary 2eroes~
and put 1D CRLF fer
I
Eft and go to ADJtlS'l ,if
I,
I
B.
:::::::1 o::p~:f
specl.fied
r;;J_;_~,I/\11 ~
l:
"
I
Bnd,
:!/"r;;1
I
I
go to
ADJUST
I
II
I
j
s.oF pu.ters so do.o oroo--,I----_---1S DOV
a
TIOA
[;;;;;;;;j
I
L ________J
l:l
1
b::::
[-_!I_O
on: s1ze of 22bO, size
,t.:J
of J270, user S"1 and
user NL characters:
11:1
I
!
eoch 11. e the. put 1n
{TTPPGB~
'>fb1
t::=-!I
I
I
TIOABAR
J'
ZfzzzzzmZrl!~l>
j
!
I
1 ot
\
~!!-E_-)-l-- .... _----..... -->( f021
l~~ I " l : : ! !
!L__________>!§)
PAGE
Output
L _______
r-~;~
JO.HTPP
FASTER 22bO Cutput poraatt1Dg
r
1\1.
------
Notes
~
:-;'
----------------.L::::~:L~I~~Il_~:--------------
Issue GETIUIH tODe for Teral.nal, II
l o n e for user). To estab11sh vo%k
\
II
@1
buffers.
1200,oeO,9.01·
@J
I
(§
""
.m~
... 0
.....
Check 1f display or pu.tor.
j
I
ll~
A. If Frln.er, elill1.o.e binory
t
I
zeroes and insext CRL'
I
I
I
jTR"LOOP
I
I
I
PEINTER
I
,
I
for each 11na, III (end of
I'
.ess8geJ on last line.
I
f
I
I
If d1splay prepare o u t p u t ,
:TOBE
(e1tber qO characters per
I
r
)
~~::
II
Icornoge return I h.e feed) I
I
"
II
t
\
I
B.
::d
e~u::::·:~e~:n::r
baSEd cn 22tO andlor 3210
SiZES, insexting user code:i
Slit or new 11ne sys.bols as
I
II
I
I
I,
I,
,
req u>redl •
\
I
L
_______________
I___
~
PASTEB 22bO cutput Potllllltt1D9
690
I
I I""""
I
\ '05'
I
IDPH2PHA
II II
Test for 22.0 screen size
I ~;:, ~.'
I
I
ll~
put preparllid,QutPllt in 'fIOA,
adjust pc1nters and return.
I~
I--------1
I Bout1nel Label
j
jADJOST
I
1\
II
I'
II
!
I
I!'l
\1
I
,
I
1\
II
"
"
1'1
L
\,
II
IIL
_ _ _ ___l
_______
J
D1agraa - b. 1. l. 7-01
CICS/OSjVS Program Logic:
Description
LICENSED MATERIAL -
processing
Input
8--J\
L:.::::l >
TeA
--.1
output
PROPERTY OF IBM
!"AGE
1 OF
2
DFHSI'IS:
(§
enter DP'HB'S!'I" .odule
~ Bead data fro. teninal
<'M\>
\,---,1 (DPHTep
Issue DPHTC
I}TPr.=READ
oaero
instruction
:1
1.5.10
~ Load up
:!
1'--'\
< 1 •• 1 >fDFHpep
\........,/
Issue DP'HPC
IIlP"=LOAD
•• ero
nstruction
1.3.4
Pre-VS 3270 Input. Mapping operation -
Hot.es
[§
DFH:a"S'U~
Rou tine
DPHB!!SS!! is loaded and entered
Diagraa - 6 .. 1 ...... 1-01
Label
Ref
--- ---
Notes
Routine
Label
Bel
--- ---
DPHBI'fS!H' DOCBI'IS01
via ito DP1U!I'IS TTPE==IN or ~AP
.a.ero instruction !'roa the
application proqrall when CICS
V:l.3 Object code is executed on
Cles/vs.
DFI.I9ftS!'l!! is entered froll the
DP'H!'lCP 1I0dule when a aa.p
aSf'Q.bled under CICS Y2.3 is
loaded by a CICS/yS DFHB!'IS .acro
request.
@]
When DP!tB!'IS T'tPE=IN is
requested, tht! data to be mapped
DOCBPls10
is read froll the teninal via a
Teminal Control READ.
I@J
I f the Daile of the ftlap.
.n~
Dot
the address of the uP. has beeD
passed by a DPttBIIlS request, the
lIap is loaded l'ia a Pro!lrall
Control LOAD.
I
..
Pre-YS )",10 Input Mapp1nq operat10Q
Section 2:
DFHBrlSPlPl
Method of Operation
L
Dl.agraa - 6.1.4.1-01
691
LICENSED MATERIAL -- PROPERTY OF IBM
Input
Processing
PAGE
output
2 OF
2
TCA
~ Checlt for input Mapping
error
I
d'>[DPHPCP
I lTerl!li!late task
I
_I
1.3.31
!tap data to 3270 input
area
TIOI
>1:rrOADGA
lamed
Release old TIDI
I
r,D~p_'_S_C_P~________ 11
,.--./ ["Free
storage
_f
1.2.2]
.~ Delete map
!DPHPCP
I
,.--./ IIssue
DPHPC macro 1\
TYPE=DI!!LETE
in structioD
1.3.5.1
~
Pre-YS 3210 Input !'lapping' operation -
Notes
~
Exi t
DFHB~SPH'f .odule
DFH9!!SPlH
Routine
If the ter.indl is not a 3270
(All!IT) or if an output sap has
been loaded (ADlH) , the data is
Diaqrall - 6.1.4.1-02
Label
Ref
--- ---
Notes
Routine
Label
Ref
--- ---
not mapped and the transaction
is abnot'lially ter.ioated.
@]
@]
DOC8ftS06
I: a DPHBI!S Tl'PE=SAYE bas not
Bl!IHDUlf
been requested, the old TIOl is
released yia a storage Con t rol
l'REEI'IAIN ..
@]
If the Dallle of the
"P.
and not
BPlH'OlfAIT
the address of the lIap, bas been
paS3ed bT a DFifS"S request, the
eap is deleted via a prograll
Control DELETE ..
~
Return to caller.
Pre-'S 3270 Input .... aPP1n9 operat1on -
692
DOCBr1S09
DPHBMSIHf
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
processing
Input
PAGE
OUtput
1 O!l'
2
DPHBfIIS:
~ Rnter
~ Load
TCA
DPHBftS"" module
map
:!
/:-::-;',
IDPHPCP
'r'"""""""?/ Issue DrUPC
.
BI'!OftAPIC
Write
control
Character
EKOI'lAPCP
CUTSO~
rrPE=LOAD macro
instructioD
1.3.3
posit10n
BKOPIUPD
Default.
data
~ Check for output mapping
error
d>,DPHPCP
lAbend taslt
rlap data to 3270 output
area
Dia9~a.·-
Pre-YS 3270 OUtput Happin9' operations - DPHB!lfS!'U'
I Routine
Hates
~
is loaded and entered
via a DFHB!'!S TYPE=OUT macro
UFHB~Sl'!1t
Label
---
Ref
---
DFHBK5IH! DOCBHsOt
instruction from. the application
prograll vhen CICS v2.3 object
DPr.B!'lSI'IIf i~ entered fro. the
DFR'!CP. 1I0dule when a rlap
assellbled under CICS Y2.3 is
If tile Daile of t.he aap, and Dot
the address of tbe
aap~
Label
Ref
- - - ---
If DA'l'A=JES is specified, fields
user data are lIa.pped
eontai~iDCJ
along with default da~a
contained in the map .. User data
alvays ,0Yerrldes default dat.a.
If DAT1=NO is specified,
data lIapped.
loaded by a CICS/VS DPHBftS macro
:request.
@]
fields containing user data in
the orIOl are lupped.
I
code is ezecU ted on CICS/'IS.
Routine
Bates
6.1.1&.2-01
de~ault
DOCBftSOe
has been
passed by a DFHSftS request. the
Bap is loaded via a Prog:ra~
Control LOAD.
@1
If the tar.inal is not a 3210
(A'BftT) or if an .input lIap has
BIIJHOTO!'lP
been loaded (A9P!O) • the data is
Dot llapped and the transact.ion
is abnorlllall y tertii na ted.
(§
I
DOCBrlSOQ
1'he cursor position. the 'irite
Control Character, and the data
a:re for.atte'" for 3270 output.
If DAl"A=ON1.Y is specified,
Pre-'IS 3170 Output
Section 2:
"app~n9'
operlltions -
DPHB~S!'l!'t
Method of operation
I
I
I
Diagram - 6..1.4.2-01
693
LICENSED MATERIAL -
Input
PROPERTY OF IBM
Processin 9
-1
TCA
r.l--')
~--,
~
PAGE
output
2 OF
2
TCA
Release old TIOA
[l~i~~~A otJ
TCTTE
>[rmm ofl°l
[
TIOl
~ Write mapped data. to the
terminal
r.D=P7."~TC~P~--------'
'v--,/ Issue DFHTC
I~~f~~~iI~n
===~rr=:>
I
TIOA
>[r:T"'I=O:CAO::-:B:-:'-'
a:tg
ed
macro
1.5.8
~
Delete JIIap
rD-p~H~P~C~P--------~
,..--. / I·I;:s::s:::u-:-e~D::-:p~H=P:::C-----1
TY PE=DELETP.
1.3.5
~ Return to caller
I
Pre-VS 3270 Output Mapping Operations -
DPHDr!SIHI:
nia.gram - 6.1./1 .. 2-02
r----
Notes
@1
Routine
Label
yotes
Ref
Routine
- - - ----I f d DFUBf'lS TYPE=SAVE has not
Label
Ref
------ -----
BtlOENOI'IP
requested, tl:le old TIOA is
released via a storage Cont rol
be~n
P!i f.EI'IAIH ..
[§
C§
Bl'IN"OERS
I f the Daile of the maps and not
Bl'IlfOWAIT
th(; address of the Dlap. ha s been
pas;ed "Y a DPilBtlS request, the
Map is deleted via a program
Control DELETE ..
I@]
DOCBMS09
I
I
I
Pre-YS 3210 output MapPl.ng Operatl.ons _ DPHBMSMI'!
I
694
CICS/OS/VS Program Logic:
!
\
I
Ol.aqraa - 6.1.4.2-02
Description
LICENSED MATERIAL -- PROPERTY OF IBM
proccS"sino::!
· \I
Gb
•• ··1
>
I.
output
rAGE
1 OF
DFH3~S:
~ Enter DPH!'t32 module
~ Read da ta froll terlllinal
I~\
<\~/>I~~-:~~------I
I
Check for input mapping
l...----,'Il'
:>
~
TCA
Ii
:::
l...----'~'~
Release old TIOA
1 ... 1
\~/
>
DYHSCP
I~--~~--------I
Free storaqe 1.2.2
Bet u rn to control progralll
I·· .. ··d
I
V
To DPH!lCP
L.._ _ _ _ _ _ _ _ _ _ _ _....J 6 • 1 • 1 • 2
3~:I~7;;:O-I:-n-p-"u7t"""::-.-p-p-;-i--ng-:o"'p-'e-ra""t'"'i"'o--n"'S---:D:-:':-'.H'" 32
Diagrall - 6.L5 .. 1-01
Routinel Label
Notes
Ref
Notes
1 - - ---
\
§
Hap data to 1270 input
area
IL-j"\
<
@B
I
error
Tbu DPmD2 .adule is entered via
Ii DPHB!1S TYPE:IN or !'fA P lIacro
DPH!'I32
Pautine
Label
Ref
---- ---
[lOC!'!3201
instruction.
@1
Wh(::]l
DPH~:1S
TYPE=IN is
00CI13211
requested, the data to be !lapped
is read £ roa the terainal vh.
I
do
Teninal Control READ.
@!
If a TIOA doos not OlD t;1in a
DOCfD213
data length and a S5A sequence,
the data call not be mapped and an
error code, is returned in the
TeA.
~
@]
DOC'fIIJ3212
I
I f a DPHBI!S T'fPE=SA VB has not
been
DOCI'l3214
I
requ~stl!d,
rE:leas~
the old TIO~ is
via a storage Control
PhP-ftAl!I.
I@]
DOCl'I3210
I
I
3170 Input :'Iappl.!l9 Operatl.ons-
section 2:
DP''''~32
I
Method of operation
I
l
D1.8gram -
b.1.5.1-01
695
LICENSED MATERXAL -- PROPERTY OF IBM
Input
ProcessiDg
PAGE
Output
1 OF
2
Tel
~==:) ~ tla'E'qe lIIap specifications
[§
I TClPCAAl • i
l~~~SS
[
'lCTT!
Create ti:ort tags
[
~
>ITC'l'TEDl
IddresS' of
1'101
r~~~ge1at. I
A. DA'l'J.=O!lLY
)"101
B. DATA=!ES
c.
Of,
.
TIOlDBl
Pa e of
'OA'J'A=HO
~ Sort _a p fields
BBSCO!S!
~gi~on
~ Rap data to 3270 Olltput
area
8P1SVCC
Write
Control
Character
He-lease vork areas
.ftSPEl
Default
data
r.D~P~H~S~CP~--------~
\~/
Pree storagft
1.2.2
Diagra. -
I're-VS 3270 output Plapping Operations - DFRfil32
Routine
Hotes
Label
Ref
Routine
1I0tes
6.1.~.2-o1
Label
Ref
1---......:....-------11-- - - - - ,---...,.....________~_,=__:_-,---
[!!I
[§j
Tbe DPR~32 .odule is entered via
~ DPHBftS TIPEsPAGEBLD, T!XTBLD,
OUT, STORE, or R"ETURJI .acro
instruction.
Wheo . .ltiple PIGB9I.D or TUTBLD
~1I!qu:ests are grouped into one
lo'age, ~e spe~ifications
iaerged into one .ap.
DPHft32
B. Rhen DJ'rI=res ~s specified,
fieltls eontaiDing user a~tll
In the TrOl are tagged f~
.appia.g; otherwise, fields
containinq default data ID
the. up are t89ge4 for
.. pping.
DOCtf3201
DOcn3202
ar~
The wce fro. the fi ESt requested
• ap in the paqe c1eteraines the
lice for the page unless it is
overridden by a vce fro. a
@!]
PPUBas etR!. ~pera~d request.
The cursor posi tion fr~ tbe
last reqaest~d aap in tbe page
deteraiDea tbe cu:rsor positloD
on the pACJe unless it. is
overridden by a. D'BD!!S CURSOR
ope~~nd request..
DOcn3205
Sorting o~curs only when aap
fi~ll1s are s peci:fi~d out- of
sequence or when .ultiple
P1G'£8LD or '1'!~'l'tLD requests are
grouped in. to one page.
DOcII3206
~
[!!)
l!!]
A. "hen DA'lA-ONLY is specified,
fields" cont.aining user data
in "tbe TIO~ are ta9ged for
aepping.
WhefJ, Dl TAcNO is specif ied,
fields contaiaiDCJ default
data in the a.p are tagged
for upping •
C.
Doc.3203
I
DOCft3201
Release all map copies, !'IOA
copies, Ball r"~late4 .apping work
areas via a Storage Control
FREEftlIH.
~~L---.~'~
Pre-YS 3270 output flapping Operat10DS - DPH!1IJ32
Oiill,gR. - 6 .. 1.5.2...01
696
CICS/OS/VS Program Logic:
Des~iption
LICENSED MATERIAL -- PROPERTY OF IBM
InlJut
Processinq
PAGF.:
output
2 OP
2
~ Send page to destination
/ ' - ' \ r:="7"-;,-::----
>I1'P
< 1 •• 1
\,......,/ -
1.B.l
~D;'P~"~T~P~P::::::::~
\,......,/
Process page
~ Return to
1.S.
DPHPBP
[...... jJ
\./
'1'0 DPHPBP
6.1.3.2
Prc-YS 3270 Output !'tappin':l Operations -
DPH~32
Diagram - 6.1.5.2-02
----,
Notes
@l
Routine
Label
--Tbe Teninal Page Processor
Ref
---
Notes
Routine
DOCI'l3209
Label
Ref
--- ---
writes the page to the
originating terminal when
or places
the page on Te.pora ry Storage
WbP.D DPHBrtS TYPE=STOR1!! is
TYPE=OUT is specified,
specified.
@l
DOC"3210
Pre-'S 3270 Output. !'U'pping Operatl.ons - DP8"32
Section 2:
Method of operation
I I
I
D1aqralll - 6.1.5.2-02
697
LICENSED MATERIAL -
PROPERTY OF IBM
Page 1 of 1
INPUT
TCA
[iTCAFCAAA
TCTTE
.....
[b;
OUTPUT
PROCESS
.
§J
I
TCTEIFHD
>~
TCA
[
TCA
DFHBMS:
[§J
Enter DFHIIP Module.
~
Check for INBFMH=DIP
Read data.
DFHDIP
Issue DFHDI
TYPE=R ECE I VE macro
[
instruction
~
[
Read data from terminal.
DFHDIP
Issue DFHTC
TYPE=READ macro
instruction
r
[
[
TCAMSCBM
Error code
>
Check for Input mapping error.
~
Format data and remove control characterS.
~
[§]
Map data to input area.
TIOA
TCA
1.5;10
~
TCTTE
TCAFCAAA
Address of
TCTTE
TCTTE .
Relea.. old TIDA.
DFHSCP
Free Morage
1.2.2
>~
Return to control program.
To DFHMCP
Non·3270 Input Mapping Operations - DFHIIP.
NOTES
ROUTINE
~
Tha DFHIIP modul. is entered via a
DFHBMS TYPE=IN or MAP macro
@)
For the BLU, INBFMH-DIP may be
specified on the PCT to give Batch
Diagram 6.1.6-01
6.1.1.2
LABEL
REFERENCE
NOTES
ROUTINE
LABEL
REFERENCE
instruction.
Data Management on input.
[§]
When INSBMH=DIP Is requested, dam
data is read using
8
Data Interchange
RECEIVE.
~
When DFHBMS TYPE=IN is requested
the data to be mapped is read from
terminal via a Terminal Control READ.
~
If a TIOA does not Contain a data
length or the map does not a length
and width as specified by DFHMDI
SIZE-· (IIne,coll ..the data cannot be
mapped and an error code is returned
In the TCA:
~
~
~
If a DFHBMS TYPE-SAVE has not
been requested, the old TIOA is
released via a Storage Control FREEMAIN.
~
Diagram 6.1.6-01
Non-3270. Input Mapping Operations - DFHIIP.
698
CICS/OS/VS .Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
CHP.~T:
OPROS_
TC~
I
OPRT.",
OSPWA RIIIJS
Vorl!: Area
rQi1 If
L::....:J
if
'!'TPE=STO~E,
nece~sa
ct'p.lIte nWE
rT
1
(/1;-;1 '>f~r:p
'r-. I
liI'rib~
(I?1tql!
in TIO>
!jet erase flag in PGP. if
necessary
II
- - . / _GJ
r;:}-'
t: ---,/\
=~>B
I
I
-,
I
R.
!)PRR~S TTP~~t.
<'""':~:::;: ',"."".,
L.~
1
,'~~1- ~
J
1.-'1 /
r
TIOA and
TSIOA both bine 12-byte
prefixes. The on1'7 difference is
~ef
L",bel
I
I I
II
tbe TIO! data lenqth here.
II
@~ If de.,lce is a 2740 JIIodel 2 with
Boffer Receive, suffix is
I
ebanqf!d. £el). p to R.
,1 llotf'S
I I
I' ~::~:;;e:~:::::~: t: i::n:~:.:u:: !I
I
I
1
I
V
I
I
L
I
________ -----l
niagl"iU. -
fi.1.1-01
Method of Operation
"ef
I
I
I
I
I
I I
I I
I
I I I I
I
II
II II
II
I
I
1
j
II
\
I
I
,
:~I _______
B"5: 'raemina! page Processor - D"HTPP
,.---,
Lahf>l
I I I
I,
1
,
,
I Rout.in~1
I!
IIII
!
Section 2:
II
r.;-j')(Qq1
11--------------
Root: ine
TIOA is shown bere.
r.-:-l
---.I
I
I
I-- --1--11----------------1---'---1
r Kote.
~
~s
\/
8"S: Tar.inal paqe Processor - nPRTPP
I
!PG'Y.G
~ YL P.
r-1-'\1
~J
<~~~> ~ _ _ _ _-,-] f;;'I'>'~
;~~_~~.~~ln~utPut
- -- fl.1.7.1.
@Po~
!
~>'iTl~-"/,
I
L}
1
I'leterlline tii sDnsi Hon of
data
OSPlil'~
L:J
r;ll-'\1
Mve t~rllinal suffix to
nSPIiA
UPH"PP
01'
2
Ill=,)
_....J'Ej
r:ontrol
to PGA
Con'-rol ArP.a)
I§
~-I'Br::l-.J\1
--,1'
'1-.,/
I
L-I
--------
!'love vcr:
,
I
[_____---2::.:2..
Charactpt")
tlkr.~
Out.out
Tnnut
prof'!essinq
, - - - - - - - - - - - - - - - ' F r O I i OFH"]? or - - - - - . - - - - - - - - - - ,
I
I
I
\
I
'
I
\
II
I,
I
I
I
\
l
JL__________________L___1 _L_J
'Oiaqra;. - fi. 1 • ..,_n 1
699
LICENSED MATERIAL Input
PROPERTY OF IBM
1--------1
processing
r
output
r
I
If
~60n
on 'T'eaporarv Storaqp.
with Loes (T.oqical
r
Deyice COdRS)
I ~T'
1'-...1, r--~
\~/:
l
1.2.1
~
'----'I
RetQrnp.r1
List
C. DPRB"S TTPE-=RE"UR"
0~) ~
o~p,u.
0-,/
list to correlate pages
0~) ~ :;q:~::s:::;rne~
I
--"I'
or At", build 1I
> PI'Ig9
nagp. liSt=~)0 @J~)
Ter.inal
suffixes
and
address of
I
Initialize if necessary
:~>fOl
"aYe address' of co.pleteil
-_-I'rnt
ret.urned
p8lqes
I '-' ~~>l
page to returned page
-~ I ~
list. clear addresses froll
TTP
1
B~>
I
~ Is it DPR8!'tS "TPP.<::P~r.!OOT
TIOA Oa til to
'E3
A. 80 - Increment
~aqe
nOllber
B. YES
1···· ..;:[
.
BillS: 'l"erlllinal page Processor -
J
'I
Return'to
Caller
DPRTP1)
L
Diaqr8la - 6.1.7-02
----~l
Routinel
Lahel
1 Ref
----------
1 Rotps
I
I
l.~___
j
B"S: Terainal Page Processor -, DPHTPP
700
l---------.----------'----:D:i"i:-.q::.r::.:-::.:-::-67T.7-02
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
Page 1 of 4
FROM DFHTPP
DFHTPR
..... .
ITk)
INPUT
OUTPUT
PROCESS
DFHTOM,
TCA
[I='~A
I
CSPWA ptr
nPBMSWork
Area
·lnPINDOl
Erase flag
TCTTE
I
>~
~
I
CSPLMTTS
Terminal
type
I
> @]
~
Set 'ERASE' if desired.
Set 'SAVE'.
Determine routine to be used based on terminal type.
T
TCneOS
External
operator
request byte
Go to appropriate routine.
A.
CRLE,DASD,TAPE,29BO.
B.
1050,2740,1741, TWX.
C.
2770,2741).11 with Buffer Receive.
D.
2780.
E.
3270.
F.
INTLU, SCSPRT
~
Q
~
~
~
Q
Diagram - 6.1.7.1.- 01
Terminal Output Subroutine - DFHTOM
NOTES
ROUTINE
~
This routine is copied as inline code into
~
The TIOA must be saved since it is
probably not on the TCTTE storage
chair and therefore Terminal Control
may not free it.
LABEL
REFERENCe
NOTES
ROUTINE
LABEL
REFERENce
TPOUTPUT
programs DFHTPP and DFHTPR.
Diagram -6,1,7.1.- 01
T«minal Output SUbroutine - DFHTOM
Section 2:
Method of Operation
701
LICENSED
M~ERIAL
-- PROPERTY OF IBM
Page 2 of 4
OUTPUT
PROCESS
INPUT
G.
~
BCHLU.
(5C0
~
Put message directly to terminal.
~
~
Put out a segment of approximately 120 bytes.
~
Exit 6.1.7
or 6.1.9
~
MSG COMPLT
Exit 6.1.7
or 6.1.9
TIOA
TIOADBA
Data waiting
TIOA
>
~
Move remainder of data to front of TIOA
end adjust data length.
~
Put out' he message in segments the length of the
hardware buffer
~
Move remainder of data to front of TIOA data area
and adjust data length.
~
Determine size of segment to be transmitted.
TIDADBA
Data
waiting to be
transmitted
to be transmitted
Untransmitted
data
LOiE0
~
~
A. Maximum number of records in segment is 2
unless multiple record feature is installed - then
it Is 7.
[!]:::::>
/
Diagram -6.1.7.1.-02
Terminal Output Subroutine - DFHTOM
NOTES
~
This processing is for CALP, TAPE,
DASD,2980. For th~se terminals,
Terminal Control program handles
segmenting.
~
This processing is for unbuffered
start·stop terminals -1050. 2740..1,
2741, TWX. The segment size issmall
to minimize retransmission due to
errors. The size -of the segment to be
transmitted is determined by searching
for a new line -X'16'- after the 120th
byte of the message.
@]
This processing is for 2770 and 2740.11
with Buffer Receive ...For 274q the
actual buffer size is divided by 2 as a
rough but fast allowance for tJ'le fact
that the buffer must also accommodate
upshift and downshift characters.
~
See steps 6-7 for details of data flow.
~
This processing is for 2780.
A
ROUTINE
CBLP
TAPE
DASD
2890-182
2980-4
ALL
LABEL
1050
2740
2741
ALL
TPTRMA
TPTRMC
TPTRMC
TPTR
TPTRMR
TPTRMPUT
TPTRMD
TMPRME
TPTBMF
TPTBMG
TPSTSTOP
2740
2770
BOTH
TPTFMH
TPTFMI
TPBUFPUT
2780
TPTFMJ
'TWX
REFERENCE
NOTES
ROUTINE
LABEL
REFERENCE
A segment is made up of whole
records separated by unit
separator characters (IUS = X'l F').
Diagram - 6.1.7.1.- 02
,Terminal Output Subroutine - DFHTOM
702
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
Page 3 of 4
OUTPUT
PROCESS
INPUT
B. Maximum amount of data per transmission is 400
bytes.
Put segment to terminal.
~LT_CP
.I
________
1.S.B.
EV
~
MSG CCMPLT
ExitS.l.7
or6.1.9·
TCTTE
Move remainder of data to
-I
TCTTEDA
Data
front of TIOA date area
and adjust data length.
address
TCTTBBFS
Buffer size
=====>
Move wee (Write Control Character) to front of TIOA.
TCTTETE
I
Terminal
feature
TIOA
TIOACDOR
3270 Write
Control
Character:
Put message to terminal with CTlCPAR::;IYES.
TIOA
4
I~
TIOATDI
Datil length
To 6.1.7 or
S.1.9
TIOAREA
Data area
Data
PGAis
located after
data
PGA Page
Control area
Diagram -6.1.7.1-03
Terminal Output Subroutine"';' DFHTOM
NOTES
ROUTINE
GiJ
See steps 6-7 for details of data flow.
GiJ
This processing is performed for all
models of the 3270 Information
Displav System.
3270 -1
3270-2
.BOTH
LABEL
REFERENCE
ROUTINE
LABEL
REFERENCE
TPTBML
TPTBMM
TPTBMM
Diagram - 6.1.7.1.-03
Terminal OutPUt Subroutine - DFHTOM
Section 2:
NOTES
Method of Operation
703
LICENSED MATERIAL -
PROPERTY OF IBM
Page 4 014
OUTPUT
PROCESS
INPUT
PGAWCC
Writectl
char for
3270
Put message to terminal via the Data Interchange
PrOgram.
DFHDlP
DFHDI TYPE=SEND
To6.1.7or
6.1.9
Diagram - 6.1.7.1. - 04
Terminal Output Subroutine - DFHTOM
NOTES
~
The Deta Interchange Program handles
destination selection for the BLU.
ROUTINE
BLU
LABEL
REFERENCE
NOTES
LABEL
REFERENCE
TPTRMY
Diagram - 6.1.7.1 - 04
Terminal Output Subroutine - DFHTOM
704
ROUTINE
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -
'Ii-----------l
Input
I
I
Process1Dg
I
/:L. , I! DfHT PQ:
t:::.:/ [;;-;'
~ Is tho
Tek
I
~----l------TCueI
~~it~~rY
lInd~~l
I
I
!
rmmpjll-l
!
eDsa~eeTODB
n
I
acknovlodg.ent .essage
I,
III
I
----~
D"S
I '.-./ ~ag~1
I
!11Q?12
ter01.al.
b.l.lj
L.::J Get storage for error
aessages, :coute !l.st and
II r--
L!
I
I
T"ANRtlTR
------,'1
'I
~:;~~~~
Adjusted
B"S aid.
I. If none found....
-~
I
B. continue ••·.
I
I
I
~I
"oto:--------T;::~I
Label
! !
B also relEasos all previous
:~::::;·;a~:e~o::;s::
I
'I
:::::a r
and tvO bytes at the current
l
>
I
r.=r-:>
I
1
TWA
II
I
III
I
jI
-1---!
.
I
.
1
!
I
~'
,
I
I
I
pRef
r~:
I
r.::-o
>1151
'I
L - - - ._ _ _ _ _ _ _ _
Ro:~~:-I:::~--I ;:~
I
I
1
11,1
I
II
I
the in 25~ second units \2nd
and 3rd bytes of CSAeTODBI·
I!
,
I
II
Tbo adjusted tbreshold.
I,
11\'1
vben current t100 is this yoar.
I
II
II
An e l i9 iblo D"S aid is ono tha.
ITPQAID
II
I
IIII
I
I
I
I ~::~:::: : .';::~':~:;' ,. I
I
I
I
I
!
I!
II
I
II
I
. I II
L _________ _____________
I
I
~
Clean up undelivered ftessages
Section 2:
J
Diagraa - b. 1.8-01
II
III
TtIllADJTH, is used for cbeckl.D9
§)
.ek
------1----1--- - 1 1 - - - - - - - - - - - ---- ---- ---
TIOAs and gets user storage for
subsequent .essages.
I
"
I
~
Clean Up Undelivered flessages
-1-"":::::
-------'
001
I
I
---
Search aid chain froe
beginning, for an eligible
Threshold
II
@1
DATB/TI"B valuo.
:>1 ~
eSA
Nor.al
I
,ED
..•• ster terunal .essages.
t ----',I ~ ·Gen~r.to purgo thresholds
TWA
r-'/
Ir-"
and d1songago teroinal
fro. transaction.
/j:;j"
II
I
1 3P
~>~lll
B. tes-write
I
Current
JTi.O -
I
transaction
ter.inal initiated.
(A. "0.
CSA
I
. 'I
-------,/
[)AGE
1..-=-----I
Output
frca 'eninal . g~ni~~frvI!lL
PROPERTY OF IBM
Method of Operation
_I
L-_
I
I
I
I
---~~
Dl.llgra . . . b. 1.8-01
705
LICENSED MATERIAL Input
PROPERTY OF IBM
I
Ar~--11-----"lfQSl·
AIDCATID
t
Assce •
Data '10.
I
I
I
,
--',
-
ral-:--'"
TWA
rT~"l='
'. .-./ r-----=1
-------.
1"1 > DPHTSP
,Read in nCR
(llessaya control
!
r-· I
'r-"
I I
I
I
II
I
2 JF
"
I
I
I
Aid Chau
Address
1
nCR
.CRIDC-'=--'T
"
.• t,
Terminal
~_~_.t
I
I
ro71 If there is an ERRTERPI
)[Al ~r--"It::..J
..
"-'
~~:-..
send Purge notification
.essage.
I
!
r------ --1
I <\~~/> ~~----I
IL--',
I
--g-'-'
---, /'0
13,
~T"ATSKBY
DS. Data 10
-------'
l!0t1fY
ERR'l'ERI'I.the
!@!J
~!...-~--'
'r;,
I ~CRIDCHT ---, 1l!J
E~~:tna 1
l---
I
assocl.ated "CR.
1
!'/
m!~m
-----
I
I
L~__~:~
I !:==:::::>I~ ~:~~te teroinal entry fro.:====~
-
[ Error
and get .essages
/L--"
nCRTRnID
[!--~--1
Teroinal
'I
10
_______ ,1
1
II <
11
nCR
PAGE
output.
_L____·\I' prAeIvDC10HN·~A-D~lD
C:::J anchain Aid and enqueue
_________ , /
1
----
r-------------
,---------1
Processing
I1 l
I
~:I '>[DFiiSC------,
--- II
Preelllain
'r-,I
'""l-"I@]
~"---"I
/
If t h : : : : : - : - : : - - '
terminal entries left in
the IICII, Purge the pages,
I
,
,
Pree the Aid
Pree and dequeue the "CR.
<.I L-_.,
'··1 ) ~-----1
DPHTS
' ....-.1
TYPE=PURGE-
I,
\
r=
lr~"
•• 1 >1131
1"1
L_~==_~~
l______~
Clean Op ondel1.ered Ifessages
\I
I
L
I
____~__________.J
D1agra. - b. 1. 8- 02
r;;:-e.--------------,~=r::;--R r;;::-------I·::::G::--I;;:;i,
@J -------!---I~~I--W----------------\
I§)
,
II
I
I
I I
----1----,---,
I
!~
ITPGDELT
Pnor to .ending theaessage to
!!
!!
\ :::::d i~:t:::t~;;o;a:e::L::1.
"II
I
I
I
\I
',t
',I
'lilt
,
the ERRTERn • • DPRBns TYPE=ROOTE
I
[~
1
I
I
II
If the nCR that .a. just
processed vas for a BHS system
lIleSsagE, then conttol resulles at
.tep 0..
III
I
I
!
i t }1
f
I
I
I
I
II
!!
I' II
II
I
I
II
" I I
I
II
I
II
'I
II
!
I
I!
!
l_______________LI ____
I
I
II
II
I
I
II
1 __ L~ L_~_
I I II I
!
'I !'I II III
"
I
I
I
I
t,
!
I
II
I
'I
I
I
I
I'
I
I
I
I
,I
I
I
I I
I
!1 ___!I ___L_~I
_______
Clean Up Ondeli.ered ftessages
706
'
i
I
Diagra. - b.1.8-02
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
Input
-------,
II
I
,
I
nCR
-,
processing
r.:r--'
~~~~
l£J--,I.
I
CSA
If there are lIore termlnal
entries l..n the nCB, search
I
m
ve fl.nd an ell.gible
l..:...:J Dl.d
Aid.
'BoJ __ ,1
Printer
_ _ _ _ ..
I
I
____
iiiSruI1~ )ri]
~~:~ll
Status - I I
~
I
N~i~~B~lJl j
"'I
l
r;;;
>fOoil
~I V
r;;j'>1Obl
t,:,:,: , "
A. If YES, uDchal.D l.t.
,
oJ,
or ..
the AID chill.n.
fCSWiiBt:l--'
'rt1
I
AID Chal.D ~[ '1.:1 ~---"111i1
l
.:I
I,
'I
m~~~:n-'I' )@~=~I~
PAGB
Output
B. If RO, ....
~ Put the nCR back on
temporary storage.
l!;~ '>rDiiiiS----~
'.-..,1 ITiPE=P;n--__ I
--'
'0
,[lli
TWUSGID
- . / ! i "'1--"/
n •••age Id
-::J(
f"=_,1
I
--
ID
I
r.;J
L.!!J
,l:J
AID
lIDoruDl~ )fPl
Data Id ---1
I
I.:J
A. If cne found .....
I
I~
I
I
[ 001
B. If not, continue .....
-,1
>("Osl
"
Send purge notification
aessage to "aster
'rerlll.nal.
/!;~'>[~-~
J
I'~'~
I
L-____
-
Search AID chuB for an
AID associated "l.th the
sallie message.
__1
I
r~:-·s- - - -
IG
I
This UD cbain sEarcb starts
frail the beg1nning and searches
for an el1g1blo AID ntb tho
::::.:~:d~s
@J
Also froo and doquo.o tbo KCB.
I
I
1,---- ~~
/UQKCBBK
I
I
I!
!I
II'I
I
I
I'
I! . ! III I
I
I
I
I
1
II
I
I "
0f
I
I
I
I
I,
I
I I
II I!
I I'
I
1
I
II II I
II I
I!
I
I
II
t__________J_______
, __
I J L_____
Clean op dndell.vered .flessages
Section 2:
Label
I
I
I
I
I
Beflr.otes
I
I
I
I
!
I I
Label
b ::::::: ::;~.::::;::::JI I·I ..~"
sa.~
I Boaun.'
--',1-----------------1-----I1----,--I II
I
Routine
I'
tho last AID
for an eligible AID for tbe
.ossago as the last AID
processEd.
9
Dlagra .... b. 1.9-03
Clean Up Undelivered "essages
Method of Operation
I
I
Dl.agra. . . . b. 1.8-03
707
LICENSED MATERIAL -- PROPERTY OF IBM
II----------ll
r-----------I
Input
\
I
II
[:L-"
.CSA
, •••• , / >
'----,
@]
151
r ----~---------"
CSAICEBA
-----,/
l
ICE Cba1D
Pointer
I
_ _ _- J I
II
~
,I
I
I
Reschedulo this
transactl.on to be
initiated after a
IPurge delay).
I r----~
DPHTC
' ...., / lrnMCiiEDOLE-----~
@] Return to CICS na PCP
II
II
I
I
I
I
I
!
Return.
I
I
:L_=::::=:)
I
!
I
I
!
!I
I\
~
1
I
II
I
I
I
L_______~
____J
CleaD Dp Undelivered ftessages
____1
I
I
I
Rf!quested I
~
I
I
I
!
I
TCAICR.--.
II
I
\
TeA
I
I
II
II
,
II
II
I
I
Ir
I
I
I
!
"
I
I
I
OF
\
I
\
I
q
I
I
I
I
I
PAGE
output
\
Purge any ICE IInternal
Control Element, for this
transaction CSPQ.
sl'stem""'generated tillE
II
I
\
I
,-------------1
Processl.ng
I
L ___________~
1
Dl.agraa - b •. 1. 8-011
I;" ----------f:::::\i:::, I~II-~-------------I~:::I~~I-~I
i
------------------1---I--l,----
I@]
I
I
I
I
I
II
!
I
II
II
TPQICEX
I II
I
\I
III
I
III
III
----
1
I
II
I
jl
I
I
I
I
II
I
\
I
II
I
I
'\I
I
I
I
I
I
II
\
I
\
\
!
\I
II
II
I
\III
I
"
I
II
II
I
II
I!I
1
II
I
I
l
I
!
I
I
I
I
1
I
I I
I
I I
I
!I !I
I
I
I
I
I
I
I
II
I
I
I
I1
I
I
II
I
\
I
'I
I
II
I
I
II
I
I
I
I
II
I
I
I
\L___________________1I______
I1 __L--.-1
I IIL___________________II___1I____LI __JI
\
I
I
Clean Up On delivered PJessages
708
Diagralll - b. 1.8-04
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL
ENTRV FROM
TERMINALCTL
OR OFHMCP
INPUT
Work area
TCTTE
, TCTTEDA·
Address of
TlOA
,
~
TCTTE
TCTTEPGM.!
Address of
MCB
4
Messige Control
Block
if not BMS link to TPR. Use TWA or OSPWA and pick
up TWA address (If anyl.
[§J
Search for useable MCB. If MCBs •• ist but none
useable then usa last one 8S active and current.
If no useable MCBs set MCBBAR =o.
>
6.1.~.6
$ingle
Keystroke Retrieval
I
Analyze input.
3270 Singl. K.ystrok. R.treival (&BMSOPT (24n.
~
..
Test TIOABAR and TIOA to d.termin.invocation
mechanism.
A-
If there is no TIOA then task was auto-initiated.
B•
If there is a TIOA ~ut no data In It, then if not 8
rTCTTETC·
Terminal
1
If a 3270 passed the TlOA (with' no datal then
transaction invoked by CLEAR or PA key, or
by ENTER o(PF key with no d8l8.
if CLEAR key with no transaction ID stacked.
~
~
l!l==>
Determine Paging command
A- Retrieval
OSPWA
(chainedl Move
data from oid
OSPWA to new
one
MCB
E!)
Keystroke' Retriev al
~
~
6.1.9.1
Page "Retrieval
& Display
[TI:::::::>
B.
ROUTINE'
E!)
6.1.9.3
Page Purge
E;6.1.9.1
• • • •
~
Purge
Page
Retri eval
6.1.9.3
Page Purge
BMS: Page Retrieval Program - DFHTPR: Entiy Analysis
LABEL
REFERENCE
NOTES
Diagram 6.1.9-01
ROUTINE
LABEL
REFERENCE
TPMCBCEK
§]
PIgI
~
keyboard Is unlocked and program exited.
All other cases with zero data length are invalid
paging commands. M....g. js purged (if EO DPU R
=AUTOI and DFHTPR is e.itad.
TIOA e.ists with non-zero data length. Bypass SBA
sequence, 'CSPG' and blanks if they exist.
D.
BMS:
....
6.1.9.1 Page
Retrieval & Oisplay
3270, 8um.inltiation has occurred.
C.
NOTES
TCTTEPGB·
Conversational
Pages Displey
Bit
6.1.9.6 Singl.
••••
TCTTE
1ransaction
Code
TCTTE
If control cam. from BMS
A. Set "conve...tlonal~· display if PAGEOUT,
CTRL~RETAIN GETMAIN storage for and setup
chainad OSPWA.
[§J
~ ~
From E!)
TIOA
ITIOATDL
Deta Length
OUTPUT
HIPO: DFHTPR
1TCAOSPWA·
,1
Address of BMS
MeB·
PROPERTY OF IBM
,Page.lof2
PROCESS
~~
, 'rCA'
~
Retrieval Program - DFHTPR: Entry Analysis
Section 2:
Method of Operation
Diagram 6.1.9-01
709
LICENSED MATERIAL
PROPERTY OF IBM
Page 2 of 2
. PROCESS
INPUT
II
CSA
CSASITBA·
Address of
SIT .
I
OUTPUT
G
C.
Chain
H
D.
COPY
6.1.9.5
Page Chain
~
SIT 7" System
-.r
Init:Table
SITPGRET
6.1.9,4
Page Copy
J c::::::>!IJ
CSA
I
SITPGPUR
If TIOA started with CSPG, then paging command is
in error·notify operator.
I c:::)[D
1.3.6
CSA
I
SITPGCHN
Program
Control
I c:::::>@]
0::01L-BMS
CSA
I
SITPGCPY
_-6.1.1,
_
I c:::)(B]
TCTTE
~
If messages must be purged to continue, notify
operator.
TCTTEPGB·
Paging
indicator
byte
1.3.6
Program
~.
•• L~_M_S__________-"
I
Control
6.1.1
OSPWA
===::::::::::)
......:
Indicate messages to be purged. Go to page chain
processing to initiate new transaction.
L-----------------__
~
Diagram 6.1.9-02
Chain
ROUTINE
[2il
TPBNCCPR
~
TPBCHKCX
~
TPBCFODP
LABEL
REFERENCE
NOTES
ROUTINE
LABEL
REFERENCE
Diagram 6.1.9-02
BMS: Page Retrieval Program - DFHTPR: Entry Analysis
710
command
6.1.9.5
--------~--------~Page
BMS: Page Retriaval Program - DFHTPR: Entry Analysis
NOTES
OSPTP001·
Encoded
paging
CICS/OSjVS Program Logic:
Description
LICENSED MATERIAL -
---,
PROPERTY OF IBM
output.
1---, ,
E··'
I~I
m-"
~j---'I
Tf fUnction is IQ'
'A'
or
"
t, T(~~~;:-.
,
--'
I
'utop~qA1,
Wort Area
ftCA ftessaC)p.
,
rmI~'
lawal
Aelfllire "CD ,""ssage
I:;
0
'anet.
- 11.1. q • .,
Control Hlockl if
'.0' ,r:::===----3
-,,,,,-u-1-refi-cB---
<1'--"
I
----J,
B--·'
1I ··1 )
--,1
.E'!s~aqe
Put
l-,-,\/E] 13-"
Tn in "CD
If "r.Q ,"essagf! Control
!' - - - , /
-----'
TPOCO"CB
'.---.1
en •• ana
control
)8~.
r--·'
qo lIt'OCf!S9 thp.. L:.::..:..!/ "to
necessarY
~~;;~m1 =-',-'>0
l--------'
,
L
I
Proce1jjl
I..:j
I
CarrE'nt
page
m CU..
qe
f"C8PLAr.S
I"essag.
I
~>1P.l
.1
L.::J
t!~JI
I
B"S: OPR"!"PR Pilgll) "e'-t-ri~p-.-a~l-.-n""'~-:n:-:ispla,
L
----;; ; ; ; --,--------------1----1---1--RouHnel
Notes
-~I'
LabP-l
Motps
I .outinel
Label
I RPf-l
1
This rootine is not chartell. It
subpool a.ad chains
it to the
pret'ious ftCa on thA Tr.,.,,'P,.
Lmom
1
I I II
'!"PlunUHD
!
I
I
I
II
Section 2:
Method of Operation
I
I
I
I II
1
I
I
I
I
I
I
!
!
I
I!
I I
I
I
I
I,
\
_______________l __JL_______
Jl'fI!trieval and tlispla!
I
I
I II
b;'-,-DPo:": ~:':p"'.-:-pa-CJe
I
I1
I !
J_niil~ril'"
_
I __
I j
-
f; .. ,.
9. 1-f)1
711
LICENSED MATERIAL -- PROPERTY OF IBM
('IH.RT:
Input
----,
II
~it a:~~~sp.
~,r.1;'
r
Processing
r' _ _ _ _
I
..:J'I 1"0;;)
imGcNT1--'
r----,I I t:.::,
!lumber of 1111
g:~==q!n~ 111
----,I
"CRPL""'J 111,
/'----'\
TICA
t)ag~ n IlIIIher
1'I0Y""
-I';R
ttl
~-----'
TSP
.]
,'.A.~
t=:::t·
l'
c;t.o["1!Qe.
\~/
--'
I
I
I'
I
RAad in "f"R froll TeraporarV'
' l 1 n l t inlli,cators
~
t~!:~~~~
nute!]t
~> {~
I
L_____
'P~r.p.
Set temDorArV
or.
AtlTOPAGE status if
,I
I
~>fr.l
I
L_'
=I'=====--=~)II
P.ncode chain valup. if '(' --'- - - - - - - ' \
L-I
aft.er
paq~
COlllllan"
Locate, ~ncode, and Iukf!
curren t the requestet1 LOC,
-1-----'1
I lk1,I
~
L~
Tellporarv StoragA
lIIeD
P'lcRM.nFl-r
-
current
LOC
.I
\
I
I
J
~I_::l
Ref
ll_"_o_te__s________
I
1
I
I
,
I
-1
I
II II
I
,
I I
I I I
I, II,
I" I
I ,I
--:-----'__~_
__
I I I I
I II III
IJ ___ IL
I_Routin·I~_I~ 1
I I I
I
!
__
! I
TPPIICR!f
DP'f'l'PR Paql'l! ffetrieva land nisplay
I
1
1)iaqral - 6.1.9.1-02
I:::::' I
712
Pncoded
--~>l
~ RetrieYp. Daqp. from
~/
..'.CePA
@]
fl"'S:
ros;;;;;;;:;;;-,
I
and Displa y
_R_o_to_s______,______
L_
OSD1U
_-,
I
Encode page value
J
!
1\
• COlilianCl
HaD
B~''''S-:--=D-:::PHO::T""PR:--:-P':-:9'-0-:R'-.t:-:r-;-i~--_w'-a 1
I
::,/fP1
1
l_J
I ,
paqinq com.and
0~>
\1
II
f
fA1=~> ~
rrn;"j')
or
1
I~,
paging
====~-'.\I
~B=
Input data
-
npp"'pp
necessary
0::::::> \'§ ~ncod.
@)
1"
?
_______
1
I
I
II _1~I_J
I I I
CICS/OS/VS Program Logic:
niaqra", - ".'. Q.1-02
Description
LICENSED MATERIAL -- PROPERTY OF IBM
CJt"PT~
r-------·-,
I
J)t"oc€ssinq
: ,
I
I
II!
I
---,:::::l
TO'T"
mm::~llllI Uiil==~
__')I.r-;-:;3}
L:;
1B
III
I
~--' )'\'
I f .ossage is to pago".
f;~t.
t
Oisolay Stl1tUS'
II
\r
I _J
I
::::::~:.,.......,,"'
<1'--"
,-., )
I
I
~ I
I
output. subroutine
J '
1;.1.7.1
'L---
f
III
DYH1'('I!'I
'..-.1 - - pl\qP.
- - -1
'''eorlllinal
~
f
free page storage
<~>f-::IL-J
L-...I-,/ \
COllpbtp. all autopaginq
for appropriate LOCs
,
'll
---------..1,'
- ._ _ _ _
I
I
I
I
I
I
I
\ I
I II
I
I
I
I
! I
,
,
,
'''OOTPIJ~I
I I""'~' I
This routine s •• es infonaUon
on thp. current.lv act,ivPo LOC,
cOlllp!et.es lIIessal1f'!S for any and
all autopaqed LDC'S, and notes
the['e are any paged lIessages
11":::------------ I_:utinel
ImmT I
I
This is an open subrout.ine.
Ref
i~
left.
I I
II I'
I
I '
I
II II ! IIII
I I I II
, I ,
I I
I
I
, ____________________________,I____~i _____,\
L
D"S:
III
lII.ultiplp. tDe pn'Vlt'onllent,'
1~~I-~~~1
j@l
I.
'
E:1,'.l'/)~
DPRTPR Page Rl"ltrien 1 and 015011\'f
IQ~
!Q2]
If .essl!lqe is not for a
I
,
t
Mot.s
I~
1.2:..:1
l
Ir --:>!
I
IlL
-----'
r~""-:l::::;'
~~Nic.tor
nll'H'T''PR
4
D.'G¥,
:l OF
nutou_t_ _ _ _ _ _ __
r---------l
Input
)\P'H"'PP Paq"!'
Section 2:
Ppt'.ri~val
a".J nispll\y
Method of Operation
I
I
Label
I
~.e.
I
-I
!
I!
I
I,
I
I I
I
I
I I
I
I I
I! !
I"
I II
,I I
I!
I\ I\
i !I I\
'
"
I
!
I
!
\
I, ____1I
.J l________________
' ___,____
Tli.aqram -
f\.1.CI.1-01
713
LICENSED MATERIAL -- PROPERTY OF IBM
Procas!'>ing
TCTTE
I
CH~R'I':
r-------l
Input _ _ _ _- .
I f •• ss ••• is oaged
If this is last p'!qe
".
Ad~
1 to "aq'! nu.her,
90 retrieve Itnd dishy
ne:rt pllg'e
Set up to purqf'! messl!! qe
~ Go to .essaqe purqe
!
'l::..~/
.... i')
!'AGF
output.
I'IFH'rpn
0
ta OF
r---
I
(:.:.:/~
II
------,,
-------,/
_r~··I·"/)I111"1/_rr)·'
I
r.;:;', '>
L-..;
nSPTPC01
Fnended
paqlnq
co •• an"
OPP'I'PCO'
Encoded
function
L--,/
1~a~~1:g~~e
I
,,"s:
r
l
L_ _ _ _
J
~
__
I
L_._ _ _~~_~
orRTPR PIlg'O Rp.tt'ie'flll Ilnl! Display
nlaqra~
!Iotes _______________ .ouHne •
.----,,------
_~~ ~11.ot.s
I[!~l.This
stl:lJP applies, if .essaqe is
to be diRph,ed one pl!qe at ill
'T'PPRPCRK
I
I
PouUne
_
- 6. 1.
Lahel
•
Q.
1-0Q
Ref
ti.e.
11
11
I
I
IL________~-,.~"s:
DPHTPR Paqe Retrip.Ya 1 and Di.sDlaT
714
JL
I
____________.---:~-
I
I
I
J
I)iaqru - ".1. Q.l-I"JQ
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
Input
r----------------l
l
I
Processl.ng
Pre. P.ge
r-------------,
b. 1.9.1
I
Retrieval
T:~__
I
.... , II
1':L
····1 >
I
I
I
L---~n"l _______"1
I\
!
II
I
A. Q ,Q.ery)
"j
-----,1
.--"
r---,I
1--___
T[:;;:_E_~-.,---------~-"
l
I
DPHTPR:
,----. I 1@!]ISf.bCtiOb Q o r A 1 \
-1-1
l~3I~i::r:
B.
roil
I
,Reset to •• top.g1ng)
A
If terubal >s dohnod as
=1
~ >IO~
I
"
I
I
-,-----------,/ 1
[L-:,
~==:M-'-' '[-1
l/'-::bo[~=~:~ ~;;~::;
f
I,
t:::J PAGE, indicate that it
I""
I
l
-----"
I
I
,
I
I
,
A...
I
,I
being displayed,
acknowledge request and
I
\
II
!
!
I
out
f----------,
1'--"
<'!.:~/> ~s________ 1
~1::::::> ~
\
I -,
\
!
{_c]::::::>',
"I
' . . l--------1
_____
-.1
~2.l
A. Yes - Ackbovledge
request and eX1t
J
II
,
I,
II
,
,
,
0,
I
I
I
"
r--:'
•••• , />
I,Control
~r~g~a;
I
,
I
I
E"\
I,:J!'pro~r ..
Icob rol
\'
I
,
L_________J
L____________l
~o
__~:.2:2J
L
Has last page been printed
I1 (/I=';i'>fi;;s-----,
I
8rt5: Reset
b.l.1
---,II t::J If tb::-:-::-::SSllge-"
I
I
--------1
-.1
1:l P
,Control
0--~' I rOj1
'I
I
' ..
< 10.1 > BftS
,TCTTEPGft - --, I A
Po1.torIICBto
first
PAGE
r-----------.
I
I
I
I
II
I
Output
Autopag1ng and Page Query .. ClETPR
L _______
J
RIP01UT 1.1 D1agraa .. b. 1.9.2"'01
,---------------,---------1--1
I
---L::::~:I~~ I~~II..::~_____________I:.:~~~::l-~~:~_1-:~1
,~
I
II
I
l ~T:~::~~;~YT::r:~:~g:1::
I!
II
r--------------------~-------,-~
I I
Notes
A .e •• age "y have beeb sent to
hp"ETA
'\
retrieved by the operator 1 pagel
I
at a tl..e until the operator
I,
I,ll
I,'
I
I
I
I
,
I
I
I
the re .. 101ng fag •• are
!
I
I
"I,
d1SplaYEd.
" I
II
1@J
It tbe lIessage 1S for a .ultiple
I
11
I
!I
,,
I~
invokes this functio •• Theb all
~:~c:::1:::.:~:~ :~~t~~:e:::e
an error .essagB is sent to thG
operator.
,
I[~
I
\
II
I
I !
'TPRCKTRfti
,I
I
III,
,I
,
I
I I I I
I II
I
,I
I
II
'
I I
I' I
TPERETA
I
ITPRCOI..
I
I
II
II
I
1
'
! I I'II
I
'I'
I
I
II
I
II
!I
II
I! I( II III
I'
I I
!
!
I ,
Il _____________________
I LI __.!....._.J
I
.I
,
I
,
,
L ______________________ L___L ___L~
BPlS: Reset to Autopag1nq and Page Query." rfHTE=R
Section 2:
Method of Operation
Dl.agra. -
~.1.
9.2-01
715
LICENSED MATERIAL -. PROPERTY OF IBM
r-----------------l
r------------l
Input
I
I
"CB -
"8ssage crL
Block
I
rn7--_.J,!I ~
l~r-"
riiCBiiiiQID=l~ >@ -
I
,
L~~~~
I --
I',
nu.ber
I
-----'--"f'"
CI
"
. 'I'
C{=_A_ _ _ ]
:~!~
(
,I ~
,
I
!
~r-"I
LA~I~--Bl '[-1
~-1=:/1'~
~; !~/>
'l'erll.nal
AID'lR"ID - -I- . I -!
':~--!
I AIDT_HID
-
'l,mt~E -I
!
Por .. t .es.ag. identifi.r
[!F=~)ll::.::J
cfiedl.lng
llr.~:: j
Por .ach AID on the AID
chain for transaction CSPG
:::r:~:: ;:::~::~ ::dsteps
roBl
.
Set up to retrl.eVe next
page and go retrieve it
II
[~=:>,
I,
8"10
I
=:::::,
2 OF
•
I
OSP'A - B"S
Nork Area
I
johncod.d,
m pco'i""=1
"
g~m~d I
rnmO"2="I
,
~~~g~~~~J
I
OSPTPPAG-::l
'I
~~~~1~~e~e I
--'
"
I
I
I
'I",
I
I
I
r;,
-',..."l~[I\=:>I,
:J
1
t
Olltput
...:....1\
[~~e~N~~I' >(~
r---.,::::I
rn]
I"CBEAG - - - . /l~
, c~~~.n
j
L!~ . . __J
r
Add , to current page
PM!
i-----------l
Processlng
>IJ1
t.:J
E;;~\
,
I
I!il~~:;.
I'
I'
II
\1
:,'
,I
~'rpl
IAIiiCiTID=l~ >1Gl.
l~~~_J j L:i
_____________
8"S: Reset to Autopaging and 'Page Query -
II
\1
L-_______ _
_____________J
DPH'1'l'~
D1agral - b. 1. 9.2-02
t-;:::,.--------------I-;::~:r;::~~~l r~:::--------------
I
Re~
I§J ~:-:ssag. i:-~-~~:-II'-----!~~~
! '1--II11----------------------1'-----','------1'----I,
If
I
LDC envircnllent, every LDe thllt
can be t'Etset to autofage status
I
L. processed, one at a h •• ,
until cOlnetion.
I
I
I
I
I
I~
I§J
I
I
I
I,
I
I! I' II
I II I,
I
,
I
I
I
I
ITPREr Q
ITPQDAID
,
I
I
II
I
I
I
I
I
\
I
I'
I
,
I
,
II
!I
I II
I II
II, II1\'I
I'
!
i
L
Routinel Label
II
I
I
I
I
__._______________________
I
I
I
1\
11
II1\
"
IIII
II
1\
II
I
I
! !
I
I
I
I
,
I II
I\'
I
I
I
I
I
,
'
,
I
I
I
,
'
I
I
',I
II II II II
I I I II
II
I
I
I
II
I
I I
I
I
I
I
I I
II
,
I
I, -"'I
I'L _______________ ...____________________
I
I
I'
~--"
8ft5; Reset. to Autopaging and Page Query .. OIETPR
716
1
I
Dlagra ... b. 1.9.2-02
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
r--------------l
I,
I
I
Input
r---,--'"I
I
... ____---,_1\,.-,
ImBHSCC -I--'/~ !~---'/I
Icontrol
t;l---J\
I
I.!~~_--.J
I
HCR
l
I
1.':. ---,11
I
I
---- !
<1<1e
!
L_____ ~!j
I!
I
,
I
,
"
I
I
I
I
I
!
"
I'
,
I,
'
E~
Use DPHBHS TYPE=TEXTPLD to
build data into pages
I (' ~:~ \
I
1
\,1
'
If message has a title,
read >n HCR and fonat
!/:-i';rT-SP-------l
,"::,1 ---------
rm::::J=-'I-,)EI
lf191ds =1
"I
I
>rrn--,-----1
1--
'r--../
-----1
__~~:~:.:J
16
When all AI Ds have been
I
I
checked, send reply to
terzunal via HilS
,
II
r,';;1
I
I'
~
I
,,
\
Beset to Autopag1ng and Page Query -
I
!'
I
I,
I,
I
I
I
I
I
I
I
I'
,
,
I
I
,
,
Prog~m
lcontrol
I
I
I
I
I
1
I
,
IL ________________ JI
~
II
\
IE'it t~
I,
!'
I'
I
,L
-____________ I
I@]
"
II
I
3
I
I
I
-,--,:l
I
I
I
I
I
" Notes
I
[;; ..... ;1
' I,
.3 OP
I
,
I
I
I
I
B~S:
outpu't
1
-
~
PAGE
r------------------'-:
!
I
/,.--------------,
I
!,
'
Processing
II
L ______________ _
D1agtam - b. 1. 9. 2-03
t!BTPF
----------I-;:~~:I!L::~~l r~:::_-----------------I'-R:::J-~::~-f;:~
-----------------1------, ;;oHc;-I---\ 1---------------------1--------1------1----1
For 3210 only. £Por ,others,
DPRBHS TtPE=OOT is used.
!
I
,
13270
CTH..
'6
I
I
I
'I
\'
I
,
"
,
,
,
,
!,
,,
,\
I
,I\
,
,\
,\
!
I
I
II"
ITPOPUTL I
"
'
"
I
I
II
II
I'
/I
"
I'TPQDISP
"
1\
,
ITPQPCJT32,
'
'
I
"
II\\
II
I
I
I
11
I ' "
,I
11
\l
I
I
"
I
I "
11
"I'
I\ "I
1'\'
'
"
'
I"
"
"
I
I
11
"
"
'
"\1
I
I
11
I
I
I
II
I
'I
I,
I",
I,
I
'
I
,,
I
II
'
I
I
I
II
I
\
,
I
II
'
I
I
II
,,,
"
I
'
\,
I
,,
I,
,.
,'I ",I
I
I
I
I
I
I
\'
I
I
'I
I,
I
I
I
'
,
I,
,I
I,
I
!
'
" I
"
I
1
,
,,
I
,I
'
I,'I
I
I'
,I
I
I' "
II
I,
'I
I,
'
I
I
II
I
I
I
I
I
II
.
I
"
,I
,I
,I ,I
1\
I
I
l_·__________________~_l_ ______'-____-J L _________________________.!._ ..___.!-_____.!.I___JI
0"5: Reset to Alltopag1ng and pa.ge Query -
Section 2:
CfF.TPR
Method of Operation
Ol.agram- - b. 1.9.2-03
717
LICENSED MATERIAL -- PROPERTY OF IBM
----1 m~7t~~~:. r:::~----------------l
Input
r------------------l
J?rocessing
no.
-_--_-_ I
f
l
~===u,~
,
-~--~~)rAl fiil:=~)l'l~ Ifco ••• nd ,. alr.ady
/.::J
t.::,
encoded
.. ,
. fA
1.:..1=,/!
--"I
~- .. 1
~~~~AA~:~
A. Encode paging cOlnand
and function
~H~i!J-I-: >0 ffi~~:II' @] ~: ::r;~;:~d~e;:::: ~::
,.
,--,1 -'
I
I
I
,OSPWA
lr;;;; \[21
---------"
I
rIOSPTPCol--1
:~~~--1
I
l~~~~~~~
J
r-I-" 'II
rOsioo-8~)[Cl
<~~>~;;p.xpa~==::---IJ'
I Enccded
I
Purge a lIlessage
,
l!~~n
I
-------,
r.:r-" [§ If routed .es.age. ar. to ,
ILl
I
-J
aSP"A
tS
,
---,11
be purged, purge them
fgspoo21==l,
l!~~gcm~.J I
I <' :;~i "[TPEIPa-R- - - - - - ,
I
TCTTE
c;;TiPG~=:)101
to
L:l
~Pc1nter
~st_~~
\
II
I
I
I,
I,
TCT~E
lTc~T EPGs--l
e.~at~~~:J
I
I TCTTEPGilJ
l~~~~~e~:!:l
I
I
I
"
turn off display status,
ill
r------~
I
<\!!~/> :~-------I
~~J
1------------'/1
=~~~.
I
I
I
pag1ng,
____________---'
II I
'I I
\
3
I 'r-=/ye~U~~r:e~~~;p. L:h==::U I,
!1
/'--',
O~s~--'--_----.. ' ~
g~~~~S 1
_"
r-,/I
1 OP
I
--I--------,/,'
I
••
PAGE
output
L____
If.th1s'purge 15 fer
chaining or new task
iniuaUon
16.1.9.5
[~'i\>ro;l
I
--,/
\I
I ,t__________________JI
L _________-1
BftS: Purge I!essages .. DPBTPR
D1.agrall - b. 1. 9. 3:-01
r-----------------,-------,----"1-1,------------------------,----,-·---1--'
I.,
I
Not::.. _________________
[§
,
1~
ITPPTER"
I,
I
I
\
I,@]
'
I_:::~~:I-~=-I~~ll ~~------------------------l-::~~:l-~~:=-l-~~l
Th1S routine is charted ,. steps'
B thru 12 of this diagra..
Th1S routine 1s charted in steps
8 thru
12 of this diagram.
I
I
If all •• ssages are purged fro.
!~p~CaT!'
I'
,
,
by succ •• aingchained
transactions, i f any.
I
,
,
I
I
I,TPPROUTN'I
ter01n.l, all "CBs are freed.
otherwise' they' are left for us e
I
I
I
I
II\I
II
1
,
I
II
I
I,
I
I,
1
'I"
I"
"
'I
II
,
I
1
I'
,'1,'1
/'
Ii
'Ii
\'
,
,,,
I
,,\
II
/
I
I,
'
I
,
/,
I
I
I,
I, II I
I'
,,
I
II
1;'1
I I' "II
' I I
I
I
1\
,
I
I\
"
' \1\
I
I
"
I I
I "II
,
'"
I,
I
1
I
,I
"
II" I I I1\\\
I
I
"II
!,
I
I
I,
" \
I
I
I
I
,
1
,
I'
,
II
,
,
I
,
,
I
I
,
1\
I
I
I
I
I
,
II"
,,
I
. ,I
,
,
,
,
l______________________________
.
I
I
!...
' ___J"L ____________________________
I
!' ____!...
, __J
I
I
I
I
I
BftS: Purge P1essages .. DPHTPR
718
D1.agralR .. b. 1. 9. 3,-01
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
1-------------]
Input
II.
\
I
I
I
I
I
I
I
I
,I
I
I,
II
11
I f "Y .ossagos are lett
on the terllll,Dill, go
Output
" ,
E~1~>
dl.splay curtent paqli! at
naB~s~r~rv
lowest level
1-
I f purgo .as requested
b.
1.9.1
\1
fro. the term1nal,
8.cknov ledge request and
L:.:_,/
(' \>fTP'EXPU-R------, i~~i~~r
exit
~;;
I
11
Record l~CRI to pre.ent
simultaneous update
I
Iriiep------l
',.--,/ 1--------1
I
nCB l'Iessage
Ctl Elk
..!-I--------I\ Il~
1\
riiCiiiiSGi:J--r-------'I/
I~e.porary
I
1
I
I
--,
/
l.!~"9"
1
1~
I
L____________J
BIIS: Purge rJess8.ges -
r-----------l
L.._',
I@]
I
I
I
Erase
~CR
-=:~::ry
from
'I
I
I
I
,
I
I
I
I
I
I
I
-L---L
/1
I
L_____________
J
I
I
/
I
I
1
I
I
II
--,---"1._-: >
\
1 ,'
I
I
DPHTPR
I'
I
I
\
I \::~.vr::~------r
\
l
~
'
1
1
Read l.D HeR froD TeliForary
Storage
I
\
\
I
\
l _____~
I rt\;l
/
,.
r;;-;:.I1')
I ',.--,/ /ii~;;;;9;;p.;g-e--I I
I
L~~~_-.l
/
I @!] Enqueue on ~essage Central "
!!
I
1
/,'
I
I
I
'
j
I
!
I"~
I
2 OF
1----------1
(";;]---"1
§
i.E --,1
I
PAGE
,----------1
ProceSSl.ng
I
I
I
~~r ::2g~~e
~iiTRii~o
ITerllll.nal
E.~
___ _
L______________
Dl.agralll -
b. 1. 9. j-02
r-;::-----------------I~:~~:G~f~-1 r;::----------------------!-;::~::G::-f:~
1-------------------/-----1----1---11---------------------/-----1-----1---1
II ~
1
l~
l1P!HOR hPEXPUR
/
//
I
I
I
I
II
/
I
I
\
II
I
1\
I
\
I1
,
I
I
II
II
II
I
/
II
I
I
I
/
I
I
/
I
1
I
I
ITPPURI
ITPPTR.PRI
I
I
I
,
1
1/
/
I
I
I
1
II
IIII
II
II
II1
II
II
I'
II11
I I II II
II
I
/
\
I
\
I
I
I
I
I
11
/
I1
I
I
I
1
I
1
I1
I
I
/
I
1
I
Il _______________________!\ ___________ I
\I11
I
II
11
II
I
I1
I
1
Section 2:
DFHTPB
Method of Operation
II
I
I
I
/
I/
I
/1
I
I
, I
1
I/
1
1
I
I
1I
1I
I
I
11
I
I
I1
II
1
1
I
I
I
I
I
I
I
/L _____________________________ 1 _______ _____ I __
1
.!...-_~
ens: Purge "eSSages -
I
~
~
Ol.agrall -
~
~
b. 1. 9 • .;1-02
719
LI~ENSED
MATERIAL -'- PROPERTY. OF IBM
--j
.r--'
I .
.Input
."
I
I~
I =:===~)(
ag:f:~NJTf
[i:lr-~~
r-'
I
sca
I,
1
receive
~~:sage
10
I
.'
... '
::;:e:l~r::r:~:;lS
/. . . .,. [·---'-----.1
\~/ !~---:-I
I
'.A.!!
l
B. No
-:a;;p~ROn
! <~>f~sp
. ====---=:1
L____
.~:.21
,
I
Q!J-;i'> ,
~
-"'/', .
I
Doguene
IICR
aDd froe its
storage
(' ~;j' >rKep--------,
I
I
\ .--,/
',1_,-_...;._~~
It;;i
\[SC,P - '- .-.--~.
',.--,/ - - - - - -
I
'.
I
~
Df".~PR
[!D
\ r.1'1
l:!.!/>L.!._.
!'I
II
h
II
1\
1\'
I
"
1\1'
'.2.2
I
Rlc1t
I
I
1
~{caller'
,
Label
j'TPPTspoa
TPPOPSCR
i
I
'
I
I I
I,
,I!
"
II'
I
111\
I
I
,
I II1\
I
'
I
'\
I I II
'.,
I' I, I
II
I'
I
L
II
I'
I .'
\
\
I
II
I------Routine
a:;-rlr-~::==~====-I R::~n: -Lab~=(~9
- - --I
----B
\
I
L_~ l--,~J
Il___.;..___ __-1I
--~-----------
I
I
\
,J~l
I
I
~----_-Io.-----_-----
:
i ::--~-----~-I
'
...
J
I
1
r-----'
, - - '..,..--'--- t.::.::.....
~ess'ag~s
j:lf"
Te.porary St"orage
I
I
B"5: Purge
".
r------~----------l
I
'been
PAGE
output
Yes" Purge the lIess8ge,--.l\
froll Temporary stcrsge
A.
--- I
.
-----------1
Processing
I II 1\\,
I
II
I
'
I
,
,
I
I
I
I'
1
1
I
I
\1'
I
I
\
"
,I
1
\I
II
1\1\..
'I
I ""
,
I.
'
I
Il_~-'-_.-.-._.. ___--''-..._"-,._!'-_
'
'.
,I
I.
'.,
,.1
I.,
,~
_._I_...,__ ~_.J L'-_______-'-___ ..,..________ ---.- ,---li1.gr;.:-b.'1."9.' 3-03
~ft~: . ~utge ftessages
720
.. DPHT~R·
,
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
Input
Processl.ng
!II
I
Ul····1 >1II
II
nCB - "sg.
[
Ctl.
Block
iiCBtlsGlo
..
I
: --"
---.1
I [------"1
:l==-r-----'/,
I
r'lessage ~ t
----
1
I
,
I
I'
to
desire d terolnal
1'--"
I
II
II
I
[§]
Send dence
OKS
,
1
'.--.1 -------1
L _______ ~~j
r~;....~£l
1,.3 .• !
lnm~i
I
I
1
1____
, ______1
L_______J
I
I
indepen~.nt
I
I
I
II
II
II
\
page to tor.inal v10 Bns
I
I
I
~
All
assocl.ated
d •• ic.
fro. page
I
I
1,1
II
I@~ Re.o~e dep.:::~~eJ===~
II
r----------
I
\
I
Bns
---------
',.--,1
TSIOA
f1alds
1. B. 2
Set
I,
II
---\l---------l--~I-·"I
<1··,>TSl'
I
I '..-.1 - - - - - - I
I§J U;~:::,ng
I
I\!
I
II < ,00, )r
--=1 II
I
I
I
1
II
I
[------~
I ....... '
1 OF
,--------------,
\
I
DPHTPR:
I @~
01 Retrieve current pago
PAGE
Output.
,---------------l ~~~~y ·A~.ly;isr-------------~
I
8ft5: copy a Page to Another Terminal
I
,
I
L__________J
I
I
I
Diagram" b. 1.9.14"'01
r~::----------------I-;::~::f~::~G~l r~:-----------------------i-::::::~:::~~--:l
\-----------------/------1----1---11------------------------1---1------1--1
I§]
I
I
II
I
I
' ,I
I
TP!fiCCOP TPENCCOP I
I
I
,
I
I@J
I '
II ~,
I
I
I
I
If copy 1s to go to ideIitical
~odel
3270, page is sent to
ternnal with
~enc.
I
I
,
II
I'
dependEncies 'fia DIKBnS TIPE=!
!
I
!
!
I'
,STORE, NOEDITI.
§)
\
I\
I
I
j
1\
I
I
I
ITPEC"CBtl
I
I
IIIIFORIUT I
\
I
I
I
'
II
I
I
I
I
/IIINDUN'I
I
I
I
I,
I
I
!I
I
I
I
/
I
II
II
I\
I
I
I
I
I
II
I
I
II
11
I
II
II
II
I
I
II
!
II
I
II
I
,
I!
I
I
I
I
II
It I\
/I
\I
\1I
IIII
tI
1\
IIII
I "
I
I
,
I
I
I
/!
I
I
,
II
I
,
I
I
'
I
II
I
I
I
I'
I
I
'I
I
I
I
I
,
I
I
I
I
I
,I
II
II
I
I
I'
,
I
I
I
/I
I
I
I
,
,
,
"
I
I
I
I
I
'
I
"
,
,
II
I
I
I
I!
I,
I
I
I
"
I
I
I
I
I
' "
I
\
\
II
1/"
I
I
I
I
I
I
I
II
I
I
I
I
II
I,
'
\I
1/"
I
I
',
I
.
I,
It ______________________________________
I
I
I -1"L ___________________________
I .___________________
I
I ___,
BtlS: copy a page 'to Ancther Tar.1M,1
Section 2:
Method of Operation
Dl.aqrall - b. 1.9. "-01
721
LICENSED MATERIAL -
PROPERTY OF IBM
Input
Process1ng
I
I
I
/
r:b;j\!
TIOA
I[§]
cBiiiiTa=' )ri] 1i]:::~)ll~
PoiDter t o !
~
!!::~B
NeXt "CD
L; L ; .
g~~~gr
----
1
---'
- -lrg~~~g~
1 • e of
t:
--II----,
I
I
t
·1
m=:>
1.1
1
TCTTB
r>ITCTTECi--7
~Krent I
1
address
1.
I
-. t,.9.3
-L----rr·)'
I
Ipa
Set new task to be
Purge
---1
l.n:i.t1ated
I
II
I
D1sconhect the tra ••• ct10
fro. the tar.inal
·1
L.,II
II
n::::;)1C1
I
I
/
/
L~ __-1
[§}
'I
E'i'>
1
lessages
I ·
r-------"/roiil
t:.:J
-1-
1
If tbere are no acUte
.essages below thl.s level
A. Get address of ne.tftCB
and go purge act11'e
I
I
Ir--------·,I
-
CSA
'a
-!...-~-.\I
Turn off 'current' flag
.
r.]=~)1
>riiCBlLACiSl=; >(!l
Ltlags
co ••and 1n TIOA
1
II!
1I
chain
I, rn;J
Current ftCB
[
over
Shift data
1 n
,-------------1
I
DFHTPR:
I
L---,I I@!]
r----1--------'"
I Input
-------,1 I 01
t~~--, I
I
PAGB
output.
!--------------lt~~h·A~,;ly;1sr-----------1
L:J
II
-,/
I
ICSATeNDT
Next TCTTE
1
scan tl.le I
L----'
[-;;=3
II
I
CSA
,.3.b'!'
[~l=:)
E~~~~~!
I
IL ________ I
-1
I
I
L _____________---'
D1agral .. b. 1. 9.5-01
r-;:::------..
-----------I;;;K-;;;I;;;;;;;;I--II-------------·----1----- ----1--1
r::::------------'--r:::~1nel L;'::-~
Ii!;]
I@)
I
I§J
Iroiil
I
.!TPENBXBcl
II
!
\TPNEODLP!
"
I
ICl
I[§]
I
A ne> scan of the TetTE is
perfoned and the changed
/
transact10n
1S
1n1t1ated.
I
I
I
I TPNNI NIT
!1I II
!
II
I!
I
I
I
1
I
1
I
II
I
I
I
I
I
I
II
II
j
I
II
!
I
I
I
II
I
I
II
I
!
!
1
lI ______
~
I
II
1
I
/
I
!
I·
I
I1
I
"IIII
!
/\I
II
I
I
I
II
I
1
I
I
)1
III II
I
.
I
I
! II
J
1
II . _____
I
II
II
___________ II ________
.
1 ---.lIL__________________________
BflS: Chain out"put to Pr,ev1011SColiliand -
722
II
I
I
I
I1
11
I
I
j
I
I
1
I
I
1
I
I
II
I
I
I
I!
II
I
I
I
I
· 1
II
II
/I
I
I
----~---I-R::~e' Lab:-r~
~
Dl'H't'(:lI
'
CICS/OS/VS Program Logic:
Dl.agra ... b. 1.9.5.. 01
Description
LICENSED MATERIAL -- PROPERTY OF IBM
FROM DFHTPR
INPUT
6.1.9
P.ge 1 011
OUTPUT
PROCESS
~ DFHTPR
~ Q If not 3270 screen. or if CLEAR or ENTER key
TCTTE
TCTTEAID -
Attention
Identifier
1E
L£!...J
pressed, exit SKR code
~
If no 3270 Attention ID. exit SKR code
~
Index to' PA/PF reference number in"internal table
and fetch catalogued Page Retrieval command from
System Initialization Table
~
~
If command is blank.;
TCTTE
A.
TCTTEPGB-
Terminal
Paging Status
And a retrieval session is in progress, issue
operator message and exit program
1.3.6.
Program Control
B.
Byte
But a retrieval session has not been initiated,
then ABEND transaction
§
1.3.3.
Program Control
Move Page Retrieval command to dummy TIOA and
point TIOABAR to it
Returfj to mainline code
I~·:I
16.1.9.
V
Analyze Input
BMS:
~age
Diagram 6.1.9.6-01
Retrieval Program - DFHTPR: Single Keystroke Retrieval
NOTES
ROUTINE
LABEL
REFERENCE
BMS: Page Retrieval Program - DFHTPR: Single Keystroke Retrieval
Section 2:
Method of Operation
NOTES
ROUTINE
LABEL
flEFERENCE
Diagram 6.1.9.6-01
723
LICENSED MATERIAL -- PROPERTY OF IBM
Input:
Processillg
r------------------'/ig ~~~~~i d v18 r---------------.\
,:r.L -'\ II DPHTPS:
~"I >/
--,1 I ~ Get
Contrcl
\
,
tlCR (ttessage cent'rel
I
I
7 I
----I I
RecordJ
r---------
II Iep
\ ',---,/
-
:
I·
I
I
I
L______!:~::.j
I
'I/ rT~----l
\ ,...-,1 ---------1
I
lI
r.-l-"
/
I
! cscp
\.--./
r;:-------
I\
!
I
I
I
L-
BftS: Oelayed flessaqe Oeluary- OPHTPS
I
--T;--:-i:;;-II.:;:-ll',I-:::::--------
-----II--:~-~:II;--~-I---IIII------
III fQ.11 as - - - - - - - - - - - - - '
~
\
\
tlCR 1S stored on Temporary
StOIage and tb,s transaction is
init,atEd by DPH.CP via DPHIC
Storage via DPHTS TYPE=PUT.
I
I
II
I
II
I
I
I
I
I
I
I
II
I
I
II
I
I
II
I
I
I
1
\
II
w ______________
Del~very-
I
II
Boutuel Label
1
I
"
:
I
II
I
/
\I
II
I
II
I
III.
II
II
'1
I
II
II
\I
IIII
I
"
I
III
I
I
I
I
:
II
IIII
II
II
II
I
I
III
I
1\
1
,
I
,
II
II
1~.
,,------1,-----,---1
I
II
II
I
I
I
I
II
-1
D11lgraa ... b .1. 10-01
II I
II
I
•I
l.----:-____
I
I
II
II
BitS: Delayed. P1essage
I
II
II
II
Ii
III.
II
I
I
II
I
I
I
II
I
I
I
I
I
I
'1
724
I
I
I
\
I\
I
I
I
i____
I
I
I
! I
porary Storage.
II r;;;02"
I t.::.:l .CR ,s rEFlaced cn ~ . . porary
I
,
1
:~:::::~ ..::~~';:;~.::Sv~~R D:;:~ I
! ~..
!I
I
\
!
II
~_~
I
~--
!
I
,
I
L ____I
I
\
- - - - 1.~. 1
II
I
I
I
-·\0
---,1 G
II[Q;} Acquire AI£-typ. stor a ge
~
to bUl.ld BftS AID. ftark Ali)
as B.S AID
I
I
Steps J-5 Ilre repeatee) for \1
every tar_1M1 in tbe nCR
,93 -. >
' I --at I
I
2
J
L____!:~:!j
!
or
I
released l.t
II
1
I--------~
\
I
I ~ Replace !'Ica since [fUIep
I
PAGE
output
,
I
II
II
I
.1
I
II
I
I
II
I
II
I
II
II
I
I
I
,
1
II
I
1
I
I
II
II
I
1
I
I
II
I
II
1I
I
II
II
I
I
I
I
I
I
I
I
II
I
I
II
I
I
I
I
II
I
II
I
I
I
I
I
I
II
II
I
I
II
II
L____L__L_j L_____________________'____l___LJ
DPHTPS
D1agraa - b.l.10-01
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -
i----------l
Input
II
CS.
"-
r
1\
II
CSAJ!OP
Jullan
1
I'
IC11:="I'
A.
L:J
'
l~ ,
lB.
_,,[;1
II
"1:J
1,'
l~:~~ODB
-~~i~ent ,
\,1.
--.. . ,','
~]--'I
m:=~>1
;]-. '0 [-~---'"
R --,11I
,\
ftSG CTL Rge
J
"CRepeL
-,I
II
'i':=~>1
r-----::--1-L..,
.CULAGS 1--, ,fi1 t::.l
oper class
\
--
,
Ii:
---"1
t!J---,1
JI
I
[!;!2!...--l I,
l:1
,
I
fiiCiirniDl~ >0
I
1~!-:!---1'
I
-I
~--1-.'01
.CROPID
---, / 0
I
1
\
\
Oper ID
I
~
1
:1
\
I
,-,/l.!Jril=:>1
1D of transactl.on to be---'"
lDl.tl.4ted .. 'CSPG'
c.
Operator 10
D.
Oporator ciass
E.
lSessage 10
Crea'tl0n tille stamp
-
l-----'
_____
',.--,1
I
,
\
I
1.1.9 1
.!:..!:.:.J
rn:1.
to eICS na PCP
L~_____~
-,
2 0'
2
I
ffiiirnIDl
ITerm I~
I
I UDTRNID 1
Trans-
..
I
act10n_!~
I
-'-"r:"Ir~ll-,-,'1
---"l!J l!J--. 1
I
I
~'~'I
--I ~,,1j(1
r.l_K - - . 'II
L:ll:l
-"'rrl
-,-,Ie::
:::',,)fK1
1
fJ1=:>,'
!
I
\
,1
V
fJl=:>
L:.I
I
1
I
AIOOCTUif
Type of-
operatol:'
CheCki~L
J
"
1
,I
J
L---.
I
[·······r;:,---'\
---,t.:J--"1
'v'
1
II
f;l-·,I
~--"I
L___________J
l
BI'tS: Delayed ~es.5age Del1Very- DPH'l'PS
,
L::l L::J
\ l ~~ '>JKa-----,
I
II
I
~, >fD31
Eo'
SCiledule AID
.
-"
t
0 t.:J
~>0
1'.
,
,
I
\
---"rul
Terunal 10
G. 'rltla lDdlcator
II [~
1
I
I
I~ ::~:::
!!
I
I
1/1
, I
_
(";11
I
0=:>1
I,
hll1D AID
'I'
l=~_--l
PAGE
Output
r---~
Tr~~AlQJXD1~)[;1!E]
lCP data
I
PEocess1Dg
II
PROPERTY OF IBM
D1891:8. - 0.1.10-02
r;;::----
/
r~te~-------------I-;::~n811 Lab:~--IIB:;'I
L:~:-f;:;-'I
1----------------1----1---I------------I-~I---,--~
I
I
I
!I
I
I
I
\
I
\
I
I
,\
AID is sct.aulEd via DlHKe
1
I
I
I
I
II
TtPE=SCBHOLE.
I
I
,
I
'
I
II
\
j
I
\
!
I1
\\
I1
\
! 'I
I
I
\
\
II
I
I\
I
I
\-
I
II
II
II11
I
'
I1
1\1/
'I
\I
II
/11\
\II
'\
I
II
/I
I
!I
!\
I
I
I'
II
I'
\I
\I
,II
__________L_ _~ L_____
BKS: Delayed Kess8ge DellVery- DtHl'PS
Section 2:
I
I,
II
\1
II11
I
1 II
,
1\
II
I
I
I
I
L_
\
I
I
I
I
I
1
' 1 1
'I
\I
I'
I
I
R::t1De/
Method of Operation
1
I
I
,
,I
,
\
I
I
I
I
I'
1I
\
II
II
I
I
1
1
I
I
II
I
I
I
I
11
1
I
1II
1
I
I,
,
1
I
I
I
,
I
I
I
I
1
I
I
I
I
II
I
I11
I
I
I1
I
I
I
I
I I I
,I I I
'_____I'________
I
,
,
1
\
lj
--l
D18qra... 0.1.10-02
725
LICENSED. MATERIAL -
PROPERTY OF IBM
PAGE
OUiit::iii-------l
[ functions
... ______
1 Of
6.2.0
... ______ .J
----------------------i-------------f---------~---------------1
[.it~--J
ttanipulauon. 2
--------~!~
[il;;L;i
L\ ~ LfP;:;:L4V~r:;:tY
~.m~m-------l
..-:il [~~~:m::---l
:j rT.j;i;;-s;;;~i~~~
L _________ [m:!~~~:~----l
.
---------------- __________
2
•• ~
2
--------
EstabllS;--]
~~f.~:i~t~n
-----
6.2 • 9
~
~J
6 2
-~-----~---:-:-
retriEve-----]
[BeieB~;-st;r;~;]
-------------
--------------
Selected :~~?~g
Areas
6. 2. ~
I
~.:~.:~J
6.2.1'
Buil t-I n-lunctioDS
726
llettie'lal
C1a~rall
CICS/OS/VS Program Logic:
- 6.2-01
Description
LICENSED MATERIAL -- PROPERTY OF IBM
i--------l
I
Input
Process long
1:1-., r=~-----t=~:~/,
TCA'
[TCAmiil--I----·-----·-->'I~
I
II
I:y~~es~
I
'TC;:BfPA~
IHLL
I
I'@J
I 021
,'
I
1no1l.cator
j~
\
(
:,'
,
Oeterune the type of
request
---- I
l
,
1D'terface
.
I
0r"_t..:p_"_t_ _ _.
Perform HLL l.nd1cat.or
~::l~~~S
u::: set up f1el~
Process the .acro
,
,
I,
I,
instruction
r~:=--l
t:::: •• ,:
1\
,'
ITO
I,nodule
II
II
II
I'
=i~red I
"
I
I
I,
,I
,I
I
I,
,
I
I
I 'I
II
Iii
I,
,I
I
II
I
I
'
I
"
\
I
I'L __________-.J1
t_________-.lI
I.!~~:~~~J
,
I!
I
l
rTCAiiFTii--l
I
I"
I!
I,
I
1:l f'
TCA
I'
Z~ZZZZZZZ?~z\,> 1
I
PAGE
\
,LI ___________________
ftacro Request Analys1s and BLL Inter facE Handler"
1J1.agr!l1l
~------------------,-------,----"l---,
-
~
b. 2. 1-01
[--------------------------,----,----"1-"1
ll;e:.=~:~_;:::~~-l-~:~~:I~~I-~II.::::---------------------'I:-:~~~:I-~~:~--I-:~l
,
I
I,
I
I
II
,
HLL
'
I, 'I, II"\I
'
user.
101tlO11.e TCAB1TP i f the B i t )
\BPHLB1T
!tanl.pulat:i.on .acro 1nstruct.:i.on
:
vas given.
11
1'1
IIII
II
'
,
I
le,ULEDT I
spmfied.
I
I
I
I
I
I
IId
In1t1aU.1:e TeAtlf!1 and TCAllfA2
I
'BrULI"f' \
"
"
if IHPOR"AT vas specified.
\
,
,
II
I
I
I'
In1U.ali'Ze TCACfCfD .\.f "ERIft
,
,BPHLCK
, I
vas specl.fied.
I
I
\'
I
'
I
'
I
I
'
Initiali-z:e TCA'ISA1, TCAtSA2,
,
,IBPHLTSR I
I
TCATSAJ, TCATSA4, and TCATSAS if :
:
I
I
Inl.tl.lllize TCAPLD 1£ DEBOlT vas
\
I
TSEARCH vas spec1f1ed.
I
Initialize 'ICAlfTRI it ifTRE'I'ST
vas spec! tied.
In1t1ali2e TCAtfPA1, TCAifPA3, and
I,
I
, ' :
,
"
TCAI!IPAq if
I
I,
,,
,
,
\r
,
,"
\
I
,
I
,
II
,
,
,
,BPHL.RT ,
IIBfHL"P~
J
'
,
I
I
I,
I
,
,l
,1
I
1
I
,II
I
I
,
I
'
I
I
:
I,
:
:
I
I'
I
,
,'\
,
,,
,
I
I
:
I,
:
I
I,
I
I
,1
,
I
I
I'
I
I'
I
,,
I
I
I
I
I,
I
I,
,
,
,
,
,I
'\
I,
I
!
,
I
'
I
I
,
I
,I
I
I
,'
,
,I
I
vas
I
I
I
I
I
,
S p e C l . f 1 @ d . ' I , I , ' : :
IITR'I'PAR~
I,
I,
,,
,
I
I
I
I
I
I
I - -_______________ , ______________
I
I _" L_____________________________..!.'_______..!.,______.!..., ___1,
L
I,
I
~
lIacro Request Analysis lind IILL
Section 2:
Interfac~
HanrHer
Method of Operation
D1aqralll -
b. 2. 1-01
727
LICENSED MATERIAL -- PROPERTY OF IBM
pr~~~ _ _ _ _ _ _ _ _ _ _ _
I~~---------l
teA
I
[~;;~\
!~~~~r
. _--.. -->
[ifFiT¥J-------_
pattern
j
[U
~~~:::--
~~
Determine the bit
aanipulation action
required
Apply the specified bit
pattern to the indicated
byte
[~J
CABITi
Byte
f el'd
CHAR'!': DFHBIP
PAGE
1 OF
1
________________________ _
DPHBIP:
---,/
TCiiiiTTP] --------------- > ~~
[ Reguest
o~put
Set response for
appropriate transfer of
control
JT-----------'
_____--',
I
r:;;;;;;;:j
>~B1t;;-t;;""Jb.
--operated
on
-----J~L
'l
To caller
________________________JI
Bit-rt'snipulation
Diagra . . . 6.2.2-01
----------------------------l
Motes
Routine Label
Ref
------------_._---- ----- - - - - - ----------------------------- ------ ------- ---Hotes
Routine
Label
I
. Ref
~ Tbe allowable operands are
BtTSETOR, BITSB'l'OFP, BITPLIP,
and DITEST.
~~ BITSETON
BIFTST"
BITSETOPP
BUTSTS
BITPLIP
BI1TSTC
DITEST
BIPTSTO
~ Por 81T5ETOR, BITSBTOPP, of
BITPLIP, all bits in the
specified byte are on (or off,
after the operation, and control
is transferred to the address
specified by BITON= (or, BITO"=)
operand.
[~ Por BITEST, all bits that are
tested under bit pattern .ask,
are on (of off), and control is
transferred to the address
specified by BITO~= (or aITOPF=)
operand.
Bit "a"nipulation
728
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
Inpl1t
TClliii-J
f[
I
\
!
r----------->I ~
I
Pield
pOinter
,\
;1'
Il L~~_.
mw-I I
I
Check for. 8inus sign .-. I
or 'CR' at tbe end of the ,
I
L:::.J
\
\~
\
( ~--;;;;j
I
I
\
ITO
II
I
J I
I
I
placed o.er the low-order byte.
1
I BIFDEDO
I
!
' I
caiIer
II
1
I
I!
I
I
I
L-______,
!
I~
I
Z~Zlm!!~~
1
p01nte: ___ J
WI(>I >imI~d__J
,
1~:~:I~abel
It
I
1:J F
TCA
TCArto - - .
F.eld
I
I
~~:l
f
If tbe field ends ntb • •i...
siCjn or 'ca', II. negat1'f8 zone is
Ir
I
.:~~ 'I L___________>II; IQ2l Edlt the £leld
,Hot.S
I
£181d
I
>rii;;;a;:t;aF-
F.aLd Edit
I
t:__ -, I r;;-;,
TeA
PAGE
Output
1-------l,.n··~::.'>:I::=:~---------
\ §)
1-----------1
ProceSSl.ng
IL ________________
D1agra.. - b. 2.3-01
II Ref
I
I
I
I
Ir~II
II
'I
\
II
'I
___________II~:~~L~~:=-LRef
I
I
I
I
I
J
I
I
'@JAll.on-n ••e r i C C h a n c t e r s a r e I B I P D E D " I I ' I I I ' ,
reoooed.
I
I
I
II
II\I
II\I
IIII
I
~~~
II
_ _ _ _ _ _~
I
!
II
I II
1
I
,I
I
I
!!
I
I
I
1\
I
I
I
I
I
I
II
I
I
I
I
I
II
I
I
I
I
I
I II
I
I
I
II _____ I _ _!---...J
I
1\L _____________________I.__________
I
I
_____
~
\
I
II
I
I,
I
I
I
I
I
~___1
D1agraD. - b. 2. 3-01
P:leld Bdl.t
Section 2:
II
Method of Operation
729
LICENSED MATERIAL -
PROPERTY OF Illwi
Input
processing
rll------------~lm'··;;~J=:--1
I
~--'I
TeA
r;;-:-I
I
rTC.ACii:i=l· --,-- --_ .................. _) Il£.!J
1~1r~,o-1
'I
!
I
I,
I
I
I
I~I
I '
C.
Packed deci.al
I
I
I,I
I
I
I
I
I
I~l I
TCA
,
f"TtACHii---'
m~ons.
I
I
I
I
I
I~I
~f~~m~~W
rI
o
I
I
I
1
I
I
I
'I
'I
l~~==;j~!
II
I
I
I~'
I
I
I
!
I
Alphabetic
Zoned decimal
A.
' , I I @ ] s e t re.ponse
I
177( \)
B.
I
I
I
I
I
lI~~ ____ ,
1 OF'
r,-----~l
,
Check characters
m:;~b'
I
PAGE
Output
'vi
Callo<
I
I
I
I
I
I
I
I
I
!!
I
Pield 'erity
Diagraa ... b. 2.11-01
r-------------------l----I--~I--l r------------------------I----I----I-~
\I-:::..--------------I-~::~:I~~~
~II\-~::..-----------------I~:~~:I~~:~-II-~~I
The tHld function de'era1hos
I
I
II
I
I
I
I
II
wh.t
tne of
is to be
processed. control 1S
I,'
I
transterrea to the approprute
1
~ata
routinf! in 'the application
progra. I:ased on the type of
aata.
Character ch@ck
A. ..
Alphatet1e
c. Packed
de~118,1
IIII
I
I 'I
'I
!
,
I
I
!
,
,
!
I
II
!BtPCHK.
I
BIPcH«8
I
BIPCHKC
!
!
I
I
II
II\I
II
!!
II
II
II
II
II
,1\
I
I
I,
I I
I
II
! I
I I
I
!
I
II
I
!
II
II
I
!
I
!I
I
I
I
I
I\
!
II
I
i
I
I
,
I..J .
~______
Pl.eld Yer1.fY
730
,
I
I
lI_____________________________
· ________-.1II
,
I
I I
i
I
II
!I
I ! !I
II !I IiL________________________
II
I
I
Diagrall ...
CICS/OS/VS Program Logic:
fl.
2. 4-01
Description
LICENSED MATERIAL -- PROPERTY OF IBM
Input
'TYp~=!?RON'E'rlC I
,I
II
,'
""
,I
'rCA
\
r:1 - .... , I, OPHBIP:
J~
L:~.:.!/>I
_
rTc;;iiAiii-"l---i----------->I@~
I
l~~~~J 1'1
'I
I
,I
Check the val,duy of the
.ue
I,l----------->! ~
I
I
' I
'I
I
I
I
1
II
I
I"
\
7777777777777)'>1
-1-----------1I I
t
I ' I
I
OUtput
,.--------------------,
,
Co, vert the appropriate
7;7777777777,
'!
characters to the nUmeric -,-------, ~}~ '>
code
I
--~I I
' I
E~~:l
!
I ';1 I
I
'I
I
II
I
I
I
I
I'
I
II !I
I
,
I '
I,
,,I\
I
I
I 'I,I
I
I
I,,1
I
I
I
I
I
I
I
I
I
L_______
ITO
1
I
1',1
I
II
1
L _______________--1I
______ J
PAGE
I
Processing
r----------------------,
Caller
I OF
,
TCA
TCAPKHii--'
~~::l'~_
I
l:':~~~
TCA
TCAPHONf
Phonetl.c
~~~~rn
I
J
I
I
!,
II
II
I
I
,II
,
"
I
J
I
L
_______________ _
Phonetic Con"let.Eion
D1agraa - b. 2. 5-01
r-~-----------------------------__. r--------------------~-----------""l
: Bout1nel Label
Ref
Notes
ROIlt.1it~i Label
Ret
I
1 Notes
I
II
I
\I
i
'
I
I
l~:::::;-------------I----'---I--! 1---------------------1---1----1---'
Il~ The first character lIust be
I
I~
alphabet,c.
The hrst character re • .,.s
,
IBIPPHNO
I'
!
,
'
I
!BIPPKN2
,I
I
I
1\
'
1\
II
t
t
,
I
I
\'
I
I '
,
I
I
I
I'
I
I
I
I
I
'I "1\
:,
:
:
\
to ••• et1 c code.
I
I
I
I\
I
I
'
,
" 1 \
,
I
I
I
I
,
1\
I
I
I
I
I
1\
1
I
I
I
II
I
I
I
I
\
I
I
I
'
'
I
'
,
I
,\
I
\1
I
I
I
\"
,,
I,
\1,
,\
I'
,I
,I
I'
I
1
I
I
\\
\'
I
I
,
'
\ I'I
,
,
I
\
I
I
I,
I"
I
\I\I
I,
I,
,
I
II
I
I
I
\
\'
I
I
1\
'
I
I
,,
I
\
,'
"'I
I,
I
I"
'I
I
I
,
I
,
I
I
I
II
I
I
I
I
I
,
I
I
I
I
\
I
I
'
I
I
I
I
I
I'
I,
I
II\I
I
I
I
,
,
,
,
IL _____________________!I______I, _____
I ..lI'L_____________________I,____I, ___ !I____
,
unchanged. The Translate Table
I
is used to convert the character I
\
I
!
I \
I
I
\
"
Phonetl.c Con 1erS10n
Section 2:
II
,
,
ou.gra . . . b. 2. 5-01
Method of Operation
731
LICENSED MATERIAL -
PROPERTY OF IBM
II
Processlng
Input
----}ITtpE·~!U;~::, I,
'rCA
rcnsrc
Panct10n
Ind.
ITillSiii
Me. of I entr1.8S
liCi~
~~i~:~t
--
•••• , >
--,1
Output
DrHBIP:
)
rnt1
@]
I
-----------> §]
E:~_
ITCATSAJ
PTABLE and !TABt! f1eld
TeA
"==::::::--'
mzz~ZZZZZZZ~,>
and entry pointers
Deter.lne Vb1Ch search
Search the table for a
.atching entry
r'l'BL entry
~~-
[g
Set response code
mlsHeld
pointer
TCATSAS
'j
z1zzzzzzzzz~
~>
I
[······;;1
-I~;I
To Caller
!~~t~ield
TCnSH2
A'fBL entry
size
irnru-
TCATSRPC
frum.ReRponse
code
Index
---yalue
TCATSAS
P01nter to
fUnction
.alue
antr,
tCiwATBt held
size
1
method to lise
TCATSA2
ATBL entry
I~m
1 OP
'-=-1
I
-i----------->I~!J Check the valid1ty of thp.
I ___________ I
-------l
PAGE
liCimrIlTBt f18ld
I
L_~I
size
I
I
L___J L,--,---- J
Table Search
otas
~
---@!J
D1agraa - fI.2.fI-Ol
------
---
A linear search 1s .ada 1£ the
ORDER= operand 1s bot spec1f1ed.
A binary sEarch is nde 1'f the
ORDER- opErand is specified.
I
~I.:: '_R_e_f_llrotes -_-_-___________.__ I~I~~- _Ref
BIPTSHO
I
Linear search.
I
Binary sEarch.
IBlnsH.
A •• tch or no .atcb value 18
IBIPTSH.
BIPTSH2
I
1
I I
II
,I
II
II
returned.
J'
I
I
!
(
\
Table Search
732
CICSjOS/VS Program Logic:
Description
PROPER~
LICENSED MATERIAL -
\----------------l
Input
I
I
TYPE.I~p:mT
rot '>1
G·::,
I
I
n~~Ngl-11
m~aed
II
I
Of Half:
llocatl,on
Hst
~:_
I
1
'
TCAIHA2
-- __I 'II1
I
I t---=:!i-
l r----'
TeTTE
l
,
TC'rTEDA l '
Ld:i:1~a~
I
I
I
I
---
1
I II
nove the old TIOA fiela to
"I
the ne" TIOA held
I
I@!l
Attach the nell TIOA to
TeTTE
II
III I - ---~
I . ------"1 <,~/>r--.
--I
I
I
II
I
I
!
I
_________j
-----.,/ 1
Rele.se the old TIOA
IL..-O,
I
L_CP___ 1.2.2
I
,
I
1
7777777777777
------------
I
I
I
~'
I
)
TeA
~code
Response
1
---..,
~C1IMRC
'-_ _ _ _ _ J
Mev 'nOl
I r>c=::::..~
I lI I
z~m:rr~mz\" 1
I
I
,II
II
I
I
,-- )-1
I
:L
I
1.0 e.~I:r
I
I
I
I
)'
'TCTTE
TCTTBii.---l
{Ter.inal
J
data addr.
••••••••
L ______J
Input p'oraatt1ng
r;:::-----
1
and held loco.,on
L
______ J\I' fOil
.---,1 t::.::.l
\
!§
,
I
II
the field location
ll.st fer tbe held length
I
I
I
I
I
nalle start c h a r a c t e r !
II ~ Scan
I
----l
1
t'
1.2.1
1021 Scan the old 'rIOA for a
held separ •• or or a held-,----------
1
,
r);:~-
I
\
I '.--.1 lm------J \
1
-------\
r-------','1 C:':.1
7777777777777l'> I
I
;~~~ti~st
PAGE
I
I
Obtai. a nev TIOA
I f-------,
I 1-------..
1----l'~m~A 1
!
I-Ot1tput
1I
I
Tr~~---l----------:::!~>llroil
'I'C AINM!
I
t:..:J
Im~l1st 1
1
1
I
I
1--------------,
.Elrocessl.ng
OF IBM
j
I
1<-_______ _
Diagn. . . . 1:1. 2. 1-01
i
-T::::::~:~r::;-, ~otes ------------------r::::::l~::~---~~
1----------1----·
1--1-1\---------------1---1-----I
I@!
1
I
II
1
I
l
I
!@J
I[§
~
,BIPlHP
I
onImo lBIFINF2
I
I
II
I
I
III
I
I
\"
jl
I
I
I
\
II
llBHIm·1 III
1
I
I
1
I I\
I
I
I
I!
I
!
II
I
I
I
I
,
j
1
I
I
I
I
I
II
I
I
I
!
!
I I
I
I
I I
II
II
II
II
!
1
I
II
1\
II
I
,
I
I
I
Method of Operation
I
Ij
I
.1'11
I
I,
1
\
I
I
I
I
I
I
I
I
I
·1
I
I
I
•
JIL ___________________ ._______________
I
,
,
II
II
Dl.agrall. -
TnDllt' Pnr."1't':ina
Section 2:
I
II
II
II
I IIII
I
I
t_______________________________
I
!
!
I
I
!
II
lEIFluqol
!
l§l
\
IBmmel1
I
I
I I ! I
I
! I
@J
II
I
mm2o
I
I
I
I
b.2.1-01
733
LICENSED MATERIAL -- PROPERTY OF IBM
Input
r----------------i
\
Processl.ng
TY,",,, . . ,ST
\
\
r-,
I
TCA
output
I
I
I
I
I
I
I
I
r---------------j
/:L..... ,
I,mNRIGK, I
I
I pointer
\1
11
\
II
I
1/;;;,',r--------1
I
I \r--,/ 1-----------1
I
II
·\1
I
\
;'
work area
'Pep
L
,fOil
I.b ••
1
----------'
Start brovslng
I L:::.J
t
I
I
_~ ______r;::;)
--1-------'
1
I
I
I'm-p·-II
I Data set
I
!~~--,
TCA>TOl
I
L~=-- __l
\
I
I
_____
I roJ1 set up the work area
It:::J
I
pOlnter 1n VSlfA
I
II
I
I
I
II
1
\
'I
Save the specified
parameters and compute
Slze of key-save blocks
~~~gonse
1
I
II
r>~---l
Ir' IVSO.OR..
II
I
I
I
I
-.!...------L II
I
r.;;;:;;;-----.111'~mi:~:~
lpo>ntor
,
L:::~~~ __ l I -------'
I
the--I---l__:>
[-:~~r
I
II
I
I tf91gh ted
TeA
I
f$fTRET_"_A___
l<1
I::~~::--/
I
II
II_TeA"TR_l __ 1
I
I~::~~:---!
II
!:::~~~---I
II
I
I
I
I
1
I
I
I
II
II
1:1
II
1I
I
I
0
I
(' I
ZZZZZZZZZZZZZ
,>1
I
[-----1
.......
.
I!
!,
I
I
I
I
/'FrAr"oTrRC---'\
I'
I
I@~
1:
I
I
I
1'\!-:~/
'--'' r---------1
' I
---------1
1\
I
L~
~~.:.~J
Im"~
I
I
I
iI
I
ITCA;;ru--II'
I
I
I
I
IITCAiiTiii-jl I
Isee note
1 lP
\
Obtm
I
I
TCAOTR2
I -~--free note
I
1 OPRBIP:
l::::~ / I -
\
rl);!=G~~f.lIT------------>1 [~:D
I
I
I
PAGE
r-------------~
I'
II
! !L _____________--1I
IL__________________l
I
l~': __l
I
I
I
L____________________l
Inl.tl.ate 1fel.ghted Retrl.eval
Dlagra. - b. 2. a-01
:-::::-------------------I-;::~:f~::~';~--l r-~:::-------------------1-;:ut1ne' L::-\;:~
1----------------1------\----1-----11-------------------------1-------1------1---I
I
I
I
II
I
I1fM1
~1 TCAWGCNT 1nd1cates the aaX1DlUIII'
BI,WRT 'I
II
II
\I
II
1
number of records to be Dade
I
II
I
I
I
,
II
I
I
I
I
aV81lablE to the application
I
I
II
I
I
I
'\
I
I
program (""ECOSI.
I
!I
I
I
TCAnR 1 indicates the
0 . . 10.0
number of records that can b;t
read.
J
TC.WTR2 indicates where .e1ght Ed
I
I
I
!
I
I
I
!
I~
Retr1eval J.S to beg1n
t
exam1nation of records.
\
f
1
I
J
initiate the browse operation.
I
I
A P1le Control SBTL 1S 1ssued to 1
I
II
II
IL:::::
I
I
\>031
II~J
rn7.1
\
I
I
I
I
I
I
I
II
I
I
II
I
I
',
I
I
II
II
II
I
I
I
/I
\1
I'
I
,I BPORTO
!
!
I
BPWRrO
I
,
I
I
'
1I
\I
!
I
I
I
I
1
II
I
III
:,
I I'
I
I
\I
II
tI
\I
,
!
1
:
I
I
I
I
I
I
'I
I
J
I
II
I
I
I
1
I,I
!
I
I:
II
!
I
II
I
I
I
I
II
:
1I
I
I
1
I
I
1I
I
II
\
II
II
II
I
I
II
II
I
I _______ lIIL ________________________!.....
I ____ I
LI _________________________________
.!...
1\
I
1
1
J
I
I
I
I
I
!
!
1
I
!
I
I
1
1
:
II
I
I
1I
I
.!...___ .!... __.....
Initl.8te Wel.ghtE:d Peotri"!val
734
Diagram - b. 2.8-01
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
r-------------------1
InpUt
I
I
.0
I
:~CAWPAj- I
:TCAm;-1
'I
,
I
I"TC;;'PH3-1
'
I
:TCAWPa;--1 \
,
II
1-----1
I~~~~~--,
I
TCAWP
I
II TrnPB,-1
I
I
"I~~~~=I
f
\
t::~WPT~_ .. II
,
II
I
I
II
1
It
I
I
l~~_______ ~2J
,
[~~
r--,
I
t~J
compute the upper ano
lover UnJ.ts of the range
Put the selectl.on criteria
lnto the crl.terla blcck
I
I
r [~~~~~=J I
I
ho
/
II
I
, I
Cal!er
[
II
'II
I
I
'I
!
,:1
I,
1
I
'
!
I
(
\
'
'I
'
I
l ____________________J
I/
I
,'I
I
I
I!
Establl.sh selection Criteria
,I
\
I
Ilast blockl I
,
I ' ,
I
[~:A..~~=J
,'I
I
I,:
\
I
I'
I
I'
'I:
I
,,
l
'
\
/
teA
'",----,:
~~~~~,
I
I
b~::~~-- I
I WRCHAIN
1
I
I
I Traces to
I
I
/,
r;;~;~;;;l
I
I
\
I
I
/
I
I
"
L':~~:;:"'_
I
I"
1l, V[:~ __ -;-l '
II
\1
\
,
,
r-----------=1 "
/L--J \.
<,'··'1'
,--, -------------
/
:TCAmz--l I
~
1 OF
,-------------------,
I
'[0'' abtain storage fo. the
--.I
selectJ.on ctl.terl.a
PAGE
output
I
--~,
I,
I TCAltPA 1
I
I
II OFHBIF:
L:::':U I ,-,-,
"~~~~=11
1
I
I
r;l
,-
II
I
I
r---------------------l
proceSSl.ng
TY Pt=lfTF'T P}l1l'!
'
I
L-_____________l
I
I
L_____________ ~_J
Ol.agralll -
b. 2. Q-01
[:::::-~=~~~==~==-~==--I~::~:f~~~T~~-l
[::~:~==__===~~~~~~~~==1-;::~~~~~=[:0
I
:I
:
,~
I
1
,I
The selecticn criterl.a's block
chal.n 1.5 tracel1 to tbe last
block.
1r;;:;1
:~1
,I
I@)
I
I,
,\
1
,
I,
I
I
I
I,
I
/1
,
,I
IBIF .. Ptl2
\
I
I,
III
I
I
I
,,I BIP\lP!130I,I
I BlfOmO I
,
I
/,
I,
,I
I,
!
I,
I'
I,
II
II
II
II
I
I
I
1I
I
II
,
I
I
\
I
I
I,
I
,
\
I
II
'
!
II
IIII
II
I'
1\
II
II
II
II
I'II
I'II
II,
'
!
t
I
I
I
I
:,
I
I
I
I
'
I
I
I, I
II
!
/1"
,
"
,
I
I
I
I
i
I
I~!
I,
\
I
I '
II
,I
I
I
I
I
, I
,I
I
'
,
II
I '
,
"
'
I
I
II
II,
,I
II
I
I '
"
'
,
,
,
,II
''
I
,
I
, I I
,
,
I
I
,I
I
I
I
I
~S~abl~hS;l;~tio~c~it~~~-----------------------------.!
Section 2:
:
Method of Operation
L________________________________ -.!._______.!.______ .!-._-1
Dl.agram -
b. 7.. 9-('1
735
LICENSED MATERIAL -- PROPERTY OF IBM
Input
r-----------------ITYPE=-::'GET
I
1
r-------------------l
I
I:L-" I DPHBIP:
l::::UI,-
\
I
I ____---l
II
!
I
r>H~AWR~~
l >1RrT~A
I 1----------->1 [~ :::c~o:~:t:P:::f~:~c::::::
I
TeA
1
r 'LTCAiiGA"A--' -j--I----------->I
I\
I
~~
I
I
([~~iiA~~ II !
I
II
I
I
I L __________ >I (oj]
I
I
I
II :::J
I
:
I
I
I
\
I
I
I
l>.______, I
t::':~:~j i
I
I
I
\
\
\
I
II
I
1
,I
\
I
I
I
I
I
I
r ~iiGAA--J
I
I
I
compare the computEd
1 ::lP
I
I
\
LI VS>A
I
r>
II
I
I
I
\
~iiE~=]
II
I
I
I
percentage value vith the
user-specifl.ed r a n g e ,
I
-----------.;,/1
I
I
I ',--.1 t~:=~=~~~~:~l I
'~----l
L:::~:
I
I
I
II
I
I
\To
I
I
I
I
I
I
I
I
value
I
I
II
I
I
I
I
Search the file to match
the record key
PAGe
Output
I
/rQ.jl
Get the specihed record _L _______.,I l,r-------l
L.:.:J
r------------J \
t~~~____l
I selectl.on I I
I
,------------------l
Processl.og
!
I
II
I
I
1
I
I
!
IL__,__________________..1I
l\_________________!I
Caller
I
I
I
I
I
I
I
•
I:
I
I
I
II
I
1
'-I
I
I Data
II
I
II
I
I
I
I
I
I
I
IL _______________________JI
Retrieve SelectEd Records
D1.8gram ..
b~2.
10-01
r-----------------------------...- - - - - - - - ' ....----------------------------------------------,
, llcllt1nel Label
I Notes
I Ref II
I
Notes
Routl.nel Label
'ql?f
:
!-,-,
-------------------1-----1----1---11---------------------'1-------1-----1---1
I~
thre~
I
I
I
II
I
\
I
I
\1
.TRETGET
II
I
\
I
I
I
I
I
:
:
:
I
The first
process steps
1
\
1
\
apply only for the fust
request. ~he fust
\
I
$fTRETGET request causes all
,
\
acceptable r~cotd keys to be
1
I
\
I
saved l.n a key-save block for
us~
lon subsequent lfTRETGET
requ,,"sts.
i
1.-,
t ~J
I
I
I
I
I
I
:
I
I
I
I
I
I
I
I
I
1
I
II
I
I
I
\
I
I
I
I
I
I
I
I
I
II
I
I
I
I
I
I
I
I
I BIFitGT50
11
I'I
"
II
I,
I
I
I
1
I
I
I
I
I
I
,
:
:
,
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
1
I
II
I
I
I
I
I
I
I
'I
I
I
I
I
I
I
II
\
II
I
I
I
I
\
I
I
I
I
I
I
I
II
II
\
I
I
I
\
\
I
IIII
II
II'
II
II
I
II
1
I
I
I
I
I
II
I
I
II
I
I
I
I
I
I
I
II
II
I
I
I
II
I
I
I
,
II
I
I
I
I
I
I
I
II
I
I
I
I
I
II
I
\I
II
:
I
II
I
I
I
I
1
'\
I
I
II
1\
II
I
I
f
I
A Fl.le Control GETNEXT loS l.ssued I
to retrieve the r.cord.
II
IBIFitGT
I
I
I
I
I
I
L________________________J ____________ ~___J L ___________________________ .L ______l ______l ___-'
Re'trl.eve Selected Recor"ls
736
Dl.agram -
CICS/OS/VS Program Logic:
b •
.2.10-01
Description
LICENSED MATERIAL -
I~~~~
__________________
pr~~~~
-------------------------- ----,
___________________ _
[:1._-"
•••••
j
1 ell
1
1
1
>
--,/
El---->
[",,~:J
F'-GE
output
TYPE=WTBETBiU
ICA
PROPERTY OF IBM
I
DFHEIf:
I
I
I
rn_O-_I] Release all ctitetia block.
I
l::
/ j;;j'
I
II
>[------------------]
1
'r--,/ icp--------------
1.6.3
I
-----------------
~~~---J<
----> r.lA [;:Jc ____ > [_0-_2]
L!.:~~!~~
L:J :J
I
I
Release all key-save
blocks
I
!
I
I
[----------------J
<'~::~/> iCE--------------
I
I ,--',
1.6.3
- ... ------------------,----------->
@]
I
I
I
Release the iiei'3hted
Retrieval wOl:k area
I ,-"
~~~~~=J
r ca.
II
[----------------J
<, ~::~ / > -----------------.co
II
1.6.3
BlocK.
____ >f81 [Al----> ~~]
(@!§~~=J
I
>rs;i~h;;J
t.:::.J:.J
--,--> 0
l!:J:iter.1a
KS
alock
->C===:J j----> 0
II
----------------Releaae the VSAft work. area
and terminate the browsin-;
I
process
I
[;~;============J E~~~~~~~~~~~~~~~~]
I
I
1
1.6.3
----------------
I
I
I
I
[;;;;;;;;1
-----j:
_______________
Release
Stora~e
I
__________________________J
To
\I
caller
I
IL_____________________________J!
Areas
Dia';I1:-am - L2.11-0'
~~-:=-=---===~~~~~ ~;-===j:;::~r~::F~::1
E~
I i
BmBLE
~
I
I
BIr,BLE
1. lile CODtrol aSETL is issued.
!
BIl'iiBLA
I
I
I
I
I
I
I
I
I I
II
I
I
_________________________________J ____________________________________________ ~I______ J!
Release StoJ:age Areas
Section 2:
Dia-;rall - E.t.11-r.1
Method of Operation
737
LI:Cl!;NSED MATERI:AL -
PROPERTY OF I:BM
HG!
1 Oli
[ DL/i-i;t;rf;~;"]
6.3. C
------- -------
I
,----------,--------------1
~InLI1-ilo---~
tertace 6.3 .. '
--------
01/1
[iiL/i-i~t;;;:fa;;;;J
Ini t1al1Za~!~~ 2
------------
[iitii-si;;;iat;;al
Routine
6.3 .. :1
--------------
la;~etface
738
Dia:lra. - 15.3.0-('11
CI:CS/OS/VS Program Logic:
Description
~TERIAL
LICENSED
Input
==-------1
---,1
~]
[~~~~:J
---l-----------) @n
......... _-...... -.. ) @]
§
.
~AG!
output
1 0'
I
F111 1n tbe TeA with the
par ••• t . . . of the CALL
PROPERTY OF IBM
----------------------------,
proc~ss1n:J
---------------l;!!\li~"
-
I
~~~~~·
TCADLPDN~=~-
I-- -----
177)'>
ZZZZZZZZZZ!!1 II
1I
;;C;:iiiPCii--
...
. TCADLIO
ADalyze origin of the CALL
I
If a PCB scheduliu";J
feguest, ;10 to PCI!
scbeduler
I
I
I
I
If remote request,
I
I go
to remote request
handler
@]
[ IS~~CTn=r-I-1.-----------)
UK CT Tl:::J
for this ta='ik
[~ClD.~~:J ---------------) @~]
If a tar.ination request,
II
Get the address of the Ise
go to tetaination routine
I
!
1
.1
E!,'>
.I
I
6.3. '.3
@Z]
Go to IIC request
grocessin9 routine
!
[;;;;;;;;1
-----j!.
, I
•
6.3.1.2
I
I
I
I
_ _ _ ... _ _ _ _ _ _ ... _ ...... ___ ....... __ ;., _____ ... _J
DlI19r~,
.. (;.3.' ... 01
.
w:::----------------------~:~::--~:~:~ -;-~:~--l
~=----:~~~1 -------------------------------- ------ --------1------1
II
@]
1nalyze w.b.et.ber CALL or DlllPC
reguest, and also source
lau;Jua1e of calling prograa.
1
DLOUGIH
II
I
I
I
I
I
I
I
D1./1 .1ate:rface Co..OIl .AlllJuS
section 2:
-_-_1__._______
Method ot Operation
=
_-_-------J
Di.~rll . . .
E. 3.1 .. 01
739
LICENSED MATERIAL -
PROPERTY OF IBM
~DPut-----------lb'3" [L, 'r'::~-----.... ,
FAG!
Output
, OP
--------------------------------,,
I
)
,
- -.. I
t§l
I
...I
II
If J;'emote schedule, go to
remote scheduler
I
,-
~~~~~===l
In1 tialize the lSI! for
tbis transaction
I
IS8PCTTI
----------------ISBDLPSB
[fDiR~~:J---l-----_----> @~] Locate the PDIS entry for
\'
the PSS
~]
@]
If the PSB is
schEauled~
create an Extra copy if a
Read-only PSB. Otherwise,
va! t until scheduling is
terdnated
:::::::=~:~ )
I
I
'I,
Call £t/l to schedule the
PCB
(/ j;;j' >[Dt/I~-----------]
, ,--,/ ---------------
j
@i] BUild-:-:~:~:~:~~:~-~:g
[is;OLP~~:7=ll------''
iSiPctu-------,1 -~~§~-
record and write it to
CICS/.S syst •• log
I
177r>
????ZZZ??.Z!.t.'.1
I
I
I
I
[;;;;;;;;1
-----"1~
,
•
_ _____________________Jm~i~~.t1on
_____________
5chedu11D3' a PSB
Hotes
----------~-----------
/
lIeturn to
__---------___________J
D1a';rcea - 6.3.1.1w('ll
BoutiJle
Latel
Ref
-----------------------------------------------------------,
Notes
Poutine . late!
I
1;Et
I
------- ---- ----- -------------------------- ----- -...:------1------1
DPBtLPCP
I I
I I
DLfSBCB
DLPDLQOK
I
DUFCALL
®_
DPHJC TIPE' ,WRItE. DL/I. WUT)
I
I I
DUCBX
1
I
I
1
I
I
I I
I I
---___________~_______________~__~______!_____ J1
1
S.c.lle4uliJli a l'SB------------~-------
740
D18gr8_.- 6.!.1.' .. O'
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -
---------l'·'·' [~"
I.D!-ut
~_r_o_c_._ss_1n_;
________________ _
Output
PROPERTY OF IBM
PAGE
1 ell
---------------------------1
I
.n",
[~~~~=:J--I-J-----==~!) [~]
I
II
I
I
Locate the FeT entry for
I
I
I
this pce, test for
{:§~~~~~
---
I
J:------.,
~2]
~§~~~=-:.r----'I --
! -----ISBDLIO
::~:::!_
lSBDLFUN
database 'logically open'
I
----- ..
Build a parametet list
------------',
-----.,/
ftom the UHtC patSmEters
and stOI:e address of list
I
I
I
in re;Jister 1
@]
Issue CAll to ASftTDLI fat
1/0 function
<1:~1>[~~~~~~~=========]
======: 1Qii]
[PSlSEGI--I-J
EsiiiSER-1 ~-----'I
-------.
S
l'::
m~~:~:J
Have
:::::::::-:::~::-
user's wcrkat:ea
::-1-·
.::::>
the-_-_'-_-_-_-_-_-_-J:_-
I
I
-'
I
II
[~::::~~1
I
I
Retarn to
application
program
I
j
I
I
!
!
!I
I
1______________________________
.
-1
D1.I1. I/O
6eqllest
Notes
Dl~gralll
.Bo utine
La tel
[§
DLLOCFCT
@]
DLLBDILD
~~
DLICALL
[~~
DLlHOVE
Bef
... 6.::!.1.2-('1
.---------------------------------------------------------1
~:::~-----------------------I-:::~~:: ~~~:~--I-::~--I
I
I
I
I
I I
I
I
!
I
---------------------------------
DL/I 110 lie1:llles t
Section 2:
Method of Operation
I
I!
I
_____________________________________~ ____________________ .J
Cia9raa - 6.3.1.2-Cl
741
LICENSED MATERIAL -
PROPERTY OF IBM
'
:
::'
--------1
,
[::::~
CRIIll,,(:
PAGE
output
'''''----------l'·'·' :L,
/ r;;-]
[ ------'-""1
~~~~:'~-.I-Il_===:::~) ~~
\
r~¥.~~~:=-ll
---- -
~~~~~=
I,----lCATCDE
t~::~~:..
- .- - ",
------,/
C'Enl
, OF
1
----------------------------- .:-_-,,
.,,
,
i
)
Update free space pOinter ~Z!?!!!!?!}~fl/>
in the seD
I
IsslJe CALL to ASPI'IDLI to
I,
pUI::ge bufters
[-_0-_3]
:::::=:::'1=:::>
II
Build a 'termination' log
record and write it to the
eIeS/iS system log
Synchronize activity for
I,
I
the task
Link to OL/1 to free
resources
I,
I,,
/
I~~I' >[iiLi'i-------------]
, r-, / ------------------
[
pSB---J::-~-----.J\
!~~3'ths
------,/
[06']
--
~~~~~~s
-----------------
store termination data in
the P5B. Link to tLII to
:::::::=~::::>
free index work a rea
/
\
,--',
~~~V =================
,
and
I
I
---------
I
[-----------------]
;::---]
rm
addresses
I
Release the FOlS entry and
the 158
I
I
[;;;;;;;;1
~-----F I
j
L __________________
---------------------------
Terminate a pca
I,
V
Return to
application
program
I
_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ .1
Dia:rram -
6.~.1.3-01
------------------------------------------------- ---- ----1
Notes
lioutine
Latel
@]
DLCIONS
@]
DLTLOG
~
A DFHJp macro instruction is
issued unless the Ol/I TERM CALL
was issued D'j the s'jnc point
p to 3 r am.
Bef
.":'::--------------------- -~ I.::·:~-·I-:::-- !
I I
I
!
I
I
I
DLOGTBE
@]
DLTfBEE
DLUBISB
!
I,
L _______________________
~_----
______J
742
I, ,
- ______________________________________________________ J
Terlllina te a PCB
r::iagram -.
CICS/OS/VS Program Logic:
fI.~.1.3-CI
Description
LICENSED MATERIAL -- PROPERTY OF IBM
Page 1 of 1
...
INPUT
From6311
~
OUTPUT
PROCESS
DFHDLI:
B
Allocate RSB for this schedule
El
Invoke DFHIS TYPE=CONVERSE
~
Set address of PCB list. and return codes, in
RSB
DRXPCBAL
'DRXFCTR
TCADLPCB
)
theTCA
DRXDLTR
TCAFCTR
TCADLTR
•••• ••• ~!
~.
To Application
Program
Diagram - 6.3.1.4-01
Remote Scheduler
ROUTINE
NOTES
B
Th~ required PSB is on a remote CICS!VS
system. Allocate Remote Scheduling Block
(RSB) for duration of this schedule (i.e., until
LABEL
REFERENCE
NOTES
ROUTINE
LABEL
REFERENCE
REMPSB
TERM call)
El
Transmit scheduling request to remote system
REMP030
,
\
Diagram - 6.3.1.4-01
Remote Scheduler
Section 2:
Method of Operation
743
LICENSED MATERIAL -- PROPERTY OF IBM
Page I of 1
..
INPUT
From 6 31
IThv
OUTPUT
PROCESS
DFHDLI:
El
EJ
~
If TERM call, go to remote TERM processor
Invoke DFHIS TYPE'CONVERSE
RSB
IDRXFCTR
IDRXDLTR
~
I
I
TCAFCTR
I
TCADLTR
I
I
~
To Application
I
~
If not called by DFHSPP, invoke DFHSP
TVPE=USER
I
B
Free PCB related storage
RSB
IDRXCHAIN
v
I
~
I TCAZLUWT
>
Set return codes in TeA
B
Program
Free RSS
~
To Application
Program
Diagram - 6.3.1.5·01
Remote Request Handler
NOTES
8
ROUTINE
LABEL
Request is for data base residing on remote
CICSIVS system
REMDB
Transmit remote request to remote
CICS/VS system owning the data base
REMD060
~
If OFHDLI was not invoked by DFHSPP for
this TERM call, a sync point must be issued
REMDSOO
~
Local copy of PCBs, created by DFHXFP
during schedule response processing
REMDS10
[§J
REFERENCE
NOTES
LABEL
REFERENCE
Diagram - 6.3.1.5·01
Remote Request Handler
744
ROUTINE
CICS/OSjVS Program Logic:
Description
LICENSED MATERIAL pro_c_EssiD_9 _ _ _ _ _ _ _ _ __
'lnlolut
PROPERTY OF IBM
t=~G!
output
1 0'
---------------------------l
-------------~--lDPHSIP-[~
•• ..-II.1,0
I
;l
~~/)
[------:1---1
UHS::'!::
-----------)
I
DPBDLQ:
rn1]
~
I
Link to tL/I Batch
In1 tiali'ZatiOD routines
<''\ r-,/
i~' >[iiL/i-------------j
----------------------------
@~] Initialize the interface
addJ:esses
@]
[~~~~£:==l
-------.1
. PST
.
StoJ:e entry addresses of
simulated routines in the
SCD
I
"
~~1l22211mZ\/
1
I
I.
[DLii~~:J---
-----------)
~] Initialize tbe Exclusive
I
COD. trol gueue Blocks,
iosls aDd channel prcgraa
aJ:eas
@]
I
Link to DL/I Dlrect.oJ:!
Initialization routine
1
/ L..-I, [ ______________ ]
~::V ==============J
----------> \
[!~!_.==:J---l-----------) @!]
Initialize ISB's, pS'!'s,
and save area set. and
DUI para.eter blocks
I
[~~::!§=j
-----
177)'>
Zl!.ZZ!!I?Zl.!.I\/
DFHDLPDS
SlY! lPEl
SETS
[;;;;;;;;1
________J,.,/
-----J:
I
_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ .J
D18gra .... f:.:!.2-('1
Motes
@]
800tine
DISliB100 checks tAe para.steEs
passed DY DI&SIE and loads and
initializes p~,'aI!lS, BCPlBIIS,
LIRAB6S. aDd ICEUKS. DPSBBLDO
loads tAe PSBls and DttD's froll
the lCbLIB. ,ol::iD.l.BIIO initializes
tbe PSf.
~
@J
La tel
Bef
DPH&BlOO
-;:~::--------------------;::::--~:~:--1-~:;--1
------------------------ ----- -------1------1
I
I
DLIISCD
DlSI111DO initializes taa
psa and
I
I
DIB directories. If any errors
are cletected, a.D OS ABIIIO 715 is
issu.ed.
~ ... copy of Dl'SBHUC's pst is .ade
fOI: each ~tlu:eadl and its'
addtess 1.8 placed. in tbe
cOEEeSpondl.ng l.SB at
1
DLIIIr
~S8PST.
______________________.J
D.I./l intel:face Initialization
Section 2:
Method of Operation
I
_______________________________________________________ J
.
D1agra. - f:.3.2-C'
745
LICENSED MATERIAL -- PROPERTY OF IBM
l~~~~
__________________ _
ProcEssing
PAG!
Output.
----------------------------1
OL/l
1 OJ!
------------------------------,
T
\
[:1_-,
•••• , >
BE3ister ,
--, I
I
I
I
OP fiOLQ:
rn-]
[~~~;~~J ~-I------[;;~~: l~ ;~::~::·:o:t;;o w;~:rations
[;;;;,'>
----1 1
O-L/-l, I
f(e~ister
2
I~IT:~fJ
------
I
_______ .. ____ ..
.
--
>
@~]
Simulate DL/! GET BUFPER
routine. Check for PSB or
Df!B buffEr reguest
cbeck for ·uffer Fool
a[i~~~~~J--I-l-----------> @~].
la<;_ enou;h
:=~:::~~
[------j------------"'
~::::~~_ ---------,'1
~~~~
[oij]
-
If sutficient sFaco is not
.
a.ailable, .ait until
another task frees space
~5]
--
Acquire the required
storage
/'_-"
:~~~~::::::r:~>
I
:::::::-_-)f~r:~>
I
I~I~>
I
I
I
1
1
:l
I
---------1
[~:~~:~:~-j
I
ISBPSECB
ZZZZ~Z22ZZ~~
1~7~~>
I
~I
!ZZZ!ZZZZU~
1
[-----------------)
II
<, ~::~/> :~:--------------GET"AIN
.
T. 2. T
----------------
I
I
[;;;;;;;;1
-I-----F/
[;;;;j '>
.
oill,1
Be~1ster
~
m~~~J
OtlI
---------------)
Simulate 01/1 FREE BOPFElI
routine. Check PSB or DIIB
buf fer l;:Eguest
I
V
!
:::::::=::r::::: >
I
I
[iiPii200;;---]
1
ABEND ADtx
l. ________
_
1______
I
-----------------_.1
Dia'3ralll - f:,3.3"C1
---------------------------------------------------------,
Notes
RoutiP6
Latel
-::::--------------------------- -:::~~:: L~:~:~--I-::~--I
Ref
lWAI!
[~
lGBlBUf
[§
DLGBUP
§]
[~]
~
II
I
I
!
I I
Be3ister 0 cOIlta~IlS tbe .address
of the SeD • .It sbort on storage
and re3ister 0 is ne;ative,
retutn to DJ../.I immediately. If
register 0 is positive, issue a
DFHKC l'rp.£.=WAIX macro
instruction.
I
I
I
I
OEHSC nPB=GUHAIH
IGEnUl
I
I
I
I
... - ... - - _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ ... _ _ _ _ _ _ _ ~.....- -_______ ... _ ... ___ _ ... .J
DL/~ Si~latedBOut:t;e----------------------------
746
CICS/OS/VS Program Logic;
Di8qra. -
~.3.3"C1
Description
LICENSED MATERIAL -
P~~L
lnllut
____________ _
------~=l
PAGE
2 0'
-----------------------------,
Output
.
I
I
@]
[ 'iddr;;sOfl--~-"---- ------)
.tqi:ter
PROPERTY OF IBM
J'J;ee the totfer storag'e
--1'
[~~~~~~==]
-------TSBPSECB
<~~) I~~~~~~~~=::;~~~
~~] If any tasks ate vai tin";J
for: stor8;16, post thEir
[;;~')
ECB's
D1Il,1
[uCim::J ---1- __________ > @]
Simulate DL/I 10Hing
function. It record is a
control record,
Al!~HC
CIeS/vs and send message
I
OPii3900---1
[P.rror1n1in
I
I
I
lim
datatase
--...--_.....
to Opstlt.or
I
I
"ri. te the log record to
the eIeS/VS system log
I
,
I
I
I
!
I
I
.,..,. __.__________________ .. __ ..... _ ... _JI
DL/I s1;;;'i'ate'dBoiitia-e-----
Diagr .. • 6.3.3-02
---------------------~-------------------------------,
Routine
Nateli
Latel
DLler
@]
TypES 50, 51, and. 52 .re valid.
DPSILOXO
Tae tQC:ord ;La pti.'tted yj,a a
DU~C
nUcUBUAL.
~] DfHJe neBcQBlolCA and Dr~Je
u·U-,_U:u.
FLPOl
DL/I. PARTIAL).
Ref
~~-------------------I~::: -~~:~--I-::~--I
I
I
I
I
!
I
I I
Ij
I
I
I
I
I
I
II
I I
- -..- - - - - - - _ : . _ - - - - - - - - - - - - - - - - - - - - - -...- - - - . , . . - - - .. - - - ....- ... .1
0189r88 .. E:.:3. ~-('2
Section
~:
Method of Operation
747
LICENSED MATERIAL -- PROPERTY OF IBM
l~~~
_ _ _ _ _ _ _ _ _ _ _ _ __
Po ,:~'------------l
oi/:1'/
['11]
PAGE
3 0';
----------------------c --------1
output
5~mulate Ol/l Send p!essa!le::=:::::~::::>
rou tine. Send message t
the master terminal using
Transient Data destination
-
CSI17
<~ ~~1~>[~~~~~;;==========1
!
[m==============]
----------------<~> [~~~;~~;;=========]
,rr
!
_________________
1.2.1 .J
II
1.1.3
[;;;;. \ >
DLlI,1
[~~]
_____________ 2~.::
Sillulate Dt/1 Termination
reg:uest for ftessagE
processin!l region
[;;;;', '>
:~~~~~~:::!J:~>
I
[mI~~;~~l
,I
l
II
OFH2006---1
ABEND
Aotx .J
....
_________
[;;;;, '>
DlIl'"'/ [~~]
,,r
S1.ulata Dt/1 request for -7'--------:1
creation or destruction of---------L:~)
i
a PSB or DME pool
I
I,,,
I
I!
,
-----------------
______________________ .. __ .. ____ .J
DLII Simulated Bou ti.n e
Diagralll - t-.3.3-C3
--------------------------------------.----------- --------1
Hotes
ED
DPHSC TrU=GETUIN
Routine
LatEl
Bef
DPSCL~BO
Notes
J .Routine
La tel
,
DPHID TyeE=pUl
~ This illp.lies a J.o;ic error in
I
I
I
I
I
DPHSC TrPE=PBEUAlN
Q~ DL/I cannot con tillue processing
the reyuest.
l ~e t
--------------------------------1------- -------1------1
I
I
I
I
I
I
I
IASE
rCBUT
I
I
I
I
I I
I I
the interface.
I'
I I
I, I,
I,
I,,
,i
I,,
ii
DL/I Si~d~tiD;------------------------
748
___________________-._____
I I I !
~~~=""'_-~-
CICS/OS/VS Program Logic:
_________________
Dia;rr811 -
~.
.J
3. 3-ln
Description
LICENSED MATERIAL -- PROPERTY OF IBM
Page 1 of 1
Data Interchange
6.4.0
,
Overview
6.4.1
,
Output
6.4.2
,
End Functions
6.4.3
Note Operation
6.4.4
,
Detach Interchange
6.4.5
Selection Operation
6.4.6
Data Interchange - Visual Index
section 2:
Method of operation
Diagram - 6.4.0-01
749
LICENSED MATERIAL -
PROPERTY OF IBM
TYPE.
RECEIVE
ATTACH
INPUT
Page 1 of 1
OUTPUT
'PROCESS
DIB
TCA
Ej
[Q!J
Obtain DIB If necessary,
@]
Make trace entry.
~
Copy TCA parameters to DIB.
~
If RECEIVE issue DFHTC TYPE=READ,WAIT to
obtain input in TIOA.
@]
Remove any FMHS in TIOA and update OIB.
~
Set TCA fields from data in the DIS.
J
-y
EJ
-
mw$?)
>
TIOA
I
I
TCA
TCADIRC
TCADIDNA
E]
TCADISEL
Set return code in the TCA.
.Diagram 6.4.1-01
Data Interchange - Input
NOTES
~
For CTYPE=ATTACH TIOA alreadv
ROUTINE
LABEL
REFERENCE
NOTES
ROUTINE
LABEL
REFERENCE
INPUTRTE
contains the data to process.
@D
INPUT·
FMH
~
INPRETNO
:I'
.Diagram 6.4.1-01
Data Interchange,-Input
750
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
Page 1 of 1
TYPE=
ADD
ERASE
REPLACE
SEND
INPUT
TCA
~
[E
-
OUTPUT
PROCESS
EI
Obtain DIB if necessary.
~
Make trace entry.
§]
Copy TeA parameters to OIB.
~
Select correct destination.
~
If not SEND ensure that function and blocksize
factor are the same as previous specification.
~
!f KEYADDR or RRNADDR specified. build and
output RECID FMH.
El
Output user data.
~
Set return code.
TCTTE
DIB
I-
USER
TIOA
I
:>
I
Jr=
E3
INTERNAL
TIOA
]
TCA
:>
0
Diagram 6.4.2-01
Data Interchange - Output
NOTES
~
ROUTINE
Selecting the correct destination involves
possibly suspending/resuming/ending the
LABEL
REFERENCE
NOTES
ROUTINE
REFERENCE
LABEL
DESTCHEK
current destination and beginning new
destination.
~
SAREOO10
~
SARERIDT
@]
DISENRTE
Diagram 6.4.2-01
Data Interchange - Output
Section 2:
Method of Operation
751
LICENSED MATERIAL -- PROPERTY OF IBM.
TYPE~UERY
END
ABORT
INPUT
pago
i ,of 1
OUTPUT
PROCESS
TeA
Obtain 0 iB if necessary.
~
[
Make trace entry.
~J
DIB
EJ
Copy TCA paramot." to DIB.
TIOA
Select correct destination.
TIOAWITH
FMHS
If QUERY. output a QUERY FMH.
Output an END FMH (or ABORT FMH for ABORTI.
~
Update OIB selection information.
o
TCA
======>
Set return code.
"Data Interchange - End Functions
NOTES
§]
Se06.4.6
ROUTINE
LABEL
FMHBQUER
~
DESELECT
752
NOTES
ROUTINE
REFEhENCE
LABEL
DESTCHEK
~
, D~ Intercha"g. -
REFERENCE
Diagram 6.4.3-01
End functions
Diagram 6.4.3-01
CICS/oS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
Page 1 of 1
TYPE=
NOTE
INPUT
OUTPUT
PROCESS
TCA
~
@----
• ~
TCTTE
[~
§]
A
Obtain DIS if neccesary.
Make trace entry.
DIB
g}--
@]
Copy TCA parameters to DIS.
§]
Select correct destination.
B
TIOA
~
Build and output NOTE FMH.
~
Issue OFHTC READ,WAIT to obtain reply.
@]
Format reply and save in D1B.
]
T
INTERNAL
TIOAWITH
FMH
TCA
TCADIRC
GiJ
Set return code and TCA pointer to reply.
TCADIRNA
Diagram 6.4.4-01
Data Interchange - Note Operation
NOTES
~
See 6.4.6
ROUTINE
LABEL
REFERENCE
ROUTINE
LABEL
REFERENCE
DESTCHEK
~
FMHBNOTE
~
FMHBN010
@]
FMHINP40
Diagram 6.4.4-01
Data Interchange - Note Operation
Section 2:
NOTES
Method of Operation
153
LICENSED MATERIAL -
PROPERTY OF IB>l
Page 1 of 1
TYPE-
INPUT
DETACH
OUtPUT
PROCESS
TCTTE
TCTTE
[EJ
[ill
Test if any active or suspended destination if so, set
aborted flags and exit.
[Ei]
If aborted flags set then exit.
I
§]
Free the DIB and set TCTEDIBA to zero.
ITCTEDIBA
.1
~
~
~
DIB
I
~
wflhd>
v
DIB
I
I
D,agram 6.4.5-01
Data Interchange - Detach Operation
NoTes
ROUTINE
LABEL
REFERENCE
NOTES
ROUTINE
LABEL
REFERENCE
DETACH
~
..
Diagram 6.4.5-01
Data Interchange - Detach Operation
754
CICS/OS/VS Program LOgic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
Page 1 of1
INPUT
SELECTION
OUTPUT
PROCESS
DlB
OIAOIONA
[QiJ
Test if selection, destination and volume are as
previously specified if so exit.
~
Test if new selection is for the console, issue suspend
for any active destination.
@]
If not for console issue resume for any suspended
OIBOIBNA
OIBDISEL
OIBONAM
OIBVNAM
DIBMSB
destination and retry destination tests in 01.
El
.
]
]
If new destination not the same as current, end
-V
TIOAWITH
B
J-.
DIBOBAM
current destination and begin new destination.
OIBVNAM
OIBMSB
Oiagram 6.4.6-01
Data Interchange - Selection Operation
NOTES
ROUTINE
LABEL
~
DESTCHEK
[QiI
DESTENO
[§]
DESTC100
~
DESTC300
REFERENCE
ROUTINE
LABEL
REFERENCE
Diagram 6.4.6-01
Data Interchange - Selection Oileration
Section 2:
NOTES
Method of Operation
755
LICENSED MATERIAL -
PROPERTY OF IBM
Page 1 of 1
EIP
6.5.0
~
Initialization Routine
6.5.1
,~
Acquire Dynamic
Storage
6.5.2
,Ir
Call Entry
6.5.3
~
Exceptional Condition
Handler
6.5.4
,~
Local/Remote
Resource IISC)
EIP - Visual Index
756
6.5.5
Diagram -
CICS/OS/VS Program Logic:
6.5.0-01
Description
LICENSED MATERIAL -- PROPERTY OF IBM
PROCESS
INPUT
OUTPUT
FROM , .3.4-02
ITb
EhLL
DFHEIPIN,
J-.
~
Initialize the address slots for communication
between the PUI, COBOL, or Assembler application
program, the stub and the interface.
~
~
~
[8
f%
~
~
~
~
v
DFHEPI
I
DFHAICBA
I
~
DFHECI
I
DFHAICBA
I
Assembler
DFHEAI
I
DFHAICBA
I
~
r::
r::
~
r::
~
tI,
DFHEIP
I
EICSAA
Diagram - 6.5.1-01
EIP Initialization routine
ROUTINE
NOTES
~
I
PCP passes register 1 to DFHEIPIN which
LABEL
REFERENCE
NOTES
ROUTINE
LABEL
REFERENCE
OF HElP IN
points at an argument list that contains the
address of the slot in the stub which is to
contain the address of the call entry point to
EIP-DFHEIPCN.
Diagram - 6.5.1-01 .
EIP Initialization routine
Section 2:
Method of Operation
757
LICENSED MATERIAL -
PROPERTY OF lIM
Page 2 of 3
PROCESS
INPUT
OUTPUT
TCA
,'I
TCAKCTTA
, TCAFCI
CSA
1CSATODP
CSAJYDP
PCT
IPCTTI
TCTTE
I
TCTTETI
TCTTECAD
TCTTEAID
EIS
IJr-.'
I:]
§]
If EIS does not exist then GETMAIN and inltia1ize.
~
EISARG1
EISARG2
EISARG1P
EISARG2P
EISTITLE
EIBTIME
EIBDATE
EIBTRNID
EIBTASKN
EIBTRMID
EIBCPDSN
EIBAID
EIBCALEN
IJ
}-
TCA
"
The address of EIS is saved in the system TCA.
1
ITCAEISA
into the argument list in EIS.
J
~
For Assembler, set EISASM in EISFLAGl and point
register 1 at the argument list built in EIS to be
passed to the application.
~ffff~
1
El
For pur set EISPLI in EISFLAGl and point
register 1 at the argument list built in EIS to be passed
to the application.
//&/ff4)
11 •••••••
TCTTE
ITCTTEEIA
~
> §]
Ilthere ison EXEC CICS RETURN TRANSID
COMMAREA specified, then merge the argument list
I
EISFLAG1
.. ,1. ...
I
EISFLAG1
Diagram - 6.5.1-()2
EIP Initialization routine
NOTES
~
1
ROUTINE
LABEL
REFERENCE
NOTES
ROUTINE
LABEL
REFERENCE
EIS will already exist if the
application program has been invoked
by an EXEC CICS LINK or XCTL.
(This EIS contains an argument list to
be passed to the applicationl.
If EIS did not already exist then the
argument list to be passed to the
application is built in the system part
of EIS.
EIS will also exist (but will not be
initialized) if the task has previously
been executed and has used the EXEC
interface. In this case KCP acquires
EIS, alon~ with the TeA, and EIP just
initializE'S it.
§]
The argument list was built in CLASS =
SHARED storage by the EXEC CICS
RETURN function.
It is addressed by TCTTEEIA.
~
EISASM will be used in EIP where there
are dependencies on Assembler.
~
EISPLI will be used in EIP when there
are dependencies on PL/I (eg. length
of labels).
Diagram - 6.S.1..Q2
EIP Initialization routiM
758
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
Page 3 of 3
OUTPUT
PROCESS
INPUT
For COBOL set EISCOBOL in EISFLAGl and
set up Bll cells
===:::::::>
EISFLAGI
1 •• 1 . . . . . 1
Invoke application.
~,--_ _a_p_PI_ica_t_io_n_~---,
Return to PCP.
to 1. 3. 4· o:?
Diagram - 6.5.1-03
EIP Initialization routine
ROUTINE
NOTES
~
LABEL
REFERENCE
NOTES
ROUTINE
LABEL
REFERENCE
The BLl cells are
1. EIB
2. DFHCOMMAREA
3. points to itself
4. CSA
§]
The application is invoked from EIP
and it will return to this point in EIP
~
point of invocation of EIP but control
EIP normally returns to PCP after the
also reaches this point in EIP for an
EXEC CICS XCTL in a PLII program.
In this case control passes to the XCTL
code In PCP.
Diagram - 6.5.1.03
EIP Initialization routine
Section' 2:
Method of Operation
759
LICENSED MATERIAL -- PROPERTY OF IBM
Page 1 of 1
INPUT
From Assembler
OUTPUT
PROCESS
application
I
ITk>
DFHEIPAN:
Register 1
Points to a
halfWO~d length
in application
program
I
~
Check that length of storage requested is not less
than the minimum required for Assembler
command-level programs. If register 1 contains 0
go straight to step ~
@J
GETMAIN CLASS: USER storage of the requested
length.
§]
Add storage area to chain of dynamic storage areas
pointed to by TCAPCDSA.
Register 1
~
Return address of acquired storage to application.
§]
Free dynamic storage
~
Return to application
W~ffi
Points.o
1
acquired storage
'I
area Hirst
usable byte)
9
To Assembler
application
Djagram - 6.5.2-01
Acquire Dynamic Storage for Command· Level Assembler Programs
NOTES
~
ROUTINE
The prolog code in an Assembler
program which uses the command·level·
interface is gel1erated by the DFHEIENT
macro. This prolog invokes DFHEIPAN
to obtain the dynamic storage that the
application will require, with register 1
pointing at the length of storage
required.
LABEL
REFERENCE
NOTES
ROUTINE
LABEL
REFERENCE
DFHEIPAN
The epilog code in an Assembler
program which uses the command-level·
interface is generated by the
DFHEIRET macro. This epilog code
invokes DFHEIPAN to free the dynamic
storage. In 'this case register 1 contains O.
Diagram - 6.5.2-01
Acqu ire Dynamic Storage for Command- Level Assembler Programs
760
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -
PROPERTY OF IBM
Page 1 of 1
OUTPUT
PROCESS
FROM
APPLICATION·
PROGRAM
INPUT
DFHEIP
! EICSAA
I
CSA
!CSACDTA
!
TCA
I TCACDTA
I
EIA
Gb
3L
DFHEIPCN:
~
Save application program registers in application·s
I
Trace Table
Invoke the routine for this function.
Wp~/?)
CICS control blocks
If abnormal response go to exceptional condition
handler.
~to
@]
Restore the CICS program mask.
@]
EID
IEIDGROUP
W$#4)
Lose! EIP registers for CSA, TeA, EIS,
~
~
I
I
save area
v
§]
>~
IEIAARGO
EIAARGI
EIAARG2
EIAARG3
applications
r
save area.
register
Set up registers that point permanently at the first
few arguments.
If trae"e enabled, make trace entry.
I
Invoke EDF.
Invoke ELR.
I
• ~
Use the encoded fun~tion grou'p as an index down the
table of function group offsets to find the table of
function offsets.
I
• §]
Use the encoded function as an index down the table
of function offsets to find the routine for this function.
I
>~
EID
IEIDFUNC
lElA
EID
I
appi ications
register
save area
I
~
> @]
If trace enabled, make trace entry, Restore application
program registers and program mask and return to
application.
EIP Can Entry
I~
Diagram - 6.5.3·01
to application program
·NOTES
~
6.5.4
ROUTINE
LABEL
NOTES
REFERENCE
~
For COBOL they are saved In the TGT,
for PLII they are saved in the DSA, and
for Assembler they are saved in DFHEISTG.
The CSA address was stored on DFHEIP
by DFHEIPIN
§J
The application program may run with
a different program mask from CICS',
§]
To minimise code size and maximise
performance"four registers are reserved
to point at the first four arguments
(the-other arguments are addressed
indirectly via the argument list which is
pointed at by register 1)
LABEL
REFERENCE
There are separate load modules for each
of the separate function groups of EIP,
e.g., DFHETC, DFHEFC, DFHETD, etc.
The individual function code may invoke
routines in the nucleus of EIP, DFHEIP.
In each case this is the register save area
that register 13 points to when EIP is
invoked.
[EJ
ROUTINE
The routine for each function takes the
arguments passed by a call statement and
stores information in EIS andlor CfCS
control blocks. This may be done in
individual function code or in routines
'Nhich are common across a function
group. If required, the appropriate
CICS/VS module is then involved,
6.5.1
(eg. PL/I)
~
The EIP trace entry records the application
program's register 14, the function group
and function encoding, the application
program's save area address.
~
EDF.
§]
If ISC = YES was specified at CICS
initialization, invoke DFHELff:.
~
e.g. TC, FC, TO etc.
~
Examples of functions are READ, WRITE,
READNEXT within the FC function group.
@]
@]
6.5.4
Abnormal responses are handled separately,
The EIP trace entry for normal return,
records the application program's
register 14, the function group and
function encoding"and the response code.
DFHEIPCX
EICC40
If debi..g mode is on in EIS, then invoke
Function groups are by CICS component,
6.5.5
EICC60
Diagram - 6.5.3'()1
EIP can Entry
Section 2:
Method of Operation
761
LICENSED MATERIAL -- PROPERTY OF IBM
Page 1 of 1
From Page 65
..2
INPUT
ITb;
EIS
EICCEROO:
EIS
~
Save response in EIS
§]
Invoke EOF.'
• ~
I EISGROUP I
OUTPUT
PROCESS
~~
EIBRCODE
Find table of response codes for this function group
EIP
I
EIERFG
I
EIS
I
EISERTAB
• ~
I
If the response matches one of the. response codes in
this table, then pick up the offset within the label
table from the response code table. If the response
does not match. then use.the offset of the ERROR
response within the label table.
ElL
I
I
EILLABI
ElL
EILLABI
EILLAB2
I
ap~lications
regIster save
area
I
• ~
::r
Examine the label table at this offset to see if an EXEC
cics HANDLE CONDITION is active-for this
exceptional condition.
~
If a HANDLE CONDITION is not active then take the
system action.
~
If a HANDLE CONDITION is active return to the
application program at the label specified bV,the
EXEC CICS HANDLE CONDITION
I~
to applicatio
program
Diagram - 6.5.4-01
EIP Exceptional Condition Handler
NOTES
~
The response is saved in the user area of
EIS IEIB) for the application to access.
§]
EDF.
§]
ROUTINE
LABEL
REFER~NCE
NOTES
ROUTINE
LABEL
REFERENCE
EICCEROO
If debug mode is on in EIS, then invoke
The response codes from CICS/vS are
only unique within a CICS/vS component,.
so the function group is used to find the
convert table of response codes for this
component.
EICCER20
EICCER30
~
EICCER60
~
~
For some exceptional conditions the
system action is to return normally
to the applications (via DFHEIPCX on
6.6.2-01). For most exceptional
conditions the system action Is to abend
with an ABEND code that tJeg;ns AEI
or AEY. The last character of the abend
code Indicates the exceptional condition.
~
The EIP trace entry for abnormal return,
records the address of the exceptional
condition label, the function group and
function encoding, the response code.
For COBOL, return is to a GO TO
DEPENDING ON EIBGOI statement
with EIBGOI set up bV EIP.
EICCER70
EICCND50
For PLll, return uses the PLI1
abnormal GOTO code.
Diagram - 6.5.401
EIP Exceptional Condition Handler
762
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
Page 1 of 1
PROCESS
INPUT
OUTPUT
From DFHEIP
OFHELR:
~.
If the function group is nat Fe, TO. T5, Ie, then
return to EIP.
For all Fe, TO, TS functions and for
~TO
~OFHEIP
Ie START and
CANCEL, determine if the resource is local
Of
remote.
If local, return to E IP.
~To
t.:..:..:..;/ OF HElP
If remote, find XFASTG or GETMAIN a new one.
Issue DFHIS TYPE::: CONVERSE.
Return to EIP to branch straight to exception
handler.
To OFHEIP
Diagram - 6.5.5-01
Local/Remote Resource Determination (Intersystem Communication)
NOtES
§J
ROUTINE
LABEL
REFERENCE
ROUTINE
LABEL
REFERENCE
A resource is remote if the SYSID
option is specified or if the entry in the
associated CICS table indicates the
resource to be remote. The CICS tables
involved are:
FeTfor Fe
OCT for TO
TST for TS
peT for Ie
§]
EJ
LRCCOO
XFR5TG is used to pass information
through ISP to XFP.
§]
LRCCBQ
local/Remote Resource Determination (Intersystem Communication I
Section 2:
Method of Operation
Olagram - 6.6.5-01
763
LICENSED MATERIAL -
PROPERTY OF IBM
Page 1 of 1
Intersystem
Communication
IISCI
6.6.0
I
Intersystem
Communication
Program
(DFHISPI U.l
I
Intersystem
Communication
~
I
T
ISCoALLOCATE,
POINT, FREE
(DFHZISPI
I
Transformation
Program
(DFHXFP)
I
I
6.6.3
'6.6.2
ALLOCATE
(DFHZISPI
Mirror
Transaction
(DFHMIRI
6.6.4
I
Transformation 1
(DFHXFP)
Converse
(DFHISP) 6.6.1.1
'6.6.2.1
1
POINT
(DFHZISPI
'6.6.2.2
I
FREE
(DFHZISPI
,6.6.2.3
'6.6.3.1
I
Transformation 2
(DFHXFPI
6.6.3.2
I
Transformation 3
(DFHXFPI
6.6.3.3
I
Transformation 4
(DFHXFPI
,6.6.3.4
Intenystem Communication - Visual Index .
764
Diagram
~
6.6.Q.Ol
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
From
Page 1 of I
DFHELR
INPUT
OUTPUT
PROCESS
Gk)
DFHISP:
RI
I Register 1
I
I
LFDSDFDR
LFDSDFRI
•
Establish addressability to the ISC parameter list
I
• [§J
DFHISCRQ
IISCRQTCT
El
I
@)
The ISC request byte determines the service routine
to be used
Check if TeTTE was supplied
8§J
a. Yes
b. No
§C0 §J
<::=0
8~
IADDTAB
I
lservice Routines-'
-
~ §J
~
Return error codes to user
~
Return to caller
~
IISCRQRC
To Caller
Diagram - 6.6.1·01
Intersystem Communication Program (OFHISPI
NOTES
ROUTINE
~
The address of the ISC parameter list
is in the register save area of the LI FO
stack
§]
The 1SC request byte is used as an index
to an address list of service routines
I~tersystem Communication
LABEL
REFERENCE
Program (OFHISP)
Section 2:
Method of Operation
NOTES
ROUTINE
LABEL
REFERENCE
Diagram - B.B.1.(11
765
LICENSED MATERIAL· -
PROPERTY OF IBM
.Pag.1 of 2
From
INPUT
DFHELR
~
R1
IRegister 1
I LFDSOFR1
IISCRQXFR
I XFRSYSNM
PROCESS
OUTPUT
DFHISP:
• @D
Establish addressabllity to LIFO storage
I
• @]
Establish addressabllitv to ISC parameter list
I
• §]
Establish addressability to transformer parameter list
I
I
•
El
[§J
~
~
Obtain remote system name
Does a link exist to the required remote system
a. Yes
E)§J
b. No
~
Can 8 link be allocated to remote system
8@J
a. Yes
~ §J
~
>
~ij'$"ffi
b. No - return error code to user and return to
caller
8
Call Transformer 1 to format user's request for
shipping
IXFRCODE1
ToCailer
If errc~rs detected by Transformer " either
B.
8eJ
Go to Transformer 4, or
b. Issue an ABEND
Intersystem Communication - Converse (DFHISPI
NOTES
[§J
~
§J
Diagram - 6.6.1.1·01
ROUTINE
LABEL
REFERENCE
NOTES
ROUTINE
LABEL
REFERENCE
DFHTC TYPE. POINT,
REQUID • CSMI,
TRMIDNT = YES
·DFHTC TYPE· ALLOCATE,
.REQUID = CSMI, .
TRMIDNT = YES
DFHIS TYPE = XFORM,
XFNUM-1,
XFSTG • DFHXFRDS
DFHXFRDS is the start of the
transformer. 'parameter list
DI.gram - 6.8.1.1-01
Intersystem Communication - Converse (DFHISP)
766
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
Page 2 of 2
PROCESSO
,_U_T_P_U_T________________--,
INPUT
~
~ ~
@]
Converse with the remote system
Call Transformer 4 to format the reply from the
remote system into user storage
>I
!/0Wfl0
XFRATIOA
Check if link to remote system is to be released
c:0@J
a. Yes
E)@]
b. No
@J
Free the link
@]
Return error code to user and return to caller
~$~
IXFRCOOES
~
To Caller
Diagram - 6.6.1.1-02
Intersystem Communication - Converse (DFHISPI
NOTES
ROUTINE
[§J
DFHTC TYPE· (WRITE, WAIT, READ),
TERM· YES,
FMH· YES
~
DFHIS TYPE· XFORM,
XFNUM·4,
XFSTG· DFHXFRDS
DFHXFRDS is the start of the transformer parameter list
@]
DFHTC TYPE = FREE,
TERM ·YES
@]
DFHLFM TYPE· RETURN,
PLlST· LFMPLZ
LABEL
REFERENCE
NOTES
ROUTINE
LABEL
REFERENCE
LFMPLZ is LIFO parameter list
Intersystem Communication - Converse (OFt!ISP)
Section 2:
Method of Operation
. Diagram - 6.8,1,1.02
767
LICENSED MATERIAL -- PROPERTY OF IBM
From OFHISP or
Page 1 of· 1
DFHSPP
INPUT
··....
ITh:v
PROCESS
OUTPUT
DFHZISP:
Reserve LIFO storage
I
I
TCATPAPR
CSATCTBA
I
I
ITCATPAPR
Initialize return code
I
Establish addressability of TCT prefhc
I
Analvze request
8
8
8
•. ALLOCATE
b. POINT
c. FREE
·...
6•6.2•2
6.6.2.3
c::::::==> I
TCATPAPR
d. Invalid request
8.8.2.1
8.6.2.2
6.6.2.3
6.6.2.1
Set error code for user to act upon
Return to user
I....
·U
To User
Diagram - 6.6.2-01
ISC - ALLOCATE. POINT, FREE IDFHZISPJ
NOTES
~
ROUTINE
LABEL
REFERENCE
NOTES
ROUTINE
LABEL
REFERENCE
DFHLFM TYPE· RETURN,
PLiST • TCZISLFM
Diagram - 6.8.2'()1
ISC - ALLOCATE, POINT, FREE (DFHZISPJ
768
CICS/OS/VS Program Logic:
Description
LICENSED
MATERI~
-
PROPERTY OF IBM
Page 1 of 4
PROCESS
From DFHISP
INPUT
ill¢
I
TCATPTA
TCATPREQ
I
TCATPTA
I
I
OUTPUT
DFHZISP:
I
:> G
Save input parameters
I
>
I
:>
Locate a TeTTE that will satisfy the request.
If no TenE exists
I
>
I
>
I
§]
~6.6.2
I
~
Save located TeTTE address
8
Determine the type of TeTTE located
I
I
I
•
•
I
I
• ~
I
•
TCTTETT
TCTlVTAM
TCTTECA
I
TCATPTA
TCTTEAR
IRegister 10
TCZISPTA
~~
a. Intersystem table
b. VTAM conversation
Does executing task already own this session'?
~S.S.2
a. Yes
b. No
I
TCTTETT
El
h. TCTTE valid for VTAM
8~
a. Yes
8
b. No
I
TCTTEIST
I
I
I
I
TCTTEAR
I
Register 10
:> @]
§L0
:>
~
S.6. 2
TCTTEAR
Point to intersystem table for requested system
I
I Register 10
Save 1ST address
I
I
TCZISPSE
Diagram - 6.6.2.1-01
ALLOCATE {DFHZISPI
NOTES
@]
ROUTINE
LABEL
REFERENCE
NOTES
ROUTINE
LABEL
REFERENCE
DFHTC CTYPE = LOCATE,
TERM = ID
The remote system identification is in
TCATPTA
Diagram - 6.6.2.1.01
ALLOCATE {DFHZISPI
Section 2:
Method of Operation
769
LICENSED MATERIAL -
PROPERTY OF IBM
Page 2 of 4
PROCESS
INPUT
I
TcnETS
I
• ~
OUTPUT
Is session out of service
a. Yes
b. No
I
TCSESUS
I
• G
Is there already a request waiting for this session
a. Yes
b. No
I
TCTTETT
I
• G
User may have requested a specific session or any
session to give access to the remote system
a. Any session to the system was requested
h. A specific session was requested
@]
Check the status of the bracket
a. TerrE is available
b. TCTTE not allocated so request must be queued
c. A TCTTE cannot be allocated
Diagram - 6.6.2.1-02
ALLOCATE IDFHZISPI
NOTES
@]
ROUTINE
LABEL
REFERENCE
NOTES
ROUTINE
LABEL
REFERENCE
DFHTCPCM TYPE· B RACHECK
The TCTTE address is in TCATPTA
IDiagram - 6.6.2.1-02
ALLOCATE IDFHZISPI
770
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
Page 3 of 4
OUTPUT
PROCESS
INPUT
I
~
• @]
I
TCTTECA
Check if TerTE is currently in use
:> 0
~
80
The chain ofTeTTE's available for the remote system
to be accessed is searched for one that is available.
TCTTECA
a. TeTTE available and allocated for immediate
TCTESLNK
b, TeTTE not available, therefore request must be
queued.
~
~
Form the logical connection between the allocated
TeTTE and the TCA
I
>~
Initialize fields in TeTTE before returning to user
use.
~
TCATCUCN
TCTTEAR
I
Register 10
:>
TCTTEUCN
TCTTECA
TCATCUCN
TCACBAR
Register 12
TCTETRND
I
TCATPREO
I TCATCPC
I
TCTEAIOF
TCTEJID
PCT
TCTEIFHA
PCTMIOAJ
TCTENEPC
PCTMSJID
@]
E¢
Return to user
TCATPTA
To User
Diagram - 6.6.2.1·03
ALLOCATE (DFHZISP)
ROUTINE
NOTES
0
LABEL
REFERENCE
NOTES
ROUTINE
LABEL
REFERENCE
DFHTCPCM TYPE· BRACHECK
The TeTTE address is in TCATPTA
Diagram - 6.6.2.1-03
ALLOCATE (DFHZISP)
Section 2:
Method of Operation
771
LICENSED MATERIAL -- PROPERTY OF IBM
Page 4 of 4
PROCESS
INPUT
18
..
OUTPUT
I
,Get storage to create an Automatic Initiation
TCASCSA
Oe5Criplor
TCASCSA
AIDBBAR
AIDBBAR
Establish addressability of AID and create fields
I
I
Register 4
Register 4
AIDTRNID
TCZISPRO
AIDTRMIO
TCZISPTN
AIDTCTA
TCZISPSE
AIDTYPE
TCAKCFA
The AID is placed on the existing AID chain and the
task suspended until a TeTTE becomes available.
The task is then resumed
Test if a TeTTe was available
Q[3
a. Yes
8
b,' No
6.6 .2
Diagram - 6.6.2.1·04
ALLOCATE (DFHZISPJ
NOTES
~
DFHSC TYPE· GETMAIN.
CLASS' AID.
INITlMG • 00,
NUMBYTE· AIOXTAD
~
DFHKC TYPE' SCHEDULE,
CLASS· IS,
TRMIDNT· YES
ROUTINE
LABEL
REFERENCE
NOTES
LABEL
REFERENCE
Diagram - 6.6.2.1-«14
ALLOCATE (DFHZISPJ
772
ROUTINE
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
Pagol of 1
.
INPUT
~
... .
TCASYAA
I
OUTPUT
PROCESS
From OFHISP
I\,.
V
OFHZISP:
rQ11
~
Search chain of existing sessions to find a TCTTe that
will satisfy the user's request to access a remote
system.
>
I
TCATPAPR
ITCATPTA
I
I
TCATCUCN
TCATPREQ
a. A TCTTE was found for this conversation.
Return to user
TCATPTA
To User
~U.2
b. A renE was n01 found for this conversation.
Oiagro'n) -- 8.8.2.2-01
POINT 'OFHZISPI
NOTES
ROUTINE
LABEL
REFERENCE
ROUTINE
LABEL
REFERENCE
Diagram - 8.6.2.2-01
POINT 'OFHZISPI
Section 2:
NOTES
Method of Operation
773
LICENSED MATERIAL -
PROPERTY OF IBM
Page 1 of 2
From DFHISP
INPUT
or DFHSPP
I
I
TCATPTA
1TCACBAR
LRegister 12
Ghv
I
~
OUTPUT
PROCESS
DFHZISP,
>
• El
Check that TeTTE to be FREEd is owned by
:>
I
this task
a. Yes
b, No
8
• ~
Access method is VTAM
8~
• §l
Check bracket status
a. Out of bracket
1 TCTTEAR
I Register 10
1
1
6 •6 •2
.1 TCTTECA
1 TCTIVTAM
11
.......
J
1
I
I
TCTESBRS
E)eJ
c::::)
b. End bracket has not flowed
I
I
TCTESRHI
1 TCTTESC
J
1 TCTESRI2
1
LTCALCDSA
1
•
I
El
>~
Check inbound request header.
If response received or not required
6.6.2
8lB
Acquire a TIOA if necessary and send positive
response
I
:>
TCASCSA
TCTTEDA
TlOATDL
TCTESR01
TCTESR02
TCTESR03
Diagram - 6.6.2.3-01
FREE {DFHZISPI
ROUTINE
NOTES
~
LABEL
REFERENCE
NOTES
ROUTINE
LABEL
REFERENCE
If the task does not have a TIOA then
one must be acquired:
=
=
DFHSC TYPE GETMAIN,
CLASS TERMINAL,
NUMBYTE 12
=
with zero data length so that a positive
response can be sent:
=
DFHIS TYPE lOR,
PLiST = ZISCRQ,
REQUEST WRITEL,
TERM TCTTEAR
=
=
IDiagram - 6.6.2.3-01
FREE {DFHZISPI
774
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
~age
2 of 2
OUTPUT
PROCESS
INPUT
c=:===>
Reset bracket request header. Abort and sync
point status
TCTESBRS
TCTESRHI
TCTESRHO
TCTESABT
TCTESPS
!TCATCUCN
r
TCTTEUCN
I
TCATPTA
II
P
=====>
I
~
c=:===>
Remove TeTTE from the TCA·TeTTE chain
TCATCUCN
TCTTECA
I
If the access method is not VTAM. all terminal
storage associated with the FREEd TeTTE is
released and return made to the user
I
TCTTEUCN
I
EV
To User
For VT AM storage is also released but the method
differs from that for other access methods. Return is
then made to the user
.
E¢
To User
Diagram - 6.S.2.3.Q2
FREE IOFHZISPI
ROUTINE
NOTES
~
OFHSC TYPE' FREEMAIN,
CLASS· TERMINAL,
RELEASE' ALL,
TERM· YES
~
OF HTC CTYPE • DETACH,
TERM· YES
LABEL
REFERENCE
ROUTINE
LABEL
REFERENCE
Diagram - 6.6.2.3.Q2
FREE IOFHZISPI
Section 2:
NOTES
Method of Operation
775
LICENSED MATERIAL -- PROPERTY OF IBM
From DFHISP
or DFHMIR
INPUT
Page 1 of 1
PROCESS
~
OUTPUT
OFHXFP;
Transformation 1 - transform requested command
and parameter list into a form suitable for trans·
mission to remote system
TranSformation 1
6.6.3.1
Transformation2 - transform received request into a
form suitable for execution
8
G
Transformation 2
6.6.3.2
Transformation 3 - transform the command response
into a suitable form for transmission of the reply.
Transformation 3
6.6.3.3
[0
Transformation 4 - transform reply into a form
expected by application program.
Transformation 4
6.6.3.4
Diagram - 6.6.3-01
Transformation Program (OFHXFP)
NOTES
ROUTINE
LABEL
REFERENCE
NOTES
ROUTINE
REFERENCE
Diagram - 6.6.3-01
Transformation Program (OFHXFP)
776
LABEL
CICS/OS/VS Program Logic:
Description
LICENSED
From
DFHISP
INPUT
Gk;
I
User parameterJ
list
XF control block
Ol/l control
T
~TERIAL
-
PROPERTi' OF IBM
Page 1 of 1
OUTPUT
PROCESS
DFHXFP:
E)'
Identify user request
§J
Select code appropriate to function and
[§J
Identify architecture model for transmission
~
Construct attach header and FMH in TlOA
~
~
Terminate processing
l2:'"~ffi
~
Return to caller
transformation
CICS control
c=J ~r I~~ Ic:===~>
blocks
;:.bl::oc=.:ks=-_ _•
XF control block
19
Toealler
Diagram - 6.6.3.1.01
Transformation 1 (OFHXFP)
NOTES
§]
ROUTINE
This is the paramater list passed from
the application program to the EXEC
interface program or to the 0 WI
LABEL
REFERENCE
NOTES
ROUTINE
LABEL
REFERENCE
INIT0100
interface program
~
~§]
CMNOOOO
Done by routines such as TSWQOl 00
~
CMN0100
Diagram -- 6.6.3.1-01
Tro_ation UDFHXFPI
. Section 2:
Method of Operation
777
LICENSED MATERIAL -
PROPERTY OF IBM
Page 1 of 1
PROCESS
INPUT
OUTPUT
OFHXFP:
§]
Remove attach headers and set pointers to FMH
§]
Select code appropriate to function and
@l
Construct argument list. expanding arguments as
~
Terminal processing
~
Return to caller
~fl
XF control block
I
transformation
necessary
XF control block
>
W,0/fl
~
To CaUer
Diagram -. 6.6.3.2-01
Transformation 2 (OFHXFPI
NOTES
[§]
This is the data as constructed during
transformation 1
LABEL
REFERENCE
NOTES
ROUTINE
LABEL
REFERENCE
INIT0200
CMNOOOO
§]
§]
ROUTINE
Done by routines such as TSWa0200
~
CMN0200
~iagram
Transformation 2 (OFHXFPI
778
CICS/OS/VS Program Logic:
- 6.6.3.2-111
Description
LICENSED MATERIAL -- PROPERTY OF IBM
From
.
INPUT
DFHMIR
.....
ITb
Argument list
as created
during
transformation
2
XF control
block
D
I
I
CI CS control
Dl/l control
block
blocks
or PST
PCB
UIB
PDLR
Page 1 of 1
OUTPUT
PROCESS
DFHXFP:
r
@]
I
[§]
Construct FMH in TlOA
80'/JA
[§]
Terminate processing
WW@
~
Return to caller
~
J
Select code appropriate to function and to
transformation
TIOA
To Caller
Diagram - 6.6.3.3-01
Transformation 3 tDFHXFP)
ROUTINE
NOTES
@]
This is the argument list as
constructed during,transformation 2
§]
Done by routines such as TSWQ0300
[§]
LABEL
REFERENCE
ROUTINE
LABEL
REFERENCE
INIT0300
CMNOOOO
CMNQ3DO
Diagram - 6.6.3.3.Ql
Transformation 3 (OFHXFP)
Section 2:
NOTES
Method of Operation
779
LICENSED MATERXAL -- PROPERTY OF IBM
From
OFHISP
INPUT
I
~ser parameter
hst.
I
~
Page 1 of 1
PROCESS
OUTPUT
User data areas
OFHXFP:
Set parameters to FMH
CICS control blocks
D
XF control
block
l
I
Select code appropriate to function and
I
Complete execution of request
transformation
TlOA
I
Transmitted
reply
Transformation 1 private control block
!arOLII
U
XF control block
~
I
:rerminal processing
Return to caller
To Caller
Olagram - 6.6.3.4.Ql
Transformation 4 (OFHXFPI
NOTES
This is the data
§
8$
constructed
ROUTINE
LABEL
REFERENCE
NOTES
ROUTINE
LABEL
REFERENCE
INIT0400
during transformation 3
~
~
CMNOOOO
Done by routines such as TSW00400
~
CMN0400
Diagram - 6.6.3.4.Ql
Transformation 4 (DFHXFP)
780
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -
PROPERTY OF IBM
Page 1 of 2
From
INPUT
ITCAFCI
IThv.
DFHMIR:
~
If facility is not a terminal. issue ABEND
@]
Establish
I
I
I
I
I
f5=0• @]
I
I
• ~
TCAFCAAA
TCTECOMI
TCTTEDA
OUTPUT
PROCESS
DFHISP
~
ad~ressability
to TeTTE
~TO
If a sync point request was made, return to caller
L.:....:...:...Caller
Pass TIOA address to Transformation 2
~
Call Transformation 2
~
If any errors on return from Transformation either
a. Go to Transformation 3, or
b. Issue an ABEND
I
XFRFLAGS
I
XFRPLIST
• @]
I
IlL...
roar0
~
Determine if user's request is:
a. Dl/l
b. EIP
~
Pass the user's parameter list and CALL OLiI
~
Check for any exceptional conditions for the request
a. Errors
b. No errors
~
El
Pass the user's parameter list and CALL EIP
Diagram - 6.6.4·01
Mirror Transaction (OFHMIR)
..
ROUTINE
NOTES
~
DFHPC TYpE = ABEND. ABCODE
=AISA
@]
The sync point will be issued by
DFHKCP
EJ
The TIOA contains data about the user's
request and was formatted by
Transformation 1 on the user side of the
intersystem link
~
DFHIS TYPE·XFORM.
XFNUM""2,
XFSTG = XF RSAA
XFRSAA is the start of the
transformation parameter list
~
This action depends on the severity of
the errors
LABEL
REFERENCE
NOTES
ROUTINE
LABEL
REFERENCE
b. DFHPC TYPE = ABEND.
ABCODE· AISB
[§
CALLDLI ASMTDLI MF=IE.ll
@]
EXEC CICS HANDLE CONDITION
ERROR
~
DFHEICAL
Diagram - 6.6.4-01
Mirror Transaction (DFHMIR)
Section 2:
Method of Operation
781
LICENSED MATERIAL -
PROPERTY OF IBM
Page 2 of 2
PROCESS
INPUT
IXFRFLAGS
TCADWLBA
TCAKCQC
I
~G
• @]
OUTPUT
WhY~
Call Transformation 3
I
TCTTEDA
Check if DFHMIR isto processs reply
@J
Send response to remote system
~
~
Send response to remote system and await a reply.
Process reply
8@J
@]
Return to caller
~
To Caller
Diagram - 6.6.4·02
Mirror Transaction (DFHMIRl
NOTES
G
DFHIS TYPE· XFORM,
XFNUM·3,
XFSTG XFRSAA
XF RSAA is the start of the transformation
parameter/ist
@]
DFHTC TYPE (WRITE, WAIT, LASTI,
FMH· YES
~
DFHTC TYPE
FMH
@.l
DFHLFM TYPE
ROUTINE
LABEL
REFERENCE
NOTES
LABEL
REFERENCE
=
=
=(WRITE, WAIT, READ),
=YES
=PCRETURN
Diagram - 6.6.4'()2
Mirror Transaction (OFHMIR)
782
ROUTINE
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
Page 1 of 1
OUTPUT
PROCESS
INPUT
From OFHACP,
;...:..:..:...:..::.:..;=------------------,
DFHEIP, or
OFHPCP
DFHEOFX:
TCA
LJEIS
j
Attach task CEDF
TWA
]
EISEOFOM
EISEOFRB
=====:>
Store information about user task in
attached task', TWA
j
of CEOF
task
j TWA
I
Suspend user task
PCT
~.
]
LJ
b
'Om
J
KCP
1.1.7
I
If Abend requested by CEDF task Abend user
~PCP
.
1.3,;
I
Return to caller
]
DITo OFHACP,
DFHEIP, or
OFHPCP
Diagram -6.7.1·01
EDF Task Switch Program
NOTES
~
ROUTINE
LABEL
REFERENCE
NOTES
ROUTINE
LABEL
REFERENCE
Do not attach another CeOF task if this
task is already under the control of a
CeOF task
[§J
Most information is copied directly, In
some instances the address of the data
is recorded. The CEDF task must take
care not to write back into the user
task's control blocks if the user task is
purged.
@]
The user task should be resumed by
CeDF but may be resumed by KCP
in a stall situation.
~
User may instruct CEOF to Abend
the user task
~
Caller may be EIP. PCP, or ACP
Diagram - 6.7.1.Ql
EDF Task Switch Program
Section 2:
Method of Operation
783
LICENSED MATERIAL -- PROPERTY OF IBM
Page 1 of 1
OUTPUT
PROCESS
INPUT
From DFHKCP
Gh)
TCTTE
I
TCTTEDA
1
PCT
EJ
D
II
TWA
.
DFHEDFP:
8
[§
@]
If invoked from a terminal by a PF key,
TCTTE
I
TCTTEEDF
set EDF on.
~
If invoked from a terminal by transaction,
10 CEOF, set EDF onloff for specified
terminal.
1
EIS
E:J
If attached by DFHEDFX for EDF on a single
terminal, or initiated by DFHEDFP. link to
9
DFHEDFD.
~
~
pCP
1311
If attached by DFHEDFX for EDF on a
different terminal, initiate DFHEOFP.
9 l.J
9
C0Q
'CP
EIS
EJ
~
If
TCTTE
necessary restore terminal to user task
and resume user task.
~
v.;
KCP
~
u.s 1
~
v
Aeturn to CICS
ITCTI'EEIA
TCTTECA
J
I
TCA (of user task)
I
TCAFCAAA
........
~.
ED F Control Program
Diagram - 6.7.2·01
To DFHKCP
NOTES
@l
@]
ROUTINE
LABEL
REFERENCE
NOTES
ROUTINE
LABEL
REFERENCE
The PF key always means that the
Execution ~iagnostic Facitity (EDF) is to
be switched on for the direct terminal.
Input message is analyzed and named
terminal located. If HLPI task is active
but not yet in EDF mode, switch EDF
bit in EIS; otherwise switch bit in TCTTE.
@TI
U'iing EDF on a separate terminal an
Ie PUT macro starts the CeDF task at the
display terminal. The associated data is
retrieved and stored in the TWA.
~
Using EDF on a separate terminal
DFHEDFP is first invoked to initiate a
task on the display terminal. The data
stored in the TWA is passed to the Initiated
task by using an IC PUT macro.
[§]
Using EDF on a single terminal the
terminal is removed from the CeOF task
and restored to the user.
@!]
The CEDF task terminates, the user task
having been allowed to continue.
Diagram - 6.7.2'()1
EOF Control Program
784
CICS/OS/VS Program Logic:
De$cription
LICENSED MATERIAL -- PROPERTY OF IBM
Page 1 of 1
OUTPUT
PROCESS
INPUT
From DFHEOFP
TWA
D
ITb•
DFHEDFD:
~
If necessary fe.member user display
[§J
Build EDF display
§]
If EXEC command to be executen load table
[§J
DFHEDFF and interpret parameter list
If EXEC command complete load table
OFHEDFR and interpret response
@]
Display map
~
Receive and process user input
~
If necessary restore user display
~
Remember EOF display
~
Refresh control information
G
Return
TWA
D
.~
To DFHEDFP
Diagram - 6.7.3·01
EDF Display Program
NOTES
~
ROUTINE
LABEL
NOTES
REFERENCE
If the EOF display terminal Is the same as
the user terminal and the user screen may
be different fram the last saved screen,
issue a read buffer and store a copy of the
buffer on a temporary storage queue
named X'FDOI'
TERMINAL -10
~
The user may modify data on the screen
and then press ENTER or a PF key.
The modified data is checked and then
used to overwrite user data. The action
defined for the PF key is then performed.
@D
If the user task is about to use the EDF
display terminal in some way, restore the
remembered user display.
[§]
Remember current EDF display on
temporary storage queue.
~
Refresh control information (for example,
number of current display) and store on
temporary storage for next invocation
of CEDF task.
II
[§J
There are five types-of disp.lay:
1.
Function display. for example
initialization, about to execute
command
2.
EIB display
3.
Storage display
4.
Stop conditions
5.
Remembered display
~
DFHEDFF is a table that relates particular
arguments to their keyword and specifies
the data type, length. etc.
[§]
DFHEDFR is a table that relates particular
responses to their exceptional condition.
~
The display can have one of three formats
defined by map.
~
ROUTINE
LABEL
REFERENCE
Return to DFHEDFP.
DFHEDFM
DFHEDFN
DFHEDFP
all of which reside in mapset
DFHEDFM
Diagram - 6.7.3·01
EDF Display Program
Section 2:
Method of Operation
785
LICENSED MATERIAL -- PROPERTY OF IBM
SECTION 3.
PROGRAM ORGANIZATION
CICS;oSjVS source-program listings are the key to the organization of
CICS/OS/VS. You get into the listings from the method of operation
~IPO) diagrams.
That is, you are aware of the general function being
performed, that leads you to a set of HIPO charts, the HIPO charts
identify specific modules involved in that function. Once you have
located the module or routine name that interests you in the diagrams,
you are ready to turn to a source-program listing to find the additional
information you ~equire.
CICS/OS/VS code is well commented. The processing steps within a
module are described throughout the code. Many of the modules interact
extensively with other CICS/OS/VS components during execution. Certain
control blocks (the format and content of which are detailed in Section
2 of CICS/OS/VS Program Logic: Data Areas) provide vital system
information.
Interface diagrams are given in this section for modules which
interact frequently with other modules or make frequent use of external
control blocks. The diagrams are supported by notes, keyed by numerical
indicators ~, 2, and so on) to specific portions of the diagrams.
For the most part, modules are documented in this section in
alphabetic order according to their symbolic names (DFBACP, and so on) •
However, certain modules are discussed in logical groupings, to aid you
in using this section. The logical groupings are: Asynchronous
Transaction Processing, Basic Mapping Support, and Intersystem
Communication.
Not all modules need be described by interface diagrams. Hence, you
will not find interface diagrams for all modules in this section. The
modules that are not described (as well as those that are) are listed in
the Directory (Section 1 of CICS/OS/VS Program Logic: Data Areas). As
noted above, your next point of reference should be the CICS/OS/VS
source code.
Section 3.
Program Organization
787
LICENSED MATERIAL -
PROPERTY OF IBM
ABNORMAL CONDITION PROGRAM (DFHACP)
The Abnormal Condition program ~FHACP) is a system service program used
to analyze abnormal conditions that occur within the system and inform
the terminal operator of,problems. Errors can be classified as
belonging in either of two broad categories:
•
Task abnormal conditions, which are detected by CICS/VS management
programs and are often due to an application program destroying
system control information. When this happens, the task is
terminated, the terminal operator is, if pOSSible, informed of the
error, and the error is logged at destination CSMT (computer system
master terminal.)
•
Operator errors, such as invalid transaction identifications,
security key violations, or failure of an operator to sign on the
system before attempting to communicate with CICS/VS. When this
happens, the terminal operator is notified, and the error is logged
at destination CSMT.
The notes below refer to Figure 3-1.
Notes:
1.
DFHACP is invoked by Task Control whenever an invalid transaction
code is detected.
2.
DFHACP is invoked by Program Control whenever a task is abnormally
terminated. The Sign-Qn Table (SNT) is loaded to obtain the
operator identification (if present) for error messages. DFHACP
returns to Program Control after the error message has been issued.
When a task is abnormally terminated because of a stall purge
condition, the stall purge count is increased by one and the
transaction identification (from the Program Control Table) is
included in the error message.
3.
DFHACP communicates with Storage Control to obtain and release
Terminal Input/Output Areas ~IOAS) and Transient Data output Areas
~DOAs) for writing error messages.
4.
If a user-written Program Error program (PEP) is provided, DFHACP
issues a DFHPC TYPE=LINK macro instruction to transfer control to
the program so that it can execute its function. All user-written
PEPs communicate their requests through the TCA. The CSA is used
to obtain the addresses of programs, and the Terminal Control Table
terminal entry and line entry ~CTTE and TCTLE) are used to
determine the status of the terminal and the line.
5.
If a transaction that is using Dynamic Transaction Backout abends,
DFHDBP will link to DFHACP to write messages to the user terminal
and to CSMT.
6.
Error messages are written to Transient Data destination,CSMT.
7.
DFHACP communicates with Dump Control to initiate
identified by the code AACA.
788
~
complete dump,
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
Task
Control
Program
Program
Dynamic
Control
Program
Backout
Program
Abnormal
Condition
Program
(DFHACP)
Storage
Control
Program
User-
Transient
Dump
Written
Program
Data
Control
Control
Program
Error
.Program
Program
OPLB
Figure 3-1.
Section 3.
Abnormal Condition Program Interfaces
Program Organization
789
LICENSED MATERIAL -- PROPERTY OF IBM
AcrIVITY KEYPOINT PROGRAM (DFHAKP)
The Activity Keypoint program ~FHAKP) is invoked by transaction CSKP
when activity keypointing is required. It invokes the Keypoint program
~FHKPP) to perform the keypointing.
When control is returned to
DFHAKP, an exit can be taken to a user-written routine ~FHUAKP) for
further processing. DFHAKP writes a time stamp to the master terminal
(CSMT) at completion of activity keypointing. For fUrther details, see
the HYPO diagram for DFHAKP in Section 2 and -Keypoint Program PFHKPP)in this section.
790
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
ASYNCHRONOUS TRANSACTION PROCESSING GROUP (ATP)
The Asynchronous Transaction Control program (part of the Asynchronous
Transaction Processing group. ATP) controls the initiation and data
handling of all asynchronous tasks submitted as part of a batch. The
batch consists of one or more CICS/VS transaCtions. along with any
associated data. entered into CICS/VS through the Asynchronous
Transaction Input Processing programs ~FHRD1 and DFHRD2) •
When an entire batch has been submitted. the transactions are
executed asynchronously with other possible terminal activity by the
originating terminal. When all transactions have been processed. the
output of the batch can be transmitted back to a terminal. depending on
how the batch was entered, by the Asynchronous Transaction Output
Processing programs(DFHWT1 and DFHWT2). If not transmitted
automatically~ the output remains queued until it is requested by the
originating'terminal or an alternate tE;!rminal. A batchmay'also be
deleted by the Asynchronous Queue Purge program ~FHAQP).
ATP is executed as a unique CICS/VS task. with its own TeA. and may
be resident and active only when one or more batches exist within
CICS/VS~
ASYNCHRONOUS TRANSACTION INPUT PROCESSOR (DFHRD1. DFHRD2)
The Asynchronous Transaction Input Processor ~DR) communicates directly
with five functions of the CICS/VS System Management component: Storage
Control. Program Control. Terminal Control. Task Control. and Transient
Data Control. RDR communicates indirectly with the user-exit program as
well as with the ATP modules AQP and ATP through the Terminal
Iilput/output Area (TIOA) , and the Transient Data intrapartition queue
~onstructed in a ~ransient Data Output Area. or TDOA) • respectively.
The notes below refer to Figure 3-2.
Notes:
1.
The first phase of ROR ~FHRD1) is attached by Terminal control (by
means of a Task Control DFHKC TYPE=ATTACH macro instruction) in
response to aCRDR command entered from a terminal.
2.
DFHRDI interprets the CRDR request and returns any messages to the
requesting terminal.
3.
DFHRD1 places a Batch COntrol Area (BCA) containing batch status .
information on a BCA chain. Storage Control services are requested
by means of DFHSC TYPE=GETMAIN macro instruction to obtain a
storage area forth,e BCA.
'
4.
The second phase of RDR (DFHRD2) reads the batch data. which
consists of transaction-initiating records. input data records. and
one or more delimiters.
5.
DFHRD2 interacts with any user exit routines (for more about these
routines. see the CICSIYS System Programmer's Reference Manual.
Section 3.
Program Organization
791
LICENSED MATERIAL -- PROPERTY OF IBM
6.
DFHRD2 queues the input data onto a Transient Data intrapartition
queue. Transient Data Control services are requested by means of
DFHTD TYPE=PUT requests. communication with Storage control is
required to obtain and release the TDOA.
7.
When an entire batch has been read, the Asynchronous Transaction
Control program ~FHATP) is either «ttached ~y means of a Task
Control DFHKC TYPE=ATTACH macro instruction) or marked -ready to
run.-
8.
The TCAFCAAA field of the RDR TCA points to the terminal associated
with this ATP task.
9.
If a batch is to be deleted, the ASynchronous Queue Purge program
~FHAQP) is attached to perfoDm the purging of data from the
Transient Data intrapartition queue.
10. RDR communicates with Program control by means of DFHPC TYPE=LOAD,
TYPE=XCTL, and TYPE=RETURN macro instructions requesting Program
Control services.
11. RDR communicates with Terminal Control by means of DFHTC macro
instructions for WRITE, SAVE, WAIT, and GET operations on terminal
data.
792
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -
RDR TCA
~'--~_T_CA_F_C_A_A_A__~
Asynchronous
Transaction
Input
Processor
Phase 1
TCTTE
-
0
<=>
(DFHRD1)
TCTTEDA
Task
Control
Program
~
PROPERTY OF IBM
Asynchronous
Transaction
Control
Program (A TP)
!
Asynchronous
Queue Purge
Program (AQP)
Terminal
Control
Program
b
h
.....__~~U
TIOA
Terminal
Data
8
~8
,6
BeA
Storage
Control
Program
TDOA
Transient
Data
Program
User
Exit
Control
I ntrapartition
Queue
Program
Asynchronous
Transaction
Input
Processor
Phase 2
(DFHRD2)
Transient
Data
Control
Program
0>
~ ~--------~
OPL9
Figure 3-2.
Section 3.
Asynchronous Transaction Input Processor Interfaces
Program Organization
793
LICENSED MATERIAL -
PROPERTY OF IBM
ASYNCHRONOUS TRANSACTION OUTPUT PROCESSOR (DFHWT1, DFHWT2)
The Asynchronous Transaction Output Processor ~) communicates
directly with five functions of the CICS/VS System Management component:
Storage Control, Program Control, Terminal Control, Task control, and
Transient Data Control. WTR communicates indirectly with user-exit
programs as well as with the ATP modules AQP and ATP through the
Terminal Input/Output Area ~IO~ and the Transient, Data intrapartition
queue (constructed in a Transient Data Input Area, or TDIA) ,
respectively.
The notes below refer to Figure 3-3.
Notes:
1.
The first phase of WTR (DFHWTl) is attached by Terminal Control (by
means of a Task Control DFHKC TYPE=ATTACH macro instruction) in
response to a CWTR command entered from a terminal. output is
scheduled and actually occurs if CWTR is attached to a real
tenninal.
2.
DFHWT1 interprets the CWTR request and returns any messages to the
requesting terminal.
3.
The BCA chain is searched to locate any batches requested by the
CWTR command. A write Request Element (WRE) is built for each
terminal that is to receive output, with Storage Control services
requested by means of DFBSC TYPE=GETMAIN to obtain a storage area
for the WRE.
4.
Preparatory to output, a Terminal Input/Output Area ~IOA) is
acquired by means of a Storage Control request. DFHWT2 writes all
records to be sent to a terminal.
5.
DFBWT2 interacts with any user-exit routines (for more about these
routines, see the CICSIYS System Programmer's Reference Manual.
6.
DFBWT2 retrieves the data from a Transient Data intrapartition
queue, utilizing Transient Data Control services.
7.
At the end of a CWTR operation initiated by a WRE, the WRE is
removed from the WRE chain and its storage released by means of a
Storage Control DFBSC TYPE=FRE]MAIN. After all WREs have been
removed from a BCA, if SAVE was not specified~ the BCA is removed
from the BCA chain and its storage released in a similar manner.
DFHWT2 interfaces with the Asynchronous Queue Purge program (AQP),
which is attached by means of a Task control DFHKC TYPE=ATTACH
macro instruction to perform this processing •.
8.
If RELEASE was specified in the CWTR command, the Asynchronous
Transaction Control program (ATP) is attached if it is not
attached. The storage is released, and the task is terminated.
9.
The TCAFCAAA field of the WTR TeA points to the terminal associated
with this ATP task •
. 10. WTR communicates with Program Control by means of DFBPC TYPE=LOAD,
LINK, XCTL, and RETURN macro' instructions requesting Program
Control services.
794
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
11. WTR communicates with Terminal Control by means of DFHTC TYPE=PUT
requests to write out terminal messages.
'WTR
~
TCA
Talk
-
Asynchronous
Transaction
Output
Processor
Phase 1
....._T_C_A_F_C_A_A_A_
TCTTE
Control
Program
8
p
Asynchronous
Transaction
Control
Program (ATP)
0:
(DFHWT1)
TCTTEDA
Asynchronllus
Queue Purge
Program (AOPI
Termina.1
Control
Program
Q
V
TIO~
0
q
Storage
Conlrol
Program
<"S
Terminal
-----
Data
G
User
Exit
8
BCA
TDIA
t-BCAWRE
'NRE Chain
Transient Data
I ntrajJartition
Queue
PlOgriiOl
Control
o
PICJgraOl
Asynchronous
Transaction
Output
Processor
Phase 2
~
'
~
Transient
Dala
Control
Program
(DFHWT2)
OPL10
Figure 3-3.
Section 3.
Asynchronous Transaction output Processor Interfaces
Program Organization
795
LICENSED MATERIAL -- PROPERTY OF IBM
ASYNCHRONOUS TRANSACTION CONTROL PROGRAM
~FHATP)
The Asynchronous Transaction Control program ~FHATP) communicates
directly with five functions of the CICS/VS System Management component:
Storage Control, Program Control, Terminal Control, Task Control, and
Transient Data Control. ATP communication with the application and with
the ATP modules RDR, AQP, and WTR is performed indirectly through the
Terminal Input/Output Area ~IOA), Transient Data intrapartition queues,
and the Batch Control Area ~CA)· chain.
The notes below refer to Figure 3-4.
Notes:
1.
ATP is attached by either a CRDR transaction (RDR) or the Terminal
Control program ~FHTCP) in response to a terminal command ~ATP or
an application program read or write request) •
2.
Any DFHTC TYPE=READ or TYPE=WRITE request issued by an application
program causes ATP to extract data from the Transient Data
intrapartition input queue, or to place data onto the Transient
Data intrapartition output queue, respectively. All rules that
apply to the handling of Terminal Input/Output Areas ~IOAs) when a
task is directly connected to a terminal also apply to tasks being
run asynchronously. For this purpose, each task initiated by ATP
is given the address of the dummy TCTTE, which is available in the
BCA.
3.
Whenever a BCA is to be deleted, the Asynchronous Queue Purge
program ~FHAQP) performs the purging of data from the Transient
Data queues used to process batches.
4.
When all transactions in a batch have been processed, the output of
the batch can be transmitted automatically to a terminal.
5.
ATP communicates with Task Control by means of DFHKC requests for
WAIT, ATTACH, RESUME, and SCHEDULE functions.
6.
ATP communicates with Transient Data Control for PUT and GET
requests of the data on Transient Data intrapartition queues.
7.
ATP communicates with Program Control by means of DFHPC TYPE=RETURN
macro instructions.
8.
ATP communicates with storage Control by means of DFHSC
TYPE=GETMAIN and TYPE=FREEMAIN requests for input/output areas and
BCA storage.
9.
ATP communicates with Terminal Control by means of DFBTC TYPE=WRITE
requests to write out terminal messages.
10. The initial application program for each valid transaction code is
attached by DFHATP via Task Control.
796
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
Asynchronous
Queue Purge
Program IDFHAQPI
8
r,'.
Asvchron~us
Transaction
~
Input
Processor
IRDRI
Task
Control
Program
f:0
I?'
Asychronous
Transaction
Output
Processor
p
IWTRI
ATP TCA
~
0
TDIA
TCAFCAAA
r--
Input
Asynchronous
Transaction
Control
Program (ATP)
TCTTE
r-
TCTTEDA
ATP TlOA
(DFHATP)
p0
Data
Control
Program
TDOn
ID
~
Terminal
Control
Program
'¥
I""
Application
Output
Queue
0-
.......
~
{8
Program
f-
B
~0
~
SCA
UserTIOA
)
Write'
Read.
Reco,d
k-
~8
Transient
Data
8
Terminal
~
Queue
8
r--
Program
Control
Program
~
OJ
Storage
Control
t--
t--
Program
UChain
~Ch.in
SCAWRE
SCADTCTE
Use,TCTTE
TCTTEDA
OPL11
Figure 3-4.
Section 3.
Asynchronous Transaction Control Interfaces
Program Organization
797
LICENSED MATERIAL -- PROPERTY OF IBM
BUILT-IN FUNCTIONS PROGRAM (DFHBFP)
The Built-In Functions program (DFHBFP) may be generated with either or
both of two options:
~) the basic set, which includes Table Search,
Phonetic Conversion, Field Edit, Field Verify, Bit Manipulation, and
Input Formatting; .and (2) Weighted Retrieval. If generated, any of
these functions can be called by any application program. The Weighted
Retrieval built-in function communicates with Storage Control ~FHSC~
and File cOntrol (DFHFCP) ~uring weighted retrieval operations as .
detailed in Figure 3-5 and the notes below.
Notes:
1.
When DFHBFP services are util.ized in an application program, the
symbolic storage definition for the communication area of the
Built-In Functions program ~CACCCA) must by copied into the common
control communication area of the appiication program communication
section of the program's TCA.· . This copying is achieved by means of
a DFHBFTCA macro instruction, which must immediately follow the
statement that copies the TCA and the user's definition of a TWA,
if any, in the application program.
2.
DFHBFP services are requested by .means of DFHBIF macro
instructions, which establish fields in the requesting program's
T~ for communication with DFHBFP.
3.
Storage Control services are used by the Input Formatting built-in
function to obtain a new TIOA and by the Weighted Retrieval builtin function to obtain a work area for internal use.
4.
File Control services are used by the Weighted Retrieval built-in
function'to perf?rm browse .operations.
798
CICS/OS/VS Program Logie:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
TCA
Application
Program
DFHBFTCA
DFHBIF
TVPE= ...
Built·ln Functions
Program.
(DFHBFPI
Storage
Control
Program
File
Control
Program
OPL12
Figure 3-5.
Section 3.
Built-In Functions Interface
Program Organization
799
LICENSED MATERIAL -
PROPERTY OF IBM
BASIC MAPPING SUPPORT @MS)
Basic Mapping Support ~) is provided by means of a number of modules,
each of which interfaces with other BMS modules, CICSjVS management
components, and appli(':ation programs. The maps that are handled by
CICS/VS BMS may be new maps, created to utilize CICSjVS BMS mapping
capabilities, or old maps, created for pre-VS BMS. The
interrelationships of CICS/VS components providing mapping services to
pre-VS programs and CICS/VS programs requesting mappingse~ices are
summarized in Figure 3-6. Additional details for specific programs
within CICS/VS Basic Mapping Support are given on the pages that follow.
800
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
ENTRY FROM
PRE-VS BMS
COMPATIBILITY
ENTRY FROM
CICSIVS BMS
RLR
ROUTE LIST
RESOLUTION
BMSMM
OLD MAPS (LINK)
ROUTE
OUTPUT
liP
t
------
MCP
OLD BMS
MODULE
TPS
TERMINAL
PAGE
SCHEDULING
NON-3270
INPUT
MAPPING
I
I
PBP
PAGE BUILD
PROGRAM
I SCHEDULE
CSPG
t
TPR
TERMINAL
PAGE
RETRIEVAL
M32
DSB
3270
MAPPING
DATA STREAM
BUILD
PROGRAM
F2P_
FASTER 2260
COMPATIBI LlTY
r
I
I
I
TPQ
TERMINAL
PAGE
CLEANUP
I
IL __ ...JI
PROGRAM DELAY
(lC INITIATE)
TERMINAL
PAGE
PROCESSOR
Figure 3-6.
Section 3.
CICS/VS Basic
~apping
Program Organization
OPL13
Support
801
LICENSED MATERIAL -
PROPERTY OF IBM
PRE-VS BMS MAPPING MODULE (DFHBMSMM, BMS)
The pre-VS BMS Mapping Module (DFHBMSMM) is called in response 'to
requests for BMS services coded in the form established for CICS ('that
is, prior to CICS/VS) •
The notes below refer to Figure 3-7.
Notes:
1.
A pre-CICS/VS DFHBMS TYFE=INl' MAP# or OUT macro request by an
application program communicating with a 3270 terminal passes
information via the TCA through the Program Control program
(DFHPCP) to DFHBMSMM.
2.
A CICSjVS DFHBMS TYPE=IN, MAP, or OUT macro instruction using preCICSjVS maps and DSECTs to communicate with a 3270 terminal passes
information via the TCA through the Mapping Control program
(DFHMCP) to DFHBMSMM.
3.
Maps are either passed by the application program or loaded by
DFHBMSMM.
4.
The address of a Terminal Input/Output Area CI'IOA) is supplied by
the application program for TYPE=MAP or TYPE=OUT requests and by
Terminal Control (DFHTCP) for TYPE=IN.
5.
Terminal Control is used to read 'the data for a TYPE=IN request.
6.
DFHBMSMM communicates with Storage Control (DFHSCP) to obtain and
release work areas and buffers for mapping operations.
7.
DFHBMSMM communicates with Program Control (DFHPC~ to load and
delete maps required for mapping operations.
802
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
,
8
Application
Program
DFHBMS
TVPE= •..
BMOPMAPS
8
I--
r-
: >
DFHTlOA
--
8
Mapping
Control
Program
(DFHMCPI
(0
Pre·VS BMS
Mapping
Module
(DFHBMSMM)
::>
(0
G
Terminal
Control
Program
Storage
Control
Program
>
Program
Control
Program
J
OPL14
Figure 3-7.
Section 3.
Pre-VS BMS Mapping Module Interfaces
Program Organization
803
LICENSED MATERIAL -
PROPERTY OF IBM
DATA STREAM BUILD (DFHDSB, BMS)
The Data Stream Build program addresses the page buffer, which was
composed by the Page and Text Build program (DFHPBP). The page buffer
contains lines of output data that are to be written to a terminal other
than a 3270. The number of lines is contained in the TTPLINES field.
The following functions are performed by the Data Stream Build program
on the data in the page buffer:
•
Truncates trailing blanks within data lines.
•
Substitutes strings of physical device control characters for
logical new-line characters that terminate each line of data.
•
Provides a format management header
devices.
•
Allows horizontal and/or vertical tab processing.
~)
for some VTAM-supported
The notes below refer to Figure 3-8.
Notes:
1.
DFHDSB is entered from the Page Build program to process the page
buffer.
2.
For TYPE=NOEDIT, page buffer compression is skipped and control is
given to the Terminal Page Processor (DFHTPP).
3.
If not TYPE=NOEDIT, the appropriate device control characters for
the target device are selected for substitution.
4.
The page buffer containing the data to be compressed is located
through the address stored at TTPPGBUF.
5.
After compression of the page buffer data, DFHTPP is called to
provide disposition of the page.
804
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
Page and T ex t
Build
(DFHPBP)
~8
TCA
-
TCAOSPWA
~
Data Stream
Budd
(DFHDSB)
OSPWA
OSPTRT
OSPCTTP
0),.....
0)
.....
DeVice Control
ChiHacters
""
~
.......
Terminal
Page Processor
(DFHTPP)
0)
TTP
r--
TTPPGBUF
fTPDS
TTPLINES
TTPCOLS
TTPLDCTT
TTPDCCAD
Page Bu ffer
Data to be
Output
V
0)
OPL/5
Lgure 3-8.
~ction
3.
Data Stream Build Interfaces
Program organization
805
LICENSED MATERIAL -
PROPERTY OF IBM
NON-3270 INPUT MAPPING (DFHIIP, BMS)
The Non-3270 Input Mapping program (DFHII~ is called in response to
requests for BMS services involving terminals other than 3270 devices.
The notes below refer to Figure 3-9.·
Note,!!:
1.
A DFRBMS TYPE=IN or TYPE=MAP request by an. application program
communicating with .other than a 3270 terminal passes information
via the TeA through the ~..apping Control program (DFHMCP) to DFHIIP.
2.
The map required for an operation is either passed by the
application program or loaded by DFHMCP.
3.
The address of a Terminal Input/Output Area ~IOA) is supplied by
the application program for TYPE=MAP and by Terminal control for
TYPE=IN.
4.
Terminal Control is used to read the data for a TYPE=IN request
except when the input is from a batch LU with INBFMH=DIP specified
in the PCT, in which case DFHIIP interfaces with DFHDIP to read in
the data.
5.
DFHIIP communicates with.Storage Control (DFHSCP) to obtain and
release buffers for mapping operations.
806
CICS/OS/VS Program Logic:' Description
LICENSED MATERIAL -- PROPERTY OF IBM
1
Application
Program
DFHBMS
TYPE= .•.
Mapping
Control
Program
IDFHMCPI
OF HOSPWA
I--I--
DFHTTl'DS
I--
I--
......
I--
f--
Control
Program
(DFHIIP)
......
DFHMAPDS
Terminal
Non·3270
Input
Mapping
0
(0
0
DFHTIOA
t:::...(0
Data
Interchange
Program
Storage
Control
Program
OPL16
Figure 3-9.
Section 3.
Non-3270 Input Mapping Interfaces
Program organization
807
LICENSED MATERIAL -- PROPERTY OF IBM
MAPPING CONTROL PROGRAM (DFHMCP, BMS)
The Mapping control program (DFHMC~ is the interface between
application programs and the modules which perform mapping, message
switching, page and text building, device-dependent output preparation,
and message disposition to terminals, temporary storage areas, or the
application program.
.
The notes below refer to Figure 3-10.
Notes:
1.
This prOgram is entered when an application program issues a DFHBMS
request for Basic Mapping Support services.
2.
It may also be called by Task Control to process a Deferred Work
Element (DW]3 if an application program terminates and there are
partial pages in storage or the Message Control Record ~~
created during execution of the task has not been placed in
temporary storage.
3.
The expansion of the DFHBMS macro instruction and the application
program insert data in TCA fields labeled TCAMSxxx.
4.
The following information is returned to the requestor in fields of
the TCA: error codes, page overflow information, and (if
TYPE=RETURN was specified in the request) , a list of completed
pages.
5.
A Terminal COntrol DFHTC TYPE=SAVE macro instruction is issued if
TYPE=SAVE was specified in the DFHBMS macro instruction.
6.
DFHMCP communicates with Temporary Storage control to put the MCR
fo; routed or stored messages ~YPE=ROUTE and/or TYPE=STORE was
specified}. A DFHTS TYPE=PURGE macro instruction is issued to
request that a message be purged from temporary storage if a DFHBMS
TYPE=PURGE request is issued.
7.
DFHMCP communicates with Storage Control to:
808
a.
Acquire and free storage in which the MCR is built
(TYPE=PAGEOUT after TYPE=STORE and/or TYPE=ROUTE)
b.
Acquire and free storage in which to copy the message title
(TYPE=ROUTE,TITLE=symbolic address or YES)
c.
Acquire storage to build Automatic Initiate Descriptors ~IDS}
for non-routed messages or routed messages to be delivered
immediately crYPE=PAGE0UT}
d.
Acquire a BMS work area (OSPWA) at the time of the initial BMS
request
e.
Acquire and free an area used for user request data if a
TYPE=PAGEOUT must be simulated before processing the user's
request
f.
Free the returned page list f!'YPE=PuRGE)
g.
Free map copies if TYPE=PAGEOUT and pages were being built in
response to TyPE=PAGEBLD requests
'CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL h.
8.
9.
Free Terminal Type Parameters (TTPs)
PROPERTY OF IBM
(TYPE=PAGEOUT)
DFHMCP communicates with Program Control to
a.
Load and delete map sets
b.
Link to the Page Retrieval program ~FHTPR) to process one or
more pages of a message if TYPE=PAGEOUT and CTRL=RETAIN or
CTRL=RELEASE
c.
Abnormally terminate a task if uncorrectable errors occur
d.
Link to the BMS Mapping Module
prior to CICS/VS is loaded
(DFHBMSMM)
if a map created
DFHMCP communicates with Interval Control to
a.
Initiate transaction CSPQ (see HIPO 6.1.8)
b.
Obtain the current time of day, which is then used to timestamp AIDs for routed messages
c.
Initiate transaction CSPS (see HIPO 6.1.10) for messages to be
delivered at some future time
10. DFHMCP communicates with Task Control to schedule transaction CSPG
~ee HIPO 6.1.9) for every terminal that is to receive a routed
message to be delivered immediately.
11. Transient Data Control is used to send error and informational
messages to the master terminal.
12. Route List Resolution PFHRLR} is used to collect terminals from a
user-supplied route list or from the entire TCT by terminal type,
and build a Terminal Type Parameter (TTP), which controls message
building, for each terminal type. It is also used to build a oneelement TTP for the originating terminal.
13. Non-3270 Input Mapping ~FHII~ is used to process TYPE=IN or
TYPE=MAP macro instructions for a terminal other than a 3270.
14. 3270 Mapping (DFHM32) is used to process TYPE=IN or TYPE=MAPmacro
instructions for a 3270 terminal.
15. Page and Text Build (DFHPBP) processes all output requests
(TYPE=OUT, TYPE=STORE, 9r TYPE=RETURN) •
Section 3.
Program Organization
809
PROPER~
LICENSED MATERIAL TCA
TCAMSIIC1·
TCAMSOC
1---- ... - ..- TCAMSRC1·3
TCAMSHII
TCAMSI'GN
TCAMSOCN
TCAMSIlLA
r--
~
t--
L~
TCAFCAAA
TCAOSI'WA
r--
'-
TCAPCTA
~
BMS Wild, AIt". (OSPWAJ
4
L.,
A,IIII.c.lluUI
Task
Prllyr.lln
ConUol
P,Og, .. ",
OFltBMS
TYPE
jC-
--~
OF IBM
8D
D8
Mapl)ing
Control
Pr()~lrilm
IDHtMCP)
OSI'IlP
OWE
I~
(0
~
"-
8
TCTTE
L..t..
TCTTET!
TCTTEOA
TI!rnlllhil
CunHol
Plogr.lln
Tel11jJorary
~
SloraYI!
Conuul
P,Og',11ll
0
PPT
~
PPTTLR
.-..----..
Sinrage
Control
PfOg'd01
CSA
CSAUNOIO
..---
.....
.......
"-
Optional Features list (CSAOPFLJ
~
(0
~
CSAOPFLA
CSABMS
Progr,lnl
8
--
L~
..,..
Nori·3270
Input
Mapping
(OFHIIP)
3270
Mapping
(OFHM32)
Page and
Te)Ct
Build
(OFHPBP)
G
Progr.un
Conlrol
Interval
Control
Program
G
~
...- .....
TranSIent
Dilld
Control
Program
G.....
(0
~
.......
Route
List
Resolution
(OFHRLR)
0
/0-
.....
-v
OPL"
Figure 3-10.
Mapping Control Program Interfaces
(
810
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
This page is left blank intentionally
Section 3.
Program organization
811
LICENSED MATERIAL -- PROPERTY OF IBM
3270 MAPPING (DFHM32, BMS)
The 3270 Mapping program (DFHM32) is called in response to requests for
BMS services involving terminals of the 3270 Information Display System.
The notes below refer
to
Figure 3-11.
Notes:
1.
A DFHBMS TYPE=PAGEBLD, TEXTBLD, OUT, Sl'ORE, or RETURN macro request
by an application program communicating with a 3270 terminal passes
information via the TCA through the Mapping COntrol program
~FHMCP) and the Page and Text Build program ~FHPB~ to DFHM32.
2.
A DFHBMS TYPE=IN or TYPE=MAP macro request by an application
program communicating with a 3270 terminal passes information via
the TCA through the Message Control program ~FHMCP) to DFHM32.
3.
Maps are either passed by the application program or loaded by
DFHMCP.
4.
The address of a Terminal Input/Output Area ~IOA) is supplied by
Terminal Control (DFHTCP) for TYPE=IN requests and by the
application program for all other requests.
5.
Terminal Control is used to read the data for a TYPE=IN request.
6.
DFHM32 communicates with Storage Control (DFHSCP) to obtain and
release buffers for mapping operations.
7.
All output requests ~ee note ~ are sent to a designated
destination by the Terminal Page Processor ~FHTPP).
812
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -
•
PROPERTY OF IBM
Application
Mltpping
Progretm
Control
Program
DFHBMS
TYPE= ...
(oFHMCP)
(0
DFHOSPWA
Page and
Text Build
Program
(DFHPBP)
I-I-
I
DFHTTPDS
t-OFHMAPDS
II-
,j
'"
I-
(0
8
Terminal
Control
3270
Mapping
Program
(OFHM32)
Program
8
Storage
Control
Program
DFHTlOA
r~
8
j'I
8,
Terminal
Page
Processor
(DFHTPP)
OPU8
Figure 3-11.
Section 3.
3270 Mapping Program Interfaces
Program Organization
813
LICENSED MATERIAL -- PROPERTY OF IBM
PAGE AND TEXT BUILD
(DFHPBP, BMS)
The Page and Text Build program (DFHPBP) processes all BMS output
requests (DFHBMS TYPE=OUT, STORE, RETURN, or PAGIDUT). It performs the
following functions:
•
positions the data in the page, either by actually placing i t in a
buffer or by copying i t and adjusting the map fora 3270
(TYPE=PAGEBLD) .
•
places the data into the page buffer (TYPE=TEXTBLD)
•
inserts device dependent control characters for other than 3270
Information Display System devices
The notes below refer to Figure 3-12.
Notes
1.
DFHPBP is entered from the Mapping Control program (DFHMCP) to
process all BMS output requests. It is called once for each
Terminal Type Parameter (TTP) on the TTP chain pointed to by
OSPTTP. The current TTP in the chain is pointed to by OSPCTTP.
2.
DFHPBP returns control to DFHMCP when request processing is
complete, or when the page must be written out before a
TYPE=PAGEBLD request can be processed and an OFLOW=symbolic address
operand was specified.
3.
OSPTR2, OSPTR3, ••• ,OSPTR7 contain request data from the DFHBMS
macro expansion. OSPRC1 and OSPRC3 contain return codes to be
examined by DFHMCP.
4.
For a TYPE=PAGEBLD request for a 3270, the map is copied and
chained to the TTP. For
TYPE=TEXTBLD request for a 3270, a dummy
map is created and chained to the TTP. When a page is complete,
control is given to 3270Mapping(DFHM3~ , which combines the map
copies chained to theTTP and maps the data.
5.
DFHPBP communicates with Storage Control to
a
a.
Acquire and free buffers in which pages are built
b.
Acquire storage for copies of maps for TYPE=TEXTBLD or
TYPE=PAGEBLD
c.
Acquire storage for a copy of the user's data for
TYPE=TEXTBLDor TYPE=PAGEBLD
.
6.
DFHPBP requests .Program Control to abnormally terminate a
transaction (DFHPC TYPE=ABEND) if certain uncorrectable errors
occur.
7.
TYPE=TEXTBLD request for a 3270 causes a map set consisting of one
dummy map to be passed to.3270 Mapping (DFHM32). The map has one
field with attributes FREEKB and FRESET.
814
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
B.
If the page is being constructed for a 3270, control is given to
DFHM32 to map the data and then to DFHTPP to output the page.
Otherwise, device dependencies are inserted in the page and control
is given to the Terminal Page Processor (DFHTP~ to output the
page.
M.1pPlllg
Conlrol
Program
IOFHMCPI
@0
TCA
r-
TCAOSPWA
BMS Work Area IOSPWAI
Page and
Tex t Budd
Program
IDFHPBP)
OSPTR2· 7
OSPRC1
OSPRC3
Storage
, Control
Program
OSPCP
OSPWCC
~
OSPCTTP
'-------I~ I
Program
T~~,~::~:e paramii"' ITTPI
Control
Program
~
TTPPGBUF
~
Page Buffer
Termtnal
-""
-'"
Page
Processor
N
~
k:::=-
Copied
Map
DFHMSD,DFHMDI,
and DFHMDF macro
-
BMSMDA
instructions for
dummy map for
~
U
e
./A-~--""
---
IDFHTPPI
r---3-27- 0- - - - - .
-v
Mapping
IDFHM321
TVPE=TEXTBLD
for 3270
~....
Dummy Map
for 3270
~
-
BMSMDA
o
TIOA
OPL/9
Figure 3-1.2. Page and Text Build Program Interfaces
Section 3.
Program organization
B1.5
LICENSED MATERIAL -- PROPERTY OF IBM
ROUTE LIST RESOLUTION PROGRAM (DFHRLR, BMS)
The Route List Resolution program (DFHRLR) builds Terminal Type
Parameters (TTPs), which are the main blocks for building and outputting
data in BMS.
The notes below refer to Figure 3-13.
Notes:
1.
DFHRLR is called by the Mapping Control program (DFHMCP) to
determine the grouping of terminal destinations.
2.
If data is to be routed, DFHRLR groups the terminals in the user's
route list by terminal type and builds a routing TTP for each type.
The address of the first routing TTP in the chaip of TTPS is placed
in OSPTTP.
3.
If data is not to be routed, a direct TTP is built for the
originating terminal
and its address is placed in OSPDTTP.
<\
. ,
4.
DF~LR
communicates with Storage Control to acquire storage for the
TTP.
5.
816
Program Control services are requested by means of a DFHPC
TYPE=ABEND macro instruction if certain uncorrectable errors occur.
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
TCA
r-
-
MapPing
TCAOSPWA
TCAMSRLA
TCAFCAAA
TCASCS
Control
Program
OD
TCTTE
L.,
TCTTETI
TCTTETT
TCTTEOI
TCTTEOCL
TCTTEPGL
TCTTEPGC
TCTTEDDS
TCTTEMSS
TCTEAPGL
TCTEAPGC
TCTE32SF
TCTEDSCC
TCTEDSCL
TCTEASCC
TCTEASCL
.... User's Route List
URLTRMID
Route
List
Resolution
Proqram
(0
"
--y
Storage
Control
Program
(DFHRLR)
(0
Program
Contfo\
~
.....
Program
-"
URLDPID
URLTSF
BMS Work Area IDSPWAI
r--
....--..:.
OSPTTP
OSPDTTP
ospoclli
ffi
Terminal Type Parameter (TTP)
~
TTPCHAIN
...
TTP Data
....
N•• t TTP
l-+
OPL83
Figure 3-13.
Section 3.
Route List Resolution Program Interfaces
Program Organization
817
LICENSED MATERIAL -
PROPERTY OF IBM
TERMINAL PAGE PROCESSOR (DFHTPP, BMS)
The Terminal Page Processor (DFHTP~ puts completed pages to a
destination specified in the EMS output request ~PE=OUT sends to the
originating terminal; TYPE=STORE directs to temporary storage; and
TYPE=RETURN directs to a list of completed pages that are returned to
the application program) •
The notes below refer to Figure 3-14.
Notes:
1.
DFHTPP is entered from 3270 Mapping (OFHM32) for 3270s, from FASTER
2260 COmpatibility (DFHF2~ for FASTER 2260 compatibility output,
and from Data Stream Build (OFHDSB) for other devices.
2.
DFHTPP communicates with Storage Control to obtain.
a.
The return list (to store the address of completed pages to be
returned to the programme~ •
b.Deferred Work Elements (OWEs), which ensure that message
control information is written to disk even if the programmer
neglects to issue a DFHBMS TYPE=PAGEOUT request.
c.
Storage for a list that correlates pages on temporary storage
with the logical device codes for which they are destined.
3.
Temporary Storage control is used to store pages and the Message
Control Record ~CR) for messages stored on Temporary Storage.
4.
The Terminal Type Parameter (TTP) controls the formatting of a
message for a particular terminal type, for example, 2741.
TTPPGBUF contains the address of a completed page.
5.
The Terminal output macro instruction (OFHTOM) is issued to provide
an open subroutine assembled within DFHTPP that puts a completed
page out to the terminal.
818
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
3270
Mapping
(DFHM32)
Data Stream
Build
(DFHDSB)
D (0 0
TCA
.-
FASTER 2260
Compatibility
(DFHF2P)
TCAOSPWA
TCATSDI
TCATSRN
k'"
./
<'"
./
Terminal
Page
Processor
(DFHTPP)
_0
0)
Storage
Control
Program
OSPWA
~
OSPTR4
OSPTR5
OSPDWE
OSPIND01
r--
OSPRETPG
OSPRC1
OSPRC2
OSPCTTP
(0
TTP
.-
8
TTPPGBUF
TTPMSUFX
8
<
---7
Temporary
Storage
Control
Program
Terminal
Output Macro
Instruction
(DFHTOM)
~
Data to be
Output
Page Control Area
List of
Returned
k'
Pa~es
OPL21
Figure 3-14.
Section 3.
Terminal Page Processor Interfaces
Program Organization
819
LICENSED MATERIAL -- PROPERTY OF IBM
CLEANUP UNDELIVERED MESSAGES PROGRAM (DFHTPQ, BMS)
The Cleanup Undelivered Messages program ~FHTPQ) checks the chain of
Automatic Initiate Descriptors vcrDs) to detect and delete AIDs that
have been on the chain for longer than the purge-delay time specified at
system generation (DFHSG PROGRAM=BMS,PRGDLAY=hhmm) •
The notes below refer to Figure 3-15.
Notes:
1.
DFHTPQ is initiated the first time by the Mapping Control program
(DFHMCP) via Interval Control. Thereafter, i t reinitiates itself
(see note 4) •
2.
DFHTPQ communicates with Storage Control to free AIDs which have
been purged and to acquire storage for notification messages.
3.
Transient Data Control is used to send notification messages.
4.
Interval Control is used to obtain the current time and to
reinitiate this task (DFHTPQ).
5.
DFHTPQ communicates with Temporary Storage Control to retrieve and
replace Message Control Records ~CRS) and to purge messages.
(
\
820
CICS/OSjVS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
Program
Control
Program
CSA
r--
00
CSAAIDBA
A
AID
./
Clean Up
Undelivered
Messages
Program
IDFHTPOI
0
Storage
Control
Program
(2)
iL
Transient
Data
Control
Program
')
~0-A...
Interval
Control
Program
....-
(0
....
Temporary
Storage
Control
Program
...
~
I-
TCA
L=>
TCAICRT
OPL22
Figure 3-15.
Section 3.
Cleanup Undelivered Messages Program Interfaces
Program organization
821
LICENSED MA!ERIAL -- PROPERTY OF IBM
PAGE RETRIEVAL PROGRAM
~FHTPR,
BMS)
The Page Retrieval program ~FHTPR) processes messages built by BMS and
placed in temporary storage.
The notes below refer to Figure 3-16.
Notes:
1.
DFHTPR can be initiated as a standalone transaction (CSPG or user
defined paging command, for example, P/, or 3210 PA/PF keys) , or
linked to from BMS conversational operation.
~FHBMS TYPE=PAGEOUT,
CTRL=RELFASEI RETAIN). The functions of DFHTPR are:
a.
Display the first page of a routed message.
b.
Display subsequent pages of a message at a terminal for which
TYPE=PAGEOUT,CTRL=AUTOPAGE was specified.
c.
Process paging commands from a terminal.
d.
Process transaction CSPG (see HIPO 6.1.9) when it is entered at
the terminal.
e.
Purge a message displayed at the terminal if the terminal is in
display status and other than a paging command is entered at
the terminal.
2.
DFHTPR is entered from the BMS Mapping control program ~FHMCp) to
display the first page of a message originated at the terminal if
CT.RL=RETAIN was specified in the BMS request. DFHTPR reads from
the terminal and processes paging commands until other than a
paging command is entered.
3.
DFHTPR communicates with Storage Control to
a.
Acquire and free Message Control Blocks
b.
Free Message Control Record
c.
Acquire storage for informational and error messages to be sent
to the de~tination terminal and the master terminal
d.
Free an Automatic Initiate Descriptor
chain
"
e.
Acquire and free storage for a route list constructed in
response to a COpy command entered ~t a terminal
f.
Acquire a TIOA into which, to place a device-independent page
when performing the COpy function
~CR)
~CBs).
storage
~D)
,
taken off the AID
4.
Temporary Storage Control is used to retrieve and replace HeRs and
to 'retrieve and purge pages.
'
"
5.
Basic Mapping Support is used to display error and informational
messages at a requesting terminal and to send a page to the
destination terminal in the COpy function.
822
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -
PROPERTY OF IBM
6.
Task Control is used to retain exclusive control of a MCR while it
is being updated.
7.
DFBTPR communicates with Interval Control during error processing
when a Temporary Storage identification error is returned while
attempting to retrieve a MCR. Up to four retries (each consisting
of a one-second wait followed by another attempt to read the MCR)
are performed.
crhe error may be due to the fact that an MCR has
been temporarily released because another task is updating it. If
so, the situation may correct itself, in which case a retry is
successful.)
8.
Terminal Control is used to read in the next portion of terminal
input after a page or informational message is sent to the terminal
whenTYPE=PAGEOUT,CTRL=RETAIN was specified.
9.
Transient Data Control is used to send error or informational
messages to the master terminal.
10. The Terminal Out.put macro instruction (DFHTOM) is issued to provide
an open subroutine that puts a completed page out to the terminal.
Section 3.
Program Organization
823
LICENSED MATERIAL -- PROPERTY OF IBM
Mapping
Control
Program
Program
Control
Program
8
0
System Initialization Table (SIT)
Paging
Commands
(2)
Page
Retrieval
Program
(DFHTPR)
...----
V
F--..
V
~
--
")
Temporary
Storage
Control
Program
")
Basic
Mapping
Support
...')
Task
Control
Program
(0
TCA
-
Storage
Control
Program
8
CSA
CSATCNDT
CSATODB
CSAAIDBA
')
TCATSDI
TCAOSPWA
TCAFCAAA
(0
BMS Work Area (OSPWA)
l.,
;;
OSPTR4
OSPTR7
"'
0)
Interval
Control
Program
TCTTE
4
TCTTETI
TCTTEPGB
TCTTEPGM
TCTTEPGL
TCTTEPGC
TCTEAPGL
TCTEAPGC
TCTE32SF
')
'"-.;;
(0
')
0
AID
-,..
~
B
K
')
Terminal
Control
Program
Transient
Data
Control
Program
Terminal
Output Macro
Instruction
(DFHTOM)
OPL84
Figure 3-16.
824
Page Retrieval Program Interfaces
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
This page is left blank intentionally
Section 3.
Program Organization
825
LICENSED MATERIAL -- PROPERTY OF IBM
TERMINAL PAGE SCHEDULING PROGRAM (DFHTPS, BMS)
The Terminal Page Scheduling program (DFHTPS) processes messages that
have been scheduled for delayed delivery. An Automatic Initiate
Descriptor ~ID) is built and scheduled for every terminal specified in
the Message Control Record ~CR) that Interval Control provides.
The notes below refer to Figure 3-17.
Notes:
1.
DFHTPS is called by Program Control when a delayed message is to be
sent.
2.
DFHTPS communicates with Interval Control to obtain the Message
control Record ~CR) that has the IDs of all terminals that are to
receive the message.
3.
DFHTPS communicates with Temporary Storage Control to replace the
MCR, since Interval Control released the MCR while retrieving it.
4.
Interval Control has created an Interval Control Element (ICE) for
the time-dependent request that is now to be serviced. DFHTPS
refers to many fields of the MCR ~upplied via Interval Control)
when building the AIDs required for the message.
5.
DFHTPS communicates with Storage Control to acquire storage for the
AIDs that it constructs.
6.
After the AIDs have been constructed, DFHTPS communicates with Task
Control to schedule the AIDs for processing.
826
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
Program
Control
Program
80
TCA
,---
(]
Terminal
Page
Scheduling
Program
(DFHTPSI
TCAICRT
./
Interval
Control
Program
")
Temporary
Storage
Control
Program
.....,
Storage
Control
Program
(]
It-'"
ICE
~
8
0
.....,
~
AID
MeR
./
"':l
0
-"
Task
Control
Program
OPL24
Figure 3-17.
Section 3.
Terminal Page Scheduling Program Interfaces
Program Organization
827
LICENSED MATERIAL -- PROPERTY OF IBM
DYNAMIC ALLOCATION PROGRAM lMYS ONLY)
The program runs as a CICS/VS transaction, using CICS/VS function at the
command level wherever possible. It does not modify any CICS/VS control
blocks. Only the DYNALLOC function is available through the program;
any manipulation of the environment before or after the DYNALLOC request
must be done by other means.
The flow in a normal invocation is as follows. The main program,
DFH99M receives control from CICS/VS, and carries out initialization.
This includes determining the screen size and allocating input and
output buffer sections, and issuing initial messages. It then invokes
DFH99GI to get the input command from the terminal. Upon return, if the
command was null, the main program terminates, iSSuing a final message.
The command obtained has its start and end addresses stored in the
global communications area, COMM. The main program allocates storage
for tokenised text, and calls DFH99TK to tokenise the command. If
errors were detected during this stage, further analYSis of the command
is bypassed.
Following successful tokenising, the main program calls DFH99FP to
analyse the verb keyword. DFH99FP calls DFH99LK to look up the verb
keyword in the table, DFH99T. DFH99LK calls DFH99MT if an abbreviation
is possible. Upon finding the matching verb, DFH99FP puts the address
of the operand section of the table into COMM, and puts the function
code into the dynalloc request block.
The main program now calls DFH99KO to process the operand keywords.
Each keyword in turn is looked up in the table by calling DFH99LK, and
the value coded for the keyword is checked against the attributes in the
table. DFH99KO then starts off a text unit with the appropriate code,
and, depending on the attributes the value should have, calls a convert
routine.
For character and numeric string, DFH99CC is called. It validates
the string, and puts its length and value into the text unit.
For binary, DFH99BC is called. It validates the value, converts it
to binary of the required length, and puts its length and value into the
text unit.
.
For keyword values, DFH99KC is called. It looks up the value in the
description part of the keyword table using DFH99LK, and puts the coded
equivalent value and its length into the text unit.
When a keyword specifying a returned value is encountered, DHF99KO
makes an entry on the returned value chain, which is anchored in COMM.
This addresses the keyword entry in DFH99T, the text unit where the
value will be returned, and the next entry. In this case the convert
routine is still called, but it only reserves storage in the text unit,
setting the length to the maximum and the value to zeros.
When all the operand keywords have been processed, DFH99KO returns to
the main program, which calls DFH99DY to issue the dynalloc request.
DFH99DY sets up the remaining parts of the parameter list, and if no
errors too severe have been previously detected, a subtask is ATTACHed
to issue the DYNALLOC SVC. A WAIT EVENT is then issued against the
subtask termination ECB. When the subtask ends, and CICS dispatches the
program again, the DYNALLOC return code is captured from the subtask
828
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -
PROPERTY OF IBM
ECB, and the error and reason codes from the DYNALLOC request block, and
a message is issued to give these values to the terminal.
I
DFH99DY then returns to the main program, which calls DFH99RP to
I process returned values. DFH99RP scans the returned value chain, and
I for each element issues a message containing the keyword and the value
I found in the text unit. If a returned value corresponds to a keyword
I value, DFH99KR is called to look up the value in the description, and
I issue the message.
Processing of the command is now complete, and the main program
reinitializes for the next one, and loops back to the point where it
calls DFH99GI.
Messages are issued at many places, using macros. The macro
expansion ends with a call to DFH99MP, which ensures that a new line is
started for each new message, and calls DFH99ML, the message editor.
Input to the message editor is a list of tokens, and each one is picked
up in turn and converted to displayable text. For each piece of text,
DFH99TX is called, which inserts the text into the output buffer,
starting a new line if necessary. This arranges that a word is never
split over twC? lines.
At the end of processing the command, the main program calls DFH99MP
with' no parameters, which causes it to send the output buffer to the
terminal, and initialize it to empty.
Section 3.
Program Organization
829
LICENSED MATERIAL -- PROPERTY OF IBM
DYNAMIC BACKOUT PROGRAM @FHDBP)
The Dynamic Backout Program ~FHDB~ is invoked by the Program Control
Program during ABEND processing for transactions for which dynamic
transaction backout has been specified.
DFHDBP backs out the changes made by the transaction to recoverable
resources. It does this by first scanning the DWE chain to identify
changes to Transient Data, Temporary storage, and AIDs. DFHDBP then
SCanS the dynamic log to pick up file control and DL/I ·before· images,
and 'durable· data, so that the files, data bases, and initial images of
TCTUA and COMMAREA may be restored.
For a restartable transaction, either the user-written program DFHRTY
is invoked or the default rules are applied, to determine if restart is
required. If restart is required, DFHPCP is invoked.
The notes below refer to Figure 3-18.
Notes:
1.
DFHPCP invokes DFHDBP using XCTL.
2.
DFHACP is linked to issue message DFH2205 to the user·s terminal.
3.
The DWE.list is scanned. DFHTDP is invoked for Transient Data
DWEs, and DFHTSP is invoked for Temporary Storage DWEs, to backout
changes to the destinations. DFHFCP is invoked for File Control
DWEs to perform any outstanding RELEASE.
4.
The Dynamic Log is scanned and DFHFC macro instructions issued to
reverse file control changes •. The DL/I backout module is invoked
to backout DL/I changes.
5.
'Spilled' Dynamic Log entries are recovered from temporary storage.
6.
Transfer control to DFHACP.
7.
DFHPC TYPE=RETRY is invoked to restart the transaction.
8.
The retry program
appropriate.
830
~FHRTY)
is invoked to decide whether restart is
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
Program
Control
Program
(2)
(2)
0)
>
DWE list
K
Dynamic
Backout
Program
(DFHDBPI
>
00
0
Dynamic Log
0
~
')
K
....
08
./
0
Retry Program
0)
......,
-v
Transient
Data
Program
Temporary
Storage
Program
File
Control
Program
D L!I Backout
Module
(DFSRDBCOI
)
CD
0
...
Abnormal
Condition
Program
OPL 85
Figure 3-18.
Section 3.
Dynamic Backout Program
Program Organization
831
LICENSED MATERIAL -
PROPERTY OF IBM.
DUMP MANAGEMENT (DFHDCP)
The Dump Control program ~FHDC~ dumps specified areas of storage to
tape or disk (to be printed later by the Dump utility program). It
functions in response to a requesting task, performing the service
requested and returning control to the requesting task upon completion
of the dump operation.
The notes below refer to Figure 3-19.
1.
DFHDCP may be called by either an application program or a CICS/VS
management program to write out the contents of main storage at any
time. The DFHDC macro instruction sets the type of request switch
(TCADCTR), number of bytes to be dumped (I'CADCNB), storage address
(I'CADCSA), and dump identifier (TCADCDC) in the requesting
program·s TCA.
2.
The Common System Area (CSA) and Task Control Area (TCA) are always
the first areas to be dumped. Additional areas that may be dumped
include: transaction storage, Trace Table, terminal storage,
program and register save areas, and system control tables.
3.
DFHDCP communicates with Interval control, Trace control, and
Program Control to set runaway task control, request and release a
lock of the dump facility, request a trace, and reset and test
runaway task control.
4.
Dump Control refers to a Data Event Control Block ~ECB) to
determine address ~CECBIOA) and length (DCECBIOL). DCDTFI
identifies a dummy ECB, referenced in the lock and release of the
dump facility.
5.
output is written to a sequential data set on tape or disk.
Records have a variable blocked format. A single record may be a
CICS/VS system control table, one TCA, or an entire program. Each
logical record contains a one byte identifier to indicate the type
of control block, table, or program that it contains.
832
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -
PROPERTY OF IBM
•
Application
or CICSIVS
Program
DFHDC
TYPE= ...
TCA
U@
TCADCTR
TCADCNB
TCADCSA
TCADCDC
......
0
CICSIVS Region
CICSIVS Programs,
Tables, and
Control Blocks
......,
.....
-:>
C-
I
U.8l
Interval
Control
Program
Trace
Control
Program
1
-
f--
Dynamic
Subpools
0
Dump
Control
Program
(DFHDCP)
DECB
DCECBIOL
DCECBIOA
DCDTFI
Sequential Data
~
Program
Control
Program
Data I 0 Record
Data
Data ID Record
Data
OPL26
Figure 3-19.
Section 3.
Dump Control Interfaces
Program organization
833
LICENSED MATERIAL -- PROPERTY OF IBM
DATA INTERCHANGE PROGRAM WFHDIP)
The data interchange program is designed as a function manager for SNA
devices. It is invoked by DFHDI requests directly or by the BMS
routines from DFHBMS requests (that is, the BMS routines issue DFHDI
request~ DFHDIP provides the following functions:
1.
Determines whether a new output destination has been specified and
if so, builds appropriate FMHs to select the new destination, and
outputs these FMHs to the SNA device via terminal control.
2.
Invokes the appropriate subroutine to perform the desired function:
ADD - build ADD FMH, transmit i t and the user data.
REPLACE - build REPLACE FMH, transmit it and the user data.
ERASE - build ERASE FMH, RECID FMH and transmit it.
NOTE - build NOTE FMH, transmit it, return the reply to the user.
QUERY - build QUERY FMH, transmit it, and output END FMH.
SEND - output user data.
WAIT -wait for completion of the I/O.
END - build END FMH and transmit it.
ABORT - build ABORT FMH and transmit it.
ATTACH - remove FMH from initial input.
DETACH - free the storage used by DFHDIP.
RECEIVE - read a complete record from the logical device.
3.
Sets the appropriate return code.
The notes below refer to Figure 3-20.
Notes
1.
The application program issues DFHDI requests.
2.
DFHDIP receives control via the macro invocation.
3.
If no storage has been obtained for the data interchange block
~IB) then storage control is invoked.
The storage is chained to
the TCTTE.
4.
A trace entry is made.
5.
If logging is present ~rotected task and message integrity) and if
a destination change or function change occurs on output then
temporary storage is invoked to write the DIB to recoverable
temporary storage.
6.
Terminal control is invoked to output any built FMH and also to
output the user data.
~FHTC TYPE=WRlTE is issued).
For input
requests DFHTC TYPE=READ requests are issued to obtain a non-null
input record.
7.
Any errors obtained from the device are decoded and placed in the
TCA return code slot. If no errors were detected then a return
code of zero is returned.
834
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
,
o
Application
Program
3
0
-"
Data Interchange
Program (DFHDIP)
DFHDI
TYPE=
..,;
Storage
Control
)
Trace
Control
)
Temporary
Storage
)
Terminal
Control
8
(0
K
"
G
(0
"
'"
OPL27
Figure 3-20.
Section 3.
Data Interchange Program
Program Organization
835
LICENSED MATERIAL -- PROPERTY OF IBM
DL/I INTERFACE (DFHDLI)
The CICS/OS/VS-DL/I Interface program (DFHDLI) communicates directly
with user-written application programs, DL/I, and other CICS/VS
functions. The DL/I Interface accepts requests for DL/I processing from
application programs as well as CICS/OS/VS Service modules.
The notes below refer to Figure 3-21.
Notes:
1.
When DL/I functions are requested by an application program through
execution of a File Control macro instruction ~FHFC TYPE=DLI,
xxx), fields within the common communications area of the TeA are
filled with appropriate entries to communicate with the DL/I
Interface. The functions can also be requested by a CALL or a
CALLDLI macro instruction, in which case DFHDLI will fill in the
required fields in the TeA. If the request is for a local data
base, DFHDLI communicates the requested function to IMS/VS service
modules. If the request is for a remote data base, DFHDLI invokes
the ISC CONVERSE service to transmit the request to the appropriate
system. In addition to processing DL/I input/output requests,
DFHDLI will, upon request, schedule and terminate Program
Specification Blocks WSB).
2.
DFHDLI receives and communicates requests from the Master Terminal
program ~FHMTP) to logically close a DL/I data base ~BRCVR) or
logically close for updating a DL/I data base ~BDUMP).
3.
DFHDLI receives requests from the Open/Close program ~FHOCP) to
physically open or close a DL/I data base. These requests are
normally issued by DFHOCP on behalf of DFHMTP.
4.
DFHDLI receives requests to terminate DL/I processing (UNLD).
request is accepted only from the System Termination program
~FHSTP) •
5.
In servicing the requests mentioned above, DFHDLI communicates
these requests to DL/I modules and also uses various CICS/OS/VS
modules. DFHDLI issues requests to File Control to perform a
LOCATE function, to Journal Control to perform logging functions,
to Storage Control to obtain required storage, to Task Control to
perform the WAIT function, and to Program Control in the event of
abnormal termination. DFHDLI also uses the DL/I Interface
Parameters and the DL/I Interface Scheduling Block (ISB) for
storing and retrieving control information. If the request is for
a remote data base, then a Remote Scheduling Block (RSB) is used
instead of the DL/I Interface Scheduling Block.
836
CICS/OS/VS Program Logic:
This
Description
LICENSED MATERIAL -- PROPERTY OF IBM
,
.0
Application
Program
DL/I
Communication
Blocks
DLII
Modules
DFHFC
~
TYPE=(DLI, . . .
"'/
or CALL,or
CALLDLI _ _......~----~-----~~/
CICS/OS/VS·
DL/I
Interface
(DFHDLII
SCD
PDIR
PST
DDIR
RCPARMS
PXPARMS
LPCPARMS
-_ _ _ L1PARMS
_ _- - '
"'========:::::>1
I-
o....;;.;.=~
,
File Control
Program
TCA
Master Terminal
Program
DFHFC
TYPE=(DLI,DUMP)
(DLI,RCVR) .
,
,
Open/Close
Program
DFHFC
TYPE=(DLI,OPEN)
or (DLI,eLSE)
Journal
Control
Program
)
1------..../
'"
1 - - - - -......./
Storage
Control
Program
Task
Control
~..---prog_ram------.
c:
Program
Control
Program
r-/L--_----I
:=>...
I
System Termination
Program
DFHFC
TYPE=(DLI,UNLD)
DFH DLPDS
Interface
r--par_ame_ters-----,
)
'-----~
DFHISBDS
Interface
Scheduling
L -_ _ _ _~
OPL28
Figure
3~21.
Section 3.
CICS/OS/VS-DL/I Interface
Program Organization
831
LICENSED MATERIAL -
PROPERTY OF IBM
DLII . INTERFACE INITIALIZATION (DFHDLQ)
Tbe CICS/OS/VS-DL/I Interface Initialization Program consists of two
phases of execution - an initialization phase and a DL/I substitute
function phase. In the initialization phase, DFHDLQ communicates with
the System Initialization program ~FHSIP) and the DL/I initialization
functions. In the DL/I substitute function phase, DFHDLQ provides the
interface to mask DL/I function requests and substitutes appropriate
CICS/VS functions.
The notes below refer to Figure 3-22.
Notes:
Phase 1
1.
Initialization values are passed to DFHDLQ from the System
Initialization Program ~FHSIP) in the DL/I extension ~FHLISTA) of
the System Initialization Table ~FHSIT) and also in the DL/I
Interface Parameters ~FHDLPDS).
2.
DFHDLQ invokes the IMS initialization modules which initialize DL/I
areas and control blocks.
3.
DFHDLQ then initializes parameter blocks in the CICS/VS Interface
Parameters ~FHDLPDS) and the Interface Scheduling Blocks
(DFHISBDS) •
4.
DFHDLQ then reinitializes some of the DL/I control blocks in the
SCD and PST. Pointers are modified to point to the DFHDLQ DL/I
Substitute Function Phase instead of IMS service modules.
Phase 2
1.
DL/I passes control to DFHDLQ when requesting certain DL/I services
whose pointers have been masked to point to DFHDLQ. Some of the
services processed through DFHDLQ are indicated below.
2.
A DL/I request for its Wait routine passes control to DFHDLQ, which
then issues the WAIT through CICS/VS Task Control.
3.
A DL/I request for main storage for PSB and DMB buffers and
workspace is intercepted by DFHDLQ which then issues the request
through CICS/VS Storage Control.
4.
A DL/I request for logging of data base records is intercepted by
DFHDLQ which then issues the request to CICS/VS Journal Control to
perform the logging function.
S.
DL/I request to send a message is intercepted by DFHDLQ~ which then
sends a message to the Master Terminal destination via CICS/VS
Transient Data.
6.
A DL/I request for abnormal termination is intercepted by DFHDLQ
which requests task abnormal termination via the CICS/VS Program
Control.
7.
After servicing the DL/I service requested, DFHDLQ returns control
to IMS to resume processing.
838
CICS/OS/VS Program Logic:
Desc17iption
LICENSED MATERIAL -- PROPERTY OF IBM
,
0[;_
System
Initialization
Program
(DFHSIP)
-
Interface
Initialization
(DFHDLQ)
.A.
f'
0
~
:0
DFHISBDS
Interface
Scheduling
Block
18
~
DFHDLPDS
CICSIVS-DUI
Interface
Parameters
DUI
Modules
DO
CICS/OSIVS-DUI
O~
,
Application
Program
D
TCA
-Task
Control
Storage
Control
.A..
~
"V
~
0
Journal
Control
.A..
""
~
0)
Transient
Data
~
.....
0)...
DL/I
Modules
8
1
,
DUI
Communication Blks
Program
Control
0
SCD
PST
PDIR
DDIR
PXPARMS RCPARMS
PCPARMC LlPARMS
Figure 3-2i.
Section 3.
OPL29
CICS/OS/VS-DL/I Interface Initialization Interface
Program organization
839
LICENSED MATERIAL -- PROPERTY OF IBM
EXEC INTERFACE. (DFHEIP)
The EXEC Interface program is used by application programs using the
Command-Level Interface. It invokes the required CICSjVS services on
behalf of the application program.
The EXEC Interface program is/divided into a number of separate
modules. It consists of the EXEC Interface program nucleus ~FHEIP) and
one module for each of the CICSjVS management modules. These separate
modules are called the EXEC Interface stubs and are named with the
following convention:
the stub for DFHFCP is DFHEFC,
the stub for DFHTDP is DFHETD,
and so On.
The riotes below refer to Figure 3-23.
Notes:
1.
When DFHPCP loads an application program that uses the CommandLevel Interface, it invokes DFHEIP initialization routine to set up
the Command-Level Interface environment. DFHEIP then invokes the
application.
2.
The initialization routine obtains and initializes the EXEC
Interface Structure (EIS). This contains an EXEC Interface Block
(EIB) which is used to pass information to the application program.
3.
The statements inserted by the command-language translator for each
EXEC CICS command include a CALL statement that causes the
application to invoke DFHEIP. The nucleus module DFHEIP then
invokes the appropriate EXEC Interface stub.
4.
The arguments passed by the application are moved into CICSjVS
control blocks by the appropriate EXEC interface stub.
5.
The appropriate CICSjVS management module is invoked by the
appropriate EXEC interface stub.
6.
Information is returned to the application program by DFHEIP via
EIB.
840
CICS/OSjVS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
DFHEIP
1
--
Program
Control
Program
Any CICSIVS
Management
Module used
by application
(I nitialization I
- - -
CD
I
-
- - -
EXEC
Interface
Nucleus
•
•
•
•
•
•
•
~
I
DFHEFC
I<
WrI
- -
EXEC
Interface
Stubs
•
I
DFHETD
•
•
•
CD
0
"
~
,....
Application
Program
0
EIS
-:>
Any CICSIVS
Control
Block
0)
~
~- -
-
-
- ---
)
OPL86
Figure 3-23.
Section 3.
EXEC Interface Program Interfaces
Program Organization
841
LICENSED MATERIAL -- PROPERTY OF IBM
FILE MANAGEMENT IDFHFCP AND DFHFCD)
There are
processes
which may
processes
two file control programs, DFHFCP and DFHFCD. DFHFCP
all VSAM requests, and in addition processes certain requests
be ISAM or BDAM requests. These common requests which DFHFCP
are:
OPEN
CLOSE
LOCATE
RELEASE
GETAREA
ESETL
The second file control module processes the remaining ISAM and BDAM
requests.
The File Control programs communicate directly with other CICS/VS
functions, the standard access methods, and user-written application
programs (see Figure 3-24). The on-page connectors show the
relationships of the logical elements of the programs.
when file services are requested by another CICS/VS module, File
Control locates the necessary File Control Table ~CT) entries according
to the OPEN/CLOSE/LOCATE Parameter List. It may perform a logical open
or close on those entries.
When file services are requested by an application program (through
execution of a File Control ~FHFC) macro instruction) , fields within
the common communication area of the TCA are filled with appropriate
entries to communicate with File Control. The File Control interface is
determined accordingly; that is, File Control may:
•
Request
•
Communicate with the standard access methods to request that any
required I/O operations be performed
•
Request Task Control to place the application program (requesting
task) in a wait state until I/O operations are completed as
required
•
Request Journal Control to perform any automatic journaling
required
•
Return the address of the appropriate control block to the
requesting task in the field TCAFCAA of the task's TeA
•
Request Task Control to enter and leave SRB mode
842
Sto~age
Control to acquire any required storage areas
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -
JCA
L - - -_ _ _---1
TCAJCAAD
TCAFCTR
TCAFCAA
,
VSWA
RPL
Application
Program
DFHFC
TYPE=•••
PROPERTY OF IBM
File
Control
Program
(DFHFCP)
Journal
Control
Program
FIOA
DECB
FCFBWA
Master
Terminal
DFHFC
TYPE=
LOCATE
FWA
Open/Close
DFHFC
TYPE =
OPEN
CLOSE
LOCATE
Open/
Close/
Locate
Parameter
List
CICSIVS.
DL/I
Interface
DFHFC
TYPE =
LOCATE
VSWA
Storage
Control
Program
Task
Control
Program
RPL
DATA
BUFFERS
110
AREA
INDEX
BUFFERS
Figure 3-24.
Section 3.
File Control Interface
Program organization
843
LICENSED MATERIAL -- PROPERTY OF IBM
FORMATTED DUMP PROGRAM (DFHFDP)
The Formatted Dump Program ~P) will be invoked by abnormal termination
of CICS/VS, by specification of DUMP at CICS shut-down time, by the
issue of a CSMT SNAP command by the Master Terminal Operator, or if a
CICS/VS task is abnormally terminated due to a program interrupt (ABEND
code ASRA). The output of the Formatted Dump Program is written to the
dump data set and may be printed by means of the Dump utility Program.
The output of the FDP can be in one of three forms, depending on the
specification made either at CICS start-up via one of the start
parameters, or at system generation by the FDP parameter of the DFHSIT
macro. The three forms of output thus specified are:
1.
a dump of the supervisor and CICS partition [DUMP (ABEND) ],
2.
a dump of the CICS partition only [PDUMP(SNAP) ], or
3.
a dump of the CICS partition [PDUMP (SNAP) ] followed by a series of
control blocks, each dumped in as logical an order as possible.
Fields to be highlighted in each control block will precede the
hexadecimal dump of the appropriate control block.
The Formatted Dump Program
DFHFDA, DFHFDB, and DFHFDC •
~FHFDP)
consists of three modules:
.DFHFDA is the control module of the FDP, and acts as an interface
module to CICS/VS and the operating system. It has only one entry point
which is used for taking a dump with or without formatting. It contains
all system-dependent code and output routines. It also contains the
code which is to be executed at CICS initialization time. According to
the option selected at CICS start-up time, DFHFDA will issue
DUMP (ABEND), or issue PDUMP (SNAP) and return, or issue PDUMP (SNAP) , call
DFHFDB and return.
The main routines and subroutines of DFHFDA are:
•
Initialization (at CICS/VS start-up)
•
Main dump routine
•
Subroutines used by DFHFDB
•
First level program check handler
•
Second level program check handler
•
Initial working storage area
•
communication area for DFHFDP
~FHFDPDS)
DFHFDB is the module which performs the bulk of the work in producing
the formatted dump. It consists mainly of an interpreter which
Bexecutes· the text contained in DFHFDC. It calls DFHFDA to perform all
operating system-dependent functions. The functions of its main
routines are:
•
844
Initialization - reinitializes the necessary areas of the
interpreter so that the FDP is serially reusable.
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
•
Primes the interpreter by starting it with a pointer to the Common
System Area (CSA) and the text string for the CSA, which must be
the first string in DFHFDC.
•
Queue scan routine - this is the ·scheduler s of the interpreter; i t
decides which control block should be processed next.
•
Work element preparation - having decided which control block is to
be processed next, generates the necessary pointers and control
information.
•
IFETCH - fetches the operation code of the next descriptor and
branches to the appropriate descriptor processing routine.
•
Descriptor processing routines
•
Termination processing routines
•
Error processing routines
Module DFHFDC contains the text which is interpreted by DFHFDB, and
consists of two CSECTs. The first of these contains fixed length
entries, one for each type of control block to be dumped, and acts as an
index to the second CSECT which contains the text strings, one for each
control block type. The text strings contain Dinstructions B which
describe to the interpreter where it will find pointers to other control
blocks, which fields should be formatted, etc. All lengths and offsets
used in DFHFDC are determined from the appropriate DSECT, so that any
change of position or length in a DSECT will be reflected in the FDP by
reassembly of DFHFDC only.
Section 3.
Program Organization
845
LICENSED MATERIAL -
PROPERTY OF IBM
FASTER 2260 COMPATIBILITY WFHFIP, DFHF2P)
The FASTER 2260 compatibility routines provide 2260 compatibility on a
3270 for users of the FASTER Language Facility WLF). However, 2260
compatibility is not available for 3270 support through VTAM.
DFHFIP is invoked by the Terrninal Control program after each
successful Read operation on a 3270 terminal that was defined as being
FASTER 2260 compatible. All input that is not ,in 3270 native mode (no
SBA as a first characte~ is rearranged to provide to the application
program only the data between the start-of-messageindicator (SMI), if
present, and the cursor. If a new-line character ~L) is encountered,
the remainder of the 2260 logical line is dropped.
DFHF2P is invoked by the BMS program for each page of output that is
not in 3270 native mode and is destined for a, 3270 that was defined as
being FASTER 2260 compatible. The program arranges the output page to
appear as i t would on a 2260 by inserting user-defined SMI and NL
characters in the data stream.
846
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
FORMAT TAPE (DFHFl'AP)
To prevent invalid recovery due to erroneous data on the System Log, all
tape volumes used for this purpose should be formatted prior to use.
Formatting magnetic tapes facilitates finding the end of file for
mounted volumes if the system abnormally terminates without writing an
end-of-file mark. This function can be performed by the standalone
program DFHFTAP, which provides the following services:
•
Opens message data set
•
Acquires 32K of storage for a record area
•
opens tape volume and writes binary zero records
If any of these services cannot be performed successfully, a message
is returned and the program is terminated. otherwise, binary zeros are
written until the end~f-file condition is encountered or an I/O error
occurs. If an I/O error occurs, no recovery of the write error is
performed and no more formatting occurs. The volume is closed and
another volume is requested. If no other volume is to be formatted, the
program is terminated. If end of file occurs (normal end) , the volume
is closed and another volume is requested. If no other volume is to be
formatted, the program is terminated; otherwise, processing continues
with opening and writing of records until all volumes have been
formatted.
.
Section 3.
Program Organization
847
LICENSED MATERIAL -- PROPERTY OF IBM
TIME MANAGEMENT roFHICm
Time Management consists of the Interval Control program ~FHICP}, which
can be divided into two functional areas. The first of these is that
portion of logic that services Interval Control ~FHIC) macro
instructions and is executed under control of the requesting task's TCA.
The second functional area is that of detecting the expiration of timedependent events. This function is performed for the Task Dispatcher.
The notes below refer to Figure 3-25.
Notes:
1.
IsSuing a DFHIC macro instruction causes a type-of-request code to
be set in TCAICTR, a field in the requesting task's TCA.
Processing enters the Interval Control macro instruction service
logic. The register contents are saved in TCAICRS and the
requested service is performed or initiated. While performing the
service, Interval Control interfaces with other CICS/VS management
functions (Storage Control, Task Control, and Temporary Storage
Control). Interval Control builds Interval Control Elements (ICEs)
for time-depe~dent requests made via DFHIC macro instructions. The
ICEs are chained off the CSA (CSAICEBA) in expiration time sequence
~CEXTOD).
Control is returned to the requesting CICS/VS module or
user-written program when the requested service has been queued or
performed. The DFHIC TYPE=RESET macro service (used to'
resynchronize the CICS/VS time-of-day with the operating system)
interfaces with the timer facilities of the operating system.
2.
The Task Dispatcher activates Task Control's TCA for intermodule
communication and branches to the expiration analysis logic of the
Interval Control program. This logic checks the ICE chain entries,
in expiration time sequence, determining whether or not each has
expired. Provided certain conditions do not exist, for example,
any unfinished 'Post-Initialization' programs, or a 'short-onstorage' condition, each expired ICE is removed from the chain, and
processing related to the service requested through the DFHIC macro
instruction is performed or initiated. During expiration analysis,
Interval Control interfaces with Storage Control and uses Task
Control services as well. Since the normal processing flow in the
Task Control program is from the requested-service logic, the
expiration analysis logic is reentered by again activating Task
ControlBs TCA as described above. The time remaining until the
next ICE expires is returned in TCAICRT.
One of the functions of the Task Dispatcher is to continually
refresh the current time-of-day values retained in the CSA (CSATODP
and CSACTODB). During this process, resetting the clock at
midnight can be detected.
3.
848
During expiration analysis, a CICS/VS system task to adjust the
expiration times of day to reflect the occurrence of midnight and
to reset the CICS/VS current time-of-day and date values to
coincide with the operating system can be initiated. The CICS/VSprovided Time Adjustment program performs these functions by
adjusting the expiration times in the ICEs ~s well as other
CICSjVS-maintained expiration times), and then changing the timeof -day values in the CSA to equal the operating system clock.
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
•
•
Requesting
Module/Program
Task
Dispatcher
Services
Program
Time
Adjustment
Progr.m
CSATODP
CSACTODB
CSAICEBA
CSAICRIN
OPL32
Figure 3-25.
Section 3.
Interval Control Interface
Program Organization
849
LICENSED MATERIAL -
PROPERTY OF IBM
INTERREGION COMMUNICATION (FOR SHARED DATA BASES)'
The interregion communication facility enables an IMS/VS DL/I data base
to be accessed by CICS/OS/VS and by concurrently active DL/I batch
programs in other regions. All requests for access to the data base are
coordinated in one region - the CICS/OS/VS region.
DL/I requests from application programs in batch regions are handled,
in the first instance, by CIC5-DL/I Batch Region COntrollers (one in
each batch region) instead of by the IMS/VS DB batch region controller.
Using an interregion SVC routine, the batch region controller ships the
DL/I request to the CICS/OS/VS region where a mirror transaction handles
the request as if the request had come from an ISC-connected CICS/VS
system.
The ~L/I response is subsequently returned to the calling batch
region, again by use of the interregion SVC routine.
The interregion communication facility for shared data bases is
provided by three sets of modules:
1.
Interregion Communication SVC module (DFHIRCP)
2.
Batch Region modules (DFHDRP, DFHDRPA/B/C/D/E/F)
3.
CICS/OS/VS Region modules (DFHCRC, DFHCRSP, DFHCRNP, DFHZCX).
INTERREGION COMMUNICATION SVC MODULE (DFHIRCP)
DFHIRCP provides the SVC services required for two or more regions to
communicate with each other. The six SVC services are described below.
Note: In the following description of the IRC SVC services, the term
subsystem is used in a general sense to mean an application in one
region that needs to communicate with an application in another region.
(In the data-base-sharing context, the term subsystem refers to
CICS/OS/VS in its region or to an IMS/VS job step in a batch region.)
LOGON The LOGON service prepares the subsystem for communication with
other subsystems. The LOGON service allows the subsystem to identify
itself to the SVC routine and to specify how many simUltaneous
connections with other subsystems are to be allowed. During LOGON,
control blocks are allocated, some in key 0 storage (for use only by the
SVC) and others in user-key storage (for use by the SVC and .. the
subsystem) •
The following control blocks are allocated in key 0 storage:
•
LCB - logon control block. There is one LCB per logged-on
subsystem and it is the basic control block used for control of all
subsystems.
•
CACB - connection address control block. There is one CACB per
logged-on subsystem and it contains the addresses of all connection
control blocks (CCB~ for the subsystem.
850
CICS/OS/VS Program Logic:
Description
(
LICENSED MATERIAL -- PROPERTY OF IBM
•
CCB - connection control block. The LOGON request causes 'nl CCBs
to be created per logged-on subsystem, where 'n' is the maximum
number of simultaneous connections with other subsystems.
(In' is
passed as a parameter to the LOGON service by the user.) The CCB
controls a connection to another subsystem.
The following control blocks are allocated in user-key storage:
•
SLCB - subsystem logon control block. Within the SLCB is an ECB
~vent control block) that the SVC routine posts ~ith an OSjVS
POST macro instruction) when the sUbsystem has any interregion
activity to perform; only one SLCB is allocated per subsystem.
•
SCACB - subsystem connection address control block. There is one
SCACB per logged-on subsystem and it contains the addresses of all
subsystem connection control blocks (SCCBS) for the subsystem.
•
SCCB - subsystem connection control block. The LOGON request
causes 'n' SCCBs to be created, where 'n' is the allowable number
of simultaneous connections with other subsystems. The SVC routine
allocates one of the SCCBs to represent one end of a connection
only when another subsystem issues a CONNECT request. In each
allocated SCCB is an ECB that is posted (the SVC routine sets the
post bit on) when the subsystem has any new input from the other
(connected) subsystem. The SCCB remains allocated until the
connected subsystem issues a DISCONNECT request.
•
Buffers. Buffers are allocated to hold input to the subsystem from
other subsystems.
CONNECT After i t has logged on, a subsystem issues a CONNECT request to
the SVC routine in order to establish a connection with another
subsystem. The SVC routine effects this connection by allocating, in
both subsystems, an unused CCB/SCCB pair to represent the connection.
The CONNECT request then posts the connected-to subsystem to inform i t
that it has a new incoming connection.
(In data-base sharing, it is the
batch region that issues the CONNECT request -- as a result of which the
SVC routine allocates a CCB/SCCB pair in both the CICS/OSjVS region and
the batch region.)
SWITCH After a subsystem has established a connection, the SWITCH
service is used to pass control (and optionally data) to the other
subsystem. All DL/I requests and responses are shipped between regions
by means of the SWITCH service. In performing the SWITCH service, the
SVC routine causes the ECBs in the SLCB and the SCCB of the other
subsystem to be posted.
DISCONNECT The DISCONNECT service breaks connection with another
subsystem; it frees those control blocks that were associated with that
particular connection, and posts the other subsystem to say that the
disconnection has occurred. The other subsystem then issues its own
DISCONNECT to free its own control blocks that were associated with the
connection.
Section 3.
Program Organization
851
LICENSED MATERIAL -- PROPERTY OF IBM
QUIESCE The QUIESCE service prevents further connections being
established to or from the requesting subsystem, and posts the SLCB ECB
when all existing connections are broken. If the request is for an
immediate quiesce, the SVC immediately disconnects all active
connections to and from the subsystem, at both ends, and posts all the
SCCBs involved.
LOGOFF The LOGOFF service removes the subsystem from interregion
activity, and the SVC frees all control blocks allocated for the
subsystem.
Invocation of. the SVC
On invocation of the SVC, register 1 is set to contain the address of' a
parameter list. Each element of the parameter list contains the address
ot a sublist. Each sublist represents a single SVC request. Thus the
SVC can process several requests during a single invocation.
The parameter list and sublists are built, and the SVC is invoked, by
using the DFHIR macro. For each SVC request, the parameters passed in
the sublist to the SVC are coded as operands on the DFHIR macro. The
operands are detailed below. The underscored operands represent items
set (rather than used) by the SVC during the request.
TYPE=LOGON,MYNAME=,USERNUM=,USERID=,SLCBAD=,MXTHRDS=,BUFSZ=
MYNAME
the name of this subsystem.
USERNUM
a number allocated to this subsystem, and to be used for
subsequent SVC requests.
USERID
an ID allocated to this subsystem (for security purposes) and
to be used for subsequent SVC requests.
SLCBAD
the address of this subsystem's SLCB.
MXTHRDS
the maximum number of simultaneous connections which can be
active for this subsystem. The SVC allocates this number of
CCBs and SCCBs for this subsystem.
BUFSZ
the buffer size for this subsystem. There is one buffer for
each connection to this subsystem, and the buffer is used to
hold data sent to this subsystem from the other end of·the
connection. The buffer must be large enough to contain such
data.
TYPE=CONNECT,TONAME=,USERNUM=,USERID=,THRDNUM=,THRDID=,SCCBAD=
TONAME
the name of the subsystem to which the connection is to be
made.
852
CICS/OSjVS Program Logic:
Description
LICENSED MATERIAL -
PROPERTY OF IBM
USERNUM
as provided by LOGON.
USERID
as provided by LOGON.
THRDNUM
a number allocated to this connection by the SVC, and to be
used for subsequent connection-specific requests to the SVC.
THRDID
an ID allocated to this connection by the SVC (for security
purposes) and to be used for subsequent connection-specific
requests to the SVC.
SCCBAD
the address of the SCCB for the connection.
TYPE=SWITCH,USERNUM=,THRDNUM=,THRDID=,DATA=
USERNUM
as provided by LOGON.
THRDNUM
as provi¢led by CONNECT.
THRDID
as provided by CONNECT.
DATA
data to be passed to the other end of the connection.
TYPE=DISC,USERNUM=,THRDUM=,THRDID=,DSCTYP=
USERNUM
as provided by LOGON.
THRDNUM
as provided by CONNECT.
7'HRDID
as provided by CONNECT.
DSCTYP
'N' for normal disconnect.
'A' for abnormal disconnect.
TYPE=QUIESCE,USERNUM=,USERID=,QUITYP=
USERNUM
as provided by LOGON.
USERID
as provided by LOGON.
QUITYP
'Ie for immediate quiesce.
'N' for normal quiesce.
Section 3.
Program Organization
853
LICENSED MATERIAL -
PROPERTY OF IBM
TYPE=LOGOFF,USERNUM=,USERID=
USERNUM
as provided by LOGON.
USERID
as provided by LOGON.
DFHDRP
XCTL
DFHDRPA
LOAD
DFHDRPD
I-
DFHDRPE
-
LOAD
----...,
I
LINK
I
t
DFHDRPF
DLII
Request
XCTL
DFHDRPB
User
Application
-
t
Abnormal
Condition
I
,...-
XCTL
DFHDRPC
OPL87
Figure 3-26.
854
Interregion Communication - Batch Region Modules
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
BATCH REGION MODULES
~FHDRP,DFHDRPA/B/C/D/E/F)
The batch region modules control the execution of the data-base-sharing
job step in the batch region (see Figure 3-26). The functions of each
module are described below.
Batch Region Control WFHDRP)
DFHDRP is the first module to be executed during a batch data-basesharing job step. The module resides in the link pack area, and is APF
~uthorized Program Facility)-authorized.
DFHDRP opens the APFauthorized library, DFHLIB, in which all the batch region controller
modules ~FHDRPA-F) reside, and transfers control to DFHDRPA. Using
this mechanism the batch region controller modules are authorized, but
the user"s applicationprograrn ~n STEPLIB or JOBLIB) is not.
Batch Region Initialization WFHDRPA}
DFHDRPA processes the user parameters in the JCL EXEC statement, and
then loads DFHDRPD and DFHDRPE.Finally, DFHDRPA links to DFHDRPF to
establish a connection to the CICS/OS/vS partition/region, before
passing control to DFHDRPB.
Application Program Control WFHDRPB)
DFHDRPB initiates execution of the batch application program.
application finishes, DFHDRPB invokes DFHDRPC.
When the
Batch Region Termination (DFHDRPC)
DFHDRPC invokes the converse routine in DFHDRPE in order to send
CICS/OSjVS a sync point request to indicate that DL/I activity is
complete. DFHDRPC then invokes the cleanup routine in DFHDRPD to
disconnect from-the CICS/OSjVS region, and to logoff.
Batch Region Cleanup
WFHDRPD)
This module contains the cleanup routine, and the STAE and SPIE exits.
The cleanup routine is invoked when the batch job step is to terminate,
either normally or abnormally. The routine issues a DISCONNECT request
to the SVC, in order to break the connection to CICS/OSjVS, and then
issues a LOGOFF request.
The STAE and SPIE exits invoke the cleanup routine before continuing
the abnormal termination.
Section 3.
Program Organization
855
LICENSED MATERIAL -- PROPERTY OF IBM
DL/I Request Handling (DFHDRPE)
DFHDRPE contains two routines, the Program Request Handler routine and
the Converse routine.
The Program Request Handler receives control, via the link edit stub
when the application program issues a DL/I request. The
routine then invokes the Converse routine in order to send the request
to CICS/OS/VS and await a reply.
.
~FSLIOOO),
If the request is a DL/I request, the Converse routine invokes DFHXFQ
is link edited with DFHDRPE) to transform the DL/I argument list
into a format which can be processed in the CICS/OS/VS region/partition.
The formatted data is sent by issuing a SWITCH request to the SVC. When
the SVC posts the batch SLCB ECB to indicate that the reply has arrived,
the Converse routine again invokes DFHXFQ to transform the reply into
the format required by the user.
~hich
SVC Initialization WFHDRPn
DFHDRPF issues a LOGON request and a CONNECT request to the SVC routine
to establish a connection with CICS/OS/VS. It then passes a DL/I
argument list (representing a scheduling request for the user1s PSB) to
the Converse routine in DFHDRPE, so that CICS/OS/VS may schedule the
PSB.
.
CICS/OS/VS REGION MODULES
~FHCRSP,DFHCRNP,DFHZcx,DFHCRq
The CICS/OS/VS region modules control the handling of DL/I requests from
other regions. The functions of each module are described below.
CICS/OSIYS Interregion Communication Startup WFHCRSP)
DFHCRSP is optionally invoked at either system initialization ~y
DFHSIJ1), or via a CSMT IRC,BEGIN command from the master terminal.
DFHCRSP issues a LOGON request to the SVC and attaches CSNC ~he New
Connection Manager, represented by DFHCRN~. The SLCB ECB is also added
to the wait list which is embedded in the DFHTCT table. Thus, the
Terminal Control Dispatcher, DFHZDSP ~ithin DFHZCP), will receive
control when the SLCB ECB is posted. Finally, DFHCRSP allocates the
CICS/OSjVS Region Block (CRB), which controls CICS/OS/VS interregion
activity.
.
New Connection Manager-Transaction CSNC (DFHCRNP)
Transaction CSNC is attached by DFHCRSP and immediately suspends itself.
When the Terminal Control Dispatcher ~FHZDSP) finds either there are
new incoming connections from other regions/partitions, or that
interregion quiesce is complete, CSNC is resumed by DFHZDSP.
856
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
If quiesce is complete, DFHCRNP issues DFHIS TYPE=LOGOFF (see
description of DFHCRC), and then DFHPC TYPE=RETURN.
Ifa new incoming connection exists, DFHCRNP allocates an interregion
TCTTE (generated as part of DFHTCT TYPE=IRCBCH), places the incoming
data in a TIOA, and invokes DFHIS TYPE=RECEIVE in order to attach the
mirror transaction, CSMI. Thereafter, CSMI handles DL/I requests on
behalf of the batch program in the same way as it does for a remote ISCconnected system.
If DFHIS TYPE=RECEIVE fails for a temporary reason ~or example,
the TCTTE is chained from the CRB in preparation for a later
retry.
MAXTASK~,
CICS/OS/yS Region Communication (DFHZCX)
DFHZCX contains several routines which are used for interregion
communication.
I/O Request Routine nOR) This routine is invoked when data is to be
sent to the connected (batch) subsystem. For instance, when the mirror
transaction, CSMI, has performed the DL/I request and wishes to send the
response to the requesting batch region/partition, it issues a DFHTC
TYPE=~ITE,WAIT,READ) which is recognized as an interregion request
(the TCTl'E is an interregion TCTTE), and passed to IOR. The IOR routine
issues a SWITCH request to the SVC and awaits a reply (it waits on the
ECB contained in the connection's SCCB) •
STOP Routine
be quiesced.
This routine is invoked when the interregion session is to
This happens during:
•
Abend processing (see description of DFHCRC)
•
System termination (via
•
Master terminal conunand CSMT IRC, END
DFHST~
The routine issues a QUIESCE request to theSVC.
FREE Routine This routine is invoked during sync point processing and
issues a DISCONNECT request to the SVC.
LOGOFF Routine This routine is invoked when interregion quiesce is
complete. This happens when:
•
Terminal Control Dispatcher notices that quiesce is complete, and
resumes CSNC (see description of DFHCRNP) •
•
System termination (via
•
Abend processing (see description of DFHCRq •
DFHST~
•
The routine issues a LOGOFF request to the SVC.
Section 3.
Program Organization
857
LICENSED MATERIAL -- PROPERTY OF IBM
Interreqion Abnormal Exit WFHCRq
DFHCRC is the interregion STAE exit module. The STAE macro is issued in
DFHSIB1,and when DFHSRP continues an ABEND, DFHCRC receives control.
DFHCRC issues DFHIS TYPE=STOPIMM which (from within DFHZCX) issues an
IMMEDIATE QUIESCE request' to the SVC. Then DFHCRC issues DFHIS
TYPE=LOGOFF which ~rom within DFHZCX) issues a LOGOFF request to the
SVC.
858
CICSjOS/VS Program Logic:
Description
LICENSED MATERIAL -
PROPERTY OF IBM
INTERSYSTEM COMMUNICATION (ISC)
The intersystem communication (ISC) facility ~ee Figures 3-27, 3-28,
and 3-29) enables separate CICSjVS systems to be connected so that a
transaction in one system is able to retrieve data from, to send data
to, or to ~nitiate a transaction in, another CICSjVS system. The
facility is available to application programs that use the command-level
interface.
ISC HANDLING OF CICSjVS EXEC REQUESTS
The user issues a command-level request, which is handled by the EXEC
interface program (DFHEIP). DFHEIP invokes DFHELR, which determines
whether the request is for a local or a remote resource. If the
resource is local, DFHELR returns control to DFHEIP, which invokes the
appropriate CICSjVS modules locally.
If the resource is remote, DFHELR allocates a storage area into which
it places the name of the remote system, address of the EXEC parameter
,list, and the address of the table (FCT, DCT, etc.) for the requested
resource. Finally, DFHELR issues a DFHIS TYPE=CONVERSE macro, which
passes control to the intersystem program DFHISP.
DFHISP determines whether a usable session is already established for
the task. If no session is established DFHISP issues an allocate
request to establish one. DFHISP then invokes DFHXFP to transform the
requested command and parameter list into a form suitable for
transmission.
(This is known as "transformation 1".)
A DFHTC
TYPE=~RITE, WAIT, READ) macro is then issued by DFHISP, and terminal
control transmits the request to the remote system. If the NOCHECK
option is specified on the EXEC request then a DFHTC TYPE=~RITE,LAS~
macro is issued by DFHISP, to optimize the flows since no reply is now
necessary.
On receiving the request, terminal control in the remote system
attaches the mirror transaction program (DFHMIR). DFHMIR allocates
storage, as in the requesting system, in which the addresses of the
session TCTTE and the TIOA are placed. The mirror program then invokes
DFHXFP to transform the received request into a form suitable for
execution by DFHEIP.
(This is known as "transformation 2".)
DFHEIP invokes DFHELR which determines whether the request is for a
remote resource on yet another system or for a local resource. If the
resource is remote, DFHELR allocates a new and separate storage area and
invokes DFHISP etc.
If the resource is local, DFHELR returns control to DFHEIP which
processes the command for the mirror program in the normal way.
When DFHEIP has successfully completed execution of the command,
control is returned to the mirror program with the results of the
execution. If the mirror program was attached due to a DFHTC
TYPE=~RITE,LAST) macro request, at this point the macro request has
been completed and the mirror program terminates without sending a
reply. Otherwise, for requests that do not specify the NOCHECK option,
the mirror program invokes DFHXFP to transform the command response into
a suitable form for the transmission of the reply.
(This is known as
"transformation 3".)
Section 3.
Program Organization
859
LICENSED MATERIAL -- PROPERTY OF IBM
DFHXFP returns control to the mirror program which then invokes
terminal control to transmit the reply to DFHISP. The mirror program
does this by issuing either a DFHTC TYPE=~ITE, LAS~ or a DFHTC
TYPE=~RITE, WAIT, READ) macro.
On receiving the reply, DFHISP invokes DFHXFP in order to transform
the reply into a form expected by the application program.
~is is
known as -transformation 4-.) DFHISP then returns control via DFHELR to
DFHEIP which raises any error conditions associated with return codes.
Finally, DFHEIP returns control to the application program.
System A
START
Command from
application
program
DFHEIP
DFHELR
(local)
DFHISP
DFHXFP
(Transformation 1)
Request to System B
(via Terminal Control)
DFHISP waits
for reply
Response from System B
(via Terminal Control)
DFHISP
DFHXFP
(Transformation 4)
DFHELR
DFHEIP
Response to
OPL120
application
program
IFigure 3-27. (part 1 of 2).
860
Overview of Intersystem Communication (ISC)
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -
PROPERTY OF IBM
System B
Request from System A
(via Terminal Control)
DFHXFP
(Transformation 2)
Mirror task
(CSMI)
!+-
Command from
mirror task
I
_/
I
1
DFHEIP
I
DFHELR
I
I
(local)
1
I
.1
-
..
to DFHISP
f- - - ( remote)
I Mirror task
DFHEIP
handles the
command
waits for
DFHEIP
r---......_
DFHXFP
(Transform-.
ation 3)
-
Mirror task
(CSM\l
Response to
mirror task
af'L89
Response to System A
(via Terminal Control)
Figure 3-27.
Section 3.
(part 2 of 2).
Overview of Intersystem Communication (ISC)
Program Organization
861
LICENSED MATERIAL -- PROPERTY OF IBM
ISC HANDLING OF CICS/VS EXEC NOCHECK REQUESTS
The command-level NOCHECK requests (see Figure 3-28) are handled in the
same manner as other conunand-level requests, except that:
•
There is a single message transmitted to the remote system, and
there is no reply transmitted from the remote system.
•
DFHISP issues a DFHTC TYPE=~RITE,LAST) request instead of a DFHTC
TYPE= ~RITE,WAIT,READ) request.
•
DFHMIR does not issue any terminal control requests.
•
Transformations 3 and 4 normally performed by DFHXFP are avoided.
(Errors are not returned to the requesting system.)
862
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
System A
START command with
NOCH ECK option from
application
program
DFHEIP
DFHELR
(local)
DFHISP
DFHXFP
(Transformation 1)
Request to System B
(via Terminal Control)
I WRITE/LAST
I
DFHISP waits
for send
to occur
I
I
I
DFHISP
DFHELR
DFHEIP
Response to
OPL121
application
program
Figure 3-28.
(Part 1 of 2). Overview of Intersystem Communication
(with NOCHECK Option)
Section 3.
Program Organization
863
LICENSED MATERIAL -- PROPERTY OF IBM
System B
Request from System A
(via Terminal Control)
DFHXFP
(Transformation 21
Mirror task
(CSMI)
I--
Command from
mirror task
-./1
1
DFHEIP
I
to DFHISP
---.
DFHELR
(remotel
I
I
I
(local)
I
--
Mirror task
waits for
DFHEIP
DFHEIP
handles the
command
I
I
I
I
I
I
I
I
I
I
I
r--...... Mirror task
(CSMII
Response to
mirror task
Mirror
terminates
0 PL122
Figure 3-28.
(part 2 of 2). overview of Intersystem communication
(wi th NOCHECK Option)
864
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -
PROPERTY OF IBM
ISC HANDLING OF DL/I REQUESTS
Whereas all CICS/VS commands ~or a local or remote system) are handled
by DFHEIP, all DL/I requests are handled by the CICS/VS module DFHDLI
(See Figure 3-29). DFHDLI checks whether the request is for a local or
remote data base. If local, the request is handled normally. If
remote, control is passed to DFHISP. On receiving control, DFHISP
invokes DFHXFP to transform the request into a form suitable for
transmission, and then invokes terminal control to transmit.
As for a CICS/VS request, the mirror transaction (CSMI) is attached
and then invokes DFHXFP to transform the received request into a form
suitable for execution by DFHDLI. The mirror program (DFHMIR) then
passes the request to DFHDLI in the same way as any other application
program would. DFHDLI in the receiving system then checks if the
request is for yet another remote system.
When DFHDLI has successfully completed the request, control is
returned to the mirror program with the results in the user interface
block (OIB). DFHMIR then invokes DFHXFP to transform the results into a
form suitable for transmission, and then invokes terminal control to
transmit the reply.
On receipt of the reply, terminal control returns to DFHISP, which
has been waiting for the reply~ DFHISP then invokes DFHXFP to transform
the reply into a form that, can be used by DFHDLI. DFHXFP sets the
return codes in an intermediate control block DFHDRX so that they may
ultimately be copied to the UIB or the TCA for the application program.
Control is then returned via DFHISP and DFHDLI to the application
program.
Section 3.
Program Organization
865
LICENSED MATERIAL -- PROPERTY OF IBM
System A
DL/11request from
application program
DOS-DL/I
or
DFHDLI
DFHISP
DFHXFP
:--- (Transformation 1)
Response from local
data base
4------ -- -I
I
I
_ .......,
..
I
waiting for
DFHISP
~DOS-DL/I
or
DFHDLI
(via Terminal Control)
I
_"'-1
I
DFHISP waits
for reply
I
I
I
Request to System B
I
I
~-
DFHISP
.......
I
Response from System B
(via Terminal Control)
~
DFHXFt(Transformation 4)
Response from remote
data base
OPL90
Figure 3-29.
866
(Part 1 of 2).
overview of ISC Handling of DL/I Requests
CICS/OSjVS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
System B
Request from System A
(via Terminal Control)
Mirror Program
DFHXFP
(Transformation 2)
I---
1'"-I
I
I
I
I
I
I
Mirror task
waits for
DOS-DL/lor
DFHDLI
I
I
DFHDLI
I
I
I
I
l_~
DFHXFP
(Transformation 3)
r---
Mirror program
Response to System A
(via Terminal Control)
OPL91
Figure 3-29.
Section 3.
~art
2 of 2).
Overview of ISC Handling of DL/I Requests
Program Organization
867
LICENSED MATERIAL -- PROPERTY OF IBM
LOCAL/REMOTE DETERMINATION PROGRAM (DFHELR)
The local/remote determination program (DFHELR) is called by the EXEC
interface program (DFHEIP) and inspects the appopriate CICS/VS table to
determine if the request is for a local or a remote resource. The
following tests are made to determine if a resource is local or remote:
1.
If the function group is not FC, TO, TS, IC, then the resource is
local.
2.
If the function group is IC, ·but the function is not Sl'ART or
CANCEL, then the resource is local.
3.
If SYSID is specified then the resource is remote.
4.
If the relevant CICS table entry specifies REMOTE, then the
resource is remote. The relevant tables are:
FC
TO
TS
IC
FCT
DCT
TST
PCT
The notes below refer to Figure 3-30.
Notes:
1.
DFHELR is called by DFHEIP to determine if the resource associated
with the command-level request is on a local or a remote system.
2.
If the resource is local, DFHELR returns control to DFHEIP which
invokes the appropriate CICS/VS modules locally.
3.
If the resource is remote, DFHELR then:
a.
Allocates a transformer storage area (XFSTG) chained off the
EXEC interface storage EIS. XFSTG provides a central area in
which all information about processing of the request can be
accessed.
b.
Places the following data in XFSTG:
(~
Name of remote system, for subsequent use by DFHISP.
(2) Address of application's list of parameters ~C parameter
list) associated with the command being executed.
(3) Address of the table
resource.
c.
~CT,
DCT etc.,) for the requested
Issues a DFHIS TYPE=CONV'ERSE macro which passes control to the
intersystem program DFHISP.
4.
The reply from the remote system is passed to DFHELR by DFHISP.
5.
Control is returned to DFHEIP to examine the reply and invoke the
EIP exception handler if necessary.
868
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -
EXEC
Interface
Program
/).
(~~
<
:>
Local/
Remote
Determination
Program
G
<
:>
PROPERTY OF IBM
Intersystem
Communication
Program
(DFHELR)
8
OPL92
Figure 3-30.
Section 3.
LocaljRemote Determination Program Interfaces
Program Organization
869
LICENSED MATERIAL
PROPERTY OF IBM
INTERSYSTEM COMMUNICATION PROGRAM (DFHISP)
The macro DFHIS· TYPE=CONVERSEexpands into a call to the intersystem
communication program (DFHISP). On receiving control, DFHISP is
responsible for allocating a session TCTTE, sending requested command to
remote location, receiving reply from remote location, returning result
to application program, and if necessary, freeing the session.
The notes below refer to Figure 3-31.
Notes:
1.
The local/remote determination program (DFHELR) issues. a DFHIS
TYPE=CONVERSE macro request.
2.
Many ISC sessions can .exist at the
ta~ can own more .. than one TCTTE.
represented by a chain that starts
owned TCTTEs. DFHZISP manipulates
for session TCTTEs.
.
same time and consequently a
OWnership ofa TCTTE by aTCA is
at the TCA and links all the
this chain and actions requests
DF~ZISP co~tains thr~eseparate routines, POINT, ALLOCATE, and
FREE. DFHISP obtains the address. of the TCTTE' that controls the
session with the remote system and places it in.XFSTG. The address
of the TCTTE is obtained by DFHISP issuing a DFHTC TYPE=POINT
macro, the processing being ~arried out by DFHZISP.·
3.
If no session is established, there will be no TCTTE; in this case
DFHISP issues a DFHTC TYPE=ALLOCATE macro and DFHZISP establishes
the session.TCTTE. If all the session TCTTEs are in use, the
request is queued.
4.
The transformation program (DFHXFP) is then invoked to. transform
the requested command and parameter list into a form suitable for
transmission.
5.
DFHISP. then issues a DFHTC TYPE= (WRITE, WAIT, READ). macro and the
terminal control program transmits the request to the remote
terminal. If a NOCHECK macro request is being transmitted then a
DFHTC TYPE= (WRITE,LAST) macro is issued. No reply is given and the
session is immediately freed by issuing DFHTC TYPE=FREE. control
then returns to the caller.
6.
Following processing in the remote system the resulting reply is
transformed by the transformation program (DFHXFP) into a form
expected by the application program.
7.
sessio~ TC,!,TEs can be freed either explicitly or implicitly. If
the mirror program detects that the request has completely
terminated, it will issue a DFHTC TYPE=~RITE, LAS~ macro and then
issue aDFHPC TYPE=RETURN maCro. Since DFHISP receives the end
bracket indication, it will explicitly issue a DFHTC TYPE=FREE
macro, processing being carried out by DFHZISP, in order to release
the session TCTTE.
8.
Control is then returned to .DFHEIP via the local/remote
determination program (DFHELR).
870
CICS/OS/VS Program Logic:
Descript~on
.
LICENSED MATERIAL -- PROPERTY OF IBM
Intersystem
Communication
Program
(DFHISP)
<===>
0)
<
Local/Remote
Determination
Program
G
<
POINT
(DFHZISP)
:>
ALLOCATE
(DFHZISP)
(0
:>
<
8
K
A
v
.A
8
.A
0
K
'"
I(
:>
Transformation
Program
"-
Terminal
Control
Program
)
.)
"-
Transformation
Program
...
FREE
(DFHZISP)
/
OPL93
Figure 3-31.
Section 3.
Intersystem COmmunication Program Interfaces
Program Organization
871'
LICENSED MATERIAL -- PROPERTY OF IBM
TRANSFORMATION PROGRAM (DFHXFP)
The transformation program (DFHXFP) is responsible for encoding data
that is to be transmitted during intersystem communication. For any
request (and reply), the data has to go through four transformations:
1.
From standard parameter list form to address free form for the
request.
2.
From address free form to standard parameter list form for the
request.
3.
From standard parameter list form.to address free form for the
reply.
4.
From address free form to standard parameter list form for the
reply.
Whilst each of the transformations is logically distinct from the
others, the code for all four transformations is held in the one module
DFHXFP.
The requests
~nd
replie~
that can ,be handled by DFHXFP include:
•
CICS file control requests
•
CICS interval control requests
•
CICS transient data requests
•
CICS temporary storage requests
•
DLjI schedule and data base requasts
For each request, the address free form consists of a function
management header (FMH) and (possibly) following data. CICS file
control requests are represented by FMHs of type 43 which are
architected privately by CICS. All other requests are represented by
FMHs of type 6 which form part of the overall LU6 architecture.
The notes below refer to Figure 3-32.
Notes:
1.
Transformation 1
The intersystem communication program (DFHIS~ invokes DFHXFP to
transform the request into a suitable form for transmission.
DFHXFP establishes the group and function codes for the request.
The group code identifies, for example, a transient data request.
It is used to locate the tables and code for transient data
requests. The function code is then used to locate the routine for
a specific request, for example, a WRITEQ-TD request. Finally, the
transformation number, in this case 1, is used to locate the
routine for the specific transformation; control is then passed to
this routine.
The standard parameter list is scanned twice, the first time to
determine how large a TIOA is required, and the second time to
872
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
complete the TIOA. In determining the TIOA size, attempts are made
to reduce the amount of data that is actually transmitted. For
example, trailing blanks are removed from queue names.
During transformation 1 an attach function mangement header (AFMH)
is generated when a change of architected mOdel occurs, for example
from DL/I model to CICS private model. The generated AFMH will
cause the mirror table CSMI to be attached in the remote system.
When processing is complete, transformation 1 passes control back
to DFHISP.
Transformation
Program
(DFHXFP)
C0
< >
Intersystem
Communication
Program
Mirror
Transaction
Progrqm
OPL94
Figure 3-32.
Section 3.
Transformation Program Interfaces
Program Organization
873
LICENSED MATERIAL -- PROPERTY OF IBM
2.
Transformation 2
DFHMIR, the mirror transaction program, passes control to DFHXFP
which during transformation 2 constructs a standard parameter list
from the data contained in the input TIOA.
During transformation 2 the attach function management header, if
present, is ignored in favour of the FMH of interest. The group
and function codes, and the type carried in the FMH are used to
select the relevant processing code. For CICS private model ~ile
control) requests and DL/I model requests, the processing code will
be that which constructs the standard parameter list. For queue
and schedule model requests the processing code distinguishes
between, for example, a transient data request and a temporary
storage request; control is then passed to the routine that
constructs the standard parameter list.
Working storage is then obtained to hold the standard parameter
list and values that were compressed for transmission. The storage
will also hold the POINTER and LENGTH variables that are to be set
as a result of executing a READ SET command. In the case of file
control requests, working storage also holds the transmitted key.
All remaining values are left in the input TIOA.
Before finally passing control back to DFHMIR transformation 2
places the address of the parameter list into the XF control block,
and also indicates whether DFHHEIP or DL/I is to be called.
3.
Transformation 3
DFHMIR invokes DFHXFP to prepare the reply for transmission. The
processing done during transformation 3 is very similar to that
carried out during transformation 1. The main difference is that
the EIB and UIB control blocks have to be considered in addition to
the standard parameter list.
The final actions taken during transformation 3 are to free the
working storage obtained during transformation 2 ~ote that this
does not include storage for a file control request) , and to
determine whether or not the mirror task can be terminated. This
test is complementary to that performed by DFHMIR. Control is then
returned to the mirror transaction program.
874
CICS/OSjVS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
4.
Transformation 4
The reply is received by DFHISP and then DFHXFP is invoked to set
up data areas and status fields from the data contained in the
input TIOA.
The selection of
that done during
execution of the
error condition;
the specific processing code is very similar to
transformation 2. During transformation 4
request is completed except for the raising of any
this is done by DFHEIP or DL/I.
Where the request was READ INTO, the reply is moved from the TIOA
into the user's designated area. For a READ SET request storage is
allocated to hold the reply. For all requests, status information
is moved into the EIB control block for CICS requests or into
TCAFCTR and TCADLTR for DL/I requests.
~L/I schedule requests
require special processing because much of the control block
structure on the remote system has to be reconstructed in the local
system.)
After freeing the input TIOA, DFHXFP returns control to DFHISP.
Section 3.
Program Organization
B75
LICENSED MATERIAL -- PROPERTY OF IBM
MIRROR TRANSACTION PROGRAM (DFHMIR)
The mirror transaction program ~FHMIR) executes under the transaction
identification CSMI. It is attached by terminal control on receipt of a
message on an intersystem communication TCTTE. Its function is to call
DFHEIP to execute the request, and then to return the response to the
requesting system. Depending on certain conditions the mirror
transaction will then be terminated.
The notes below refer to Figure 3-33.
Notes:
1.
Terminal control receives the request from DFHISP and attaches the
program (DFHMIR).
m~rror
2.
The transformation program ~FHXFP) is invoked to convert the
request into a form suitable for execution by the EXEC interface
program (DFHElp).
3.
The mirror program calls DFHEIP to execute the request. If the
mirror program is attached due to a DFHTC TYPE=~ITE,LAST)
request, then since no reply can be given, the mirror program
issues a DFHPC TYPE=RETURN macro to terminate immediately.
4.
otherwise, on receipt of the reply from DFHEIP, the mirror program
invokes DFHXFP to convert the reply into a suitable form for
transmission.
5.
The mirror program then issues a DFHTC TYPE= (WRITE, LAST) macro if
it detects that the request has completely terminated. If the
request has not terminated, DFHMIR issues a DFHTC TYPE= (WRITE,
WAIT, READ) macro. This macro is issued in the following
circumstances:
a.
If the mirror program has altered a recoverable resource.
b.
If the mirror program has executed a request that gives the
mirror program access to a file or positional information in
browsing or updating a file.
In the two cases above the termination of the mirror task will be
initiated, not by DFHMIR, but by the user issuing a sync point. On
receiving a PREPARE or SPR message as a result of the sync point,
DFHMIR will issue a DFHPC TYPE=RETURN macro. The mirror task is
thus terminated and return is then made via terminal control to
DFHISP.
876
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
2
Terminal
Control
Program
8.
.
./
....
"-
>
/
Mirror
Transaction
Program
(DFHMIR)
(0
v
8
V
=>
~
<:
8
>
Transformation
Program
EXEC
Interface
Program
or DLII
Transformation
Program
OPL95
Figure 3-33.
Section 3.
Mirror Transaction Program Interfaces
Program Organization
877
LICENSED MATERIAL -
PROPERTY OF IBM
JOURNAL MANAGEMENT (DFHJCP)
The Journal Control program ~FHJCP) communicates directly with three
otherCICS/VS management modules: Task Control, Program Control, and
Interval Control. In addition, it communicates with the operating
system and standard access'methods, and within its component parts.
Not all portions of the Journal Control program need be resident in
main storage. Some seldom-used Journal Control macro services are
performed by separate modules (transients) that are loaded into main
storage when required.
CICS/VS provides optional Automatic Journaling facilities for records
that are updated, deleted from, or added to a file control data set.
Automatic Journaling is specified in the File Control Table, by the
user, for each data set affected. For a specified data set, a record
read for update, a new record added, or an existing record deleted is
automatically written to the specified journal.
The notes below re.fer to Figure 3-34.
Notes:
1.
Journal Control~FHJC) macroinstructions are· communicated to
Journal Control through a special area, the Journal Control Area
(JCA). This area must be acquired for a task by means of a DFHJC
macro instruction. before any other DFHJC macro instructions are
issued by the task. Tbe TCAJCAAD field of the TCA then points to
the JCA for the duration of the task.
2.
The normal DFHJC macro expansion se~s indicators and addresses in
the JCA, before branching to Journal Control.
3.
Program Control services are requested by Journal control when a
request for a seldom-used macro service (for example, OPEN, CLOSE,
or input) performed by a nonresident module (transient) is
received. A DFHPC TYPE=LINK macro instruction is used to request
that Program Control load the program. All output and wait
requests are serviced by resident code.
4.
The Journal Control Open and Close transients use the Journal
Contrpl Open/Close List to communicate requests to an operating
system subtask, which then issues the actual Open or Close • The
main CICS/VS task remains dispatchable even while a journal open or
close is outstanding. Communication is. via OS/VS POST plus CICS/VS
Task control DFHKC TYPE=WAIT. The Journal control Open/Close List
is located at the start of the Journal Control program and is
mapped via COPY DFHJCOCL.
878
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
4
Application
ProRram
Journal Control
Open/Close List
TCA
I
TCAJCAAD
Application
Program
DFHJC
TVPE= ...
(X 2)
"~'"."o""o,
Are. (JCAI
Journal
Control
Program
g
Journal Control
OSIVS Subtask
0
Program
Control
Program
0)
Temporary
Storage
Program
TCTTE
1<
0)
8
DASD
so
Sequential
Disk Work File
Tape Work File
PCT
@
10
Journal
JCTTE
_t·
/!
ffJ ~--
e
Program
0
1nterval Control
Program
0
Journal
Buffer
\\
Task Control
Journal Control Table
DECB
LECB
Pool
1\
DCB
OPL33
Figure 3-34.
Section 3.
Journal control Interfaces
Program Organization
879
LICENSED MATERIAL -- PROPERTY OF IBM
5.
If this task requires logging for Dynamic Transaction Backout, a
decision is taken whether to log this record or not. If a record
is logged, user storage may be required for a dynamic buffer. If
the record will not fit into the buffer, the record 0+ the b~ffer
will spill to temporary storage. The queue used to spill to· is
idenitified by a byteX'FF' followed by the charactersDTB followed
by the task number.
Output requests cause journal records to be built in the
appropriate journal's buffer. Journal Control accesses the buffer
through pointers in the journal's Journal Control Table Table-Entry
(JCTTE). The JCTTE is the repository for all pointers associated
with the journal, thus enabling the main Journal Control program to
remain truly reentrant. The JCTTE is mapped via COPY DFBJCTTE.
The journal buffer was acquired at system initialization and is
owned as transaction storage by a separate, never~nding CICS/VS
journal task. Journal tasks, like CICS/VS Terminal Control, run at
high priority and enable I/O to. be scheduled rapidly and
effiCiently for.common high-usage resources--inthis case, journal
data sets. There is one CICS/VS journal task for each journal data
set.
6.
While building a journal record, Journal Control accesses the
system area of the caller's TCA for task number and to locate the
terminal identification and transaction identification, for
inclusion in the system prefix of the journal record. Journal
records are mapped via COpy DFBJCR.
7.
If I/O initiation is necessary, Journal Control uses the pointers
in the JCTTE to access and set up the journal's DTF. The OS/VS DTF
-is mapped via COPY DFBJCICA. Journal Control then links to the
Basic Sequential Access Method (BSAM) to initiate I/O. If
necessary, Journal Control issues a DFHKC TYPE=RESUME ~acro
instruction (a Task Control macro instruction documented only for
system progranuning) ~or the journal task, which in turn issues a
DFHKC TYPE=WAIT on the I/O event.
.
8.
If the user task wishes to wait ~ynchronize), Journal Control
issues a DFHKC TYPE=WAIT macro instruction on a special logical ECB
(LECB). The journal task will POST that LECB when the I/O
completes successfully.
.
9.
The Journal Control Table (JC~ contains a pool of LECBs, from
which LECBs are allocated and deallocated by Journal Control as
required. The LECB pool is controlled through pointers at the
beginning of the JCT,which is mapped via COPY DFHJCTDS.
10. When there is no outstanding output I/O event for a journal,
Journal Control issues a DFHKCTYPE=SUSPEND macro instruction
~nother Task Control macro instruction intended only for system
programming) to suspend the journal task.
.
11. In the particular case when the user task waits on a journal output
request for which STARTIO=NO was specified, then Interval Control
is called to provide a T~er Event Control Area which will limit
the user wait to a maximum of one second.
880
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
This page is left blank intentionally
Section 3.
Program Organization
881
LICENSED MATERIAL -- PROPERTY OF IBM
TASK MANAGEMENT (DFHKCP, DFHKCSP, DFHHPSVC)
The Task Control program ~FHKCP) can be divided into three functional
areas. The first of these supports the Task Control ~FHKC) macro
instruction by performing or initiating a particular service requested.
As for other CICSjVS service modules, the requesting task's TCA is the
communication vehicle and is in control during the execution of the
requested service. Unlike other CICSjVS service modules, however,
control is not returned directly to the requesting program. Instead
control passes to the second functional area of Task Control, known as
the Task Dispatcher. The CICSjVS system function of selecting the task
to be given control is performed. The third functional area comprises
the time-of-day and timer interruption routines that support CICSjVS
operations.
The notes below refer to Figure 3-35.
Notes:
1.
Issuing a DFHKC macro instruction causes a type of request code to
be set in TCATCTR in the requesting task's TCA. Processing enters
the Task Control macro instruction service logic. The register
contents are saved in TCATCRS, or in CSAOSRSA for RESUME and ATTACH
HTA services, and the requested service is performed or initiated.
While processing the DFHKC macro request other modules may be
called. DFHKCP also interfaces with DFHPCP to terminate tasks in
certain situations. During ATTACH macro processing the search code
in the DFHPCT table is used to find the PCT entry for the new
transaction ID. DFHSPP is called during DETACH macro processing
for DWE and sync point processing. If the task owned a terminal,
then during DETACH macro processing DFHTCPjDFHZCP are called to
free the terminal, DFHTSP is called to free data associated with an
automatically initiated task, DFHDIP is called to terminate
outstanding requests and free the DIB, and DFHICP is called to
cancel any ICEs associated with the task.
2.
Storage Control services are used by Task Control macro instruction
service logic. With the exception of task termination service, the
requesting task's TCA remains in control and is the communication
vehicle during Storage control processing.
3.
Upon entry to the Task Dispatcher, Task Control's TCA is activated
as an intermodule communication vehicle.
4.
If the expiry time of any ICE (describing a time-ordered event) has
passed, the Task Dispatcher calls a section of the Interval Control
program where such events are initiated. The time remaining until
expiration of the next time-ordered event is returned to the Task
Dispatcher of Task Control. This value is used when operating
system services are requested ~ee note 8 below) •
882
CICS/OSjVS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
5.
Two task chains are maintained by the Task Control program: an
active task chain and a suspended task chain. The Task Dispatcher
scans the active task chain when attempting to locate a
dispatchable task. The suspended task chain is scanned only during
exception processing ~or example, stall corrective action). The
elements on the chains are Dispatch Control Areas ~CAs), each of
which contains pointers to the previous and next elements on the
chain. In the case of the active task chain, the pointers address
the next higher priority DCA and next lower priority DCA ~CAKCFA
and DCAKCBA, respectively}. Each DCA also contains a pointer to
the associated task·s TCA ~CATC~. The CSA contains pointers to
the highest and lowest priority DCAs on the active chain (CSAACTBA
and CSAACTFA, respectively). The dispatchability of a task is
determined by examining the setting of the dispatch control
indicator ~TCDC) in the DCA. If it indicates that the task is
waiting on the completion of some event, the ECB associated with
the event wointed to by DCATCEA) is tested for completion posting.
The suspended task chain is not a priority-ordered chain. If a
task has a timeout value associated with it ~ATRTO is non-zero} ,
then task control will add the timeout task to the DCA chain in
timeout sequence. CSASUSFA addresses the DCA with the temporarily
most remote timeout value. KCP maintains an internal pointer
~CLTPTR) to the most imminent.
Tasks with no timeout value
~CATRTO is zero) are placed at the other end of the suspended
chain (addressed by CSASUSBA). Placement in timeout sequence helps
to minimize the overhead for tasks that have timed-out.
6.
If the Task Dispatcher determines that a task is dispatchable, its
TCA is activated, the task·s register contents are restored, and
control passes back to the module or program that requested the
Task Control service. During this processing, operating system
timer facilities may be used, as described in note B below, in
support of the runaway task control facility of CICSjVS.
7.
If the Task Dispatcher finds no CICSjVS task that is currently
dispatchable, it releases control of the CPU through operating
system WAIT facilities, requesting that control be returned to
CICSjVS upon completion of the next event. One of the events
represents the expiration of a time interval as noted in B, below.
Others may be associated with completion of I/O requests,
completion of SRB mode activity (see Note 13), etc.
B.
The Task Dispatcher interfaces with OS/VS timer facilities. When
dispatching a task, the OSjVS timer is set at the runaway task
interval value defined by the user. Its purpose is to interrupt
any task that is apparently looping and initiate its removal from
the system. When relinquishing control to the operating system,
the timer is set to the time interval remaining until expiration of
the next time-controlled event. This, in effect, requests that
control be returned to CICS/VS at a time no later than the
expiration of that interval. The dispatcher continually updates
the current time-of-day values in the CSA ~SATODP and CSACTODB) ,
but does not use the OSjVS timer facilities for this process.
Section 3.
Program Organization
B83
LICENSED MATERIAL -- PROPERTY OF IBM
9.
The Task Dispatcher either sets the operating system timer to a
maximum time that CICSjVS wishes to relinquish control to the
operating system via a WAIT, or uses the timer as a means of
interrupting an apparently looping (runaway) CICSjVS task. When a
time interval expires, the operating system gives control to the
Interval Control Timer Interrupt routine. Based on the setting of
an indicator in the CSA (CSAICRIN), the Timer Interrupt routine
determines which type of interval has expired. In a non-runaway
case, the Timer Interrupt routine merely posts the CICSjVS timer
ECB (CSATTECB) and returns control to the operating system.
10. If a runaway task interval has expired, the Timer Interrupt routine
takes steps to purge ~bnormally terminate) the apparently looping
task. The setting of bits in a system-maintained field in a task's
TCA ~CASVMID) indicate whether a task is currently executing in a
CICSjVS management module or the application program itself. In
the latter case, the Timer Interrupt routine ensures that an
immediate purge will be initiated when CICS/OSjVS is again given
control, then returns control to the operating system. This is
done by changing the next instruction operation code to X·OO' to
force a program check. The SPIE exit then sets the instruction
back to its former value and purges the task. If the runaway task
interval expired while a CICSIVS management module was executing,
the abnormal termination is deferred until control returns to the
application program. The Timer Interrupt routine then returns
control to the operating system.
11. Occurrence of a timer interrupt when the application program is in
control causes the Timer Interrupt routine to replace the -next
instruction 8 ~ddressed by the interrupt PS~ by an invalid
operation code. The consequent operation exception interrupt is
recognized by CICSIVS as indicating a runaway task situation. The
application code is restored by the program check routine, and the
offending task purged by resetting the interrupt PSW to address the
abnormal termination linkage in the CSA, see Note 12.
12. When exiting from a CICSjVS management module, the bits
representing the module in TCASVMID are set off. If all bits in
this indicator are off, the module exits to the task abnormal
termination linkage in the CSA.
13. The linkage in the CSA causes entry into the Task Abnormal
Termination routine, which requests abnormal termination by means
of a Program Control DFHPC TYPE=ABEND macro instruction. The
CICSjVS Program control program terminates the task.
14. If SRB support generated, tasks on the active chain may be running
under SRBs, rather than the CICSjVS TCB, during execution of
certain CICSjVS services. Such tasks must not, of course, be
dispatched by the normal (TCB mod~ CICSjVS task dispatcher. Upon
completion of the SRB mode service, a task becomes eligible for
nODnal TCB mode dispatch again. To indicate that a task has become
eligible in this way, the SRB mode service posts an ECB ~CAPECB in
the task's DCA), and places the HTA of the task on the stage chain
(SRASTGCH). The task dispatcher dispatches from the stage chain in
preference to the active chain except when the -next dispatch timefor the terminal control task ~SATCNDT) expires.
15. In response to an ENTER SRB mode or ATTACH HTA service, KCP issues
an SVC SRBSVC ~PO only). This causes control to pass to KCSP
running as an SRB. KCP itself continues in TCB mode.
884
CICS/OSjVS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
,
,
Requesting
Module/Progr.am
DFHKC
TYPE", '
OSIVS
Timer
Interrupt
Task Control
Services
Storage
Control
Program
Time',
OSIVS
WAIT
Interrupt
Routine
Task
Dispatcher
Interval
Control
Program
OS/VS
Timer
CSA
r -
CSAACTFA
CSAACTBA
CSASUSFA
I
I
OCA
Requesting
Program/Module
I
I
DCAKCFA
DCAKCBA
DCATCAA
TCATCEA
TCATCDC
TeATeRS
I
I
-+-1f-------.
I
CSATODP
CSACTOOB
,
Other
CICS/VS
I
I
I
I
__ J
ECB
<..J~
_ _---I
Abnormal
Termination
Routine
Program
Control
Program
OPL35
Figure 3-35.
Section 3.
Task Control Interfaces
Program Organization
885
LICENSED MATERIAL -- PROPERTY OF IBM
KEYPOINT PROGRAM (DFHKPP)
The Keypoint program
•
~FHKPP)
is activated for one of three purposes:
To collect and record data from system tables and control blocks,
and write that information to the Restart data set for use by the
System Initialization program ~FHSI~ in a subsequent warm start
of CICS/VS
•
To collect and record data from system tables and control blocks,
and write that information to the System Log for use by the
Recovery Utility program ~FHRUP) in a subsequent emergency restart
of CICS/VS
•
To record and retrieve records written to the Restart data set in
support of emergency restart. DFHRUP interfaces with DFHKPP to
cause records to be written to the Restart data set and the
Transaction Backout program ~FHTBP) interfaces with DFHKPP to
retrieve these records for recovery purposes.
The first of these functions is known as warm keypointing; the second
is called activity keypointing, and the third is called emergency
restart . support. System interfaces for warm keypointing and activity
keypointing are shown in Figures 3-36 and 3-37, respectively.
WARM KEYPOINTING
The notes below refer to Figure 3-36.
Notes:
1.
The Keypoint program is linked to by the System Termination program
~FHSTP) when the system is terminated in response to a user
request for termination.
2.
The System Recovery program ~FHSRP) may generate a link to the
Keypoint program when an unrecoverable error condition precludes
further execution of CICS/VS.
3.
Information collected by DFHKPP is written on the Restart data set
~FHRSD), which is a BDAM data set with user-specified block size
preformatted by DFHSIP.
4.
The collected information consists of:
PPT, PCT, and FCT - the entire tables
TCT
the nonswitched TCTTEs
DCT
the intrapartition entries and the bit map
TSUT - the auxiliary destination identifications, queue
counters, RBAs, and the bit map
Interval Control Elements ~CEs) and Automatic Initiate
Descriptors (AIDS) - the entire control blocks
886
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
Batch Control Areas ~CAS) - the entire control blocks and
their associated Write Request Elements ~REs)
CSA - certain fields, such as time intervals and maximum task
valu~s
When all data has been recorded, a time-stamped control record is
written to DFHRSD. This record contains DASD addresses of the data
and is used byDFHSIP at warm-start time.
5.
Control is then returned to the requesting module, either DFHSTP or
DFHSRP.
System
System
Termination
Recovery
Program
Program
(DFHSTP)
PPT
PCT
FCT
TCT
OCT
TSUT
ICE
AID
SCA
CSA
(DFHSRP)
Keypoint
Program
(DFHKPP)
OPL36
Figure 3-36.
Section 3.
Keypoint Program Interfaces During Warm Keypointing
Program Organization
SS7
LICENSED MATERIAL -
PROPERTY OF
I~
ACTIVITY KEYPOINTING
The notes below refer to Figure 3-37.
Notes:
1.
The need for activity keypointing is signaled when an aqtivity
keypoint frequency count is reached during Journal Control ~FHJCP)
logging of activity on the System Log (JID1).
2.
Journal Control attaches the task associated with transaction
identification CSKP. CSKP invokes the Activity Keypoint program
~l1.'HAKP)
•
3.
DFHAKP passes control to the Keypoint program
4.
DFHKPP gathers the TeA, DCT, and TCT information in buffers and
interfaces with DFHJCP to log this information on the System Log.
5.
DFHKPP returns to DFHAKP, which writes a time stamp to the master
terminal (CSMT).
888
~FHKPP).
CICS/OSjVS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
Journal
Control
(OFHJCP)
CSAKPACT = CSAKPFRQ
o
I
CSKP
I
~ctivity
Keypoint
Program (OFHAKP)
"V
OCT}
TCA
TCT
Keypoint
Program
(OFHKPP)
Journal Control
(OFHJCP)
OPL37
Figure 3-37.
Section 3.
Keypoint Program Interfaces During Activity Keypointing
Program Organization
889
LICENSED MATERIAL -- PROPERTY OF IBM
MESSAGE SWITCHING (DFHMSP)
Message Switching runs as a task under CICSjVS. A terminal operator
requests activation of this task by entry of the transaction
identification CMSG (or another installation-defined four-character
transaction identification), followed by appropriate parameters. Once
initiated, Message Switching interfaces with CICSjVS Basic Mapping
Support (BMS) and CICSjVS management functions. Although Message
Switching appears conversational to the terminal operator, the message
switching task is terminated with each terminal response. Through the
entry in the PCT which references program DFHMSP, the CICS/VS user can
define the transaction identification ~hich must be four characters
long) for message switching. Conversation is forced, if continuation is
possible, by effectively terminating the transaction with a DFHPC
TYPE=RETURN,TRANSID=XXXX, where XXXX is the transaction identification
taken from the task's PCT entry. Actually, XXXX is dynamically moved
into TCANXTID prior to issuing DFHPC TYPE=~ETURN.
The notes below refer to Figure 3-38.
Notes:
1.
If the first four characters of the TIOA (not including a possible
SBA sequence from a 3270 terminal) do not match the transaction
identification in the task's PCT entry, then this task must have
started as part of a conversation, because a previous task set up
the next transaction identification. A ·C· immediately following
the. transaction identification is also a force continuation. In
such a case, information has been stored in and has to be retrieved
from temporary storage (using a record key of one-byte X'FC', fourbyte terminal identification, and three-byte C'MSG ' ) to allow the
task to resume where it left off.
2.
The operands in the input TIOA are processed and their values and
status are stored in the TWA.
3.
If a ROUTE operand specifies Terminal List Table (s) (TLTs) for a
standard routing list, a DFHPC TYPE=LOAD macro instruction is
issued to request the Program Control program to load the requested
TLT (s) •
4.
Message Switching requests storage areas for:
a.
Building route lists (one or more segments, each of which has
room for the number of destinations specified by MSRTELNG, an
EQU within the program)
b.
Constructing a record to be placed in temporary storage
c.· Providing the message text to BMS if message parts from·
previous inputs exceed the current TIOA size, a message is
completed in the current TIOA but has parts from previous
inputs, or a heading has been requested but the message in the
current TIOA is too close to TIOADBA to allow the header to be
inserted.
890
CICSjOSjVS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
5.
Message Switching requests BMS routing functions by means of the
DFHBMS TYPE=ROUTE macro instruction. The message text is sent via
DFHBMS TYPE=TEXTBLD, and completion of the message is indicated by
DFHBMS TYPE=PAGEOUT. BMS returns the status of destinations and
any error indications in response to the DFHBMS TYFE=CHECK macro
instruction.
6.
Message Switching interfaces with BMS via DFHBMS TYPE=(EDIT,OUT)
and with CICS/VS Terminal Control via DFHTC TYPE=WRITE ~or 3270
only) , in providing responses to terminals. These may indicate
normal completion, signal that input is to continue, or provide
notification of input error.
7.
Like any other task, Message SWitching has a Task Control Area
(TCA) in which values may be placed prior to issuing CICS/VS macro
instructions and from which any returned values can be retrieved
after an operation. All values for the DFHBMS TYPE=ROUTE macro
instruction are placed in the TeA because they are created at
execution time. The TWA is used for storing status information
Wartly saved in Temporary Storage across conversations) and space
for work area. The DFHMSP module is coded reentrant.
Section 3.
Program Organization
891
LICENSED MATERIAL -- PROPERTY OF IBM
CMSG
1
Temporary
-"
~
J-- .
Storage
Message Switching
Control
Program
(Transaction
Identification CMSG)
~
-v
8
DFHTSIDA
.....
DFHTIOA
,..,.
. Program
Control
IProgram
Name DFHMSP)
8
8
G
Program
Storage
Control
0)
~
~
BMS
"Y"
~
Program
Terminal
Control
Program
0)
-"
~
TCA
il8
TWA
OPL38
Figure 3-38.
892
Message SWitching Interfaces
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -
PROPERTY OF IBM
This page is left blank intentionally
Section 3.
Program Organization
893
LICENSED MATERIAL -- PROPERTY OF IBM
MASTER TERMINAL PROGRAM (DFHMTP)
The Master Terminal program ~FHMTP) is an optional feature of CICS/VS
selected at sy.stem initialization. This program consists of seven
modules: DFHMTPA, DFHMTPB, DFHMTPC, DFHMTPD, DFHMTPE, DFHMTPF, and
DFHMTPG. It is a service program that provides the user with the means
of dynamically changing certain system parameters, the status of lines,
control units, or terminals.
The Master Terminal program is invoked by operator keying of the
proper transaction identification at a master terminal, a supervisory
terminal, or a single terminal. The transaction identification may be
followed by a series of keywords describing the services to be
performed. If the keyword CANCEL is entered anywhere in the original
message or subsequent entries, the Master Terminal program is terminated
immediately. If, while trying to perform a requested service, the
Master Terminal program discovers that insufficient information has been
entered, additional information is solicited from the requesting
terminal.
The notes below refer to Figure 3-39.
Notes:
1.
All transaction input under transaction identification CSMT, CSST,
or CSOT is placed in a TIOA accessible to DFHMTPA. The input is
scanned to determine whether sufficient keywords are present, to
fully specify the requested service. Keyword indicators are set in
the requesting task's TWA for all keywords entered. Control is
transferred to the DFHMTP module that will provide the requested
service. If time or runaway task services are requested, DFHMTPA
responds to the request. otherwise, additional information is
requested from the input terminal as needed. DFHMTPA interfaces
with Terminal Control for reads and writes and with Storage Control
to obtain necessary storage, as do all other DFHMTP modules.
2.
DFHMTPB responds to all requests for file, cushion, maximum task,
negative poll delay, and trace services. The File Control program
~FHFC~ is used to locate file entries in the File Control Table
'(FCT) •
3.
DFHMTPC responds to all requests for terminal services.
4.
DFHMTPD responds to all requests for open, close, and switch of
Dump data sets. The Dynamic Open/Close program ~FHOCP) is used to
perform the actual file open or close.
5.
DFHMTPE responds to all requests for Transient Data destinations,
stall, trigger level, and copy services. The Transient Data
Control program ~FHTD~ is used to locate destinations in the
Destination Control Table ~CT). Program Control (DFHPCP) services
are requested by means of a DFHPC TYPE=BLDL macro instruction when
responding to a NEWCOFY request.
6.
DFHMTPF responds to all requests for line, control unit, terminate
task~ and task list services.
Task COntrol is used to schedule a
task for termination.
7.
DFHMTPG responds to all requests for transaction and program
services.
894
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
B.
DFHSTP responds to requests for system shutdown.
DFHTlOA
EJ
SMT ....
1
,
CLOSE
File
!
Dynamic
Open/Close
Program
File
Control
Program
~
.
, .K_eyw_ord--,
~ndicators
Destination
~
Transient
Data
Control
Program
All READS/
WRITES
Terminal
Control
Program
DFHTCA
DFHTWA
Program
Control
Program
Task
Control
Program
All GETMAINs/
FREEMAINs
Storage
Control
Program
OPL39
Figure 3-39.
Section 3.
Master Terminal Program (DFHMTP)
Program Organization
Interfaces
895
LICENSED MATERIAL -- PROPERTY OF IBM
DYNAMIC· OPEN/CLOSE PROGRAM· (DFH()CP)
The Dynamic Open/Close program provides open/close capabilities for Dwnp
data sets, Transient Data extrapartitiondata sets, and File Control
data base data sets. These facilities may be invoked via the CICS/VS
Master Terminal program or through the use of DFHOC macro instructions
in an Assembler-language application program.
The notes below refer to Figure 3-40.
Notes:
1.
The DFHOC macro expansion issues a Program ControlDFHPC TYPE=LINK
macro instruction to transfer control to the Dynamic Open/Close
program. This transfer is transparent to the program issuing the
DFHOC macro instruction.
2.
Dynamic Open/Close communicates with
3.
896
a.
Storage Control, in response to all requests for services
b.
Dump Control in response to requests for open, close, or switch
of Dump data sets
c.
File Control for open or close of data base data sets and
initialization of indices
d.
Transient Data Control and Program Control for open or close of
extrapartition data sets
Return to the requesting program is achieved by means of a Program
Control DFHPC TYPE=RETURN macro instruction, which is transparent
to the requesting program.
.
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
ICIP
DATA
CONTROL
AREA
IDA
(FILE O/C)
/).
8
\J
TCA
Dynamic
Open/Close
Program
(DFHOCP)
Any
CICS/vS
Assembler·
Language
Program
OFHOC
TYPE=...
...,.
.JO.
~
File
Control
Table
(File
O/C)
(0
Destination
Control
Table
(TOO/C)
(0
I
r
Storage
Control
Program
(Always)
I
Dump
Control
Program
(Dump
File
Control
Program
(File
O/C)
O/C)
I
Transient
Data
Control
Program
(TOO/C)
I
Program
Control
Program
(TOO/C)
OPL40
Figure 3-40.
Section 3.
Dynamic Open/Close Program Interface
Program Organization
897
LICENSED MATERIAL --. PROPERTY OF IBM
PROGRAM MANAGEMENT WFHPCP)
The Program Control program ~FHPC~ may communicate with any CICS/VS
function or any user-written application program. In addition, CICS/VSsupported high-level language compilers interface with CICS/VS through
Program Control when they 'use the macro interface to CICS/VS.
The notes below refer to Figure 3-41.
Notes:
1.
Program COntrol ~FHPC) macro instructions establish fields in the
TCA to communicate with the Program Control program.
2.
ANS COBOL and PL/I modules that use the macro interface establish
fields in the TCA and communicate with Program Control en route to
other required CICSjVS functions.
3.
Any CICS/VS or user-written module may issue a Program Control
DFHPC TYPE=ABEND macro instruction to request that a task be
abnormally terminated.
4.
Control is passed to the calling program or the called program, on
the successful completion of a LINK, XCTL, LOAD, SETXIT, or RETURN
routine.
If the called program uses the Command Interface, DFHPCP invokes
DFHEIP to initialize the Command Interface environment.
5.
Calls from ANS COBOL and PL/I modules using the macro interface may
result in an exit to any CICS/VS management function.
6.
In the event of an ABEND, control may be passed to a user-specified
SETXIT module or subroutine. If, however, there is no SETXIT or
the SETXIT routine~) returns abnormally, the ABEND continues. In
this situation DFHACP will be invoked unless Dynamic Transaction
Backout is required, in which case DFHDBP will be invoked.
898
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
ANS
COBOL,
PL/I
Application
Program
0CA
f---DFHPC
TYPE= ...
0
(0
Program
Control
Program
(DFHPCPI
::::)
-
0
8
(0
Any
Application
Program
Program
Any
CICS/VS
Management
Module
DFHACP
or
DFHDBP
DFHPC
TYPE=
ABEND
-
I
Loader
Subtask
I
Storage
Control
Program
Dump
Control
Program
BCA
II
ITCTTEI
PPT
I
PAM I
Task
Control
Program
OPL34
Figure 3-41.
Section 3.
Program Control Interfaces
Program Organization
899
LICENSED MATERIAL -- PROPERTY OF IBM
RECOVERY UTILITY PROGRAM (DFHRUP)
The Recovery Utility program (DFHRUP) is invoked by the System
Initialization program (DFHSIP) in the event of an Emergency Restart.
The object is to restore the system to the point at which it was when
the breakdown occurred. Prior to calling DFHRUP, DFHSIP restarts the
PPT, PCT, TCT, FCT, DCT, and CSA.
~his is a cold start.)
DFHSIP also
provides a cold start for Transient Data and Temporary Storage and
builds their maps to indicate that all tracks or control intervals are
empty.
The notes below refer to Figure 3-42.
Notes:
1.
2.
During an Emergency Restart, the System Log is automatically
repositioned after the last record written during the previous
execution. DFHRUP interfaces with DFHJCP to read this data set
backwards in order to process System recovery data and to collect
user recovery backout data. The backward scan is completed when
the two following conditions are met:
a.
At least one complete Activity Keypoint (delimited by end and
start of keypointrecords) has been retrieved.
b.
The start-of-task record for all Logical Units of Work (LUWs),
in-flight at system te~ination, has been reached.
During the backward SCan, DFHRUP uses DFHKPP to output
Restart data. set the following data:
a.
to
the
Records output to the System Log by tasks (LUWs) that did not
complete processing before the system abno~ally terminated
(in-flight tasks). These records follow the standard Journal
COntrol Record Layout, they have the flag JCSPRRIF set ~in
field JCSPP1, and they are as follows:
~)
Records automatically logged by the File Control program
for data sets with the specification LOG=YES in the FCT.
(2) Records automatically journaled to the System Log by the
File Control program ~CP), according to the user-specified
option in the FCT.
(3) user-journaled records written to the System !ag that were
output by in-flight tasks.
Note: User-journaled records with the high-order bit set
ON in the JTYPEID which are encountered during the backward
scan, are copied over to the Restart data set regardless of
the status of the task (in-flight or complete). If the
task was completed, the flag JCSPRRIF is OFF in field
JCSPF1. user-written activity keypoint records should have
an identification as stated above in order to be accessible
from the Restart data set.
b.
900
Initial input and final output message per LUW logged by
Terminal Control program for terminals with the PROTECT option
group specified in the PCT.
CICS/OS/VS Program Logic:
Description
3.
c.
All input/output messages for in-flight tasks journaled by the
Journal control program as specified in the MSGJRNL=operand in
the PCT.
d.
All DL/I records logged to the system log that did not complete
processing before the system abnormally terminated.
e.
All update/replace records entered on the system log by the
Temporary Storage Control program, as specified in the
Temporary Storage Table ~ST).
The following tables are created by DFHRUP and later written to the
Restart data set using DFHKPP.
a.
The Transaction Backout Table ~BO) contains an entry for each
task in-flight at the time the system abnormally terminated.
There are two types of entries in the Transaction Backout
Control Record:
(1) In-flight tasks. These are tasks that caused records to be
written to the System Log, but failed to complete before
system failure. No special start-of-task record is written
to the System Log, but the first record logged for the task
is flagged as being start-of-task. WhenDFHRUP reads the
log backwards, and the first record found for a task is one
other than an end-of-task record, this task is considered
in-flight. DFHRUP must then find the corresponding startof-task indication to complete the collection of recovery
backout data for this task.
(2) Active tasks. These are tasks that completed a LUW and
started another, but did not cause any records to be
written to the.System Log during this LUW. Thus, during
DFHRUP processing, a completion of a LUW was found, but no
physical end-of-task (that is, task DETACH) was found.
b.
The File Backout Table WBO) contains an entry for each data
set for which a logged or journaled record was written to the
Restart data set.
c.
The Message Backout Table ~~ contains an entry for each
terminal for which logged or journaled message or message
resynchronization records were written to the Restart data set.
d.
The DL/I Backout Table ~BO) contains an entry for each inflight transaction that was scheduled to alter a DL/I data
base.
4.
DFHRUP links to the Transient Data Recovery program to create the
Transient Data bit map.
5.
DFHRUP links to the Temporary Storage Recovery Program, which
restores the Temporary Storage byte map (to reflect the recoverable
data records) and reschedules the recoverable ICEs.
6.
DFHRUP interfaces with the Transient Data program to write the
recovery statistics to the CSSL destination.
Section 3.
Program Organization
901
LICENSED MATERIAL -- PROPERTY OF IBM
7.
DFHRUP schedules any terminal dependentAIDls for Transient Data
destinations whose trigger level has been, reached or had been
scheduled prior to system abnormal termination.
8.
After building all' recovery information on the Restart- data set,
DFHRUP returns control to the System Initialization program which
passes control to the Transaction Backout program to perform
recovery processing.
System
Initialization
Program
0
(?ry
-
I
Journal
Control
Program
0
-
-
0
Restart
Data
Set
0
Recovery
Utility
Program
(DFHRUPI
0
Keypoint
Program
.....
,
~
0)
TBO
FBO
Transient
Data
Recovery
Program
Temporary
Storage
Recovery
Program
CD
Transient
Data
Program
0
Task
Control
Program
MBO
DBO
I
I
L
oPL 41
Figure 3-42.
902
Recovery Utility Program Interfaces
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
STORAGE MANAGEMENT
IDFHSCP)
The Storage Control program ~FHSCP) communicates with other CICS/VS
functions and user-written application programs to satisfy their storage
requirements. It makes extensive use of CICS/VS control blocks and
interfaces with other CICS/VS functions for special processing when
exception conditions arise.
The notes below refer to Figure 3-43.
Notes:
1.
All CICS/VS and user-written programs communicate their requests
for Storage Control services through the TCA. The address of
acquired storage is returned to the requestin~ program in the TCA.
2.
Storage Control determines the type of request by referring to the
TCA and returns the address of acquired storage in the TCA.
Storage associated with a task is chained off the TeA. When
working with terminal storage, the address of the TeTTE is found in
the TCA. Storage chained off the TCA can be frozen to aid problem
determination (for more information refer to the CICSIYS Problem
Determination Guide). Requests to free frozen storage are not
honored. The storage is only freed when the transaction that
acquired it is terminated.
3.
Storage Control maintains a chain of terminal storage through a
field in the TCTTE. A count of storage violations associated with
a terminal is also kept in the TCTTE. Terminal storage chained off
the TCTTE can also be frozen, as explained in note 2 above.
4.
Storage Control manipulates the short-on-storage (50S) indicator in
the CSA. The CSA is used to find the Page Allocation Map ~AM) a~d
the suspended Dispatch Control Area ~C~ chain. Statistics
related to storage control are kept in the CSA.
5.
The chain of suspended DCAs is searched by Storage Control when an
SOS condition occurs. Suspended requests for storage are retried
whenever storage becomes available for allocation.
6.
When the system i~ approaching a SOS condition, Storage Control
searches the Processing Program Table ~PT) for programs residing
in dynamic storage that are not currently in use. Program storage
for programs not in use is freed, and the PPT is changed to reflect
the fact that the program is no longer in storage.
7.
A count of the number of storage violations associated with a
transaction identification is kept in the Program Control Table
~~.
8.
The Page Allocation Map (PAM) contains dynamic values relating to
the allocating and freeing of storage. It also contains a map of
all pages in the dynamic storage area that indicates the current
disposition of each page.
Section 3.
Program Organization
903
LICENSED MATERIAL -- PROPERTY OF IBM
9.
If an unconditional request for storage cannot be satisfied,
Storage control issues a DFHKC TYPE=SUSPEND macro instruction,
which is a Task Control macro instruction used only by CICS/VS
management modules. The requesting task is suspended until the
storage request can be satisfied, at which time a DFHKC TYPE=RESUME
macro instruction ~lso used only by CICS/VS management modules} is
issued to request Task Control to start the task.
If an invalid request is issued, or an address specified in a
request is invalid, Storage Control issues a Program Control DFHPC
TYPE=ABEND macro instruction to request the Program Control program
to terminate the task.
10. If the Storage control program program-checks while attempting to
service a DFHSC TYPE=GETMAIN or DFHSC TYPE=FREEMAIN request, the
System Recovery program intercepts and passes control to the
Storage Control Recovery routine.
11. If Storage Control detects a storage violation while servicing a
DFHSC TYPE=GETMAIN or DFHSC TYPE=FREEMAIN request, control is
passed to the Storage Control Recovery routine. The Storage
Control Recovery routine optionally generates a formatted dump,
then fixes the storage problem and returns to Storage Control so
that the request that revealed the problem can be retried.
12. Storage items with task-related lifetime are normally put on a
chain suspended from TCASCCA, so that they can be freed
automatically at task termination or abend. If the task is
designated 'primed' in the PCT then these task-related areas are
allocated contiguously from within the primed allocation WRA}.
PRAs are normal storage areas (CLASS=SHARED) which are allocated,
one per primed task, as needed, as tasks of a particular type
become active. When a primed task terminates, its PRA is not
returned to the cornmon pool but placed instead on a chain of free
PRAs hanging off the PCT, to be reused when a new task of the same
type is attached. Free PRAs are only returned to the cornmon pool
at short-on-storage.
904
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
•
TCA
8
Program
DFHSC
TYPE = ...
")
f....
CD
CD
TCTTE
I
I'-....
Storage
Control
Program
(DFHSCP)
8
I
CSA
I
'"
Task
Control
Program
Program
Control
Program
System
Recovery
Program
CD
0
V'
r--...,
DCA
I
I
I
"'>
G
K"
CD
PPT
0
PCT
0)
PAM
\
~I
I
0)
K
;,.
G
>
7
Storage
Control
Recovery
Routine
~
f-..--.~
1,/-1-
Formatted
Dump
Program
OPL42
Figure 3-43.
Section 3.
Storage Control Interfaces
Program Organization
905
LICENSED MATERIAL -- PROPERTY OF IBM
SYSTEM INITIALIZATION PROGRAM (DFHSIP)
The System Initialization program ~FHSIP) is a non-real-time component
of CICS/VS and is resident only long enough to start up CICS/VS. It is
responsible for readying CICS/VS for communication and inquiry by the
user.
System initialization provides three classes of restart which are:
COLD
Complete reinitialization of CICS/VS and system data sets
without regard for any previous system activity.
WARM
This optional restart process reinitializes CICS/VS to the
status that existed at the previous system termination. This
type of restart assumes that the previous termination was
normal, that the system was quiesced prior to termination, and
that a warm keypoint was taken during that termination of
CICS/VS.
EMERGENCY
This optional restart process restores the system using
information recorded during the previous execution of the
system to a predefined point which existed prior to the
interruption.
Selection of startup options can be made in the System Initialization
Table specification (COLD or WARM) or in the override parameters (COLD,
WARM, or EMER) •
SYSTEM INITIALIZATION OVERLAYS
. User-written overlays can be added to the System Initialization program;
however, they must conform to CICS/VS naming conventions. All system
initialization overlays are seven-character names in the format,
DFHSlxy, where x is a letter from A to Z and y is a number from 1 to 9.
CICS/VS development reserves suffixes that end in 1 ~, Bl, ••• Zl).
User overlays may use any other two-character suffix.
Overlay processing in system initialization is driven from the System
Initialization Table SIMODS=parameter. User overlays can be inserted at
any point in system initialization, but the sequence of CICS/VS overlays
must not be disturbed. CICS/VS is responsible for common subroutine and
overlay linkage ~ssuming that these routines are not modified) , and
normal system initialization functions.
.
A list of System Initialization subroutines, and the conventions for
calling them, is in the CICS/VS System Programmer's Reference Manual.
The following areas are always addressable to System Initialization
overlays at entry and must be addressable at exit:
906
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
Register
13
5 (SIPPLAR)
4 (SIPBAR1)
~
Common
System
System
System
System Area (CSA)
Initialization Table (SIT)
Initialization Common Area (SIPCOM)
Initialization Common Routines '
In addition, at entry to an overlay, registers 3 (SIPBAR) and
contain the entry point address of the overlay and that
address plus 4096, respectively, for addressability purposes.
9~IPBAR2)
The following fullword fields are supplied as parameter-passing
fields between user overlays of System Initialization. These fields are
not used by CICS/VS overlays.
SIPARMP6
SIPARMP7
The notes below refer to Figure 3-44.
Notes:
1.
System Initialization receives control from the OS/VS Initiator.
Parameters may be passed to System Initialization through the PARM
operand of the EXEC statement by which it is invoked.
~hese
parameters are documented in the CICS/yS System programmer's
Reference Manual.)
2.
The Restart Data Set is a DAM file, used by the Keypoint program
~FHKPP) to save certain system information at system termination
time so that a warm start or emergency restart can be initiated
later. System Initialization can warm start the following CICS/VS
control information:
Program Control Table (pCT)
Processing Program Table (pPT)
Terminal Entries (nonswitched)
File Control Table (FCT)
Selected areas from the Common System Area (CSA)
Destination Control Table ~CT) Intrapartition Entries
Transient Data Intrapartition space allocation bit map
Identifications and Relative Byte Addresses for Temporary Storage
auxiliary destinations/queues
Temporary Storage space allocation bit map
Interval Control Elements (ICE) and Automatic Initiate
Descriptors (AID)
Batch Control Areas (BCA) and write Request Elements~RE) for ATP
3.
When emergency restart is invoked via the START=EMER keyword, the
System Initialization program will take the following action:
a.
Reposition the system log.
b.
COLD start the PPT, PCT, TCT, FCT, DCT, CSA, Transient data bit
map, and the Temporary Storage maps.
c.
Link to the Recovery Utility program which reads the system log
and builds recovery data and tables which are written to the
Restart data set.
Section 3.
Program Organization
907
LICENSED MATERIAL d.
4.
PROPERTY OF IBM
Link to the Transaction Backout program which reads the
recovery data and backs out the effects of transactions in
process prior to system termination.
The System Initialization program does the following:
a.
Builds the CICS/VS nucleus (for High-Performance Option (BPO)
certain modules are loaded in protected storage and control
blocks required for Service Request Block ~RB) processing are
constructed in the System Queue Area (SQ~. Authorization is
relinquished after this has been completed) •
b.
Initializes data sets
c.
Opens system and user data sets ~or ICIP data sets page fixed
buffers are allocated and in-core indexes are constructed if
specified in the File Control Table WCT».
d.
Constructs and initializes tables.
e.
Builds the CICS/VS dynamic storage pool.
5.
The CICS/VS Program Library is accessed by means of BSAM READs to
build the CICS/VS nucleus, load tables, load resident application
programs, and initialize the Processing Program Table ~P~.
6.
Interface to CICS/VS nucleus modules is required during postinitialization processing, both by System Initialization and by
application programs running at this time. System Initialization
always interfaces with Storage control, Task Control, Interval
Control, and Program Control and may interface with Temporary
Storage Control, Transient Data Control, File Control, and System
Recovery. All interface to CICS/VS nucleus modules is done under
Terminal Controlls Task Control Area ~CA), which is -borrowedtemporarily as a communication vehicle.
7.
System Initialization first passes control to the dummy CSA module
via an OS/VS XCTL. This frees the storage area occupied by System
Initialization for use by OS/VS. The dummy CSA module branches to
the CICS/VS Terminal Control program, which begins polling.
908
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
•
o
o
Job
Step
Initiation
System
Initialization
Program
(DFHSIP)
:>
Terminal
Control
Program
(TCP)
0)
"-~
Restart
Data
Set
....
o
;.
0)
~
Orr>
....
f'r-
-
CICSIVS
Program
Library
Log
O·
Recovery
Utility
Program
(RUP)
~
~
tTerminal
Control
TCA.
Transaction
Backout
Program
(TBP)
.-.
.....
(0
I
File
Control
Program
(FCP)
I
I
Storage
Control
Program
(SCP)
Task
Control
Program
(KCP)
Temporary
Storage
Control
Program
(TSP)
Transient
Data'
Control
Program
(TOP)
System
Recovery
Program
(SRP)
I
Interval
Control
Program
(iCP)
Program
Control
Program
(PCP)
OPL43
Figure 3-44.
Section 3.
System Initialization Interfaces
Program Organization
909
LICENSED MATERIAL -
PROPERTY OF IBM
SYNC POINT PROGRAM (DFHSPP)
The Sync Point program ~FHSP~ is one of the modules w~thin CICS/OS/VS
enabling the user. to participate in recovery/restart processing. The
recovery/restart features are available as an option to CICS/OS/VS
.
users. DFHSPP is invoked by the Task Control program ~FHKC~ whenever
a task is detached wrovided DFHSPP has some work to do - DFHKCP checks
firs~.
It can be invoked by an application. program. Generally, DFHSPP
services need be invoked by application programs only when tasks are
long-running tasks. In such a case, it is used to divide the task into
shorter units, referred to as logical units of work (LUWs), which better
fit recovery requirements.
Deferre~I.Work Elements ~WEs) are created by CICS/VS management
modules, chained off the task's TCA through the TCADWLBA field, and
represent deferred processing to be done upon completion of.a logical
unit of work or changes to be backed out if the LUW is abandoned by the
user. The module that creates a DWE can insert an entry address of a
DWE processor in that DWE. Control is passed to this DWE processor at
the end of the task or LOW by the Sync Point program.
Three types of DWEs
exis~:
~r
•
work is to be done
previous work backed out)
•
data is to be logged
•
some work is to be done and data is to be logged
A OWE processor pointed tobya work-only DWE can create another DWE,
indicating that logging is required.
The Sync Point program examines the DWE chain in the following way:
•
If DFHPC TYFE=ROLLBACK was specified, DFHDBP is invoked to scan the
DWE chain and dynamic log, and to back out changes as required.
•
Scan the chain and pass control to a DWE processor if work is to be
done only.
•
Scan the chain and log data as required.
•
Scan the chain and pass control to the DWE processor required for a
DWE requiring both work and logging (the logging was completed on
the previous scan) •
A DWE indicating both work and logging to be done can be looked upon
as saying:
The data that is being written to the System Log represents the
intention of the DWE processor. If the system. terminates
abnormally before the DWE processor has finished its work, the
System Log tells CICS/VS modules involved in recovery what to do
during emergency restart.
910
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
The notes below refer to Figure 3-45.
Notes:
1.
DFHSPP is entered from either the Task Control program or an
application program.
2.
For a rollback request, OWEs and dynamically logged records from
the current LUW are dealt with by the dynamic backout program
(DFHDBP) •
3.
The DWE chain is scanned, and control is passed to DWE processors.
Upon return from a DWE processor, the DWE is freed.
q.
The DWE chain is scanned, and data is logged via Journal Control.
5.
An end-of-task record is written to the System Log via Journal
Control.
6.
Scan intersystem TCTTEs issuing 'REQUEST COMMIT' and • COMMIT ,
commands (via DFHTC CTYPE=PREPARE and CTYPE=SPR respectively) to
synchronize associated work on remote systems.
7.
The DWE chain is scanned, and control is passed to DWE processors.
Upon return from a DWE processor, the DWE is freed.
8.
All resources enqueued upon through the Task Control DFHKC TYPE=ENQ
facility are dequeued.
9.
Reinitialize the dynamic log ready for the next logical unit of
work.
Section 3.
Program Organization
911
LICENSED MATERIAL -
PROPERTY OF IBM
Deferred Work
Element
(DWE)
9
3,7
A<
V
I\.
Dynamic Log
DWE
Processor
~
Task Control
Program
<
e
I"
0
.A
I-
~
Appl ication
Program
DFHSP TYPE
=USEFl
<
1-
Sync Point Program
(DFHSPP)
<
<.0
Storage
Control
Program
1/
I\,
8
i/
CD
Task
Control
Program
"
<
Dynamic Backout
Program
0
./
Journal
Control
Program
<
Terminal
Control
Table
OPL96
Figure
912
3-45~
Sync Point Program Interfaces
CICSjOS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
This page is
Section 3.
~eft
Program Organization
blank intentionally
913
LICENSED MATERIAL -
PROPERTY OF IBM
SYSTEM RECOVERY MANAGEMENT (DFHSRP)
The System Recovery program (DFHSRP) is a generalized abnormal
termination handler that receives control from the operating system when
a program check or ABEND condition is recognized. It provides program
interrupt logic for the capture and recovery of program-check interrupts
and system ABENDs. A program check interrupt normally causes DFHSRP to
invoke a DFHPC ABEND of the task in which it arose. A system ABEND
condition may be handled by user code or IBM-supplied code, after which
CICS/VS will attempt to continue to run.
The notes below refer to Figure 3-46.
Notes:
1.
The System Recovery Program is given control as a SPIE exit.
2.
If the System Recovery program determines that a program check or
ABEND condition has occurred during an error condition, or that the
current task is a system task, it issues a message, forces a dump,
then terminates CICS/VS. Otherwise, it returns control to DFHPCP,
via the operating system, to terminate one task with abend code
ASRA.
3.
Invocation of the System Recovery program as a STAE exit (OS/VS1
and OS/VS2 Release 1) 'or an ESTAE exit (OS/VS2 Release 2 onwards)
causes it to search the System Recovery Table for an entry
containing the actual system AB code.
4.
If a match is found, the routine specified is invoked or the named
program LINKed to. The routine may be that supplied by IBM as part
of DFHSRT.
5.
Following the recovery logic, a DFHPC TYPE=ABEND macro instruction
is issued to abnormally terminate the offending task. If recovery
has been achieved successfully, execution of CICS/VS can continue.
If a recovery cannot be effected, or if no recovery was attempted,
a keypoint is taken ~ptionally) and CICS/VS is terminated.
•
For Systems with High-Performance option (HPO) the Service Request
Block (SRB) in the System Queue Area (SQA) is freed by using a CICS
SVC (DFHCSVC).
914
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
~
~
Operating
System
~
(2)
System
Recovery
Program
(DFHSRP)
./
:;:
Program
Control
Program
,/
(0
;>
SRT
(0
D
Keypoint
Program
User
Exit
~
Temporary
Storage
Control
Program
OPL45
Figure 3-46.
Section 3.
System Recovery Interfaces
Program Organization
915
LICENSED MATERIAL -- PROPERTY OF IBM
SYSTEM TERMINATION PROGRAM (DFHSTP)
The purpose of System Termination ~FHST~ is to provide for an orderly
shutdown of CICS/VS. It is activated by the Master Terminal program
~FHMTP~ when that program is responding to a shutdown request entered
by the CICS/VS master terminal operator.
The notes below refer to Figure 3-47.
Notes:
1.
The Master Terminal program (DFHMTPA) transfers control to DFHSTP
by means of a Program Control DFHPC TYPE=XCTL macro instruction
when a CSMT SHUTDOWN request has been entered by the CICSjVS master
terminal operator.
2.
The Transaction List Table (XLT) and Program List Table WL~ are
loaded via Program Control from the CICS/VS Program Library
~FHRPL) •
3.
Terminal activity is quiesced via an indicator in the CSA. This
tells Terminal Control not to attach any transactions other than
those specified in the XLT. The termination task logically
disconnects itself from the physical terminal to allow other
activity on that terminal.
4.
The termination task allows all other tasks ~xcept any journal
tasks) to complete before linking to the first program specified in
the first portion of the PLT.
5.
When all programs in the first portion of the PLT have executed,
terminal activity is quiesced completely via an indicator in the
CSA. The ICE, AID, and BCA chains are broken (addresses saved in
the TW~ , and the programs specified in the second portion of the
PLT are executed.
6.
CICS/VS-DL/I Interface and Journal Control (subtasks) are
terminated; Temporary Storage Control ~FHTSP) is requested to
output its buffer; statistics are taken by means of a link to the
System Statistics program ~FHSTKq; and a keypoint is taken by the
Keypoint program ~FHKP~.
7.
Control is returned to the operating system, with or without a dump
~epending upon the parameters specified in the shutdown request
causing termination) •
For Systems with High-Performance Option ~PO) the Service Request
Block (SRB) in the System Queue Area ~QA) is freed by using a CICS
SVC ~FHCSVC).
If an immediate shutdown is requested, no load of tables, terminal
quiescing, or execution or programs specified in the PLT (see .notes
2, 3, 4, and 5) occurs.
916
CICS/OSjVS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
Master Terminal
Program
(DFHMTPA)
DFHRPL
CSA
TCA
System Termination
Program
(DFHSTP)
OSIVS
DUI
DFHJCP
DFHTSP
DFHSTKC
DFHKPP
OPL46
Figure 3-47.
Section 3.
System Tennination Interfaces
Program Organization
917
LICENSED MATERIAL -
PROPERTY OF IBM
TERMINAL MANAGEMENT (DFHTCP, DFHZCp)
The Terminal Management function consists of seven CICS control modules,
DFHTCP, DFHZCP, DFHZCX, DFHZCA, DFHZCB, DFHZCY, and DFHZCZ. DFHZCP and
DFHZCX provide the common functions (VTAM and non-VTAM) while DFHZCA,
DFHZCB, DFHZCY, and DFHZCZ provide VTAM only support. DFHTCP provides
the non-VTAM support. The Terminal Management function communicates
with user-written application programs, CICS/VS System Management
functions ~ask Control, Storage Control) , CICS/VS Application Services
~asic Mapping Support), System Reliability functions (abnormal
condition handling), and with operating system access methods (BTAM,
GAM, SAM, or VTAM). Requests for Terminal Management functions made by
application programs, BMS, or Task Control, are processed through the
common interface of DFHZCP. Generally Terminal Management requests for
other CICS/VS or operating system functions are issued by anyone of the
six DFHZC modules (VTAM support) or by DFHTCP, depending upon the
terminal being serviced.
The notes below refer to Figure 3-48.
Notes:
Common Interface
1.
When a Terminal Management ~FHT~ macro instruction is issued by
an application program or by the Basic Mapping Support program
(BMS) , request bits are set in the user's TCA ~ransaction Control
Area) and control is passed to the common interface (VTAM, nonVTAM) routines of DFHZCP.
2.
If the DFHTC macro instruction includes a WAIT request and the
IMMED option is not in effect, control is passed to Task Control to
place the requesting program (task) in a suspended state. If a
WAIT request is not included, control is returned to the requesting
task.
3.
The task's TeA contains either a field named TCAFCAAA (Facility
Control Area Associated Address) a pointer to the terminal with
which the task is associated, or a field named TCATPTA in which the
address of the TCTTE to be used may be passed.
4.
Task Control dispatches Terminal Management through the common
interface for one of the following reasons:
918
a.
The system partition/region exit time interval (specified in
the ICV operand of the DFHSIT macro instruction by which the
System Initialization Table is generate~ has elapsed.
b.
The Terminal Management event initiated by the DFHTC macro
instruction has been posted complete (non-VTAM ECB posted or
exit scheduled in the case of VTAM) •
c.
Neither a nor b, above, has occurred, but one second has
elapsed since the last time Terminal Management was dispatched
with a pending request to be serviced.
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
5.
Terminal Management through its common interface, requests Task
Control to perform a CICSjVS WAIT when Terminal Management has
processed through the terminal network and has no further work that
it can do •.
Access Method Dependent Interface
6.
Terminal Management communicates with Storage Management by means
of DFHSC TYPE=GETMAIN or FREEMAIN macro instructions to obtain and
release storage as follows:
Non-VTAM
DFHTCP issues DFHSC macro instructions to obtain and release
terminal· and line storage.
Anyone of the six DFHZC modules issues DFHSC macro
instructions to obtain and release terminal, line (line class
is used for the Receive-Any 1/0 areas), and RPL storage.
7.
8.
Terminal Management communicates with Task Management by means of
the DFHKC macro instruction. The macro instruction is issued by
anyone of the seven CICS control modules, depending upon the
terminal being serviced. Terminal Management may request Task
Management to perform one of the following:
a.
attach a task upon receipt of a transaction identification from
a terminal
b.
respond to a DFHKC TYPE=AVAIL request (a Task Control macro
instruction documented only for" system programming) when a
time-initiated task is indicated"for a terminal and that
facility is available.
Terminal Control communicates with operating system access methods
in either of the following ways, depending upon the terminal being
serviced:
Non-VTAM (DFHTCP)
DFHTCP builds access method requests in the DECB, which is part
of the TCTLE. The DECB portion of the TCTLE is passed to the
access method by Terminal Management to request a service of
that access method. The access method notifies Terminal
Management of the completion of the service through the DECB.
Terminal Management analyzes the contents of the DECB upon
completion to determine the type of completion and to check for
error ·information.
"
Section 3.
Program Organization
919
LICENSED MATERIAL -"- PROPERTY OF IBM
VTAM (DFHZCP)
DFHZCP builds VTAM request information in the RPL which is then
passed to VTAM for servicing. VTAM notifies Terminal
Management of completion by placing completion information in
.the RPL. DFHZCP analyzes the contents of the RPL upon
completion to determine the type of completion and the presence
of error information. Communication with VTAM also occurs by
VTAM scheduling exits, for example, LOGON or LOSTERM. VTAM
passes parameter lists and does not always use the RPL.
When authorized path VTAM has been generated, communication
with VTAM also occurs in SRB mode (using DFHZHPRX); DFHZCP uses
the RPL with an extension to communicate with its SRB mode
code. When an SRB modeRPL request is complete, DFHZCP will
call the relevant exit of post the ECB, as indicated by the RPL
extension.
9.
Terminal Management communicates with the CICS/VS abnormal
condition functions in either of the following ways, depending upon
the terminal being serviced:
Non-VTAM
DFHTCP attaches the Terminal Abnormal Condition program ~ACP)
and passes a Terminal Abnormal Condition line entry ~ACLE)
when an error occurs. The TACLE is a copy of the DECB portion
of the TeTLE and contains all information necessary for proper
evaluation of the error, plus special action indicators that
can be manipulated to alter the error correction procedure.
After the DECB has been analyzed, it is passed to the user1s
error recovery program (DFHTEP).
DFHZCA attaches the Node Abnormal Condition Program (NACP) When
an error occurs. DFHNACP does some preliminary error
.
processing and then passes control to the user1s Node Error
Program (DFHNEP). Upon the completion of the user1s error
processing, control is returned to DFHNACP.
10. Terminal Management executes either under the user·s TCA or its own
TCA as follows:
User1s TCA
a.
During the application program interface
b.
During the interface with Basic Mapping Support
c.
While performing non-chained VTAM terminal requests
Terminal Control's TeA
920
a.
When Task Control dispatches Terminal Control
b.
When Terminal Control issues a request to Task Control (DFHKC)
c.
When Terminal Control issues a request to Storage Control
(DFHSC)
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
d.
While performing non-VTAM terminal I/O or chained VTAM terminal
I/O
Since many devices are supported by CICSjVS Terminal Management, the
number of modules required to provide this support is significant.
Figure 3-49 through 3-53 give an overview of the interrelationships and
functions within Terminal Management.
o
Terminal Control
)~er
TCA
o
TCAfCAAA
TCTTE
Bas1c
Mal-mmg
Supporl
8
G
-,..:.~=----.,
TCTTEOS
TCTTECS
TCTTECAI
TCTTEOCI
o
Termtnal Control Program
DFHZCP Common Inlerface
(VT AM. Non VTAMl
DFHZCP
VTAM
Support
DFHTCP
Non VTAM
Support
Program
User's
Terminal
Error
Program
Task
Control
Program
OPL47
Figure 3-48.
Section 3.
Terminal Management Interfaces
Program Organization
921
LICENSED MATERIAL --. PROPERTY OF IBM
y
PROCESS VTAM
COMPLETED
SRB MODE RPLS
(
DFHZRVXl
DFHZSDXl
TCTVRAEB
ENTRY
FROM SIP
I
I
PROCESS VTAM
RECEIVE-ANY
VTAM ACTIVE
ANALYSIS
DFHZRACl
DFHZDSPl
1
I
INITIALIZE
VTAM NETWORK
PROCESS VTAM
ACTIVATE CHAIN
DFHZSLSl
ENTRY
FROM KCP
DFHZACTl
I
I
ATTACH
INITIALIZATION
TABLE
ISSUE
DFHKC=WAIT
ON ECB LIST
DFHZAIT1
TCZDSP9
l
(RETUR N
FROM WAIT)
POSTED BY TIMER
OR EVENT COMPLETION
I
8
LOCA TEfSTA TUS
fATI
LOCA TEfSTATUS
fATI
APPLICATION
REQUEST
DETACH
DFHZLOCl
DFHZLOCl
DFHZARQl
DFHZDET1
SYNC POINT
PROCESSING
COMMAND
REQUEST
DFHZLOCl
DFHZCROl
OPL48
Figure 3-49.
922
(Part 1 of 2).
Terminal Management Common Control Routine
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -
PROPERTY OF IBM
01
INITIALIZE
LINE
SCAN
SYSTEM
TERMINATING
o
1-.:=:.:..:..;:;:.__.1
ECB LIST
LINE
ADVANCE
SYSTEM NOT
TERMINATING
....oo
NOT LAST Eca IN LIST
::;
LINE OUT OF SERVICE
ERROR PENDING
LINE STATUS
AND TIMER
F=="'::":~:!!!.!!:!=---i-~AN~A~L!::Y~SI~S~_~ TIMER EVENT
~
CD
U
.....T_C_C_C.;;L.:;,LE;:,..._---J POSTED
w
....
~
LINE STATUS
WAS INITIATED
-'
1";;\
ADVANCE
TO NEXT \.::,)
LINE
ANALYZE
CURRENT
ECB
TCCCTMR
TCCCTECB
t;\
\::.J
TCCCANE
EVENT
COMPLETED
t
SELECT
DEVICE·
DEPENDENT
MODULE
START/STOP,
3270 LOCAL,
SEQUENTIAL
(2540/14031, OR
TeAM
BISYNC
NONSWITCHED
OPL1t2
Figure 3-49.
Section 3.
(Part 2 of 2).
Terminal Management Common control Routine
Program organization
923
LICENSED MATERIAL -- PROPERTY OF IBM
NONOIAL BISYNC
EVENT COMPLETION
ANAL YSIS
INITIALIZE
TERMINAL SCAN
TCBSNATS
OOCTCPMB
NONDIAL BISYNC
TERMINAL ENTRY
SEARCH
TERMINAL SCAN
TCBSNITS
TERMINAL ADVANCE
TCBSNTA
OPL49
Figure 3-50.
Terminal Management Bisync Nonswitched Routine
(
924
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
TERMINAL SCAN
TCBSDITS
COMMON BISYNC
EVENT COMPLETE
ANALYSIS
DOCTCPKB
TERMINAL
ADVANCE
TCBSDTAR
DIAL DEVICE
DETERMINATION
TCBSDDD
SWITCHED LINE
TERMINAL
ANSWERBACK
SWITCHED LINE
EXPANDED I: D.
VERIFICATION
OPL50
Figure 3-51.
Section 3.
Terminal Management Bisync Dial Routine
Program Organization
925
LICENSED MATERIAL 4a
PROPERTY OF IBM
ENTRY. FROM
SELECT DEVICE·
DEPENDENT ROUTINE
PAGE 1
3270
LOCAL
DFHL70E
[
1050 DIAL
I
DFHT50DE
I
I
SYS7 DIAL
I
DFHTS7E
I
TWX
I
1
2740 DIAL
DFHT40DE
I
2741 DIAL
DFHT41DE
I
I
I
DFHTWXE
r
TLX
I
I
DFHTXLE
r
2740
I
7770
DFHT77E
..
I
1
DFHT40E
I
SYS 7
DFHTS7E
I
1050
DFHT50E
I
~
2741
DFHT.41E
I
SAM
I
DFHTDSMA
I
T
TCAM
DFHTCAM
1a
EXIT TO LINE
ADVANCE
PAGE 1
OPL51
Figure 3-52.
926
Terminal NanagelT'ent 3270/5S Routines
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -
PROPERTY OF IBM
ENTER FROM
SELECT TERMINAL
MQQJ,!ll. PAGE 1
IDFHTCSTDI
DFHXXXXX
DEVICE·DEPENDENT ROUTINE
ENTRV POINT NAMES
DEVICE
TVPE
OUTPUT EVENT
COMPLETION
ANALVSIS
INPUT EVENT
COMPLETION
ANALVSIS
EXIT
EXIT TO
ITCCCTMR I
EP NAME
XXXXX
3735 DIAL
35DI'E
3740 DIAL
74DEE
3740
74NEE
2780 DIAL
80DEE
2770 DIAL
70DEE
3270
32NEE
3275 DIAL
37DEE
2770/3780
70NEE
2980
29NEE
3270 LOCAL
L70E
1050 DIAL
T50DE
2740 DIAL
T40DE
SVS7 DIAL
TS7E
2741 DIAL
T41DE
TXL
TXLE
TWX
TWXG
7770
T77E
2740
T40E
SVS7
TS7E
1050
T50E
2741
T41E
SEOUENTIAL
TDMSA
TCAM
TCAMM
(ADVANCE TO NEXT
LINE AND WAIT)
PAGE 1
TCP - GENERAL FLOW
··DEVICE·DEPENDENT MODULES··
OPL52
Figure 3-53. Terminal Management General Flow through Device-dependent
Modules
Section 3.
Program Organization
927
LlCE~SED
MATERIAL -
PROPERTY OF IBM
TRANSAC'l.'ION BACKOUT PROGRAM (DFHTBP)
The Transaction Backout program is invoked by the System Initialization
program in the event of an emergency restart." It reads recOvery data
from the restart data set, previously written .thereby the Recovery
Utility program. It passes control to user .exits and constructs the
Temporary Storage message cache and res end slot, which are used in
message resynchronization and message representation.
The following notes refer to Figure 3-54.
Notes:
1.
DFHTBP is invoked by DFHSIP in an emergency restart, via a
conditional program control link.
2.
DPBTBP reads data from the restart data set. . This (lata comprises
the Transaction Backout Table, File Backout Table, Message Backout
Table, DL/I Backout Table, and transaction backout data.
3.
DFHTBP saves messages for inflight tasks and unresponded-to output
messages in a Temporary Storage user message cache and resend slot.
4.
Records are read via requests to the Keypoint program.
5.
The Storage Control program is invoked to acquire and free storage
areas.
6.
user-written exits, if present, are given control.
7.
The Transient Data program is used to write messages, which aiso go
to the operator console.
8.
The File Control program is invoked to backout the effects that
inflight tasks had on data bases under its control.
9.
928
DFBTBP restores sequence numbers in VTAM terminal entries
(including entries for terminals involved in intersystem
communication). If in doubt when intersystem links failed, the
description of the original failure is reconstructed ~s a list of
message inserts) and chained off the terminal control table entry
. for use during session recovery.
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
A8~)
f;\
A\.J
Temporary
Storage
Program
.Q ()
K
v
"
~>
Transaction
Backout
Program
(DFHTBP)
DFHRSD
A8~
i<...
"
0)
User
Exits
v
~
9
File
Control
Program
Keypoint
Program
Storage
Control
Program
Transient
Data
Program
Terminal
Control
Table
OPL97
Figure 3-54.
Section 3.
Transaction Backout Program Interfaces
Program Organization
929
LICENSED MATERIAL -- PROPERTY OF IBM
TRANSIENT DATA MANAGEMENT (DFHTDP)
The Transient Data Control program (DFHTDP) communicates directly with
three other functions of the CICS/VS System Management component. These
are Task Management, Storage Management, and Program Management (the
Task Control program, Storage Control program, and Program Control
program, respectively). The application program communicates with
DFHTDP through use of DFHTD macro instructions.
The notes below refer to Figure 3-55.
Notes:
Intrapartition
1.
An application program request for Transient Data services causes a
request code to be set in TCATDTR, signifying GET, PUT, PURGE,
LOCATE. The destination identification is placed in TCATDDI.
Control is passed to the Transient Data Control program.
2.
The field TDDCTDID is used to search the DCT for the destination
requested.
3.
If an invalid request for Transient Data services is received,
control is passed to Program Control to terminate the task issuing
the request.
4.
Task control is used to:
a.
lock a DCT entry, to prevent simUltaneous update of the entry
(BDAM) ~ Task control is used to lock the DCT, to obtain
control of the entry, and the access method control blocks
(VSAM) •
b.
(with logical recovery) acquire ownership of an end of a queue
until the end of the LUW.
c.
wait for access to the disk map, to prevent simultaneous
update.
d.
wait for I/O completion.
5.
Transient Data Control uses Storage Control to obtain storage for
an intrapartition input area, containing a DECB.
6.
If logical recovery is supported by DFHTDP and requested for the
destination, storage control or RPL creates a Deferred Work Element
(DWE) for each logically recoverable destination when it is
accessed.
7.
Transient Data passes control and the address of the DECB to the
read/Write routines of the access methods to perform data set I/O.
8.
The DECB or RPL status bytes are tested for event completion and
I/O errors.
930
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
•
TCA
)
Application
Program
8
TCATDTR
TCATDDI
®
DFHTD
TYPE= ...
Disk Map Information
OCT
TDDCTDID
v
-:::
0
-U
I
7
0
Task
Control
Program
Transient Data
Control
Program
(DFHTDP)
0
~
I
AID
Storage
Control
Program
~
I I
Dynamic
Storage
.
I/O
Areas
0
\j
--v'
Storage Contro I
Program
V
OWE
f
K
0
0
r--
0
~
G
~
~
~
Dynamic Backout
Program
h
;;
G
DG
OWE Processor
....
......
~
Sync Point
Program
OCT
~
DCBsorVSAM
Blocks (ACB •
RPL.EXLST)
Access
Methods
~
0
"'" l5
0
~
G
Program
Control
Program
Journal
Control
Program
1Y
OPt..t23
Figure 3-55. Transient Data Control Program Interfaces for
Intrapartition
9.
Transient Data Control obtains intrapartition disk map information
from the main storage area addressed through the Destination
Control Table ~CT).
Section 3.
Program Organization
931
LICENSED MATERIAL -- PROPERTY OF IBM
10. If an automatically initiated task is to be associated with a
terminal, task control is used to schedule an AID. If an
automatically initiated task is not to be associated with a
terminal, task control is used to attach the task.
11. For physically recoverable destinations, the Journal Control
program is used to log the DCT entry.
12. At the normal end of a logical unit of work (LOW), defined by
either an application program DFHSP TYPE=USER request or by Task
Control at task termination, the CICSjVS Sync Point program gives
control to the DWE processor of the Transient Data Control program.
This DWE processor performs the logical update of the DCT entry
and/or the disk map. A separate DWE is used for GET, PUT, and
PURGE for each logically recoverable destination accessed by the
task. The CICSjVS Sync Point program or the Dynamic Backout
program (if dynamic transaction backout required) presents each DWE
separately to the DFHTDP DWE processor.
13. For logically recoverable ~WE processor) destinations, the Journal
Control program is used to log the DCT entry.
14. If the task abends, DFHDBP invokes the DWE processor to perform
Transient Data backout of the OCT and disk map when the Dynamic
Backout program encounters a Transient Data DWE.
15. The DWE processor
~art
of DFHTDP) uses common routines in DFHTDP.
The notes below refer to Figure 3-56.
Extrapartition
1.
An application program request for Transient Data services causes a
request code to be set in TCATDTR, signifying GET, PUT, FEOV, or
LOCATE. The destination identification is placed in TCATDDI.
Control is passed to the Transient Data Control program.
2.
The DCT is searched by field TDDCTDID for the destination
requested.
3.
If an invalid request for Transient Data services is received,
control is passed to Program Control to terminate the task issuing
the request.
4.
The DCB is checked for OPEN/CLOSE. Transient Data passes control
and the address of the DCB to the read/write routines of the access
methods to perform data set I/O.
5.
The Task Control program is used to enter a dispatchable WAIT,
before returning to application program.
932
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
~~
8
Application
Program
TCA
TCATDTR
TCATDDI
DFHTD
TYPE= ..
0
8
I/O
Areas
0
<
Access
Methods
:+
Transient Data
Control
Program
(DFHTDP)
8
D 8
DCB for
Extrapartition
....
:>
0
'--
Task
Control.
Program
OCT
TDDCTDID
0
:>
Program
Control
Program
OPL724
Figure 3-56. Transient Data Control Program Interfaces for
Extrapartition
Section 3.
Program Organization
933
LICENSED MATERIAL -- PROPERTY OF IBM
TAPE' .ENDOF FILE (DFHTEOF)·. -6EH2
This program is run as a standalone programor.attached by the System
Initialization program ~FHSI~ during the initialization phase of an
emergency restart. It performs the following functions:
•
Verification of tape volumes
•
Verification of log records collected as part of CICS/VS run prior
to system failure
•
Writing end of file
. The log volume is opened and verified. If an incorrect volume is
mounted, volume swapping takes place until eithel' the correct volume 1S
mounted .or swapping is discontinued without finding the correct volume.
In the latter case, the program is terminated.
As the file is processed, the label records of blocks on' the file are
checked to verify that they are in ascending sequence. Verification of
these label records is performed as follows:
•
Creation date equal to or greater than that specified on the volume
label.
•
Volume sequence number equal to or greater than that specified on
the volume label.
•
Run start time equal to that specified on the volume label •.
The end of valid log data is assumed under either of two conditions:
•
Negative verification occurs during validation of label records.
•
Two consecutive I/O errors are encountered.
If either of these conditions occurs, the tape volume is backspaced
over the appropriate number of records and an end-of-file record is
written.
934
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
This page is left blank intentionally
Section 3.
Program Organization
935
LICENSED MATERIAL -- PROPERTY OF IBM
TRACE MANAGEMENT
(DFHTRP)
The Trace Control program ~FHTR~ is designed as a debugging aid for
the programmer. It provides an easy and convenient means of tracing
system activity.
~he content and format of entries in the Trace Table
are explained in detail in the CICS;YS Application Programmer's
Reference Manual.)
/
The notes below refer to Figure 3-57.
Notes:
1.
The application program can issue Trace Control (DFHTR) macro
instructions to turn on/off the trace facility for specific types
of entries, to turn on/off or close the auxiliary trace function,
or to cause a specified entry to be logged into the Trace Table if
the trace facility is on for that type of entry.
2.
Standard entries may be recorded in the Trace Table whenever
CICSjVS macro instructions of the following types are issued by an
application program or a CICSjVS system program:
a.
b.
c.
d.
e.
f.
g.
h.
i.
DFHKC
DFHSC
DFHPC
DFHIC
DFHDC
DFHFC
DFHTD
(Task Control)
(Storage Control)
(program Control)
(Interval Control)
~ump control)
(File Control)
(Transient Data'
Contro].)
DFHTS (Temporary Storage
Control)
DFHJC (Journal control)
m.
n.
DFHBMS (Basic Mapping Support)
DFHBIF ~uilt-In Functions)
CICSjVS-DL/I Interface
DFHDI (Data Interchange)
DFHSP (Sync Point)
o.
DFHZC
p.
q.
DFHXFP (Online Transformer Flow)
DFHISP (ISC Request Shipping)
j.
k.
l.
(VTAM Terminals)
These standard entries in the Trace Table are generated by special
DFHTRACE macro instructions included in the CICS/VS management
modules that provide these macro capabilities, or by using the
DFHLFM macro.
3.
Control is returned to the requesting program. Bit manipulation
for on/off requests is performed in the application program itself
(the inserted macro expansion) in the case of an Assembler-language
program, or in Program Control in the case of an ANS COBOL or PL/I
program.
4.
When the Auxiliary Trace facility is active, trace table entries
along with a time storage value are written to the Auxiliary Trace
data set ~FHAUXTR) which can be printed offline using the Trace
utility Program ~FHTU~.
936
CICS/OSjVS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
Application
Program
8
DFHTR
TYPE= ...
CICS/vS
Management
Module
DFHTRACE
XX or
DFHZTR
TCA
>
k'"
0
8
Trace
Table
Trace
Control
Pr'Jgram
(DFHTRP)
} 8
DA""'OC
Y
Data Set
Trace
OPL55
Figure 3-57.
Section 3.
Trace Control Interfaces
Program Organization
937
LICENSED MATERIAL -- PROPERTY OF IBM
TEMPORARY STORAGE MANAGEMENT (DFHTSP)
The Temporary Storage Control program ~FHTSP) communicates directly
with two other functions of the CICS/VS System Management component.
These are Storage Management and Task Management (the Storage Control
program and Task Control program, respectively). This interface is
achieved through use of the application program1s (task·s) TCA.
The notes below refer to Figure 3-58.
Notes:
1.
An application program requests Temporary Storage services by means
of "a DFHTS macro instruction.
2.
Temporary Storage Control communicates with Storage Control to
request Temporary Storage unit table extensions, Temporary Storage
Group Identifications ~SGIDs), and main storage for DFHTS TYPE=PUT
or TYPE=PUTQ requests to main storage and DFHTS TYPE=GET or
TYPE=GETQ requests with no address supplied.
3.
Temporary Storage Control communicates with Task Control to perform
a CICS/VS WAIT pending completion of I/O (and suspending and
resuming tasks) •
4.
Temporary Storage Control interfaces indirectly with VSAM ~he
access method) through the Temporary Storage Bit Map. A Request
Parameter List (RPL) points to fields in this control block which
are passed to VSAM.
5.
VSAM communicates with Temporary Storage Control (through Task
Control) when the I/O is complete.
6.
Temporary Storage Control analyzes the contents of the RPL to
determine the type of completion and any error information.
938
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
Storage
Control
Program
Application
Program
DFHTS
TYPE= ...
Temporary
Storage
Control
Program
(DFHTSP)
Access
Method
~ rR_PL____~__~
ACB
Temporary
Storage
Bit Map
OPL56
Figure 3-58.
Section 3.
Temporary Storage Control Interfaces
Program Organization
939
LICENSED MATERIAL -
PROPERTY OF IBM
LIFO STORAGE ROUTINES (DFHLFA, DFHLFO)
The LIFO storage routines (DFHLFA and DFHLFO) provide LIFO storage space
to be used as work space and to save registers "for those CICSjVS modules
invoked by the task. When such a module is invoked, a portion of LIFO
storage space (called a LIFO stack entry) is allocated by DFHLFA as a
data area for use by that particular module. If DFHLFA is unable to
allocate" the requested length of LIFO storage, DFHLFO is invoked to
obtain another segment. The module to which LIFO storage is allocated
may in turn link to another CICS/VS module, in which case a further
stack entry is allocated.
Stacking continues in this way until a linked-to module completes
execution. At this time the LIFO stack entry for that module is
released, and the stack entries for the other uncompleted modules remain
intact.
The notes below refer to Figure 3-59.
Notes:
1.
Invocation of a CICSjVS module is made by a CICSjVS application
program.
2.
When the DFHLFM macro is executed from within a CICSjVS module, a
parameter list is passed to the LIFO prologue routine (DFHLFA in
module DFHCSA). DFHLFA attempts to allocate the requested length
of LIFO storage from the current LIFO segment.
3.
If DFHLFA is unable to allocate sufficient storage, the LIFO
overflow routine DFHLFO is invoked to obtain another segment.
4.
DFHLFO invokes storage control ~FHSCP) to obtain storage for the
new LIFO segment and then returns control to DFHLFA.
5.
DFHLFA optionally makes a trace entry for the invoking CICS/VS
module.
6.
DFHLFA returns control to the invoking CICS/VS module.
940
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
,8
DFHLFM
Management
Module
'~
Macro
8
....
v
LIFO Prologue
Routine
(DFHLFA)
V'
~
0- 8
~-- U
V'
"
...
y
...
-)
Trace
Control
(DFHTRP)
Storage
Control
(DFHHSC)
LI FO Overflow
Routine
(DFHLFO)
OPLIOO
Figure 3-59.
Section 3.
LIFO Storage Interfaces
Program Organization
941
IBM CONFIDENTIAL
942
CICS/OSjVS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
BIBLIOGRAPHY
Additional information about CICSjOS/VS is available in the following
IBM CICS/VS publications:
customer Information Control SystemlYirtual Storage (CICS/yS):
Master Index (SC33-0095)
General Information (GC33-0066)
Introduction to Program Logic ~C33-0067)
Program Logic: Data Areas (LY33-6 035)
System/Application Design Guide (SC33':"'0068)
Application Programmer's Reference Manual· (Command Level) (SC33-0077)
Application Programmer's Reference Manual (Macro Level) (SC33-0079)
Application Programmer's, Reference Summary (Command Level)· (GC33-6012)
System Programmer's· Reference· Manual· (SC33-0069)
System programmer's Guide (OS/yS) (SC33-0071)
.
Operator's Guide (SC33~0080)
Messages and Codes (SC33-0081)
Problem Determination Guide (SC33-0089)
Master Terminal Operator Reference Summary ~X33-6011)
Program· Debugging Reference· Summary .(SX33-6 010)
There are also a number of manuals dealing with the various terminal
systems ,with which CICSjOS/VS interfaces:
IBM
IBM
IBM
IBM
3600/3630 Guide (SC33-Q072)
3650 Guide (SC33~0073)
3767,3770, and 6670 Guide ~C33-0074)
3790 Guide (SC33-007S)
As ~ Systemj370 user~ you should be generally familiar with one or
both of the following documents:
•
OSIYSl Planning and Use Guide (GC24-S090)
•
OSIYS2 Planning and Use Guide
~C28-0600)
For reference information on space allocation, see:
OS/yS Data Management Services Guide (GC26-3783)
For reference and ·how-to· information on allocating, extending, and
releasing space, see:
•
OSIYS JCL Services
•
OSIYS JCL Reference
(GC28-0617)
(GC28-0618)
For reference and ·how-to· information on deleting data sets,
renaming data sets, and protecting data sets, see:
OS/yS Data Management for System Programmers (GC28-0631)
Bibliography
943
LICENSED MATERIAL -- PROPERTY OF IBM
For access method logic:
•
OS/VS SAM Logic (SY26-3788)
•
•
•
OS/VS ISAM Logic (SY26-3786)
•
OS(YS Virtual Storage Access Method· (YSAM) Logic (SY26-3818)
OS/VS BDAM Logic (SY26-3789)
OS/VS BTAM Logic (SY27-7246)
Users of the CICS/V5-DL/I Interface should see:
Manual
~Y20-8004 and LY20-8005)
•
IMS/yS Program Logic
•
IMSIYS Application Programmer1s Reference Manual (SH20-9026)
•
IMSIYS Utilities ·Reference Manual (SH20-9 0 29)
Info:tmation on Systems Network Architecture (SNA) can be found in the
following two Systems Network Architecture publications:
•
Functional Description of Logical Unit Types (GC20-1868)
•
Types of Logical Unit to Logical Unit Sessions (GC20-1869)
Other OS/VS publications are listed in theIBM System/370 Bibliography
(GC20~OOOl) ~. The IBM System/370 Advanced Function Bibliography
1?~3) is a valuable supplement.for System/370 VS users.
(GC20~
AVAILABILITY OF PUBLICATIONS
The availability of a publication is indicated by its use key, which is
the first letter in the order number. The use keys and· their meanings
are:
G-
Generally available: Provided to users of IBM systems,
products, and services without charge,in quantities to meet
t4eir normal requirements. Can also beptirchased by anyone
through IBM branch offices.
S
Sold:
L
Licensed Material, property of IBM: Available only to
licensees.·of the related pro~rani products under the terms of
the license agreements.
944
Can be purchased by anyone through IBM offices.
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -
PROPERTY OF IBM
INDEX
Each page number in this index refers to the start of the paragraph containing the
indexed item. Where more than one page reference is given, the major reference is first.
abend
exit
activity keypoint program
(HIPO) 478
execute (HIPO)
85
NACP (HIPO)
301
program control program (DFHPCP) 898
restart task (HIPO) 98
task (HIPO)
455
abnormal condition program
~FHAC~
457,788
dump control 788
dynamic backout program 788
HIPOs 454
operator error 788
program control 788
sign-on table 788
storage control 788.
task abnormal condition 78&
task control 788
transient data control 788
user-written program error program
(PEP)
788
abnormal exit (DFHCRC)
interregion communication 858
abnormal termination
deferred work element processor
sync point program (DFHSPP) 910
formatted dump program (DFHFDP)
844
system recovery program (DFHSRP) 914
access methods 3
terminal management (DFHTCP,DFHZCP) 919
access, indirect (HI PO) 314
acquire dynamic storage
acquired data ~xtrapartitio~, dispose of
(HIPO) 374
activate ABEND exit (HI PO) 94
activate chain
HI PO 139
queueing subroutine (HIPO) 225
active task
transaction backout table ~BO)
recovery utility program
~FHRUP)
901
active task chain
task control program (DFHKCP) 883
activity control, terminal (HI PO) 121
activity keypoint
recovery utility program ~FHRUP)
900
activity keypoint program (DFHAKP) 790,888
abend exit 478
HIPO 475
journal control 888
keypoint program 888
master terminal (CSMT) 888
AFMH (see attach function management
header)
AID
cancel (HI PO) 55
chain
system termination program
(DFHSTP) 916
Index
AID
(continued)
save (HIPO)
466
aligned subpool
FREEMAIN (HIPO) 75
GETMAIN (HIPO) 67
ALLOCATE
intersystem communication (HIPO) 768
routine
DFHZISP 870
analyze command (HI PO) 515
analyze request, locate terminal entry
(HIPO) 204
ANS COBOL modules
program control program (DFHPCP)
898
application program
asynchronous transaction control
program (DFHATP) 796
built-in functions program ~FHBFP)
798
mapping control program (DFHMCP)
808
application program control (DFHDRPB)
855
application request (HIPO) 160
application services
introduction 2
asynchronous queue purge program
asynchronous transaction control
program (DFHATP)
796
asynchronous transaction output
processor 794
HIPO 623
asynchronous transaction control program
(DFHATP) 796
application program 796
asynchronous queue purge program 796
asynchronous transaction output
processor 794
CRDR transaction 796
HIPO 618
program control 796
storage control 796
task control 796
terminal control 796
transient data control 796
transient data intrapartition queue 796
asynchronous transaction input
processor 791
HIPO 616
program control 792
storage control 791
task control 792
terminal control 791
terminal data 791
transient data control 792
user exit 791
asynchronous transaction output
processor 794
asynchronous queue purge program 794
asynchronous transaction control
program 794
program control 794
storage control 794
terminal control 794
terminal data 794
945
LICENSED MATERIAL -
PROPERTY OF IBM
processor
(continued)
transient data control 794
user exit 794
asynchronous transaction processing
(ATP)
615,791
HIPOs 615
introduction 10
ATI processing, task termination
(HIPO)
125,208
attach
HTA (HIP 0)
41
initialization tables (HI PO)
133
task (HI PO)
20,155
attach function management header
(AFMH)
873
audit trail 13
automatic journaling 13,348
HIPO 348
automatic statistics program
automatic initialization (HIPO)
606
with TCTTE (HIPO)
605
automatic task initialization (HIPO)
221
autopaging, reset to (HI PO)
715
auxiliary trace
close (HI PO)
437
record, write (HI PO)
438
trace management ~FHTR~
936
turn on (HIPO)
436
basic ICE build (HIPO)
103
basic mapping support (BMS)
696,800
address of terminal input/output
area 802
chain output to previous command
(HIPO)
722
cleanup undelivered messages
HIPO 705
program (DFHTPQ)
820
control program 808
copy page to another terminal
(HIPO)
721
data stream build ~FHDSB)
804
HIPO 687
delayed message delivery (HI PO)
724
HIPOs 662
mapping control program ~FHMCP)
808
message switching ~FHMSP)
891
non-3270 input mapping (DFHIIP)
69&,806
page and text build ~FHPB~
679,814
page retrieval program (DFHTPR)
822
HI PO 709
pre-vS mapping module (DFHBMSlo1M)
802
pre-VS 3270 output mapping
(HIPO)
693,696
program control 802
purge messages (HIPO)
718
reset to autopaging 715
route list resolution program
(DFHRLR)
676,816
single keystroke retrieval (HI PO)
723
storage control 802
terminal control 802
terminal page processor
(DFHTPP)
699,818
terminal page scheduling program
(DFHTPS)
826
3270 input mapping (HI PO)
695
946
basic mapping support ~MS)
(continued)
3270 mapping ~FHM32)
basic 3270 input mapping support (BMS)
pre-VS 3270 input mapping (HI PO)
691
batch region controller
bootstrap (HI PO)
651
controller program (HIPO)
653
CONVERSE (HIPO)
657
initialization (HIPO)
652
program request handler (HI PO)
656
STAE/SPIE/CLEANUP (HIPO)
655
SVC initialization (HIPO)
658
termination (HIPO)
654
batch region modules 855,856
application program control
(DFHDRPB)
855
cleanup ~FHDRPD)
855
control (DFHDRP)
855
DL/I request handling (DFHDRP~
856
initialization (DFHDRPA)
855
SVC initialization (DFHDRPF)
856
termination (DFHDRPC)
855
batched transactions 10
BCA chain
system termination program (DFHSTP)
916
BCAs, save (HIPO)
467
BID logiC, DFHZEMW (HI PO)
235
bit manipulation
BIF (HI PO)
72 8
BMS ~ee basic mapping support)
bootstrap, journal tasks (HIP~
390
break storage chains, cancel exits
(HIPO)
508
BSC
entry and event completion analysis·
(HIPO)
114
initialize terminal scan (HIPO)
117
build basic ICE (HIPO)
103
build dynamic subpool, SIP (HIPO)
489
build loggable DWE chain (HIPO)
426
build output message (HI PO)
598
built-in functions program (DFHBFP)
798
application program 798
file control 798
HIPOs 726
storage control 798
CACB (connection address control
block)
850
CALL macro instruction
DL/I interface 836
CALL, DL/I 4
CALLDLI macro instruction
DL/I interface 836
cancel
abend exit (HIPO)
94
an AID (HI PO)
55
exits, break storage chains (HIPO)
time-ordered request (HIPO)
106
CCB ~onnection con~ol block)
851
chain
activate (HIPO)
139
analysis (HIPO)
211
output to previous command (HI PO)
subroutine
activate (HI PO)
225
change data set status (HI PO)
585
508
722
CICS/OS/VS Program Logic: Description
LICENSED MATERIAL -- PROPERTY OF IBM
change line/control unit status (HIP~
588
change numeric data (HI PO}
584
change task priority ~IP~
30
change task status (HIPO)
506
change terminal status ~IPO)
587
chopper, storage, SIP ~IPO)
495
cleanup undelivered messages program
(DFHTPQ)
820
interval control 820
mapping control 820
storage control 820
temporary storage control 820
transient data control 820
close
auxiliary trace (HIP~
437
file control ~IPO)
628
request, journal (HIPO)
414
transient data ~IPO)
630
CLOSE/OPEN/LOCATE, FCP ~IPO)
347
CLSDST
exit (HI PO)
273
request ~IPO)
214
CMSG transaction 12
COBOL interface (HIP 0)
96
cold restart 906
command level assembler program
acquire dynamic storage (HIPO)
760
command request, CTYPE ~IPO)
169
command response ~IPO)
180
command translator (HIPO)
512
common analysis
DL/I interface ~IPO)
739
common control line analysis ~IP~
113
common exit (OCP) ~IPO)
631
common system area (CSA)
3
data, save (HIPO)
464
dump control 832
storage control program (DFHSCP)
903
system termination program (DFHSTp)
916
complete pending output, BMS ~IPO)
672
CONNECT function processor
interregion communication (HIPO)
646
CONNECT service 851
connection address control block 850
connection control block 851
console WRITE (HI PO)
499
constant, initialize (HI PO)
control blocks, temporary storage,
initialize (HI PO)
491
control information 12
control line, common, analysis ~IPO)
113
control processing of data set (HIPO)
375
control record, DFHRSD, write ~IPO)
470
control subpool
FREEMAIN (HI PO)
70
GETMAIN (HIPO)
58
control system system log (CSSL)
12
controller, FREEMAIN (HIPO)
69
conversational response
issue (HI PO)
641
proces s ~IPO)
637
conversion, phonetic, BIF ~IPO)
731
copy page to another terminal, BMS
(HIPO)
721
CRDR transaction
asynchronous transaction control
program (DFHATP)
796
Index
CSA (see common system area)
CSMT
master terminal program (DFHMTP)
894
CSMT SHUTDOWN request
system termination program (DFHSTP)
916
CSMT SNAP command
formatted dump program (DFHFDP)
844
CSOT
master terminal program (DFHMTP)
894
CSSL ~ontrol system system log)
12
CSST
master terminal program (DFHMTP)
894
CTYPE command request fHIPO)
169
current time of day (HIPO)
104
DAM ~irect access metho~
3
data base 4,13
transaction backout program ~IPO)
555
update routine ~IPO)
537
data event control block (DECB), status
byte
transient data management (DFHTDP)
930
data interchange program (DFHDIP)
749,834
detach operation (HIPO)
754
end functions (HIPO)
752
input (HIPO)
750
non-3270 input mapping (DFHIIP)
806
note operation ~IPO)
753
output ~IPO)
751
selection operation (HIPO)
755
storage control 834
temporary storage 834
terminal control 834
trace control 834
data retrieval ~IPO)
105
data set
control processing (HIPO)
375
introduction 7
status change ~IPOs)
585,586
user 8
data stream build (DFHDSB)
804
HIPO 687
page and text build 804
terminal page processor 804
OCT bit map, save (HIP~
465
DCT entry routine, update (HIPO)
535
deblocking, direct access ~IPO)
316
declare
removal of a resource ~IPO)
54
resource availability ~IPO)
52
dedicated environment 2
deferred work element
chain
sync point program (DFHSPP)
910,911
list
dynamic backout program
(DFHDBP)
830
log data, write ~IPO)
427
processing (HIPO)
218
processor
sync point program ~FHSPP)
910,911
transient data (HIPO)
364
transient data management
(DFHTDP)
932
scan and initialize ~IP~
569
sync point program (DFHSPP)
910
transient data management (DFHTDP)
930
947
LICENSED MATERIAL -- PROPERTY OF IBM
delay processing of a task (HIP~
100
delayed message delivery, BMS (HI PO)
724
delete
loaded program (FIIPO)
92
request processing (FI I PO)
91
DELETE, FCP (FIIPO)
334
dequeue
all resources (HIPO)
28
from a resource (HIPO)
27
destination control table (OCT)
master terminal program ~FHMTP)
894
transient data management .
~FHTDP)
930.; 932
detach
data interchange program (FIIPO)
754
HTA (FIIPO)
46
task (HI PO)
23
determine type of shutdown (HIP~
502
D~ASY exit (HIPO)
279
DFHACP 788
DFHAKP 790,88B
HIPO 475
DFHATP 615,796
DFHBFP 726
DFHBMSMM 802
DFHCRC 659,856
DFHCRNP 661,856
DFHCRSP 660,856
DFHCSVC 490
DFHDBP 830
DFHDCP 441,832
DFHDCSA 494
DFHDIP 749,834
DFHDLI 738,836
DFHDLQ 838
DFHDRP 651,855
DFHDRPA 652,855
DFHDRPB 653,855
DFHDRPC 654,855
DFHDRPD 655,855
DFHDRPE 656,855
DFHDRPF 658,855
DFHDRX (see intermediate control block)
DFHDSB 687 ,804
DFHEIP 756,840
ISC handling of EXEC request 859
DFHELR 859,868
DFHFCD 842
DFHFCP 842
DFHFDA 844
DFHFDB 844
DFHFDC 845
DFHFDP 562,844
DFHFIP 690,846
DFHFTAP 519,847
DFHF2P 846
DFHGMM 579
DFHHPSVC
HIPO 49
DFHICP 99,848
DFHIIP 698,806
DFHIRCP 644,850
DFHISP 764,870
ISC handling of EXEC request 859
DFHJCP 384,878
DFHKCP 19,882
DFHKPP 461,886
DFHLFA 940
948
DFHLFM macro
LIFO 940
trace management (OFHTRP)
936
DFHLFO 430,940
DFHMCP 808
DFHMGP 302
DFHMIR 781,876
ISC handling of EXEC request 859
DFHMSP 635,890
DFHMTP 580,894
DFHMTPA 894
DFHMTPB 894
DFHMTPC 894
DFHMTPD 894
DFHMTPE 894
DFHMTPF 894
DFHMTPG 894
DFHM32 695,812
DFHOCP 624,896
DFHPBP 814
DFHPCP 80,898
DFHRD1 615,791
DFHRD2 615,791
DFHRLR 816
DFHRSD 470
DFHRUP 529,900
DFHSCP 56,903
DFHSIA 482
DFHSIB1 483
DFHSIC1 484
DFHSID1 485
DFHSIE1 486
DFHSIF1 487
DFHSIG1 488
DFHSIH1 489
DFHSIIl 491
DFHSIJ1 493
DFHSIP 479,906
DFHSPP 423,910
DFHSRP 445,914
DFHSTP 500,916
DFHTBP 549,928
DFHTCP 112,918
DFHTDP 361,930
DFHTEOF 522,934
DFHTOM 701
DFHTPP 699,818
DFHTPQ 705,820
DFHTPR 709,822
DFHTPS 826
DFHTRACE macro
trace management ~FHTRP)
936
DFHTRP 431,936
DFHTS macro
temporary storage management
(OFHTSP)
938
DFHTSP 376,938
DFHWT1 615,794
DFHWT2 615,794
DFHXFP 776,872
ISC handling of EXEC request 859
DFHZACT 139
DFHZAIT 133
DFHZARQ 160
DFHZASX 279
DFHZATI 221
DFHZATT 155
DFHZCA 918
CICS/OS/VS Program Logic:
Description
LICENSED
DFHZCB 918
DFHZCLS 214
DFHZCLX 273
DFHZCP 112,918
DFHZCRQ 169
DFHZCX 856,918
DFHZCY 918
DFHZCZ 918
DFHZDET 183
DFHZDSP ~31
DFHZDWE 218
DFHZEMW 230
DFHZFRE 202
DFHZGET 202
DFHZHPRX 289
DFHZHPSR 260
DFHZISP 768,870
ALLOCATE routine 870
FREE routine 870
POINT routine 870
DFHZLEX 281
DFHZLOC 203
DFHZLRP 253
DFHZLTX 277
DFHZNAC 294
DFHZNEP 257
DFHZNSP 292
DFHZOPA 146
DFHZOPN 145
DFHZOPX 264
DFHZQUE 225
DFHZRAQ 258
DFHZRAR 259
DFHZRLG 303
DFHZRPX 274
DFHZRRX 278
DFHZRSP 304
DFHZRST 213
DFHZRSY 215
DFHZRVS 173
DFHZRVX 267
DFHZSAX 270
DFHZSCX 272
DFHZSDA 172
DFHZSDR 177
DFHZSDS 189
DFHZSDX 286
m'HZSES 149
DFHZSEX 265
DFHZSHU 147
DFHZSIM ~44
DFHZSKR 180
DFHZSLS 134
DFHZSSX 283.
DFHZSUP 152
DFHZSYX 284
DFHZTAX 288
DFHZTPX 282
DFHZUCT 252
DFH99BC 828
DFH99CC 828
DFH99DY 828
DFH99FP 828
DFH99GI 828
DFH99KC 828
DFH99KO 828
DFH99KR 829
DFH99LK 828
Index
MATER~
-- PROPERTY OF ISM
DFH99M 828
DFH99ML 829
DFH99MP 829
DFH99MT 828
DFH99RP. 829
DFH99T 828
DFH99TK 828
DFH99TX 829
direct access
deblocking ~IPO)
316
storage 8
direct access method (DAM)
3
directory information, get ~IPO)
95
DISCONNECT function processor
interregion communication ~IPO)
648
DISCONNECT service 851
disk map
transient data management (DFHTDP)
931
dispatch control area (DCA)
storage control program (DFHSCP) 903
task control program (DFHKCP)
883
dispatcher
partition exit ~IPO)
38
dispatcher ~IPO)
131
dispose of acquired data (extrapartition)
(HIPO)
374
DL/I
backout
dynamic backout program
(DFHDBP)
830
initialization
IMS initialization module 838
interface 836
CALL macro instruction 836
CALLDLI macro instruction 836
. common analysis ~IPO)
739
file control macro instruction 836
file control program 836
HIPOs 738
I/O request ~IPO)
741
IMS/VS service modules 836
initialization (DFHDLQ)
838
initialization (HIP~
745
journal control program 836
master terminal program
(DFm-rrP)
836
open/close program (DFHOCP)
836
parameter (DFHDLPDS)
838
program control program 836
program specification block
(PSB)
836
remote request handler ~IPO)
744
remote scheduler ~IPO)
743
remote scheduling block ~SB)
836
scheduling a PSB ~IPO)
740
scheduling block (ISB)
836
simulated routine ~IPO)
746
storage control program 836
system initialization program
(DFHSIP)
838
system initialization table
(DFHSIT)
838
.
system termination program
(DFHSTP)
836
task control program 836
terminate a PCB ~IPO)
742
transient data 838
introduction 4
949
LICENSED MATERIAL -
PROPERTY OF IBM
DL/I (continued)
ISC handling of requests
DFHISP 865
DFHXFP 865
intermediate control block
(DFHDRX) 865
mirror program (DFHMIR) 865
mirror transaction (CSMI) 865
user interface block (UIB) 865
logging function 13
mirror transaction program (DFHMIR) 876
record
.
recovery utility program
(DFHRUP) 901
request· handling (DFHDRPE) 856
schedule and data base requests
transformation program (DFHXFP) 872
transaction backout program (HIPO) 551
update routine (HIPO) 541
DL/I backout. table (DBO)
recovery .utility program (DFHRUP)
901
dump
.
of CICS partition .(DUL'!lP) 844
of CICSpartition ~DUMP) 844
of supervisor 844
dump control
abnormal condition program (DFHACP) 788
common system area 832
dynamic. open/close program (DFHOCP)
896
HIPOs 441
interface with CICS/VS (HI PO) 441
interval control 832
OPEN/CLOSE/SWITCH (HI PO) 626
program control 832
task control area 832
trace control 832
dump data set
formatted dump program (DFHFDP)
844
dump·management (DFHDCP) 832
dump utility program .
formatted. dump program (DFHFDP) 844
HIPO 518
DYNALLOC function
dynamic allocation program 828
dynamic allocation program
DYNALLOC function 828
dynamic backout program (DFHDBP) 830
abnormal condition program (DFHACp) 788
DL/I backout 830
DWElist 830
dynamic,log 830
file control 830
HIPO 568.
program control 830
retry program 830
sync point program .(DFHSPP) 911
temporary storage 830
transient data 830
transient data management (DFHTDP) 932
dynamic close of.VTAM ACB (HIPO) 147
dynamic log
dynamic' backout program (DFHDBP) 830
scan (HIP9) 571
sync point program (DFHSPP) 911
dynamic open of VT~ACB (HlPO) 146
dynamic open/close program (DFHOCP) ,896
dump control 896'
file control 896
950
dynamic open/close program (DFHOCP)
HlPOs 624
initialization of indices 896
master terminal program (DFHMTP)
program control. 896'
storage control. 896
transient data control 896
dynamic storage 4
dynamic storage pool
CICS/VS
system initialization program
(DFHSIP) 908
dynamic transaction backout
logging (BlPO)
574
program control program (DFHPCP)
(continlied)
894'
898
EDF (see execution diagnostic facility) , '.
edit, field,BIF (HIPO) 729
EIP initialization routine (HI PO) ,757
elevation, program (HIPO) 86'
emergency restart 906
recovery utility program (DFHRUP) 900
transaction backout,program 928
enable/disable
data sets or destinations (HIPO) 592
transaction or program' (HlPO) 591.
end functions
data interchange program. (HIPO) 752
end..,.of-file
format tape (DFHFTAP) 847'
tape (HI PO) '522
end...,.of-task record .
sync point program (DFHSPP) 911
enqueue upon a resource (HIPO) 26
enter SRB mode
HIPO .43
entry analysis (HIPO) 114,463
entry, transient data (HIP~ 362
environmental characteristics 2
CICS/VS ,'interfaces 3
system .configuration 2
error 'message' writer. (HI PO) 230,302
ESETL, FCP (BIPO) 345
establish selection criteria, BIF
, (HIPO)' 735
ESTAE
initialization (RIPO) 452
interface (HI PO)· 448
retry (HIPO) 451
event completion
analysis and processing (BIPO) 116
analysis,BSC entry (HIPO) , 114
input (HIPO) 118
processing, output (HIPO) 400
event initiation
input .. (HIPO) 126
output (RIPO) 123
exceptional condition handler (HlPO)
EXEC interface (DFHEIP) 762
EXEC interface (DFHEIP)
756,840 .
aquire'dynamicstorage (HlPO) 760
call entry. (HIPO) 761
command' level assembler program 760
exceptionai condition handler
.
.(RIPO) 762
initialization routine (HI PO) 757
ISC handling of EXEC. request 859
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
EXEC interface (DFHEIP)
(continued)
local/remote determination program
(DFHELR)
868
mirror transaction program (DFHMIR)
876
program control 840
EXEC NOCHECK request 862
execute
ABEND exit (HI PO)
85
PLT program ~IPO)
507
execution diagnostic facility
control program ~IPO)
784
display program (HIPO)
785
task switch program (HI PO)
783
exit
cancel, break storage chains (HI PO)
508
common (OCP) (HIPO)
631
DFHZEMW (HIPO)
243
routine,SNA (HIPOs)
261
trace program (HIPO)
439
extrapartition
transient data management (DFHTDP)
932
facility control area associated address
task control area (TCA)
terminal management
(DFHTCP,DFHZCP)
918
FASTER
input analysis (HIPO)
119
2260 compatibility (DFHFIP,DFHF2P)
846
terminal control 846
2260 output formatting (HIPO)
690
FASTER language facility WLF)
846
FE trace (HIPO)
434
fetch, program (RIPO)
87
field edit, BIF (RIPO)
729
field verify, BIF (HIPO)
730
file backout table (FBO)
recovery utility program (DFHRUP)
901
file control
built-in functions program (DFHBFP) ·798
dynamic backout program (DFHDBP)
830
dynamic open/close program (DFROC~
896
master terminal program (DFHMT~
894
recovery utility program (DFHRUP)
900
file control macro instruction
DL/I interface 836
file control program (DFHFCP/DFHFCD)
842
DL/I interface 836
file control table WCT)
842
HIPOs 305,627,628
journal control 842
macro instruction 842
module structure (HIPOs)
306
storage control 842
task control 842
transaction backout program 928
file control requests
transformation program (DFHXFP)
872
file control table
file control program
(DFHFCP/DFHFCD)
842
master terminal program (DFHMTP)
894
scan (RIPO)
313
final processing (STP) (HIPO)
509
FLF (FASTER language facilit~
846
format tape (DFHFTAP)
519,847
end-of-file 847
Index
format, journal (HI PO)
385
formatted dump program (DFHFDP)
844
abnormal termination 844
CSMT SNAP command 844
dump data set 844
dump of CICS partition (DUMP)
844
dump of CICS partition (PDUMP)
844
dUmp of supervisor 844
dump utility program 844
HIPO 562
formatting
input, BIF (HIPO)
733
output, FASTER 2260 (HIPO)
690
FREE (HIPO)
intersystem communication 768
FREE routine
DFHZISP 870
FREEMAIN
aligned subpool (HIPO)
75
control subpool (HIPO)
70
controller (HIPO)
69
exit (RIPO)
78
isolated subpool (HIPO)
73
mixed subpool (HIPO)
72
program subpool (HIPO)
76
request (HIPO)
202
frozen storage 903
generate replacement text (RIPO)
517
GET
FIOA (HI PO)
307
transient data (RIPO)
369
VSAM, file management (HIPO)
307
get directory information (RIPO)
95,496
GETAREA, FCP (RIPO)
328
GETtrlAIN
aligned sub pool (RIPO)
67
control subpool (HIPO)
58
controller (HIPO)
57
isolated subpool (RIPO)
63,64
mixed subpool 61
program subpool (HI PO)
68
request (RIPO)
201
shared subpool (RIPO)
66
59
teleprocessing subpool (RIPO)
GETNEXT
FCP (HI PO)
340
VSAM, FCP (HI PO)
343
GETPREV
FCP (RIPO)
340
VSAM, FCP (HIPO)
343
good morning message (HIPO)
579
high-level language (HLL)
interface handler (HIPO)
727
preprocessor (RIPO)
510
high-performance option (HPO)
system initialization program
(DFHSIP)
908
HIPO diagrams
composition 17
explanation 15
visual table of contents 18
HPO SVC
HIPO 49
951
LICENSED MATERIAL -- PROPERTY OF' IBM
I/O error processing, journal output
(HI PO)
406
I/O request
DL/I interface ~IPO)
741
ICE (see interval control element)
ICIP
close processing (HIPO)
359
index retrieval (HI PO)
322
open processing (HIPO)
351
output .(HIPO)
332
processing, GET (HIPO)
321
read index control interval (HIPO)
324
IMS/VS service modules
DL/I interface 836
in-flight task
transaction backout table (TBO)
recovery utility program
(DFHRUP)
901
indexed sequential access method (I SAM)
3
indirect access (HIP~
314
initialization
CICS/VS 9
constant (HIPO)
482
DL/I interface (FIIPO)
745
ESTAE, SPIE, STAE (HI PO)
452
file control facilities (HI PO)
486
HIPO 530
MTP, input (HI PO)
581
nucleus· (HIPO)
483
of indices
dynamic open/close program
(DFHOCP)
896
program control facilities (HIPO)
484
restart data set, SIP (HI PO)
493
scan (HI PO)
569
SRB (HIPO)
47
table, attach (HI PO)
133
temporary storage control blocks
(HI PO)
491
temporary storage facilities (HI PO)
488
terminal control facilities (HI PO)
487
terminal scan, BSC (HI PO)
117
transaction backout program (HIPO)
550
transient data facilities (HI PO)
485
initialize
354
in-core index (HIPO)
initiate
weighted retrieval, BIF (HI PO)
734
initiation, task (HI PO)
102
inline request processing, journal
(HI PO)
393
input
analysis, FASTER (HIPO)
119
event completion (HI PO)
118
event initiation (HI PO)
126
formatting, BIF (HIPO)
733
initialization
MTP (HIPO)
581
initialization (MSP) (HI PO)
636
initialization ~CP) (HIP~
625
request, journal (HI PO)
420
segment service (HI PO)
317
input TIOA
message switching (DFHMSP)
890
input/output messages
recovery utility program (DFHRUP)
901
interface
CICS/VS 3
952
interface
(continued)
COBOL (HIPO)
96
dump control with CICS/VS (HIP~
441
ESTAE (HIPO)
448
PL/I (FIIPO)
97
SPIE (HIPO)
447
STAE (HI PO)
448
interface scheduling block (ISB)
836
intermediate control block (DFHDRX)
865
interregion communication
abnormal exit (DFHCRC)
858
batch region controller
bootstrap (FIIPO)
651
controller program (HIPO)
653
CONVERSE (HIPO)
657
initialization (HIPO)
652
program request handler (HIPO)
656
STAE/SPIE/CLEANUP (HIPO)
655
SVC initialization (HI PO)
658
termination (FIIPO)
654
batch region modules 855
CO~~ECT function processor (HIPO)
646
DISCONNECT function processor
(FIIPO)
648
for shared data bases 850
HIPOs 643
LOGOFF function processor (FIIPO)
650
LOGON function processor (FIIP~
645
new connection manager (HIPO)
661
QUIESCE function processor (HIPO)
649
STAE exit (FIIPO)
659
start-up (DFHCRSP)
856
HIPO 660
SVC module (DFHIRCP)
850
HIPO 644
invocation 852
SWITCH function processor (HIP~
647
intersystem communication 764,870
ALLOCATE (HIPO)
768
converse (HIPO)
766
DFHZISP 870
FREE (HIPO)
768
handling of CICS/VS EXEC NOCHECK
request 862
handling of CICS/VS EXEC requests 859
handling of DL/I requests 865
handling of EXEC request
EXEC interface program 859
transformation 1 859
transformation 2 859
transformation 3 859
transformation 4 860
local resource determination 763
local/remote determination program
(DFHELR)
870
mirror transaction (HIPO)
781
POINT (HIPO)
768
program organization 859
remote resource determination 763
terminal control 870
transformation program (DFHXFP)
870
HIPO 776
interval control
terminal page scheduling program
(DFHTP S)
826
interval control element (ICE)
build basic (HIPO)
103
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
interval control element (ICE)
(continued)
chain
system termination program
(DFHSTP)
9H
save (HI PO)
466
schedule (HI PO)
111
terminal page scheduling program
(DFHTPS)
826
interval control program (DFHICP)
99,848
cleanup undelivered messages program
(DFHTPQ)
820
dump control 832
journal control program (DFHJCP)
880
mapping control program (DFHMCP)
809
page retrieval program (DFHTPR)
823
task control program (DFHKCP)
882
task dispatcher 848
time adjustment 848
interval control requests
transformation program (DFHXFP)
872
intrapartition
transient data management (DFHTDP)
930
introduction 1
operational considerations 8
purpose and functions 1
using program logic manuals 1
invocation
of the SVC 852
ISAM (indexed sequential access method)
3
ISC (see intersystem communication)
isolated subpool
FREEMAIN (HI PO)
73
GETMAIN (HIPO)
64
TCA GETMAIN (HIPO)
63
issue conversational response (HI PO)
641
JCA (see journal control area)
journal
format (HI PO)
385
journal control
activity keypoint program (DFHAKP)
888
close request (HIPO)
414
data sets 13
DL/I interface 838
file control program
(DFHFCP/DFHFCD)
842
HIPOs 384
inline request processing (HIPO)
393
input request 420
kick-off (HI PO)
388
open request (HIPO)
410
open/close subtask (HI PO)
416
output
I/O error processing (HIP~
406
initiation (HI PO)
397
volume switching (HIPO)
404
recovery utility program (DFHRUP)
900
start-up/shutdown (HIPO)
386
sync point program (DFHSPP)
911
tasks bootstrap (HIPO)
390
transient data management (DFHTDP)
932
wait request (HIPO)
396
wri te request (HI PO)
394
journal control area (JCA)
journal control program (DFHJC~
878
journal control program (DFHJCP)
13,878
DL/I interface 836
Index
journal control program (DFHJCP)
(continued)
interval control 880
journal control area (JCA)
878
journal control table 880
LECB pool 880
program control 878
task control 880
temporary storage 880
journal control table
journal control program (DFHJCP)
880
journaling, automatic (HIPO)
348
KCQRLS subroutine
HIPO 29
KCSRBA subroutine
HIPO 42
KCSRBE subroutine
HIPO 42
keypoint
processing routine (HIPO)
542
READ (HIPO)
497
keypoint program (DFHKPP)
461,886
activity keypoint program (DFHAKP)
recovery utility program (DFHRUP)
restart data set 886
system recovery 886
system termination 886
transaction backout program 928
kick-off, journal (HIPO)
388
888
900
label record
verification
tape end of file program
(DFHTEOF)
934
label verification routine (HIPO)
532
LCB (logon control block)
850
LDC page status (HIPO)
206
leave SRB mode
HIPO 45
LECB (logical event control block)
(HIPO)
398
LERAD exit (HIPO)
281
LIFO
DFHLFM macro 940
overflow (HIPO)
430
prologue routine (DFHCSA)
940
stack entry 940
storage control 940
storage requests (HIPO)
50
storage routines (DFHLFA,DFHLFO)
940
trace entry 940
line/control unit status, change
(HIPO)
588
list all tasks (MTP) (HIPO)
596
load program list table (HIPO)
504
load transaction list table (HIPO)
503
loader
program (HIPO)
498
relocate (HIPO)
90
local resource determination
intersystem communication 763
local/remote determination program
(DFHELR)
868
EXEC interface program 868
intersystem communication 870
transformer storage area (XFSTG)
868
953
LICENSED MATERIAL -- PROPERTY OF IBM
locate
ATI status (HI PO)
203
HIPO 207
LDC HIPO 207
terminal entry, analyze request
(HIPO)
204
LOCATE/OPEN/CLOSE, FCP (HIPO)
347
log read routine {HI PO)
531
log tape volume
tape end of file program ~FHTEOF)
934
logging, DL/I 13
logical event control block ~CB)
HIPO 398
pool
journal control program
~FHJCP)
880
logical record presentation, DFHZLRP
(HIPO)
253
logical unit of work (LUW)
recovery utility program ~FHRUP)
900
sync point program ~FHSP~
910
transient data management ~FHTDP)
932
LOGOFF function processor
interregion communication (HIPO)
650
LOGOFF service 852
LOGON
exi t (HI PO)
262
start (HIPO)
134
,logon control block (LCB)
850
LOGON function processor
interregion communication (HIPO)
645
LOGON service 850
buffer 851
connection address control block
(CACB)
850
connection control block (CCB)
851
logon control block (LCB)
850
subsystem connection address control
block (SCACB)
851
subsystem connection control block
(SCCB)
851
subsystem logon control block
(SLCB)
851
LOSTERM exit (HIPO)
277
macro request analysis (HIPO)
727
main storage 4
mainline routines, SNA (HIPOs)
128
mapping control program ~FHMCP)
808
application program 808
basic mapping support (BMS)
802
cleanup undelivered messages program
(DFHTPQ)
820
interval control 809
non-3270 input mapping (DFHIIP)
806,809
page and text build ~FHPBP)
809,814
program control 809
route list resolution program
(DFHRLR)
809,816
storage control 808
task control 808,809
temporary storage control 808
terminal control 808
transient data control 809
3270 mapping (DFHM32)
809,812
master terminal (CSMT)
activity keypoint program (DFHAKP)
888
954
master terminal program ~FHMTP)
894
CSMT 894
CSOT 894
CSST 894
destination control table (DCT)
894
DL/I interface 836
dynamic open/close 894
file control 894
HIPOs 580
program control 894
system shutdown 895
task control 894
transient data control 894
master terminal program (DFHMTPA)
system termination program (DFHSTP)
916
message
build output (HIPO)
598
delivery, delayed, BMS (HI PO)
724
purge, EMS (HIPO)
718
route (MSP) (HI PO)
642
update routine (HIPO)
538
message backout table (MBO)
recovery utility program (DFHRUP)
901
message recovery
554
transaction backout program (HIPO)
message routine, NACP (HIPO)
297
message set
purge (HIPO)
383
message switching (DFHMSP)
890
basic mapping support 891
HIPOs 635
input TIOA 890
introduction 12
program control 890
ROUTE operand 890
storage control 890
task control area (TCA)
891
temporary storage control 890
terminal list task (TLT)
890
mirror transaction (CSMI)
DL/I
ISC handling of requests 865
mirror transaction program
(D:r'HMIR)
859,876
DL/I 876
ISC handling of requests 865
EXEC interface program 876
intersystem communication (HIPO)
781
terminal control 876
transformation program (DFHXFP)
876
mixed sub pool
FREEMAIN (HIP 0)
72
GETMAIN (HIPO)
61
MSG operand (HIPO)
639
multiprogramming 2,10
multitasking 10
network services exit (HIPO)
292
new connection manager
interregion communication (HIPO)
661
transaction CSNC ~FHKRNP)
856
NOCHECK request 862
node abnormal condition program (DFHNACP)
ABEND exit (HIPO)
301
main program (IIIPOS)
294
message routine (HI PO)
297
NEP interface routine (HI PO)
299
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
node abnormal condition program (DFHNACP)
(continued)
representative error routine ~IPO)
298
terminal management ~FHTCP,DFHZC~
920
node error program (DFHNEP)
terminal management ~FHTCP,DFHZC~
920
node error program interface, DFHZNEP
(HIPO)
257
non-3270 input mapping ~FHIIP)
806
data interchange 806
HIPO 698
mapping control 806,809
storage control 806
terminal control 806
non-3270 output mapping (HIPO)
679
non-3270 TEXTBLD ~IPO)
683
note operation
data interchange program ~IPO)
753
nucleus 4
initialize ~IP~
483
nucleus module
CICS/VS
system initialization program
(DFHSIP)
908
numeric data, change ~IPO)
584
open
file control (HIPO)
627
request, journal (HI PO)
410
subtask, journal (HIP~
416
transient data @IPO)
629
open/close program (DFHOCP)
DL/I interface 836
OPEN/CLOSE/LOCATE, FCP ~IPO)
347
operand
MSG ~IPO)
639
process (MSP) (HI PO)
638
operating system timer facilities
task control program ~FHKC~
883
operational considerations 8
CICS/VS initialization 9
control information 12
operator error
abnormal condition program (DFHACP)
788
operator terminal~IP~
600
OPNDST
exit (HI PO)
264
HIPO 145
out-of-line macro request processing
(HI PO)
408
output event completion processing
~IPO)
400
output formatting, FASTER 2260 ~IPO)
690
output initiation, journal ~IP~
397
output mapping 693
non-3270, PAGEBLD, BMS ~IPO)
679
3270, CICS ~IPO)
693
3270, PAGEBLD, EMS ~IPO)
681
output message, build (HlPO)
598
output processing (ATP) ~IPO)
621
output request, terminate, PAGEOUT (EMS)
~IPO)
686
output volume switching, journal
~IPO)
404
output, chain to previous command, BMS
(HIPO)
722
output, event initiation @IPO) 123
Index
overlay
supervisor @IPO)
481
page allocation map (PAM)
storage control program (DFHSCP)
903
page and text build (DFHPBP)
814
data stream build (DFHDSB)
804
mapping control program
(DFHMCP)
809,814
program control 814
storage control 814
812
3270 mapping ~FHM32)
490
page fix interface ~IPO)
page frames 4
490
page free interface @IPO)
page query, reset to (HIPO)
715
page retrieval and display (BMS)
~IPO)
711
822
page retrieval program (DFHTPR)
~IPO)
709
basic mapping support 822
BMS mapping control program 822
interval control 823
program control 822
single keystroke retrieval (HIPO)
723
storage control 822
task control 823
temporary storage control 822
terminal control 823
terminal output macro instruction 823
transient data control 823
page status, LDC (HI PO)
206
page, copy to another terminal, BMS
(HIPO)
721
PAGEBLD, output mapping
3270 (BMS) (HIPO)
681
PAGEOUT, terminate output request (BMS)
(HIPO)
686
paging 4,7
81
pass program control ~IPO)
phonetic conversion
BIF ~IPO)
731
PL/I interface (HIPO)
97
PL/I modules
program control program (DFHPCP)
898
POINT (HI PO)
intersystem communication 768
POINT routine
DFHZISP 870
point to new program copy (HIPO)
589
802
pre-VS mapping module (DFHBMSl1M)
pre-vS 3270 output mapping (HIPO)
696
preprocessor, HLL @IPO)
510
primed allocation (PRA)
storage control program (DFHSCP)
904
print key
copy program, 3270 ~IPO)
246
no task attached, 3270 (HIPO)
249
task attached, 3270 ~IPO)
245
process
command options ~IPO)
516
conversational response ~IPO)
637
data base/user log record (HI PO)
539
operands (!vISP) @IPO)
638
processing program table WPT)
search ~IPO)
89
903
storage control program ~FHSCP)
955
LICENSED MATERIAL -- PROPERTY OF IBM
processing, final ~TP) ~IPO)
509
program check interrupt
system re~overy program (DFHSRP)
914
program control
abnormal condition program (DFHACP)
788
asynchronous transaction control
program (DFHATP)
796
asynchronous transaction input
processor 792
asynchronous transaction output
processor 794
basic mapping support ~MS)
802
DL/I interface 838
dump control 832
dynamic backout program (DFHDB~
830
dynamic open/close program (DFHOC~
&96
EXEC interface (DFHEIP)
840
journal control program (DFHJC~
878
mapping control program (DFHMCP)
809
master terminal program (DFHMTP)
894
message switching (DFHMSP)
890
page and text bui ld (DFHPBP)
814
page retrieval program (DFHTPR)
822
route list resolution program
(DFHRLR)
816
storage control program (DFHSCP)
904
system recovery program (DFHSRP)
914
system termination program (DFHST~
916
task control program (DFHKC~
884
terminal page scheduling program
(DFHTPS)
826
transient data management
(DFHTDP)
930,932
program control facilities, initialize,
(HI PO)
484
program control program (DFHPCP)
898
ABEND 898
ANS COBOL modules 898
DL/I interface 836
dynamic transaction backout 89B
HIPOs 80
pass (HI PO)
81
PL/I modules 898
return (HIPO)
93
transfer (HIPO)
82
program control table (PC~
recovery utility program (DFHRUP)
900
storage control program (DFHSCP)
903
program elevation (HIPO)
86
program exit
task management (HI PO)
77
trace (fIIPO)
439
program fetch (HIPO)
87
program library
CICS/VS
system initialization program
(DFHSIP)
908
program list table (PLT)
504
program, execute (HIPO)
507
system termination program (DFHSTP)
916
program loader (HIPO)
498
program release (HIPO)
83
program specification block ~SB)
DL/I interface 836
program subpool
FREEMAIN (HI PO)
76
GETMAIN (HIPO)
68
956
prologue routine (DFHCSA)
LIFO 940
protect option group
recovery utility program (DFHRUP)
purge
asynchronous queue (HIPO)
623
logic, DFHZEMW (HIPO)
240
messages, BMS (H~PO)
718
transient data (HIPO)
372
purge message set (HIPO)
383
PUT
FCP (HIPO)
329
transient data (HIPO)
367
900
queue purge, asynchronous (HIPO)
623
queueing subroutine
activate (HIPO)
225
QUIESCE function processor
interregion communication (HIPO)
649
QUIESCE service 852
quiesce terminals (HIPO)
505
reactivate ABEND exit (HIPO)
94
read
data records
transaction backout program
(HI PO)
552
keypoint ~IPO)
497
log routine (HI PO)
531
restart data set data (HIPO)
473
read ahead
queueing, DFHZRAQ (HIPO)
258
retrieval, DFHZRAR (HIPO)
259
receive specific
exit (HIPO)
267
HIPO 173
receive-any (HIPO)
135
record format 7
recovery
storage control program (DFHSCP)
904
HIPO 79
temporary storage (HI PO)
560
recovery utility program (DFHRUP)
900
activity keypoint 900
DL/I backout table (DBO)
901
DL/I record 901
emergency restart 900
file backout table (FBO)
901
file control 900
HIPOs 529
input/output messages 901
journal control 900
keypoint program 900
logical unit of work (LUW)
900
message backout table ~BO)
901
program control table (PCT)
900
protect option group 900
system initialization program
(DFHSIP)
902,907
system log 900
temporary storage byte map 901
temporary storage recovery 901
terminal control 900
transaction backout table (TBO)
active task 901
in-flight task 901
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
:ecovery utility program (DFHRUP) (continued)
transient data bit map 901
transient data recovery 901
update/replace record 90~
~ecovery/restart
sync point program (DFHSPP)
910
~egion communication (DFHZCX)
857
~elease
data, temporary storage ~IPO)
382
request exit ~IPO)
278
storage area, BIF (HIPO)
737
~ELEASE, FCP (HIPO)
326
cemote request handler
DL/I interface (HIPO)
744
~emote resource determination
intersystem communication 763
~emote scheduler
DL/I interface (HIPO)
743
~emote scheduling block (RSB)
DL/I interface 836
~emoval of a resource, declare ~IPO)
54
~epresentative error routine, NACP
~IPO)
298
~equest analysis, BMS (HI PO)
663
request parameter list (RPL)
status byte
transient data management
(DFHTDP)
930
temporary storage management
(DFHTSP)
938
reset routine, time-Of-day ~IPO)
107
reset to page query (HIPO)
715
RESETL, FCP ~IPO)
346
RESETSR (HIP~
213
resource
availability, declare (HlPO)
52
dequeue all ~IPO)
28
dequeue from (HIPO)
27
resource determination
local/remote 763
response, conversational
exit (HI PO)
274
logger ~IPO)
303
process ~IPO)
637
restart data set 907
data, read ~IPO)
473
data, write ~IPO)
472
initialize, SIP (HIPq
493
keypoint program (DFHKPP)
886
transaction backout program 928
restart task after abend (HIPO)
98
resume a task (HIPO)
33
resync send program ~IPO)
304
resynchronization (HIPO)
215
retrieve data
HIPO 105
temporary storage (HIPq
380
retrieve selected records, BIF (HIPO)
736
retry program
dynamic backout program (DFHDBP)
830
return logic
DFHZEMW ~IPO)
233
return program control (HIPO)
93
rollback request
sync point program (DFHSPP)
911
route list build (BMS) ~IPO)
678
route list resolution program (DFHRLR)
816
HIPO 676
Index
route list resolution program (DFHRLR) (continued)
mapping control 809,816
program control 816
storage control 816
route message (HIPO)
642
ROUTE operand
HIPO 640
message switching (DFHMSP)
890
RPL
executer (HIPO)
289
service (HI PO)
260
runaway task
HIPO 446
task control program (DFHKC~
884
RUP initialization routine (HIPO)
530
SAM ~equential access metho~
3
save
BCAs and WREs ~IPO)
467
CSA data (HIPO)
464
data from TCAs (HIPO)
471
DCT bit map ~IPO)
465
ICEs and AIDs (HIPO)
466
table entries ~IP~
463
TCTTEs (HIPO)
474
temporary storage data (HIPO)
468
TS bit map data (HI PO)
469
SCACB (subsystem connection address
control block)
851
scan input text (HIPO)
513
SCCB (subsystem connection control
block)
851
schedule a resource (HIPO)
51
scheduling a PSB
DL/I interface (HI PO)
740
scheduling block (DFHISBDS)
DL/I interface 838
search
PPT (HIPO)
89
table, BIF (HIPO)
732
segment service, input (HIP 0)
317
selected records, retrieve, BIF (HIP~
736
selection criteria, establish, BIF
(HIPO)
735
selection operation
data interchange program ~IP~
755
send asynchronous command
exit ~IPO)
270
HIPO 172
send DFSYN
data exit ~IP~
286
HIPO 189
send error message logic, DFHZEMW
(HIPO)
237
send response ~IPO)
177
send synChronous data flow (DFSYN) exi t
~IPO)
283
send VE response logic, DFHZEMW (HIPO)
236
sequential access method (SAM)
3
service analysis (AT~ ~IPO)
620
service inquiry
no parameter list ~IPO)
582
with parameter list ~IPO)
583
service request block (SRB)
system initialization program
(DFHSIP)
908
SESSION control input exit (HIPO)
272
957
LICENSED MATERIAL -- PROPERTY OF IBM
SESSIONC
exit (HI PO)
265
HIPO 149
set LOGON start (HIP~
134
SETL
336
FCP (HIPO)
VSAM, FCP (HIPO)
338
shared data base
interregion communication 850
shared subpool
FREEMAIN (HI PO)
74
GETMAIN (HIPO)
66
short-on-storage (SOS)
storage control program (DFHSCP)
903
shutdown
determine type of (HI PO)
502
journal (HIPO)
392
sign-off program {HIPq
578
sign-on program (HIPO)
576
sign-on table
abnormal condition program ~FHAC~
788
signal expiration of specified time
(HI PO)
101
SIMLOGON (HI PO)
144
single keystroke retrieval (HIP~
723
SLCB (subsystem logon control block)
851
SNA (systems network architecture)
exit routines (HI PO)
128,261
mainline routines (HIPOs) 128
support routine (HIPOs)
128,293
specified time, signal expiration of
(HIPO)
101
SPIE
initialization (HIPO)
452
interface (HIPO)
447
SRB
dispatcher (HIPO)
48
initialization (HIPO)
47
management overview (HI PO)
44
mode
enter (HI PO)
43
leave {HI PO)
45
SRB mode
task control program (DFHKC~
884
STAE
exit
interregion communication
(HIPO)
659
initialization (HIPO)
452
interface (HIP~
448
retry (HIPO)
450
start-of-task processing routine
(HIPO)
543
start-up
interregion communication (HI PO)
660
terminal control (HI PO)
494
start-up ~FHSIP) (HI PO)
480
start-up task (HIPO)
152
start-up/shutdown, journal (HI PO)
386
statistics
routine (RUP), write (HI PO) . 546
system, request processing (HI PO)
602
utility program (DFHSTUP) (HIPO)
612
status, TCP (HIPO)
209
storage
frozen 903
storage chopper (HIPO)
495
958
storage control
abnormal condition program ~FHACP)
788
asynchronous transaction control
program ~FHATP)
796
asynchronous transaction input
processor 791
asynchronous transaction output
processor 794
basic mapping support (BMS)
802
built-in functions program ~FHBFP)
798
cleanup undelivered messages program
(DFHTPQ)
820
data interchange program (DFHDIP)
834
DL/I interface 838
dynamic open/close program ~FHOC~
896
file control program
~FHFCP /DFHFCD)
842
LIFO 940
mapping control program ~FHMCP)
808
message switching (DFHMSP)
890
non-3270 input mapping ~FHIIP)
806
page and text build ~FHPBP)
814
page retrieval program ~FHTPR)
822
route list resolution program
(DFHRLR)
816
task control program (DFHKCP)
882
temporary storage management
~FHTSP)
938
terminal page processor ~FHTPP)
818
terminal page scheduling program
~FHTPS)
826
transaction backout program 928
transient data management (DFHTDP)
930
3270 mapping ~FHM32)
812
storage control program ~FHSCP)
903
common system area ~SA)
903
dispatch control area ~CA)
903
DL/I interface 836
HIPOs 56
page allocation map (PAM)
903
primed allocation (PRA)
904
processing program table (PPT)
903
program control 904
program control table (PCT)
903
recovery routine 904
short-on-storage (SOS)
903
storage violations 903
system recovery 904
task control 904
task control area (TCA)
903
terminal control table terminal entry
(TCTTE)
903
terminal storage 903
storage control recovery (HIPO)
79
storage management (DFHSCP)
frozen storage 903
terminal management ~FHTCP,DFHZCP)
919
storage requests, LIFO (HIPO)
50
storage violations
storage control program (DFHSCP)
903
store data, temporary storage (HIPO)
377
subpool
allocation of dynamic storage 7
build dynamic, SIP (HIPO)
489
introduction 7
subroutine
KCQRLS
HIPO 29
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -
subroutine
(continued)
KCSRBA
HIPO 42
KCSRBE
HIPO 42
subsystem connection address control block
(SCACB)
851
subsystem connection control block
(SCCB)
851
subsystem logon control block ~LC~
851
subtask, journal open/close ~IPO)
416
supervisor terminal (HI PO)
599
supervisor, overlay ~IPO)
481
support routines, SNA ~IPO)
293
suspend a task (HI PO)
32
suspended task chain
task control program (DFHKCP)
883
SVC
initialization (DFHDRPF)
856
interregion communication ~IPO)
644
services
CONNECT 851
DISCONNECT 851
LOGOFF 852
LOGON 850
QUIESCE 852
SWITCH 851
SWITCH function processor
interregion communication (HIPO)
647
SWITCH service 851
SYNAD exi t ~IPO)
284
sync point program ~FHSpm
910
deferred work element (OWE)
910
deferred work element chain 910,911
deferred work element processor 910,911
abnormal termination 910
dynamic backout program (DFHDBP)
911
dynamic log 911
end ~IPO)
429
end-of-task record 911
HIPOs 423
journal control 911
logical unit of work ~UW)
910
recovery/restart 910
rollback request 911
task control 911
terminal control table terminal entry
(TCTTE)
911
transient data management ~FHTDP)
932
sync processing routine ~IP~
533
sync, TCP (HI PO)
212
synchronize a task (HI PO)
31
system abend
system recovery program ~FHSR~
914
system configuration 2
system generation 8
system initialization overlay 906
system initialization program
~FHSIP)
479,906
CICS/VS
dynamic storage pool 908
nucleus module 908
program library 908
DL/I interface 838
high-performance option ~PO)
908
overlay 906
recovery utility program
~FHRUP)
902,907
Index
PROPERTY Of' IBM
(DFHSIP)
(continued)
restart data set 907
service request block (SRB)
908
system queue area (SQA)
908
tape end of file program (DFHTEOF)
934
terminal control 908
transaction backout program 908,928
system initialization table ~FHSIT)
DL/I interface 838
system log
recovery utility program (DFHRUP)
900
system management
introduction 2
system monitoring
introduction 2
sy stern queue area (SQA)
system initialization program
(DFHSIP)
908
system recovery program (DFHSRP)
914
abnormal termination 914
HIPOs 445
keypoint program (DFHKPP)
886
program check interrupt 914
program control 914
storage control program (DFHSCP)
904
system abend 914
table 914
system reliability
introduction 2
system services
introduction 2
system shutdown
master terminal program (DFHMTP)
895
system statistics (HIPOs)
601
system support
introduction 2
system termination program
(DFHSTP)
501,916
AID chain 916
BCA chain 916
common system area (CSA)
916
CSMT SHUTDOWN request 916
DL/I interface 836
HIPOs 500
ICE chain 916
keypoint program (OFHKPP)
886
master terminal program (DFHMTPA)
916
overview (HIPO)
501
program control 916
program list table (PLT)
916
transaction list table ~LT)
916
system trace
(HI PO)
435
systems network architecture (see SNA)
table entries, save ~IPO)
463
table search, BIF ~IP~
732
tables
preparation of 9
tape end of file program (DFHTEOF)
934
HIPO 522
log tape volume 934
system initialization program
(DFHSIP)
934
tape volume swopping 934
verification of label record 934
959
LICENSED MATERIAL -- PROPERTY OF IBM
tape volume swopping
tape end of file program ~FHTEOF)
934
tape, format routine (HIPO)
519
task
attach (HI PO}
155
delay processing (HIPO)
100
list all (MTP) (HIPO)
596
restart after abend (HIPO)
98
resume (HIPO)
33
runaway (HIPO)
446
suspend (HIPO)
32
synchronize (HI PO)
31
terminate, abnormally (HIPO)
84
terminate, using task number (HI PO)
594
terminate, using terminal ID (HI PO)
593
task ABEND (HIPO)
455
bootstrap, journal (HIPO)
390
task abnormal condition
abnormal condition program ~FHAC~
788
task abnormal termination routine
task control program (DFHKC~
884
task control area (TCA)
3
dump management 832
message switching (DFHMSP)
891
save data from (RIPO)
471
storage control program ~FHSCP)
903
terminal management ~FHTCP,DFHZC~
920
user
terminal management
~FHTCP,DFHZCP)
920
task control program (DFHKCP)
882
abnormal condition program ~FHACP)
788
active task chain 883
asynchronous transaction control
program (DFHAT~
796
asynchronous transaction input
processor 792
dispatch control area ~CA)
883
DL/I interface 836
file control program
(DFHFCP /DFHFCD)
842
HIPOs 19
interval control 882
journal control program ~FHJCP)
880
mapping control program
~FHMCP)
808,809
master terminal program ~FHM.TP)
894
operating system timer facilities 883
OSjVS
timer interrupt routine 884
WAIT 883
page retrieval program (DFHTPR)
823
program control 884
runaway task 884
SRB mode 884
storage control 882,904
suspended task chain 883
sync point program ~FHSP~
911
task abnormal termination routine 884
task dispatcher 883
TCB mode 884
temporary storage management
(DFHTSP)
938
terminal management
(DFHTCP,DFHZCP)
918,919
terminal page scheduling program
(DFHTPS)
826
960
task control program (DFHKCP)
(continue~
transient data management
(DFHTD~
930,932
task detach (HIP~
183
task dispatcher
active DCA scan 36
dispatch (HIPO)
37
interval control program (DFHICP)
848
overview (HIPO)
34
task control program (DFHKCP)
883
time analysis (HIPO)
35
time management ~FHICP)
848
task initialization, automatic (HIPO)
221
task initiation 10
ATP (HIPO)
619
ICP (HIPO)
102
task priority, change (HI PO)
30
task termination
ATI processing (HIPO)
125
task, attaching
HIPO 20
task, detaching
HIPO 23
TCA (see task control area)
TCAM (telecommunications access method)
3
TCB mode
task control program~FHKCP)
884
telecommunications access method (TCAM)
3
teleprocessing subpool
FREEMAIN (HIPO)
71
GETMAIN (HI PO)
59
temporary storage management ~FHTSP)
938
byte map
recovery utility program
~FHRUP)
901
cleanup undelivered messages program
(DFHTPQ)
820
control blocks, initialize (HIPO)
491
data interchange program (DFHDIP)
834
data, save (RIPO)
468
.DFHTS macro 938
dynamic backout program (DFHDBP)
830
facilities, initialize (HIPO)
488
HIPOs 376
journal control program (DFHJCP)
880
mapping c.ontrol program (DFHMCP)
808
message switching (DFHMSP)
890
page retrieval program ~FHTPR)
822
recovery (HIPO)
560
recovery utility program ~FHRUP)
901
request parameter list (RPL)
938
storage control 938
task control 938
temporary storage bit map 938
temporary storage group identification
(TSGID)
938
temporary storage unit table
extension 938
terminal page processor ~FHTPP)
818
terminal page scheduling program
~FHTPS)
826
transaction backout program 928
temporary storage requests
transformation program (DFHXFP)
872
terminal abnormal condition line entry
~FHTACLE)
terminal management (DFHTCP,DFHZCP)
CICS/OS/VS Program Logic:
920
Description
(
LICENSED MATERIAL -
terminal abnormal condition program
(DFHTACP)
terminal management ~FHTCP,DFHZC~
920
terminal activity control (HIPO)
121
terminal control
asynchronous transaction control
program (DFHATP)
796
asynchronous transaction input
processor 791
asynchronous transaction output
processor 794
basic mapping support (BMS)
802
data interchange program ~FHDIP)
834
FASTER
2260 compatibility
(DFHFIP,DFHF2~
846
intersystem communication 870
mapping control program (DFHMCP)
808
mirror transaction program (DFHMIR)
876
non-3270 input mapping (DFHIIP)
806
page retrieval program (DFHTPR)
823
recovery utility program (DFHRU~
900
start up (HI PO)
494
system initialization program
(DFHSIP)
908
3270 mapping (DFHM32)
812
terminal control facilities, initialize
.(HIPO)
487
terminal control table
transaction backout program 928
terminal control table terminal entry
(TCTTE)
save (HIPO)
474
storage control program (DFHSCP)
903
sync point program (DFHSPP)
911
terminal data
asynchronous transaction processor 791
terminal error, ACP (HIPO)
456
terminal input/output area
address
3270 mapping (DFHM32)
812
address of, basic mapping support 802
terminal list task (TLT)
message switching (DFHMSP)
890
terminal management (DFHTCP,DFHZCP)
918
access method dependent interface 919
access methods 919
common interface 918
HIPOs 112
node abnormal condition program
(DFHNACP)
920
node error program (DFHNEP)
920
storage management 919
task control 918
task control area (TCA)
facility control area associated
address 918
terminal control 920
user 920
terminal abnormal condition line entry
(DFHTACLE)
920
terminal abnormal condition program
(DFHTACP)
920
WAIT request 918
terminal output macro instruction
page retrieval program ~FHTPR)
823
terminal page processor (DFHTP~
818
terminal output subroutine (HIPO)
701
Index
PROPERTY OF IBM
terminal page cleanup program ~FHTPQ)
HI PO 705
terminal page processor ~FHTPP)
818
data stream build (DFHDSB)
804
HIPO 699
storage control 818
temporary storage control 818
terminal output macro instruction 818
terminal type parameter 818
3270 mapping (DFHM32)
812
terminal page scheduling program
~F~TPS)
826
. interval control element (ICE)
826
program control 826
storage control 826
task control 826
temporary storage control 826
terminal scan, initialize, BSC ~IPO)
117
terminal status, change (HIPO)
587
terminal storage
storage control program ~FHSCP)
903
terminal supervisor (HIPO)
599
terminal test (HIPO)
634
terminal transaction initiation (HIPO)
122
terminal type parameter
terminal page processor ~FHTPP)
818
terminal, operator (HIPO)
600
terminate
output request, PAGEOUT (BMS)
(HIPO)
686
PCB
DL/I interface (HIPO)
742
task
abnormally (HIPO)
84
using terminal ID (HIPO)
593
termination
logic, DFHZEMW (HIPO)
233
routine (RUP) (HIPO)
545
task, ATI processing (HIP~
125
transaction backout program (HIP~
559
test, terminal (HIPO)
634
TEXTBLD
non-3270 (BMS) (H IP 0)
683
3270 (BMS) (HIPO)
684
time adjustment program
HI PO 632
interval control program (DFHICP)
848
time management ~FHICP)
848
time expiration analysis (HIPO)
108
time management (DFHICP)
99,848
task dispatcher 848
time adjustment 848
time-o£-day
current (HI PO)
104
reset routine (BIPO)
107
time-ordered request, cancel (HIPO)
106
timer interrupt
exit routine (HIPO)
40
OS/VS
task control program (DFHKCP)
884
TLT (see terminal list table)
tokenise input string (HIPO)
514
TPEND exit (HI PO)
282
trace entry
LIFO 940
trace management (DFHTRP)
936
auxiliary trace 936
data interchange program (DFHDIP)
834
961
LICENSED MATERIAL -- PROPERTY OF IBM
trace management (DFHTRP)
(continued)
DFHLFM macro 936
DFHTRACE macro 936
dump control 832
FE (HI PO)
434
HIPOs 431
system (HIPO)
435
table 936
trace utility program (DFHTOP)
936
user (HI PO)
433
trace table (TRT)
logging, turn on/off (HIPO)
590
trace management (DFHTRP)
936
trace utility program (DFHTRP)
HIPO 561
trace utility program (DFHTUP)
trace management (DFHTRP)
936
transaction backout program 928
data base backout (HI PO) 555
DL/I backout (HIPO)
557
emergency restart 928
file control program (DFHFC~
928
HIPOs 549
initialization routine (HI PO)
550
keypoint program (DFHKPP)
928
message recovery (HIPO)
554
read data records (HI PO) 552
restart data set 928
storage control 928
system initialization program
(DFHSIP)
908,928
temporary storage control 928
terminal control
table 928
termination (HI PO)
559
transient data program 928
user exit 928
transaction backout table (TBO)
recovery utility program (DFHRUP)
901
transaction CSNC (DFHKRNP)
856
transaction initiation, terminal
(HIPO)
122
transaction list table (XLT)
load (HIPO) 503
system termination program (DFHSTP)
916
transaction work area 3
transfer program control (HIPO)
82
transformation program (DFHXFP)
872
DL/I schedule and data base
requests 872
file control requests 872
intersystem communication 870
HIPO 776
interval control requests 872
mirror transaction program (DFHMIR)
876
temporary storage requests 872
transformation 1 872
transformation 2 874
transformation 3 874
transformation 4 875
transient data requests 872
transformation 1 872
attach function management header
(AFMH)
873
ISC handling of EXEC request
transformation 2 859,874
ISC handling of EXEC request
transformation 3 874
962
859
859
transformation 3
(continued)
ISC handling of EXEC request 859
transformation 4 875
ISC handling of EXEC request 860
transformer storage area (XFSTG)
868
local/remote determination program
(DFHELR)
868
transient data
DL/I interface 838
dynamic backout program (DFHDBP)
830
entry (HIPO)
362
facilities, initialize (HIPO)
485
GET (HI PO)
369
OPEN (HIPO)
629
PURGE (HIPO)
372
PUT (HIPO)
367
recovery (HIPO)
547
transient data bit map
recovery utility program (DFHRUP)
901
transient data CLOSE (HI PO) 630
transient data control
abnormal condition program (DFHACP)
788
asynchronous transaction control
program (DFHATP)
796
asynchronous transaction input
processor 792
asynchronous transaction output
processor 794
cleanup undelivered messages program
(DFHTPQ)
820
dynamic open/close program (DFHOCP)
896
mapping control program (DFID1CP)
809
master terminal program (DFHMTP)
894
page retrieval program (DFHTP~
823
transient data DWE processor (HIP~
364
transient data intrapartition queue
asynchronous transaction control
program (DFHATP)
796
transient data management (DFHTD~
930
data event control block (DEC B) , status
byte 930
deferred work element (DWE)
930,932
destination control table (DCT)
930,932
disk map 931
dynamic backout program 932
extrapartition 932
HIPO 361
intrapartition 930
journal control 932
logical unit of work (LUW)
932
program control 930,932
request parameter list (RPL), status
byte 930
storage control 930
sync point program 932
task control 930,932
transaction backout program 928
transient data recovery
recovery utility program (DFHRUP)
901
transient data requests
transformation program (DFHXFP)
872
TS bit map data, save (HIPO)
469
TST update routine (HI PO) 540
turn on auxiliary trace (HIPO)
436
turn trace on/off (HIP 0)
432
turn trace table logging on/off (HI PO) 590
turnaround exit (H I PO)
288
CICS/OS/VS Program Logic:
Description
LICENSED MATERIAL -- PROPERTY OF IBM
TWA (see transaction work area)
type of shutdown, determine ~IPO)
502
TYPE=IN processing, BMS ~IPO)
667
TYPE=MAP processing, BMS ~IPO)
667
TYPE=PAGEBLD processing, BMS ~IPO)
669
TYPE=PAGEOUT processing, BMS ~IPO)
671
TYPE=PURGE processing, BMS (HIPO)
675
TYPE=ROUTE processing, BMS ~IPO)
665,669
TYPE=TEXTBLD processing, BMS ~IPO)
669
UIB (see user interface block)
unblock keyboard program, 3270 ~IPO)
248
undeli vered messages, cleanup (BMS)
~IPO)
705
update routine
data base (HIPO)
537
DCT entry {HI PO)
535
DL/I (HIPO)
541
message (HIPO)
538
TST (HIPO)
540
user/data base (HIPO)
536
update/replace record
recovery utility program ~FHRUP)
901
uppercase translation, 3270 (HIPO)
252
user data set 8
user exit
asynchronous transaction input
processor 791
asynchronous transaction output
processor 794
transaction backout program 928
user interface block (UIB)
865
user log record/process data base
~IPO)
539
user log routine, update (HIPO)
536
user trace (HIP~
433
user-written program error program (PEP)
abnormal condition program (DFHACP)
788
using program logic manuals 1
utility program
dump (HIPO)
518
statistics (HIP~
612
trace ~IPO)
561
verification of label record
tape end of file program ~FHTEOF)
934
verification routine, label ~IP~
532
verify field, BIF (HI PO)
730
virtual storage access method ~SAM)
3
virtual telecommunications access method
~TAM)
3
VSAM
close processing ~IPO)
357
GET, file management (HIP~
310
GETNEXT/GETPREV, FCP (HIP~
343
open processing (HI PO)
349
output, FCP ~IPO)
331
SETL, FCP ~IPO)
338
work area
acquisition (HI PO)
319
disposition ~IPO)
320
VSWA (see VSAM work area)
VTAM (virtual telecommunications access
method)
3
Index
WAIT
OS/VS
task control program ~FHKCP)
883
wait request
journal ~IPO)
396
terminal management ~FHTCP,DFHZCP)
918
warm keypointing 886
warm restart 906
weighted retrieval
initiate, BIF ~IPO)
734
WREs, save ~IPO)
467
write
auxiliary trace record {HI PO)
438
console ~IPO)
499
DFHRSD control record (HIPO)
470
DWE log data (HIPO)
427
request, journal ~IPO)
394
restart data set data (HIPO)
472
restart data set routine (HIPO)
544
statistics routine (RUP) (HIPO)
546
XFSTG (see transformer storage area)
3270
CICS ~IPO)
693
input mapping
HIPO 695
pre-VS (HIPO)
691
mapping ~FHM32)
812
output mapping
HIPO 693
pre-VS (HI PO)
693
print key
copy program ~IPO)
246
no task attached (HIPO)
249
task attached ~IPO)
245
TEXTBLD (BMS) (HIPO)
684
unlock keyboard program (HI PO)
248
uppercase translation ~IPO)
252
3270 mapping (DFHM32)
812
mapping control 809,812
page and text build 812
storage control 812
terminal control 812
terminal input/output area, address
terminal page processor 812
812
963
READER'S
COMMENT
FORM
Customer Information Control System/Virtual Storage (CICS/VS)
Program Logic: Description (OS/VS)
L Y33-6034-0
This manual is part of a library that serves as a reference source for systems analysts, programmers, and operators
of IBM systems. This form may be used to communicate your views about this publication. They will be sent
to the author's department for whatever review and action, if any, is deemed appropriate. Comments may be
written in your own language; use of English is not required.
IBM may use or distribute any of the information you supply in any way it believes appropriate without incurring
any obligation whatever. You may, of course, continue to use the information you supply.
Note: Copies of IBM publications are not stocked at the location to which this fonn is addressed. Please direct
any requests for copies of publications, or for assistance in using your IBM system, to your IBM representative
or to the IBM branch office serving your locality.
Number of your latest Technical Newsletter for this publication ......................................... .
'"'"'"
'~"
Ci:'"
..;
t::
'EO"
.12'tJ-"
'OJ" g
.Ej -2
'0
.~
'" "E
~ 'iii
EO
'\J
l!l
'"
2'"
'EO" '"
2 ~
'" '"
"E'"
';::
'"EO
'\J
EO
EO
OJ
<:
..J
"C
......
0
Ql
0
Cl
<:
0
'"
r
-<
W
w
-.::®
----- . --- --~---- - " ' " -- " -
--
International Business Machines Corporation
Data Processing Division
1133 Westchester Avenue, White Plains, N.Y. 10604
I BM World Trade Americas/Far East Corporation
Town of Mount Pleasant, Route 9, North Tarrytown, N.Y., U.S.A. 10591
I BM World Trade Europe/Middle East/ Africa Corporation
360 Hamilton Avenue, White Plains, N.Y., U.S.A. 10601
m
o
w
"'6"
:rn~ /
Technical Newsletter
This Newsletter No.
Date
LN33·6252
December 1978
Base Publication No.
LY33·6028·1
Previous Newsletters
None
Customer Information Control
System/Virtual Storage (CICS/VS)
Version 1, Release 4
Program Logic (DOS/VS)
© IBM Corp. 1978
This technical newsletter, a part of Version I, Release 4 of Customer Information
Control System/Virtual Storage (CICS/VS), provides replacement pages for the subject
publication. These replacement pages remain in effect for subsequent versions and
releases unless specifically altered. Pages to be inserted or removed are:
f
895,896
899,900
919,920
923,924
997-1008
1008.1, I 008.2(added)
1225,1226
1226.1,1226.2(added)
A change to the text or to an illustration is indicated by a virticalline to the left of
the change.
Summary of Amendments
The main changes introduced by this TNL are the addition of the Transient Data
VSAM Control Interval Map, and corrections to the Function Management Header,
both in the Data Areas section of the publication.
Note: Please file this cover letter at the back of the publication to provide a record
of changes.
IBM United Kingdom Laboratories Ltd, Technical Documentation Department, Hunley
Park, Winchester, Hampshire S021 2JN, England.
© IBM Corp. 1978
/
LICENSED MATERIAL -- PROPERTY OF IBM
TABLE OF CONTENTS
Automatic Initiate Descriptor (AID)
ATP CSA Extension Area • • • • • •
Batch Control Area (BCA) • • • • •
Basic Mapping Support Entry Addresses ~MS)
Map Description ~MS)
•••••
Map Set Specifications • • • •
Tab Format Map Specifications
Map Specifications • • • • •
Field Specifications • • •
Message Control Block (BMS)
MCBjLDC Repeated Entry • •
Message Control Record (BMS)
Page Control Area (BMS)
CICS Modified ISMOD Save Area • • • • •
Common System Area (CSA) • • • • •
• • • •
CSA Optional Features List • • •
ISC Module Addresses • • • • •
ELS Module Addresses • • • • •
EXEC Interface Module Addresses • • • • • • • •
ISC Converse Entry, Invoked by DOS-DL/I • • • •
DL/I Backout Table (DBO) • • • • • • • •
Dispatch Control Area . (DCA)
• • • •
Destination Control Table (DCT)
••••
Indirect Destination •
Remote Destination • •
Extrapartition Entry
Intrapartition Entry •
• • • •
Automatic Transaction Initiation Extension •
Destination Control Table Full Index
Destination Control Chain Record •
Data Interchange Block (DIB)
Data Interchange Control Block • •
Input Destination Latest FMH • •
Output Destination Latest FMH
DL/I Interface Modules Address List
DL/I Resource Table (ISC)
• • • •
Def ine The File (DTF)
••••
Common Command Control Block
Device Dependent Card Reader • • • • •
Line Printer • •
Magnetic Tape
Sequential Disk
• • • • •
CPU Console
• • • •
Journal Control I/O Communication Area (DTF) • • • •
Dump Control Record
• • • •
Code Definition • • • • • • •
Block Format • • • • • • • • •
Transaction Dump Record Format •
Date and Time Record Format • • • •
Trace Table Header Format
Formatted Dump Record Formats • • • •
PSW Record Format
Register Dump Format • • • • •
Control Block Index Item Format
Module Index Item Format • • •
Deferred Work Element (DWE)
Transient Data DWE Extension • •
• 901
• 903
• 904
• 906
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
907
907
907
908
910
912
914
915
917
918
919
928
932
932
932
933
936
938
940
942
942
942
942
943
944
945
946
947
948
948
952
953
954
954
955
955
955
956
956
958
961
962
963
963
963
964
964
964
964
964
964
965
966
..1
Section 5.
Data Areas
895
Page of LY33-6028-1, Revised December 1978 by TNL LN33-6252
LICENSED MATERIAL -- PROPERTY OF IBM
Temporary Storage DWE Extension
Terminal Control DWE Extension •
Interval Control DWE Extension •
Dynamic Backout Record •
Dynamic Backout Log
.Event Control Entry (ECE)
EXEC Interface Structure ~IS)
EXEC Interface Communications Area •
Free Area Queue Element (FAQE)
File Backout Table (FBO)
File Browse Work Area (FBWA)
File Control Table (FCT)
Remote Entries Only
File Control Table Directory •
Segment Control Tables • •
File Control Table Segment Header (FCTS~
File Control Table Segment Definition (FCTSD)
File Control Table Segment Set (FCTSS)
File Control Table Indirect Access Extension •
File Control Table Shared Resources Control
Build VSAM Pool List • •
File Input/Output Area (FIOA)
Function Management Header (FMH)
Common Section •
Batch LU Extension • •
Type 1 FMH Format
Type 2 FMH Overlay
Type 5 FMH •
CICS Private (Type XI43 1 ) FMH
Type 6 FMH •
Function and Module Identifiers
Function Identifiers •
Journal control
Dynamic Backout Function Identifiers • •
File Control •
Transient Data Function Identifiers
Temporary Storage Function Identifiers
Interval Control Function Identifiers
Activity Keypoint Function Identifiers •
Sync Point Function Identifiers
BMS Function Identifiers •
Terminal Control Function Identifiers
Module Identifiers •
File Work Area (FWA)
Interval Control Element (ICE)
ISC Message Parameters •
ISC Request Control Block
Journal control Area (JCA)
JCA Communication Area
Write-Request Usage
Note-Returned Data •
CICS Internal Usage
Common Root Segment
File Control Segment •
Terminal Control Segment •
SPR Segment
Journal Control Open/Close Parameter List
Journal Control Records
Journal Control Record •
Journal Control Label Record
Journal Control Table Root •
896
-.
•
•
•
•
967
967
967
968
970
• 971
• 972
•
•
•
•
•
•
•
•
•
•
•
•
•
•
-.
..
-
978
979
980
981
983
984
988
988
988
989
990
990
992
994
996'
• 998
• 999
.1000
.1000
.1001
.1002
.1003
.1003
.1008.2
.1008.2 .
.1009
.1009
.1009
.1009
.1010
.1010
.1010
.1010
.1011
.1011
.1012
.1013
.1014
.1016
• 1017
.1020
.1020
.1021
.1022
.1023
.1024
.1024
.1025
.1025
.1026
.1027
.1027
.1029
.1030
CICS/DOS/VS Program Logic
Page of LY33-6028-1, Revised December 1978 by TNL LN33-6252
LICENSED MATERIAL -- PROPERTY OF IBM
VTAM Definitions • • • • • • • •
3270 Size Specifications •
System Area • • • • • •
General Information
Terminal Statistics
Operator Statistics
Terminal Control Indicators
• • • •
Operation Status • • •
• • • •
Access Method Flags
• • • •
Operation Requests • •
• • • •
Operation Modifiers
• • • •
Bisynchronous Data
••••
Start Stop Specific Poll Area
Terminal-Dependent Extension Overlay Area
2980 Control Extension • •
3270 Display Data
3270 Compatibility Area • • • •
3735 Extension Area
3740 Extension Area
3600 BSC Synchronous Extension Area
SNA System Area
Sense Data • • • • • • • •
VTAM System Area • • • •
Internal Error Code Area •
Activate Chain Requests • • • • • • • •
Pacing and RU Count Bytes
VTAM Internal Requests • • •
System Service Queue Flag
EMW Request and Status Flags •
Async Request Flags (for use by ZSDA/ZSAX Only)
LRP Request and Status Flags •
Attach Required Fields •
VTAM Process Status
• • • •
Operation in Progress • • • • •
Node Session Status
• • • •
Session Characteristics • • • •
Pending Event Status • • •
Bracket Protocol Status • • • •
Transmission Protocol Status
CLSDEST Status • • • • • • •
Send Response to Command Request •
Session Functions Definition
VTAl4 3270 Control Information
Common OVerlay Area •• • • • •
VTAM 3270 System Area • • • •
System Table Entry Definition
System Entry - VTAM Specific •
TCTTE Extension for NIB Descriptor
Terminal Table Extension • • • •
Transient Data Input Area (TDIA)
Transient Data Output Area (TDOA)
Transient Data - VSAM Control Interval Map • •
Temporary Storage Table
Common Part • • • • • • •
Remote Only • • • • • • •
Remote and TSTRNMBM=l Only
Temporary Storage Control Record •
Temporary Storage Record Prefix • • • •
Temporary Storage Table user-SUpplied
Route List· Entry (BMS)
••••••••
Temporary Storage TSUTEPTR or TSGID Entry
Temporary Storage Unit Table •
Temporary Storage Common Area • • • • • •
Section 5.
Data Areas
• •
..
• • • •
~
• • • •
• • • •
.1190
.1190
.1191
.1191
.1192
.1192
.1192
.1193
.1193
.1194
.1194
.1196
.1196
.1196
.1196
.1197
.1198
.1198
.1199
.1199
.1199
.1199
.1201
.1202
.1202
.1204
.1204
.1205
.1206
.1206
.1207
.1207
.1208
.1208
.1209
.1210
.1210
.1211
.1212
.1212
.12'
91
LICENSED MATERIAL -- PROPERTY OF IBM
Temporary Storage unit Table Entry • • • • • •
Temporary Storage Group Identification ~SGID)
Temporary Storage Input/Output Area (TSIOA)
Terminal Control Transaction Work Area
Terminal Input/Output Area (TIOA)
Trace Table (TRT)
••••••••••••••
Terminal Type Parameter (TTP,BMS)
••••
Common Control Area • • • • • •
• • • •
Routing Information Extension • • • •
Device-Dependence Suffix (DDS) /Map Set Suffix (MSS)
Transaction List Table ~LT)
• • • •
VSAM Work Area ~SWN
• • • • • • • • •
File Browse Extension
• • • • • • • • •
Weighted Retrieval Work Area ~IF)
Wri te Request Element (WRE) • • • •
Data Area Activity • • • • • • •
CICS/VS Storage Areas
• • • •
)0
..
.1238
.1239
.1241
.1242
.1245
.1246
.1247
.1247
.1250
.1251
.1253
.1254
.1256
.1257
.1260
.1261
.1266
CICS/DOS/VS Program Logic
Page of LY33-6028-1, Revised December 1978 by TNL LN33-6252
LICENSED MATERIAL -- PROPERTY OF IBM
COMMON SYSTEM AREA
DSECT NAME:
(CSA)
DFHCSADS
The Common System Area (CSA) is a main storage control area provided for
each system as a part of CICS/VS. The CSA exists within the system from
initialization of the system until the system is closed down. The CSA
is composed of areas of data essential to the operation of CICS/VS and
an optional work area that may be used as temporary working storage by
processing programs. The user temporary working storage is available to
any task while it has control of the system (that is, for operations
performed between requests to CICSjVS) •
ALPHABETIC INDEX TO FIELD NAMES
Offset
or
Reference
CSAACTBA
CSAACTFA
B4
BO
CSAAIDBA
94
CSABASCL
CSABASTU
CSABTCCB
CSACDTA
CSACICS
CSAC IREL
CSACSCC
CSACTODB
16C
170
D8
4C
9E
9F
60
60
CSADATFT
SA
CSADCNAC
CSADCND
FO
lEl
CSADCTBA
CSADOLA
CSAEXTM
CSAFCNAC
CSAFCTBA
130
144
194
F8
12C
CSAFOLA
CSAICEBA
14C
54
CSAICFNA
19C
CSAICIND
5B
CSAICNAC
CSAICRIC
CSAICRIN
CSAICRNX
CSAICRUN
CSAIcSIC
CSAIOCP
CSAJYDP
EC
IBO
lA1
lAO
IB4
58
lC6
7C
Section 5.
Data Areas
Offset
or
Reference
Offset
or
Reference
CSASUSBA
CSASUSFA
CSASUSOF
AC
A8
9C
CSANXDCA
CSAOPFLA
CSAOPREL
CSAOPSYS
CSAOSRSA
CSAPAMA
A4
C8
9D
9C
98
CSATADJT
CSATCNAC
5C
F4
CSAPCDTF
190
CSATCNDT
lAC
CSAPCNAC
CSAPCTBA
CSAPINI
CSAPIPSW
CSAPLBA
CSAPOLA
CSAPPTBA
CSAPUBA
CSAQCAA
CSAQETBA
CSARDATC
E8'
120
IDF
10C
74
140
124
78
13C
13C
IB6
CSATCTBA
CSATCTCA
CSATDNAC
CSATDNT
CSATDOLA
CSATDTCA
CSATODB
128
B8
Fe
IFO
150
80
6C
CSATODP
CSATODTU
50
lA8
CSASANAC
CSASBTI
CSASCAR
CSASCCR
CSASCFI
104
64
lCF
107
ID3
CSASCMQ
CSASCNAC
CSASCNB
CSASCPXM
CSASCQZ
CSASCRQ
lOB
E4
70
EO
10D
1D9
CSATOLA
CSATRMFl
CSATRNAC
CSATRMF2
CSATRMF3
CSATRMF4
CSATRNAC
CSATRTBA
CSATSASA
CSAT SATA
CSATSDTI
CSATSMSA
148
84
108
85
86
87
108
l1C
lE6
134
8A
lE3
CSASITBA
CSASITOD
CSASNNAC
8C
6C
110
CSATSMTA
CSATSNAC
CSATSOLA
138
100
154
48
CSATTECB
68
CSASOSI
o
919
LICENSED MATERIAL -- PROPERTY OF IBM
Offset
or
Reference
CSAKCCT
CSAKCMI
CSAKCMT
CSAKCMTA
CSAKCMTC
CSAKCNAC
lC8
49
4A
1CA
1CO
CSAKCTTA
CSAKPACT
CSAKPCLK
CSAKPCNT
CSAKPFRQ
CSAMAXT
CSAMAXTC
1CC
CE
DO
1C4
CC
CO
C2
EO
Offset
or
Reference
Offset
or
Reference
CSAUNQID
CSAUTA1
CSAUTA2
CSAUTA3
CSAUTA4
CSAWABA
CSAWAL
CSAWTOAD
90
lF3
1F6
lF9
lFC
200
C6
1BC
CSASPA2
CSASPA3
CSASPNAC
CSASSI1
CSASSI2
114
48
49
Name
Description
CSAOSRSA
Common system register storage
area
CSASOSI
CSASSI1
Short-on-storage indicator, or
System signal indicator 1
Value
Function
X' 01"
Short on storage
condition exists
lEE
lED
STORAGE LAYOUT
Offset
Length
o
72
48
1
CSASOSON
49
1
CSAKCMI
CSAECI
CSASSI2
CSAMXTON
CSATQIM
CSATCPQM
CSAPLTPI
CSAECICS
CSAFNLTM
CSASTIM
4A
2
CSAKCMT
4C
4
CSACDTA
Maximum number of tasks indicator,
or
CICS subset indicator,
or
System signal indicator 2
Value
Function
Maximuro task indicator,
X'02"
on condition
Transaction quiesce
X'04'
indicator mask
X'OS'
Terminal Control
quiesce mask
PLTPI phase has
X'10'
completed
X"20'
crcs Subset
Indicator
Final termination phase
X'40'
posting mask
System termination
X'SO'
indicator mask
Maximum number of tasks
CUrrently
d~spatched
50
920
4
CSATODP
TCA task address
Time of day. A packed integer of the
form HHMMSSTC where HH is hours, MM is
minutes, SS is seconds, T is tenths of
a second, and C is a positive sign.
CICSjDOSjVS Program Logic
Page of LY33-6028-1, Revised December 1978 by TNL LN33-6252
LICENSED MATERIAL PROPERTY OF IBM
Offset
9C
Length
1
Name
Description
CSAOPSYS
Operating System
Value
Function
CaDi
DOS/VS
Cl 1'
OS/VS1
CIS'
OS/SVS
CaM'
OS/MVS
CSADOS
CSAVS1
CSASVS
CSAMVS
9D
1
CSAOPREL
CSAD34
CSA16 0
CSAS17
CSAM37
9E
1
CSACICS
CSAELS
CSAFULL
9F
1
CSACIREL
CSAC14
Operating System release
Value
Function
X'34'
DOS/VS Release
X~60 '
OS/VS1 Release
X1 17'
OS/SVS Release
X'37'
OS/MVS Release
34
6.0
1.7
3.7
CICS/VS System
Value
Function
CaE'
Entry Level System (ELS)
C'F'
Full C1CS/VS
C1CS/VS Release
Value
Function
X'14'
Version 1, Release 4
AO
4
A4
4
CSANXDCA
Next available Dispatch Control
Area (DCA)
A8
4
CSASUSFA
Lowest priority suspended task DCA
AC
4
CSASUSBA
Highest priority suspended task DCA
BO
4
CSAACTFA
Lowest priority active task DCA
B4
4
CSAACTBA
Highest priority active task DCA
B8
4
CSATCTCA
Terminal Control TCA address
BC
4
co
2
CSAMAXT
Maximum active task value
C2
2
CSAMAXTC
Maximum active tasks, accumulated
C4
2
C6
2
CSAWAL
Length, in bytes, of CSA + CSA work
area + system 1D
C8
4
CSAOPFLA
CSA Optional Features List address
CC
2
CSAKPFRQ
Activity keypoint frequency counter
CE
2
CSAKPACT
Activity keypoint attach counter
DO
8
CSAKPCLK
Activity keypoint, store clock
D8
4
CSABTCCB
BTAM master CCB address
Section 5.
Data Areas
Zero. Dummy suspended task DCA has
DCATR10 set to zero.
Dummy dispatch control, priority, etc
Reserved
923
LICENSED MATERIAL -- PROPERTY OF IBM
Offset
Length
Name
DC
Description
Memory constant - CNST
EO
CSAKCNAC
Task Control entry address
E4
CSASCNAC
CSASCPXM
Storage Control entry address
Value
Function
Storage Control
X'SO'
program-check exit
active
ES
CSAPCNAC
Program Control entry address
EC
CSAICNAC
Interval Control entry address
FO
CSADCNAC
Dump Control entry address
F4
CSATCNAC
Terminal Control entry address
FS
CSAFCNAC
File Control entry address
FC
CSATDNAC
T.ransient Data Control entry address
100
CSATSNAC
Temporary Storage Control entry
address
104
4
CSASANAC
PL/I Storage Allocation module entry
108
4
CSATRNAC
Trace Control entry address
10C
4
CSAPIPSW
4
CSAPINAC
Program Interrupt PSW save area
address, or
Program Interrupt entry address
(during System Initialization only)
110
4
CSASNNAC
Snapshot program entry address
114
4
CSASPNAC
Sync point program entry address
11S
4
CSATCRWE
Terminal Control program entry
address
llC
4
CSATRTBA
Trace Table beginning address
120
4
CSAPCTBA
Program Control Table beginning
address
124
4
CSAPPTBA
Processing Program Table beginning
address
128
4
CSATCTBA
Terminal Control Table beginning
address
12C
4
CSAFCTBA
File Control Table
beginning address
CS~TBA
Destination Control Table beginning
address
130
924
CICSjDOS/VS Program Logic
LICENSED MATERIAL -- PROPERTY OF IBM
Offset
A
10
Length
Name
Reserved
6
4
10
Description
FCIOAECI
FCIDLOC
Event control information field, or
1D location for DAM
1A
1
2
FCFIOEX
FCIOERR
ISAM exception code, or
DAM error bytes
1C
4
FCRSAVE
Save area for record size
20
4
FCFECADR
Address of exclusive control data
24
8
FCNREPSV
File Control subroutine save area
2C
2
FCIDTYPI
DAM block reference indicator
2E
1
FCDUMISR
Dummy record search indicator, or
ISAM embedded read indicator
2F
1
FCFIOTYP
Type of operation (i.e., READKEY)
30
30
32
4
2
2
FCFIOVAR
FCF10VRL
FCMVDISP
Variable area beginning address, or
Variable record length, and
Block reference displacement in
ID location
34
4
FCFIOLRA
Logical record address
38
4
FCFIOFCT
File Control Table entry address
3C
4
FCFBWA
Address of File Browse Work
Area (FBWA)
40
4
FCFIOICA
File I/O Area
48
2
FIOACAE
Control area ending address
48
2
FCFCOUNT
Count field
50
4
4
FCDS01D
FIOADBA
Beginning address of data area
Section 5.
Data Areas
~IOA)
chain address
(CCHHRKDD)
997
Page of LY33-6028-1, Revised December 1978 by TNL LN33-6252
LICENSED MATERIAL -- PROPERTY OF IBM
FUNCTION MANAGEMENT HEADER (FMH)
The FUnction Management Header ~) is a data string containing SNA
information. The FMH is optionally added to the data sent or received
by SNA devices, according to requirements.
DSECT NAME: DFHFMHDS
REGISTER: FMHBAR
ALPHABETIC INDEX TO FIELD NAMES
Name
FMHARDPN
FMHARPRN
FMHATDBA
FMHATDPL
FMHATDPN
FMHATDPV
FMHATDQN
FMHATPRN
FMHATSEC
FMHCARGL
FMHCARGN
FMHCARGV
FMHCOPTS
FMHCRCDE
FMHCT
FMHDAREA
FMHDDBDN
FMHDDRCD
FMHDDSTS
FMHDESEL
FMHDIOMX
FMHDLENG
FMHDLOCK
FMHDMKYL
FMHDNTNT
FMHDPARM
FMHDPCBI
FMHDPKEY
FMHDPSBN
FMHDPSSA
FMHDRCDS
FMHDRCD1
FMHDRCD2
FMHDSAMX
FMHDESGL
FMHDSEGN
FMHDSEGS
FMHDSNH
FMHDSNL
FMHDSRCS
FMHDSRCl
FMHDSRC2
FMHDSTCD
FMHDTYPE
FMHERCI
FMHFLAGS
FMHFLAG3
998
Offset
or
Reference
CD
CD
7
CD
CD
1
CD
CD
6
CD
2
3
CD
CD
1
3
CD
6
7
4
CD
CD
6
7
3
3
6
3
CD
3
6
6
7
CD
8
CD
B
9
8
6
6
7
A
2
5
4
3
CICS/DOS/VS Program Logic
Page of LY33-6028-1, Revised December 1978 by TNL LN33-6252
LICENSED MATERIAL -- PROPERTY OF IBM
Offset
or
Reference
Name
FMHFN
FMHFORG
FNHGROUP
FMHHD
FMHL
FMHLDC
FMHLEN
FMHLENG
FMHMEDIA
FMHQCURS
FMHQNAME
FMHQQORG
FMHQRCLN
FMHQRCNT
FMHQSENS
FMHQSTAT
FMHQSTA1
FMHQSTA2
FMHQTRSZ
FMHQXFST
FMHSCDPN
FMHRESV2
FMHSDELY
FMHSIREQ
FMHSMCCD
FMHSMDCD
FMHSMNUM
FMHSPPRN
FMHSPRN
FMHSPSTS
FI"lHSQNME
FMHSRDPN
FMHSREQN
FMHSRQST
FMHSSDPN
FMHSSSTS
FMHTYPE
FMHXCMD
FMHXFXCT
FMHXMOD
FMH2DAT1
FMH2DAT2
FMH2NURC
FMH20PCD
FMH2RITY
STORAGE
3
6
2
1
0
2
0
0
2
CD
CD
6
CD
CD
CD
7
7
8
CD
7
CD
6
CD
CD
8
C
6
CD
CD
6
CD
CD
CD
6
CD
6
1
2
5
4
3
4
3
2
3
L.~YOUT
**
Offset
0
Length
1
COMMON SECTION
Name
Description
FMHLENG
Length of FMH
Value
Function
Length of 3600 FMH
X'03 '
X'06'
Length of Batch LU FMH
FMHL3600
FMHLBLU
Section 5.
Data Areas
**
999
LICENSED MATERIAL -- PROPERTY OF IBM
Offset
1
Length
1
Name
Description
FMHHD
Header description
Value
Function
X'40'
Message has formatted data
X·20'
Trigger alarm at device
X'Ol'
Batch LU is type X'Ol'
FMHFD
FMHALARM
Fr.ffiTBLU
2
1
FMHLDC
FMHBLUIN
3
1
Logical device code
Same values as in DFHSLDC, except:
Value
Function
X-SO'
Input indicator for
Batch LU
Reserved
** BATCH LU EXTENSION **
4
1
FMHFLAGS
FMHSUSP
FMHBODS
FMHEODS
5
1
Batch LU flags
Value
Function
X'SO'
Suspend data set
X'40'
Beginning of data set
End of data set
X'20'
Reserved
**TYPE 1 FMH FORMAT**
0
1
FMHLEN
Length of complete FMH
1
1
FMHTYPE
Type of FMH
Function
Value
X'Ol'
Type 1 FMH
Type 2 ·FMH
X'02'
X'03'
Type 3 FMH
X'SO'
Concatenated
FMHFTYPl
FMHFTYP2
FMHFTYP3
FMHFCONC
2
1
FMHMEDIA
FMHMEFCN
FMHMEEEX
FMHMEFCD
FMHMEFPR
FMHMEFDI
FMHMEFPD
FMHMEFAN
3
1
FMHFLAG3
FMHT1STK
1000
FMH
Media selection byte
Value
Function
X'OO'
Console
X'10'
Exchange media
X'20'
Card reader
X'30'
Print
X'40'
Disk
X'60'
PDS
X'7F'
Any
Only bits 1-3 used
Bi t 0 reserved
Bits 4-7 = logical subaddress
Flag byte
Value
Function
X'SO'
'your' stack indicator
Bit 1-7 reserved
CICSjDOS/VS Program Logic
Page of LY33-6028-1, Revised December 1978 by TNL LN33-6252
LICENSED MATERIAL -- PROPERTY OF IBM
Offset
Length
1
4
Name
Description
FMHDESEL
Destination
Value
Bit 0-2
X'OO'
X'20'
X'40'
X'60'
FMHDEFRE
FMHDEFEN
FMHDEFBG
FMHDEFBD
FMHDEFSU
FMHDEFAB
select field
Function
only
Resume data set
End data set
Begin data set
Begin and end data
set
Suspend data set
X'80'
X'AO'
Abort data set
Bits 3-7 reserved
5
1
FMHERCI
Exchange record length
6
2
FMHRESV2
Reserved
8
1
FMHDSNL
Length of destination name
9
1
FMHDSNH
Actual DSN name
**
TYPE 2 FMH OVERLAY
**
FMH2FADD
FMH2FREP
FMH2FQUE
FMH2FNOT
FMH2NTRY
FMH2FRID
FMH2FERA
FMH2FVOL
Type of operation
Value
Function
X'24'
ADD operation
REPLACE operation
X'25'
QUERY operation
X'28'
NOTE operation
X'29 1
X'2A'
NOTE REPLY operation
RECID operation
X'2B'
X'2C'
ERASE operation
X'2E'
VOLID operation
3
FMH2NURC
Number of records affected
3
FMH2RITY
Type of key for RECID type
Value
Function
X·OO'
Addressed direct
Key direct KEYl
X'01 1
X·02'
Key direct KEY2
X'03'
Application definition
Control definition
X'04 •
1
2
FMH20PCD
FMH2RIAK
FMH2RIDl
FMH2RID2
FMH2RIAP
FMH2RICC
FMH2DATl
3
3
4
1
1
FMH2DAT2
Start of data - first type
OVerlayed byte
Start of data - second type
The following part of the DSECT describes Function Management Headers,
and in some cases the data that can follow the header.
The organization of the definitions given below is as follows:
1.
The standard part of a Function Management Header. These
definitions apply whatever type, group, and function code the
header may carry.
2.
Definitions for Function Management Headers of type 5; that is,
attach headers. These may be identified by the prefix aFMHA'.
Section 5.
Data Areas
1001
Page of LY33-602S-1, Revised December 1978 by TNL LN33-62S2
LICENSED MATERIAL -- PROPERTY OF IBM
3.
Definitions for Function Management Headers of type 43; that is,
CICS private headers.
These may be identified by the prefix
'FMH' .
4.
Definitions for Function Management Headers of type 6; that is,
scheduler model, queue model, and DL/I model headers. These may be
identified by the prefixes 'FMHS', 'FMHQ', and DFMHDD respectively.
Within the definitions for each FMH, definitions for fixed length
parameters appear before the definitions for variable length parameters.
The sequence of the parameters in this DSECT is the same as that in
which parameters can appear in the FMH.
Variable length parameters have a length of 1 or 2 bytes and are
followed by a value. A variable length parameter is omitted if the
length is 0, and need not appear if it is omitted and also the last
parameter in the FMH.
Thus, for variable length parameters, the offset value is generally
context dependent and no absolute offset value can be given.
(In these
cases the offset value is replaced by CD;
CD indicating Dcontext
dependent I). For convenience of processing by the transformation
program, the FMH pointer is assumed to address the length byte
immediately preceeding the value.
Offset
Length
Name
Description
o
1
FMHL
Length of FMH
1
1
FMHCT
FMHT43
Concatenation flag and FMH type bits
set as follows:
Value
Function
X D 80·
A second FMH comes after
this one
Bits 1-7 FMH type values set as
follows
Value
Function
X'OS'
IBM architected attach FMH
IBM architected model FMH
X'06 •
X'07 1
IBM architected system
message FMH
CICS architected model FMH
X'43 •
FMHCAT
FMHTOS
FMHT06
FMHT07
2
2
FMHXCMD
Group and function codes
2
1
FMHGROUP
Group code
3
1
FMHFN
Function code
4
1
FMHXMOD
Modifier
Value
X1SO I
FMHXLNSZ
Function
DO· for 1 byte FMH
Length fields
Bits 1-7 reserved
S
1
FMHXFXCT
Length of fixed length parameters in
FMH
6
1
FMHFORG
Origin for the type u groupu and
function dependent fixed length
parameters
1002
CICSjDOS/VS Program Logic
Page of LY33-6028-1, Revised December 1978 by TNL LN33-6252
LICENSED MATERIAL -- PROPERTY OF IBM
Offset
Length
Name
Description
TYPE 5 FMH - The Function Management Header for an ATTACH
FMHATTFN
FMHGROUP values set as follows:
Value
Function
X· 0 2 I
Group is ATTACH
FMHFN values set as follows:
X 102 I
Function is ATTACH
FMHT5ATT
6
1
FMHATSEC
Security algorithm value
7
1
FMHATDBA
FMHAU
FMHAV
FMHASCSD
FMHASCSC
FHHARUC
FMHARU
Data algorithm value
Value
Function
XIOO I
Undefined
X I 01 •
Variable length
X ' 02 1
Document subset of SCS
X'03 D
Card subset of SCS
X'04 1
Chain of request units
X DOS I
Request unit
CD
FMHATDPN
Process to be initiated
CD
FMHATDPL
Process name length
Value
Function
1
Length of an architected
process name
FMHARLEN
1
4
FMHATDPV
FMHARMAX
Process name up to four characters
Value
Function
Maximum possible value
X ' 3F'
for an architected
process name (defined as
non-graphic values)
CD
FMHATPRN
Resource for initiated process
CD
FMHARDPN
Return process name
CD
FMHARPRN
Resource for return process
CD
FMHATDQN
Queue to be associated with initiated
process
CICS PRIVATE ~YPE X'43 1) FMH - The Function Management Header for a
CICS request or reply. Since this is a private FMH, the direction of
transmission determines whether i t represents a request or a reply.
CD
FMHCOPTS
For outbound requests - the existence
and TCA bits from ARGO
CD
FMHCRCDE
For inbound replies - the error codes
from EIBRCODES
The data that follows this FMH represents the
call that has to be serviced remotely.
argument~)
to an EIP
Not all arguments will be senti furthermore the value that is sent
will depend on the CICS function and on the direction of transmission.
Section 5.
Data Areas
1003
Page of LY33-602S-1, Revised December 1975 by TNL LN33-6252
LICENSED MATERIAL -- PROPERTY OF IBM
Offset
Length
CD
Name
Description
FMHCARGL
Length of parameter; includes length
and ARGNO fields
2
1
FMHCARGN
Argument ,number; ARG3 is represented
by value XI 06 1
3
256
FMHCARGV
The argument itself, it may be, for·
example, a key
TYPE 6 FMH - The Function Management Header for a SCHEDULE request
6
1
FMHSRQST
FMHSTIME
Details of sched request.
Bits set as follows:
Value
Function
XISOI
Time delay specified
Bits 1-7 reserved
CD
FMHSSDPN
Name of process that is to be initiated
CD
FMHSPRN
Name of primary resource for process
being initiated
CD
FMHSRDPN
SUggested name for return process
CD
FMHSRPRN
SUggested name. for primary resource
for return process
CD
FMHSQNME
Name of queue associated with process
being initiated
CD
FMHSREQN
Name of request instance associated
with process
CD
FMHSDELY
The interval or time initiation delay
field
The Function Management Header for a SCHEDULE STATUS Reply
6
1
FMHSSSTS
FMHSIDPN
FMHSIPRN
FMHSERR
FMHSINV
CD
FMHSIREQ
Status of schedule request
Bits set as follows:
Bits 0-3 reserved
Value
Function
X·OS I
Invalid process name
X·04 1
Invalid resource name
XI 02 1
Unable to schedule due to
processing error
X·01 1
Invalid request
Request name generated by receiving
system
The Function Management Header for a PURGREQ request
CD
. FMHSREQN
CD
FMHSCDPN
1004
Name of process that is to be cancelled
CICSjDOS/VS Program Logic
Page of LY33-6028-1, Revised December 1978 by TNL LN33-6252
LICENSED MATERIAL -- PROPERTY OF IBM
Offset
Length
Name
Descri}2tion
The Function Management Header for a PURGSTAT reply
6
1
FMHSPSTS
FMHSNFD
Status of purge request
Bits set as follows:
Bits 0-6 reserved
Value
Function
Named request not found
X'Ol'
The Function Management Header for a QPUT request
6
1
FMHQQORG
Fl-IHQNSPE
FMHQSEQL
FMHQLINE
FMHQHIER
CD
FMHQNAME
Type of queue
Function
Value
X, 00'
Queue type
Queue type
X'Ol'
X'02'
Queue type
X '03'
Queue type
not specified
is sequential
is linear
is hierarchical
The queue name is from 1 to 8
characters
The Function Management Header for a QGET request
6
FMHQQORG
1
CD
FMHQNAME
CD
Fl-1HQCURS
The cursor is held as two byte binary
CD
FMHQTRSZ
The maximum record length is held as
two byte binary
The Function Management Header for a QPURGE request
6
FMHQQORG
1
CD
FMHQNAME
The Function Management Header for a QXFR reply
7
1
FMHQXFST
FMHQDISP
FMHQEMSG
CD
Status byte
Bits set as follows:
Bits 0-4 reserved
Value
Function
X'04'
Disposition of queue
Bit 6 reserved
X' 01 '
End of message
FMHQCURS
CD
FMHQRCNT
Number of occurrences of records at
lowest level of cursor
CD
FMHQRCLN
Record length before truncation
The Function Management Header for a QSTATUS reply
6
1
7
2
Section 5.
Data Areas
FMHQQORG
FMHQSTAT
Status of request
1005
Page of LY33-602B-1, Revised December 1975 by TNL LN33-6252
LICENSED MATERIAL -- PROPERTY OF IBM
Offset
7
Length
1
Name
Description
FMHQSTA1
FMHQEMPT
First status byte
Value
Function
X'SO'
Invalid length for request
X'40'
Invalid queue name
X·20·
Unauthorized request
X'10'
Queue name not available
X, OS'
No space left on queue
X'04 1
Invalid cursor
x'02'
I/O error when queue
accessed
X'Ol'
Queue is empty
FMHQSTA2
Reserved
FMHQINVL
FMHQINVN
FMHQNAUT
FMHQNAVL
FMHQSPAC
FMHQINVC
FMHQERRO
8
1
FMHQCURS
CD
FMHQSENS
CD
Sense data (could be access method
data)
FMHQNAME
CD
The Function Management Header for a QREPL request
6
FMHQQORG
1
CD
FMHQNAME
CD
FMHQCURS
The Function Management Header for a QGETN request
6
FMHQQORG
1
CD
FMHQNAME
CD
FMHQTRSZ
The Function Management Header for a DL/I SCHEDULE request
CD
FMHDPSBN
The PSB name is from 1 to S characters
The Function Management Header for a DL/I schedule reply
6
2
FMHDSRCS
DL/I return codes
6
1
FMHDSRC1
DL/I return
follows
Value
X'SO •
X"40'
X'20·
X'10'
X' OS'
X'04'
Bit 6 and
FMHDNOPN
FMHDNFND
FMHDNACT
FMHDFAIL
FMHDNAUT
FMHDCONF
7
1
FMHDSRC2
code with bits set as
Function
Data base not open
PSB not found
DL/I not active
PSB initialization failed
Unauthorized access to PSB
Intent schedule conflict
Bit 7 reserved
Reserved
The data following this and other FMHs for DL/I, only one I/O area or
key can follow a FMH; however, several SSAs or PCBs can follow a FMH.
1006
CICS/DOS/VS Program Logic
Page of LY33-6028-1, Revised December 1978 by TNL LN33-6252
LICENSED MATERIAL -- PROPERTY OF IBM
Offset
Length
CD
2
1
Name
Description
FMHDLENG
Length of parameter; includes length
and type fields
FMHDTYPE
Parameter type - values set as follows
Value
Function
X'Ol'
Flag set to show that
parameter is an I/O area
X'02'
Flag set to show that
parameter is a SSA
Flag set to show that
X'03'
parameter is a PCB
Flag set to show that
parameter is a key
FMHDIOA
FMHDSSA
FMHDPCB
FMHDKEY
3
256
FMHDPARM
The parameter itself; it may be for
example, a PCB
3
256
FMHDAREA
The I/O area - maximum length rather
than actual length
3
256
FMHDPSSA
The segment search argument - maximum
length rather than actual length
3
4
FMHDNTNT
Processing intent for this data base
7
4
FMHDMKYL
Maximum key length for this PCB
(binary)
B
4
FMHDSEGS
Number of sensitive segments
CD
FMHDDBDN
The DBDNAME is from 1 to 8 characters
CD
FMHDSAMX
The maximum possible size for a SAA
CD
FMHDIOMX
The maximum possible size for an I/O
area
FMHDPKEY
The fully concatenated key for this
operation
3
256
(binary)
The Function Management Header for a DL/I REPL request
6
2
FMHDPCBI
The index for this PCB
The Function Management Header for a DL/I ISRT request
6
3
FMHDPCBI
The Function Management Header for a DL/I DLET request
6
3
FMHDPCBI
The Function Managament Header for a DL/I GU request
6
Section 5.
3
Data Areas
FMHDPCBI
1007
Page of LY33-6028-1, Revised December 1978 by TNL LN33-6252
LICENSED MATERIAL -- PROPERTY OF IBM
Offset
Length
Name
Description
The Function Managament Header for a DL/I GHU request
6
3
FMHDPCBI
The Function Management Header for a DL/I GN request
6
3
FMHDPCBI
The Function Management Header for a DL/I GNH request
6
3
FMHDPCBI
The Function Management Header for a DL/I GNP request
6
3
FMHDPCBI
The Function Management Header for a DL/I GHNP request
6
3
FMHDPCBI
The Function Management Header for a DL/I DLIDBXFR reply
6
2
FMHDRCDS
DL/I return codes
6
1
FMHDRCDl
DL/I return code with bits set as
follows
Value
function
X'80'
Data base not open
Bits 1-4 reserved
X, 04'
Invalid PCB index
Bits 6 and 7 reserved
FMHDNOPN
FMHDNVRQ
7
1
FMHDRCD2
Reserved
8
2
FMHDSEGL
Segment level (binary)
A
2
FMHDSTCD
Status codes
FMHDSEGN
The segment name is from 1 to 8
characters
CD
The Function Management Header for a DL/I DLIDBSTS reply
6
2
FMHDRCDS
6
1
FMHDRCDl
7
1
FMHDRCD2
8
2
EMHDSEGL
A
2
FMHDSTCD
CD
1008
EMHDSEGN
CICSjDOS/VS Program Logic
Page of LY33-6028-1,
Offset
Length
Name
Added December 1978 by TNL LN33-6252
LICENSED MATERIAL PROPERTY OF IBM
Description
The Function Management Header for a DL/I DLIDEQ request
LOCK class assigned to segments by
FMHDLOCK
6
2
I
prior retrieval or insertion request
I
I
I The Function Management Header for a DL/I DLIDEQR reply
6
1
FMHDDRCD
Status of request with bits set as
follows
Bits 0-7 reserved
7
2
FMHDDSTS
Status code
6
2
FMHSMNUM
Message number
8
4
FMHSMCCD
CICS abend code
c
5
FMHSMDCD
DL/I abend code
TYPE 7 l1MH
Section 5.
Data Areas
1008.1
Page of LY33-602S-1,
Added December 1975 by TNL LN33-6252
LICENSED MATERIAL -- PROPERTY OF IBM
FUNCTION AND MODULE IDENTIFIERS
DSECT NAME:
DFHFMIDS
This control block is a collection of symbolic labels used in connection
with the following DSECTs: DFHDWEDS, DFHJCADS, and DFHJCR. It does not
overlay an area of storage, as does a typical DSECT, but rather provides
symbolic labels equated to constants, for reference in Assemblerlanguage instructions, such as MVI and CLI. The symbolic labels are
listed in groups as function identifiers and module identifiers below,
first in alphabetic order, then in a logical order according to their
use.
FUNCTION IDENTIFIERS
ALPHABETIC REFERENCE TO FUNCTION IDENTIFIERS
Value
FIDAJRN
FIDAKE
FIDAKS
FIDALOG
FIDBEOSP
FIDBEOTK
FIDBMPM
FIDDBCHN
FIDDBOFL
FIDFCRO
FIDFCRU
FIDFCWA
FIDFCWU
FIDICDB
FIDICPUT
FIDJCLAB
FIDJCLOK
FIDKPDCT
FIDKPTCA
FIDKPTCR
FIDKPTST
FIDLEOTK
FIDLSOSP
FIDPEOTK
FIDSPR
FIDTCAJ
FIDTCAL
FIDTCDB
FIDTCDIP
FIDTCDWL
FIDTCEIB
FIDTCFMH
FIDTCIM
FIDTCIMF
FIDTCML
FIDTCOM
FIDTCOMN
FIDTCON
FIDTCONN
100S.2
X'20'
X'Sl'
X'SO'
X'40'
X'F6'
X'F4'
X'Fl'
X'Sl'
X'SO'
X'SO'
X'Sl'
X'S3'
X'S2'
X'OS'
X'SO'
X'SO'
X'Sll
X'S3'
X'S2'
X'S4 '
X'SS'
X'F2'
X'Fl'
X'F3'
X'FS'
X'20'
X'40'
X'OS'
X'04'
X'Ol'
X'SA'
X'03 •
X'Sl'
X'SS'
X'FO'
X'S2 '
X'S6'
X'S7'
X'SSI
CICS/DOSjVS Program Logic
LICENSED MATERIAL -- PROPERTY OF IBM
TRANSIENT DATA OUTPUT AREA l'l'DOA)
DSECT NAME:
REGISTER:
DFHTDOA
TDOABAR
The TDOA is used to describe an output area, acquired via a Storage
Control request, from which intrapartition transient data is moved by a
PUT macro instruction.
ALPHABETIC INDEX TO FIELD NAMES
Name
Offset
or
Reference
TDOADBA
TDOASAL
TDOASCA
TDOAVRL
C
2
4
8
STORAGE LAYOUT
Offset
Length
Name
Description
Storage accounting information;
storage class=Transient Data (see
·Storage Accounting Area (SM)·)
0
2
2
2
TDOASAL
Storage accounting area length
4
4
TDOASCA
Transaction storage chain address
8
2
TDOAVRL
Variable record length
A
2
C
Var
Section 5.
Data Areas
Reserved
TDOADBA
Beginning of data area
1225
Page of LY33-6028-1, Revised December 1978 by TNL LN33-6252
LICENSED MATERIAL -- PROPERTY OF IBM
TRANSIENT DATA - VSAM CONTROL INTERVAL MAP
DSECT NAME:
DFHTDCI
The TDCI is a map of the VSAM control interval as used by VSAM transient
data.
ALPHABETIC INDEX TO FIELD NAMES
Name
TDCF
TDCHBC
TDCHDI
TDCHFC
TDCIDF
TDDATED
TDID
TDLENREC
TDLUS
TDNUMCI
TDNUMREC
TDOUS
TDRDF
TDRESRV
Offset
or
Reference
0
4
0
8
0
C
0
1
2
A
1
0
0
10
STORAGE LAYOUT
Offset
Length
Name
Description
Map of first control interval
,I
0
10
TDID
ID to be checked when restarting
A
2
TDNUMCI
Number of control intervals used to
size control interval bit map
C
4
TDDATED
Date information copied from CSAJYDP
10
12
TDRESRV
Reserved (not used)
Map of chain records at start of subsequent control intervals
Offset
Length
Name
Description
o
4
TDCHDI
Chain record destination ID
4
4
TDCHBC
Chain record backward chain
8
4
TDCHFC
Chain record forward chain
1226
CICS/DOS/VS Program Logic
Page of LY33-6028-1,
Added December 1978 by TNL LN33-6252
LICENSED MATERIAL PROPERTY OF IBM
DATA RECORDS AND FREE SPACE
These fields are positioned at negative offsets relative to the end of
the control interval
RECORD DEFINITION FIELD
Offset
o
o
Length
Name
Description
3
TDRDF
Record definition field
1
TDCF
Control field (flag byte)
Value
Function
XDOO I
Right record definition
field (RDF) gives length
of single record. No left
RDF
Right RDF says paired left
RDF exists
Left RDF gives number of
records in TDNUMREC
TDRSINGL
TDRLPAIR
TDLNUM
1
2
TDNUMREC
Number of records of same length
1
2
TDLENREC
Length of record (s)
CONTROL INTERVAL DEFINITION FIELD
Offset
Length
Name
Description
0
4
TDCIDF
Control interval definition field
0
2
TDOUS
Offset of unused Lpace
2
2
TDLUS
Length of unused space
Section 5.
Data Areas
1226.1
Page of LY33-602S-1, Added December 1975 by TNL LN33-6252
LICENSED MATERIAL - PROPERTY OF IBM
TEMPORARY STORAGE TABLE
DSECT NAME:
DFHTSTDS
The Temporary Storage Table ~S~ is a list of generic mnemonics used
(~ to identify temporary storage DATAIDs for which CICSjVS is to
provide recoverability in the event of abnormal termination of CICSjVS
and subsequent emergency restart (2) to identify DATAIDs on a remote
system. Each entry in the table specifies the leading characters of
user-defined DATAIDs for which CICSjVS will provide protection
(enqueuing) during a logical unit of work by an applciation program and
automatic logging of the status of the data at task termintion (or sync
point) •
ALPHABETIC INDEX TO FIELD NAMES
Offset .
or
Reference
TSTFL.
TSTLL
TSTPL
TSTPRFX
TSTRPFX
TSTSYS
2
o
,..3
F
C
STORAGE LAYOUT
COMMON PART
Offset
Length
Name
DescriE!:ion
0
2
TSTLL
Length of entry
2
1
TSTFL
TSTL~TBM
Flag describing entry
Value
Function
Recoverable
X'SO'
Remote
X'40'
X'20'
Remote prefix given
X'01'
=1 for last entry
TSTRCVBM
TSTRMTBM
TSTRNMBM
3
1
TSTPL
Prefix length -1
,..
0
TSTPRFX
Prefix
4
4
First four bytes
8
4
Last four - included only when prefix
greater than four bytes. or remote
1226.2 .
CICS/DOSjVS Program Logic
B~
I
Technical Newsletter
This Newsletter No.
Date
LN33-6253
December 1978
Base Publication No.
LY33-6029-1
Previous Newsletters
None
Customer Information Control
System/Virtual Storage (CICS/VS)
Version I, Release 4
Program Logic (OS/VS)
© IBM Corp. 1918
This technical newsletter, a part of Version 1, Release 4 of Customer Information
Control System/Virtual Storage (CICS/VS), provides replacement pages for the subject
publication. These replacement pages remain in effect for subsequent versions and
releases unless specifically altered. Pages to be inserted or removed are:
927,928
965,966
999, 1000
1201,1202
1346.1, 1346.2 (added)
A change to the text or to an illustration is indicated by a vertical line to the left of
the change.
Summary of Amendments
The main change introduced by this TNL is the addition of the Transient Data VSAM
Control Interval Map in the Data Areas section of the manual.
Note: Please file this cover letter at the back of the manual to provide a record of
changes.
IBM United Kingdom laboratories ltd, Technical Documentation Department, Hursley
Park, Winchester, Hampshire S021 2JN, England.
© IBM Corp. 1918
LICENSED MATERIAL -
PROPERTY OF IBM
/').
Temporary
Storage
Program
'"
8
A
K
/
'"
,0
"-
A
8~
)
r
A8~
K.
~
r
Transaction
Backout
Program
(DFHTBP)
r
)
Keypoint
Program
A8~..
Storage
Control
Program
~G.)
Transient
Data
Program
I(...
~
.
DFHRSD
User
Exits
File
Control
Program
A8~
...
...
"
8
Gil
9
~
II
Terminal
Control
Table
OPL97
Figure 3-53.
Section 3.
Transaction Backout Program Interfaces
Program Organization
927
Page of LY33-602~1, revised December 1976 by
LICENSED MATERIAL -- PROPERTY OF IBM
LN33-62~3
TRANSIENT DATA MANAGEMENT (DFHTDP)
The Transient Data Control program ~FHTD~ communicates directly with
three other functions of the CICS/VS System Management component. These
are Task Management, Storage Management, and Program Management ~he
Task Control program, Storage Control program, and Program Control
program, respectively). The application program communicates with
DFHTDP through use of DFHTD macro instructions.
The notes below refer to Figure 3-54.
Notes:
Intrapartition
1.
An application program request for Transient Data services causes a
request code to be set in TCATDTR, signifying GET, PUT, PURGE,
FEOV, LOCATE, or CHECK. The destination identification is placed
in TCATDDI. Control is passed to the Transient Data Control
program.
2.
Transient Data Control obtains intrapartition disk map information
from the main storage area addressed through the Destination
Control Table (DCT).
3.
The field TDDCTDID is used to search the DCT for the destination
requested. The Data Control Block (DCB) in the DCT is checked for
OPEN/CLOSE when the reference is to an extrapartition destination.
4.
Task Control is used to wait for access to the DCT and to attach an
automatically initiated task not associated with a terminal. If a
task is associated with a terminal, an Automatic Initiate
Descriptor ~ID) is scheduled.
5.
Transient Data Control communicates with Storage Control to obtain
storage for the DECB for an intrapartition data set and for
intrapartition I/O areas.
6.
Transient Data passes control and the address of the DECB to the
read/write routines of the access methods to perform data set I/O.
7.
The DECB status bytes are tested for event completion and I/O
errors.
8.
If an invalid request for Transient Data services is received,
control is passed to Program Control to terminate the task issuing
the.request.
9.
If restart/recovery is supported within the system, a Deferred Work
Element (DWE) is created for each logically recoverable destination
when i t is accessed. At the end of a logical unit of work ~UW),
defined by either an application program DFHSP TYPE=USER request or
by Task Control at task termination, the CICS/VS Sync Point program
gives control to the DWE processor of the Transient Data Control
program. This DWE processor performs the logical update of the DCT
entry and/or the track (or control interval-VSAM) bit map.
928
CICS/OS/VS Program Logic
LICENSED
-
~lATERIAL
PROPERTY OF IBM
Temporary Storage Control Communication Area
Data Interchange Communication Area
Trace Control communication Area • • • • • • •
Transaction Work Area • • • • • • • • • • •
Built-In Functions Control Communications Area
Bit Manipulation Function Field Definition •
DEEDIT Function Field Definition • • • • • •
VERIFY Function Field Definition • • • • • •
Phonetic Conversion Function Field Definition • • • •
Table Search Function Field Definition • • •
INFORMAT Function Field Definition • • • • • • • • • • •
Weighted Retrieval Function Field Definition
TYPE=WTRETST
• • • • • • • • • • • • •
Weighted Retrieval Function Field Definition
TYPE=WTRTPARM • • • • • • • • • • • • • • •
Weighted Retrieval FUcntion Field Definition
TYPE=WTRTETGET • • • • • • • •
Terminal Control Table fl'CT) • • • • • • • • •
Terminal Control Table Prefix (TCTFX)
Receive-Any Control Element ~CE) • • • • •
Terminal Control Table Line Entry (TCTLE)
Binary Synchronous Communication • • • •
7770 Audio Response.Unit • • • • • • • • • • • • • •
Terminal Control Table Line Entry Extension
Bisynchronous Data • • • • • • • • • • • • •
Basic Sequential Access Method ~SAM) Extension
Graphics Access Method (GAM) Extension • • • • • •
Basic Telecommunications Access Method (BTAM) Extension
Telecommunications Access Method (TCAM) Extension
Terminal Abnormal condition Line Entry (TACLE)
Terminal Control Table Terminal Entry (TCTTE)
TCTTE Section Directory • • • • •
Control Information • • • •
Terminal Data Control
Terminal Identification
Operation Class Codes • • • • • • • •
Terminal Status Codes • • • •
Operation Data • • • •
Operator Data • • • •
VTAM FMH Build Area
Data Stream Type •
• • • •
Terminal-Dependent Overlay Area
3270 Definitions • •
2980 Definitions • • • •
3600 BSC Definitions • • •
VTAM DefinitiOns • • • •
3270 Size Specifications •
System Area
/
•
• •
••
• • • •
•
• •
•
General Information
Terminal Statistics
Operator Statistics
Terminal Control Indicators
Operation Status • •
Access Method Flags
Operation Requests •
Operation Modifiers • • • •
Bisynchronous Data
Start Stop Specific Poll Area
Terminal-Dependent Extension OVerlay Area
2980 Control Extension • •
3270 Display Data
3270 Compatibility Area
3735 Extension Area
3740 Extension Area
Section 5:
Data Areas
• • •
•
1260
1262
1264
1266
1266
1267
1268
1269
1269
1270
1271
1272
1273
1274
1276
1276
1283
1285
1286
1286
1287
1290
1291
1291
1291
1292
1293
1295
1295
1299
1299
1299
1300
1300
1301
1302
1302
1302
1303
1303
1303
1303
1304
1305
1305
1305
1306
1306
1307
1307
1308
1308
1309
1310
1311
1311
1311
1311
1312
1313
1313
965
Page of LY33-602~1, revised December 1978 by LN33-6253
LICENSED MATERIAL PROPERTY OF IBM
····
. · . · · · · · ·· ·· ·· · · · · ·· ·· ·· ·· · · · ·
·· ·· ·· ·· · · · ·· · · ·
· · ·· · · · · · ·
· · · · ·· · · · · · ·
·
·· · · ·
····
·
·
·
·
······ ····
····
..
.
· · ·· · · ·· · · · · ·
· ·
· · · · · · · ·· · ·
·
· · ·· ·· ·· ·· ·· ··· ··· ··· ···
3600 BSC Synchronous Extension Area
SNA System Area
Sense Data
VTAM System Area • • • •
Internal Error Code Area
Activate Chain Requests
Pacing and RU Count Bytes
VTAM Internal Requests •
System Service Queue Flag
EMW Request and Status Flags
Async Request Flags (for use by ZSDA/ZSAX Only)
LRP Request and Status Flags
Attach Required Fields
VTAM Process Status
Operation in Progress
Node Session Status
Session Characteristics
pending Event Status
Bracket Protocol Status
Transmission Protocol Status
CLSDEST Status
Send Response to Command Request
Session Functions Definition
VTAM 3270 Control Information
Common Overlay Area
VTAM 3270 System Area
System Table Entry Definition
System Entry - VTAM Specific
System Entry -M-M Specific
TCP Module Address List
Standard Names for Modules (BTAM Only)
Standard Names for Modules (VTAM Only)
Reserved Extra Space for BTAM Only
TCTTE Extension for NIB Descriptor
Terminal Table Extension
Transient Data Input Area (TDIA)
Transient Data Output Area (TOOA)
Transient Data - VSAM Control Interval Map .•
Temporary Storage Common Area
Temporary Storage Control Record
Temporary Storage Record Prefix
Temporary Storage Table
Temporary Storage Unit Table
Temporary Storage Unit Table Entry
Terminal Control Transaction Work Area
Terminal Input/Output Area (l'IOA)
Trace Table (TRT)
Tauporary Storage Group Identification (TSGID)
Temporary Storage Input/Output Area (TSIOA)
Terminal Type Parameter (TTP,BMS)
Common Control Area
~outing Information Extension
Device-Dependent Suffix ~DS)/Map Set Suffix (MSS)
VSAM Work Area (VSWA)
File Browse Extension
Write Request Element (WRE)
Weighted Retrieval Work Area
Transaction List Table (XLT)
Data A4ea Activity
CICS/VS Storage Areas
1314
1314
1314
1316
1317
1317
1318
1319
1320
·1321
1321
132l.
1322
1323
1323
1324
1325
1325
1326
1326
1327
1327
1327
1329
1330
1331
1332
1332
1333
1334
1335
1336
1336
1339
1341
1345
1346
1346.1
1347
1350
1351
1352
1353
1354
1356
1359
1360
1361
1363
1364
1364
1367
1368
1370
1372
1373
1374
1377
1378
1383
· ········
····
····
····
··
· · · ·· ·· ·· ·· · · · · · · · · · · ·
····
·
····
····
·
· · · ··
· · ········
·
···· ····
·
·
·
····
·
.
· ········
·· ·· ·· ··
· · · · · ·· ·· ·· ··· ··· ··· ··· · · · ·
····
····
····
·· ·· · · ·
····
·.
····
···· ····
966
CICS/OS/VS Program Logic
page of LY33-6029-1, revised December 1978 by LN33-6253
LIL:hNSID l"lATERIAL - PROPERTY OF IBM
Offset
98
Length
4
Name
Description
CSAPAMA
Address of Page Allocation Map
(PAM)
9C
1
CSAOPSYS
CSADOS
CSAVSi
CSASVS
CSAMVS
9D
1
CSAOPREL
CSAD34
CSA160
CSAS17
CSAM37
9E
1
CSACICS
CSAELS
CSAFULL
9F
1
CSACIREL
CSAC14
AO
Operating system
Value
Function
CaD'
DOS/VS
C'11
OS/VSl
CIS·
OS/SVS
CIM'
OS/MVS
Operating system release
Value
Function
X'34'
DOS/VS Release
OSjVSl Release
Xa 60'
OS/SVS Release
X'17'
X1 37'
OSjMVS Release
34
6.0
1.7
3.7
CICS/VS system
Value
Function
CaE'
Entry Level System
CIF'
Full CICS/VS
CICS/VS Release
Value
Function
X·14 1
Version 1, Release 4
Zero. Dummy suspended task DCA has
DCATRTO set to o.
4
4
CSANXDCA
Next available Dispatch Control
Area (DCA)
A8
4
CSASUSFA
Lowest priority suspended task DCA
AC
4
CSASUSBA
Highest priority suspended task DCA
BO
4
CSAACTFA
Lowest priority active task DCA
B4
4
CSAACTBA
Highest priority active task DCA
BB
4
CSATCTCA
Terminal Control TeA address
BC
4
cO
2
CSAMAXT
Maximum active task value
C2
2
CSAMAXTC
Maximum active task accumulate
C4
2
C6
2
CSAWAL
Length of (CSA + workarea +
system ID)
C8
4
CSAOPFLA
CSA Optional Features List address
CC
2
CSAKPFRQ
Activity keypoint frequency count
CE
2
CSAKPACT
Section 5:
Data l\reas
Dummy dispatch, control, priority, etc
Reserved
.
. Activity keypoint attach counter
999
LICENSED MATERIAL -- PROPERTY OF IBM
Offset
Length
Name
Description
CSAKPCLK
Activity keypoint store clock
DO
S
DS
4
Reserved
DC
4
Memory constant
EO
4
CSAKCNAC
Task Control entry address
E4
4
CSASCNAC
CSASCPXM
Storage Control entry address
Value
Function
Storage Control
X'SO'
program-check exit
active
E.S
4
CSAPCNAC
Program Control entry address
EC
4
CSAICNAC
Interval Control entry address
FO
4
CSADCNAC
Dump Control entry address
F4
4
CSATCNAC
Terminal Control entry address
FS
4
CSAFCNAC
File Control entry address
FC
4
CSATDNAC
Transient Data Control entry ·address
CSATSNAC
Temporary Storage Control entry
address
100
104
4
CSASANAC
PL/I Storage Allocation module entry
lOS
4
CSATRNAC
Trace Control entry address
10C
4
CSAPIPSW
4
CSAPINAC
Program Interrupt PSW save area
address, or
Program Interrupt entry address (during
System Initialization only)
110
4
CSASNNAC
Snapshot program entry address
114
4
CSASPNAC
Sync Point program entry address
11S
4
CSATCRWE
Terminal Control Program Read/Write
request program entry
11C
4
CSATRTBA
Trace Table beginning address
120
4
CSAPCTBA
Program Control Table beginning
address
124
4
CSAPPTBA
Processing Program Table beginning
address
12S
4
CSATCTBA
Terminal Control Table Prefix
address
12C
4
CSAFCTBA
File Control Table
beginning address
1000
CICS/OSjVS Program Logic
page of LY33-6029-1, revised December 1978 by LN33-6253
LICENSED MATERIAL - PROPERTY OF IBM
Name
SITFDPSF
SITFLDSP
SITFLDST
SITHPO
SITICPOP
SITICPSF
SIT ICVAL
SITIIPSF
SITIMODA
SITIND
SITIOCP
SITIRCS
SITISCSF
SITISPSF
SITJCPSF
SITJCTSF
Offset
or
Reference
F2
60
64
72
121
CA
28
E8
18
llA
34
71
FA
100
DA
A6
Name
Offset
or
Reference
SITPLTPI
SITPLTSD
SITPL1
AC
SITPPTOP
SITPPTSF
SITPRINT
SITRICVL
SITRLRSF
11E
BO
6A
2C
EO
SITSCPSF
C4
SITSCSZ
3C
SITSICVL
30
AE
6C
STORAGE LAYOUT
Offset
0
Lenqth
8
Name
DescriEtion
DFHSITBA
Table entry point
OPERATING SYSTEM AND CICS/VS LEVELS
0
1
SITOPSYS
SITDOS
SITVS1
SITSVS
SITMVS
1
1
SITOPREL
SITD34
SIT160
SITS17
SI'IM37
2
1
SITCICS
SITFULL
3
1
SITCIREL
SITC14
/
Operating system
Value
Function
C'DI
DOS/VS
C11'
OS/VS1
CIS'
OS/SVS
CIM·
OSjMVS
Operating system release
Value
Function
X, 34'
DOS/VS Release
X'60'
OS/VSl Release
X·17'
OS/SVS Release
X'37'
OS/MVS Release
34
6.0
1.7
3.7
CICSjVS system
Value
Function
C'F'
Full CICSjVS
CICS/VS release
Value
Function
X'141
Version 1, Release 4
\
Section 5:
Data Areas
1201
LICENSED MATERIAL -- PROPERTY OF
Offset
Length
Name
I~I
Description
LENGTHS OF SIT AND CWA
4
2
SITLEN
Length of SIT
6
2
SITCWA
Required CWA size
ADDRESS CONSTANTS
8
4
DFHDLL
Address of DL/I link list
C
4
DFHAPT
Address of ATP CSA extension
10
4
SITCOMA
Reserved
14
4
SITOVRPM
Address of override parameters
18
4
SITIMODA
Initialization module suffix list
lC
4
SITSRPAE
Reserved
20
8
Reserved
TIME CONTROL VALUES
28
4
SITICVAL
System time interval
2C
4
SITRICVL
Runaway task time interval
30
2
SITSICVL
Stall time interval
32
2
SITTSDTI
Terminal scan delay
34
2
SITIOCP
Wait count percentage
36
2
Reserved
MISCELLANEOUS SIZES AND COUNTERS
38
4
SITOSCOR
Address space reserved for OS
3C
4
SITSCSZ
Storage cushion size
40
4
SITPGSIZ
Pagesize
44
4
SITTRTSZ
Trace table number of entries
48
2
SITTSMSG
Number of messages per ID or group
1202
CICS/OS/VS Program Logic
Page of LY33-6029-1, added December 1978 by LN33-6253
LICENSED MATERIAL - PROPERTY OF IBM
DATA RECORDS AND FREE SPACE
These fields are positioned at negative offsets relative to the end of
the control interval
RECORD DEFINITION FIELD
Offset
I
I
I
I
I
I
I
I
Length
Name
Description
o
3
TDRDF
Record definition field
o
1
TDCF
Control field (flag byte)
Value
Function
Right record definition
X'OO'
field (RDF) gives length
of single record. No left
RDF
Right RDF says paired left
X'40 •
RDF exists
Left RDF gives number of
X'OS'
records in TDNUMREC
TDRSINGL
TDRLPAIR
TDLNUM
I·
I
1
2
TDNUMREC
NUmber of records of same length
1
2
TDLENREC
Length of record (s)
I CONTROL INTERVAL DEFINITION FIELD
I
Offset
Length Name
I
Description
0
4
TDCIDF
Control interval definition field
0
2
TDooS
Offset of unused space
2
2
TDWS
Length of unused space
1346.2
CICS/OS/VS Program Logic
Page of LY33-6029-1, added December 1978 by LN33-6253
LICENSED MATERIAL - PROPERTY OF IBM
TRANSIENT DATA - VSAM CONTROL INTERVAL MAP
DSECT NAME:
DFHTDCI
The TDCI is a map of the VSAM control interval as used by VSAM transient
data.
ALPHABETIC INDEX TO FIELD NAMES
Name
TDCF
TDCHBC
TDCHDI
TDCHFC
TDCIDF
TDDATED
TDID
TDLENREC
TDLUS
TDNUMCI
TDNUMREC
TDOUS
TDRDF
TDRESRV
Offset
or
Reference
0
4
0
8
0
C
0
1
2
A
1
0
0
10
STORAGE LAYOUT
Offset
Length
Name
Description
Map of first control interval
o
10
A
TDID
ID to be checked when restarting
2
TDNUMCI
Number of control intervals used to
size control interval bit map
C
4
TDDATED
Date information copied from CSAJYDP
10
12
TDRESRV
Reserved (not used)
Map of chain records at start of subsequent control intervals
Offset
Length
Name
Description
o
4
TDCHDI
Chain record destination ID
4
4
TDCHBC
Chain record backward chain
8
4
TDCHFC
Chain record forward chain
Section 5:
Data Areas
1346.1
L Y33-6034-0
(")
(")
en
......
<
en
-0
(3
co
--.
III
3
r
o
co
~.
o
(!)
l!l--.
-E'
~
o·
::J
r
-<
w
-_
=:®
- ....
-- - .. ---...- .----,.. -----_
~--
International Business Machines Corporation
D~ta Processing Division
1133 Westchester Avenue, White Plains, N.Y. 10604
IBM World Trade Americas/Far East Corporation
Town of Mount Pleasant, Route 9, North Tarrytown, N.Y., U.S.A. 10591
IBM World Trade Europe/Middle East/Africa Corporation
360 Hamilton Avenue, White Plains, N.Y., U.S.A. 10601
w
m
o
w
.j::o
6
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 : 2013:03:26 12:21:29-08:00 Modify Date : 2013:03:26 17:02:02-08:00 Metadata Date : 2013:03:26 17:02:02-08:00 Producer : Adobe Acrobat 9.52 Paper Capture Plug-in Format : application/pdf Document ID : uuid:f0ec9c1b-24b3-4188-a732-e313af232cd6 Instance ID : uuid:6ad78ef8-2e10-4ac8-b673-325ab14e9000 Page Layout : SinglePage Page Mode : UseOutlines Page Count : 1014EXIF Metadata provided by EXIF.tools