Data field · 2 statements in 1 program · all programsCONFIRMI
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 bytesCOTRN02.CPY:138 via COTRN02C.cbl:82
- Program
- COTRN02C