Data field · 2 statements in 1 program · all programsUSRIDINI

0W · 1R · 1?

COUSR00C

condition	IF USRIDINI OF COUSR0AI = SPACES OR LOW-VALUES	PROCESS-ENTER-KEY COUSR00C.cbl:218
read	MOVE USRIDINI OF COUSR0AI TO SEC-USR-ID NOT (USRIDINI OF COUSR0AI = SPACES OR LOW-VALUES)	PROCESS-ENTER-KEY COUSR00C.cbl:221

Defined: 02 USRIDINI PIC X(8)
WORKING-STORAGE · in COUSR0AI · offset 184, 8 bytes
COUSR00.CPY:66 via COUSR00C.cbl:76
Program: COUSR00C