MFmainframe-rea
WS carddemo · 26f629ef

Data field · 6 statements in 1 program · all programsUSRIDINI

2W · 2R · 2?

COUSR03C

writeMOVE CDEMO-CU03-USR-SELECTED TO USRIDINI OF COUSR3AI
  1. NOT (EIBCALEN = 0)
  2. NOT CDEMO-PGM-REENTER
  3. CDEMO-CU03-USR-SELECTED NOT = SPACES AND LOW-VALUES
MAIN-PARA
COUSR03C.cbl:101–102
conditionWHEN USRIDINI OF COUSR3AI = SPACES OR LOW-VALUES
  1. EVALUATE TRUE
PROCESS-ENTER-KEY
COUSR03C.cbl:145
readMOVE USRIDINI OF COUSR3AI TO SEC-USR-ID
  1. NOT ERR-FLG-ON
PROCESS-ENTER-KEY
COUSR03C.cbl:160
conditionWHEN USRIDINI OF COUSR3AI = SPACES OR LOW-VALUES
  1. EVALUATE TRUE
DELETE-USER-INFO
COUSR03C.cbl:177
readMOVE USRIDINI OF COUSR3AI TO SEC-USR-ID
  1. NOT ERR-FLG-ON
DELETE-USER-INFO
COUSR03C.cbl:189
writeMOVE SPACES TO USRIDINI OF COUSR3AI FNAMEI OF COUSR3AI LNAMEI OF COUSR3AI USRTYPEI OF COUSR3AI WS-MESSAGE
INITIALIZE-ALL-FIELDS
COUSR03C.cbl:352–356
Defined
02 USRIDINI PIC X(8)
WORKING-STORAGE · in COUSR3AI · offset 169, 8 bytes
COUSR03.CPY:60 via COUSR03C.cbl:60
Program
COUSR03C