RE: file Has same field names -- MIDRANGE-L


Thanks Brian, Wayne & Jon,

I converted to RPG IV and program works  like a charm. 

Wanda
> -----Original Message-----
> From: WCORK@groendyke.com [SMTP:WCORK@groendyke.com]
> Sent: Wednesday, February 10, 1999 5:57 PM
> To:   MIDRANGE-L@midrange.com
> Subject:      RE: file Has same field names
> 
> Wanda,
> 
> There is a way to do this in RPGIV.  From the code below I would assume
> that
> you are not using RPGIV.  If you have access to RPGIV you can do the
> following:
> 
> On your F Spec use the keyword PREFIX(???)
> The prefix keyword will place what every you define as your prefix in
> front
> of all the fields from that file
> 
> FFILE UF   E           K DISK    PREFIX(PRO) RENAME(BAREC:PROBAREC) 
> 
> D INPUT            E  DS                  EXTNAME("File Name")      
>                                                                         
> D OUTPUT        E  DS                  EXTNAME(FILE) PREFIX(PRO) 
> 
> 
> Then all you have to do is move the "INPUT"  to the "OUTPUT"       
> 
> Wayne
>                                                                       
> 
> 
> > -----Original Message-----
> > From:       Torres, Wanda [SMTP:WTorres@dresdner.com]
> > Sent:       Wednesday, February 10, 1999 3:19 PM
> > To: 'Midrange-L@midrange.com'
> > 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
> +---
+---
| 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
+---