165 lines
5.9 KiB
Plaintext
165 lines
5.9 KiB
Plaintext
compile insert rdkdeploy_equates
|
|
|
|
* mtr 1 aug 16 Fixed Res2Str calls
|
|
* mtr 19 May 17 More fixes, more usage ;)
|
|
* bzs 08 May 20 Remember the "current tables only" checkbox value
|
|
|
|
declare function rti_res2str
|
|
|
|
$insert uires_equates
|
|
|
|
* SYSREPOSRELEASES column position equates
|
|
EQU REL_APPID$ TO 1 ;* key part
|
|
EQU REL_RELEASEID$ TO 2 ;* key part
|
|
|
|
EQU REC_TITLE$ TO 1
|
|
EQU REC_DESC$ TO 2
|
|
EQU REC_CREATED$ TO 3
|
|
EQU REC_AUTHOR$ TO 4
|
|
EQU REC_PREVREL$ TO 5
|
|
EQU REC_VIEWID$ TO 6
|
|
EQU REC_RELEASETYPE$ TO 7
|
|
EQU REC_TARGETID$ TO 8
|
|
EQU REC_INHERITCOMP$ TO 9
|
|
EQU REC_EXTPATH$ TO 10
|
|
EQU REC_LOCMAPIDS$ TO 11
|
|
EQU REC_LOCMAPPATHS$ TO 12
|
|
EQU REC_DBTABLES$ TO 13
|
|
EQU REC_DBPROCS$ TO 14
|
|
EQU REC_BLDDATE$ TO 19
|
|
EQU REC_BLDSTAT$ TO 20
|
|
EQU REC_BLDUSER$ TO 21
|
|
EQU REC_BLDCOMMENT$ TO 22
|
|
EQU REC_ERRPHASE$ TO 23
|
|
EQU REC_ERRITEMS$ TO 24
|
|
EQU REC_ERRCODES$ TO 25
|
|
EQU REC_ERRTEXT$ TO 26
|
|
EQU REC_NOTENAME$ TO 27
|
|
EQU REC_ALIASES$ TO 28
|
|
EQU REC_ALIASPROCS$ TO 29
|
|
EQU REC_ALIASTBLS$ TO 30
|
|
|
|
EQU REC_DICTNAMES$ TO 31
|
|
EQU REC_DICTFIELDS$ TO 32
|
|
* MTR 3-28-03
|
|
EQU REC_VERSION$ TO 33
|
|
EQU REC_DATE$ TO 34
|
|
* mtr 6-3-03
|
|
EQU REC_VOLUMES$ TO 35
|
|
EQU REC_REQUIRE_LOGOUT$ TO 36
|
|
* mtr 8-5-08
|
|
Equ REC_EXEPATH$ To 37
|
|
Equ REC_EXEPRODUCT$ To 38
|
|
Equ REC_EXEPUBLISHER$ To 39
|
|
Equ REC_EXEURL$ To 40
|
|
Equ REC_EXEUSERNAME$ To 41
|
|
Equ REC_EXEPASSWORD$ To 42
|
|
Equ REC_EXELOGONDISPLAY$ To 43
|
|
Equ REC_EXEOIPATH$ To 44
|
|
Equ REC_EXEDATAPATH$ To 45
|
|
* mtr 4-7-11 HB MER!
|
|
Equ rec_exename$ To 46
|
|
Equ REC_DBTABLES_CURAPP$ To 47 ;* BZS 050820
|
|
Equ REC_POSTINSTALLLOG$ To 48 ;* BZS 052220
|
|
Equ REC_RECOMPILE$ To 49 ;* BZS 121520
|
|
Equ REC_ENTITYIDLIST$ To 50
|
|
|
|
* SYSENV, RDK_DEPLOYTABLES layout
|
|
EQU RDK_DEPLOY_CONFIG$ TO "RDK_DEPLOYTABLES"
|
|
EQU RDKDEP_COPY_TABLES$ TO 1
|
|
EQU RDKDEP_CREATE_TABLES$ TO 2
|
|
EQU RDKDEP_COPY_RECS$ TO 3
|
|
EQU RDKDEP_TYPES$ TO 5
|
|
EQU RDKDEP_PROCESSES$ TO 6
|
|
EQU RDKDEP_FILES$ TO 7
|
|
|
|
* Window names
|
|
EQU DLG_ENTPROPS$ TO "RDKV_ENTPROPS"
|
|
EQU DLG_SEARCHUSES$ TO "RDKV_SELUSING"
|
|
EQU DLG_EXTRACT$ TO "RDKDD_EXTRACT"
|
|
EQU DLG_BUILDNOTES$ TO "RDKDD_BUILDNOTES"
|
|
EQU DLG_PUBFLAGS$ TO "RDK_DEPLOY_OPTION"
|
|
EQU DLG_ADVANCED$ TO "RDK_EXTRACT_AUX"
|
|
EQU DLG_GASGAUGE$ TO "RDK_GASGAUGE"
|
|
|
|
* Release Type Equates
|
|
EQU RELTYPE_FULL$ TO 0 ;* Full Application Deployment
|
|
EQU RELTYPE_APP$ TO 1 ;* Application Deployment
|
|
EQU RELTYPE_UPDATE$ TO 2 ;* Application Update
|
|
|
|
EQU COMPRESS_NONE$ TO 0
|
|
EQU COMPRESS_TOSYSTEM$ TO 1 ;* compress all applications above SYSPROG
|
|
|
|
* default tokens for deployment definitions
|
|
EQU USERAPP$ TO rti_Res2Str( RESID$, 'RDK278', '', 1 )
|
|
EQU NONE$ TO rti_Res2Str( RESID$, 'RDK279' , '', 1 )
|
|
EQU ALLENTS$ TO rti_Res2Str( RESID$, 'RDK280', '', 1 )
|
|
EQU DEFAULTRELEASEID$ TO rti_Res2Str( RESID$, 'RDK281', '', 1 )
|
|
EQU ERROR_PHASE_TEXT$ TO rti_Res2Str( RESID$, 'RDK282', '', 1 )
|
|
EQU RELEASETYPE_TEXT$ TO rti_Res2Str( RESID$, 'RDK283' , '', 1 )
|
|
|
|
* Database processing text and values
|
|
EQU PROC_FULLDEPLOY$ TO 0
|
|
EQU PROC_DEPLOYEMPTY$ TO 1
|
|
EQU PROC_NODEPLOY$ TO 2
|
|
EQU PROC_CREATEPTR$ TO 0
|
|
EQU PROC_NOCREATEPTR$ TO 1
|
|
|
|
EQU TEXT_FULLDEPLOY$ TO field(rti_Res2Str(RESID$, 'RDK258', '', 1 ), ',', PROC_FULLDEPLOY$ + 1)
|
|
EQU TEXT_NODEPLOY$ TO field(rti_Res2Str(RESID$, 'RDK258', '', 1 ), ',', PROC_DEPLOYEMPTY$ + 1)
|
|
EQU TEXT_DEPLOYEMPTY$ TO field(rti_Res2Str(RESID$, 'RDK258', '', 1 ), ',', PROC_NODEPLOY$ + 1)
|
|
EQU TEXT_CREATEPTR$ TO field(rti_Res2Str(RESID$, 'RDK297', '', 1 ), ',', PROC_CREATEPTR$ + 1)
|
|
EQU TEXT_NOCREATEPTR$ TO field(rti_Res2Str(RESID$, 'RDK297', '', 1 ), ',', PROC_NOCREATEPTR$ + 1)
|
|
|
|
* Progress window codes
|
|
EQU PROGRESS_UPDATE$ TO 1 ;* update the scale pointer
|
|
EQU PROGRESS_SETPHASE$ TO 2 ;* set the appropriate phase marker
|
|
EQU PROGRESS_NEWTEXT$ TO 3 ;* change the detail message text
|
|
EQU PROGRESS_TESTCANCEL$ TO 4 ;* test for process canceled
|
|
EQU PROGRESS_CLEAR$ TO 5 ;* clear the works
|
|
|
|
* Setphase argument field structure
|
|
EQU SETPHASE_PHASE$ TO 1
|
|
EQU SETPHASE_STATE$ TO 2
|
|
|
|
EQU SETPHASE_PHASE_INIT$ TO 1
|
|
EQU SETPHASE_PHASE_DBPROC$ TO 2
|
|
EQU SETPHASE_PHASE_EXTRACT$ TO 3
|
|
EQU SETPHASE_PHASE_APPPREP$ TO 4
|
|
|
|
EQU SETPHASE_STATE_OFF$ TO 0
|
|
EQU SETPHASE_STATE_DOING$ TO 1
|
|
EQU SETPHASE_STATE_DONE$ TO 2
|
|
|
|
* Upgrade file and record names
|
|
EQU UPGRADE_FILE$ TO "SYSUPGRADE"
|
|
EQU UPGRADE_MAP$ TO "%PROCESS%"
|
|
EQU UPGRADE_DESC$ TO "%MODULE%"
|
|
EQU UPGRADE_REQ_LO$ TO "%REQLO%"
|
|
EQU UPGRADE_DELIM$ TO "/"
|
|
EQU UPGRADE_LOG$ TO "UPGRADE.LOG"
|
|
Equ UPGRADE_REQ_RECOMPILE$ To "%RECOMPILE%"
|
|
Equ ENTITIES_HASH$ To "%HASHES%"
|
|
|
|
|
|
* upgrade record sections
|
|
EQU CREATEAPP$ TO "[CREATE APPLICATION]"
|
|
EQU CREATEFILE$ TO "[CREATE TABLES]"
|
|
EQU COPYFILE$ TO "[COPY TABLES]"
|
|
EQU DELETEFILE$ TO "[DELETE TABLES]"
|
|
EQU ATTACHFILE$ TO "[ATTACH TABLES]"
|
|
EQU DETACHFILE$ TO "[DETACH TABLES]"
|
|
EQU ALIASFILE$ TO "[ALIAS TABLES]"
|
|
EQU COPYOSFILE$ TO "[COPY OSFILE]"
|
|
Equ COPYOSFOLDER$ To "[COPY OSFOLDER]"
|
|
EQU UPDATEROW$ TO "[UPDATE ROWS]"
|
|
EQU DELETEROW$ TO "[DELETE ROWS]"
|
|
Equ UPDATEROW_NOOVERWRITE$ To "[CONDITIONAL_ROWS]"
|
|
EQU EXECPROC$ TO "[EXECUTE PROCEDURES]"
|
|
EQU LINKPROCESS$ TO "[CHAIN PROCESS]"
|
|
EQU DECLAREDLL$ TO "[DECLARE DLL]"
|
|
EQU EXECPROCPOST$ TO "[EXECUTE PROCEDURES POST]"
|
|
Equ RECORDOILOG$ To "[UPDATE LOG]"
|
|
|
|
|