Data field · 5 statements in 3 programsCARDSIDI

0W · 1R · 0?

COCRDLIC

read

MOVE CARDSIDI OF CCRDLIAI TO CC-CARD-NUM

2100-RECEIVE-SCREEN

COCRDLIC.cbl:970

Defined: 02 CARDSIDI PIC X(16)
WORKING-STORAGE · in CCRDLIAI · offset 197, 16 bytes
COCRDLI.CPY:72 via COCRDLIC.cbl:276
Program: COCRDLIC

0W · 1R · 1?

COCRDSLC

condition	IF CARDSIDI OF CCRDSLAI = '*' OR CARDSIDI OF CCRDSLAI = SPACES	2200-EDIT-MAP-INPUTS COCRDSLC.cbl:622–623
read	MOVE CARDSIDI OF CCRDSLAI TO CC-CARD-NUM NOT (CARDSIDI OF CCRDSLAI = '*' OR CARDSIDI OF CCRDSLAI = SPACES)	2200-EDIT-MAP-INPUTS COCRDSLC.cbl:626

Defined: 02 CARDSIDI PIC X(16)
WORKING-STORAGE · in CCRDSLAI · offset 187, 16 bytes
COCRDSL.CPY:66 via COCRDSLC.cbl:215
Program: COCRDSLC

0W · 1R · 1?

COCRDUPC

condition	IF CARDSIDI OF CCRDUPAI = '*' OR CARDSIDI OF CCRDUPAI = SPACES	1100-RECEIVE-MAP COCRDUPC.cbl:598–599
read	MOVE CARDSIDI OF CCRDUPAI TO CC-CARD-NUM CCUP-NEW-CARDID NOT (CARDSIDI OF CCRDUPAI = '*' OR CARDSIDI OF CCRDUPAI = SPACES)	1100-RECEIVE-MAP COCRDUPC.cbl:603–604

Defined: 02 CARDSIDI PIC X(16)
WORKING-STORAGE · in CCRDUPAI · offset 187, 16 bytes
COCRDUP.CPY:66 via COCRDUPC.cbl:334
Program: COCRDUPC