1 ;*';*";*/;quit;run; 2 OPTIONS PAGENO=MIN; 3 %LET _CLIENTTASKLABEL='Upload to LASR (2)'; 4 %LET _CLIENTPROCESSFLOWNAME='Degree Candidates'; 5 %LET _CLIENTPROJECTPATH='/Programs/Degrees Awarded and Candidates.egp'; 6 %LET _CLIENTPROJECTPATHHOST=''; 7 %LET _CLIENTPROJECTNAME='Degrees Awarded and Candidates.egp'; 8 9 ODS _ALL_ CLOSE; 10 ODS PROCTITLE; 11 OPTIONS DEV=ACTIVEX; 12 GOPTIONS XPIXELS=0 YPIXELS=0; 13 FILENAME EGSR TEMP; 14 ODS tagsets.sasreport13(ID=EGSR) FILE=EGSR 15 STYLE=HTMLBlue 16 STYLESHEET=(URL="file:///C:/Program%20Files%20(x86)/SASHome/x86/SASEnterpriseGuide/7.1/Styles/HTMLBlue.css") 17 NOGTITLE 18 NOGFOOTNOTE 19 GPATH=&sasworklocation 20 ENCODING=UTF8 21 options(rolap="on") 22 ; NOTE: Writing TAGSETS.SASREPORT13(EGSR) Body file: EGSR 23 24 GOPTIONS ACCESSIBLE; 25 /* Insert custom code before task code here */ 26 options fullstimer; 27 28 /* Status Checkpoint Macro */ 29 %macro statuscheckpoint(maxokstatus=4, varstocheck=SYSERR SYSLIBRC ); 30 %GLOBAL LASTSTEPRC; 31 %LET pos=1; 32 %let var=notset; 33 %let var=%SCAN(&varstocheck.,&pos.); 34 %DO %WHILE ("&VAR." ne ""); 35 /* Retrieve the next return code to check */ 36 %if (%symexist(&VAR.)) %then %do; 37 %let val=&&&VAR..; 38 %if (("&VAL." ne "") and %eval(&VAL. > &maxokstatus.)) %then %do; 39 %put FAIL = &VAR.=&VAL. / SYSCC=&SYSCC.; 40 %let LASTSTEPRC=&VAL.; 41 %end; 42 %end; 43 %let pos = %eval(&pos.+1); 44 %let var=%SCAN(&varstocheck.,&pos.); 45 %END; 46 %mend; 47 48 49 %macro codeBody; 50 %GLOBAL LASTSTEPRC; 51 LIBNAME TMP00002 SASIOLA HOST="sas.master.edu" PORT=10011 TAG="OPT.SASVA" 52 53 /* Remove existing table from LASR if loaded already */ 54 %macro deletedsifexists(lib,name); 55 %if %sysfunc(exist(&lib..&name.)) %then %do; 56 proc datasets library=&lib. nolist; 2 The SAS System 12:10 Friday, April 27, 2018 57 delete &name.; 58 quit; 59 %end; 60 %mend deletedsifexists; 61 62 FOOTNOTE; 63 FOOTNOTE1 "Generated by the SAS System (&_SASSERVERNAME, &SYSSCPL) on %SYSFUNC(DATE(), NLDATE20.) at %SYSFUNC(TIME(), 63 ! TIMEAMPM8.)"; 64 %deletedsifexists(TMP00002, CANNED_DIPL_NAME_ADDR); 65 /* Loading through the SASIOLA Engine */ 66 data TMP00002.CANNED_DIPL_NAME_ADDR ( ); 67 set WORK.CANNED_DIPL_NAME_ADDR ( ); 68 run; 69 70 %mend; 71 72 %codeBody; NOTE: Libref TMP00002 was successfully assigned as follows: Engine: SASIOLA Physical Name: SAS LASR Analytic Server engine on host 'sas.master.edu', port 10011 NOTE: There were 33 observations read from the data set WORK.CANNED_DIPL_NAME_ADDR. NOTE: The data set TMP00002.CANNED_DIPL_NAME_ADDR has 33 observations and 41 variables. 73 %statuscheckpoint; FAIL = SYSERR=1016 / SYSCC=1016 74 /* Register Table Macro */ 75 %macro registertable( REPOSITORY=Foundation, REPOSID=, LIBRARY=, TABLE=, FOLDER=, TABLEID=, PREFIX= ); 76 %if %symexist(LASTSTEPRC) %then %do; 77 %if %eval(&LASTSTEPRC. <= 4) %then %do; 78 /* Mask special characters */ 79 %let REPOSITORY=%superq(REPOSITORY); 80 %let LIBRARY =%superq(LIBRARY); 81 %let FOLDER =%superq(FOLDER); 82 %let TABLE =%superq(TABLE); 83 %let REPOSARG=%str(REPNAME="&REPOSITORY."); 84 %if ("&REPOSID." ne "") %THEN %LET REPOSARG=%str(REPID="&REPOSID."); 85 %if ("&TABLEID." ne "") %THEN %LET SELECTOBJ=%str(&TABLEID.); 86 %else %LET SELECTOBJ=&TABLE.; 87 %if ("&FOLDER." ne "") %THEN 88 %PUT INFO: Registering &FOLDER./&SELECTOBJ. to &LIBRARY. library.; 89 %else 90 %PUT INFO: Registering &SELECTOBJ. to &LIBRARY. library.; 91 proc metalib; 92 omr ( 93 library="&LIBRARY." 94 %str(&REPOSARG.) 95 ); 96 %if ("&TABLEID." eq "") %THEN %DO; 97 %if ("&FOLDER." ne "") %THEN %DO; 98 folder="&FOLDER."; 99 %end; 100 %end; 101 %if ("&PREFIX." ne "") %THEN %DO; 102 prefix="&PREFIX."; 103 %end; 104 select ('CANNED_DIPL_NAME_ADDR'); 105 run; 3 The SAS System 12:10 Friday, April 27, 2018 106 quit; 107 %end; 108 %end; 109 %mend; 110 %registerTable( 111 LIBRARY=%nrstr(/Products/SAS Visual Analytics Administrator/Visual Analytics LASR) 112 , FOLDER=%nrstr(/Graduates and Degree Candidates) 113 ); 114 115 LIBNAME TMP00002; NOTE: Libref TMP00002 has been deassigned. 116 %LET LASTSTEPRC=0; 117 FOOTNOTE; 118 119 120 GOPTIONS NOACCESSIBLE; 121 %LET _CLIENTTASKLABEL=; 122 %LET _CLIENTPROCESSFLOWNAME=; 123 %LET _CLIENTPROJECTPATH=; 124 %LET _CLIENTPROJECTPATHHOST=; 125 %LET _CLIENTPROJECTNAME=; 126 127 ;*';*";*/;quit;run; 128 ODS _ALL_ CLOSE; 129 130 131 QUIT; RUN; 132