t you can use thMASK DBF MAST CMDMAST DBFMASTDBF DOC8****************************************************************** *************************,FNAMEC lDISKC lFILEClTYPEClDSKClNUMClSQUCl ++++0k.FRE CFOGLIB.002 ++++0k FRECFO002 *++++0k.FRE OGGLIB.002 ++++0k FREOGG002 *++++2k.FRE CFOGLIB.001 ++++2k FRECFO001 *++++6k.FRE OGGLIB.093 ++++6k FREOGG093 *+++12k.FRE OGGLIB.025 +++12k FREOGG025 *+++16k.FRE CFOGLIB.025 +++16k FRECFO025 *+++16k.FRE OGGLIB.095 +++16k FREOGG095 *+++18k.FRE OGGLIB.094 +++18k FREOGG094 *+++22k.FRE CFOGLIB.000 +++22k FRECFO000 *+++22k.FRE OGGLIB.000 +++22k FREOGG000 *+++24k.FRE OGGLIB.091 +++24k FREOGG091 *+++30k.FRE OGGLIB.--- +++30k FREOGG--- *+++30k.FRE OGGLIB.092 +++30k FREOGG092 */.COM CFOGLIB.001 / COMCFO001 *ASCII.BAS CFOGLIB.002 ASCII BASCFO002 *ASCII.BAS OGGLIB.002 ASCII BASOGG002 *BSORT.COM CFOGLIB.001 BSORT COMCFO001 *CAT.COM CFOGLIB.001 CAT COMCFO001 *CAT2.COM CFOGLIB.001 CAT2 COMCFO001 CAT2.COM CFOGLIB.001 EOGG094 0*+++16k FREOGG095 0************************************************** * DBII COMMAND FILE: * PROGRAM TO PUT MAST.CAT INTO MAST.DBF * AUTHOR: HERBART RUITENBERG DEN HAAG NETHERLANDS * FILES MASTDBF.DOC MAST.CMD MAST.DBF AND MASK.DBF * BELONG TOGETHER * INDEX MAST.NDX WILL BE PRODUCED ************************************************** ERASE ? "GET MAST.CAT INTO MAST.DBF" ? "--------------------------" ? "FILES NEEDED:" ? " MAST.CAT (DATA)" ? " MASK.DBF (STRUCTURE TO RECEIVE DATA)" ? " MAST.DBF (STRUCTURE FOR FINAL DATA)" ? "TAKE CARE:" ? "ALL RECORDS IN MASK.DBF AND MAST.DBF WILL BE DELETED." ? "COPY ANY VALUABLE MAST.DBF BEFORE " ? " RUNNING THIS PROGRAM." ? "READY? TO STOP" WAIT SET TALK OFF ERASE ? "OFF WE GO...." USE MAST DELETE ALL PACK USE MASK COPY TO TEMP USE TEMP ? "MAST EMPTIED, TEMP CREATED. STOP? (THEN )" WAIT ? "DATA FROM MAST.CAT INTO TEMP" APPEND FROM MAST.CAT DELIMITED DELETE RECORD 1 PACK ? "DATA IN TEMP, FIRST RECORD (DUMMY) OUT" ? "DATA ANALYSIS" REPL ALL FILE WITH $(FNAME,1,@([.],FNAME)-1) REPL ALL TYPE WITH $(FNAME,@([.],FNAME)+1,@([.],FNAME)+3) REPL ALL DSK WITH $(DISK,1,3) , NUM WITH $(DISK,@([.],DISK)+1,@([.],DISK)+3) REPL ALL SQU WITH "SQ" FOR $(TYPE,2,1)="Q" ? "DATA ANALYSIS READY. PUT THEM IN MAST.DBF" USE MAST APPEND FROM TEMP DELETE FILE TEMP ? "DATA IN MAST. INDEX ON DISK AND DISKNUMBER" INDEX ON DSK + NUM TO MAST ? "INDEXING READY." SET TALK ON ERASE ? "READY. RESULT IN MAST.DBF" ? " " ? "MAKE COPY OF MAST.DBF UNDER A DIFFERENT NAME:" ? "NEXT RUN OF THIS PROGRAM ONLY CONSERVES " ? "STRUCTURE OF MAST.DBF" ? " " ? "MAST IS INDEXED: USE MAST INDEX MAST" RETURN FILEClTYPEClDSKClNUMClSQUCl CPBLIB 007CPB005 % CALCPB003 ++++0k FRECPB005 ++++0k FRECPB008 ++++2k FRECPB007 ++++6k FRECPB001 ++++8k FRECPB010 +++12k FRECPB003 +++14k FRECPB009 +++16k FRECPB011 +++24k FRECPB002 +++36k FRECPB004 +++60k FRECPB006 @ COMCPB004 @ COMCPB007 AVOREEKSCALCPB003 BAS COMCPB001 BRJ2M CALCPB011 BRJ2V CALCPB011 BRJAVOM CALCPB002 BRJAVOV CALCPB002 BRJM CALCPB003 BRJM2 CALCPB003 BRJV CALCPB003 BRJV2 CALCPB003 COMGEB TXTCPB010 COMKOST TXTCPB005 COMKOST TXTCPB007 COP COMCPB004 COP COMCPB011 CP/M CATCPB004 CP/M CATCPB007 CPBSVL TXTCPB010 DEFGES CALCPB009 DEFJAR CALCPB009 DEFLFT CALCPB009 DEFNIV CALCPB009 DEFREG CALCPB009 DEFSCH CALCPB009 EFFB TQTCPB010SQ GLOM CALCPB001 GLOM CALCPB003 GLOM81 CALCPB002 GLOV CALCPB003 GLOV81 CALCPB002 HARK CALCPB009 HARK1 QQQCPB008SQ HARK2 QQQCPB008SQ HARK3 QQQCPB008SQ HAVOM CALCPB003 HAVOM2 CALCPB003 HAVOV CALCPB003 HAVOV2 CALCPB003 IV18 QQQCPB008SQ IV19 QQQCPB008SQ KMBOM CALCPB009 KMBOV CALCPB009 KMBOV PRNCPB005 KOST CALCPB009 KT CALCPB009 LFTM CALCPB005 LFTV CALCPB005 LFTVGLM CALCPB005 MAST BAKCPB005 MAST CATCPB001 MAST CATCPB007 MAVO4M CALCPB002 MAVO4MB CALCPB002 MAVO4MD CALCPB002 MAVO4V CALCPB002 MAVO4VB CALCPB002 MAVO4VD CALCPB002 MIDDEN CPB010 MIG80 CALCPB004 NEW CATCPB005 NEWCAT COMCPB001 NEWCAT COMCPB007 OP COMCPB001 OP COMCPB002 OP COMCPB003 OP COMCPB006 OP COMCPB008 OP COMCPB009 OP COMCPB010 OW2209 TXTCPB010 PERCENT CALCPB003 PIP COMCPB001 PIP COMCPB006 PIP COMCPB007 PIP COMCPB008 PIP COMCPB009 PIP COMCPB010 PUTCAT COMCPB005 PUTCAT COMCPB007 REEKS CALCPB011 REGOND TXTCPB010 ROOS BASCPB001 RRM CALCPB002 RRM0 CALCPB004 RRM1 CALCPB011 RRV0 CALCPB004 RRV1 CALCPB011 RVDB1182TQTCPB008SQ SCP TQTCPB010SQ SKILL CPB005 SKILLTABTQTCPB010SQ SPEC CALCPB009 SQ COMCPB007 STUF01M DATCPB006 STUF01V DATCPB006 STUF04M DATCPB006 STUF04V DATCPB006 STUF08M DATCPB006 STUF09M DATCPB006 STUF11M DATCPB006 STUF13M DATCPB006 STUF17M DATCPB006 STUF17V DATCPB006 STUFLO TXTCPB007 SV TQTCPB008SQ SV TQTCPB010SQ SVDEF CALCPB009 SVL CALCPB005 SVOVER CALCPB009 TYPSQ COMCPB007 USQ COMCPB007 VOORLMBOCALCPB005 VWOM CALCPB003 VWOV CALCPB003 WILLEMSZ CPB010 XDIR COMCPB001 XDIR COMCPB007 XDIR COMCPB008 XDIR COMCPB009 Y CALCPB003 MIG80.CAL CPBLIB.004 MIG80 CALCPB004 NEW.CAT CPBLIB.005 NEW CATCPB005 NEWCAT.COM CPBLIB.001 NEWCAT COMCPB001 NEWCAT.COM CPBLIB.007 NEWCAT COMCPB007 OP.COM CPBLIB.001 OP COMCPB001 OP.COM CPBLIB.002 OP COMCPB002 OP.COM CPBLIB.003 OP COMCPB003 OP.COM CPBLIB.006 OP COMCPB006 OP.COM Herbar Ruitenberg Dutc Osborn Group postbu 84151 250 A De Haag Netherlands 2 Januar 1983 CHANGIN MAST.CA INT dBI FILE Publi domai softwar lik NEWCA an PUTCA enable eas cataloguein o file o disk i disk ar marke wit th nam o librar an th numbe i th library. PUTCA produce alpabeticall sorte output I may however b usefu t selec o othe aspect o th files Al Basic-file migh b listed al squeeze file (wit i th secon plac o type- name o al document-files. dBI allow al necessar analysi o databas wit th dat o th file involved Th wa t d i i describe here Th file necessar g wit thi DOC-file. Conditions ---------- Befor startin fou file nee t b present The are: 1 Commandfil MAST.CM (th program) 2 Dat i MAST.CA (o course) 3 MASK.DB an 4 MAST.DBF Th latte tw file ar empt databas files the onl consis o structur t receiv data. MASK.DB give th structur fo acceptin th filenam an th identificatio o th dis o whic th fil i resident Al field ar character-fields. FNAM 1 char. DIS 1 char. FIL char. TYP char. DS char. NU char. SQ char. FNAM receive th filename/typ an DIS diskname/numbe fro MAST.CA B analysi o FNAM th field FIL an TYP ar filled. DISK provides data for th field DS an NU. SQ i fille wit "SQ i th secon characte o TYE i "Q" referrin t squeeze file. MAST.DB i th fina result I ha th sam structur an content a MASK.DBF excep tha th field FNAM an DIS ar lef out Thi i don t reduc th siz o thi file.User may o course expan MAST.DBF MASK.DB i onl temporaril neede fo appendin record fro MAST.CAT Becaus th structur o MAS shoul b permanentl presen MAS i copie t TEM a th star o th program A soo a dat hav bee appende t MAS fro TEM th latte i deleted Thu diskspac i saved. Runnin th program. -------------------- Th procedur i quit easy: Star dBII SE DEFAUL T B D MAST Th progra ask tw questions. First whethe th necessar inputfile ar present ( lis i given. Thi questio caution tha fil MAS wil b emptie i th progra i allowe t ru further Th structur o MAS i neede t receiv dat fro TEMP I MAS ha t b save first b COPYing the pres