Data field · 2 statements in 1 program · all programsCARDSIDI

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