{"id":673,"date":"2012-07-23T11:53:03","date_gmt":"2012-07-23T09:53:03","guid":{"rendered":"http:\/\/www.capri-soft.de\/blog\/?p=673"},"modified":"2018-03-05T10:27:59","modified_gmt":"2018-03-05T09:27:59","slug":"ibm-doors-dxl-tipps-und-tricks","status":"publish","type":"post","link":"https:\/\/www.capri-soft.de\/blog\/?p=673","title":{"rendered":"IBM Doors DXL: Tipps und Tricks"},"content":{"rendered":"

Zahlen an String konkatenieren<\/h1>\n

Zahlen oder andere Datentypen die in einen String gecastet werden sollen m\u00fcssen mit leerem String abgeschlossen werden:<\/p>\n

\r\nreal zahl = 4.555;\r\nprint "Die Zahl lautet: " zahl " "; \r\n<\/pre>\n
Jedes Attribut sollte bei einem String-Vergleich immer mit Doppelanf\u00fchrungszeichen abgeschlossen werden.<\/p>\n
Substrings in DXL<\/h1>\n
Auf Abschnitte aus einem String zugreifen:<\/p>\n
\r\nstring ganzerString = "Hello world";\r\nstring meinSubstring = ganzerString[0:6];\r\nstring vonVierBisEnde = ganzerString[4:];\r\nprint meinSubstring " " vonVierBisEnde; \r\n<\/pre>\n
Es k\u00f6nnen auch Funktionen und Variablen in die eckigen Stringklammern geschrieben werden.<\/p>\n
\r\nint i=2;\r\nstring einString = "Hello world";\r\nprint einString[i: (length(einString)-4)];\r\n<\/pre>\n
Strings unterliegen der lexikographischen Ordnung<\/h1>\n
\r\nif("Hallo" > "hallo") print "Hallo ist groesser uppercase first";\r\n<\/pre>\n
Ist ein Teilstring enthalten indexOf<\/h1>\n
string einString = „Hello world“;
\nif (matches(„Hello“,einString))
\n{
\nprint „Is drinn!“;
\n}<\/p>\n
Type conversions von String<\/h1>\n
string eineZahl= „12.3“
\nint iType = intOf(eineZahl);
\nreal rType = realOf(eineZahl);
\nchar cType = charOf(iType); \/\/ Konvertiert in den Ascii-Wert<\/p>\n
Datumsvergleich<\/h1>\n
Date heute = today();
\nDate einDatum = „1\/1\/2000 0:0:0“;
\nif(heute>einDatum)
\n{
\nprint „Das Jahr 2000 ist vorbei!“;
\n}<\/p>\n
FOR-Schleifen<\/h1>\n
\r\nfor i in 0 : 100 do\r\n{\r\n   print "Hello world! " i "";\r\n}\r\n\r\nfor (x=0; x<100; x++)\r\n{\r\n   print "Hello world";\r\n}\r\n<\/pre>\n
Ausschalten von Skript Timeout<\/h1>\n
Folgendes Statement im Kopf der Schleife setzt den Skript-Timeout auf unendlich:<\/p>\n
\r\npragma runLim,0 \/\/ 0 bedeutet unendlich\r\n<\/pre>\n
Iterations- und Ablaufssteuerungsbefehle<\/h1>\n
halt: Das gesamte DXL Programm wird abgebrochen
\ncontinue: Vergiss den Rest der Schleife und beginne mit n\u00e4chster Iteration
\nbreak: Brich die Schleife komplett ab<\/p>\n
Left Trim in DXL<\/h1>\n
\r\nstring leftTrim(string einString)\r\n{\r\n   int dieLetztePosition=-1;\r\n   for (x=0; x<length(einString); x++)\r\n   {\r\n      if( einString[x:x] != " " )\r\n      {\r\n        dieLetztePosition=x;\r\n         break;\r\n      }\r\n   }\r\n\r\n   return einString[dieLetztePosition:];\r\n}\r\n\r\n\r\nprint leftTrim("    Hello world!");\r\n<\/pre>\n
Bibliothek g\u00e4ngiger String-Funktionen wie in JAVA<\/h1>\n
DXL ist sehr rudiment\u00e4r was String Manipulationen angeht.<\/p>\n
Ich empfehle meine String Bibliothek mit den g\u00e4ngigsten String Functions zu verwenden:<\/p>\n
Zum Beitrag \u00fcber String Functions<\/a><\/p>\n
Call by reference und Call by Value<\/h1>\n
a: Call by Value
\nb: Call by Reference<\/p>\n
Bei Call by Reference wird die Zahl nach der \u00dcbergabe auch im Context au\u00dferhalb des FUnktionsaufrufs ge\u00e4ndert.<\/p>\n
\r\nvoid myfunction (int a, int<b)\r\n{\r\n   b=a+100;\r\n   a=b+1;\r\n   return(a);\r\n}\r\n<\/pre>\n
Durch statisches Array iterieren<\/h1>\n
\r\nstring biers[]={"Becks", "Licher", "Jever", "Heineken"};\r\n\r\n\/\/ sortiere die Biers lexikographisch\r\nsort(biers);\r\n\r\nint i=0;\r\nfor (i=0; i<sizeof(biers); i++)\r\n{\r\n   print biers[i] "\\n";\r\n}\r\n\r\n<\/pre>\n
Dynamische Arrays<\/h1>\n
Dynamische Arrays sind in DXL immer 2-dimensional.<\/p>\n
\r\n\/\/ Eine Spalte, eine Zeile array\r\nArray einArray = create(1,1);\r\n\r\nput(einArray, "Huhuhuhu", 0,0);\r\n\/\/ Das Array passt sich automatisch an\r\nput(a,23,10,10);\r\n\r\nstring huhuString = (string get(einString,0,0));\r\nreal eineZahl = (real get(10,10));\r\n\r\n\/\/ Speicher wieder freigeben\r\ndelete(einArray);\r\n<\/pre>\n
Anmerkung zu dyn. Arrays:<\/p>\n
Es gibt die M\u00f6glichkeit ein statisches Array dynamisch zu alloziieren, allerdings nicht zur Laufzeit anzupassen.<\/p>\n
\r\nint hallo = 10;\r\nint i;\r\n\r\nstring test[hallo];\r\n\r\nfor (i=0; i<10; i++)\r\n{\r\n\ttest[i]=i "";\r\n}\r\n\r\nfor (i=0; i<10; i++)\r\n{\r\n\tprint test[i] "\\n";\r\n}\r\n<\/pre>\n
Da ein dynamisches Array allem\u00f6glichen Datentypen enthalten kann, gibt es hier keine Standardfunktion um dieses zur sortieren. Die eingetragenen Daten k\u00f6nnen von beliebigem Typ sein ; z.B. kann auf (1,1) ein String stehen, auf (2,1) ein Object, auf (3,1) eine Attributdefinition etc. Man k\u00f6nnte die Spalte in ein Standard-Array (z.B. string myArray) wie im obigen Beispiel \u00fcbertragen, darin sortieren und danach zur\u00fcckkopieren.<\/p>\n
Es gibt keine M\u00f6glichkeit die Gr\u00f6\u00dfe eines dynamischen Arrays (Anzahl Zeilen) zu ermitteln.
\nDa man aber das Array im Verlauf des Programms mit „put“ gef\u00fcllt hat, wurden dort zwangsl\u00e4ufig die maximalen Koordinaten verwendet; wenn man die gr\u00f6\u00dfte Koordinate also nach der Bef\u00fcllung speichert (typischerweise in globalen Variablen myMaxX, myMaxY), kann man sie ap\u00e4ter wieder nutzen.<\/p>\n
Skip Listen<\/h1>\n
Skip Listen sind assoziative Arrays (PHP), HashMaps (Java) oder Dictionaries (C#) . Laut IBM sind dies sehr effiziente Datenstrukturen.<\/p>\n
\r\nSkip idStringList = createString; \/\/ F\u00fcr String Datentypen\r\nSkip idList = create; \/\/ F\u00fcr nicht-String Datentypen\r\n\r\n\/\/ put Paramater: skip-list, key, value\r\nput (idList, "234-22-2345", "Hallo");\r\n\r\n\/\/ PUT liefert falls zur\u00fcck falls der Wert schon vorhanden ist\r\nput (idList, "123-45-6789", "Welt");\r\n\r\nstring gleichZuweisen;\r\n\/\/ find nutzen um zu testen ob in Skip List vorhanden\r\nif( find(idList, "234-22.2345", gleichZuweisen) )\r\n{\r\n   print gleichZuweisen;\r\n   delete (idList, "234-22.2345");\r\n}\r\n\r\nput(idList "234-222-2222", "world");\r\n\r\n<\/pre>\n
Beispiel um Dubletten mit Skip-Listen rauzufiltern:<\/p>\n
\r\nSkip myList = create;\r\nint numList[] = {1,6,2,3,1,2,1,4,2,5,6,7,2,1,3,4,8};\r\n\r\nint i;\r\nfor (i=0; i<sizeof(numList); i++)\r\n{\r\n   put (myList, numList[i], numList[i]);\r\n}\r\n\r\n\/\/ Iteration durch SkipList\r\nfor i in myList do \r\n{\r\n   print i;\r\n}\r\n\r\n\r\n<\/pre>\n
Iteration durch SkipList mit DxlObject.<\/p>\n
Anmerkung: DxlObject eignet sich prima als Ersatz f\u00fcr ein Model\/Value-Object. Hierzu folgenderma\u00dfen d<\/p>\n
…
\nSkip result = create;
\nDxlObject obj = new();
\nobj->“alarm_id“ = „Bla!“; ….
\nput(result, alarm_id, obj);
\n….<\/p>\n
\r\n\/\/ Iteration durch SkipList\r\nfor myIterator in result do \r\n{\r\n   string keyValue = (string key(result));\r\n   DxlObject currentObject = null;\r\n\r\n   if(find(result, keyValue, currentObject))\r\n   {\r\n       \/\/ Just put the column names here.. it will work\r\n       print (string currentObject->"alarm_id") " ";\r\n       print (string currentObject->"subsystem") " ";\r\n       print (string currentObject->"bitnumber") " ";\r\n       print (string currentObject->"eqwinid") " ";\r\n       print (string currentObject->"eqwintextid") " ";\r\n       print (string currentObject->"eqwinhandling ") "\\n";\r\n   }\r\n}\r\n\r\n<\/pre>\n
Current<\/h1>\n
Current ist eine Referenz auf das momentan selektierte \/ markierte Element und kann ein Project, Folder, Module oder Object sein.<\/p>\n
Wenn man \u00fcber mehrere Objekte eines Moduls iterierts muss es oft explizit das current gesetzt werden.<\/p>\n
Project p = current;
\nFolder f = current;
\nModule m = current;
\nObject o = current;<\/p>\n
current = f;<\/p>\n
\u00dcber das Projekt iterieren<\/h1>\n
\r\nProject p = create("\/Project1","");\r\n\r\nfor name in p do \r\n{\r\n   print name;\r\n}\r\n\r\ncurrent = folder "\/" \r\n\r\nfor itemRef in current  do \r\n{\r\n   print name(itemRef) " " type(itemRef) " \\n";\r\n}\r\n<\/pre>\n
Unterschied zwischen Baseline und Baseline Set<\/h1>\n
Eine Baseline ist ein eingefrorener Stand f\u00fcr ein Modul. Ein Baseline Set ist ein eingefrorener Stand f\u00fcr die gesamte Maschine \/ das Projekt \/ alle Module des Projekts.<\/p>\n
Zugriff auf Attribute eines Moduls<\/h1>\n
\r\nModule m = null;\r\nm=read("\/Projekt\/Modul", true);\r\n\r\nstring modulName = m."Name";\r\nstring attributName = "Created On";\r\nDate createdOn = m.attributeName;\r\n<\/pre>\n
Editieren von Modulattributen<\/h1>\n
\r\ncurrent = folder("\/New Family Car Project\/Requirements");\r\nModule m = edit("System Requirements", true);\r\nm."Description" = "Capri Soft- System requirements";\r\nsave(m);\r\nclose(m);\r\nrefreshDBExplorer();<\/pre>\n
Link Beziehungen<\/h1>\n
ManyToMany beliebig viele Inlinks beliebig viele Outlinks
\nOneToMany beliebig viele Inlinks maximal ein Outlink
\nmanyToOne beliebig viele Outlinks maximal ein Inlink
\nOneToOne maximal ein Outlink maximal ein Inlink<\/p>\n
Zugriff auf Attribute<\/h1>\n
identifier(o): Die Doors-Containernummer (z.B. UR12)
\nnumber(o): Sagt was aus \u00fcber die Stellung in der Hierarchie
\nlevel(o): Gibt die Tiefe der Schachtelung zur\u00fcck
\nleaf(o): Gibt true zur\u00fcck, wenn das Objekt keine Unterobjekte hat.<\/p>\n
\r\n\/\/ Modul manuell \u00f6ffnen und im Modul-Men\u00fc Tools -> "Edit DXL" \r\nModule m = current;\r\n\r\nObject o;\r\n\r\nfor o in m do \r\n{\r\n   print number(o) " \\t\\t"identifier(o) "    ";\r\n   print o."Object Heading" " ";\r\n   print o."Object Text" "\\n"\r\n}\r\n<\/pre>\n
Navigation durch Kindkapitel eines Objektes<\/h1>\n
Object erstesKind = first(o);
\nObject letztesKind = last(o);
\nObject vorherige = previous(o);
\n… next(o)
\n… first sibling(o)
\n… last sibling(o)
\n… next sibling(o)<\/p>\n
Bsp.: Z\u00e4hle alle Kinder eines Kapitels:<\/p>\n
\r\nModule m = current;\r\nObject oChild, o = current;\r\n\r\nint count = 0;\r\nfor oChild in o do \r\n{\r\n   count++;\r\n}\r\n\r\nprint count " ";\r\n<\/pre>\n
Loop \u00fcber alle Links jedes Linkmoduls<\/h1>\n
Folgendes Beispiel iteriert \u00fcber die Outgoing links (->) jedes Linkmoduls („*“)<\/p>\n
\r\n\/\/ Modul \u00f6ffnen und auf Tools -> Edit DXL \r\nModule m = current;\r\nLink derLink;\r\nObject objekt ;\r\nint linkAnzahl = 0;\r\nSkip eindeutigeZielModule;\r\n\r\nfor objekt in m do\r\n{\r\n   for derLink in objekt->"*" do\r\n   {\r\n      linkAnzahl++;\r\n      \r\n\r\n      \/\/ Der Name des Ziel Moduls;\r\n      print fullName target(derLink) " \\n";\r\n\r\n   }\r\n}\r\n\r\nprint "Es gibt " linkAnzahl " Outgoing Links!";<\/pre>\n
Mit diesem Beispiel kann man sich die Outgoing Links in einem Layout DXL ausgeben lassen<\/p>\n
Link lnk;\r\nstring textToShow = "";\r\nbool isFirst = true;\r\n\r\nfor lnk in obj->"*" do\r\n{\r\n\tstring tmn=fullName target(lnk);\r\n\r\n\tif(!open module tmn)\r\n\t{\r\n\t\tread(tmn,false);\r\n\t}\r\n\r\n\tObject tgt = target(lnk);\r\n\r\n\tif(isFirst)\r\n\t{\r\n\t\ttextToShow = identifier(tgt) "" textToShow ;\r\n\t}\r\n\telse\r\n\t{\r\n\t\ttextToShow = identifier(tgt) "\\n"  textToShow;\r\n\t}\r\n\r\n\tisFirst = false;\r\n\r\n}\r\n\r\ndisplayRich (textToShow "");\r\n<\/pre>\n
Bei Incoming Links muss das SourceModul immer ge\u00f6ffnet werden:<\/p>\n
\r\n\/\/ Modul \u00f6ffnen und auf Tools -> Edit DXL \r\n\r\nvoid handleInLinks(Object einObjekt)\r\n{\r\n   LinkRef eineLinkReferenz;\r\n   string modulWoDerIncomingLinkHerkommt;\r\n\r\n   print identifier(einObjekt) " \\n";\r\n\r\n   for eineLinkReferenz in einObjekt<-"*" do\r\n   {\r\n     modulWoDerIncomingLinkHerkommt= fullName source (eineLinkReferenz);\r\n     print modulWoDerIncomingLinkHerkommt;\r\n\r\n   }\r\n}\r\n\r\nModule m = current;\r\n\r\nLink lnk;\r\nLinkRef lref;\r\nObject o;\r\nint numLinks = 0;\r\nstring srcModuleName;\r\n\r\nfor o in current Module do \r\n{\r\n   for lref in o<-"*" do\r\n   {\r\n     srcModuleName = fullName source (lref);\r\n\r\n     if (!open module srcModuleName)\r\n     {\r\n        read(srcModuleName, false);\r\n     }\r\n   }\r\n}\r\n\r\nfor o in m do\r\n{\r\n  handleInLinks(o);\r\n}\r\n<\/pre>\n
Eine weitere M\u00f6glichkeit bietet das Iterieren \u00fcber die Module der Inlinks. Man kann sie z.B. in einer Schleife \u00f6ffnen.<\/p>\n
\r\nstring srcModName;\r\nfor srcModName in o<-"*" do\r\n{\r\n   print srcModName "\\n";\r\n}\r\n\r\n\/\/ Voller Pfad der Module zu den IncomingLinks\r\nModName_ srcModRef\r\nfor srcModRef in o<-"*" do\r\n{\r\n    print fullName(srcModRef) "\\n";\r\n}\r\n<\/pre>\n
Hier ein Beispiel f\u00fcr ein Layout DXL, das alle Incoming Link Objekte ausgibt<\/p>\n
\r\nLinkRef lRef;\r\nLink aLink;\r\nModName_ srcModRef;\r\nint inCount = 0;\r\n\r\nObject anObj = obj;\r\n\r\nfor lRef in anObj <- "*" do { \r\n\r\n string smn = fullName(source(lRef)) \r\n\r\n  if (! open(module(smn))) { \r\n      oMod = read(smn, false) \r\n   } \r\n} \r\n\r\nfor aLink in anObj <- "*" do \r\n{ \r\n         Object src = source aLink;\r\n          displayRich( identifier(src) "");\r\n} \r\n<\/pre>\n
Alle Attribute eines Moduls ausgeben<\/h1>\n
\r\nModule m=read("System Requirements", false);\r\n\r\nAttrDef adRec;\r\n\r\nfor adRec in m do \r\n{\r\n   if(!adRec.system)\r\n   {\r\n      print adRec.typeName " attribute: " adRec.name " \\n";\r\n   }\r\n}\r\n<\/pre>\n
Rechnen in Layout DXL<\/h1>\n
Wenn man auf einer Spalten\u00fcberschrift in einem Doors Modul rechte Maustaste -> Properties -> Layout DXL -> Browse \u00f6ffnet, kann man in eine Spalte hinzuf\u00fcgen um z.B. zu rechnen.<\/p>\n
Die Variable obj ist die aktuelle Zeile.<\/p>\n
\r\nreal cost, result;\r\nint noPerDay;\r\n\r\ncost = obj."Cost";\r\nnoPerDay = obj."No per day";\r\nresult = cost * realOf(noPerDay);\r\ndisplay result "";\r\n<\/pre>\n
Filtern und Sortieren<\/h1>\n
Filter und Sortierungen k\u00f6nnen miteinander verkn\u00fcpft werden<\/p>\n
\r\nModule m=read("Stakeholder Requirements", false);\r\n\r\nFilter f, f1, f2;\r\nSort s1,s2,s;\r\n\r\ns1 = descending("Cost");\r\ns2 = ascending("Priority");\r\n\r\nf1 = attribute "Cost" > "1000.0"\r\nf2 = attribute "Cost" < "2000.0"\r\nf3 = contains (attribute "Object Text", "shall", false);\r\n\r\n\/\/ Filter verkn\u00fcpfen\r\nf = f1 << f2 << f3;\r\n\r\n\/\/ Sortierungen verkn\u00fcpfen\r\ns = s1 << s2;\r\n\r\nset(m,f);\r\nset(m,s);\r\nfiltering on;\r\n<\/pre>\n
In Datei schreiben<\/h1>\n
\r\nStream output = write("c:\\\\datafile.txt");\r\nObject o;\r\nreal cost;\r\n\r\nfor o in current Module do\r\n{\r\n   cost = o."Cost";\r\n   output << cost "\\n";\r\n}\r\n<\/pre>\n
Lesen…<\/p>\n
\r\nprint fileExists("C:\\\\meinedate.txt") " ";\r\nStream eingabe = read "C:\\\\meinedate.txt";\r\n\r\nstring costLine;\r\n\r\nwhile(!end(eingabe))\r\n{\r\n   input >> costLine;\r\n   print costLine "\\n";\r\n}\r\nclose(eingabe);\r\n<\/pre>\n
User Interfaces<\/h1>\n
DB: Dialog Box
\nDBE: Dialog Box Element<\/p>\n
OnChange-Ereignisse \u00fcber callback()-Funktion, die mit Set auf das DBE gesetzt wird. set(DBE dbe, callbackfkt)<\/p>\n
\r\nDB bierDialogBox = create ("Bier Type", styleStandard);\r\n\r\nstring meineRadioButtonListe[] = {"Heineken", "Becks", "Krombacher", "Licher"};\r\nDBE bierName=field(bierDialogBox, "Biername:", "Schnaps", 20,false);\r\nDBE radioButton = radioBox (bierDialogBox, "Biersche:", meineRadioButtonListe, 0);\r\nDBE datumFeld = date (bierDialogBox, 30, today, true);\r\nDBE slider = slider (bierDialogBox, "", 5,0,10);\r\n\r\nvoid printOrder(DB win)\r\n{\r\n   string customer = get bierName;\r\n   int radioButtonNummer = get radioButton;\r\n   string radioButtonStyle=meineRadioButtonListe[radioButtonNummer];\r\n   print "Ein " radioButtonStyle " bier vom " customer "";\r\n}\r\n\r\napply (bierDialogBox, "Print", printOrder);\r\n\r\nshow bierDialogBox;\r\n<\/pre>\n
History<\/h1>\n
Die History wird mit einer Baseline abgespeichert und beginnt von vorne. D.h. das History-Objekt ist auf einem gerade gebaselintem Modul leer.<\/p>\n
Bsp.-Anwendungsf\u00e4lle<\/b><\/span><\/p>\n
    \n
  • \u00c4nderungsreports<\/li>\n
  • Recherche \u00fcber \u00c4nderungen<\/li>\n<\/ul>\n
    Discussions<\/h1>\n
    Eine Chat\u00e4hnliche Option sind Discussions. Sie werden in der Baseline abgelegt aber nicht ins Archiv eingepackt. Discussions setzen nur Leserechte voraus. Derjenige der die Discussion ausgel\u00f6st hat ist der einzige, der sie schlie\u00dfen kann.<\/p>\n
    Probleme mit Rechten: Kein Zugriff auf ein Objekt<\/h1>\n
    Wenn man keine Zugriffsrechte auf ein Objekt hat kann mit<\/p>\n
    \r\ninherited(o);\r\n<\/pre>\n
    Das Objekt auf die Rechte des parents gesetzt werden.<\/p>\n
    Einfaches isNumeric<\/h1>\n
    \r\nbool isNumeric(string einString)\r\n{\r\n   int x;\r\n   for (x=0; x<length(einString); x++)\r\n   {\r\n      if( (!isdigit(einString[x]) ) << (einString[x]!='.' ) << (einString[x]!='-' ) )\r\n      {\r\n\t\treturn false;\r\n      }\r\n   }\r\n   return true;\r\n}\r\n\r\n\r\nstring eineZahl = "12.345";\r\nprint isNumeric(eineZahl) "";\r\n<\/pre>\n
    Installierte und unterst\u00fctzte Codepages anzeigen<\/h1>\n
    \r\nint d;\r\n\r\nint installed=0;\r\nint supported=0;\r\n\r\nprint "INSTALLED:\\n";\r\nfor d in installedCodepages do\r\n{\r\n\tprint d "\\n";\r\n\tinstalled++;\r\n}\r\nprint "\\n\\n\\nSUPPORTED:\\n";\r\nfor d in supportedCodepages do\r\n{\r\n\tprint d "\\n";\r\n\tsupported++;\r\n}\r\n\r\nprint "Installed: " installed "\\n";\r\nprint "Supported: " supported "\\n";\r\n<\/pre>\n