Data field · 4 statements in 1 programTRTYPCDI
COTRTUPC
| condition | IF TTUP-DETAILS-NOT-FOUND AND NOT CCARD-AID-PFK05 AND FUNCTION TRIM(TRTYPCDI OF CTRTUPAI) = TTUP-NEW-TTYP-TYPE | 1150-STORE-MAP-IN-NEW COTRTUPC.cbl:654–657 |
| condition | IF TRTYPCDI OF CTRTUPAI = '*' OR TRTYPCDI OF CTRTUPAI = SPACES | 1150-STORE-MAP-IN-NEW COTRTUPC.cbl:667–668 |
| read | MOVE FUNCTION TRIM(TRTYPCDI OF CTRTUPAI) TO TTUP-NEW-TTYP-TYPE
| 1150-STORE-MAP-IN-NEW COTRTUPC.cbl:671–672 |
| condition | IF TTUP-DETAILS-NOT-FOUND AND FUNCTION TRIM(TRTYPCDI OF CTRTUPAI) = TTUP-NEW-TTYP-TYPE | 1200-EDIT-MAP-INPUTS COTRTUPC.cbl:698–700 |
- Defined
- 02 TRTYPCDI PIC X(2) WORKING-STORAGE · in CTRTUPAI · offset 169, 2 bytesCOTRTUP.cpy:60 via COTRTUPC.cbl:265
- Program
- COTRTUPC