Meine Hochachtung an Tom_Wende und FreelanceReinhard an einem Samstag SAS Fragen zu beantworten! ... View more

What about searching the communities? Here is already a high quality example: https://communities.sas.com/t5/SAS-Communities-Library/Using-DS2-to-parse-JSON-from-a-REST-API/ta-p/229885 ... View more

Update:   Die Videoaufzeichnungen der Veranstaltung sind nun auch über http://www.sas.com/de_de/events/15/big-data-analytics-forum-2015/register-live-stream.html verlinkt. Nach der Registrierung bekommt man den Zugang zum Videoarchiv. ... View more

Hallo Hans, die Tags sind beim Umzug scheinbar verloren gegangen Aktuell findet man die Beiträge aus dem Archiv am Besten über die Historie des RedscopeArchiv Benutzers, der die Beiträge gepostet hat. Der Link hierzu lautet: https://communities.sas.com/t5/forums/recentpostspage/post-type/message/user-id/727   Wir Moderatoren wurden von der Umstellung auch etwas überrascht und sind noch dabei die Möglichkeiten der neuen Plattform auszuloten. Ich bitte daher noch um etwas Geduld.   Viele Grüße, Andreas ... View more

DATA labor; input probe testident $ ergebnis einheit $ grenzw_ind $; put _all_; cards; 1 Ca/S 2.04 mmol/l - 1 Cl/S 116 mmol/l + 1 TGL 217 mg/dl + 2 Ca/S 2.36 mmol/l + 2 Cl/S 101 mmol/l - 2 UA/S 6.7 mg/dl + 3 Ca/S 1.86 mmol/l - 3 Cl/S 97 mmol/l - 3 TGL 35 mg/dl - RUN; options symbolgen; %macro anlegen(st_test); format &st_test._value $10. &st_test._unit $10. &st_test._flag_patho $5.; %mend anlegen; %macro merken(st_test); retain &st_test._value; retain &st_test._unit; retain &st_test._flag_patho; %mend merken; %macro leer(st_test); &st_test._value = ""; &st_test._unit = ""; &st_test._flag_patho = ""; %mend leer; %macro bedingung(lim_test, st_test); /* Wenn hier Datastep-Code anstelle von Makrocode generiert wird, läuft das Programm */ if &testid = &lim_test then do; &st_test._value = ergebnis; &st_test._unit = einheit; &st_test._flag_patho = grenzw_ind; end; %mend bedingung; DATA labor2; format h_probe 5.; set work.labor; %anlegen (ca) %anlegen (cl) %anlegen (trg) %anlegen (ua) /* Darf ich den Strichpunkt hier setzen? Ja, sinnlos ist er trotzdem :-) */ if probe=h_probe then do; %merken (ca) %merken (cl) %merken (trg) %merken (ua) /* Darf ich den Strichpunkt hier setzen? Ja, sinnlos ist er trotzdem :-) */ end; else do; %leer (ca) %leer (cl) %leer (trg) %leer (ua) /* Darf ich den Strichpunkt hier setzen? Ja, sinnlos ist er trotzdem :-) */ end; /* An dieser Stelle müsste der Aufruf des Makros „bedingung“ erfolgen, a la…*/ %bedingung (Ca/S, ca); %bedingung (Cl/S, cl); %bedingung (TRG, trg); %bedingung (UA/S, ua); /*… allerdings mit der Zuweisung einer laufende Variablen (testident) statt der gerade gezeigten Aufrufe. Dass es so nicht funktionieren kann, ist mir klar, weil die Makros vor dem DataStep ausgeführt werden. Aber wie kann’s funktionieren? Mit call symputx? Aber wie? */ call symputx ('testid', testident); /* call symputx: Ausführung zur Laufzeit des DataSteps*/ h_probe=probe; retain h_probe; RUN; Wenn das Makro %Bedingung Datastep code generiert funktioniert es auch 🙂 ... View more

