Secondary Indexing is used when we want to access a database without using the complete concatenated key or when we do not want to use the sequence primary fields.

Index Pointer Segment

DL/I stores the pointer to segments of the indexed database in a separate database. Index pointer segment is the only type of secondary index. It consists of two parts −

• Prefix Element
• Data Element

Prefix Element

The prefix part of the index pointer segment contains a pointer to the Index Target Segment. Index target segment is the segment that is accessible using the secondary index.

Data Element

The data element contains the key value from the segment in the indexed database over which the index is built. This is also known as the index source segment.

Here are the key points to note about Secondary Indexing −

• The index source segment and the target source segment need not be the same.

• When we set up a secondary index, it is automatically maintained by the DL/I.

• The DBA defines many secondary indexes as per the multiple access paths. These secondary indexes are stored in a separate index database.

• We should not create more secondary indexes, as they impose additional processing overhead on the DL/I.

Secondary Keys

Points to note −

• The field in the index source segment over which the secondary index is built is called as the secondary key.

• Any field can be used as a secondary key. It need not be the segments sequence field.

• Secondary keys can be any combination of single fields within the index source segment.

• Secondary key values do not have to be unique.

Secondary Data Structures

Points to note −

• When we build a secondary index, the apparent hierarchical structure of the database is also changed.

• The index target segment becomes the apparent root segment. As shown in the following image, the Engineering segment becomes the root segment, even if it is not a root segment.

• The rearrangement of the database structure caused by the secondary index is known as the secondary data structure.

• Secondary data structures do not make any changes to the main physical database structure present on the disk. It is just a way to alter the database structure in front of the application program.

Independent AND Operator

Points to note −

• When an AND (* or &) operator is used with secondary indexes, it is known as a dependent AND operator.

