!ABCIncludeFile OMIT('_EndOfInclude_',_jmABCExt_) ! Omit if already compiled _jmABCExt_ EQUATE(1) INCLUDE('ABReport.INC'),ONCE !-------------------------------------------------------------------------------- ! Class: jmPrintFromQ !Purpose: Overrides ProcessClass to Report/Process from a Queue !-------------------------------------------------------------------------------- jmPrintFromQ CLASS(ProcessClass),TYPE,MODULE('jmABCExt.Clw'),LINK('jmABCExt.Clw',_ABCLinkMode_),DLL(_ABCDllMode_) !---------------------Class Properties PrintFromQ &QUEUE ! Reference to actual Queue containing data to be reported PFQPntr LONG ! Entry pointer for PrintFromQ Queue !---------------------Class Methods Next PROCEDURE(BYTE ProcessRecords=True),BYTE,PROC,DERIVED END ! Class Definition !-------------------------------------------------------------------------------- ! Class: jmPrintFromSP !Purpose: Overrides ProcessClass to Report/Process using result-set returned by a Stored-Procedure !-------------------------------------------------------------------------------- jmPrintFromSP CLASS(ProcessClass),TYPE,MODULE('jmABCExt.Clw'),LINK('jmABCExt.Clw',_ABCLinkMode_),DLL(_ABCDllMode_) !---------------------Class Properties PrintFromSP &FILE ! Reference to dummy-table that defines the result-set returned by the Stored-Proc !---------------------Class Methods Next PROCEDURE(BYTE ProcessRecords=True),BYTE,PROC,DERIVED END ! Class Definition _EndOfInclude_