MFmainframe-rea
WS carddemo · 26f629ef

Data field · 3 statements in 1 program · all programsFNAMEI

1W · 1R · 1?

COUSR01C

conditionWHEN FNAMEI OF COUSR1AI = SPACES OR LOW-VALUES
  1. EVALUATE TRUE
PROCESS-ENTER-KEY
COUSR01C.cbl:118
readMOVE FNAMEI OF COUSR1AI TO SEC-USR-FNAME
  1. NOT ERR-FLG-ON
PROCESS-ENTER-KEY
COUSR01C.cbl:155
writeMOVE 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 bytes
COUSR01.CPY:60 via COUSR01C.cbl:48
Program
COUSR01C