Re: file Has same field names

[Brian.Johnson@xxxxxxxxxxxxxxx]

You could use an externally defined data structure to hold the database
fields.   Something like this:



IFIELDS    E DSINFILE
C           *LIKE     DEFN FIELDS    INREC
C                     READ INFILE                   LR
C                     MOVE FIELDS    INREC
C           KEY       CHAINOTFILE               99
C                     MOVE INREC     FIELDS
C           *IN99     IFEQ '0'
C                     UPDATOUTREC
C                     ELSE
C                     WRITEOUTREC
C                     ENDIF







PS

I'm an ex-COBOL programmer, and I really miss MOVE CORRESPONDING!


Brian Johnson
Help/Systems, Inc.
brian.johnson@helpsystems.com
www.helpsystems.com
(612) 563-1627





uucp@UUCP1.MCS.NET on 02/10/99 16:02:28

Please respond to MIDRANGE-L@midrange.com

To:   idrange-L@midrange.com>
cc:    (bcc: Brian Johnson/HelpSystems)

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







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