RTE (Realtime Transaction Environment for TradExpress ©Generix)

Control statementif boolean expression then!else!endifLoop statementswhile boolean expression do!endwhilewhile tIndex in taArray do!endwhilewhile tValue in taArray[tindex] do!endwhilewhile fFile in tFilename do!endwhilewhile database entry in filtered database do!endwhileSwitch statementswitch tSelectorcase tOption1:!default :!endswitchbegin!endbegindefault!endefaultend!endendStatements listsline(EOL:"LAST") line("HEAD")! !endlineendlinesegment UNH!endsegmentfunction tfFoo()!return tRetourendfunctionCommand linelogaddlogchangelogcreatelogremovelogviewlstool function -s sysname [-f sysname.cfg] [-L fieldlist][-l headerlines] [-q] [-v] [-N]Function :build, reconfig, relabel, convertcheck, salvage, fix, pack, fixhints, orderfree, rmunrefdump, modified, created, fileds, statusliste, insert, delete, changeExamplessegment UNHif not valid(MESSAGE) thennError++edierrordump(MESSAGE)nextmessageendifif bfPeekSegment(taPeek, "1", 2, "NAD", 1) thenif taPeek["C082.3039"] = "123456789" thenlog("NAD g1 présent", NL)nextendifendifif bfPeekSegment(taPeek, "15", 1, "19", 1, "MOA", 1) thenlog("MOA g15,g19 présent", NL)elselog("pas de MOA g15,g19", NL)endifredirect(LOGGING, SYSLOG.l)endsegmentsegment DOC g3,g4switch eC002.1001case "730":tVar1 := build(e1004:R035.35)default :SYSLOG.USERTEXT32 := "Warning"edierrordump(SEGMENT)log("Warning : ",eC002.1001 ,NL)endswitchendsegmentdefaulttLine := pick(1, 1, EOL)remove(taResult)nOccur := split(tLine, taResult, ";")if nOccur > 0 thenlog(time("%Y%m%d%H%M%S"))log(" field 1", taResult[1], NL)endifenddefault$lstool check –s syslog$logview –s syslog –D trace.log –i $logview -s syslog -f PARTNER=TEST CREATED CONNECTIONv3.0, 26/11/2013 http://jerome.kerninon.fr/