file Has same field names

["Torres, Wanda" <WTorres@xxxxxxxxxxxx>]

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