MFmainframe-rea
WS carddemo · 26f629ef

Data field · 6 statements in 1 program · all programsUSRIDINI

2W · 2R · 2?

COUSR02C

writeMOVE CDEMO-CU02-USR-SELECTED TO USRIDINI OF COUSR2AI
  1. NOT (EIBCALEN = 0)
  2. NOT CDEMO-PGM-REENTER
  3. CDEMO-CU02-USR-SELECTED NOT = SPACES AND LOW-VALUES
MAIN-PARA
COUSR02C.cbl:101–102
conditionWHEN USRIDINI OF COUSR2AI = SPACES OR LOW-VALUES
  1. EVALUATE TRUE
PROCESS-ENTER-KEY
COUSR02C.cbl:146
readMOVE USRIDINI OF COUSR2AI TO SEC-USR-ID
  1. NOT ERR-FLG-ON
PROCESS-ENTER-KEY
COUSR02C.cbl:162
conditionWHEN USRIDINI OF COUSR2AI = SPACES OR LOW-VALUES
  1. EVALUATE TRUE
UPDATE-USER-INFO
COUSR02C.cbl:180
readMOVE USRIDINI OF COUSR2AI TO SEC-USR-ID
  1. NOT ERR-FLG-ON
UPDATE-USER-INFO
COUSR02C.cbl:216
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 USRIDINI PIC X(8)
WORKING-STORAGE · in COUSR2AI · offset 169, 8 bytes
COUSR02.CPY:60 via COUSR02C.cbl:60
Program
COUSR02C