Re: changing two fields in a file

Actually, it was stated his 1 char alpha field going to numeric
was currently in the form '1' to 'B' for months of the year (one
character hexadimal).

Regards,

Jim Langston

Henrik Krebs wrote:

> 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
> +---

+---
| 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
+---