Data field · 3 statements in 1 program · all programsTRNIDINI

0W · 1R · 2?

COTRN00C

condition	IF TRNIDINI OF COTRN0AI = SPACES OR LOW-VALUES	PROCESS-ENTER-KEY COTRN00C.cbl:206
condition	IF TRNIDINI OF COTRN0AI IS NUMERIC NOT (TRNIDINI OF COTRN0AI = SPACES OR LOW-VALUES)	PROCESS-ENTER-KEY COTRN00C.cbl:209
read	MOVE TRNIDINI OF COTRN0AI TO TRAN-ID NOT (TRNIDINI OF COTRN0AI = SPACES OR LOW-VALUES) TRNIDINI OF COTRN0AI IS NUMERIC	PROCESS-ENTER-KEY COTRN00C.cbl:210

Defined: 02 TRNIDINI PIC X(16)
WORKING-STORAGE · in COTRN0AI · offset 184, 16 bytes
COTRN00.CPY:66 via COTRN00C.cbl:72
Program: COTRN00C