phweb question specific to vms - solved

[Deskin, Bob]

PH Web ignores the EXIT procedure because it would normally execute
after the results page has been sent back to the user. We do recognize
that there may be processing that is needed at the very end just before
sending the results page back and we do have a PHWEBEXIT procedure
enhancement request noted.

Bob

-----Original Message-----
From: powerh-l-admin@lists.sowder.com
[mailto:powerh-l-admin@lists.sowder.com] On Behalf Of
Daniel.Miller@nightfreight.co.uk
Sent: July 5, 2004 6:52 AM
To: powerh-l@sowder.com
Subject: RE: phweb question specific to vms - solved


hi there,

I asked the original question and it has indeed turned out to be a
problem with CLOSE which i think is now solved.  Ive been using the
CLOSE verb rather than the file statement option, sorry didnt see that
would probably have sorted it too.

What concerned me most was that setting process level logicals in phweb
might be a dangerous or unreliable technique but it does appear to work.

The problem has turned out to be my second screen which had CLOSE's in
the EXIT procedure, which is working since i moved them to the POSTFIND
procedure instead.  The HTMLFILECLOSE didnt seem to make any difference.



Heres a cut down sample anyway of the two programs anyway:


Page DM html application DM_APP activities ENTRY, FIND

Htmlbuttons "Add" label "Search", "Reset" label "Clear"


Temp T_FILE_NO  num*8
Temp T_PARM_NO  num*8


File PHWEB-PARMS-CONTROL designer

File PHWEB-PARMS designer
Access via PARM-NO using T_PARM_NO

Temp T-COMMAND char*240



;*** Temporary item fields here where user can enter part of an address
***

Field T_FILE_NO         htmlhidden
Field T_PARM_NO         htmlhidden

Nextpage DM2 after update &
        application DM_APP action "Search" passing T_FILE_NO, T_PARM_NO


Procedure internal GET-PARM-NO
Begin
        Lock PHWEB-PARMS-CONTROL
        Get PHWEB-PARMS-CONTROL via NF-LINK using "NF"

        Let T_FILE_NO = FILE-NO of PHWEB-PARMS-CONTROL

        If FILE-NO of PHWEB-PARMS-CONTROL < 99999999
        Then let FILE-NO of PHWEB-PARMS-CONTROL = &
                                        FILE-NO of PHWEB-PARMS-CONTROL +
1
        Else let FILE-NO of PHWEB-PARMS-CONTROL = 1

        Put PHWEB-PARMS-CONTROL reset
        Unlock PHWEB-PARMS-CONTROL
        Close PHWEB-PARMS-CONTROL

        If not setsystemval("PHWEB-PARMS", "PHWEB-PARMS" &
                                + ascii(T_FILE_NO,8) + ".TMP", LOGICAL)
        Then info " "
        Let T-COMMAND = "CREATE/FDL=NFD:PHWEB-PARMS.FDL PHWEB-PARMS" &
                                                + ascii(T_FILE_NO,8) +
".TMP"
        Run command T-COMMAND
        Let T_PARM_NO = 1
End

Procedure preupdate
Begin
        Do internal GET-PARM-NO

        ; extra processing to "put" to PHWEB-PARMS here:
        ; Passes temporary fields to an external procedure which returns
        ; a list of matching addresses, those addresses are then added
to
        ; PHWEB-PARMS

        Close PHWEB-PARMS
        If not deletesystemval("PHWEB-PARMS", LOGICAL, "LNM$PROCESS")
        Then info " "
End



can clear
Set Ver Err
Set html buttons off

Page DM2 html application DM_APP &
                htmltitle "Address Search Results" &
                htmlreceiving T_FILE_NO, T_PARM_NO &
                activities FIND

Temp T_FILE_NO  num*8
Temp T_PARM_NO  num*8

File PHWEB-PARMS primary occurs 50
Access via PARM-NO using T_PARM_NO


Field T_FILE_NO htmlhidden
Field T_PARM_NO htmlhidden

Cluster occurs with PHWEB-PARMS

; *** address data from PHWEB-PARMS is displayed here ***

Cluster

Procedure POSTPATH
Begin
        If not setsystemval("PHWEB-PARMS", "PHWEB-PARMS" &
                                + ascii(T_FILE_NO,8) + ".TMP", LOGICAL)
        Then info " "
End

;Procedure EXIT
Procedure POSTFIND
Begin
        Close PHWEB-PARMS
        If not deletesystemval("PHWEB-PARMS", LOGICAL, "LNM$PROCESS")
        Then info " "
End


= = = = = = = = = = = = = = = = = = = = = = = = = = = =
Mailing list: powerh-l@lists.sowder.com
Subscribe: "subscribe" in message body to
powerh-l-request@lists.sowder.com
Unsubscribe: "unsubscribe <password>" in message body to
powerh-l-request@lists.sowder.com
http://lists.sowder.com/mailman/listinfo/powerh-l
This list is closed, thus to post to the list you must be a subscriber. 
  
       This message may contain privileged and/or confidential information.  If you have received this e-mail in error or are not the intended recipient, you may not use, copy, disseminate or distribute it; do not open any attachments, delete it immediately from your system and notify the sender promptly by e-mail that you have done so.  Thank you.