Data field · 2 statements in 1 program · all programsTRTYDSCI

0W · 1R · 1?

COTRTUPC

condition	IF TRTYDSCI OF CTRTUPAI = '*' OR TRTYDSCI OF CTRTUPAI = SPACES	1150-STORE-MAP-IN-NEW COTRTUPC.cbl:678–679
read	MOVE FUNCTION TRIM(TRTYDSCI OF CTRTUPAI) TO TTUP-NEW-TTYP-TYPE-DESC NOT (TRTYDSCI OF CTRTUPAI = '*' OR TRTYDSCI OF CTRTUPAI = SPACES)	1150-STORE-MAP-IN-NEW COTRTUPC.cbl:682–683

Defined: 02 TRTYDSCI PIC X(50)
WORKING-STORAGE · in CTRTUPAI · offset 178, 50 bytes
COTRTUP.cpy:66 via COTRTUPC.cbl:265
Program: COTRTUPC