Posted by Grant Foraker on August 08, 2012 at 12:24:07:
In Reply to: QENDITOR posted by Grant Foraker on August 02, 2012 at 14:59:25:
More debugging on this problem. Found that TERM$ is getting cleared. How???
-----------------------------------------------------------------------
!==============================================================================!
! Application executable section
! Initialize program data and user settings here
IF MENU$ NE '@7D@' AND MENU$ NE '@7B@' GOTO ProgExit ! PASSWORD NOT ENTERED
CLEAR LOCAL
LET SSEL$ = SEL$
LET SMENU$ = MENU$
CLEAR COMMON
LET SEL$ = SSEL$
LET MENU$ = SMENU$
ERRORTO ProgramError
Print (CS)
PRINT (SetWindowCaption = "Paycheck Register",1)
InitialStartupLogic:
LET MESSAGE$ = SUB(DSTAT('X00'),33,16)
LET MESSAGE$ = UCASE(MESSAGE$)
LET MESSAGE$ = STRIP(MESSAGE$)
IF MESSAGE$ EQ 'PR' OR _
MESSAGE$ EQ 'HR2' OR _
MESSAGE$ EQ 'IS-1' OR _
MESSAGE$ EQ 'ROAD' OR _
MESSAGE$ EQ 'MARIAH4' OR _
MESSAGE$ EQ 'DEVELOP'
GOTO ISL05
ELSE
LET MBMSG$ = 'Paycheck Register printing must be run from a payroll'
LET MBMSG$ = MBMSG$ + ' workstation ("PR" or "HR2")'
MSGBOX(MBMSG$)
GOTO ProgExit
ENDIF
ISL05:
MESSAGE$ = 'A PS TERM=' + TERM$
MSGBOX MESSAGE$
OPEN (7) 'Z1', EXCP = NOFILE ! SYSTEM CONTROL FILE
INQUIRE (7,2611) KEY = '*'
INQUIRE (7,2511) KEY = '*D'
!
INQUIRE (7,2642) KEY = '*PR2'
IF P5FLAG$ EQ 'T' GOTO ISL50 ! EMT IN PROGRESS
IF P5FLAG$ NE 'C' GOTO ISL40 ! CALCULATION NOT COMPLETE
---------------------------------------------------------------------------------------
at "A", TERM$ is still OK. P5FLAG$ is ' ' so the program proceeds to ISL40
---------------------------------------------------------------------------------------
ISL40:
LET MBMSG$ = 'Paycheck Register printing cannot proceed until the '
LET MBMSG$ = MBMSG$ + 'Paycheck Calculation has been completed.'
MSGBOX(MBMSG$)
MESSAGE$ = 'B PS TERM=' + TERM$
MSGBOX MESSAGE$
GOTO ProgExit
----------------------------------------------------------------------------------------
At "B", TERM$ is blank
Happens in Comet16 but not in Comet32 running the 16bit OBJ. My Comet16 is running under VMware Player.
Each file can be a maximum of 1MB in length Uploaded files will be purged from the server on a regular basis.