Re: Reading directly into a DS

[Joe W Holt <joe.holt@xxxxxxxxxxx>]

   Yes you can use a period in a prefix statement, just encapsulate it in
   single quotes and use upper case characters.  That along with the DS
   defined likerec and it'll autoload on the read. The Qualified DS is
   presumed by that coding.

   FSHWTRL88  IF   E           K DISK    prefix('SX.')
   F                                     RENAME(SHWTRNF:BREAK)

   D SX              DS                  likerec(break) inz

   This code autoloads my DS with the read of the record format BREAK.

   ****
   Joe W Holt
   Jack Onofrio Dog Shows, LLC
   3401 NE 23rd Street
   Oklahoma City, OK 73121
   405.427.8181

 Send RPG400-L mailing list submissions to
         rpg400-l@xxxxxxxxxxxx

 To subscribe or unsubscribe via the World Wide Web, visit
         [1]http://lists.midrange.com/mailman/listinfo/rpg400-l
 or, via email, send a message with subject or body 'help' to
         rpg400-l-request@xxxxxxxxxxxx

 You can reach the person managing the list at
         rpg400-l-owner@xxxxxxxxxxxx

 When replying, please edit your Subject line so it is more specific
 than "Re: Contents of RPG400-L digest..."


 *** NOTE: When replying to this digest message, PLEASE remove all text unrelated to your reply and change the subject line so it is meaningful.

 Today's Topics:

    1. Re: Reading directly into a DS (Stuart Rowe)
    2. RE: Reading directly into a DS
       (Gundermann, Glenn / Kuehne + Nagel / Tor ZI-A)
    3. Re: Reading directly into a DS (James H. H. Lampert)
    4. RE: Reading directly into a DS (jdavis@xxxxxxxx)
    5. RE: Reading directly into a DS (Kurt Anderson)
    6. RE: WORKSTN file problem (DeLong, Eric)


 ----------------------------------------------------------------------

 message: 1
 date: Wed, 11 Nov 2009 15:07:32 -0600
 from: Stuart Rowe <rowestu@xxxxxxxxx>
 subject: Re: Reading directly into a DS

 Sorry, viewed code again and the problem is you cannot use a period in a
 prefix -- that's only allowed to indicate qualification of data structure
 subfiles.  Try an underscore instead.



 On Wed, Nov 11, 2009 at 15:06, Stuart Rowe <rowestu@xxxxxxxxx> wrote:

> You MUST not use the E (external) file type if you intend to use IO with
> structures, IIRC.  You have to use "F" and state the record length.  The
> structure size must then match this record length exactly.
>
> Usually I do this with qualified data structures.  You'll probably want to
> (or use the prefix thing with a really short prefix). For the prefix you
> know you can REMOVE letters from the beginning of the external field name?
> LIke when your fields all start with MF (master file) you could PREFIX(
> 'I_':2) or PREFIX('O_':2) and replace that MF with either I_ or O_ (input,
> output).
>
> Stu
>
>
>
>
>
> On Wed, Nov 11, 2009 at 08:53, Kurt Anderson <kurt.anderson@xxxxxxxxxxxxxx
> > wrote:
>
> > Hi Glenn,
> >
> > Unless I missed it, I don't see where your code loads the I data
> > structure.  Here's a quick (untested) sample of how I would do it.
> >
> >     FFile1     IF   E           K Disk
> >     FFile2     UF A E           K Disk    Rename( FileRec: FileRec2 )
> >
> >     D dsFile1         DS                  LikeRec( FileRec )
> >     D dsFile2         DS                  LikeRec( FileRec2: *output )
> >
> >      /free
> >
> >       DoU %eof( File1 );
> >         Read File1 dsFile1;
> >         If not %eof( File1 );
> >           dsFile2 = dsFile1;
> >
> >           SetLL dsFile1.key File2;
> >           If %equal( File2 );
> >             Update FileRec2 dsFile2;
> >           Else;
> >             Write FileRec2 dsFile2;
> >           EndIf;
> >
> >         EndIf;
> >       EndDo;
> >
> >
> > - Kurt Anderson
> >
> > -----Original Message-----
> > From: rpg400-l-bounces@xxxxxxxxxxxx [[2]mailto:rpg400-l-bounces@xxxxxxxxxxxx]
> > On Behalf Of Gundermann, Glenn / Kuehne + Nagel / Tor ZI-A
> > Sent: Wednesday, November 11, 2009 6:59 AM
> > To: rpg400-l@xxxxxxxxxxxx
> > Subject: Reading directly into a DS
> >
> > Hi folks,
> >
> > I'm going in circles here and was hoping someone wouldn't mind helping me.
> > I'm trying to read data directly into a DS and then write the data to
> > another file, either with an update or a write, using the data structure.
> > I know there are different styles, like READ file-name ds-name, and I'm
> > not sure which is the preferred style.
> >
> > First of all, we're on V5R4.
> > This program reads the records from an intermediate file and either
> > updates or adds them to the master file.
> > The intermediate file was created using CRTDUPOBJ of the master file,
> > which is why the record format is renamed.
> > The files each have 7 fields, of course with the same name.
> >
> > 1. I tried having a meaningful prefix on the F-spec but I received a
> > compile error RNF2356, I think because there is a limit of 13 to the field
> > name length.
> > What can I do to improve this?
> >
> > 2. I'm getting compile time errors:
> > *RNF7030 30      7 The name or indicator is not defined.
> > (I.field1, I.field2, etc. for the 7 fields in the file)
> > *RNF7701 20      2 The data structure is not allowed for the operation.
> >      (Update ACCDOCR I and Write ACCDOCR I)
> >
> > Any tips would be most appreciated.
> >
> > Yours truly,
> >
> > Glenn Gundermann
> > Work:  (905) 501-6596
> > Cell: (416) 317-3144
> > glenn.gundermann@xxxxxxxxxxxxxxxx<mailto:
> > glenn.gundermann@xxxxxxxxxxxxxxxx>

References

   Visible links
   1. http://lists.midrange.com/mailman/listinfo/rpg400-l
   2. mailto:rpg400-l-bounces@xxxxxxxxxxxx