Data field · 11 statements in 1 program · all programsTRNAMTI
COTRN02C
| write | MOVE SPACES TO 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 OF COTRN2AI MZIPI OF COTRN2AI
| VALIDATE-INPUT-DATA-FIELDS COTRN02C.cbl:238–248 |
| condition | WHEN TRNAMTI OF COTRN2AI = SPACES OR LOW-VALUES
| VALIDATE-INPUT-DATA-FIELDS COTRN02C.cbl:276 |
| condition | WHEN TRNAMTI OF COTRN2AI(1:1) NOT EQUAL '-' AND '+'
| VALIDATE-INPUT-DATA-FIELDS COTRN02C.cbl:340 |
| condition | WHEN TRNAMTI OF COTRN2AI(2:8) NOT NUMERIC
| VALIDATE-INPUT-DATA-FIELDS COTRN02C.cbl:341 |
| condition | WHEN TRNAMTI OF COTRN2AI(10:1) NOT = '.'
| VALIDATE-INPUT-DATA-FIELDS COTRN02C.cbl:342 |
| condition | WHEN TRNAMTI OF COTRN2AI(11:2) IS NOT NUMERIC
| VALIDATE-INPUT-DATA-FIELDS COTRN02C.cbl:343 |
| read | COMPUTE WS-TRAN-AMT-N = FUNCTION NUMVAL-C(TRNAMTI OF COTRN2AI) | VALIDATE-INPUT-DATA-FIELDS COTRN02C.cbl:383–384 |
| write | MOVE WS-TRAN-AMT-E TO TRNAMTI OF COTRN2AI | VALIDATE-INPUT-DATA-FIELDS COTRN02C.cbl:386 |
| read | COMPUTE WS-TRAN-AMT-N = FUNCTION NUMVAL-C(TRNAMTI OF COTRN2AI) | ADD-TRANSACTION COTRN02C.cbl:456–457 |
| write | MOVE WS-TRAN-AMT-E TO TRNAMTI OF COTRN2AI
| COPY-LAST-TRAN-DATA COTRN02C.cbl:485 |
| 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 TRNAMTI PIC X(12) WORKING-STORAGE · in COTRN2AI · offset 314, 12 bytesCOTRN02.CPY:96 via COTRN02C.cbl:82
- Program
- COTRN02C