MFmainframe-rea
WS carddemo · 26f629ef

Data field · 6 statements in 1 program · all programsUSRTYPEI

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-TYPE TO USRTYPEI OF COUSR2AI
  1. NOT ERR-FLG-ON
PROCESS-ENTER-KEY
COUSR02C.cbl:170
conditionWHEN USRTYPEI OF COUSR2AI = SPACES OR LOW-VALUES
  1. EVALUATE TRUE
UPDATE-USER-INFO
COUSR02C.cbl:204
conditionIF USRTYPEI OF COUSR2AI NOT = SEC-USR-TYPE
  1. NOT ERR-FLG-ON
UPDATE-USER-INFO
COUSR02C.cbl:231
readMOVE USRTYPEI OF COUSR2AI TO SEC-USR-TYPE
  1. NOT ERR-FLG-ON
  2. USRTYPEI OF COUSR2AI NOT = SEC-USR-TYPE
UPDATE-USER-INFO
COUSR02C.cbl:232
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 USRTYPEI PIC X(1)
WORKING-STORAGE · in COUSR2AI · offset 253, 1 bytes
COUSR02.CPY:84 via COUSR02C.cbl:60
Program
COUSR02C