$sth = $dbh->prepare(qq{select  BIB_TEXT.BIB_ID, BIB_TEXT.TITLE_BRIEF,TO_CHAR(BIB_ITEM.ADD_DATE, 'YYYYMMDDHHMISS'),
                                MFHD_MASTER.DISPLAY_CALL_NO, ITEM.ITEM_ID, BIB_MFHD.MFHD_ID,TO_CHAR(ADD_MONTHS(SysDate, -3),'YYYYMMDDHHMISS'), 
				LINE_ITEM.BIB_ID, LINE_ITEM.REQUESTOR, LOCATION.LOCATION_DISPLAY_NAME, MFHD_MASTER.LOCATION_ID, BIB_TEXT.ISBN 
                        from    BIB_TEXT, BIB_ITEM, MFHD_MASTER, ITEM, BIB_MFHD, DUAL, LINE_ITEM, LOCATION, BIB_MASTER
                        where   BIB_TEXT.BIB_ID = BIB_MFHD.BIB_ID
                        and     BIB_MFHD.MFHD_ID = MFHD_MASTER.MFHD_ID
                        and     BIB_TEXT.BIB_ID = BIB_ITEM.BIB_ID
			and 	BIB_TEXT.BIB_ID = LINE_ITEM.BIB_ID
                        and     BIB_ITEM.ITEM_ID = ITEM.ITEM_ID
			and     BIB_TEXT.BIB_ID = BIB_MASTER.BIB_ID
                        and     BIB_MASTER.CREATE_DATE > ADD_MONTHS(SysDate, -3)
			and     BIB_MASTER.SUPPRESS_IN_OPAC = 'N'
                        and     MFHD_MASTER.LOCATION_ID = LOCATION.LOCATION_ID
			order by BIB_ITEM.ADD_DATE
		
});

# -- 
# --  execute the query
# --

$sth->execute();

$sth->bind_col( 1, \$bib_id );
$sth->bind_col( 2, \$_title_marc );
$sth->bind_col( 3, \$timedate );
$sth->bind_col( 4, \$callno );
$sth->bind_col( 5, \$item_id );
$sth->bind_col( 6, \$mfhd_id );
$sth->bind_col( 7, \$trash );
$sth->bind_col( 8, \$moretrash );
$sth->bind_col( 9, \$requestor );
$sth->bind_col( 10, \$location );
$sth->bind_col( 11, \$loca_id );
$sth->bind_col( 12, \$isbn );