Data field · 9 statements in 3 programsCONFIRMI

1W · 0R · 1?

COBIL00C

condition	EVALUATE CONFIRMI OF COBIL0AI NOT ERR-FLG-ON	PROCESS-ENTER-KEY COBIL00C.cbl:173
write	MOVE 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

1W · 1R · 3?

CORPT00C

condition	IF CONFIRMI OF CORPT0AI = SPACES OR LOW-VALUES	SUBMIT-JOB-TO-INTRDR CORPT00C.cbl:464
condition	WHEN CONFIRMI OF CORPT0AI = 'Y' OR 'y' NOT ERR-FLG-ON EVALUATE TRUE	SUBMIT-JOB-TO-INTRDR CORPT00C.cbl:478
condition	WHEN CONFIRMI OF CORPT0AI = 'N' OR 'n' NOT ERR-FLG-ON EVALUATE TRUE	SUBMIT-JOB-TO-INTRDR CORPT00C.cbl:480
read	STRING '"' DELIMITED BY SIZE CONFIRMI OF CORPT0AI DELIMITED BY SPACE '" is not a valid value to confirm...' DELIMITED BY SIZE INTO WS-MESSAGE NOT ERR-FLG-ON TRUE is none of [CONFIRMI OF CORPT0AI = 'Y' OR 'y'; CONFIRMI OF CORPT0AI = 'N' OR 'n']	SUBMIT-JOB-TO-INTRDR CORPT00C.cbl:485–490
write	INITIALIZE MONTHLYI OF CORPT0AI YEARLYI OF CORPT0AI CUSTOMI OF CORPT0AI SDTMMI OF CORPT0AI SDTDDI OF CORPT0AI SDTYYYYI OF CORPT0AI EDTMMI OF CORPT0AI EDTDDI OF CORPT0AI EDTYYYYI OF CORPT0AI CONFIRMI OF CORPT0AI WS-MESSAGE	INITIALIZE-ALL-FIELDS CORPT00C.cbl:636–646

Defined: 02 CONFIRMI PIC X(1)
WORKING-STORAGE · in CORPT0AI · offset 251, 1 bytes
CORPT00.CPY:114 via CORPT00C.cbl:140
Program: CORPT00C

1W · 0R · 1?

COTRN02C

condition	EVALUATE CONFIRMI OF COTRN2AI	PROCESS-ENTER-KEY COTRN02C.cbl:169
write	MOVE SPACES TO ACTIDINI OF COTRN2AI CARDNINI OF COTRN2AI TTYPCDI OF COTRN2AI TCATCDI OF COTRN2AI TRNSRCI OF COTRN2AI TRNAMTI OF COTRN2AI TDESCI OF COTRN2AI TORIGDTI OF COTRN2AI TPROCDTI OF COTRN2AI MIDI OF COTRN2AI MNAMEI OF COTRN2AI MCITYI	INITIALIZE-ALL-FIELDS COTRN02C.cbl:765–779

Defined: 02 CONFIRMI PIC X(1)
WORKING-STORAGE · in COTRN2AI · offset 469, 1 bytes
COTRN02.CPY:138 via COTRN02C.cbl:82
Program: COTRN02C