EXTRACTION&% FISD.sas

LIBNAME CODE "/folders/myshortcuts/SAS";

%INCLUDE "/folders/myshortcuts/SAS/UTILITIES.GENERAL.sas";

LIBNAME FISD "/folders/myshortcuts/WRDS/fisd";
LIBNAME COMPG "/folders/myshortcuts/WRDS/comp.global";
LIBNAME COMPA "/folders/myshortcuts/WRDS/comp.na";

OPTIONS SOURCE NOCENTER LS=80 PS=MAX;

PROC SQL;
	CREATE TABLE BANKRUPT AS
	SELECT A.ISSUER_ID, A.FILING_DATE, A.FILING_TYPE, B.CUSIP_NAME, C.SIC_CODE,
	D.ISSUER_CUSIP
	FROM FISD.FISD_BANKRUPTCY AS A, FISD.FISD_ISSUER AS B, FISD.FISD_ISSUER_SIC_CODE AS C,
	FISD.FISD_ISSUER_CUSIP AS D
	WHERE 
	A.ISSUER_ID=B.ISSUER_ID AND
	A.ISSUER_ID=C.ISSUER_ID AND
	A.ISSUER_ID=D.ISSUER_ID AND
	C.PRIMARY_SIC = "Y"
	ORDER BY A.FILING_DATE DESC
	;
RUN;


PROC SQL;
	CREATE TABLE BANKRUPT AS
	SELECT A.ISSUER_ID, A.FILING_DATE, A.FILING_TYPE, B.CUSIP_NAME, C.SIC_CODE,
	D.ISSUER_CUSIP, E.ISSUE_NAME, E.ISIN, E.MATURITY, E.OFFERING_DATE, E.OFFERING_AMT,
	F.RATING_TYPE, F.RATING_DATE, F.RATING, F.REASON
	FROM FISD.FISD_BANKRUPTCY AS A, FISD.FISD_ISSUER AS B, FISD.FISD_ISSUER_SIC_CODE AS C,
	FISD.FISD_ISSUER_CUSIP AS D, FISD.ISSUE_ISSUER AS E, FISD.FISD_RATING_HIST AS F
	WHERE 
	A.ISSUER_ID=B.ISSUER_ID AND
	A.ISSUER_ID=C.ISSUER_ID AND
	A.ISSUER_ID=D.ISSUER_ID AND
	A.ISSUER_ID=E.ISSUER_ID AND
	E.ISSUE_ID=F.ISSUE_ID AND
	C.PRIMARY_SIC = "Y"
	ORDER BY A.FILING_DATE DESC
	;
RUN;