MFmainframe-rea
WS carddemo · 26f629ef

Data field · 8 statements in 1 program · all programsCARDNINI

4W · 2R · 2?

COTRN02C

writeMOVE CDEMO-CT02-TRN-SELECTED TO CARDNINI OF COTRN2AI
  1. NOT (EIBCALEN = 0)
  2. NOT CDEMO-PGM-REENTER
  3. CDEMO-CT02-TRN-SELECTED NOT = SPACES AND LOW-VALUES
MAIN-PARA
COTRN02C.cbl:126–127
writeMOVE XREF-CARD-NUM TO CARDNINI OF COTRN2AI
  1. ACTIDINI OF COTRN2AI NOT = SPACES AND LOW-VALUES
VALIDATE-INPUT-KEY-FIELDS
COTRN02C.cbl:209
conditionWHEN CARDNINI OF COTRN2AI NOT = SPACES AND LOW-VALUES
  1. EVALUATE TRUE
VALIDATE-INPUT-KEY-FIELDS
COTRN02C.cbl:210
conditionIF CARDNINI OF COTRN2AI IS NOT NUMERIC
  1. CARDNINI OF COTRN2AI NOT = SPACES AND LOW-VALUES
VALIDATE-INPUT-KEY-FIELDS
COTRN02C.cbl:211
readCOMPUTE WS-CARD-NUM-N = FUNCTION NUMVAL(CARDNINI OF COTRN2AI)
  1. CARDNINI OF COTRN2AI NOT = SPACES AND LOW-VALUES
VALIDATE-INPUT-KEY-FIELDS
COTRN02C.cbl:218–219
writeMOVE WS-CARD-NUM-N TO XREF-CARD-NUM CARDNINI OF COTRN2AI
  1. CARDNINI OF COTRN2AI NOT = SPACES AND LOW-VALUES
VALIDATE-INPUT-KEY-FIELDS
COTRN02C.cbl:220–221
readMOVE CARDNINI OF COTRN2AI TO TRAN-CARD-NUM
ADD-TRANSACTION
COTRN02C.cbl:459
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 CARDNINI PIC X(16)
WORKING-STORAGE · in COTRN2AI · offset 187, 16 bytes
COTRN02.CPY:66 via COTRN02C.cbl:82
Program
COTRN02C