* DPROGINS.CMD - Install dPROGRAMMER system parameters
*                by updating DPROGINS.DBF and creating DPROG.MEM
*                and all the index files
CLEAR
SET TALK OFF
SELECT PRIMARY
USE DPROGINS 
SET FORMAT TO DPROGINS
READ
SET FORMAT TO SCREEN
STORE SYSTEM TO SYS
STORE CUSTOM TO CUS
STORE ACCOUNT TO ACC
STORE BELL TO BELLON
STORE CONFIRM TO CONFIRMON
STORE PASSWORD TO USEPASS
STORE VERSION24 TO V24
STORE COMPANY TO CNAME
STORE LAST:ASSET TO LASTASSET
STORE RET:EARN TO RETEARN
STORE YTD:EARN TO YTDEARN
STORE FIRST:INC TO FIRSTINC
STORE LAST:INC TO LASTINC
STORE "1" TO ONE
STORE "2" TO TWO
STORE "3" TO THREE
STORE "                              " TO BLANKS
STORE "dPROGRAMMER" TO TMARK
SAVE TO DPROG
SET DEFA TO &SYS
SELECT PRIMARY
USE DSPROG
INDEX ON MENU+MENU:SEQ TO DSPROG1
INDEX ON MENU:CODE TO DSPROG2
USE DSFILE
INDEX ON CATEGORY+FILENAME TO DSFILE1
USE DSLIST
INDEX ON CATEGORY TO DSLIST1
USE DSREPT
INDEX ON CATEGORY TO DSREPT1
USE DSPASS
INDEX ON NAME TO DSPASS1
SET DEFA TO &ACC
USE DAACCT
INDEX ON ACCT:NUMB TO DAACCT1
USE DACUST
INDEX ON ID:NUMB TO DACUST1
INDEX ON NAME TO DACUST2
USE DAVEND
INDEX ON ID:NUMB TO DAVEND1
INDEX ON NAME TO DAVEND2
USE DATRAN
INDEX ON ACCT:NUMB+PDATE TO DATRAN1
INDEX ON PDATE TO DATRAN2
USE DAJOUR
INDEX ON ID:NUMB+PDATE TO DAJOUR1
INDEX ON REF:NO+PDATE TO DAJOUR2
SET TALK ON
ERASE
QUIT
RETURN