I want learn foxpro 2.5 for dos programming.
I have done some programs but it is not working correctly.
I have given under the details:
program name: 861add
SET STATUS OFF
SET TALK OFF
@ 5,5 TO 70,60 CLEAR
@ 5,5 TO 70,60 DOUBLE
@ 7,10 SAY 'XXXXXXXXXXXXXXXXX LIMITED'
@ 9,15 SAY 'P.F. ENTRY PROGRAM - ADD RECORDS'
USE 861
@ 12,25 SAY 'P.F. NUMBER:' GET pfno PICTURE "9999"
@ 14,15 SAY 'EMPLOYEE NAME' GET empname PICTURE "@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@"
@ 16,25 SAY 'FATHERS' name/Husband's NAME:' get kinname pict "@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@"
@ 18,25 SAY 'P.F.PERCENTAGE:' GET pfpercent PICT "99999.99"
@ 20,25 SAY 'E.P.F AMOUNT:' GET epf PICT "99999.99"
@ 22,25 SAY 'EMPLOYERS SHARE' GET emppf PICT "99999.99"
@ 24,25 SAY 'EFFECT MONTH:' GET effect_mon PICT "99999.99"
@ 26,25 SAY 'REMARKS' : GET remarks PICT "@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@"
@ 28,25 SAY 'JANUARY': GET jan PICT "99999999.99"
........
........
@56,25 SAY 'F.P.F AMOUNT': GET pf2 PICT "99999.99"
@58,25 SAY 'JANUARY': GET bk2 PICT "99"
@60,25 SAY 'PENSION': GET pf3 PICT "99999.99"
@62,25 SAY 'JANUARY': GET bk3 PICT "99"
@64,25 SAY 'YEAR FROM': GET year1 PICT "9999"
@66,25 SAY 'YEAR TO': GET year2 PICT "9999"
READ
RESTORE SCREEN
RETURN
Out put of the screen not coming and telling unrecognized phrase/keyword in command.
I can not append the screen to add records. what mistakes i have done in the program Can you help in this matter.
admin
Jan 25, 2012 - 22:02
For example remove the single quote after FATHER'S, HUSBAND'S
Instead of using
'@ 16,25 SAY 'FATHERS' name/Husband's NAME:'
Use
@ 16,25 SAY 'FATHER Name/Husband NAME:'
@ 12,25 SAY 'P.F. NUMBER:' GET pfno PICTURE "9999"
@ 14,15 SAY 'EMPLOYEE NAME' GET empname PICTURE "@@@@@@@@@@@@@@@@@@@@@@@@@@@@@"
@ 16,25 SAY 'FATHER Name/Husband NAME:' get kinname pict "@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@"
@ 18,25 SAY 'P.F.PERCENTAGE:' GET pfpercent PICT "99999.99"
@ 20,25 SAY 'E.P.F AMOUNT:' GET epf PICT "99999.99"
@ 22,25 SAY 'EMPLOYERS SHARE' GET emppf PICT "99999.99"
@ 24,25 SAY 'EFFECT MONTH:' GET effect_mon PICT "99999.99"
@ 26,25 SAY 'REMARKS:' GET remarks PICT "@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@"
@ 28,25 SAY 'JANUARY:' GET jan PICT "99999999.99"
..........
..........
@52,25 SAY 'E.P.F.AMOUNT:' GET pf1 PICT "99999.99"
@54,25 SAY 'JANUARY:' GET bk1 PICT "99"
@56,25 SAY 'F.P.F AMOUNT:' GET pf2 PICT "99999.99"
@58,25 SAY 'JANUARY:' GET bk2 PICT "99"
@60,25 SAY 'PENSION:' GET pf3 PICT "99999.99"
@62,25 SAY 'JANUARY:' GET bk3 PICT "99"
@64,25 SAY 'YEAR FROM:' GET year1 PICT "9999"
@66,25 SAY 'YEAR TO:' GET year2 PICT "9999"