Data field · 14 statements in 3 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

2W · 2R · 2?

COUSR02C

write	MOVE CDEMO-CU02-USR-SELECTED TO USRIDINI OF COUSR2AI NOT (EIBCALEN = 0) NOT CDEMO-PGM-REENTER CDEMO-CU02-USR-SELECTED NOT = SPACES AND LOW-VALUES	MAIN-PARA COUSR02C.cbl:101–102
condition	WHEN USRIDINI OF COUSR2AI = SPACES OR LOW-VALUES EVALUATE TRUE	PROCESS-ENTER-KEY COUSR02C.cbl:146
read	MOVE USRIDINI OF COUSR2AI TO SEC-USR-ID NOT ERR-FLG-ON	PROCESS-ENTER-KEY COUSR02C.cbl:162
condition	WHEN USRIDINI OF COUSR2AI = SPACES OR LOW-VALUES EVALUATE TRUE	UPDATE-USER-INFO COUSR02C.cbl:180
read	MOVE USRIDINI OF COUSR2AI TO SEC-USR-ID NOT ERR-FLG-ON	UPDATE-USER-INFO COUSR02C.cbl:216
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 USRIDINI PIC X(8)
WORKING-STORAGE · in COUSR2AI · offset 169, 8 bytes
COUSR02.CPY:60 via COUSR02C.cbl:60
Program: COUSR02C

2W · 2R · 2?

COUSR03C

write	MOVE CDEMO-CU03-USR-SELECTED TO USRIDINI OF COUSR3AI NOT (EIBCALEN = 0) NOT CDEMO-PGM-REENTER CDEMO-CU03-USR-SELECTED NOT = SPACES AND LOW-VALUES	MAIN-PARA COUSR03C.cbl:101–102
condition	WHEN USRIDINI OF COUSR3AI = SPACES OR LOW-VALUES EVALUATE TRUE	PROCESS-ENTER-KEY COUSR03C.cbl:145
read	MOVE USRIDINI OF COUSR3AI TO SEC-USR-ID NOT ERR-FLG-ON	PROCESS-ENTER-KEY COUSR03C.cbl:160
condition	WHEN USRIDINI OF COUSR3AI = SPACES OR LOW-VALUES EVALUATE TRUE	DELETE-USER-INFO COUSR03C.cbl:177
read	MOVE USRIDINI OF COUSR3AI TO SEC-USR-ID NOT ERR-FLG-ON	DELETE-USER-INFO COUSR03C.cbl:189
write	MOVE SPACES TO USRIDINI OF COUSR3AI FNAMEI OF COUSR3AI LNAMEI OF COUSR3AI USRTYPEI OF COUSR3AI WS-MESSAGE	INITIALIZE-ALL-FIELDS COUSR03C.cbl:352–356

Defined: 02 USRIDINI PIC X(8)
WORKING-STORAGE · in COUSR3AI · offset 169, 8 bytes
COUSR03.CPY:60 via COUSR03C.cbl:60
Program: COUSR03C