midrange.com code scratchpad
Name:
Remove unchanged records
Scriptlanguage:
Plain Text
Tabwidth:
4
Date:
05/01/2012 09:20:29 pm
IP:
Logged
Description:
File HUR0507AM is built early in the morning. Same process builds HUR0507. This program needs to remove unchanged records between the two runs.
Code:
  1.      Fhur0507   uf   e             disk
  2.  
  3.      Fhur0507am if   e           k disk
  4.  
  5.      Dpm             e ds                  ExtName(hur0507)
  6.  
  7.      Dam             e ds                  ExtName(hur0507am)
  8.  
  9.  
  10.  
  11.      c     xxhuky        klist
  12.  
  13.      c                   kfld                    humrc#
  14.  
  15.      c                   kfld                    huacct
  16.  
  17.  
  18.  
  19.      c                   read      pfhur2
  20.  
  21. B01  c                   dow       not %eof(hur0507)
  22.  
  23.  01  c     xxhuky        setll     pfhura
  24.  
  25.  01  c     xxhuky        reade     pfhura
  26.  
  27. B02  c                   if        not %eof(hur0507am) and am=pm
  28.  
  29.  02  c                   delete    pfhur2
  30.  
  31. E02  c                   endif
  32.  
  33.  
  34.  
  35.  01  c                   read      pfhur2
  36.  
  37. E01  c                   enddo
  38.  
  39.      c                   eval      *inlr = *on
  40.  
  41. 
© 2004-2019 by midrange.com generated in 0.004s valid xhtml & css