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]"