All About mainframes

What is a SUBSCRIPT in Mainframe?

Subscript:

A subscript is an integer value that indicates the position of an element in an Array(table). It can be defined in working-storage section with PIC S9(4) COMP. It's an integer that indicates the occurrence number in an array.

Example: If you have a table which is defined as

01 WS-ARRAY OCCURS 100 TIMES, then the first element can be accessed by using WS-ARRAY (1).

Example:

DATA DIVISION. WORKING-STORAGE SECTION. 01 WS-SUBSCRPT PIC S9(4) COMP. 01 WS-ARRAY. 02 WS-ELEMENT PIC X(5) OCCURS 10 TIMES. PROCEDURE DIVISION. MOVE 5 to WS-SUBSCRPT. ADD 2 TO WS-SUBSCRPT. MOVE ‘ABCDE’ TO WS-ELEMENT(WS-SUBSCRPT).

This will move ‘ABCDE’ to element number 7.