-
Notifications
You must be signed in to change notification settings - Fork 0
Expand file tree
/
Copy pathmm__createfolder_8sas_source.html
More file actions
129 lines (126 loc) · 20 KB
/
Copy pathmm__createfolder_8sas_source.html
File metadata and controls
129 lines (126 loc) · 20 KB
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
<!-- HTML header for doxygen 1.8.14-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/xhtml;charset=UTF-8"/>
<meta http-equiv="X-UA-Compatible" content="IE=9"/>
<meta name="generator" content="Doxygen 1.8.14"/>
<meta name="viewport" content="width=device-width, initial-scale=1"/>
<title>MacroCore: meta/mm_createfolder.sas Source File</title>
<link href="tabs.css" rel="stylesheet" type="text/css"/>
<script type="text/javascript" src="jquery.js"></script>
<script type="text/javascript" src="dynsections.js"></script>
<link href="navtree.css" rel="stylesheet" type="text/css"/>
<script type="text/javascript" src="resize.js"></script>
<script type="text/javascript" src="navtreedata.js"></script>
<script type="text/javascript" src="navtree.js"></script>
<script type="text/javascript">
/* @license magnet:?xt=urn:btih:cf05388f2679ee054f2beb29a391d25f4e673ac3&dn=gpl-2.0.txt GPL-v2 */
$(document).ready(initResizable);
/* @license-end */</script>
<link href="search/search.css" rel="stylesheet" type="text/css"/>
<script type="text/javascript" src="search/searchdata.js"></script>
<script type="text/javascript" src="search/search.js"></script>
<script type="text/javascript">
/* @license magnet:?xt=urn:btih:cf05388f2679ee054f2beb29a391d25f4e673ac3&dn=gpl-2.0.txt GPL-v2 */
$(document).ready(function() { init_search(); });
/* @license-end */
</script>
<link href="doxygen.css" rel="stylesheet" type="text/css" />
<link REL="icon" HREF="https://boemskats.com/wp-content/uploads/2018/05/favicon.png">
<link href="new_stylesheet.css" rel="stylesheet" type="text/css"/>
</head>
<body>
<div id="top"><!-- do not remove this div, it is closed by doxygen! -->
<div id="titlearea" style='background-color:white' >
<table cellspacing="0" cellpadding="0">
<tbody>
<tr style="height: 26px;">
<td id="projectlogo"></td>
<td>
<div id="projectname">
<a href=".">
<img alt="Macro Core" src="https://boemskats.com/wp-content/uploads/2018/05/boemska2014retina_V2.png" height=60/>
</a>
<a href=".">
<img alt="Macro Core" src="./Macro_core_website_1.png" height=60/>
</a>
</div>
</td>
<td>
<table style="padding-left: 2em;" cellspacing="0" cellpadding="0">
<tr><td> Production Ready Macros for SAS Application Developers</td></tr>
</table>
</td>
<div class="header">
<div class="headertitle">
<td> <div id="MSearchBox" class="MSearchBoxInactive">
<span class="left">
<img id="MSearchSelect" src="search/mag_sel.png"
onmouseover="return searchBox.OnSearchSelectShow()"
onmouseout="return searchBox.OnSearchSelectHide()"
alt=""/>
<input type="text" id="MSearchField" value="Search" accesskey="S"
onfocus="searchBox.OnSearchFieldFocus(true)"
onblur="searchBox.OnSearchFieldFocus(false)"
onkeyup="searchBox.OnSearchFieldChange(event)"/>
</span><span class="right">
<a id="MSearchClose" href="javascript:searchBox.CloseResultsWindow()"><img id="MSearchCloseImg" border="0" src="search/close.png" alt=""/></a>
</span>
</div>
</td>
</tr>
</tbody>
</table>
</div>
<!-- end header part -->
<!-- Generated by Doxygen 1.8.14 -->
<script type="text/javascript">
/* @license magnet:?xt=urn:btih:cf05388f2679ee054f2beb29a391d25f4e673ac3&dn=gpl-2.0.txt GPL-v2 */
var searchBox = new SearchBox("searchBox", "search",false,'Search');
/* @license-end */
</script>
</div><!-- top -->
<div id="side-nav" class="ui-resizable side-nav-resizable">
<div id="nav-tree">
<div id="nav-tree-contents">
<div id="nav-sync" class="sync"></div>
</div>
</div>
<div id="splitbar" style="-moz-user-select:none;"
class="ui-resizable-handle">
</div>
</div>
<script type="text/javascript">
/* @license magnet:?xt=urn:btih:cf05388f2679ee054f2beb29a391d25f4e673ac3&dn=gpl-2.0.txt GPL-v2 */
$(document).ready(function(){initNavTree('mm__createfolder_8sas_source.html','');});
/* @license-end */
</script>
<div id="doc-content">
<!-- window showing the filter options -->
<div id="MSearchSelectWindow"
onmouseover="return searchBox.OnSearchSelectShow()"
onmouseout="return searchBox.OnSearchSelectHide()"
onkeydown="return searchBox.OnSearchSelectKey(event)">
</div>
<!-- iframe showing the search results (closed by default) -->
<div id="MSearchResultsWindow">
<iframe src="javascript:void(0)" frameborder="0"
name="MSearchResults" id="MSearchResults">
</iframe>
</div>
<div class="header">
<div class="headertitle">
<div class="title">mm_createfolder.sas</div> </div>
</div><!--header-->
<div class="contents">
<a href="mm__createfolder_8sas.html">Go to the documentation of this file.</a><div class="fragment"><div class="line"><a name="l00001"></a><span class="lineno"> 1</span> <span class="comment">/**</span></div><div class="line"><a name="l00002"></a><span class="lineno"> 2</span> <span class="comment"> @file</span></div><div class="line"><a name="l00003"></a><span class="lineno"> 3</span> <span class="comment"> @brief Create a metadata folder</span></div><div class="line"><a name="l00004"></a><span class="lineno"> 4</span> <span class="comment"> @details This macro was inspired by Paul Homes who wrote an early</span></div><div class="line"><a name="l00005"></a><span class="lineno"> 5</span> <span class="comment"> version (mkdirmd.sas) in 2010. The original is described here:</span></div><div class="line"><a name="l00006"></a><span class="lineno"> 6</span> <span class="comment"> https://platformadmin.com/blogs/paul/2010/07/mkdirmd/</span></div><div class="line"><a name="l00007"></a><span class="lineno"> 7</span> <span class="comment"></span></div><div class="line"><a name="l00008"></a><span class="lineno"> 8</span> <span class="comment"> The macro will NOT create a new ROOT folder - not</span></div><div class="line"><a name="l00009"></a><span class="lineno"> 9</span> <span class="comment"> because it can't, but more because that is generally not something</span></div><div class="line"><a name="l00010"></a><span class="lineno"> 10</span> <span class="comment"> your administrator would like you to do!</span></div><div class="line"><a name="l00011"></a><span class="lineno"> 11</span> <span class="comment"></span></div><div class="line"><a name="l00012"></a><span class="lineno"> 12</span> <span class="comment"> The macro is idempotent - if you run it twice, it will only create a folder</span></div><div class="line"><a name="l00013"></a><span class="lineno"> 13</span> <span class="comment"> once.</span></div><div class="line"><a name="l00014"></a><span class="lineno"> 14</span> <span class="comment"></span></div><div class="line"><a name="l00015"></a><span class="lineno"> 15</span> <span class="comment"> usage:</span></div><div class="line"><a name="l00016"></a><span class="lineno"> 16</span> <span class="comment"></span></div><div class="line"><a name="l00017"></a><span class="lineno"> 17</span> <span class="comment"> %mm_createfolder(path=/Tests/some folder)</span></div><div class="line"><a name="l00018"></a><span class="lineno"> 18</span> <span class="comment"></span></div><div class="line"><a name="l00019"></a><span class="lineno"> 19</span> <span class="comment"> @param path= Name of the folder to create.</span></div><div class="line"><a name="l00020"></a><span class="lineno"> 20</span> <span class="comment"> @param mdebug= set DBG to 1 to disable DEBUG messages</span></div><div class="line"><a name="l00021"></a><span class="lineno"> 21</span> <span class="comment"></span></div><div class="line"><a name="l00022"></a><span class="lineno"> 22</span> <span class="comment"> @version 9.4</span></div><div class="line"><a name="l00023"></a><span class="lineno"> 23</span> <span class="comment"> @author Allan Bowe</span></div><div class="line"><a name="l00024"></a><span class="lineno"> 24</span> <span class="comment"></span></div><div class="line"><a name="l00025"></a><span class="lineno"> 25</span> <span class="comment">**/</span></div><div class="line"><a name="l00026"></a><span class="lineno"> 26</span> </div><div class="line"><a name="l00027"></a><span class="lineno"> 27</span> %macro mm_createfolder(path=,mDebug=0);</div><div class="line"><a name="l00028"></a><span class="lineno"> 28</span> %local dbg errorcheck;</div><div class="line"><a name="l00029"></a><span class="lineno"> 29</span> %<span class="keywordflow">if</span> &mDebug=0 %then %let dbg=*;</div><div class="line"><a name="l00030"></a><span class="lineno"> 30</span> %let errorcheck=1;</div><div class="line"><a name="l00031"></a><span class="lineno"> 31</span> </div><div class="line"><a name="l00032"></a><span class="lineno"> 32</span> data _null_;</div><div class="line"><a name="l00033"></a><span class="lineno"> 33</span>  length objId parentFolderObjId objType parent child $200</div><div class="line"><a name="l00034"></a><span class="lineno"> 34</span>  folderPath $1000;</div><div class="line"><a name="l00035"></a><span class="lineno"> 35</span>  call missing (of _all_);</div><div class="line"><a name="l00036"></a><span class="lineno"> 36</span>  folderPath = cats(symget(<span class="stringliteral">'path'</span>));</div><div class="line"><a name="l00037"></a><span class="lineno"> 37</span> </div><div class="line"><a name="l00038"></a><span class="lineno"> 38</span>  * <span class="keyword">remove</span> any trailing slash ;</div><div class="line"><a name="l00039"></a><span class="lineno"> 39</span>  <span class="keywordflow">if</span> ( substr(folderPath,length(folderPath),1) = <span class="charliteral">'/'</span> ) then</div><div class="line"><a name="l00040"></a><span class="lineno"> 40</span>  folderPath=substr(folderPath,1,length(folderPath)-1);</div><div class="line"><a name="l00041"></a><span class="lineno"> 41</span> </div><div class="line"><a name="l00042"></a><span class="lineno"> 42</span>  * name must not be blank;</div><div class="line"><a name="l00043"></a><span class="lineno"> 43</span>  <span class="keywordflow">if</span> ( folderPath = <span class="stringliteral">''</span> ) then <span class="keywordflow">do</span>;</div><div class="line"><a name="l00044"></a><span class="lineno"> 44</span>  put <span class="stringliteral">"%str(ERR)OR: &sysmacroname PATH parameter value must be non-blank"</span>;</div><div class="line"><a name="l00045"></a><span class="lineno"> 45</span>  end;</div><div class="line"><a name="l00046"></a><span class="lineno"> 46</span> </div><div class="line"><a name="l00047"></a><span class="lineno"> 47</span>  * must have a starting slash ;</div><div class="line"><a name="l00048"></a><span class="lineno"> 48</span>  <span class="keywordflow">if</span> ( substr(folderPath,1,1) ne <span class="charliteral">'/'</span> ) then <span class="keywordflow">do</span>;</div><div class="line"><a name="l00049"></a><span class="lineno"> 49</span>  put <span class="stringliteral">"%str(ERR)OR: &sysmacroname PATH parameter value must have starting slash"</span>;</div><div class="line"><a name="l00050"></a><span class="lineno"> 50</span>  stop;</div><div class="line"><a name="l00051"></a><span class="lineno"> 51</span>  end;</div><div class="line"><a name="l00052"></a><span class="lineno"> 52</span> </div><div class="line"><a name="l00053"></a><span class="lineno"> 53</span>  * check <span class="keywordflow">if</span> folder already exists ;</div><div class="line"><a name="l00054"></a><span class="lineno"> 54</span>  rc=metadata_pathobj(<span class="stringliteral">''</span>,cats(folderPath,<span class="stringliteral">"(Folder)"</span>),<span class="stringliteral">""</span>,objType,objId);</div><div class="line"><a name="l00055"></a><span class="lineno"> 55</span>  <span class="keywordflow">if</span> rc ge 1 then <span class="keywordflow">do</span>;</div><div class="line"><a name="l00056"></a><span class="lineno"> 56</span>  put <span class="stringliteral">"NOTE: Folder "</span> folderPath <span class="stringliteral">" already exists!"</span>;</div><div class="line"><a name="l00057"></a><span class="lineno"> 57</span>  stop;</div><div class="line"><a name="l00058"></a><span class="lineno"> 58</span>  end;</div><div class="line"><a name="l00059"></a><span class="lineno"> 59</span> </div><div class="line"><a name="l00060"></a><span class="lineno"> 60</span>  * <span class="keywordflow">do</span> not create a root (one level) folder ;</div><div class="line"><a name="l00061"></a><span class="lineno"> 61</span>  <span class="keywordflow">if</span> countc(folderPath,<span class="charliteral">'/'</span>)=1 then <span class="keywordflow">do</span>;</div><div class="line"><a name="l00062"></a><span class="lineno"> 62</span>  put <span class="stringliteral">"%str(ERR)OR: &sysmacroname will not create a new ROOT folder"</span>;</div><div class="line"><a name="l00063"></a><span class="lineno"> 63</span>  stop;</div><div class="line"><a name="l00064"></a><span class="lineno"> 64</span>  end;</div><div class="line"><a name="l00065"></a><span class="lineno"> 65</span> </div><div class="line"><a name="l00066"></a><span class="lineno"> 66</span>  * check that parent folder exists ;</div><div class="line"><a name="l00067"></a><span class="lineno"> 67</span>  child=scan(folderPath,-1,<span class="charliteral">'/'</span>);</div><div class="line"><a name="l00068"></a><span class="lineno"> 68</span>  parent=substr(folderpath,1,length(folderpath)-length(child)-1);</div><div class="line"><a name="l00069"></a><span class="lineno"> 69</span>  put parent=;</div><div class="line"><a name="l00070"></a><span class="lineno"> 70</span>  rc=metadata_pathobj(<span class="stringliteral">''</span>,cats(parent,<span class="stringliteral">"(Folder)"</span>),<span class="stringliteral">""</span>,objType,parentFolderObjId);</div><div class="line"><a name="l00071"></a><span class="lineno"> 71</span>  <span class="keywordflow">if</span> rc<1 then <span class="keywordflow">do</span>;</div><div class="line"><a name="l00072"></a><span class="lineno"> 72</span>  put <span class="stringliteral">"%str(ERR)OR: &sysmacroname: parent folder does not exist! "</span> parent;</div><div class="line"><a name="l00073"></a><span class="lineno"> 73</span>  put (_all_)(=);</div><div class="line"><a name="l00074"></a><span class="lineno"> 74</span>  stop;</div><div class="line"><a name="l00075"></a><span class="lineno"> 75</span>  end;</div><div class="line"><a name="l00076"></a><span class="lineno"> 76</span> </div><div class="line"><a name="l00077"></a><span class="lineno"> 77</span>  call symputx(<span class="stringliteral">'parentFolderObjId'</span>,parentFolderObjId,<span class="charliteral">'l'</span>);</div><div class="line"><a name="l00078"></a><span class="lineno"> 78</span>  call symputx(<span class="stringliteral">'child'</span>,child,<span class="charliteral">'l'</span>);</div><div class="line"><a name="l00079"></a><span class="lineno"> 79</span>  call symputx(<span class="stringliteral">'errorcheck'</span>,0,<span class="charliteral">'l'</span>);</div><div class="line"><a name="l00080"></a><span class="lineno"> 80</span> </div><div class="line"><a name="l00081"></a><span class="lineno"> 81</span>  &dbg put (_all_)(=);</div><div class="line"><a name="l00082"></a><span class="lineno"> 82</span> run;</div><div class="line"><a name="l00083"></a><span class="lineno"> 83</span> </div><div class="line"><a name="l00084"></a><span class="lineno"> 84</span> %<span class="keywordflow">if</span> &errorcheck=1 %then %<span class="keywordflow">return</span>;</div><div class="line"><a name="l00085"></a><span class="lineno"> 85</span> </div><div class="line"><a name="l00086"></a><span class="lineno"> 86</span> <span class="comment">/* now create the folder */</span></div><div class="line"><a name="l00087"></a><span class="lineno"> 87</span> </div><div class="line"><a name="l00088"></a><span class="lineno"> 88</span> filename __newdir temp;</div><div class="line"><a name="l00089"></a><span class="lineno"> 89</span> options noquotelenmax;</div><div class="line"><a name="l00090"></a><span class="lineno"> 90</span> %local inmeta;</div><div class="line"><a name="l00091"></a><span class="lineno"> 91</span> %let inmeta=<AddMetadata><Reposid>$METAREPOSITORY</Reposid><Metadata></div><div class="line"><a name="l00092"></a><span class="lineno"> 92</span>  <Tree Name=<span class="stringliteral">'&child'</span> PublicType=<span class="stringliteral">'Folder'</span> TreeType=<span class="stringliteral">'BIP Folder'</span> UsageVersion=<span class="stringliteral">'1000000'</span>></div><div class="line"><a name="l00093"></a><span class="lineno"> 93</span>  <ParentTree><Tree ObjRef=<span class="stringliteral">'&parentFolderObjId'</span>/></ParentTree></Tree></Metadata></div><div class="line"><a name="l00094"></a><span class="lineno"> 94</span>  <NS>SAS</NS><Flags>268435456</Flags></AddMetadata>;</div><div class="line"><a name="l00095"></a><span class="lineno"> 95</span> </div><div class="line"><a name="l00096"></a><span class="lineno"> 96</span> proc metadata in=<span class="stringliteral">"&inmeta"</span></div><div class="line"><a name="l00097"></a><span class="lineno"> 97</span>  out=__newdir verbose;</div><div class="line"><a name="l00098"></a><span class="lineno"> 98</span> run;</div><div class="line"><a name="l00099"></a><span class="lineno"> 99</span> </div><div class="line"><a name="l00100"></a><span class="lineno"> 100</span> %<span class="keywordflow">if</span> &mDebug ne 0 %then %<span class="keywordflow">do</span>;</div><div class="line"><a name="l00101"></a><span class="lineno"> 101</span>  <span class="comment">/* write the response to the log for debugging */</span></div><div class="line"><a name="l00102"></a><span class="lineno"> 102</span>  data _null_;</div><div class="line"><a name="l00103"></a><span class="lineno"> 103</span>  infile __newdir lrecl=32767;</div><div class="line"><a name="l00104"></a><span class="lineno"> 104</span>  input;</div><div class="line"><a name="l00105"></a><span class="lineno"> 105</span>  put _infile_;</div><div class="line"><a name="l00106"></a><span class="lineno"> 106</span>  run;</div><div class="line"><a name="l00107"></a><span class="lineno"> 107</span> %end;</div><div class="line"><a name="l00108"></a><span class="lineno"> 108</span> </div><div class="line"><a name="l00109"></a><span class="lineno"> 109</span> filename __newdir clear;</div><div class="line"><a name="l00110"></a><span class="lineno"> 110</span> </div><div class="line"><a name="l00111"></a><span class="lineno"> 111</span> %mend;</div></div><!-- fragment --></div><!-- contents -->
</div><!-- doc-content -->
<li class="footer"><b>Generated by</b>
<a href="http://www.doxygen.org/index.html">
<img class="footer" src="doxygen.png" alt="doxygen"/></a>
<i> For more information visit the </i> <a href="https://github.com/Boemska/macrocore">Boemska MacroCore library</a>.</li>
</ul>
</div>
</body>
</html>