Re: file Has same field names

["Bill Meecham" <bill_meecham@xxxxxxxxxxxxx>]

Using RPG3, in the I specs you could rename the fields in the file:

I<recordFormat>
*then prompt:  PJX
* external field name is the name of the field in the file, field name will
be used in the program.
I                <file field name>                      <program field name>







-----Original Message-----
From: Torres, Wanda <WTorres@dresdner.com>
To: 'Midrange-L@midrange.com' <Midrange-L@midrange.com>
Date: Wednesday, February 10, 1999 5:03 PM
Subject: file Has same field names


>Hi Everyone:
>
>I have to fix a program the never updated its data because the field names
>in both files were the same. Ok, you say no big deal,  save fields, read
>file , move fields back update file. There are 256 fields in the file. I do
>not wants to have all those moves.  Is there a way I can have one move
>without internally  describing the file?  The original code is below: (Not
>written by me) . I will appreciate any suggestions.  I am brian dead today
>after fixing many bugs in different systems.
>
>Thanks,
>
>Wanda
>
>FMT FX
>.....FFilenameIPEAF........L..I........Device+......KExit++Entry+A....U
>0019.00      FBECFILEPIF  E           K        DISK
>
>0020.00      F            BECRECP                           KRENAMEINPUT
>
>0021.00      FBECFIL00IF  E           K        DISK                      A
>
>0022.00      F            BECRECP                           KRENAMEOUTPUT
>
>0023.00       *
>
>0024.00      C           BECKEY    KLIST
>
>0025.00      C                     KFLD           BKMKT
>
>0026.00      C                     KFLD           BKTIN
>
>0027.00      C                     KFLD           BKICC
>
>0028.00      C                     KFLD           BKIC2
>
>0029.00      C                     KFLD           BKIC3
>
>0030.00      C                     KFLD           BKMDT
>
>0031.00      C                     KFLD           BKCSP
>
>0032.00      C                     KFLD           BKSFX
>
>0033.00       *
>
>0035.00      C           *IN99     DOUEQ'1'
>
>0036.00      C                     READ INPUT                    99
>
>0037.00      C           *IN99     IFEQ '0'
>
>0038.00       *
>
>0039.00      C           BECKEY    CHAINOUTPUT               97
>
>0040.00      C           *IN97     IFEQ '0'
>
>0041.00      C                     UPDATOUTPUT
>
>0042.00      C                     ELSE
>
>0043.00      C                     WRITEOUTPUT
>
>0044.00      C                     ENDIF
>
>0045.00      C                     ENDIF
>
>0046.00      C                     ENDDO
>
>0047.00       *
>
>0048.00      C                     MOVE '1'       *INLR
>
>0049.00       *
>
>        ****************** End of data
>****************************************
>+---
>| 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
+---