Re: changing two fields in a file

Well, consider doing it in two parts then, as you don't want to do 108 moves.

create the DDS that just increases the field widths, leaving them alpha.  Then
do a CPYF *MAP, now all your fields will be in the right spot.  then write a
program to convert them to numeric.  Of course, you will have to yet create
another DDS this time making them numeric.

with your 1 to B which you want to convert to 1 to 12 (I assume) I can't think
of any way to do this without coding.

Oh, consider this too, in your new DDS keep all field names the same except
the two you want to change.  Then you can do the whole thing in one program.
When it reads the file the fields with the same name should be cross mapped,
simple cycle programing, read a record, change the two fields and move to their
new fields, write the new record.

boothm@ibm.net wrote:

> This has to be correct.  has to be.   I'll try it again.  I must have had
> some other problem and it confused me because this has to be true.  Thank
> you.
>
> Thanks to the others that had correct ideas too.  I'm sorry for wasting
> everyone's  bandwidth with what must be a really stupid mistake that I
> haven't found yet.
>
> In <F5DBB7A1F81ED311812C0060B05735153AD9F7@MAIL>, on 08/20/99
>    at 04:52 PM, Joel Fritz <JFritz@sharperimage.com> said:
>
> >I could be wrong (no, not me), but I think if the field names are the
> >same you wouldn't have to code the moves.  You could prefix or rename the
> >two fields that have to be changed.
>
> --
> -----------------------------------------------------------
> boothm@ibm.net
> Booth Martin
> -----------------------------------------------------------
>
> +---
> | 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
+---