Advertisement
jelledebock

Master transaction

Oct 31st, 2014
543
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
COBOL 0.28 KB | None | 0 0
  1. open TF and MF
  2. read TF and MF
  3. perform until MF-EOF AND TF-EOF
  4.     if MF-key = TF-KEY
  5.         update record
  6.         write updated record to new-MF
  7.         read next record from MF
  8.         read next record from TF
  9.     else if MF-key < TF-key
  10.         write MF-rec to new-MF
  11.         read next from MF
  12.     end
  13. end-perform
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement