QUICK SELECTBOX question....

[Chris Sharman]

>Content-Type: multipart/alternative;	boundary="----_=_NextPart_001_01C07721.604A92E0"
>
>This message is in MIME format. Since your mail reader does not understand
>this format, some or all of this message may not be legible.

Please send plain text only in future.

>We, here at AIG, are currently running PH version 6.09D on a HP3000 979-100
>MPE/ix v6.0....Using QUICK, can I create a drop-down window using values
>from a KSAM file as items on a picklist from which the users can select....
>This process is in entry mode.....

You need a subscreen.
I've done this in the past as below.

Chris

(this in the main screen, to pop up on null entry)

procedure input region
 begin
 if (fieldtext = "")
  then
   begin
   let region-code = region
   run screen region-select passing region-code mode f
   let fieldtext = ascii(region-code)
   end
 end

(& here's the subscreen)

screen region-select receiving region-code noaction nomode fieldmark &
	activities find from 4,10 to 9,77

temp region-code int*2 size 2

file regions occurs 12
access sequential

draw from 1,1 to 6,68
cluster occurs with regions at 2,1 for 1,22 vertical
field region hidden data at ,3 predisplay size 2 label " " at ,5
field region-description noid nolabel data at ,6 size 17 predisplay
cluster

procedure designer 01
  begin
  let region-code = region
  return
  end
build
_______________________________________________________________________
Chris.Sharman@CCAgroup.co.uk		http://www.ccagroup.co.uk/
CCA Stationery Ltd, Eastway, Fulwood, Preston, Lancashire, PR2 9WS.


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

Any views expressed in this message are those of the sender and not
necessarily those of CCA Group.  The unauthorized use, disclosure,
copying or alteration of this message is forbidden.  The contents of
this message may be confidential and/or privileged, copyright CCA Group
and are intended solely for the use of the individual or entity to whom
they are addressed.  Whilst this message has been scanned, CCA Group
cannot guarantee that it is virus free or compatible with your systems
and accepts no responsibility for any loss or damage arising from its
use. The recipient is advised to run their own anti-virus software. If
you receive this message in error please contact
postmaster@ccagroup.co.uk immediately, destroy any copies and delete it
from your computer systems.
= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
Subscribe: "subscribe powerh-l" in message body to majordomo@lists.swau.edu
Unsubscribe: "unsubscribe powerh-l" in message to majordomo@lists.swau.edu
This list is closed, thus to post to the list, you must be a subscriber.