MFmainframe-rea
WS carddemo · 26f629ef

Data field · 11 statements in 1 program · all programsTPROCDTI

3W · 2R · 6?

COTRN02C

writeMOVE 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
  1. ERR-FLG-ON
VALIDATE-INPUT-DATA-FIELDS
COTRN02C.cbl:238–248
conditionWHEN TPROCDTI OF COTRN2AI = SPACES OR LOW-VALUES
  1. EVALUATE TRUE
VALIDATE-INPUT-DATA-FIELDS
COTRN02C.cbl:288
conditionWHEN TPROCDTI OF COTRN2AI(1:4) IS NOT NUMERIC
  1. EVALUATE TRUE
VALIDATE-INPUT-DATA-FIELDS
COTRN02C.cbl:369
conditionWHEN TPROCDTI OF COTRN2AI(5:1) NOT EQUAL '-'
  1. EVALUATE TRUE
VALIDATE-INPUT-DATA-FIELDS
COTRN02C.cbl:370
conditionWHEN TPROCDTI OF COTRN2AI(6:2) NOT NUMERIC
  1. EVALUATE TRUE
VALIDATE-INPUT-DATA-FIELDS
COTRN02C.cbl:371
conditionWHEN TPROCDTI OF COTRN2AI(8:1) NOT EQUAL '-'
  1. EVALUATE TRUE
VALIDATE-INPUT-DATA-FIELDS
COTRN02C.cbl:372
conditionWHEN TPROCDTI OF COTRN2AI(9:2) NOT NUMERIC
  1. EVALUATE TRUE
VALIDATE-INPUT-DATA-FIELDS
COTRN02C.cbl:373
readMOVE TPROCDTI OF COTRN2AI TO CSUTLDTC-DATE
VALIDATE-INPUT-DATA-FIELDS
COTRN02C.cbl:409
readMOVE TPROCDTI OF COTRN2AI TO TRAN-PROC-TS
ADD-TRANSACTION
COTRN02C.cbl:465
writeMOVE TRAN-PROC-TS TO TPROCDTI OF COTRN2AI
  1. NOT ERR-FLG-ON
COPY-LAST-TRAN-DATA
COTRN02C.cbl:488
writeMOVE 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