CLUSTER DELETE
Mike Palandri
palandri@4j.lane.edu
Fri, 25 Feb 2000 06:23:29 -0800
Hi Alan,
The way that PH expects you to delete cluster records without writing a lot of procedural code is to use the DELETE MARK command in conjunction with FIELDMARK RETAIN. Use FIELDMARK RETAIN on the screen statement:
SCREEN ABC &
ACTION AT 23,1 &
MODE AT 23,20 &
ACTIONBAR STARTUP ON LINE 23 &
FIELDMARK RETAIN &
MESSAGE ON 24 &
HELP POPUP FROM 5,3 TO 22,77 &
MESSAGE POPUP WARNING, ERROR, SEVERE FROM 3,10 TO 10,70
This tells PH to leave a fieldmarked detail record marked when you return to the actionbar.
Next, define actionbar menu items to issue FIELDMARK and DELETE MARK commands:
[...]
ACTIONMENU LABEL "Change" ACTION FIELDMARK MENUKEY "C"
ACTIONMENU LABEL "Delete" ACTION DELETE MARK MENUKEY "D"
[...]
(You may want to use a menu label other than Change if fieldmark will be used primarily to delete records.)
To delete a record, first find some records, then run the FIELDMARK command by choosing CHANGE from the actionbar.
Select the record to be deleted by fieldmarking, then press F7 (the default key ro return to the actionbar) The field that was marked should still be marked when you return to the actionbar.
Select Delete from the actionbar to run the DELETE MARK command, and the record will be deleted. This is equivalent to entering "D-n" in the action field. You'll still need to update to delete the record.
Quirks:
As far as I know, you can only delete one record at a time with this method, there is no way to fieldmark a range of records, so there is way to do the equivalent of "D-n/m"
If the user fails to fieldmark a record before running the DELETE MARK command, Quick displays a dialog asking then to enter the starting and endind ID numbers of the records to be deleted. This can be confusing to them, particularly if you do not use ID numbers on the screen. Hitting a couple Enters makes it go away.
Other:
You might want to consider restricting fieldmarking to the first field on each occurrence, this can be done by using an ALIGN statement that omits the ID number position for all but the first field:
ALIGN (1,1,1) (,,16) (,,23) (,,40)
This lets the user select the record to be changed or deleted by fieldmarking only in the first "column" of fields, and the marked field does not cycle thru all changable fields on the screen. This seems a little cleaner to some users. They can still change other fields on each occurrence by pressing Enter to cycle thru all fields in the occurrence.
At 08:28 AM 02/25/2000 +0000, ALAN LAPWORTH wrote:
>
>Thanks for the help, I'd managed to get that far before going home
>yesterday. Just having trouble now with getting back to the menu bar if the
>field is empty. I cannot seem to force "//" into the field.
>
>We are currently trying to change one of our systems to use menus only and
>eliminate all the MODE ACTION prompts and as many of the built in key
>strokes as possible hence the // problem.
>
>Sorry about the VMS crack it's just all I get here is "You can do it with
>the UNIX version!!!"
>
>
>
>Alan Lapworth
>
>
>>From: Mark Stewart <stewm@canada.com>
>>To: lappup@hotmail.com
>>CC: powerh-l@lists.swau.edu
>>Subject: Re: CLUSTER DELETE
>>Date: 24 Feb 2000 09:25:31 -0800
>>
>>I think your trying not to delete the entire contents of the cluster. To
>>do this you can use the DESIGNER 01 procedure like you said. Then make
>>another designer procedure invoke from the the ACTION field or ACTIONMENU
>>and call it DTL or somthing.
>>
>>In this new designer procedure put something like:
>>
>>PROCEDURE DESIGNER DLT
>> BEGIN
>>
>>INFO "Use the up/down arrow keys to select a record and press [RETURN] t*
>> LET T_DELETE_FLAG = "X"
>> PUSH FIELDMARK
>> END
>>
>>In your designer 01 you could put if T_DELETE_FLAG = "X" of the record your
>>trying to get rid of THEN DELETE <filename/tablename> PUT
>><filename/tablename>.
>>
>>Put a RESET AT STARTUP on your new temporary (T_DELETE_FLAG) value too that
>>helps sometimes. Do forger to put the field statement for your new field
>>in there too to show the X to mark your record for deletion.
>>
>>That's one way you could do it.
>>
>>VMS is a pretty good operating system...I havn't heard many people badmouth
>>it.
>>
>>Mark Stewart
>>Consultants Club Corp., Canada
>>
>>Then in your update procedure
>>
>>On Thu, 24 February 2000, "ALAN LAPWORTH" wrote:
>>
>> >
>> > HELP!!!
>> >
>> > How do I delete a specific line within a cluster while I'm using field
>>mark?
>> > I'm already using the designer 1 procedure for the append.
>> >
>> > And to make matters worse we are using a VMS platform.
>> >
>> >
>> > Here's hoping
>> > Alan Lapworth
>> > ______________________________________________________
>> > Get Your Private, Free Email at http://www.hotmail.com
>> >
>> > = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
>>= =
>> > 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.
>>
>>
>>__________________________________________________________
>>Get your FREE personalized e-mail at http://www.canada.com
>
>______________________________________________________
>Get Your Private, Free Email at http://www.hotmail.com
>
>= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
>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.
>
Mike