IMS

Information Management System (IMS) is a hierarchy database built with the capability to process the extensive transactions. AWS Blu Insights support following statements in IMS.

Program Specification Block (PSB) File

PCB TYPE

PSB uses Program Communication Block (PCB) to define the database to be accessed by the application program. The database information is stored in the Database Description (DBD) file.

• label PCB TYPE=DB,DBDNAME=dbd-file
• label PCB TYPE=GSAM,DBDNAME=dbd-file

Where dbd-file is the name of the DBD file and label is the optional.

MFS

COPY

label COPY mfs-file

These statements imply a dependency, typed COPY, with another MFS file or a CPY file named mfs-file. label term is optional.

MOD/MID definition

• CEM01O MSG TYPE=OUTPUT,SOR=(CEM01,IGNORE),NXT=CEM01I
• CEM01I MSG TYPE=INPUT,SOR=(CEM01,IGNORE)

The first statement defines a message output definition (MOD) named CEM01O and the second a message input definition (MID) named CEM01I. Those objects can be used from Cobol file by using CBLTDLI system utility as follows.

CALL 'CBLTDLI' USING
	IM-PARM-COUNT
	IM-CALL-FUNC IO-PCB
	TP-SEGMENT
	'CEM01O'.