• An independent AND (#) allows us to specify qualifications that would be impossible with a dependent AND.

• This operator can be used only for secondary indexes where the index source segment is dependent on the index target segment.

• We can code an SSA with an independent AND to specify that an occurrence of the target segment be processed based on the fields in two or more dependent source segments.

01 ITEM-SELECTION-SSA.
   05 FILLER           PIC X(8).
   05 FILLER           PIC X(1) VALUE ''(''.
   05 FILLER           PIC X(10).
   05 SSA-KEY-1        PIC X(8).
   05 FILLER           PIC X   VALUE ''#''.
   05 FILLER           PIC X(10).
   05 SSA-KEY-2        PIC X(8).
   05 FILLER           PIC X   VALUE '')''.

Sparse Sequencing

Points to note −

• Sparse sequencing is also known as Sparse Indexing. We can remove some of the index source segments from the index using sparse sequencing with secondary index database.

• Sparse sequencing is used to improve the performance. When some occurrences of the index source segment are not used, we can remove that.

• DL/I uses a suppression value or a suppression routine or both to determine whether a segment should be indexed.

• If the value of a sequence field in the index source segment matches a suppression value, then no index relationship is established.

• The suppression routine is a user-written program that evaluates the segment and determines whether or not it should be indexed.

• When sparse indexing is used, its functions are handled by the DL/I. We do not need to make special provisions for it in the application program.

DBDGEN Requirements

As discussed in earlier modules, DBDGEN is used to create a DBD. When we create secondary indexes, two databases are involved. A DBA needs to create two DBDs using two DBDGENs for creating a relationship between an indexed database and a secondary indexed database.

PSBGEN Requirements

After creating the secondary index for a database, the DBA needs to create the PSBs. PSBGEN for the program specifies the proper processing sequence for the database on the PROCSEQ parameter of the PSB macro. For the PROCSEQ parameter, the DBA codes the DBD name for the secondary index database.

An application program which includes DL/I calls cannot execute directly. Instead, a JCL is required to trigger the IMS DL/I batch module. The batch initialization module in IMS is DFSRRC00. The application program and the DL/I module execute together. The following diagram shows the structure of an application program which includes DL/I calls to access a database.

The application program interfaces with IMS DL/I modules via the following program elements −

• An ENTRY statement specifies that the PCBs are utilized by the program.

• A PCB-mask co-relates with the information preserved in the pre-constructed PCB which receives return information from the IMS.

• An Input-Output Area is used for passing data segments to and from the IMS database.

• Calls to DL/I specify the processing functions such as fetch, insert, delete, replace, etc.

• Check Status Codes is used to check the SQL return code of the processing option specified to inform whether the operation was successful or not.

• A Terminate statement is used to end the processing of the application program which includes the DL/I.

Segments Layout

As of now, we learnt that the IMS consists of segments which are used in high-level programming languages to access data. Consider the following IMS database structure of a Library which we have seen earlier and here we see the layout of its segments in COBOL −

01 LIBRARY-SEGMENT.
   05 BOOK-ID        PIC X(5).
   05 ISSUE-DATE     PIC X(10).
   05 RETURN-DATE    PIC X(10).
   05 STUDENT-ID     PIC A(25).

01 BOOK-SEGMENT.
   05 BOOK-ID        PIC X(5).
   05 BOOK-NAME      PIC A(30).
   05 AUTHOR         PIC A(25).

01 STUDENT-SEGMENT.
   05 STUDENT-ID     PIC X(5).
   05 STUDENT-NAME   PIC A(25).
   05 DIVISION       PIC X(10).

Application Program Overview

The structure of an IMS application program is different from that of a Non-IMS application program. An IMS program cannot be executed directly; rather it is always called as a subroutine. An IMS application program consists of Program Specification Blocks to provide a view of the IMS database.

The application program and the PSBs linked to that program are loaded when we execute an application program which includes IMS DL/I modules. Then the CALL requests triggered by the application programs are executed by the IMS module.

IMS Services

The following IMS services are used by the application program −

• Accessing database records
• Issuing IMS commands
• Issuing IMS service calls
• Checkpoint calls
• Sync calls
• Sending or receiving messages from online user terminals

IMS Control Blocks define the structure of the IMS database and a program”s access to them. The following diagram shows the structure of IMS control blocks.

DL/I uses the following three types of Control Blocks −

• Database Descriptor (DBD)
• Program Specification Block (PSB)
• Access Control Block (ACB)

Database Descriptor (DBD)

Points to note −

• DBD describes the complete physical structure of the database once all the segments have been defined.

• While installing a DL/I database, one DBD must be created as it is required to access the IMS database.

• Applications can use different views of the DBD. They are called Application Data Structures and they are specified in the Program Specification Block.

• The Database Administrator creates a DBD by coding DBDGEN control statements.

DBDGEN

DBDGEN is a Database Descriptor Generator. Creating control blocks is the responsibility of the Database Administrator. All the load modules are stored in the IMS library. Assembly Language macro statements are used to create control blocks. Given below is a sample code that shows how to create a DBD using DBDGEN control statements −

PRINT	NOGEN
DBD	NAME=LIBRARY,ACCESS=HIDAM
DATASET	DD1=LIB,DEVICE=3380
SEGM	NAME=LIBSEG,PARENT=0,BYTES=10
FIELD	NAME=(LIBRARY,SEQ,U),BYTES=10,START=1,TYPE=C
SEGM	NAME=BOOKSEG,PARENT=LIBSEG,BYTES=5
FIELD	NAME=(BOOKS,SEQ,U),BYTES=10,START=1,TYPE=C
SEGM	NAME=MAGSEG,PARENT=LIBSEG,BYTES=9
FIELD	NAME=(MAGZINES,SEQ),BYTES=8,START=1,TYPE=C
DBDGEN
FINISH
END

Let us understand the terms used in the above DBDGEN −

• When you execute the above control statements in JCL, it creates a physical structure where LIBRARY is the root segment, and BOOKS and MAGZINES are its child segments.

• The first DBD macro statement identifies the database. Here, we need to mention the NAME and ACCESS which is used by DL/I to access this database.

• The second DATASET macro statement identifies the file that contains the database.

• The segment types are defined using the SEGM macro statement. We need to specify the PARENT of that segment. If it is a Root segment, then mention PARENT=0.

The following table shows parameters used in FIELD macro statement −

Program Specification Block (PSB)

The fundamentals of PSB are as given below −

• A database has a single physical structure defined by a DBD but the application programs that process it can have different views of the database. These views are called application data structure and are defined in the PSB.

• No program can use more than one PSB in a single execution.

• Application programs have their own PSB and it is common for application programs that have similar database processing requirements to share a PSB.

• PSB consists of one or more control blocks called Program Communication Blocks (PCBs). The PSB contains one PCB for each DL/I database the application program will access. We will discuss more about PCBs in the upcoming modules.

• PSBGEN must be performed to create a PSB for the program.

PSBGEN

PSBGEN is known as Program Specification Block Generator. The following example creates a PSB using PSBGEN −

PRINT   NOGEN
PCB     TYPE=DB,DBDNAME=LIBRARY,KEYLEN=10,PROCOPT=LS
SENSEG  NAME=LIBSEG
SENSEG  NAME=BOOKSEG,PARENT=LIBSEG
SENSEG  NAME=MAGSEG,PARENT=LIBSEG
PSBGEN  PSBNAME=LIBPSB,LANG=COBOL
END

Let us understand the terms used in the above DBDGEN −

• The first macro statement is the Program Communication Block (PCB) that describes the database Type, Name, Key-Length, and Processing Option.

• DBDNAME parameter on the PCB macro specifies the name of the DBD. KEYLEN specifies the length of the longest concatenated key. The program can process in the database. PROCOPT parameter specifies the program”s processing options. For example, LS means only LOAD Operations.

• SENSEG is known as Segment Level Sensitivity. It defines the program”s access to parts of the database and it is identified at the segment level. The program has access to all the fields within the segments to which it is sensitive. A program can also have field-level sensitivity. In this, we define a segment name and the parent name of the segment.

• The last macro statement is PCBGEN. PSBGEN is the last statement telling there are no more statements to process. PSBNAME defines the name given to the output PSB module. The LANG parameter specifies the language in which the application program is written, e.g., COBOL.

Access Control Block (ACB)

Listed below are the points to note about access control blocks −

• Access Control Blocks for an application program combines the Database Descriptor and the Program Specification Block into an executable form.

• ACBGEN is known as Access Control Blocks Generator. It is used to generate ACBs.

• For online programs, we need to pre-build ACBs. Hence the ACBGEN utility is executed before executing the application program.

• For batch programs, ACBs can be generated at execution time too.

Hierarchical databases work on the relationships between two or more segments. The following example shows how segments are related to each other in the IMS database structure.

Root Segment

Points to note −

• The segment that lies at the top of the hierarchy is called the root segment.

• The root segment is the only segment through which all dependent segments are accessed.

• The root segment is the only segment in the database which is never a child segment.

• There can be only one root segment in the IMS database structure.

• For example, ”A” is the root segment in the above example.

Parent Segment

Points to note −

• A parent segment has one or more dependent segments directly below it.

• For example, ”A”, ”B”, and ”E” are the parent segments in the above example.

Dependent Segment

Points to note −

• All segments other than the root segment are known as dependent segments.

• Dependent segments depend on one or more segments to present complete meaning.

• For example, ”B”, ”C1”, ”C2”, ”D”, ”E”, ”F1” and ”F2” are dependent segments in our example.

Child Segment

Points to note −

• Any segment having a segment directly above it in the hierarchy is known as a child segment.

• Each dependent segment in the structure is a child segment.

• For example, ”B”, ”C1”, ”C2”, ”D”, ”E”, ”F1” and ”F2” are child segments.

Twin Segments

Points to note −

• Two or more segment occurrences of a particular segment type under a single parent segment are called twin segments.

• For example, ”C1” and ”C2” are twin segments, so do ”F1” and ”F2” are.

Sibling Segment

Points to note −

• Sibling segments are the segments of different types and the same parent.

• For example, ”B” and ”E” are sibling segments. Similarly, ”C1”, ”C2”, and ”D” are sibling segments.

Database Record

Points to note −

• Each occurrence of the root segment, plus all the subordinate segment occurrences make one database record.

• Every database record has only one root segment but it may have any number of segment occurrences.

• In standard file processing, a record is a unit of data that an application program uses for certain operations. In DL/I, that unit of data is known as a segment. A single database record has many segment occurrences.

Database Path

Points to note −

• A path is the series of segments that starts from the root segment of a database record to any specific segment occurrence.

• A path in the hierarchy structure need not be complete to the lowest level. It depends on how much information we require about an entity.

• A path must be continuous and we cannot skip intermediate levels in the structure.

• In the following figure, the child records in dark grey color show a path which starts from ”A” and goes through ”C2”.

We include DL/I calls inside COBOL application program to communicate with IMS database. We use the following DL/I statements in COBOL program to access the database −

• Entry Statement
• Goback Statement
• Call Statement

Entry Statement

It is used to pass the control from the DL/I to the COBOL program. Here is the syntax of the entry statement −

ENTRY ''DLITCBL'' USING pcb-name1
                     [pcb-name2]

The above statement is coded in the Procedure Division of a COBOL program. Let us go into the details of the entry statement in COBOL program −

• The batch initialization module triggers the application program and is executed under its control.

• The DL/I loads the required control blocks and modules and the application program, and control is given to the application program.

• DLITCBL stands for DL/I to COBOL. The entry statement is used to define the entry point in the program.

• When we call a sub-program in COBOL, its address is also provided. Likewise, when the DL/I gives the control to the application program, it also provides the address of each PCB defined in the program”s PSB.

• All the PCBs used in the application program must be defined inside the Linkage Section of the COBOL program because PCB resides outside the application program.

• The PCB definition inside the Linkage Section is called as PCB Mask.

• The relation between PCB masks and actual PCBs in storage is created by listing the PCBs in the entry statement. The sequence of listing in the entry statement should be same as they appear in the PSBGEN.

Goback Statement

It is used to pass the control back to the IMS control program. Following is the syntax of the Goback statement −

GOBACK

Listed below are the fundamental points to note about the Goback statement −

• GOBACK is coded at the end of the application program. It returns the control to DL/I from the program.

• We should not use STOP RUN as it returns the control to the operating system. If we use STOP RUN, the DL/I never gets a chance to perform its terminating functions. That is why, in DL/I application programs, Goback statement is used.

• Before issuing a Goback statement, all the non-DL/I datasets used in the COBOL application program must be closed, otherwise the program will terminate abnormally.

Call Statement

Call statement is used to request for DL/I services such as executing certain operations on the IMS database. Here is the syntax of the call statement −

CALL ''CBLTDLI'' USING DLI Function Code
                        PCB Mask
                        Segment I/O Area
                        [Segment Search Arguments]

The syntax above shows parameters which you can use with the call statement. We will discuss each of them in the following table −

Given below are the points to note about the Call statement −

• CBLTDLI stands for COBOL to DL/I. It is the name of an interface module that is link edited with your program’s object module.

• After each DL/I call, the DLI stores a status code in the PCB. The program can use this code to determine whether the call succeeded or failed.

Example

For more understanding of COBOL, you can go through our COBOL tutorial . The following example shows the structure of a COBOL program that uses IMS database and DL/I calls. We will discuss in detail each of the parameters used in the example in the upcoming chapters.

IDENTIFICATION DIVISION.
PROGRAM-ID. TEST1.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 DLI-FUNCTIONS.
   05 DLI-GU        PIC X(4)    VALUE ''GU  ''.
   05 DLI-GHU       PIC X(4)    VALUE ''GHU ''.
   05 DLI-GN        PIC X(4)    VALUE ''GN  ''.
   05 DLI-GHN       PIC X(4)    VALUE ''GHN ''.
   05 DLI-GNP       PIC X(4)    VALUE ''GNP ''.
   05 DLI-GHNP      PIC X(4)    VALUE ''GHNP''.
   05 DLI-ISRT      PIC X(4)    VALUE ''ISRT''.
   05 DLI-DLET      PIC X(4)    VALUE ''DLET''.
   05 DLI-REPL      PIC X(4)    VALUE ''REPL''.
   05 DLI-CHKP      PIC X(4)    VALUE ''CHKP''.
   05 DLI-XRST      PIC X(4)    VALUE ''XRST''.
   05 DLI-PCB       PIC X(4)    VALUE ''PCB ''.
01  SEGMENT-I-O-AREA        PIC X(150).
LINKAGE SECTION.
01  STUDENT-PCB-MASK.
   05 STD-DBD-NAME              PIC X(8).
   05 STD-SEGMENT-LEVEL         PIC XX.
   05 STD-STATUS-CODE           PIC XX.
   05 STD-PROC-OPTIONS          PIC X(4).
   05 FILLER                    PIC S9(5) COMP.
   05 STD-SEGMENT-NAME          PIC X(8).
   05 STD-KEY-LENGTH            PIC S9(5) COMP.
   05 STD-NUMB-SENS-SEGS        PIC S9(5) COMP.
   05 STD-KEY                   PIC X(11).
PROCEDURE DIVISION.
ENTRY ''DLITCBL'' USING STUDENT-PCB-MASK.
A000-READ-PARA.
110-GET-INVENTORY-SEGMENT.
   CALL ‘CBLTDLI’ USING DLI-GN
                  STUDENT-PCB-MASK
                  SEGMENT-I-O-AREA.
GOBACK.

IMS DB stores data at different levels. Data is retrieved and inserted by issuing DL/I calls from an application program. We will discuss about DL/I calls in detail in the upcoming chapters. Data can be processed in the following two ways −

• Sequential Processing
• Random Processing

Sequential Processing

When segments are retrieved sequentially from the database, DL/I follows a predefined pattern. Let us understand the sequential processing of IMS DB.

Listed below are the points to note about sequential processing −

• Predefined pattern for accessing data in DL/I is first down the hierarchy, then left to right.

• The root segment is retrieved first, then DL/I moves to the first left child and it goes down till the lowest level. At the lowest level, it retrieves all the occurrences of twin segments. Then it goes to the right segment.

• To understand better, observe the arrows in the above figure that show the flow for accessing the segments. Library is the root segment and the flow starts from there and goes till cars to access a single record. The same process is repeated for all occurrences to get all the data records.

• While accessing data, the program uses the position in the database which helps to retrieve and insert segments.

Random Processing

Random processing is also known as direct processing of data in IMS DB. Let us take an example to understand random processing in IMS DB −

Listed below are the points to note about random processing −

• Segment occurrence that needs to be retrieved randomly requires key fields of all the segments it depends upon. These key fields are supplied by the application program.

• A concatenated key completely identifies the path from the root segment to the segment which you want to retrieve.

• Suppose you want to retrieve an occurrence of the Commerce segment, then you need to supply the concatenated key field values of the segments it depends upon, such as Library, Books, and Commerce.

• Random processing is faster than sequential processing. In real-world scenario, the applications combine both sequential and random processing methods together to achieve best results.

Key Field

Points to note −

• A key field is also known as a sequence field.

• A key field is present within a segment and it is used to retrieve the segment occurrence.

• A key field manages the segment occurrence in ascending order.

• In each segment, only a single field can be used as a key field or sequence field.

Search Field

As mentioned, only a single field can be used as a key field. If you want to search for the contents of other segment fields which are not key fields, then the field which is used to retrieve the data is known as a search field.

PCB stands for Program Communication Block. PCB Mask is the second parameter used in the DL/I call. It is declared in the linkage section. Given below is the syntax of a PCB Mask −

01 PCB-NAME.
   05 DBD-NAME         PIC X(8).
   05 SEG-LEVEL        PIC XX.
   05 STATUS-CODE      PIC XX.
   05 PROC-OPTIONS     PIC X(4).
   05 RESERVED-DLI     PIC S9(5).
   05 SEG-NAME         PIC X(8).
   05 LENGTH-FB-KEY    PIC S9(5).
   05 NUMB-SENS-SEGS   PIC S9(5).
   05 KEY-FB-AREA      PIC X(n).

Here are the key points to note −

• For each database, the DL/I maintains an area of storage that is known as the program communication block. It stores the information about the database that are accessed inside the application programs.

• The ENTRY statement creates a connection between the PCB masks in the Linkage Section and the PCBs within the program’s PSB. The PCB masks used in a DL/I call tells which database to use for operation.

• You can assume this is similar to specifying a file name in a COBOL READ statement or a record name in a COBOL write statement. No SELECT, ASSIGN, OPEN, or CLOSE statements are required.

• After each DL/I call, the DL/I stores a status code in the PCB and the program can use that code to determine whether the call succeeded or failed.

PCB Name

Points to note −

• PCB Name is the name of the area which refers to the entire structure of the PCB fields.

• PCB Name is used in program statements.

• PCB Name is not a field in the PCB.

DBD Name

Points to note −

• DBD name contains the character data. It is eight bytes long.

• The first field in the PCB is the name of the database being processed and it provides the DBD name from the library of database descriptions associated with a particular database.

Segment Level

Points to note −

• Segment level is known as Segment Hierarchy Level Indicator. It contains character data and is two bytes long.

• A segment level field stores the level of the segment that was processed. When a segment is retrieved successfully, the level number of the retrieved segment is stored here.

• A segment level field never has a value greater than 15 because that is the maximum number of levels permitted in a DL/I database.

Status Code

Points to note −

• Status code field contains two bytes of character data.

• Status code contains the DL/I status code.

• Spaces are moved to the status code field when DL/I completes the processing of calls successfully.

• Non-space values indicate that the call was not successful.

• Status code GB indicates end-of-file and status code GE indicates that the requested segment is not found.

Proc Options

Points to note −

• Proc options are known as processing options which contain four-character data fields.

• A Processing Option field indicates what kind of processing the program is authorized to do on the database.

Reserved DL/I

Points to note −

• Reserved DL/I is known as the reserved area of the IMS. It stores four bytes binary data.

• IMS uses this area for its own internal linkage related to an application program.

Segment Name

Points to note −

• SEG Name is known as segment name feedback area. It contains 8 bytes of character data.

• The name of the segment is stored in this field after each DL/I call.

Length FB Key

Points to note −

• Length FB key is known as the length of the key feedback area. It stores four bytes of binary data.

• This field is used to report the length of the concatenated key of the lowest level segment processed during the previous call.

• It is used with the key feedback area.

Number of Sensitivity Segments

Points to note −

• Number of sensitivity segments store four bytes binary data.

• It defines to which level an application program is sensitive. It represents a count of number of segments in the logical data structure.

Key Feedback Area

Points to note −

• Key feedback area varies in length from one PCB to another.

• It contains the longest possible concatenated key that can be used with the program’s view of the database.

• After a database operation, DL/I returns the concatenated key of the lowest level segment processed in this field, and it returns the length of the key in the key length feedback area.

DL/I function is the first parameter that is used in a DL/I call. This function tells which operation is going to be performed on the IMS database by the IMS DL/I call. The syntax of DL/I function is as follows −

01 DLI-FUNCTIONS.
   05 DLI-GU        PIC X(4)    VALUE ''GU  ''.
   05 DLI-GHU       PIC X(4)    VALUE ''GHU ''.
   05 DLI-GN        PIC X(4)    VALUE ''GN  ''.
   05 DLI-GHN       PIC X(4)    VALUE ''GHN ''.
   05 DLI-GNP       PIC X(4)    VALUE ''GNP ''.
   05 DLI-GHNP      PIC X(4)    VALUE ''GHNP''.
   05 DLI-ISRT      PIC X(4)    VALUE ''ISRT''.
   05 DLI-DLET      PIC X(4)    VALUE ''DLET''.
   05 DLI-REPL      PIC X(4)    VALUE ''REPL''.
   05 DLI-CHKP      PIC X(4)    VALUE ''CHKP''.
   05 DLI-XRST      PIC X(4)    VALUE ''XRST''.
   05 DLI-PCB       PIC X(4)    VALUE ''PCB ''.

This syntax represents the following key points −

• For this parameter, we can provide any four-character name as a storage field to store the function code.

• DL/I function parameter is coded in the working storage section of the COBOL program.

• For specifying the DL/I function, the programmer needs to code one of the 05 level data names such as DLI-GU in a DL/I call, since COBOL does not allow to code literals on a CALL statement.

• DL/I functions are divided into three categories: Get, Update, and Other functions. Let us discuss each of them in detail.

Get Functions

Get functions are similar to the read operation supported by any programming language. Get function is used to fetch segments from an IMS DL/I database. The following Get functions are used in IMS DB −

• Get Unique
• Get Next
• Get Next within Parent
• Get Hold Unique
• Get Hold Next
• Get Hold Next within Parent

Let us consider the following IMS database structure to understand the DL/I function calls −

Get Unique

”GU” code is used for the Get Unique function. It works similar to the random read statement in COBOL. It is used to fetch a particular segment occurrence based on the field values. The field values can be provided using segment search arguments. The syntax of a GU call is as follows −

CALL ''CBLTDLI'' USING DLI-GU
                     PCB Mask
                     Segment I/O Area
                     [Segment Search Arguments]

If you execute the above call statement by providing appropriate values for all parameters in the COBOL program, you can retrieve the segment in the segment I/O area from the database. In the above example, if you provide the field values of Library, Magazines, and Health, then you get the desired occurrence of the Health segment.

Get Next

”GN” code is used for the Get Next function. It works similar to the read next statement in COBOL. It is used to fetch segment occurrences in a sequence. The predefined pattern for accessing data segment occurrences is down the hierarchy, then left to right. The syntax of a GN call is as follows −

CALL ''CBLTDLI'' USING DLI-GN
                     PCB Mask
                     Segment I/O Area
                     [Segment Search Arguments]

If you execute the above call statement by providing appropriate values for all parameters in the COBOL program, you can retrieve the segment occurrence in the segment I/O area from the database in a sequential order. In the above example, it starts with accessing the Library segment, then Books segment, and so on. We perform the GN call again and again, until we reach the segment occurrence we want.

Get Next within Parent

”GNP” code is used for Get Next within Parent. This function is used to retrieve segment occurrences in sequence subordinate to an established parent segment. The syntax of a GNP call is as follows −

CALL ''CBLTDLI'' USING DLI-GNP
                     PCB Mask
                     Segment I/O Area
                     [Segment Search Arguments]

Get Hold Unique

”GHU” code is used for Get Hold Unique. Hold function specifies that we are going to update the segment after retrieval. The Get Hold Unique function corresponds to the Get Unique call. Given below is the syntax of a GHU call −

CALL ''CBLTDLI'' USING DLI-GHU
                     PCB Mask
                     Segment I/O Area
                     [Segment Search Arguments]

Get Hold Next

”GHN” code is used for Get Hold Next. Hold function specifies that we are going to update the segment after retrieval. The Get Hold Next function corresponds to the Get Next call. Given below is the syntax of a GHN call −

CALL ''CBLTDLI'' USING DLI-GHN
                     PCB Mask
                     Segment I/O Area
                     [Segment Search Arguments]

Get Hold Next within Parent

”GHNP” code is used for Get Hold Next within Parent. Hold function specifies that we are going to update the segment after retrieval. The Get Hold Next within Parent function corresponds to the Get Next within Parent call. Given below is the syntax of a GHNP call −

CALL ''CBLTDLI'' USING DLI-GHNP
                     PCB Mask
                     Segment I/O Area
                     [Segment Search Arguments]

Update Functions

Update functions are similar to re-write or insert operations in any other programming language. Update functions are used to update segments in an IMS DL/I database. Before using the update function, there must be a successful call with Hold clause for the segment occurrence. The following Update functions are used in IMS DB −

• Insert
• Delete
• Replace

Insert

”ISRT” code is used for the Insert function. The ISRT function is used to add a new segment to the database. It is used to change an existing database or load a new database. Given below is the syntax of an ISRT call −

CALL ''CBLTDLI'' USING DLI-ISRT
                     PCB Mask
                     Segment I/O Area
                     [Segment Search Arguments]

Delete

”DLET” code is used for the Delete function. It is used to remove a segment from an IMS DL/I database. Given below is the syntax of a DLET call −

CALL ''CBLTDLI'' USING DLI-DLET
                     PCB Mask
                     Segment I/O Area
                     [Segment Search Arguments]

Replace

”REPL” code is used for Get Hold Next within Parent. The Replace function is used to replace a segment in the IMS DL/I database. Given below is the syntax of an REPL call −

CALL ''CBLTDLI'' USING DLI-REPL
                     PCB Mask
                     Segment I/O Area
                     [Segment Search Arguments]

Other Functions

The following other functions are used in IMS DL/I calls −

• Checkpoint
• Restart
• PCB

Checkpoint

”CHKP” code is used for the Checkpoint function. It is used in the recovery features of IMS. Given below is the syntax of a CHKP call −

CALL ''CBLTDLI'' USING DLI-CHKP
                     PCB Mask
                     Segment I/O Area
                     [Segment Search Arguments]

Restart

”XRST” code is used for the Restart function. It is used in the restart features of IMS. Given below is the syntax of an XRST call −

CALL ''CBLTDLI'' USING DLI-XRST
                     PCB Mask
                     Segment I/O Area
                     [Segment Search Arguments]

PCB

PCB function is used in CICS programs in the IMS DL/I database. Given below is the syntax of a PCB call −

CALL ''CBLTDLI'' USING DLI-PCB
                     PCB Mask
                     Segment I/O Area
                     [Segment Search Arguments]

You can find more details about these functions in the recovery chapter.