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:
- Fhur0507 uf e disk
-
- Fhur0507am if e k disk
-
- Dpm e ds ExtName(hur0507)
-
- Dam e ds ExtName(hur0507am)
-
-
-
- c xxhuky klist
-
- c kfld humrc#
-
- c kfld huacct
-
-
-
- c read pfhur2
-
- B01 c dow not %eof(hur0507)
-
- 01 c xxhuky setll pfhura
-
- 01 c xxhuky reade pfhura
-
- B02 c if not %eof(hur0507am) and am=pm
-
- 02 c delete pfhur2
-
- E02 c endif
-
-
-
- 01 c read pfhur2
-
- E01 c enddo
-
- c eval *inlr = *on
-
|
|
|