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.
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
dbd-file is the name of the DBD file and
label is the optional.
label COPY mfs-file
These statements imply a dependency, typed COPY, with another MFS file or a CPY file named
label term is optional.
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'.