Data field · 2 statements in 1 program · all programsCRDNAMEI

0W · 1R · 1?

COCRDUPC

condition	IF CRDNAMEI OF CCRDUPAI = '*' OR CRDNAMEI OF CCRDUPAI = SPACES	1100-RECEIVE-MAP COCRDUPC.cbl:607–608
read	MOVE CRDNAMEI OF CCRDUPAI TO CCUP-NEW-CRDNAME NOT (CRDNAMEI OF CCRDUPAI = '*' OR CRDNAMEI OF CCRDUPAI = SPACES)	1100-RECEIVE-MAP COCRDUPC.cbl:611

Defined: 02 CRDNAMEI PIC X(50)
WORKING-STORAGE · in CCRDUPAI · offset 210, 50 bytes
COCRDUP.CPY:72 via COCRDUPC.cbl:334
Program: COCRDUPC