MFmainframe-rea
WS carddemo · 26f629ef

Data field · 5 statements in 1 program · all programsACTIDINI

2W · 1R · 2?

COBIL00C

writeMOVE CDEMO-CB00-TRN-SELECTED TO ACTIDINI OF COBIL0AI
  1. NOT (EIBCALEN = 0)
  2. NOT CDEMO-PGM-REENTER
  3. CDEMO-CB00-TRN-SELECTED NOT = SPACES AND LOW-VALUES
MAIN-PARA
COBIL00C.cbl:118–119
conditionWHEN ACTIDINI OF COBIL0AI = SPACES OR LOW-VALUES
  1. EVALUATE TRUE
PROCESS-ENTER-KEY
COBIL00C.cbl:159
readMOVE ACTIDINI OF COBIL0AI TO ACCT-ID XREF-ACCT-ID
  1. NOT ERR-FLG-ON
PROCESS-ENTER-KEY
COBIL00C.cbl:170–171
conditionIF ACCT-CURR-BAL <= ZEROS AND ACTIDINI OF COBIL0AI NOT = SPACES AND LOW-VALUES
  1. NOT ERR-FLG-ON
PROCESS-ENTER-KEY
COBIL00C.cbl:198–199
writeMOVE SPACES TO ACTIDINI OF COBIL0AI CURBALI OF COBIL0AI CONFIRMI OF COBIL0AI WS-MESSAGE
INITIALIZE-ALL-FIELDS
COBIL00C.cbl:563–566
Defined
02 ACTIDINI PIC X(11)
WORKING-STORAGE · in COBIL0AI · offset 169, 11 bytes
COBIL00.CPY:60 via COBIL00C.cbl:74
Program
COBIL00C