MFmainframe-rea
WS carddemo · 26f629ef

Data field · 4 statements in 1 program · all programsTRNIDINI

2W · 1R · 1?

COTRN01C

writeMOVE CDEMO-CT01-TRN-SELECTED TO TRNIDINI OF COTRN1AI
  1. NOT (EIBCALEN = 0)
  2. NOT CDEMO-PGM-REENTER
  3. CDEMO-CT01-TRN-SELECTED NOT = SPACES AND LOW-VALUES
MAIN-PARA
COTRN01C.cbl:105–106
conditionWHEN TRNIDINI OF COTRN1AI = SPACES OR LOW-VALUES
  1. EVALUATE TRUE
PROCESS-ENTER-KEY
COTRN01C.cbl:147
readMOVE TRNIDINI OF COTRN1AI TO TRAN-ID
  1. NOT ERR-FLG-ON
PROCESS-ENTER-KEY
COTRN01C.cbl:172
writeMOVE 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