SELECT IF statement and serial read

arthur kogan akogan@westpac.com.au
Tue, 22 Sep 1998 09:19:24 +1000 

--------------90932E946FE4E695D97D2FA8
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit

Hi Raymond,

the program may be resetting the WHAT-AG and WHAT-STAFF variables to space
between PATH and FIND procedures. Try the following:

TEMPORARY WHAT-AG CHAR*2            reset at startup
TEMPORARY WHAT-STAFF CHAR*4      reset at startup

so that the values are not reset.

Also why not have the following:

FILE APSMAST OCCURS 10
  ACCESS SEQUENTIAL             request WHAT-AG, WHAT-STAFF

and get QUICK to generate the proper PATH and FIND procedures for you
automatically.

Regards,

Arthur Kogan
Westpac Financial Services
Sydney, Australia

Raymond Schneider wrote:

> Hello all,
>
> I am developing a QUICK screen to serially read an IMAGE Master
> dataset and display the entries on the screen. The key on the dataset
> is 10 characters, for sake of this discussion let's call it AGPROGSTAF
> (it is called APSNO in the code).  I want to ask the user for the AG
> field and the PROG field, then serially read the dataset selecting
> only the requested AG values and requested STAF values (the PROG
> values are variable).
>
> It appears that no records are being selected when the SELECT IF
> statement is included, but when it is commented out, then all records
> are displayed (not restricted by any criteria).
>
> The complete code follows:
> SCREEN APSMAST.HQOBJ  ACTIVITIES FIND
>
> TEMPORARY WHAT-AG CHAR*2
> TEMPORARY WHAT-STAFF CHAR*4
>
> FILE APSMAST OCCURS 10
>   ACCESS SEQUENTIAL
>     SELECT IF (AGENCY OF APSMAST EQ WHAT-AG  AND  &
>               STAFF OF APSMAST EQ WHAT-STAFF)
> FILE STAFPERS SECONDARY OCCURS WITH APSMAST
>   ACCESS VIA APSNO USING (AGENCY OF APSMAST + "0000" +  &
>                         STAFF OF APSMAST)
>
> TITLE "STAFF PERSON IN PROGRAM CENTERS" AT 4,20
>
> SKIP 1
> ALIGN  (,5,12)  (,15,21)
> FIELD WHAT-AG LABEL"AGENCY"
> FIELD WHAT-STAFF LABEL"STAFF"
>
> SKIP 2
> TITLE " AG   PROG   STAFF   BEGIN   END" AT ,1
> TITLE "STAFF NAME" AT ,40
> SKIP 1
>
> ALIGN (,,2)  (,,8)  (,,14)  (,,20)  (,,30)  (,,40)  (,,60)
> CLUSTER  OCCURS WITH APSMAST
> FIELD AGENCY OF APSMAST REQUIRED NOCHANGE
> FIELD PROGRAM OF APSMAST REQUIRED NOCHANGE
> FIELD STAFF OF APSMAST REQUIRED NOCHANGE
> FIELD DTBEG OF APSMAST
> FIELD DTEND OF APSMAST
> FIELD NMLAST OF STAFPERS
> FIELD NMFRST OF STAFPERS
> CLUSTER
>
> PROCEDURE PATH
>    BEGIN
>      PROMPT WHAT-AG
>      PROMPT WHAT-STAFF
>     INFORMATION="   Please wait -- this will take 20 seconds"   &
>                   + " AG: " + WHAT-AG + " STAFF: " + WHAT-STAFF  NOW
>      LET PATH = 1
>      END
> PROCEDURE FIND
>   BEGIN
>     FOR APSMAST
>       BEGIN
>        GET APSMAST SEQUENTIAL
>        GET STAFPERS OPTIONAL
>       END
>   END
>
> BUILD DETAIL LIST
>
> The proper values for WHAT-AG and WHAT-STAFF are displayed in the
> INFORMATION statement.
>
> What am I doing wrong?
> ==
> Raymond B. Schneider            (513)621-3045
> Hamilton County Mental Health Board     (513)632-7159 fax
> 801-A W. 8th Street                     H-P 3000  MPE/iX 5.0
> Cincinnati, OH  45203-1601              Powerhouse 7.09E
> rays@hamilton.mh.state.oh.us
>
> _________________________________________________________
> DO YOU YAHOO!?
> Get your free @yahoo.com address at http://mail.yahoo.com
>
> = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
> Subscribe: "subscribe powerh-l" in message body to majordomo@lists.swau.edu
> Unsubscribe: "unsubscribe powerh-l" in message to majordomo@lists.swau.edu
> powerh-l@lists.swau.edu is gatewayed one-way to bit.listserv.powerh-l
> This list is closed, thus to post to the list, you must be a subscriber.



