Push Command

[Walker, Chris]

I've accomplished something similar as follows:

CLUSTER OCCURS 10
  FIELD ACCOUNT-NUMBER ENTRY IF OCCURRENCE EQ 1 OR PROMPTOK
  FIELD ACCOUNT-AMT ENTRY IF OCCURRENCE EQ 1 OR PROMPTOK
CLUSTER

This stops prompting as soon as the user just presses <Return> in a field,
but there's no reason why you couldn't substitute another condition, such as
T-AMT-LEFT EQ 0.

Chris Walker
Tate & Lyle
London


> -----Original Message-----
> From:	Terry Pickering [SMTP:pickering@myself.com]
> Sent:	Thursday, June 10, 1999 12:32 AM
> To:	powerh-l@lists.swau.edu
> Subject:	Push Command
> 
> I'm trying to develop a screen where there is a cluster that occurs 10
> times. The cluster accepts entry of an ACCOUNT-NUMBER and ACCOUNT-AMT. The
> tricky part is I would like the user to not have to enter a "//" in the
> ACCOUNT-NUMBER field when they are finished entry. Instead if they just
> press the <cr> and if a temporary field (T-AMT-LEFT) = 0, then it would
> return them to the ACTIONBAR where they can review what they did prior to
> issuing an UPDATE command. If they just press the <cr> though and
> T-AMT-LEFT <> 0, then it needs to issue an error message. There is also
> code later in the INPUT procedure whereby FIELDTEXT is being modified.  
> 
> I've tried in the INPUT procedure for the field to see if 0 =
> SIZE(FIELDTEXT) and T-AMT-LEFT = 0. If the condition is true, then either
> issue a PUSH ACTIONBAR, or LET FIELDTEXT = "//". Using debug, it's getting
> to the statement when it's supposed to, but doesn't appear to make an
> difference no matter what I try. It keeps on going through the INPUT
> procedure.  
> 
> My question is related to the PUSH command (of which I have rudimentary
> knowledge). I know all this does is put a command on the PSIB, but what
> actually has to happen to have it taken off the stack and the command
> executed? 
> 
> BTW - The reason I don't like the user's entering this is we get a LOT of
> data records with "/" or "\\" as the fieldvalue. Is there another way to
> accomplish this, or am I stuck with the user having to enter a "//"
> command?  
> 
> 
> 
> 
> 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.
= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
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.