Re: COBOL400-L Digest, Vol 3, Issue 105

[Chuck Landress <clandress@xxxxxxxxxxx>]

One way would be to create the DDS for the file layout and compile it to 
a file with a different name as the one you are reading.  Then use 
Copy-DD or Copy-DDS in your Working Storage section to define the 
record.  When you read the file just use Read Into 
<Record-Name-You-Defined-In-Working-Storage>.

-Chuck Landress

cobol400-l-request@xxxxxxxxxxxx wrote:

> Send COBOL400-L mailing list submissions to
>         cobol400-l@xxxxxxxxxxxx
>
> To subscribe or unsubscribe via the World Wide Web, visit
>         http://lists.midrange.com/mailman/listinfo/cobol400-l
> or, via email, send a message with subject or body 'help' to
>         cobol400-l-request@xxxxxxxxxxxx
>
> You can reach the person managing the list at
>         cobol400-l-owner@xxxxxxxxxxxx
>
> When replying, please edit your Subject line so it is more specific
> than "Re: Contents of COBOL400-L digest..."
>
>
> Today's Topics:
>
>   1. RE:  Applying a DDS (Kelly Cookson)
>   2. RE:  Applying a DDS (Joe Folorunso)
>   3. RE:  Applying a DDS (Joe Folorunso)
>   4. RE:  Applying a DDS (Jack Welch)
>   5. Re:  Applying a DDS (MichaelQuigley@xxxxxxxxxx)
>   6. RE:  Applying a DDS (Kelly Cookson)
>   7. RE:  Applying a DDS (Zangare Basil)
>   8.  RE: COBOL400-L Digest, Vol 3, Issue 103 (Adrienne McConnon)
>
>
> ----------------------------------------------------------------------
>
> message: 1
> date: Sun, 23 Oct 2005 15:05:24 -0500
> from: "Kelly Cookson" <KCookson@xxxxxxxxxxxx>
> subject: RE: [COBOL400-L] Applying a DDS
>
> Do you just want to read records from the file in a COBOL program? I don't see 
> why a COBOL file description (FD) would need a DDS. Shouldn't you be able to 
> just create a COBOL file description (FD statement) with the necessary fields 
> defined in the COBOL program regardless of the existence of a DDS?
>
> Kelly
>
> ________________________________
>
> From: cobol400-l-bounces@xxxxxxxxxxxx on behalf of Garcia, Luis
> Sent: Fri 10/21/2005 6:20 PM
> To: COBOL Programming on the iSeries/AS400
> Subject: [COBOL400-L] Applying a DDS
>
>
>
> Is there a way to apply a DDS to a file created without the DDS? Or how can
> I access that data?
>
> I got a file that was created without a DDS, I have a DDS but I don't want
> to write a program to read and write into another file, so I was wondering
> if it was a faster way?
>
> Thanks
>
> Luis
> --
> This is the COBOL Programming on the iSeries/AS400 (COBOL400-L) mailing list
> To post a message email: COBOL400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/cobol400-l
> or email: COBOL400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/cobol400-l.
>
>
>
>
> ------------------------------
>
> message: 2
> date: Sun, 23 Oct 2005 14:01:34 -0700 (PDT)
> from: Joe Folorunso <jfolorunso@xxxxxxxxx>
> subject: RE: [COBOL400-L] Applying a DDS
>
> Hello Kelly,
>
> I have a project coming up very soon my resource are not within my reach is 
> there any way I can get an ILE COBOL/400. Book.
>
> Do you know of any better method of re-engineering or making the process 
> faster. I am thinking using an embedded SQL400 will improve an old process. 
> Thanks
> Best Regards,
> Joe Folorunso
>
> Kelly Cookson <KCookson@xxxxxxxxxxxx> wrote:
> Do you just want to read records from the file in a COBOL program? I don't see 
> why a COBOL file description (FD) would need a DDS. Shouldn't you be able to 
> just create a COBOL file description (FD statement) with the necessary fields 
> defined in the COBOL program regardless of the existence of a DDS?
>
> Kelly
>
> ________________________________
>
> From: cobol400-l-bounces@xxxxxxxxxxxx on behalf of Garcia, Luis
> Sent: Fri 10/21/2005 6:20 PM
> To: COBOL Programming on the iSeries/AS400
> Subject: [COBOL400-L] Applying a DDS
>
>
>
> Is there a way to apply a DDS to a file created without the DDS? Or how can
> I access that data?
>
> I got a file that was created without a DDS, I have a DDS but I don't want
> to write a program to read and write into another file, so I was wondering
> if it was a faster way?
>
> Thanks
>
> Luis
> --
> This is the COBOL Programming on the iSeries/AS400 (COBOL400-L) mailing list
> To post a message email: COBOL400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/cobol400-l
> or email: COBOL400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/cobol400-l.
>
>
>
>