Data field · 2 statements in 1 program · all programsCRDSTCDI

0W · 1R · 1?

COCRDUPC

condition	IF CRDSTCDI OF CCRDUPAI = '*' OR CRDSTCDI OF CCRDUPAI = SPACES	1100-RECEIVE-MAP COCRDUPC.cbl:614–615
read	MOVE CRDSTCDI OF CCRDUPAI TO CCUP-NEW-CRDSTCD NOT (CRDSTCDI OF CCRDUPAI = '*' OR CRDSTCDI OF CCRDUPAI = SPACES)	1100-RECEIVE-MAP COCRDUPC.cbl:618

Defined: 02 CRDSTCDI PIC X(1)
WORKING-STORAGE · in CCRDUPAI · offset 267, 1 bytes
COCRDUP.CPY:78 via COCRDUPC.cbl:334
Program: COCRDUPC