MFmainframe-rea
WS carddemo · 26f629ef

Data field · 6 statements in 1 program · all programsLNAMEI

3W · 1R · 2?

COUSR02C

writeMOVE SPACES TO FNAMEI OF COUSR2AI LNAMEI OF COUSR2AI PASSWDI OF COUSR2AI USRTYPEI OF COUSR2AI
  1. NOT ERR-FLG-ON
PROCESS-ENTER-KEY
COUSR02C.cbl:158–161
writeMOVE SEC-USR-LNAME TO LNAMEI OF COUSR2AI
  1. NOT ERR-FLG-ON
PROCESS-ENTER-KEY
COUSR02C.cbl:168
conditionWHEN LNAMEI OF COUSR2AI = SPACES OR LOW-VALUES
  1. EVALUATE TRUE
UPDATE-USER-INFO
COUSR02C.cbl:192
conditionIF LNAMEI OF COUSR2AI NOT = SEC-USR-LNAME
  1. NOT ERR-FLG-ON
UPDATE-USER-INFO
COUSR02C.cbl:223
readMOVE LNAMEI OF COUSR2AI TO SEC-USR-LNAME
  1. NOT ERR-FLG-ON
  2. LNAMEI OF COUSR2AI NOT = SEC-USR-LNAME
UPDATE-USER-INFO
COUSR02C.cbl:224
writeMOVE 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 bytes
COUSR02.CPY:72 via COUSR02C.cbl:60
Program
COUSR02C