Re: QENDITOR


[ Follow Ups ] [ Post Followup ] [ Signature.net Forum ]

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.


Follow Ups:



Post a Followup

Name:
E-Mail:

Subject:

What is the name of the main Signature System's Product?  

Comments:

Optional Link URL:
Link Title:
Optional Image URL:

You may attach up to 5 files to your followup (see below):





Each file can be a maximum of 1MB in length Uploaded files will be purged from the server on a regular basis.


[ Follow Ups ] [ Post Followup ] [ Signature.net Forum ]