Data field · 12 statements in 3 programsLNAMEI
COUSR01C
| condition | WHEN LNAMEI OF COUSR1AI = SPACES OR LOW-VALUES
| PROCESS-ENTER-KEY COUSR01C.cbl:124 |
| read | MOVE LNAMEI OF COUSR1AI TO SEC-USR-LNAME
| PROCESS-ENTER-KEY COUSR01C.cbl:156 |
| 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 LNAMEI PIC X(20) WORKING-STORAGE · in COUSR1AI · offset 196, 20 bytesCOUSR01.CPY:66 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-LNAME TO LNAMEI OF COUSR2AI
| PROCESS-ENTER-KEY COUSR02C.cbl:168 |
| condition | WHEN LNAMEI OF COUSR2AI = SPACES OR LOW-VALUES
| UPDATE-USER-INFO COUSR02C.cbl:192 |
| condition | IF LNAMEI OF COUSR2AI NOT = SEC-USR-LNAME
| UPDATE-USER-INFO COUSR02C.cbl:223 |
| read | MOVE LNAMEI OF COUSR2AI TO SEC-USR-LNAME
| UPDATE-USER-INFO COUSR02C.cbl:224 |
| 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 LNAMEI PIC X(20) WORKING-STORAGE · in COUSR2AI · offset 211, 20 bytesCOUSR02.CPY:72 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-LNAME TO LNAMEI OF COUSR3AI
| PROCESS-ENTER-KEY COUSR03C.cbl:166 |
| 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 LNAMEI PIC X(20) WORKING-STORAGE · in COUSR3AI · offset 211, 20 bytesCOUSR03.CPY:72 via COUSR03C.cbl:60
- Program
- COUSR03C