MFmainframe-rea
WS carddemo · 26f629ef

Data field · 6 statements in 1 program · all programsPASSWDI

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-PWD TO PASSWDI OF COUSR2AI
  1. NOT ERR-FLG-ON
PROCESS-ENTER-KEY
COUSR02C.cbl:169
conditionWHEN PASSWDI OF COUSR2AI = SPACES OR LOW-VALUES
  1. EVALUATE TRUE
UPDATE-USER-INFO
COUSR02C.cbl:198
conditionIF PASSWDI OF COUSR2AI NOT = SEC-USR-PWD
  1. NOT ERR-FLG-ON
UPDATE-USER-INFO
COUSR02C.cbl:227
readMOVE PASSWDI OF COUSR2AI TO SEC-USR-PWD
  1. NOT ERR-FLG-ON
  2. PASSWDI OF COUSR2AI NOT = SEC-USR-PWD
UPDATE-USER-INFO
COUSR02C.cbl:228
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 PASSWDI PIC X(8)
WORKING-STORAGE · in COUSR2AI · offset 238, 8 bytes
COUSR02.CPY:78 via COUSR02C.cbl:60
Program
COUSR02C