Re:changing two fields in a file

["Henrik Krebs" <hkrebs@xxxxxxxxx>]

Nedenfor er resultatet af din e-mail formular.
Indsendt af hkrebs@hkrebs.dk

message: >Use RPG 3 or 4.  Input externally described, output externally 
described.
>Rename the input record format.  Rename the input fields that are different.
>Only 1 move(p) or moveL(p) per field is different.   15 line program like you
>wanted.

15 lines? 9 will do if the alpha-content is valid numeric
If the old file is named 'FILE' and has a record format 'REC' and then - before 
creating the new file - is renamed 'OLDFILE' the nine lines look like:
FOLDFILE IP  E                    DISK
F            REC                               KRENAMEOLDREC
FFILE    O   E                    DISK
IOLDREC      01
I              FIELD1                          OLD1
I              FIELD2                          OLD2
C                     MOVE OLD1      FIELD1
C                     Z-ADDOLD2      FIELD2
C   01                WRITEREC
Any shorter?
realname: Henrik Krebs
email: hkrebs@hkrebs.dk


REMOTE_HOST: 134.146.4.10

+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---