Posted by Mike Saunders on January 25, 2008 at 06:04:45:
In Reply to: Re: LPH and CometAnywhere posted by Jim Guerber on January 24, 2008 at 22:50:55:
I am continuing to look into it more today.
Yes LPH is an HTML Printer
The first thing the program does is to open LPH it prints a message to it.
The error occurs before any attempt to open winsock gateway.
As I mentioned the program runs fine on two sessions as long as I do not try to start it at the 'exact' same time.
Note 1: I have also been able to replicate the error process on Two full Comet sessions running on the same PC.
Having both ready to run the program, having the mouse, ready to click on the second session.
Hit enter to start the first program, click the mouse to focus the second session,
hit enter to start the program on the second session, which errors out.
Note 2: The TMP directories on my CA HOST PC and full Comet client PC are full of HTML###.HTML documents.
Is comet supposed to be clearing these out?
I had a message box after the LUN OPEN for LPH and it makes it there okay.
I had a message box after the first print to the LUN and it never makes it there.
The USER Address seems to indicate the error happens at the print
402 PCCRGV2 IBS 0703 ! cannot log if log not open.
403 PCCRGV2 IBS 0703 ! print(log.lun)'Log Open Failed: ';log$;''
404 PCCRGV2 IBS 0703 case true
405 PCCRGV2 IBS 0711 log.open.flag = true
406 PCCRGV2 IBS 0719 print(log.lun)'Log Open successful: ';log$;''
407 PCCRGV2 IBS 0729 endselect
COMET/DOS SYSTEM ADDRESS INFORMATION
USER : 06DA 06DD 073B 073F 0743 06E4 06E8 06EC 0706 070A 070E 0711 0715 0719
set log.lun = 10
set log$ = "LPH"
!*** Main Program
clear
Gosub LOG.Open
If log.open.flag = false then goto quit
LOG.Open:
!*** Opens the LPH
LOG.open.flag = false
LOG.retry.count = 0
Do while log.open.flag = false and log.retry.count LT 10
CLOSE(log.lun)
log.open.err = true
close(log.lun) & open(log.lun)log$, excpsub = log.open.error
Select Case log.open.err
case false
log.open.flag = false
log.retry.count = log.retry.count + 1
! cannot log if log not open.
case true
log.open.flag = true
print(log.lun)'Log Open successful: ';log$;''
endselect
Loop
If log.retry.count GE 10 then
! cannot log is log not open
Msgbox ("Log Open Failed - Retry Limit Reached")
Endif
Return
LOG.Open.Error:
! LPH in use.... need to retry.
LOG.open.err = true
! pause(18) ! wait one second
Return