DELETE XXX_PROC_MERGED;
DEFINE PROCEDURE XXX_PROC_MERGED
!! upd. for ALL-IN-1 by A. D. Hull - DEC - 24-MAY-1989 
!
DECLARE BEGIN_DATE            USAGE IS DATE.
DECLARE END_DATE              USAGE IS DATE.
DECLARE TOT_RECS              PIC 9(4) EDIT_STRING IS ZZZ9.
DECLARE TOT_RCN_GT_90         PIC 9(4) EDIT_STRING IS ZZZ9.
DECLARE TOT_RCN_GT_180        PIC 9(4) EDIT_STRING IS ZZZ9.
DECLARE T_DATE                USAGE IS DATE.
TOT_RECS = 0
T_DATE = "TODAY"
!
BEGIN_DATE = <#quote><#xxx_start_date><#quote>
END_DATE = <#quote><#xxx_end_date><#quote>
!
SET DICTIONARY CDD$TOP.DOC$TOP.XXXXX
READY (domain) SHARED
    .
    .
    .
    .
PRINT COL 1, DRCN|"-"|DRCN_SUB, COL 13, DUT_PART_NUMBER, COL 29, DCUST_NAME,
   COL 43, DENGR_NAME, COL 63, DTO_COST, COL 74, NUM_DAYS_IN_COST
END_REPORT
FINISH
RELEASE
END_PROCEDURE