--------------90932E946FE4E695D97D2FA8
Content-Type: text/html; charset=us-ascii
Content-Transfer-Encoding: 7bit

Hi Raymond,


the program may be resetting the WHAT-AG and WHAT-STAFF variables to
space between PATH and FIND procedures. Try the following:


TEMPORARY WHAT-AG CHAR*2           
reset at startup

TEMPORARY WHAT-STAFF CHAR*4      reset
at startup


so that the values are not reset.


Also why not have the following:


FILE APSMAST OCCURS 10

  ACCESS SEQUENTIAL            
request WHAT-AG, WHAT-STAFF


and get QUICK to generate the proper PATH and FIND procedures for you
automatically.


Regards,


Arthur Kogan

Westpac Financial Services

Sydney, Australia


Raymond Schneider wrote:

Hello all,


I am developing a QUICK screen to serially read an IMAGE Master

dataset and display the entries on the screen. The key on the dataset

is 10 characters, for sake of this discussion let's call it AGPROGSTAF

(it is called APSNO in the code).  I want to ask the user for
the AG

field and the PROG field, then serially read the dataset selecting

only the requested AG values and requested STAF values (the PROG

values are variable).


It appears that no records are being selected when the SELECT IF

statement is included, but when it is commented out, then all records

are displayed (not restricted by any criteria).


The complete code follows:

SCREEN APSMAST.HQOBJ  ACTIVITIES FIND


TEMPORARY WHAT-AG CHAR*2

TEMPORARY WHAT-STAFF CHAR*4


FILE APSMAST OCCURS 10

  ACCESS SEQUENTIAL

    SELECT IF (AGENCY OF APSMAST EQ WHAT-AG  AND 
&

             
STAFF OF APSMAST EQ WHAT-STAFF)

FILE STAFPERS SECONDARY OCCURS WITH APSMAST

  ACCESS VIA APSNO USING (AGENCY OF APSMAST + "0000" +  &

                       
STAFF OF APSMAST)


TITLE "STAFF PERSON IN PROGRAM CENTERS" AT 4,20


SKIP 1

ALIGN  (,5,12)  (,15,21)

FIELD WHAT-AG LABEL"AGENCY"

FIELD WHAT-STAFF LABEL"STAFF"


SKIP 2

TITLE " AG   PROG   STAFF   BEGIN  
END" AT ,1

TITLE "STAFF NAME" AT ,40

SKIP 1


ALIGN (,,2)  (,,8)  (,,14)  (,,20)  (,,30) 
(,,40)  (,,60)

CLUSTER  OCCURS WITH APSMAST

FIELD AGENCY OF APSMAST REQUIRED NOCHANGE

FIELD PROGRAM OF APSMAST REQUIRED NOCHANGE

FIELD STAFF OF APSMAST REQUIRED NOCHANGE

FIELD DTBEG OF APSMAST

FIELD DTEND OF APSMAST

FIELD NMLAST OF STAFPERS

FIELD NMFRST OF STAFPERS

CLUSTER


PROCEDURE PATH

   BEGIN

     PROMPT WHAT-AG

     PROMPT WHAT-STAFF

    INFORMATION="   Please wait -- this will
take 20 seconds"   &

                 
+ " AG: " + WHAT-AG + " STAFF: " + WHAT-STAFF  NOW

     LET PATH = 1

     END

PROCEDURE FIND

  BEGIN

    FOR APSMAST

      BEGIN

       GET APSMAST SEQUENTIAL

       GET STAFPERS OPTIONAL

      END

  END


BUILD DETAIL LIST


The proper values for WHAT-AG and WHAT-STAFF are displayed in the

INFORMATION statement.


What am I doing wrong?

==

Raymond B. Schneider           
(513)621-3045

Hamilton County Mental Health Board     (513)632-7159
fax

801-A W. 8th Street                    
H-P 3000  MPE/iX 5.0

Cincinnati, OH  45203-1601             
Powerhouse 7.09E

rays@hamilton.mh.state.oh.us


_________________________________________________________

DO YOU YAHOO!?

Get your free @yahoo.com address at http://mail.yahoo.com


= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
= = = =

Subscribe: "subscribe powerh-l" in message body to majordomo@lists.swau.edu

Unsubscribe: "unsubscribe powerh-l" in message to majordomo@lists.swau.edu

powerh-l@lists.swau.edu is gatewayed one-way to bit.listserv.powerh-l

This list is closed, thus to post to the list, you must be a subscriber.

 

--------------90932E946FE4E695D97D2FA8--

= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
Subscribe: "subscribe powerh-l" in message body to majordomo@lists.swau.edu
Unsubscribe: "unsubscribe powerh-l" in message to majordomo@lists.swau.edu
powerh-l@lists.swau.edu is gatewayed one-way to bit.listserv.powerh-l
This list is closed, thus to post to the list, you must be a subscriber.