MFmainframe-rea
WS carddemo · 26f629ef

Data field · 6 statements in 1 program · all programsFNAMEI

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-FNAME TO FNAMEI OF COUSR2AI
  1. NOT ERR-FLG-ON
PROCESS-ENTER-KEY
COUSR02C.cbl:167
conditionWHEN FNAMEI OF COUSR2AI = SPACES OR LOW-VALUES
  1. EVALUATE TRUE
UPDATE-USER-INFO
COUSR02C.cbl:186
conditionIF FNAMEI OF COUSR2AI NOT = SEC-USR-FNAME
  1. NOT ERR-FLG-ON
UPDATE-USER-INFO
COUSR02C.cbl:219
readMOVE FNAMEI OF COUSR2AI TO SEC-USR-FNAME
  1. NOT ERR-FLG-ON
  2. FNAMEI OF COUSR2AI NOT = SEC-USR-FNAME
UPDATE-USER-INFO
COUSR02C.cbl:220
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 FNAMEI PIC X(20)
WORKING-STORAGE · in COUSR2AI · offset 184, 20 bytes
COUSR02.CPY:66 via COUSR02C.cbl:60
Program
COUSR02C