ÀS400: Indicator in COBOL:

The function key Indicator and all about field general indicators we can use in COBOL program. It’s simple and easy to use and runs faster .

For example, we had to do this:

General Indicators:

WORKING-STORAGE SECTION.

01 WS-CONTROL.

03 IN03 PIC 1 INDIC 03.
88 END-PROGRAM VALUE B”0″.
88 NOT-END-PROGRAM VALUE B”1″.
EXIT PROGRAM
03 IN33 PIC 1 INDIC 33.

SUBFILE DISPLAY & SFLINZ
03 IN32 PIC 1 INDIC 32.
SUBFILE DISPLAY CONTROL
03 IN34 PIC 1 INDIC 34.
ROLLUP
01 FILE-STATUS.
05 CBLWIN-FILE-STATUS PIC 99.

If we want to use function indicators then.

around. For example :

DATA DIVISION.
FILE SECTION.
FD CBLIND01.
01 DREC.
COPY DDS-ALL-FORMATS OF FILE_NAME.
WORKING-STORAGE SECTION.
01 WS-CONTROL-AREA.
05 WS-FUNCTION-KEY PIC X(02).
88 CF01 VALUE ’01’.
88 CF02 VALUE ’02’.
88 CF03 VALUE ’03’.

About the Author