Pushing Fieldmark

[Terry Pickering]

I'm running into a similar problem I had earlier and have not been able to
get around this time.

I have a QUICK screen that has FILEA defined as a primary file with an
OCCURS option it. The cluster looks like this:

CLUSTER OCCURS WITH FILEA
ALIGN (2,,5) (,,12)
FIELD FIELD1
FIELD FIELD2

I also have a couple of ACTIONMENU commands:

ACTIONMENU LABEL "CHANGE" ACTION FIELDMARK
ACTIONMENU LABEL "BLDG"   ACTION DESIGNER DES1

When you choose the first "menu choice", it works fine. the cursor moves to
the first occurrence of the cluster and you can use the arrow keys to
highlight the record you want, then make changes to FIELD1 or FIELD2.

In my designer procedure DES1, I want to also select a record occurrence,
then run a subscreen passing one of the values:

PROCEDURE DESIGNER DES1
BEGIN
  LET T-FIELD1 = FIELD1 OF FILEA
  RUN SCREENXX PASSING T-FIELD1
END

My problem is I can't seem to "fieldmark" my choice. The only way I can get
it to work is if I add MARK to the actionmenu command like so, in which
case it will prompt for the begining and ending ID range. This is what I'm
trying to avoid - having the user enter the id range instead of fieldmarking. 

ACTIONMENU LABEL "BLDG"   ACTION DESIGNER DES1 MARK


I've tried several different things:

1) You can't say "DESIGNER DES1 FIELDMARK"
2) You can't PUSH FIELDMARK first in the designer procedure, because it
doesn't get execute until afterwards.
3) PRECOMMAND on the procedure statement has no effect.
4) Since the file is not a "detail file", it does not have a DESIGNER 01
procedure, nor does it do any good to put one in, that I could modify.

A couple of questions:

First, why does "mark" work, but "fieldmark" not work as an option on the
actionmenu command? Also, is there anyway to push or execute the fieldmark
prior to my other commands in my designer procedure.

Any suggestions are appreciated.

Thanks!


Terry Pickering                         CompuGroup, Inc.
pickering@myself.com                    Portland, Oregon USA
www.teleport.com/~compugrp              Cessna 172 & Lancair ES
= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
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.