Data field · 12 statements in 3 programsFNAMEI
COUSR01C
| condition | WHEN FNAMEI OF COUSR1AI = SPACES OR LOW-VALUES
| PROCESS-ENTER-KEY COUSR01C.cbl:118 |
| read | MOVE FNAMEI OF COUSR1AI TO SEC-USR-FNAME
| PROCESS-ENTER-KEY COUSR01C.cbl:155 |
| 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 FNAMEI PIC X(20) WORKING-STORAGE · in COUSR1AI · offset 169, 20 bytesCOUSR01.CPY:60 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-FNAME TO FNAMEI OF COUSR2AI
| PROCESS-ENTER-KEY COUSR02C.cbl:167 |
| condition | WHEN FNAMEI OF COUSR2AI = SPACES OR LOW-VALUES
| UPDATE-USER-INFO COUSR02C.cbl:186 |
| condition | IF FNAMEI OF COUSR2AI NOT = SEC-USR-FNAME
| UPDATE-USER-INFO COUSR02C.cbl:219 |
| read | MOVE FNAMEI OF COUSR2AI TO SEC-USR-FNAME
| UPDATE-USER-INFO COUSR02C.cbl:220 |
| 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 FNAMEI PIC X(20) WORKING-STORAGE · in COUSR2AI · offset 184, 20 bytesCOUSR02.CPY:66 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-FNAME TO FNAMEI OF COUSR3AI
| PROCESS-ENTER-KEY COUSR03C.cbl:165 |
| 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 FNAMEI PIC X(20) WORKING-STORAGE · in COUSR3AI · offset 184, 20 bytesCOUSR03.CPY:66 via COUSR03C.cbl:60
- Program
- COUSR03C