Data field · 2 statements in 1 program · all programsACCTSIDI

0W · 1R · 1?

COCRDSLC

condition	IF ACCTSIDI OF CCRDSLAI = '*' OR ACCTSIDI OF CCRDSLAI = SPACES	2200-EDIT-MAP-INPUTS COCRDSLC.cbl:615–616
read	MOVE ACCTSIDI OF CCRDSLAI TO CC-ACCT-ID NOT (ACCTSIDI OF CCRDSLAI = '*' OR ACCTSIDI OF CCRDSLAI = SPACES)	2200-EDIT-MAP-INPUTS COCRDSLC.cbl:619

Defined: 02 ACCTSIDI PIC X(11)
WORKING-STORAGE · in CCRDSLAI · offset 169, 11 bytes
COCRDSL.CPY:60 via COCRDSLC.cbl:215
Program: COCRDSLC