Data field · 7 statements in 2 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

2W · 1R · 1?

COTRN01C

write	MOVE CDEMO-CT01-TRN-SELECTED TO TRNIDINI OF COTRN1AI NOT (EIBCALEN = 0) NOT CDEMO-PGM-REENTER CDEMO-CT01-TRN-SELECTED NOT = SPACES AND LOW-VALUES	MAIN-PARA COTRN01C.cbl:105–106
condition	WHEN TRNIDINI OF COTRN1AI = SPACES OR LOW-VALUES EVALUATE TRUE	PROCESS-ENTER-KEY COTRN01C.cbl:147
read	MOVE TRNIDINI OF COTRN1AI TO TRAN-ID NOT ERR-FLG-ON	PROCESS-ENTER-KEY COTRN01C.cbl:172
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 TRNIDINI PIC X(16)
WORKING-STORAGE · in COTRN1AI · offset 169, 16 bytes
COTRN01.CPY:60 via COTRN01C.cbl:63
Program: COTRN01C