Pushkey "[SAVE]" question

[Nancy Palmquist]

Don Coleman wrote:
> Discovered a record lock issue this AM caused by my processing.  
> Windows 2000 & XP clients, Windows 2000 Advanced Server fP v5.0.13.  fP is
> installed on the server and accessed via *.bat file from the client via a
> mapped drive.  Contents of the *.bat file are:
> 
> ECHO OFF
> TITLE=filePro Rx WORKFLOW APPLICATION (LASER PRINTER)
> SET PFNET=ON
> SET FILES=60
> SET PFFILES=80
> SET PFTMP=C:\TEMP
> SET PFDSK=E
> SET PFDATA=E:
> SET PFPROG=E:\FP_SETUP_FILES\FP5.0.13
> SET PFDIR=\QS1\TODO
> SET PFCONFIG=E:\FP_SETUP_FILES\FP5.0.13\CONFIGURATION\LASER
> SET PATH=C:\PRINTWIZ
> SET PFSHOWWINERROR=ON
> %PFPROG%\FP\P.EXE SCRIPT
> 
> When the user uses an @KEY function (@KEYR) in an input process table while
> sitting on the record the record remains locked after the @KEY logic ends.
> In several tests so far sometimes the record is released when the user exits
> fP, sometimes not.  They are currently testing to see if the record lock is
> always released if the client is rebooted.
> 
> Each occurrence of pushkey "[SAVE]" previously was followed by an "end"
> statement.  As a result of this reproducible problem I modified the logic to
> be 
> Pushkey "[SAVE]";write;close;goto @ENTSEL (the @ENTSEL is to redraw some
> dummy variable display information.  
> 
> Is using pushkey "[SAVE]" within @KEY logic causing my record lock, and if
> so, what is a better option?  I would have expected the "write;close" to
> resolve the issue (with admittedly more system overhead) but it did not.
> Come to think of it, I probably don't need the write if I do need the close.
> I believe Ken B. has stated previously that the close includes a write
> automatically.
> 
> Any suggestions.  The @KEY processing is used to move an order "back" in the
> fulfillment process.
>  
> 
> Oct 10, 2007  11:42           File Name: QS1                       Page   1
>                              Processing: test_input
> 
>  111 -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
> @KEYR    If: CB eq "2"
>        Then:
> 53="";AC="";57="";AD="";61="";AE="";65="";AF="";50="N"{9;144="";145
>              ="";146=""
>  112 -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
>          If: CB eq "2"
>        Then:
> 49="1";54="";55="";56="";58="";59="";60="";62="";63="";64="";66="";
>              67="";68=""
>  113 -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
>          If: CB eq "2"
>        Then:
> 69="";85="";AG="";70="";71="";DF="";DP="";DV="";EU="";display;pushk
>              ey "[SAVE]";write;close;goto @ENTSEL
>  114 -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
>          If: CB eq "3"
>        Then:
> 57="";AD="";61="";AE="";60="";64="";58="";62="";59="";63="";65="";A
>              F="";49="2";50="N"{9
>  115 -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
>          If: CB eq "3"
>        Then: 66="";67="";68=""
>  116 -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
>          If: CB eq "3"
>        Then:
> 69="";85="";AG="";70="";71="";DF="";DP="";DV="";EU="";display;pushk
>              ey "[SAVE]";write;close;goto @ENTSEL
>  117 -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
>          If: CB eq "4"
>        Then:
> 49="2";61="";AE="";64="";63="";62="";65="";AF="";68="";66="";67="";
>              69="";50="N"{9
>  118 -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
>          If: CB eq "4"
>        Then:
> 69="";85="";AG="";70="";71="";DF="";DP="";DV="";EU="";display;pushk
>              ey "[SAVE]";write;close;goto @ENTSEL
>  119 -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
>          If: CB eq "5"
>        Then: 49="4";65="";AF="";68="";66="";67="";50="N"{9
>  120 -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
>          If: CB eq "5"
>        Then:
> 69="";85="";AG="";70="";71="";DF="";DP="";DV="";EU="";display;pushk
>              ey "[SAVE]";write;close;goto @ENTSEL
>  121 -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
>          If: 
>        Then: pushkey "[SAVE]";write;close;goto @ENTSEL
> 

How about ESCAPE command?  An @key routine does lock the record.  You 
need to END it to unlock and you are doing a GOTO and running something 
else.  I am not sure what is in the @entsel but it will run when the 
@key is finished anyway.

Try it with the debug on and you will see.

Nancy


> 
> Don Coleman
> Donald G. Coleman, Consultant
> 402 Andrew Circle
> Indiana, PA 15701
> dcoleman at dgcreact.com
> (724) 349-6302
> 
> 
> 
> _______________________________________________
> Filepro-list mailing list
> Filepro-list at lists.celestial.com
> http://mailman.celestial.com/mailman/listinfo/filepro-list
> 
> 


-- 
Nancy Palmquist 		MOS & filePro Training Available
Virtual Software Systems	Web Based Training and Consulting	
PHONE: (412) 835-9417		   Web site:  http://www.vss3.com