Class SY_Constant

Properties

LOCAL retFAILURE=0  
LOCAL retSUCCESS=1  
LOCAL retNEW=2  
LOCAL retWARNING=-1  
LOCAL retCANCEL=0  
LOCAL retYES=1  
LOCAL retNO=2  
LOCAL msgYES$="YES"  
LOCAL msgNO$="NO"  
LOCAL msgCANCEL$="CANCEL"  
LOCAL msgOK$="OK"  
LOCAL msgRETRY$="RETRY"  
LOCAL msgABORT$="ABORT"  
LOCAL msgIGNORE$="IGNORE"  
LOCAL msgNOTONFILE$="***Not on file***"  
LOCAL msgTIMEOUT$="TIMEOUT"  
LOCAL msgDISABLE=0  
LOCAL msgACTIVE=1  
LOCAL msgLinkHELP$="HLP"  
LOCAL msgLinkMSG$="MSG"  
LOCAL isFALSE=0  
LOCAL isTRUE=1  
LOCAL isYES$="Y"  
LOCAL isNO$="N"  
LOCAL isBUSY$="S"  
LOCAL edtNONE=0  
LOCAL edtEXISTS=1  
LOCAL edtNEW=2  
LOCAL ctlDISABLE=0  
LOCAL ctlENABLE=1  
LOCAL ctlSHOW=2  
LOCAL ctlHIDE=3  
LOCAL ctlLOCK=4  
LOCAL ctlUNLOCK=5  
LOCAL ctlLOCKORDISABLE=6  
LOCAL ctlUNLOCKORENABLE=7  
LOCAL popHIDE=-1  
LOCAL popDISABLE=0  
LOCAL popSHOW=1  
LOCAL popSHOWCHECKED=2  
LOCAL grdMODEVIEW=0  
LOCAL grdMODEMAINT=1  
LOCAL grdMODEADD=2  
LOCAL filCREATE=1  
LOCAL filLOCK=2  
LOCAL filCREATELOCK=3  
LOCAL filGLOBAL=4  
LOCAL filCREATEGLOBAL=5  
LOCAL filLOCKGLOBAL=6  
LOCAL filCREATELOCKGLOBAL=7  
LOCAL filCHANNEL=8  
LOCAL filRAW=16  
LOCAL filPURGE=32  
LOCAL filLOAD=64  
LOCAL filINPUT=128  
LOCAL filNOOBJECT=256  
LOCAL filPVX=512  
LOCAL filREFRESH=1024  
LOCAL filPVX4$="4"  
LOCAL filPVX5$="5"  
LOCAL pthCOMPANY$="COMPANY"  
LOCAL pthOTHERCOMPANY$=pthCOMPANY$+":"  
LOCAL pthPRCOMPANY$="PR"+pthCOMPANY$  
LOCAL pthOTHERPRCOMPANY$=pthPRCOMPANY$+":"  
LOCAL pthSYSTEM$="SYSTEM"  
LOCAL pthUSER$="USER"  
LOCAL pthSOA$="SOA"  
LOCAL pthHOME$="HOME"  
LOCAL pthROOT$="ROOT"  
LOCAL pthDICTIONARY$="DICTIONARY"  
LOCAL pthTEXTOUT$="TEXTOUT"  
LOCAL pthLOCK$="LOCK"  
LOCAL pthLOCKSYS$="LOCKSYS"  
LOCAL pthPREFIX$="MAS_"  
LOCAL pthARCHIVE$="ARCHIVE"  
LOCAL pthLOGFILES$="LOGFILES"  
LOCAL folderCOMMONPROGRAMFILES=43  
LOCAL folderCOMMONAPPLICATIONDATA=35  
LOCAL errOBJECT=200  
LOCAL errSYSTEMLOCK=201  
LOCAL errCONTINUE=202  
LOCAL errEMBEDDEDIO=203  
LOCAL errSYSLOCK=300  
LOCAL extSQLCREATETABLE$="extnTBL.SQLCreateTable"  
LOCAL extSQLALLOWNULLDATES$="extnTBL.SQLAllowNullDates"  
LOCAL dbALL$="[All]"  
LOCAL dbNONE$="[None]"  
LOCAL dateTOSTRINGFORMAT$="yyyyMMdd"  
LOCAL dateLONGMASK$="YYYYMMDD"  
LOCAL dateSHORTFMT=1  
LOCAL dateLONGFMT=2  
LOCAL dateYEARFIRST  
LOCAL dateMONTHFIRST  
LOCAL dateDAYFIRST  
LOCAL timeMINUTESMASK$="%hz:%mz %P"  
LOCAL timeMINUTES24MASK$="%Hz:%mz"  
LOCAL timeSECONDSMASK$="%hz:%mz:%sz %P"  
LOCAL timeSECONDS24MASK$="%Hz:%mz:%sz"  
LOCAL idxPRIMARY$="kPRIMARY"  
LOCAL idxBATCH$="kBATCH"  
LOCAL idxDISPLAY$="kDISPLAY"  
LOCAL dirFIRST=1  
LOCAL dirLAST=2  
LOCAL dirNEXT=3  
LOCAL dirPREVIOUS=4  
LOCAL typALPHANUM=1  
LOCAL typZEROFILL=2  
LOCAL typCHARNUM=3  
LOCAL typMASTERNUM=4  
LOCAL typALPHANUMNF=5  
LOCAL typMASTERNUMC=6  
LOCAL typALPHA$="AaBbCcDdEeFfGgHhIiJjKkLlMmNnOoPpQqRrSsTtUuVvWwXxYyZz"+" "  
LOCAL typNUMBERS$  
LOCAL typALPHANUM$=typALPHA$+typNUMBERS$  
LOCAL typALPHANUMNF$  
LOCAL typCHARNUM$  
LOCAL typMASTERNUM$  
LOCAL typMASTERNUMCLEN  
LOCAL modTASKOTFDISALLOW$="SYSM/RD/IC/WR/MT/GA/LM/DV/WI0TI1TI2TPRTS/TC/CB/IS/DT/CI/T"  
LOCAL logALLACTIVITY$="00"  
LOCAL logACTIVITY$="A"  
LOCAL logERROR$="E"  
LOCAL logACTNEWCUSTOMER$="AC"  
LOCAL logACTDATASYNC$="AS"  
LOCAL logACTDATAIMPORT$="AI"  
LOCAL logACTOPTIONCHANGED$="O"  
LOCAL logACTPROGRAMLAUNCH$="AP"  
LOCAL logDFDM$="FD"  
LOCAL logSECURITY$="SC"  
LOCAL logTASKSCHEDULER$="TS"  
LOCAL logWEBERROR$="WE"  
LOCAL logVISUALINTEGRATOR$="VI"  
LOCAL logEntryIDLength=17  
LOCAL chkOFF$="0"  
LOCAL chkON$="1"  
LOCAL chkGRAYED$="2"  
LOCAL secVIEWONLY=0  
LOCAL secCREATEONLY=1  
LOCAL secMODIFYONLY=2  
LOCAL secCREATEMODIFY=3  
LOCAL secDELETEONLY=4  
LOCAL secCREATEDELETE=5  
LOCAL secMODIFYDELETE=6  
LOCAL secFULLACCESS=7  
LOCAL secDEFAULTUSER$="0000000000"  
LOCAL secDEFAULTROLE$="0000000000"  
LOCAL regHKEY_CLASSES_ROOT=0  
LOCAL regHKEY_CURRENT_USER=1  
LOCAL regHKEY_LOCAL_MACHINE=2  
LOCAL regHKEY_USERS=3  
LOCAL regHKEY_CURRENT_CONFIG=4  
LOCAL regODBC_PATH$="Software\ODBC\ODBC.INI\SOTAMAS90"  
LOCAL regMAS_PATH$  
LOCAL E3_MYHANDLE  
LOCAL E3_TASK  
LOCAL E3_QUIT  
LOCAL E3_COCHANGE  
LOCAL E3_DATECHANGE  
LOCAL E3_USERCHANGE  
LOCAL E3_SRVRPATH  
LOCAL E3_HELPFILE  
LOCAL E3_TECHSUPPORT  
LOCAL E3_QUERYTOQUIT  
LOCAL E3_SUPERVISOR  
LOCAL E3_CUSTOMIZE  
LOCAL E3_SWITCHMODULE  
LOCAL E3_DISABLEWIN  
LOCAL E3_CURSOR  
LOCAL E3_USERID  
LOCAL E3_PRIVATETASK  
LOCAL E3_CHAT  
LOCAL E3_BROADCAST  
LOCAL E3_RELOAD  
LOCAL E3_PASSTHROUGH  
LOCAL E3_EXECUTE  
LOCAL E3_EXPCOCHANGE  
LOCAL E3_EXPTASK  
LOCAL E3_EXPLAUNCH  
LOCAL E3_SILENT  
LOCAL E3_DIRECT  
LOCAL E3_NODELIST  
LOCAL E3_OCXITEM  
LOCAL E3_MODULEID  
LOCAL E3_CUSTFAV  
LOCAL E3_HOMEPAGE  
LOCAL E3_MINIMIZE  
LOCAL E3_UNDOCKED  
LOCAL E3_DOCKED  
LOCAL E3_PUBLICTASK  
LOCAL E3_LAUNCHURL  
LOCAL E3_BTNCHANGE  
LOCAL E3_STDBTNRELOAD  
LOCAL E3_MYBUSINESS  
LOCAL E3_REGLOADED  
LOCAL E3_LOADED  
LOCAL E3_V4TASK  
LOCAL E3_PUBMODIFY  
LOCAL E3_TASKRELOAD  
LOCAL E3_SETAUTOHIDE  
LOCAL E3_COCHANGE2  
LOCAL E3_TASK_NC  
LOCAL E3_V4TASK_NC  
LOCAL E3_TASK_ALTC  
LOCAL E3_V4TASK_ALTC  
LOCAL E3_PASSWORD  
LOCAL E3_LAUNCHVIEW  
LOCAL E3_LAUNCHBIETASK  
LOCAL E3_CLEANUPBIE  
LOCAL E3_STARTVIEW  
LOCAL E3_BIE_ADMIN  
LOCAL E3_HELPPATH  
LOCAL E3_CUSTOMERID  
LOCAL E3_MASVERSION  
LOCAL E3_LAUNCHEMBEDDED  
LOCAL E3_LAUNCHERMENU  
LOCAL E3_APP_POINTSIZE  
LOCAL E3_LAUNCHERVERSION  
LOCAL E3_DISABLE  
LOCAL E3_ENABLE  
LOCAL E3_SHOW  
LOCAL E3_HIDE  
LOCAL E3_REFRESH  
LOCAL E3_LIBMASTER  
LOCAL WM_COPY=74  
LOCAL wtsINITIALPROGRAM=0  
LOCAL wtsAPPLICATIONNAME=1  
LOCAL wtsWORKINGDIRECTORY=2  
LOCAL wtsOEMID=3  
LOCAL wtsSESSIONID=4  
LOCAL wtsUSERNAME=5  
LOCAL wtsWINSTATIONNAME=6  
LOCAL wtsDOMAINNAME=7  
LOCAL wtsCONNECTSTATE=8  
LOCAL wtsCLIENTBUILDNUMBER=9  
LOCAL wtsCLIENTNAME=10  
LOCAL wtsCLIENTDIRECTORY=11  
LOCAL wtsCLIENTPRODUCTID=12  
LOCAL wtsCLIENTHARDWAREID=13  
LOCAL wtsCLIENTADDRESS=14  
LOCAL wtsCLIENTDISPLAY=15  
LOCAL wtsCLIENTPROTOCOLTYPE=16  
LOCAL thmNORMAL=1  
LOCAL thmMETAL=3  
LOCAL thmOLIVE=2  
LOCAL rptREPORTTYPESTD  
LOCAL rptREPORTTYPELABEL  
LOCAL rptREPORTTYPEMULTCOL  
LOCAL rptISTRUE  
LOCAL rptISFALSE  
LOCAL rptISDEFAULT  
LOCAL rptPORTRAIT  
LOCAL rptLANDSCAPE  
LOCAL rptASCENDING  
LOCAL rptDESCENDING  
LOCAL rptRIGHTALIGN  
LOCAL rptLEFTALIGN  
LOCAL rptHORCENTERALIGN  
LOCAL rptLSSINGLELINE  
LOCAL rptSTSUM  
LOCAL rptSTAVERAGE  
LOCAL rptSTCOUNT  
LOCAL rptDFLTHSPACING  
LOCAL rptDFLTVSPACING  
LOCAL rptDFLTFONTSIZE  
LOCAL rptDFLTLEFT  
LOCAL rptDFLTTOP  
LOCAL rptTWIPSPERCHARW  
LOCAL rptTWIPSPERCHARH  
LOCAL rptSVTREPORTTITLE  
LOCAL rptEDTDISKFILE  
LOCAL rptGCANYVALUE  
LOCAL rptGCDAILY  
LOCAL rptCRDATEFIELD  
LOCAL rptCRDATETIMEFIELD  
LOCAL crEFTCrystalReport=1  
LOCAL crEFTRichText=2  
LOCAL crEFTWordForWindows=3  
LOCAL crEFTExcel=4  
LOCAL crEFTPortableDocFormat=5  
LOCAL crEFTHTML32=6  
LOCAL crEFTHTML40=7  
LOCAL crEFTExcelRecord=8  
LOCAL crEFTText=9  
LOCAL crEFTCharacterSeparatedValues=10  
LOCAL crEFTTabSeparatedText=11  
LOCAL crEFTEditableRTF=12  
LOCAL crEFTXml=13  
LOCAL crEFTRPTR=14  
LOCAL crEFTExcelWorkbook=15  
LOCAL cContextKeyLen1  
LOCAL cContextKeyLen2  
LOCAL cContextKeyLen3  
LOCAL adCmdText=1  
LOCAL adCmdStoredProc=4  
LOCAL adClipString=2  
LOCAL adExecuteNoRecords=128  
LOCAL adVarChar=200  
LOCAL adInteger=3  
LOCAL adParamInput=1  
LOCAL adParamOutput=2  
LOCAL adParamInputOutput=3  
LOCAL adParamReturnValue=4  
LOCAL adTextNoRecords=129  
LOCAL adOpenForwardOnly=0  
LOCAL adOpenStatic=3  
LOCAL adLockReadOnly=1  
LOCAL adUseServer=2  
LOCAL adUseClient=3  
LOCAL dbTMP$="##"  
LOCAL dbTEMPDB$="TEMPDB"  
LOCAL dbSYSDB$=pthPREFIX$+pthSYSTEM$  
LOCAL dbPVXDDF=1  
LOCAL dbPVXDB=2  
LOCAL dbMYSQL=6  
LOCAL dbADO=7  
LOCAL dbSQL=8  
PROPERTY LastErrorMsg$  
PROPERTY LastErrorNum$  
PROPERTY SageCloudAppDesc$   * Read Only *
PROPERTY IolNomads$   * Read Only *

