Re: multiple record format logical files

Try setting lower limits on the file name instead of the record name.......

 TelKey        SETLL    DontCllTN
                     READ      DontCllTN

Richard Shealy
DCS Software & Services






----- Original Message -----
From: "Candy Slackman" <cslackman@ottaway.com>
To: "midrange" <RPG400-L@midrange.com>
Sent: Monday, April 16, 2001 8:48 AM
Subject: FW: multiple record format logical files


> Hi! I have a situation where we have 17 sites, each site has their own
> "don't call" file, and there is one global "don't call" file as well.  For
> each site I need to display a subfile of all the records in the global
file,
> as well as all the records in that site's file.  The subfile has to be
> sorted by name, or zip code, or area code, or area code & exchange, or
phone
> number.  For the phone number I've been trying to use a logical file with
2
> record formats called DONTCLLTN like this:
>
> DONTCLLTN
>  R SDONTCLL      PFILE(*LIBL/DONTCALL)
>    DCTEL#
>    DCNAME
>  K DCTEL#
>  R ODONTALL      PFILE(CIRCONIF/DONTCALL)
>    DCTEL#
>    DCNAME
>  K DCTEL#
>
>  The code is like this:
>  TelKey        SETLL     ODntCllT
>  TelKey        SETLL     SDntCllT
>                READ      DontCllTN
>
>  The problem is, depending on what I put in the search field, it either:
>  a) only reads the SDONTCLL format (it hits the eof on the DOU)
>  OR
>  b) it reads the ODONTCLL, then the SDONTCLL format and the phone number
> start out again at the
>     beginning of the search value.
>  OR
>  c) some strange combination of both.
>
> I also tried a logical file with just one format over both physical files,
> but got basically the same results.
>
> In any case, when I try to handle the roll downs the READP doesn't seem to
> work at all.  Am I                           doing something wrong?
Because
> these files (especially the global one) are enormous, a work
> file would not be efficient.  Thanks!
>
> Candy Slackman
> Systems Analyst
> Ottaway Newspapers, Inc.
> PO Box 268
> 16 Maybrook Road
> Campbell Hall, New York 10916-2713
> Phone: (845) 294-4968 (direct)
> Fax:   (845) 427-5760
> email: cslackman@ottaway.com
> ***Our area code changed from 914 to 845 on 6/5/2000***
>
> +---
> | 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
+---