setting high date and PFCMARK

[Richard D. Williams]

Try this;

If: dl ne ""
Then: end
If: q ne ""
Then: goto start
if:
Then: cls
If:  
Then: input fa(4,#,g) "From Client Number "
If:
Then: input fb(4,#,g) "From "<fa<"to number "
If:
Then: input ff(8,mdy/,g) "Enter 1st date"
If:
Then: input ll(8,mdy/,g) "From"<ff<"to what ending date"
If: fa eq "    " or fb eq "    " or ff eq "" or ll eq ""
Then: msgbox "No Report Created!";exit
If:
Then: input popup ("22","") q(1,yesno,g) "Is this correct? (Y/N)";cls
If: q ne "Y"
Then: msgbox "No Report Created!";exit
If:
Then: lookup -  k=ff    i=h -ng
start: If: 18 gt ll
Then: goto endit
If: 1 ge fa and 1 le fb
Then: select
If:
Then: end
endit: If:
Then: dl(8,mdy/,g)="12/31/79"
If:
Then: lookup - k=dl i=h -nl
If:
Then: end


scooter6 at gmail.com wrote:

> I have output processing that asks the user for beginning client 
> number, ending client number, beginning action date and ending action 
> date.
>  
> Recently it stopped working?
>  
> I have PFCMARK=80
>  
> the output looks like this:
>  
> If: fa=""
> Then: input fa(4,#,g) "From Client Number "
>  
> If: fb=""
> Then: input fb(4,#,g) "From "<fa<"to number "
>  
> If: ff=""
> Then: input ff "Enter 1st date"
>  
> If: ll=""
> Then: input ll "From"<ff<"to what ending date"
>  
> If: 18 lt ff
> Then: lookup -  k=ff    i=h -ng
>  
> If: 18 gt ll
> Then: dl(8,mdy/)="12/31/79"
>  
> If: 18 gt ll
> Then: lookup - k=dl i=h -nl
>  
> If: 18 lt ff
> Then: end
>  
> If: 18 gt ll
> Then: end
>  
> If: 1 ge fa and 1 le fb
> Then: select
>  
> This has worked for years but we recently upgraded to 5.6 and not it 
> just quickly ends, without selecting any records??
>  
> Any insight why that might be?
>  
> thanks
>  
> Scott
>  
>  
>  
>  
>  
> If: 18 lt ll
>  
>
>------------------------------------------------------------------------
>
>_______________________________________________
>Filepro-list mailing list
>Filepro-list at lists.celestial.com
>http://mailman.celestial.com/mailman/listinfo/filepro-list
>  
>
>------------------------------------------------------------------------
>
>
>No virus found in this incoming message.
>Checked by AVG - www.avg.com 
>Version: 8.0.238 / Virus Database: 270.11.35/2034 - Release Date: 04/01/09 06:06:00
>
>  
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://mailman.celestial.com/pipermail/filepro-list/attachments/20090409/dab090f3/attachment.html