NOMADS IOList

Methods

FUNCTION GetNOMADSIolist$()  

Build the IOList for NOMADS Libraries. Declared as a function so that legacy programs can call this routine

Returns [string] Returns the NOMADS IOList as IolNOMADS$
FUNCTION MaskString(valueIN$, maskIN$, valueOUT$)  
FUNCTION RawString(valueIN$, maskIN$, valueOUT$)  
FUNCTION LOCAL ClassValidateEMailAddress(col$, val$)  
FUNCTION LOCAL dateTODAY$()  
FUNCTION LOCAL Element$(string$, element)  
FUNCTION LOCAL Element$(string$, element, separator$)  
FUNCTION LOCAL fmtMODCODE$(modCode$)  
FUNCTION LOCAL fmtMODPREFIX$(modCode$)  
FUNCTION LOCAL PERFORM FunctionBreak(desc$)  
FUNCTION LOCAL GetExceptionMsg$(msg$)  
FUNCTION LOCAL GetExceptionMsg$()  

Returns the value of MSG(-1) based on the value of coSession'Wdx$.

ParameterDescription
msg$ [in, string] Optional message text to append exception msg to.
Returns [string] The exception or OS error message.
FUNCTION LOCAL GetFileName(fileName$)  
FUNCTION LOCAL GetJobTitles(userJobTitleCodes$, userJobTitles$)  
FUNCTION LOCAL GetPrinterProps(prt$, orientation, size, source, duplex)  
FUNCTION LOCAL GetRecordCount(FH)  
FUNCTION LOCAL isALPHA(val$)  
FUNCTION LOCAL isALPHA(val$, extraChars$)  
FUNCTION LOCAL isDATE(val$)  
FUNCTION LOCAL isNUMERIC(val$)  
FUNCTION LOCAL MsgPath$(path$)  

