Data field · 11 statements in 3 programsPASSWDI

0W · 1R · 1?

COSGN00C

condition	WHEN PASSWDI OF COSGN0AI = SPACES OR LOW-VALUES EVALUATE TRUE	PROCESS-ENTER-KEY COSGN00C.cbl:123
read	MOVE FUNCTION UPPER-CASE(PASSWDI OF COSGN0AI) TO WS-USER-PWD	PROCESS-ENTER-KEY COSGN00C.cbl:135–136

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

1W · 1R · 1?

COUSR01C

condition	WHEN PASSWDI OF COUSR1AI = SPACES OR LOW-VALUES EVALUATE TRUE	PROCESS-ENTER-KEY COUSR01C.cbl:136
read	MOVE PASSWDI OF COUSR1AI TO SEC-USR-PWD NOT ERR-FLG-ON	PROCESS-ENTER-KEY COUSR01C.cbl:157
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 PASSWDI PIC X(8)
WORKING-STORAGE · in COUSR1AI · offset 238, 8 bytes
COUSR01.CPY:78 via COUSR01C.cbl:48
Program: COUSR01C

3W · 1R · 2?

COUSR02C

write	MOVE SPACES TO FNAMEI OF COUSR2AI LNAMEI OF COUSR2AI PASSWDI OF COUSR2AI USRTYPEI OF COUSR2AI NOT ERR-FLG-ON	PROCESS-ENTER-KEY COUSR02C.cbl:158–161
write	MOVE SEC-USR-PWD TO PASSWDI OF COUSR2AI NOT ERR-FLG-ON	PROCESS-ENTER-KEY COUSR02C.cbl:169
condition	WHEN PASSWDI OF COUSR2AI = SPACES OR LOW-VALUES EVALUATE TRUE	UPDATE-USER-INFO COUSR02C.cbl:198
condition	IF PASSWDI OF COUSR2AI NOT = SEC-USR-PWD NOT ERR-FLG-ON	UPDATE-USER-INFO COUSR02C.cbl:227
read	MOVE PASSWDI OF COUSR2AI TO SEC-USR-PWD NOT ERR-FLG-ON PASSWDI OF COUSR2AI NOT = SEC-USR-PWD	UPDATE-USER-INFO COUSR02C.cbl:228
write	MOVE SPACES TO USRIDINI OF COUSR2AI FNAMEI OF COUSR2AI LNAMEI OF COUSR2AI PASSWDI OF COUSR2AI USRTYPEI OF COUSR2AI WS-MESSAGE	INITIALIZE-ALL-FIELDS COUSR02C.cbl:406–411

Defined: 02 PASSWDI PIC X(8)
WORKING-STORAGE · in COUSR2AI · offset 238, 8 bytes
COUSR02.CPY:78 via COUSR02C.cbl:60
Program: COUSR02C