open-insight/SYSPROG/STPROCINS/O4W_COMMUTER_COMMON.txt
2024-03-25 15:17:34 -07:00

44 lines
1.6 KiB
Plaintext

compile insert O4W_COMMUTER_COMMON
COMMON /O4W_COMMUTER/ FormName@, FormDef@, bisNew@, statMsg@, redirectTo@, userFields@
COMMON /O4W_COMMUTER2/ tabInfo@
common /O4W_COMMUTER3/ addlInfo@, selStmtToExecute@, PageNo@, saveWarn@, ErrMsg@
COMMON /O4W_COMMUTER_RPT/ ReportName@, ReportDef@
common /O4W_COMMUTER_DF/ o4wVersion@, HeaderDef@
Equ PDELIM$ To "_-_"
Declare Function O4WCommuterUtility
Equ O4WUTILITY_FIELDNAME$ To 1
Equ O4WUTILITY_CONTROLTYPE$ To 2
Equ O4WUTILITY_VALUE$ To 3
Equ O4WUTILITY_FORMELEMENT_LABEL_CELL$ To 4
Equ O4WUTILITY_FORMELEMENT_LABEL_SECTION$ To 5
Equ O4WUTILITY_FORMELEMENT_CONTROL_CELL$ To 6
Equ O4WUTILITY_FORMELEMENT_CONTROL_SECTION$ To 7
Equ O4WUTILITY_FORMELEMENT_CONTROL$ To 8
Equ O4WUTILITY_FORMELEMENT_TEXT$ To 9
Equ O4WUTILITY_TABLENAME$ To 10
Equ O4WUTILITY_CLASS_CONTROL_CELL$ To 11
Equ O4WUTILITY_CLASS_CONTROL_SECTION$ To 12
Equ O4WUTILITY_CLASS_CONTROL$ To 13
Equ O4WUTILITY_CLASS_TEXT$ To 14
Equ O4WUTILITY_SECTIONNAME$ To 15
Equ O4WUTILITY_CHILDREN$ To 20
Equ O4WUTILITY_TABNAME$ To 21
Equ O4WUTILITY_FORMELEMENT_LABEL$ To 22
Equ O4WUTILITY_OVERRIDE_SELECT$ To 23
Equ O4WUTILITY_SELECT_RESTORE$ To 24
Equ O4WUTILITY_OVERRIDE_READ$ To 25
Equ O4WUTILITY_READ_RESTORE$ To 26
Equ O4WUTILITY_SAVE$ To 27
Equ O4WUTILITY_EVENT$ To 30
Equ O4WUTILITY_VALUE_SET$ To 35
Equ O4WUTILITY_VALUE_GET$ To 3