Data field · 12 statements in 3 programsUSRTYPEI
COUSR01C
| condition | WHEN USRTYPEI OF COUSR1AI = SPACES OR LOW-VALUES
| PROCESS-ENTER-KEY COUSR01C.cbl:142 |
| read | MOVE USRTYPEI OF COUSR1AI TO SEC-USR-TYPE
| PROCESS-ENTER-KEY COUSR01C.cbl:158 |
| 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 USRTYPEI PIC X(1) WORKING-STORAGE · in COUSR1AI · offset 253, 1 bytesCOUSR01.CPY:84 via COUSR01C.cbl:48
- Program
- COUSR01C
COUSR02C
| write | MOVE SPACES TO FNAMEI OF COUSR2AI LNAMEI OF COUSR2AI PASSWDI OF COUSR2AI USRTYPEI OF COUSR2AI
| PROCESS-ENTER-KEY COUSR02C.cbl:158–161 |
| write | MOVE SEC-USR-TYPE TO USRTYPEI OF COUSR2AI
| PROCESS-ENTER-KEY COUSR02C.cbl:170 |
| condition | WHEN USRTYPEI OF COUSR2AI = SPACES OR LOW-VALUES
| UPDATE-USER-INFO COUSR02C.cbl:204 |
| condition | IF USRTYPEI OF COUSR2AI NOT = SEC-USR-TYPE
| UPDATE-USER-INFO COUSR02C.cbl:231 |
| read | MOVE USRTYPEI OF COUSR2AI TO SEC-USR-TYPE
| UPDATE-USER-INFO COUSR02C.cbl:232 |
| 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 USRTYPEI PIC X(1) WORKING-STORAGE · in COUSR2AI · offset 253, 1 bytesCOUSR02.CPY:84 via COUSR02C.cbl:60
- Program
- COUSR02C
COUSR03C
| write | MOVE SPACES TO FNAMEI OF COUSR3AI LNAMEI OF COUSR3AI USRTYPEI OF COUSR3AI
| PROCESS-ENTER-KEY COUSR03C.cbl:157–159 |
| write | MOVE SEC-USR-TYPE TO USRTYPEI OF COUSR3AI
| PROCESS-ENTER-KEY COUSR03C.cbl:167 |
| 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 USRTYPEI PIC X(1) WORKING-STORAGE · in COUSR3AI · offset 238, 1 bytesCOUSR03.CPY:78 via COUSR03C.cbl:60
- Program
- COUSR03C