Data field · 11 statements in 2 programsACTIDINI
COBIL00C
| write | MOVE CDEMO-CB00-TRN-SELECTED TO ACTIDINI OF COBIL0AI
| MAIN-PARA COBIL00C.cbl:118–119 |
| condition | WHEN ACTIDINI OF COBIL0AI = SPACES OR LOW-VALUES
| PROCESS-ENTER-KEY COBIL00C.cbl:159 |
| read | MOVE ACTIDINI OF COBIL0AI TO ACCT-ID XREF-ACCT-ID
| PROCESS-ENTER-KEY COBIL00C.cbl:170–171 |
| condition | IF ACCT-CURR-BAL <= ZEROS AND ACTIDINI OF COBIL0AI NOT = SPACES AND LOW-VALUES
| PROCESS-ENTER-KEY COBIL00C.cbl:198–199 |
| write | MOVE 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 bytesCOBIL00.CPY:60 via COBIL00C.cbl:74
- Program
- COBIL00C
COTRN02C
| condition | WHEN ACTIDINI OF COTRN2AI NOT = SPACES AND LOW-VALUES
| VALIDATE-INPUT-KEY-FIELDS COTRN02C.cbl:196 |
| condition | IF ACTIDINI OF COTRN2AI IS NOT NUMERIC
| VALIDATE-INPUT-KEY-FIELDS COTRN02C.cbl:197 |
| read | COMPUTE WS-ACCT-ID-N = FUNCTION NUMVAL(ACTIDINI OF COTRN2AI)
| VALIDATE-INPUT-KEY-FIELDS COTRN02C.cbl:204–205 |
| write | MOVE WS-ACCT-ID-N TO XREF-ACCT-ID ACTIDINI OF COTRN2AI
| VALIDATE-INPUT-KEY-FIELDS COTRN02C.cbl:206–207 |
| write | MOVE XREF-ACCT-ID TO ACTIDINI OF COTRN2AI
| VALIDATE-INPUT-KEY-FIELDS COTRN02C.cbl:223 |
| 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 ACTIDINI PIC X(11) WORKING-STORAGE · in COTRN2AI · offset 169, 11 bytesCOTRN02.CPY:60 via COTRN02C.cbl:82
- Program
- COTRN02C