MFmainframe-rea
WS carddemo · 26f629ef

Data field · 2 statements in 1 program · all programsCONFIRMI

1W · 0R · 1?

COBIL00C

conditionEVALUATE CONFIRMI OF COBIL0AI
  1. NOT ERR-FLG-ON
PROCESS-ENTER-KEY
COBIL00C.cbl:173
writeMOVE SPACES TO ACTIDINI OF COBIL0AI CURBALI OF COBIL0AI CONFIRMI OF COBIL0AI WS-MESSAGE
INITIALIZE-ALL-FIELDS
COBIL00C.cbl:563–566
Defined
02 CONFIRMI PIC X(1)
WORKING-STORAGE · in COBIL0AI · offset 208, 1 bytes
COBIL00.CPY:72 via COBIL00C.cbl:74
Program
COBIL00C