Hallo Christian, Quelle 1 wird auf den meisten SAS Systemen scheitern, da die Option NOXCMD auf SAS Servern als Standard gesetzt ist (das sollte auch besser so bleiben). Es ist aber auch gut möglich, dass der Windows Administrator die Verwendung des Tools untersagt hat. Quellen 2 und 3 beschreiben einen anderen Weg. Hier wird direkt die Windows API über die Einbindung von C-DLLs aus dem C:\Windows\System32 Ordner auf die Registry zugegriffen. Das ist aus meiner Erfahrung heraus relativ fehleranfällig und mühselig. Hinzu kommt, dass SAS keine brauchbaren Fehler liefert und das Debugging zur Geduldsprobe wird. Allgemein ist noch zur Windows Registry zu sagen, dass es eine 32bit und eine 64bit Registry gibt. Wenn du versuchst aus einen 64bit SAS Prozess heraus auf den Schlüssel aus der 32bit Registry zuzugreifen, musst du evtl. in einem anderen Pfad suchen. Versuche es einmal mit HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\7-Zip\Path. Wenn es sich irgendwie vermeiden lässt, solltest du auf Abfragen gegen die Registry verzichten. Da es bei deiner Anfrage um ein ZIP Tool handelt, könntest du unter SAS 9.4 auch die neue ZIP Filename Engine verwenden, oder deinen Windows Administrator bitten den Pfad von 7ZIP in die PATH-Umgebungsvariable mit aufzunehmen, damit man das Tool auch ohne den vollen Pfadnamen aufrufen kann. Viele Grüße, Andreas ... View more

So wie ich das Problem sehe, kennt die Remotesitzung das Makro %STAMM nicht. Alles zwischen RSUBMIT und ENDRSUBMIT bzw. SIGNOFF wird als reiner Text an die Remotesitzung geschickt. Makros und Makrovariablen werden nicht aufgelöst. Daher muss man auch Makrovariablen per %syslput an die Remotesitzung übergeben, damit diese dort verwendet werden können. Zur Lösung des Problems: Variante 1: das Makro %Stamm in der Remotesitzung definieren Variante 2: das Makro %Stamm lokal ausführen und das Ergebnis in eine Makrovariable schreiben, dann die Makrovariable per %syslput an die Remotesitzung übergeben und an Stelle von %stamm die neue Makrovariable verwenden. Ich hoffe das Problem kann hierdurch gelöst werden. Viele Grüße, Andreas Menrath ... View more

Hallo , zunächst vielen Dank für die Organisation und Durchführung dieses schönen Webinars. Um die Sache rund zu machen, poste ich noch ein paar weitere Details: Die Videoaufzeichnung dieses spannenden Webinars ist unter Webinar@Lunchtime: SAS Data Step 2 - next generation - YouTube frei verfügbar. Die PowerPoint-Folien können unter http://www.sas.com/content/dam/SAS/bp_de/doc/education/lunchtime/sas-webinar-20150730.pdf abgerufen werden. Das nächste Webinar@Lunchtime ist auch schon angekündigt. Aktuelle Informationen gibt es unter: Webinar@Lunchtime Ebenfalls schöne Grüße aus Heidelberg, Andreas Menrath ... View more

