Compile Insert RTI_rblayout_Equates /* * mtr 2-29-16 Happy Leap Day * A record mark delimited structure - 14 parts or so... Reverse engineered from existing code...kinda...maybe 15 years late... * mtr 29 Mar 18 Added in ColDets equates */ Equ RPTPROPS$ To 1 equ RPTTBLINFO$ To 2 equ RPTCOLINFO$ To 3 equ RPTSORTINFO$ To 4 equ RPTSELCRIT$ To 5 equ RPTPRINTERINFO$ To 6 ;* printerinfo = field(ReportTemplate, @rm,6) equ RPTOUTFILEINFO$ To 7 ;* outfileinfo = field(ReportTemplate, @rm,7) equ RPTFONTINFO$ To 8 ;* fontdetails = field(ReportTemplate, @rm,8) equ RPTTYPEINFO$ To 9 ;* reporttype = field(ReportTemplate,@rm,9) equ RPTLABELINFO$ To 10 ;* labeltype = field(ReportTemplate,@rm,10) equ RPTSCRIPTINFO$ to 11 ;* scriptlist = field(ReportTemplate,@rm,11) equ RPTGRIDINFO$ To 12 ;* gridson = field(ReportTemplate,@rm,12) * what's in 13? equ RPTMARGININFO$ To 14 ;* mymargins = Field(ReportTemplate,@rm,14) // @rm part 1 - Report Properties Equ RPTLISTSTMT$ To 1 Equ RPTUPDATED$ To 2 Equ RPTOPTS$ To 3 Equ RPTOPTS_SHOWHEADER$ To 1 ;* <3,1> Equ RPTOPTS_SHOWFOOTER$ To 2 ;* <3,2> Equ RPTOPTS_SHOWCOLHEADER$ To 3 ;* <3,3> Equ RPTOPTS_SHOWDETAIL$ To 4 ;* <3,4> Equ RPTOPTS_HEADERTEXT$ To 5 ;* <3,5> Equ RPTOPTS_FOOTERTEXT$ To 6 ;* <3,6> Equ RPTOPTS_DESCRIPTION$ To 7 ;* <3,7> Equ RPTOPTS_SHOWGRID$ To 8 ;* <3,8> Equ RPTOPTS_LABELFLAG$ To 9 ;* <3,9> Equ RPTOPTS_ORIENTATION$ To 10 ;* <3,10> Equ RPTOPTS_SUPPRESSION$ To 11 ;* <3,11> Equ RPTOPTS_SHOWROWCOUNT$ To 12 ;* <3,12> Equ RPTOPTS_BEHAVIOR$ To 13 ;* <12,1> Equ RPTOPTS_ROWSON$ To 14 ;* <12,4> Equ RPTOPTS_NOCOLUMNS$ To 15 ;* <12,2> Equ RPTOPTS_DEFAULTFONT$ To 16 ;* <12,1> Equ RPTOPTS_COLHDRFONT$ To 17 ;* <12,2> Equ RPTOPTS_HEADERFONT$ To 18 ;* <12,3> Equ RPTOPTS_FOOTERFONT$ To 19 ;* <12,4> // @RM part 2 - Table Info Equ RPTTABLE$ To 1 Equ RPTDICT$ To 2 // @RM part 3 - Column Info, names and details, separated by a division symbol... Equ RPTCOLNAME$ To 1 Equ RPTCOLDETS$ To 2 // ColumnDetails = 11 parts Equ ColDetAction$ To 1 ;* 2=BreakOn, 3=Total, 4=Average Equ ColDetSortOrder$ To 2 ;* 1=Ascending, 2=Descending Equ ColDetBreaks$ To 3 ;* underline, overline, page, etc Equ ColDetBreakVal$ To 4 Equ ColDetLabel$ To 5 Equ ColDetWidth$ To 6 Equ ColDetConv$ To 7 Equ ColDetJust$ To 8 Equ ColDetShade$ To 9 Equ ColDetFont$ To 10 Equ ColDetSizeUnit$ To 11 Equ ColDetBreakOn$ To 2 Equ ColDetTotal$ To 3 Equ ColDetAvg$ To 4 Equ ColDetsortAsc$ To 1 Equ ColDetsortDesc$ To 2