RE: Constructing Sql to position phone number that breakup inareacode, prefix, suffix and extension.

On the screen, there is one more field call equipment number that user
can use to position the subfile.  Another word, user can position and
sort the subfile by equipment or phone number.

The easiest way to do above is to construct a sql select statement
depending on what user is entered and do fetch to load the subfile.  The
problem I'm encountering is to create a sql in the way that the sql
engine would not do re-index on the telephone master file.



-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of
Michael_Schutte@xxxxxxxxxxxx
Sent: Thursday, June 01, 2006 4:01 PM
To: RPG programming on the AS400 / iSeries
Subject: RE: Constructing Sql to position phone number that breakup
inareacode,prefix, suffix and extension.

so what's the deal with not being able to use the logical that is
already keyed broken out.  You said that you had one that way, correct?

PhoneFile  Key Fields...  Work with me here, I just jotting things done,
hopefully, it trigger something for you...

K AREACODE
K PREFIX
K SUFFIX
K EXTENSION

So when you receive the phone number from the input page (verify that a
legit 10-digit phone was entered first) ...

Break it out,

SetLL and ReadE...  Sorry If I'm off in lala land.

D NumberDS   DS
D ACODE                 3A
D PFIX                  3A
D SFIX                  4A



NumberDS = inNumber;


SetLL (ACODE:PFIX:SFIX:inEXTENSION) PHONEFILE; ReadE (ACODE:PFIX:SFIX)
PHONEFILE; Dow not %EoF(PHONEFILE) And (inExtension = 0 Or Extension =
inExtension);
  build subfile
  ReadE (ACODE:PFIX:SFIX) PHONEFILE;
EndDo;



Michael Schutte



 

             "Lim Hock-Chai"

             <Lim.Hock-Chai@us

             amobility.com>
To 
             Sent by:                  "RPG programming on the AS400 /

             rpg400-l-bounces@         iSeries" <rpg400-l@xxxxxxxxxxxx>

             midrange.com
cc 
 

 
Subject 
             06/01/2006 04:47          RE: Constructing Sql to position

             PM                        phone number that breakup

                                       inareacode,prefix, suffix and

                                       extension.

             Please respond to

              RPG programming

              on the AS400 /

                  iSeries

             <rpg400-l@midrang

                  e.com>

 

 





Also, the subfile program list from number starting from what user
entered on the screen.

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Lim Hock-Chai
Sent: Thursday, June 01, 2006 3:46 PM
To: RPG programming on the AS400 / iSeries
Subject: RE: Constructing Sql to position phone number that breakup
inareacode,prefix, suffix and extension.

That would cause a sql engine to reindex the file.  The response time
would not be acceptable.  It is a pretty big file, 22M+.

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of
Michael_Schutte@xxxxxxxxxxxx
Sent: Thursday, June 01, 2006 2:44 PM
To: RPG programming on the AS400 / iSeries
Subject: Re: Constructing Sql to position phone number that breakup
inareacode, prefix, suffix and extension.

Are you looking for something like this???

Select areacode || prefix || suffix || extension from telephonefile
where areacode || prefix || suffix || extension = :phonenumber

Michael Schutte

--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing
list To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe,
unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives at
http://archive.midrange.com/rpg400-l.


--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing
list To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe,
unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives at
http://archive.midrange.com/rpg400-l.


--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing
list To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe,
unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives at
http://archive.midrange.com/rpg400-l.



--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing
list To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe,
unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives at
http://archive.midrange.com/rpg400-l.