added sysprog entities

2024-03-25 15:17:34 -07:00
parent 600a8e1f61
commit 3a6a2b6b5b
1028 changed files with 171660 additions and 0 deletions
--- a/SYSPROG/STPROCINS/RTI_RBLAYOUT_EQUATES.txt
+++ b/SYSPROG/STPROCINS/RTI_RBLAYOUT_EQUATES.txt
@ -0,0 +1,88 @@
+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
+
+
+