🚀 go-pugleaf

Hi,

I am trying to figure how to make the below code into sql statement.  I am
migrating from visual dbase 5.5 to visual dbase 7 and using the qbe
converter provided in visual dbase 7 does not generate the same results.  If
anybody can help I will appreciate it.  Thanks.

There are 6 tables  4 of them have relations
1. Comb
2. Cwf_Rec
3. Cashdet2
4. Viable
5. Sources
6. Quarter


Table Comb (Parent) relation with Cwf_Rec (Child) as follows - Every
Parent -TREATY_YR+R_CODEC+R_CODEQ+INSURED


Table Comb (Parent) relation with Cashdet2 (Child) as follows - Every
Parent -
TREATY_YR+R_CODEC+R_CODEQ+INSURED

Table Comb (Parent) relation with Viable (Child) as follows -  Every
Parent - RCODEC

The Sources and Quarter table has no relation at all with any table.
But I use various fields associated with them.


Below is the code:

* Visual dBASE .QBE file 9
CLOSE DATABASES
SET EXACT ON
SELECT 1
USE \REINS\PUBLIC\COMMON\COMB.DBF
SELECT 2
USE \REINS\PUBLIC\COMMON\CWF_REC.DBF ORDER TAG TAG1
SELECT 3
USE \REINS\PUBLIC\COMMON\CASHDET2.DBF ORDER TAG TAG1
SELECT 4
USE \REINS\PUBLIC\COMMON\VIABLE.DBF ORDER TAG RCODEC
SELECT 1
SET RELATION TO TREATY_YR+R_CODEC+R_CODEQ+INSURED INTO CWF_REC,
TREATY_YR+R_CODEC+R_CODEQ+INSURED ;
INTO CASHDET2, R_CODEC INTO VIABLE
SET FILTER TO (INOUT_SUMI<>.Y. .AND. ASSN_COM<>.Y.)
SET FIELDS TO TREATY_YR, APEA, IBNR, R_CODEC, R_CODEQ, REINSURERC, INSURED,
;
INOUT_SUMI, ASSN_COM, TTY_LOSS, DISCOUNT, KWLEM, OTHERS, DISC_N, PER_PLACE,
;
RESERVES, IBNR_RES, IBNR_, APEA_
SELECT 2
SET FIELDS TO CASH_RECD
SELECT 3
SET FIELDS TO AMT
SELECT 4
SET FIELDS TO CODE, SOLVENT, SOLVENT_IN
SELECT 5
USE \REINS\PUBLIC\COMMON\SOURCES.DBF
SET FIELDS TO SOURCE1, SOURCE2, SOURCE3, SOURCE4, SOURCE5
SELECT 6
USE \REINS\PUBLIC\COMMON\QUARTER.DBF
SET FIELDS TO MONTH_END
SELECT 1
GO TOP