Formats a path by escaping the back-slash character so they are not interpreted as new lines in a message box.

ParameterDescription
path$ [in, string] The path.
Returns [string] The formatted path.
FUNCTION LOCAL ParseString(sourceString$, result$)  
FUNCTION LOCAL ParseString(sourceString$, result$, separator$)  
FUNCTION LOCAL ParseString(scanPos, sourceString$, result$)  
FUNCTION LOCAL ParseString(scanPos, sourceString$, result$, separator$)  
FUNCTION LOCAL ParseTagField(field$, value$)  
FUNCTION LOCAL ParseTagField(field$, value$, tag$)  
FUNCTION LOCAL ParseTagField(field$, value$, tag$, ctlName$)  

Parses the value of a NOMADS control property for a specific name/value pair and returns the value.

ParameterDescription
field$ [in, string] Name in the name/value pair
value$ [out, string] Returned value in the name/value pair
tag$ [in, string] Optional name of the NOMADS control property. Default is .Tag$
ctlName$ [in, string] Optional name of the NOMADS control. Default is the current ID$
Returns [boolean] True = success, False = failure.
FUNCTION LOCAL Position(string$, var$)  
FUNCTION LOCAL Position(string$, var$, separator$)  
FUNCTION LOCAL QUO$(val$)  
FUNCTION LOCAL ValidateFormatType(val$, length, desc$, extension$)  
FUNCTION LOCAL ZeroFill$(val$, length)  

Zero fills a string that contains only digits.

ParameterDescription
val$ [in, string] value to zero fill
length [in, string] length
Returns [string] zero-filled string or original string if it contains alpha char