Zuletzt habe ich das Ganze auch noch als DataStep 2 Programm implementiert: proc ds2; data FizzBuzz(overwrite=yes);   dcl int number;   dcl char(8) formatted;   method fizzBuzz(int zahl) returns varchar(8);       if(mod(zahl,3*5) = 0)         then return('FizzBuzz');       if(mod(zahl,3) = 0)         then return('Fizz');       if(mod(zahl,5) = 0)         then return('Buzz');       return(strip(put(zahl, 8.)));   end;   method init();     do number = 1 to 100;       formatted = fizzBuzz(number);       output;     end;   end; enddata; run; quit; Das Programmieren mit DS2 macht allerdings unter SAS 9.4 M2 wirklich keinen Spaß. Man muss zwar etwas umdenken im Vergleich zum klassischen Datastep, aber das ist nicht das Problem. Vielmehr vermisse ich Möglichkeiten zum Debugging meines DS2-Codes. An vielen Stellen erhält der Anwender noch nicht einmal eine Fehlermeldung an welcher Stelle ein Problem auftritt. Stattdessen gibt es nur einen generischen Fehler: Das Programm war jetzt noch sehr überschaubar. Wie aufwändig die Fehlersuche bei größeren DS2-Codeblöcken wird, will ich mir an dieser Stelle gar nicht erst vorstellen... Hoffentlich bessert SAS an dieser Stelle mit M3 und Folgeversionen noch nach! ... View more

Die Makro-Lösung war auch schnell erstellt: %macro FizzBuzz(num);   %local result;   %if (%sysfunc(mod(&num,3*5)) = 0) %then %do;     %let result = FizzBuzz;   %end;   %else %if (%sysfunc(mod(&num,3)) = 0) %then %do;     %let result = Fizz;   %end;   %else %if (%sysfunc(mod(&num,5)) = 0) %then %do;     %let result = Buzz;   %end;   %else %do;     %let result = #   %end; %* return result; &result. %mend FizzBuzz; Man kann das Makro nun vielseitig einsetzbar in unterschiedlichen Szenarien einsetzen, z.B. : %put result 5=%FizzBuzz(5); %put result 3=%FizzBuzz(3); %put result 15=%FizzBuzz(15); %put result 2=%FizzBuzz(2); data ausgabe;   result = "%FizzBuzz(10)"; run; %macro print();   %do i=1 %to 100;     %put %FizzBuzz(&i);   %end; %mend print; %print; Ich persönlich finde jedoch die FCMP Lösung besser und eleganter als die Makro-Umsetzung. ... View more

Hallo zusammen, ich möchte nun meine Lösungen an dieser Stelle vorstellen. Die FCMP und Format-Lösung ist nahezu identisch zur Lösung von Hr. Kothenschulte: proc fcmp outlib=work.functions.codekata;   function fizzbuzz(zahl) $;     if(mod(zahl,3*5) = 0)       then return("FizzBuzz");     if(mod(zahl,3) = 0)       then return("Fizz");     if(mod(zahl,5) = 0)       then return("Buzz");     return(strip(put(zahl, 8.)));   endsub; run; options cmplib=work.functions; proc format;   value fizzbuzz other=[fizzbuzz()]; run; data fbdata;   attrib fbvar     length=8     format=fizzbuzz.     label="numeric value with cool custom FizzBuzz format" ;   do fbvar=1 to 100;     output;   end; run; Durch das Format auf den Daten bekommt man auch eine schöne Ausgabe z.B. im Enterprise Guide: ... View more

Mit diesem Skript lassen sich die Vergleichsdaten erzeugen: data comp;   length expected_result $8;   input expected_result $; datalines; 1 2 Fizz 4 Buzz Fizz 7 8 Fizz Buzz 11 Fizz 13 14 FizzBuzz 16 17 Fizz 19 Buzz Fizz 22 23 Fizz Buzz 26 Fizz 28 29 FizzBuzz 31 32 Fizz 34 Buzz Fizz 37 38 Fizz Buzz 41 Fizz 43 44 FizzBuzz 46 47 Fizz 49 Buzz Fizz 52 53 Fizz Buzz 56 Fizz 58 59 FizzBuzz 61 62 Fizz 64 Buzz Fizz 67 68 Fizz Buzz 71 Fizz 73 74 FizzBuzz 76 77 Fizz 79 Buzz Fizz 82 83 Fizz Buzz 86 Fizz 88 89 FizzBuzz 91 92 Fizz 94 Buzz Fizz 97 98 Fizz Buzz ; run; ... View more