Pushing Fieldmark

[Michael Lee]

I think I've run into this problem a couple of times. I will leave answering your
questions up to more qualified personnel but will attempt to provide a solution.

What you need is a flag to indicate to the designer procedure which action you
are taking. Now you say that you don't have a 'procedure designer 01' because
this is not a detail file. Because you have a cluster and the first field in it
has an ID # you do, in fact, have an 'procedure designer 01'-it's just not coded
by you (I'm assuming that the first ID # is in fact '01'. What you have to do is
code a procedure designer '01' which looks at the value in a flag to determine
what it's going to do. I've cut and pasted your code and modified as necessary
(you might have to play with it a bit):

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

TEMPORARY T-DES-FLAG CHAR*1

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


PROCEDURE DESIGNER DES1
BEGIN
  LET T-DES-FLAG = 'Y'
  PUSH FIELDMARK
END

PROCEDURE DESIGNER 01
BEGIN
  IF T-DES-FLAG = 'Y'
  THEN BEGIN
       LET T-FIELD1 = FIELD1 OF FILEA
       RUN SCREENXX PASSING T-FIELD1
       LET T-DES-FLAG = 'N'
  END
  ELSE BEGIN
        ACCEPT FIELD1
        ACCEPT FIELD2
  END
END


I hope this helps.


Michael Lee
MCL Systems Inc.

= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
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.