MFmainframe-rea
WS carddemo · 26f629ef

Data field · 3 statements in 1 program · all programsPASSWDI

1W · 1R · 1?

COUSR01C

conditionWHEN PASSWDI OF COUSR1AI = SPACES OR LOW-VALUES
  1. EVALUATE TRUE
PROCESS-ENTER-KEY
COUSR01C.cbl:136
readMOVE PASSWDI OF COUSR1AI TO SEC-USR-PWD
  1. NOT ERR-FLG-ON
PROCESS-ENTER-KEY
COUSR01C.cbl:157
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 PASSWDI PIC X(8)
WORKING-STORAGE · in COUSR1AI · offset 238, 8 bytes
COUSR01.CPY:78 via COUSR01C.cbl:48
Program
COUSR01C