Re: Dual Format

[Jim Langston <jlangston@xxxxxxxxxxxxxxxx>]

I figured out I would attempt to use two fields that are
the same in both files, Account # and Issue Date.  I just
hope they come out in the order I want them to

I'll do a dual-fomat logical and see what happens.

Regards,

Jim Langston

Jim Langston wrote:

> Our bank wants us to send them a file with all our check
> information.  Their file layout is a dual file layout, with a
> control record and a detail record (their program that
> reads this is obviously a COBOL program since they
> describe the length and such as PICTURE like 9(08)V99).
>
> I am trying to decide the best way to do this.  I was hoping
> to be able to get away with creating two files, one for the
> header and one for the detail, then just copy them to one
> file before I transmitted it, but now I see I am going to have
> to create many header records.
>
> I don't like the thought of back stepping and doing it S36 style
> with file described files either.  I was thinking about a multi-format
> logical, but there are not unique fields in the files to be able to
> key them on.
>
> I think I am going to have to open up the 2 files I created with DDS
> just for the record layouts, then do some type of overlay to get the
> record layout into the fixed length field of the un-DDSed file (the one
> I will be writing too).
>
> Can anyone think of a better way?  If not, could someone give me
> an example of how to do what I am trying to do?  That is, over lay the
> 40 bytes of my DDS to another field.  The DDS is externally described,
> so is not in my program itself.  I am dealing with a small number of
> fields,
> 7 in each of the header and details.
>
> Regards,
>
> Jim Langston
>
> +---
> | This is the RPG/400 Mailing List!
> | To submit a new message, send your mail to RPG400-L@midrange.com.
> | To subscribe to this list send email to RPG400-L-SUB@midrange.com.
> | To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
> | Questions should be directed to the list owner/operator: david@midrange.com
> +---

+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---