by Hi,
I'd like to know if this dbase program can be duplicated in paradox
5.0? I suspect it can be done with a set(changeto) query.
CLOSE ALL
RELEASE ALL
USE ANSWER1
SELE 2
USE TEST
DO WHILE .T.
APPEND BLANK
REPLACE LOC_NUM WITH A->FIELD001,TERM_NUM WITH A->FIELD002,REL_NUM
WITH A->FIELD003,TEST_DATE WITH A->FIELD004,TIME WITH
A->FIELD005,ACTUALLS WITH A->FIELD006,PASS WITH A->FIELD007,PERROR
WITH A-> FIELD008,XTAP WITH A->FIELD009
APPEND BLANK
REPLACE LOC_NUM WITH A->FIELD001,TERM_NUM WITH A->FIELD002,REL_NUM
WITH A->FIELD003,TEST_DATE WITH A->FIELD004,TIME WITH
A->FIELD005,ACTUALLS WITH A->FIELD010,PASS WITH A->FIELD011,PERROR
WITH A-> FIELD012,XTAP WITH A->FIELD013
APPEND BLANK
REPLACE LOC_NUM WITH A->FIELD001,TERM_NUM WITH A->FIELD002,REL_NUM
WITH A->FIELD003,TEST_DATE WITH A->FIELD004,TIME WITH
A->FIELD005,ACTUALLS WITH A->FIELD014,PASS WITH A->FIELD015,PERROR
WITH A-> FIELD016,XTAP WITH A->FIELD017
APPEND BLANK
REPLACE LOC_NUM WITH A->FIELD001,TERM_NUM WITH A->FIELD002,REL_NUM
WITH A->FIELD003,TEST_DATE WITH A->FIELD004,TIME WITH
A->FIELD005,ACTUALLS WITH A->FIELD018,PASS WITH A->FIELD019,PERROR
WITH A-> FIELD020,XTAP WITH A->FIELD021
APPEND BLANK
REPLACE LOC_NUM WITH A->FIELD001,TERM_NUM WITH A->FIELD002,REL_NUM
WITH A->FIELD003,TEST_DATE WITH A->FIELD004,TIME WITH
A->FIELD005,ACTUALLS WITH A->FIELD022,PASS WITH A->FIELD023,PERROR
WITH A-> FIELD024,XTAP WITH A->FIELD025
APPEND BLANK
REPLACE LOC_NUM WITH A->FIELD001,TERM_NUM WITH A->FIELD002,REL_NUM
WITH A->FIELD003,TEST_DATE WITH A->FIELD004,TIME WITH
A->FIELD005,ACTUALLS WITH A->FIELD026,PASS WITH A->FIELD027,PERROR
WITH A-> FIELD028,XTAP WITH A->FIELD029
APPEND BLANK
REPLACE LOC_NUM WITH A->FIELD001,TERM_NUM WITH A->FIELD002,REL_NUM
WITH A->FIELD003,TEST_DATE WITH A->FIELD004,TIME WITH
A->FIELD005,ACTUALLS WITH A->FIELD030,PASS WITH A->FIELD031,PERROR
WITH A-> FIELD032,XTAP WITH A->FIELD033
APPEND BLANK
REPLACE LOC_NUM WITH A->FIELD001,TERM_NUM WITH A->FIELD002,REL_NUM
WITH A->FIELD003,TEST_DATE WITH A->FIELD004,TIME WITH
A->FIELD005,ACTUALLS WITH A->FIELD034,PASS WITH A->FIELD035,PERROR
WITH A-> FIELD036,XTAP WITH A->FIELD037
SELE 1
SKIP
IF EOF()
EXIT
ENDIF
SELE 2
ENDDO
This file accomplished something I couldn't figure out to do in
paradox. Copy every fourth field, after the first 5, to a new record
with the first 5 unchanged.
Thanks,
Guy