Data field · 5 statements in 2 programsUSERIDI

0W · 1R · 1?

COSGN00C

condition	WHEN USERIDI OF COSGN0AI = SPACES OR LOW-VALUES EVALUATE TRUE	PROCESS-ENTER-KEY COSGN00C.cbl:118
read	MOVE FUNCTION UPPER-CASE(USERIDI OF COSGN0AI) TO WS-USER-ID CDEMO-USER-ID	PROCESS-ENTER-KEY COSGN00C.cbl:132–134

Defined: 02 USERIDI PIC X(8)
WORKING-STORAGE · in COSGN0AI · offset 200, 8 bytes
COSGN00.CPY:72 via COSGN00C.cbl:50
Program: COSGN00C

1W · 1R · 1?

COUSR01C

condition	WHEN USERIDI OF COUSR1AI = SPACES OR LOW-VALUES EVALUATE TRUE	PROCESS-ENTER-KEY COUSR01C.cbl:130
read	MOVE USERIDI OF COUSR1AI TO SEC-USR-ID NOT ERR-FLG-ON	PROCESS-ENTER-KEY COUSR01C.cbl:154
write	MOVE SPACES TO USERIDI OF COUSR1AI FNAMEI OF COUSR1AI LNAMEI OF COUSR1AI PASSWDI OF COUSR1AI USRTYPEI OF COUSR1AI WS-MESSAGE	INITIALIZE-ALL-FIELDS COUSR01C.cbl:290–295

Defined: 02 USERIDI PIC X(8)
WORKING-STORAGE · in COUSR1AI · offset 223, 8 bytes
COUSR01.CPY:72 via COUSR01C.cbl:48
Program: COUSR01C