Data field · 14 statements in 2 programsTPROCDTI

3W · 0R · 0?

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 NOT ERR-FLG-ON	PROCESS-ENTER-KEY COTRN01C.cbl:159–171
write	MOVE TRAN-PROC-TS TO TPROCDTI OF COTRN1AI NOT ERR-FLG-ON	PROCESS-ENTER-KEY COTRN01C.cbl:186
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 TPROCDTI PIC X(10)
WORKING-STORAGE · in COTRN1AI · offset 378, 10 bytes
COTRN01.CPY:114 via COTRN01C.cbl:63
Program: COTRN01C

3W · 2R · 6?

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 ERR-FLG-ON	VALIDATE-INPUT-DATA-FIELDS COTRN02C.cbl:238–248
condition	WHEN TPROCDTI OF COTRN2AI = SPACES OR LOW-VALUES EVALUATE TRUE	VALIDATE-INPUT-DATA-FIELDS COTRN02C.cbl:288
condition	WHEN TPROCDTI OF COTRN2AI(1:4) IS NOT NUMERIC EVALUATE TRUE	VALIDATE-INPUT-DATA-FIELDS COTRN02C.cbl:369
condition	WHEN TPROCDTI OF COTRN2AI(5:1) NOT EQUAL '-' EVALUATE TRUE	VALIDATE-INPUT-DATA-FIELDS COTRN02C.cbl:370
condition	WHEN TPROCDTI OF COTRN2AI(6:2) NOT NUMERIC EVALUATE TRUE	VALIDATE-INPUT-DATA-FIELDS COTRN02C.cbl:371
condition	WHEN TPROCDTI OF COTRN2AI(8:1) NOT EQUAL '-' EVALUATE TRUE	VALIDATE-INPUT-DATA-FIELDS COTRN02C.cbl:372
condition	WHEN TPROCDTI OF COTRN2AI(9:2) NOT NUMERIC EVALUATE TRUE	VALIDATE-INPUT-DATA-FIELDS COTRN02C.cbl:373
read	MOVE TPROCDTI OF COTRN2AI TO CSUTLDTC-DATE	VALIDATE-INPUT-DATA-FIELDS COTRN02C.cbl:409
read	MOVE TPROCDTI OF COTRN2AI TO TRAN-PROC-TS	ADD-TRANSACTION COTRN02C.cbl:465
write	MOVE TRAN-PROC-TS TO TPROCDTI OF COTRN2AI NOT ERR-FLG-ON	COPY-LAST-TRAN-DATA COTRN02C.cbl:488
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 TPROCDTI PIC X(10)
WORKING-STORAGE · in COTRN2AI · offset 350, 10 bytes
COTRN02.CPY:108 via COTRN02C.cbl:82
Program: COTRN02C