Data field · 9 statements in 2 programsTTYPCDI
COTRN01C
| write | MOVE SPACES TO TRNIDI OF COTRN1AI CARDNUMI OF COTRN1AI TTYPCDI OF COTRN1AI TCATCDI OF COTRN1AI TRNSRCI OF COTRN1AI TRNAMTI OF COTRN1AI TDESCI OF COTRN1AI TORIGDTI OF COTRN1AI TPROCDTI OF COTRN1AI MIDI OF COTRN1AI MNAMEI OF COTRN1AI MCITYI O
| PROCESS-ENTER-KEY COTRN01C.cbl:159–171 |
| write | MOVE TRAN-TYPE-CD TO TTYPCDI OF COTRN1AI
| PROCESS-ENTER-KEY COTRN01C.cbl:180 |
| write | MOVE SPACES TO TRNIDINI OF COTRN1AI TRNIDI OF COTRN1AI CARDNUMI OF COTRN1AI TTYPCDI OF COTRN1AI TCATCDI OF COTRN1AI TRNSRCI OF COTRN1AI TRNAMTI OF COTRN1AI TDESCI OF COTRN1AI TORIGDTI OF COTRN1AI TPROCDTI OF COTRN1AI MIDI OF COTRN1AI MNAMEI | INITIALIZE-ALL-FIELDS COTRN01C.cbl:312–326 |
- Defined
- 02 TTYPCDI PIC X(2) WORKING-STORAGE · in COTRN1AI · offset 238, 2 bytesCOTRN01.CPY:78 via COTRN01C.cbl:63
- Program
- COTRN01C
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 TTYPCDI OF COTRN2AI = SPACES OR LOW-VALUES
| VALIDATE-INPUT-DATA-FIELDS COTRN02C.cbl:252 |
| condition | WHEN TTYPCDI OF COTRN2AI NOT NUMERIC
| VALIDATE-INPUT-DATA-FIELDS COTRN02C.cbl:323 |
| read | MOVE TTYPCDI OF COTRN2AI TO TRAN-TYPE-CD | ADD-TRANSACTION COTRN02C.cbl:452 |
| write | MOVE TRAN-TYPE-CD TO TTYPCDI OF COTRN2AI
| COPY-LAST-TRAN-DATA COTRN02C.cbl:482 |
| 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 TTYPCDI PIC X(2) WORKING-STORAGE · in COTRN2AI · offset 210, 2 bytesCOTRN02.CPY:72 via COTRN02C.cbl:82
- Program
- COTRN02C