MFmainframe-rea
WS carddemo · 26f629ef

Data field · 3 statements in 1 program · all programsUSRTYPEI

1W · 1R · 1?

COUSR01C

conditionWHEN USRTYPEI OF COUSR1AI = SPACES OR LOW-VALUES
  1. EVALUATE TRUE
PROCESS-ENTER-KEY
COUSR01C.cbl:142
readMOVE USRTYPEI OF COUSR1AI TO SEC-USR-TYPE
  1. NOT ERR-FLG-ON
PROCESS-ENTER-KEY
COUSR01C.cbl:158
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 USRTYPEI PIC X(1)
WORKING-STORAGE · in COUSR1AI · offset 253, 1 bytes
COUSR01.CPY:84 via COUSR01C.cbl:48
Program
COUSR01C