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

Hi Uttam and James

Try using multi occurance data structure.
You can occur one structure to another and move even though you have
same names.  I hope this helps your problem.  

Derick A. Lewis


-----Original Message-----
From: Uttam H Naidu [mailto:UTTAMHN@india.mastech.com]
Sent: Friday, February 12, 1999 9:34 AM
To: 'MIDRANGE-L@midrange.com'
Subject: FW: file Has same field names




----------
From:  Uttam H Naidu
Sent:  Thursday, February 11, 1999 5:37 PM
To:  'email@james-w-kilgore.com'
Subject:  RE: file Has same field names

Hi
        I have both Database file and Subfile record fields having the
same names.  So to update after READC I have to move it to fields of
same type defined by my program.  I have tried using RTNDTA on the
Subfile control record format but it does not work and on Subfile data
record format it gives compilation error.

        Can U suggest something.
        
Regards,

        ----------
        From:  email@james-w-kilgore.com
<mailto:email@james-w-kilgore.com>  [SMTP:email@james-w-kilgore.com]
<mailto:[SMTP:email@james-w-kilgore.com]> 
        Sent:  Thursday, February 11, 1999 2:06 PM
        To:  MIDRANGE-L@midrange.com <mailto:MIDRANGE-L@midrange.com> 
        Subject:  Re: file Has same field names

        Wanda,

        If you stay with RPGIII/400 you may be able to solve the problem
with RTNDTA
        keyword in your DDS.  This would allow you to retrieve the
screen values after
        the CHAIN

        Sorry to hear about brian.

        "Torres, Wanda" wrote:

        > 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 <mailto:MIDRANGE-L@midrange.com> .
        > | To subscribe to this list send email to
MIDRANGE-L-SUB@midrange.com <mailto:MIDRANGE-L-SUB@midrange.com> .
        > | To unsubscribe from this list send email to
MIDRANGE-L-UNSUB@midrange.com <mailto:MIDRANGE-L-UNSUB@midrange.com> .
        > | Questions should be directed to the list owner/operator:
david@midrange.com <mailto:david@midrange.com> 
        > +---

        +---
        | This is the Midrange System Mailing List!
        | To submit a new message, send your mail to
MIDRANGE-L@midrange.com <mailto:MIDRANGE-L@midrange.com> .
        | To subscribe to this list send email to
MIDRANGE-L-SUB@midrange.com <mailto:MIDRANGE-L-SUB@midrange.com> .
        | To unsubscribe from this list send email to
MIDRANGE-L-UNSUB@midrange.com <mailto:MIDRANGE-L-UNSUB@midrange.com> .
        | Questions should be directed to the list owner/operator:
david@midrange.com <mailto: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
+---