Dieses Makro prüft die Existenz einer `.sashdat`-Datei in einer CASLIB. Es verwendet die CAS-Aktion `table.fileinfo`, die über `dosubl()` ausgeführt wird, um die Dateiliste abzurufen. Um die Leistung bei mehreren Aufrufen zu optimieren, wird das Ergebnis in einer lokalen WORK-Tabelle (definiert durch `outprefix`) zwischengespeichert. Das Makro gibt 1 zurück, wenn die Datei existiert, sonst 0.
Datenanalyse
Type : EXTERNE
Die Daten stammen aus den Systeminformationen des CAS-Servers (Dateiliste in einer CASLIB), die über `PROC CAS` abgerufen werden.
1 Codeblock
PROC CAS Data
Erklärung :
Dieser bedingte Block prüft, ob der Cache existiert. Andernfalls wird `dosubl` verwendet, um `PROC CAS` und die Aktion `table.fileinfo` auszuführen, um die Dateien der Bibliothek aufzulisten, gefolgt von einem DATA-Schritt, um nur `.sashdat`-Dateien zu filtern und die Cache-Tabelle zu erstellen.
Dieser bedingte Block prüft, ob der Cache existiert. Andernfalls wird `dosubl` verwendet, um `PROC CAS` und die Aktion `table.fileinfo` auszuführen, um die Dateien der Bibliothek aufzulisten, gefolgt von einem DATA-Schritt, um nur `.sashdat`-Dateien zu filtern und die Cache-Tabelle zu erstellen.
Kopiert!
| 1 | %IF %sysfunc(exist(&outprefix._&lib)) ne 1 %THEN %DO; |
| 2 | %let rc=%sysfunc(dosubl(%nrstr( |
| 3 | /* Read in table list (once per &lib per session) */ |
| 4 | PROC CAS; |
| 5 | TABLE.fileinfo RESULT=source_list /caslib="&lib"; |
| 6 | val=findtable(source_list); |
| 7 | saveresult val dataout=&outprefix._&lib; |
| 8 | QUIT; |
| 9 | /* Only keep name, without file extension */ |
| 10 | DATA &outprefix._&lib; |
| 11 | SET &outprefix._&lib(where=(Name like '%.sashdat') keep=Name); |
| 12 | Name=upcase(scan(Name,1,'.')); |
| 13 | RUN; |
| 14 | ))); |
| 15 | %END; |
2 Codeblock
SAS Functions
Erklärung :
Dieser Block fragt die lokale Cache-Tabelle über die Funktionen `open` und `fetch` ab, um zu prüfen, ob der angeforderte Tabellenname (`&ds`) vorhanden ist, und gibt das boolesche Ergebnis (1 oder 0) zurück.
Dieser Block fragt die lokale Cache-Tabelle über die Funktionen `open` und `fetch` ab, um zu prüfen, ob der angeforderte Tabellenname (`&ds`) vorhanden ist, und gibt das boolesche Ergebnis (1 oder 0) zurück.
Kopiert!
| 1 | /* Scan table for hdat existence */ |
| 2 | %let dsid=%sysfunc(open(&outprefix._&lib(where=(name="&ds")))); |
| 3 | %syscall SET(dsid); |
| 4 | %let rc = %sysfunc(fetch(&dsid)); |
| 5 | %let rc = %sysfunc(close(&dsid)); |
| 6 | |
| 7 | /* Return result */ |
| 8 | %IF "%trim(&name)"="%trim(&ds)" %THEN 1; |
| 9 | %ELSE 0; |
Dieses Material wird von We Are Cas "wie besehen" zur Verfügung gestellt. Es gibt keine ausdrücklichen oder stillschweigenden Garantien hinsichtlich der Marktgängigkeit oder Eignung für einen bestimmten Zweck in Bezug auf die hierin enthaltenen Materialien oder Codes. We Are Cas ist nicht verantwortlich für Fehler in diesem Material, wie es jetzt existiert oder existieren wird, noch bietet We Are Cas technischen Support dafür an.
Urheberrechtsinformationen : Mathieu Blauw
