pax_global_header00006660000000000000000000000064145277355020014524gustar00rootroot0000000000000052 comment=8c6b5e4b25dc22dc24eb08f0f5bd717e4755a52e macroarray-1.2.3/000077500000000000000000000000001452773550200136675ustar00rootroot00000000000000macroarray-1.2.3/README.md000066400000000000000000000014531452773550200151510ustar00rootroot00000000000000### `macroArray` - Macroarrays for macro codes --- The **macroArray** package implements an array, a hash table, and a dictionary concept in macrolanguage. For example: ```sas %array(ABC[17] (111:127), macarray=Y); %macro test(); %do i = 1 %to 17; %put &i.) %ABC(&i.); %end; %mend; %test() %let %ABC(13,i) = 99999; /* i = insert */ %do_over(ABC, phrase=%nrstr( %put &_i_.%) %ABC(&_i_.); ), which = 1:H:2 ); ``` SHA256 digest for the latest version of `macroArray`: F*A0840B92EB9356EDB318DBE9B579A345C85ABF69E8D5F7C73C144C66F2F74FB4 [**Documentation for macroArray**](./macroarray.md "Documentation for macroArray") To work with a package use the [**SAS Packages Framework**](https://github.com/yabwon/SAS_PACKAGES/blob/main/README.md "SPFinit"). macroarray-1.2.3/hist/000077500000000000000000000000001452773550200146365ustar00rootroot00000000000000macroarray-1.2.3/hist/1.0.1/000077500000000000000000000000001452773550200152735ustar00rootroot00000000000000macroarray-1.2.3/hist/1.0.1/macroarray.zip000066400000000000000000001421661452773550200201710ustar00rootroot00000000000000PKlU;j description.sasVmo6n@b@bκOSo0'mE"5#!oQ[ӥH6{9t` q B;̅DkSo䌧l}خI:\Kz(<(P`1g9rg*3;B -y͑ q{w;w|0tj۴1朏Wx1W! ]Pځ*R4:,#o0C7:2>ppFy['%bSޣtI!pNJ h%^ ~g3P 8*l/ :;6҈ OE{QY4h %GEN{3f&&z`_vv>ˋMё9^wf(ւl3RS'(L~QwAqm Wh kexvۼ~[w:{j kK.\bn*&9B W{pCm<:6{CR5F ;ug鍽9ɔ J_ƹ^> S>gM1žú' ]v40x;~(m\аYm.׊)a8S^y9j#vhq4F|ePM4V$1}5ՖLjAP bASWYp}QV!\Ε&7AzuFWBSMx 8؅CeL@@7KF'sd,*j>K2Qe*ymO"0-JNP6|hXBm `mSV1E $F)_ X*)dIk+Uz2ؒ1R,v҄tp:NKFVw}\D )M{ ~jhPKlU*riG license.sas]RK0GqڕLb!I qbdL`w"!gg}7[3|KQxoC=1.^N XP3h(hQ>p4>\8݁޶F!!t=T k7~RȌ@͗\L9>8Ik8w=I|ڊ#={ AV8髧dn0O3Ľ;,z*z$&`x=10h}o"'ZjS,nDQ=:k46Pvҵv _p 6SGv[j`o[Ceܱ7#>NMG},,90APId<=K`#en'$+- `"K$k(eU EQ:#X b%dmJ 5LdsfB4.J *&s&Z˪9ȐB _y@YKGl$YR<.XyƱ8s~\i*#P%`<͒SF%IˢL0l^Q5d!f"XX+ ޝG轮+#dHVxJ2W PKlU;packagemetadata.sas= @ w2)HMpQAANU$g=z^".@yG{.ݏPd-]ʸTA^؃W#e=U=vG?ɭ`$d e&OuqNJ:4&e<pJ>JV8:ܑmvd8>Z?9gXp7|̬އt}#wPKlUL9  iceloadpackage.sas͗[O0ߑHReX@Hi/IH`'8IKKGi7U#?$߄! #.Q@R SÄ8[܇ʡ`z2@v%K\wLЧQ!S`e+03pBpKPwK:wW07Ch6'GZgBI(g*!.^bPw8}jaCK4]s sĭ9-l!K%y"["lϜ6K !y ԊFa$+ղZiVY$ CaYC$tyHdYyzPLT1Ba  ufk+ڽAHNŴu3(D PA "HxLAc0=6a 1@'|:ArLFcJ\)Z`FBͼ~3qڂT<[Wϝww<َ< UiljbX5!XD[_@P6 AqVcVPra! :׷+Gc/p|9ZĤ@X|p0?OFٕ /eCXAd$#6N}Lh5ŕaЏ!.ۇ3 ,8^48]OceP"˜1Tm$W3W:UIY+S/XLA=UDύdv#uwGw|y_ڽBaDP RC36 hoz5(1eߑs&FB j̖=t0B]1[FU䒚 F'#sҼ-E='EuᡲF):TޝD INO00^ <* !V(YœmXA&9:hIf en:eJ0^&Crt*_N}sysq{_Jd= W?\6rTwa ?szXkMڗ24SM> կu^q$t^&X|;}>8[y-#ʙ>,%ĹTYU6䫤t<#-J급u\ahA5m)slXTչ,W*rk8E 5wzهL^ r0,wJ3qa$94to_lHJRrM;M]E'roR1ug{{PnXSc.A^cRͶ3q1GZ_?w_j V߃k\|>ㄠ"23%L!PwS߭/[m̪XRJmhlxtTKnn%S*FDc{¨J笐rz-M鎭BMicJnΠE ,oa| #,Cg(ߘ fۥk+(HT#ƛPxE rupu\M,8FVy[tt嚏#v[|䡍 wݜ"KV6o?1b9BVIKFU6ga(4OK[*氰^Pn6LVQđ3yO8pL O?fqFIwauqtג2v׋--LKtd}\k Ee$U{>)-K[$}ʝ>߶?m_tr1ke*#UwF#t #GbytBk׵ pUeO`TE Ъߨ|}hʹ WV .o;UyO=VQUQjgk_WOV6']~5=۵SKߙw:B)[8Ea=̙f%,~f{e>U]xE\Q(]BL#8B*-]!)bs$q>?"$bxIlzfɞv+AlE6,:ޫ:+Xr <BWU=js: Y%;C Jc*WgS"o`PKlUq unload.sasX]s6}L];)K̔38Y&)mFȖcd鯯$1,%ust=) q@`pqY>s8<8<-)S?{@YqUx"1YgYUnu._Rȵi(fG*x1J/gxSK>[13aVaN}c\-O@@u*?/, I˚^+[~5%MI@BljD'!%i$fRX@8H8JO)LL%ki.֤кm?#PZPvٓPAqv\<P)~r5чSJQAvv!~ؘɬ/;rS/ya: vXϺǯxm?JJ-~?Vr;Nn-{Rc>"Youٵ?oQJߝ:'!bM V3te:eT!)>4" Heԟ>Aͨn%_W-+gس\%GU~[|[M]~KwoJb,3F󤬤Z _0u6eO kM=16ojv^2tŸIG6ʵ!xX|'B.1mԯ<3j>}.b?22 =@ݒЀ'M=qV alumkPi{i?Hb6BHf˓MMeY>CȢEV!Gi!$Fw#@/~# ]Ͼ\m!SwAZ]wn+lpT&JJΕYh,sBړ0C?5 4"JRXm=Z7ֵ=B2)6v,&2 p3$*OO0]bpT!˻q6*7qȩ=IAٰOPd3۝~۾5({0'[:>+ͣc~ӗPnlH)OAz koicze$c|4Ox 6*@FKR`㑥 v0?5q˧Jw5b AYb[xi<+ oWw0&PZ0C0>C^(oM(d!F{O sV#hAuEК'^V&5-$hQu~<14 %x%4+Յ҃|U="6FNK]iw!Qy ,͡ [ϡ\V89 < L=X LB_프kXKќ3RjdoPFU_BzG#Uӎ3~*qycMjAUe}sxcͲJR2Uƺ{x\dPDG[,µtʢ\!gGu P$U^T(v2**)_l]DDH*}T峚e>G?2uZ]` $my@o`kMܴtKہ~~*m6-g3koyOQ=ze)-f0 {-X֖AMNR#{&vì:Ter)MƋ 3ق0sqcFLC$ޔ'lW>D/qvvW廎Qɸ7e?vPKlUN%N\!help.sasZms8 as 66iڃiLS ]y[$˱ŵJ %@6djHHܼ`Yg~zJ'ќz2zj I9wqczS#qfi6%aBd ^I2H@_zPoa>5j[V8s0-/?*qY> XY>Ex$bٞaqă>YDC2[0's{X>` c:e?hb'+enH݁xh0odh-Uuѹg< 4s܌S'4-Q8`c$Ba wX|-ˏx,/Ԯ[^3eXZп׷_baFOisK%^r^0ږB bF ඌH:g/j%ͯJ(8N Z}g HqKzB5.Gݾ} 4p?Z^J}=,!͠OiB*8}?X2. 0ZIp6mAZ֒o P-j'JI7j8Txq! sՙҍT6* VkAUXJG!߹|&ebV.gm쨂\VPeBX@DD JqȂX"YE kŋY@XhjGь>rE=I+F& f50g`֠HQy5a;^2`iHP$ p` ̮jEXULq00g[GBXm'av#c?P8ANJ"fdvGonk2m}t.oK>uq㝁ˆ |'rדx5vdG_]K^d*CbLGGe1-0O\ ̇‹䧟0KxhDSWܗcc`F wG(7Tcć4_!M=ɷ^F^GGnQҰp|*қ4JK{o|ϯ (ya+CvߪM WoU+PKlU _001_macro.appendarray.sasV[o6~7p,ɲt71.! :CMKM"]>tRǍӢ5K' Cx5:} h6a8,TRn(Hd R=/BH:dkh6.t 0 +eTQ-X¹4 1T^o(aZ[ckH \^R r54 B( AB^`Iq9cJMEz.+G74+ ؗ%*_̩SǴ"}׿n>MfZrcS6L#7 8؈#'Da UlpD7FFl o6؊` TK̹X9)|þ0qhoǒ)xRڬ|ɑz,@펺enu8ޒtwR<28Ly|#KK@ͩ)B`rIhdZI׼ ǘ+32lPKlUhiP/{_001_macro.appendcell.sasY[oH~G?q/˾l%4"i5 VSe7M9e2ɖp];9Eɲ,Pi=vK%+l߯r˛O0bpyy |6e#Z6.K >,l&yxy(If3,ɤzSM), m;r@ 7}{;;;ax4ơ}"B|tΗ$]KrPS?`UZ u~i$(1`$'Rg3]SLZf= \|((]Od3&l"UU(sHWSs=I#?AjBWUȏD[A#4I=uBÞ!,.x?-!Y"8d HؤMp{}45h ct&[k~J8ڱ  D:lȩ?7T80˦ %ڰ(׫rHڧs}qA%;5TIs]s~ivK l}lӌ&#)xr&=X(kU B {UVD-:tBP:ƪ;Hcqoy,; EX ݾqe[FO{F ;O ]VBz[kVpۼoUn/v}W'\̇c* (5J!),KA=2Wi2;`9nȽHT~u@Tqbm2pг"iUY%D)fMj68D%âVFRXkHBqD6.fJj>@SܨΗvR"Z>Z=&J wiBUa]zкr>)n"Kz5g tYN((P7#AUmpty)g@j6itRAG Gnk"[tvz?7* kVqN/,w},\:|u(:, 'iW+a@k_QCOSӊS:D rPkC{t KXê%0")zMJ<0{KVy>悢ĆذoHlQ gJO:"G5:^ߎO>͑~[~yyJH=\:tgMXpaQr<^2)ۮKq n5XZJ_Ou9 LB~`)u{2dr 'wA)HkC7@th" d,C,^F?qpĈS!<)۔|0yzRpteIx_V̟BؐS>x-nI%z-(27 j3ZVu< ui5( SIy gj ?e=1׳Q|3gxPKlU]71po_001_macro.array.sas=kwHsNCY83cBvCdmx2>99 C H6oUu^Ğ{LhuWWWUףbȎ['oy1[|=}{%lYo-5}f؋/ ֌7 Lo /_Z/ٳ'O gޘYf]-b9r'(2+[?H2ŕp?=} Xe!T[kk¡ /Cء; ,DW#0wa7XbXvcufw4 w1=,PȃEg eCl> (:t¬F`Zw%ƍP|3۱|@zZ!v. KyClg0$ /j?B!L7>(hvȆˮ8w|,w5D>0ĭzB-ta M}+IKa xT )%j#Sq >{xx8&'pLv,ј,└|} (wB`f@8w21)7 $Z7:(L}P_+_۶> @I EUQVQ]$x:^Y4bl|'` }ڙ)yܹbA AkN:%˕Ä"?(]0+`G unX?<}"G()5^W8/k Տё?2'*QM˧ZpbӟqCRxCߦA4a~}]q:X N4ɳ0M,;ڤP%'f˦/~`wfʴsumly(-Z+\au[k/+gsJӳi(K)Ίǻ@ AZTP w8҅N1J#ɡ;h3 &n`-Au.Iu3;( kܔ@`ܱo! 8A)A >/ GµQ`)dJTz '@霣 L@l"f4R9V_ZPyNh+vB8[̨~?=BC->m>8" "&P9N,$$ ) Z:c9 UHKd(r$urʃ>Z" m);z u; ,ԗ"DE"GҎ$L37sͻ k5(byS1ghTJN!rɂ#&h('6SY8P/Fܱgq !Nn˗y6*(:jg9Z >8K03H ^`QG{D KA/t}$ȁIO掅Ǹ(Unb r{2 /O̚Or0ԚZ>$ED+ZԓӬp\yr"x M~B4YA_`kV@ߵڿ]/f `M3H3}%EV"jE) ( :4毭{JvwV cVb-n/wĤ:@lICQq= GX}=B·_w4ɠc+ KlOQVBb+:ct`3v.9d4;QX 8Z;#hʤhh -DqN"z:iREyw0 f_%K}a|nR4,9#/O^~~4O[ZBJl}  j+\ :!`ff,_Nϖ)v;#Lh*nAdg$}*X&iשҨ{щ|]`"8"XFa킡) qF} ۴"1jEȮK pB\'h>e'7;{k!+Bݳ#v)]#wt׆BYX6P2_*Ȧ@јRHW*l)m+lBvĄmCl<9;lЛ\ųiD' I?4 z&XF rW[(ڝK6ѫ_#?n,jS?%hfx~3*̄fy-%m1cc%SJ֭#܏)D{$H2QGU=tx!wӿ{go(2kZ'-pZ};gBl'HI#OM?Ha+)thWWr\cN|GhGx!ufK ش $ ! :y ΧـMDJNmol|l\M4Nmi-n{m xw1##gh琟x࿋M:j 8n`! @f/^|A<E,g'$̍E-j<:_q) џ5eW]K\F7 vU=k+[zxjN4ǂjB9(#^nmWح$4B^G&OƷ{CBikB@ꌽ;n?F{O{+u߱Ώb\&vhU썑Jzk6|mt&R=4Avc0 {ar(%=r ξlɧ\o6m7d@l?x5츠]Tx<C^iٓ(oלώmv1mq!q)yO3Ǵ#k67^;ް(uI_|` Ĺ@K&%;y̽rtKqVS\UUL:I'l>2^07uX[}zJ-+ ד<1gyY,'r,'r,sύzJ_J#Hc$1T%aL8 10&Ƅ8x  צR,)I$Ą Ij3_ܠ%=lt'~Զ4qΙf +\Ԃ g11X=Q .7*\f$IOiҳ06aR(VVL*b ZQqi]$D|<7qYJ H۹wq̙UR%|P!GajO~'}jMMS%'W 6~>&ߛC{z>0*WbAA; 5^)-=<or ĉ90o̢4:4hGpOg3djD+n98R5*"ЙVuX5Gs o Dp(9c~z}j-cR%Twh#X*(1OR6,f=?~''ZR/u_~ ϟ+9)E=E=E=OTcx ܈`ʨQMVp=q *f]5zƉ2/jZem"0lN7Y_(~!7iH> fRj@A!*<M̄j긮Z~_$Q .eyQ`U* QAMDp%"*Cv64Ni4>T̧V #sd^TO-mvnQS̖@WV$Ҳ'Qp?.׍vq]sRi [XHPVj\ZKkqi-.ݏKquܿ('lfᔇ@ TwY`гJZa- [`uxexexex0w'[~PR폖M?qE*Ef_dd8~EFy_ddZb+Pњpt;: SKi+#J꾃5š)5!Ny&kF*arlcBHѼn䏟đKR: 4}M()Y"i<(잋UzJS-dq 7hsXѶi-NyW=ĩGYg>6 -RxMH|bS:;'y mj CbҶ񙌁Lj>qWD(q٠|) ŲWX<[ mG]观#k,`\x77TI_@d}rySX(}(=G:Ktš^O .7%왿@=*V#IoFO10ļXrN;4iy3ݺ 0<_PKlU%U0_001_macro.concatarrays.sasXmS8=s8/a.дpCLC[ V*Ʉ܇(mlu馲BG-D򧧺lP)?*90h7|V Є5kGd]Xu=L$ kUBW94$jFmȩVDq:¢ٶZW(A+8~՞Kl{$.Y7bK6h8 R X5 A1s1e[QO*fIJ0Ys`mqqhU&f P4 `q|D F 11215 ~" 6gxWKs#[)Jd/iI,DiN#`S ֢:s:4cИpwQ׵8:4 dz"wZMr2 xJXo%Ó?PKlUPuU _001_macro.do_over.sasYQsH~wC'>0҂lk*&)۹]W*i0: H힑 9l47=4ww{''%8O  &̍D ...A& zP^^^ˣ+<b1^+!1 ~(~=qr6?&}=--lw*ss ,LB,ybCEln3?d΃S(T݇|xns ā42 %-(+?=C&}<3R?>ֵ/e]4EȂϲuxd yOOS #GJU=Uoa\!C8;wel3nLxKt#_n-zj[)hy?'/T|Q@21X̠$УoisK1DB 9$Sԝce)8)ʘw)h5$ +˩Caz4]9"3tDSYM)8z, #J\D(1\$z  (! &[dލC'"F( ]JxUD+i@MNˍu΢^\`57#R?)IB5  !Kb1Ak94𹗡$\@\Bdf 3˱Hoyi]+^Hr]shKH-<稪|R*18LP+gfh]{fKg5`E+ʚB1#MH܈L (&Ɍ/uRqh8EL`fܤg;`@8vDu:64 ^ޒ~r}k&' #&<o,Yѿy{J>ݯU5ӀB"[Y,F@J`ҿ(ѣ? s E*2sM)1PKE`YmUnH2];bjT~D Խv6٢܄7%dٓj eTЯ MM@Ô[녛r¬2Y%7gɪC a,v\.WIPh$CrEkTbvZʼn(YY"&r*}c豀 电 ~Ȟ,G0cbFPHqVL_ۯdb%p dNJ6UĖ驺޺M@+ߢ+xRƪҵİZ{J0ĀNQέ*4iC6 (lE{T,JƄNdn~s]$܇|^[XP\,'#|zSEz#f([aCh~>p\^_TƱ\(f)ո>Z YiJ ?Fz( ?ۏb8{Zi mXi 7 ($YZ2`8 ލOa?+!'˃iA 2\ WAÃvUUȘ@`I{O}SKf)UTIk߅⽏}|w;f1v AA&ZB43DL)rj6}Uh ̤ؗ y,5bRiD5Xf嚈(j6f)(.[䉥Lʑ{bT,/ -BG\B<{BX-3c}:l1X#c2]dw2.m[lNbc!6F rI=. >̰堑wahmCWvm蟘?pn|0!9y7l9ʗLj0DhTF\uА?(TJ.6[+ Srʄ˥2|;3B3WDo%EvTb$sc/&IYdk9c=$͸syPV=~8wbCm ūA5s;xS`V]V +Lo!5h7ގYnaXJZ:LDx5!'g}iVR}Ђ0{ß;SpM׽6!؆eg7~x:D>p1AxpkkNʃqlLO/>C g'^ඇ6*4pKܥs(yQꎝR$jesFo |y{u+Yo6—͗ 鰛mcP*8X>g+k;zsR1<&ڝMT|r;[FGpuΎ Wz-eʧ3 h }:P7Ep@d4]ɳo# ؃LRuW&x*!M*16\^\Ҵy+c]0wmLKuj%ffbݐXBDtLн0-xx!6~JfOojAD XwL?'s0َX#V&ƻm:e#5I슫R>SH -qPKlUkʘv_001_macro.do_over3.sasWmo96ڔ݃Mw.!hB =5*o\zn?ˎ {\WGGAZ-D R@ل&Nfy"jvfGu)ʥ)X$4,՜IhW8z  o KGw3˭!Pyo.uk@T,hLSI4R詤i#R%Ēr `p.]G0'F%׫6p3M LV,2wW'G?Q,|,00>40l!ZJ1LpV'ETT\`%-v]z8jVSI=TZV|{pv޻x{1zA)? 0 AЖlFVPKfm zBdPLXL,m 1ob)ҦIB4Hd<¹UaC# hcܪ Ty1s+ zDEcyal{`S&D.r.bB$K5ܐ43?Qvтh>:” ϋٕu&ָLV6hgU IFEVˌ%IJ uQh稭=}"Z[q Kk'N0ٲ-; q*: ֞}\MQ֯X`p v/AEILG:֝;xǝSsJzG87XUg/7 2n%xdZA2&dS{c3k]j>쮇=;oߪتXO^*;"@a@|:v iūhZOӜ$+ݔޖrrM>ގf*>=xwn篴{6ЪU :CߣFwb&NSW}t>|X{> :ۃ/p 8s/0LͰ]bc l6`<2`VS3T^1֗uo{и{O#+S<Sn5fJ WQyNU<>iiǍMI?nvF} |0SȆS~O>l"w?,9) j+6>*; )Bk1_J6jxE;t(\}aUP'xF/Q1MṮ*ɘ3jzjvn{mU0ƛb{$#%Rk5k6P΍9%$dF&4W cc S3-Xu67Zյ^4)䙙uԂJdKչXբLhZt&KP)xL5vv@eIF KC$|`xPKlUI̦_001_macro.make_do_over.sasXms8 S^ҙ si]{&޴%oWMHXճ8ypoނ'O5e|ˡʣ} SEᐁ`S~T!/0 L8x Gݰœ)j;|; ٢`%'߈]Z9,7S``a( 1?O@Gq /]!p΄9Ӂ,0G`{bj{P7t}shO |(0 ;6]$-)-:fxIE<& @(цPʙ[s J$/MA}rGЄr ]dFKcz WH%ͅCg V5R 5WTćG9 吼[v{ Ԭν2s"DaVI3XbPQa{7wW3P!j`!z$ZcKV޻,R@/ȑ]+_bym7M7׶HxIqm;OjTocD Ȅ~O=P29?A%vvC*Ti4##uv{&SEZv7@wo@?9_؆lBhIz&7}*X|,)cs}c6pʃrԲ]t٭˄*JԳq˭2E-rΒlPVr:ͦ^lHWUmD[kE[E%ZzNIVsK4k#==-gHb[|2_.Ns^bomr%k$$+f ZAƀ7ʇnG5Z Xu!}Se;A:~h uz~18^p>k uFaa.:Cf ˧;F`_ o@bJVa΢@$/sc+ne~Ӥ]iHh?RJP:J(p_ ?vfn5%l \ZmEb6!"9tl>J:Ut*'9KA-&nmpUL !"d}>>CwyˁT{m4FNH}o 7҅=*|h_~{>kԗBk̝؞v`qoJPUh 遀oo7r5w{+4(?cgEt{Kt5grI4zg=F>+_Op\IK N4'n MˆZGp\$ ]vItm t؛d(|PmL)*k f {A2ӇEt ,IPh̛7V=5- ;MR(A`c↚ 5u7 0P44x9bdBoL L5He]5YYn6y~uc`hVмtHRWStqu 3J]T ioLݨ]תsmuÍ`p[:޻ńodcjFj("x`̟?A?ѫ5=p[>!24|pF yXɂUgO`eR5>k cns4cDث7m 80?a ޤgfKE&=n9I*JA)(sLzڛ`>fmoJQ04؍G. ɹyQ[o:9vL]{`(%Y ^D:,"@= Y'}qI䀡jJ ͌+H20,-MS1G#q!oLG4d$Fy#e7MBȦ Hh[bY(r=)4ʇepexFN\h%3GTTfYUsP& haFX)IgR+X *y_`ATw|E,::d(-C~*! կu!1hrMa&\HuyNj ~juVu>_TؓXYܕ[={ XHWX T" /h``!РhЄNx7q(ib%mKAfhz̘&0ͧ  i: [A+HNp[Sґ GX#VhaJu>P:M.#̼8u"w(C7D@3q|s]o +2PX($ǩBpTU<<"Y 3^_\!~}T( |&e J!gk# Ujr߫(>s9T-9TckcCɩb1G*2 }p2,.E_2)y\ӡr!i=1o>a7 T!YhtCA>(O! _2ȡ}io/;Zl^xʂ_-|=|;ɫ] (be!F{KYuO2}Cy/ÐKl6_zς·sn'־@fukJ {ZdSYH3goVr[hQ'>Pnu>\edPg' J闫QytN8jy~8]Y=]J[P.Xt␴4h64㱵wC[H]Q≶wC%~-2çC_j=Wh/.*+n]rW̺2';`+IW|s%IKuoYݕs1es" NW+%Uqno@BT_1U;5 ?t|{m5rcTK+W3jdU[Oq5p(v=e8Cq_<;ۦR'S9:ضU* !`EZFZފNsb1<%)xmIp[s:8tspf/dӾEt6LKE3?JĒtb> S!`8ww1 &o<0]^|Oc<ԅrbU|eG;Q!&0ŗyܧHNа3 B|ꁑHc¼xKV؅mMRۥ4rOw8}I Fj 1%v=saj痭f Ӭ:'$ z~I.Gӕi_QI%λ ֋=~$\# cG]e5ҿ_:J̈́M3`|JdM]RWgt lѱ)ngpA&MKgey?7& { [0fzAHΎdVIvo=v5.$3.0 q01f $ˉb%!>? ,bK2ٯ=eua{a5vt ~O6d Ļq,1[/Pȣz(2'mm 21"̷d/ط<6X!;]݇`NG XtPu,,Sgrk4 x9t G dRઔRelyVu8!׮f[s$K/ nxOQXZ痯76$*V^*  KE/m ߣ-4gs so ˛H*nկ` {w* GBVZi;a0H?`udbQoHEJjA.BȮ`2^y y=a:6-著8^$yz͍DZ;~@h+Xw f4aWZMG0wv5s+p5@'Ѹ֊fV"7`&EzE{!vjc#+'t*>% zٛ_޶*lJmtˁƊ|ީatR1.44KPzfs+,0?kI48M(QWI3Bvp#Rb\L>&lF SDGNr=ř.C}cjUgxu@G aI8T{CAFJ+M5ihʰ1PKlUC`x_001_macro.mchashtable.sas]{sȖU=edf!;qmgnR{@HmP,$" L9[BOCݙfbZ_>}ޒZ;ju; vuݼf𰺻vw^`o߾eռ6xEkFc6D%>^r@KojoًcwgwzsuL̴M5Vq=sdIa7nZ>snJbDU :뎭_cUV՘ez>^OiWzLw&R5`~#nsF5h4aWL,ރ~@Nf2]Uan>qC68એEd@8|f<2utl,Ǯ8gALc456\SwXavus 5ԙ7}큁$8oV0)MrAL}ݝ><݉.Ms=o?ͫnVrjfn$k9k<[W٠;`t%:3]nTk<ђI΢1@ t fHȦm5FF`t@e|BCBd̨PI4?W Tvh+Qk KOh]^OhU!H6|!vXӼiuyR2@w9I`9! g:3Wxr-l M U_JK"1aF7{i#XĄnδw|Y-1 hbqwl\Rqk'Ǎ0G0o1 q g}לLGЃ_:"`]gB ^]𢡄]pffG$oVI2)c!7E%337Q rPy`ypa1lR,!OG>EP`YEKJ`:h.N{l4OpBCMD)ph c~)frUG3$c*9Xv~{w?n3[H;S@2)`@iG~Np+ V-ݝ%"@ԶoLQ4))D 3L=:xQ$Ck,38)$&쇿PnJlФhc1>2dIDؔ+-422Y4b3:[d70C^p(h#ԥSw轱ޠk'P4E9kSO ͎2Y.ɷrٙ 8 0dϛAJWa g{ 3al^}8{};ulxvJ3@M .L@mEk q4ɛ"^:;͆Vih<ׁĈ:Z6ǃhA@VN Yc_4|zSTUrO?[d]kzw#7"ԦkkG`"j;ab@`S]؄ wgL5p(Tg2Ic,{!G(f\ۺf0P 4Q  DTPˣ,{>D:Մ f=Tq EJmHH3v)FfܐKY]}@Z=^` Бe) )@ۛ. d >e!R^W$tXeS? K/j*.RUמT&jCO3=/* *\?˨nQÅARQI\t]-}Ss6LLVΫ+M1AOCm(83-|t޼+_DPR% )vd#YU=Reuk@"-St 9/#kg ^/O.hy g pUB}h5r{ F}^Az&xѬI%!q BSWj-gM1ɇ͚a0*;3i#?֟RA ~T͓PQ&v1ϐGdd&ljk N*uEv+ٷe]=h&y#A{ 2)i%*06IKILSM.<^s\⹹h4 C>gQw &-O鎸Kbq^}<-"CgT .# T81ORǦ_@+3$ oZЈiE5UZͬpd:I¯EuuRTR,DoSШIAJh cnIypD@Nl F,1b)<L ahlyg48 (IGy!yK"Aڟ%_Sg qse'Aw7 ?{Qkf"_sMnG.G>؞W |Fy3߃|2sip3l8WaR>qj;k>'C'NWμ`C9e'IV_wN/yۀGWm8y[x1w{^pϸkS8G|'փjf/U'5Hr3sKI\N=~cdX_AZ7*OVL n}z$ gx}%{;{xlL9c=<&_.n m/2ݝˏg7d;mݝ ٖ c ^oB?n.=eSPv<;edzsYv<;eGhIyeRyInVa3a).w[)^oŪpjjFKYA[F*:!]~JHֈb%BtjVb [Y؜1H鈑WN-)}6xVtb=I|7з2 -; J7+!X Tc pς6N'b{`OӋ^犂WVsάENhәPI -K@r/N2^b6VlR50B5ldnAYlk4jf%>G/A1fSK/H==:}?6A\:g\f$07*(#ʏvlwz |zݾV^8:O4WL5м NfxrCBQob-ЍZ_rlp-XSDž><1;G Nd"T8gG%?䇟oIf޽K6ZdS,ZgXH(#il _cf-T|]XPQH0Zp/ q|yy[:MX/S0^S8lq ZAFѶ&S3$e-Dm`+.YDkrϱb f|y|oaR Fx&c D   8"iԶaLV?qbf^A%}r]}띞_Ca 5 ! Gcl/8 r\QuzQ5y&Ŋͦt[кɍQ}ȕL.eB4w?߁5݂ԝ뾃g PRewn\.>^LA=Ľh8wf^}bSBzWP@M?|U9b͙М09IPr\]á4{.gY dG7 9^2f!g="ޑԊg āT&pMV͠#o`pɭqv$]Fma?vh!"*smx9h{ھpa(LqPKlUv+2 V._001_macro.qziparrays.sasZs'΀rW񔸴u4ci1 aB?ܿp{Eytj[1qk^s~YvFs f)-x`bƑ>8?;f$7sِ${uD>!س"._p/ 9O,))x|IR@-?x=qfB"=!MUDKaF ܆D $Z̵bEEF$/YhRƸuB~fTGQ bmC6 (}aĂTBP{ !)GǏ;`.63GX̑U74I g]pT`-|1 PÙ|֜Bb3i'u$q!r#H_n:N2Y.-5[8A!'9ZD FhWE>E>g'Ss&/Lr^(E oCNL`ś&#ENZCTitӬTj},C+p )0:M@_G!eKfq9F:fc$[$"ј|> ccCJD՞!g9_$l\T;V&]L./Pf(n E+<ꩭ: 6=b*5'1+8 q4W8 yRprҾ .Eb^yLE "Kz \ijG\xѬ+ҍHWs0:S] jڷ4V{ { _lɦɮ5Uc':Tbh*yguUr%#%?x@rfIDT,ЊsEEFgE[E#-SzfE%mLdPaVyD&mo`&0*m(C"X:nGT8Ek4X"~rBExTԄieK5ٻQ> ~& X'%P7%xVw*UX]TEn[7;uU5$O('C*jc9JC ~R[LOBӻnDwI.b- g.4&ȲQ% l-7D;\~>.Q#!=Ipn%k`S݁ ɛz7] $&t!{ןZ_^_ߠ!m(p ie8ǖ W y|[gjx;ZJ=phylKcW[ (ُ 1M[ 5:ꐹa< ӆi'5 5p{ى|e)"H悾]_[š(>KQ$nEʬA+g,ɀp=!BZʢl9fYz[9)4+'+t9xB:ʬHD[);p[%jUSZ&6k{E#(jUΏۺ!ڨӝ S5#s>nƦɸNN8}y"AoA]]QbjO]Z@`P6I$uᇟ)N[EuDٳuY\(;>?bɝkѥAz'\GPOϬ*@kB{C0UrZOy%\p-5I~ñNЧO){4M < EYj<|$ loWzNaSYI{aUa\5mǭw%V(ci$^' ~F*aUẉNWgkk)hP˜'&D[4XufA`a8ne:vW6숂؃r_,!V6gKҀEGO^ kdN=r# M4+[4(^5(dj7ǭJ|Mh X=B i;nc .WW0kM_NÛAW ) 2ScA1);_QX@P3Q%BL1 %8Y*/67gsoR/Ґ{|+N7,P6hX~_b;3cؙPKlUV_001_macro.sortmacroarray.sasWko9 a(Zʰ"YD""*pMR} [v"9s) hotR!tK0D+拤!{;C Z j bq/CVzձk%V/@'TaӃqN0LA%x#+ 1] a 1@2ܱp%pO+o߼G5r㉚f!Nre0fJcPݕ꿹2 cL&SExRԏÚu䃳Q,HBVө_tjZ/]Sb-]nq*4&<YPN,3l5v G|2 b]LI_{yd%cdyDnCԴJe"Yb0L&1q>!Vx0hߴZޜ]{K\%"܅<leeyo\5N_vژF|?6I%5J2%bv)H|uQvEk=KXoZ.`沦l{?~B/f/)r/ td][%PE^[@r.x: ;l]~<}Z zCwܣtE O* Mo .E@nك4dF>TMNޓ%G6wd tB -vZi†}Nqz9{RM Qme4 ^dBl])}c&ʇמ#najVDX)J̭tXwіskeqm4+2 V s7yqW(XH(L=98̥?ҩEqCH=HTE 6> O}^ki2g 6e=14u%Erzv߬Bv ;.Ѿ68o?iN`OG4('ZS&.XM+ q[+|J,h^ov:dM7ۊKQo!ۦ.vMhJA5T6A. *[,tVUCpǻPKlUtK39_001_macro.ziparrays.sas[S Ö\†$\ChK4 1h"Kw<BhR>yܘ*zXQ:awN@\t&_;wB·<  ™{BY8O=4W Jv\ jlmgu忋aHa9M{cA{d ƺ?v棓 /iG A֢SGTBױ 6(4;T2a(d~6q? ruB}$c H4'@Ftdlc BȩRQF3y52@*fLw7uw&B]֏LnVyEdS֙LPD4=mH\2:=`-O(3pe;!kS..tq!Ίzl-a!3h\\Hz% $P 87ڏ3ᴏf]ұ1ؼ*"E\@\x dLsd?ԕTҮ4+UXlPgck " 'P&7(J;+JU*SU0>#ʷ)3P*(n1(|nEY_]Ed\bBq8П.I}O> DIcVxRdVXJ`M,B)BVIߕ:L8{@S h!IƑp6n݀L-Բ@[۟_WmoWOsC]qpzv$԰.jc,iprX`LAԁV>cl8g4< NPbȷ`*.jǪMRH(O2Z|C'}ÉW#!; m0v;tݒ:s!#aHJ*.:U]z!k>RUޮv!zTS߬ğ+ U ju؝(g\r#ll<ߓ$bZ$98O$ (Ͽ[Vz^2yȍ*4J"OB[:X9Znwr=V0M hb b3Pn{f# \L]rn `Kƴ! `1z5h&ttndYLxQ-uVS?R'm\*bϡ RgXF% n]sh' ]86zǁ6@M`;''п쾻8_[ 52J\Jsxv/?kkw&A-tw YOV藂"8VMujX{q6-[3V\gcP'GP}-ޚPo3<`W2%v| eW8qOL.#ݥ7Q'G4,nNf.;F:aH{Љ&}k~jz=WXi:@i wM~|%sK੶}/yp||CpʚՄ/vghp<5W-jQP&T/6sM90;/AJ`1E &l63(W[;-~o9-l#-9Ap0upf!wL Zq<ΟʻV^})|Brm{ꊁ]oHKBi:ǢĢ] }>L!}$lyM9AD{H}T0aтP3~U1ŠW; yg@.n'1lgԶY*PkdU2XCxZEȱɱ#CW_Oۦ VJs,lʚ$jm8ښ35` ߼2K/Ԕccj5 bGH-iX?Zנ ~ѐxG:3y#[6r}/:űY0 ԓre\fsL-ܤ,epǼ6+؊R,'\]cw㈻HEZBjRjX^@l®Ŭ"y7F~(Q2wfJҏoi{]R2q 1>nI N\1mRbV@JC2G7)YB @mFw s\A?POf O8+PKlU;j  description.sasPKlU*riG  |license.sasPKlU; Apackagemetadata.sasPKlUL9   Kiceloadpackage.sasPKlUllo3 load.sasPKlUb.C  lazydata.sasPKlUq  ?unload.sasPKlUem  preview.sasPKlUN%N\! help.sasPKlU  )&_001_macro.appendarray.sasPKlUhiP/{ P*_001_macro.appendcell.sasPKlU]71po 1_001_macro.array.sasPKlU%U0 M_001_macro.concatarrays.sasPKlUvD2 S_001_macro.deletemacarray.sasPKlUPuU  Y_001_macro.do_over.sasPKlUx; ~c_001_macro.do_over2.sasPKlUkʘv Ti_001_macro.do_over3.sasPKlUI̦ 5o_001_macro.make_do_over.sasPKlUAm] \v_001_macro.mcdictionary.sasPKlUC`x _001_macro.mchashtable.sasPKlUv+2 V. g_001_macro.qziparrays.sasPKlUV ĩ_001_macro.sortmacroarray.sasPKlUtK39 _001_macro.ziparrays.sasPKmmacroarray-1.2.3/hist/1.0.2/000077500000000000000000000000001452773550200152745ustar00rootroot00000000000000macroarray-1.2.3/hist/1.0.2/macroarray.zip000066400000000000000000001425251452773550200201710ustar00rootroot00000000000000PKn^uU;j description.sasVmo6nb@"OSo0'mE"5#!oQ[ӥH6{90M!Fˍȝ B"̵7rS>lWpnxg%~{F~(c33 [_@ Hhʸ=W;AnAPۦe!\5|}“_0wAiK(rb@ !cVIyql)OEz%S˧8VTD(V;хTQfk~YdL>FL(G_|*ڣH\ @QrZןOxcs,$Dݚ+֮txy):2GR ^ZmPX*ve^~i4/.:(M Mx@ O;ٮzz;o^7yS{ SSX[r3TtS5)RރjmygM2篬1JtHܩ8sMo,Qƹ^> S>gM1žú' ]v40x;~(m\аYm.׊)a8S^y9j#vhq4F|ePM4V$1}5ՖLjAP bASWYp}QV!\Ε&7lB%Dq '虀΁nv Nc8.aYT|d*U۠7nDa\QG2^5mJoѰ ڦbHRd)T4p4>\8݁޶F!!t=T k7~RȌ@͗\L9>8Ik8w=I|ڊ#={ AV8髧dn0O3Ľ;,z*z$&`x=10h}o"'ZjS,nDQ=:k46Pvҵv _p 6SGv[j`o[Ceܱ7#>NMG},,90APId<=K`#en'$+- `"K$k(eU EQ:#X b%dmJ 5LdsfB4.J *&s&Z˪9ȐB _y@YKGl$YR<.XyƱ8s~\i*#P%`<͒SF%IˢL0l^Q5d!f"XX+ ޝG轮+#dHVxJ2W PKn^uUȢpackagemetadata.sas AA0͉ '傢sz䦱ֳٝ<$9~>;. Pd-]mԙr"BG{*:Kl~KIL` b^H*0OY/k*,#kh4NO)=evYYy[ا Ta^&YX2ز.}w3ϜqF`K ѦN_njM5~ۿ~w-.^;g/Vvt3$%G7Nsa3;$gٹ~bFm+Sy>&&flǟ3 BqTNeM#@YϱqUz㲾ƂK>-)iQβyC^u'(RjeR+fVv{(<Zs/w1PKn^uUa[:load.sas[ksF4@ xM?1 I]٦gWHENI z9ًeG~w~xjf8@7k\ݴ{tQ'0 ) x"Yi@88 Iz5{~SHD$?|!T^vju~nuڿ?KUu6w ׺pG޴z7sc7wPƩZinu% f.@$̠1cWaEƓh&fěք }6[x4ti i [pqBYa& MM3 ނ2קiQxo.s ݶ-WUYZoE9ԥLii+E[c1g?0.rH^?Ý{C5`31sw]!+a $]m?B x4q7!:pR  Pm>fa{\X| ֑H 4[@T.4E"0"6[˞1$}[;+L$3E>Z ̎0ˆc`?Vce)=Hވ&h,T}R8G % k*cHnDF{Pc7RO@xhdcQ8idAĆ(b"~cT vӾ{D7(}G 3Γ&h=t0AnCDjLP2wX,R9rrr}J94|Q'Ci900QeICCӭ"Jtx܆B ؽt+4*@KL8!"& TTǀFMǟO|܍rT_N}sysqG_Jd}-.&>nj Ɵ`4iߠ# O0䅫RG If y} Ut kMW+\ 1}yp8ym˙m`` CZcւs,FɝЙOO?O}Z+iWks*GJ8f뜨B^6ZPYI^zpys><)h5ǯVUd`ݹ!^F]ɫZ&ݹwgZXcߨYl[rSdG 0C_ bҔ?k)n *x܃Gf΋ߐ#];)qzηVXs֪&8S"k1⇕ \WY-ïwʸ)|8j'siKz@7+Db,GPKn^uU;toC lazydata.sasQ]K0}?\쫙:ia!>Zqn fiMRe6cvOps=5(a9r: ۭv 4-YeSfsK^aOb.<}ڭaФ<]/"ܣD T) |?zs?)M+WBKS]u J:P{ !E(^ʳObkS&jL|SB=Z/mL6"fl1ϷH65YZe"'A$.[,9j[bB>G< Y._z#CǾo \!SwsAZݶv+kpT& RF΍YhBʋ0C? ԑj#ʊRXMٳw֭=@.ֶLG25p+%2Tϕ^04<@qփ 7 *Hpĩ;i=YPVtsۭnӾ7(y[, ͓S׀^ ^٨Rf ;r uY 5orjR8y(;MEDpTG+hLb+~p+a q zfwkՎ$o. F:*JgGPKn^uUݪm preview.sasXmo6n ,dx~Qnai A'hFcT[;z\ˉ)#YM2|pٺ`-α¶g僘ИUoY@&' ޜ+~Gf~L<]#F4$!A s2f2cÉ-vRIFBK]U˘cƓa(#f:&fx# C^źlh__} Ge>x^(v݂|B>,k/e"ҴD70!?7Mc[tp-s)ֶR7beD{y8T+i~UEyǁpP;F>6'\)dt5n |"0R`al}LzTY<" BHpc ;8Bf1#9a$Z Jmڂ %~ɳZnNn6!pΩB֋3թlT(ׂ9)V!Pb=$CsaMRŬ\&x gkU+ PA+A 7,p( Ei-BN@^DVșD akv#W#l0\at~na̽;m~M:^־Ցw%mGлN1wu32]q!oSW.t`WcMOvPѵEƯr1$t|}TpkTnͥ|(H~ SNJFD1u} ?:Az,B>.q hdpzT܌2i|SK5J|JsDٓ|Kzme|t69+ ͧ*)Ot:)n2dwؔ]{V?PKn^uU _001_macro.appendarray.sasV[o6~7p,ɲt71.! :CMKM"]>tRǍӢ5K' Cx5:} h6a8,TRn(Hd R=/BH:dkh6.t 0 +eTQ-X¹4 1T^o(aZ[ckH \^R r54 B( AB^`Iq9cJMEz.+G74+ ؗ%*_̩SǴ"}׿n>MfZrcS6L#7 8؈#'Da UlpD7FFl o6؊` TK̹X9)|þ0qhoǒ)xRڬ|ɑz,@펺enu8ޒtwR<28Ly|#KK@ͩ)B`rIhdZI׼ ǘ+32lPKn^uUhiP/{_001_macro.appendcell.sasY[oH~G?q/˾l%4"i5 VSe7M9e2ɖp];9Eɲ,Pi=vK%+l߯r˛O0bpyy |6e#Z6.K >,l&yxy(If3,ɤzSM), m;r@ 7}{;;;ax4ơ}"B|tΗ$]KrPS?`UZ u~i$(1`$'Rg3]SLZf= \|((]Od3&l"UU(sHWSs=I#?AjBWUȏD[A#4I=uBÞ!,.x?-!Y"8d HؤMp{}45h ct&[k~J8ڱ  D:lȩ?7T80˦ %ڰ(׫rHڧs}qA%;5TIs]s~ivK l}lӌ&#)xr&=X(kU B {UVD-:tBP:ƪ;Hcqoy,; EX ݾqe[FO{F ;O ]VBz[kVpۼoUn/v}W'\̇c* (5J!),KA=2Wi2;`9nȽHT~u@Tqbm2pг"iUY%D)fMj68D%âVFRXkHBqD6.fJj>@SܨΗvR"Z>Z=&J wiBUa]zкr>)n"Kz5g tYN((P7#AUmpty)g@j6itRAG Gnk"[tvz?7* kVqN/,w},\:|u(:, 'iW+a@k_QCOSӊS:D rPkC{t KXê%0")zMJ<0{KVy>悢ĆذoHlQ gJO:"G5:^ߎO>͑~[~yyJH=\:tgMXpaQr<^2)ۮKq n5XZJ_Ou9 LB~`)u{2dr 'wA)HkC7@th" d,C,^F?qpĈS!<)۔|0yzRpteIx_V̟BؐS>x-nI%z-(27 j3ZVu< ui5( SIy gj ?e=1׳Q|3gxPKn^uU]71po_001_macro.array.sas=kwHsNCY83cBvCdmx2>99 C H6oUu^Ğ{LhuWWWUףbȎ['oy1[|=}{%lYo-5}f؋/ ֌7 Lo /_Z/ٳ'O gޘYf]-b9r'(2+[?H2ŕp?=} Xe!T[kk¡ /Cء; ,DW#0wa7XbXvcufw4 w1=,PȃEg eCl> (:t¬F`Zw%ƍP|3۱|@zZ!v. KyClg0$ /j?B!L7>(hvȆˮ8w|,w5D>0ĭzB-ta M}+IKa xT )%j#Sq >{xx8&'pLv,ј,└|} (wB`f@8w21)7 $Z7:(L}P_+_۶> @I EUQVQ]$x:^Y4bl|'` }ڙ)yܹbA AkN:%˕Ä"?(]0+`G unX?<}"G()5^W8/k Տё?2'*QM˧ZpbӟqCRxCߦA4a~}]q:X N4ɳ0M,;ڤP%'f˦/~`wfʴsumly(-Z+\au[k/+gsJӳi(K)Ίǻ@ AZTP w8҅N1J#ɡ;h3 &n`-Au.Iu3;( kܔ@`ܱo! 8A)A >/ GµQ`)dJTz '@霣 L@l"f4R9V_ZPyNh+vB8[̨~?=BC->m>8" "&P9N,$$ ) Z:c9 UHKd(r$urʃ>Z" m);z u; ,ԗ"DE"GҎ$L37sͻ k5(byS1ghTJN!rɂ#&h('6SY8P/Fܱgq !Nn˗y6*(:jg9Z >8K03H ^`QG{D KA/t}$ȁIO掅Ǹ(Unb r{2 /O̚Or0ԚZ>$ED+ZԓӬp\yr"x M~B4YA_`kV@ߵڿ]/f `M3H3}%EV"jE) ( :4毭{JvwV cVb-n/wĤ:@lICQq= GX}=B·_w4ɠc+ KlOQVBb+:ct`3v.9d4;QX 8Z;#hʤhh -DqN"z:iREyw0 f_%K}a|nR4,9#/O^~~4O[ZBJl}  j+\ :!`ff,_Nϖ)v;#Lh*nAdg$}*X&iשҨ{щ|]`"8"XFa킡) qF} ۴"1jEȮK pB\'h>e'7;{k!+Bݳ#v)]#wt׆BYX6P2_*Ȧ@јRHW*l)m+lBvĄmCl<9;lЛ\ųiD' I?4 z&XF rW[(ڝK6ѫ_#?n,jS?%hfx~3*̄fy-%m1cc%SJ֭#܏)D{$H2QGU=tx!wӿ{go(2kZ'-pZ};gBl'HI#OM?Ha+)thWWr\cN|GhGx!ufK ش $ ! :y ΧـMDJNmol|l\M4Nmi-n{m xw1##gh琟x࿋M:j 8n`! @f/^|A<E,g'$̍E-j<:_q) џ5eW]K\F7 vU=k+[zxjN4ǂjB9(#^nmWح$4B^G&OƷ{CBikB@ꌽ;n?F{O{+u߱Ώb\&vhU썑Jzk6|mt&R=4Avc0 {ar(%=r ξlɧ\o6m7d@l?x5츠]Tx<C^iٓ(oלώmv1mq!q)yO3Ǵ#k67^;ް(uI_|` Ĺ@K&%;y̽rtKqVS\UUL:I'l>2^07uX[}zJ-+ ד<1gyY,'r,'r,sύzJ_J#Hc$1T%aL8 10&Ƅ8x  צR,)I$Ą Ij3_ܠ%=lt'~Զ4qΙf +\Ԃ g11X=Q .7*\f$IOiҳ06aR(VVL*b ZQqi]$D|<7qYJ H۹wq̙UR%|P!GajO~'}jMMS%'W 6~>&ߛC{z>0*WbAA; 5^)-=<or ĉ90o̢4:4hGpOg3djD+n98R5*"ЙVuX5Gs o Dp(9c~z}j-cR%Twh#X*(1OR6,f=?~''ZR/u_~ ϟ+9)E=E=E=OTcx ܈`ʨQMVp=q *f]5zƉ2/jZem"0lN7Y_(~!7iH> fRj@A!*<M̄j긮Z~_$Q .eyQ`U* QAMDp%"*Cv64Ni4>T̧V #sd^TO-mvnQS̖@WV$Ҳ'Qp?.׍vq]sRi [XHPVj\ZKkqi-.ݏKquܿ('lfᔇ@ TwY`гJZa- [`uxexexex0w'[~PR폖M?qE*Ef_dd8~EFy_ddZb+Pњpt;: SKi+#J꾃5š)5!Ny&kF*arlcBHѼn䏟đKR: 4}M()Y"i<(잋UzJS-dq 7hsXѶi-NyW=ĩGYg>6 -RxMH|bS:;'y mj CbҶ񙌁Lj>qWD(q٠|) ŲWX<[ mG]观#k,`\x77TI_@d}rySX(}(=G:Ktš^O .7%왿@=*V#IoFO10ļXrN;4iy3ݺ 0<_PKn^uU%U0_001_macro.concatarrays.sasXmS8=s8/a.дpCLC[ V*Ʉ܇(mlu馲BG-D򧧺lP)?*90h7|V Є5kGd]Xu=L$ kUBW94$jFmȩVDq:¢ٶZW(A+8~՞Kl{$.Y7bK6h8 R X5 A1s1e[QO*fIJ0Ys`mqqhU&f P4 `q|D F 11215 ~" 6gxWKs#[)Jd/iI,DiN#`S ֢:s:4cИpwQ׵8:4 dz"wZMr2 xJXo%Ó?PKn^uUPuU _001_macro.do_over.sasYQsH~wC'>0҂lk*&)۹]W*i0: H힑 9l47=4ww{''%8O  &̍D ...A& zP^^^ˣ+<b1^+!1 ~(~=qr6?&}=--lw*ss ,LB,ybCEln3?d΃S(T݇|xns ā42 %-(+?=C&}<3R?>ֵ/e]4EȂϲuxd yOOS #GJU=Uoa\!C8;wel3nLxKt#_n-zj[)hy?'/T|Q@21X̠$УoisK1DB 9$Sԝce)8)ʘw)h5$ +˩Caz4]9"3tDSYM)8z, #J\D(1\$z  (! &[dލC'"F( ]JxUD+i@MNˍu΢^\`57#R?)IB5  !Kb1Ak94𹗡$\@\Bdf 3˱Hoyi]+^Hr]shKH-<稪|R*18LP+gfh]{fKg5`E+ʚB1#MH܈L (&Ɍ/uRqh8EL`fܤg;`@8vDu:64 ^ޒ~r}k&' #&<o,Yѿy{J>ݯU5ӀB"[Y,F@J`ҿ(ѣ? s E*2sM)1PKE`YmUnH2];bjT~D Խv6٢܄7%dٓj eTЯ MM@Ô[녛r¬2Y%7gɪC a,v\.WIPh$CrEkTbvZʼn(YY"&r*}c豀 电 ~Ȟ,G0cbFPHqVL_ۯdb%p dNJ6UĖ驺޺M@+ߢ+xRƪҵİZ{J0ĀNQέ*4iC6 (lE{T,JƄNdn~s]$܇|^[XP\,'#|zSEz#f([aCh~>p\^_TƱ\(f)ո>Z YiJ ?Fz( ?ۏb8{Zi mXi 7 ($YZ2`8 ލOa?+!'˃iA 2\ WAÃvUUȘ@`I{O}SKf)UTIk߅⽏}|w;f1v AA&ZB43DL)rj6}Uh ̤ؗ y,5bRiD5Xf嚈(j6f)(.[䉥Lʑ{bT,/ -BG\B<{BX-3c}:l1X#c2]dw2.m[lNbc!6F rI=. >̰堑wahmCWvm蟘?pn|0!9y7l9ʗLj0DhTF\uА?(TJ.6[+ Srʄ˥2|;3B3WDo%EvTb$sc/&IYdk9c=$͸syPV=~8wbCm ūA5s;xS`V]V +Lo!5h7ގYnaXJZ:LDx5!'g}iVR}Ђ0{ß;SpM׽6!؆eg7~x:D>p1AxpkkNʃqlLO/>C g'^ඇ6*4pKܥs(yQꎝR$jesFo |y{u+Yo6—͗ 鰛mcP*8X>g+k;zsR1<&ڝMT|r;[FGpuΎ Wz-eʧ3 h }:P7Ep@d4]ɳo# ؃LRuW&x*!M*16\^\Ҵy+c]0wmLKuj%ffbݐXBDtLн0-xx!6~JfOojAD XwL?'s0َX#V&ƻm:e#5I슫R>SH -qPKn^uUkʘv_001_macro.do_over3.sasWmo96ڔ݃Mw.!hB =5*o\zn?ˎ {\WGGAZ-D R@ل&Nfy"jvfGu)ʥ)X$4,՜IhW8z  o KGw3˭!Pyo.uk@T,hLSI4R詤i#R%Ēr `p.]G0'F%׫6p3M LV,2wW'G?Q,|,00>40l!ZJ1LpV'ETT\`%-v]z8jVSI=TZV|{pv޻x{1zA)? 0 AЖlFVPKfm zBdPLXL,m 1ob)ҦIB4Hd<¹UaC# hcܪ Ty1s+ zDEcyal{`S&D.r.bB$K5ܐ43?Qvтh>:” ϋٕu&ָLV6hgU IFEVˌ%IJ uQh稭=}"Z[q Kk'N0ٲ-; q*: ֞}\MQ֯X`p v/AEILG:֝;xǝSsJzG87XUg/7 2n%xdZA2&dS{c3k]j>쮇=;oߪتXO^*;"@a@|:v iūhZOӜ$+ݔޖrrM>ގf*>=xwn篴{6ЪU :CߣFwb&NSW}t>|X{> :ۃ/p 8s/0LͰ]bc l6`<2`VS3T^1֗uo{и{O#+S<Sn5fJ WQyNU<>iiǍMI?nvF} |0SȆS~O>l"w?,9) j+6>*; )Bk1_J6jxE;t(\}aUP'xF/Q1MṮ*ɘ3jzjvn{mU0ƛb{$#%Rk5k6P΍9%$dF&4W cc S3-Xu67Zյ^4)䙙uԂJdKչXբLhZt&KP)xL5vv@eIF KC$|`xPKn^uUI̦_001_macro.make_do_over.sasXms8 S^ҙ si]{&޴%oWMHXճ8ypoނ'O5e|ˡʣ} SEᐁ`S~T!/0 L8x Gݰœ)j;|; ٢`%'߈]Z9,7S``a( 1?O@Gq /]!p΄9Ӂ,0G`{bj{P7t}shO |(0 ;6]$-)-:fxIE<& @(цPʙ[s J$/MA}rGЄr ]dFKcz WH%ͅCg V5R 5WTćG9 吼[v{ Ԭν2s"DaVI3XbPQa{7wW3P!j`!z$ZcKV޻,R@/ȑ]+_bym7M7׶HxIqm;OjTocD Ȅ~O=P29?A%vvC*Ti4##uv{&SEZv7@wo@?9_؆lBhIz&7}*X|,)cs}c6pʃrԲ]t٭˄*JԳq˭2E-rΒlPVr:ͦ^lHWUmD[kE[E%ZzNIVsK4k#==-gHb[|2_.Ns^bomr%k$$+f ZAƀ7ʇnG5Z Xu!}Se;A:~h uz~18^p>k uFaa.:Cf ˧;F`_ o@bJVa΢@$/sc+ne~Ӥ]iHh?RJP:J(p_ ?vfn5%l \ZmEb6!"9tl>J:Ut*'9KA-&nmpUL !"d}>>CwyˁT{m4FNH}o 7҅=*|h_~{>kԗBk̝؞v`qoJPUh 遀oo7r5w{+4(?cgEt{Kt5grI4zg=F>+_Op\IK N4'n MˆZGp\$ ]vItm t؛d(|PmL)*k f {A2ӇEt ,IPh̛7V=5- ;MR(A`c↚ 5u7 0P44x9bdBoL L5He]5YYn6y~uc`hVмtHRWStqu 3J]T ioLݨ]תsmuÍ`p[:޻ńodcjFj("x`̟?A?ѫ5=p[>!24|pF yXɂUgO`eR5>k cns4cDث7m 80?a ޤgfKE&=n9I*JA)(sLzڛ`>fmoJQ04؍G. ɹyQ[o:9vL]{`(%Y ^D:,"@= Y'}qI䀡jJ ͌+H20,-MS1G#q!oLG4d$Fy#e7MBȦ Hh[bY(r=)4ʇepexFN\h%3GTTfYUsP& haFX)IgR+X *y_`ATw|E,::d(-C~*! կu!1hrMa&\HuyNj ~juVu>_TؓXYܕ[={ XHWX T" /h``!РhЄNx7q(ib%mKAfhz̘&0ͧ  i: [A+HNp[Sґ GX#VhaJu>P:M.#̼8u"w(C7D@3q|s]o +2PX($ǩBpTU<<"Y 3^_\!~}T( |&e J!gk# Ujr߫(>s9T-9TckcCɩb1G*2 }p2,.E_2)y\ӡr!i=1o>a7 T!YhtCA>(O! _2ȡ}io/;Zl^xʂ_-|=|;ɫ] (be!F{KYuO2}Cy/ÐKl6_zς·sn'־@fukJ {ZdSYH3goVr[hQ'>Pnu>\edPg' J闫QytN8jy~8]Y=]J[P.Xt␴4h64㱵wC[H]Q≶wC%~-2çC_j=Wh/.*+n]rW̺2';`+IW|s%IKuoYݕs1es" NW+%Uqno@BT_1U;5 ?t|{m5rcTK+W3jdU[Oq5p(v=e8Cq_<;ۦR'S9:ضU* !`EZFZފNsb1<%)xmIp[s:8tspf/dӾEt6LKE3?JĒtb> S!`8ww1 &o<0]^|Oc<ԅrbU|eG;Q!&0ŗyܧHNа3 B|ꁑHc¼xKV؅mMRۥ4rOw8}I Fj 1%v=saj痭f Ӭ:'$ z~I.Gӕi_QI%λ ֋=~$\# cG]e5ҿ_:J̈́M3`|JdM]RWgt lѱ)ngpA&MKgey?7& { [0fzAHΎdVIvo=v5.$3.0 q01f $ˉb%!>? ,bK2ٯ=eua{a5vt ~O6d Ļq,1[/Pȣz(2'mm 21"̷d/ط<6X!;]݇`NG XtPu,,Sgrk4 x9t G dRઔRelyVu8!׮f[s$K/ nxOQXZ痯76$*V^*  KE/m ߣ-4gs so ˛H*nկ` {w* GBVZi;a0H?`udbQoHEJjA.BȮ`2^y y=a:6-著8^$yz͍DZ;~@h+Xw f4aWZMG0wv5s+p5@'Ѹ֊fV"7`&EzE{!vjc#+'t*>% zٛ_޶*lJmtˁƊ|ީatR1.44KPzfs+,0?kI48M(QWI3Bvp#Rb\L>&lF SDGNr=ř.C}cjUgxu@G aI8T{CAFJ+M5ihʰ1PKn^uUC`x_001_macro.mchashtable.sas]{sȖU=edf!;qmgnR{@HmP,$" L9[BOCݙfbZ_>}ޒZ;ju; vuݼf𰺻vw^`o߾eռ6xEkFc6D%>^r@KojoًcwgwzsuL̴M5Vq=sdIa7nZ>snJbDU :뎭_cUV՘ez>^OiWzLw&R5`~#nsF5h4aWL,ރ~@Nf2]Uan>qC68એEd@8|f<2utl,Ǯ8gALc456\SwXavus 5ԙ7}큁$8oV0)MrAL}ݝ><݉.Ms=o?ͫnVrjfn$k9k<[W٠;`t%:3]nTk<ђI΢1@ t fHȦm5FF`t@e|BCBd̨PI4?W Tvh+Qk KOh]^OhU!H6|!vXӼiuyR2@w9I`9! g:3Wxr-l M U_JK"1aF7{i#XĄnδw|Y-1 hbqwl\Rqk'Ǎ0G0o1 q g}לLGЃ_:"`]gB ^]𢡄]pffG$oVI2)c!7E%337Q rPy`ypa1lR,!OG>EP`YEKJ`:h.N{l4OpBCMD)ph c~)frUG3$c*9Xv~{w?n3[H;S@2)`@iG~Np+ V-ݝ%"@ԶoLQ4))D 3L=:xQ$Ck,38)$&쇿PnJlФhc1>2dIDؔ+-422Y4b3:[d70C^p(h#ԥSw轱ޠk'P4E9kSO ͎2Y.ɷrٙ 8 0dϛAJWa g{ 3al^}8{};ulxvJ3@M .L@mEk q4ɛ"^:;͆Vih<ׁĈ:Z6ǃhA@VN Yc_4|zSTUrO?[d]kzw#7"ԦkkG`"j;ab@`S]؄ wgL5p(Tg2Ic,{!G(f\ۺf0P 4Q  DTPˣ,{>D:Մ f=Tq EJmHH3v)FfܐKY]}@Z=^` Бe) )@ۛ. d >e!R^W$tXeS? K/j*.RUמT&jCO3=/* *\?˨nQÅARQI\t]-}Ss6LLVΫ+M1AOCm(83-|t޼+_DPR% )vd#YU=Reuk@"-St 9/#kg ^/O.hy g pUB}h5r{ F}^Az&xѬI%!q BSWj-gM1ɇ͚a0*;3i#?֟RA ~T͓PQ&v1ϐGdd&ljk N*uEv+ٷe]=h&y#A{ 2)i%*06IKILSM.<^s\⹹h4 C>gQw &-O鎸Kbq^}<-"CgT .# T81ORǦ_@+3$ oZЈiE5UZͬpd:I¯EuuRTR,DoSШIAJh cnIypD@Nl F,1b)<L ahlyg48 (IGy!yK"Aڟ%_Sg qse'Aw7 ?{Qkf"_sMnG.G>؞W |Fy3߃|2sip3l8WaR>qj;k>'C'NWμ`C9e'IV_wN/yۀGWm8y[x1w{^pϸkS8G|'փjf/U'5Hr3sKI\N=~cdX_AZ7*OVL n}z$ gx}%{;{xlL9c=<&_.n m/2ݝˏg7d;mݝ ٖ c ^oB?n.=eSPv<;edzsYv<;eGhIyeRyInVa3a).w[)^oŪpjjFKYA[F*:!]~JHֈb%BtjVb [Y؜1H鈑WN-)}6xVtb=I|7з2 -; J7+!X Tc pς6N'b{`OӋ^犂WVsάENhәPI -K@r/N2^b6VlR50B5ldnAYlk4jf%>G/A1fSK/H==:}?6A\:g\f$07*(#ʏvlwz |zݾV^8:O4WL5м NfxrCBQob-ЍZ_rlp-XSDž><1;G Nd"T8gG%?䇟oIf޽K6ZdS,ZgXH(#il _cf-T|]XPQH0Zp/ q|yy[:MX/S0^S8lq ZAFѶ&S3$e-Dm`+.YDkrϱb f|y|oaR Fx&c D   8"iԶaLV?qbf^A%}r]}띞_Ca 5 ! Gcl/8 r\QuzQ5y&Ŋͦt[кɍQ}ȕL.eB4w?߁5݂ԝ뾃g PRewn\.>^LA=Ľh8wf^}bSBzWP@M?|U9b͙М09IPr\]á4{.gY dG7 9^2f!g="ޑԊg āT&pMV͠#o`pɭqv$]Fma?vh!"*smx9h{ھpa(LqPKn^uUv+2 V._001_macro.qziparrays.sasZs'΀rW񔸴u4ci1 aB?ܿp{Eytj[1qk^s~YvFs f)-x`bƑ>8?;f$7sِ${uD>!س"._p/ 9O,))x|IR@-?x=qfB"=!MUDKaF ܆D $Z̵bEEF$/YhRƸuB~fTGQ bmC6 (}aĂTBP{ !)GǏ;`.63GX̑U74I g]pT`-|1 PÙ|֜Bb3i'u$q!r#H_n:N2Y.-5[8A!'9ZD FhWE>E>g'Ss&/Lr^(E oCNL`ś&#ENZCTitӬTj},C+p )0:M@_G!eKfq9F:fc$[$"ј|> ccCJD՞!g9_$l\T;V&]L./Pf(n E+<ꩭ: 6=b*5'1+8 q4W8 yRprҾ .Eb^yLE "Kz \ijG\xѬ+ҍHWs0:S] jڷ4V{ { _lɦɮ5Uc':Tbh*yguUr%#%?x@rfIDT,ЊsEEFgE[E#-SzfE%mLdPaVyD&mo`&0*m(C"X:nGT8Ek4X"~rBExTԄieK5ٻQ> ~& X'%P7%xVw*UX]TEn[7;uU5$O('C*jc9JC ~R[LOBӻnDwI.b- g.4&ȲQ% l-7D;\~>.Q#!=Ipn%k`S݁ ɛz7] $&t!{ןZ_^_ߠ!m(p ie8ǖ W y|[gjx;ZJ=phylKcW[ (ُ 1M[ 5:ꐹa< ӆi'5 5p{ى|e)"H悾]_[š(>KQ$nEʬA+g,ɀp=!BZʢl9fYz[9)4+'+t9xB:ʬHD[);p[%jUSZ&6k{E#(jUΏۺ!ڨӝ S5#s>nƦɸNN8}y"AoA]]QbjO]Z@`P6I$uᇟ)N[EuDٳuY\(;>?bɝkѥAz'\GPOϬ*@kB{C0UrZOy%\p-5I~ñNЧO){4M < EYj<|$ loWzNaSYI{aUa\5mǭw%V(ci$^' ~F*aUẉNWgkk)hP˜'&D[4XufA`a8ne:vW6숂؃r_,!V6gKҀEGO^ kdN=r# M4+[4(^5(dj7ǭJ|Mh X=B i;nc .WW0kM_NÛAW ) 2ScA1);_QX@P3Q%BL1 %8Y*/67gsoR/Ґ{|+N7,P6hX~_b;3cؙPKn^uUV_001_macro.sortmacroarray.sasWko9 a(Zʰ"YD""*pMR} [v"9s) hotR!tK0D+拤!{;C Z j bq/CVzձk%V/@'TaӃqN0LA%x#+ 1] a 1@2ܱp%pO+o߼G5r㉚f!Nre0fJcPݕ꿹2 cL&SExRԏÚu䃳Q,HBVө_tjZ/]Sb-]nq*4&<YPN,3l5v G|2 b]LI_{yd%cdyDnCԴJe"Yb0L&1q>!Vx0hߴZޜ]{K\%"܅<leeyo\5N_vژF|?6I%5J2%bv)H|uQvEk=KXoZ.`沦l{?~B/f/)r/ td][%PE^[@r.x: ;l]~<}Z zCwܣtE O* Mo .E@nك4dF>TMNޓ%G6wd tB -vZi†}Nqz9{RM Qme4 ^dBl])}c&ʇמ#najVDX)J̭tXwіskeqm4+2 V s7yqW(XH(L=98̥?ҩEqCH=HTE 6> O}^ki2g 6e=14u%Erzv߬Bv ;.Ѿ68o?iN`OG4('ZS&.XM+ q[+|J,h^ov:dM7ۊKQo!ۦ.vMhJA5T6A. *[,tVUCpǻPKn^uUtK39_001_macro.ziparrays.sas[S Ö\†$\ChK4 1h"Kw<BhR>yܘ*zXQ:awN@\t&_;wB·<  ™{BY8O=4W Jv\ jlmgu忋aHa9M{cA{d ƺ?v棓 /iG A֢SGTBױ 6(4;T2a(d~6q? ruB}$c H4'@Ftdlc BȩRQF3y52@*fLw7uw&B]֏LnVyEdS֙LPD4=mH\2:=`-O(3pe;!kS..tq!Ίzl-a!3h\\Hz% $P 87ڏ3ᴏf]ұ1ؼ*"E\@\x dLsd?ԕTҮ4+UXlPgck " 'P&7(J;+JU*SU0>#ʷ)3P*(n1(|nEY_]Ed\bBq8П.I}O> DIcVxRdVXJ`M,B)BVIߕ:L8{@S h!IƑp6n݀L-Բ@[۟_WmoWOsC]qpzv$԰.jc,iprX`LAԁV>cl8g4< NPbȷ`*.jǪMRH(O2Z|C'}ÉW#!; m0v;tݒ:s!#aHJ*.:U]z!k>RUޮv!zTS߬ğ+ U ju؝(g\r#ll<ߓ$bZ$98O$ (Ͽ[Vz^2yȍ*4J"OB[:X9Znwr=V0M hb b3Pn{f# \L]rn `Kƴ! `1z5h&ttndYLxQ-uVS?R'm\*bϡ RgXF% n]sh' ]86zǁ6@M`;''п쾻8_[ 52J\Jsxv/?kkw&A-tw YOV藂"8VMujX{q6-[3V\gcP'GP}-ޚPo3<`W2%v| eW8qOL.#ݥ7Q'G4,nNf.;F:aH{Љ&}k~jz=WXi:@i wM~|%sK੶}/yp||CpʚՄ/vghp<5W-jQP&T/6sM90;/AJ`1E &l63(W[;-~o9-l#-9Ap0upf!wL Zq<ΟʻV^})|Brm{ꊁ]oHKBi:ǢĢ] }>L!}$lyM9AD{H}T0aтP3~U1ŠW; yg@.n'1lgԶY*PkdU2XCxZEȱɱ#CW_Oۦ VJs,lʚ$jm8ښ35` ߼2K/Ԕccj5 bGH-iX?Zנ ~ѐxG:3y#[6r}/:űY0 ԓre\fsL-ܤ,epǼ6+؊R,'\]cw㈻HEZBjRjX^@l®Ŭ"y7F~(Q2wfJҏoi{]R2q 1>nI N\1mRbV@JC2G7)YB @mFw s\A?POf O8+PKn^uU;j  description.sasPKn^uU*riG  |license.sasPKn^uUȢ Apackagemetadata.sasPKn^uUrc Liceloadpackage.sasPKn^uUa[:  load.sasPKn^uU;toC  lazydata.sasPKn^uUo:br  unload.sasPKn^uUݪm  preview.sasPKn^uUVN\! help.sasPKn^uU  '_001_macro.appendarray.sasPKn^uUhiP/{ /+_001_macro.appendcell.sasPKn^uU]71po 2_001_macro.array.sasPKn^uU%U0 _N_001_macro.concatarrays.sasPKn^uUvD2 T_001_macro.deletemacarray.sasPKn^uUPuU  Z_001_macro.do_over.sasPKn^uUx; ]d_001_macro.do_over2.sasPKn^uUkʘv 3j_001_macro.do_over3.sasPKn^uUI̦ p_001_macro.make_do_over.sasPKn^uUAm] ;w_001_macro.mcdictionary.sasPKn^uUC`x _001_macro.mchashtable.sasPKn^uUv+2 V. F_001_macro.qziparrays.sasPKn^uUV _001_macro.sortmacroarray.sasPKn^uUtK39 ϰ_001_macro.ziparrays.sasPKLmacroarray-1.2.3/hist/1.0.3/000077500000000000000000000000001452773550200152755ustar00rootroot00000000000000macroarray-1.2.3/hist/1.0.3/macroarray.zip000066400000000000000000001426271452773550200201750ustar00rootroot00000000000000PKzU8<j description.sasVmo6nb@b^ jSLiÜW -Hʎ`}GI~iɆ6`u;=.ba>.Fr#2' m-q=iN3ג^? = #?X̘aܙAP B zQq"4Deܞ+n0<N6+2 >t Qvr){)k&s f)Fư? WgN0cWDL*;4.)~zJc m 9]Mleʄpīrŧ=ਬhn %Ge~nM{3fz6`_vv>fˋJYU;szA9BnةcYLgdVa蠸f5A}7b)v];_yS{nwOMamEILQ9uV`\H :{nGǷ1ҟ4{oHYF(!>pս,Cqe6QuX,|kq]FC` S&<Ls)ZۭN۷~\ը>E@wneF/ KSdFRFEQܽn5Z@sJ9FĻll骾-%iDE EaNhMbMA g0]\v |t58,,38^mn4.a4L7M6ž' ]v<|?|3}(m\аM݉4O˵$EΔ"CZ{ʈEy;~³q8dU,uE5 oL_jDeE:פՃP֔6G)|-UUzy4, +"X% 沠ݍ*<l)^z;zMC:8A]L+>"=+} ?gF4~PKzU*riG license.sas]RK0GqڕLb!I qbdL`w"!gg}7[3|KQxoC=1.^N XP3h(hQ>p4>\8݁޶F!!t=T k7~RȌ@͗\L9>8Ik8w=I|ڊ#={ AV8髧dn0O3Ľ;,z*z$&`x=10h}o"'ZjS,nDQ=:k46Pvҵv _p 6SGv[j`o[Ceܱ7#>NMG},,90APId<=K`#en'$+- `"K$k(eU EQ:#X b%dmJ 5LdsfB4.J *&s&Z˪9ȐB _y@YKGl$YR<.XyƱ8s~\i*#P%`<͒SF%IˢL0l^Q5d!f"XX+ ޝG轮+#dHVxJ2W PKzU1packagemetadata.sas AA0͉ҋ\ "鑛ZfwF\.|(츰v7f@Jw)ⶅRg )/cD.=InFc/&z(3~0⨊ pxPrС^5.IۅQ lU*<(qzgJusʏ Iq(}(L7 zPKzUrciceloadpackage.sas͗mo0WwF J(MiUQ'U]ZUIioĩte~gАJ 绳 {uP/`pĢC`cp{z"3P$Lk3;|&aA VD}ُtBF k`_8KPL#o9SK& ]0Y$t_a,cĜr}afs6Բ ` b^H*0OY/k*,#kh4NO)=evYYy[ا Ta^&YX2ز.}w3ϜqF`K ѦN_njM5~ۿ~w-.^;g/Vvt3$%G7Nsa3;$gٹ~bFm+Sy>&&flǟ3 BqTNeM#@YϱqUz㲾ƂK>-)iQβyC^u'(RjeR+fVv{(<Zs/w1PKzUD:load.sas[kO(bgC 6#!AI짨;`؞n[ݎ?b׳Z5C qzrgjZ&3 .LA=p nb#D&fDgN12o etl8mnDPKwu46=jpEmʈG3nv>Y{OSv|?]9hifyϡoCfcj=Q˽ ԥ4: ' :3]=v.phC#0}˚H̩Tt|H=Uџ(c{SV4MHp \IpE1Xo;Nc@ta\P ƋɩrkPuF&{jZ؎, 8jd1wF2/5-ߠuzDx ѹ3B£\B;,$sWjrh+ 4ȕ1垠'r7ݙMmk|ΧQC G&G?!G>6#İxwF ^,DԞ6Z'u(j6b`PliX&7q~cK$`))D <é =± ^cˎ|‘I J8Ӽ`Jb`4(r[^4fF{Ob, [Qx" N8d4't* V%R.Y[L202H8Fx >V#uO2"6D_ccpn)Ƨu sQb 뎘̙% ;E(1[eC˺uCBX2& =y`.,K ceSj Rwu©*׀ Aɹ61ͣE<͞aLl_sAy+4 @%rXPn"M 4lluxvܖr鎕7HJ,q;5u,yKԢA?3sV`mh_G'LP.04^xO[)&d!]˭Rypmg !ȃ< bChDNk*;MEgc[zxGURD􏦠kݰl: KJ\ѽ"'+Tw/ (N]4Uʵ*XJĎ:TWk?F/oףq\{{ڐZ­᪣ ^$c앙=̥j)M}0Vak.MZӉLٖl!-.5"!LAҬ +xڬNS$[yU Ɉ-I(CM¸*JWQ(܈^u$"+ +ebe,2g"4@b1,; k*eiOy|']#KfUS9Bi/Jx o^JGA,W sʸ)|8j+q ibC_[ DqXw))-K$ȲxOĻPKzU8jA lazydata.sasQ]K0}?\죦ŇɆҚ&cvO!9sΆ lRz5@pmn ,lk SflJ^a2UNb>Ҽp9 Qe(5>MMxP_L)7CCc^/O44; 㐞OjS$>【9؃6IAFG @|"@QgWzIzL'ўn'wAe-,>MD89܀(3;B=B,!1[LN(hsZi@C0r'PKzU[r unload.sasX]s6}L];)Klf,6 #lȖcd鯯$Hº9:מD8$пVkՀ\ԏ>s=ǵ"ʰDSB%J(Ix"WjeG"Nv+|RCj!y% )me/dy/gD,ÌZ1GZ %e`/$,?ES6g$!FCJhM/`SH<$"HbF`"D>V:U8JaL@_YkYu>#Giw:[Lh/qv!\<P{)5^r5aR`iN-cvjPRldֿ3rEy-cSݓNX:= 2a]C)y+vm;=kLiL{5ZW=U?mwס qmW%:W֡SL%[74J G~E@>'h0}Q zYƒW-kgе\٠)Gu|[Md]~=tO/rF󤬤Z@0攎t3G"\TRȚ75;ʮ.rl"HG&mk#t#A ]bֲ_yg&̣|SB=Z/mL6"6~fl1ϷL65YZe"'A$.[ڬ8;bB>GL C@~J/P^~p##fxߵC@hȔ]\V7窳J. Qsm)+и@ {,& $:H+8VnucihH8L.cC2\&I s'LdC8* 8APA$8TޝlXˇVm(+y:9ve={[, ͓S^ ^٪R9Av koicze$ciI?,@AmTZl; $XX#KA`nk0~OSjV.@Ą=)$Y\Bi91R@XH{ŢrԦ6I)>!7 YUTqNAkng<>2an$AT3QĐlwQd(+^.TǬ@)6wZJ{ TcXgiV`z0¹'&pR' L=X LB_프kXKќ3RjdoPFU_BzG#Uӎ3~*qycMjAUe}kxcͲJR2Uƺ{x\dPDG[,µtʢ\!gGu P$U^T(v2**)_l]DDH*}T峚e>G?r:vg낵H i閌GNTRzm8Zgn݃?Z!zzRZ`86Zh鱖3-+) X>#{&vì:Ter)MƋ 3ق0sqcFLC$ޔ'lW>D/qvvW廎Qɸ7e?vPKzU*\!help.sasZms8 as 66IڃMB$2wqlxj,ɏdcKmbgWԱЙ}wiY'~zJGє~;b> 1!r#"Y#qfi K„׫zG4", ҃#^Ά7XmN۶_L._E2GJKbjtqw/zyAbIms%iꏄш 19{RhPT&RFRR!}. %tDH T"z MM_B*o)SC7zyeޝxsКˊQV'iyow{pCb?ғ{kO_=0aO$ 0 >dlC1EI\4[T4ri4>]_ a0w5b1$FS=,ph/ uwLLȮhY>_e$d9pndR#p M$c`9QsxjykkMkAqIi;['槥= `2Y).:ֵ M߯k)4N2#vy{]>=|'<1By>g僘ИeoY@Ȟ &K~G~L<]#D4$!A s2 %f2cÉ-RIFBK]U˘cƓa6/#f:u 9 VixD( {NB/_Ţ}}q0 {zբU q챬KKӞR#̟hi5UnVҁõKN &5$bB&$˓ٶv_ ʔ#bZC NıB 'q --n jR;˞Z~VWMy|7My|p?!oŦ߫PKzU _001_macro.appendarray.sasV[o6~7p,ɲt71.! :CMKM"]>tRǍӢ5K' Cx5:} h6a8,TRn(Hd R=/BH:dkh6.t 0 +eTQ-X¹4 1T^o(aZ[ckH \^R r54 B( AB^`Iq9cJMEz.+G74+ ؗ%*_̩SǴ"}׿n>MfZrcS6L#7 8؈#'Da UlpD7FFl o6؊` TK̹X9)|þ0qhoǒ)xRڬ|ɑz,@펺enu8ޒtwR<28Ly|#KK@ͩ)B`rIhdZI׼ ǘ+32lPKzUhiP/{_001_macro.appendcell.sasY[oH~G?q/˾l%4"i5 VSe7M9e2ɖp];9Eɲ,Pi=vK%+l߯r˛O0bpyy |6e#Z6.K >,l&yxy(If3,ɤzSM), m;r@ 7}{;;;ax4ơ}"B|tΗ$]KrPS?`UZ u~i$(1`$'Rg3]SLZf= \|((]Od3&l"UU(sHWSs=I#?AjBWUȏD[A#4I=uBÞ!,.x?-!Y"8d HؤMp{}45h ct&[k~J8ڱ  D:lȩ?7T80˦ %ڰ(׫rHڧs}qA%;5TIs]s~ivK l}lӌ&#)xr&=X(kU B {UVD-:tBP:ƪ;Hcqoy,; EX ݾqe[FO{F ;O ]VBz[kVpۼoUn/v}W'\̇c* (5J!),KA=2Wi2;`9nȽHT~u@Tqbm2pг"iUY%D)fMj68D%âVFRXkHBqD6.fJj>@SܨΗvR"Z>Z=&J wiBUa]zкr>)n"Kz5g tYN((P7#AUmpty)g@j6itRAG Gnk"[tvz?7* kVqN/,w},\:|u(:, 'iW+a@k_QCOSӊS:D rPkC{t KXê%0")zMJ<0{KVy>悢ĆذoHlQ gJO:"G5:^ߎO>͑~[~yyJH=\:tgMXpaQr<^2)ۮKq n5XZJ_Ou9 LB~`)u{2dr 'wA)HkC7@th" d,C,^F?qpĈS!<)۔|0yzRpteIx_V̟BؐS>x-nI%z-(27 j3ZVu< ui5( SIy gj ?e=1׳Q|3gxPKzU]71po_001_macro.array.sas=kwHsNCY83cBvCdmx2>99 C H6oUu^Ğ{LhuWWWUףbȎ['oy1[|=}{%lYo-5}f؋/ ֌7 Lo /_Z/ٳ'O gޘYf]-b9r'(2+[?H2ŕp?=} Xe!T[kk¡ /Cء; ,DW#0wa7XbXvcufw4 w1=,PȃEg eCl> (:t¬F`Zw%ƍP|3۱|@zZ!v. KyClg0$ /j?B!L7>(hvȆˮ8w|,w5D>0ĭzB-ta M}+IKa xT )%j#Sq >{xx8&'pLv,ј,└|} (wB`f@8w21)7 $Z7:(L}P_+_۶> @I EUQVQ]$x:^Y4bl|'` }ڙ)yܹbA AkN:%˕Ä"?(]0+`G unX?<}"G()5^W8/k Տё?2'*QM˧ZpbӟqCRxCߦA4a~}]q:X N4ɳ0M,;ڤP%'f˦/~`wfʴsumly(-Z+\au[k/+gsJӳi(K)Ίǻ@ AZTP w8҅N1J#ɡ;h3 &n`-Au.Iu3;( kܔ@`ܱo! 8A)A >/ GµQ`)dJTz '@霣 L@l"f4R9V_ZPyNh+vB8[̨~?=BC->m>8" "&P9N,$$ ) Z:c9 UHKd(r$urʃ>Z" m);z u; ,ԗ"DE"GҎ$L37sͻ k5(byS1ghTJN!rɂ#&h('6SY8P/Fܱgq !Nn˗y6*(:jg9Z >8K03H ^`QG{D KA/t}$ȁIO掅Ǹ(Unb r{2 /O̚Or0ԚZ>$ED+ZԓӬp\yr"x M~B4YA_`kV@ߵڿ]/f `M3H3}%EV"jE) ( :4毭{JvwV cVb-n/wĤ:@lICQq= GX}=B·_w4ɠc+ KlOQVBb+:ct`3v.9d4;QX 8Z;#hʤhh -DqN"z:iREyw0 f_%K}a|nR4,9#/O^~~4O[ZBJl}  j+\ :!`ff,_Nϖ)v;#Lh*nAdg$}*X&iשҨ{щ|]`"8"XFa킡) qF} ۴"1jEȮK pB\'h>e'7;{k!+Bݳ#v)]#wt׆BYX6P2_*Ȧ@јRHW*l)m+lBvĄmCl<9;lЛ\ųiD' I?4 z&XF rW[(ڝK6ѫ_#?n,jS?%hfx~3*̄fy-%m1cc%SJ֭#܏)D{$H2QGU=tx!wӿ{go(2kZ'-pZ};gBl'HI#OM?Ha+)thWWr\cN|GhGx!ufK ش $ ! :y ΧـMDJNmol|l\M4Nmi-n{m xw1##gh琟x࿋M:j 8n`! @f/^|A<E,g'$̍E-j<:_q) џ5eW]K\F7 vU=k+[zxjN4ǂjB9(#^nmWح$4B^G&OƷ{CBikB@ꌽ;n?F{O{+u߱Ώb\&vhU썑Jzk6|mt&R=4Avc0 {ar(%=r ξlɧ\o6m7d@l?x5츠]Tx<C^iٓ(oלώmv1mq!q)yO3Ǵ#k67^;ް(uI_|` Ĺ@K&%;y̽rtKqVS\UUL:I'l>2^07uX[}zJ-+ ד<1gyY,'r,'r,sύzJ_J#Hc$1T%aL8 10&Ƅ8x  צR,)I$Ą Ij3_ܠ%=lt'~Զ4qΙf +\Ԃ g11X=Q .7*\f$IOiҳ06aR(VVL*b ZQqi]$D|<7qYJ H۹wq̙UR%|P!GajO~'}jMMS%'W 6~>&ߛC{z>0*WbAA; 5^)-=<or ĉ90o̢4:4hGpOg3djD+n98R5*"ЙVuX5Gs o Dp(9c~z}j-cR%Twh#X*(1OR6,f=?~''ZR/u_~ ϟ+9)E=E=E=OTcx ܈`ʨQMVp=q *f]5zƉ2/jZem"0lN7Y_(~!7iH> fRj@A!*<M̄j긮Z~_$Q .eyQ`U* QAMDp%"*Cv64Ni4>T̧V #sd^TO-mvnQS̖@WV$Ҳ'Qp?.׍vq]sRi [XHPVj\ZKkqi-.ݏKquܿ('lfᔇ@ TwY`гJZa- [`uxexexex0w'[~PR폖M?qE*Ef_dd8~EFy_ddZb+Pњpt;: SKi+#J꾃5š)5!Ny&kF*arlcBHѼn䏟đKR: 4}M()Y"i<(잋UzJS-dq 7hsXѶi-NyW=ĩGYg>6 -RxMH|bS:;'y mj CbҶ񙌁Lj>qWD(q٠|) ŲWX<[ mG]观#k,`\x77TI_@d}rySX(}(=G:Ktš^O .7%왿@=*V#IoFO10ļXrN;4iy3ݺ 0<_PKzU%U0_001_macro.concatarrays.sasXmS8=s8/a.дpCLC[ V*Ʉ܇(mlu馲BG-D򧧺lP)?*90h7|V Є5kGd]Xu=L$ kUBW94$jFmȩVDq:¢ٶZW(A+8~՞Kl{$.Y7bK6h8 R X5 A1s1e[QO*fIJ0Ys`mqqhU&f P4 `q|D F 11215 ~" 6gxWKs#[)Jd/iI,DiN#`S ֢:s:4cИpwQ׵8:4 dz"wZMr2 xJXo%Ó?PKzUPuU _001_macro.do_over.sasYQsH~wC'>0҂lk*&)۹]W*i0: H힑 9l47=4ww{''%8O  &̍D ...A& zP^^^ˣ+<b1^+!1 ~(~=qr6?&}=--lw*ss ,LB,ybCEln3?d΃S(T݇|xns ā42 %-(+?=C&}<3R?>ֵ/e]4EȂϲuxd yOOS #GJU=Uoa\!C8;wel3nLxKt#_n-zj[)hy?'/T|Q@21X̠$УoisK1DB 9$Sԝce)8)ʘw)h5$ +˩Caz4]9"3tDSYM)8z, #J\D(1\$z  (! &[dލC'"F( ]JxUD+i@MNˍu΢^\`57#R?)IB5  !Kb1Ak94𹗡$\@\Bdf 3˱Hoyi]+^Hr]shKH-<稪|R*18LP+gfh]{fKg5`E+ʚB1#MH܈L (&Ɍ/uRqh8EL`fܤg;`@8vDu:64 ^ޒ~r}k&' #&<o,Yѿy{J>ݯU5ӀB"[Y,F@J`ҿ(ѣ? s E*2sM)1PKE`YmUnH2];bjT~D Խv6٢܄7%dٓj eTЯ MM@Ô[녛r¬2Y%7gɪC a,v\.WIPh$CrEkTbvZʼn(YY"&r*}c豀 电 ~Ȟ,G0cbFPHqVL_ۯdb%p dNJ6UĖ驺޺M@+ߢ+xRƪҵİZ{J0ĀNQέ*4iC6 (lE{T,JƄNdn~s]$܇|^[XP\,'#|zSEz#f([aCh~>p\^_TƱ\(f)ո>Z YiJ ?Fz( ?ۏb8{Zi mXi 7 ($YZ2`8 ލOa?+!'˃iA 2\ WAÃvUUȘ@`I{O}SKf)UTIk߅⽏}|w;f1v AA&ZB43DL)rj6}Uh ̤ؗ y,5bRiD5Xf嚈(j6f)(.[䉥Lʑ{bT,/ -BG\B<{BX-3c}:l1X#c2]dw2.m[lNbc!6F rI=. >̰堑wahmCWvm蟘?pn|0!9y7l9ʗLj0DhTF\uА?(TJ.6[+ Srʄ˥2|;3B3WDo%EvTb$sc/&IYdk9c=$͸syPV=~8wbCm ūA5s;xS`V]V +Lo!5h7ގYnaXJZ:LDx5!'g}iVR}Ђ0{ß;SpM׽6!؆eg7~x:D>p1AxpkkNʃqlLO/>C g'^ඇ6*4pKܥs(yQꎝR$jesFo |y{u+Yo6—͗ 鰛mcP*8X>g+k;zsR1<&ڝMT|r;[FGpuΎ Wz-eʧ3 h }:P7Ep@d4]ɳo# ؃LRuW&x*!M*16\^\Ҵy+c]0wmLKuj%ffbݐXBDtLн0-xx!6~JfOojAD XwL?'s0َX#V&ƻm:e#5I슫R>SH -qPKzUkʘv_001_macro.do_over3.sasWmo96ڔ݃Mw.!hB =5*o\zn?ˎ {\WGGAZ-D R@ل&Nfy"jvfGu)ʥ)X$4,՜IhW8z  o KGw3˭!Pyo.uk@T,hLSI4R詤i#R%Ēr `p.]G0'F%׫6p3M LV,2wW'G?Q,|,00>40l!ZJ1LpV'ETT\`%-v]z8jVSI=TZV|{pv޻x{1zA)? 0 AЖlFVPKfm zBdPLXL,m 1ob)ҦIB4Hd<¹UaC# hcܪ Ty1s+ zDEcyal{`S&D.r.bB$K5ܐ43?Qvтh>:” ϋٕu&ָLV6hgU IFEVˌ%IJ uQh稭=}"Z[q Kk'N0ٲ-; q*: ֞}\MQ֯X`p v/AEILG:֝;xǝSsJzG87XUg/7 2n%xdZA2&dS{c3k]j>쮇=;oߪتXO^*;"@a@|:v iūhZOӜ$+ݔޖrrM>ގf*>=xwn篴{6ЪU :CߣFwb&NSW}t>|X{> :ۃ/p 8s/0LͰ]bc l6`<2`VS3T^1֗uo{и{O#+S<Sn5fJ WQyNU<>iiǍMI?nvF} |0SȆS~O>l"w?,9) j+6>*; )Bk1_J6jxE;t(\}aUP'xF/Q1MṮ*ɘ3jzjvn{mU0ƛb{$#%Rk5k6P΍9%$dF&4W cc S3-Xu67Zյ^4)䙙uԂJdKչXբLhZt&KP)xL5vv@eIF KC$|`xPKzUI̦_001_macro.make_do_over.sasXms8 S^ҙ si]{&޴%oWMHXճ8ypoނ'O5e|ˡʣ} SEᐁ`S~T!/0 L8x Gݰœ)j;|; ٢`%'߈]Z9,7S``a( 1?O@Gq /]!p΄9Ӂ,0G`{bj{P7t}shO |(0 ;6]$-)-:fxIE<& @(цPʙ[s J$/MA}rGЄr ]dFKcz WH%ͅCg V5R 5WTćG9 吼[v{ Ԭν2s"DaVI3XbPQa{7wW3P!j`!z$ZcKV޻,R@/ȑ]+_bym7M7׶HxIqm;OjTocD Ȅ~O=P29?A%vvC*Ti4##uv{&SEZv7@wo@?9_؆lBhIz&7}*X|,)cs}c6pʃrԲ]t٭˄*JԳq˭2E-rΒlPVr:ͦ^lHWUmD[kE[E%ZzNIVsK4k#==-gHb[|2_.Ns^bomr%k$$+f ZAƀ7ʇnG5Z Xu!}Se;A:~h uz~18^p>k uFaa.:Cf ˧;F`_ o@bJVa΢@$/sc+ne~Ӥ]iHh?RJP:J(p_ ?vfn5%l \ZmEb6!"9tl>J:Ut*'9KA-&nmpUL !"d}>>CwyˁT{m4FNH}o 7҅=*|h_~{>kԗBk̝؞v`qoJPUh 遀oo7r5w{+4(?cgEt{Kt5grI4zg=F>+_Op\IK N4'n MˆZGp\$ ]vItm t؛d(|PmL)*k f {A2ӇEt ,IPh̛7V=5- ;MR(A`c↚ 5u7 0P44x9bdBoL L5He]5YYn6y~uc`hVмtHRWStqu 3J]T ioLݨ]תsmuÍ`p[:޻ńodcjFj("x`̟?A?ѫ5=p[>!24|pF yXɂUgO`eR5>k cns4cDث7m 80?a ޤgfKE&=n9I*JA)(sLzڛ`>fmoJQ04؍G. ɹyQ[o:9vL]{`(%Y ^D:,"@= Y'}qI䀡jJ ͌+H20,-MS1G#q!oLG4d$Fy#e7MBȦ Hh[bY(r=)4ʇepexFN\h%3GTTfYUsP& haFX)IgR+X *y_`ATw|E,::d(-C~*! կu!1hrMa&\HuyNj ~juVu>_TؓXYܕ[={ XHWX T" /h``!РhЄNx7q(ib%mKAfhz̘&0ͧ  i: [A+HNp[Sґ GX#VhaJu>P:M.#̼8u"w(C7D@3q|s]o +2PX($ǩBpTU<<"Y 3^_\!~}T( |&e J!gk# Ujr߫(>s9T-9TckcCɩb1G*2 }p2,.E_2)y\ӡr!i=1o>a7 T!YhtCA>(O! _2ȡ}io/;Zl^xʂ_-|=|;ɫ] (be!F{KYuO2}Cy/ÐKl6_zς·sn'־@fukJ {ZdSYH3goVr[hQ'>Pnu>\edPg' J闫QytN8jy~8]Y=]J[P.Xt␴4h64㱵wC[H]Q≶wC%~-2çC_j=Wh/.*+n]rW̺2';`+IW|s%IKuoYݕs1es" NW+%Uqno@BT_1U;5 ?t|{m5rcTK+W3jdU[Oq5p(v=e8Cq_<;ۦR'S9:ضU* !`EZFZފNsb1<%)xmIp[s:8tspf/dӾEt6LKE3?JĒtb> S!`8ww1 &o<0]^|Oc<ԅrbU|eG;Q!&0ŗyܧHNа3 B|ꁑHc¼xKV؅mMRۥ4rOw8}I Fj 1%v=saj痭f Ӭ:'$ z~I.Gӕi_QI%λ ֋=~$\# cG]e5ҿ_:J̈́M3`|JdM]RWgt lѱ)ngpA&MKgey?7& { [0fzAHΎdVIvo=v5.$3.0 q01f $ˉb%!>? ,bK2ٯ=eua{a5vt ~O6d Ļq,1[/Pȣz(2'mm 21"̷d/ط<6X!;]݇`NG XtPu,,Sgrk4 x9t G dRઔRelyVu8!׮f[s$K/ nxOQXZ痯76$*V^*  KE/m ߣ-4gs so ˛H*nկ` {w* GBVZi;a0H?`udbQoHEJjA.BȮ`2^y y=a:6-著8^$yz͍DZ;~@h+Xw f4aWZMG0wv5s+p5@'Ѹ֊fV"7`&EzE{!vjc#+'t*>% zٛ_޶*lJmtˁƊ|ީatR1.44KPzfs+,0?kI48M(QWI3Bvp#Rb\L>&lF SDGNr=ř.C}cjUgxu@G aI8T{CAFJ+M5ihʰ1PKzUC`x_001_macro.mchashtable.sas]{sȖU=edf!;qmgnR{@HmP,$" L9[BOCݙfbZ_>}ޒZ;ju; vuݼf𰺻vw^`o߾eռ6xEkFc6D%>^r@KojoًcwgwzsuL̴M5Vq=sdIa7nZ>snJbDU :뎭_cUV՘ez>^OiWzLw&R5`~#nsF5h4aWL,ރ~@Nf2]Uan>qC68એEd@8|f<2utl,Ǯ8gALc456\SwXavus 5ԙ7}큁$8oV0)MrAL}ݝ><݉.Ms=o?ͫnVrjfn$k9k<[W٠;`t%:3]nTk<ђI΢1@ t fHȦm5FF`t@e|BCBd̨PI4?W Tvh+Qk KOh]^OhU!H6|!vXӼiuyR2@w9I`9! g:3Wxr-l M U_JK"1aF7{i#XĄnδw|Y-1 hbqwl\Rqk'Ǎ0G0o1 q g}לLGЃ_:"`]gB ^]𢡄]pffG$oVI2)c!7E%337Q rPy`ypa1lR,!OG>EP`YEKJ`:h.N{l4OpBCMD)ph c~)frUG3$c*9Xv~{w?n3[H;S@2)`@iG~Np+ V-ݝ%"@ԶoLQ4))D 3L=:xQ$Ck,38)$&쇿PnJlФhc1>2dIDؔ+-422Y4b3:[d70C^p(h#ԥSw轱ޠk'P4E9kSO ͎2Y.ɷrٙ 8 0dϛAJWa g{ 3al^}8{};ulxvJ3@M .L@mEk q4ɛ"^:;͆Vih<ׁĈ:Z6ǃhA@VN Yc_4|zSTUrO?[d]kzw#7"ԦkkG`"j;ab@`S]؄ wgL5p(Tg2Ic,{!G(f\ۺf0P 4Q  DTPˣ,{>D:Մ f=Tq EJmHH3v)FfܐKY]}@Z=^` Бe) )@ۛ. d >e!R^W$tXeS? K/j*.RUמT&jCO3=/* *\?˨nQÅARQI\t]-}Ss6LLVΫ+M1AOCm(83-|t޼+_DPR% )vd#YU=Reuk@"-St 9/#kg ^/O.hy g pUB}h5r{ F}^Az&xѬI%!q BSWj-gM1ɇ͚a0*;3i#?֟RA ~T͓PQ&v1ϐGdd&ljk N*uEv+ٷe]=h&y#A{ 2)i%*06IKILSM.<^s\⹹h4 C>gQw &-O鎸Kbq^}<-"CgT .# T81ORǦ_@+3$ oZЈiE5UZͬpd:I¯EuuRTR,DoSШIAJh cnIypD@Nl F,1b)<L ahlyg48 (IGy!yK"Aڟ%_Sg qse'Aw7 ?{Qkf"_sMnG.G>؞W |Fy3߃|2sip3l8WaR>qj;k>'C'NWμ`C9e'IV_wN/yۀGWm8y[x1w{^pϸkS8G|'փjf/U'5Hr3sKI\N=~cdX_AZ7*OVL n}z$ gx}%{;{xlL9c=<&_.n m/2ݝˏg7d;mݝ ٖ c ^oB?n.=eSPv<;edzsYv<;eGhIyeRyInVa3a).w[)^oŪpjjFKYA[F*:!]~JHֈb%BtjVb [Y؜1H鈑WN-)}6xVtb=I|7з2 -; J7+!X Tc pς6N'b{`OӋ^犂WVsάENhәPI -K@r/N2^b6VlR50B5ldnAYlk4jf%>G/A1fSK/H==:}?6A\:g\f$07*(#ʏvlwz |zݾV^8:O4WL5м NfxrCBQob-ЍZ_rlp-XSDž><1;G Nd"T8gG%?䇟oIf޽K6ZdS,ZgXH(#il _cf-T|]XPQH0Zp/ q|yy[:MX/S0^S8lq ZAFѶ&S3$e-Dm`+.YDkrϱb f|y|oaR Fx&c D   8"iԶaLV?qbf^A%}r]}띞_Ca 5 ! Gcl/8 r\QuzQ5y&Ŋͦt[кɍQ}ȕL.eB4w?߁5݂ԝ뾃g PRewn\.>^LA=Ľh8wf^}bSBzWP@M?|U9b͙М09IPr\]á4{.gY dG7 9^2f!g="ޑԊg āT&pMV͠#o`pɭqv$]Fma?vh!"*smx9h{ھpa(LqPKzUv+2 V._001_macro.qziparrays.sasZs'΀rW񔸴u4ci1 aB?ܿp{Eytj[1qk^s~YvFs f)-x`bƑ>8?;f$7sِ${uD>!س"._p/ 9O,))x|IR@-?x=qfB"=!MUDKaF ܆D $Z̵bEEF$/YhRƸuB~fTGQ bmC6 (}aĂTBP{ !)GǏ;`.63GX̑U74I g]pT`-|1 PÙ|֜Bb3i'u$q!r#H_n:N2Y.-5[8A!'9ZD FhWE>E>g'Ss&/Lr^(E oCNL`ś&#ENZCTitӬTj},C+p )0:M@_G!eKfq9F:fc$[$"ј|> ccCJD՞!g9_$l\T;V&]L./Pf(n E+<ꩭ: 6=b*5'1+8 q4W8 yRprҾ .Eb^yLE "Kz \ijG\xѬ+ҍHWs0:S] jڷ4V{ { _lɦɮ5Uc':Tbh*yguUr%#%?x@rfIDT,ЊsEEFgE[E#-SzfE%mLdPaVyD&mo`&0*m(C"X:nGT8Ek4X"~rBExTԄieK5ٻQ> ~& X'%P7%xVw*UX]TEn[7;uU5$O('C*jc9JC ~R[LOBӻnDwI.b- g.4&ȲQ% l-7D;\~>.Q#!=Ipn%k`S݁ ɛz7] $&t!{ןZ_^_ߠ!m(p ie8ǖ W y|[gjx;ZJ=phylKcW[ (ُ 1M[ 5:ꐹa< ӆi'5 5p{ى|e)"H悾]_[š(>KQ$nEʬA+g,ɀp=!BZʢl9fYz[9)4+'+t9xB:ʬHD[);p[%jUSZ&6k{E#(jUΏۺ!ڨӝ S5#s>nƦɸNN8}y"AoA]]QbjO]Z@`P6I$uᇟ)N[EuDٳuY\(;>?bɝkѥAz'\GPOϬ*@kB{C0UrZOy%\p-5I~ñNЧO){4M < EYj<|$ loWzNaSYI{aUa\5mǭw%V(ci$^' ~F*aUẉNWgkk)hP˜'&D[4XufA`a8ne:vW6숂؃r_,!V6gKҀEGO^ kdN=r# M4+[4(^5(dj7ǭJ|Mh X=B i;nc .WW0kM_NÛAW ) 2ScA1);_QX@P3Q%BL1 %8Y*/67gsoR/Ґ{|+N7,P6hX~_b;3cؙPKzUV_001_macro.sortmacroarray.sasWko9 a(Zʰ"YD""*pMR} [v"9s) hotR!tK0D+拤!{;C Z j bq/CVzձk%V/@'TaӃqN0LA%x#+ 1] a 1@2ܱp%pO+o߼G5r㉚f!Nre0fJcPݕ꿹2 cL&SExRԏÚu䃳Q,HBVө_tjZ/]Sb-]nq*4&<YPN,3l5v G|2 b]LI_{yd%cdyDnCԴJe"Yb0L&1q>!Vx0hߴZޜ]{K\%"܅<leeyo\5N_vژF|?6I%5J2%bv)H|uQvEk=KXoZ.`沦l{?~B/f/)r/ td][%PE^[@r.x: ;l]~<}Z zCwܣtE O* Mo .E@nك4dF>TMNޓ%G6wd tB -vZi†}Nqz9{RM Qme4 ^dBl])}c&ʇמ#najVDX)J̭tXwіskeqm4+2 V s7yqW(XH(L=98̥?ҩEqCH=HTE 6> O}^ki2g 6e=14u%Erzv߬Bv ;.Ѿ68o?iN`OG4('ZS&.XM+ q[+|J,h^ov:dM7ۊKQo!ۦ.vMhJA5T6A. *[,tVUCpǻPKzUtK39_001_macro.ziparrays.sas[S Ö\†$\ChK4 1h"Kw<BhR>yܘ*zXQ:awN@\t&_;wB·<  ™{BY8O=4W Jv\ jlmgu忋aHa9M{cA{d ƺ?v棓 /iG A֢SGTBױ 6(4;T2a(d~6q? ruB}$c H4'@Ftdlc BȩRQF3y52@*fLw7uw&B]֏LnVyEdS֙LPD4=mH\2:=`-O(3pe;!kS..tq!Ίzl-a!3h\\Hz% $P 87ڏ3ᴏf]ұ1ؼ*"E\@\x dLsd?ԕTҮ4+UXlPgck " 'P&7(J;+JU*SU0>#ʷ)3P*(n1(|nEY_]Ed\bBq8П.I}O> DIcVxRdVXJ`M,B)BVIߕ:L8{@S h!IƑp6n݀L-Բ@[۟_WmoWOsC]qpzv$԰.jc,iprX`LAԁV>cl8g4< NPbȷ`*.jǪMRH(O2Z|C'}ÉW#!; m0v;tݒ:s!#aHJ*.:U]z!k>RUޮv!zTS߬ğ+ U ju؝(g\r#ll<ߓ$bZ$98O$ (Ͽ[Vz^2yȍ*4J"OB[:X9Znwr=V0M hb b3Pn{f# \L]rn `Kƴ! `1z5h&ttndYLxQ-uVS?R'm\*bϡ RgXF% n]sh' ]86zǁ6@M`;''п쾻8_[ 52J\Jsxv/?kkw&A-tw YOV藂"8VMujX{q6-[3V\gcP'GP}-ޚPo3<`W2%v| eW8qOL.#ݥ7Q'G4,nNf.;F:aH{Љ&}k~jz=WXi:@i wM~|%sK੶}/yp||CpʚՄ/vghp<5W-jQP&T/6sM90;/AJ`1E &l63(W[;-~o9-l#-9Ap0upf!wL Zq<ΟʻV^})|Brm{ꊁ]oHKBi:ǢĢ] }>L!}$lyM9AD{H}T0aтP3~U1ŠW; yg@.n'1lgԶY*PkdU2XCxZEȱɱ#CW_Oۦ VJs,lʚ$jm8ښ35` ߼2K/Ԕccj5 bGH-iX?Zנ ~ѐxG:3y#[6r}/:űY0 ԓre\fsL-ܤ,epǼ6+؊R,'\]cw㈻HEZBjRjX^@l®Ŭ"y7F~(Q2wfJҏoi{]R2q 1>nI N\1mRbV@JC2G7)YB @mFw s\A?POf O8+PKzU8<j  description.sasPKzU*riG  }license.sasPKzU1 Bpackagemetadata.sasPKzUrc Miceloadpackage.sasPKzUD:  load.sasPKzU8jA  lazydata.sasPKzU[r  bunload.sasPKzU",m  preview.sasPKzU*\! help.sasPKzU  J'_001_macro.appendarray.sasPKzUhiP/{ q+_001_macro.appendcell.sasPKzU]71po 2_001_macro.array.sasPKzU%U0 N_001_macro.concatarrays.sasPKzUvD2 T_001_macro.deletemacarray.sasPKzUPuU  [_001_macro.do_over.sasPKzUx; d_001_macro.do_over2.sasPKzUkʘv uj_001_macro.do_over3.sasPKzUI̦ Vp_001_macro.make_do_over.sasPKzUAm] }w_001_macro.mcdictionary.sasPKzUC`x ܈_001_macro.mchashtable.sasPKzUv+2 V. _001_macro.qziparrays.sasPKzUV _001_macro.sortmacroarray.sasPKzUtK39 _001_macro.ziparrays.sasPKmacroarray-1.2.3/hist/1.0.4/000077500000000000000000000000001452773550200152765ustar00rootroot00000000000000macroarray-1.2.3/hist/1.0.4/macroarray.zip000066400000000000000000001442441452773550200201730ustar00rootroot00000000000000PKwUnt!<j description.sasVmo6nb@b6à6Ŕ[=I`{E hhlѢHHw䗦Kl(aQ,b-7"sB+XЦO]ݓv;#p-أ0CŌȝo0 R(G,BCTyX޹rvۭl"s>_I_0@i*G(rf2G`2nth +ruF$=8JpKĔ"Cca১8VX(ږ;ӅDQ~YLבL(G_|*ڣH\fPQrZןO֤9caNan vkWoj6h̡U:s0G7d#䖊\{+2TG)p[fUV7xNjD=Ίi0Ulbc4Qrɬ݊}07USn{VfҰ4Jk$!a$ZDU 0[:#lIFFAz"!YґJXP넏yܴ[)pv\ѕemAW<Ӛ6z|vkOBKj/F}gS{>)o7魏f [۔؝H\+JR9Ly);乫娾],<1J\RW[ոFTV[sMY=?U`M.l|2{]M]e½D \[՟]_pM8WZ ߴ[0%cN&$J:فH2:#㸂U^RY2T^^}nQIDxYpT GJiK` )b 1JJ%PH`. ^“b饷ה:TuZ0ʴbp4>\8݁޶F!!t=T k7~RȌ@͗\L9>8Ik8w=I|ڊ#={ AV8髧dn0O3Ľ;,z*z$&`x=10h}o"'ZjS,nDQ=:k46Pvҵv _p 6SGv[j`o[Ceܱ7#>NMG},,90APId<=K`#en'$+- `"K$k(eU EQ:#X b%dmJ 5LdsfB4.J *&s&Z˪9ȐB _y@YKGl$YR<.XyƱ8s~\i*#P%`<͒SF%IˢL0l^Q5d!f"XX+ ޝG轮+#dHVxJ2W PKwUIKpackagemetadata.sas AA0͉ҋrP.(Dô*.Q<` b^H*0OY/k*,#kh4NO)=evYYy[ا Ta^&YX2ز.}w3ϜqF`K ѦN_njM5~ۿ~w-.^;g/Vvt3$%G7Nsa3;$gٹ~bFm+Sy>&&flǟ3 BqTNeM#@YϱqUz㲾ƂK>-)iQβyC^u'(RjeR+fVv{(<Zs/w1PKwUf jFload.sas\oH=Rg 6KH Ѕe$&!hӉ8vq<zN4 z|U Y/c0 6wwvw4pt \٪nX0UGD8k ۂzp8A(JJ|6eG&9.e Up9m5''Nߞcۑr2/FZ5,̛oS76,(YwTR̜zr%FθS=|{9;0f9:# TZu\Yq^o QRhn@ؒ.}qs*Ə̏1,P52fo0P'3n^M3K3?t؏X vខ4 OgfяaiLguℹ*yU!s{h9"4Feɗ8p GU$%C bCbgKNٓm1壙gvv%L~BفTV#0yka&b[ bVebh"nH0! :׷+["0_X \[oEhCԳE p&^Ռ+ ^bˆ|YÑI P~ϦJ{ Ѣ`MJ``ZC5/X73#qI>cޥ3Tc'+` o!F8q}e:I`-8C V%m2,VR"!!tcHݑv#c9ˏK=8l[?WcSu0rIQF-k1L1H?dU N <ᰉEa|AuFɵx1j*g2b\^Ys!ӫa J%t3{1~?[0 .Zbr5 S7SJS լduxzuJ}sysqVPz& ٦i?S;4318ǯ k}Iǘxf/,h)<?I*O V=h3UCʁL[>N\ypfO3e R^i+_9ՐuEuf2Y7Uk@CQ*[isYc9cBz;$֢dWF[EqpTAjn=v\8&54uo mi:8_9dFiGa)^Gc渒R6 :&P+S:7Uv E-Ť&ƅoEᾎ1Ru?kU;"㖱:jp醂suѲWڜ>gU~O`k.ܙՇڜm :[#ESDBs``$*<):yO)>UrLͶ4W HF\VāR$+yr Jg&Õ7I[J5gb̃2{Hɕ'q;<4;5ٓ iHc%I#_R'8Rr3H9ΉȆŗحȉJW$IA=/툊W(QsB=u{S(uKB "ˊ%)a[1-|% ݊&EP̬"I=v\] ()x+P)L,9P3*|ZN?'VL5N,F OogR1u*ǣ|l>~/t>#hѓ&c7*&~G{{ ѓuXg+Mzo(+tp) q#)1#tjg}ӤͲGď-os +/60~rTr1@#w)gNy|jLfA<{I5gw {GtKwnNݛ+@OY6CAA`2\s8Ǹ-pw/ic fWT @V a߈P =oC̚=YyfCa($ZG `dh396}LM@0%ڳ~>]fY|hhN?/okPޟvk҄ν\дec@u?,䟥Yʩ~.>qfÔԙѽk#b-uѥz(hO=Qrb,K/jj׋-^WDLIE⨋ţNyZ6Oer{>W@y$JZ2)kI$|J)"^ugEO/}T9S4,y*G#T]#MH׺•e.x]GݡLI1M;@1 @~>k "27g2Li,7*0JXlWEYL"^r5-0ZGed%ȥdzoQ,dA=~\Zr%]2-.2i{LCf2&=0 Q&.j|l>n#c^9L_XBTE.V<;zT/VI+rҊoJXNH93Ë%#,{i/>8 f=J>TrI V*ܜc*Q<*PKwUu̿hC lazydata.sasQ]K0}?\Ђ#wk0Kk*/霳S|2s=lGAw!ptl4C<@ &Pnv4LJoJrn;jBX!i<GW)f#Hw(PRi ~0q0^JU$㈐ˁeBa|L#8B*-]!bu$q>?! m< $v=ųdO ֢|mM[*+ӉxPﶨ jb(di(2TX=j*E ^"PKwU unload.sasXQs6~LÞlꒄ\f|mF"b[%__I iS?  //3|9X(;{M$xi#IO#8ԾbD@4 jF9t䕂{7!x^ƟْM瑫yb!tfך>2FrI(0N~<]eL4!xM,k.8wjbFJ_z#P13[CN[YleE:% N[ IāNAI;DTDcyX [c!XApS7^ ~[M'j. ]nw#}0AB틔K#f{ob8*[@\Z%R{`GTԔwҲ_ְĀf;l'^g =˞ym_ ڝӱpcf3u|/oc^tBR3^ф+*:[yv rb‘w<ADOTO#gdggjLAvWe[H[Nd/4R~?$0YZ'`s_Q0A0V*z-ײz*hyhq6˱ *™"'qhHuY{)w |'~$)M\@9绥 řcBSDyo*~KYHӬ̦nsܿٓ1i٪ՇƉUV6AcK#K[Sހ_t*hP?9qxGq֓) 2'8bGii=YPTes۝~ۺp1# G^š$.lH*HMiya>B _o0J BTWTGs EphLWk| G6%(} 6:p(Ri\~%7̒ANI/~;{=<8ʊPKwUo@@m preview.sasXn8}7M,^_KYlZ; 훠Ht,TUjE?~.k9JlsH3p8*Inܿ}g3.&V'q"`q]=#? ĚfBz'҃F0=dH Η;\nNx@Ē#Dckt1=].owNĚ2[]jܺA$C?(gLg!y!w&o*< r +π} 8MGR^Q8-+5"*_h&~rw7D+>wkK_[r( CK/|: &npN&alRH!#-Vʉ{ht4|4':êٌ%cQ񛂣=k$1vϒf}d#"]:[\sÍ R$?M+x8>-Ob Z<B`t_$uS@8 ]?RM:'|15fit0,lga y$f IOjbHCL~q܍}94 :"hLn #'-h+ty9$bHjR,Rsy40{x ;$>`^BjG=u(YC%XC:.qs3xVjqtc$z@oXPqK"\I̋rz]TGxYŴIrV^fܼ֓bKűVEIrGY>)\]ʚy$+ <[9@c3MH/%kѰ&vv ٤,өܝ}\ԢñBC5,amXd}MQ*4 ?PGicmv8HZ$<ۤ@.+=Gh7VۧeB_OL:-N.}u_-ŻAɸ7;hPKwU4\!help.sasZms8 as 6v^ڃM@LS \y[$˱Eto%X nXjz$u$tn} ~ºJGьfjI9wqczs~8ifYe-cwN:_#,_E2GJKbj4^pGAlq,th[z=PA(* )#\>K:]"JLZ v /! *̼<2N s<9I he-j;v $,#=ybu yIcO3 쇆# (Bo>;(кps2wG!&%U9!<%&0\'!t- :xp3PD.qƐMmwU^6i3m21!;ڢefft_e]ӕ^MKE*J~hfSf4QeDv筭5]'南@OKۡ.`:)4?+mLHMq)|Uh~]ӓBӿJN.3lw=ى3ˇp>:#s1-o?*qY> XY>Ex$bawiă4! H=X>b #:a?hb++enH݁xh0odh-Uuѹ=d< 4s܌S'2 GJ< {/b]HkXWᨯ,{/ЫԮZ^3`emlX7w_baF/irK%^r ^0ڔB bF ඌH:cj%ͯJ*8N Z}k HuKzB5b-> = ? vCh3܏RGEHg3xУ b#"7#da`3NGR9 ؠۦ-@ ZM<VH)Fm /yax:SVFZjq%H b+VCI(1;o,UM'I.xRPeBX@DD Jq Ȝ󲀘V"YE +ŋY@XhjGь.>rE=I-F&sf58g`֠ HQY5a;#^2`iLIP$ p` ̮jEXUL70g[GBXm'av#{#=?P8ANJ"dzOon@z>^?kV v/뷦u /V2^㴥 څ**OkV}_-o{u-t([u#t LF\@xǔ8 8ūӺ';zc~Z"W=g:Z>*[~5t~yPBHe>^$XcE#⾄k,B>.q hdpzT܌2i|SK5J|Fs Dٓ|Kzme|t69+ *)t<:)n2dwؔ]{V?PKwU _001_macro.appendarray.sasV[o6~7p,ɲt71.! :CMKM"]>tRǍӢ5K' Cx5:} h6a8,TRn(Hd R=/BH:dkh6.t 0 +eTQ-X¹4 1T^o(aZ[ckH \^R r54 B( AB^`Iq9cJMEz.+G74+ ؗ%*_̩SǴ"}׿n>MfZrcS6L#7 8؈#'Da UlpD7FFl o6؊` TK̹X9)|þ0qhoǒ)xRڬ|ɑz,@펺enu8ޒtwR<28Ly|#KK@ͩ)B`rIhdZI׼ ǘ+32lPKwUhiP/{_001_macro.appendcell.sasY[oH~G?q/˾l%4"i5 VSe7M9e2ɖp];9Eɲ,Pi=vK%+l߯r˛O0bpyy |6e#Z6.K >,l&yxy(If3,ɤzSM), m;r@ 7}{;;;ax4ơ}"B|tΗ$]KrPS?`UZ u~i$(1`$'Rg3]SLZf= \|((]Od3&l"UU(sHWSs=I#?AjBWUȏD[A#4I=uBÞ!,.x?-!Y"8d HؤMp{}45h ct&[k~J8ڱ  D:lȩ?7T80˦ %ڰ(׫rHڧs}qA%;5TIs]s~ivK l}lӌ&#)xr&=X(kU B {UVD-:tBP:ƪ;Hcqoy,; EX ݾqe[FO{F ;O ]VBz[kVpۼoUn/v}W'\̇c* (5J!),KA=2Wi2;`9nȽHT~u@Tqbm2pг"iUY%D)fMj68D%âVFRXkHBqD6.fJj>@SܨΗvR"Z>Z=&J wiBUa]zкr>)n"Kz5g tYN((P7#AUmpty)g@j6itRAG Gnk"[tvz?7* kVqN/,w},\:|u(:, 'iW+a@k_QCOSӊS:D rPkC{t KXê%0")zMJ<0{KVy>悢ĆذoHlQ gJO:"G5:^ߎO>͑~[~yyJH=\:tgMXpaQr<^2)ۮKq n5XZJ_Ou9 LB~`)u{2dr 'wA)HkC7@th" d,C,^F?qpĈS!<)۔|0yzRpteIx_V̟BؐS>x-nI%z-(27 j3ZVu< ui5( SIy gj ?e=1׳Q|3gxPKwU]71po_001_macro.array.sas=kwHsNCY83cBvCdmx2>99 C H6oUu^Ğ{LhuWWWUףbȎ['oy1[|=}{%lYo-5}f؋/ ֌7 Lo /_Z/ٳ'O gޘYf]-b9r'(2+[?H2ŕp?=} Xe!T[kk¡ /Cء; ,DW#0wa7XbXvcufw4 w1=,PȃEg eCl> (:t¬F`Zw%ƍP|3۱|@zZ!v. KyClg0$ /j?B!L7>(hvȆˮ8w|,w5D>0ĭzB-ta M}+IKa xT )%j#Sq >{xx8&'pLv,ј,└|} (wB`f@8w21)7 $Z7:(L}P_+_۶> @I EUQVQ]$x:^Y4bl|'` }ڙ)yܹbA AkN:%˕Ä"?(]0+`G unX?<}"G()5^W8/k Տё?2'*QM˧ZpbӟqCRxCߦA4a~}]q:X N4ɳ0M,;ڤP%'f˦/~`wfʴsumly(-Z+\au[k/+gsJӳi(K)Ίǻ@ AZTP w8҅N1J#ɡ;h3 &n`-Au.Iu3;( kܔ@`ܱo! 8A)A >/ GµQ`)dJTz '@霣 L@l"f4R9V_ZPyNh+vB8[̨~?=BC->m>8" "&P9N,$$ ) Z:c9 UHKd(r$urʃ>Z" m);z u; ,ԗ"DE"GҎ$L37sͻ k5(byS1ghTJN!rɂ#&h('6SY8P/Fܱgq !Nn˗y6*(:jg9Z >8K03H ^`QG{D KA/t}$ȁIO掅Ǹ(Unb r{2 /O̚Or0ԚZ>$ED+ZԓӬp\yr"x M~B4YA_`kV@ߵڿ]/f `M3H3}%EV"jE) ( :4毭{JvwV cVb-n/wĤ:@lICQq= GX}=B·_w4ɠc+ KlOQVBb+:ct`3v.9d4;QX 8Z;#hʤhh -DqN"z:iREyw0 f_%K}a|nR4,9#/O^~~4O[ZBJl}  j+\ :!`ff,_Nϖ)v;#Lh*nAdg$}*X&iשҨ{щ|]`"8"XFa킡) qF} ۴"1jEȮK pB\'h>e'7;{k!+Bݳ#v)]#wt׆BYX6P2_*Ȧ@јRHW*l)m+lBvĄmCl<9;lЛ\ųiD' I?4 z&XF rW[(ڝK6ѫ_#?n,jS?%hfx~3*̄fy-%m1cc%SJ֭#܏)D{$H2QGU=tx!wӿ{go(2kZ'-pZ};gBl'HI#OM?Ha+)thWWr\cN|GhGx!ufK ش $ ! :y ΧـMDJNmol|l\M4Nmi-n{m xw1##gh琟x࿋M:j 8n`! @f/^|A<E,g'$̍E-j<:_q) џ5eW]K\F7 vU=k+[zxjN4ǂjB9(#^nmWح$4B^G&OƷ{CBikB@ꌽ;n?F{O{+u߱Ώb\&vhU썑Jzk6|mt&R=4Avc0 {ar(%=r ξlɧ\o6m7d@l?x5츠]Tx<C^iٓ(oלώmv1mq!q)yO3Ǵ#k67^;ް(uI_|` Ĺ@K&%;y̽rtKqVS\UUL:I'l>2^07uX[}zJ-+ ד<1gyY,'r,'r,sύzJ_J#Hc$1T%aL8 10&Ƅ8x  צR,)I$Ą Ij3_ܠ%=lt'~Զ4qΙf +\Ԃ g11X=Q .7*\f$IOiҳ06aR(VVL*b ZQqi]$D|<7qYJ H۹wq̙UR%|P!GajO~'}jMMS%'W 6~>&ߛC{z>0*WbAA; 5^)-=<or ĉ90o̢4:4hGpOg3djD+n98R5*"ЙVuX5Gs o Dp(9c~z}j-cR%Twh#X*(1OR6,f=?~''ZR/u_~ ϟ+9)E=E=E=OTcx ܈`ʨQMVp=q *f]5zƉ2/jZem"0lN7Y_(~!7iH> fRj@A!*<M̄j긮Z~_$Q .eyQ`U* QAMDp%"*Cv64Ni4>T̧V #sd^TO-mvnQS̖@WV$Ҳ'Qp?.׍vq]sRi [XHPVj\ZKkqi-.ݏKquܿ('lfᔇ@ TwY`гJZa- [`uxexexex0w'[~PR폖M?qE*Ef_dd8~EFy_ddZb+Pњpt;: SKi+#J꾃5š)5!Ny&kF*arlcBHѼn䏟đKR: 4}M()Y"i<(잋UzJS-dq 7hsXѶi-NyW=ĩGYg>6 -RxMH|bS:;'y mj CbҶ񙌁Lj>qWD(q٠|) ŲWX<[ mG]观#k,`\x77TI_@d}rySX(}(=G:Ktš^O .7%왿@=*V#IoFO10ļXrN;4iy3ݺ 0<_PKwU%U0_001_macro.concatarrays.sasXmS8=s8/a.дpCLC[ V*Ʉ܇(mlu馲BG-D򧧺lP)?*90h7|V Є5kGd]Xu=L$ kUBW94$jFmȩVDq:¢ٶZW(A+8~՞Kl{$.Y7bK6h8 R X5 A1s1e[QO*fIJ0Ys`mqqhU&f P4 `q|D F 11215 ~" 6gxWKs#[)Jd/iI,DiN#`S ֢:s:4cИpwQ׵8:4 dz"wZMr2 xJXo%Ó?PKwUPuU _001_macro.do_over.sasYQsH~wC'>0҂lk*&)۹]W*i0: H힑 9l47=4ww{''%8O  &̍D ...A& zP^^^ˣ+<b1^+!1 ~(~=qr6?&}=--lw*ss ,LB,ybCEln3?d΃S(T݇|xns ā42 %-(+?=C&}<3R?>ֵ/e]4EȂϲuxd yOOS #GJU=Uoa\!C8;wel3nLxKt#_n-zj[)hy?'/T|Q@21X̠$УoisK1DB 9$Sԝce)8)ʘw)h5$ +˩Caz4]9"3tDSYM)8z, #J\D(1\$z  (! &[dލC'"F( ]JxUD+i@MNˍu΢^\`57#R?)IB5  !Kb1Ak94𹗡$\@\Bdf 3˱Hoyi]+^Hr]shKH-<稪|R*18LP+gfh]{fKg5`E+ʚB1#MH܈L (&Ɍ/uRqh8EL`fܤg;`@8vDu:64 ^ޒ~r}k&' #&<o,Yѿy{J>ݯU5ӀB"[Y,F@J`ҿ(ѣ? s E*2sM)1PKE`YmUnH2];bjT~D Խv6٢܄7%dٓj eTЯ MM@Ô[녛r¬2Y%7gɪC a,v\.WIPh$CrEkTbvZʼn(YY"&r*}c豀 电 ~Ȟ,G0cbFPHqVL_ۯdb%p dNJ6UĖ驺޺M@+ߢ+xRƪҵİZ{J0ĀNQέ*4iC6 (lE{T,JƄNdn~s]$܇|^[XP\,'#|zSEz#f([aCh~>p\^_TƱ\(f)ո>Z YiJ ?Fz( ?ۏb8{Zi mXi 7 ($YZ2`8 ލOa?+!'˃iA 2\ WAÃvUUȘ@`I{O}SKf)UTIk߅⽏}|w;f1v AA&ZB43DL)rj6}Uh ̤ؗ y,5bRiD5Xf嚈(j6f)(.[䉥Lʑ{bT,/ -BG\B<{BX-3c}:l1X#c2]dw2.m[lNbc!6F rI=. >̰堑wahmCWvm蟘?pn|0!9y7l9ʗLj0DhTF\uА?(TJ.6[+ Srʄ˥2|;3B3WDo%EvTb$sc/&IYdk9c=$͸syPV=~8wbCm ūA5s;xS`V]V +Lo!5h7ގYnaXJZ:LDx5!'g}iVR}Ђ0{ß;SpM׽6!؆eg7~x:D>p1AxpkkNʃqlLO/>C g'^ඇ6*4pKܥs(yQꎝR$jesFo |y{u+Yo6—͗ 鰛mcP*8X>g+k;zsR1<&ڝMT|r;[FGpuΎ Wz-eʧ3 h }:P7Ep@d4]ɳo# ؃LRuW&x*!M*16\^\Ҵy+c]0wmLKuj%ffbݐXBDtLн0-xx!6~JfOojAD XwL?'s0َX#V&ƻm:e#5I슫R>SH -qPKwUkʘv_001_macro.do_over3.sasWmo96ڔ݃Mw.!hB =5*o\zn?ˎ {\WGGAZ-D R@ل&Nfy"jvfGu)ʥ)X$4,՜IhW8z  o KGw3˭!Pyo.uk@T,hLSI4R詤i#R%Ēr `p.]G0'F%׫6p3M LV,2wW'G?Q,|,00>40l!ZJ1LpV'ETT\`%-v]z8jVSI=TZV|{pv޻x{1zA)? 0 AЖlFVPKfm zBdPLXL,m 1ob)ҦIB4Hd<¹UaC# hcܪ Ty1s+ zDEcyal{`S&D.r.bB$K5ܐ43?Qvтh>:” ϋٕu&ָLV6hgU IFEVˌ%IJ uQh稭=}"Z[q Kk'N0ٲ-; q*: ֞}\MQ֯X`p v/AEILG:֝;xǝSsJzG87XUg/7 2n%xdZA2&dS{c3k]j>쮇=;oߪتXO^*;"@a@|:v iūhZOӜ$+ݔޖrrM>ގf*>=xwn篴{6ЪU :CߣFwb&NSW}t>|X{> :ۃ/p 8s/0LͰ]bc l6`<2`VS3T^1֗uo{и{O#+S<Sn5fJ WQyNU<>iiǍMI?nvF} |0SȆS~O>l"w?,9) j+6>*; )Bk1_J6jxE;t(\}aUP'xF/Q1MṮ*ɘ3jzjvn{mU0ƛb{$#%Rk5k6P΍9%$dF&4W cc S3-Xu67Zյ^4)䙙uԂJdKչXբLhZt&KP)xL5vv@eIF KC$|`xPKwUI̦_001_macro.make_do_over.sasXms8 S^ҙ si]{&޴%oWMHXճ8ypoނ'O5e|ˡʣ} SEᐁ`S~T!/0 L8x Gݰœ)j;|; ٢`%'߈]Z9,7S``a( 1?O@Gq /]!p΄9Ӂ,0G`{bj{P7t}shO |(0 ;6]$-)-:fxIE<& @(цPʙ[s J$/MA}rGЄr ]dFKcz WH%ͅCg V5R 5WTćG9 吼[v{ Ԭν2s"DaVI3XbPQa{7wW3P!j`!z$ZcKV޻,R@/ȑ]+_bym7M7׶HxIqm;OjTocD Ȅ~O=P29?A%vvC*Ti4##uv{&SEZv7@wo@?9_؆lBhIz&7}*X|,)cs}c6pʃrԲ]t٭˄*JԳq˭2E-rΒlPVr:ͦ^lHWUmD[kE[E%ZzNIVsK4k#==-gHb[|2_.Ns^bomr%k$$+f ZAƀ7ʇnG5Z Xu!}Se;A:~h uz~18^p>k uFaa.:Cf ˧;F`_ o@bJVa΢@$/sc+ne~Ӥ]iHh?RJP:J(p_ ?vfn5%l \ZmEb6!"9tl>J:Ut*'9KA-&nmpUL !"d}>>CwyˁT{m4FNH}o 7҅=*|h_~{>kԗBk̝؞v`qoJPUh 遀oo7r5w{+4(?cgEt{Kt5grI4zg=F>+_Op\IK N4'n MˆZGp\$ ]vItm t؛d(|PmL)*k f {A2ӇEt ,IPh̛7V=5- ;MR(A`c↚ 5u7 0P44x9bdBoL L5He]5YYn6y~uc`hVмtHRWStqu 3J]T ioLݨ]תsmuÍ`p[:޻ńodcjFj("x`̟?A?ѫ5=p[>!24|pF yXɂUgO`eR5>k cns4cDث7m 80?a ޤgfKE&=n9I*JA)(sLzڛ`>fmoJQ04؍G. ɹyQ[o:9vL]{`(%Y ^D:,"@= Y'}qI䀡jJ ͌+H20,-MS1G#q!oLG4d$Fy#e7MBȦ Hh[bY(r=)4ʇepexFN\h%3GTTfYUsP& haFX)IgR+X *y_`ATw|E,::d(-C~*! կu!1hrMa&\HuyNj ~juVu>_TؓXYܕ[={ XHWX T" /h``!РhЄNx7q(ib%mKAfhz̘&0ͧ  i: [A+HNp[Sґ GX#VhaJu>P:M.#̼8u"w(C7D@3q|s]o +2PX($ǩBpTU<<"Y 3^_\!~}T( |&e J!gk# Ujr߫(>s9T-9TckcCɩb1G*2 }p2,.E_2)y\ӡr!i=1o>a7 T!YhtCA>(O! _2ȡ}io/;Zl^xʂ_-|=|;ɫ] (be!F{KYuO2}Cy/ÐKl6_zς·sn'־@fukJ {ZdSYH3goVr[hQ'>Pnu>\edPg' J闫QytN8jy~8]Y=]J[P.Xt␴4h64㱵wC[H]Q≶wC%~-2çC_j=Wh/.*+n]rW̺2';`+IW|s%IKuoYݕs1es" NW+%Uqno@BT_1U;5 ?t|{m5rcTK+W3jdU[Oq5p(v=e8Cq_<;ۦR'S9:ضU* !`EZFZފNsb1<%)xmIp[s:8tspf/dӾEt6LKE3?JĒtb> S!`8ww1 &o<0]^|Oc<ԅrbU|eG;Q!&0ŗyܧHNа3 B|ꁑHc¼xKV؅mMRۥ4rOw8}I Fj 1%v=saj痭f Ӭ:'$ z~I.Gӕi_QI%λ ֋=~$\# cG]e5ҿ_:J̈́M3`|JdM]RWgt lѱ)ngpA&MKgey?7& { [0fzAHΎdVIvo=v5.$3.0 q01f $ˉb%!>? ,bK2ٯ=eua{a5vt ~O6d Ļq,1[/Pȣz(2'mm 21"̷d/ط<6X!;]݇`NG XtPu,,Sgrk4 x9t G dRઔRelyVu8!׮f[s$K/ nxOQXZ痯76$*V^*  KE/m ߣ-4gs so ˛H*nկ` {w* GBVZi;a0H?`udbQoHEJjA.BȮ`2^y y=a:6-著8^$yz͍DZ;~@h+Xw f4aWZMG0wv5s+p5@'Ѹ֊fV"7`&EzE{!vjc#+'t*>% zٛ_޶*lJmtˁƊ|ީatR1.44KPzfs+,0?kI48M(QWI3Bvp#Rb\L>&lF SDGNr=ř.C}cjUgxu@G aI8T{CAFJ+M5ihʰ1PKwUC`x_001_macro.mchashtable.sas]{sȖU=edf!;qmgnR{@HmP,$" L9[BOCݙfbZ_>}ޒZ;ju; vuݼf𰺻vw^`o߾eռ6xEkFc6D%>^r@KojoًcwgwzsuL̴M5Vq=sdIa7nZ>snJbDU :뎭_cUV՘ez>^OiWzLw&R5`~#nsF5h4aWL,ރ~@Nf2]Uan>qC68એEd@8|f<2utl,Ǯ8gALc456\SwXavus 5ԙ7}큁$8oV0)MrAL}ݝ><݉.Ms=o?ͫnVrjfn$k9k<[W٠;`t%:3]nTk<ђI΢1@ t fHȦm5FF`t@e|BCBd̨PI4?W Tvh+Qk KOh]^OhU!H6|!vXӼiuyR2@w9I`9! g:3Wxr-l M U_JK"1aF7{i#XĄnδw|Y-1 hbqwl\Rqk'Ǎ0G0o1 q g}לLGЃ_:"`]gB ^]𢡄]pffG$oVI2)c!7E%337Q rPy`ypa1lR,!OG>EP`YEKJ`:h.N{l4OpBCMD)ph c~)frUG3$c*9Xv~{w?n3[H;S@2)`@iG~Np+ V-ݝ%"@ԶoLQ4))D 3L=:xQ$Ck,38)$&쇿PnJlФhc1>2dIDؔ+-422Y4b3:[d70C^p(h#ԥSw轱ޠk'P4E9kSO ͎2Y.ɷrٙ 8 0dϛAJWa g{ 3al^}8{};ulxvJ3@M .L@mEk q4ɛ"^:;͆Vih<ׁĈ:Z6ǃhA@VN Yc_4|zSTUrO?[d]kzw#7"ԦkkG`"j;ab@`S]؄ wgL5p(Tg2Ic,{!G(f\ۺf0P 4Q  DTPˣ,{>D:Մ f=Tq EJmHH3v)FfܐKY]}@Z=^` Бe) )@ۛ. d >e!R^W$tXeS? K/j*.RUמT&jCO3=/* *\?˨nQÅARQI\t]-}Ss6LLVΫ+M1AOCm(83-|t޼+_DPR% )vd#YU=Reuk@"-St 9/#kg ^/O.hy g pUB}h5r{ F}^Az&xѬI%!q BSWj-gM1ɇ͚a0*;3i#?֟RA ~T͓PQ&v1ϐGdd&ljk N*uEv+ٷe]=h&y#A{ 2)i%*06IKILSM.<^s\⹹h4 C>gQw &-O鎸Kbq^}<-"CgT .# T81ORǦ_@+3$ oZЈiE5UZͬpd:I¯EuuRTR,DoSШIAJh cnIypD@Nl F,1b)<L ahlyg48 (IGy!yK"Aڟ%_Sg qse'Aw7 ?{Qkf"_sMnG.G>؞W |Fy3߃|2sip3l8WaR>qj;k>'C'NWμ`C9e'IV_wN/yۀGWm8y[x1w{^pϸkS8G|'փjf/U'5Hr3sKI\N=~cdX_AZ7*OVL n}z$ gx}%{;{xlL9c=<&_.n m/2ݝˏg7d;mݝ ٖ c ^oB?n.=eSPv<;edzsYv<;eGhIyeRyInVa3a).w[)^oŪpjjFKYA[F*:!]~JHֈb%BtjVb [Y؜1H鈑WN-)}6xVtb=I|7з2 -; J7+!X Tc pς6N'b{`OӋ^犂WVsάENhәPI -K@r/N2^b6VlR50B5ldnAYlk4jf%>G/A1fSK/H==:}?6A\:g\f$07*(#ʏvlwz |zݾV^8:O4WL5м NfxrCBQob-ЍZ_rlp-XSDž><1;G Nd"T8gG%?䇟oIf޽K6ZdS,ZgXH(#il _cf-T|]XPQH0Zp/ q|yy[:MX/S0^S8lq ZAFѶ&S3$e-Dm`+.YDkrϱb f|y|oaR Fx&c D   8"iԶaLV?qbf^A%}r]}띞_Ca 5 ! Gcl/8 r\QuzQ5y&Ŋͦt[кɍQ}ȕL.eB4w?߁5݂ԝ뾃g PRewn\.>^LA=Ľh8wf^}bSBzWP@M?|U9b͙М09IPr\]á4{.gY dG7 9^2f!g="ޑԊg āT&pMV͠#o`pɭqv$]Fma?vh!"*smx9h{ھpa(LqPKwUv+2 V._001_macro.qziparrays.sasZs'΀rW񔸴u4ci1 aB?ܿp{Eytj[1qk^s~YvFs f)-x`bƑ>8?;f$7sِ${uD>!س"._p/ 9O,))x|IR@-?x=qfB"=!MUDKaF ܆D $Z̵bEEF$/YhRƸuB~fTGQ bmC6 (}aĂTBP{ !)GǏ;`.63GX̑U74I g]pT`-|1 PÙ|֜Bb3i'u$q!r#H_n:N2Y.-5[8A!'9ZD FhWE>E>g'Ss&/Lr^(E oCNL`ś&#ENZCTitӬTj},C+p )0:M@_G!eKfq9F:fc$[$"ј|> ccCJD՞!g9_$l\T;V&]L./Pf(n E+<ꩭ: 6=b*5'1+8 q4W8 yRprҾ .Eb^yLE "Kz \ijG\xѬ+ҍHWs0:S] jڷ4V{ { _lɦɮ5Uc':Tbh*yguUr%#%?x@rfIDT,ЊsEEFgE[E#-SzfE%mLdPaVyD&mo`&0*m(C"X:nGT8Ek4X"~rBExTԄieK5ٻQ> ~& X'%P7%xVw*UX]TEn[7;uU5$O('C*jc9JC ~R[LOBӻnDwI.b- g.4&ȲQ% l-7D;\~>.Q#!=Ipn%k`S݁ ɛz7] $&t!{ןZ_^_ߠ!m(p ie8ǖ W y|[gjx;ZJ=phylKcW[ (ُ 1M[ 5:ꐹa< ӆi'5 5p{ى|e)"H悾]_[š(>KQ$nEʬA+g,ɀp=!BZʢl9fYz[9)4+'+t9xB:ʬHD[);p[%jUSZ&6k{E#(jUΏۺ!ڨӝ S5#s>nƦɸNN8}y"AoA]]QbjO]Z@`P6I$uᇟ)N[EuDٳuY\(;>?bɝkѥAz'\GPOϬ*@kB{C0UrZOy%\p-5I~ñNЧO){4M < EYj<|$ loWzNaSYI{aUa\5mǭw%V(ci$^' ~F*aUẉNWgkk)hP˜'&D[4XufA`a8ne:vW6숂؃r_,!V6gKҀEGO^ kdN=r# M4+[4(^5(dj7ǭJ|Mh X=B i;nc .WW0kM_NÛAW ) 2ScA1);_QX@P3Q%BL1 %8Y*/67gsoR/Ґ{|+N7,P6hX~_b;3cؙPKwUV_001_macro.sortmacroarray.sasWko9 a(Zʰ"YD""*pMR} [v"9s) hotR!tK0D+拤!{;C Z j bq/CVzձk%V/@'TaӃqN0LA%x#+ 1] a 1@2ܱp%pO+o߼G5r㉚f!Nre0fJcPݕ꿹2 cL&SExRԏÚu䃳Q,HBVө_tjZ/]Sb-]nq*4&<YPN,3l5v G|2 b]LI_{yd%cdyDnCԴJe"Yb0L&1q>!Vx0hߴZޜ]{K\%"܅<leeyo\5N_vژF|?6I%5J2%bv)H|uQvEk=KXoZ.`沦l{?~B/f/)r/ td][%PE^[@r.x: ;l]~<}Z zCwܣtE O* Mo .E@nك4dF>TMNޓ%G6wd tB -vZi†}Nqz9{RM Qme4 ^dBl])}c&ʇמ#najVDX)J̭tXwіskeqm4+2 V s7yqW(XH(L=98̥?ҩEqCH=HTE 6> O}^ki2g 6e=14u%Erzv߬Bv ;.Ѿ68o?iN`OG4('ZS&.XM+ q[+|J,h^ov:dM7ۊKQo!ۦ.vMhJA5T6A. *[,tVUCpǻPKwUtK39_001_macro.ziparrays.sas[S Ö\†$\ChK4 1h"Kw<BhR>yܘ*zXQ:awN@\t&_;wB·<  ™{BY8O=4W Jv\ jlmgu忋aHa9M{cA{d ƺ?v棓 /iG A֢SGTBױ 6(4;T2a(d~6q? ruB}$c H4'@Ftdlc BȩRQF3y52@*fLw7uw&B]֏LnVyEdS֙LPD4=mH\2:=`-O(3pe;!kS..tq!Ίzl-a!3h\\Hz% $P 87ڏ3ᴏf]ұ1ؼ*"E\@\x dLsd?ԕTҮ4+UXlPgck " 'P&7(J;+JU*SU0>#ʷ)3P*(n1(|nEY_]Ed\bBq8П.I}O> DIcVxRdVXJ`M,B)BVIߕ:L8{@S h!IƑp6n݀L-Բ@[۟_WmoWOsC]qpzv$԰.jc,iprX`LAԁV>cl8g4< NPbȷ`*.jǪMRH(O2Z|C'}ÉW#!; m0v;tݒ:s!#aHJ*.:U]z!k>RUޮv!zTS߬ğ+ U ju؝(g\r#ll<ߓ$bZ$98O$ (Ͽ[Vz^2yȍ*4J"OB[:X9Znwr=V0M hb b3Pn{f# \L]rn `Kƴ! `1z5h&ttndYLxQ-uVS?R'm\*bϡ RgXF% n]sh' ]86zǁ6@M`;''п쾻8_[ 52J\Jsxv/?kkw&A-tw YOV藂"8VMujX{q6-[3V\gcP'GP}-ޚPo3<`W2%v| eW8qOL.#ݥ7Q'G4,nNf.;F:aH{Љ&}k~jz=WXi:@i wM~|%sK੶}/yp||CpʚՄ/vghp<5W-jQP&T/6sM90;/AJ`1E &l63(W[;-~o9-l#-9Ap0upf!wL Zq<ΟʻV^})|Brm{ꊁ]oHKBi:ǢĢ] }>L!}$lyM9AD{H}T0aтP3~U1ŠW; yg@.n'1lgԶY*PkdU2XCxZEȱɱ#CW_Oۦ VJs,lʚ$jm8ښ35` ߼2K/Ԕccj5 bGH-iX?Zנ ~ѐxG:3y#[6r}/:űY0 ԓre\fsL-ܤ,epǼ6+؊R,'\]cw㈻HEZBjRjX^@l®Ŭ"y7F~(Q2wfJҏoi{]R2q 1>nI N\1mRbV@JC2G7)YB @mFw s\A?POf O8+PKwUnt!<j  description.sasPKwU*riG  }license.sasPKwUIK Bpackagemetadata.sasPKwUrc Miceloadpackage.sasPKwUf jF  load.sasPKwUu̿hC  lazydata.sasPKwU  Sunload.sasPKwUo@@m  preview.sasPKwU4\! #help.sasPKwU  W*_001_macro.appendarray.sasPKwUhiP/{ ~._001_macro.appendcell.sasPKwU]71po 5_001_macro.array.sasPKwU%U0 Q_001_macro.concatarrays.sasPKwUvD2 W_001_macro.deletemacarray.sasPKwUPuU  ^_001_macro.do_over.sasPKwUx; g_001_macro.do_over2.sasPKwUkʘv m_001_macro.do_over3.sasPKwUI̦ cs_001_macro.make_do_over.sasPKwUAm] z_001_macro.mcdictionary.sasPKwUC`x _001_macro.mchashtable.sasPKwUv+2 V. _001_macro.qziparrays.sasPKwUV _001_macro.sortmacroarray.sasPKwUtK39 _001_macro.ziparrays.sasPKmacroarray-1.2.3/hist/1.0.5/000077500000000000000000000000001452773550200152775ustar00rootroot00000000000000macroarray-1.2.3/hist/1.0.5/macroarray.zip000066400000000000000000001443121452773550200201700ustar00rootroot00000000000000PKWaV<j description.sasVo6߀ŀİmAm)zA٢EIّ(?.E XG{;ta q1B9,DXhSmd'lخIuQpQb sT7 Zgwm})ZЋ#F!*<_,\wopVYaW9w߯k\zK٣huL9X3Gn0H7:4:ppy[%%bSޡtI0~S}+]MgxmKBm"`V,S&Hc&/>Q?Ge}Fvk(9B-s'vk10 0 a;dt5]^4EGPʪz9rKNU̪`: ' EE4\ W K߼yꄽ[w{j kK.Lb+"B Wp]e<:Տ{C5B ;uge- Rd_vƧq%a yl) =QWpGi3䂆mJNy\%)RprTWF.x%Kuf+I}cj? T#*-ҹ&լ *|NA>JYk=Į Ë./&+-oڭ ]MJ1'CO s@$̑NJq\*/,D TqF>l 7Ǩ$d,8Am*ڄɣa %%0MX1%|%`(ix$0n/U`KHkJ x:-veZ1Q)$4\1?S>[}4PKWaV*riG license.sas]RK0GqڕLb!I qbdL`w"!gg}7[3|KQxoC=1.^N XP3h(hQ>p4>\8݁޶F!!t=T k7~RȌ@͗\L9>8Ik8w=I|ڊ#={ AV8髧dn0O3Ľ;,z*z$&`x=10h}o"'ZjS,nDQ=:k46Pvҵv _p 6SGv[j`o[Ceܱ7#>NMG},,90APId<=K`#en'$+- `"K$k(eU EQ:#X b%dmJ 5LdsfB4.J *&s&Z˪9ȐB _y@YKGl$YR<.XyƱ8s~\i*#P%`<͒SF%IˢL0l^Q5d!f"XX+ ޝG轮+#dHVxJ2W PKWaVe$packagemetadata.sasMk10']6[[^-ɘ`>$RKɥs|wf)LnNJ C<?R#^H åPwvuc-oyiF]dP?yX8q9OmGr/x% ;Zh4IqGigI҄EseiΓk~H3[ɅCaT触 a|:abŌokMoPKWaVrciceloadpackage.sas͗mo0WwF J(MiUQ'U]ZUIioĩte~gАJ 绳 {uP/`pĢC`cp{z"3P$Lk3;|&aA VD}ُtBF k`_8KPL#o9SK& ]0Y$t_a,cĜr}afs6Բ ` b^H*0OY/k*,#kh4NO)=evYYy[ا Ta^&YX2ز.}w3ϜqF`K ѦN_njM5~ۿ~w-.^;g/Vvt3$%G7Nsa3;$gٹ~bFm+Sy>&&flǟ3 BqTNeM#@YϱqUz㲾ƂK>-)iQβyC^u'(RjeR+fVv{(<Zs/w1PKWaV}ҝ rFload.sas\SH=Uƒ6ذ^QLNmƠB-jU@׏g40N|lipn3{n ZåuSU{TLTͱ;V9ܰ-hUNcgpu1lAR@Ϧ.HC5B$YQ]CyX;85Fqp|a~tg>؎̕y 7 Wae}gfArȥ!G>R`l;>0cꢿZo’Nf睮*iNƘƂ,U63W87() I@h l>9LTGjc T݅ TLGWgSf }f88w8g4]c`b1}7}0әYdX9!8aJ^s+ܞ9kzG7H;ME7Y%}c;\AKIm2=hdj[ry_xfi=]-Cav`xU0Lޞ/0~65:Xpjk?ڠA?A/ wʖckZP/l`#?W5#GpJز!F,_pd#߳)`i{(XSXFhxEnK`̈c`ݻ?>cޥ3T*l1&:$)XY-0_I8<چV#y3Άt]i] 9^JALo݃soz90U M cǞ$ E1jhTв6D]:dOKFXUO KQY \'T j5ikRc6Td>#@*UÑ B _4SCAȃ,Jf$ cba\4傃50j(n*ԯ[ç'NE뎕WPz&1Sc4gju&.d`մ/#&lً+ x?z/r`/Sֱr1tqTs,#6WN5dv|FzݣLuVMiPk\X(ٕvQE\"\Ep_r@Wl1jե2=ލᳲ-ϽpCxbg+}?,}h# (,Q:+uW1T vv;>AdjEqv_׀N轥TĒ¸t;1ƚ\9t] qv*xWBd2]G.Pcγc.Zv*T4 bilͅ;sHQ-A|ks1ԼhHh Y=E'i0ŧJIٖ*!Ɉ݊8PqE24o^DdrS&)x+P)L,yPfH"$nGfǷPZ"{YE}eSqDJ3&#ZuY4rcG79BJF]q?9*9^ @#ѷ)n=e!ܨ:a.s8SJT#/7~8ܒo0`ңM zǎgNy|jLfA<{I5go {tKg_OK@uOYo7CAA`2\s8Ǹ/p/i:7mҩxZ\wt/~gJ ̡Hb# cZso6tu@PQ֜*tq:l^TD]hIi8qEԦS H$'w2Q6h߽çP޼#0 _M{S}=4s/i/-iY@w8*@ -h,jrj oz*O\y1efrrͨ 2V;Fy\M>Vx)YI9r)=ޙr b|I׻LALZ_)ЭILbB~mxű kKHۥʀgGϒHSl+Ҋ=iT@ZMi"˩)g~xbe//GǕ|alZCk. JS_0~z`%Ge>/PKWaV0oJB lazydata.sasQj@ Ahz(eIFtݤƊ-=7f{[Q=zzE8S:zVְzH$TSؖ*žfIIxCX) ze(>MK.تP:_L)Aܡ@I51DA4ia'ݳZt/7r9LCg`-%JKǶIZIKuO9LJ7%cz2&9ߘ&ɝ.ӏCdnU~韠>! !ѱX[Fm3Z|EPKWaV)2 unload.sasXQs6~LÞlꒄ2t'0_ؖcpWHy#}jHCz>ÃÃCv[PؽwB&L4$̧NjbD@4 jF9t䕂{7!x^ƟْM瑫yb!tf闚>2FrI(0N?]eL4!xM,k.8wjbFJ_z#P13[CN[YleE:% N[ IāNAI;DTDcyX [c!XApS7^ ~[M'j. ]nw#}0AB틔K#f{ob8*[@\Z%R{`GTԔwҲ_ְĀf;l'^g =˞ym_ ڝӱpcf3u|/c^tBR3^ф+*:[yv rb‘w<ADOTO#gdggjLAvWe[H[Nd/4R~?$0YZ'`s_Q0A0V*z-ײz*hyhq6˱ *™"qhHuY{)w |'~$)M\@9绥 řcBSDyo*~KYHӬ̦nsܿٓ1i٪ՇƉUV6AcK#K[Sހӟt*hP?9qxGq֓) 2'8bGii=YPTes۝~ۺp1# G^š$.lH*HMiya>B _o0J BTWTGs EphLWk| G6%(} 6:p(Ri\~%7̒ANI/~;{=<8ʊPKWaV#k preview.sasXmo8Eג K$PO=-om8΋ZK x<ό'8k?!Rxmg\Lۭv ΢Da5.N1|Ɩ1c_37s0zҐS[qu]8IDf^"BՎiHc"7{h_^ jdOFjDlXlrkAX{? 8rNͧU:̳ #w|L @!PpAx@%KSAQ8-35B*_j$^pwT[0(u% pپ§-464>w{ea8$~:G 5r.$&MC@°j6cyɘtShs8 ps&ILgç}dR]:[rI1xVxU@Ϧ@5 Up~ d5l!P0,hE_w#a9'dV@Ixgj4hÑ l TDEd .:gdZc . @^ Ru:.fyOazuģRlګ]HTb*KqK([%~ x/Ke-pKPG7V@]'q=ߕ;%IGH6oy hQ)E!2|׏(EėB-*O[ӯv!MjnGՌ)^j?}sU1&K85ed 2>5_,z,+SL./1ڭ4|ځ`HVp%=2/.xuQQ'i2ۭT̸y'KbKűVEI@pʂozIrʯWfnhwns֜k M1zj}lu[RVuAMhX_Y;uv~jlRT !.CjуP8h/6cvߓ4Ա6;pg}ad-KmR^Lh1sA.k=Gh7VeB_ϣL:/N.}u_/fŻAɸ7;hPKWaV Z!help.sasZms8 as 6C;/ILS \y[$˱ŵto%X nXjz$u$t&_Yi?ajZh`p;꿃ZD01Dy$0qܘ^Ʊ3k$N|l70!zR(F$~Sb/](Z I0uj['ڧLsdZ9=_l}9eO4A~19~)ʿ. vEާ~$xAbI@Y2HJ'6EeB!e$+rPBKTIU+:nao%B2]_e$T9ptTR#xMbh9QsxbykkMkAIy%vh3N J{erjS\r -߯ki~XҦˌ0]w|vb!ONĜL cۏJmbBc&*mg#{<p~c/E=y1`x9OtѐLF$ܞ ,hW!ȐO'&JRw 3Z$'9<r -uU]t.aKټfq>5MQ8`OC$Ba wX|-O,{/ЫҮZ^3`emlXп_baF/irK%^r ^0ڔB bF ඌH:ej%ͯJ*8N Z}k HuKzB5b->_z}=|}ӷ*D4in0=_,B:AÅUp;?X2uY;@IV$cn-|k7_l[#us*8LZu*bjJŕ E*`UTX %Đ\XmT1+6 'JA ajJ(5 s>bb^ZSdQ>//rfQBbJ!E3"' Wi!s/OCl_Bj rax%KAoP9'0kwRG6eF-I*[~5d~yPBHe>^$XcE#⾄k,B>.q hdpzT܌2i|SK5J|Fs Dٓ|Kzme|t69+ *)t<:)_n2dwؔ]{V?PKWaV _001_macro.appendarray.sasV[o6~7p,ɲt71.! :CMKM"]>tRǍӢ5K' Cx5:} h6a8,TRn(Hd R=/BH:dkh6.t 0 +eTQ-X¹4 1T^o(aZ[ckH \^R r54 B( AB^`Iq9cJMEz.+G74+ ؗ%*_̩SǴ"}׿n>MfZrcS6L#7 8؈#'Da UlpD7FFl o6؊` TK̹X9)|þ0qhoǒ)xRڬ|ɑz,@펺enu8ޒtwR<28Ly|#KK@ͩ)B`rIhdZI׼ ǘ+32lPKWaVhiP/{_001_macro.appendcell.sasY[oH~G?q/˾l%4"i5 VSe7M9e2ɖp];9Eɲ,Pi=vK%+l߯r˛O0bpyy |6e#Z6.K >,l&yxy(If3,ɤzSM), m;r@ 7}{;;;ax4ơ}"B|tΗ$]KrPS?`UZ u~i$(1`$'Rg3]SLZf= \|((]Od3&l"UU(sHWSs=I#?AjBWUȏD[A#4I=uBÞ!,.x?-!Y"8d HؤMp{}45h ct&[k~J8ڱ  D:lȩ?7T80˦ %ڰ(׫rHڧs}qA%;5TIs]s~ivK l}lӌ&#)xr&=X(kU B {UVD-:tBP:ƪ;Hcqoy,; EX ݾqe[FO{F ;O ]VBz[kVpۼoUn/v}W'\̇c* (5J!),KA=2Wi2;`9nȽHT~u@Tqbm2pг"iUY%D)fMj68D%âVFRXkHBqD6.fJj>@SܨΗvR"Z>Z=&J wiBUa]zкr>)n"Kz5g tYN((P7#AUmpty)g@j6itRAG Gnk"[tvz?7* kVqN/,w},\:|u(:, 'iW+a@k_QCOSӊS:D rPkC{t KXê%0")zMJ<0{KVy>悢ĆذoHlQ gJO:"G5:^ߎO>͑~[~yyJH=\:tgMXpaQr<^2)ۮKq n5XZJ_Ou9 LB~`)u{2dr 'wA)HkC7@th" d,C,^F?qpĈS!<)۔|0yzRpteIx_V̟BؐS>x-nI%z-(27 j3ZVu< ui5( SIy gj ?e=1׳Q|3gxPKWaV]71po_001_macro.array.sas=kwHsNCY83cBvCdmx2>99 C H6oUu^Ğ{LhuWWWUףbȎ['oy1[|=}{%lYo-5}f؋/ ֌7 Lo /_Z/ٳ'O gޘYf]-b9r'(2+[?H2ŕp?=} Xe!T[kk¡ /Cء; ,DW#0wa7XbXvcufw4 w1=,PȃEg eCl> (:t¬F`Zw%ƍP|3۱|@zZ!v. KyClg0$ /j?B!L7>(hvȆˮ8w|,w5D>0ĭzB-ta M}+IKa xT )%j#Sq >{xx8&'pLv,ј,└|} (wB`f@8w21)7 $Z7:(L}P_+_۶> @I EUQVQ]$x:^Y4bl|'` }ڙ)yܹbA AkN:%˕Ä"?(]0+`G unX?<}"G()5^W8/k Տё?2'*QM˧ZpbӟqCRxCߦA4a~}]q:X N4ɳ0M,;ڤP%'f˦/~`wfʴsumly(-Z+\au[k/+gsJӳi(K)Ίǻ@ AZTP w8҅N1J#ɡ;h3 &n`-Au.Iu3;( kܔ@`ܱo! 8A)A >/ GµQ`)dJTz '@霣 L@l"f4R9V_ZPyNh+vB8[̨~?=BC->m>8" "&P9N,$$ ) Z:c9 UHKd(r$urʃ>Z" m);z u; ,ԗ"DE"GҎ$L37sͻ k5(byS1ghTJN!rɂ#&h('6SY8P/Fܱgq !Nn˗y6*(:jg9Z >8K03H ^`QG{D KA/t}$ȁIO掅Ǹ(Unb r{2 /O̚Or0ԚZ>$ED+ZԓӬp\yr"x M~B4YA_`kV@ߵڿ]/f `M3H3}%EV"jE) ( :4毭{JvwV cVb-n/wĤ:@lICQq= GX}=B·_w4ɠc+ KlOQVBb+:ct`3v.9d4;QX 8Z;#hʤhh -DqN"z:iREyw0 f_%K}a|nR4,9#/O^~~4O[ZBJl}  j+\ :!`ff,_Nϖ)v;#Lh*nAdg$}*X&iשҨ{щ|]`"8"XFa킡) qF} ۴"1jEȮK pB\'h>e'7;{k!+Bݳ#v)]#wt׆BYX6P2_*Ȧ@јRHW*l)m+lBvĄmCl<9;lЛ\ųiD' I?4 z&XF rW[(ڝK6ѫ_#?n,jS?%hfx~3*̄fy-%m1cc%SJ֭#܏)D{$H2QGU=tx!wӿ{go(2kZ'-pZ};gBl'HI#OM?Ha+)thWWr\cN|GhGx!ufK ش $ ! :y ΧـMDJNmol|l\M4Nmi-n{m xw1##gh琟x࿋M:j 8n`! @f/^|A<E,g'$̍E-j<:_q) џ5eW]K\F7 vU=k+[zxjN4ǂjB9(#^nmWح$4B^G&OƷ{CBikB@ꌽ;n?F{O{+u߱Ώb\&vhU썑Jzk6|mt&R=4Avc0 {ar(%=r ξlɧ\o6m7d@l?x5츠]Tx<C^iٓ(oלώmv1mq!q)yO3Ǵ#k67^;ް(uI_|` Ĺ@K&%;y̽rtKqVS\UUL:I'l>2^07uX[}zJ-+ ד<1gyY,'r,'r,sύzJ_J#Hc$1T%aL8 10&Ƅ8x  צR,)I$Ą Ij3_ܠ%=lt'~Զ4qΙf +\Ԃ g11X=Q .7*\f$IOiҳ06aR(VVL*b ZQqi]$D|<7qYJ H۹wq̙UR%|P!GajO~'}jMMS%'W 6~>&ߛC{z>0*WbAA; 5^)-=<or ĉ90o̢4:4hGpOg3djD+n98R5*"ЙVuX5Gs o Dp(9c~z}j-cR%Twh#X*(1OR6,f=?~''ZR/u_~ ϟ+9)E=E=E=OTcx ܈`ʨQMVp=q *f]5zƉ2/jZem"0lN7Y_(~!7iH> fRj@A!*<M̄j긮Z~_$Q .eyQ`U* QAMDp%"*Cv64Ni4>T̧V #sd^TO-mvnQS̖@WV$Ҳ'Qp?.׍vq]sRi [XHPVj\ZKkqi-.ݏKquܿ('lfᔇ@ TwY`гJZa- [`uxexexex0w'[~PR폖M?qE*Ef_dd8~EFy_ddZb+Pњpt;: SKi+#J꾃5š)5!Ny&kF*arlcBHѼn䏟đKR: 4}M()Y"i<(잋UzJS-dq 7hsXѶi-NyW=ĩGYg>6 -RxMH|bS:;'y mj CbҶ񙌁Lj>qWD(q٠|) ŲWX<[ mG]观#k,`\x77TI_@d}rySX(}(=G:Ktš^O .7%왿@=*V#IoFO10ļXrN;4iy3ݺ 0<_PKWaV%U0_001_macro.concatarrays.sasXmS8=s8/a.дpCLC[ V*Ʉ܇(mlu馲BG-D򧧺lP)?*90h7|V Є5kGd]Xu=L$ kUBW94$jFmȩVDq:¢ٶZW(A+8~՞Kl{$.Y7bK6h8 R X5 A1s1e[QO*fIJ0Ys`mqqhU&f P4 `q|D F 11215 ~" 6gxWKs#[)Jd/iI,DiN#`S ֢:s:4cИpwQ׵8:4 dz"wZMr2 xJXo%Ó?PKWaVPuU _001_macro.do_over.sasYQsH~wC'>0҂lk*&)۹]W*i0: H힑 9l47=4ww{''%8O  &̍D ...A& zP^^^ˣ+<b1^+!1 ~(~=qr6?&}=--lw*ss ,LB,ybCEln3?d΃S(T݇|xns ā42 %-(+?=C&}<3R?>ֵ/e]4EȂϲuxd yOOS #GJU=Uoa\!C8;wel3nLxKt#_n-zj[)hy?'/T|Q@21X̠$УoisK1DB 9$Sԝce)8)ʘw)h5$ +˩Caz4]9"3tDSYM)8z, #J\D(1\$z  (! &[dލC'"F( ]JxUD+i@MNˍu΢^\`57#R?)IB5  !Kb1Ak94𹗡$\@\Bdf 3˱Hoyi]+^Hr]shKH-<稪|R*18LP+gfh]{fKg5`E+ʚB1#MH܈L (&Ɍ/uRqh8EL`fܤg;`@8vDu:64 ^ޒ~r}k&' #&<o,Yѿy{J>ݯU5ӀB"[Y,F@J`ҿ(ѣ? s E*2sM)1PKE`YmUnH2];bjT~D Խv6٢܄7%dٓj eTЯ MM@Ô[녛r¬2Y%7gɪC a,v\.WIPh$CrEkTbvZʼn(YY"&r*}c豀 电 ~Ȟ,G0cbFPHqVL_ۯdb%p dNJ6UĖ驺޺M@+ߢ+xRƪҵİZ{J0ĀNQέ*4iC6 (lE{T,JƄNdn~s]$܇|^[XP\,'#|zSEz#f([aCh~>p\^_TƱ\(f)ո>Z YiJ ?Fz( ?ۏb8{Zi mXi 7 ($YZ2`8 ލOa?+!'˃iA 2\ WAÃvUUȘ@`I{O}SKf)UTIk߅⽏}|w;f1v AA&ZB43DL)rj6}Uh ̤ؗ y,5bRiD5Xf嚈(j6f)(.[䉥Lʑ{bT,/ -BG\B<{BX-3c}:l1X#c2]dw2.m[lNbc!6F rI=. >̰堑wahmCWvm蟘?pn|0!9y7l9ʗLj0DhTF\uА?(TJ.6[+ Srʄ˥2|;3B3WDo%EvTb$sc/&IYdk9c=$͸syPV=~8wbCm ūA5s;xS`V]V +Lo!5h7ގYnaXJZ:LDx5!'g}iVR}Ђ0{ß;SpM׽6!؆eg7~x:D>p1AxpkkNʃqlLO/>C g'^ඇ6*4pKܥs(yQꎝR$jesFo |y{u+Yo6—͗ 鰛mcP*8X>g+k;zsR1<&ڝMT|r;[FGpuΎ Wz-eʧ3 h }:P7Ep@d4]ɳo# ؃LRuW&x*!M*16\^\Ҵy+c]0wmLKuj%ffbݐXBDtLн0-xx!6~JfOojAD XwL?'s0َX#V&ƻm:e#5I슫R>SH -qPKWaVkʘv_001_macro.do_over3.sasWmo96ڔ݃Mw.!hB =5*o\zn?ˎ {\WGGAZ-D R@ل&Nfy"jvfGu)ʥ)X$4,՜IhW8z  o KGw3˭!Pyo.uk@T,hLSI4R詤i#R%Ēr `p.]G0'F%׫6p3M LV,2wW'G?Q,|,00>40l!ZJ1LpV'ETT\`%-v]z8jVSI=TZV|{pv޻x{1zA)? 0 AЖlFVPKfm zBdPLXL,m 1ob)ҦIB4Hd<¹UaC# hcܪ Ty1s+ zDEcyal{`S&D.r.bB$K5ܐ43?Qvтh>:” ϋٕu&ָLV6hgU IFEVˌ%IJ uQh稭=}"Z[q Kk'N0ٲ-; q*: ֞}\MQ֯X`p v/AEILG:֝;xǝSsJzG87XUg/7 2n%xdZA2&dS{c3k]j>쮇=;oߪتXO^*;"@a@|:v iūhZOӜ$+ݔޖrrM>ގf*>=xwn篴{6ЪU :CߣFwb&NSW}t>|X{> :ۃ/p 8s/0LͰ]bc l6`<2`VS3T^1֗uo{и{O#+S<Sn5fJ WQyNU<>iiǍMI?nvF} |0SȆS~O>l"w?,9) j+6>*; )Bk1_J6jxE;t(\}aUP'xF/Q1MṮ*ɘ3jzjvn{mU0ƛb{$#%Rk5k6P΍9%$dF&4W cc S3-Xu67Zյ^4)䙙uԂJdKչXբLhZt&KP)xL5vv@eIF KC$|`xPKWaVI̦_001_macro.make_do_over.sasXms8 S^ҙ si]{&޴%oWMHXճ8ypoނ'O5e|ˡʣ} SEᐁ`S~T!/0 L8x Gݰœ)j;|; ٢`%'߈]Z9,7S``a( 1?O@Gq /]!p΄9Ӂ,0G`{bj{P7t}shO |(0 ;6]$-)-:fxIE<& @(цPʙ[s J$/MA}rGЄr ]dFKcz WH%ͅCg V5R 5WTćG9 吼[v{ Ԭν2s"DaVI3XbPQa{7wW3P!j`!z$ZcKV޻,R@/ȑ]+_bym7M7׶HxIqm;OjTocD Ȅ~O=P29?A%vvC*Ti4##uv{&SEZv7@wo@?9_؆lBhIz&7}*X|,)cs}c6pʃrԲ]t٭˄*JԳq˭2E-rΒlPVr:ͦ^lHWUmD[kE[E%ZzNIVsK4k#==-gHb[|2_.Ns^bomr%k$$+f ZAƀ7ʇnG5Z Xu!}Se;A:~h uz~18^p>k uFaa.:Cf ˧;F`_ o@bJVa΢@$/sc+ne~Ӥ]iHh?RJP:J(p_ ?vfn5%l \ZmEb6!"9tl>J:Ut*'9KA-&nmpUL !"d}>>CwyˁT{m4FNH}o 7҅=*|h_~{>kԗBk̝؞v`qoJPUh 遀oo7r5w{+4(?cgEt{Kt5grI4zg=F>+_Op\IK N4'n MˆZGp\$ ]vItm t؛d(|PmL)*k f {A2ӇEt ,IPh̛7V=5- ;MR(A`c↚ 5u7 0P44x9bdBoL L5He]5YYn6y~uc`hVмtHRWStqu 3J]T ioLݨ]תsmuÍ`p[:޻ńodcjFj("x`̟?A?ѫ5=p[>!24|pF yXɂUgO`eR5>k cns4cDث7m 80?a ޤgfKE&=n9I*JA)(sLzڛ`>fmoJQ04؍G. ɹyQ[o:9vL]{`(%Y ^D:,"@= Y'}qI䀡jJ ͌+H20,-MS1G#q!oLG4d$Fy#e7MBȦ Hh[bY(r=)4ʇepexFN\h%3GTTfYUsP& haFX)IgR+X *y_`ATw|E,::d(-C~*! կu!1hrMa&\HuyNj ~juVu>_TؓXYܕ[={ XHWX T" /h``!РhЄNx7q(ib%mKAfhz̘&0ͧ  i: [A+HNp[Sґ GX#VhaJu>P:M.#̼8u"w(C7D@3q|s]o +2PX($ǩBpTU<<"Y 3^_\!~}T( |&e J!gk# Ujr߫(>s9T-9TckcCɩb1G*2 }p2,.E_2)y\ӡr!i=1o>a7 T!YhtCA>(O! _2ȡ}io/;Zl^xʂ_-|=|;ɫ] (be!F{KYuO2}Cy/ÐKl6_zς·sn'־@fukJ {ZdSYH3goVr[hQ'>Pnu>\edPg' J闫QytN8jy~8]Y=]J[P.Xt␴4h64㱵wC[H]Q≶wC%~-2çC_j=Wh/.*+n]rW̺2';`+IW|s%IKuoYݕs1es" NW+%Uqno@BT_1U;5 ?t|{m5rcTK+W3jdU[Oq5p(v=e8Cq_<;ۦR'S9:ضU* !`EZFZފNsb1<%)xmIp[s:8tspf/dӾEt6LKE3?JĒtb> S!`8ww1 &o<0]^|Oc<ԅrbU|eG;Q!&0ŗyܧHNа3 B|ꁑHc¼xKV؅mMRۥ4rOw8}I Fj 1%v=saj痭f Ӭ:'$ z~I.Gӕi_QI%λ ֋=~$\# cG]e5ҿ_:J̈́M3`|JdM]RWgt lѱ)ngpA&MKgey?7& { [0fzAHΎdVIvo=v5.$3.0 q01f $ˉb%!>? ,bK2ٯ=eua{a5vt ~O6d Ļq,1[/Pȣz(2'mm 21"̷d/ط<6X!;]݇`NG XtPu,,Sgrk4 x9t G dRઔRelyVu8!׮f[s$K/ nxOQXZ痯76$*V^*  KE/m ߣ-4gs so ˛H*nկ` {w* GBVZi;a0H?`udbQoHEJjA.BȮ`2^y y=a:6-著8^$yz͍DZ;~@h+Xw f4aWZMG0wv5s+p5@'Ѹ֊fV"7`&EzE{!vjc#+'t*>% zٛ_޶*lJmtˁƊ|ީatR1.44KPzfs+,0?kI48M(QWI3Bvp#Rb\L>&lF SDGNr=ř.C}cjUgxu@G aI8T{CAFJ+M5ihʰ1PKWaVC`x_001_macro.mchashtable.sas]{sȖU=edf!;qmgnR{@HmP,$" L9[BOCݙfbZ_>}ޒZ;ju; vuݼf𰺻vw^`o߾eռ6xEkFc6D%>^r@KojoًcwgwzsuL̴M5Vq=sdIa7nZ>snJbDU :뎭_cUV՘ez>^OiWzLw&R5`~#nsF5h4aWL,ރ~@Nf2]Uan>qC68એEd@8|f<2utl,Ǯ8gALc456\SwXavus 5ԙ7}큁$8oV0)MrAL}ݝ><݉.Ms=o?ͫnVrjfn$k9k<[W٠;`t%:3]nTk<ђI΢1@ t fHȦm5FF`t@e|BCBd̨PI4?W Tvh+Qk KOh]^OhU!H6|!vXӼiuyR2@w9I`9! g:3Wxr-l M U_JK"1aF7{i#XĄnδw|Y-1 hbqwl\Rqk'Ǎ0G0o1 q g}לLGЃ_:"`]gB ^]𢡄]pffG$oVI2)c!7E%337Q rPy`ypa1lR,!OG>EP`YEKJ`:h.N{l4OpBCMD)ph c~)frUG3$c*9Xv~{w?n3[H;S@2)`@iG~Np+ V-ݝ%"@ԶoLQ4))D 3L=:xQ$Ck,38)$&쇿PnJlФhc1>2dIDؔ+-422Y4b3:[d70C^p(h#ԥSw轱ޠk'P4E9kSO ͎2Y.ɷrٙ 8 0dϛAJWa g{ 3al^}8{};ulxvJ3@M .L@mEk q4ɛ"^:;͆Vih<ׁĈ:Z6ǃhA@VN Yc_4|zSTUrO?[d]kzw#7"ԦkkG`"j;ab@`S]؄ wgL5p(Tg2Ic,{!G(f\ۺf0P 4Q  DTPˣ,{>D:Մ f=Tq EJmHH3v)FfܐKY]}@Z=^` Бe) )@ۛ. d >e!R^W$tXeS? K/j*.RUמT&jCO3=/* *\?˨nQÅARQI\t]-}Ss6LLVΫ+M1AOCm(83-|t޼+_DPR% )vd#YU=Reuk@"-St 9/#kg ^/O.hy g pUB}h5r{ F}^Az&xѬI%!q BSWj-gM1ɇ͚a0*;3i#?֟RA ~T͓PQ&v1ϐGdd&ljk N*uEv+ٷe]=h&y#A{ 2)i%*06IKILSM.<^s\⹹h4 C>gQw &-O鎸Kbq^}<-"CgT .# T81ORǦ_@+3$ oZЈiE5UZͬpd:I¯EuuRTR,DoSШIAJh cnIypD@Nl F,1b)<L ahlyg48 (IGy!yK"Aڟ%_Sg qse'Aw7 ?{Qkf"_sMnG.G>؞W |Fy3߃|2sip3l8WaR>qj;k>'C'NWμ`C9e'IV_wN/yۀGWm8y[x1w{^pϸkS8G|'փjf/U'5Hr3sKI\N=~cdX_AZ7*OVL n}z$ gx}%{;{xlL9c=<&_.n m/2ݝˏg7d;mݝ ٖ c ^oB?n.=eSPv<;edzsYv<;eGhIyeRyInVa3a).w[)^oŪpjjFKYA[F*:!]~JHֈb%BtjVb [Y؜1H鈑WN-)}6xVtb=I|7з2 -; J7+!X Tc pς6N'b{`OӋ^犂WVsάENhәPI -K@r/N2^b6VlR50B5ldnAYlk4jf%>G/A1fSK/H==:}?6A\:g\f$07*(#ʏvlwz |zݾV^8:O4WL5м NfxrCBQob-ЍZ_rlp-XSDž><1;G Nd"T8gG%?䇟oIf޽K6ZdS,ZgXH(#il _cf-T|]XPQH0Zp/ q|yy[:MX/S0^S8lq ZAFѶ&S3$e-Dm`+.YDkrϱb f|y|oaR Fx&c D   8"iԶaLV?qbf^A%}r]}띞_Ca 5 ! Gcl/8 r\QuzQ5y&Ŋͦt[кɍQ}ȕL.eB4w?߁5݂ԝ뾃g PRewn\.>^LA=Ľh8wf^}bSBzWP@M?|U9b͙М09IPr\]á4{.gY dG7 9^2f!g="ޑԊg āT&pMV͠#o`pɭqv$]Fma?vh!"*smx9h{ھpa(LqPKWaVv+2 V._001_macro.qziparrays.sasZs'΀rW񔸴u4ci1 aB?ܿp{Eytj[1qk^s~YvFs f)-x`bƑ>8?;f$7sِ${uD>!س"._p/ 9O,))x|IR@-?x=qfB"=!MUDKaF ܆D $Z̵bEEF$/YhRƸuB~fTGQ bmC6 (}aĂTBP{ !)GǏ;`.63GX̑U74I g]pT`-|1 PÙ|֜Bb3i'u$q!r#H_n:N2Y.-5[8A!'9ZD FhWE>E>g'Ss&/Lr^(E oCNL`ś&#ENZCTitӬTj},C+p )0:M@_G!eKfq9F:fc$[$"ј|> ccCJD՞!g9_$l\T;V&]L./Pf(n E+<ꩭ: 6=b*5'1+8 q4W8 yRprҾ .Eb^yLE "Kz \ijG\xѬ+ҍHWs0:S] jڷ4V{ { _lɦɮ5Uc':Tbh*yguUr%#%?x@rfIDT,ЊsEEFgE[E#-SzfE%mLdPaVyD&mo`&0*m(C"X:nGT8Ek4X"~rBExTԄieK5ٻQ> ~& X'%P7%xVw*UX]TEn[7;uU5$O('C*jc9JC ~R[LOBӻnDwI.b- g.4&ȲQ% l-7D;\~>.Q#!=Ipn%k`S݁ ɛz7] $&t!{ןZ_^_ߠ!m(p ie8ǖ W y|[gjx;ZJ=phylKcW[ (ُ 1M[ 5:ꐹa< ӆi'5 5p{ى|e)"H悾]_[š(>KQ$nEʬA+g,ɀp=!BZʢl9fYz[9)4+'+t9xB:ʬHD[);p[%jUSZ&6k{E#(jUΏۺ!ڨӝ S5#s>nƦɸNN8}y"AoA]]QbjO]Z@`P6I$uᇟ)N[EuDٳuY\(;>?bɝkѥAz'\GPOϬ*@kB{C0UrZOy%\p-5I~ñNЧO){4M < EYj<|$ loWzNaSYI{aUa\5mǭw%V(ci$^' ~F*aUẉNWgkk)hP˜'&D[4XufA`a8ne:vW6숂؃r_,!V6gKҀEGO^ kdN=r# M4+[4(^5(dj7ǭJ|Mh X=B i;nc .WW0kM_NÛAW ) 2ScA1);_QX@P3Q%BL1 %8Y*/67gsoR/Ґ{|+N7,P6hX~_b;3cؙPKWaVV_001_macro.sortmacroarray.sasWko9 a(Zʰ"YD""*pMR} [v"9s) hotR!tK0D+拤!{;C Z j bq/CVzձk%V/@'TaӃqN0LA%x#+ 1] a 1@2ܱp%pO+o߼G5r㉚f!Nre0fJcPݕ꿹2 cL&SExRԏÚu䃳Q,HBVө_tjZ/]Sb-]nq*4&<YPN,3l5v G|2 b]LI_{yd%cdyDnCԴJe"Yb0L&1q>!Vx0hߴZޜ]{K\%"܅<leeyo\5N_vژF|?6I%5J2%bv)H|uQvEk=KXoZ.`沦l{?~B/f/)r/ td][%PE^[@r.x: ;l]~<}Z zCwܣtE O* Mo .E@nك4dF>TMNޓ%G6wd tB -vZi†}Nqz9{RM Qme4 ^dBl])}c&ʇמ#najVDX)J̭tXwіskeqm4+2 V s7yqW(XH(L=98̥?ҩEqCH=HTE 6> O}^ki2g 6e=14u%Erzv߬Bv ;.Ѿ68o?iN`OG4('ZS&.XM+ q[+|J,h^ov:dM7ۊKQo!ۦ.vMhJA5T6A. *[,tVUCpǻPKWaVtK39_001_macro.ziparrays.sas[S Ö\†$\ChK4 1h"Kw<BhR>yܘ*zXQ:awN@\t&_;wB·<  ™{BY8O=4W Jv\ jlmgu忋aHa9M{cA{d ƺ?v棓 /iG A֢SGTBױ 6(4;T2a(d~6q? ruB}$c H4'@Ftdlc BȩRQF3y52@*fLw7uw&B]֏LnVyEdS֙LPD4=mH\2:=`-O(3pe;!kS..tq!Ίzl-a!3h\\Hz% $P 87ڏ3ᴏf]ұ1ؼ*"E\@\x dLsd?ԕTҮ4+UXlPgck " 'P&7(J;+JU*SU0>#ʷ)3P*(n1(|nEY_]Ed\bBq8П.I}O> DIcVxRdVXJ`M,B)BVIߕ:L8{@S h!IƑp6n݀L-Բ@[۟_WmoWOsC]qpzv$԰.jc,iprX`LAԁV>cl8g4< NPbȷ`*.jǪMRH(O2Z|C'}ÉW#!; m0v;tݒ:s!#aHJ*.:U]z!k>RUޮv!zTS߬ğ+ U ju؝(g\r#ll<ߓ$bZ$98O$ (Ͽ[Vz^2yȍ*4J"OB[:X9Znwr=V0M hb b3Pn{f# \L]rn `Kƴ! `1z5h&ttndYLxQ-uVS?R'm\*bϡ RgXF% n]sh' ]86zǁ6@M`;''п쾻8_[ 52J\Jsxv/?kkw&A-tw YOV藂"8VMujX{q6-[3V\gcP'GP}-ޚPo3<`W2%v| eW8qOL.#ݥ7Q'G4,nNf.;F:aH{Љ&}k~jz=WXi:@i wM~|%sK੶}/yp||CpʚՄ/vghp<5W-jQP&T/6sM90;/AJ`1E &l63(W[;-~o9-l#-9Ap0upf!wL Zq<ΟʻV^})|Brm{ꊁ]oHKBi:ǢĢ] }>L!}$lyM9AD{H}T0aтP3~U1ŠW; yg@.n'1lgԶY*PkdU2XCxZEȱɱ#CW_Oۦ VJs,lʚ$jm8ښ35` ߼2K/Ԕccj5 bGH-iX?Zנ ~ѐxG:3y#[6r}/:űY0 ԓre\fsL-ܤ,epǼ6+؊R,'\]cw㈻HEZBjRjX^@l®Ŭ"y7F~(Q2wfJҏoi{]R2q 1>nI N\1mRbV@JC2G7)YB @mFw s\A?POf O8+PKWaV<j  description.sasPKWaV*riG  }license.sasPKWaVe$ Bpackagemetadata.sasPKWaVrc niceloadpackage.sasPKWaV}ҝ rF $ load.sasPKWaV0oJB  lazydata.sasPKWaV)2  {unload.sasPKWaV#k  Bpreview.sasPKWaV Z! (#help.sasPKWaV  }*_001_macro.appendarray.sasPKWaVhiP/{ ._001_macro.appendcell.sasPKWaV]71po 6_001_macro.array.sasPKWaV%U0 Q_001_macro.concatarrays.sasPKWaVvD2 X_001_macro.deletemacarray.sasPKWaVPuU  5^_001_macro.do_over.sasPKWaVx; g_001_macro.do_over2.sasPKWaVkʘv m_001_macro.do_over3.sasPKWaVI̦ s_001_macro.make_do_over.sasPKWaVAm] z_001_macro.mcdictionary.sasPKWaVC`x _001_macro.mchashtable.sasPKWaVv+2 V. _001_macro.qziparrays.sasPKWaVV _001_macro.sortmacroarray.sasPKWaVtK39 D_001_macro.ziparrays.sasPKmacroarray-1.2.3/hist/1.0.6/000077500000000000000000000000001452773550200153005ustar00rootroot00000000000000macroarray-1.2.3/hist/1.0.6/macroarray.md000066400000000000000000002111041452773550200177610ustar00rootroot00000000000000- [The macroArray package](#macroarray) - [Content description](#content-description) * [`%appendArray()` macro](#appendarray-macro) * [`%appendCell()` macro](#appendcell-macro) * [`%array()` macro](#array-macro) * [`%concatArrays()` macro](#concatarrays-macro) * [`%deleteMacArray()` macro](#deletemacarray-macro) * [`%do_over()` macro](#do-over-macro) * [`%do_over2()` macro](#do-over2-macro) * [`%do_over3()` macro](#do-over3-macro) * [`%make_do_over()` macro](#make-do-over-macro) * [`%mcHashTable()` macro](#mchashtable-macro) * [`%mcDictionary()` macro](#mcdictionary-macro) * [`%QzipArrays()` macro](#qziparrays-macro) * [`%zipArrays()` macro](#ziparrays-macro) * [`%sortMacroArray()` macro](#sortmacroarray-macro) * [License](#license) --- # The macroArray package [ver. 1.0.6] ############################################### The **macroArray** package implements a macro array facility: - `%array()`, - `%do_over()`, - `%make_do_over()`, - `%deletemacarray()`, - `%concatarrays()`, - `%appendcell()`, - `%mcHashTable()`, - `%zipArrays()`, - `%sortMacroArray()`, - `%mcDictionary()`, - etc. The set of macros, which emulates classic data-step-array functionality on the macro programming level, is provided. *Note:* If you are working with BIG macroarrays do not forget to verify your session setting for macro memory limits. Run: ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas proc options group = macro; run; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ to verify the following options: | option | description | |-------------:|:-----------------------------------------------------------------------------------------------| |`MEXECSIZE=` | specifies the maximum macro size that can be executed in memory. | |`MSYMTABMAX=` | specifies the maximum amount of memory available to the macro variable symbol table or tables. | |`MVARSIZE=` | specifies the maximum size for a macro variable that is stored in memory. | --- Package contains: 1. macro appendarray 2. macro appendcell 3. macro array 4. macro concatarrays 5. macro deletemacarray 6. macro do_over 7. macro do_over2 8. macro do_over3 9. macro make_do_over 10. macro mcdictionary 11. macro mchashtable 12. macro qziparrays 13. macro sortmacroarray 14. macro ziparrays Required SAS Components: *Base SAS Software* *SAS package generated by generatePackage, version 20230905* The SHA256 hash digest for package macroArray: `F*4FAAEE7DF2854EA31933AE017A89C1615C7291A66A07CCE345041EB0D587ED4E` --- # Content description ############################################################################################ ## >>> `%appendArray()` macro: <<< ############ The `%appendArray()` macro is a macrowrapper which allows to concatenate two macroarrays created by `%array()` macro. By default values of the second macroarray are *not* removed. Dimensions of the first macroarray are extended. The `%appendArray()` macro executes like a pure macro code. ### SYNTAX: ##################################################################### The basic syntax is the following, the `<...>` means optional parameters: ~~~~~~~~~~~~~~~~~~~~~~~sas %appendArray( first ,second ) ~~~~~~~~~~~~~~~~~~~~~~~ **Arguments description**: 1. `first` - *Required*, a name of a macroarray created by the `%array()` macro. 2. `second` - *Required*, a name of a macroarray created by the `%array()` macro. ### EXAMPLES AND USECASES: ###################################################### **EXAMPLE 1.** Append macroarrays LL and MM. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(ll[2:4] $ 12, function = quote(put(today() + 10*_I_, yymmdd10.)), macarray=Y ) %array(mm[10:13] $ 1200, function = quote(repeat("A",12*_I_)), macarray=Y ) %put *%ll(2)*%ll(3)*%ll(4)*; %appendArray(ll, mm); %put *%ll(2)*%ll(3)*%ll(4)*%ll(5)*%ll(6)**%ll(7)*%ll(8)*; %put *%mm(10)**%mm(11)*%mm(12)*%mm(13)*; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 2.** Error handling. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %appendArray(ll, ) %appendArray(, mm) %appendArray(noExistA, noExistB) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ --- ## >>> `%appendCell()` macro: <<< ############## The `%appendCell()` macro allows to append a macrovariable to a macroarray created by the `%array()` macro. Dimensions of the macroarray are extended. The `%appendCell()` macro executes like a pure macro code. ### SYNTAX: #################################################################### The basic syntax is the following, the `<...>` means optional parameters: ~~~~~~~~~~~~~~~~~~~~~~~sas %appendCell( first ,second ,hilo ) ~~~~~~~~~~~~~~~~~~~~~~~ **Arguments description**: 1. `first` - *Required*, a name of a macroarray created by the `%array()` macro. 2. `second` - *Required*, a name of a macrovariable to be append to the macroarray. 3. `hilo` - *Required*, if `H` macrovariable is appended at the end if `L` macrovariable is appended at the beginning ); ### EXAMPLES AND USECASES: #################################################### **EXAMPLE 1.** Create two macro wrappers. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %* Macro wrapper to append a macrovariable to the end of a macroarray; %macro appendHC(array,cell); %appendCell(&array.,&cell.,H) %mend appendHC; %* macro wrapper to append a macrovariable to the beginning of a macroarray; %macro appendLC(array,cell); %appendCell(&array.,&cell.,L) %mend appendLC; %* create macroarrays X and variables W,Y,Z; %array(X[2:4] $ ("AAA", "BBB", "CCC"), macarray=Y) %let W=1; %let Y=2; %let Z=3; %put *%do_over(X)*&=W*&=Y*&=Z*; %put BEFORE *%do_over(X)**&=xLBOUND*&=xHBOUND*&=xN*; %appendCell(X,Y,H) %put AFTER1 *%do_over(X)**&=xLBOUND*&=xHBOUND*&=xN*; %appendLC(X,W) %put AFTER2 *%do_over(X)**&=xLBOUND*&=xHBOUND*&=xN*; %appendHC(X,Z) %put AFTER3 *%do_over(X)**&=xLBOUND*&=xHBOUND*&=xN*; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 2.** Error handling ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %appendCell(X,Y,blahblah) %appendCell(X,,H) %appendCell(,Y,H) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 3.** Adding variable below lower bound. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(zero[0:2] $ ("AAA", "BBB", "CCC"), macarray=Y) %let belowzero=zzz; %put BEFORE *%do_over(zero)**&=zeroLBOUND*&=zeroHBOUND*&=zeroN*; %appendCell(zero,belowzero,L) %put AFTER *%do_over(zero)**&=zeroLBOUND*&=zeroHBOUND*&=zeroN*; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ --- ## >>> `%array()` macro: <<< ####################### The code of a macro was inspired by *Ted Clay's* and *David Katz's* macro `%array()`. The `%array()` macro version provided in the package is designed to facilitate the idea of macro array concept, i.e. *a list of macrovariables with common prefix and numerical suffixes*. Usually such construction is then resolved by double ampersand syntax, e.g. `&&perfix&i` or similar one. What is new/extension to the `%array()` macro concept are: 0. The syntax is closer to the data step one. 1. It is a pure macro code (it can be executed in any place of 4GL code), this includes generating macro arrays out of datasets. 2. When a macroarrray is created it allows also to generate a new macro (named the same as the array name) and replace the double ampersand syntax with more array looking one, i.e. for array ABC user can have `%ABC(1)`, `%ABC(2)`, or `%ABC(&i)` constructions. 3. The array macro allows to use data step functions to generate array's entries. The `%array()` macro executes like a pure macro code. ### SYNTAX: ################################################################### The basic syntax is the following, the `<...>` means optional parameters: ~~~~~~~~~~~~~~~~~~~~~~~sas %array( array <,function=> <,before=> <,after=> <,vnames=N> <,macarray=N> <,ds=> <,vars=> ) ~~~~~~~~~~~~~~~~~~~~~~~ **Arguments description**: 1. `array` - *Required*, an array name and a declaration/definition of an array,
e.g. `myArr[*] x1-x3 (4:6)`
or `myBrr[*] $ y1-y3 ("a" "b" "c")`
or `myCrr[3] $ ("d d d" "e,e,e" "f;f;f")`
or `myDrr p q r s`.
Macrovariables created by the macro are *global*. If an array name is `_` (single underscore) then attached variables list names are used, a call of the form: `%array(_[*] p1 q2 r3 s4 (-1 -2 -3 -4))` will create macrovariables: `p1`, `q2`, `r3`, and `s4` with respective values: `-1`, `-2`, `-3`, and `-4`.
Three additional *global* macrovariables: `LBOUND`, `HBOUND`, and `N` are generated with the macroarray. See examples for more use-cases. * `function=` - *Optional*, a function or an expression to be applied to all array cells, `_I_` is as array iterator, e.g. `_I_ + rand("uniform")`. * `before=` - *Optional*, a function or an expression to be added before looping through array, e.g. `call streaminit(123)`. * `after=` - *Optional*, a function or an expression to be added after looping through array, e.g. `call sortn(ABC)`. * `vnames=N` - *Optional*, default value `N`, if set to `Y`/`YES` then macroarray is built based on variables names instead values, e.g. `%array(myArr[*] x1-x3 (4:6), vnames=Y)` will use `x1`, `x2`, and `x3` as values instead `4`, `5`, and `6`. * `macarray=N` - *Optional*, default value `N`, if set to `Y`/`YES` then macro named with array name is compiled to create convenient envelope for multiple ampersands, e.g. `%array(myArr[*] x1-x3 (4:6), macarray=Y)` will create `%myArr(J)` macro which will allow to extract "data" from macroarray like: `%let x = %myArr(1);` or when used with second parameter equal `I` (insert) allow to overwrite macroarrays value: `%let %myArr(17,i) = 42;` If set to `M` then for a given array name the macro symbols table is scanned for macrovariables with prefix like the array name and numeric suffixes, then the minimum and the maximum index is determined and all not existing global macrovariables are created and a macro is generated in the same way as for the `Y` value * `ds=` - *Optional*, use a dataset as a basis for a macroarray data, if used by default overwrites use of the `array` parameter, honors `macarray=` argument, dataset options are allowed, e.g. `sashelp.class(obs=5)` * `vars=` - *Optional*, a list of variables used to create macroarrays from a dataset, the list format can be as follows (`<...>` means optional): `variable1 <... variableN>` delimiters are hash(`#`) and pipe(`|`), currently only space is supported as separator, the meaning of `#` and `|` delimiters will be explained in the following example: if the `vars = height#h weight weight|w age|` value is provided then the following macroarrays will be created:
1) macroarray "H" with ALL(`#`) values of variable "height"
2) macroarray "WEIGHT" with ALL(no separator is equivalent to #) values of variable "weight"
3) macroarray "W" with UNIQUE(|) values of variable "weight" and
4) macroarray "AGE" with UNIQUE(|) values of variable "age", ### EXAMPLES AND USECASES: #################################################### **EXAMPLE 1.** Basic use-case. Creating macroarray like in the array statement; values are used by default; different types of brackets are allowed; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(a[*] x1-x5 (1:5)) %array(b{5} (5*17)) %* Mind the $ since it is a character array!; %array(c(3) $ 10 ("a A" "b,B" "c;C")) %array(d x1-x5 (5 4 3 2 1)) %put _user_; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 2.** Index ranges. If range starts < 0 then it is shifted to 0. In case when range is from `1` to `M` then macrovariable `N` is set to `M` In case when range is different the `N` returns number of elements in the array `(Hbound - Lbound + 1)`. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(d[-2:2] $ ("a" "b" "c" "d" "e")) %put &=dLBOUND. &=dHBOUND. &=dN.; %put &=d0. &=d1. &=d2. &=d3. &=d4.; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 3.** Functions. It is possible to assign value of a function or an expression to a cell of the array, e.g. `array[_I_] = function(...)`. You can use an iterator in a function. As in case of usual arrays it is `_I_`. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(e[-3:3] $, function = "A" ) %put &=eLBOUND. &=eHBOUND. &=eN.; %put &=e0. &=e1. &=e2. &=e3. &=e4. &=e5. &=e6.; %array(f[-3:3], function = (2**_I_) ) %put &=fLBOUND. &=fHBOUND. &=fN.; %put &=f0. &=f1. &=f2. &=f3. &=f4. &=f5. &=f6.; %array(g[0:2], function = ranuni(123) ) %put &=gLBOUND. &=gHBOUND. &=gN.; %put &=g0. &=g1. &=g2.; %* Or something more complex; %array(gg[0:11] $ 11, function = put(intnx("MONTH", '1jun2018'd, _I_, "E"), yymmn.)) %put &=ggLBOUND. &=ggHBOUND. &=ggN.; %put &=gg0 &=gg1 &=gg2 ... &=gg11; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 4.** Functions cont. If there is need for set-up something *before* or *after*: ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(h[10:12] ,function = rand('Uniform') ,before = call streaminit(123) ,after = call sortn(of h[*]) ) %put &=h10. &=h11. &=h12.; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 5.** Fibonacci series. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(i[1:10] (10*0) ,function = ifn(_I_ < 2, 1, sum(i[max(_I_-2,1)], i[max(_I_-1,2)]) ) ) %put &=i1 &=i2 &=i3 &=i4 &=i5 &=i6 &=i7 &=i8 &=i9 &=i10; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 6a.** "Uppercas Letters" ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(UL[26] $, function = byte(rank("A")+_I_-1) ) %put &=UL1 &=UL2 ... &=UL25 &=UL26; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 6b.** "Lowercase Letters" Extended by `macarray=Y` option and the input mode support (with `I`). ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(ll[26] $, function = byte(rank("a")+_I_-1), macarray=Y) %put *%ll(&llLBOUND.)*%ll(3)*%ll(4)*%ll(5)*...*%ll(25)*%ll(&llHBOUND.)*; %* The range handling, warning; %put *%ll(265)*; %* The input mode; %put *before:*%ll(2)*; %let %ll(2,I) = bbbbb; %put *after: *%ll(2)*; %* The range handling, error; %let %ll(265,I) = bbb; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 7.** The use of `vnames=Y` ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(R R1978-R1982) %put &=R1 &=R2 &=R3 &=R4 &=R5; %array(R R1978-R1982 (78:82)) %put &=R1 &=R2 &=R3 &=R4 &=R5; %array(R R1978-R1982 (78:82), vnames=Y) %put &=R1 &=R2 &=R3 &=R4 &=R5; %array(R R1978-R1982, vnames=Y) %put &=R1 &=R2 &=R3 &=R4 &=R5; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 8.** A "no name" array i.e. the `_[*]` array ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(_[*] x1-x5 (1:5)) %put _user_; %array(_[*] p q r s (4*42)) %put _user_; %* If no variables names than use _1 _2 ... _N; %array(_[4] (-1 -2 -3 -4)) %put &=_1 &=_2 &=_3 &=_4; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 9.** Pure macro code can be used in a data step. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas data test1; set sashelp.class; %array(ds[*] d1-d4 (4*17)) a1 = &ds1.; a2 = &ds2.; a3 = &ds3.; a4 = &ds4.; run; data test2; set sashelp.class; %array(_[*] j k l m (4*17)) a1 = &j.; a2 = &k.; a3 = &l.; a4 = &m.; run; data test3; set sashelp.class; %array(alpha[*] j k l m (101 102 103 104), macarray=Y) a1 = %alpha(1); a2 = %alpha(2); a3 = %alpha(3); a4 = %alpha(4); a5 = %alpha(555); run; data test4; set sashelp.class; %array(beta[*] j k l m (101 102 103 104), vnames=Y, macarray=Y) a1 = "%beta(1)"; a2 = "%beta(2)"; a3 = "%beta(3)"; a4 = "%beta(4)"; a5 = "%beta(555)"; run; data test5; set sashelp.class; %array(gamma[4] $ 12 ("101" "102" "103" "104"), macarray=Y) a1 = "%gamma(1)"; a2 = "%gamma(2)"; a3 = "%gamma(3)"; a4 = "%gamma(4)"; a5 = "%gamma(555)"; run; data test6; set sashelp.class; %array(ds = sashelp.cars, vars = Cylinders|, macarray=Y) a0 = %Cylinders(0); a1 = %Cylinders(1); a2 = %Cylinders(2); a3 = %Cylinders(3); a4 = %Cylinders(4); a5 = %Cylinders(555); run; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 10.** Creating an array from a dataset, basic case. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(ds = sashelp.class, vars = height weight age) %put _user_; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 11. Creating an array from a dataset, advanced. If: `vars = height#h weight weight|w age|` then create: 1. macroarray "h" with ALL(#) values of variable "height" 2. macroarray "weight" with ALL(no separator is equivalent to #) values of variable "weight" 3. macroarray "w" with UNIQUE(|) values of variable "weight" 4. macroarray "age" with UNIQUE(|) values of variable "age" Currently the only separator in VARS is a space. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(ds = sashelp.class, vars = height#h weight weight|w age|) %put _user_; %array(ds = sashelp.class, vars = height#hght weight weight|wght age|, macarray=Y) %put *%hght(&hghtLBOUND.)**%weight(2)**%wght(&wghtHBOUND.)**%age(3)*; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 12.** Creating an array from a dataset with dataset options ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(ds = sashelp.cars(obs=100 where=(Cylinders=6)), vars = Make| Type| Model, macarray=Y) %put *%make(&makeLBOUND.)*%Model(2)*%Model(3)*%Model(4)*%type(&typeHBOUND.)*; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 13.** Creating an array and macro from existing list of macrovariables ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %let myTest3 = 13; %let myTest6 = 16; %let myTest9 = 19; %array(myTest, macarray=M) %do_over(myTest, phrase = %nrstr(%put *&_I_.*%myTest(&_I_.)*;)) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ --- ## >>> `%concatArrays()` macro: <<< ########### The `%concatArrays()` macro allows to concatenate two macroarrays created by the `%array()` macro. By default values of the second macroarray are removed. Dimensions of the first macroarray are extended. The `%concatArrays()` macro executes like a pure macro code. ### SYNTAX: ##################################################################### The basic syntax is the following, the `<...>` means optional parameters: ~~~~~~~~~~~~~~~~~~~~~~~sas %concatArrays( first ,second <,removeSecond=Y> ) ~~~~~~~~~~~~~~~~~~~~~~~ **Arguments description**: 1. `first` - *Required*, a name of a macroarray created by the `%array()` macro. 2. `second` - *Required*, a name of a macroarray created by the `%array()` macro. * `removeSecond=Y` - *Optional*, default value `Y`, if set to `Y` then the second array is removed. ### EXAMPLES AND USECASES: #################################################### **EXAMPLE 1.** Concatenate macroarrays LL and MM. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(ll[2:4] $ 12, function = quote(put(today() + 10*_I_, yymmdd10.)), macarray=Y ) %array(mm[10:13] $ 12000, function = quote(repeat("A",123*_I_)), macarray=Y ) %put *%ll(2)*%ll(3)*%ll(4)*; %concatArrays(ll, mm); %put *%ll(2)*%ll(3)*%ll(4)*%ll(5)*%ll(6)**%ll(7)*%ll(8)*; %put *%mm(10)**%mm(11)*%mm(12)*%mm(13)*; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 2.** Error handling. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %concatArrays(ll, ) %concatArrays(, mm) %concatArrays(noExistA, noExistB) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ --- ## >>> `%deleteMacArray()` macro: <<< ####### The `%deleteMacArray()` macro allows to delete macroarrays created by the `%array()` macro. The `%deleteMacArray()` macro executes like a pure macro code. ### SYNTAX: ##################################################################### The basic syntax is the following, the `<...>` means optional parameters: ~~~~~~~~~~~~~~~~~~~~~~~sas %deleteMacArray( arrs <,macarray=N> ) ~~~~~~~~~~~~~~~~~~~~~~~ **Arguments description**: 1. `arrs` - *Required*, a space separated list of manes of macroarray created by the `%array()` macro. * `macarray=N` - *Optional*, indicator should a macro associated with macroarray to be deleted? If `Y` or `YES` then the associated macro is deleted. ## >>> `%do_over()` macro: <<< ###################### The code of the macro was inspired by *Ted Clay's* and *David Katz's* macro `%do_over()`. The `%DO_OVER()` macro allows to iterate over macroarray created with the `macarray=Y` parameter of the `%ARRAY()` macro. The `%do_over()` macro executes like a pure macro code. ### SYNTAX: ##################################################################### The basic syntax is the following, the `<...>` means optional parameters: ~~~~~~~~~~~~~~~~~~~~~~~sas %do_over( array <,phrase=%nrstr(%&array(&_I_.))> <,between=%str( )> <,which = > ) ~~~~~~~~~~~~~~~~~~~~~~~ **Arguments description**: 1. `array` - *Required*, indicates a macroarray which metadata (Lbound, Hbouns) are to be used to loop in the `%do_over()` * `phrase=` - *Optional*, Default value `%nrstr(%&array(&_I_.))`, a statement to be called in each iteration of the internal do_over's loop. Loop iterator is `_I_`, if you want to use `_I_` or array name [e.g. `%myArr(&_I_.)`] *enclose it* in the `%NRSTR()` macro quoting function. * `between=` - *Optional*, default value `%str( )` (space), a statement to be called in between each iteration of the internal do_over loop. If macroquoted (e.g. `%str( + )`) then the `%unquote()` function is automatically applied. * `which=` - *Optional*, a _SPACE_ separated list of indexes which should be used to iterate over selected macroarray. Possible special characters are `H` and `L` which means *high* and *low* bound of an array, list could be set with colons(`:`) in form of `start:end:by` (*no spaces between!*), if `by` is omitted the default is `1`. If possible use `1:5` rather `1 2 3 4 5` since the firs works faster. ### EXAMPLES AND USECASES: #################################################### **EXAMPLE 1.** Simple looping. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(beta[*] j k l m (101 102 103 104), vnames=Y, macarray=Y) %put #%do_over(beta)#; %put #%do_over(beta, phrase=%nrstr("%beta(&_I_.)"), between=%str(,))#; data test1; %array(beta[*] j k l m (101 102 103 104), vnames=Y, macarray=Y) %do_over(beta, phrase=%nrstr(a&_I_. = "%beta(&_I_.)";)) put _all_; run; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 2.** Multiple arrays looping. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(alpha[*] j k l m n, vnames=Y, macarray=Y) %array( beta[5] $ , function = "a", macarray=Y) %array(gamma[4] (101 102 103 104), macarray=Y) data test2; call streaminit(123); %do_over(beta , phrase = %nrstr(%beta(&_I_.) = %gamma(&_I_.) * rand('Uniform'); output;) , between = put _all_; ); put _all_; run; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 3.** Multiple arrays looping, cont. Create multiple datasets. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %do_over(beta , phrase = %nrstr( data %alpha(&_I_.)2; call streaminit(123); %beta(&_I_.)x = %gamma(&_I_.) * rand('Uniform'); output; run; ) ) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 4.** Multiple arrays looping, cont. Create multiple datasets using a macro. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %macro doit(ds, var=a, val=1); data &ds.; call streaminit(123); &var. = &val. * rand('Uniform'); output; run; %mend doit; %do_over(beta , phrase = %nrstr( %DOIT(%alpha(&_I_.)1, var = %beta(&_I_.), val = %gamma(&_I_.)) ) ) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 5.** `%do_over()` inside `%array()` ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(test[*] x1-x12 (1:12), macarray=Y) %put **%test(1)**%test(12)**; %put #%do_over(test)#; %array(abc[*] x1-x12 (%do_over(test,phrase=%nrstr(%eval(100-%test(&_I_.))))), macarray=Y) %put **%abc(1)**%abc(12)**; %put #%do_over(abc)#; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 6.** Looping over array with *macroquoted* separator. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(alpha[11] (5:15), macarray=Y) %let x = %do_over(alpha , phrase = %NRSTR(%alpha(&_I_.)) , between= %str( + ) ); %put &=x.; %put %sysevalf(&x.); ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 7.** Working with the `WHICH=` optional parameter ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(test[*] x01-x12, vnames= Y, macarray=Y) %put #%do_over(test)#; %put #%do_over(test, which= 1 3 5)#; %put #%do_over(test, which= 1:5)#; %put #%do_over(test, which= 1:5:2 7 8)#; %put #%do_over(test, which= L:H l:h)#; %put #%do_over(test, which= L:3 10:h)#; %put #%do_over(test, which= L:H h:l:-1 13 14)#; %put #%do_over(test, which= %eval(1+1):%eval(5+1))#; %put #%do_over(test, which= L:H h:l:-1 13 14, between=%str(,))#; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ --- ## >>> `%do_over2()` macro: <<< #################### The code of the macro was inspired by *Ted Clay's* and *David Katz's* macro `%do_over()`. The `%DO_OVER2()` macro allows to iterate over *two* macroarray created with the `macarray=Y` parameter of the `%ARRAY()` macro. The `%do_over2()` macro executes like a pure macro code. ### SYNTAX: ##################################################################### The basic syntax is the following, the `<...>` means optional parameters: ~~~~~~~~~~~~~~~~~~~~~~~sas %do_over2( arrayI ,arrayJ <,phrase=%nrstr(%&arrayI(&_I_.) %&arrayJ(&_J_.))> <,between=%str( )> ) ~~~~~~~~~~~~~~~~~~~~~~~ **Arguments description**: 1. `arrayI` - Required, indicates the first macroarray which metadata (Lbound, Hbouns) are to be used in the outer loop in the `%do_over2()` 2. `arrayJ` - Required, indicates the second macroarray which metadata (Lbound, Hbouns) are to be used in the inner loop in the `%do_over2()` * `phrase=` - *Optional*, default value `%nrstr(%&arrayI(&_I_.) %&arrayJ(&_J_.))`, a statement to be called in each iteration of the *inner* loop. The outer loop iterator is `_I_`, the inner loop iterator is `_J_`, if you want to use `_I_`, `_J_`, or arrays names [e.g. `%myArr(&_I_.)`] *enclose them* in the `%NRSTR()` macro quoting function. * `between=` - *Optional*, default value `%str( )` (space), a statement to be called in between each iteration of the internal do_over2 loop. If macroquoted (e.g. `%str( + )`) then the `%unquote()` function is automatically applied. ### EXAMPLES AND USECASES: #################################################### **EXAMPLE 1.** Looping over two arrays. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(alpha[*] j k l m n, vnames=Y, macarray=Y) %array( beta[4] (101 102 103 104), macarray=Y) %put *%do_over2(alpha, beta , phrase = %NRSTR((%alpha(&_I_.), %beta(&_J_))) )*; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 2.** Looping over two arrays with a separator. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(alpha[11] (5:15), macarray=Y) %array( beta[ 4] (101 102 103 104), macarray=Y) %let x = %do_over2(alpha, beta , phrase = %NRSTR((%alpha(&_I_.) * %beta(&_J_))) , between= + ); %put &=x.; %put %sysevalf(&x.); ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 3.** Looping over two arrays with *macroquoted* separator. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(alpha[11] (5:15), macarray=Y) %array( beta[ 4] (101 102 103 104), macarray=Y) %let x = %do_over2(alpha, beta , phrase = %NRSTR((%alpha(&_I_.) * %beta(&_J_))) , between= %str( + ) ); %put &=x.; %put %sysevalf(&x.); ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ --- ## >>> `%do_over3()` macro: <<< #################### The code of the macro was inspired by *Ted Clay's* and *David Katz's* macro `%do_over()`. The `%DO_OVER3()` macro allows to iterate over *three* macroarray created with the `macarray=Y` parameter of the `%ARRAY()` macro. The `%do_over3()` macro executes like a pure macro code. ### SYNTAX: ##################################################################### The basic syntax is the following, the `<...>` means optional parameters: ~~~~~~~~~~~~~~~~~~~~~~~sas %do_over2( arrayI ,arrayJ ,arrayK <,phrase=%nrstr(%&arrayI(&_I_.) %&arrayJ(&_J_.) %&arrayK(&_K_.))> <,between=%str( )> ) ~~~~~~~~~~~~~~~~~~~~~~~ **Arguments description**: 1. `arrayI` - *Required*, indicates the first macroarray which metadata (Lbound, Hbouns) are to be used in the outer loop in the `%do_over3()` 2. `arrayJ` - *Required*, indicates the second macroarray which metadata (Lbound, Hbouns) are to be used in the inner loop in the `%do_over3()` 3. `arrayK` - *Required*, indicates the third macroarray which metadata (Lbound, Hbouns) are to be used in the inner loop in the `%do_over3()` * `phrase=` - *Optional*, default value `%nrstr(%&arrayI(&_I_.) %&arrayJ(&_J_.) %&arrayK(&_K_.))`, a statement to be called in each iteration of the *inner* loop. The *outer* loop iterator is `_I_`, the *middle* loop iterator is `_J_`, the *inner* loop iterator is `_K_`, if you want to use `_I_`, `_J_`, `_K_`, or arrays names [e.g. `%myArr(&_I_.)`] *enclose them* in the `%NRSTR()` macro quoting function. * `between=` - *Optional*, default value `%str( )` (space), a statement to be called in between each iteration of the internal do_over2 loop. If macroquoted (e.g. `%str( + )`) then the `%unquote()` function is automatically applied. ### EXAMPLES AND USECASES: #################################################### **EXAMPLE 1.** Looping over 3 macroarrays. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(a1_[2] (0 1), macarray=Y) %array(a2_[2] (2 3), macarray=Y) %array(a3_[2] (4 5), macarray=Y) %do_over3(a1_, a2_, a3_ , phrase = %NRSTR(%put (%a1_(&_I_.), %a2_(&_J_), %a3_(&_K_));) ) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 2.** Looping 3 times over a macroarray. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(a[0:2] (0 1 2), macarray=Y) %do_over3(a, a, a , phrase = %NRSTR(%put (%a(&_I_.), %a(&_J_), %a(&_K_));) ) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ --- ## >>> `%make_do_over()` macro: <<< ########### The code of the macro was inspired by *Ted Clay's* and *David Katz's* macro `%do_over()`. The `%make_do_over()` macro allows to generate the `%DO_OVER()` macros. It works *only* for *n>3*! The `%make_do_over()` macro does *not* executes like a pure macro code. ### SYNTAX: ##################################################################### The basic syntax is the following, the `<...>` means optional parameters: ~~~~~~~~~~~~~~~~~~~~~~~sas %make_do_over( size ) ~~~~~~~~~~~~~~~~~~~~~~~ **Arguments description**: 1. `size` - *Required*, indicates the number of dimensions (i.e. inner loops) of the `%DO_OVER()` macro. ### EXAMPLES AND USECASES: #################################################### **EXAMPLE 1.** Code of created "4-loop" `%DO_OVER4()` macro ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %macro do_over4( arrayI1, arrayI2, arrayI3, arrayI4, phrase=%nrstr( %&arrayI1(&_I1_.) %&arrayI2(&_I2_.) %&arrayI3(&_I3_.) %&arrayI3(&_I4_.) ), between=%str( ) ); %local _I1_ _I2_ _I3_ _I4_; %do _I1_ = &&&arrayI1.LBOUND %to &&&arrayI1.HBOUND; %do _I2_ = &&&arrayI2.LBOUND %to &&&arrayI2.HBOUND; %do _I3_ = &&&arrayI3.LBOUND %to &&&arrayI3.HBOUND; %do _I4_ = &&&arrayI4.LBOUND %to &&&arrayI4.HBOUND; %if not ( &_I1_. = &&&arrayI1.LBOUND AND &_I2_. = &&&arrayI2.LBOUND AND &_I3_. = &&&arrayI3.LBOUND AND &_I4_. = &&&arrayI4.LBOUND ) %then %do;%unquote(&between.)%end;%unquote(%unquote(&phrase.)) %end; %end; %end; %end; %mend do_over4; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 2.** Create a "4-loop" `%DO_OVER4()` macro ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %make_do_over(4); %array(a1_[2] (0 1), macarray=Y) %do_over4(a1_, a1_, a1_, a1_ , phrase = %NRSTR(%put (%a1_(&_I1_.), %a1_(&_I2_), %a1_(&_I3_), %a1_(&_I4_));) ) %put *%do_over4(a1_, a1_, a1_, a1_ , between = * )*; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 3.** Create a "5-loop" `%DO_OVER5()` macro ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %make_do_over(5); %array(a1_[2] (0 1), macarray=Y) %do_over5(a1_, a1_, a1_, a1_, a1_ , phrase = %NRSTR(%put (%a1_(&_I1_.), %a1_(&_I2_), %a1_(&_I3_), %a1_(&_I4_), %a1_(&_I5_));) ) %put *%do_over5(a1_, a1_, a1_, a1_, a1_ , between = * )* ; options nomprint; data test2; %do_over5(a1_, a1_, a1_, a1_, a1_ , phrase = %NRSTR(x1 = %a1_(&_I1_.); x2 = %a1_(&_I2_); x3 = %a1_(&_I3_); x4 = %a1_(&_I4_); x5 = %a1_(&_I5_);) , between = output; ) output; run; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 4.** Create all from 6 to 10 "do_overs" ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(loop[6:10] (6:10), macarray=Y) %do_over(loop , phrase = %nrstr( %make_do_over(%loop(&_I_.)) ) ); ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ --- ## >>> `%mcHashTable()` macro: <<< ####################### The `%mcHashTable()` macro provided in the package is designed to facilitate the idea of a "macro hash table" concept, i.e. *a list of macrovariables with common prefix and suffixes generated as a hash digest* which allows to use values other than integers as indexes. The `%mcHashTable()` macro allows to generate other macros which behaves like hash tables or dictionaries. See examples below. The `%mcHashTable()` macro executes like a pure macro code. ### SYNTAX: ################################################################### The basic syntax is the following, the `<...>` means optional parameters: ~~~~~~~~~~~~~~~~~~~~~~~sas %mcHashTable( H <,METHOD> <,HASH=> ) ~~~~~~~~~~~~~~~~~~~~~~~ **Arguments description**: 1. `H` - *Required*, a hash table macro name and a declaration/definition, e.g. `mcHashTable(HT)`. It names a macro which is generated by the `%mcHashTable()` macro. Provided name cannot be empty or an underscore (`_`). No longer than *16* characters. 2. `METHOD` - *Optional*, if empty (or DECLARE or DCL) then the code of a macro hash table is compiled. If `DELETE` then the macro hash table named by `H` and all macrovariables named like "`&H._`" are deleted. * `HASH=` - *Optional*, indicates which hashing algorithms should be used, available values are `CRC32` or `MD5`, the `CRC32` is the default. --- ### THE CREATED MACRO `%&H.()`: #################################################### The created macro imitates behaviour of a hash table or a dictionary. It is *not* dedicated for "long-ish" lists (above 1000 elements) since the performance may be poor. The basic syntax is the following, the `<...>` means optional parameters: ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %&H.( METHOD <,KEY=> <,DATA=> ) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **Arguments description**: 1. `METHOD` - *Required*, indicate what behaviour should be executed. Allowed values are: - `ADD`, adds key and data portion to the macro hash table, *multiple data portions* are available for one key. - `FIND`, tests if given key exists in the macro hash table and, if yes, returns data value associated with the key. For multiple data portions see the `data=` parameter. - `DP` (data portion) or `CHECK`, returns the number of data portions for a given key. - `CLEAR` removes all data and keys values. - `KEYIDX`, allows to get data by the key index rather than value. - `KEYVAL`, returns key value for a given key index. - `CHECKIDX`, returns the number of data portions for a given key index. * `KEY=` - *Optional*, provides key value for `ADD`, `FIND`,`DP`, `CHECK` `CHECKIDX`, `KEYIDX`, and `KEYVAL` methods. Leading and trimming spaces are removed from the value. The `hashing(CRC32,...)` function or the `MD5(...)` function is used to generate the hash. * `DATA=` - *Optional*, provides data value for the `ADD` method and for the`FIND` method provides data portion number to be extracted. Default value is `1` (used by the `FIND` method). When macro is executed and when data are added the following types of *global* macrovariables are created: - `&H._########`, - `&H._########_Xk`, - `&H._########_Xi`, - `&H._########_Xi_j`, - `&H._KEYNUM`, - and `&H._KEY_i`. The `#` represents value generated by the `hashing(CRC32,...)` function or the `MD5(...)` function for the given key. The first type keeps information about possible collision for the key. The second type keeps information about value of a given key, the `X` keeps the track of other colliding keys. The third type keeps information about number of data portions for given key, the `X` keeps the track of other colliding keys. The fourth type keeps the data portion, the `j` indicates data portion number. The fifth type keeps the number of unique values of the key. The sixth type keeps the list of unique values of the key, the `i` indicates key number. See examples below to see use cases. --- ### EXAMPLES AND USECASES: #################################################### **EXAMPLE 1.** Basic use-case. Creating macro hash table, macro `HT` is generated. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %mcHashTable(HT) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Add elements to the `HT`. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %HT(ADD,key=x,data=17) %HT(ADD,key=y,data=42) %HT(ADD,key=z,data=303) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Add some duplicates for the key x. See macrovariables created. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %HT(ADD,key=x,data=18) %HT(ADD,key=x,data=19) %put _user_; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Check the number od data portions in macrohash for the key `x` and non existing key `t`. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %put ##%HT(DP,key=x)##; %put ##%HT(DP,key=t)##; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Check the number od data portions in macrohash for the key index 1 and 4. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %put ##%HT(CHECKIDX,key=1)##; %put ##%HT(CHECKIDX,key=4)##; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Prints first data values for various keys. Key `t` does not exist in the macrohash. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %put #%HT(FIND,key=x)#; %put #%HT(FIND,key=y)#; %put #%HT(FIND,key=z)#; %put #%HT(FIND,key=t)#; %put #%HT(FIND,key=x,data=2)#; %put #%HT(FIND,key=x,data=3)#; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Print first and subsequent data values for a given KeyIDX. Index `4` does not exist. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %put #%HT(KEYIDX,key=1)#; %put #%HT(KEYIDX,key=2)#; %put #%HT(KEYIDX,key=3)#; %put #%HT(KEYIDX,key=4)#; %put #%HT(KEYIDX,key=1,data=2)#; %put #%HT(KEYIDX,key=1,data=3)#; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Print the key values for a given KeyIDX. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %put #%HT(KEYVAL,key=1)#; %put #%HT(KEYVAL,key=2)#; %put #%HT(KEYVAL,key=3)#; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Clear and delete macro hash table `HT`. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %HT(CLEAR) %mcHashTable(HT,DELETE) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 2.** Combine `CHECK` and `FIND` methods with macros `%array()` and `%do_over()` ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %mcHashTable(H) %H(ADD,key=x,data=17) %H(ADD,key=x,data=18) %H(ADD,key=x,data=19) %array(A[%H(CHECK,key=x)]); %put %do_over(A, phrase=%nrstr( %H(FIND,key=x,data=&_i_) ), between = %str(,)); %mcHashTable(H,delete) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 3.** Populate macro hash table from a dataset. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %mcHashTable(CLASS) %let t = %sysfunc(datetime()); data _null_; set sashelp.class; call execute('%CLASS(ADD,key=' !! name !! ',data=' !! age !! ')'); call execute('%CLASS(ADD,key=' !! name !! ',data=' !! weight !! ')'); call execute('%CLASS(ADD,key=' !! name !! ',data=' !! height !! ')'); run; %put t = %sysevalf(%sysfunc(datetime()) - &t.); %put _user_; %CLASS(CLEAR) %mcHashTable(CARS) %let t = %sysfunc(datetime()); data _null_; set sashelp.cars; call execute('%CARS(ADD,key=' !! catx("|",make,model) !! ',data=' !! MPG_CITY !! ')'); run; %put t = %sysevalf(%sysfunc(datetime()) - &t.); %* %put _user_; %CARS(CLEAR) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 4.** Data portion may require quoting and un-quoting.. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %mcHashTable(CODE) %CODE(CLEAR) %CODE(ADD,key=data, data=%str(data test; x = 42; run;)) %CODE(ADD,key=proc, data=%str(proc print; run;)) %CODE(ADD,key=macro,data=%nrstr(%put *****;)) %CODE(FIND,key=data) %CODE(FIND,key=proc) %unquote(%CODE(FIND,key=macro)) %mcHashTable(CODE,DELETE) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 5.** Longer lists. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %let size = 1000; %mcHashTable(AAA) %mcHashTable(BBB) %mcHashTable(CCC) %mcHashTable(DDD) %let t = %sysfunc(datetime()); data _null_; do i = 1 to &size.; call execute(cats('%AAA(ADD,key=A', i, ',data=', i, ')')); end; run; %put t = %sysevalf(%sysfunc(datetime()) - &t.); %put &=AAA_KEYSNUM; %AAA(CLEAR) %let t = %sysfunc(datetime()); data _null_; do i = 1 to &size.; call execute(cats('%BBB(ADD,key=B', i, ',data=', i, ')')); call execute(cats('%BBB(ADD,key=B', i, ',data=', i+1, ')')); end; run; %put t = %sysevalf(%sysfunc(datetime()) - &t.); %put &=BBB_KEYSNUM; %BBB(CLEAR) %let t = %sysfunc(datetime()); data _null_; t= datetime(); do i = 1 to &size.; call execute(cats('%CCC(ADD,key=C', i, ',data=', i, ')')); end; t = datetime() - t; put t=; t= datetime(); do i = 1 to &size.; call execute(cats('%CCC(ADD,key=C', i, ',data=', i+1, ')')); end; t = datetime() - t; put t=; run; %put t = %sysevalf(%sysfunc(datetime()) - &t.); %let t = %sysfunc(datetime()); data test; do i = 1 to &size.; x = resolve(cats('%CCC(FIND,key=C', i, ',data=1)')); y = resolve(cats('%CCC(FIND,key=C', i, ',data=2)')); output; end; run; %put t = %sysevalf(%sysfunc(datetime()) - &t.); %put &=CCC_KEYSNUM; %CCC(CLEAR) %let t = %sysfunc(datetime()); data _null_; do i = 1 to &size.; call execute(cats('%DDD(ADD,key=D,data=', i, ')')); end; run; %put t = %sysevalf(%sysfunc(datetime()) - &t.); %put &=DDD_KEYSNUM; %put %DDD(CHECK,key=D); %DDD(CLEAR) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 6.** Forbidden names. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %mcHashTable() %mcHashTable(_) %mcHashTable(ABCDEFGHIJKLMNOPQ) %* bad; %mcHashTable(ABCDEFGHIJKLMNOP) %* good; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 7.** Hashing algorithms. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %mcHashTable(H1,DCL,HASH=MD5) %mcHashTable(H2,DECLARE,HASH=CRC32) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ --- ## >>> `%mcDictionary()` macro: <<< ####################### The `%mcDictionary()` macro provided in the package is designed to facilitate the idea of a "macro dictionary" concept, i.e. *a list of macrovariables with common prefix and suffixes generated as a hash digest* which allows to use values other than integers as indexes. The `%mcDictionary()` macro allows to generate other macros which behaves like a dictionary. See examples below. The `%mcDictionary()` macro executes like a pure macro code. ### SYNTAX: ################################################################### The basic syntax is the following, the `<...>` means optional parameters: ~~~~~~~~~~~~~~~~~~~~~~~sas %mcDictionary( H <,METHOD> ) ~~~~~~~~~~~~~~~~~~~~~~~ **Arguments description**: 1. `H` - *Required*, a dictionary macro name and a declaration/definition, e.g. `mcDictionary(HT)`. It names a macro which is generated by the `%mcDictionary()` macro. Provided name cannot be empty or an underscore (`_`). No longer than *16* characters. 2. `METHOD` - *Optional*, if empty (or DECLARE or DCL) then the code of a macro dictionary is compiled. If `DELETE` then the macro dictionary named by `H` and all macrovariables named like "`&H._`" are deleted. --- ### THE CREATED MACRO `%&H.()`: #################################################### The created macro imitates behaviour of a dictionary. The basic syntax is the following, the `<...>` means optional parameters: ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %&H.( METHOD <,KEY=> <,DATA=> ) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **Arguments description**: 1. `METHOD` - *Required*, indicate what behaviour should be executed. Allowed values are: - `ADD`, adds key and data portion to the macro dictionary, *multiple data portions* are NOT available for one key. - `FIND`, tests if given key exists in the macro dictionary and, if yes, returns data value associated with the key. For multiple data portions see the `data=` parameter. - `CHECK`, returns indicator if the key exists in dictionary. - `DEL`, removes key and data portion from the macro dictionary. - `LIST`, prints out a dictionary to the log. - `CLEAR` removes all data and keys values. * `KEY=` - *Optional*, provides key value for `ADD`, `FIND`, `CHECK` and `DEL` methods. Leading and trimming spaces are removed from the value. The `MD5(...)` function is used to generate the hash. Default value is `_`. * `DATA=` - *Optional*, provides data value for the `ADD` method. Default value is blank. When macro is executed and when data are added the following types of *global* macrovariables are created: - `&H._########_K`, - `&H._########_V`, - `&H._KEYSNUM`. The `#` represents value generated by the `MD5(...)` function for the given key. The first type keeps information about the key. The second type keeps information about the value of a given key The third type keeps the number of unique values of the key. See examples below to see use cases. --- ### EXAMPLES AND USECASES: #################################################### **EXAMPLE 1.** Basic use-case. Creating macro dictionary, macro `Dict` is generated. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %mcDictionary(Dict) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Add elements to the `Dict`. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %Dict(ADD,key=x,data=17) %Dict(ADD,key=y y,data=42) %Dict(ADD,key=z z z,data=303) %put _user_; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Add some duplicates for the key x. See macrovariables created. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %Dict(ADD,key=x,data=18) %put _user_; %Dict(ADD,key=x,data=19) %put _user_; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Check for the key `x` and non existing key `t`. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %put ##%Dict(CHECK,key=x)##; %put ##%Dict(CHECK,key=t)##; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Prints data values for various keys. Key `t` does not exist in the macrodictionary. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %put #%Dict(FIND,key=x)#; %put #%Dict(FIND,key=y y)#; %put #%Dict(FIND,key=z z z)#; %put #%Dict(FIND,key=t)#; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ List dictionary content to the log. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %Dict(LIST); ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Delete keys. Key `t` does not exist in the macrodictionary. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %put #%Dict(DEL,key=z z z)#; %put _user_; %put #%Dict(DEL,key=t)#; %put _user_; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Clear and delete macro dictionary `Dict`. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %Dict(CLEAR) %put _user_; %mcDictionary(Dict,DELETE) %put _user_; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 2.** Populate macro dictionary from a dataset. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %mcDictionary(CLASS) %let t = %sysfunc(datetime()); data _null_; set sashelp.class; call execute('%CLASS(ADD,key=' !! name !! ',data=' !! age !! ')'); run; %put t = %sysevalf(%sysfunc(datetime()) - &t.); %put _user_; %CLASS(CLEAR) %mcDictionary(CARS) %let t = %sysfunc(datetime()); data _null_; set sashelp.cars; call execute('%CARS(ADD,key=' !! catx("|",make,model,type) !! ',data=' !! MPG_CITY !! ')'); run; %put t = %sysevalf(%sysfunc(datetime()) - &t.); %put &=CARS_KEYSNUM.; %CARS(LIST); %CARS(CLEAR) %put &=CARS_KEYSNUM.; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 3.** Data portion may require quoting and un-quoting.. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %mcDictionary(CODE) %CODE(CLEAR) %CODE(ADD,key=data, data=%str(data test; x = 42; run;)) %CODE(ADD,key=proc, data=%str(proc print; run;)) %CODE(ADD,key=macro,data=%nrstr(%put *****;)) %CODE(FIND,key=data) %CODE(FIND,key=proc) %unquote(%CODE(FIND,key=macro)) %CODE(LIST); %mcDictionary(CODE,DELETE) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 4.** Longer lists. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %let size = 1000; %mcDictionary(AAA) %let t = %sysfunc(datetime()); data _null_; do i = 1 to &size.; call execute(cats('%AAA(ADD,key=A', i, ',data=', i, ')')); end; run; %put t = %sysevalf(%sysfunc(datetime()) - &t.); %put &=AAA_KEYSNUM; %AAA(CLEAR) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 5.** Forbidden names. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %mcDictionary() %mcDictionary(_) %mcDictionary(ABCDEFGHIJKLMNOPQ) %* bad; %mcDictionary(ABCDEFGHIJKLMNOP) %* good; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ --- ## >>> `%QzipArrays()` macro: <<< ####################### The zipArrays() and QzipArrays() macros allow to use a function on elements of pair of macro arrays. For two macroarrays the corresponding elements are taken and the macro applies a function, provided by user, to calculate result of the function on taken elements. When one of the arrays is shorter then elements are, by default, "reused" starting from the beginning. But this behaviour can be altered. See examples for the details. By default newly created macroarray name is concatenation of first 13 characters of names of arrays used to create the new one, e.g. if arrays names are `abc` and `def` then the result name is `abcdef`, if arrays names are `abcd1234567890` and `efgh1234567890` then the result name is `abcd123456789efgh123456789` The `zipArrays()` returns unquoted value [by `%unquote()`]. The `QzipArrays()` returns quoted value [by `%superq()`]. See examples below for the details. The `%QzipArrays()` macro executes like a pure macro code. ### SYNTAX: ################################################################### The basic syntax is the following, the `<...>` means optional parameters: ~~~~~~~~~~~~~~~~~~~~~~~sas %QzipArrays( first ,second <,function=> <,operator=> <,argBf=> <,argMd=> <,argAf=> <,format=> <,result=> <,macarray=> <,reuse=> ) ~~~~~~~~~~~~~~~~~~~~~~~ **Arguments description**: 1. `first` - *Required*, a space separated list of texts. 2. `second` - *Required*, a space separated list of texts. * `function = cat` - *Optional*, default value is `cat`, a function which will be applied to corresponding pairs of elements of the first and the second list. * `operator =` - *Optional*, default value is empty, arithmetic infix operator used with elements the first and the second list. The first list is used on the left side of the operator the second list is used on the right side of the operator. * `argBf =` - *Optional*, default value is empty, arguments of the function inserted *before* elements the first list. If multiple should be comma separated. * `argMd =` - *Optional*, default value is empty, arguments of the function inserted *between* elements the first list and the second list. If multiple should be comma separated. * `argAf =` - *Optional*, default value is empty, arguments of the function inserted *after* elements the second list. If multiple should be comma separated. * `format=` - *Optional*, default value is empty, indicates a format which should be used to format the result, does not work when the `operator=` is used. * `result=` - *Optional*, default value is empty, indicates a name of newly created macroarray, by default created macroarray name is concatenation of first 13 characters of names of arrays used to create the new one. * `macarray=N` - *Optional*, default value is `N`, if set to `Y`/`YES` then a macro, named with the array name, is compiled to create convenient envelope for multiple ampersands, see the `%array()` macro for details. * `reuse=Y` - *Optional*, default value is `Y`, when one of the arrays is shorter then elements are *reused* starting from the beginning. If `CP` then function is executed on the *Cartesian product* of arrays elements. Any other value will cut the process with the end of the shorter array. See examples for the details. ### EXAMPLES AND USECASES: #################################################### See examples in `%zipArrays()` help for the details. --- ## >>> `%zipArrays()` macro: <<< ####################### The zipArrays() and QzipArrays() macros allow to use a function on elements of pair of macro arrays. For two macroarrays the corresponding elements are taken and the macro applies a function, provided by user, to calculate result of the function on taken elements. When one of the arrays is shorter then elements are, by default, "reused" starting from the beginning. But this behaviour can be altered. See examples for the details. By default newly created macroarray name is concatenation of first 13 characters of names of arrays used to create the new one, e.g. if arrays names are `abc` and `def` then the result name is `abcdef`, if arrays names are `abcd1234567890` and `efgh1234567890` then the result name is `abcd123456789efgh123456789` The `zipArrays()` returns unquoted value [by `%unquote()`]. The `QzipArrays()` returns quoted value [by `%superq()`]. See examples below for the details. The `%zipArrays()` macro executes like a pure macro code. ### SYNTAX: ################################################################### The basic syntax is the following, the `<...>` means optional parameters: ~~~~~~~~~~~~~~~~~~~~~~~sas %zipArrays( first ,second <,function=> <,operator=> <,argBf=> <,argMd=> <,argAf=> <,format=> <,result=> <,macarray=> <,reuse=> ) ~~~~~~~~~~~~~~~~~~~~~~~ **Arguments description**: 1. `first` - *Required*, a space separated list of texts. 2. `second` - *Required*, a space separated list of texts. * `function = cat` - *Optional*, default value is `cat`, a function which will be applied to corresponding pairs of elements of the first and the second list. * `operator =` - *Optional*, default value is empty, arithmetic infix operator used with elements the first and the second list. The first list is used on the left side of the operator the second list is used on the right side of the operator. * `argBf =` - *Optional*, default value is empty, arguments of the function inserted *before* elements the first list. If multiple should be comma separated. * `argMd =` - *Optional*, default value is empty, arguments of the function inserted *between* elements the first list and the second list. If multiple should be comma separated. * `argAf =` - *Optional*, default value is empty, arguments of the function inserted *after* elements the second list. If multiple should be comma separated. * `format=` - *Optional*, default value is empty, indicates a format which should be used to format the result, does not work when the `operator=` is used. * `result=` - *Optional*, default value is empty, indicates a name of newly created macroarray, by default created macroarray name is concatenation of first 13 characters of names of arrays used to create the new one. * `macarray=N` - *Optional*, default value is `N`, if set to `Y`/`YES` then a macro, named with the array name, is compiled to create convenient envelope for multiple ampersands, see the `%array()` macro for details. * `reuse=Y` - *Optional*, default value is `Y`, when one of the arrays is shorter then elements are *reused* starting from the beginning. If `CP` then function is executed on the *Cartesian product* of arrays elements. Any other value will cut the process with the end of the shorter array. See examples for the details. ### EXAMPLES AND USECASES: #################################################### **EXAMPLE 1.** Simple concatenation of elements: ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(a[*] x1-x3 (1:3)) %array(b[*] x1-x5 (11:15)) %put _user_; %zipArrays(a, b); %put _user_; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 2.** Shorter list is "reused": ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(a[6] (1:6)) %array(b[3] (10 20 30)) %zipArrays(a, b, result=A_and_B, macarray=Y); %put %do_over(A_and_B); ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 3.** Use of the `operator=`: ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(c[0:4] (000 100 200 300 400)) %array(d[2:16] (1002:1016)) %zipArrays(c, d, operator=+, result=C_plus_D, macarray=Y); %put (%do_over(C_plus_D)); %put %C_plus_D(1); ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 4.** If one of array names is empty or an array does not exist: ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(a[6] (1:6)) %array(b[3] (10 20 30)) %zipArrays(a, ); %zipArrays(, b); %zipArrays(a, z); %zipArrays(z, b); ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 5.** Use of the `function=`: ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(one[3] A B C, vnames=Y) %array(two[5] p q r s t, vnames=Y) %zipArrays( one ,two ,function = catx ,argBf = %str( ) ,format = $quote. ,macarray=Y ) %put %do_over(onetwo); ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 6.** To reuse or not to reuse, or maybe Cartesian product: ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(e[3] (10 20 30)) %array(f[2] (5:6)) %zipArrays(e, f, reuse=n, operator=+, macarray=Y, result=_noReuse); %zipArrays(e, f, reuse=y, operator=+, macarray=Y, result=_yesReuse); %zipArrays(e, f, reuse=cp, operator=+, macarray=Y, result=_cartProdReuse); %put %do_over(_noReuse); %put %do_over(_yesReuse); %put %do_over(_cartProdReuse); ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 7.** Use middle argument: ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(yr[3] (2018:2020)) %array(mth[12] (1:12)) %zipArrays(mth, yr, argMd=5, function=MDY, format=date11., macarray=Y); %put %do_over(mthyr); %zipArrays(mth, yr, argMd=5, function=MDY, format=date11., macarray=Y, reuse=cp); %put %do_over(mthyr); ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ --- ## >>> `%sortMacroArray()` macro: <<< ####################### The sortMacroArray() macro allow to sort elements of a macro array. The **limitation** is that sorted values are limited to 32767 bytes of length. See examples below for the details. ### SYNTAX: ################################################################### The basic syntax is the following, the `<...>` means optional parameters: ~~~~~~~~~~~~~~~~~~~~~~~sas %sortMacroArray( array <,valLength=> <,outSet=> <,sortseq=> ) ~~~~~~~~~~~~~~~~~~~~~~~ **Arguments description**: 1. `array` - *Required*, name of an array generated by the `%array()` macro. * `valLength = 32767` - *Optional*, default value is `32767`, maximum length of a variable storing macrovariable data. (the reason of 32767 limitation) * `outSet = _NULL_` - *Optional*, default value is `_NULL_`, an optional output dataset name. * `sortseq =` - *Optional*, default value is `LINGUISTIC(NUMERIC_COLLATION = ON)`, sorting options for use in an internal `Proc SORT`. ### EXAMPLES AND USECASES: #################################################### **EXAMPLE 1.** Basic use-case. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas options mprint; ods html; ods listing close; %array(hij [4:9] $ 512 ("C33" "B22" "A11" "A01" "A02" "X42"), macarray=Y) %put NOTE: %do_over(hij); %sortMacroArray(hij, valLength=3, outSet = A_NULL_(compress=char)) %put NOTE: %do_over(hij); ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 2.** Basic use-case. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas options mprint; ods html; ods listing close; %array(ds = sashelp.class, vars = name|NNN height|h, macarray=Y) %array(ds = sashelp.cars, vars = model|, macarray=Y) %put NOTE: %do_over(NNN); %put NOTE: %do_over(H); %put NOTE: %do_over(model); %sortMacroArray(NNN, valLength=30, outSet = A_NULL_(compress=char)) %sortMacroArray(H, valLength=32) %sortMacroArray(model, valLength=120) %put NOTE: %do_over(NNN); %put NOTE: %do_over(H); %put NOTE: %do_over(model); ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ --- ## License #################################################################### Copyright (c) Bartosz Jablonski, since January 2019 Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation files (the "Software"), to deal in the Software without restriction, including without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to the following conditions: The above copyright notice and this permission notice shall be included in all copies or substantial portions of the Software. THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. --- macroarray-1.2.3/hist/1.0.6/macroarray.zip000066400000000000000000001445341452773550200201770ustar00rootroot00000000000000PKiz$WHn<j description.sasVmo6nb@bζà6Ŕ[=I`{E hhlѢHHw䗦Kl(aQ,b-7"sB+XЦO]ݓv;#p-أ0CŌȝo0 R(G,BCTyX޹rvۭl"s>_I_0@i*G(rf2G`2nth +ruF$=8JpKĔ"Cca১8VX(ږ;ӅDQ~YLבL(G_|*ڣH\fPQrZןO֤9caNan vkWoj6h̡U:s0G7d#䖊\{+2TG)p[fUV7xNjD=Ίi0Ulbc4Qrɬ݊}07USn{VfҰ4Jk$!a$ZDU 0[:#lIFFAz"!YґJXP넏yܴ[)pv\ѕemAW<Ӛ6z|vkOBKj/F}gS{>)o7魏f [۔؝H\+JR9Ly);乫娾],<1J\RW[ոFTV[sMY=?U`M.l|2{]M]e½D \[՟]_pM8WZ ߴ[0%cN&$J:فH2:#㸂U^RY2T^^}nQIDxYpT GJiK` )b 1JJ%PH`. ^“b饷ה:TuZ0ʴbp4>\8݁޶F!!t=T k7~RȌ@͗\L9>8Ik8w=I|ڊ#={ AV8髧dn0O3Ľ;,z*z$&`x=10h}o"'ZjS,nDQ=:k46Pvҵv _p 6SGv[j`o[Ceܱ7#>NMG},,90APId<=K`#en'$+- `"K$k(eU EQ:#X b%dmJ 5LdsfB4.J *&s&Z˪9ȐB _y@YKGl$YR<.XyƱ8s~\i*#P%`<͒SF%IˢL0l^Q5d!f"XX+ ޝG轮+#dHVxJ2W PKiz$W tl$packagemetadata.sasMK1aS ]bi+4|$l^$<0PS XV8)ӻ6|pG|Kx'-pBMمs!8I~5Ge4TɠyX8qC,%ƟkF^D?5QG V܌tnnOgTğPKiz$Wiceloadpackage.sas͗mO0O;"JJ`bbلDԕ2M9.D$qFwEܝ/ ` S\P(oL b !;P03[gnu~ڡ`qD#5rCF\r `ʥ\o*6IVS,Z f 6~ɬN%W]> $QO6rc. @.8M[F]cl׀Ea oqn FU**өKpL50"`-p 06 Nñ-I/b؏hz:e YBT8H)ӯL_.1x% S+U/ì<<|:=wٶLݑ`aY$B a`v7˚cU`Zug;gtUmLlg> /'G fr"e_2MN&L݀/aop &542tGWїj4'b2C|"oKM{W̨T# ܟŹYnDGWx-´1xn, dqr.P5b9M?Jw78p{9vЏxI* С%y"&2~_k5ThJZv¶۸hѦUa&{wgv^PKiz$Whž rFload.sas\sH=Ub$cbT{] Hm, B"=z#a^ruJ3elR' ?|n6ߝipf 3z>< [ 1cwG}#sa[Шk13< RTgS|}LoYQ]A<ܯܯ6~;j| amMhh 4죰DvTΣ1s\IP)q݋~]Mũ}[^J;bRiK #p_krisv>ƵWڍ-\ q3v58wCA؎9OhPmNh3*fU5̍HQ-A|ks1ԼhHh Y=E'i0ŧJIٖ*!Ɉ݊8PqE24o^DdrS&)x+P)L,yPfH"$nGfǷPZ"{Yܐo0`ңM zǎgNy|j/LfA<{Q5go7 {tK7_罫 @uOYo6CAA`2\s8Ǹ-p7/i:7mҩxZ\wt/~gJ ̡Hb# cZso&tu@PQ֜*t86>/QZRNG t:8~JQd;Bc]N?,JgaZzo_Gb,RAG'yKd??kr=_ZՋE 'aWQZ5Պ!Jk6^Y'Nl4 5E4F6r6KC_ 􊨔))1Uuv|xԒ)3Z SNWׂԽEtX[=emعO)ϋ^{r99@:ȏ*gj*O1RƯxT?'N+-m\\uT7ʔӴ\@ $li`"p~u&EB.j\~5BㄌNy}EQDŤ-Y.-Wߢ,^JVR\oOBߣiǥ%7_."lA-{W4tk&cse_?/cqh,/.aҠ*z逵2ѳz1Ty%ybOZ1#V|Sr*Dʙ->E`ًKch~q%_7[PKR@D%$XQ9O PKiz$WB lazydata.sasQN@bnCb%,d6V^e{G.p4)P>Ai2l\^Þ .Zӿ9o obˉcF*ݯR&Xkq˶U4ұRc0O5^uY)g ,&gF8`ĝs!f-XPC $<#-'!GLY)-M(,Μj>,'|SѴ^BfxDl`6u؜Ξe V>,B)[r)x3ݍs )~>%Ș]Ϻ !]w΂ڗV*׶Cp1m-8 8F51zŘO `/zꑈ]pu]8IL73C/KLj?$"ğ=gwgdnbwJĚ2[] jܹA$C߀Ӫ(X^}Zs< ;b.|WIODX̐[Ȝ_(~ET  iAVf,/R|9^s'!.wxD4+x.?};E$cVo2nd Z% j: $XP#MAnafkO*F.@X=3w# ݔ˃yZίMv~sqt0,lga y$f IOjbHCL~q܍sZ!h%AuEИGNZ$ 5P-7.WV 2sI90XP/UJhaVw ZkI|;-vڅDՎz*PjKj=u]c8.ZJX tO.S^;$& Y|-ǐdRR-÷XRD|)9U>jT;jvT͘WWQl{.'桌laSYۿg SoeeUBRay[&BO;buÒmW҃**rG^QxRq1mtR\y7dw8ث~qUQ\8ewzQr/Wfl ;hh79kNw5=>6q:-)nx p4יִ:~eB6)Ktwg!pl(Pc KgXVY_S@ԱJ; CQX80R%6)/&4F=P{> RڍzW8N?}_W8;o;f]Ǡ[dܛE[PKiz$WX~%help.sasZms8ǵ Nƾ4k}s0M'?Va7&ABj]-L\֔OqƴWT+p( oǃwГ]B&Aec=Zv\FҀIzu=P 0ΟTFazkUxMq Bۊ*f M.(n|};U.pǐE{3K 6+j;EF U%SP+xb7X]j퀻gO?7A >:(V,qx6X3&)zR8qqnipC"صVLF 䆞ZH]F }2'dL+" JJu ^Xs %QUO., ^sdKP`C8B.ށ; 9'_yо G)tW$])@e{܀4I)N5Ϛ*T+a,qp)3&р"ĿJu ,](UN2S@C%\B(k7!C4@qF8K EHv3s0# ž_1,jW8E{R엤V+bq@iu-k;)dPnjGRKjX)朞5VgSk(';Zn&߅@P"qMTLfdt&ŽL;+ , 7WH:\2χyC[+dM+93w!Lc%T^Y=DD=pAd6< ӄeW54b5g"KAͳ,I0&$uzL7-, )iQ7=2ƪb* 3Jo1ND 'g E-- j24S[WKZVIWn6l1ռTܒKC;/7N~&/-9\ l`uхZspw3^;j5ؽ4XXe'ݏy1_`iKesgׂDkV.{M^ƹՁ[V]%xV - ~p{f$qb Y^uWZzPⵠE^Iq:,Q(_YqkyXJݚ &ktc*cqKXxzpFdke5F 7TT^~7Qt%o^62lu19])a\쏚`x5ڋ z8^ާ(ʗ8>cgNNŚ3;TdJ`JT\vXN)Y>٩TK94)a:!ه/MA>rZh9d5PldXoU+PKiz$W _001_macro.appendarray.sasV[o6~7p,ɲt71.! :CMKM"]>tRǍӢ5K' Cx5:} h6a8,TRn(Hd R=/BH:dkh6.t 0 +eTQ-X¹4 1T^o(aZ[ckH \^R r54 B( AB^`Iq9cJMEz.+G74+ ؗ%*_̩SǴ"}׿n>MfZrcS6L#7 8؈#'Da UlpD7FFl o6؊` TK̹X9)|þ0qhoǒ)xRڬ|ɑz,@펺enu8ޒtwR<28Ly|#KK@ͩ)B`rIhdZI׼ ǘ+32lPKiz$WhiP/{_001_macro.appendcell.sasY[oH~G?q/˾l%4"i5 VSe7M9e2ɖp];9Eɲ,Pi=vK%+l߯r˛O0bpyy |6e#Z6.K >,l&yxy(If3,ɤzSM), m;r@ 7}{;;;ax4ơ}"B|tΗ$]KrPS?`UZ u~i$(1`$'Rg3]SLZf= \|((]Od3&l"UU(sHWSs=I#?AjBWUȏD[A#4I=uBÞ!,.x?-!Y"8d HؤMp{}45h ct&[k~J8ڱ  D:lȩ?7T80˦ %ڰ(׫rHڧs}qA%;5TIs]s~ivK l}lӌ&#)xr&=X(kU B {UVD-:tBP:ƪ;Hcqoy,; EX ݾqe[FO{F ;O ]VBz[kVpۼoUn/v}W'\̇c* (5J!),KA=2Wi2;`9nȽHT~u@Tqbm2pг"iUY%D)fMj68D%âVFRXkHBqD6.fJj>@SܨΗvR"Z>Z=&J wiBUa]zкr>)n"Kz5g tYN((P7#AUmpty)g@j6itRAG Gnk"[tvz?7* kVqN/,w},\:|u(:, 'iW+a@k_QCOSӊS:D rPkC{t KXê%0")zMJ<0{KVy>悢ĆذoHlQ gJO:"G5:^ߎO>͑~[~yyJH=\:tgMXpaQr<^2)ۮKq n5XZJ_Ou9 LB~`)u{2dr 'wA)HkC7@th" d,C,^F?qpĈS!<)۔|0yzRpteIx_V̟BؐS>x-nI%z-(27 j3ZVu< ui5( SIy gj ?e=1׳Q|3gxPKiz$W]71po_001_macro.array.sas=kwHsNCY83cBvCdmx2>99 C H6oUu^Ğ{LhuWWWUףbȎ['oy1[|=}{%lYo-5}f؋/ ֌7 Lo /_Z/ٳ'O gޘYf]-b9r'(2+[?H2ŕp?=} Xe!T[kk¡ /Cء; ,DW#0wa7XbXvcufw4 w1=,PȃEg eCl> (:t¬F`Zw%ƍP|3۱|@zZ!v. KyClg0$ /j?B!L7>(hvȆˮ8w|,w5D>0ĭzB-ta M}+IKa xT )%j#Sq >{xx8&'pLv,ј,└|} (wB`f@8w21)7 $Z7:(L}P_+_۶> @I EUQVQ]$x:^Y4bl|'` }ڙ)yܹbA AkN:%˕Ä"?(]0+`G unX?<}"G()5^W8/k Տё?2'*QM˧ZpbӟqCRxCߦA4a~}]q:X N4ɳ0M,;ڤP%'f˦/~`wfʴsumly(-Z+\au[k/+gsJӳi(K)Ίǻ@ AZTP w8҅N1J#ɡ;h3 &n`-Au.Iu3;( kܔ@`ܱo! 8A)A >/ GµQ`)dJTz '@霣 L@l"f4R9V_ZPyNh+vB8[̨~?=BC->m>8" "&P9N,$$ ) Z:c9 UHKd(r$urʃ>Z" m);z u; ,ԗ"DE"GҎ$L37sͻ k5(byS1ghTJN!rɂ#&h('6SY8P/Fܱgq !Nn˗y6*(:jg9Z >8K03H ^`QG{D KA/t}$ȁIO掅Ǹ(Unb r{2 /O̚Or0ԚZ>$ED+ZԓӬp\yr"x M~B4YA_`kV@ߵڿ]/f `M3H3}%EV"jE) ( :4毭{JvwV cVb-n/wĤ:@lICQq= GX}=B·_w4ɠc+ KlOQVBb+:ct`3v.9d4;QX 8Z;#hʤhh -DqN"z:iREyw0 f_%K}a|nR4,9#/O^~~4O[ZBJl}  j+\ :!`ff,_Nϖ)v;#Lh*nAdg$}*X&iשҨ{щ|]`"8"XFa킡) qF} ۴"1jEȮK pB\'h>e'7;{k!+Bݳ#v)]#wt׆BYX6P2_*Ȧ@јRHW*l)m+lBvĄmCl<9;lЛ\ųiD' I?4 z&XF rW[(ڝK6ѫ_#?n,jS?%hfx~3*̄fy-%m1cc%SJ֭#܏)D{$H2QGU=tx!wӿ{go(2kZ'-pZ};gBl'HI#OM?Ha+)thWWr\cN|GhGx!ufK ش $ ! :y ΧـMDJNmol|l\M4Nmi-n{m xw1##gh琟x࿋M:j 8n`! @f/^|A<E,g'$̍E-j<:_q) џ5eW]K\F7 vU=k+[zxjN4ǂjB9(#^nmWح$4B^G&OƷ{CBikB@ꌽ;n?F{O{+u߱Ώb\&vhU썑Jzk6|mt&R=4Avc0 {ar(%=r ξlɧ\o6m7d@l?x5츠]Tx<C^iٓ(oלώmv1mq!q)yO3Ǵ#k67^;ް(uI_|` Ĺ@K&%;y̽rtKqVS\UUL:I'l>2^07uX[}zJ-+ ד<1gyY,'r,'r,sύzJ_J#Hc$1T%aL8 10&Ƅ8x  צR,)I$Ą Ij3_ܠ%=lt'~Զ4qΙf +\Ԃ g11X=Q .7*\f$IOiҳ06aR(VVL*b ZQqi]$D|<7qYJ H۹wq̙UR%|P!GajO~'}jMMS%'W 6~>&ߛC{z>0*WbAA; 5^)-=<or ĉ90o̢4:4hGpOg3djD+n98R5*"ЙVuX5Gs o Dp(9c~z}j-cR%Twh#X*(1OR6,f=?~''ZR/u_~ ϟ+9)E=E=E=OTcx ܈`ʨQMVp=q *f]5zƉ2/jZem"0lN7Y_(~!7iH> fRj@A!*<M̄j긮Z~_$Q .eyQ`U* QAMDp%"*Cv64Ni4>T̧V #sd^TO-mvnQS̖@WV$Ҳ'Qp?.׍vq]sRi [XHPVj\ZKkqi-.ݏKquܿ('lfᔇ@ TwY`гJZa- [`uxexexex0w'[~PR폖M?qE*Ef_dd8~EFy_ddZb+Pњpt;: SKi+#J꾃5š)5!Ny&kF*arlcBHѼn䏟đKR: 4}M()Y"i<(잋UzJS-dq 7hsXѶi-NyW=ĩGYg>6 -RxMH|bS:;'y mj CbҶ񙌁Lj>qWD(q٠|) ŲWX<[ mG]观#k,`\x77TI_@d}rySX(}(=G:Ktš^O .7%왿@=*V#IoFO10ļXrN;4iy3ݺ 0<_PKiz$W%U0_001_macro.concatarrays.sasXmS8=s8/a.дpCLC[ V*Ʉ܇(mlu馲BG-D򧧺lP)?*90h7|V Є5kGd]Xu=L$ kUBW94$jFmȩVDq:¢ٶZW(A+8~՞Kl{$.Y7bK6h8 R X5 A1s1e[QO*fIJ0Ys`mqqhU&f P4 `q|D F 11215 ~" 6gxWKs#[)Jd/iI,DiN#`S ֢:s:4cИpwQ׵8:4 dz"wZMr2 xJXo%Ó?PKiz$WPuU _001_macro.do_over.sasYQsH~wC'>0҂lk*&)۹]W*i0: H힑 9l47=4ww{''%8O  &̍D ...A& zP^^^ˣ+<b1^+!1 ~(~=qr6?&}=--lw*ss ,LB,ybCEln3?d΃S(T݇|xns ā42 %-(+?=C&}<3R?>ֵ/e]4EȂϲuxd yOOS #GJU=Uoa\!C8;wel3nLxKt#_n-zj[)hy?'/T|Q@21X̠$УoisK1DB 9$Sԝce)8)ʘw)h5$ +˩Caz4]9"3tDSYM)8z, #J\D(1\$z  (! &[dލC'"F( ]JxUD+i@MNˍu΢^\`57#R?)IB5  !Kb1Ak94𹗡$\@\Bdf 3˱Hoyi]+^Hr]shKH-<稪|R*18LP+gfh]{fKg5`E+ʚB1#MH܈L (&Ɍ/uRqh8EL`fܤg;`@8vDu:64 ^ޒ~r}k&' #&<o,Yѿy{J>ݯU5ӀB"[Y,F@J`ҿ(ѣ? s E*2sM)1PKE`YmUnH2];bjT~D Խv6٢܄7%dٓj eTЯ MM@Ô[녛r¬2Y%7gɪC a,v\.WIPh$CrEkTbvZʼn(YY"&r*}c豀 电 ~Ȟ,G0cbFPHqVL_ۯdb%p dNJ6UĖ驺޺M@+ߢ+xRƪҵİZ{J0ĀNQέ*4iC6 (lE{T,JƄNdn~s]$܇|^[XP\,'#|zSEz#f([aCh~>p\^_TƱ\(f)ո>Z YiJ ?Fz( ?ۏb8{Zi mXi 7 ($YZ2`8 ލOa?+!'˃iA 2\ WAÃvUUȘ@`I{O}SKf)UTIk߅⽏}|w;f1v AA&ZB43DL)rj6}Uh ̤ؗ y,5bRiD5Xf嚈(j6f)(.[䉥Lʑ{bT,/ -BG\B<{BX-3c}:l1X#c2]dw2.m[lNbc!6F rI=. >̰堑wahmCWvm蟘?pn|0!9y7l9ʗLj0DhTF\uА?(TJ.6[+ Srʄ˥2|;3B3WDo%EvTb$sc/&IYdk9c=$͸syPV=~8wbCm ūA5s;xS`V]V +Lo!5h7ގYnaXJZ:LDx5!'g}iVR}Ђ0{ß;SpM׽6!؆eg7~x:D>p1AxpkkNʃqlLO/>C g'^ඇ6*4pKܥs(yQꎝR$jesFo |y{u+Yo6—͗ 鰛mcP*8X>g+k;zsR1<&ڝMT|r;[FGpuΎ Wz-eʧ3 h }:P7Ep@d4]ɳo# ؃LRuW&x*!M*16\^\Ҵy+c]0wmLKuj%ffbݐXBDtLн0-xx!6~JfOojAD XwL?'s0َX#V&ƻm:e#5I슫R>SH -qPKjz$Wkʘv_001_macro.do_over3.sasWmo96ڔ݃Mw.!hB =5*o\zn?ˎ {\WGGAZ-D R@ل&Nfy"jvfGu)ʥ)X$4,՜IhW8z  o KGw3˭!Pyo.uk@T,hLSI4R詤i#R%Ēr `p.]G0'F%׫6p3M LV,2wW'G?Q,|,00>40l!ZJ1LpV'ETT\`%-v]z8jVSI=TZV|{pv޻x{1zA)? 0 AЖlFVPKfm zBdPLXL,m 1ob)ҦIB4Hd<¹UaC# hcܪ Ty1s+ zDEcyal{`S&D.r.bB$K5ܐ43?Qvтh>:” ϋٕu&ָLV6hgU IFEVˌ%IJ uQh稭=}"Z[q Kk'N0ٲ-; q*: ֞}\MQ֯X`p v/AEILG:֝;xǝSsJzG87XUg/7 2n%xdZA2&dS{c3k]j>쮇=;oߪتXO^*;"@a@|:v iūhZOӜ$+ݔޖrrM>ގf*>=xwn篴{6ЪU :CߣFwb&NSW}t>|X{> :ۃ/p 8s/0LͰ]bc l6`<2`VS3T^1֗uo{и{O#+S<Sn5fJ WQyNU<>iiǍMI?nvF} |0SȆS~O>l"w?,9) j+6>*; )Bk1_J6jxE;t(\}aUP'xF/Q1MṮ*ɘ3jzjvn{mU0ƛb{$#%Rk5k6P΍9%$dF&4W cc S3-Xu67Zյ^4)䙙uԂJdKչXբLhZt&KP)xL5vv@eIF KC$|`xPKjz$WI̦_001_macro.make_do_over.sasXms8 S^ҙ si]{&޴%oWMHXճ8ypoނ'O5e|ˡʣ} SEᐁ`S~T!/0 L8x Gݰœ)j;|; ٢`%'߈]Z9,7S``a( 1?O@Gq /]!p΄9Ӂ,0G`{bj{P7t}shO |(0 ;6]$-)-:fxIE<& @(цPʙ[s J$/MA}rGЄr ]dFKcz WH%ͅCg V5R 5WTćG9 吼[v{ Ԭν2s"DaVI3XbPQa{7wW3P!j`!z$ZcKV޻,R@/ȑ]+_bym7M7׶HxIqm;OjTocD Ȅ~O=P29?A%vvC*Ti4##uv{&SEZv7@wo@?9_؆lBhIz&7}*X|,)cs}c6pʃrԲ]t٭˄*JԳq˭2E-rΒlPVr:ͦ^lHWUmD[kE[E%ZzNIVsK4k#==-gHb[|2_.Ns^bomr%k$$+f ZAƀ7ʇnG5Z Xu!}Se;A:~h uz~18^p>k uFaa.:Cf ˧;F`_ o@bJVa΢@$/sc+ne~Ӥ]iHh?RJP:J(p_ ?vfn5%l \ZmEb6!"9tl>J:Ut*'9KA-&nmpUL !"d}>>CwyˁT{m4FNH}o 7҅=*|h_~{>kԗBk̝؞v`qoJPUh 遀oo7r5w{+4(?cgEt{Kt5grI4zg=F>+_Op\IK N4'n MˆZGp\$ ]vItm t؛d(|PmL)*k f {A2ӇEt ,IPh̛7V=5- ;MR(A`c↚ 5u7 0P44x9bdBoL L5He]5YYn6y~uc`hVмtHRWStqu 3J]T ioLݨ]תsmuÍ`p[:޻ńodcjFj("x`̟?A?ѫ5=p[>!24|pF yXɂUgO`eR5>k cns4cDث7m 80?a ޤgfKE&=n9I*JA)(sLzڛ`>fmoJQ04؍G. ɹyQ[o:9vL]{`(%Y ^D:,"@= Y'}qI䀡jJ ͌+H20,-MS1G#q!oLG4d$Fy#e7MBȦ Hh[bY(r=)4ʇepexFN\h%3GTTfYUsP& haFX)IgR+X *y_`ATw|E,::d(-C~*! կu!1hrMa&\HuyNj ~juVu>_TؓXYܕ[={ XHWX T" /h``!РhЄNx7q(ib%mKAfhz̘&0ͧ  i: [A+HNp[Sґ GX#VhaJu>P:M.#̼8u"w(C7D@3q|s]o +2PX($ǩBpTU<<"Y 3^_\!~}T( |&e J!gk# Ujr߫(>s9T-9TckcCɩb1G*2 }p2,.E_2)y\ӡr!i=1o>a7 T!YhtCA>(O! _2ȡ}io/;Zl^xʂ_-|=|;ɫ] (be!F{KYuO2}Cy/ÐKl6_zς·sn'־@fukJ {ZdSYH3goVr[hQ'>Pnu>\edPg' J闫QytN8jy~8]Y=]J[P.Xt␴4h64㱵wC[H]Q≶wC%~-2çC_j=Wh/.*+n]rW̺2';`+IW|s%IKuoYݕs1es" NW+%Uqno@BT_1U;5 ?t|{m5rcTK+W3jdU[Oq5p(v=e8Cq_<;ۦR'S9:ضU* !`EZFZފNsb1<%)xmIp[s:8tspf/dӾEt6LKE3?JĒtb> S!`8ww1 &o<0]^|Oc<ԅrbU|eG;Q!&0ŗyܧHNа3 B|ꁑHc¼xKV؅mMRۥ4rOw8}I Fj 1%v=saj痭f Ӭ:'$ z~I.Gӕi_QI%λ ֋=~$\# cG]e5ҿ_:J̈́M3`|JdM]RWgt lѱ)ngpA&MKgey?7& { [0fzAHΎdVIvo=v5.$3.0 q01f $ˉb%!>? ,bK2ٯ=eua{a5vt ~O6d Ļq,1[/Pȣz(2'mm 21"̷d/ط<6X!;]݇`NG XtPu,,Sgrk4 x9t G dRઔRelyVu8!׮f[s$K/ nxOQXZ痯76$*V^*  KE/m ߣ-4gs so ˛H*nկ` {w* GBVZi;a0H?`udbQoHEJjA.BȮ`2^y y=a:6-著8^$yz͍DZ;~@h+Xw f4aWZMG0wv5s+p5@'Ѹ֊fV"7`&EzE{!vjc#+'t*>% zٛ_޶*lJmtˁƊ|ީatR1.44KPzfs+,0?kI48M(QWI3Bvp#Rb\L>&lF SDGNr=ř.C}cjUgxu@G aI8T{CAFJ+M5ihʰ1PKjz$WC`x_001_macro.mchashtable.sas]{sȖU=edf!;qmgnR{@HmP,$" L9[BOCݙfbZ_>}ޒZ;ju; vuݼf𰺻vw^`o߾eռ6xEkFc6D%>^r@KojoًcwgwzsuL̴M5Vq=sdIa7nZ>snJbDU :뎭_cUV՘ez>^OiWzLw&R5`~#nsF5h4aWL,ރ~@Nf2]Uan>qC68એEd@8|f<2utl,Ǯ8gALc456\SwXavus 5ԙ7}큁$8oV0)MrAL}ݝ><݉.Ms=o?ͫnVrjfn$k9k<[W٠;`t%:3]nTk<ђI΢1@ t fHȦm5FF`t@e|BCBd̨PI4?W Tvh+Qk KOh]^OhU!H6|!vXӼiuyR2@w9I`9! g:3Wxr-l M U_JK"1aF7{i#XĄnδw|Y-1 hbqwl\Rqk'Ǎ0G0o1 q g}לLGЃ_:"`]gB ^]𢡄]pffG$oVI2)c!7E%337Q rPy`ypa1lR,!OG>EP`YEKJ`:h.N{l4OpBCMD)ph c~)frUG3$c*9Xv~{w?n3[H;S@2)`@iG~Np+ V-ݝ%"@ԶoLQ4))D 3L=:xQ$Ck,38)$&쇿PnJlФhc1>2dIDؔ+-422Y4b3:[d70C^p(h#ԥSw轱ޠk'P4E9kSO ͎2Y.ɷrٙ 8 0dϛAJWa g{ 3al^}8{};ulxvJ3@M .L@mEk q4ɛ"^:;͆Vih<ׁĈ:Z6ǃhA@VN Yc_4|zSTUrO?[d]kzw#7"ԦkkG`"j;ab@`S]؄ wgL5p(Tg2Ic,{!G(f\ۺf0P 4Q  DTPˣ,{>D:Մ f=Tq EJmHH3v)FfܐKY]}@Z=^` Бe) )@ۛ. d >e!R^W$tXeS? K/j*.RUמT&jCO3=/* *\?˨nQÅARQI\t]-}Ss6LLVΫ+M1AOCm(83-|t޼+_DPR% )vd#YU=Reuk@"-St 9/#kg ^/O.hy g pUB}h5r{ F}^Az&xѬI%!q BSWj-gM1ɇ͚a0*;3i#?֟RA ~T͓PQ&v1ϐGdd&ljk N*uEv+ٷe]=h&y#A{ 2)i%*06IKILSM.<^s\⹹h4 C>gQw &-O鎸Kbq^}<-"CgT .# T81ORǦ_@+3$ oZЈiE5UZͬpd:I¯EuuRTR,DoSШIAJh cnIypD@Nl F,1b)<L ahlyg48 (IGy!yK"Aڟ%_Sg qse'Aw7 ?{Qkf"_sMnG.G>؞W |Fy3߃|2sip3l8WaR>qj;k>'C'NWμ`C9e'IV_wN/yۀGWm8y[x1w{^pϸkS8G|'փjf/U'5Hr3sKI\N=~cdX_AZ7*OVL n}z$ gx}%{;{xlL9c=<&_.n m/2ݝˏg7d;mݝ ٖ c ^oB?n.=eSPv<;edzsYv<;eGhIyeRyInVa3a).w[)^oŪpjjFKYA[F*:!]~JHֈb%BtjVb [Y؜1H鈑WN-)}6xVtb=I|7з2 -; J7+!X Tc pς6N'b{`OӋ^犂WVsάENhәPI -K@r/N2^b6VlR50B5ldnAYlk4jf%>G/A1fSK/H==:}?6A\:g\f$07*(#ʏvlwz |zݾV^8:O4WL5м NfxrCBQob-ЍZ_rlp-XSDž><1;G Nd"T8gG%?䇟oIf޽K6ZdS,ZgXH(#il _cf-T|]XPQH0Zp/ q|yy[:MX/S0^S8lq ZAFѶ&S3$e-Dm`+.YDkrϱb f|y|oaR Fx&c D   8"iԶaLV?qbf^A%}r]}띞_Ca 5 ! Gcl/8 r\QuzQ5y&Ŋͦt[кɍQ}ȕL.eB4w?߁5݂ԝ뾃g PRewn\.>^LA=Ľh8wf^}bSBzWP@M?|U9b͙М09IPr\]á4{.gY dG7 9^2f!g="ޑԊg āT&pMV͠#o`pɭqv$]Fma?vh!"*smx9h{ھpa(LqPKjz$Wv+2 V._001_macro.qziparrays.sasZs'΀rW񔸴u4ci1 aB?ܿp{Eytj[1qk^s~YvFs f)-x`bƑ>8?;f$7sِ${uD>!س"._p/ 9O,))x|IR@-?x=qfB"=!MUDKaF ܆D $Z̵bEEF$/YhRƸuB~fTGQ bmC6 (}aĂTBP{ !)GǏ;`.63GX̑U74I g]pT`-|1 PÙ|֜Bb3i'u$q!r#H_n:N2Y.-5[8A!'9ZD FhWE>E>g'Ss&/Lr^(E oCNL`ś&#ENZCTitӬTj},C+p )0:M@_G!eKfq9F:fc$[$"ј|> ccCJD՞!g9_$l\T;V&]L./Pf(n E+<ꩭ: 6=b*5'1+8 q4W8 yRprҾ .Eb^yLE "Kz \ijG\xѬ+ҍHWs0:S] jڷ4V{ { _lɦɮ5Uc':Tbh*yguUr%#%?x@rfIDT,ЊsEEFgE[E#-SzfE%mLdPaVyD&mo`&0*m(C"X:nGT8Ek4X"~rBExTԄieK5ٻQ> ~& X'%P7%xVw*UX]TEn[7;uU5$O('C*jc9JC ~R[LOBӻnDwI.b- g.4&ȲQ% l-7D;\~>.Q#!=Ipn%k`S݁ ɛz7] $&t!{ןZ_^_ߠ!m(p ie8ǖ W y|[gjx;ZJ=phylKcW[ (ُ 1M[ 5:ꐹa< ӆi'5 5p{ى|e)"H悾]_[š(>KQ$nEʬA+g,ɀp=!BZʢl9fYz[9)4+'+t9xB:ʬHD[);p[%jUSZ&6k{E#(jUΏۺ!ڨӝ S5#s>nƦɸNN8}y"AoA]]QbjO]Z@`P6I$uᇟ)N[EuDٳuY\(;>?bɝkѥAz'\GPOϬ*@kB{C0UrZOy%\p-5I~ñNЧO){4M < EYj<|$ loWzNaSYI{aUa\5mǭw%V(ci$^' ~F*aUẉNWgkk)hP˜'&D[4XufA`a8ne:vW6숂؃r_,!V6gKҀEGO^ kdN=r# M4+[4(^5(dj7ǭJ|Mh X=B i;nc .WW0kM_NÛAW ) 2ScA1);_QX@P3Q%BL1 %8Y*/67gsoR/Ґ{|+N7,P6hX~_b;3cؙPKjz$WV_001_macro.sortmacroarray.sasWko9 a(Zʰ"YD""*pMR} [v"9s) hotR!tK0D+拤!{;C Z j bq/CVzձk%V/@'TaӃqN0LA%x#+ 1] a 1@2ܱp%pO+o߼G5r㉚f!Nre0fJcPݕ꿹2 cL&SExRԏÚu䃳Q,HBVө_tjZ/]Sb-]nq*4&<YPN,3l5v G|2 b]LI_{yd%cdyDnCԴJe"Yb0L&1q>!Vx0hߴZޜ]{K\%"܅<leeyo\5N_vژF|?6I%5J2%bv)H|uQvEk=KXoZ.`沦l{?~B/f/)r/ td][%PE^[@r.x: ;l]~<}Z zCwܣtE O* Mo .E@nك4dF>TMNޓ%G6wd tB -vZi†}Nqz9{RM Qme4 ^dBl])}c&ʇמ#najVDX)J̭tXwіskeqm4+2 V s7yqW(XH(L=98̥?ҩEqCH=HTE 6> O}^ki2g 6e=14u%Erzv߬Bv ;.Ѿ68o?iN`OG4('ZS&.XM+ q[+|J,h^ov:dM7ۊKQo!ۦ.vMhJA5T6A. *[,tVUCpǻPKjz$WtK39_001_macro.ziparrays.sas[S Ö\†$\ChK4 1h"Kw<BhR>yܘ*zXQ:awN@\t&_;wB·<  ™{BY8O=4W Jv\ jlmgu忋aHa9M{cA{d ƺ?v棓 /iG A֢SGTBױ 6(4;T2a(d~6q? ruB}$c H4'@Ftdlc BȩRQF3y52@*fLw7uw&B]֏LnVyEdS֙LPD4=mH\2:=`-O(3pe;!kS..tq!Ίzl-a!3h\\Hz% $P 87ڏ3ᴏf]ұ1ؼ*"E\@\x dLsd?ԕTҮ4+UXlPgck " 'P&7(J;+JU*SU0>#ʷ)3P*(n1(|nEY_]Ed\bBq8П.I}O> DIcVxRdVXJ`M,B)BVIߕ:L8{@S h!IƑp6n݀L-Բ@[۟_WmoWOsC]qpzv$԰.jc,iprX`LAԁV>cl8g4< NPbȷ`*.jǪMRH(O2Z|C'}ÉW#!; m0v;tݒ:s!#aHJ*.:U]z!k>RUޮv!zTS߬ğ+ U ju؝(g\r#ll<ߓ$bZ$98O$ (Ͽ[Vz^2yȍ*4J"OB[:X9Znwr=V0M hb b3Pn{f# \L]rn `Kƴ! `1z5h&ttndYLxQ-uVS?R'm\*bϡ RgXF% n]sh' ]86zǁ6@M`;''п쾻8_[ 52J\Jsxv/?kkw&A-tw YOV藂"8VMujX{q6-[3V\gcP'GP}-ޚPo3<`W2%v| eW8qOL.#ݥ7Q'G4,nNf.;F:aH{Љ&}k~jz=WXi:@i wM~|%sK੶}/yp||CpʚՄ/vghp<5W-jQP&T/6sM90;/AJ`1E &l63(W[;-~o9-l#-9Ap0upf!wL Zq<ΟʻV^})|Brm{ꊁ]oHKBi:ǢĢ] }>L!}$lyM9AD{H}T0aтP3~U1ŠW; yg@.n'1lgԶY*PkdU2XCxZEȱɱ#CW_Oۦ VJs,lʚ$jm8ښ35` ߼2K/Ԕccj5 bGH-iX?Zנ ~ѐxG:3y#[6r}/:űY0 ԓre\fsL-ܤ,epǼ6+؊R,'\]cw㈻HEZBjRjX^@l®Ŭ"y7F~(Q2wfJҏoi{]R2q 1>nI N\1mRbV@JC2G7)YB @mFw s\A?POf O8+PKiz$WHn<j  description.sasPKiz$W*riG  }license.sasPKiz$W tl$ Bpackagemetadata.sasPKiz$W oiceloadpackage.sasPKiz$Whž rF Q load.sasPKiz$WB  )lazydata.sasPKiz$W`[  unload.sasPKiz$W|k  ppreview.sasPKiz$WX~% W#help.sasPKiz$W  +_001_macro.appendarray.sasPKiz$WhiP/{ 6/_001_macro.appendcell.sasPKiz$W]71po 6_001_macro.array.sasPKiz$W%U0 fR_001_macro.concatarrays.sasPKiz$WvD2 X_001_macro.deletemacarray.sasPKiz$WPuU  ^_001_macro.do_over.sasPKjz$Wx; dh_001_macro.do_over2.sasPKjz$Wkʘv :n_001_macro.do_over3.sasPKjz$WI̦ t_001_macro.make_do_over.sasPKjz$WAm] B{_001_macro.mcdictionary.sasPKjz$WC`x _001_macro.mchashtable.sasPKjz$Wv+2 V. M_001_macro.qziparrays.sasPKjz$WV _001_macro.sortmacroarray.sasPKjz$WtK39 ִ_001_macro.ziparrays.sasPKSmacroarray-1.2.3/hist/1.0/000077500000000000000000000000001452773550200151345ustar00rootroot00000000000000macroarray-1.2.3/hist/1.0/macroarray.zip000066400000000000000000001422211452773550200200220ustar00rootroot00000000000000PKUB==9f description.sasVmo6nb@"ζOSo0'mE"U#!oQ[ӥH6{90M!Fˍȝ B"̵7rS>lWpnxg%~{F~(c33 [_@ Hhʸ=W;AvAPۦe!\5|}“BUH٥huL9X1YG`1ntd +r}F$<8NpKĔ"CcBS})*\Mgvm+:m*dV.2&dH#&/>Q?Ge}vk(5B-Bk/'vk9caM`n vkWmɛj:ؔ#)ux`Ra-6C(,:x2_?4Oku֦z^1P,NW'5xĞ6ԖZd TgM sƅxt|mcIӡ+kw<\{+sT1G)p[f)ȣV7xNJDΊi(Ց.Qrɬ݊=0mSէHfۭaYFu WHJCH֕1 0 ڭJ]Pڤe-\g!;ЎXn,N%ZKn( 5G<^jڭ 3mJL8ۇqJ~̶[aaatiCoB|>vƧq%5cqӭ_Lw} L>J#4hDVd˵"=JΔ"C^F{xEy;|MQ8d.T,MEɻoL_ajDme6ӤsP66G)|-uUvy4*f)"/,Y  fݵ*=l)^x;zMiB:8A]L+>.R"f=VK|?7gkF4~PKU*riG license.sas]RK0GqڕLb!I qbdL`w"!gg}7[3|KQxoC=1.^N XP3h(hQ>p4>\8݁޶F!!t=T k7~RȌ@͗\L9>8Ik8w=I|ڊ#={ AV8髧dn0O3Ľ;,z*z$&`x=10h}o"'ZjS,nDQ=:k46Pvҵv _p 6SGv[j`o[Ceܱ7#>NMG},,90APId<=K`#en'$+- `"K$k(eU EQ:#X b%dmJ 5LdsfB4.J *&s&Z˪9ȐB _y@YKGl$YR<.XyƱ8s~\i*#P%`<͒SF%IˢL0l^Q5d!f"XX+ ޝG轮+#dHVxJ2W PKU&M7packagemetadata.sas]K1E߅!PhAJ&,֧U|+4I$Ydn> ( s=JpT ܠO#v`>/۰y'$dRoW_ *u_@EiDT7A.n7 /DS%<]^jTvbY\ %JX •d.Ůzrp{E%ܿ4Jefg鬻6PKUVtT- iceloadpackage.sas͖mk0; FCuKCcoj˭-y5;ricz.-4˹ b ) iFY} n]Y$/EH!]oX L$ KAaϗ0,=ЕVd].KFx8>fNa1ƫFX0AfJ s7{OImAy3\g{)X:S\gyY|c ܀J1 pPI3j>C/Xj0Xm .X؂ݮ0,5/ɀXu 0Knw썤NXQfe r\I$8t#6lS”Лjƶ՚K.|&O5e}0Ek`o{hDB'}] ~D-XKh`J68e̅<_Mc.gEo4ov?QZjU{ay,Q®|eٻ{؟ISI,O ǹiTt`o;5z %2M|Z/"¶~PKUm3load.sas[moH)Y.v0@fgVAL(7I~B+m'aU 9̐i^ڙuME ,SxÃwaZt%#y`dV'ʅhUө#(^[899[9y&83 9r Wԡx8|?fyO.{SUbx4A3s~{itfkoxhT.i3r FoYytbY f6]Uorjt9g\(UQnmSL~#ѐ O,kCvCOTLL|GW/ߨ  'yT|AEmGaM^ D1XO-'|Fh!|ܔI#Ʌ`ؽؒLǿ05<o/" .<4%@4)= ^cKADlAd$#U}JGYM5UaNP!ˇs 3#qM4]Aup S"W";IHf ot* V%`c]`UI76T?|Frt~wà r#6HgXA,?$'&P(%/^rSbȺ# gvRsd ]T(,)D䔾ZGQ͖E?,HJRMҝDϮkQ[q%fe*+uш'{LJyKʈ0㎋9mk`& @k7]A\{)gnzxYSRmwFzcL-nMS*GDc-{"vY(ˉw)9:A(MI,[ѽlۮ3E@RAF4WC6&/~ZF<5Ke.T5ߐ\ru.\W6yIr+o˶;0uy#pOb.9_l=w#c.Xbpĥ 5o?6rB^IK[kHR4JpWnM̥5L6șpg/fuF {2uuӻ֚]t-㙖Jy) FS_rV\V$%Tvےϛ^{ys(\+5NH .3Bg62Uh?Oi"iJˆ/THlj#,QU&%@BEjGLǠ/Af]sp; hQcW*0I.q'uJ^E=>:fGEVq-:ݱ."a~V(W9!NZp.JCKqKX m%%#>QyQq?74d ypV̍URT{%9O~P~F$mT<gBxE2]ɫ0VE2? }=V^9e|{wv5Y\ljqQPKU8qV lazydata.sasMk@a I3* *JiA+mJ2&cZCٙyݦ8fuTi^נ?hX6?CfBRLļ$U*8;VA +SC8,L>UJ""eՖ6<'"3Mݞz׿A'BZ`R ug0.+Q8ÔuB L..Wj&JKٴbշCB'Ll| &ٶz-2KZckS\9 02F|pH OQ:eW6z$qj8cޫ #M~e AC50}i yinIh@aqzt 8B[gD em*Zg]Z,iަxJN]r|yFx,gi{!]@{{1/`r7 %|͋.qDLmobkh B3 o]w[`ۅ#2p )eZWzNT.5Ti 1FdF)eZz}ݑѹ1 umAg9٥m(_|.hԡyz*%)w Gg3۲1 :'-)(UR q#b7욷O֭ʠGnX%s/T I]cw[g0 gIZo Z.!u+TQ.n+M&b O#SA[ 8"1^8nY1©䝚9o֛ݓHPKUQe preview.sasXmo6n ,dx~QҮY'h2Fc!TS;De+SGyQ0 )\uώ u;W3- Vbg4R?{:o4!K`2ӧ pyqå d3&4#Sh|GwɻOsb͝)| `I"5{dg~IDmO1/;ꃈ 'T'p|'}OKFҎ̛πm ZංW83*VAu;z[W4$L)33 ?ʃ*"b*H@rXWƺۑK(*o_z}OtȲrLd+ `'"_;{hAĵX9A2ihLU;%sӊ=kic1>˓v5H|ze&aLmg+}v4Ť),d? eZ% d߷u 0rt;X <_]Ȩ,5 AԄ[xi<+ /gw8<&PXT'F/>L䀵b!T, hXTp7ĜZ%@Ezzv㉧FzDRM~<v14 )x)4+;,񱪨.F Db#I@q8ק>L<=c ֣P s+UF`LgkN )6A˝d:j$1$+W:Zp(F~Jhs\q +'ꆘv͘WwQlS{WEv-,KNTuqzQPTUp ҵn*7@>c<ClFyˊdwvO%e$"\xUwvl/WX}>;2uCw=Y !q3,ǰN\Pzm:Z쿬}v~,z)G wo%ɰo*lZϰwhbvZ{ihbmwHZMQX2A-FۇePB:,O8C}^LBی=>s̓y;:Yl6e4vh }&=g ?<7W2G㻳;;0A2K&CO~b rBL(rB\.J4v*3jEV'-lu MM_B*o)WBǟDӹf6Кv pV+&؋d`uW2{C?쑄!|Їן `h]8׉rwKEQ U9N}xJM`9vBt4KhqG@ o/n.G0 zE1, Flgv[X&dO[,C2c(LpcK7i vY Ͽ~8ljl&#,:&hvaDyΊBnyG^WLj.D%rjQLHWj-4i`'Vfz_v\Y>h' S)6/f &4fG㡒wN˒rJy%qU~vHk;|{}iI)D7H~2T+a.q#pOֺR{7nIӡZI2_gq  i kdq%=r.Fݺ}Z 4psY^J}8]\t5>Up;)$e=1NbDjjE.6(i *·|S%jU;PJQ[9sy^X.ΔTQ!VZ\ RX@ŊP8J ΅:*:`7.TYV+@-.QQ*8R\2)Ƽ, 楥9EyR"g*)V,*Q4̨{>Y7%`at~n2a֗M~Mr̵}[ޫ=foK%A2]8RLt铘|'Ёk&^MV=CEׂy6pQ*?íILBݚ S*"%L+%=8]aIucD#ԥfIZ1U7Zo&ʞ[o /##(|XiXm>WMy|7Myذp?ļbKp[PKU _001_macro.appendarray.sasV[o6~7p,ɲt71.! :CMKM"]>tRǍӢ5K' Cx5:} h6a8,TRn(Hd R=/BH:dkh6.t 0 +eTQ-X¹4 1T^o(aZ[ckH \^R r54 B( AB^`Iq9cJMEz.+G74+ ؗ%*_̩SǴ"}׿n>MfZrcS6L#7 8؈#'Da UlpD7FFl o6؊` TK̹X9)|þ0qhoǒ)xRڬ|ɑz,@펺enu8ޒtwR<28Ly|#KK@ͩ)B`rIhdZI׼ ǘ+32lPKUhiP/{_001_macro.appendcell.sasY[oH~G?q/˾l%4"i5 VSe7M9e2ɖp];9Eɲ,Pi=vK%+l߯r˛O0bpyy |6e#Z6.K >,l&yxy(If3,ɤzSM), m;r@ 7}{;;;ax4ơ}"B|tΗ$]KrPS?`UZ u~i$(1`$'Rg3]SLZf= \|((]Od3&l"UU(sHWSs=I#?AjBWUȏD[A#4I=uBÞ!,.x?-!Y"8d HؤMp{}45h ct&[k~J8ڱ  D:lȩ?7T80˦ %ڰ(׫rHڧs}qA%;5TIs]s~ivK l}lӌ&#)xr&=X(kU B {UVD-:tBP:ƪ;Hcqoy,; EX ݾqe[FO{F ;O ]VBz[kVpۼoUn/v}W'\̇c* (5J!),KA=2Wi2;`9nȽHT~u@Tqbm2pг"iUY%D)fMj68D%âVFRXkHBqD6.fJj>@SܨΗvR"Z>Z=&J wiBUa]zкr>)n"Kz5g tYN((P7#AUmpty)g@j6itRAG Gnk"[tvz?7* kVqN/,w},\:|u(:, 'iW+a@k_QCOSӊS:D rPkC{t KXê%0")zMJ<0{KVy>悢ĆذoHlQ gJO:"G5:^ߎO>͑~[~yyJH=\:tgMXpaQr<^2)ۮKq n5XZJ_Ou9 LB~`)u{2dr 'wA)HkC7@th" d,C,^F?qpĈS!<)۔|0yzRpteIx_V̟BؐS>x-nI%z-(27 j3ZVu< ui5( SIy gj ?e=1׳Q|3gxPKU]71po_001_macro.array.sas=kwHsNCY83cBvCdmx2>99 C H6oUu^Ğ{LhuWWWUףbȎ['oy1[|=}{%lYo-5}f؋/ ֌7 Lo /_Z/ٳ'O gޘYf]-b9r'(2+[?H2ŕp?=} Xe!T[kk¡ /Cء; ,DW#0wa7XbXvcufw4 w1=,PȃEg eCl> (:t¬F`Zw%ƍP|3۱|@zZ!v. KyClg0$ /j?B!L7>(hvȆˮ8w|,w5D>0ĭzB-ta M}+IKa xT )%j#Sq >{xx8&'pLv,ј,└|} (wB`f@8w21)7 $Z7:(L}P_+_۶> @I EUQVQ]$x:^Y4bl|'` }ڙ)yܹbA AkN:%˕Ä"?(]0+`G unX?<}"G()5^W8/k Տё?2'*QM˧ZpbӟqCRxCߦA4a~}]q:X N4ɳ0M,;ڤP%'f˦/~`wfʴsumly(-Z+\au[k/+gsJӳi(K)Ίǻ@ AZTP w8҅N1J#ɡ;h3 &n`-Au.Iu3;( kܔ@`ܱo! 8A)A >/ GµQ`)dJTz '@霣 L@l"f4R9V_ZPyNh+vB8[̨~?=BC->m>8" "&P9N,$$ ) Z:c9 UHKd(r$urʃ>Z" m);z u; ,ԗ"DE"GҎ$L37sͻ k5(byS1ghTJN!rɂ#&h('6SY8P/Fܱgq !Nn˗y6*(:jg9Z >8K03H ^`QG{D KA/t}$ȁIO掅Ǹ(Unb r{2 /O̚Or0ԚZ>$ED+ZԓӬp\yr"x M~B4YA_`kV@ߵڿ]/f `M3H3}%EV"jE) ( :4毭{JvwV cVb-n/wĤ:@lICQq= GX}=B·_w4ɠc+ KlOQVBb+:ct`3v.9d4;QX 8Z;#hʤhh -DqN"z:iREyw0 f_%K}a|nR4,9#/O^~~4O[ZBJl}  j+\ :!`ff,_Nϖ)v;#Lh*nAdg$}*X&iשҨ{щ|]`"8"XFa킡) qF} ۴"1jEȮK pB\'h>e'7;{k!+Bݳ#v)]#wt׆BYX6P2_*Ȧ@јRHW*l)m+lBvĄmCl<9;lЛ\ųiD' I?4 z&XF rW[(ڝK6ѫ_#?n,jS?%hfx~3*̄fy-%m1cc%SJ֭#܏)D{$H2QGU=tx!wӿ{go(2kZ'-pZ};gBl'HI#OM?Ha+)thWWr\cN|GhGx!ufK ش $ ! :y ΧـMDJNmol|l\M4Nmi-n{m xw1##gh琟x࿋M:j 8n`! @f/^|A<E,g'$̍E-j<:_q) џ5eW]K\F7 vU=k+[zxjN4ǂjB9(#^nmWح$4B^G&OƷ{CBikB@ꌽ;n?F{O{+u߱Ώb\&vhU썑Jzk6|mt&R=4Avc0 {ar(%=r ξlɧ\o6m7d@l?x5츠]Tx<C^iٓ(oלώmv1mq!q)yO3Ǵ#k67^;ް(uI_|` Ĺ@K&%;y̽rtKqVS\UUL:I'l>2^07uX[}zJ-+ ד<1gyY,'r,'r,sύzJ_J#Hc$1T%aL8 10&Ƅ8x  צR,)I$Ą Ij3_ܠ%=lt'~Զ4qΙf +\Ԃ g11X=Q .7*\f$IOiҳ06aR(VVL*b ZQqi]$D|<7qYJ H۹wq̙UR%|P!GajO~'}jMMS%'W 6~>&ߛC{z>0*WbAA; 5^)-=<or ĉ90o̢4:4hGpOg3djD+n98R5*"ЙVuX5Gs o Dp(9c~z}j-cR%Twh#X*(1OR6,f=?~''ZR/u_~ ϟ+9)E=E=E=OTcx ܈`ʨQMVp=q *f]5zƉ2/jZem"0lN7Y_(~!7iH> fRj@A!*<M̄j긮Z~_$Q .eyQ`U* QAMDp%"*Cv64Ni4>T̧V #sd^TO-mvnQS̖@WV$Ҳ'Qp?.׍vq]sRi [XHPVj\ZKkqi-.ݏKquܿ('lfᔇ@ TwY`гJZa- [`uxexexex0w'[~PR폖M?qE*Ef_dd8~EFy_ddZb+Pњpt;: SKi+#J꾃5š)5!Ny&kF*arlcBHѼn䏟đKR: 4}M()Y"i<(잋UzJS-dq 7hsXѶi-NyW=ĩGYg>6 -RxMH|bS:;'y mj CbҶ񙌁Lj>qWD(q٠|) ŲWX<[ mG]观#k,`\x77TI_@d}rySX(}(=G:Ktš^O .7%왿@=*V#IoFO10ļXrN;4iy3ݺ 0<_PKU%U0_001_macro.concatarrays.sasXmS8=s8/a.дpCLC[ V*Ʉ܇(mlu馲BG-D򧧺lP)?*90h7|V Є5kGd]Xu=L$ kUBW94$jFmȩVDq:¢ٶZW(A+8~՞Kl{$.Y7bK6h8 R X5 A1s1e[QO*fIJ0Ys`mqqhU&f P4 `q|D F 11215 ~" 6gxWKs#[)Jd/iI,DiN#`S ֢:s:4cИpwQ׵8:4 dz"wZMr2 xJXo%Ó?PKUPuU _001_macro.do_over.sasYQsH~wC'>0҂lk*&)۹]W*i0: H힑 9l47=4ww{''%8O  &̍D ...A& zP^^^ˣ+<b1^+!1 ~(~=qr6?&}=--lw*ss ,LB,ybCEln3?d΃S(T݇|xns ā42 %-(+?=C&}<3R?>ֵ/e]4EȂϲuxd yOOS #GJU=Uoa\!C8;wel3nLxKt#_n-zj[)hy?'/T|Q@21X̠$УoisK1DB 9$Sԝce)8)ʘw)h5$ +˩Caz4]9"3tDSYM)8z, #J\D(1\$z  (! &[dލC'"F( ]JxUD+i@MNˍu΢^\`57#R?)IB5  !Kb1Ak94𹗡$\@\Bdf 3˱Hoyi]+^Hr]shKH-<稪|R*18LP+gfh]{fKg5`E+ʚB1#MH܈L (&Ɍ/uRqh8EL`fܤg;`@8vDu:64 ^ޒ~r}k&' #&<o,Yѿy{J>ݯU5ӀB"[Y,F@J`ҿ(ѣ? s E*2sM)1PKE`YmUnH2];bjT~D Խv6٢܄7%dٓj eTЯ MM@Ô[녛r¬2Y%7gɪC a,v\.WIPh$CrEkTbvZʼn(YY"&r*}c豀 电 ~Ȟ,G0cbFPHqVL_ۯdb%p dNJ6UĖ驺޺M@+ߢ+xRƪҵİZ{J0ĀNQέ*4iC6 (lE{T,JƄNdn~s]$܇|^[XP\,'#|zSEz#f([aCh~>p\^_TƱ\(f)ո>Z YiJ ?Fz( ?ۏb8{Zi mXi 7 ($YZ2`8 ލOa?+!'˃iA 2\ WAÃvUUȘ@`I{O}SKf)UTIk߅⽏}|w;f1v AA&ZB43DL)rj6}Uh ̤ؗ y,5bRiD5Xf嚈(j6f)(.[䉥Lʑ{bT,/ -BG\B<{BX-3c}:l1X#c2]dw2.m[lNbc!6F rI=. >̰堑wahmCWvm蟘?pn|0!9y7l9ʗLj0DhTF\uА?(TJ.6[+ Srʄ˥2|;3B3WDo%EvTb$sc/&IYdk9c=$͸syPV=~8wbCm ūA5s;xS`V]V +Lo!5h7ގYnaXJZ:LDx5!'g}iVR}Ђ0{ß;SpM׽6!؆eg7~x:D>p1AxpkkNʃqlLO/>C g'^ඇ6*4pKܥs(yQꎝR$jesFo |y{u+Yo6—͗ 鰛mcP*8X>g+k;zsR1<&ڝMT|r;[FGpuΎ Wz-eʧ3 h }:P7Ep@d4]ɳo# ؃LRuW&x*!M*16\^\Ҵy+c]0wmLKuj%ffbݐXBDtLн0-xx!6~JfOojAD XwL?'s0َX#V&ƻm:e#5I슫R>SH -qPKUkʘv_001_macro.do_over3.sasWmo96ڔ݃Mw.!hB =5*o\zn?ˎ {\WGGAZ-D R@ل&Nfy"jvfGu)ʥ)X$4,՜IhW8z  o KGw3˭!Pyo.uk@T,hLSI4R詤i#R%Ēr `p.]G0'F%׫6p3M LV,2wW'G?Q,|,00>40l!ZJ1LpV'ETT\`%-v]z8jVSI=TZV|{pv޻x{1zA)? 0 AЖlFVPKfm zBdPLXL,m 1ob)ҦIB4Hd<¹UaC# hcܪ Ty1s+ zDEcyal{`S&D.r.bB$K5ܐ43?Qvтh>:” ϋٕu&ָLV6hgU IFEVˌ%IJ uQh稭=}"Z[q Kk'N0ٲ-; q*: ֞}\MQ֯X`p v/AEILG:֝;xǝSsJzG87XUg/7 2n%xdZA2&dS{c3k]j>쮇=;oߪتXO^*;"@a@|:v iūhZOӜ$+ݔޖrrM>ގf*>=xwn篴{6ЪU :CߣFwb&NSW}t>|X{> :ۃ/p 8s/0LͰ]bc l6`<2`VS3T^1֗uo{и{O#+S<Sn5fJ WQyNU<>iiǍMI?nvF} |0SȆS~O>l"w?,9) j+6>*; )Bk1_J6jxE;t(\}aUP'xF/Q1MṮ*ɘ3jzjvn{mU0ƛb{$#%Rk5k6P΍9%$dF&4W cc S3-Xu67Zյ^4)䙙uԂJdKչXբLhZt&KP)xL5vv@eIF KC$|`xPKUI̦_001_macro.make_do_over.sasXms8 S^ҙ si]{&޴%oWMHXճ8ypoނ'O5e|ˡʣ} SEᐁ`S~T!/0 L8x Gݰœ)j;|; ٢`%'߈]Z9,7S``a( 1?O@Gq /]!p΄9Ӂ,0G`{bj{P7t}shO |(0 ;6]$-)-:fxIE<& @(цPʙ[s J$/MA}rGЄr ]dFKcz WH%ͅCg V5R 5WTćG9 吼[v{ Ԭν2s"DaVI3XbPQa{7wW3P!j`!z$ZcKV޻,R@/ȑ]+_bym7M7׶HxIqm;OjTocD Ȅ~O=P29?A%vvC*Ti4##uv{&SEZv7@wo@?9_؆lBhIz&7}*X|,)cs}c6pʃrԲ]t٭˄*JԳq˭2E-rΒlPVr:ͦ^lHWUmD[kE[E%ZzNIVsK4k#==-gHb[|2_.Ns^bomr%k$$+f ZAƀ7ʇnG5Z Xu!}Se;A:~h uz~18^p>k uFaa.:Cf ˧;F`_ o@bJVa΢@$/sc+ne~Ӥ]iHh?RJP:J(p_ ?vfn5%l \ZmEb6!"9tl>J:Ut*'9KA-&nmpUL !"d}>>CwyˁT{m4FNH}o 7҅=*|h_~{>kԗBk̝؞v`qoJPUh 遀oo7r5w{+4(?cgEt{Kt5grI4zg=F>+_Op\IK N4'n MˆZGp\$ ]vItm t؛d(|PmL)*k f {A2ӇEt ,IPh̛7V=5- ;MR(A`c↚ 5u7 0P44x9bdBoL L5He]5YYn6y~uc`hVмtHRWStqu 3J]T ioLݨ]תsmuÍ`p[:޻ńodcjFj("x`̟?A?ѫ5=p[>!24|pF yXɂUgO`eR5>k cns4cDث7m 80?a ޤgfKE&=n9I*JA)(sLzڛ`>fmoJQ04؍G. ɹyQ[o:9vL]{`(%Y ^D:,"@= Y'}qI䀡jJ ͌+H20,-MS1G#q!oLG4d$Fy#e7MBȦ Hh[bY(r=)4ʇepexFN\h%3GTTfYUsP& haFX)IgR+X *y_`ATw|E,::d(-C~*! կu!1hrMa&\HuyNj ~juVu>_TؓXYܕ[={ XHWX T" /h``!РhЄNx7q(ib%mKAfhz̘&0ͧ  i: [A+HNp[Sґ GX#VhaJu>P:M.#̼8u"w(C7D@3q|s]o +2PX($ǩBpTU<<"Y 3^_\!~}T( |&e J!gk# Ujr߫(>s9T-9TckcCɩb1G*2 }p2,.E_2)y\ӡr!i=1o>a7 T!YhtCA>(O! _2ȡ}io/;Zl^xʂ_-|=|;ɫ] (be!F{KYuO2}Cy/ÐKl6_zς·sn'־@fukJ {ZdSYH3goVr[hQ'>Pnu>\edPg' J闫QytN8jy~8]Y=]J[P.Xt␴4h64㱵wC[H]Q≶wC%~-2çC_j=Wh/.*+n]rW̺2';`+IW|s%IKuoYݕs1es" NW+%Uqno@BT_1U;5 ?t|{m5rcTK+W3jdU[Oq5p(v=e8Cq_<;ۦR'S9:ضU* !`EZFZފNsb1<%)xmIp[s:8tspf/dӾEt6LKE3?JĒtb> S!`8ww1 &o<0]^|Oc<ԅrbU|eG;Q!&0ŗyܧHNа3 B|ꁑHc¼xKV؅mMRۥ4rOw8}I Fj 1%v=saj痭f Ӭ:'$ z~I.Gӕi_QI%λ ֋=~$\# cG]e5ҿ_:J̈́M3`|JdM]RWgt lѱ)ngpA&MKgey?7& { [0fzAHΎdVIvo=v5.$3.0 q01f $ˉb%!>? ,bK2ٯ=eua{a5vt ~O6d Ļq,1[/Pȣz(2'mm 21"̷d/ط<6X!;]݇`NG XtPu,,Sgrk4 x9t G dRઔRelyVu8!׮f[s$K/ nxOQXZ痯76$*V^*  KE/m ߣ-4gs so ˛H*nկ` {w* GBVZi;a0H?`udbQoHEJjA.BȮ`2^y y=a:6-著8^$yz͍DZ;~@h+Xw f4aWZMG0wv5s+p5@'Ѹ֊fV"7`&EzE{!vjc#+'t*>% zٛ_޶*lJmtˁƊ|ީatR1.44KPzfs+,0?kI48M(QWI3Bvp#Rb\L>&lF SDGNr=ř.C}cjUgxu@G aI8T{CAFJ+M5ihʰ1PKUC`x_001_macro.mchashtable.sas]{sȖU=edf!;qmgnR{@HmP,$" L9[BOCݙfbZ_>}ޒZ;ju; vuݼf𰺻vw^`o߾eռ6xEkFc6D%>^r@KojoًcwgwzsuL̴M5Vq=sdIa7nZ>snJbDU :뎭_cUV՘ez>^OiWzLw&R5`~#nsF5h4aWL,ރ~@Nf2]Uan>qC68એEd@8|f<2utl,Ǯ8gALc456\SwXavus 5ԙ7}큁$8oV0)MrAL}ݝ><݉.Ms=o?ͫnVrjfn$k9k<[W٠;`t%:3]nTk<ђI΢1@ t fHȦm5FF`t@e|BCBd̨PI4?W Tvh+Qk KOh]^OhU!H6|!vXӼiuyR2@w9I`9! g:3Wxr-l M U_JK"1aF7{i#XĄnδw|Y-1 hbqwl\Rqk'Ǎ0G0o1 q g}לLGЃ_:"`]gB ^]𢡄]pffG$oVI2)c!7E%337Q rPy`ypa1lR,!OG>EP`YEKJ`:h.N{l4OpBCMD)ph c~)frUG3$c*9Xv~{w?n3[H;S@2)`@iG~Np+ V-ݝ%"@ԶoLQ4))D 3L=:xQ$Ck,38)$&쇿PnJlФhc1>2dIDؔ+-422Y4b3:[d70C^p(h#ԥSw轱ޠk'P4E9kSO ͎2Y.ɷrٙ 8 0dϛAJWa g{ 3al^}8{};ulxvJ3@M .L@mEk q4ɛ"^:;͆Vih<ׁĈ:Z6ǃhA@VN Yc_4|zSTUrO?[d]kzw#7"ԦkkG`"j;ab@`S]؄ wgL5p(Tg2Ic,{!G(f\ۺf0P 4Q  DTPˣ,{>D:Մ f=Tq EJmHH3v)FfܐKY]}@Z=^` Бe) )@ۛ. d >e!R^W$tXeS? K/j*.RUמT&jCO3=/* *\?˨nQÅARQI\t]-}Ss6LLVΫ+M1AOCm(83-|t޼+_DPR% )vd#YU=Reuk@"-St 9/#kg ^/O.hy g pUB}h5r{ F}^Az&xѬI%!q BSWj-gM1ɇ͚a0*;3i#?֟RA ~T͓PQ&v1ϐGdd&ljk N*uEv+ٷe]=h&y#A{ 2)i%*06IKILSM.<^s\⹹h4 C>gQw &-O鎸Kbq^}<-"CgT .# T81ORǦ_@+3$ oZЈiE5UZͬpd:I¯EuuRTR,DoSШIAJh cnIypD@Nl F,1b)<L ahlyg48 (IGy!yK"Aڟ%_Sg qse'Aw7 ?{Qkf"_sMnG.G>؞W |Fy3߃|2sip3l8WaR>qj;k>'C'NWμ`C9e'IV_wN/yۀGWm8y[x1w{^pϸkS8G|'փjf/U'5Hr3sKI\N=~cdX_AZ7*OVL n}z$ gx}%{;{xlL9c=<&_.n m/2ݝˏg7d;mݝ ٖ c ^oB?n.=eSPv<;edzsYv<;eGhIyeRyInVa3a).w[)^oŪpjjFKYA[F*:!]~JHֈb%BtjVb [Y؜1H鈑WN-)}6xVtb=I|7з2 -; J7+!X Tc pς6N'b{`OӋ^犂WVsάENhәPI -K@r/N2^b6VlR50B5ldnAYlk4jf%>G/A1fSK/H==:}?6A\:g\f$07*(#ʏvlwz |zݾV^8:O4WL5м NfxrCBQob-ЍZ_rlp-XSDž><1;G Nd"T8gG%?䇟oIf޽K6ZdS,ZgXH(#il _cf-T|]XPQH0Zp/ q|yy[:MX/S0^S8lq ZAFѶ&S3$e-Dm`+.YDkrϱb f|y|oaR Fx&c D   8"iԶaLV?qbf^A%}r]}띞_Ca 5 ! Gcl/8 r\QuzQ5y&Ŋͦt[кɍQ}ȕL.eB4w?߁5݂ԝ뾃g PRewn\.>^LA=Ľh8wf^}bSBzWP@M?|U9b͙М09IPr\]á4{.gY dG7 9^2f!g="ޑԊg āT&pMV͠#o`pɭqv$]Fma?vh!"*smx9h{ھpa(LqPKUv+2 V._001_macro.qziparrays.sasZs'΀rW񔸴u4ci1 aB?ܿp{Eytj[1qk^s~YvFs f)-x`bƑ>8?;f$7sِ${uD>!س"._p/ 9O,))x|IR@-?x=qfB"=!MUDKaF ܆D $Z̵bEEF$/YhRƸuB~fTGQ bmC6 (}aĂTBP{ !)GǏ;`.63GX̑U74I g]pT`-|1 PÙ|֜Bb3i'u$q!r#H_n:N2Y.-5[8A!'9ZD FhWE>E>g'Ss&/Lr^(E oCNL`ś&#ENZCTitӬTj},C+p )0:M@_G!eKfq9F:fc$[$"ј|> ccCJD՞!g9_$l\T;V&]L./Pf(n E+<ꩭ: 6=b*5'1+8 q4W8 yRprҾ .Eb^yLE "Kz \ijG\xѬ+ҍHWs0:S] jڷ4V{ { _lɦɮ5Uc':Tbh*yguUr%#%?x@rfIDT,ЊsEEFgE[E#-SzfE%mLdPaVyD&mo`&0*m(C"X:nGT8Ek4X"~rBExTԄieK5ٻQ> ~& X'%P7%xVw*UX]TEn[7;uU5$O('C*jc9JC ~R[LOBӻnDwI.b- g.4&ȲQ% l-7D;\~>.Q#!=Ipn%k`S݁ ɛz7] $&t!{ןZ_^_ߠ!m(p ie8ǖ W y|[gjx;ZJ=phylKcW[ (ُ 1M[ 5:ꐹa< ӆi'5 5p{ى|e)"H悾]_[š(>KQ$nEʬA+g,ɀp=!BZʢl9fYz[9)4+'+t9xB:ʬHD[);p[%jUSZ&6k{E#(jUΏۺ!ڨӝ S5#s>nƦɸNN8}y"AoA]]QbjO]Z@`P6I$uᇟ)N[EuDٳuY\(;>?bɝkѥAz'\GPOϬ*@kB{C0UrZOy%\p-5I~ñNЧO){4M < EYj<|$ loWzNaSYI{aUa\5mǭw%V(ci$^' ~F*aUẉNWgkk)hP˜'&D[4XufA`a8ne:vW6숂؃r_,!V6gKҀEGO^ kdN=r# M4+[4(^5(dj7ǭJ|Mh X=B i;nc .WW0kM_NÛAW ) 2ScA1);_QX@P3Q%BL1 %8Y*/67gsoR/Ґ{|+N7,P6hX~_b;3cؙPKUV_001_macro.sortmacroarray.sasWko9 a(Zʰ"YD""*pMR} [v"9s) hotR!tK0D+拤!{;C Z j bq/CVzձk%V/@'TaӃqN0LA%x#+ 1] a 1@2ܱp%pO+o߼G5r㉚f!Nre0fJcPݕ꿹2 cL&SExRԏÚu䃳Q,HBVө_tjZ/]Sb-]nq*4&<YPN,3l5v G|2 b]LI_{yd%cdyDnCԴJe"Yb0L&1q>!Vx0hߴZޜ]{K\%"܅<leeyo\5N_vژF|?6I%5J2%bv)H|uQvEk=KXoZ.`沦l{?~B/f/)r/ td][%PE^[@r.x: ;l]~<}Z zCwܣtE O* Mo .E@nك4dF>TMNޓ%G6wd tB -vZi†}Nqz9{RM Qme4 ^dBl])}c&ʇמ#najVDX)J̭tXwіskeqm4+2 V s7yqW(XH(L=98̥?ҩEqCH=HTE 6> O}^ki2g 6e=14u%Erzv߬Bv ;.Ѿ68o?iN`OG4('ZS&.XM+ q[+|J,h^ov:dM7ۊKQo!ۦ.vMhJA5T6A. *[,tVUCpǻPKUtK39_001_macro.ziparrays.sas[S Ö\†$\ChK4 1h"Kw<BhR>yܘ*zXQ:awN@\t&_;wB·<  ™{BY8O=4W Jv\ jlmgu忋aHa9M{cA{d ƺ?v棓 /iG A֢SGTBױ 6(4;T2a(d~6q? ruB}$c H4'@Ftdlc BȩRQF3y52@*fLw7uw&B]֏LnVyEdS֙LPD4=mH\2:=`-O(3pe;!kS..tq!Ίzl-a!3h\\Hz% $P 87ڏ3ᴏf]ұ1ؼ*"E\@\x dLsd?ԕTҮ4+UXlPgck " 'P&7(J;+JU*SU0>#ʷ)3P*(n1(|nEY_]Ed\bBq8П.I}O> DIcVxRdVXJ`M,B)BVIߕ:L8{@S h!IƑp6n݀L-Բ@[۟_WmoWOsC]qpzv$԰.jc,iprX`LAԁV>cl8g4< NPbȷ`*.jǪMRH(O2Z|C'}ÉW#!; m0v;tݒ:s!#aHJ*.:U]z!k>RUޮv!zTS߬ğ+ U ju؝(g\r#ll<ߓ$bZ$98O$ (Ͽ[Vz^2yȍ*4J"OB[:X9Znwr=V0M hb b3Pn{f# \L]rn `Kƴ! `1z5h&ttndYLxQ-uVS?R'm\*bϡ RgXF% n]sh' ]86zǁ6@M`;''п쾻8_[ 52J\Jsxv/?kkw&A-tw YOV藂"8VMujX{q6-[3V\gcP'GP}-ޚPo3<`W2%v| eW8qOL.#ݥ7Q'G4,nNf.;F:aH{Љ&}k~jz=WXi:@i wM~|%sK੶}/yp||CpʚՄ/vghp<5W-jQP&T/6sM90;/AJ`1E &l63(W[;-~o9-l#-9Ap0upf!wL Zq<ΟʻV^})|Brm{ꊁ]oHKBi:ǢĢ] }>L!}$lyM9AD{H}T0aтP3~U1ŠW; yg@.n'1lgԶY*PkdU2XCxZEȱɱ#CW_Oۦ VJs,lʚ$jm8ښ35` ߼2K/Ԕccj5 bGH-iX?Zנ ~ѐxG:3y#[6r}/:űY0 ԓre\fsL-ܤ,epǼ6+؊R,'\]cw㈻HEZBjRjX^@l®Ŭ"y7F~(Q2wfJҏoi{]R2q 1>nI N\1mRbV@JC2G7)YB @mFw s\A?POf O8+PKUB==9f  description.sasPKU*riG  zlicense.sasPKU&M7 ?packagemetadata.sasPKUVtT-  uiceloadpackage.sasPKUm3 u load.sasPKU8qV  lazydata.sasPKUoo  1unload.sasPKUQe  preview.sasPKU%\0v! help.sasPKU  D&_001_macro.appendarray.sasPKUhiP/{ k*_001_macro.appendcell.sasPKU]71po 1_001_macro.array.sasPKU%U0 M_001_macro.concatarrays.sasPKUvD2 S_001_macro.deletemacarray.sasPKUPuU  Y_001_macro.do_over.sasPKUx; c_001_macro.do_over2.sasPKUkʘv oi_001_macro.do_over3.sasPKUI̦ Po_001_macro.make_do_over.sasPKUAm] wv_001_macro.mcdictionary.sasPKUC`x և_001_macro.mchashtable.sasPKUv+2 V. _001_macro.qziparrays.sasPKUV ߩ_001_macro.sortmacroarray.sasPKUtK39 _001_macro.ziparrays.sasPKmacroarray-1.2.3/hist/1.1.0/000077500000000000000000000000001452773550200152735ustar00rootroot00000000000000macroarray-1.2.3/hist/1.1.0/macroarray.md000066400000000000000000002115401452773550200177600ustar00rootroot00000000000000- [The macroArray package](#macroarray) - [Content description](#content-description) * [`%appendArray()` macro](#appendarray-macro) * [`%appendCell()` macro](#appendcell-macro) * [`%array()` macro](#array-macro) * [`%concatArrays()` macro](#concatarrays-macro) * [`%deleteMacArray()` macro](#deletemacarray-macro) * [`%do_over()` macro](#do-over-macro) * [`%do_over2()` macro](#do-over2-macro) * [`%do_over3()` macro](#do-over3-macro) * [`%make_do_over()` macro](#make-do-over-macro) * [`%mcHashTable()` macro](#mchashtable-macro) * [`%mcDictionary()` macro](#mcdictionary-macro) * [`%QzipArrays()` macro](#qziparrays-macro) * [`%zipArrays()` macro](#ziparrays-macro) * [`%sortMacroArray()` macro](#sortmacroarray-macro) * [License](#license) --- # The macroArray package [ver. 1.0.6] ############################################### The **macroArray** package implements a macro array facility: - `%array()`, - `%do_over()`, - `%make_do_over()`, - `%deletemacarray()`, - `%concatarrays()`, - `%appendcell()`, - `%mcHashTable()`, - `%zipArrays()`, - `%sortMacroArray()`, - `%mcDictionary()`, - etc. The set of macros, which emulates classic data-step-array functionality on the macro programming level, is provided. *Note:* If you are working with BIG macroarrays do not forget to verify your session setting for macro memory limits. Run: ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas proc options group = macro; run; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ to verify the following options: | option | description | |-------------:|:-----------------------------------------------------------------------------------------------| |`MEXECSIZE=` | specifies the maximum macro size that can be executed in memory. | |`MSYMTABMAX=` | specifies the maximum amount of memory available to the macro variable symbol table or tables. | |`MVARSIZE=` | specifies the maximum size for a macro variable that is stored in memory. | --- Package contains: 1. macro appendarray 2. macro appendcell 3. macro array 4. macro concatarrays 5. macro deletemacarray 6. macro do_over 7. macro do_over2 8. macro do_over3 9. macro make_do_over 10. macro mcdictionary 11. macro mchashtable 12. macro qziparrays 13. macro sortmacroarray 14. macro ziparrays Required SAS Components: *Base SAS Software* *SAS package generated by generatePackage, version 20230905* The SHA256 hash digest for package macroArray: `F*4FAAEE7DF2854EA31933AE017A89C1615C7291A66A07CCE345041EB0D587ED4E` --- # Content description ############################################################################################ ## >>> `%appendArray()` macro: <<< ############ The `%appendArray()` macro is a macrowrapper which allows to concatenate two macroarrays created by `%array()` macro. By default values of the second macroarray are *not* removed. Dimensions of the first macroarray are extended. The `%appendArray()` macro executes like a pure macro code. ### SYNTAX: ##################################################################### The basic syntax is the following, the `<...>` means optional parameters: ~~~~~~~~~~~~~~~~~~~~~~~sas %appendArray( first ,second ) ~~~~~~~~~~~~~~~~~~~~~~~ **Arguments description**: 1. `first` - *Required*, a name of a macroarray created by the `%array()` macro. 2. `second` - *Required*, a name of a macroarray created by the `%array()` macro. ### EXAMPLES AND USECASES: ###################################################### **EXAMPLE 1.** Append macroarrays LL and MM. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(ll[2:4] $ 12, function = quote(put(today() + 10*_I_, yymmdd10.)), macarray=Y ) %array(mm[10:13] $ 1200, function = quote(repeat("A",12*_I_)), macarray=Y ) %put *%ll(2)*%ll(3)*%ll(4)*; %appendArray(ll, mm); %put *%ll(2)*%ll(3)*%ll(4)*%ll(5)*%ll(6)**%ll(7)*%ll(8)*; %put *%mm(10)**%mm(11)*%mm(12)*%mm(13)*; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 2.** Error handling. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %appendArray(ll, ) %appendArray(, mm) %appendArray(noExistA, noExistB) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ --- ## >>> `%appendCell()` macro: <<< ############## The `%appendCell()` macro allows to append a macrovariable to a macroarray created by the `%array()` macro. Dimensions of the macroarray are extended. The `%appendCell()` macro executes like a pure macro code. ### SYNTAX: #################################################################### The basic syntax is the following, the `<...>` means optional parameters: ~~~~~~~~~~~~~~~~~~~~~~~sas %appendCell( first ,second ,hilo ) ~~~~~~~~~~~~~~~~~~~~~~~ **Arguments description**: 1. `first` - *Required*, a name of a macroarray created by the `%array()` macro. 2. `second` - *Required*, a name of a macrovariable to be append to the macroarray. 3. `hilo` - *Required*, if `H` macrovariable is appended at the end if `L` macrovariable is appended at the beginning ); ### EXAMPLES AND USECASES: #################################################### **EXAMPLE 1.** Create two macro wrappers. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %* Macro wrapper to append a macrovariable to the end of a macroarray; %macro appendHC(array,cell); %appendCell(&array.,&cell.,H) %mend appendHC; %* macro wrapper to append a macrovariable to the beginning of a macroarray; %macro appendLC(array,cell); %appendCell(&array.,&cell.,L) %mend appendLC; %* create macroarrays X and variables W,Y,Z; %array(X[2:4] $ ("AAA", "BBB", "CCC"), macarray=Y) %let W=1; %let Y=2; %let Z=3; %put *%do_over(X)*&=W*&=Y*&=Z*; %put BEFORE *%do_over(X)**&=xLBOUND*&=xHBOUND*&=xN*; %appendCell(X,Y,H) %put AFTER1 *%do_over(X)**&=xLBOUND*&=xHBOUND*&=xN*; %appendLC(X,W) %put AFTER2 *%do_over(X)**&=xLBOUND*&=xHBOUND*&=xN*; %appendHC(X,Z) %put AFTER3 *%do_over(X)**&=xLBOUND*&=xHBOUND*&=xN*; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 2.** Error handling ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %appendCell(X,Y,blahblah) %appendCell(X,,H) %appendCell(,Y,H) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 3.** Adding variable below lower bound. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(zero[0:2] $ ("AAA", "BBB", "CCC"), macarray=Y) %let belowzero=zzz; %put BEFORE *%do_over(zero)**&=zeroLBOUND*&=zeroHBOUND*&=zeroN*; %appendCell(zero,belowzero,L) %put AFTER *%do_over(zero)**&=zeroLBOUND*&=zeroHBOUND*&=zeroN*; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ --- ## >>> `%array()` macro: <<< ####################### The code of a macro was inspired by *Ted Clay's* and *David Katz's* macro `%array()`. The `%array()` macro version provided in the package is designed to facilitate the idea of macro array concept, i.e. *a list of macrovariables with common prefix and numerical suffixes*. Usually such construction is then resolved by double ampersand syntax, e.g. `&&perfix&i` or similar one. What is new/extension to the `%array()` macro concept are: 0. The syntax is closer to the data step one. 1. It is a pure macro code (it can be executed in any place of 4GL code), this includes generating macro arrays out of datasets. 2. When a macroarrray is created it allows also to generate a new macro (named the same as the array name) and replace the double ampersand syntax with more array looking one, i.e. for array ABC user can have `%ABC(1)`, `%ABC(2)`, or `%ABC(&i)` constructions. 3. The array macro allows to use data step functions to generate array's entries. The `%array()` macro executes like a pure macro code. ### SYNTAX: ################################################################### The basic syntax is the following, the `<...>` means optional parameters: ~~~~~~~~~~~~~~~~~~~~~~~sas %array( array <,function=> <,before=> <,after=> <,vnames=N> <,macarray=N> <,ds=> <,vars=> <,q=> ) ~~~~~~~~~~~~~~~~~~~~~~~ **Arguments description**: 1. `array` - *Required*, an array name and a declaration/definition of an array,
e.g. `myArr[*] x1-x3 (4:6)`
or `myBrr[*] $ y1-y3 ("a" "b" "c")`
or `myCrr[3] $ ("d d d" "e,e,e" "f;f;f")`
or `myDrr p q r s`.
Macrovariables created by the macro are *global*. If an array name is `_` (single underscore) then attached variables list names are used, a call of the form: `%array(_[*] p1 q2 r3 s4 (-1 -2 -3 -4))` will create macrovariables: `p1`, `q2`, `r3`, and `s4` with respective values: `-1`, `-2`, `-3`, and `-4`.
Three additional *global* macrovariables: `LBOUND`, `HBOUND`, and `N` are generated with the macroarray. See examples for more use-cases. * `function=` - *Optional*, a function or an expression to be applied to all array cells, `_I_` is as array iterator, e.g. `_I_ + rand("uniform")`. * `before=` - *Optional*, a function or an expression to be added before looping through array, e.g. `call streaminit(123)`. * `after=` - *Optional*, a function or an expression to be added after looping through array, e.g. `call sortn(ABC)`. * `vnames=N` - *Optional*, default value `N`, if set to `Y`/`YES` then macroarray is built based on variables names instead values, e.g. `%array(myArr[*] x1-x3 (4:6), vnames=Y)` will use `x1`, `x2`, and `x3` as values instead `4`, `5`, and `6`. * `macarray=N` - *Optional*, default value `N`, if set to `Y`/`YES` then a macro, named with the array name, is compiled to create convenient envelope for multiple ampersands, e.g. `%array(myArr[*] x1-x3 (4:6), macarray=Y)` will create `%myArr(J)` macro which will allow to extract "data" from macroarray like: `%let x = %myArr(1);` or when used with second parameter equal `I` (insert) allow to overwrite macroarrays value: `%let %myArr(17,i) = 42;` If set to `M` then for a given array name the macro symbols table is scanned for macrovariables with prefix like the array name and numeric suffixes, then the minimum and the maximum index is determined and all not existing global macrovariables are created and a macro is generated in the same way as for the `Y` value. * `ds=` - *Optional*, use a dataset as a basis for a macroarray data, if used by default overwrites use of the `array` parameter, honors `macarray=` argument, dataset options are allowed, e.g. `sashelp.class(obs=5)` * `vars=` - *Optional*, a list of variables used to create macroarrays from a dataset, the list format can be as follows (`<...>` means optional): `variable1 <... variableN>` delimiters are hash(`#`) and pipe(`|`), currently only space is supported as separator, the meaning of `#` and `|` delimiters will be explained in the following example: if the `vars = height#h weight weight|w age|` value is provided then the following macroarrays will be created:
1) macroarray "H" with ALL(`#`) values of variable "height"
2) macroarray "WEIGHT" with ALL(no separator is equivalent to #) values of variable "weight"
3) macroarray "W" with UNIQUE(|) values of variable "weight" and
4) macroarray "AGE" with UNIQUE(|) values of variable "age". * `q=` - *Optional*, indicates (when set to `1`) if the value be surrounded by quotes. It uses `quote(cats(...))` combo under the hood. Default value is `0`. Ignored for `macarray=M`. --- ### EXAMPLES AND USECASES: #################################################### **EXAMPLE 1.** Basic use-case. Creating macroarray like in the array statement. Values not variables names are used by default. Different types of brackets are allowed. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(a[*] x1-x5 (1:5)) %array(b{5} (5*17), q=1) %* Mind the $ since it is a character array!; %array(c(3) $ 10 ("a A" "b,B" "c;C")) %array(d x1-x5 (5 4 3 2 1)) %put _user_; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 2.** Index ranges. If range starts < 0 then it is shifted to 0. In case when range is from `1` to `M` then macrovariable `N` is set to `M` In case when range is different the `N` returns number of elements in the array `(Hbound - Lbound + 1)`. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(d[-2:2] $ ("a" "b" "c" "d" "e")) %put &=dLBOUND. &=dHBOUND. &=dN.; %put &=d0. &=d1. &=d2. &=d3. &=d4.; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 3.** Functions. It is possible to assign value of a function or an expression to a cell of the array, e.g. `array[_I_] = function(...)`. You can use an iterator in a function. As in case of usual arrays it is `_I_`. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(e[-3:3] $, function = "A" ) %put &=eLBOUND. &=eHBOUND. &=eN.; %put &=e0. &=e1. &=e2. &=e3. &=e4. &=e5. &=e6.; %array(f[-3:3], function = (2**_I_) ) %put &=fLBOUND. &=fHBOUND. &=fN.; %put &=f0. &=f1. &=f2. &=f3. &=f4. &=f5. &=f6.; %array(g[0:2], function = ranuni(123) ) %put &=gLBOUND. &=gHBOUND. &=gN.; %put &=g0. &=g1. &=g2.; %* Or something more complex; %array(gg[0:11] $ 11, function = put(intnx("MONTH", '1jun2018'd, _I_, "E"), yymmn.), q=1) %put &=ggLBOUND. &=ggHBOUND. &=ggN.; %put &=gg0 &=gg1 &=gg2 ... &=gg11; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 4.** Functions cont. If there is need for set-up something *before* or *after*: ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(h[10:12] ,function = rand('Uniform') ,before = call streaminit(123) ,after = call sortn(of h[*]) ) %put &=h10. &=h11. &=h12.; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 5.** Fibonacci series. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(i[1:10] (10*0) ,function = ifn(_I_ < 2, 1, sum(i[max(_I_-2,1)], i[max(_I_-1,2)]) ) ) %put &=i1 &=i2 &=i3 &=i4 &=i5 &=i6 &=i7 &=i8 &=i9 &=i10; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 6a.** Quoted "Uppercas Letters" ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(UL[26] $, function = byte(rank("A")+_I_-1) , q=1) %put &=UL1 &=UL2 ... &=UL25 &=UL26; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 6b.** "Lowercase Letters" Extended by `macarray=Y` option and the input mode support (with `I`). ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(ll[26] $, function = byte(rank("a")+_I_-1), macarray=Y) %put *%ll(&llLBOUND.)*%ll(3)*%ll(4)*%ll(5)*...*%ll(25)*%ll(&llHBOUND.)*; %* The range handling, warning; %put *%ll(265)*; %* The input mode; %put *before:*%ll(2)*; %let %ll(2,I) = bbbbb; %put *after: *%ll(2)*; %* The range handling, error; %let %ll(265,I) = bbb; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 7.** The use of `vnames=Y` ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(R R1978-R1982) %put &=R1 &=R2 &=R3 &=R4 &=R5; %array(R R1978-R1982 (78:82)) %put &=R1 &=R2 &=R3 &=R4 &=R5; %array(R R1978-R1982 (78:82), vnames=Y) %put &=R1 &=R2 &=R3 &=R4 &=R5; %array(R R1978-R1982, vnames=Y) %put &=R1 &=R2 &=R3 &=R4 &=R5; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 8.** A "no name" array i.e. the `_[*]` array ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(_[*] x1-x5 (1:5)) %put _user_; %array(_[*] p q r s (4*42)) %put _user_; %* If no variables names than use _1 _2 ... _N; %array(_[4] (-1 -2 -3 -4)) %put &=_1 &=_2 &=_3 &=_4; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 9.** Pure macro code can be used in a data step. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas data test1; set sashelp.class; %array(ds[*] d1-d4 (4*17)) a1 = &ds1.; a2 = &ds2.; a3 = &ds3.; a4 = &ds4.; run; data test2; set sashelp.class; %array(_[*] j k l m (4*17)) a1 = &j.; a2 = &k.; a3 = &l.; a4 = &m.; run; data test3; set sashelp.class; %array(alpha[*] j k l m (101 102 103 104), macarray=Y) a1 = %alpha(1); a2 = %alpha(2); a3 = %alpha(3); a4 = %alpha(4); a5 = %alpha(555); run; data test4; set sashelp.class; %array(beta[*] j k l m (101 102 103 104), vnames=Y, macarray=Y) a1 = "%beta(1)"; a2 = "%beta(2)"; a3 = "%beta(3)"; a4 = "%beta(4)"; a5 = "%beta(555)"; run; data test5; set sashelp.class; %array(gamma[4] $ 12 ("101" "102" "103" "104"), macarray=Y) a1 = "%gamma(1)"; a2 = "%gamma(2)"; a3 = "%gamma(3)"; a4 = "%gamma(4)"; a5 = "%gamma(555)"; run; data test6; set sashelp.class; %array(ds = sashelp.cars, vars = Cylinders|, macarray=Y) a0 = %Cylinders(0); a1 = %Cylinders(1); a2 = %Cylinders(2); a3 = %Cylinders(3); a4 = %Cylinders(4); a5 = %Cylinders(555); run; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 10.** Creating an array from a dataset, basic case. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(ds = sashelp.class, vars = height weight age) %put _user_; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 11. Creating an array from a dataset, advanced. If: `vars = height#h weight weight|w age|` then create: 1. macroarray "h" with ALL(#) values of variable "height" 2. macroarray "weight" with ALL(no separator is equivalent to #) values of variable "weight" 3. macroarray "w" with UNIQUE(|) values of variable "weight" 4. macroarray "age" with UNIQUE(|) values of variable "age" Currently the only separator in VARS is a space. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(ds = sashelp.class, vars = height#h weight weight|w age|, q=1) %put _user_; %array(ds = sashelp.class, vars = height#hght weight weight|wght age|, macarray=Y, q=1) %put *%hght(&hghtLBOUND.)**%weight(2)**%wght(&wghtHBOUND.)**%age(3)*; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 12.** Creating an array from a dataset with dataset options ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(ds = sashelp.cars(obs=100 where=(Cylinders=6)), vars = Make| Type| Model, macarray=Y) %put *%make(&makeLBOUND.)*%Model(2)*%Model(3)*%Model(4)*%type(&typeHBOUND.)*; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 13.** Creating an array and macro from existing list of macrovariables ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %let myTest3 = 13; %let myTest6 = 16; %let myTest9 = 19; %array(myTest, macarray=M, q=1) %do_over(myTest, phrase = %nrstr(%put *&_I_.*%myTest(&_I_.)*;)) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ --- ## >>> `%concatArrays()` macro: <<< ########### The `%concatArrays()` macro allows to concatenate two macroarrays created by the `%array()` macro. By default values of the second macroarray are removed. Dimensions of the first macroarray are extended. The `%concatArrays()` macro executes like a pure macro code. ### SYNTAX: ##################################################################### The basic syntax is the following, the `<...>` means optional parameters: ~~~~~~~~~~~~~~~~~~~~~~~sas %concatArrays( first ,second <,removeSecond=Y> ) ~~~~~~~~~~~~~~~~~~~~~~~ **Arguments description**: 1. `first` - *Required*, a name of a macroarray created by the `%array()` macro. 2. `second` - *Required*, a name of a macroarray created by the `%array()` macro. * `removeSecond=Y` - *Optional*, default value `Y`, if set to `Y` then the second array is removed. ### EXAMPLES AND USECASES: #################################################### **EXAMPLE 1.** Concatenate macroarrays LL and MM. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(ll[2:4] $ 12, function = quote(put(today() + 10*_I_, yymmdd10.)), macarray=Y ) %array(mm[10:13] $ 12000, function = quote(repeat("A",123*_I_)), macarray=Y ) %put *%ll(2)*%ll(3)*%ll(4)*; %concatArrays(ll, mm); %put *%ll(2)*%ll(3)*%ll(4)*%ll(5)*%ll(6)**%ll(7)*%ll(8)*; %put *%mm(10)**%mm(11)*%mm(12)*%mm(13)*; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 2.** Error handling. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %concatArrays(ll, ) %concatArrays(, mm) %concatArrays(noExistA, noExistB) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ --- ## >>> `%deleteMacArray()` macro: <<< ####### The `%deleteMacArray()` macro allows to delete macroarrays created by the `%array()` macro. The `%deleteMacArray()` macro executes like a pure macro code. ### SYNTAX: ##################################################################### The basic syntax is the following, the `<...>` means optional parameters: ~~~~~~~~~~~~~~~~~~~~~~~sas %deleteMacArray( arrs <,macarray=N> ) ~~~~~~~~~~~~~~~~~~~~~~~ **Arguments description**: 1. `arrs` - *Required*, a space separated list of manes of macroarray created by the `%array()` macro. * `macarray=N` - *Optional*, indicator should a macro associated with macroarray to be deleted? If `Y` or `YES` then the associated macro is deleted. ## >>> `%do_over()` macro: <<< ###################### The code of the macro was inspired by *Ted Clay's* and *David Katz's* macro `%do_over()`. The `%DO_OVER()` macro allows to iterate over macroarray created with the `macarray=Y` parameter of the `%ARRAY()` macro. The `%do_over()` macro executes like a pure macro code. ### SYNTAX: ##################################################################### The basic syntax is the following, the `<...>` means optional parameters: ~~~~~~~~~~~~~~~~~~~~~~~sas %do_over( array <,phrase=%nrstr(%&array(&_I_.))> <,between=%str( )> <,which = > ) ~~~~~~~~~~~~~~~~~~~~~~~ **Arguments description**: 1. `array` - *Required*, indicates a macroarray which metadata (Lbound, Hbouns) are to be used to loop in the `%do_over()` * `phrase=` - *Optional*, Default value `%nrstr(%&array(&_I_.))`, a statement to be called in each iteration of the internal do_over's loop. Loop iterator is `_I_`, if you want to use `_I_` or array name [e.g. `%myArr(&_I_.)`] *enclose it* in the `%NRSTR()` macro quoting function. * `between=` - *Optional*, default value `%str( )` (space), a statement to be called in between each iteration of the internal do_over loop. If macroquoted (e.g. `%str( + )`) then the `%unquote()` function is automatically applied. * `which=` - *Optional*, a _SPACE_ separated list of indexes which should be used to iterate over selected macroarray. Possible special characters are `H` and `L` which means *high* and *low* bound of an array, list could be set with colons(`:`) in form of `start:end:by` (*no spaces between!*), if `by` is omitted the default is `1`. If possible use `1:5` rather `1 2 3 4 5` since the firs works faster. ### EXAMPLES AND USECASES: #################################################### **EXAMPLE 1.** Simple looping. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(beta[*] j k l m (101 102 103 104), vnames=Y, macarray=Y) %put #%do_over(beta)#; %put #%do_over(beta, phrase=%nrstr("%beta(&_I_.)"), between=%str(,))#; data test1; %array(beta[*] j k l m (101 102 103 104), vnames=Y, macarray=Y) %do_over(beta, phrase=%nrstr(a&_I_. = "%beta(&_I_.)";)) put _all_; run; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 2.** Multiple arrays looping. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(alpha[*] j k l m n, vnames=Y, macarray=Y) %array( beta[5] $ , function = "a", macarray=Y) %array(gamma[4] (101 102 103 104), macarray=Y) data test2; call streaminit(123); %do_over(beta , phrase = %nrstr(%beta(&_I_.) = %gamma(&_I_.) * rand('Uniform'); output;) , between = put _all_; ); put _all_; run; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 3.** Multiple arrays looping, cont. Create multiple datasets. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %do_over(beta , phrase = %nrstr( data %alpha(&_I_.)2; call streaminit(123); %beta(&_I_.)x = %gamma(&_I_.) * rand('Uniform'); output; run; ) ) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 4.** Multiple arrays looping, cont. Create multiple datasets using a macro. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %macro doit(ds, var=a, val=1); data &ds.; call streaminit(123); &var. = &val. * rand('Uniform'); output; run; %mend doit; %do_over(beta , phrase = %nrstr( %DOIT(%alpha(&_I_.)1, var = %beta(&_I_.), val = %gamma(&_I_.)) ) ) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 5.** `%do_over()` inside `%array()` ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(test[*] x1-x12 (1:12), macarray=Y) %put **%test(1)**%test(12)**; %put #%do_over(test)#; %array(abc[*] x1-x12 (%do_over(test,phrase=%nrstr(%eval(100-%test(&_I_.))))), macarray=Y) %put **%abc(1)**%abc(12)**; %put #%do_over(abc)#; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 6.** Looping over array with *macroquoted* separator. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(alpha[11] (5:15), macarray=Y) %let x = %do_over(alpha , phrase = %NRSTR(%alpha(&_I_.)) , between= %str( + ) ); %put &=x.; %put %sysevalf(&x.); ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 7.** Working with the `WHICH=` optional parameter ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(test[*] x01-x12, vnames= Y, macarray=Y) %put #%do_over(test)#; %put #%do_over(test, which= 1 3 5)#; %put #%do_over(test, which= 1:5)#; %put #%do_over(test, which= 1:5:2 7 8)#; %put #%do_over(test, which= L:H l:h)#; %put #%do_over(test, which= L:3 10:h)#; %put #%do_over(test, which= L:H h:l:-1 13 14)#; %put #%do_over(test, which= %eval(1+1):%eval(5+1))#; %put #%do_over(test, which= L:H h:l:-1 13 14, between=%str(,))#; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ --- ## >>> `%do_over2()` macro: <<< #################### The code of the macro was inspired by *Ted Clay's* and *David Katz's* macro `%do_over()`. The `%DO_OVER2()` macro allows to iterate over *two* macroarray created with the `macarray=Y` parameter of the `%ARRAY()` macro. The `%do_over2()` macro executes like a pure macro code. ### SYNTAX: ##################################################################### The basic syntax is the following, the `<...>` means optional parameters: ~~~~~~~~~~~~~~~~~~~~~~~sas %do_over2( arrayI ,arrayJ <,phrase=%nrstr(%&arrayI(&_I_.) %&arrayJ(&_J_.))> <,between=%str( )> ) ~~~~~~~~~~~~~~~~~~~~~~~ **Arguments description**: 1. `arrayI` - Required, indicates the first macroarray which metadata (Lbound, Hbouns) are to be used in the outer loop in the `%do_over2()` 2. `arrayJ` - Required, indicates the second macroarray which metadata (Lbound, Hbouns) are to be used in the inner loop in the `%do_over2()` * `phrase=` - *Optional*, default value `%nrstr(%&arrayI(&_I_.) %&arrayJ(&_J_.))`, a statement to be called in each iteration of the *inner* loop. The outer loop iterator is `_I_`, the inner loop iterator is `_J_`, if you want to use `_I_`, `_J_`, or arrays names [e.g. `%myArr(&_I_.)`] *enclose them* in the `%NRSTR()` macro quoting function. * `between=` - *Optional*, default value `%str( )` (space), a statement to be called in between each iteration of the internal do_over2 loop. If macroquoted (e.g. `%str( + )`) then the `%unquote()` function is automatically applied. ### EXAMPLES AND USECASES: #################################################### **EXAMPLE 1.** Looping over two arrays. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(alpha[*] j k l m n, vnames=Y, macarray=Y) %array( beta[4] (101 102 103 104), macarray=Y) %put *%do_over2(alpha, beta , phrase = %NRSTR((%alpha(&_I_.), %beta(&_J_))) )*; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 2.** Looping over two arrays with a separator. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(alpha[11] (5:15), macarray=Y) %array( beta[ 4] (101 102 103 104), macarray=Y) %let x = %do_over2(alpha, beta , phrase = %NRSTR((%alpha(&_I_.) * %beta(&_J_))) , between= + ); %put &=x.; %put %sysevalf(&x.); ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 3.** Looping over two arrays with *macroquoted* separator. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(alpha[11] (5:15), macarray=Y) %array( beta[ 4] (101 102 103 104), macarray=Y) %let x = %do_over2(alpha, beta , phrase = %NRSTR((%alpha(&_I_.) * %beta(&_J_))) , between= %str( + ) ); %put &=x.; %put %sysevalf(&x.); ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ --- ## >>> `%do_over3()` macro: <<< #################### The code of the macro was inspired by *Ted Clay's* and *David Katz's* macro `%do_over()`. The `%DO_OVER3()` macro allows to iterate over *three* macroarray created with the `macarray=Y` parameter of the `%ARRAY()` macro. The `%do_over3()` macro executes like a pure macro code. ### SYNTAX: ##################################################################### The basic syntax is the following, the `<...>` means optional parameters: ~~~~~~~~~~~~~~~~~~~~~~~sas %do_over2( arrayI ,arrayJ ,arrayK <,phrase=%nrstr(%&arrayI(&_I_.) %&arrayJ(&_J_.) %&arrayK(&_K_.))> <,between=%str( )> ) ~~~~~~~~~~~~~~~~~~~~~~~ **Arguments description**: 1. `arrayI` - *Required*, indicates the first macroarray which metadata (Lbound, Hbouns) are to be used in the outer loop in the `%do_over3()` 2. `arrayJ` - *Required*, indicates the second macroarray which metadata (Lbound, Hbouns) are to be used in the inner loop in the `%do_over3()` 3. `arrayK` - *Required*, indicates the third macroarray which metadata (Lbound, Hbouns) are to be used in the inner loop in the `%do_over3()` * `phrase=` - *Optional*, default value `%nrstr(%&arrayI(&_I_.) %&arrayJ(&_J_.) %&arrayK(&_K_.))`, a statement to be called in each iteration of the *inner* loop. The *outer* loop iterator is `_I_`, the *middle* loop iterator is `_J_`, the *inner* loop iterator is `_K_`, if you want to use `_I_`, `_J_`, `_K_`, or arrays names [e.g. `%myArr(&_I_.)`] *enclose them* in the `%NRSTR()` macro quoting function. * `between=` - *Optional*, default value `%str( )` (space), a statement to be called in between each iteration of the internal do_over2 loop. If macroquoted (e.g. `%str( + )`) then the `%unquote()` function is automatically applied. ### EXAMPLES AND USECASES: #################################################### **EXAMPLE 1.** Looping over 3 macroarrays. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(a1_[2] (0 1), macarray=Y) %array(a2_[2] (2 3), macarray=Y) %array(a3_[2] (4 5), macarray=Y) %do_over3(a1_, a2_, a3_ , phrase = %NRSTR(%put (%a1_(&_I_.), %a2_(&_J_), %a3_(&_K_));) ) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 2.** Looping 3 times over a macroarray. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(a[0:2] (0 1 2), macarray=Y) %do_over3(a, a, a , phrase = %NRSTR(%put (%a(&_I_.), %a(&_J_), %a(&_K_));) ) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ --- ## >>> `%make_do_over()` macro: <<< ########### The code of the macro was inspired by *Ted Clay's* and *David Katz's* macro `%do_over()`. The `%make_do_over()` macro allows to generate the `%DO_OVER()` macros. It works *only* for *n>3*! The `%make_do_over()` macro does *not* executes like a pure macro code. ### SYNTAX: ##################################################################### The basic syntax is the following, the `<...>` means optional parameters: ~~~~~~~~~~~~~~~~~~~~~~~sas %make_do_over( size ) ~~~~~~~~~~~~~~~~~~~~~~~ **Arguments description**: 1. `size` - *Required*, indicates the number of dimensions (i.e. inner loops) of the `%DO_OVER()` macro. ### EXAMPLES AND USECASES: #################################################### **EXAMPLE 1.** Code of created "4-loop" `%DO_OVER4()` macro ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %macro do_over4( arrayI1, arrayI2, arrayI3, arrayI4, phrase=%nrstr( %&arrayI1(&_I1_.) %&arrayI2(&_I2_.) %&arrayI3(&_I3_.) %&arrayI3(&_I4_.) ), between=%str( ) ); %local _I1_ _I2_ _I3_ _I4_; %do _I1_ = &&&arrayI1.LBOUND %to &&&arrayI1.HBOUND; %do _I2_ = &&&arrayI2.LBOUND %to &&&arrayI2.HBOUND; %do _I3_ = &&&arrayI3.LBOUND %to &&&arrayI3.HBOUND; %do _I4_ = &&&arrayI4.LBOUND %to &&&arrayI4.HBOUND; %if not ( &_I1_. = &&&arrayI1.LBOUND AND &_I2_. = &&&arrayI2.LBOUND AND &_I3_. = &&&arrayI3.LBOUND AND &_I4_. = &&&arrayI4.LBOUND ) %then %do;%unquote(&between.)%end;%unquote(%unquote(&phrase.)) %end; %end; %end; %end; %mend do_over4; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 2.** Create a "4-loop" `%DO_OVER4()` macro ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %make_do_over(4); %array(a1_[2] (0 1), macarray=Y) %do_over4(a1_, a1_, a1_, a1_ , phrase = %NRSTR(%put (%a1_(&_I1_.), %a1_(&_I2_), %a1_(&_I3_), %a1_(&_I4_));) ) %put *%do_over4(a1_, a1_, a1_, a1_ , between = * )*; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 3.** Create a "5-loop" `%DO_OVER5()` macro ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %make_do_over(5); %array(a1_[2] (0 1), macarray=Y) %do_over5(a1_, a1_, a1_, a1_, a1_ , phrase = %NRSTR(%put (%a1_(&_I1_.), %a1_(&_I2_), %a1_(&_I3_), %a1_(&_I4_), %a1_(&_I5_));) ) %put *%do_over5(a1_, a1_, a1_, a1_, a1_ , between = * )* ; options nomprint; data test2; %do_over5(a1_, a1_, a1_, a1_, a1_ , phrase = %NRSTR(x1 = %a1_(&_I1_.); x2 = %a1_(&_I2_); x3 = %a1_(&_I3_); x4 = %a1_(&_I4_); x5 = %a1_(&_I5_);) , between = output; ) output; run; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 4.** Create all from 6 to 10 "do_overs" ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(loop[6:10] (6:10), macarray=Y) %do_over(loop , phrase = %nrstr( %make_do_over(%loop(&_I_.)) ) ); ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ --- ## >>> `%mcHashTable()` macro: <<< ####################### The `%mcHashTable()` macro provided in the package is designed to facilitate the idea of a "macro hash table" concept, i.e. *a list of macrovariables with common prefix and suffixes generated as a hash digest* which allows to use values other than integers as indexes. The `%mcHashTable()` macro allows to generate other macros which behaves like hash tables or dictionaries. See examples below. The `%mcHashTable()` macro executes like a pure macro code. ### SYNTAX: ################################################################### The basic syntax is the following, the `<...>` means optional parameters: ~~~~~~~~~~~~~~~~~~~~~~~sas %mcHashTable( H <,METHOD> <,HASH=> ) ~~~~~~~~~~~~~~~~~~~~~~~ **Arguments description**: 1. `H` - *Required*, a hash table macro name and a declaration/definition, e.g. `mcHashTable(HT)`. It names a macro which is generated by the `%mcHashTable()` macro. Provided name cannot be empty or an underscore (`_`). No longer than *16* characters. 2. `METHOD` - *Optional*, if empty (or DECLARE or DCL) then the code of a macro hash table is compiled. If `DELETE` then the macro hash table named by `H` and all macrovariables named like "`&H._`" are deleted. * `HASH=` - *Optional*, indicates which hashing algorithms should be used, available values are `CRC32` or `MD5`, the `CRC32` is the default. --- ### THE CREATED MACRO `%&H.()`: #################################################### The created macro imitates behaviour of a hash table or a dictionary. It is *not* dedicated for "long-ish" lists (above 1000 elements) since the performance may be poor. The basic syntax is the following, the `<...>` means optional parameters: ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %&H.( METHOD <,KEY=> <,DATA=> ) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **Arguments description**: 1. `METHOD` - *Required*, indicate what behaviour should be executed. Allowed values are: - `ADD`, adds key and data portion to the macro hash table, *multiple data portions* are available for one key. - `FIND`, tests if given key exists in the macro hash table and, if yes, returns data value associated with the key. For multiple data portions see the `data=` parameter. - `DP` (data portion) or `CHECK`, returns the number of data portions for a given key. - `CLEAR` removes all data and keys values. - `KEYIDX`, allows to get data by the key index rather than value. - `KEYVAL`, returns key value for a given key index. - `CHECKIDX`, returns the number of data portions for a given key index. * `KEY=` - *Optional*, provides key value for `ADD`, `FIND`,`DP`, `CHECK` `CHECKIDX`, `KEYIDX`, and `KEYVAL` methods. Leading and trimming spaces are removed from the value. The `hashing(CRC32,...)` function or the `MD5(...)` function is used to generate the hash. * `DATA=` - *Optional*, provides data value for the `ADD` method and for the`FIND` method provides data portion number to be extracted. Default value is `1` (used by the `FIND` method). When macro is executed and when data are added the following types of *global* macrovariables are created: - `&H._########`, - `&H._########_Xk`, - `&H._########_Xi`, - `&H._########_Xi_j`, - `&H._KEYNUM`, - and `&H._KEY_i`. The `#` represents value generated by the `hashing(CRC32,...)` function or the `MD5(...)` function for the given key. The first type keeps information about possible collision for the key. The second type keeps information about value of a given key, the `X` keeps the track of other colliding keys. The third type keeps information about number of data portions for given key, the `X` keeps the track of other colliding keys. The fourth type keeps the data portion, the `j` indicates data portion number. The fifth type keeps the number of unique values of the key. The sixth type keeps the list of unique values of the key, the `i` indicates key number. See examples below to see use cases. --- ### EXAMPLES AND USECASES: #################################################### **EXAMPLE 1.** Basic use-case. Creating macro hash table, macro `HT` is generated. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %mcHashTable(HT) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Add elements to the `HT`. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %HT(ADD,key=x,data=17) %HT(ADD,key=y,data=42) %HT(ADD,key=z,data=303) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Add some duplicates for the key x. See macrovariables created. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %HT(ADD,key=x,data=18) %HT(ADD,key=x,data=19) %put _user_; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Check the number od data portions in macrohash for the key `x` and non existing key `t`. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %put ##%HT(DP,key=x)##; %put ##%HT(DP,key=t)##; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Check the number od data portions in macrohash for the key index 1 and 4. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %put ##%HT(CHECKIDX,key=1)##; %put ##%HT(CHECKIDX,key=4)##; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Prints first data values for various keys. Key `t` does not exist in the macrohash. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %put #%HT(FIND,key=x)#; %put #%HT(FIND,key=y)#; %put #%HT(FIND,key=z)#; %put #%HT(FIND,key=t)#; %put #%HT(FIND,key=x,data=2)#; %put #%HT(FIND,key=x,data=3)#; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Print first and subsequent data values for a given KeyIDX. Index `4` does not exist. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %put #%HT(KEYIDX,key=1)#; %put #%HT(KEYIDX,key=2)#; %put #%HT(KEYIDX,key=3)#; %put #%HT(KEYIDX,key=4)#; %put #%HT(KEYIDX,key=1,data=2)#; %put #%HT(KEYIDX,key=1,data=3)#; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Print the key values for a given KeyIDX. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %put #%HT(KEYVAL,key=1)#; %put #%HT(KEYVAL,key=2)#; %put #%HT(KEYVAL,key=3)#; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Clear and delete macro hash table `HT`. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %HT(CLEAR) %mcHashTable(HT,DELETE) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 2.** Combine `CHECK` and `FIND` methods with macros `%array()` and `%do_over()` ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %mcHashTable(H) %H(ADD,key=x,data=17) %H(ADD,key=x,data=18) %H(ADD,key=x,data=19) %array(A[%H(CHECK,key=x)]); %put %do_over(A, phrase=%nrstr( %H(FIND,key=x,data=&_i_) ), between = %str(,)); %mcHashTable(H,delete) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 3.** Populate macro hash table from a dataset. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %mcHashTable(CLASS) %let t = %sysfunc(datetime()); data _null_; set sashelp.class; call execute('%CLASS(ADD,key=' !! name !! ',data=' !! age !! ')'); call execute('%CLASS(ADD,key=' !! name !! ',data=' !! weight !! ')'); call execute('%CLASS(ADD,key=' !! name !! ',data=' !! height !! ')'); run; %put t = %sysevalf(%sysfunc(datetime()) - &t.); %put _user_; %CLASS(CLEAR) %mcHashTable(CARS) %let t = %sysfunc(datetime()); data _null_; set sashelp.cars; call execute('%CARS(ADD,key=' !! catx("|",make,model) !! ',data=' !! MPG_CITY !! ')'); run; %put t = %sysevalf(%sysfunc(datetime()) - &t.); %* %put _user_; %CARS(CLEAR) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 4.** Data portion may require quoting and un-quoting.. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %mcHashTable(CODE) %CODE(CLEAR) %CODE(ADD,key=data, data=%str(data test; x = 42; run;)) %CODE(ADD,key=proc, data=%str(proc print; run;)) %CODE(ADD,key=macro,data=%nrstr(%put *****;)) %CODE(FIND,key=data) %CODE(FIND,key=proc) %unquote(%CODE(FIND,key=macro)) %mcHashTable(CODE,DELETE) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 5.** Longer lists. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %let size = 1000; %mcHashTable(AAA) %mcHashTable(BBB) %mcHashTable(CCC) %mcHashTable(DDD) %let t = %sysfunc(datetime()); data _null_; do i = 1 to &size.; call execute(cats('%AAA(ADD,key=A', i, ',data=', i, ')')); end; run; %put t = %sysevalf(%sysfunc(datetime()) - &t.); %put &=AAA_KEYSNUM; %AAA(CLEAR) %let t = %sysfunc(datetime()); data _null_; do i = 1 to &size.; call execute(cats('%BBB(ADD,key=B', i, ',data=', i, ')')); call execute(cats('%BBB(ADD,key=B', i, ',data=', i+1, ')')); end; run; %put t = %sysevalf(%sysfunc(datetime()) - &t.); %put &=BBB_KEYSNUM; %BBB(CLEAR) %let t = %sysfunc(datetime()); data _null_; t= datetime(); do i = 1 to &size.; call execute(cats('%CCC(ADD,key=C', i, ',data=', i, ')')); end; t = datetime() - t; put t=; t= datetime(); do i = 1 to &size.; call execute(cats('%CCC(ADD,key=C', i, ',data=', i+1, ')')); end; t = datetime() - t; put t=; run; %put t = %sysevalf(%sysfunc(datetime()) - &t.); %let t = %sysfunc(datetime()); data test; do i = 1 to &size.; x = resolve(cats('%CCC(FIND,key=C', i, ',data=1)')); y = resolve(cats('%CCC(FIND,key=C', i, ',data=2)')); output; end; run; %put t = %sysevalf(%sysfunc(datetime()) - &t.); %put &=CCC_KEYSNUM; %CCC(CLEAR) %let t = %sysfunc(datetime()); data _null_; do i = 1 to &size.; call execute(cats('%DDD(ADD,key=D,data=', i, ')')); end; run; %put t = %sysevalf(%sysfunc(datetime()) - &t.); %put &=DDD_KEYSNUM; %put %DDD(CHECK,key=D); %DDD(CLEAR) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 6.** Forbidden names. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %mcHashTable() %mcHashTable(_) %mcHashTable(ABCDEFGHIJKLMNOPQ) %* bad; %mcHashTable(ABCDEFGHIJKLMNOP) %* good; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 7.** Hashing algorithms. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %mcHashTable(H1,DCL,HASH=MD5) %mcHashTable(H2,DECLARE,HASH=CRC32) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ --- ## >>> `%mcDictionary()` macro: <<< ####################### The `%mcDictionary()` macro provided in the package is designed to facilitate the idea of a "macro dictionary" concept, i.e. *a list of macrovariables with common prefix and suffixes generated as a hash digest* which allows to use values other than integers as indexes. The `%mcDictionary()` macro allows to generate other macros which behaves like a dictionary. See examples below. The `%mcDictionary()` macro executes like a pure macro code. ### SYNTAX: ################################################################### The basic syntax is the following, the `<...>` means optional parameters: ~~~~~~~~~~~~~~~~~~~~~~~sas %mcDictionary( H <,METHOD> ) ~~~~~~~~~~~~~~~~~~~~~~~ **Arguments description**: 1. `H` - *Required*, a dictionary macro name and a declaration/definition, e.g. `mcDictionary(HT)`. It names a macro which is generated by the `%mcDictionary()` macro. Provided name cannot be empty or an underscore (`_`). No longer than *16* characters. 2. `METHOD` - *Optional*, if empty (or DECLARE or DCL) then the code of a macro dictionary is compiled. If `DELETE` then the macro dictionary named by `H` and all macrovariables named like "`&H._`" are deleted. --- ### THE CREATED MACRO `%&H.()`: #################################################### The created macro imitates behaviour of a dictionary. The basic syntax is the following, the `<...>` means optional parameters: ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %&H.( METHOD <,KEY=> <,DATA=> ) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **Arguments description**: 1. `METHOD` - *Required*, indicate what behaviour should be executed. Allowed values are: - `ADD`, adds key and data portion to the macro dictionary, *multiple data portions* are NOT available for one key. - `FIND`, tests if given key exists in the macro dictionary and, if yes, returns data value associated with the key. For multiple data portions see the `data=` parameter. - `CHECK`, returns indicator if the key exists in dictionary. - `DEL`, removes key and data portion from the macro dictionary. - `LIST`, prints out a dictionary to the log. - `CLEAR` removes all data and keys values. * `KEY=` - *Optional*, provides key value for `ADD`, `FIND`, `CHECK` and `DEL` methods. Leading and trimming spaces are removed from the value. The `MD5(...)` function is used to generate the hash. Default value is `_`. * `DATA=` - *Optional*, provides data value for the `ADD` method. Default value is blank. When macro is executed and when data are added the following types of *global* macrovariables are created: - `&H._########_K`, - `&H._########_V`, - `&H._KEYSNUM`. The `#` represents value generated by the `MD5(...)` function for the given key. The first type keeps information about the key. The second type keeps information about the value of a given key The third type keeps the number of unique values of the key. See examples below to see use cases. --- ### EXAMPLES AND USECASES: #################################################### **EXAMPLE 1.** Basic use-case. Creating macro dictionary, macro `Dict` is generated. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %mcDictionary(Dict) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Add elements to the `Dict`. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %Dict(ADD,key=x,data=17) %Dict(ADD,key=y y,data=42) %Dict(ADD,key=z z z,data=303) %put _user_; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Add some duplicates for the key x. See macrovariables created. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %Dict(ADD,key=x,data=18) %put _user_; %Dict(ADD,key=x,data=19) %put _user_; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Check for the key `x` and non existing key `t`. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %put ##%Dict(CHECK,key=x)##; %put ##%Dict(CHECK,key=t)##; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Prints data values for various keys. Key `t` does not exist in the macrodictionary. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %put #%Dict(FIND,key=x)#; %put #%Dict(FIND,key=y y)#; %put #%Dict(FIND,key=z z z)#; %put #%Dict(FIND,key=t)#; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ List dictionary content to the log. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %Dict(LIST); ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Delete keys. Key `t` does not exist in the macrodictionary. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %put #%Dict(DEL,key=z z z)#; %put _user_; %put #%Dict(DEL,key=t)#; %put _user_; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Clear and delete macro dictionary `Dict`. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %Dict(CLEAR) %put _user_; %mcDictionary(Dict,DELETE) %put _user_; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 2.** Populate macro dictionary from a dataset. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %mcDictionary(CLASS) %let t = %sysfunc(datetime()); data _null_; set sashelp.class; call execute('%CLASS(ADD,key=' !! name !! ',data=' !! age !! ')'); run; %put t = %sysevalf(%sysfunc(datetime()) - &t.); %put _user_; %CLASS(CLEAR) %mcDictionary(CARS) %let t = %sysfunc(datetime()); data _null_; set sashelp.cars; call execute('%CARS(ADD,key=' !! catx("|",make,model,type) !! ',data=' !! MPG_CITY !! ')'); run; %put t = %sysevalf(%sysfunc(datetime()) - &t.); %put &=CARS_KEYSNUM.; %CARS(LIST); %CARS(CLEAR) %put &=CARS_KEYSNUM.; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 3.** Data portion may require quoting and un-quoting.. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %mcDictionary(CODE) %CODE(CLEAR) %CODE(ADD,key=data, data=%str(data test; x = 42; run;)) %CODE(ADD,key=proc, data=%str(proc print; run;)) %CODE(ADD,key=macro,data=%nrstr(%put *****;)) %CODE(FIND,key=data) %CODE(FIND,key=proc) %unquote(%CODE(FIND,key=macro)) %CODE(LIST); %mcDictionary(CODE,DELETE) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 4.** Longer lists. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %let size = 1000; %mcDictionary(AAA) %let t = %sysfunc(datetime()); data _null_; do i = 1 to &size.; call execute(cats('%AAA(ADD,key=A', i, ',data=', i, ')')); end; run; %put t = %sysevalf(%sysfunc(datetime()) - &t.); %put &=AAA_KEYSNUM; %AAA(CLEAR) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 5.** Forbidden names. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %mcDictionary() %mcDictionary(_) %mcDictionary(ABCDEFGHIJKLMNOPQ) %* bad; %mcDictionary(ABCDEFGHIJKLMNOP) %* good; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ --- ## >>> `%QzipArrays()` macro: <<< ####################### The zipArrays() and QzipArrays() macros allow to use a function on elements of pair of macro arrays. For two macroarrays the corresponding elements are taken and the macro applies a function, provided by user, to calculate result of the function on taken elements. When one of the arrays is shorter then elements are, by default, "reused" starting from the beginning. But this behaviour can be altered. See examples for the details. By default newly created macroarray name is concatenation of first 13 characters of names of arrays used to create the new one, e.g. if arrays names are `abc` and `def` then the result name is `abcdef`, if arrays names are `abcd1234567890` and `efgh1234567890` then the result name is `abcd123456789efgh123456789` The `zipArrays()` returns unquoted value [by `%unquote()`]. The `QzipArrays()` returns quoted value [by `%superq()`]. See examples below for the details. The `%QzipArrays()` macro executes like a pure macro code. ### SYNTAX: ################################################################### The basic syntax is the following, the `<...>` means optional parameters: ~~~~~~~~~~~~~~~~~~~~~~~sas %QzipArrays( first ,second <,function=> <,operator=> <,argBf=> <,argMd=> <,argAf=> <,format=> <,result=> <,macarray=> <,reuse=> ) ~~~~~~~~~~~~~~~~~~~~~~~ **Arguments description**: 1. `first` - *Required*, a space separated list of texts. 2. `second` - *Required*, a space separated list of texts. * `function = cat` - *Optional*, default value is `cat`, a function which will be applied to corresponding pairs of elements of the first and the second list. * `operator =` - *Optional*, default value is empty, arithmetic infix operator used with elements the first and the second list. The first list is used on the left side of the operator the second list is used on the right side of the operator. * `argBf =` - *Optional*, default value is empty, arguments of the function inserted *before* elements the first list. If multiple should be comma separated. * `argMd =` - *Optional*, default value is empty, arguments of the function inserted *between* elements the first list and the second list. If multiple should be comma separated. * `argAf =` - *Optional*, default value is empty, arguments of the function inserted *after* elements the second list. If multiple should be comma separated. * `format=` - *Optional*, default value is empty, indicates a format which should be used to format the result, does not work when the `operator=` is used. * `result=` - *Optional*, default value is empty, indicates a name of newly created macroarray, by default created macroarray name is concatenation of first 13 characters of names of arrays used to create the new one. * `macarray=N` - *Optional*, default value is `N`, if set to `Y`/`YES` then a macro, named with the array name, is compiled to create convenient envelope for multiple ampersands, see the `%array()` macro for details. * `reuse=Y` - *Optional*, default value is `Y`, when one of the arrays is shorter then elements are *reused* starting from the beginning. If `CP` then function is executed on the *Cartesian product* of arrays elements. Any other value will cut the process with the end of the shorter array. See examples for the details. ### EXAMPLES AND USECASES: #################################################### See examples in `%zipArrays()` help for the details. --- ## >>> `%zipArrays()` macro: <<< ####################### The zipArrays() and QzipArrays() macros allow to use a function on elements of pair of macro arrays. For two macroarrays the corresponding elements are taken and the macro applies a function, provided by user, to calculate result of the function on taken elements. When one of the arrays is shorter then elements are, by default, "reused" starting from the beginning. But this behaviour can be altered. See examples for the details. By default newly created macroarray name is concatenation of first 13 characters of names of arrays used to create the new one, e.g. if arrays names are `abc` and `def` then the result name is `abcdef`, if arrays names are `abcd1234567890` and `efgh1234567890` then the result name is `abcd123456789efgh123456789` The `zipArrays()` returns unquoted value [by `%unquote()`]. The `QzipArrays()` returns quoted value [by `%superq()`]. See examples below for the details. The `%zipArrays()` macro executes like a pure macro code. ### SYNTAX: ################################################################### The basic syntax is the following, the `<...>` means optional parameters: ~~~~~~~~~~~~~~~~~~~~~~~sas %zipArrays( first ,second <,function=> <,operator=> <,argBf=> <,argMd=> <,argAf=> <,format=> <,result=> <,macarray=> <,reuse=> ) ~~~~~~~~~~~~~~~~~~~~~~~ **Arguments description**: 1. `first` - *Required*, a space separated list of texts. 2. `second` - *Required*, a space separated list of texts. * `function = cat` - *Optional*, default value is `cat`, a function which will be applied to corresponding pairs of elements of the first and the second list. * `operator =` - *Optional*, default value is empty, arithmetic infix operator used with elements the first and the second list. The first list is used on the left side of the operator the second list is used on the right side of the operator. * `argBf =` - *Optional*, default value is empty, arguments of the function inserted *before* elements the first list. If multiple should be comma separated. * `argMd =` - *Optional*, default value is empty, arguments of the function inserted *between* elements the first list and the second list. If multiple should be comma separated. * `argAf =` - *Optional*, default value is empty, arguments of the function inserted *after* elements the second list. If multiple should be comma separated. * `format=` - *Optional*, default value is empty, indicates a format which should be used to format the result, does not work when the `operator=` is used. * `result=` - *Optional*, default value is empty, indicates a name of newly created macroarray, by default created macroarray name is concatenation of first 13 characters of names of arrays used to create the new one. * `macarray=N` - *Optional*, default value is `N`, if set to `Y`/`YES` then a macro, named with the array name, is compiled to create convenient envelope for multiple ampersands, see the `%array()` macro for details. * `reuse=Y` - *Optional*, default value is `Y`, when one of the arrays is shorter then elements are *reused* starting from the beginning. If `CP` then function is executed on the *Cartesian product* of arrays elements. Any other value will cut the process with the end of the shorter array. See examples for the details. ### EXAMPLES AND USECASES: #################################################### **EXAMPLE 1.** Simple concatenation of elements: ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(a[*] x1-x3 (1:3)) %array(b[*] x1-x5 (11:15)) %put _user_; %zipArrays(a, b); %put _user_; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 2.** Shorter list is "reused": ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(a[6] (1:6)) %array(b[3] (10 20 30)) %zipArrays(a, b, result=A_and_B, macarray=Y); %put %do_over(A_and_B); ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 3.** Use of the `operator=`: ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(c[0:4] (000 100 200 300 400)) %array(d[2:16] (1002:1016)) %zipArrays(c, d, operator=+, result=C_plus_D, macarray=Y); %put (%do_over(C_plus_D)); %put %C_plus_D(1); ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 4.** If one of array names is empty or an array does not exist: ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(a[6] (1:6)) %array(b[3] (10 20 30)) %zipArrays(a, ); %zipArrays(, b); %zipArrays(a, z); %zipArrays(z, b); ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 5.** Use of the `function=`: ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(one[3] A B C, vnames=Y) %array(two[5] p q r s t, vnames=Y) %zipArrays( one ,two ,function = catx ,argBf = %str( ) ,format = $quote. ,macarray=Y ) %put %do_over(onetwo); ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 6.** To reuse or not to reuse, or maybe Cartesian product: ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(e[3] (10 20 30)) %array(f[2] (5:6)) %zipArrays(e, f, reuse=n, operator=+, macarray=Y, result=_noReuse); %zipArrays(e, f, reuse=y, operator=+, macarray=Y, result=_yesReuse); %zipArrays(e, f, reuse=cp, operator=+, macarray=Y, result=_cartProdReuse); %put %do_over(_noReuse); %put %do_over(_yesReuse); %put %do_over(_cartProdReuse); ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 7.** Use middle argument: ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(yr[3] (2018:2020)) %array(mth[12] (1:12)) %zipArrays(mth, yr, argMd=5, function=MDY, format=date11., macarray=Y); %put %do_over(mthyr); %zipArrays(mth, yr, argMd=5, function=MDY, format=date11., macarray=Y, reuse=cp); %put %do_over(mthyr); ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ --- ## >>> `%sortMacroArray()` macro: <<< ####################### The sortMacroArray() macro allow to sort elements of a macro array. The **limitation** is that sorted values are limited to 32767 bytes of length. See examples below for the details. ### SYNTAX: ################################################################### The basic syntax is the following, the `<...>` means optional parameters: ~~~~~~~~~~~~~~~~~~~~~~~sas %sortMacroArray( array <,valLength=> <,outSet=> <,sortseq=> ) ~~~~~~~~~~~~~~~~~~~~~~~ **Arguments description**: 1. `array` - *Required*, name of an array generated by the `%array()` macro. * `valLength = 32767` - *Optional*, default value is `32767`, maximum length of a variable storing macrovariable data. (the reason of 32767 limitation) * `outSet = _NULL_` - *Optional*, default value is `_NULL_`, an optional output dataset name. * `sortseq =` - *Optional*, default value is `LINGUISTIC(NUMERIC_COLLATION = ON)`, sorting options for use in an internal `Proc SORT`. ### EXAMPLES AND USECASES: #################################################### **EXAMPLE 1.** Basic use-case. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas options mprint; ods html; ods listing close; %array(hij [4:9] $ 512 ("C33" "B22" "A11" "A01" "A02" "X42"), macarray=Y) %put NOTE: %do_over(hij); %sortMacroArray(hij, valLength=3, outSet = A_NULL_(compress=char)) %put NOTE: %do_over(hij); ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 2.** Basic use-case. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas options mprint; ods html; ods listing close; %array(ds = sashelp.class, vars = name|NNN height|h, macarray=Y) %array(ds = sashelp.cars, vars = model|, macarray=Y) %put NOTE: %do_over(NNN); %put NOTE: %do_over(H); %put NOTE: %do_over(model); %sortMacroArray(NNN, valLength=30, outSet = A_NULL_(compress=char)) %sortMacroArray(H, valLength=32) %sortMacroArray(model, valLength=120) %put NOTE: %do_over(NNN); %put NOTE: %do_over(H); %put NOTE: %do_over(model); ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ --- ## License #################################################################### Copyright (c) Bartosz Jablonski, since January 2019 Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation files (the "Software"), to deal in the Software without restriction, including without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to the following conditions: The above copyright notice and this permission notice shall be included in all copies or substantial portions of the Software. THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. --- macroarray-1.2.3/hist/1.1.0/macroarray.zip000066400000000000000000001451461452773550200201720ustar00rootroot00000000000000PK%&W-|;j description.sasVmo6n@b@bκOSo0'mE"5#!oQ[ӥH6{9t` q B;̅DkSo䌧l}خI:\Kz(<(P`1g9rg*3;B -y͑ q{w;w|0tj۴1朏Wx1W! ]Pځ*R4:,#o0C7:2>ppFy['%bSޣtI!pNJ h%^ ~g3P 8*l/ :;6҈ OE{QY4h %GEN{3f&&z`_vv>ˋMё9^wf(ւl3RS'(L~QwAqm Wh kexvۼ~[w:{j kK.\bn*&9B W{pCm<:6{CR5F ;ug鍽9ɔ J_ƹ^> S>gM1žú' ]v40x;~(m\аYm.׊)a8S^y9j#vhq4F|ePM4V$1}5ՖLjAP bASWYp}QV!\Ε&7AzuFWBSMx 8؅CeL@@7KF'sd,*j>K2Qe*ymO"0-JNP6|hXBm `mSV1E $F)_ X*)dIk+Uz2ؒ1R,v҄tp:NKFVw}\D )M{ ~jhPK%&W*riG license.sas]RK0GqڕLb!I qbdL`w"!gg}7[3|KQxoC=1.^N XP3h(hQ>p4>\8݁޶F!!t=T k7~RȌ@͗\L9>8Ik8w=I|ڊ#={ AV8髧dn0O3Ľ;,z*z$&`x=10h}o"'ZjS,nDQ=:k46Pvҵv _p 6SGv[j`o[Ceܱ7#>NMG},,90APId<=K`#en'$+- `"K$k(eU EQ:#X b%dmJ 5LdsfB4.J *&s&Z˪9ȐB _y@YKGl$YR<.XyƱ8s~\i*#P%`<͒SF%IˢL0l^Q5d!f"XX+ ޝG轮+#dHVxJ2W PK%&W$packagemetadata.sasMK10ewůbioekh)IYɥs|wfh(mzg#AZͮ cܑR+_H¡Аptz) '7b{Ȋ,OC 7G1;ǃFjمOvGޑ 6*b{R:l&igEʆeyomkpfVJH돇N#rl"e^Y~Yj^'~PK&&Wiceloadpackage.sas͗mO0O;"JJ`bbلDԕ2M9.D$qFwEܝ/ ` S\P(oL b !;P03[gnu~ڡ`qD#5rCF\r `ʥ\o*6IVS,Z f 6~ɬN%W]> $QO6rc. @.8M[F]cl׀Ea oqn FU**өKpL50"`-p 06 Nñ-I/b؏hz:e YBT8H)ӯL_.1x% S+U/ì<<|:=wٶLݑ`aY$B a`v7˚cU`Zug;gtUmLlg> /'G fr"e_2MN&L݀/aop &542tGWїj4'b2C|"oKM{W̨T# ܟŹYnDGWx-´1xn, dqr.P5b9M?Jw78p{9vЏxI* С%y"&2~_k5ThJZv¶۸hѦUa&{wgv^PK&&W5 rFload.sas\sH=Ub$bT{] Hm, B"=z#a^ruJ3elR' ?|n6ߝipf 3zn ZuSU{PLTͱ;T9ܰ-h*i .χ-HT*(ٔ9eih&S19#h4kkoѝ{o;2W%x(7\ySmV%#J=3H{@g\sj K ;a70f9:c Ter\Y\ڃ($%\cX t3Q͏͏1,P52fw>3PG3n^M3K3wX vᖁ4 OgfяaiLgtℹ*yU>s{h9"4Fdɗ:p ҅dA a6\ wɃ4{2-fR/|<4n/O㡿0;0[*z&oOgz?L},AC uT5m\_΍;azeKԱ5 Kk -r(zݫ#w%Kl#/k82Zi4=^)_ }#k|4"%0Kff10{~o׋1ҙf{C_V6]Cuq^d uVZqKe}YꯤDCpCmC FtEx z?;&Qu]~`/GX _7ey7sucO"E54xhYahA'%#*`prM MG泌,. k #jFɵx1j*g2b\U;eA΅hOi+YIp$5(o)N4hi{k`P.L N)MU4_f OqO+Y ޮ~IL#!.ƶiO5 4L ]Zi_G詧{L<@wgWy\k}"֡_@حc'g[riwHcy" '0,zN&;aOD- UB'q5 dh޼ҙpjEMRVd%Rt͙X$ai#ErI܎$#͎oMDGxBy0\DIgp̗I9̃E Rs"e>Q+.v+r@)IҼyy8rA $*&v;b@iJԜyEs]dJݒ'ȲbIJؖGcL _ EBb(I3H~@W@J ފ$T9+md'ɦig$;9ɩT輢r=J;oQ>6?K1Is 1ʛxK ]:r& 7}: _9'∔MG:ꈳiVه#G⚎79BJF]q?9*9^ =@#7)nO& qxtDڠU^~ W k.B;z,@ZC@tH'| ku(MUk҄νZоeAu/,䟪^ʩ~.>qŔԣk#b5uѥz(hOERrb,K/j^jm񗳰A^bץWDLIE⨳ţNyZ6OerwfW@t|(J2)kK΅$|J)&^:'ݓYw@A~T9S4Ty*4~cT]#zMH$غ5e-.}]G}LI1M;@1 @~> ,2 W'o2QĹ,ۨW*0NXWEYL"r5-0ZQd%ȥdzkQ,dA=~\Zr%]2-2iW|LCf2&?0 Q&.ob>61 ,! "X+=KW#MW|;K+fS9i7x,BNْS̊4 Wq k%m?$+ tNQB7違(}PK&&W& B lazydata.sasQMO@&&݆B?60$#ٴݸlVn`x7f{Q* Y){XUa]H1̨)%T4{[d9RR?GްP(}@qT]|R9t]Cjc tkכA_EwOk]V$>p@2I|L#XB*-m"ju O.=] 2*8IlzJќ~/71E47Inu~ۀ. I~nUhn! !1_ZFi3ZF*@36'PK&&W N unload.sasXQs6~LÞlꒄt.3e|mFȖc误$ 4FZzY@IC3ÃÃB@{D-ؿ÷B'N$<`Nk'''x.@Zg=u!' O(Um/lTΈ $i8R3ǀZ % 䟧 %,i I'˚V2W TEz̪еCV[}QQNɩ%!(6ppK"H)51'0DSq<„T)/O,dN5P n$f;ȵU}YLQr- GpKHk;]sdopؘɚNZЌV}'^y<^!#bٳ+7p7xV:nn6|o}]ĻT? ׳}0,d6rV^e{Cp4;h|ӨYe,yٸp=C]U2_VY& T_oJ,sxkSVREV(bG JZ)E$jPE-[kQdg++f2j|,I~!tGWzȒO$A0cO(|4A8s:[| ]hh@MeӖ϶zi eBc` !C:{j=&<-[8 " ʦ<V_˯Y2)%og7UysQ0QYQ=><PK&&Wrk preview.sasXmo8  0Ҽ8]KuPlM%Pm1X%oa?(/r{nMQW~@Cm_!𹘶[DrvS]CL5 qcvd q'ڃ4> a=dui).w.$73C/}PKLj?41ԛ=g?ΆK۞}7vJĚ&&Ԉ #~(C߀Ӫ(X^}Zs< ;b.|WIOTH̀[Ȝ_(zL  Y4Enn﮾Y#dUfA{wC }NkK_[r0 K/|:ீ؏LLcM`gXZns1HB`o#Pp \j+'QA҉j4 d f3IG)>o 9;ib|4+x.?};E$cVoKbld Z% j: $XP#KAnafk˧S*F.@/f?z gG) _=0|aXb҇摘-$ QۈBbn$,0' A( @-p8r"aj(BdADLsAHK^ΕTŬ")L@.֒xwZR{ TaXe)Ֆ`ze0:p\ǵ JX t|W$V^;$& Y1G!T_?"_ p<7z^pNat30 "-̲"K |zB<1oW%f G<$ѓM\=C^?O"F8~{61點/ RcA<і YOeOW&xrq7s`j</6,v#s<@hRԕ"WBn ?_%Dq0l© ^1N &7~_Aӗs}ۛ;ڝj9ڱkYL{?<3m )4rC5~ U+yDi8Go0:UPtwd"6 -C|ED^+24ChMaVLT4Sh2E@ ǗwW G$\ua;D(j/bnn#u)˒d}JFs z2Gl% :NF,'aiϋF9̌%PP`C8B.ށ; 9'_yоC)t$])@e{€6I)Έ:ka,qp3&р"9ĿJu ,](ͭUN2S@#%\B(xj4Pْͫ!ZTOy`"$i9bCدT+da=B%KR5 8tSuĝ_2o(;#j2sJgi);9drR͵ (߱J$C3bqʐɌDx,gk , 7׃H:,Y Ƣ!Y&gC&߱*/,G^>^" qoaQYdi2+rM|AF3^6YN4N&x:bIF֌(Ip,3 UqɒsOY8W/lV+ Mrϊ呃1=+1m$32'w Ozר yL1JK̖[Q,erI9%:BG$L4 v(*i*͆0ׁ[2q w\44qhaɗk {, Sø9u}9 ke@8^ާ(8>cgNNŚ3;Td*`*T\vXNX>٩TKy#>iSބI >|iM@C!ӯ:M^`'f^PK&&W _001_macro.appendarray.sasV[o6~7p,ɲt71.! :CMKM"]>tRǍӢ5K' Cx5:} h6a8,TRn(Hd R=/BH:dkh6.t 0 +eTQ-X¹4 1T^o(aZ[ckH \^R r54 B( AB^`Iq9cJMEz.+G74+ ؗ%*_̩SǴ"}׿n>MfZrcS6L#7 8؈#'Da UlpD7FFl o6؊` TK̹X9)|þ0qhoǒ)xRڬ|ɑz,@펺enu8ޒtwR<28Ly|#KK@ͩ)B`rIhdZI׼ ǘ+32lPK&&WhiP/{_001_macro.appendcell.sasY[oH~G?q/˾l%4"i5 VSe7M9e2ɖp];9Eɲ,Pi=vK%+l߯r˛O0bpyy |6e#Z6.K >,l&yxy(If3,ɤzSM), m;r@ 7}{;;;ax4ơ}"B|tΗ$]KrPS?`UZ u~i$(1`$'Rg3]SLZf= \|((]Od3&l"UU(sHWSs=I#?AjBWUȏD[A#4I=uBÞ!,.x?-!Y"8d HؤMp{}45h ct&[k~J8ڱ  D:lȩ?7T80˦ %ڰ(׫rHڧs}qA%;5TIs]s~ivK l}lӌ&#)xr&=X(kU B {UVD-:tBP:ƪ;Hcqoy,; EX ݾqe[FO{F ;O ]VBz[kVpۼoUn/v}W'\̇c* (5J!),KA=2Wi2;`9nȽHT~u@Tqbm2pг"iUY%D)fMj68D%âVFRXkHBqD6.fJj>@SܨΗvR"Z>Z=&J wiBUa]zкr>)n"Kz5g tYN((P7#AUmpty)g@j6itRAG Gnk"[tvz?7* kVqN/,w},\:|u(:, 'iW+a@k_QCOSӊS:D rPkC{t KXê%0")zMJ<0{KVy>悢ĆذoHlQ gJO:"G5:^ߎO>͑~[~yyJH=\:tgMXpaQr<^2)ۮKq n5XZJ_Ou9 LB~`)u{2dr 'wA)HkC7@th" d,C,^F?qpĈS!<)۔|0yzRpteIx_V̟BؐS>x-nI%z-(27 j3ZVu< ui5( SIy gj ?e=1׳Q|3gxPK&&WYJ>~hv_001_macro.array.sas=sH*C/9 !C8f]0]@"]gF_ǎ{a7t̨,:| 'f us<~ xk <S(2?)xi'Ǐ? l 79;.vnob/6"KgQlU ;+\ ?p<fBg= `(gЃ {LV6+1x;NETh BW}>pէSA\8< w>3'/PGܞLX6FnAH# ɥЛc'`Og8J,о.*__r!psEnlW:. IR  vVG3xub*p0"`8! lk1K_Y.dpo;Jr)oF @JJ61 qN&; <B08h2h yށ͜RrBLf/caN 5}!KܘE)7_O$ۗ:,3,_RUۺcPRdQMrTUtDc ^],I96npCAeTp|b QkY}gVGrn !ď Ɗ.I^T^ Qz3-֙#KCdNvmL{^҄krRoB_.IxF[}E0`D5m?D7J܈bqC|?Ŏ4'\,('$FT+6sVYUmqI 儀~ιtY:K q|`;4of8XH ^|(졚} G/ЙT2yv_W\Id::֕Ftm*SkHW0y#%v8̙I4!eu<u)&L8x GC?r1M] Q?=@~b!MbFj2Aj_CT*@KR?Haz0h0Q*1ƈW&5jda_볒c"nIJt]zEKGso*M9]~Ze^y AN)ɰ4 J;xrΧTytFر6rQ\ERf''l M RE]Hmi?Kjmuʀt#H6gBg :DC^V-܁n ƞAB]N[9QHⱴo'- (c1Us;ۤk5pby1gxTJN!rB#fdh$cO#?3wrga_#f=3%Hȭ@"۹/^MڨIhe|?sfj}0YŜYgDg|6CsNB_#L8^/{s?ELȼ24 [&1G jpF *zQ>_=aŵ|gHW흕Ne&Ya YP@hBA_@iZw]/f `L3Js%EJ! ZiӖ9( *4/[FfJ1w6i0-irDɒdq£0৹r\E $ڎk=0pR ҹ'#]=a^<5 ypGDLh# nnF+^rbf-'^o*X{ KnW7[zEZx8,y*p`HDe;{z}iPZ&Y@µ6$3 QcH ݂ wH@Z~mB}..S(kǀT ?%䔤:HlG#4i<-nW0v.Boq#wۆ\4d0m l1 R7ZH* =t3XQI=N}+DS&"ȣ$i):i-,#6ƆZ =*܁I'^7Sw6٨p ߓ.rl]U=4prv[y2!1|Fv$1ұ~H,P<` P8kLI* 5'iJV@~^B Zb<8:NZ—ihO_II$&e/o^޾DPHB4a5ľ K1X ŢNM/Sw d(^jYN[ؓVH9x/&BnuS9+ۈm^6w7qwi6y4K3hrܘG$nqLƛ2|G*fC;ssCpG<ĉPS9l&s0:!p؂7"xSᯙR(q/ Rz)DZы:>)_QE=]O^|PZ@(rN~랽tOZd?iQ N~HQf}eQ8v"Y s%MO|Bۧx%+XF OLGGN@b5p6"&L=G2 }EVRwP6, OZbɚ^7`QCVm$ #i b6Pڍ,y.c,]%yL]RFK ejIg-_8~ %kgŐ=80a*Hn'_yNJB l^SAvygvHxcoR/*Lcnr'\}šֶI/dmCNh>: /$BӃD +:iDA'|fr?4ʍL$c 5Y5 yq%[۟IEh[7u 5j6K S:۝yQ2̄fy$mcc%SJ VnG]&-CG)s#/f|:tqľn7r{vbuBvsQ,zyQ8>|1IkB&s|-5>'8JclwQ/qbIem a$yf lW;76J6%N|i=nJzؘ*'6|s/y)П-ΗC]6T}sK>nH`IG%$9?B\ Q%9tBꠈ$$,t@}8:峱:wUT7 BCG;hD!/<,e  /LqW6qů+&9sJ `EuR%Lax:BO +z]H|:,^V|G<M,gg"΍KM-n<><?2@S6"+Oe7Fn&dG~kPC,hRbM;X0C8tKQ=26:!|j垤F눟dVvq/}#|Q>=t[G'.pm rt#pxD2{[FJ{0֏`[o+\VVvn'd&.3rR^>g&5o2~(uwP'%x߽w'P&7,2kؒ6h^LRq%Y~=8u:M(OW+y/-7hKdm38M"ܰUy=|57nFs9~S'7So֞qgţEk̔!RatKn]Uu.}`3vnyDnޔ ~o#tEgO.7XT `/93ۥS J KJZJ- ^QHTWќ 3/xۃ"LW\ B9vM{?`lg5,Η67@'l_)ƥBivF &% ,T{LC6ԡUL)$=JI>:,mǣS![\[@"S ɶʽҷ*ŐgT?N{B程(/M#A΂E8M|e[Jx9e{͏H}S PoCVv?mWPk5+ 5:̜;0 2s)WsA^9s4C*ז)DOK1*ƙِ(ȪM.G:Esʴx_PRrr 8$DYsVd8+9+9+|nJ_\H RbGhhKHWb. q`.,[()p]3BRG1Q#1b$FU&ҾǾLL0fsD#ȧ뤶>EsβRXjFQ8:nwϹ[ݲ~Yti[TtV"Ar1j [0KYJ9XG,l`ujy>KP(OiT̾{0~o!ݫ೔q*_`HD*y V{ef'=FKŢ4,G }ɿw $/~u⼷vl|::.󋦹ʯ)XZ,gb\`|%AҩҥF:].]~[ Om"گop:ð4OէYM|@%:^+F4O-iwӇ9 pFIZv߫Tqn6g,;*}|7_Ln&13tŵXL4{M?f̷mS7 v#uOҥ7F"L8=Sbtէ-cR%̬R};l#Z.(PdyNDxv {~3'Z%nx:~*jrthtHgtHgtHgtӎ@1~A$>澌Մq[i}78f(S}y[icFXlP$ ñr{wS}?d's#g̏|ĞCcQ $Ah' ^S"*Dp뙩lmѩa`UT* QAMԢ,*fEHUo?#L`?8}Lc4I3]MvؓNadmY`mU_ f'74 tUaL" kfuUX msո׹4,V F@pUi5.ťYX5ۍrdO6MyPupk5 +YXXcCKcKK7mqJu7-ɚ~AFYd9~j]PF+;$oxu֖^)߫o# Q)xZ;LpX4MSIeMd<1l^M7Ͼ _~U(]r K4[C7% $fD\9lĢy-@'d]CWrRDΊkXk$ t+u?`){)Tڐh!E9%F.OL":%- G]Nt+ҞG܀hjǴe5 ߛʵ|*ΰtя 4 ,Ҿ|m7SJfKҟ-'EYG z=elӒ >ק=i;UA\oHir|r4XWT>Gf K_YSRۛolwn nY?WnX &%wS>D)Y卦 +YP/T}xy("(@n o'PrԠT[n@яmL'lu馲BG-D򧧺lP)?*90h7|V Є5kGd]Xu=L$ kUBW94$jFmȩVDq:¢ٶZW(A+8~՞Kl{$.Y7bK6h8 R X5 A1s1e[QO*fIJ0Ys`mqqhU&f P4 `q|D F 11215 ~" 6gxWKs#[)Jd/iI,DiN#`S ֢:s:4cИpwQ׵8:4 dz"wZMr2 xJXo%Ó?PK&&WPuU _001_macro.do_over.sasYQsH~wC'>0҂lk*&)۹]W*i0: H힑 9l47=4ww{''%8O  &̍D ...A& zP^^^ˣ+<b1^+!1 ~(~=qr6?&}=--lw*ss ,LB,ybCEln3?d΃S(T݇|xns ā42 %-(+?=C&}<3R?>ֵ/e]4EȂϲuxd yOOS #GJU=Uoa\!C8;wel3nLxKt#_n-zj[)hy?'/T|Q@21X̠$УoisK1DB 9$Sԝce)8)ʘw)h5$ +˩Caz4]9"3tDSYM)8z, #J\D(1\$z  (! &[dލC'"F( ]JxUD+i@MNˍu΢^\`57#R?)IB5  !Kb1Ak94𹗡$\@\Bdf 3˱Hoyi]+^Hr]shKH-<稪|R*18LP+gfh]{fKg5`E+ʚB1#MH܈L (&Ɍ/uRqh8EL`fܤg;`@8vDu:64 ^ޒ~r}k&' #&<o,Yѿy{J>ݯU5ӀB"[Y,F@J`ҿ(ѣ? s E*2sM)1PKE`YmUnH2];bjT~D Խv6٢܄7%dٓj eTЯ MM@Ô[녛r¬2Y%7gɪC a,v\.WIPh$CrEkTbvZʼn(YY"&r*}c豀 电 ~Ȟ,G0cbFPHqVL_ۯdb%p dNJ6UĖ驺޺M@+ߢ+xRƪҵİZ{J0ĀNQέ*4iC6 (lE{T,JƄNdn~s]$܇|^[XP\,'#|zSEz#f([aCh~>p\^_TƱ\(f)ո>Z YiJ ?Fz( ?ۏb8{Zi mXi 7 ($YZ2`8 ލOa?+!'˃iA 2\ WAÃvUUȘ@`I{O}SKf)UTIk߅⽏}|w;f1v AA&ZB43DL)rj6}Uh ̤ؗ y,5bRiD5Xf嚈(j6f)(.[䉥Lʑ{bT,/ -BG\B<{BX-3c}:l1X#c2]dw2.m[lNbc!6F rI=. >̰堑wahmCWvm蟘?pn|0!9y7l9ʗLj0DhTF\uА?(TJ.6[+ Srʄ˥2|;3B3WDo%EvTb$sc/&IYdk9c=$͸syPV=~8wbCm ūA5s;xS`V]V +Lo!5h7ގYnaXJZ:LDx5!'g}iVR}Ђ0{ß;SpM׽6!؆eg7~x:D>p1AxpkkNʃqlLO/>C g'^ඇ6*4pKܥs(yQꎝR$jesFo |y{u+Yo6—͗ 鰛mcP*8X>g+k;zsR1<&ڝMT|r;[FGpuΎ Wz-eʧ3 h }:P7Ep@d4]ɳo# ؃LRuW&x*!M*16\^\Ҵy+c]0wmLKuj%ffbݐXBDtLн0-xx!6~JfOojAD XwL?'s0َX#V&ƻm:e#5I슫R>SH -qPK&&Wkʘv_001_macro.do_over3.sasWmo96ڔ݃Mw.!hB =5*o\zn?ˎ {\WGGAZ-D R@ل&Nfy"jvfGu)ʥ)X$4,՜IhW8z  o KGw3˭!Pyo.uk@T,hLSI4R詤i#R%Ēr `p.]G0'F%׫6p3M LV,2wW'G?Q,|,00>40l!ZJ1LpV'ETT\`%-v]z8jVSI=TZV|{pv޻x{1zA)? 0 AЖlFVPKfm zBdPLXL,m 1ob)ҦIB4Hd<¹UaC# hcܪ Ty1s+ zDEcyal{`S&D.r.bB$K5ܐ43?Qvтh>:” ϋٕu&ָLV6hgU IFEVˌ%IJ uQh稭=}"Z[q Kk'N0ٲ-; q*: ֞}\MQ֯X`p v/AEILG:֝;xǝSsJzG87XUg/7 2n%xdZA2&dS{c3k]j>쮇=;oߪتXO^*;"@a@|:v iūhZOӜ$+ݔޖrrM>ގf*>=xwn篴{6ЪU :CߣFwb&NSW}t>|X{> :ۃ/p 8s/0LͰ]bc l6`<2`VS3T^1֗uo{и{O#+S<Sn5fJ WQyNU<>iiǍMI?nvF} |0SȆS~O>l"w?,9) j+6>*; )Bk1_J6jxE;t(\}aUP'xF/Q1MṮ*ɘ3jzjvn{mU0ƛb{$#%Rk5k6P΍9%$dF&4W cc S3-Xu67Zյ^4)䙙uԂJdKչXբLhZt&KP)xL5vv@eIF KC$|`xPK&&WI̦_001_macro.make_do_over.sasXms8 S^ҙ si]{&޴%oWMHXճ8ypoނ'O5e|ˡʣ} SEᐁ`S~T!/0 L8x Gݰœ)j;|; ٢`%'߈]Z9,7S``a( 1?O@Gq /]!p΄9Ӂ,0G`{bj{P7t}shO |(0 ;6]$-)-:fxIE<& @(цPʙ[s J$/MA}rGЄr ]dFKcz WH%ͅCg V5R 5WTćG9 吼[v{ Ԭν2s"DaVI3XbPQa{7wW3P!j`!z$ZcKV޻,R@/ȑ]+_bym7M7׶HxIqm;OjTocD Ȅ~O=P29?A%vvC*Ti4##uv{&SEZv7@wo@?9_؆lBhIz&7}*X|,)cs}c6pʃrԲ]t٭˄*JԳq˭2E-rΒlPVr:ͦ^lHWUmD[kE[E%ZzNIVsK4k#==-gHb[|2_.Ns^bomr%k$$+f ZAƀ7ʇnG5Z Xu!}Se;A:~h uz~18^p>k uFaa.:Cf ˧;F`_ o@bJVa΢@$/sc+ne~Ӥ]iHh?RJP:J(p_ ?vfn5%l \ZmEb6!"9tl>J:Ut*'9KA-&nmpUL !"d}>>CwyˁT{m4FNH}o 7҅=*|h_~{>kԗBk̝؞v`qoJPUh 遀oo7r5w{+4(?cgEt{Kt5grI4zg=F>+_Op\IK N4'n MˆZGp\$ ]vItm t؛d(|PmL)*k f {A2ӇEt ,IPh̛7V=5- ;MR(A`c↚ 5u7 0P44x9bdBoL L5He]5YYn6y~uc`hVмtHRWStqu 3J]T ioLݨ]תsmuÍ`p[:޻ńodcjFj("x`̟?A?ѫ5=p[>!24|pF yXɂUgO`eR5>k cns4cDث7m 80?a ޤgfKE&=n9I*JA)(sLzڛ`>fmoJQ04؍G. ɹyQ[o:9vL]{`(%Y ^D:,"@= Y'}qI䀡jJ ͌+H20,-MS1G#q!oLG4d$Fy#e7MBȦ Hh[bY(r=)4ʇepexFN\h%3GTTfYUsP& haFX)IgR+X *y_`ATw|E,::d(-C~*! կu!1hrMa&\HuyNj ~juVu>_TؓXYܕ[={ XHWX T" /h``!РhЄNx7q(ib%mKAfhz̘&0ͧ  i: [A+HNp[Sґ GX#VhaJu>P:M.#̼8u"w(C7D@3q|s]o +2PX($ǩBpTU<<"Y 3^_\!~}T( |&e J!gk# Ujr߫(>s9T-9TckcCɩb1G*2 }p2,.E_2)y\ӡr!i=1o>a7 T!YhtCA>(O! _2ȡ}io/;Zl^xʂ_-|=|;ɫ] (be!F{KYuO2}Cy/ÐKl6_zς·sn'־@fukJ {ZdSYH3goVr[hQ'>Pnu>\edPg' J闫QytN8jy~8]Y=]J[P.Xt␴4h64㱵wC[H]Q≶wC%~-2çC_j=Wh/.*+n]rW̺2';`+IW|s%IKuoYݕs1es" NW+%Uqno@BT_1U;5 ?t|{m5rcTK+W3jdU[Oq5p(v=e8Cq_<;ۦR'S9:ضU* !`EZFZފNsb1<%)xmIp[s:8tspf/dӾEt6LKE3?JĒtb> S!`8ww1 &o<0]^|Oc<ԅrbU|eG;Q!&0ŗyܧHNа3 B|ꁑHc¼xKV؅mMRۥ4rOw8}I Fj 1%v=saj痭f Ӭ:'$ z~I.Gӕi_QI%λ ֋=~$\# cG]e5ҿ_:J̈́M3`|JdM]RWgt lѱ)ngpA&MKgey?7& { [0fzAHΎdVIvo=v5.$3.0 q01f $ˉb%!>? ,bK2ٯ=eua{a5vt ~O6d Ļq,1[/Pȣz(2'mm 21"̷d/ط<6X!;]݇`NG XtPu,,Sgrk4 x9t G dRઔRelyVu8!׮f[s$K/ nxOQXZ痯76$*V^*  KE/m ߣ-4gs so ˛H*nկ` {w* GBVZi;a0H?`udbQoHEJjA.BȮ`2^y y=a:6-著8^$yz͍DZ;~@h+Xw f4aWZMG0wv5s+p5@'Ѹ֊fV"7`&EzE{!vjc#+'t*>% zٛ_޶*lJmtˁƊ|ީatR1.44KPzfs+,0?kI48M(QWI3Bvp#Rb\L>&lF SDGNr=ř.C}cjUgxu@G aI8T{CAFJ+M5ihʰ1PK&&WC`x_001_macro.mchashtable.sas]{sȖU=edf!;qmgnR{@HmP,$" L9[BOCݙfbZ_>}ޒZ;ju; vuݼf𰺻vw^`o߾eռ6xEkFc6D%>^r@KojoًcwgwzsuL̴M5Vq=sdIa7nZ>snJbDU :뎭_cUV՘ez>^OiWzLw&R5`~#nsF5h4aWL,ރ~@Nf2]Uan>qC68એEd@8|f<2utl,Ǯ8gALc456\SwXavus 5ԙ7}큁$8oV0)MrAL}ݝ><݉.Ms=o?ͫnVrjfn$k9k<[W٠;`t%:3]nTk<ђI΢1@ t fHȦm5FF`t@e|BCBd̨PI4?W Tvh+Qk KOh]^OhU!H6|!vXӼiuyR2@w9I`9! g:3Wxr-l M U_JK"1aF7{i#XĄnδw|Y-1 hbqwl\Rqk'Ǎ0G0o1 q g}לLGЃ_:"`]gB ^]𢡄]pffG$oVI2)c!7E%337Q rPy`ypa1lR,!OG>EP`YEKJ`:h.N{l4OpBCMD)ph c~)frUG3$c*9Xv~{w?n3[H;S@2)`@iG~Np+ V-ݝ%"@ԶoLQ4))D 3L=:xQ$Ck,38)$&쇿PnJlФhc1>2dIDؔ+-422Y4b3:[d70C^p(h#ԥSw轱ޠk'P4E9kSO ͎2Y.ɷrٙ 8 0dϛAJWa g{ 3al^}8{};ulxvJ3@M .L@mEk q4ɛ"^:;͆Vih<ׁĈ:Z6ǃhA@VN Yc_4|zSTUrO?[d]kzw#7"ԦkkG`"j;ab@`S]؄ wgL5p(Tg2Ic,{!G(f\ۺf0P 4Q  DTPˣ,{>D:Մ f=Tq EJmHH3v)FfܐKY]}@Z=^` Бe) )@ۛ. d >e!R^W$tXeS? K/j*.RUמT&jCO3=/* *\?˨nQÅARQI\t]-}Ss6LLVΫ+M1AOCm(83-|t޼+_DPR% )vd#YU=Reuk@"-St 9/#kg ^/O.hy g pUB}h5r{ F}^Az&xѬI%!q BSWj-gM1ɇ͚a0*;3i#?֟RA ~T͓PQ&v1ϐGdd&ljk N*uEv+ٷe]=h&y#A{ 2)i%*06IKILSM.<^s\⹹h4 C>gQw &-O鎸Kbq^}<-"CgT .# T81ORǦ_@+3$ oZЈiE5UZͬpd:I¯EuuRTR,DoSШIAJh cnIypD@Nl F,1b)<L ahlyg48 (IGy!yK"Aڟ%_Sg qse'Aw7 ?{Qkf"_sMnG.G>؞W |Fy3߃|2sip3l8WaR>qj;k>'C'NWμ`C9e'IV_wN/yۀGWm8y[x1w{^pϸkS8G|'փjf/U'5Hr3sKI\N=~cdX_AZ7*OVL n}z$ gx}%{;{xlL9c=<&_.n m/2ݝˏg7d;mݝ ٖ c ^oB?n.=eSPv<;edzsYv<;eGhIyeRyInVa3a).w[)^oŪpjjFKYA[F*:!]~JHֈb%BtjVb [Y؜1H鈑WN-)}6xVtb=I|7з2 -; J7+!X Tc pς6N'b{`OӋ^犂WVsάENhәPI -K@r/N2^b6VlR50B5ldnAYlk4jf%>G/A1fSK/H==:}?6A\:g\f$07*(#ʏvlwz |zݾV^8:O4WL5м NfxrCBQob-ЍZ_rlp-XSDž><1;G Nd"T8gG%?䇟oIf޽K6ZdS,ZgXH(#il _cf-T|]XPQH0Zp/ q|yy[:MX/S0^S8lq ZAFѶ&S3$e-Dm`+.YDkrϱb f|y|oaR Fx&c D   8"iԶaLV?qbf^A%}r]}띞_Ca 5 ! Gcl/8 r\QuzQ5y&Ŋͦt[кɍQ}ȕL.eB4w?߁5݂ԝ뾃g PRewn\.>^LA=Ľh8wf^}bSBzWP@M?|U9b͙М09IPr\]á4{.gY dG7 9^2f!g="ޑԊg āT&pMV͠#o`pɭqv$]Fma?vh!"*smx9h{ھpa(LqPK&&Wv+2 V._001_macro.qziparrays.sasZs'΀rW񔸴u4ci1 aB?ܿp{Eytj[1qk^s~YvFs f)-x`bƑ>8?;f$7sِ${uD>!س"._p/ 9O,))x|IR@-?x=qfB"=!MUDKaF ܆D $Z̵bEEF$/YhRƸuB~fTGQ bmC6 (}aĂTBP{ !)GǏ;`.63GX̑U74I g]pT`-|1 PÙ|֜Bb3i'u$q!r#H_n:N2Y.-5[8A!'9ZD FhWE>E>g'Ss&/Lr^(E oCNL`ś&#ENZCTitӬTj},C+p )0:M@_G!eKfq9F:fc$[$"ј|> ccCJD՞!g9_$l\T;V&]L./Pf(n E+<ꩭ: 6=b*5'1+8 q4W8 yRprҾ .Eb^yLE "Kz \ijG\xѬ+ҍHWs0:S] jڷ4V{ { _lɦɮ5Uc':Tbh*yguUr%#%?x@rfIDT,ЊsEEFgE[E#-SzfE%mLdPaVyD&mo`&0*m(C"X:nGT8Ek4X"~rBExTԄieK5ٻQ> ~& X'%P7%xVw*UX]TEn[7;uU5$O('C*jc9JC ~R[LOBӻnDwI.b- g.4&ȲQ% l-7D;\~>.Q#!=Ipn%k`S݁ ɛz7] $&t!{ןZ_^_ߠ!m(p ie8ǖ W y|[gjx;ZJ=phylKcW[ (ُ 1M[ 5:ꐹa< ӆi'5 5p{ى|e)"H悾]_[š(>KQ$nEʬA+g,ɀp=!BZʢl9fYz[9)4+'+t9xB:ʬHD[);p[%jUSZ&6k{E#(jUΏۺ!ڨӝ S5#s>nƦɸNN8}y"AoA]]QbjO]Z@`P6I$uᇟ)N[EuDٳuY\(;>?bɝkѥAz'\GPOϬ*@kB{C0UrZOy%\p-5I~ñNЧO){4M < EYj<|$ loWzNaSYI{aUa\5mǭw%V(ci$^' ~F*aUẉNWgkk)hP˜'&D[4XufA`a8ne:vW6숂؃r_,!V6gKҀEGO^ kdN=r# M4+[4(^5(dj7ǭJ|Mh X=B i;nc .WW0kM_NÛAW ) 2ScA1);_QX@P3Q%BL1 %8Y*/67gsoR/Ґ{|+N7,P6hX~_b;3cؙPK&&WV_001_macro.sortmacroarray.sasWko9 a(Zʰ"YD""*pMR} [v"9s) hotR!tK0D+拤!{;C Z j bq/CVzձk%V/@'TaӃqN0LA%x#+ 1] a 1@2ܱp%pO+o߼G5r㉚f!Nre0fJcPݕ꿹2 cL&SExRԏÚu䃳Q,HBVө_tjZ/]Sb-]nq*4&<YPN,3l5v G|2 b]LI_{yd%cdyDnCԴJe"Yb0L&1q>!Vx0hߴZޜ]{K\%"܅<leeyo\5N_vژF|?6I%5J2%bv)H|uQvEk=KXoZ.`沦l{?~B/f/)r/ td][%PE^[@r.x: ;l]~<}Z zCwܣtE O* Mo .E@nك4dF>TMNޓ%G6wd tB -vZi†}Nqz9{RM Qme4 ^dBl])}c&ʇמ#najVDX)J̭tXwіskeqm4+2 V s7yqW(XH(L=98̥?ҩEqCH=HTE 6> O}^ki2g 6e=14u%Erzv߬Bv ;.Ѿ68o?iN`OG4('ZS&.XM+ q[+|J,h^ov:dM7ۊKQo!ۦ.vMhJA5T6A. *[,tVUCpǻPK&&WtK39_001_macro.ziparrays.sas[S Ö\†$\ChK4 1h"Kw<BhR>yܘ*zXQ:awN@\t&_;wB·<  ™{BY8O=4W Jv\ jlmgu忋aHa9M{cA{d ƺ?v棓 /iG A֢SGTBױ 6(4;T2a(d~6q? ruB}$c H4'@Ftdlc BȩRQF3y52@*fLw7uw&B]֏LnVyEdS֙LPD4=mH\2:=`-O(3pe;!kS..tq!Ίzl-a!3h\\Hz% $P 87ڏ3ᴏf]ұ1ؼ*"E\@\x dLsd?ԕTҮ4+UXlPgck " 'P&7(J;+JU*SU0>#ʷ)3P*(n1(|nEY_]Ed\bBq8П.I}O> DIcVxRdVXJ`M,B)BVIߕ:L8{@S h!IƑp6n݀L-Բ@[۟_WmoWOsC]qpzv$԰.jc,iprX`LAԁV>cl8g4< NPbȷ`*.jǪMRH(O2Z|C'}ÉW#!; m0v;tݒ:s!#aHJ*.:U]z!k>RUޮv!zTS߬ğ+ U ju؝(g\r#ll<ߓ$bZ$98O$ (Ͽ[Vz^2yȍ*4J"OB[:X9Znwr=V0M hb b3Pn{f# \L]rn `Kƴ! `1z5h&ttndYLxQ-uVS?R'm\*bϡ RgXF% n]sh' ]86zǁ6@M`;''п쾻8_[ 52J\Jsxv/?kkw&A-tw YOV藂"8VMujX{q6-[3V\gcP'GP}-ޚPo3<`W2%v| eW8qOL.#ݥ7Q'G4,nNf.;F:aH{Љ&}k~jz=WXi:@i wM~|%sK੶}/yp||CpʚՄ/vghp<5W-jQP&T/6sM90;/AJ`1E &l63(W[;-~o9-l#-9Ap0upf!wL Zq<ΟʻV^})|Brm{ꊁ]oHKBi:ǢĢ] }>L!}$lyM9AD{H}T0aтP3~U1ŠW; yg@.n'1lgԶY*PkdU2XCxZEȱɱ#CW_Oۦ VJs,lʚ$jm8ښ35` ߼2K/Ԕccj5 bGH-iX?Zנ ~ѐxG:3y#[6r}/:űY0 ԓre\fsL-ܤ,epǼ6+؊R,'\]cw㈻HEZBjRjX^@l®Ŭ"y7F~(Q2wfJҏoi{]R2q 1>nI N\1mRbV@JC2G7)YB @mFw s\A?POf O8+PK%&W-|;j  description.sasPK%&W*riG  |license.sasPK%&W$ Apackagemetadata.sasPK&&W niceloadpackage.sasPK&&W5 rF P load.sasPK&&W& B  'lazydata.sasPK&&W N  unload.sasPK&&Wrk  npreview.sasPK&&W3m}% T#help.sasPK&&W  +_001_macro.appendarray.sasPK&&WhiP/{ 2/_001_macro.appendcell.sasPK&&WYJ>~hv 6_001_macro.array.sasPK&&W%U0 pS_001_macro.concatarrays.sasPK&&WvD2 Y_001_macro.deletemacarray.sasPK&&WPuU  __001_macro.do_over.sasPK&&Wx; ni_001_macro.do_over2.sasPK&&Wkʘv Do_001_macro.do_over3.sasPK&&WI̦ %u_001_macro.make_do_over.sasPK&&WAm] L|_001_macro.mcdictionary.sasPK&&WC`x _001_macro.mchashtable.sasPK&&Wv+2 V. W_001_macro.qziparrays.sasPK&&WV _001_macro.sortmacroarray.sasPK&&WtK39 _001_macro.ziparrays.sasPK]macroarray-1.2.3/hist/1.1.1/000077500000000000000000000000001452773550200152745ustar00rootroot00000000000000macroarray-1.2.3/hist/1.1.1/macroarray.md000066400000000000000000002115401452773550200177610ustar00rootroot00000000000000- [The macroArray package](#macroarray) - [Content description](#content-description) * [`%appendArray()` macro](#appendarray-macro) * [`%appendCell()` macro](#appendcell-macro) * [`%array()` macro](#array-macro) * [`%concatArrays()` macro](#concatarrays-macro) * [`%deleteMacArray()` macro](#deletemacarray-macro) * [`%do_over()` macro](#do-over-macro) * [`%do_over2()` macro](#do-over2-macro) * [`%do_over3()` macro](#do-over3-macro) * [`%make_do_over()` macro](#make-do-over-macro) * [`%mcHashTable()` macro](#mchashtable-macro) * [`%mcDictionary()` macro](#mcdictionary-macro) * [`%QzipArrays()` macro](#qziparrays-macro) * [`%zipArrays()` macro](#ziparrays-macro) * [`%sortMacroArray()` macro](#sortmacroarray-macro) * [License](#license) --- # The macroArray package [ver. 1.1.1] ############################################### The **macroArray** package implements a macro array facility: - `%array()`, - `%do_over()`, - `%make_do_over()`, - `%deletemacarray()`, - `%concatarrays()`, - `%appendcell()`, - `%mcHashTable()`, - `%zipArrays()`, - `%sortMacroArray()`, - `%mcDictionary()`, - etc. The set of macros, which emulates classic data-step-array functionality on the macro programming level, is provided. *Note:* If you are working with BIG macroarrays do not forget to verify your session setting for macro memory limits. Run: ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas proc options group = macro; run; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ to verify the following options: | option | description | |-------------:|:-----------------------------------------------------------------------------------------------| |`MEXECSIZE=` | specifies the maximum macro size that can be executed in memory. | |`MSYMTABMAX=` | specifies the maximum amount of memory available to the macro variable symbol table or tables. | |`MVARSIZE=` | specifies the maximum size for a macro variable that is stored in memory. | --- Package contains: 1. macro appendarray 2. macro appendcell 3. macro array 4. macro concatarrays 5. macro deletemacarray 6. macro do_over 7. macro do_over2 8. macro do_over3 9. macro make_do_over 10. macro mcdictionary 11. macro mchashtable 12. macro qziparrays 13. macro sortmacroarray 14. macro ziparrays Required SAS Components: *Base SAS Software* *SAS package generated by generatePackage, version 20230904* The SHA256 hash digest for package macroArray: `F*E9C0C58FB36AC40C76A518066B8C6F9942202A9DB2C2D737E95D2BB6E4ECED50` --- # Content description ############################################################################################ ## >>> `%appendArray()` macro: <<< ############ The `%appendArray()` macro is a macrowrapper which allows to concatenate two macroarrays created by `%array()` macro. By default values of the second macroarray are *not* removed. Dimensions of the first macroarray are extended. The `%appendArray()` macro executes like a pure macro code. ### SYNTAX: ##################################################################### The basic syntax is the following, the `<...>` means optional parameters: ~~~~~~~~~~~~~~~~~~~~~~~sas %appendArray( first ,second ) ~~~~~~~~~~~~~~~~~~~~~~~ **Arguments description**: 1. `first` - *Required*, a name of a macroarray created by the `%array()` macro. 2. `second` - *Required*, a name of a macroarray created by the `%array()` macro. ### EXAMPLES AND USECASES: ###################################################### **EXAMPLE 1.** Append macroarrays LL and MM. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(ll[2:4] $ 12, function = quote(put(today() + 10*_I_, yymmdd10.)), macarray=Y ) %array(mm[10:13] $ 1200, function = quote(repeat("A",12*_I_)), macarray=Y ) %put *%ll(2)*%ll(3)*%ll(4)*; %appendArray(ll, mm); %put *%ll(2)*%ll(3)*%ll(4)*%ll(5)*%ll(6)**%ll(7)*%ll(8)*; %put *%mm(10)**%mm(11)*%mm(12)*%mm(13)*; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 2.** Error handling. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %appendArray(ll, ) %appendArray(, mm) %appendArray(noExistA, noExistB) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ --- ## >>> `%appendCell()` macro: <<< ############## The `%appendCell()` macro allows to append a macrovariable to a macroarray created by the `%array()` macro. Dimensions of the macroarray are extended. The `%appendCell()` macro executes like a pure macro code. ### SYNTAX: #################################################################### The basic syntax is the following, the `<...>` means optional parameters: ~~~~~~~~~~~~~~~~~~~~~~~sas %appendCell( first ,second ,hilo ) ~~~~~~~~~~~~~~~~~~~~~~~ **Arguments description**: 1. `first` - *Required*, a name of a macroarray created by the `%array()` macro. 2. `second` - *Required*, a name of a macrovariable to be append to the macroarray. 3. `hilo` - *Required*, if `H` macrovariable is appended at the end if `L` macrovariable is appended at the beginning ); ### EXAMPLES AND USECASES: #################################################### **EXAMPLE 1.** Create two macro wrappers. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %* Macro wrapper to append a macrovariable to the end of a macroarray; %macro appendHC(array,cell); %appendCell(&array.,&cell.,H) %mend appendHC; %* macro wrapper to append a macrovariable to the beginning of a macroarray; %macro appendLC(array,cell); %appendCell(&array.,&cell.,L) %mend appendLC; %* create macroarrays X and variables W,Y,Z; %array(X[2:4] $ ("AAA", "BBB", "CCC"), macarray=Y) %let W=1; %let Y=2; %let Z=3; %put *%do_over(X)*&=W*&=Y*&=Z*; %put BEFORE *%do_over(X)**&=xLBOUND*&=xHBOUND*&=xN*; %appendCell(X,Y,H) %put AFTER1 *%do_over(X)**&=xLBOUND*&=xHBOUND*&=xN*; %appendLC(X,W) %put AFTER2 *%do_over(X)**&=xLBOUND*&=xHBOUND*&=xN*; %appendHC(X,Z) %put AFTER3 *%do_over(X)**&=xLBOUND*&=xHBOUND*&=xN*; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 2.** Error handling ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %appendCell(X,Y,blahblah) %appendCell(X,,H) %appendCell(,Y,H) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 3.** Adding variable below lower bound. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(zero[0:2] $ ("AAA", "BBB", "CCC"), macarray=Y) %let belowzero=zzz; %put BEFORE *%do_over(zero)**&=zeroLBOUND*&=zeroHBOUND*&=zeroN*; %appendCell(zero,belowzero,L) %put AFTER *%do_over(zero)**&=zeroLBOUND*&=zeroHBOUND*&=zeroN*; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ --- ## >>> `%array()` macro: <<< ####################### The code of a macro was inspired by *Ted Clay's* and *David Katz's* macro `%array()`. The `%array()` macro version provided in the package is designed to facilitate the idea of macro array concept, i.e. *a list of macrovariables with common prefix and numerical suffixes*. Usually such construction is then resolved by double ampersand syntax, e.g. `&&perfix&i` or similar one. What is new/extension to the `%array()` macro concept are: 0. The syntax is closer to the data step one. 1. It is a pure macro code (it can be executed in any place of 4GL code), this includes generating macro arrays out of datasets. 2. When a macroarrray is created it allows also to generate a new macro (named the same as the array name) and replace the double ampersand syntax with more array looking one, i.e. for array ABC user can have `%ABC(1)`, `%ABC(2)`, or `%ABC(&i)` constructions. 3. The array macro allows to use data step functions to generate array's entries. The `%array()` macro executes like a pure macro code. ### SYNTAX: ################################################################### The basic syntax is the following, the `<...>` means optional parameters: ~~~~~~~~~~~~~~~~~~~~~~~sas %array( array <,function=> <,before=> <,after=> <,vnames=N> <,macarray=N> <,ds=> <,vars=> <,q=> ) ~~~~~~~~~~~~~~~~~~~~~~~ **Arguments description**: 1. `array` - *Required*, an array name and a declaration/definition of an array,
e.g. `myArr[*] x1-x3 (4:6)`
or `myBrr[*] $ y1-y3 ("a" "b" "c")`
or `myCrr[3] $ ("d d d" "e,e,e" "f;f;f")`
or `myDrr p q r s`.
Macrovariables created by the macro are *global*. If an array name is `_` (single underscore) then attached variables list names are used, a call of the form: `%array(_[*] p1 q2 r3 s4 (-1 -2 -3 -4))` will create macrovariables: `p1`, `q2`, `r3`, and `s4` with respective values: `-1`, `-2`, `-3`, and `-4`.
Three additional *global* macrovariables: `LBOUND`, `HBOUND`, and `N` are generated with the macroarray. See examples for more use-cases. * `function=` - *Optional*, a function or an expression to be applied to all array cells, `_I_` is as array iterator, e.g. `_I_ + rand("uniform")`. * `before=` - *Optional*, a function or an expression to be added before looping through array, e.g. `call streaminit(123)`. * `after=` - *Optional*, a function or an expression to be added after looping through array, e.g. `call sortn(ABC)`. * `vnames=N` - *Optional*, default value `N`, if set to `Y`/`YES` then macroarray is built based on variables names instead values, e.g. `%array(myArr[*] x1-x3 (4:6), vnames=Y)` will use `x1`, `x2`, and `x3` as values instead `4`, `5`, and `6`. * `macarray=N` - *Optional*, default value `N`, if set to `Y`/`YES` then a macro, named with the array name, is compiled to create convenient envelope for multiple ampersands, e.g. `%array(myArr[*] x1-x3 (4:6), macarray=Y)` will create `%myArr(J)` macro which will allow to extract "data" from macroarray like: `%let x = %myArr(1);` or when used with second parameter equal `I` (insert) allow to overwrite macroarrays value: `%let %myArr(17,i) = 42;` If set to `M` then for a given array name the macro symbols table is scanned for macrovariables with prefix like the array name and numeric suffixes, then the minimum and the maximum index is determined and all not existing global macrovariables are created and a macro is generated in the same way as for the `Y` value. * `ds=` - *Optional*, use a dataset as a basis for a macroarray data, if used by default overwrites use of the `array` parameter, honors `macarray=` argument, dataset options are allowed, e.g. `sashelp.class(obs=5)` * `vars=` - *Optional*, a list of variables used to create macroarrays from a dataset, the list format can be as follows (`<...>` means optional): `variable1 <... variableN>` delimiters are hash(`#`) and pipe(`|`), currently only space is supported as separator, the meaning of `#` and `|` delimiters will be explained in the following example: if the `vars = height#h weight weight|w age|` value is provided then the following macroarrays will be created:
1) macroarray "H" with ALL(`#`) values of variable "height"
2) macroarray "WEIGHT" with ALL(no separator is equivalent to #) values of variable "weight"
3) macroarray "W" with UNIQUE(|) values of variable "weight" and
4) macroarray "AGE" with UNIQUE(|) values of variable "age". * `q=` - *Optional*, indicates (when set to `1`) if the value be surrounded by quotes. It uses `quote(cats(...))` combo under the hood. Default value is `0`. Ignored for `macarray=M`. --- ### EXAMPLES AND USECASES: #################################################### **EXAMPLE 1.** Basic use-case. Creating macroarray like in the array statement. Values not variables names are used by default. Different types of brackets are allowed. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(a[*] x1-x5 (1:5)) %array(b{5} (5*17), q=1) %* Mind the $ since it is a character array!; %array(c(3) $ 10 ("a A" "b,B" "c;C")) %array(d x1-x5 (5 4 3 2 1)) %put _user_; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 2.** Index ranges. If range starts < 0 then it is shifted to 0. In case when range is from `1` to `M` then macrovariable `N` is set to `M` In case when range is different the `N` returns number of elements in the array `(Hbound - Lbound + 1)`. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(d[-2:2] $ ("a" "b" "c" "d" "e")) %put &=dLBOUND. &=dHBOUND. &=dN.; %put &=d0. &=d1. &=d2. &=d3. &=d4.; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 3.** Functions. It is possible to assign value of a function or an expression to a cell of the array, e.g. `array[_I_] = function(...)`. You can use an iterator in a function. As in case of usual arrays it is `_I_`. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(e[-3:3] $, function = "A" ) %put &=eLBOUND. &=eHBOUND. &=eN.; %put &=e0. &=e1. &=e2. &=e3. &=e4. &=e5. &=e6.; %array(f[-3:3], function = (2**_I_) ) %put &=fLBOUND. &=fHBOUND. &=fN.; %put &=f0. &=f1. &=f2. &=f3. &=f4. &=f5. &=f6.; %array(g[0:2], function = ranuni(123) ) %put &=gLBOUND. &=gHBOUND. &=gN.; %put &=g0. &=g1. &=g2.; %* Or something more complex; %array(gg[0:11] $ 11, function = put(intnx("MONTH", '1jun2018'd, _I_, "E"), yymmn.), q=1) %put &=ggLBOUND. &=ggHBOUND. &=ggN.; %put &=gg0 &=gg1 &=gg2 ... &=gg11; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 4.** Functions cont. If there is need for set-up something *before* or *after*: ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(h[10:12] ,function = rand('Uniform') ,before = call streaminit(123) ,after = call sortn(of h[*]) ) %put &=h10. &=h11. &=h12.; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 5.** Fibonacci series. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(i[1:10] (10*0) ,function = ifn(_I_ < 2, 1, sum(i[max(_I_-2,1)], i[max(_I_-1,2)]) ) ) %put &=i1 &=i2 &=i3 &=i4 &=i5 &=i6 &=i7 &=i8 &=i9 &=i10; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 6a.** Quoted "Uppercas Letters" ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(UL[26] $, function = byte(rank("A")+_I_-1) , q=1) %put &=UL1 &=UL2 ... &=UL25 &=UL26; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 6b.** "Lowercase Letters" Extended by `macarray=Y` option and the input mode support (with `I`). ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(ll[26] $, function = byte(rank("a")+_I_-1), macarray=Y) %put *%ll(&llLBOUND.)*%ll(3)*%ll(4)*%ll(5)*...*%ll(25)*%ll(&llHBOUND.)*; %* The range handling, warning; %put *%ll(265)*; %* The input mode; %put *before:*%ll(2)*; %let %ll(2,I) = bbbbb; %put *after: *%ll(2)*; %* The range handling, error; %let %ll(265,I) = bbb; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 7.** The use of `vnames=Y` ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(R R1978-R1982) %put &=R1 &=R2 &=R3 &=R4 &=R5; %array(R R1978-R1982 (78:82)) %put &=R1 &=R2 &=R3 &=R4 &=R5; %array(R R1978-R1982 (78:82), vnames=Y) %put &=R1 &=R2 &=R3 &=R4 &=R5; %array(R R1978-R1982, vnames=Y) %put &=R1 &=R2 &=R3 &=R4 &=R5; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 8.** A "no name" array i.e. the `_[*]` array ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(_[*] x1-x5 (1:5)) %put _user_; %array(_[*] p q r s (4*42)) %put _user_; %* If no variables names than use _1 _2 ... _N; %array(_[4] (-1 -2 -3 -4)) %put &=_1 &=_2 &=_3 &=_4; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 9.** Pure macro code can be used in a data step. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas data test1; set sashelp.class; %array(ds[*] d1-d4 (4*17)) a1 = &ds1.; a2 = &ds2.; a3 = &ds3.; a4 = &ds4.; run; data test2; set sashelp.class; %array(_[*] j k l m (4*17)) a1 = &j.; a2 = &k.; a3 = &l.; a4 = &m.; run; data test3; set sashelp.class; %array(alpha[*] j k l m (101 102 103 104), macarray=Y) a1 = %alpha(1); a2 = %alpha(2); a3 = %alpha(3); a4 = %alpha(4); a5 = %alpha(555); run; data test4; set sashelp.class; %array(beta[*] j k l m (101 102 103 104), vnames=Y, macarray=Y) a1 = "%beta(1)"; a2 = "%beta(2)"; a3 = "%beta(3)"; a4 = "%beta(4)"; a5 = "%beta(555)"; run; data test5; set sashelp.class; %array(gamma[4] $ 12 ("101" "102" "103" "104"), macarray=Y) a1 = "%gamma(1)"; a2 = "%gamma(2)"; a3 = "%gamma(3)"; a4 = "%gamma(4)"; a5 = "%gamma(555)"; run; data test6; set sashelp.class; %array(ds = sashelp.cars, vars = Cylinders|, macarray=Y) a0 = %Cylinders(0); a1 = %Cylinders(1); a2 = %Cylinders(2); a3 = %Cylinders(3); a4 = %Cylinders(4); a5 = %Cylinders(555); run; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 10.** Creating an array from a dataset, basic case. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(ds = sashelp.class, vars = height weight age) %put _user_; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 11. Creating an array from a dataset, advanced. If: `vars = height#h weight weight|w age|` then create: 1. macroarray "h" with ALL(#) values of variable "height" 2. macroarray "weight" with ALL(no separator is equivalent to #) values of variable "weight" 3. macroarray "w" with UNIQUE(|) values of variable "weight" 4. macroarray "age" with UNIQUE(|) values of variable "age" Currently the only separator in VARS is a space. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(ds = sashelp.class, vars = height#h weight weight|w age|, q=1) %put _user_; %array(ds = sashelp.class, vars = height#hght weight weight|wght age|, macarray=Y, q=1) %put *%hght(&hghtLBOUND.)**%weight(2)**%wght(&wghtHBOUND.)**%age(3)*; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 12.** Creating an array from a dataset with dataset options ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(ds = sashelp.cars(obs=100 where=(Cylinders=6)), vars = Make| Type| Model, macarray=Y) %put *%make(&makeLBOUND.)*%Model(2)*%Model(3)*%Model(4)*%type(&typeHBOUND.)*; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 13.** Creating an array and macro from existing list of macrovariables ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %let myTest3 = 13; %let myTest6 = 16; %let myTest9 = 19; %array(myTest, macarray=M, q=1) %do_over(myTest, phrase = %nrstr(%put *&_I_.*%myTest(&_I_.)*;)) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ --- ## >>> `%concatArrays()` macro: <<< ########### The `%concatArrays()` macro allows to concatenate two macroarrays created by the `%array()` macro. By default values of the second macroarray are removed. Dimensions of the first macroarray are extended. The `%concatArrays()` macro executes like a pure macro code. ### SYNTAX: ##################################################################### The basic syntax is the following, the `<...>` means optional parameters: ~~~~~~~~~~~~~~~~~~~~~~~sas %concatArrays( first ,second <,removeSecond=Y> ) ~~~~~~~~~~~~~~~~~~~~~~~ **Arguments description**: 1. `first` - *Required*, a name of a macroarray created by the `%array()` macro. 2. `second` - *Required*, a name of a macroarray created by the `%array()` macro. * `removeSecond=Y` - *Optional*, default value `Y`, if set to `Y` then the second array is removed. ### EXAMPLES AND USECASES: #################################################### **EXAMPLE 1.** Concatenate macroarrays LL and MM. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(ll[2:4] $ 12, function = quote(put(today() + 10*_I_, yymmdd10.)), macarray=Y ) %array(mm[10:13] $ 12000, function = quote(repeat("A",123*_I_)), macarray=Y ) %put *%ll(2)*%ll(3)*%ll(4)*; %concatArrays(ll, mm); %put *%ll(2)*%ll(3)*%ll(4)*%ll(5)*%ll(6)**%ll(7)*%ll(8)*; %put *%mm(10)**%mm(11)*%mm(12)*%mm(13)*; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 2.** Error handling. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %concatArrays(ll, ) %concatArrays(, mm) %concatArrays(noExistA, noExistB) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ --- ## >>> `%deleteMacArray()` macro: <<< ####### The `%deleteMacArray()` macro allows to delete macroarrays created by the `%array()` macro. The `%deleteMacArray()` macro executes like a pure macro code. ### SYNTAX: ##################################################################### The basic syntax is the following, the `<...>` means optional parameters: ~~~~~~~~~~~~~~~~~~~~~~~sas %deleteMacArray( arrs <,macarray=N> ) ~~~~~~~~~~~~~~~~~~~~~~~ **Arguments description**: 1. `arrs` - *Required*, a space separated list of manes of macroarray created by the `%array()` macro. * `macarray=N` - *Optional*, indicator should a macro associated with macroarray to be deleted? If `Y` or `YES` then the associated macro is deleted. ## >>> `%do_over()` macro: <<< ###################### The code of the macro was inspired by *Ted Clay's* and *David Katz's* macro `%do_over()`. The `%DO_OVER()` macro allows to iterate over macroarray created with the `macarray=Y` parameter of the `%ARRAY()` macro. The `%do_over()` macro executes like a pure macro code. ### SYNTAX: ##################################################################### The basic syntax is the following, the `<...>` means optional parameters: ~~~~~~~~~~~~~~~~~~~~~~~sas %do_over( array <,phrase=%nrstr(%&array(&_I_.))> <,between=%str( )> <,which = > ) ~~~~~~~~~~~~~~~~~~~~~~~ **Arguments description**: 1. `array` - *Required*, indicates a macroarray which metadata (Lbound, Hbouns) are to be used to loop in the `%do_over()` * `phrase=` - *Optional*, Default value `%nrstr(%&array(&_I_.))`, a statement to be called in each iteration of the internal do_over's loop. Loop iterator is `_I_`, if you want to use `_I_` or array name [e.g. `%myArr(&_I_.)`] *enclose it* in the `%NRSTR()` macro quoting function. * `between=` - *Optional*, default value `%str( )` (space), a statement to be called in between each iteration of the internal do_over loop. If macroquoted (e.g. `%str( + )`) then the `%unquote()` function is automatically applied. * `which=` - *Optional*, a _SPACE_ separated list of indexes which should be used to iterate over selected macroarray. Possible special characters are `H` and `L` which means *high* and *low* bound of an array, list could be set with colons(`:`) in form of `start:end:by` (*no spaces between!*), if `by` is omitted the default is `1`. If possible use `1:5` rather `1 2 3 4 5` since the firs works faster. ### EXAMPLES AND USECASES: #################################################### **EXAMPLE 1.** Simple looping. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(beta[*] j k l m (101 102 103 104), vnames=Y, macarray=Y) %put #%do_over(beta)#; %put #%do_over(beta, phrase=%nrstr("%beta(&_I_.)"), between=%str(,))#; data test1; %array(beta[*] j k l m (101 102 103 104), vnames=Y, macarray=Y) %do_over(beta, phrase=%nrstr(a&_I_. = "%beta(&_I_.)";)) put _all_; run; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 2.** Multiple arrays looping. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(alpha[*] j k l m n, vnames=Y, macarray=Y) %array( beta[5] $ , function = "a", macarray=Y) %array(gamma[4] (101 102 103 104), macarray=Y) data test2; call streaminit(123); %do_over(beta , phrase = %nrstr(%beta(&_I_.) = %gamma(&_I_.) * rand('Uniform'); output;) , between = put _all_; ); put _all_; run; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 3.** Multiple arrays looping, cont. Create multiple datasets. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %do_over(beta , phrase = %nrstr( data %alpha(&_I_.)2; call streaminit(123); %beta(&_I_.)x = %gamma(&_I_.) * rand('Uniform'); output; run; ) ) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 4.** Multiple arrays looping, cont. Create multiple datasets using a macro. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %macro doit(ds, var=a, val=1); data &ds.; call streaminit(123); &var. = &val. * rand('Uniform'); output; run; %mend doit; %do_over(beta , phrase = %nrstr( %DOIT(%alpha(&_I_.)1, var = %beta(&_I_.), val = %gamma(&_I_.)) ) ) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 5.** `%do_over()` inside `%array()` ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(test[*] x1-x12 (1:12), macarray=Y) %put **%test(1)**%test(12)**; %put #%do_over(test)#; %array(abc[*] x1-x12 (%do_over(test,phrase=%nrstr(%eval(100-%test(&_I_.))))), macarray=Y) %put **%abc(1)**%abc(12)**; %put #%do_over(abc)#; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 6.** Looping over array with *macroquoted* separator. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(alpha[11] (5:15), macarray=Y) %let x = %do_over(alpha , phrase = %NRSTR(%alpha(&_I_.)) , between= %str( + ) ); %put &=x.; %put %sysevalf(&x.); ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 7.** Working with the `WHICH=` optional parameter ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(test[*] x01-x12, vnames= Y, macarray=Y) %put #%do_over(test)#; %put #%do_over(test, which= 1 3 5)#; %put #%do_over(test, which= 1:5)#; %put #%do_over(test, which= 1:5:2 7 8)#; %put #%do_over(test, which= L:H l:h)#; %put #%do_over(test, which= L:3 10:h)#; %put #%do_over(test, which= L:H h:l:-1 13 14)#; %put #%do_over(test, which= %eval(1+1):%eval(5+1))#; %put #%do_over(test, which= L:H h:l:-1 13 14, between=%str(,))#; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ --- ## >>> `%do_over2()` macro: <<< #################### The code of the macro was inspired by *Ted Clay's* and *David Katz's* macro `%do_over()`. The `%DO_OVER2()` macro allows to iterate over *two* macroarray created with the `macarray=Y` parameter of the `%ARRAY()` macro. The `%do_over2()` macro executes like a pure macro code. ### SYNTAX: ##################################################################### The basic syntax is the following, the `<...>` means optional parameters: ~~~~~~~~~~~~~~~~~~~~~~~sas %do_over2( arrayI ,arrayJ <,phrase=%nrstr(%&arrayI(&_I_.) %&arrayJ(&_J_.))> <,between=%str( )> ) ~~~~~~~~~~~~~~~~~~~~~~~ **Arguments description**: 1. `arrayI` - Required, indicates the first macroarray which metadata (Lbound, Hbouns) are to be used in the outer loop in the `%do_over2()` 2. `arrayJ` - Required, indicates the second macroarray which metadata (Lbound, Hbouns) are to be used in the inner loop in the `%do_over2()` * `phrase=` - *Optional*, default value `%nrstr(%&arrayI(&_I_.) %&arrayJ(&_J_.))`, a statement to be called in each iteration of the *inner* loop. The outer loop iterator is `_I_`, the inner loop iterator is `_J_`, if you want to use `_I_`, `_J_`, or arrays names [e.g. `%myArr(&_I_.)`] *enclose them* in the `%NRSTR()` macro quoting function. * `between=` - *Optional*, default value `%str( )` (space), a statement to be called in between each iteration of the internal do_over2 loop. If macroquoted (e.g. `%str( + )`) then the `%unquote()` function is automatically applied. ### EXAMPLES AND USECASES: #################################################### **EXAMPLE 1.** Looping over two arrays. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(alpha[*] j k l m n, vnames=Y, macarray=Y) %array( beta[4] (101 102 103 104), macarray=Y) %put *%do_over2(alpha, beta , phrase = %NRSTR((%alpha(&_I_.), %beta(&_J_))) )*; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 2.** Looping over two arrays with a separator. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(alpha[11] (5:15), macarray=Y) %array( beta[ 4] (101 102 103 104), macarray=Y) %let x = %do_over2(alpha, beta , phrase = %NRSTR((%alpha(&_I_.) * %beta(&_J_))) , between= + ); %put &=x.; %put %sysevalf(&x.); ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 3.** Looping over two arrays with *macroquoted* separator. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(alpha[11] (5:15), macarray=Y) %array( beta[ 4] (101 102 103 104), macarray=Y) %let x = %do_over2(alpha, beta , phrase = %NRSTR((%alpha(&_I_.) * %beta(&_J_))) , between= %str( + ) ); %put &=x.; %put %sysevalf(&x.); ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ --- ## >>> `%do_over3()` macro: <<< #################### The code of the macro was inspired by *Ted Clay's* and *David Katz's* macro `%do_over()`. The `%DO_OVER3()` macro allows to iterate over *three* macroarray created with the `macarray=Y` parameter of the `%ARRAY()` macro. The `%do_over3()` macro executes like a pure macro code. ### SYNTAX: ##################################################################### The basic syntax is the following, the `<...>` means optional parameters: ~~~~~~~~~~~~~~~~~~~~~~~sas %do_over2( arrayI ,arrayJ ,arrayK <,phrase=%nrstr(%&arrayI(&_I_.) %&arrayJ(&_J_.) %&arrayK(&_K_.))> <,between=%str( )> ) ~~~~~~~~~~~~~~~~~~~~~~~ **Arguments description**: 1. `arrayI` - *Required*, indicates the first macroarray which metadata (Lbound, Hbouns) are to be used in the outer loop in the `%do_over3()` 2. `arrayJ` - *Required*, indicates the second macroarray which metadata (Lbound, Hbouns) are to be used in the inner loop in the `%do_over3()` 3. `arrayK` - *Required*, indicates the third macroarray which metadata (Lbound, Hbouns) are to be used in the inner loop in the `%do_over3()` * `phrase=` - *Optional*, default value `%nrstr(%&arrayI(&_I_.) %&arrayJ(&_J_.) %&arrayK(&_K_.))`, a statement to be called in each iteration of the *inner* loop. The *outer* loop iterator is `_I_`, the *middle* loop iterator is `_J_`, the *inner* loop iterator is `_K_`, if you want to use `_I_`, `_J_`, `_K_`, or arrays names [e.g. `%myArr(&_I_.)`] *enclose them* in the `%NRSTR()` macro quoting function. * `between=` - *Optional*, default value `%str( )` (space), a statement to be called in between each iteration of the internal do_over2 loop. If macroquoted (e.g. `%str( + )`) then the `%unquote()` function is automatically applied. ### EXAMPLES AND USECASES: #################################################### **EXAMPLE 1.** Looping over 3 macroarrays. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(a1_[2] (0 1), macarray=Y) %array(a2_[2] (2 3), macarray=Y) %array(a3_[2] (4 5), macarray=Y) %do_over3(a1_, a2_, a3_ , phrase = %NRSTR(%put (%a1_(&_I_.), %a2_(&_J_), %a3_(&_K_));) ) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 2.** Looping 3 times over a macroarray. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(a[0:2] (0 1 2), macarray=Y) %do_over3(a, a, a , phrase = %NRSTR(%put (%a(&_I_.), %a(&_J_), %a(&_K_));) ) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ --- ## >>> `%make_do_over()` macro: <<< ########### The code of the macro was inspired by *Ted Clay's* and *David Katz's* macro `%do_over()`. The `%make_do_over()` macro allows to generate the `%DO_OVER()` macros. It works *only* for *n>3*! The `%make_do_over()` macro does *not* executes like a pure macro code. ### SYNTAX: ##################################################################### The basic syntax is the following, the `<...>` means optional parameters: ~~~~~~~~~~~~~~~~~~~~~~~sas %make_do_over( size ) ~~~~~~~~~~~~~~~~~~~~~~~ **Arguments description**: 1. `size` - *Required*, indicates the number of dimensions (i.e. inner loops) of the `%DO_OVER()` macro. ### EXAMPLES AND USECASES: #################################################### **EXAMPLE 1.** Code of created "4-loop" `%DO_OVER4()` macro ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %macro do_over4( arrayI1, arrayI2, arrayI3, arrayI4, phrase=%nrstr( %&arrayI1(&_I1_.) %&arrayI2(&_I2_.) %&arrayI3(&_I3_.) %&arrayI3(&_I4_.) ), between=%str( ) ); %local _I1_ _I2_ _I3_ _I4_; %do _I1_ = &&&arrayI1.LBOUND %to &&&arrayI1.HBOUND; %do _I2_ = &&&arrayI2.LBOUND %to &&&arrayI2.HBOUND; %do _I3_ = &&&arrayI3.LBOUND %to &&&arrayI3.HBOUND; %do _I4_ = &&&arrayI4.LBOUND %to &&&arrayI4.HBOUND; %if not ( &_I1_. = &&&arrayI1.LBOUND AND &_I2_. = &&&arrayI2.LBOUND AND &_I3_. = &&&arrayI3.LBOUND AND &_I4_. = &&&arrayI4.LBOUND ) %then %do;%unquote(&between.)%end;%unquote(%unquote(&phrase.)) %end; %end; %end; %end; %mend do_over4; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 2.** Create a "4-loop" `%DO_OVER4()` macro ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %make_do_over(4); %array(a1_[2] (0 1), macarray=Y) %do_over4(a1_, a1_, a1_, a1_ , phrase = %NRSTR(%put (%a1_(&_I1_.), %a1_(&_I2_), %a1_(&_I3_), %a1_(&_I4_));) ) %put *%do_over4(a1_, a1_, a1_, a1_ , between = * )*; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 3.** Create a "5-loop" `%DO_OVER5()` macro ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %make_do_over(5); %array(a1_[2] (0 1), macarray=Y) %do_over5(a1_, a1_, a1_, a1_, a1_ , phrase = %NRSTR(%put (%a1_(&_I1_.), %a1_(&_I2_), %a1_(&_I3_), %a1_(&_I4_), %a1_(&_I5_));) ) %put *%do_over5(a1_, a1_, a1_, a1_, a1_ , between = * )* ; options nomprint; data test2; %do_over5(a1_, a1_, a1_, a1_, a1_ , phrase = %NRSTR(x1 = %a1_(&_I1_.); x2 = %a1_(&_I2_); x3 = %a1_(&_I3_); x4 = %a1_(&_I4_); x5 = %a1_(&_I5_);) , between = output; ) output; run; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 4.** Create all from 6 to 10 "do_overs" ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(loop[6:10] (6:10), macarray=Y) %do_over(loop , phrase = %nrstr( %make_do_over(%loop(&_I_.)) ) ); ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ --- ## >>> `%mcHashTable()` macro: <<< ####################### The `%mcHashTable()` macro provided in the package is designed to facilitate the idea of a "macro hash table" concept, i.e. *a list of macrovariables with common prefix and suffixes generated as a hash digest* which allows to use values other than integers as indexes. The `%mcHashTable()` macro allows to generate other macros which behaves like hash tables or dictionaries. See examples below. The `%mcHashTable()` macro executes like a pure macro code. ### SYNTAX: ################################################################### The basic syntax is the following, the `<...>` means optional parameters: ~~~~~~~~~~~~~~~~~~~~~~~sas %mcHashTable( H <,METHOD> <,HASH=> ) ~~~~~~~~~~~~~~~~~~~~~~~ **Arguments description**: 1. `H` - *Required*, a hash table macro name and a declaration/definition, e.g. `mcHashTable(HT)`. It names a macro which is generated by the `%mcHashTable()` macro. Provided name cannot be empty or an underscore (`_`). No longer than *16* characters. 2. `METHOD` - *Optional*, if empty (or DECLARE or DCL) then the code of a macro hash table is compiled. If `DELETE` then the macro hash table named by `H` and all macrovariables named like "`&H._`" are deleted. * `HASH=` - *Optional*, indicates which hashing algorithms should be used, available values are `CRC32` or `MD5`, the `CRC32` is the default. --- ### THE CREATED MACRO `%&H.()`: #################################################### The created macro imitates behaviour of a hash table or a dictionary. It is *not* dedicated for "long-ish" lists (above 1000 elements) since the performance may be poor. The basic syntax is the following, the `<...>` means optional parameters: ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %&H.( METHOD <,KEY=> <,DATA=> ) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **Arguments description**: 1. `METHOD` - *Required*, indicate what behaviour should be executed. Allowed values are: - `ADD`, adds key and data portion to the macro hash table, *multiple data portions* are available for one key. - `FIND`, tests if given key exists in the macro hash table and, if yes, returns data value associated with the key. For multiple data portions see the `data=` parameter. - `DP` (data portion) or `CHECK`, returns the number of data portions for a given key. - `CLEAR` removes all data and keys values. - `KEYIDX`, allows to get data by the key index rather than value. - `KEYVAL`, returns key value for a given key index. - `CHECKIDX`, returns the number of data portions for a given key index. * `KEY=` - *Optional*, provides key value for `ADD`, `FIND`,`DP`, `CHECK` `CHECKIDX`, `KEYIDX`, and `KEYVAL` methods. Leading and trimming spaces are removed from the value. The `hashing(CRC32,...)` function or the `MD5(...)` function is used to generate the hash. * `DATA=` - *Optional*, provides data value for the `ADD` method and for the`FIND` method provides data portion number to be extracted. Default value is `1` (used by the `FIND` method). When macro is executed and when data are added the following types of *global* macrovariables are created: - `&H._########`, - `&H._########_Xk`, - `&H._########_Xi`, - `&H._########_Xi_j`, - `&H._KEYNUM`, - and `&H._KEY_i`. The `#` represents value generated by the `hashing(CRC32,...)` function or the `MD5(...)` function for the given key. The first type keeps information about possible collision for the key. The second type keeps information about value of a given key, the `X` keeps the track of other colliding keys. The third type keeps information about number of data portions for given key, the `X` keeps the track of other colliding keys. The fourth type keeps the data portion, the `j` indicates data portion number. The fifth type keeps the number of unique values of the key. The sixth type keeps the list of unique values of the key, the `i` indicates key number. See examples below to see use cases. --- ### EXAMPLES AND USECASES: #################################################### **EXAMPLE 1.** Basic use-case. Creating macro hash table, macro `HT` is generated. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %mcHashTable(HT) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Add elements to the `HT`. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %HT(ADD,key=x,data=17) %HT(ADD,key=y,data=42) %HT(ADD,key=z,data=303) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Add some duplicates for the key x. See macrovariables created. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %HT(ADD,key=x,data=18) %HT(ADD,key=x,data=19) %put _user_; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Check the number od data portions in macrohash for the key `x` and non existing key `t`. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %put ##%HT(DP,key=x)##; %put ##%HT(DP,key=t)##; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Check the number od data portions in macrohash for the key index 1 and 4. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %put ##%HT(CHECKIDX,key=1)##; %put ##%HT(CHECKIDX,key=4)##; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Prints first data values for various keys. Key `t` does not exist in the macrohash. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %put #%HT(FIND,key=x)#; %put #%HT(FIND,key=y)#; %put #%HT(FIND,key=z)#; %put #%HT(FIND,key=t)#; %put #%HT(FIND,key=x,data=2)#; %put #%HT(FIND,key=x,data=3)#; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Print first and subsequent data values for a given KeyIDX. Index `4` does not exist. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %put #%HT(KEYIDX,key=1)#; %put #%HT(KEYIDX,key=2)#; %put #%HT(KEYIDX,key=3)#; %put #%HT(KEYIDX,key=4)#; %put #%HT(KEYIDX,key=1,data=2)#; %put #%HT(KEYIDX,key=1,data=3)#; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Print the key values for a given KeyIDX. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %put #%HT(KEYVAL,key=1)#; %put #%HT(KEYVAL,key=2)#; %put #%HT(KEYVAL,key=3)#; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Clear and delete macro hash table `HT`. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %HT(CLEAR) %mcHashTable(HT,DELETE) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 2.** Combine `CHECK` and `FIND` methods with macros `%array()` and `%do_over()` ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %mcHashTable(H) %H(ADD,key=x,data=17) %H(ADD,key=x,data=18) %H(ADD,key=x,data=19) %array(A[%H(CHECK,key=x)]); %put %do_over(A, phrase=%nrstr( %H(FIND,key=x,data=&_i_) ), between = %str(,)); %mcHashTable(H,delete) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 3.** Populate macro hash table from a dataset. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %mcHashTable(CLASS) %let t = %sysfunc(datetime()); data _null_; set sashelp.class; call execute('%CLASS(ADD,key=' !! name !! ',data=' !! age !! ')'); call execute('%CLASS(ADD,key=' !! name !! ',data=' !! weight !! ')'); call execute('%CLASS(ADD,key=' !! name !! ',data=' !! height !! ')'); run; %put t = %sysevalf(%sysfunc(datetime()) - &t.); %put _user_; %CLASS(CLEAR) %mcHashTable(CARS) %let t = %sysfunc(datetime()); data _null_; set sashelp.cars; call execute('%CARS(ADD,key=' !! catx("|",make,model) !! ',data=' !! MPG_CITY !! ')'); run; %put t = %sysevalf(%sysfunc(datetime()) - &t.); %* %put _user_; %CARS(CLEAR) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 4.** Data portion may require quoting and un-quoting.. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %mcHashTable(CODE) %CODE(CLEAR) %CODE(ADD,key=data, data=%str(data test; x = 42; run;)) %CODE(ADD,key=proc, data=%str(proc print; run;)) %CODE(ADD,key=macro,data=%nrstr(%put *****;)) %CODE(FIND,key=data) %CODE(FIND,key=proc) %unquote(%CODE(FIND,key=macro)) %mcHashTable(CODE,DELETE) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 5.** Longer lists. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %let size = 1000; %mcHashTable(AAA) %mcHashTable(BBB) %mcHashTable(CCC) %mcHashTable(DDD) %let t = %sysfunc(datetime()); data _null_; do i = 1 to &size.; call execute(cats('%AAA(ADD,key=A', i, ',data=', i, ')')); end; run; %put t = %sysevalf(%sysfunc(datetime()) - &t.); %put &=AAA_KEYSNUM; %AAA(CLEAR) %let t = %sysfunc(datetime()); data _null_; do i = 1 to &size.; call execute(cats('%BBB(ADD,key=B', i, ',data=', i, ')')); call execute(cats('%BBB(ADD,key=B', i, ',data=', i+1, ')')); end; run; %put t = %sysevalf(%sysfunc(datetime()) - &t.); %put &=BBB_KEYSNUM; %BBB(CLEAR) %let t = %sysfunc(datetime()); data _null_; t= datetime(); do i = 1 to &size.; call execute(cats('%CCC(ADD,key=C', i, ',data=', i, ')')); end; t = datetime() - t; put t=; t= datetime(); do i = 1 to &size.; call execute(cats('%CCC(ADD,key=C', i, ',data=', i+1, ')')); end; t = datetime() - t; put t=; run; %put t = %sysevalf(%sysfunc(datetime()) - &t.); %let t = %sysfunc(datetime()); data test; do i = 1 to &size.; x = resolve(cats('%CCC(FIND,key=C', i, ',data=1)')); y = resolve(cats('%CCC(FIND,key=C', i, ',data=2)')); output; end; run; %put t = %sysevalf(%sysfunc(datetime()) - &t.); %put &=CCC_KEYSNUM; %CCC(CLEAR) %let t = %sysfunc(datetime()); data _null_; do i = 1 to &size.; call execute(cats('%DDD(ADD,key=D,data=', i, ')')); end; run; %put t = %sysevalf(%sysfunc(datetime()) - &t.); %put &=DDD_KEYSNUM; %put %DDD(CHECK,key=D); %DDD(CLEAR) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 6.** Forbidden names. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %mcHashTable() %mcHashTable(_) %mcHashTable(ABCDEFGHIJKLMNOPQ) %* bad; %mcHashTable(ABCDEFGHIJKLMNOP) %* good; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 7.** Hashing algorithms. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %mcHashTable(H1,DCL,HASH=MD5) %mcHashTable(H2,DECLARE,HASH=CRC32) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ --- ## >>> `%mcDictionary()` macro: <<< ####################### The `%mcDictionary()` macro provided in the package is designed to facilitate the idea of a "macro dictionary" concept, i.e. *a list of macrovariables with common prefix and suffixes generated as a hash digest* which allows to use values other than integers as indexes. The `%mcDictionary()` macro allows to generate other macros which behaves like a dictionary. See examples below. The `%mcDictionary()` macro executes like a pure macro code. ### SYNTAX: ################################################################### The basic syntax is the following, the `<...>` means optional parameters: ~~~~~~~~~~~~~~~~~~~~~~~sas %mcDictionary( H <,METHOD> ) ~~~~~~~~~~~~~~~~~~~~~~~ **Arguments description**: 1. `H` - *Required*, a dictionary macro name and a declaration/definition, e.g. `mcDictionary(HT)`. It names a macro which is generated by the `%mcDictionary()` macro. Provided name cannot be empty or an underscore (`_`). No longer than *16* characters. 2. `METHOD` - *Optional*, if empty (or DECLARE or DCL) then the code of a macro dictionary is compiled. If `DELETE` then the macro dictionary named by `H` and all macrovariables named like "`&H._`" are deleted. --- ### THE CREATED MACRO `%&H.()`: #################################################### The created macro imitates behaviour of a dictionary. The basic syntax is the following, the `<...>` means optional parameters: ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %&H.( METHOD <,KEY=> <,DATA=> ) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **Arguments description**: 1. `METHOD` - *Required*, indicate what behaviour should be executed. Allowed values are: - `ADD`, adds key and data portion to the macro dictionary, *multiple data portions* are NOT available for one key. - `FIND`, tests if given key exists in the macro dictionary and, if yes, returns data value associated with the key. For multiple data portions see the `data=` parameter. - `CHECK`, returns indicator if the key exists in dictionary. - `DEL`, removes key and data portion from the macro dictionary. - `LIST`, prints out a dictionary to the log. - `CLEAR` removes all data and keys values. * `KEY=` - *Optional*, provides key value for `ADD`, `FIND`, `CHECK` and `DEL` methods. Leading and trimming spaces are removed from the value. The `MD5(...)` function is used to generate the hash. Default value is `_`. * `DATA=` - *Optional*, provides data value for the `ADD` method. Default value is blank. When macro is executed and when data are added the following types of *global* macrovariables are created: - `&H._########_K`, - `&H._########_V`, - `&H._KEYSNUM`. The `#` represents value generated by the `MD5(...)` function for the given key. The first type keeps information about the key. The second type keeps information about the value of a given key The third type keeps the number of unique values of the key. See examples below to see use cases. --- ### EXAMPLES AND USECASES: #################################################### **EXAMPLE 1.** Basic use-case. Creating macro dictionary, macro `Dict` is generated. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %mcDictionary(Dict) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Add elements to the `Dict`. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %Dict(ADD,key=x,data=17) %Dict(ADD,key=y y,data=42) %Dict(ADD,key=z z z,data=303) %put _user_; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Add some duplicates for the key x. See macrovariables created. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %Dict(ADD,key=x,data=18) %put _user_; %Dict(ADD,key=x,data=19) %put _user_; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Check for the key `x` and non existing key `t`. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %put ##%Dict(CHECK,key=x)##; %put ##%Dict(CHECK,key=t)##; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Prints data values for various keys. Key `t` does not exist in the macrodictionary. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %put #%Dict(FIND,key=x)#; %put #%Dict(FIND,key=y y)#; %put #%Dict(FIND,key=z z z)#; %put #%Dict(FIND,key=t)#; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ List dictionary content to the log. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %Dict(LIST); ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Delete keys. Key `t` does not exist in the macrodictionary. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %put #%Dict(DEL,key=z z z)#; %put _user_; %put #%Dict(DEL,key=t)#; %put _user_; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Clear and delete macro dictionary `Dict`. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %Dict(CLEAR) %put _user_; %mcDictionary(Dict,DELETE) %put _user_; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 2.** Populate macro dictionary from a dataset. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %mcDictionary(CLASS) %let t = %sysfunc(datetime()); data _null_; set sashelp.class; call execute('%CLASS(ADD,key=' !! name !! ',data=' !! age !! ')'); run; %put t = %sysevalf(%sysfunc(datetime()) - &t.); %put _user_; %CLASS(CLEAR) %mcDictionary(CARS) %let t = %sysfunc(datetime()); data _null_; set sashelp.cars; call execute('%CARS(ADD,key=' !! catx("|",make,model,type) !! ',data=' !! MPG_CITY !! ')'); run; %put t = %sysevalf(%sysfunc(datetime()) - &t.); %put &=CARS_KEYSNUM.; %CARS(LIST); %CARS(CLEAR) %put &=CARS_KEYSNUM.; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 3.** Data portion may require quoting and un-quoting.. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %mcDictionary(CODE) %CODE(CLEAR) %CODE(ADD,key=data, data=%str(data test; x = 42; run;)) %CODE(ADD,key=proc, data=%str(proc print; run;)) %CODE(ADD,key=macro,data=%nrstr(%put *****;)) %CODE(FIND,key=data) %CODE(FIND,key=proc) %unquote(%CODE(FIND,key=macro)) %CODE(LIST); %mcDictionary(CODE,DELETE) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 4.** Longer lists. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %let size = 1000; %mcDictionary(AAA) %let t = %sysfunc(datetime()); data _null_; do i = 1 to &size.; call execute(cats('%AAA(ADD,key=A', i, ',data=', i, ')')); end; run; %put t = %sysevalf(%sysfunc(datetime()) - &t.); %put &=AAA_KEYSNUM; %AAA(CLEAR) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 5.** Forbidden names. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %mcDictionary() %mcDictionary(_) %mcDictionary(ABCDEFGHIJKLMNOPQ) %* bad; %mcDictionary(ABCDEFGHIJKLMNOP) %* good; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ --- ## >>> `%QzipArrays()` macro: <<< ####################### The zipArrays() and QzipArrays() macros allow to use a function on elements of pair of macro arrays. For two macroarrays the corresponding elements are taken and the macro applies a function, provided by user, to calculate result of the function on taken elements. When one of the arrays is shorter then elements are, by default, "reused" starting from the beginning. But this behaviour can be altered. See examples for the details. By default newly created macroarray name is concatenation of first 13 characters of names of arrays used to create the new one, e.g. if arrays names are `abc` and `def` then the result name is `abcdef`, if arrays names are `abcd1234567890` and `efgh1234567890` then the result name is `abcd123456789efgh123456789` The `zipArrays()` returns unquoted value [by `%unquote()`]. The `QzipArrays()` returns quoted value [by `%superq()`]. See examples below for the details. The `%QzipArrays()` macro executes like a pure macro code. ### SYNTAX: ################################################################### The basic syntax is the following, the `<...>` means optional parameters: ~~~~~~~~~~~~~~~~~~~~~~~sas %QzipArrays( first ,second <,function=> <,operator=> <,argBf=> <,argMd=> <,argAf=> <,format=> <,result=> <,macarray=> <,reuse=> ) ~~~~~~~~~~~~~~~~~~~~~~~ **Arguments description**: 1. `first` - *Required*, a space separated list of texts. 2. `second` - *Required*, a space separated list of texts. * `function = cat` - *Optional*, default value is `cat`, a function which will be applied to corresponding pairs of elements of the first and the second list. * `operator =` - *Optional*, default value is empty, arithmetic infix operator used with elements the first and the second list. The first list is used on the left side of the operator the second list is used on the right side of the operator. * `argBf =` - *Optional*, default value is empty, arguments of the function inserted *before* elements the first list. If multiple should be comma separated. * `argMd =` - *Optional*, default value is empty, arguments of the function inserted *between* elements the first list and the second list. If multiple should be comma separated. * `argAf =` - *Optional*, default value is empty, arguments of the function inserted *after* elements the second list. If multiple should be comma separated. * `format=` - *Optional*, default value is empty, indicates a format which should be used to format the result, does not work when the `operator=` is used. * `result=` - *Optional*, default value is empty, indicates a name of newly created macroarray, by default created macroarray name is concatenation of first 13 characters of names of arrays used to create the new one. * `macarray=N` - *Optional*, default value is `N`, if set to `Y`/`YES` then a macro, named with the array name, is compiled to create convenient envelope for multiple ampersands, see the `%array()` macro for details. * `reuse=Y` - *Optional*, default value is `Y`, when one of the arrays is shorter then elements are *reused* starting from the beginning. If `CP` then function is executed on the *Cartesian product* of arrays elements. Any other value will cut the process with the end of the shorter array. See examples for the details. ### EXAMPLES AND USECASES: #################################################### See examples in `%zipArrays()` help for the details. --- ## >>> `%zipArrays()` macro: <<< ####################### The zipArrays() and QzipArrays() macros allow to use a function on elements of pair of macro arrays. For two macroarrays the corresponding elements are taken and the macro applies a function, provided by user, to calculate result of the function on taken elements. When one of the arrays is shorter then elements are, by default, "reused" starting from the beginning. But this behaviour can be altered. See examples for the details. By default newly created macroarray name is concatenation of first 13 characters of names of arrays used to create the new one, e.g. if arrays names are `abc` and `def` then the result name is `abcdef`, if arrays names are `abcd1234567890` and `efgh1234567890` then the result name is `abcd123456789efgh123456789` The `zipArrays()` returns unquoted value [by `%unquote()`]. The `QzipArrays()` returns quoted value [by `%superq()`]. See examples below for the details. The `%zipArrays()` macro executes like a pure macro code. ### SYNTAX: ################################################################### The basic syntax is the following, the `<...>` means optional parameters: ~~~~~~~~~~~~~~~~~~~~~~~sas %zipArrays( first ,second <,function=> <,operator=> <,argBf=> <,argMd=> <,argAf=> <,format=> <,result=> <,macarray=> <,reuse=> ) ~~~~~~~~~~~~~~~~~~~~~~~ **Arguments description**: 1. `first` - *Required*, a space separated list of texts. 2. `second` - *Required*, a space separated list of texts. * `function = cat` - *Optional*, default value is `cat`, a function which will be applied to corresponding pairs of elements of the first and the second list. * `operator =` - *Optional*, default value is empty, arithmetic infix operator used with elements the first and the second list. The first list is used on the left side of the operator the second list is used on the right side of the operator. * `argBf =` - *Optional*, default value is empty, arguments of the function inserted *before* elements the first list. If multiple should be comma separated. * `argMd =` - *Optional*, default value is empty, arguments of the function inserted *between* elements the first list and the second list. If multiple should be comma separated. * `argAf =` - *Optional*, default value is empty, arguments of the function inserted *after* elements the second list. If multiple should be comma separated. * `format=` - *Optional*, default value is empty, indicates a format which should be used to format the result, does not work when the `operator=` is used. * `result=` - *Optional*, default value is empty, indicates a name of newly created macroarray, by default created macroarray name is concatenation of first 13 characters of names of arrays used to create the new one. * `macarray=N` - *Optional*, default value is `N`, if set to `Y`/`YES` then a macro, named with the array name, is compiled to create convenient envelope for multiple ampersands, see the `%array()` macro for details. * `reuse=Y` - *Optional*, default value is `Y`, when one of the arrays is shorter then elements are *reused* starting from the beginning. If `CP` then function is executed on the *Cartesian product* of arrays elements. Any other value will cut the process with the end of the shorter array. See examples for the details. ### EXAMPLES AND USECASES: #################################################### **EXAMPLE 1.** Simple concatenation of elements: ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(a[*] x1-x3 (1:3)) %array(b[*] x1-x5 (11:15)) %put _user_; %zipArrays(a, b); %put _user_; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 2.** Shorter list is "reused": ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(a[6] (1:6)) %array(b[3] (10 20 30)) %zipArrays(a, b, result=A_and_B, macarray=Y); %put %do_over(A_and_B); ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 3.** Use of the `operator=`: ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(c[0:4] (000 100 200 300 400)) %array(d[2:16] (1002:1016)) %zipArrays(c, d, operator=+, result=C_plus_D, macarray=Y); %put (%do_over(C_plus_D)); %put %C_plus_D(1); ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 4.** If one of array names is empty or an array does not exist: ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(a[6] (1:6)) %array(b[3] (10 20 30)) %zipArrays(a, ); %zipArrays(, b); %zipArrays(a, z); %zipArrays(z, b); ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 5.** Use of the `function=`: ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(one[3] A B C, vnames=Y) %array(two[5] p q r s t, vnames=Y) %zipArrays( one ,two ,function = catx ,argBf = %str( ) ,format = $quote. ,macarray=Y ) %put %do_over(onetwo); ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 6.** To reuse or not to reuse, or maybe Cartesian product: ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(e[3] (10 20 30)) %array(f[2] (5:6)) %zipArrays(e, f, reuse=n, operator=+, macarray=Y, result=_noReuse); %zipArrays(e, f, reuse=y, operator=+, macarray=Y, result=_yesReuse); %zipArrays(e, f, reuse=cp, operator=+, macarray=Y, result=_cartProdReuse); %put %do_over(_noReuse); %put %do_over(_yesReuse); %put %do_over(_cartProdReuse); ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 7.** Use middle argument: ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(yr[3] (2018:2020)) %array(mth[12] (1:12)) %zipArrays(mth, yr, argMd=5, function=MDY, format=date11., macarray=Y); %put %do_over(mthyr); %zipArrays(mth, yr, argMd=5, function=MDY, format=date11., macarray=Y, reuse=cp); %put %do_over(mthyr); ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ --- ## >>> `%sortMacroArray()` macro: <<< ####################### The sortMacroArray() macro allow to sort elements of a macro array. The **limitation** is that sorted values are limited to 32767 bytes of length. See examples below for the details. ### SYNTAX: ################################################################### The basic syntax is the following, the `<...>` means optional parameters: ~~~~~~~~~~~~~~~~~~~~~~~sas %sortMacroArray( array <,valLength=> <,outSet=> <,sortseq=> ) ~~~~~~~~~~~~~~~~~~~~~~~ **Arguments description**: 1. `array` - *Required*, name of an array generated by the `%array()` macro. * `valLength = 32767` - *Optional*, default value is `32767`, maximum length of a variable storing macrovariable data. (the reason of 32767 limitation) * `outSet = _NULL_` - *Optional*, default value is `_NULL_`, an optional output dataset name. * `sortseq =` - *Optional*, default value is `LINGUISTIC(NUMERIC_COLLATION = ON)`, sorting options for use in an internal `Proc SORT`. ### EXAMPLES AND USECASES: #################################################### **EXAMPLE 1.** Basic use-case. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas options mprint; ods html; ods listing close; %array(hij [4:9] $ 512 ("C33" "B22" "A11" "A01" "A02" "X42"), macarray=Y) %put NOTE: %do_over(hij); %sortMacroArray(hij, valLength=3, outSet = A_NULL_(compress=char)) %put NOTE: %do_over(hij); ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 2.** Basic use-case. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas options mprint; ods html; ods listing close; %array(ds = sashelp.class, vars = name|NNN height|h, macarray=Y) %array(ds = sashelp.cars, vars = model|, macarray=Y) %put NOTE: %do_over(NNN); %put NOTE: %do_over(H); %put NOTE: %do_over(model); %sortMacroArray(NNN, valLength=30, outSet = A_NULL_(compress=char)) %sortMacroArray(H, valLength=32) %sortMacroArray(model, valLength=120) %put NOTE: %do_over(NNN); %put NOTE: %do_over(H); %put NOTE: %do_over(model); ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ --- ## License #################################################################### Copyright (c) Bartosz Jablonski, since January 2019 Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation files (the "Software"), to deal in the Software without restriction, including without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to the following conditions: The above copyright notice and this permission notice shall be included in all copies or substantial portions of the Software. THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. --- macroarray-1.2.3/hist/1.1.1/macroarray.zip000066400000000000000000001455231452773550200201720ustar00rootroot00000000000000PK5W[K9h description.sasVmo6nb@"OSou1'mE"5#!oQ[ӥH:v{90M!Fˍȝ B"̵7rS>lWpnxg%~{F~(c33 [_@ Hhʸ=W;AvAPۦe!\5|}“߅0wAiK(rb@ !cV~r}F$<8NpKĔ"GcBO#EK Үm،ӦJ6[k"cBΎ4bB9ç=ਬpn FEMn7:g"L Lܭb|0y3^M#s$e]P5fROP0Fiڴ\W jy { /<'=5%Y.1C|G7Yœq!+=6vXt!c)~Dz3tUQ\dJՅ{c%聯ƍvQ1mZ,:/Ku D0+$sԤ\2kob:m:{A)REv+7zaXQ%֐,u%bkB; vk8Rr6wY #u}[$# :@һz8v+L8a\(, 8zlXX]pۦP/nikI0svy3{>)oG7魏Z);rH3޿1`wQގ&Gl} (Y 4KSQlEWiQ[m4f^x䣔u|C:h*K?</ J<8ߪ2k¹Rݺ^݀ѕTDh<>v!P=9Ēy,%,ϒLT@Jtȷp3+"HƫԺM-<PAA[3X۔ULQʗ,G 3YZJ dK/4!mwQ])BJ%>_5G#?PK5W*riG license.sas]RK0GqڕLb!I qbdL`w"!gg}7[3|KQxoC=1.^N XP3h(hQ>p4>\8݁޶F!!t=T k7~RȌ@͗\L9>8Ik8w=I|ڊ#={ AV8髧dn0O3Ľ;,z*z$&`x=10h}o"'ZjS,nDQ=:k46Pvҵv _p 6SGv[j`o[Ceܱ7#>NMG},,90APId<=K`#en'$+- `"K$k(eU EQ:#X b%dmJ 5LdsfB4.J *&s&Z˪9ȐB _y@YKGl$YR<.XyƱ8s~\i*#P%`<͒SF%IˢL0l^Q5d!f"XX+ ޝG轮+#dHVxJ2W PK5WC$packagemetadata.sasJ1BaS m]h{i-4dR,>ńgj]@;sh$2p:hH8t:1G?ɍt^Y>O*O1bwҧU6|Xwv\ i-aGOw!šQY?~ ͱ)V7ifd^OUy}k Yq9n'E^z6ϯ~+\O|PK5Wiceloadpackage.sas͗mO0O;"JJ`bbلDԕ2M9.D$qFwEܝ/ ` S\P(oL b !;P03[gnu~ڡ`qD#5rCF\r `ʥ\o*6IVS,Z f 6~ɬN%W]> $QO6rc. @.8M[F]cl׀Ea oqn FU**өKpL50"`-p 06 Nñ-I/b؏hz:e YBT8H)ӯL_.1x% S+U/ì<<|:=wٶLݑ`aY$B a`v7˚cU`Zug;gtUmLlg> /'G fr"e_2MN&L݀/aop &542tGWїj4'b2C|"oKM{W̨T# ܟŹYnDGWx-´1xn, dqr.P5b9M?Jw78p{9vЏxI* С%y"&2~_k5ThJZv¶۸hѦUa&{wgv^PK5W䇝 rFload.sas\sH=Ub$bT{] Hm, B"=z#a^ru؁׏g40N\l;9nk(Mg.\= [ 1cwG}#sa[ШUӘ\[DT*P)s>pM758csTG֚aGw;3vdKQoT YMѷ[ɿg,\*)̜^{r#ƶ=q1.*,j0kv誫ȚHdi,REjseIgrmhD t[–/5fSML[B »*,ȹ1P`%y= nDX-i-1M`o ʅ)l2:3]\b/{6K S Y_^h&Sq@Z169&Cb-Jveam]lW-=+$2Pom[!iF,(}uL`wolKs?)i߄ (`0H> KNiJ6=a1a29&^yriz}t =YGu6ߤW񆲲OwQr@+>D?HVq7Mz*pD^\&?GH 9^"h+'G%ǫ?s7tx$&؍,kQ'e{JxƏe[r lTz4}D1xr)uOM,hQ'b3\[?MdX8zwu})͆b(Pw0L撫v@}O2BU:^NqЏL)9 #RlpW4aLTKcm5dû4 ÚS?4Nڅ"BKJÉ$\gO) l!|^Q8x.SWްGu-7F/S#fd JO[ʣ`%q2ٟ5{fOdEg0(j@C`/ĬUa6P}4F6r6KC_ 􊨔))1Uuv|xԒ)3Z SNWׂԽEtX[=emعO)ϋ^{r99@:ȏ*gj*O1RƯxT9 ~DOi۝[WZ:۸&v,ť7o))i(4HޯpEfM58\~~jT ^Df0 -Ž%**]xGy.aثNKPjCA[qNP_z"0P1ҳ[CN[Yl٣EE9% N;$fؤ-H"}ĜLFcM1GP S馴o?=8&>hO|B.ZN> VEgJ3E[lO3-e vPtϑE=cc&k;icOgXb@3ZxKuxweϾrƯt}ZN}{~ 7{ͳvBzoR3^Dh*z[yv rb4x H LtOfTggzlAvђWE[|[Md/4R~)I`᭵FOYIj[ea-(k A1l ,[G5jvrl"p&mT# &A m^_#Kj>}. 6rj%>il1tsj"7M[_?Z-i֊gxZ i f3?- mZlC$*d+B%?QRg[1H=א '89‘39םg54dJNYV]kwεm8*KND9YhOY/Ƶ`~Xkg1i"%EZAu*Jkn]ٗ:MIg1XSނӟl&iXP?9QqxtAtd8ITY q*QFZO֬6<|Gvv }ƭ*G`Qń)Wq(7 85R<&Miya?B K_o0Pc%)w+G9_iT4u&r˵hB@ 8p[?),.f N|WEFYgE?PK5W- ]k preview.sasXmo8  0yq.A׭ؚKJc̱-Ob Zpq)0"]H3𣧀>p~ d6l!P0W4 Cm[lci/``N+$h3S[I1ʪAf?]tN4ɴ:< \Au<*Db-Op%.WQOEUPm VPKp%p\ ܸ_w .֓x~ɝekz$$kSBe_kP/Z8Uʧ_BjG-UݎS~*vycMb<-̃`"pn6_0YVXU)*e߿]`:[i"ݿaN!V>,p%=2/.xuQ?q'F'eʕ[zqZOz׋cz/*[%˅S| we,ru)ko摰ϸvltX nSXc7#ݒzv ?b GÚ٭;gV+ddOZpwqR dž^ 5ְa5D0@ف0#%k\lbBcC .X9o }u>38c<7z^pNat30 "-̲"K |B<1oW%f G<$ѓM\=C^?O"F8~'FwzOG_c[ h,קeOW&xrq7s`j</6,v#s<@hRԕ"WBn ?_%Dq0l© ^1N &7~_Aӗs}ۛ;ڝj9ڱkYL{?<3m )4rC5~ U+yDi8#p@|* (P:;2SCbe!""V!40m+&P)4z ˻AOA0C"ۗ~1NQd|CeT2J%#!/pZ;(92ӏm>]P+F899f6JFrCymlt~Z8!vf!'7]H#7}Cg?,BfيӋpf?Z#-/7,P^qQޱmx9>Y #RFw,' `} `%F 7TV^~7Qt%o^62lu19])a\`x5ڋ zK /DSIG`PٱڳUuBIbgb*2j0*.;Wv,T,T*Frߥݴ)o¤f g&i{!@&/_IaSPK5W _001_macro.appendarray.sasV[o6~7p,ɲt71.! :CMKM"]>tRǍӢ5K' Cx5:} h6a8,TRn(Hd R=/BH:dkh6.t 0 +eTQ-X¹4 1T^o(aZ[ckH \^R r54 B( AB^`Iq9cJMEz.+G74+ ؗ%*_̩SǴ"}׿n>MfZrcS6L#7 8؈#'Da UlpD7FFl o6؊` TK̹X9)|þ0qhoǒ)xRڬ|ɑz,@펺enu8ޒtwR<28Ly|#KK@ͩ)B`rIhdZI׼ ǘ+32lPK5WhiP/{_001_macro.appendcell.sasY[oH~G?q/˾l%4"i5 VSe7M9e2ɖp];9Eɲ,Pi=vK%+l߯r˛O0bpyy |6e#Z6.K >,l&yxy(If3,ɤzSM), m;r@ 7}{;;;ax4ơ}"B|tΗ$]KrPS?`UZ u~i$(1`$'Rg3]SLZf= \|((]Od3&l"UU(sHWSs=I#?AjBWUȏD[A#4I=uBÞ!,.x?-!Y"8d HؤMp{}45h ct&[k~J8ڱ  D:lȩ?7T80˦ %ڰ(׫rHڧs}qA%;5TIs]s~ivK l}lӌ&#)xr&=X(kU B {UVD-:tBP:ƪ;Hcqoy,; EX ݾqe[FO{F ;O ]VBz[kVpۼoUn/v}W'\̇c* (5J!),KA=2Wi2;`9nȽHT~u@Tqbm2pг"iUY%D)fMj68D%âVFRXkHBqD6.fJj>@SܨΗvR"Z>Z=&J wiBUa]zкr>)n"Kz5g tYN((P7#AUmpty)g@j6itRAG Gnk"[tvz?7* kVqN/,w},\:|u(:, 'iW+a@k_QCOSӊS:D rPkC{t KXê%0")zMJ<0{KVy>悢ĆذoHlQ gJO:"G5:^ߎO>͑~[~yyJH=\:tgMXpaQr<^2)ۮKq n5XZJ_Ou9 LB~`)u{2dr 'wA)HkC7@th" d,C,^F?qpĈS!<)۔|0yzRpteIx_V̟BؐS>x-nI%z-(27 j3ZVu< ui5( SIy gj ?e=1׳Q|3gxPK5WؓZqy_001_macro.array.sas=mw8{NJ73t&tB7!Blj$v{%ٲ1iҤ=3{L"v>gͣt?~?z|7l߷g3{{{ŋ\{9Y;/iǏސ3ol]s`|.q r+3} ?X$xƕ]r?p<} Xe!TۃCC'`C8cngv&] sJ6:A?jS+'@ٌp#r3;{ʂ y/=~t,t el> 7T|z ٳ9P`KonB9tY̜3%׻"`_m됻(`AHI20aC`Wvh sٝUb-f#  5,B!%]CV=fpPiȎ};tܱ.y0j< PW%)5jP=9zW4&'p6Lve(|c6IJ 3I>h!eN(}D€jL*7yWlGNK/ȯe įM ]QEHT|L M+Qq7֎L)G;=ow쭳*w(\.hyH+p ETz rH-ֹHC v6f ~{QP/8H_ +2;si6) 0`Vl= :d'afˆ`VŒ3PumlJ%9-ZC 6rCA;^Ɓ9ZW8 gԻVF)ރ{}f`Grd Oa=@?qYpq0̇ e0&)JP ٘E[STQX̊VʬWt"nsگOe~TB#sJ<=]")bXA^݉ACGz%$ L}y}kpnQFv(ȏ4)G ΁<H8'p##wD5ّQG]*&lSGI2iPDkde'D<_(P|`[* ;!{9p{d P H9r{̰ʕ/acxECOc\I b@~1y< +Jb@;pof@RlZ(>P>͆#$\F* H4j,]Wm~kJ">8|adP0Y`lLŠ²K:!Soňt2އ0 b) ա·!a:򽙮fw-S53ٻeֲQ\y 85 ~ &hC3ۃwBݢf;KRU>/8&^-2Uұ" u,2`EqF@ު01ӌ9RQzM3O=H\p]Erl -SfÜg#!5d9~ZN}lz ^,`]3hSs'DJ"J YYMʱp5 kVA9e?3`蝁 |$D0M%#iᅔmhRQ  Y!!XDK'7,DiN? p%=v4 l$8ohӉx*~dȜ~&#꠽o;4y}ӄ4(b!(ː ̆s1x@kfE z~Fxu_SFw~tn|6OJ16$R@,T|Cp*#ڡTe"n⧧XE t7T"Թ& UD P6z$" YgD^y շ,*5Ogg5/&1l4\aTQؔ0c/7ŀ,.I5BI)RX,Ad~ -񣊷FO5IR @ׅ‡0F_ LA`y >ᾞ7i+FbHb`618À`;ġ`B1P#ktmCb0ض1c@do6NδY z&K^M%)LZ"LrDi:IN,gc[Ŕ z {8A{,=3v H\'*)Tʴ ( @]uvkR;Ş_Y6RvZ.#>q2alL8zcB%I!2%A~3O>RRiƏS@G#L0vOޮqPGMZ׾_j?7uZEEq-'2O:lh7 QXs,}d̏pۗ0_EJ@0BnIJb$Lt%ѮSznl|7h{ܴ7M?_l0 9xw1#9+~A.6hϻ}  .պ[!8A}1352Ԃ-7eL1@tS6/IMCO i6E>|BJ$ǣEl$H9eH/b+wssHez#Nm1M"|^#0g- A9:⸎ ɻiߘ1[z XЊ$J;C^nm0#13؍үc =D LR}43_HԷR$,Mߍ.R"v kx0ٖOSHz A`ݣ=H 5+e@Vd?Σ *Dw1KY9$d=G̷Dvc>ʝ>ECg4+cDŽeDĀ 鵔tJ17X_RާM%]|M#Is,$w8X56Jd3Y|Zp(RQ\DrB?d Ee4j+f)䟑aF."ˠ Qڊo h*TVl\gm,]O*ü|WkUmU{!oM1ZgpF,Έ[fhVd`՞EI%5v<յYʆ}Eώ{n9* XOWWi27B8fwɼn5 JORmڃsYZ(?ya*.OE#~5Yk52ʛsI AhaŲ~}'ǤIń~/)"MO2/pltS 0zs9"LCW[}n"[?,j,?<8tEA;AŸ)JȈ~D?_/:@swSLMyl;nG3w툝R2Go!3ggn͓IG@A>u-╬'V2v/d/2D!< ~d#iP>>rm#M(o8Y9'`|lX+VZY\iݬE X¯vI: YkJ-ZkQAx72W=.Pf6eAGgߩAُ6N:Rmq"/5pEfs.,M:*;j 6H6;PRhNqj+{xn!~r0M]f<,%S$YN$YNUY#AfQ(Fb.JÈp#aD8QP 0RC2]1q1!1&$eb'8cB7@`0׺#>cβXd;>iwqG[ޱ~t]90l"SaCWefxdf(P3Q(<Z\5<<_o0L[8,$5bhl'LTUzqTTNx=OK"UX#%;Nzs⼷wl>:#\g‚ 0PZ,,Fb\`ʦxVLcZRK/xyx/PPg627,w6 4;!嗻?Ύޗ-{мd|nbA}vdU S+<{/D>9%E&|B vޗ=~1:4;GA;Vtz3툍CtAߘNTI~WğkkA-2M Sz;㹐dgԐi-cVinV=J+Z~1 rgPOص<7U}޿;c"\.cC666 = @3`+QP s=|s,| ,ހ~tP}e[iӉc|}3jym<ȇ,Ƴ׮%~H Aw=d|C_oSؑҤ% ѻ\c2 HȃВO&PR2 C8"í񶅻6eQP *TEAU W +B|;H >)ea$NMbS6t>Y;vI!AMt ]YX6ueaQըp7.5U]<Y2#0@N,-ǥVj\"uTގʱ=8!ӝ"s eVZͭan(Wh+D*Ed>8֟_Nz,wP*NkVFJ)=ot9FJku!G\@[[yʭ|pM=f7DŤKМHny6i|8Z{xzAy9<ݗxrPMBH?wә~t=Y(蜊i{:{1rѬ@5]WХ' Q646k NzW=*l٧_2қ ^7"sY{$TϬ銭ܝAE<#aj*7Lqī ߛ˕l. ;H[.R a8*b Z>KDK}cM^_,UO|r,{^ D kx],o:EJypC|}oj ހap}t ry.l;/@=(VC.zNS)a&_옄:a) _.BwI@~Xw $QK=ϼ+Թغĭ`@Ngcո%@KXzW4 3ꍥf[zXXOT\xVf,+xf;0ѼLl?PK5W%U0_001_macro.concatarrays.sasXmS8=s8/a.дpCLC[ V*Ʉ܇(mlu馲BG-D򧧺lP)?*90h7|V Є5kGd]Xu=L$ kUBW94$jFmȩVDq:¢ٶZW(A+8~՞Kl{$.Y7bK6h8 R X5 A1s1e[QO*fIJ0Ys`mqqhU&f P4 `q|D F 11215 ~" 6gxWKs#[)Jd/iI,DiN#`S ֢:s:4cИpwQ׵8:4 dz"wZMr2 xJXo%Ó?PK5WPuU _001_macro.do_over.sasYQsH~wC'>0҂lk*&)۹]W*i0: H힑 9l47=4ww{''%8O  &̍D ...A& zP^^^ˣ+<b1^+!1 ~(~=qr6?&}=--lw*ss ,LB,ybCEln3?d΃S(T݇|xns ā42 %-(+?=C&}<3R?>ֵ/e]4EȂϲuxd yOOS #GJU=Uoa\!C8;wel3nLxKt#_n-zj[)hy?'/T|Q@21X̠$УoisK1DB 9$Sԝce)8)ʘw)h5$ +˩Caz4]9"3tDSYM)8z, #J\D(1\$z  (! &[dލC'"F( ]JxUD+i@MNˍu΢^\`57#R?)IB5  !Kb1Ak94𹗡$\@\Bdf 3˱Hoyi]+^Hr]shKH-<稪|R*18LP+gfh]{fKg5`E+ʚB1#MH܈L (&Ɍ/uRqh8EL`fܤg;`@8vDu:64 ^ޒ~r}k&' #&<o,Yѿy{J>ݯU5ӀB"[Y,F@J`ҿ(ѣ? s E*2sM)1PKE`YmUnH2];bjT~D Խv6٢܄7%dٓj eTЯ MM@Ô[녛r¬2Y%7gɪC a,v\.WIPh$CrEkTbvZʼn(YY"&r*}c豀 电 ~Ȟ,G0cbFPHqVL_ۯdb%p dNJ6UĖ驺޺M@+ߢ+xRƪҵİZ{J0ĀNQέ*4iC6 (lE{T,JƄNdn~s]$܇|^[XP\,'#|zSEz#f([aCh~>p\^_TƱ\(f)ո>Z YiJ ?Fz( ?ۏb8{Zi mXi 7 ($YZ2`8 ލOa?+!'˃iA 2\ WAÃvUUȘ@`I{O}SKf)UTIk߅⽏}|w;f1v AA&ZB43DL)rj6}Uh ̤ؗ y,5bRiD5Xf嚈(j6f)(.[䉥Lʑ{bT,/ -BG\B<{BX-3c}:l1X#c2]dw2.m[lNbc!6F rI=. >̰堑wahmCWvm蟘?pn|0!9y7l9ʗLj0DhTF\uА?(TJ.6[+ Srʄ˥2|;3B3WDo%EvTb$sc/&IYdk9c=$͸syPV=~8wbCm ūA5s;xS`V]V +Lo!5h7ގYnaXJZ:LDx5!'g}iVR}Ђ0{ß;SpM׽6!؆eg7~x:D>p1AxpkkNʃqlLO/>C g'^ඇ6*4pKܥs(yQꎝR$jesFo |y{u+Yo6—͗ 鰛mcP*8X>g+k;zsR1<&ڝMT|r;[FGpuΎ Wz-eʧ3 h }:P7Ep@d4]ɳo# ؃LRuW&x*!M*16\^\Ҵy+c]0wmLKuj%ffbݐXBDtLн0-xx!6~JfOojAD XwL?'s0َX#V&ƻm:e#5I슫R>SH -qPK5Wkʘv_001_macro.do_over3.sasWmo96ڔ݃Mw.!hB =5*o\zn?ˎ {\WGGAZ-D R@ل&Nfy"jvfGu)ʥ)X$4,՜IhW8z  o KGw3˭!Pyo.uk@T,hLSI4R詤i#R%Ēr `p.]G0'F%׫6p3M LV,2wW'G?Q,|,00>40l!ZJ1LpV'ETT\`%-v]z8jVSI=TZV|{pv޻x{1zA)? 0 AЖlFVPKfm zBdPLXL,m 1ob)ҦIB4Hd<¹UaC# hcܪ Ty1s+ zDEcyal{`S&D.r.bB$K5ܐ43?Qvтh>:” ϋٕu&ָLV6hgU IFEVˌ%IJ uQh稭=}"Z[q Kk'N0ٲ-; q*: ֞}\MQ֯X`p v/AEILG:֝;xǝSsJzG87XUg/7 2n%xdZA2&dS{c3k]j>쮇=;oߪتXO^*;"@a@|:v iūhZOӜ$+ݔޖrrM>ގf*>=xwn篴{6ЪU :CߣFwb&NSW}t>|X{> :ۃ/p 8s/0LͰ]bc l6`<2`VS3T^1֗uo{и{O#+S<Sn5fJ WQyNU<>iiǍMI?nvF} |0SȆS~O>l"w?,9) j+6>*; )Bk1_J6jxE;t(\}aUP'xF/Q1MṮ*ɘ3jzjvn{mU0ƛb{$#%Rk5k6P΍9%$dF&4W cc S3-Xu67Zյ^4)䙙uԂJdKչXբLhZt&KP)xL5vv@eIF KC$|`xPK5WI̦_001_macro.make_do_over.sasXms8 S^ҙ si]{&޴%oWMHXճ8ypoނ'O5e|ˡʣ} SEᐁ`S~T!/0 L8x Gݰœ)j;|; ٢`%'߈]Z9,7S``a( 1?O@Gq /]!p΄9Ӂ,0G`{bj{P7t}shO |(0 ;6]$-)-:fxIE<& @(цPʙ[s J$/MA}rGЄr ]dFKcz WH%ͅCg V5R 5WTćG9 吼[v{ Ԭν2s"DaVI3XbPQa{7wW3P!j`!z$ZcKV޻,R@/ȑ]+_bym7M7׶HxIqm;OjTocD Ȅ~O=P29?A%vvC*Ti4##uv{&SEZv7@wo@?9_؆lBhIz&7}*X|,)cs}c6pʃrԲ]t٭˄*JԳq˭2E-rΒlPVr:ͦ^lHWUmD[kE[E%ZzNIVsK4k#==-gHb[|2_.Ns^bomr%k$$+f ZAƀ7ʇnG5Z Xu!}Se;A:~h uz~18^p>k uFaa.:Cf ˧;F`_ o@bJVa΢@$/sc+ne~Ӥ]iHh?RJP:J(p_ ?vfn5%l \ZmEb6!"9tl>J:Ut*'9KA-&nmpUL !"d}>>CwyˁT{m4FNH}o 7҅=*|h_~{>kԗBk̝؞v`qoJPUh 遀oo7r5w{+4(?cgEt{Kt5grI4zg=F>+_Op\IK N4'n MˆZGp\$ ]vItm t؛d(|PmL)*k f {A2ӇEt ,IPh̛7V=5- ;MR(A`c↚ 5u7 0P44x9bdBoL L5He]5YYn6y~uc`hVмtHRWStqu 3J]T ioLݨ]תsmuÍ`p[:޻ńodcjFj("x`̟?A?ѫ5=p[>!24|pF yXɂUgO`eR5>k cns4cDث7m 80?a ޤgfKE&=n9I*JA)(sLzڛ`>fmoJQ04؍G. ɹyQ[o:9vL]{`(%Y ^D:,"@= Y'}qI䀡jJ ͌+H20,-MS1G#q!oLG4d$Fy#e7MBȦ Hh[bY(r=)4ʇepexFN\h%3GTTfYUsP& haFX)IgR+X *y_`ATw|E,::d(-C~*! կu!1hrMa&\HuyNj ~juVu>_TؓXYܕ[={ XHWX T" /h``!РhЄNx7q(ib%mKAfhz̘&0ͧ  i: [A+HNp[Sґ GX#VhaJu>P:M.#̼8u"w(C7D@3q|s]o +2PX($ǩBpTU<<"Y 3^_\!~}T( |&e J!gk# Ujr߫(>s9T-9TckcCɩb1G*2 }p2,.E_2)y\ӡr!i=1o>a7 T!YhtCA>(O! _2ȡ}io/;Zl^xʂ_-|=|;ɫ] (be!F{KYuO2}Cy/ÐKl6_zς·sn'־@fukJ {ZdSYH3goVr[hQ'>Pnu>\edPg' J闫QytN8jy~8]Y=]J[P.Xt␴4h64㱵wC[H]Q≶wC%~-2çC_j=Wh/.*+n]rW̺2';`+IW|s%IKuoYݕs1es" NW+%Uqno@BT_1U;5 ?t|{m5rcTK+W3jdU[Oq5p(v=e8Cq_<;ۦR'S9:ضU* !`EZFZފNsb1<%)xmIp[s:8tspf/dӾEt6LKE3?JĒtb> S!`8ww1 &o<0]^|Oc<ԅrbU|eG;Q!&0ŗyܧHNа3 B|ꁑHc¼xKV؅mMRۥ4rOw8}I Fj 1%v=saj痭f Ӭ:'$ z~I.Gӕi_QI%λ ֋=~$\# cG]e5ҿ_:J̈́M3`|JdM]RWgt lѱ)ngpA&MKgey?7& { [0fzAHΎdVIvo=v5.$3.0 q01f $ˉb%!>? ,bK2ٯ=eua{a5vt ~O6d Ļq,1[/Pȣz(2'mm 21"̷d/ط<6X!;]݇`NG XtPu,,Sgrk4 x9t G dRઔRelyVu8!׮f[s$K/ nxOQXZ痯76$*V^*  KE/m ߣ-4gs so ˛H*nկ` {w* GBVZi;a0H?`udbQoHEJjA.BȮ`2^y y=a:6-著8^$yz͍DZ;~@h+Xw f4aWZMG0wv5s+p5@'Ѹ֊fV"7`&EzE{!vjc#+'t*>% zٛ_޶*lJmtˁƊ|ީatR1.44KPzfs+,0?kI48M(QWI3Bvp#Rb\L>&lF SDGNr=ř.C}cjUgxu@G aI8T{CAFJ+M5ihʰ1PK5WC`x_001_macro.mchashtable.sas]{sȖU=edf!;qmgnR{@HmP,$" L9[BOCݙfbZ_>}ޒZ;ju; vuݼf𰺻vw^`o߾eռ6xEkFc6D%>^r@KojoًcwgwzsuL̴M5Vq=sdIa7nZ>snJbDU :뎭_cUV՘ez>^OiWzLw&R5`~#nsF5h4aWL,ރ~@Nf2]Uan>qC68એEd@8|f<2utl,Ǯ8gALc456\SwXavus 5ԙ7}큁$8oV0)MrAL}ݝ><݉.Ms=o?ͫnVrjfn$k9k<[W٠;`t%:3]nTk<ђI΢1@ t fHȦm5FF`t@e|BCBd̨PI4?W Tvh+Qk KOh]^OhU!H6|!vXӼiuyR2@w9I`9! g:3Wxr-l M U_JK"1aF7{i#XĄnδw|Y-1 hbqwl\Rqk'Ǎ0G0o1 q g}לLGЃ_:"`]gB ^]𢡄]pffG$oVI2)c!7E%337Q rPy`ypa1lR,!OG>EP`YEKJ`:h.N{l4OpBCMD)ph c~)frUG3$c*9Xv~{w?n3[H;S@2)`@iG~Np+ V-ݝ%"@ԶoLQ4))D 3L=:xQ$Ck,38)$&쇿PnJlФhc1>2dIDؔ+-422Y4b3:[d70C^p(h#ԥSw轱ޠk'P4E9kSO ͎2Y.ɷrٙ 8 0dϛAJWa g{ 3al^}8{};ulxvJ3@M .L@mEk q4ɛ"^:;͆Vih<ׁĈ:Z6ǃhA@VN Yc_4|zSTUrO?[d]kzw#7"ԦkkG`"j;ab@`S]؄ wgL5p(Tg2Ic,{!G(f\ۺf0P 4Q  DTPˣ,{>D:Մ f=Tq EJmHH3v)FfܐKY]}@Z=^` Бe) )@ۛ. d >e!R^W$tXeS? K/j*.RUמT&jCO3=/* *\?˨nQÅARQI\t]-}Ss6LLVΫ+M1AOCm(83-|t޼+_DPR% )vd#YU=Reuk@"-St 9/#kg ^/O.hy g pUB}h5r{ F}^Az&xѬI%!q BSWj-gM1ɇ͚a0*;3i#?֟RA ~T͓PQ&v1ϐGdd&ljk N*uEv+ٷe]=h&y#A{ 2)i%*06IKILSM.<^s\⹹h4 C>gQw &-O鎸Kbq^}<-"CgT .# T81ORǦ_@+3$ oZЈiE5UZͬpd:I¯EuuRTR,DoSШIAJh cnIypD@Nl F,1b)<L ahlyg48 (IGy!yK"Aڟ%_Sg qse'Aw7 ?{Qkf"_sMnG.G>؞W |Fy3߃|2sip3l8WaR>qj;k>'C'NWμ`C9e'IV_wN/yۀGWm8y[x1w{^pϸkS8G|'փjf/U'5Hr3sKI\N=~cdX_AZ7*OVL n}z$ gx}%{;{xlL9c=<&_.n m/2ݝˏg7d;mݝ ٖ c ^oB?n.=eSPv<;edzsYv<;eGhIyeRyInVa3a).w[)^oŪpjjFKYA[F*:!]~JHֈb%BtjVb [Y؜1H鈑WN-)}6xVtb=I|7з2 -; J7+!X Tc pς6N'b{`OӋ^犂WVsάENhәPI -K@r/N2^b6VlR50B5ldnAYlk4jf%>G/A1fSK/H==:}?6A\:g\f$07*(#ʏvlwz |zݾV^8:O4WL5м NfxrCBQob-ЍZ_rlp-XSDž><1;G Nd"T8gG%?䇟oIf޽K6ZdS,ZgXH(#il _cf-T|]XPQH0Zp/ q|yy[:MX/S0^S8lq ZAFѶ&S3$e-Dm`+.YDkrϱb f|y|oaR Fx&c D   8"iԶaLV?qbf^A%}r]}띞_Ca 5 ! Gcl/8 r\QuzQ5y&Ŋͦt[кɍQ}ȕL.eB4w?߁5݂ԝ뾃g PRewn\.>^LA=Ľh8wf^}bSBzWP@M?|U9b͙М09IPr\]á4{.gY dG7 9^2f!g="ޑԊg āT&pMV͠#o`pɭqv$]Fma?vh!"*smx9h{ھpa(LqPK5Wv+2 V._001_macro.qziparrays.sasZs'΀rW񔸴u4ci1 aB?ܿp{Eytj[1qk^s~YvFs f)-x`bƑ>8?;f$7sِ${uD>!س"._p/ 9O,))x|IR@-?x=qfB"=!MUDKaF ܆D $Z̵bEEF$/YhRƸuB~fTGQ bmC6 (}aĂTBP{ !)GǏ;`.63GX̑U74I g]pT`-|1 PÙ|֜Bb3i'u$q!r#H_n:N2Y.-5[8A!'9ZD FhWE>E>g'Ss&/Lr^(E oCNL`ś&#ENZCTitӬTj},C+p )0:M@_G!eKfq9F:fc$[$"ј|> ccCJD՞!g9_$l\T;V&]L./Pf(n E+<ꩭ: 6=b*5'1+8 q4W8 yRprҾ .Eb^yLE "Kz \ijG\xѬ+ҍHWs0:S] jڷ4V{ { _lɦɮ5Uc':Tbh*yguUr%#%?x@rfIDT,ЊsEEFgE[E#-SzfE%mLdPaVyD&mo`&0*m(C"X:nGT8Ek4X"~rBExTԄieK5ٻQ> ~& X'%P7%xVw*UX]TEn[7;uU5$O('C*jc9JC ~R[LOBӻnDwI.b- g.4&ȲQ% l-7D;\~>.Q#!=Ipn%k`S݁ ɛz7] $&t!{ןZ_^_ߠ!m(p ie8ǖ W y|[gjx;ZJ=phylKcW[ (ُ 1M[ 5:ꐹa< ӆi'5 5p{ى|e)"H悾]_[š(>KQ$nEʬA+g,ɀp=!BZʢl9fYz[9)4+'+t9xB:ʬHD[);p[%jUSZ&6k{E#(jUΏۺ!ڨӝ S5#s>nƦɸNN8}y"AoA]]QbjO]Z@`P6I$uᇟ)N[EuDٳuY\(;>?bɝkѥAz'\GPOϬ*@kB{C0UrZOy%\p-5I~ñNЧO){4M < EYj<|$ loWzNaSYI{aUa\5mǭw%V(ci$^' ~F*aUẉNWgkk)hP˜'&D[4XufA`a8ne:vW6숂؃r_,!V6gKҀEGO^ kdN=r# M4+[4(^5(dj7ǭJ|Mh X=B i;nc .WW0kM_NÛAW ) 2ScA1);_QX@P3Q%BL1 %8Y*/67gsoR/Ґ{|+N7,P6hX~_b;3cؙPK5WV_001_macro.sortmacroarray.sasWko9 a(Zʰ"YD""*pMR} [v"9s) hotR!tK0D+拤!{;C Z j bq/CVzձk%V/@'TaӃqN0LA%x#+ 1] a 1@2ܱp%pO+o߼G5r㉚f!Nre0fJcPݕ꿹2 cL&SExRԏÚu䃳Q,HBVө_tjZ/]Sb-]nq*4&<YPN,3l5v G|2 b]LI_{yd%cdyDnCԴJe"Yb0L&1q>!Vx0hߴZޜ]{K\%"܅<leeyo\5N_vژF|?6I%5J2%bv)H|uQvEk=KXoZ.`沦l{?~B/f/)r/ td][%PE^[@r.x: ;l]~<}Z zCwܣtE O* Mo .E@nك4dF>TMNޓ%G6wd tB -vZi†}Nqz9{RM Qme4 ^dBl])}c&ʇמ#najVDX)J̭tXwіskeqm4+2 V s7yqW(XH(L=98̥?ҩEqCH=HTE 6> O}^ki2g 6e=14u%Erzv߬Bv ;.Ѿ68o?iN`OG4('ZS&.XM+ q[+|J,h^ov:dM7ۊKQo!ۦ.vMhJA5T6A. *[,tVUCpǻPK5WtK39_001_macro.ziparrays.sas[S Ö\†$\ChK4 1h"Kw<BhR>yܘ*zXQ:awN@\t&_;wB·<  ™{BY8O=4W Jv\ jlmgu忋aHa9M{cA{d ƺ?v棓 /iG A֢SGTBױ 6(4;T2a(d~6q? ruB}$c H4'@Ftdlc BȩRQF3y52@*fLw7uw&B]֏LnVyEdS֙LPD4=mH\2:=`-O(3pe;!kS..tq!Ίzl-a!3h\\Hz% $P 87ڏ3ᴏf]ұ1ؼ*"E\@\x dLsd?ԕTҮ4+UXlPgck " 'P&7(J;+JU*SU0>#ʷ)3P*(n1(|nEY_]Ed\bBq8П.I}O> DIcVxRdVXJ`M,B)BVIߕ:L8{@S h!IƑp6n݀L-Բ@[۟_WmoWOsC]qpzv$԰.jc,iprX`LAԁV>cl8g4< NPbȷ`*.jǪMRH(O2Z|C'}ÉW#!; m0v;tݒ:s!#aHJ*.:U]z!k>RUޮv!zTS߬ğ+ U ju؝(g\r#ll<ߓ$bZ$98O$ (Ͽ[Vz^2yȍ*4J"OB[:X9Znwr=V0M hb b3Pn{f# \L]rn `Kƴ! `1z5h&ttndYLxQ-uVS?R'm\*bϡ RgXF% n]sh' ]86zǁ6@M`;''п쾻8_[ 52J\Jsxv/?kkw&A-tw YOV藂"8VMujX{q6-[3V\gcP'GP}-ޚPo3<`W2%v| eW8qOL.#ݥ7Q'G4,nNf.;F:aH{Љ&}k~jz=WXi:@i wM~|%sK੶}/yp||CpʚՄ/vghp<5W-jQP&T/6sM90;/AJ`1E &l63(W[;-~o9-l#-9Ap0upf!wL Zq<ΟʻV^})|Brm{ꊁ]oHKBi:ǢĢ] }>L!}$lyM9AD{H}T0aтP3~U1ŠW; yg@.n'1lgԶY*PkdU2XCxZEȱɱ#CW_Oۦ VJs,lʚ$jm8ښ35` ߼2K/Ԕccj5 bGH-iX?Zנ ~ѐxG:3y#[6r}/:űY0 ԓre\fsL-ܤ,epǼ6+؊R,'\]cw㈻HEZBjRjX^@l®Ŭ"y7F~(Q2wfJҏoi{]R2q 1>nI N\1mRbV@JC2G7)YB @mFw s\A?POf O8+PK5W[K9h  description.sasPK5W*riG  zlicense.sasPK5WC$ ?packagemetadata.sasPK5W kiceloadpackage.sasPK5W䇝 rF M load.sasPK5WEPB  $lazydata.sasPK5Wi  unload.sasPK5W- ]k  jpreview.sasPK5W"|% O#help.sasPK5W  +_001_macro.appendarray.sasPK5WhiP/{ ,/_001_macro.appendcell.sasPK5WؓZqy 6_001_macro.array.sasPK5W%U0 ]T_001_macro.concatarrays.sasPK5WvD2 Z_001_macro.deletemacarray.sasPK5WPuU  `_001_macro.do_over.sasPK5Wx; [j_001_macro.do_over2.sasPK5Wkʘv 1p_001_macro.do_over3.sasPK5WI̦ v_001_macro.make_do_over.sasPK5WAm] 9}_001_macro.mcdictionary.sasPK5WC`x _001_macro.mchashtable.sasPK5Wv+2 V. D_001_macro.qziparrays.sasPK5WV _001_macro.sortmacroarray.sasPK5WtK39 Ͷ_001_macro.ziparrays.sasPKJmacroarray-1.2.3/hist/1.2.0/000077500000000000000000000000001452773550200152745ustar00rootroot00000000000000macroarray-1.2.3/hist/1.2.0/macroarray.md000066400000000000000000002160331452773550200177630ustar00rootroot00000000000000- [The macroArray package](#macroarray) - [Content description](#content-description) * [`%appendArray()` macro](#appendarray-macro) * [`%appendCell()` macro](#appendcell-macro) * [`%array()` macro](#array-macro) * [`%concatArrays()` macro](#concatarrays-macro) * [`%deleteMacArray()` macro](#deletemacarray-macro) * [`%do_over()` macro](#do-over-macro) * [`%do_over2()` macro](#do-over2-macro) * [`%do_over3()` macro](#do-over3-macro) * [`%make_do_over()` macro](#make-do-over-macro) * [`%mcHashTable()` macro](#mchashtable-macro) * [`%mcDictionary()` macro](#mcdictionary-macro) * [`%QzipArrays()` macro](#qziparrays-macro) * [`%zipArrays()` macro](#ziparrays-macro) * [`%sortMacroArray()` macro](#sortmacroarray-macro) * [License](#license) --- # The macroArray package [ver. 1.2.0] ############################################### The **macroArray** package implements a macro array facility: - `%array()`, - `%do_over()`, - `%make_do_over()`, - `%deletemacarray()`, - `%concatarrays()`, - `%appendcell()`, - `%mcHashTable()`, - `%zipArrays()`, - `%sortMacroArray()`, - `%mcDictionary()`, - etc. The set of macros, which emulates classic data-step-array functionality on the macro programming level, is provided. *Note:* If you are working with BIG macroarrays do not forget to verify your session setting for macro memory limits. Run: ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas proc options group = macro; run; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ to verify the following options: | option | description | |-------------:|:-----------------------------------------------------------------------------------------------| |`MEXECSIZE=` | specifies the maximum macro size that can be executed in memory. | |`MSYMTABMAX=` | specifies the maximum amount of memory available to the macro variable symbol table or tables. | |`MVARSIZE=` | specifies the maximum size for a macro variable that is stored in memory. | --- Package contains: 1. macro appendarray 2. macro appendcell 3. macro array 4. macro concatarrays 5. macro deletemacarray 6. macro do_over 7. macro do_over2 8. macro do_over3 9. macro make_do_over 10. macro mcdictionary 11. macro mchashtable 12. macro qziparrays 13. macro sortmacroarray 14. macro ziparrays Required SAS Components: *Base SAS Software* *SAS package generated by generatePackage, version 20231107* The SHA256 hash digest for package macroArray: `F*8689194590698F9A00B57FB37BE3CA8D7330F16B3E591CEAF49E6BE0B70D61D0` --- # Content description ############################################################################################ ## >>> `%appendArray()` macro: <<< ############ The `%appendArray()` macro is a macrowrapper which allows to concatenate two macroarrays created by `%array()` macro. By default values of the second macroarray are *not* removed. Dimensions of the first macroarray are extended. The `%appendArray()` macro executes like a pure macro code. ### SYNTAX: ##################################################################### The basic syntax is the following, the `<...>` means optional parameters: ~~~~~~~~~~~~~~~~~~~~~~~sas %appendArray( first ,second ) ~~~~~~~~~~~~~~~~~~~~~~~ **Arguments description**: 1. `first` - *Required*, a name of a macroarray created by the `%array()` macro. 2. `second` - *Required*, a name of a macroarray created by the `%array()` macro. ### EXAMPLES AND USECASES: ###################################################### **EXAMPLE 1.** Append macroarrays LL and MM. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(ll[2:4] $ 12, function = quote(put(today() + 10*_I_, yymmdd10.)), macarray=Y ) %array(mm[10:13] $ 1200, function = quote(repeat("A",12*_I_)), macarray=Y ) %put *%ll(2)*%ll(3)*%ll(4)*; %appendArray(ll, mm); %put *%ll(2)*%ll(3)*%ll(4)*%ll(5)*%ll(6)**%ll(7)*%ll(8)*; %put *%mm(10)**%mm(11)*%mm(12)*%mm(13)*; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 2.** Error handling. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %appendArray(ll, ) %appendArray(, mm) %appendArray(noExistA, noExistB) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ --- ## >>> `%appendCell()` macro: <<< ############## The `%appendCell()` macro allows to append a macrovariable to a macroarray created by the `%array()` macro. Dimensions of the macroarray are extended. The `%appendCell()` macro executes like a pure macro code. ### SYNTAX: #################################################################### The basic syntax is the following, the `<...>` means optional parameters: ~~~~~~~~~~~~~~~~~~~~~~~sas %appendCell( first ,second ,hilo ) ~~~~~~~~~~~~~~~~~~~~~~~ **Arguments description**: 1. `first` - *Required*, a name of a macroarray created by the `%array()` macro. 2. `second` - *Required*, a name of a macrovariable to be append to the macroarray. 3. `hilo` - *Required*, if `H` macrovariable is appended at the end if `L` macrovariable is appended at the beginning ); ### EXAMPLES AND USECASES: #################################################### **EXAMPLE 1.** Create two macro wrappers. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %* Macro wrapper to append a macrovariable to the end of a macroarray; %macro appendHC(array,cell); %appendCell(&array.,&cell.,H) %mend appendHC; %* macro wrapper to append a macrovariable to the beginning of a macroarray; %macro appendLC(array,cell); %appendCell(&array.,&cell.,L) %mend appendLC; %* create macroarrays X and variables W,Y,Z; %array(X[2:4] $ ("AAA", "BBB", "CCC"), macarray=Y) %let W=1; %let Y=2; %let Z=3; %put *%do_over(X)*&=W*&=Y*&=Z*; %put BEFORE *%do_over(X)**&=xLBOUND*&=xHBOUND*&=xN*; %appendCell(X,Y,H) %put AFTER1 *%do_over(X)**&=xLBOUND*&=xHBOUND*&=xN*; %appendLC(X,W) %put AFTER2 *%do_over(X)**&=xLBOUND*&=xHBOUND*&=xN*; %appendHC(X,Z) %put AFTER3 *%do_over(X)**&=xLBOUND*&=xHBOUND*&=xN*; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 2.** Error handling ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %appendCell(X,Y,blahblah) %appendCell(X,,H) %appendCell(,Y,H) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 3.** Adding variable below lower bound. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(zero[0:2] $ ("AAA", "BBB", "CCC"), macarray=Y) %let belowzero=zzz; %put BEFORE *%do_over(zero)**&=zeroLBOUND*&=zeroHBOUND*&=zeroN*; %appendCell(zero,belowzero,L) %put AFTER *%do_over(zero)**&=zeroLBOUND*&=zeroHBOUND*&=zeroN*; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ --- ## >>> `%array()` macro: <<< ####################### The code of a macro was inspired by *Ted Clay's* and *David Katz's* macro `%array()`. The `%array()` macro version provided in the package is designed to facilitate the idea of macro array concept, i.e. *a list of macrovariables with common prefix and numerical suffixes*. Usually such construction is then resolved by double ampersand syntax, e.g. `&&perfix&i` or similar one. What is new/extension to the `%array()` macro concept are: 0. The syntax is closer to the data step one. 1. It is a pure macro code (it can be executed in any place of 4GL code), this includes generating macro arrays out of datasets. 2. When a macroarrray is created it allows also to generate a new macro (named the same as the array name) and replace the double ampersand syntax with more array looking one, i.e. for array ABC user can have `%ABC(1)`, `%ABC(2)`, or `%ABC(&i)` constructions. 3. The array macro allows to use data step functions to generate array's entries. The `%array()` macro executes like a pure macro code. ### SYNTAX: ################################################################### The basic syntax is the following, the `<...>` means optional parameters: ~~~~~~~~~~~~~~~~~~~~~~~sas %array( array <,function=> <,before=> <,after=> <,vnames=N> <,macarray=N> <,ds=> <,vars=> <,q=> ) ~~~~~~~~~~~~~~~~~~~~~~~ **Arguments description**: 1. `array` - *Required*, an array name and a declaration/definition of an array,
e.g. `myArr[*] x1-x3 (4:6)`
or `myBrr[*] $ y1-y3 ("a" "b" "c")`
or `myCrr[3] $ ("d d d" "e,e,e" "f;f;f")`
or `myDrr p q r s`.
Macrovariables created by the macro are *global*. If an array name is `_` (single underscore) then attached variables list names are used, a call of the form: `%array(_[*] p1 q2 r3 s4 (-1 -2 -3 -4))` will create macrovariables: `p1`, `q2`, `r3`, and `s4` with respective values: `-1`, `-2`, `-3`, and `-4`.
Three additional *global* macrovariables: `LBOUND`, `HBOUND`, and `N` are generated with the macroarray. See examples for more use-cases. * `function=` - *Optional*, a function or an expression to be applied to all array cells, `_I_` is as array iterator, e.g. `_I_ + rand("uniform")`. * `before=` - *Optional*, a function or an expression to be added before looping through array, e.g. `call streaminit(123)`. * `after=` - *Optional*, a function or an expression to be added after looping through array, e.g. `call sortn(ABC)`. * `vnames=N` - *Optional*, default value `N`, if set to `Y`/`YES` then macroarray is built based on variables names instead values, e.g. `%array(myArr[*] x1-x3 (4:6), vnames=Y)` will use `x1`, `x2`, and `x3` as values instead `4`, `5`, and `6`. * `macarray=N` - *Optional*, default value `N`, if set to `Y`/`YES` then a macro, named with the array name, is compiled to create convenient envelope for multiple ampersands, e.g. `%array(myArr[*] x1-x3 (4:6), macarray=Y)` will create `%myArr(J)` macro which will allow to extract "data" from macroarray like: `%let x = %myArr(1);` or when used with second parameter equal `I` (insert) allow to overwrite macroarrays value: `%let %myArr(17,i) = 42;` If set to `M` then for a given array name the macro symbols table is scanned for macrovariables with prefix like the array name and numeric suffixes, then the minimum and the maximum index is determined and all not existing global macrovariables are created and a macro is generated in the same way as for the `Y` value. * `ds=` - *Optional*, use a dataset as a basis for a macroarray data, if used by default overwrites use of the `array` parameter, honors `macarray=` argument, dataset options are allowed, e.g. `sashelp.class(obs=5)` * `vars=` - *Optional*, a list of variables used to create macroarrays from a dataset, the list format can be as follows (`<...>` means optional): `variable1 <... variableN>` delimiters are hash(`#`) and pipe(`|`), currently only space is supported as separator, the meaning of `#` and `|` delimiters will be explained in the following example: if the `vars = height#h weight weight|w age|` value is provided then the following macroarrays will be created:
1) macroarray "H" with ALL(`#`) values of variable "height"
2) macroarray "WEIGHT" with ALL(no separator is equivalent to #) values of variable "weight"
3) macroarray "W" with UNIQUE(|) values of variable "weight" and
4) macroarray "AGE" with UNIQUE(|) values of variable "age". * `q=` - *Optional*, indicates (when set to `1`) if the value be surrounded by quotes. It uses `quote(cats(...))` combo under the hood. Default value is `0`. Ignored for `macarray=M`. --- ### EXAMPLES AND USECASES: #################################################### **EXAMPLE 1.** Basic use-case. Creating macroarray like in the array statement. Values not variables names are used by default. Different types of brackets are allowed. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(a[*] x1-x5 (1:5)) %array(b{5} (5*17), q=1) %* Mind the $ since it is a character array!; %array(c(3) $ 10 ("a A" "b,B" "c;C")) %array(d x1-x5 (5 4 3 2 1)) %put _user_; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 2.** Index ranges. If range starts < 0 then it is shifted to 0. In case when range is from `1` to `M` then macrovariable `N` is set to `M` In case when range is different the `N` returns number of elements in the array `(Hbound - Lbound + 1)`. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(d[-2:2] $ ("a" "b" "c" "d" "e")) %put &=dLBOUND. &=dHBOUND. &=dN.; %put &=d0. &=d1. &=d2. &=d3. &=d4.; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 3.** Functions. It is possible to assign value of a function or an expression to a cell of the array, e.g. `array[_I_] = function(...)`. You can use an iterator in a function. As in case of usual arrays it is `_I_`. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(e[-3:3] $, function = "A" ) %put &=eLBOUND. &=eHBOUND. &=eN.; %put &=e0. &=e1. &=e2. &=e3. &=e4. &=e5. &=e6.; %array(f[-3:3], function = (2**_I_) ) %put &=fLBOUND. &=fHBOUND. &=fN.; %put &=f0. &=f1. &=f2. &=f3. &=f4. &=f5. &=f6.; %array(g[0:2], function = ranuni(123) ) %put &=gLBOUND. &=gHBOUND. &=gN.; %put &=g0. &=g1. &=g2.; %* Or something more complex; %array(gg[0:11] $ 11, function = put(intnx("MONTH", '1jun2018'd, _I_, "E"), yymmn.), q=1) %put &=ggLBOUND. &=ggHBOUND. &=ggN.; %put &=gg0 &=gg1 &=gg2 ... &=gg11; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 4.** Functions cont. If there is need for set-up something *before* or *after*: ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(h[10:12] ,function = rand('Uniform') ,before = call streaminit(123) ,after = call sortn(of h[*]) ) %put &=h10. &=h11. &=h12.; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 5.** Fibonacci series. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(i[1:10] (10*0) ,function = ifn(_I_ < 2, 1, sum(i[max(_I_-2,1)], i[max(_I_-1,2)]) ) ) %put &=i1 &=i2 &=i3 &=i4 &=i5 &=i6 &=i7 &=i8 &=i9 &=i10; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 6a.** Quoted "Uppercas Letters" ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(UL[26] $, function = byte(rank("A")+_I_-1) , q=1) %put &=UL1 &=UL2 ... &=UL25 &=UL26; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 6b.** "Lowercase Letters" Extended by `macarray=Y` option and the input mode support (with `I`). ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(ll[26] $, function = byte(rank("a")+_I_-1), macarray=Y) %put *%ll(&llLBOUND.)*%ll(3)*%ll(4)*%ll(5)*...*%ll(25)*%ll(&llHBOUND.)*; %* The range handling, warning; %put *%ll(265)*; %* The input mode; %put *before:*%ll(2)*; %let %ll(2,I) = bbbbb; %put *after: *%ll(2)*; %* The range handling, error; %let %ll(265,I) = bbb; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 7.** The use of `vnames=Y` ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(R R1978-R1982) %put &=R1 &=R2 &=R3 &=R4 &=R5; %array(R R1978-R1982 (78:82)) %put &=R1 &=R2 &=R3 &=R4 &=R5; %array(R R1978-R1982 (78:82), vnames=Y) %put &=R1 &=R2 &=R3 &=R4 &=R5; %array(R R1978-R1982, vnames=Y) %put &=R1 &=R2 &=R3 &=R4 &=R5; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 8.** A "no name" array i.e. the `_[*]` array ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(_[*] x1-x5 (1:5)) %put _user_; %array(_[*] p q r s (4*42)) %put _user_; %* If no variables names than use _1 _2 ... _N; %array(_[4] (-1 -2 -3 -4)) %put &=_1 &=_2 &=_3 &=_4; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 9.** Pure macro code can be used in a data step. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas data test1; set sashelp.class; %array(ds[*] d1-d4 (4*17)) a1 = &ds1.; a2 = &ds2.; a3 = &ds3.; a4 = &ds4.; run; data test2; set sashelp.class; %array(_[*] j k l m (4*17)) a1 = &j.; a2 = &k.; a3 = &l.; a4 = &m.; run; data test3; set sashelp.class; %array(alpha[*] j k l m (101 102 103 104), macarray=Y) a1 = %alpha(1); a2 = %alpha(2); a3 = %alpha(3); a4 = %alpha(4); a5 = %alpha(555); run; data test4; set sashelp.class; %array(beta[*] j k l m (101 102 103 104), vnames=Y, macarray=Y) a1 = "%beta(1)"; a2 = "%beta(2)"; a3 = "%beta(3)"; a4 = "%beta(4)"; a5 = "%beta(555)"; run; data test5; set sashelp.class; %array(gamma[4] $ 12 ("101" "102" "103" "104"), macarray=Y) a1 = "%gamma(1)"; a2 = "%gamma(2)"; a3 = "%gamma(3)"; a4 = "%gamma(4)"; a5 = "%gamma(555)"; run; data test6; set sashelp.class; %array(ds = sashelp.cars, vars = Cylinders|, macarray=Y) a0 = %Cylinders(0); a1 = %Cylinders(1); a2 = %Cylinders(2); a3 = %Cylinders(3); a4 = %Cylinders(4); a5 = %Cylinders(555); run; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 10.** Creating an array from a dataset, basic case. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(ds = sashelp.class, vars = height weight age) %put _user_; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 11. Creating an array from a dataset, advanced. If: `vars = height#h weight weight|w age|` then create: 1. macroarray "h" with ALL(#) values of variable "height" 2. macroarray "weight" with ALL(no separator is equivalent to #) values of variable "weight" 3. macroarray "w" with UNIQUE(|) values of variable "weight" 4. macroarray "age" with UNIQUE(|) values of variable "age" Currently the only separator in VARS is a space. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(ds = sashelp.class, vars = height#h weight weight|w age|, q=1) %put _user_; %array(ds = sashelp.class, vars = height#hght weight weight|wght age|, macarray=Y, q=1) %put *%hght(&hghtLBOUND.)**%weight(2)**%wght(&wghtHBOUND.)**%age(3)*; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 12.** Creating an array from a dataset with dataset options ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(ds = sashelp.cars(obs=100 where=(Cylinders=6)), vars = Make| Type| Model, macarray=Y) %put *%make(&makeLBOUND.)*%Model(2)*%Model(3)*%Model(4)*%type(&typeHBOUND.)*; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 13.** Creating an array and macro from existing list of macrovariables ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %let myTest3 = 13; %let myTest6 = 16; %let myTest9 = 19; %array(myTest, macarray=M, q=1) %do_over(myTest, phrase = %nrstr(%put *&_I_.*%myTest(&_I_.)*;)) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ --- ## >>> `%concatArrays()` macro: <<< ########### The `%concatArrays()` macro allows to concatenate two macroarrays created by the `%array()` macro. By default values of the second macroarray are removed. Dimensions of the first macroarray are extended. The `%concatArrays()` macro executes like a pure macro code. ### SYNTAX: ##################################################################### The basic syntax is the following, the `<...>` means optional parameters: ~~~~~~~~~~~~~~~~~~~~~~~sas %concatArrays( first ,second <,removeSecond=Y> ) ~~~~~~~~~~~~~~~~~~~~~~~ **Arguments description**: 1. `first` - *Required*, a name of a macroarray created by the `%array()` macro. 2. `second` - *Required*, a name of a macroarray created by the `%array()` macro. * `removeSecond=Y` - *Optional*, default value `Y`, if set to `Y` then the second array is removed. ### EXAMPLES AND USECASES: #################################################### **EXAMPLE 1.** Concatenate macroarrays LL and MM. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(ll[2:4] $ 12, function = quote(put(today() + 10*_I_, yymmdd10.)), macarray=Y ) %array(mm[10:13] $ 12000, function = quote(repeat("A",123*_I_)), macarray=Y ) %put *%ll(2)*%ll(3)*%ll(4)*; %concatArrays(ll, mm); %put *%ll(2)*%ll(3)*%ll(4)*%ll(5)*%ll(6)**%ll(7)*%ll(8)*; %put *%mm(10)**%mm(11)*%mm(12)*%mm(13)*; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 2.** Error handling. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %concatArrays(ll, ) %concatArrays(, mm) %concatArrays(noExistA, noExistB) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ --- ## >>> `%deleteMacArray()` macro: <<< ####### The `%deleteMacArray()` macro allows to delete macroarrays created by the `%array()` macro. The `%deleteMacArray()` macro executes like a pure macro code. ### SYNTAX: ##################################################################### The basic syntax is the following, the `<...>` means optional parameters: ~~~~~~~~~~~~~~~~~~~~~~~sas %deleteMacArray( arrs <,macarray=N> ) ~~~~~~~~~~~~~~~~~~~~~~~ **Arguments description**: 1. `arrs` - *Required*, a space separated list of manes of macroarray created by the `%array()` macro. * `macarray=N` - *Optional*, indicator should a macro associated with macroarray to be deleted? If `Y` or `YES` then the associated macro is deleted. ## >>> `%do_over()` macro: <<< ###################### The code of the macro was inspired by *Ted Clay's* and *David Katz's* macro `%do_over()`. The `%DO_OVER()` macro allows to iterate over macroarray created with the `macarray=Y` parameter of the `%ARRAY()` macro. The `%do_over()` macro executes like a pure macro code. ### SYNTAX: ##################################################################### The basic syntax is the following, the `<...>` means optional parameters: ~~~~~~~~~~~~~~~~~~~~~~~sas %do_over( array <,phrase=%nrstr(%&array(&_I_.))> <,between=%str( )> <,which = > ) ~~~~~~~~~~~~~~~~~~~~~~~ **Arguments description**: 1. `array` - *Required*, indicates a macroarray which metadata (Lbound, Hbouns) are to be used to loop in the `%do_over()` * `phrase=` - *Optional*, Default value `%nrstr(%&array(&_I_.))`, a statement to be called in each iteration of the internal do_over's loop. Loop iterator is `_I_`, if you want to use `_I_` or array name [e.g. `%myArr(&_I_.)`] *enclose it* in the `%NRSTR()` macro quoting function. * `between=` - *Optional*, default value `%str( )` (space), a statement to be called in between each iteration of the internal do_over loop. If macroquoted (e.g. `%str( + )`) then the `%unquote()` function is automatically applied. * `which=` - *Optional*, a _SPACE_ separated list of indexes which should be used to iterate over selected macroarray. Possible special characters are `H` and `L` which means *high* and *low* bound of an array, list could be set with colons(`:`) in form of `start:end:by` (*no spaces between!*), if `by` is omitted the default is `1`. If possible use `1:5` rather `1 2 3 4 5` since the firs works faster. ### EXAMPLES AND USECASES: #################################################### **EXAMPLE 1.** Simple looping. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(beta[*] j k l m (101 102 103 104), vnames=Y, macarray=Y) %put #%do_over(beta)#; %put #%do_over(beta, phrase=%nrstr("%beta(&_I_.)"), between=%str(,))#; data test1; %array(beta[*] j k l m (101 102 103 104), vnames=Y, macarray=Y) %do_over(beta, phrase=%nrstr(a&_I_. = "%beta(&_I_.)";)) put _all_; run; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 2.** Multiple arrays looping. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(alpha[*] j k l m n, vnames=Y, macarray=Y) %array( beta[5] $ , function = "a", macarray=Y) %array(gamma[4] (101 102 103 104), macarray=Y) data test2; call streaminit(123); %do_over(beta , phrase = %nrstr(%beta(&_I_.) = %gamma(&_I_.) * rand('Uniform'); output;) , between = put _all_; ); put _all_; run; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 3.** Multiple arrays looping, cont. Create multiple datasets. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %do_over(beta , phrase = %nrstr( data %alpha(&_I_.)2; call streaminit(123); %beta(&_I_.)x = %gamma(&_I_.) * rand('Uniform'); output; run; ) ) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 4.** Multiple arrays looping, cont. Create multiple datasets using a macro. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %macro doit(ds, var=a, val=1); data &ds.; call streaminit(123); &var. = &val. * rand('Uniform'); output; run; %mend doit; %do_over(beta , phrase = %nrstr( %DOIT(%alpha(&_I_.)1, var = %beta(&_I_.), val = %gamma(&_I_.)) ) ) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 5.** `%do_over()` inside `%array()` ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(test[*] x1-x12 (1:12), macarray=Y) %put **%test(1)**%test(12)**; %put #%do_over(test)#; %array(abc[*] x1-x12 (%do_over(test,phrase=%nrstr(%eval(100-%test(&_I_.))))), macarray=Y) %put **%abc(1)**%abc(12)**; %put #%do_over(abc)#; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 6.** Looping over array with *macroquoted* separator. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(alpha[11] (5:15), macarray=Y) %let x = %do_over(alpha , phrase = %NRSTR(%alpha(&_I_.)) , between= %str( + ) ); %put &=x.; %put %sysevalf(&x.); ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 7.** Working with the `WHICH=` optional parameter ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(test[*] x01-x12, vnames= Y, macarray=Y) %put #%do_over(test)#; %put #%do_over(test, which= 1 3 5)#; %put #%do_over(test, which= 1:5)#; %put #%do_over(test, which= 1:5:2 7 8)#; %put #%do_over(test, which= L:H l:h)#; %put #%do_over(test, which= L:3 10:h)#; %put #%do_over(test, which= L:H h:l:-1 13 14)#; %put #%do_over(test, which= %eval(1+1):%eval(5+1))#; %put #%do_over(test, which= L:H h:l:-1 13 14, between=%str(,))#; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ --- ## >>> `%do_over2()` macro: <<< #################### The code of the macro was inspired by *Ted Clay's* and *David Katz's* macro `%do_over()`. The `%DO_OVER2()` macro allows to iterate over *two* macroarray created with the `macarray=Y` parameter of the `%ARRAY()` macro. The `%do_over2()` macro executes like a pure macro code. ### SYNTAX: ##################################################################### The basic syntax is the following, the `<...>` means optional parameters: ~~~~~~~~~~~~~~~~~~~~~~~sas %do_over2( arrayI ,arrayJ <,phrase=%nrstr(%&arrayI(&_I_.) %&arrayJ(&_J_.))> <,between=%str( )> ) ~~~~~~~~~~~~~~~~~~~~~~~ **Arguments description**: 1. `arrayI` - Required, indicates the first macroarray which metadata (Lbound, Hbouns) are to be used in the outer loop in the `%do_over2()` 2. `arrayJ` - Required, indicates the second macroarray which metadata (Lbound, Hbouns) are to be used in the inner loop in the `%do_over2()` * `phrase=` - *Optional*, default value `%nrstr(%&arrayI(&_I_.) %&arrayJ(&_J_.))`, a statement to be called in each iteration of the *inner* loop. The outer loop iterator is `_I_`, the inner loop iterator is `_J_`, if you want to use `_I_`, `_J_`, or arrays names [e.g. `%myArr(&_I_.)`] *enclose them* in the `%NRSTR()` macro quoting function. * `between=` - *Optional*, default value `%str( )` (space), a statement to be called in between each iteration of the internal do_over2 loop. If macroquoted (e.g. `%str( + )`) then the `%unquote()` function is automatically applied. ### EXAMPLES AND USECASES: #################################################### **EXAMPLE 1.** Looping over two arrays. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(alpha[*] j k l m n, vnames=Y, macarray=Y) %array( beta[4] (101 102 103 104), macarray=Y) %put *%do_over2(alpha, beta , phrase = %NRSTR((%alpha(&_I_.), %beta(&_J_))) )*; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 2.** Looping over two arrays with a separator. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(alpha[11] (5:15), macarray=Y) %array( beta[ 4] (101 102 103 104), macarray=Y) %let x = %do_over2(alpha, beta , phrase = %NRSTR((%alpha(&_I_.) * %beta(&_J_))) , between= + ); %put &=x.; %put %sysevalf(&x.); ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 3.** Looping over two arrays with *macroquoted* separator. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(alpha[11] (5:15), macarray=Y) %array( beta[ 4] (101 102 103 104), macarray=Y) %let x = %do_over2(alpha, beta , phrase = %NRSTR((%alpha(&_I_.) * %beta(&_J_))) , between= %str( + ) ); %put &=x.; %put %sysevalf(&x.); ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ --- ## >>> `%do_over3()` macro: <<< #################### The code of the macro was inspired by *Ted Clay's* and *David Katz's* macro `%do_over()`. The `%DO_OVER3()` macro allows to iterate over *three* macroarray created with the `macarray=Y` parameter of the `%ARRAY()` macro. The `%do_over3()` macro executes like a pure macro code. ### SYNTAX: ##################################################################### The basic syntax is the following, the `<...>` means optional parameters: ~~~~~~~~~~~~~~~~~~~~~~~sas %do_over2( arrayI ,arrayJ ,arrayK <,phrase=%nrstr(%&arrayI(&_I_.) %&arrayJ(&_J_.) %&arrayK(&_K_.))> <,between=%str( )> ) ~~~~~~~~~~~~~~~~~~~~~~~ **Arguments description**: 1. `arrayI` - *Required*, indicates the first macroarray which metadata (Lbound, Hbouns) are to be used in the outer loop in the `%do_over3()` 2. `arrayJ` - *Required*, indicates the second macroarray which metadata (Lbound, Hbouns) are to be used in the inner loop in the `%do_over3()` 3. `arrayK` - *Required*, indicates the third macroarray which metadata (Lbound, Hbouns) are to be used in the inner loop in the `%do_over3()` * `phrase=` - *Optional*, default value `%nrstr(%&arrayI(&_I_.) %&arrayJ(&_J_.) %&arrayK(&_K_.))`, a statement to be called in each iteration of the *inner* loop. The *outer* loop iterator is `_I_`, the *middle* loop iterator is `_J_`, the *inner* loop iterator is `_K_`, if you want to use `_I_`, `_J_`, `_K_`, or arrays names [e.g. `%myArr(&_I_.)`] *enclose them* in the `%NRSTR()` macro quoting function. * `between=` - *Optional*, default value `%str( )` (space), a statement to be called in between each iteration of the internal do_over2 loop. If macroquoted (e.g. `%str( + )`) then the `%unquote()` function is automatically applied. ### EXAMPLES AND USECASES: #################################################### **EXAMPLE 1.** Looping over 3 macroarrays. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(a1_[2] (0 1), macarray=Y) %array(a2_[2] (2 3), macarray=Y) %array(a3_[2] (4 5), macarray=Y) %do_over3(a1_, a2_, a3_ , phrase = %NRSTR(%put (%a1_(&_I_.), %a2_(&_J_), %a3_(&_K_));) ) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 2.** Looping 3 times over a macroarray. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(a[0:2] (0 1 2), macarray=Y) %do_over3(a, a, a , phrase = %NRSTR(%put (%a(&_I_.), %a(&_J_), %a(&_K_));) ) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ --- ## >>> `%make_do_over()` macro: <<< ########### The code of the macro was inspired by *Ted Clay's* and *David Katz's* macro `%do_over()`. The `%make_do_over()` macro allows to generate the `%DO_OVER()` macros. It works *only* for *n>3*! The `%make_do_over()` macro does *not* executes like a pure macro code. ### SYNTAX: ##################################################################### The basic syntax is the following, the `<...>` means optional parameters: ~~~~~~~~~~~~~~~~~~~~~~~sas %make_do_over( size ) ~~~~~~~~~~~~~~~~~~~~~~~ **Arguments description**: 1. `size` - *Required*, indicates the number of dimensions (i.e. inner loops) of the `%DO_OVER()` macro. ### EXAMPLES AND USECASES: #################################################### **EXAMPLE 1.** Code of created "4-loop" `%DO_OVER4()` macro ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %macro do_over4( arrayI1, arrayI2, arrayI3, arrayI4, phrase=%nrstr( %&arrayI1(&_I1_.) %&arrayI2(&_I2_.) %&arrayI3(&_I3_.) %&arrayI3(&_I4_.) ), between=%str( ) ); %local _I1_ _I2_ _I3_ _I4_; %do _I1_ = &&&arrayI1.LBOUND %to &&&arrayI1.HBOUND; %do _I2_ = &&&arrayI2.LBOUND %to &&&arrayI2.HBOUND; %do _I3_ = &&&arrayI3.LBOUND %to &&&arrayI3.HBOUND; %do _I4_ = &&&arrayI4.LBOUND %to &&&arrayI4.HBOUND; %if not ( &_I1_. = &&&arrayI1.LBOUND AND &_I2_. = &&&arrayI2.LBOUND AND &_I3_. = &&&arrayI3.LBOUND AND &_I4_. = &&&arrayI4.LBOUND ) %then %do;%unquote(&between.)%end;%unquote(%unquote(&phrase.)) %end; %end; %end; %end; %mend do_over4; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 2.** Create a "4-loop" `%DO_OVER4()` macro ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %make_do_over(4); %array(a1_[2] (0 1), macarray=Y) %do_over4(a1_, a1_, a1_, a1_ , phrase = %NRSTR(%put (%a1_(&_I1_.), %a1_(&_I2_), %a1_(&_I3_), %a1_(&_I4_));) ) %put *%do_over4(a1_, a1_, a1_, a1_ , between = * )*; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 3.** Create a "5-loop" `%DO_OVER5()` macro ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %make_do_over(5); %array(a1_[2] (0 1), macarray=Y) %do_over5(a1_, a1_, a1_, a1_, a1_ , phrase = %NRSTR(%put (%a1_(&_I1_.), %a1_(&_I2_), %a1_(&_I3_), %a1_(&_I4_), %a1_(&_I5_));) ) %put *%do_over5(a1_, a1_, a1_, a1_, a1_ , between = * )* ; options nomprint; data test2; %do_over5(a1_, a1_, a1_, a1_, a1_ , phrase = %NRSTR(x1 = %a1_(&_I1_.); x2 = %a1_(&_I2_); x3 = %a1_(&_I3_); x4 = %a1_(&_I4_); x5 = %a1_(&_I5_);) , between = output; ) output; run; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 4.** Create all from 6 to 10 "do_overs" ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(loop[6:10] (6:10), macarray=Y) %do_over(loop , phrase = %nrstr( %make_do_over(%loop(&_I_.)) ) ); ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ --- ## >>> `%mcHashTable()` macro: <<< ####################### The `%mcHashTable()` macro provided in the package is designed to facilitate the idea of a "macro hash table" concept, i.e. *a list of macrovariables with common prefix and suffixes generated as a hash digest* which allows to use values other than integers as indexes. The `%mcHashTable()` macro allows to generate other macros which behaves like hash tables or dictionaries. See examples below. The `%mcHashTable()` macro executes like a pure macro code. ### SYNTAX: ################################################################### The basic syntax is the following, the `<...>` means optional parameters: ~~~~~~~~~~~~~~~~~~~~~~~sas %mcHashTable( H <,METHOD> <,HASH=> ) ~~~~~~~~~~~~~~~~~~~~~~~ **Arguments description**: 1. `H` - *Required*, a hash table macro name and a declaration/definition, e.g. `mcHashTable(HT)`. It names a macro which is generated by the `%mcHashTable()` macro. Provided name cannot be empty or an underscore (`_`). No longer than *16* characters. 2. `METHOD` - *Optional*, if empty (or DECLARE or DCL) then the code of a macro hash table is compiled. If `DELETE` then the macro hash table named by `H` and all macrovariables named like "`&H._`" are deleted. * `HASH=` - *Optional*, indicates which hashing algorithms should be used, available values are `CRC32` or `MD5`, the `CRC32` is the default. --- ### THE CREATED MACRO `%&H.()`: #################################################### The created macro imitates behaviour of a hash table or a dictionary. It is *not* dedicated for "long-ish" lists (above 1000 elements) since the performance may be poor. The basic syntax is the following, the `<...>` means optional parameters: ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %&H.( METHOD <,KEY=> <,DATA=> ) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **Arguments description**: 1. `METHOD` - *Required*, indicate what behaviour should be executed. Allowed values are: - `ADD`, adds key and data portion to the macro hash table, *multiple data portions* are available for one key. - `FIND`, tests if given key exists in the macro hash table and, if yes, returns data value associated with the key. For multiple data portions see the `data=` parameter. - `DP` (data portion) or `CHECK`, returns the number of data portions for a given key. - `CLEAR` removes all data and keys values. - `KEYIDX`, allows to get data by the key index rather than value. - `KEYVAL`, returns key value for a given key index. - `CHECKIDX`, returns the number of data portions for a given key index. * `KEY=` - *Optional*, provides key value for `ADD`, `FIND`,`DP`, `CHECK` `CHECKIDX`, `KEYIDX`, and `KEYVAL` methods. Leading and trimming spaces are removed from the value. The `hashing(CRC32,...)` function or the `MD5(...)` function is used to generate the hash. * `DATA=` - *Optional*, provides data value for the `ADD` method and for the`FIND` method provides data portion number to be extracted. Default value is `1` (used by the `FIND` method). When macro is executed and when data are added the following types of *global* macrovariables are created: - `&H._########`, - `&H._########_Xk`, - `&H._########_Xi`, - `&H._########_Xi_j`, - `&H._KEYNUM`, - and `&H._KEY_i`. The `#` represents value generated by the `hashing(CRC32,...)` function or the `MD5(...)` function for the given key. The first type keeps information about possible collision for the key. The second type keeps information about value of a given key, the `X` keeps the track of other colliding keys. The third type keeps information about number of data portions for given key, the `X` keeps the track of other colliding keys. The fourth type keeps the data portion, the `j` indicates data portion number. The fifth type keeps the number of unique values of the key. The sixth type keeps the list of unique values of the key, the `i` indicates key number. See examples below to see use cases. --- ### EXAMPLES AND USECASES: #################################################### **EXAMPLE 1.** Basic use-case. Creating macro hash table, macro `HT` is generated. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %mcHashTable(HT) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Add elements to the `HT`. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %HT(ADD,key=x,data=17) %HT(ADD,key=y,data=42) %HT(ADD,key=z,data=303) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Add some duplicates for the key x. See macrovariables created. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %HT(ADD,key=x,data=18) %HT(ADD,key=x,data=19) %put _user_; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Check the number od data portions in macrohash for the key `x` and non existing key `t`. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %put ##%HT(DP,key=x)##; %put ##%HT(DP,key=t)##; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Check the number od data portions in macrohash for the key index 1 and 4. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %put ##%HT(CHECKIDX,key=1)##; %put ##%HT(CHECKIDX,key=4)##; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Prints first data values for various keys. Key `t` does not exist in the macrohash. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %put #%HT(FIND,key=x)#; %put #%HT(FIND,key=y)#; %put #%HT(FIND,key=z)#; %put #%HT(FIND,key=t)#; %put #%HT(FIND,key=x,data=2)#; %put #%HT(FIND,key=x,data=3)#; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Print first and subsequent data values for a given KeyIDX. Index `4` does not exist. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %put #%HT(KEYIDX,key=1)#; %put #%HT(KEYIDX,key=2)#; %put #%HT(KEYIDX,key=3)#; %put #%HT(KEYIDX,key=4)#; %put #%HT(KEYIDX,key=1,data=2)#; %put #%HT(KEYIDX,key=1,data=3)#; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Print the key values for a given KeyIDX. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %put #%HT(KEYVAL,key=1)#; %put #%HT(KEYVAL,key=2)#; %put #%HT(KEYVAL,key=3)#; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Clear and delete macro hash table `HT`. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %HT(CLEAR) %mcHashTable(HT,DELETE) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 2.** Combine `CHECK` and `FIND` methods with macros `%array()` and `%do_over()` ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %mcHashTable(H) %H(ADD,key=x,data=17) %H(ADD,key=x,data=18) %H(ADD,key=x,data=19) %array(A[%H(CHECK,key=x)]); %put %do_over(A, phrase=%nrstr( %H(FIND,key=x,data=&_i_) ), between = %str(,)); %mcHashTable(H,delete) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 3.** Populate macro hash table from a dataset. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %mcHashTable(CLASS) %let t = %sysfunc(datetime()); data _null_; set sashelp.class; call execute('%CLASS(ADD,key=' !! name !! ',data=' !! age !! ')'); call execute('%CLASS(ADD,key=' !! name !! ',data=' !! weight !! ')'); call execute('%CLASS(ADD,key=' !! name !! ',data=' !! height !! ')'); run; %put t = %sysevalf(%sysfunc(datetime()) - &t.); %put _user_; %CLASS(CLEAR) %mcHashTable(CARS) %let t = %sysfunc(datetime()); data _null_; set sashelp.cars; call execute('%CARS(ADD,key=' !! catx("|",make,model) !! ',data=' !! MPG_CITY !! ')'); run; %put t = %sysevalf(%sysfunc(datetime()) - &t.); %* %put _user_; %CARS(CLEAR) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 4.** Data portion may require quoting and un-quoting.. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %mcHashTable(CODE) %CODE(CLEAR) %CODE(ADD,key=data, data=%str(data test; x = 42; run;)) %CODE(ADD,key=proc, data=%str(proc print; run;)) %CODE(ADD,key=macro,data=%nrstr(%put *****;)) %CODE(FIND,key=data) %CODE(FIND,key=proc) %unquote(%CODE(FIND,key=macro)) %mcHashTable(CODE,DELETE) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 5.** Longer lists. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %let size = 1000; %mcHashTable(AAA) %mcHashTable(BBB) %mcHashTable(CCC) %mcHashTable(DDD) %let t = %sysfunc(datetime()); data _null_; do i = 1 to &size.; call execute(cats('%AAA(ADD,key=A', i, ',data=', i, ')')); end; run; %put t = %sysevalf(%sysfunc(datetime()) - &t.); %put &=AAA_KEYSNUM; %AAA(CLEAR) %let t = %sysfunc(datetime()); data _null_; do i = 1 to &size.; call execute(cats('%BBB(ADD,key=B', i, ',data=', i, ')')); call execute(cats('%BBB(ADD,key=B', i, ',data=', i+1, ')')); end; run; %put t = %sysevalf(%sysfunc(datetime()) - &t.); %put &=BBB_KEYSNUM; %BBB(CLEAR) %let t = %sysfunc(datetime()); data _null_; t= datetime(); do i = 1 to &size.; call execute(cats('%CCC(ADD,key=C', i, ',data=', i, ')')); end; t = datetime() - t; put t=; t= datetime(); do i = 1 to &size.; call execute(cats('%CCC(ADD,key=C', i, ',data=', i+1, ')')); end; t = datetime() - t; put t=; run; %put t = %sysevalf(%sysfunc(datetime()) - &t.); %let t = %sysfunc(datetime()); data test; do i = 1 to &size.; x = resolve(cats('%CCC(FIND,key=C', i, ',data=1)')); y = resolve(cats('%CCC(FIND,key=C', i, ',data=2)')); output; end; run; %put t = %sysevalf(%sysfunc(datetime()) - &t.); %put &=CCC_KEYSNUM; %CCC(CLEAR) %let t = %sysfunc(datetime()); data _null_; do i = 1 to &size.; call execute(cats('%DDD(ADD,key=D,data=', i, ')')); end; run; %put t = %sysevalf(%sysfunc(datetime()) - &t.); %put &=DDD_KEYSNUM; %put %DDD(CHECK,key=D); %DDD(CLEAR) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 6.** Forbidden names. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %mcHashTable() %mcHashTable(_) %mcHashTable(ABCDEFGHIJKLMNOPQ) %* bad; %mcHashTable(ABCDEFGHIJKLMNOP) %* good; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 7.** Hashing algorithms. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %mcHashTable(H1,DCL,HASH=MD5) %mcHashTable(H2,DECLARE,HASH=CRC32) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ --- ## >>> `%mcDictionary()` macro: <<< ####################### The `%mcDictionary()` macro provided in the package is designed to facilitate the idea of a "macro dictionary" concept, i.e. *a list of macrovariables with common prefix and suffixes generated as a hash digest* which allows to use values other than integers as indexes. The `%mcDictionary()` macro allows to generate other macros which behaves like a dictionary. See examples below. The `%mcDictionary()` macro executes like a pure macro code. ### SYNTAX: ################################################################### The basic syntax is the following, the `<...>` means optional parameters: ~~~~~~~~~~~~~~~~~~~~~~~sas %mcDictionary( H <,METHOD> <,DS=> <,K=Key> <,D=Data> ) ~~~~~~~~~~~~~~~~~~~~~~~ **Arguments description**: 1. `H` - *Required*, a dictionary macro name and a declaration/definition, e.g. `mcDictionary(HT)`. It names a macro which is generated by the `%mcDictionary()` macro. Provided name cannot be empty or an underscore (`_`). No longer than *16* characters. 2. `METHOD` - *Optional*, if empty (or DECLARE or DCL) then the code of a macro dictionary is compiled. If `DELETE` then the macro dictionary named by `H` and all macrovariables named like "`&H._`" are deleted. * `DS=` - *Optional*, if NOT empty then the `&DS.` dataset is used to populate dictionary with keys from variable `&K.` and data from variable `&D.` Works only during declaration. * `K=` - *Optional*, if the `&DS.` is NOT empty then `&K.` holds a name of a variable which keeps or an expression which generates keys values. Default is `Key`. * `D=` - *Optional*, if the `&DS.` is NOT empty then `&D.` holds a name of a variable which keeps or an expression which generates data values. Default is `Data`. --- ### THE CREATED MACRO `%&H.()`: #################################################### The created macro imitates behaviour of a dictionary. The basic syntax is the following, the `<...>` means optional parameters: ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %&H.( METHOD <,KEY=> <,DATA=> ) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **Arguments description**: 1. `METHOD` - *Required*, indicate what behaviour should be executed. Allowed values are: - `ADD`, adds key and data portion to the macro dictionary, *multiple data portions* are NOT available for one key. - `FIND`, tests if given key exists in the macro dictionary and, if yes, returns data value associated with the key. For multiple data portions see the `data=` parameter. - `CHECK`, returns indicator if the key exists in dictionary. - `DEL`, removes key and data portion from the macro dictionary. - `LIST`, prints out a dictionary to the log. - `CLEAR` removes all data and keys values. * `KEY=` - *Optional*, provides key value for `ADD`, `FIND`, `CHECK` and `DEL` methods. Leading and trimming spaces are removed from the value. The `MD5(...)` function is used to generate the hash. Default value is `_`. * `DATA=` - *Optional*, provides data value for the `ADD` method. Default value is blank. When macro is executed and when data are added the following types of *global* macrovariables are created: - `&H._########_K`, - `&H._########_V`, - `&H._KEYSNUM`. The `#` represents value generated by the `MD5(...)` function for the given key. The first type keeps information about the key. The second type keeps information about the value of a given key The third type keeps the number of unique values of the key. See examples below to see use cases. --- ### EXAMPLES AND USECASES: #################################################### **EXAMPLE 1.** Basic use-case. Creating macro dictionary, macro `Dict` is generated. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %mcDictionary(Dict) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Add elements to the `Dict`. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %Dict(ADD,key=x,data=17) %Dict(ADD,key=y y,data=42) %Dict(ADD,key=z z z,data=303) %put _user_; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Add some duplicates for the key x. See macrovariables created. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %Dict(ADD,key=x,data=18) %put _user_; %Dict(ADD,key=x,data=19) %put _user_; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Check for the key `x` and non existing key `t`. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %put ##%Dict(CHECK,key=x)##; %put ##%Dict(CHECK,key=t)##; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Prints data values for various keys. Key `t` does not exist in the macrodictionary. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %put #%Dict(FIND,key=x)#; %put #%Dict(FIND,key=y y)#; %put #%Dict(FIND,key=z z z)#; %put #%Dict(FIND,key=t)#; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ List dictionary content to the log. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %Dict(LIST); ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Delete keys. Key `t` does not exist in the macrodictionary. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %put #%Dict(DEL,key=z z z)#; %put _user_; %put #%Dict(DEL,key=t)#; %put _user_; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Clear and delete macro dictionary `Dict`. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %Dict(CLEAR) %put _user_; %mcDictionary(Dict,DELETE) %put _user_; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 2A.** Populate macro dictionary from a dataset "by hand". ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %mcDictionary(CLASS) %let t = %sysfunc(datetime()); data _null_; set sashelp.class; call execute('%CLASS(ADD,key=' !! name !! ',data=' !! age !! ')'); run; %put t = %sysevalf(%sysfunc(datetime()) - &t.); %put &=Class_KEYSNUM.; %put _user_; %CLASS(CLEAR) %mcDictionary(CARS) %let t = %sysfunc(datetime()); data _null_; set sashelp.cars(obs=42); call execute('%CARS(ADD,key=' !! catx("|",make,model,type) !! ',data=' !! put(MPG_CITY*10,dollar10.2) !! ')'); run; %put t = %sysevalf(%sysfunc(datetime()) - &t.); %put &=CARS_KEYSNUM.; %CARS(LIST); %put %CARS(F,key=Audi|TT 3.2 coupe 2dr (convertible)|Sports); %CARS(CLEAR) %put &=CARS_KEYSNUM.; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 2B.** Populate macro dictionary from a dataset "automatically". ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %let t = %sysfunc(datetime()); %mcDictionary(CLASS,DCL,DS=sashelp.class,k=name,d=_N_) %put t = %sysevalf(%sysfunc(datetime()) - &t.); %put &=CLASS_KEYSNUM.; %put _user_; %CLASS(CLEAR) %let t = %sysfunc(datetime()); %mcDictionary(CARS,DCL,DS=sashelp.cars(obs=42),k=catx("|",make,model,type),d=put(MPG_CITY*10,dollar10.2)) %put t = %sysevalf(%sysfunc(datetime()) - &t.); %put &=CARS_KEYSNUM.; %CARS(LIST); %put %CARS(F,key=Audi|TT 3.2 coupe 2dr (convertible)|Sports); %CARS(CLEAR) %put &=CARS_KEYSNUM.; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 3.** Data portion may require quoting and un-quoting. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %mcDictionary(CODE) %CODE(CLEAR) %CODE(ADD,key=data, data=%str(data test; x = 42; run;)) %CODE(ADD,key=proc, data=%str(proc print; run;)) %CODE(ADD,key=macro,data=%nrstr(%put *1*2*3*4*;)) %CODE(FIND,key=data) %CODE(FIND,key=proc) %unquote(%CODE(FIND,key=macro)) %CODE(LIST); %mcDictionary(CODE,DELETE) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 4.** Longer lists. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %let size = 1000; %mcDictionary(AAA) %let t = %sysfunc(datetime()); data _null_; do i = 1 to &size.; call execute(cats('%AAA(ADD,key=A', i, ',data=', i, ')')); end; run; %put t = %sysevalf(%sysfunc(datetime()) - &t.); %put %AAA(F,key=A555) %AAA(CHECK,key=A555); %put &=AAA_KEYSNUM; %AAA(CLEAR) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 5.** Forbidden names. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %mcDictionary() %mcDictionary(_) %mcDictionary(ABCDEFGHIJKLMNOPQ) %* bad; %mcDictionary(ABCDEFGHIJKLMNOP) %* good; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 6.** More fun with datasets. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas data work.metadata; input key :$16. data :$128.; cards; ID ABC-123-XYZ path /path/to/study/data cutoffDT 2023-01-01 startDT 2020-01-01 endDT 2024-12-31 MedDRA v26.0 ; run; proc print; run; %mcDictionary(Study,dcl,DS=work.metadata) %put _user_; %put *%Study(F,key=ID)**%Study(C,key=ID)*; title1 "Study %Study(F,key=ID) is located at %Study(F,key=path)"; title2 "it starts %Study(F,key=startDT) and ends %Study(F,key=endDT)"; footnote "MedDRA version: %Study(F,key=MedDRA)"; proc print data=sashelp.class(obs=7); run; title; footnote; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ --- ## >>> `%QzipArrays()` macro: <<< ####################### The zipArrays() and QzipArrays() macros allow to use a function on elements of pair of macro arrays. For two macroarrays the corresponding elements are taken and the macro applies a function, provided by user, to calculate result of the function on taken elements. When one of the arrays is shorter then elements are, by default, "reused" starting from the beginning. But this behaviour can be altered. See examples for the details. By default newly created macroarray name is concatenation of first 13 characters of names of arrays used to create the new one, e.g. if arrays names are `abc` and `def` then the result name is `abcdef`, if arrays names are `abcd1234567890` and `efgh1234567890` then the result name is `abcd123456789efgh123456789` The `zipArrays()` returns unquoted value [by `%unquote()`]. The `QzipArrays()` returns quoted value [by `%superq()`]. See examples below for the details. The `%QzipArrays()` macro executes like a pure macro code. ### SYNTAX: ################################################################### The basic syntax is the following, the `<...>` means optional parameters: ~~~~~~~~~~~~~~~~~~~~~~~sas %QzipArrays( first ,second <,function=> <,operator=> <,argBf=> <,argMd=> <,argAf=> <,format=> <,result=> <,macarray=> <,reuse=> ) ~~~~~~~~~~~~~~~~~~~~~~~ **Arguments description**: 1. `first` - *Required*, a space separated list of texts. 2. `second` - *Required*, a space separated list of texts. * `function = cat` - *Optional*, default value is `cat`, a function which will be applied to corresponding pairs of elements of the first and the second list. * `operator =` - *Optional*, default value is empty, arithmetic infix operator used with elements the first and the second list. The first list is used on the left side of the operator the second list is used on the right side of the operator. * `argBf =` - *Optional*, default value is empty, arguments of the function inserted *before* elements the first list. If multiple should be comma separated. * `argMd =` - *Optional*, default value is empty, arguments of the function inserted *between* elements the first list and the second list. If multiple should be comma separated. * `argAf =` - *Optional*, default value is empty, arguments of the function inserted *after* elements the second list. If multiple should be comma separated. * `format=` - *Optional*, default value is empty, indicates a format which should be used to format the result, does not work when the `operator=` is used. * `result=` - *Optional*, default value is empty, indicates a name of newly created macroarray, by default created macroarray name is concatenation of first 13 characters of names of arrays used to create the new one. * `macarray=N` - *Optional*, default value is `N`, if set to `Y`/`YES` then a macro, named with the array name, is compiled to create convenient envelope for multiple ampersands, see the `%array()` macro for details. * `reuse=Y` - *Optional*, default value is `Y`, when one of the arrays is shorter then elements are *reused* starting from the beginning. If `CP` then function is executed on the *Cartesian product* of arrays elements. Any other value will cut the process with the end of the shorter array. See examples for the details. ### EXAMPLES AND USECASES: #################################################### See examples in `%zipArrays()` help for the details. --- ## >>> `%zipArrays()` macro: <<< ####################### The zipArrays() and QzipArrays() macros allow to use a function on elements of pair of macro arrays. For two macroarrays the corresponding elements are taken and the macro applies a function, provided by user, to calculate result of the function on taken elements. When one of the arrays is shorter then elements are, by default, "reused" starting from the beginning. But this behaviour can be altered. See examples for the details. By default newly created macroarray name is concatenation of first 13 characters of names of arrays used to create the new one, e.g. if arrays names are `abc` and `def` then the result name is `abcdef`, if arrays names are `abcd1234567890` and `efgh1234567890` then the result name is `abcd123456789efgh123456789` The `zipArrays()` returns unquoted value [by `%unquote()`]. The `QzipArrays()` returns quoted value [by `%superq()`]. See examples below for the details. The `%zipArrays()` macro executes like a pure macro code. ### SYNTAX: ################################################################### The basic syntax is the following, the `<...>` means optional parameters: ~~~~~~~~~~~~~~~~~~~~~~~sas %zipArrays( first ,second <,function=> <,operator=> <,argBf=> <,argMd=> <,argAf=> <,format=> <,result=> <,macarray=> <,reuse=> ) ~~~~~~~~~~~~~~~~~~~~~~~ **Arguments description**: 1. `first` - *Required*, a space separated list of texts. 2. `second` - *Required*, a space separated list of texts. * `function = cat` - *Optional*, default value is `cat`, a function which will be applied to corresponding pairs of elements of the first and the second list. * `operator =` - *Optional*, default value is empty, arithmetic infix operator used with elements the first and the second list. The first list is used on the left side of the operator the second list is used on the right side of the operator. * `argBf =` - *Optional*, default value is empty, arguments of the function inserted *before* elements the first list. If multiple should be comma separated. * `argMd =` - *Optional*, default value is empty, arguments of the function inserted *between* elements the first list and the second list. If multiple should be comma separated. * `argAf =` - *Optional*, default value is empty, arguments of the function inserted *after* elements the second list. If multiple should be comma separated. * `format=` - *Optional*, default value is empty, indicates a format which should be used to format the result, does not work when the `operator=` is used. * `result=` - *Optional*, default value is empty, indicates a name of newly created macroarray, by default created macroarray name is concatenation of first 13 characters of names of arrays used to create the new one. * `macarray=N` - *Optional*, default value is `N`, if set to `Y`/`YES` then a macro, named with the array name, is compiled to create convenient envelope for multiple ampersands, see the `%array()` macro for details. * `reuse=Y` - *Optional*, default value is `Y`, when one of the arrays is shorter then elements are *reused* starting from the beginning. If `CP` then function is executed on the *Cartesian product* of arrays elements. Any other value will cut the process with the end of the shorter array. See examples for the details. ### EXAMPLES AND USECASES: #################################################### **EXAMPLE 1.** Simple concatenation of elements: ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(a[*] x1-x3 (1:3)) %array(b[*] x1-x5 (11:15)) %put _user_; %zipArrays(a, b); %put _user_; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 2.** Shorter list is "reused": ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(a[6] (1:6)) %array(b[3] (10 20 30)) %zipArrays(a, b, result=A_and_B, macarray=Y); %put %do_over(A_and_B); ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 3.** Use of the `operator=`: ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(c[0:4] (000 100 200 300 400)) %array(d[2:16] (1002:1016)) %zipArrays(c, d, operator=+, result=C_plus_D, macarray=Y); %put (%do_over(C_plus_D)); %put %C_plus_D(1); ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 4.** If one of array names is empty or an array does not exist: ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(a[6] (1:6)) %array(b[3] (10 20 30)) %zipArrays(a, ); %zipArrays(, b); %zipArrays(a, z); %zipArrays(z, b); ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 5.** Use of the `function=`: ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(one[3] A B C, vnames=Y) %array(two[5] p q r s t, vnames=Y) %zipArrays( one ,two ,function = catx ,argBf = %str( ) ,format = $quote. ,macarray=Y ) %put %do_over(onetwo); ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 6.** To reuse or not to reuse, or maybe Cartesian product: ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(e[3] (10 20 30)) %array(f[2] (5:6)) %zipArrays(e, f, reuse=n, operator=+, macarray=Y, result=_noReuse); %zipArrays(e, f, reuse=y, operator=+, macarray=Y, result=_yesReuse); %zipArrays(e, f, reuse=cp, operator=+, macarray=Y, result=_cartProdReuse); %put %do_over(_noReuse); %put %do_over(_yesReuse); %put %do_over(_cartProdReuse); ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 7.** Use middle argument: ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(yr[3] (2018:2020)) %array(mth[12] (1:12)) %zipArrays(mth, yr, argMd=5, function=MDY, format=date11., macarray=Y); %put %do_over(mthyr); %zipArrays(mth, yr, argMd=5, function=MDY, format=date11., macarray=Y, reuse=cp); %put %do_over(mthyr); ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ --- ## >>> `%sortMacroArray()` macro: <<< ####################### The sortMacroArray() macro allow to sort elements of a macro array. The **limitation** is that sorted values are limited to 32767 bytes of length. See examples below for the details. ### SYNTAX: ################################################################### The basic syntax is the following, the `<...>` means optional parameters: ~~~~~~~~~~~~~~~~~~~~~~~sas %sortMacroArray( array <,valLength=> <,outSet=> <,sortseq=> ) ~~~~~~~~~~~~~~~~~~~~~~~ **Arguments description**: 1. `array` - *Required*, name of an array generated by the `%array()` macro. * `valLength = 32767` - *Optional*, default value is `32767`, maximum length of a variable storing macrovariable data. (the reason of 32767 limitation) * `outSet = _NULL_` - *Optional*, default value is `_NULL_`, an optional output dataset name. * `sortseq =` - *Optional*, default value is `LINGUISTIC(NUMERIC_COLLATION = ON)`, sorting options for use in an internal `Proc SORT`. ### EXAMPLES AND USECASES: #################################################### **EXAMPLE 1.** Basic use-case. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas options mprint; ods html; ods listing close; %array(hij [4:9] $ 512 ("C33" "B22" "A11" "A01" "A02" "X42"), macarray=Y) %put NOTE: %do_over(hij); %sortMacroArray(hij, valLength=3, outSet = A_NULL_(compress=char)) %put NOTE: %do_over(hij); ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 2.** Basic use-case. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas options mprint; ods html; ods listing close; %array(ds = sashelp.class, vars = name|NNN height|h, macarray=Y) %array(ds = sashelp.cars, vars = model|, macarray=Y) %put NOTE: %do_over(NNN); %put NOTE: %do_over(H); %put NOTE: %do_over(model); %sortMacroArray(NNN, valLength=30, outSet = A_NULL_(compress=char)) %sortMacroArray(H, valLength=32) %sortMacroArray(model, valLength=120) %put NOTE: %do_over(NNN); %put NOTE: %do_over(H); %put NOTE: %do_over(model); ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ --- ## License #################################################################### Copyright (c) Bartosz Jablonski, since January 2019 Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation files (the "Software"), to deal in the Software without restriction, including without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to the following conditions: The above copyright notice and this permission notice shall be included in all copies or substantial portions of the Software. THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. --- macroarray-1.2.3/hist/1.2.0/macroarray.zip000066400000000000000000001477301452773550200201740ustar00rootroot00000000000000PKZgW6q1;h description.sasVmo6n@b@bOSo0'mE"U#!oQ[ӥH:{9t` q B;̅DkSo䌧l}خI:\Kz(<(P`1g9rg*3;B -y͑ q{w;7|0tj۴1Wx1.(@Rv)eSVL7!d@($a qXh,]Rh=RTD(V'uTQfk~[dL>FL(G_|,ڃH L Ak(5B-B{'֠5Ch10&0sfxx5^^lJ̑u:u0Cװd!JjkR3.p%7?ƣnO7d,O_Yc`Sq[Y9Jy0LpoDڸ.Cs" fvVtMEevafdKfA+üNT" Utۻ Z ò*$d+c\3w.ðs(uA)GXkzp @=b]w"YБJP֫y 3mJRL8ۇqJy-Apذ0!zM^<;hikI0svy3;.)oFwד鍏Z)[rH3o޿1`wQތ&Gl#·(Y 4KSQlEWiQ[m4f^T h A:>_>v4u?%Km\oUzy~5\i)l1h]>ѕTDh6Ēy,%,ϒLT@Jtȷp3+"jKƫԺM-<PAA[3X۔ULQʗ,G 3YZJ dK/4!mwQ])BJ%>ٚ}PKZgW*riG license.sas]RK0GqڕLb!I qbdL`w"!gg}7[3|KQxoC=1.^N XP3h(hQ>p4>\8݁޶F!!t=T k7~RȌ@͗\L9>8Ik8w=I|ڊ#={ AV8髧dn0O3Ľ;,z*z$&`x=10h}o"'ZjS,nDQ=:k46Pvҵv _p 6SGv[j`o[Ceܱ7#>NMG},,90APId<=K`#en'$+- `"K$k(eU EQ:#X b%dmJ 5LdsfB4.J *&s&Z˪9ȐB _y@YKGl$YR<.XyƱ8s~\i*#P%`<͒SF%IˢL0l^Q5d!f"XX+ ޝG轮+#dHVxJ2W PKZgW=4 $packagemetadata.sasMK1aS XAEzZ2ͦ|$M[ċiY !ŏIod$N\hHxz Nj?ɵA9{(P*Q sN \#C^ GpP0i}kHB83;+R6-vXH4)Owyfr(^<,)&AK~3elZ֌9f'PKZgWiceloadpackage.sas͗mO0O;"JJ`bbلDԕ2M9.D$qFwEܝ/ ` S\P(oL b !;P03[gnu~ڡ`qD#5rCF\r `ʥ\o*6IVS,Z f 6~ɬN%W]> $QO6rc. @.8M[F]cl׀Ea oqn FU**өKpL50"`-p 06 Nñ-I/b؏hz:e YBT8H)ӯL_.1x% S+U/ì<<|:=wٶLݑ`aY$B a`v7˚cU`Zug;gtUmLlg> /'G fr"e_2MN&L݀/aop &542tGWїj4'b2C|"oKM{W̨T# ܟŹYnDGWx-´1xn, dqr.P5b9M?Jw78p{9vЏxI* С%y"&2~_k5ThJZv¶۸hѦUa&{wgv^PKZgWg 7Iload.sas\oXg6$>vlԹgW+؏`n?cz Wi.gdR' n?}i6ߟipn7n Zå= &U_\n4a4fqWQ* a9@&}s Ι\c14GFvih7>ݙzcەr<+FpXV%+Jʘέ!>R`dkx֛y CkjC1{A*RN'Kژ뭡=JB-mq7K3̜@jh=Fdp\ˎՙ,Y~L  0MlnLb N-dX9D!8aJ^s+pܞkG׹H;MEwY $k\&t))9bC5;='rr͞8,WJ&b"09 y`<fwKYFiXYohqP cֹ!0^.mp\[ÿxߎB o@L^֌إ/eMD4G(`i{4/X3XhEnK`Hb`=xc~懏ŘL3UXc:krHN\_٫,N2Xs0Nubx'KHbnȣm(b5wI_:N+ '0"sT]1"V)[6 T&h;45\{.$o!?,qC uI ?,QUkBOlb?10/e)tQTs|`PTդVkSGS9C +sr.@{zuL(5<\ʢtgO0Q}&V9GyKqŒ\pqm sS7SJS խduxjn'N+y Hz.1S#4gZ,hWҢ}Aǘxf/,h)<?i*OF=(UC}{qp8q-Ù=aXOMz76 _kkK5dɴ O:og)j zW9O. 8j~ =lM;=1e$Xr]=9֙sI?IoB〲r@OL:TpR+ֳ˭rGď[ r +?ֻ0ArTxrcj@Q_];}yN\ T5K獭9 .Tz>4и3|lOM\7cLA<{yI5w o1ԩawg߮O7חX[ ZCA60GUB98ǸqUw/ic fWZ儸9(AJ ͡HbC{ cZp\`.tz߂)]՜*tq:h^TD]hIY8SCK6|⌢v7x=FSNZ^o7^oFhU&qL0ϟwd ĝfћCyQq ,u`&;Qk%%+KtzGwe15,oR›Wf^̘֨of1:ݥz ($V7IOz^LXN4Ƹl=z-7qQ)#SRDѧ^kN;[h4\6_erlNGX^Vo'Q"d\ -svX["'v.%SJ6s=|wn+*ja _ku{ZNXGZ6۸',sUn))}l܇p^Df]=x$~fTEF)˽Fy6WfE;JYYdߞ8B_Ii×l˵H:@Z=u)ЍLH&1!jFյA1Hy~AUKϮ'/W>3o⾖x,gBNS̋, wq)YI\x(xm_KBT*н>gXQ9O PKZgWᥭXB lazydata.sasQMk@ Af $`QJ~z%unZo6Vll驇=̾7r׳1Mt;*/#1`[((Yv{b; 慄`@~͗$6yD~1%$i7p3E@Gt? (&ieBDX0.Mס3c0nϊG*m8$GQ$%Ҹgr uxij?YO19d6:ɝACix[{4ߡq{'GHM*{DEiu̗F1fPf - PKZgWu݋ unload.sasXQs6~LÞlꒄt.3e|mFȖc误$ 4FZzY@IC3ÃÃB@{D-ؿ÷B'N$<`KnuFa_Zȳq|T'_6̗||c*gDô`N~~c\-_@HBlӅXD4eSv?IB@]+_A"=fUzvká}u+k-{޾(TiD T8%IOӔHqL)V8JaB`*ݔd`퉚O(݅Yv7*ԾH,Riqkir ʵ92HvldMy'-w K hFzvuVߑNW_yo7֏}pc>׷Rfy׮SRH ]*w>qmCECou+/ݎZNT_84iP>AiԌ2l\^Þ!.Zӿyo bcF*ݯR7% L9)+)"Pml1c"5(梖5Se(FS͎XM3d p>$?@K+{d] OEFNB ' Sz[ PX9->.4|YM4 YDiKg[k2Z O|!Ml1[=5YZ}XXleS4?J s+02t9g/W82cF7=3 Lީ> ~nҹ Gyi=)(ǽ0Kq)иkM,&M$H+NESuح+!T)6,&pk[p3$ ''*.q1,g=q! D#N=Hɚ|ֆ/cεA٣9ٸUhU ~<;<%*&qgFJd) 2/g^aK}j!N~Hqt1P6 כDͷpTSҗ@hsXGr+~/Wbu,D鷳WϛÃ㪼((묨PKZgWuk preview.sasXo:%A/$P^Jj+[&D q;xq8Вs|hH6޽1>v݂(0_`x!n̮l!"7D{g!vCVr O"73v|!=>ΆĶ'w_%bb[] j?{AiUsZ,>/9HgT@@^H$t'*X$Wf-dί =B&h J \,]xjT7iwW_ԬT*T3 ʀ˽xD>'܂A-9NS>WEG&npNAn3, -79 $0g7F(8Zp(w D5izhOuUKƤ7G{לi˝c41>Nf< /?" CMkkoKbld Z% n: $XP#KAnafkO!2U]^"~A׏'tS.iAps;6)z`°;8Kc#1[H* <6-4HX`N  A( @-p8r"aj(BdADLsAHK^ΕTŬ")L@.֒xwZR{ TaXe)Ֆ`ze0:p\ǵ FX t|W$V^;$& Y1G!T_?"_ pF }2GdL+" JJu ^Xs %QUO., sdKt{ עG;p':c6Wx(ށ83=ޡlo[Z?7w_")>BQG0.wXm2d2#36˄ZB9r R+@"5K@phsEk-B"sYc-y>g.w "ˑ.l&`aTV7YabF7ǬfWd h y0 ӆ Xo馅5#&Jơ' Lårk\SE)Ջ9ՊbBƳbjfy` ~p jL)$IČI Ó5r^)sLh*1Ayٸ@~{NξP*//I*(@c=]z58JZzd?u"喼L\<', MZDyx|q8Okp1,ɳJOEya03{i``aᖝLw?neƘ~тZ^-9nͭVy^K^[mhus[?%໎!J:\ ZI"*г~=[mOeWZzPⵤE^I p:,Q(_XqkE󍔺L*!"T Fߗ1D>dkeD#[ Q*o+ njW_i/(ʷH|kz:☜K0.rm0G__o<EYPw%$ #O(X٪SSuf 5 +;S*Ov*k#Rވn7azB_c|=skN/$ɰ٩PKZgW _001_macro.appendarray.sasV[o6~7p,ɲt71.! :CMKM"]>tRǍӢ5K' Cx5:} h6a8,TRn(Hd R=/BH:dkh6.t 0 +eTQ-X¹4 1T^o(aZ[ckH \^R r54 B( AB^`Iq9cJMEz.+G74+ ؗ%*_̩SǴ"}׿n>MfZrcS6L#7 8؈#'Da UlpD7FFl o6؊` TK̹X9)|þ0qhoǒ)xRڬ|ɑz,@펺enu8ޒtwR<28Ly|#KK@ͩ)B`rIhdZI׼ ǘ+32lPKZgWhiP/{_001_macro.appendcell.sasY[oH~G?q/˾l%4"i5 VSe7M9e2ɖp];9Eɲ,Pi=vK%+l߯r˛O0bpyy |6e#Z6.K >,l&yxy(If3,ɤzSM), m;r@ 7}{;;;ax4ơ}"B|tΗ$]KrPS?`UZ u~i$(1`$'Rg3]SLZf= \|((]Od3&l"UU(sHWSs=I#?AjBWUȏD[A#4I=uBÞ!,.x?-!Y"8d HؤMp{}45h ct&[k~J8ڱ  D:lȩ?7T80˦ %ڰ(׫rHڧs}qA%;5TIs]s~ivK l}lӌ&#)xr&=X(kU B {UVD-:tBP:ƪ;Hcqoy,; EX ݾqe[FO{F ;O ]VBz[kVpۼoUn/v}W'\̇c* (5J!),KA=2Wi2;`9nȽHT~u@Tqbm2pг"iUY%D)fMj68D%âVFRXkHBqD6.fJj>@SܨΗvR"Z>Z=&J wiBUa]zкr>)n"Kz5g tYN((P7#AUmpty)g@j6itRAG Gnk"[tvz?7* kVqN/,w},\:|u(:, 'iW+a@k_QCOSӊS:D rPkC{t KXê%0")zMJ<0{KVy>悢ĆذoHlQ gJO:"G5:^ߎO>͑~[~yyJH=\:tgMXpaQr<^2)ۮKq n5XZJ_Ou9 LB~`)u{2dr 'wA)HkC7@th" d,C,^F?qpĈS!<)۔|0yzRpteIx_V̟BؐS>x-nI%z-(27 j3ZVu< ui5( SIy gj ?e=1׳Q|3gxPKZgWؓZqy_001_macro.array.sas=mw8{NJ73t&tB7!Blj$v{%ٲ1iҤ=3{L"v>gͣt?~?z|7l߷g3{{{ŋ\{9Y;/iǏސ3ol]s`|.q r+3} ?X$xƕ]r?p<} Xe!TۃCC'`C8cngv&] sJ6:A?jS+'@ٌp#r3;{ʂ y/=~t,t el> 7T|z ٳ9P`KonB9tY̜3%׻"`_m됻(`AHI20aC`Wvh sٝUb-f#  5,B!%]CV=fpPiȎ};tܱ.y0j< PW%)5jP=9zW4&'p6Lve(|c6IJ 3I>h!eN(}D€jL*7yWlGNK/ȯe įM ]QEHT|L M+Qq7֎L)G;=ow쭳*w(\.hyH+p ETz rH-ֹHC v6f ~{QP/8H_ +2;si6) 0`Vl= :d'afˆ`VŒ3PumlJ%9-ZC 6rCA;^Ɓ9ZW8 gԻVF)ރ{}f`Grd Oa=@?qYpq0̇ e0&)JP ٘E[STQX̊VʬWt"nsگOe~TB#sJ<=]")bXA^݉ACGz%$ L}y}kpnQFv(ȏ4)G ΁<H8'p##wD5ّQG]*&lSGI2iPDkde'D<_(P|`[* ;!{9p{d P H9r{̰ʕ/acxECOc\I b@~1y< +Jb@;pof@RlZ(>P>͆#$\F* H4j,]Wm~kJ">8|adP0Y`lLŠ²K:!Soňt2އ0 b) ա·!a:򽙮fw-S53ٻeֲQ\y 85 ~ &hC3ۃwBݢf;KRU>/8&^-2Uұ" u,2`EqF@ު01ӌ9RQzM3O=H\p]Erl -SfÜg#!5d9~ZN}lz ^,`]3hSs'DJ"J YYMʱp5 kVA9e?3`蝁 |$D0M%#iᅔmhRQ  Y!!XDK'7,DiN? p%=v4 l$8ohӉx*~dȜ~&#꠽o;4y}ӄ4(b!(ː ̆s1x@kfE z~Fxu_SFw~tn|6OJ16$R@,T|Cp*#ڡTe"n⧧XE t7T"Թ& UD P6z$" YgD^y շ,*5Ogg5/&1l4\aTQؔ0c/7ŀ,.I5BI)RX,Ad~ -񣊷FO5IR @ׅ‡0F_ LA`y >ᾞ7i+FbHb`618À`;ġ`B1P#ktmCb0ض1c@do6NδY z&K^M%)LZ"LrDi:IN,gc[Ŕ z {8A{,=3v H\'*)Tʴ ( @]uvkR;Ş_Y6RvZ.#>q2alL8zcB%I!2%A~3O>RRiƏS@G#L0vOޮqPGMZ׾_j?7uZEEq-'2O:lh7 QXs,}d̏pۗ0_EJ@0BnIJb$Lt%ѮSznl|7h{ܴ7M?_l0 9xw1#9+~A.6hϻ}  .պ[!8A}1352Ԃ-7eL1@tS6/IMCO i6E>|BJ$ǣEl$H9eH/b+wssHez#Nm1M"|^#0g- A9:⸎ ɻiߘ1[z XЊ$J;C^nm0#13؍үc =D LR}43_HԷR$,Mߍ.R"v kx0ٖOSHz A`ݣ=H 5+e@Vd?Σ *Dw1KY9$d=G̷Dvc>ʝ>ECg4+cDŽeDĀ 鵔tJ17X_RާM%]|M#Is,$w8X56Jd3Y|Zp(RQ\DrB?d Ee4j+f)䟑aF."ˠ Qڊo h*TVl\gm,]O*ü|WkUmU{!oM1ZgpF,Έ[fhVd`՞EI%5v<յYʆ}Eώ{n9* XOWWi27B8fwɼn5 JORmڃsYZ(?ya*.OE#~5Yk52ʛsI AhaŲ~}'ǤIń~/)"MO2/pltS 0zs9"LCW[}n"[?,j,?<8tEA;AŸ)JȈ~D?_/:@swSLMyl;nG3w툝R2Go!3ggn͓IG@A>u-╬'V2v/d/2D!< ~d#iP>>rm#M(o8Y9'`|lX+VZY\iݬE X¯vI: YkJ-ZkQAx72W=.Pf6eAGgߩAُ6N:Rmq"/5pEfs.,M:*;j 6H6;PRhNqj+{xn!~r0M]f<,%S$YN$YNUY#AfQ(Fb.JÈp#aD8QP 0RC2]1q1!1&$eb'8cB7@`0׺#>cβXd;>iwqG[ޱ~t]90l"SaCWefxdf(P3Q(<Z\5<<_o0L[8,$5bhl'LTUzqTTNx=OK"UX#%;Nzs⼷wl>:#\g‚ 0PZ,,Fb\`ʦxVLcZRK/xyx/PPg627,w6 4;!嗻?Ύޗ-{мd|nbA}vdU S+<{/D>9%E&|B vޗ=~1:4;GA;Vtz3툍CtAߘNTI~WğkkA-2M Sz;㹐dgԐi-cVinV=J+Z~1 rgPOص<7U}޿;c"\.cC666 = @3`+QP s=|s,| ,ހ~tP}e[iӉc|}3jym<ȇ,Ƴ׮%~H Aw=d|C_oSؑҤ% ѻ\c2 HȃВO&PR2 C8"í񶅻6eQP *TEAU W +B|;H >)ea$NMbS6t>Y;vI!AMt ]YX6ueaQըp7.5U]<Y2#0@N,-ǥVj\"uTގʱ=8!ӝ"s eVZͭan(Wh+D*Ed>8֟_Nz,wP*NkVFJ)=ot9FJku!G\@[[yʭ|pM=f7DŤKМHny6i|8Z{xzAy9<ݗxrPMBH?wә~t=Y(蜊i{:{1rѬ@5]WХ' Q646k NzW=*l٧_2қ ^7"sY{$TϬ銭ܝAE<#aj*7Lqī ߛ˕l. ;H[.R a8*b Z>KDK}cM^_,UO|r,{^ D kx],o:EJypC|}oj ހap}t ry.l;/@=(VC.zNS)a&_옄:a) _.BwI@~Xw $QK=ϼ+Թغĭ`@Ngcո%@KXzW4 3ꍥf[zXXOT\xVf,+xf;0ѼLl?PKZgW%U0_001_macro.concatarrays.sasXmS8=s8/a.дpCLC[ V*Ʉ܇(mlu馲BG-D򧧺lP)?*90h7|V Є5kGd]Xu=L$ kUBW94$jFmȩVDq:¢ٶZW(A+8~՞Kl{$.Y7bK6h8 R X5 A1s1e[QO*fIJ0Ys`mqqhU&f P4 `q|D F 11215 ~" 6gxWKs#[)Jd/iI,DiN#`S ֢:s:4cИpwQ׵8:4 dz"wZMr2 xJXo%Ó?PKZgWPuU _001_macro.do_over.sasYQsH~wC'>0҂lk*&)۹]W*i0: H힑 9l47=4ww{''%8O  &̍D ...A& zP^^^ˣ+<b1^+!1 ~(~=qr6?&}=--lw*ss ,LB,ybCEln3?d΃S(T݇|xns ā42 %-(+?=C&}<3R?>ֵ/e]4EȂϲuxd yOOS #GJU=Uoa\!C8;wel3nLxKt#_n-zj[)hy?'/T|Q@21X̠$УoisK1DB 9$Sԝce)8)ʘw)h5$ +˩Caz4]9"3tDSYM)8z, #J\D(1\$z  (! &[dލC'"F( ]JxUD+i@MNˍu΢^\`57#R?)IB5  !Kb1Ak94𹗡$\@\Bdf 3˱Hoyi]+^Hr]shKH-<稪|R*18LP+gfh]{fKg5`E+ʚB1#MH܈L (&Ɍ/uRqh8EL`fܤg;`@8vDu:64 ^ޒ~r}k&' #&<o,Yѿy{J>ݯU5ӀB"[Y,F@J`ҿ(ѣ? s E*2sM)1PKE`YmUnH2];bjT~D Խv6٢܄7%dٓj eTЯ MM@Ô[녛r¬2Y%7gɪC a,v\.WIPh$CrEkTbvZʼn(YY"&r*}c豀 电 ~Ȟ,G0cbFPHqVL_ۯdb%p dNJ6UĖ驺޺M@+ߢ+xRƪҵİZ{J0ĀNQέ*4iC6 (lE{T,JƄNdn~s]$܇|^[XP\,'#|zSEz#f([aCh~>p\^_TƱ\(f)ո>Z YiJ ?Fz( ?ۏb8{Zi mXi 7 ($YZ2`8 ލOa?+!'˃iA 2\ WAÃvUUȘ@`I{O}SKf)UTIk߅⽏}|w;f1v AA&ZB43DL)rj6}Uh ̤ؗ y,5bRiD5Xf嚈(j6f)(.[䉥Lʑ{bT,/ -BG\B<{BX-3c}:l1X#c2]dw2.m[lNbc!6F rI=. >̰堑wahmCWvm蟘?pn|0!9y7l9ʗLj0DhTF\uА?(TJ.6[+ Srʄ˥2|;3B3WDo%EvTb$sc/&IYdk9c=$͸syPV=~8wbCm ūA5s;xS`V]V +Lo!5h7ގYnaXJZ:LDx5!'g}iVR}Ђ0{ß;SpM׽6!؆eg7~x:D>p1AxpkkNʃqlLO/>C g'^ඇ6*4pKܥs(yQꎝR$jesFo |y{u+Yo6—͗ 鰛mcP*8X>g+k;zsR1<&ڝMT|r;[FGpuΎ Wz-eʧ3 h }:P7Ep@d4]ɳo# ؃LRuW&x*!M*16\^\Ҵy+c]0wmLKuj%ffbݐXBDtLн0-xx!6~JfOojAD XwL?'s0َX#V&ƻm:e#5I슫R>SH -qPKZgWkʘv_001_macro.do_over3.sasWmo96ڔ݃Mw.!hB =5*o\zn?ˎ {\WGGAZ-D R@ل&Nfy"jvfGu)ʥ)X$4,՜IhW8z  o KGw3˭!Pyo.uk@T,hLSI4R詤i#R%Ēr `p.]G0'F%׫6p3M LV,2wW'G?Q,|,00>40l!ZJ1LpV'ETT\`%-v]z8jVSI=TZV|{pv޻x{1zA)? 0 AЖlFVPKfm zBdPLXL,m 1ob)ҦIB4Hd<¹UaC# hcܪ Ty1s+ zDEcyal{`S&D.r.bB$K5ܐ43?Qvтh>:” ϋٕu&ָLV6hgU IFEVˌ%IJ uQh稭=}"Z[q Kk'N0ٲ-; q*: ֞}\MQ֯X`p v/AEILG:֝;xǝSsJzG87XUg/7 2n%xdZA2&dS{c3k]j>쮇=;oߪتXO^*;"@a@|:v iūhZOӜ$+ݔޖrrM>ގf*>=xwn篴{6ЪU :CߣFwb&NSW}t>|X{> :ۃ/p 8s/0LͰ]bc l6`<2`VS3T^1֗uo{и{O#+S<Sn5fJ WQyNU<>iiǍMI?nvF} |0SȆS~O>l"w?,9) j+6>*; )Bk1_J6jxE;t(\}aUP'xF/Q1MṮ*ɘ3jzjvn{mU0ƛb{$#%Rk5k6P΍9%$dF&4W cc S3-Xu67Zյ^4)䙙uԂJdKչXբLhZt&KP)xL5vv@eIF KC$|`xPKZgWI̦_001_macro.make_do_over.sasXms8 S^ҙ si]{&޴%oWMHXճ8ypoނ'O5e|ˡʣ} SEᐁ`S~T!/0 L8x Gݰœ)j;|; ٢`%'߈]Z9,7S``a( 1?O@Gq /]!p΄9Ӂ,0G`{bj{P7t}shO |(0 ;6]$-)-:fxIE<& @(цPʙ[s J$/MA}rGЄr ]dFKcz WH%ͅCg V5R 5WTćG9 吼[v{ Ԭν2s"DaVI3XbPQa{7wW3P!j`!z$ZcKV޻,R@/ȑ]+_bym7M7׶HxIqm;OjTocD Ȅ~O=P29?A%vvC*Ti4##uv{&SEZv7@wo@?9_؆lBhIz&7}*X|,)cs}c6pʃrԲ]t٭˄*JԳq˭2E-rΒlPVr:ͦ^lHWUmD[kE[E%ZzNIVsK4k#==-gHb[|2_.Ns^bomr%k$$+f ZAƀ7ʇnG5Z Xu!}Se;A:~h uz~18^p>k uFaa.:Cf ˧;F`_ o@bJVa΢@$/sc+ne~Ӥ]iHh?RJP:J(p_ ?vfn5%l \ZmEb6!"9tl>J:Ut*'9KA-&n)m_001_macro.mcdictionary.sas=kSȲߩ?L F`8{CvBr0&7{ʖB=oo= Af7:6hh[VQu/ nwwlsc+ߚ-SMYE鳉 KRc6D7wvҫ+ܸyuL̴M5Rq@=sdCaCM7-|NA9CUκc|טrU5fWkj{Lw&TмΚm0/ 16waTi6ּ15_ecS3Ͳkٕf4]U6!68Ub 0C $DzÉ|]py *r6"P?7 \.?*~>h~z1oBg̛پv`qrG5TU5<%-dӼ͍4 _NGgWmȿ|6Z2w$Zm`mWwMBZ}O*];zοˍj-5uq q*bjg #!EхW; Bz̤fYp|QQPu O]m1c|2g9HaHHU+*;uأPUUV'nHGyC9ZڇyGjvD^\,J!+~57jw~ ;yɳ+$ʕGj_bALF?4N.$#"ۭgȬ}$ lY,2SgXh_T]3 ]gBT*BYHw[o{ j[3f.rRCʎN)K$d،@&1tY02ԓo{ ( -Ws~4Ez8BpE7ANh/ݼhI (؁hu dNȵ{N tgQx $&l ύWLzEqcXK$ ^K@`ꨫcO0;eOuY WPnV0H"e;"hB,_- ˄$ë}C-Ю4"$;6As{11J+đߘVl H/gܫ1k'UB5MQ23ń2`",}x܏1 IЏBpĹsvۊ!vu/L9~:ra9 ;y?B #x%Mn@kҠʴA$& Gn()9C Cg>c(0U5' 9#7b9Q}zVs0QIoED 2Pb?= F "$A4Kns7U`{!&]#10H]036Ŭðrh6®/iaX(t=P|D#JI?rc$C+hJƻ!2+21̡B&Hk P!bS!xQ>?{Ѹ! l)&N2ͯAzS8@<4Lzep}ڢ|%}NU}#O/%OR'pGlږ@ʑǶ0N[s sk y~ mg[SF[$MlƞmǙ2|K&&(ÏW@՟Y! 5j.cU9nuvZ7>;jvP -x[CW}s+JmoUeΣ_U`vv@h-4FXW0E{SBEV0)~$SL_/|E$:eȞ UABdD㱩lr[9;fúOT)my,[-o=b%̂k ^Q6꥜dݑ',B k8MtL{]Z6ef4 Ig x7CaOтA\X!5T]\ۺpui'bQ (DQ]: 5uZ2'qL5pRx^#E ̀h`)ʝBfit9v]e.*@ [^YES:BFHaz>0~;|H!Q*3͆)*xE@>uAξ4} 2̗ؗ7\ Qž·ȧ*xZT,Y)AWdpp+zw^Ic5hY"29z6Ĩǖ@;8L\ }9+\Ԓ(AEYM$B`d|n!TeE"Mka "Yg {WnUи5{w7Hdi@|=9yl,*b1cʅ¬f[xfBS`Įs\a^ qsrg\lN;(Fʼʾ[5|uʞ\tp+#b٠,DrPT)G}kN9D˭C\9xPh4/ #@97Qwr#V4;5b^ĮLxC;D8>+JJGuY@l /3dn,3cC*cX?Gb+X0g@4Zi~y^B3i^vmb8ࡲPIeIJc2 2tv#N<+fEvOFL"uIi!dIP*)>v8}sn[؉a]tQj#Ub(al9) NjhV@rb-V|ڟ';.k؇nmw/%$H`tAeuRJ{bi Hg+[ ?Ԩ>TJɌijg0xdiSbx<F8mFL'֕TG͕_m6>~#B%fz@ɈǂS-Q?>O(ޕ( HD4:|HUaH.Uf-U.l% NHGJ+˳'8e5$7()Kc^?9!Ģwc5WԸg]٦JEr.C_7˾klA꿖hm.UdxE<h1niX<2XjؤP/RznV0c;lۧeYq 5/P"Rp<_Up= bBiӾjX6q@jX=NaYVw}e},R$C['_of`..uly۾ X+&ʷ.V$2^Lw(zC T9 K`AFﴧ 8bJ09ZtU %X迸?Ao%NsEb a ޑ1o.45R-dź-+Hk+8anl4U*u ;Ea*Zq4̄5s+ /!j9Łf#+ OQ@:?B܅3^UfSzZádu qRҧ m\cf-b}kII3E4I 5&>]w:p"8@裟Xʌm)s~?;'g̨f%zQ%XB}ñ9!w{e3WU[:t3}f`c{`}=f龃QvcPkʠrCq`'E:fZޡ?u1jkPFݙ?P <d͘@3  gY"CPr\]á4{R6qi}c|]_wsm3*Ơ>)x ÏPxD%bbkzjVG5"-~~\7{ ,pu첏K#NkN"*3mp3h·vaX?PKZgWC`x_001_macro.mchashtable.sas]{sȖU=edf!;qmgnR{@HmP,$" L9[BOCݙfbZ_>}ޒZ;ju; vuݼf𰺻vw^`o߾eռ6xEkFc6D%>^r@KojoًcwgwzsuL̴M5Vq=sdIa7nZ>snJbDU :뎭_cUV՘ez>^OiWzLw&R5`~#nsF5h4aWL,ރ~@Nf2]Uan>qC68એEd@8|f<2utl,Ǯ8gALc456\SwXavus 5ԙ7}큁$8oV0)MrAL}ݝ><݉.Ms=o?ͫnVrjfn$k9k<[W٠;`t%:3]nTk<ђI΢1@ t fHȦm5FF`t@e|BCBd̨PI4?W Tvh+Qk KOh]^OhU!H6|!vXӼiuyR2@w9I`9! g:3Wxr-l M U_JK"1aF7{i#XĄnδw|Y-1 hbqwl\Rqk'Ǎ0G0o1 q g}לLGЃ_:"`]gB ^]𢡄]pffG$oVI2)c!7E%337Q rPy`ypa1lR,!OG>EP`YEKJ`:h.N{l4OpBCMD)ph c~)frUG3$c*9Xv~{w?n3[H;S@2)`@iG~Np+ V-ݝ%"@ԶoLQ4))D 3L=:xQ$Ck,38)$&쇿PnJlФhc1>2dIDؔ+-422Y4b3:[d70C^p(h#ԥSw轱ޠk'P4E9kSO ͎2Y.ɷrٙ 8 0dϛAJWa g{ 3al^}8{};ulxvJ3@M .L@mEk q4ɛ"^:;͆Vih<ׁĈ:Z6ǃhA@VN Yc_4|zSTUrO?[d]kzw#7"ԦkkG`"j;ab@`S]؄ wgL5p(Tg2Ic,{!G(f\ۺf0P 4Q  DTPˣ,{>D:Մ f=Tq EJmHH3v)FfܐKY]}@Z=^` Бe) )@ۛ. d >e!R^W$tXeS? K/j*.RUמT&jCO3=/* *\?˨nQÅARQI\t]-}Ss6LLVΫ+M1AOCm(83-|t޼+_DPR% )vd#YU=Reuk@"-St 9/#kg ^/O.hy g pUB}h5r{ F}^Az&xѬI%!q BSWj-gM1ɇ͚a0*;3i#?֟RA ~T͓PQ&v1ϐGdd&ljk N*uEv+ٷe]=h&y#A{ 2)i%*06IKILSM.<^s\⹹h4 C>gQw &-O鎸Kbq^}<-"CgT .# T81ORǦ_@+3$ oZЈiE5UZͬpd:I¯EuuRTR,DoSШIAJh cnIypD@Nl F,1b)<L ahlyg48 (IGy!yK"Aڟ%_Sg qse'Aw7 ?{Qkf"_sMnG.G>؞W |Fy3߃|2sip3l8WaR>qj;k>'C'NWμ`C9e'IV_wN/yۀGWm8y[x1w{^pϸkS8G|'փjf/U'5Hr3sKI\N=~cdX_AZ7*OVL n}z$ gx}%{;{xlL9c=<&_.n m/2ݝˏg7d;mݝ ٖ c ^oB?n.=eSPv<;edzsYv<;eGhIyeRyInVa3a).w[)^oŪpjjFKYA[F*:!]~JHֈb%BtjVb [Y؜1H鈑WN-)}6xVtb=I|7з2 -; J7+!X Tc pς6N'b{`OӋ^犂WVsάENhәPI -K@r/N2^b6VlR50B5ldnAYlk4jf%>G/A1fSK/H==:}?6A\:g\f$07*(#ʏvlwz |zݾV^8:O4WL5м NfxrCBQob-ЍZ_rlp-XSDž><1;G Nd"T8gG%?䇟oIf޽K6ZdS,ZgXH(#il _cf-T|]XPQH0Zp/ q|yy[:MX/S0^S8lq ZAFѶ&S3$e-Dm`+.YDkrϱb f|y|oaR Fx&c D   8"iԶaLV?qbf^A%}r]}띞_Ca 5 ! Gcl/8 r\QuzQ5y&Ŋͦt[кɍQ}ȕL.eB4w?߁5݂ԝ뾃g PRewn\.>^LA=Ľh8wf^}bSBzWP@M?|U9b͙М09IPr\]á4{.gY dG7 9^2f!g="ޑԊg āT&pMV͠#o`pɭqv$]Fma?vh!"*smx9h{ھpa(LqPKZgWv+2 V._001_macro.qziparrays.sasZs'΀rW񔸴u4ci1 aB?ܿp{Eytj[1qk^s~YvFs f)-x`bƑ>8?;f$7sِ${uD>!س"._p/ 9O,))x|IR@-?x=qfB"=!MUDKaF ܆D $Z̵bEEF$/YhRƸuB~fTGQ bmC6 (}aĂTBP{ !)GǏ;`.63GX̑U74I g]pT`-|1 PÙ|֜Bb3i'u$q!r#H_n:N2Y.-5[8A!'9ZD FhWE>E>g'Ss&/Lr^(E oCNL`ś&#ENZCTitӬTj},C+p )0:M@_G!eKfq9F:fc$[$"ј|> ccCJD՞!g9_$l\T;V&]L./Pf(n E+<ꩭ: 6=b*5'1+8 q4W8 yRprҾ .Eb^yLE "Kz \ijG\xѬ+ҍHWs0:S] jڷ4V{ { _lɦɮ5Uc':Tbh*yguUr%#%?x@rfIDT,ЊsEEFgE[E#-SzfE%mLdPaVyD&mo`&0*m(C"X:nGT8Ek4X"~rBExTԄieK5ٻQ> ~& X'%P7%xVw*UX]TEn[7;uU5$O('C*jc9JC ~R[LOBӻnDwI.b- g.4&ȲQ% l-7D;\~>.Q#!=Ipn%k`S݁ ɛz7] $&t!{ןZ_^_ߠ!m(p ie8ǖ W y|[gjx;ZJ=phylKcW[ (ُ 1M[ 5:ꐹa< ӆi'5 5p{ى|e)"H悾]_[š(>KQ$nEʬA+g,ɀp=!BZʢl9fYz[9)4+'+t9xB:ʬHD[);p[%jUSZ&6k{E#(jUΏۺ!ڨӝ S5#s>nƦɸNN8}y"AoA]]QbjO]Z@`P6I$uᇟ)N[EuDٳuY\(;>?bɝkѥAz'\GPOϬ*@kB{C0UrZOy%\p-5I~ñNЧO){4M < EYj<|$ loWzNaSYI{aUa\5mǭw%V(ci$^' ~F*aUẉNWgkk)hP˜'&D[4XufA`a8ne:vW6숂؃r_,!V6gKҀEGO^ kdN=r# M4+[4(^5(dj7ǭJ|Mh X=B i;nc .WW0kM_NÛAW ) 2ScA1);_QX@P3Q%BL1 %8Y*/67gsoR/Ґ{|+N7,P6hX~_b;3cؙPKZgWV_001_macro.sortmacroarray.sasWko9 a(Zʰ"YD""*pMR} [v"9s) hotR!tK0D+拤!{;C Z j bq/CVzձk%V/@'TaӃqN0LA%x#+ 1] a 1@2ܱp%pO+o߼G5r㉚f!Nre0fJcPݕ꿹2 cL&SExRԏÚu䃳Q,HBVө_tjZ/]Sb-]nq*4&<YPN,3l5v G|2 b]LI_{yd%cdyDnCԴJe"Yb0L&1q>!Vx0hߴZޜ]{K\%"܅<leeyo\5N_vژF|?6I%5J2%bv)H|uQvEk=KXoZ.`沦l{?~B/f/)r/ td][%PE^[@r.x: ;l]~<}Z zCwܣtE O* Mo .E@nك4dF>TMNޓ%G6wd tB -vZi†}Nqz9{RM Qme4 ^dBl])}c&ʇמ#najVDX)J̭tXwіskeqm4+2 V s7yqW(XH(L=98̥?ҩEqCH=HTE 6> O}^ki2g 6e=14u%Erzv߬Bv ;.Ѿ68o?iN`OG4('ZS&.XM+ q[+|J,h^ov:dM7ۊKQo!ۦ.vMhJA5T6A. *[,tVUCpǻPKZgWtK39_001_macro.ziparrays.sas[S Ö\†$\ChK4 1h"Kw<BhR>yܘ*zXQ:awN@\t&_;wB·<  ™{BY8O=4W Jv\ jlmgu忋aHa9M{cA{d ƺ?v棓 /iG A֢SGTBױ 6(4;T2a(d~6q? ruB}$c H4'@Ftdlc BȩRQF3y52@*fLw7uw&B]֏LnVyEdS֙LPD4=mH\2:=`-O(3pe;!kS..tq!Ίzl-a!3h\\Hz% $P 87ڏ3ᴏf]ұ1ؼ*"E\@\x dLsd?ԕTҮ4+UXlPgck " 'P&7(J;+JU*SU0>#ʷ)3P*(n1(|nEY_]Ed\bBq8П.I}O> DIcVxRdVXJ`M,B)BVIߕ:L8{@S h!IƑp6n݀L-Բ@[۟_WmoWOsC]qpzv$԰.jc,iprX`LAԁV>cl8g4< NPbȷ`*.jǪMRH(O2Z|C'}ÉW#!; m0v;tݒ:s!#aHJ*.:U]z!k>RUޮv!zTS߬ğ+ U ju؝(g\r#ll<ߓ$bZ$98O$ (Ͽ[Vz^2yȍ*4J"OB[:X9Znwr=V0M hb b3Pn{f# \L]rn `Kƴ! `1z5h&ttndYLxQ-uVS?R'm\*bϡ RgXF% n]sh' ]86zǁ6@M`;''п쾻8_[ 52J\Jsxv/?kkw&A-tw YOV藂"8VMujX{q6-[3V\gcP'GP}-ޚPo3<`W2%v| eW8qOL.#ݥ7Q'G4,nNf.;F:aH{Љ&}k~jz=WXi:@i wM~|%sK੶}/yp||CpʚՄ/vghp<5W-jQP&T/6sM90;/AJ`1E &l63(W[;-~o9-l#-9Ap0upf!wL Zq<ΟʻV^})|Brm{ꊁ]oHKBi:ǢĢ] }>L!}$lyM9AD{H}T0aтP3~U1ŠW; yg@.n'1lgԶY*PkdU2XCxZEȱɱ#CW_Oۦ VJs,lʚ$jm8ښ35` ߼2K/Ԕccj5 bGH-iX?Zנ ~ѐxG:3y#[6r}/:űY0 ԓre\fsL-ܤ,epǼ6+؊R,'\]cw㈻HEZBjRjX^@l®Ŭ"y7F~(Q2wfJҏoi{]R2q 1>nI N\1mRbV@JC2G7)YB @mFw s\A?POf O8+PKZgW6q1;h  description.sasPKZgW*riG  |license.sasPKZgW=4 $ Apackagemetadata.sasPKZgW miceloadpackage.sasPKZgWg 7I O load.sasPKZgWᥭXB  lazydata.sasPKZgWu݋  unload.sasPKZgWuk  preview.sasPKZgWa|% #help.sasPKZgW  s+_001_macro.appendarray.sasPKZgWhiP/{ /_001_macro.appendcell.sasPKZgWؓZqy 7_001_macro.array.sasPKZgW%U0 T_001_macro.concatarrays.sasPKZgWvD2 Z_001_macro.deletemacarray.sasPKZgWPuU  ,a_001_macro.do_over.sasPKZgWx; j_001_macro.do_over2.sasPKZgWkʘv p_001_macro.do_over3.sasPKZgWI̦ v_001_macro.make_do_over.sasPKZgW`l>)m }_001_macro.mcdictionary.sasPKZgWC`x _001_macro.mchashtable.sasPKZgWv+2 V. ɨ_001_macro.qziparrays.sasPKZgWV &_001_macro.sortmacroarray.sasPKZgWtK39 R_001_macro.ziparrays.sasPKmacroarray-1.2.3/hist/1.2.1/000077500000000000000000000000001452773550200152755ustar00rootroot00000000000000macroarray-1.2.3/hist/1.2.1/macroarray.md000066400000000000000000002160331452773550200177640ustar00rootroot00000000000000- [The macroArray package](#macroarray) - [Content description](#content-description) * [`%appendArray()` macro](#appendarray-macro) * [`%appendCell()` macro](#appendcell-macro) * [`%array()` macro](#array-macro) * [`%concatArrays()` macro](#concatarrays-macro) * [`%deleteMacArray()` macro](#deletemacarray-macro) * [`%do_over()` macro](#do-over-macro) * [`%do_over2()` macro](#do-over2-macro) * [`%do_over3()` macro](#do-over3-macro) * [`%make_do_over()` macro](#make-do-over-macro) * [`%mcHashTable()` macro](#mchashtable-macro) * [`%mcDictionary()` macro](#mcdictionary-macro) * [`%QzipArrays()` macro](#qziparrays-macro) * [`%zipArrays()` macro](#ziparrays-macro) * [`%sortMacroArray()` macro](#sortmacroarray-macro) * [License](#license) --- # The macroArray package [ver. 1.2.1] ############################################### The **macroArray** package implements a macro array facility: - `%array()`, - `%do_over()`, - `%make_do_over()`, - `%deletemacarray()`, - `%concatarrays()`, - `%appendcell()`, - `%mcHashTable()`, - `%zipArrays()`, - `%sortMacroArray()`, - `%mcDictionary()`, - etc. The set of macros, which emulates classic data-step-array functionality on the macro programming level, is provided. *Note:* If you are working with BIG macroarrays do not forget to verify your session setting for macro memory limits. Run: ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas proc options group = macro; run; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ to verify the following options: | option | description | |-------------:|:-----------------------------------------------------------------------------------------------| |`MEXECSIZE=` | specifies the maximum macro size that can be executed in memory. | |`MSYMTABMAX=` | specifies the maximum amount of memory available to the macro variable symbol table or tables. | |`MVARSIZE=` | specifies the maximum size for a macro variable that is stored in memory. | --- Package contains: 1. macro appendarray 2. macro appendcell 3. macro array 4. macro concatarrays 5. macro deletemacarray 6. macro do_over 7. macro do_over2 8. macro do_over3 9. macro make_do_over 10. macro mcdictionary 11. macro mchashtable 12. macro qziparrays 13. macro sortmacroarray 14. macro ziparrays Required SAS Components: *Base SAS Software* *SAS package generated by generatePackage, version 20231111* The SHA256 hash digest for package macroArray: `F*2A108D121D4DACAA8752E681301371F80F0500B2EE28A9E3B39678415BCBD6B2` --- # Content description ############################################################################################ ## >>> `%appendArray()` macro: <<< ############ The `%appendArray()` macro is a macrowrapper which allows to concatenate two macroarrays created by `%array()` macro. By default values of the second macroarray are *not* removed. Dimensions of the first macroarray are extended. The `%appendArray()` macro executes like a pure macro code. ### SYNTAX: ##################################################################### The basic syntax is the following, the `<...>` means optional parameters: ~~~~~~~~~~~~~~~~~~~~~~~sas %appendArray( first ,second ) ~~~~~~~~~~~~~~~~~~~~~~~ **Arguments description**: 1. `first` - *Required*, a name of a macroarray created by the `%array()` macro. 2. `second` - *Required*, a name of a macroarray created by the `%array()` macro. ### EXAMPLES AND USECASES: ###################################################### **EXAMPLE 1.** Append macroarrays LL and MM. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(ll[2:4] $ 12, function = quote(put(today() + 10*_I_, yymmdd10.)), macarray=Y ) %array(mm[10:13] $ 1200, function = quote(repeat("A",12*_I_)), macarray=Y ) %put *%ll(2)*%ll(3)*%ll(4)*; %appendArray(ll, mm); %put *%ll(2)*%ll(3)*%ll(4)*%ll(5)*%ll(6)**%ll(7)*%ll(8)*; %put *%mm(10)**%mm(11)*%mm(12)*%mm(13)*; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 2.** Error handling. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %appendArray(ll, ) %appendArray(, mm) %appendArray(noExistA, noExistB) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ --- ## >>> `%appendCell()` macro: <<< ############## The `%appendCell()` macro allows to append a macrovariable to a macroarray created by the `%array()` macro. Dimensions of the macroarray are extended. The `%appendCell()` macro executes like a pure macro code. ### SYNTAX: #################################################################### The basic syntax is the following, the `<...>` means optional parameters: ~~~~~~~~~~~~~~~~~~~~~~~sas %appendCell( first ,second ,hilo ) ~~~~~~~~~~~~~~~~~~~~~~~ **Arguments description**: 1. `first` - *Required*, a name of a macroarray created by the `%array()` macro. 2. `second` - *Required*, a name of a macrovariable to be append to the macroarray. 3. `hilo` - *Required*, if `H` macrovariable is appended at the end if `L` macrovariable is appended at the beginning ); ### EXAMPLES AND USECASES: #################################################### **EXAMPLE 1.** Create two macro wrappers. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %* Macro wrapper to append a macrovariable to the end of a macroarray; %macro appendHC(array,cell); %appendCell(&array.,&cell.,H) %mend appendHC; %* macro wrapper to append a macrovariable to the beginning of a macroarray; %macro appendLC(array,cell); %appendCell(&array.,&cell.,L) %mend appendLC; %* create macroarrays X and variables W,Y,Z; %array(X[2:4] $ ("AAA", "BBB", "CCC"), macarray=Y) %let W=1; %let Y=2; %let Z=3; %put *%do_over(X)*&=W*&=Y*&=Z*; %put BEFORE *%do_over(X)**&=xLBOUND*&=xHBOUND*&=xN*; %appendCell(X,Y,H) %put AFTER1 *%do_over(X)**&=xLBOUND*&=xHBOUND*&=xN*; %appendLC(X,W) %put AFTER2 *%do_over(X)**&=xLBOUND*&=xHBOUND*&=xN*; %appendHC(X,Z) %put AFTER3 *%do_over(X)**&=xLBOUND*&=xHBOUND*&=xN*; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 2.** Error handling ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %appendCell(X,Y,blahblah) %appendCell(X,,H) %appendCell(,Y,H) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 3.** Adding variable below lower bound. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(zero[0:2] $ ("AAA", "BBB", "CCC"), macarray=Y) %let belowzero=zzz; %put BEFORE *%do_over(zero)**&=zeroLBOUND*&=zeroHBOUND*&=zeroN*; %appendCell(zero,belowzero,L) %put AFTER *%do_over(zero)**&=zeroLBOUND*&=zeroHBOUND*&=zeroN*; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ --- ## >>> `%array()` macro: <<< ####################### The code of a macro was inspired by *Ted Clay's* and *David Katz's* macro `%array()`. The `%array()` macro version provided in the package is designed to facilitate the idea of macro array concept, i.e. *a list of macrovariables with common prefix and numerical suffixes*. Usually such construction is then resolved by double ampersand syntax, e.g. `&&perfix&i` or similar one. What is new/extension to the `%array()` macro concept are: 0. The syntax is closer to the data step one. 1. It is a pure macro code (it can be executed in any place of 4GL code), this includes generating macro arrays out of datasets. 2. When a macroarrray is created it allows also to generate a new macro (named the same as the array name) and replace the double ampersand syntax with more array looking one, i.e. for array ABC user can have `%ABC(1)`, `%ABC(2)`, or `%ABC(&i)` constructions. 3. The array macro allows to use data step functions to generate array's entries. The `%array()` macro executes like a pure macro code. ### SYNTAX: ################################################################### The basic syntax is the following, the `<...>` means optional parameters: ~~~~~~~~~~~~~~~~~~~~~~~sas %array( array <,function=> <,before=> <,after=> <,vnames=N> <,macarray=N> <,ds=> <,vars=> <,q=> ) ~~~~~~~~~~~~~~~~~~~~~~~ **Arguments description**: 1. `array` - *Required*, an array name and a declaration/definition of an array,
e.g. `myArr[*] x1-x3 (4:6)`
or `myBrr[*] $ y1-y3 ("a" "b" "c")`
or `myCrr[3] $ ("d d d" "e,e,e" "f;f;f")`
or `myDrr p q r s`.
Macrovariables created by the macro are *global*. If an array name is `_` (single underscore) then attached variables list names are used, a call of the form: `%array(_[*] p1 q2 r3 s4 (-1 -2 -3 -4))` will create macrovariables: `p1`, `q2`, `r3`, and `s4` with respective values: `-1`, `-2`, `-3`, and `-4`.
Three additional *global* macrovariables: `LBOUND`, `HBOUND`, and `N` are generated with the macroarray. See examples for more use-cases. * `function=` - *Optional*, a function or an expression to be applied to all array cells, `_I_` is as array iterator, e.g. `_I_ + rand("uniform")`. * `before=` - *Optional*, a function or an expression to be added before looping through array, e.g. `call streaminit(123)`. * `after=` - *Optional*, a function or an expression to be added after looping through array, e.g. `call sortn(ABC)`. * `vnames=N` - *Optional*, default value `N`, if set to `Y`/`YES` then macroarray is built based on variables names instead values, e.g. `%array(myArr[*] x1-x3 (4:6), vnames=Y)` will use `x1`, `x2`, and `x3` as values instead `4`, `5`, and `6`. * `macarray=N` - *Optional*, default value `N`, if set to `Y`/`YES` then a macro, named with the array name, is compiled to create convenient envelope for multiple ampersands, e.g. `%array(myArr[*] x1-x3 (4:6), macarray=Y)` will create `%myArr(J)` macro which will allow to extract "data" from macroarray like: `%let x = %myArr(1);` or when used with second parameter equal `I` (insert) allow to overwrite macroarrays value: `%let %myArr(17,i) = 42;` If set to `M` then for a given array name the macro symbols table is scanned for macrovariables with prefix like the array name and numeric suffixes, then the minimum and the maximum index is determined and all not existing global macrovariables are created and a macro is generated in the same way as for the `Y` value. * `ds=` - *Optional*, use a dataset as a basis for a macroarray data, if used by default overwrites use of the `array` parameter, honors `macarray=` argument, dataset options are allowed, e.g. `sashelp.class(obs=5)` * `vars=` - *Optional*, a list of variables used to create macroarrays from a dataset, the list format can be as follows (`<...>` means optional): `variable1 <... variableN>` delimiters are hash(`#`) and pipe(`|`), currently only space is supported as separator, the meaning of `#` and `|` delimiters will be explained in the following example: if the `vars = height#h weight weight|w age|` value is provided then the following macroarrays will be created:
1) macroarray "H" with ALL(`#`) values of variable "height"
2) macroarray "WEIGHT" with ALL(no separator is equivalent to #) values of variable "weight"
3) macroarray "W" with UNIQUE(|) values of variable "weight" and
4) macroarray "AGE" with UNIQUE(|) values of variable "age". * `q=` - *Optional*, indicates (when set to `1`) if the value be surrounded by quotes. It uses `quote(cats(...))` combo under the hood. Default value is `0`. Ignored for `macarray=M`. --- ### EXAMPLES AND USECASES: #################################################### **EXAMPLE 1.** Basic use-case. Creating macroarray like in the array statement. Values not variables names are used by default. Different types of brackets are allowed. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(a[*] x1-x5 (1:5)) %array(b{5} (5*17), q=1) %* Mind the $ since it is a character array!; %array(c(3) $ 10 ("a A" "b,B" "c;C")) %array(d x1-x5 (5 4 3 2 1)) %put _user_; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 2.** Index ranges. If range starts < 0 then it is shifted to 0. In case when range is from `1` to `M` then macrovariable `N` is set to `M` In case when range is different the `N` returns number of elements in the array `(Hbound - Lbound + 1)`. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(d[-2:2] $ ("a" "b" "c" "d" "e")) %put &=dLBOUND. &=dHBOUND. &=dN.; %put &=d0. &=d1. &=d2. &=d3. &=d4.; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 3.** Functions. It is possible to assign value of a function or an expression to a cell of the array, e.g. `array[_I_] = function(...)`. You can use an iterator in a function. As in case of usual arrays it is `_I_`. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(e[-3:3] $, function = "A" ) %put &=eLBOUND. &=eHBOUND. &=eN.; %put &=e0. &=e1. &=e2. &=e3. &=e4. &=e5. &=e6.; %array(f[-3:3], function = (2**_I_) ) %put &=fLBOUND. &=fHBOUND. &=fN.; %put &=f0. &=f1. &=f2. &=f3. &=f4. &=f5. &=f6.; %array(g[0:2], function = ranuni(123) ) %put &=gLBOUND. &=gHBOUND. &=gN.; %put &=g0. &=g1. &=g2.; %* Or something more complex; %array(gg[0:11] $ 11, function = put(intnx("MONTH", '1jun2018'd, _I_, "E"), yymmn.), q=1) %put &=ggLBOUND. &=ggHBOUND. &=ggN.; %put &=gg0 &=gg1 &=gg2 ... &=gg11; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 4.** Functions cont. If there is need for set-up something *before* or *after*: ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(h[10:12] ,function = rand('Uniform') ,before = call streaminit(123) ,after = call sortn(of h[*]) ) %put &=h10. &=h11. &=h12.; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 5.** Fibonacci series. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(i[1:10] (10*0) ,function = ifn(_I_ < 2, 1, sum(i[max(_I_-2,1)], i[max(_I_-1,2)]) ) ) %put &=i1 &=i2 &=i3 &=i4 &=i5 &=i6 &=i7 &=i8 &=i9 &=i10; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 6a.** Quoted "Uppercas Letters" ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(UL[26] $, function = byte(rank("A")+_I_-1) , q=1) %put &=UL1 &=UL2 ... &=UL25 &=UL26; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 6b.** "Lowercase Letters" Extended by `macarray=Y` option and the input mode support (with `I`). ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(ll[26] $, function = byte(rank("a")+_I_-1), macarray=Y) %put *%ll(&llLBOUND.)*%ll(3)*%ll(4)*%ll(5)*...*%ll(25)*%ll(&llHBOUND.)*; %* The range handling, warning; %put *%ll(265)*; %* The input mode; %put *before:*%ll(2)*; %let %ll(2,I) = bbbbb; %put *after: *%ll(2)*; %* The range handling, error; %let %ll(265,I) = bbb; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 7.** The use of `vnames=Y` ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(R R1978-R1982) %put &=R1 &=R2 &=R3 &=R4 &=R5; %array(R R1978-R1982 (78:82)) %put &=R1 &=R2 &=R3 &=R4 &=R5; %array(R R1978-R1982 (78:82), vnames=Y) %put &=R1 &=R2 &=R3 &=R4 &=R5; %array(R R1978-R1982, vnames=Y) %put &=R1 &=R2 &=R3 &=R4 &=R5; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 8.** A "no name" array i.e. the `_[*]` array ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(_[*] x1-x5 (1:5)) %put _user_; %array(_[*] p q r s (4*42)) %put _user_; %* If no variables names than use _1 _2 ... _N; %array(_[4] (-1 -2 -3 -4)) %put &=_1 &=_2 &=_3 &=_4; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 9.** Pure macro code can be used in a data step. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas data test1; set sashelp.class; %array(ds[*] d1-d4 (4*17)) a1 = &ds1.; a2 = &ds2.; a3 = &ds3.; a4 = &ds4.; run; data test2; set sashelp.class; %array(_[*] j k l m (4*17)) a1 = &j.; a2 = &k.; a3 = &l.; a4 = &m.; run; data test3; set sashelp.class; %array(alpha[*] j k l m (101 102 103 104), macarray=Y) a1 = %alpha(1); a2 = %alpha(2); a3 = %alpha(3); a4 = %alpha(4); a5 = %alpha(555); run; data test4; set sashelp.class; %array(beta[*] j k l m (101 102 103 104), vnames=Y, macarray=Y) a1 = "%beta(1)"; a2 = "%beta(2)"; a3 = "%beta(3)"; a4 = "%beta(4)"; a5 = "%beta(555)"; run; data test5; set sashelp.class; %array(gamma[4] $ 12 ("101" "102" "103" "104"), macarray=Y) a1 = "%gamma(1)"; a2 = "%gamma(2)"; a3 = "%gamma(3)"; a4 = "%gamma(4)"; a5 = "%gamma(555)"; run; data test6; set sashelp.class; %array(ds = sashelp.cars, vars = Cylinders|, macarray=Y) a0 = %Cylinders(0); a1 = %Cylinders(1); a2 = %Cylinders(2); a3 = %Cylinders(3); a4 = %Cylinders(4); a5 = %Cylinders(555); run; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 10.** Creating an array from a dataset, basic case. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(ds = sashelp.class, vars = height weight age) %put _user_; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 11. Creating an array from a dataset, advanced. If: `vars = height#h weight weight|w age|` then create: 1. macroarray "h" with ALL(#) values of variable "height" 2. macroarray "weight" with ALL(no separator is equivalent to #) values of variable "weight" 3. macroarray "w" with UNIQUE(|) values of variable "weight" 4. macroarray "age" with UNIQUE(|) values of variable "age" Currently the only separator in VARS is a space. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(ds = sashelp.class, vars = height#h weight weight|w age|, q=1) %put _user_; %array(ds = sashelp.class, vars = height#hght weight weight|wght age|, macarray=Y, q=1) %put *%hght(&hghtLBOUND.)**%weight(2)**%wght(&wghtHBOUND.)**%age(3)*; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 12.** Creating an array from a dataset with dataset options ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(ds = sashelp.cars(obs=100 where=(Cylinders=6)), vars = Make| Type| Model, macarray=Y) %put *%make(&makeLBOUND.)*%Model(2)*%Model(3)*%Model(4)*%type(&typeHBOUND.)*; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 13.** Creating an array and macro from existing list of macrovariables ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %let myTest3 = 13; %let myTest6 = 16; %let myTest9 = 19; %array(myTest, macarray=M, q=1) %do_over(myTest, phrase = %nrstr(%put *&_I_.*%myTest(&_I_.)*;)) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ --- ## >>> `%concatArrays()` macro: <<< ########### The `%concatArrays()` macro allows to concatenate two macroarrays created by the `%array()` macro. By default values of the second macroarray are removed. Dimensions of the first macroarray are extended. The `%concatArrays()` macro executes like a pure macro code. ### SYNTAX: ##################################################################### The basic syntax is the following, the `<...>` means optional parameters: ~~~~~~~~~~~~~~~~~~~~~~~sas %concatArrays( first ,second <,removeSecond=Y> ) ~~~~~~~~~~~~~~~~~~~~~~~ **Arguments description**: 1. `first` - *Required*, a name of a macroarray created by the `%array()` macro. 2. `second` - *Required*, a name of a macroarray created by the `%array()` macro. * `removeSecond=Y` - *Optional*, default value `Y`, if set to `Y` then the second array is removed. ### EXAMPLES AND USECASES: #################################################### **EXAMPLE 1.** Concatenate macroarrays LL and MM. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(ll[2:4] $ 12, function = quote(put(today() + 10*_I_, yymmdd10.)), macarray=Y ) %array(mm[10:13] $ 12000, function = quote(repeat("A",123*_I_)), macarray=Y ) %put *%ll(2)*%ll(3)*%ll(4)*; %concatArrays(ll, mm); %put *%ll(2)*%ll(3)*%ll(4)*%ll(5)*%ll(6)**%ll(7)*%ll(8)*; %put *%mm(10)**%mm(11)*%mm(12)*%mm(13)*; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 2.** Error handling. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %concatArrays(ll, ) %concatArrays(, mm) %concatArrays(noExistA, noExistB) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ --- ## >>> `%deleteMacArray()` macro: <<< ####### The `%deleteMacArray()` macro allows to delete macroarrays created by the `%array()` macro. The `%deleteMacArray()` macro executes like a pure macro code. ### SYNTAX: ##################################################################### The basic syntax is the following, the `<...>` means optional parameters: ~~~~~~~~~~~~~~~~~~~~~~~sas %deleteMacArray( arrs <,macarray=N> ) ~~~~~~~~~~~~~~~~~~~~~~~ **Arguments description**: 1. `arrs` - *Required*, a space separated list of manes of macroarray created by the `%array()` macro. * `macarray=N` - *Optional*, indicator should a macro associated with macroarray to be deleted? If `Y` or `YES` then the associated macro is deleted. ## >>> `%do_over()` macro: <<< ###################### The code of the macro was inspired by *Ted Clay's* and *David Katz's* macro `%do_over()`. The `%DO_OVER()` macro allows to iterate over macroarray created with the `macarray=Y` parameter of the `%ARRAY()` macro. The `%do_over()` macro executes like a pure macro code. ### SYNTAX: ##################################################################### The basic syntax is the following, the `<...>` means optional parameters: ~~~~~~~~~~~~~~~~~~~~~~~sas %do_over( array <,phrase=%nrstr(%&array(&_I_.))> <,between=%str( )> <,which = > ) ~~~~~~~~~~~~~~~~~~~~~~~ **Arguments description**: 1. `array` - *Required*, indicates a macroarray which metadata (Lbound, Hbouns) are to be used to loop in the `%do_over()` * `phrase=` - *Optional*, Default value `%nrstr(%&array(&_I_.))`, a statement to be called in each iteration of the internal do_over's loop. Loop iterator is `_I_`, if you want to use `_I_` or array name [e.g. `%myArr(&_I_.)`] *enclose it* in the `%NRSTR()` macro quoting function. * `between=` - *Optional*, default value `%str( )` (space), a statement to be called in between each iteration of the internal do_over loop. If macroquoted (e.g. `%str( + )`) then the `%unquote()` function is automatically applied. * `which=` - *Optional*, a _SPACE_ separated list of indexes which should be used to iterate over selected macroarray. Possible special characters are `H` and `L` which means *high* and *low* bound of an array, list could be set with colons(`:`) in form of `start:end:by` (*no spaces between!*), if `by` is omitted the default is `1`. If possible use `1:5` rather `1 2 3 4 5` since the firs works faster. ### EXAMPLES AND USECASES: #################################################### **EXAMPLE 1.** Simple looping. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(beta[*] j k l m (101 102 103 104), vnames=Y, macarray=Y) %put #%do_over(beta)#; %put #%do_over(beta, phrase=%nrstr("%beta(&_I_.)"), between=%str(,))#; data test1; %array(beta[*] j k l m (101 102 103 104), vnames=Y, macarray=Y) %do_over(beta, phrase=%nrstr(a&_I_. = "%beta(&_I_.)";)) put _all_; run; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 2.** Multiple arrays looping. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(alpha[*] j k l m n, vnames=Y, macarray=Y) %array( beta[5] $ , function = "a", macarray=Y) %array(gamma[4] (101 102 103 104), macarray=Y) data test2; call streaminit(123); %do_over(beta , phrase = %nrstr(%beta(&_I_.) = %gamma(&_I_.) * rand('Uniform'); output;) , between = put _all_; ); put _all_; run; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 3.** Multiple arrays looping, cont. Create multiple datasets. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %do_over(beta , phrase = %nrstr( data %alpha(&_I_.)2; call streaminit(123); %beta(&_I_.)x = %gamma(&_I_.) * rand('Uniform'); output; run; ) ) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 4.** Multiple arrays looping, cont. Create multiple datasets using a macro. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %macro doit(ds, var=a, val=1); data &ds.; call streaminit(123); &var. = &val. * rand('Uniform'); output; run; %mend doit; %do_over(beta , phrase = %nrstr( %DOIT(%alpha(&_I_.)1, var = %beta(&_I_.), val = %gamma(&_I_.)) ) ) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 5.** `%do_over()` inside `%array()` ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(test[*] x1-x12 (1:12), macarray=Y) %put **%test(1)**%test(12)**; %put #%do_over(test)#; %array(abc[*] x1-x12 (%do_over(test,phrase=%nrstr(%eval(100-%test(&_I_.))))), macarray=Y) %put **%abc(1)**%abc(12)**; %put #%do_over(abc)#; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 6.** Looping over array with *macroquoted* separator. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(alpha[11] (5:15), macarray=Y) %let x = %do_over(alpha , phrase = %NRSTR(%alpha(&_I_.)) , between= %str( + ) ); %put &=x.; %put %sysevalf(&x.); ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 7.** Working with the `WHICH=` optional parameter ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(test[*] x01-x12, vnames= Y, macarray=Y) %put #%do_over(test)#; %put #%do_over(test, which= 1 3 5)#; %put #%do_over(test, which= 1:5)#; %put #%do_over(test, which= 1:5:2 7 8)#; %put #%do_over(test, which= L:H l:h)#; %put #%do_over(test, which= L:3 10:h)#; %put #%do_over(test, which= L:H h:l:-1 13 14)#; %put #%do_over(test, which= %eval(1+1):%eval(5+1))#; %put #%do_over(test, which= L:H h:l:-1 13 14, between=%str(,))#; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ --- ## >>> `%do_over2()` macro: <<< #################### The code of the macro was inspired by *Ted Clay's* and *David Katz's* macro `%do_over()`. The `%DO_OVER2()` macro allows to iterate over *two* macroarray created with the `macarray=Y` parameter of the `%ARRAY()` macro. The `%do_over2()` macro executes like a pure macro code. ### SYNTAX: ##################################################################### The basic syntax is the following, the `<...>` means optional parameters: ~~~~~~~~~~~~~~~~~~~~~~~sas %do_over2( arrayI ,arrayJ <,phrase=%nrstr(%&arrayI(&_I_.) %&arrayJ(&_J_.))> <,between=%str( )> ) ~~~~~~~~~~~~~~~~~~~~~~~ **Arguments description**: 1. `arrayI` - Required, indicates the first macroarray which metadata (Lbound, Hbouns) are to be used in the outer loop in the `%do_over2()` 2. `arrayJ` - Required, indicates the second macroarray which metadata (Lbound, Hbouns) are to be used in the inner loop in the `%do_over2()` * `phrase=` - *Optional*, default value `%nrstr(%&arrayI(&_I_.) %&arrayJ(&_J_.))`, a statement to be called in each iteration of the *inner* loop. The outer loop iterator is `_I_`, the inner loop iterator is `_J_`, if you want to use `_I_`, `_J_`, or arrays names [e.g. `%myArr(&_I_.)`] *enclose them* in the `%NRSTR()` macro quoting function. * `between=` - *Optional*, default value `%str( )` (space), a statement to be called in between each iteration of the internal do_over2 loop. If macroquoted (e.g. `%str( + )`) then the `%unquote()` function is automatically applied. ### EXAMPLES AND USECASES: #################################################### **EXAMPLE 1.** Looping over two arrays. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(alpha[*] j k l m n, vnames=Y, macarray=Y) %array( beta[4] (101 102 103 104), macarray=Y) %put *%do_over2(alpha, beta , phrase = %NRSTR((%alpha(&_I_.), %beta(&_J_))) )*; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 2.** Looping over two arrays with a separator. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(alpha[11] (5:15), macarray=Y) %array( beta[ 4] (101 102 103 104), macarray=Y) %let x = %do_over2(alpha, beta , phrase = %NRSTR((%alpha(&_I_.) * %beta(&_J_))) , between= + ); %put &=x.; %put %sysevalf(&x.); ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 3.** Looping over two arrays with *macroquoted* separator. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(alpha[11] (5:15), macarray=Y) %array( beta[ 4] (101 102 103 104), macarray=Y) %let x = %do_over2(alpha, beta , phrase = %NRSTR((%alpha(&_I_.) * %beta(&_J_))) , between= %str( + ) ); %put &=x.; %put %sysevalf(&x.); ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ --- ## >>> `%do_over3()` macro: <<< #################### The code of the macro was inspired by *Ted Clay's* and *David Katz's* macro `%do_over()`. The `%DO_OVER3()` macro allows to iterate over *three* macroarray created with the `macarray=Y` parameter of the `%ARRAY()` macro. The `%do_over3()` macro executes like a pure macro code. ### SYNTAX: ##################################################################### The basic syntax is the following, the `<...>` means optional parameters: ~~~~~~~~~~~~~~~~~~~~~~~sas %do_over2( arrayI ,arrayJ ,arrayK <,phrase=%nrstr(%&arrayI(&_I_.) %&arrayJ(&_J_.) %&arrayK(&_K_.))> <,between=%str( )> ) ~~~~~~~~~~~~~~~~~~~~~~~ **Arguments description**: 1. `arrayI` - *Required*, indicates the first macroarray which metadata (Lbound, Hbouns) are to be used in the outer loop in the `%do_over3()` 2. `arrayJ` - *Required*, indicates the second macroarray which metadata (Lbound, Hbouns) are to be used in the inner loop in the `%do_over3()` 3. `arrayK` - *Required*, indicates the third macroarray which metadata (Lbound, Hbouns) are to be used in the inner loop in the `%do_over3()` * `phrase=` - *Optional*, default value `%nrstr(%&arrayI(&_I_.) %&arrayJ(&_J_.) %&arrayK(&_K_.))`, a statement to be called in each iteration of the *inner* loop. The *outer* loop iterator is `_I_`, the *middle* loop iterator is `_J_`, the *inner* loop iterator is `_K_`, if you want to use `_I_`, `_J_`, `_K_`, or arrays names [e.g. `%myArr(&_I_.)`] *enclose them* in the `%NRSTR()` macro quoting function. * `between=` - *Optional*, default value `%str( )` (space), a statement to be called in between each iteration of the internal do_over2 loop. If macroquoted (e.g. `%str( + )`) then the `%unquote()` function is automatically applied. ### EXAMPLES AND USECASES: #################################################### **EXAMPLE 1.** Looping over 3 macroarrays. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(a1_[2] (0 1), macarray=Y) %array(a2_[2] (2 3), macarray=Y) %array(a3_[2] (4 5), macarray=Y) %do_over3(a1_, a2_, a3_ , phrase = %NRSTR(%put (%a1_(&_I_.), %a2_(&_J_), %a3_(&_K_));) ) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 2.** Looping 3 times over a macroarray. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(a[0:2] (0 1 2), macarray=Y) %do_over3(a, a, a , phrase = %NRSTR(%put (%a(&_I_.), %a(&_J_), %a(&_K_));) ) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ --- ## >>> `%make_do_over()` macro: <<< ########### The code of the macro was inspired by *Ted Clay's* and *David Katz's* macro `%do_over()`. The `%make_do_over()` macro allows to generate the `%DO_OVER()` macros. It works *only* for *n>3*! The `%make_do_over()` macro does *not* executes like a pure macro code. ### SYNTAX: ##################################################################### The basic syntax is the following, the `<...>` means optional parameters: ~~~~~~~~~~~~~~~~~~~~~~~sas %make_do_over( size ) ~~~~~~~~~~~~~~~~~~~~~~~ **Arguments description**: 1. `size` - *Required*, indicates the number of dimensions (i.e. inner loops) of the `%DO_OVER()` macro. ### EXAMPLES AND USECASES: #################################################### **EXAMPLE 1.** Code of created "4-loop" `%DO_OVER4()` macro ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %macro do_over4( arrayI1, arrayI2, arrayI3, arrayI4, phrase=%nrstr( %&arrayI1(&_I1_.) %&arrayI2(&_I2_.) %&arrayI3(&_I3_.) %&arrayI3(&_I4_.) ), between=%str( ) ); %local _I1_ _I2_ _I3_ _I4_; %do _I1_ = &&&arrayI1.LBOUND %to &&&arrayI1.HBOUND; %do _I2_ = &&&arrayI2.LBOUND %to &&&arrayI2.HBOUND; %do _I3_ = &&&arrayI3.LBOUND %to &&&arrayI3.HBOUND; %do _I4_ = &&&arrayI4.LBOUND %to &&&arrayI4.HBOUND; %if not ( &_I1_. = &&&arrayI1.LBOUND AND &_I2_. = &&&arrayI2.LBOUND AND &_I3_. = &&&arrayI3.LBOUND AND &_I4_. = &&&arrayI4.LBOUND ) %then %do;%unquote(&between.)%end;%unquote(%unquote(&phrase.)) %end; %end; %end; %end; %mend do_over4; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 2.** Create a "4-loop" `%DO_OVER4()` macro ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %make_do_over(4); %array(a1_[2] (0 1), macarray=Y) %do_over4(a1_, a1_, a1_, a1_ , phrase = %NRSTR(%put (%a1_(&_I1_.), %a1_(&_I2_), %a1_(&_I3_), %a1_(&_I4_));) ) %put *%do_over4(a1_, a1_, a1_, a1_ , between = * )*; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 3.** Create a "5-loop" `%DO_OVER5()` macro ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %make_do_over(5); %array(a1_[2] (0 1), macarray=Y) %do_over5(a1_, a1_, a1_, a1_, a1_ , phrase = %NRSTR(%put (%a1_(&_I1_.), %a1_(&_I2_), %a1_(&_I3_), %a1_(&_I4_), %a1_(&_I5_));) ) %put *%do_over5(a1_, a1_, a1_, a1_, a1_ , between = * )* ; options nomprint; data test2; %do_over5(a1_, a1_, a1_, a1_, a1_ , phrase = %NRSTR(x1 = %a1_(&_I1_.); x2 = %a1_(&_I2_); x3 = %a1_(&_I3_); x4 = %a1_(&_I4_); x5 = %a1_(&_I5_);) , between = output; ) output; run; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 4.** Create all from 6 to 10 "do_overs" ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(loop[6:10] (6:10), macarray=Y) %do_over(loop , phrase = %nrstr( %make_do_over(%loop(&_I_.)) ) ); ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ --- ## >>> `%mcHashTable()` macro: <<< ####################### The `%mcHashTable()` macro provided in the package is designed to facilitate the idea of a "macro hash table" concept, i.e. *a list of macrovariables with common prefix and suffixes generated as a hash digest* which allows to use values other than integers as indexes. The `%mcHashTable()` macro allows to generate other macros which behaves like hash tables or dictionaries. See examples below. The `%mcHashTable()` macro executes like a pure macro code. ### SYNTAX: ################################################################### The basic syntax is the following, the `<...>` means optional parameters: ~~~~~~~~~~~~~~~~~~~~~~~sas %mcHashTable( H <,METHOD> <,HASH=> ) ~~~~~~~~~~~~~~~~~~~~~~~ **Arguments description**: 1. `H` - *Required*, a hash table macro name and a declaration/definition, e.g. `mcHashTable(HT)`. It names a macro which is generated by the `%mcHashTable()` macro. Provided name cannot be empty or an underscore (`_`). No longer than *16* characters. 2. `METHOD` - *Optional*, if empty (or DECLARE or DCL) then the code of a macro hash table is compiled. If `DELETE` then the macro hash table named by `H` and all macrovariables named like "`&H._`" are deleted. * `HASH=` - *Optional*, indicates which hashing algorithms should be used, available values are `CRC32` or `MD5`, the `CRC32` is the default. --- ### THE CREATED MACRO `%&H.()`: #################################################### The created macro imitates behaviour of a hash table or a dictionary. It is *not* dedicated for "long-ish" lists (above 1000 elements) since the performance may be poor. The basic syntax is the following, the `<...>` means optional parameters: ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %&H.( METHOD <,KEY=> <,DATA=> ) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **Arguments description**: 1. `METHOD` - *Required*, indicate what behaviour should be executed. Allowed values are: - `ADD`, adds key and data portion to the macro hash table, *multiple data portions* are available for one key. - `FIND`, tests if given key exists in the macro hash table and, if yes, returns data value associated with the key. For multiple data portions see the `data=` parameter. - `DP` (data portion) or `CHECK`, returns the number of data portions for a given key. - `CLEAR` removes all data and keys values. - `KEYIDX`, allows to get data by the key index rather than value. - `KEYVAL`, returns key value for a given key index. - `CHECKIDX`, returns the number of data portions for a given key index. * `KEY=` - *Optional*, provides key value for `ADD`, `FIND`,`DP`, `CHECK` `CHECKIDX`, `KEYIDX`, and `KEYVAL` methods. Leading and trimming spaces are removed from the value. The `hashing(CRC32,...)` function or the `MD5(...)` function is used to generate the hash. * `DATA=` - *Optional*, provides data value for the `ADD` method and for the`FIND` method provides data portion number to be extracted. Default value is `1` (used by the `FIND` method). When macro is executed and when data are added the following types of *global* macrovariables are created: - `&H._########`, - `&H._########_Xk`, - `&H._########_Xi`, - `&H._########_Xi_j`, - `&H._KEYNUM`, - and `&H._KEY_i`. The `#` represents value generated by the `hashing(CRC32,...)` function or the `MD5(...)` function for the given key. The first type keeps information about possible collision for the key. The second type keeps information about value of a given key, the `X` keeps the track of other colliding keys. The third type keeps information about number of data portions for given key, the `X` keeps the track of other colliding keys. The fourth type keeps the data portion, the `j` indicates data portion number. The fifth type keeps the number of unique values of the key. The sixth type keeps the list of unique values of the key, the `i` indicates key number. See examples below to see use cases. --- ### EXAMPLES AND USECASES: #################################################### **EXAMPLE 1.** Basic use-case. Creating macro hash table, macro `HT` is generated. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %mcHashTable(HT) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Add elements to the `HT`. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %HT(ADD,key=x,data=17) %HT(ADD,key=y,data=42) %HT(ADD,key=z,data=303) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Add some duplicates for the key x. See macrovariables created. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %HT(ADD,key=x,data=18) %HT(ADD,key=x,data=19) %put _user_; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Check the number od data portions in macrohash for the key `x` and non existing key `t`. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %put ##%HT(DP,key=x)##; %put ##%HT(DP,key=t)##; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Check the number od data portions in macrohash for the key index 1 and 4. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %put ##%HT(CHECKIDX,key=1)##; %put ##%HT(CHECKIDX,key=4)##; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Prints first data values for various keys. Key `t` does not exist in the macrohash. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %put #%HT(FIND,key=x)#; %put #%HT(FIND,key=y)#; %put #%HT(FIND,key=z)#; %put #%HT(FIND,key=t)#; %put #%HT(FIND,key=x,data=2)#; %put #%HT(FIND,key=x,data=3)#; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Print first and subsequent data values for a given KeyIDX. Index `4` does not exist. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %put #%HT(KEYIDX,key=1)#; %put #%HT(KEYIDX,key=2)#; %put #%HT(KEYIDX,key=3)#; %put #%HT(KEYIDX,key=4)#; %put #%HT(KEYIDX,key=1,data=2)#; %put #%HT(KEYIDX,key=1,data=3)#; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Print the key values for a given KeyIDX. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %put #%HT(KEYVAL,key=1)#; %put #%HT(KEYVAL,key=2)#; %put #%HT(KEYVAL,key=3)#; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Clear and delete macro hash table `HT`. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %HT(CLEAR) %mcHashTable(HT,DELETE) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 2.** Combine `CHECK` and `FIND` methods with macros `%array()` and `%do_over()` ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %mcHashTable(H) %H(ADD,key=x,data=17) %H(ADD,key=x,data=18) %H(ADD,key=x,data=19) %array(A[%H(CHECK,key=x)]); %put %do_over(A, phrase=%nrstr( %H(FIND,key=x,data=&_i_) ), between = %str(,)); %mcHashTable(H,delete) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 3.** Populate macro hash table from a dataset. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %mcHashTable(CLASS) %let t = %sysfunc(datetime()); data _null_; set sashelp.class; call execute('%CLASS(ADD,key=' !! name !! ',data=' !! age !! ')'); call execute('%CLASS(ADD,key=' !! name !! ',data=' !! weight !! ')'); call execute('%CLASS(ADD,key=' !! name !! ',data=' !! height !! ')'); run; %put t = %sysevalf(%sysfunc(datetime()) - &t.); %put _user_; %CLASS(CLEAR) %mcHashTable(CARS) %let t = %sysfunc(datetime()); data _null_; set sashelp.cars; call execute('%CARS(ADD,key=' !! catx("|",make,model) !! ',data=' !! MPG_CITY !! ')'); run; %put t = %sysevalf(%sysfunc(datetime()) - &t.); %* %put _user_; %CARS(CLEAR) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 4.** Data portion may require quoting and un-quoting.. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %mcHashTable(CODE) %CODE(CLEAR) %CODE(ADD,key=data, data=%str(data test; x = 42; run;)) %CODE(ADD,key=proc, data=%str(proc print; run;)) %CODE(ADD,key=macro,data=%nrstr(%put *****;)) %CODE(FIND,key=data) %CODE(FIND,key=proc) %unquote(%CODE(FIND,key=macro)) %mcHashTable(CODE,DELETE) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 5.** Longer lists. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %let size = 1000; %mcHashTable(AAA) %mcHashTable(BBB) %mcHashTable(CCC) %mcHashTable(DDD) %let t = %sysfunc(datetime()); data _null_; do i = 1 to &size.; call execute(cats('%AAA(ADD,key=A', i, ',data=', i, ')')); end; run; %put t = %sysevalf(%sysfunc(datetime()) - &t.); %put &=AAA_KEYSNUM; %AAA(CLEAR) %let t = %sysfunc(datetime()); data _null_; do i = 1 to &size.; call execute(cats('%BBB(ADD,key=B', i, ',data=', i, ')')); call execute(cats('%BBB(ADD,key=B', i, ',data=', i+1, ')')); end; run; %put t = %sysevalf(%sysfunc(datetime()) - &t.); %put &=BBB_KEYSNUM; %BBB(CLEAR) %let t = %sysfunc(datetime()); data _null_; t= datetime(); do i = 1 to &size.; call execute(cats('%CCC(ADD,key=C', i, ',data=', i, ')')); end; t = datetime() - t; put t=; t= datetime(); do i = 1 to &size.; call execute(cats('%CCC(ADD,key=C', i, ',data=', i+1, ')')); end; t = datetime() - t; put t=; run; %put t = %sysevalf(%sysfunc(datetime()) - &t.); %let t = %sysfunc(datetime()); data test; do i = 1 to &size.; x = resolve(cats('%CCC(FIND,key=C', i, ',data=1)')); y = resolve(cats('%CCC(FIND,key=C', i, ',data=2)')); output; end; run; %put t = %sysevalf(%sysfunc(datetime()) - &t.); %put &=CCC_KEYSNUM; %CCC(CLEAR) %let t = %sysfunc(datetime()); data _null_; do i = 1 to &size.; call execute(cats('%DDD(ADD,key=D,data=', i, ')')); end; run; %put t = %sysevalf(%sysfunc(datetime()) - &t.); %put &=DDD_KEYSNUM; %put %DDD(CHECK,key=D); %DDD(CLEAR) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 6.** Forbidden names. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %mcHashTable() %mcHashTable(_) %mcHashTable(ABCDEFGHIJKLMNOPQ) %* bad; %mcHashTable(ABCDEFGHIJKLMNOP) %* good; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 7.** Hashing algorithms. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %mcHashTable(H1,DCL,HASH=MD5) %mcHashTable(H2,DECLARE,HASH=CRC32) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ --- ## >>> `%mcDictionary()` macro: <<< ####################### The `%mcDictionary()` macro provided in the package is designed to facilitate the idea of a "macro dictionary" concept, i.e. *a list of macrovariables with common prefix and suffixes generated as a hash digest* which allows to use values other than integers as indexes. The `%mcDictionary()` macro allows to generate other macros which behaves like a dictionary. See examples below. The `%mcDictionary()` macro executes like a pure macro code. ### SYNTAX: ################################################################### The basic syntax is the following, the `<...>` means optional parameters: ~~~~~~~~~~~~~~~~~~~~~~~sas %mcDictionary( H <,METHOD> <,DS=> <,K=Key> <,D=Data> ) ~~~~~~~~~~~~~~~~~~~~~~~ **Arguments description**: 1. `H` - *Required*, a dictionary macro name and a declaration/definition, e.g. `mcDictionary(HT)`. It names a macro which is generated by the `%mcDictionary()` macro. Provided name cannot be empty or an underscore (`_`). No longer than *16* characters. 2. `METHOD` - *Optional*, if empty (or DECLARE or DCL) then the code of a macro dictionary is compiled. If `DELETE` then the macro dictionary named by `H` and all macrovariables named like "`&H._`" are deleted. * `DS=` - *Optional*, if NOT empty then the `&DS.` dataset is used to populate dictionary with keys from variable `&K.` and data from variable `&D.` Works only during declaration. * `K=` - *Optional*, if the `&DS.` is NOT empty then `&K.` holds a name of a variable which keeps or an expression which generates keys values. Default is `Key`. * `D=` - *Optional*, if the `&DS.` is NOT empty then `&D.` holds a name of a variable which keeps or an expression which generates data values. Default is `Data`. --- ### THE CREATED MACRO `%&H.()`: #################################################### The created macro imitates behaviour of a dictionary. The basic syntax is the following, the `<...>` means optional parameters: ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %&H.( METHOD <,KEY=> <,DATA=> ) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **Arguments description**: 1. `METHOD` - *Required*, indicate what behaviour should be executed. Allowed values are: - `ADD`, adds key and data portion to the macro dictionary, *multiple data portions* are NOT available for one key. - `FIND`, tests if given key exists in the macro dictionary and, if yes, returns data value associated with the key. For multiple data portions see the `data=` parameter. - `CHECK`, returns indicator if the key exists in dictionary. - `DEL`, removes key and data portion from the macro dictionary. - `LIST`, prints out a dictionary to the log. - `CLEAR` removes all data and keys values. * `KEY=` - *Optional*, provides key value for `ADD`, `FIND`, `CHECK` and `DEL` methods. Leading and trimming spaces are removed from the value. The `MD5(...)` function is used to generate the hash. Default value is `_`. * `DATA=` - *Optional*, provides data value for the `ADD` method. Default value is blank. When macro is executed and when data are added the following types of *global* macrovariables are created: - `&H._########_K`, - `&H._########_V`, - `&H._KEYSNUM`. The `#` represents value generated by the `MD5(...)` function for the given key. The first type keeps information about the key. The second type keeps information about the value of a given key The third type keeps the number of unique values of the key. See examples below to see use cases. --- ### EXAMPLES AND USECASES: #################################################### **EXAMPLE 1.** Basic use-case. Creating macro dictionary, macro `Dict` is generated. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %mcDictionary(Dict) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Add elements to the `Dict`. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %Dict(ADD,key=x,data=17) %Dict(ADD,key=y y,data=42) %Dict(ADD,key=z z z,data=303) %put _user_; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Add some duplicates for the key x. See macrovariables created. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %Dict(ADD,key=x,data=18) %put _user_; %Dict(ADD,key=x,data=19) %put _user_; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Check for the key `x` and non existing key `t`. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %put ##%Dict(CHECK,key=x)##; %put ##%Dict(CHECK,key=t)##; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Prints data values for various keys. Key `t` does not exist in the macrodictionary. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %put #%Dict(FIND,key=x)#; %put #%Dict(FIND,key=y y)#; %put #%Dict(FIND,key=z z z)#; %put #%Dict(FIND,key=t)#; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ List dictionary content to the log. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %Dict(LIST); ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Delete keys. Key `t` does not exist in the macrodictionary. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %put #%Dict(DEL,key=z z z)#; %put _user_; %put #%Dict(DEL,key=t)#; %put _user_; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Clear and delete macro dictionary `Dict`. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %Dict(CLEAR) %put _user_; %mcDictionary(Dict,DELETE) %put _user_; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 2A.** Populate macro dictionary from a dataset "by hand". ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %mcDictionary(CLASS) %let t = %sysfunc(datetime()); data _null_; set sashelp.class; call execute('%CLASS(ADD,key=' !! name !! ',data=' !! age !! ')'); run; %put t = %sysevalf(%sysfunc(datetime()) - &t.); %put &=Class_KEYSNUM.; %put _user_; %CLASS(CLEAR) %mcDictionary(CARS) %let t = %sysfunc(datetime()); data _null_; set sashelp.cars(obs=42); call execute('%CARS(ADD,key=' !! catx("|",make,model,type) !! ',data=' !! put(MPG_CITY*10,dollar10.2) !! ')'); run; %put t = %sysevalf(%sysfunc(datetime()) - &t.); %put &=CARS_KEYSNUM.; %CARS(LIST); %put %CARS(F,key=Audi|TT 3.2 coupe 2dr (convertible)|Sports); %CARS(CLEAR) %put &=CARS_KEYSNUM.; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 2B.** Populate macro dictionary from a dataset "automatically". ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %let t = %sysfunc(datetime()); %mcDictionary(CLASS,DCL,DS=sashelp.class,k=name,d=_N_) %put t = %sysevalf(%sysfunc(datetime()) - &t.); %put &=CLASS_KEYSNUM.; %put _user_; %CLASS(CLEAR) %let t = %sysfunc(datetime()); %mcDictionary(CARS,DCL,DS=sashelp.cars(obs=42),k=catx("|",make,model,type),d=put(MPG_CITY*10,dollar10.2)) %put t = %sysevalf(%sysfunc(datetime()) - &t.); %put &=CARS_KEYSNUM.; %CARS(LIST); %put %CARS(F,key=Audi|TT 3.2 coupe 2dr (convertible)|Sports); %CARS(CLEAR) %put &=CARS_KEYSNUM.; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 3.** Data portion may require quoting and un-quoting. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %mcDictionary(CODE) %CODE(CLEAR) %CODE(ADD,key=data, data=%str(data test; x = 42; run;)) %CODE(ADD,key=proc, data=%str(proc print; run;)) %CODE(ADD,key=macro,data=%nrstr(%put *1*2*3*4*;)) %CODE(FIND,key=data) %CODE(FIND,key=proc) %unquote(%CODE(FIND,key=macro)) %CODE(LIST); %mcDictionary(CODE,DELETE) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 4.** Longer lists. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %let size = 1000; %mcDictionary(AAA) %let t = %sysfunc(datetime()); data _null_; do i = 1 to &size.; call execute(cats('%AAA(ADD,key=A', i, ',data=', i, ')')); end; run; %put t = %sysevalf(%sysfunc(datetime()) - &t.); %put %AAA(F,key=A555) %AAA(CHECK,key=A555); %put &=AAA_KEYSNUM; %AAA(CLEAR) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 5.** Forbidden names. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %mcDictionary() %mcDictionary(_) %mcDictionary(ABCDEFGHIJKLMNOPQ) %* bad; %mcDictionary(ABCDEFGHIJKLMNOP) %* good; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 6.** More fun with datasets. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas data work.metadata; input key :$16. data :$128.; cards; ID ABC-123-XYZ path /path/to/study/data cutoffDT 2023-01-01 startDT 2020-01-01 endDT 2024-12-31 MedDRA v26.0 ; run; proc print; run; %mcDictionary(Study,dcl,DS=work.metadata) %put _user_; %put *%Study(F,key=ID)**%Study(C,key=ID)*; title1 "Study %Study(F,key=ID) is located at %Study(F,key=path)"; title2 "it starts %Study(F,key=startDT) and ends %Study(F,key=endDT)"; footnote "MedDRA version: %Study(F,key=MedDRA)"; proc print data=sashelp.class(obs=7); run; title; footnote; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ --- ## >>> `%QzipArrays()` macro: <<< ####################### The zipArrays() and QzipArrays() macros allow to use a function on elements of pair of macro arrays. For two macroarrays the corresponding elements are taken and the macro applies a function, provided by user, to calculate result of the function on taken elements. When one of the arrays is shorter then elements are, by default, "reused" starting from the beginning. But this behaviour can be altered. See examples for the details. By default newly created macroarray name is concatenation of first 13 characters of names of arrays used to create the new one, e.g. if arrays names are `abc` and `def` then the result name is `abcdef`, if arrays names are `abcd1234567890` and `efgh1234567890` then the result name is `abcd123456789efgh123456789` The `zipArrays()` returns unquoted value [by `%unquote()`]. The `QzipArrays()` returns quoted value [by `%superq()`]. See examples below for the details. The `%QzipArrays()` macro executes like a pure macro code. ### SYNTAX: ################################################################### The basic syntax is the following, the `<...>` means optional parameters: ~~~~~~~~~~~~~~~~~~~~~~~sas %QzipArrays( first ,second <,function=> <,operator=> <,argBf=> <,argMd=> <,argAf=> <,format=> <,result=> <,macarray=> <,reuse=> ) ~~~~~~~~~~~~~~~~~~~~~~~ **Arguments description**: 1. `first` - *Required*, a space separated list of texts. 2. `second` - *Required*, a space separated list of texts. * `function = cat` - *Optional*, default value is `cat`, a function which will be applied to corresponding pairs of elements of the first and the second list. * `operator =` - *Optional*, default value is empty, arithmetic infix operator used with elements the first and the second list. The first list is used on the left side of the operator the second list is used on the right side of the operator. * `argBf =` - *Optional*, default value is empty, arguments of the function inserted *before* elements the first list. If multiple should be comma separated. * `argMd =` - *Optional*, default value is empty, arguments of the function inserted *between* elements the first list and the second list. If multiple should be comma separated. * `argAf =` - *Optional*, default value is empty, arguments of the function inserted *after* elements the second list. If multiple should be comma separated. * `format=` - *Optional*, default value is empty, indicates a format which should be used to format the result, does not work when the `operator=` is used. * `result=` - *Optional*, default value is empty, indicates a name of newly created macroarray, by default created macroarray name is concatenation of first 13 characters of names of arrays used to create the new one. * `macarray=N` - *Optional*, default value is `N`, if set to `Y`/`YES` then a macro, named with the array name, is compiled to create convenient envelope for multiple ampersands, see the `%array()` macro for details. * `reuse=Y` - *Optional*, default value is `Y`, when one of the arrays is shorter then elements are *reused* starting from the beginning. If `CP` then function is executed on the *Cartesian product* of arrays elements. Any other value will cut the process with the end of the shorter array. See examples for the details. ### EXAMPLES AND USECASES: #################################################### See examples in `%zipArrays()` help for the details. --- ## >>> `%zipArrays()` macro: <<< ####################### The zipArrays() and QzipArrays() macros allow to use a function on elements of pair of macro arrays. For two macroarrays the corresponding elements are taken and the macro applies a function, provided by user, to calculate result of the function on taken elements. When one of the arrays is shorter then elements are, by default, "reused" starting from the beginning. But this behaviour can be altered. See examples for the details. By default newly created macroarray name is concatenation of first 13 characters of names of arrays used to create the new one, e.g. if arrays names are `abc` and `def` then the result name is `abcdef`, if arrays names are `abcd1234567890` and `efgh1234567890` then the result name is `abcd123456789efgh123456789` The `zipArrays()` returns unquoted value [by `%unquote()`]. The `QzipArrays()` returns quoted value [by `%superq()`]. See examples below for the details. The `%zipArrays()` macro executes like a pure macro code. ### SYNTAX: ################################################################### The basic syntax is the following, the `<...>` means optional parameters: ~~~~~~~~~~~~~~~~~~~~~~~sas %zipArrays( first ,second <,function=> <,operator=> <,argBf=> <,argMd=> <,argAf=> <,format=> <,result=> <,macarray=> <,reuse=> ) ~~~~~~~~~~~~~~~~~~~~~~~ **Arguments description**: 1. `first` - *Required*, a space separated list of texts. 2. `second` - *Required*, a space separated list of texts. * `function = cat` - *Optional*, default value is `cat`, a function which will be applied to corresponding pairs of elements of the first and the second list. * `operator =` - *Optional*, default value is empty, arithmetic infix operator used with elements the first and the second list. The first list is used on the left side of the operator the second list is used on the right side of the operator. * `argBf =` - *Optional*, default value is empty, arguments of the function inserted *before* elements the first list. If multiple should be comma separated. * `argMd =` - *Optional*, default value is empty, arguments of the function inserted *between* elements the first list and the second list. If multiple should be comma separated. * `argAf =` - *Optional*, default value is empty, arguments of the function inserted *after* elements the second list. If multiple should be comma separated. * `format=` - *Optional*, default value is empty, indicates a format which should be used to format the result, does not work when the `operator=` is used. * `result=` - *Optional*, default value is empty, indicates a name of newly created macroarray, by default created macroarray name is concatenation of first 13 characters of names of arrays used to create the new one. * `macarray=N` - *Optional*, default value is `N`, if set to `Y`/`YES` then a macro, named with the array name, is compiled to create convenient envelope for multiple ampersands, see the `%array()` macro for details. * `reuse=Y` - *Optional*, default value is `Y`, when one of the arrays is shorter then elements are *reused* starting from the beginning. If `CP` then function is executed on the *Cartesian product* of arrays elements. Any other value will cut the process with the end of the shorter array. See examples for the details. ### EXAMPLES AND USECASES: #################################################### **EXAMPLE 1.** Simple concatenation of elements: ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(a[*] x1-x3 (1:3)) %array(b[*] x1-x5 (11:15)) %put _user_; %zipArrays(a, b); %put _user_; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 2.** Shorter list is "reused": ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(a[6] (1:6)) %array(b[3] (10 20 30)) %zipArrays(a, b, result=A_and_B, macarray=Y); %put %do_over(A_and_B); ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 3.** Use of the `operator=`: ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(c[0:4] (000 100 200 300 400)) %array(d[2:16] (1002:1016)) %zipArrays(c, d, operator=+, result=C_plus_D, macarray=Y); %put (%do_over(C_plus_D)); %put %C_plus_D(1); ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 4.** If one of array names is empty or an array does not exist: ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(a[6] (1:6)) %array(b[3] (10 20 30)) %zipArrays(a, ); %zipArrays(, b); %zipArrays(a, z); %zipArrays(z, b); ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 5.** Use of the `function=`: ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(one[3] A B C, vnames=Y) %array(two[5] p q r s t, vnames=Y) %zipArrays( one ,two ,function = catx ,argBf = %str( ) ,format = $quote. ,macarray=Y ) %put %do_over(onetwo); ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 6.** To reuse or not to reuse, or maybe Cartesian product: ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(e[3] (10 20 30)) %array(f[2] (5:6)) %zipArrays(e, f, reuse=n, operator=+, macarray=Y, result=_noReuse); %zipArrays(e, f, reuse=y, operator=+, macarray=Y, result=_yesReuse); %zipArrays(e, f, reuse=cp, operator=+, macarray=Y, result=_cartProdReuse); %put %do_over(_noReuse); %put %do_over(_yesReuse); %put %do_over(_cartProdReuse); ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 7.** Use middle argument: ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(yr[3] (2018:2020)) %array(mth[12] (1:12)) %zipArrays(mth, yr, argMd=5, function=MDY, format=date11., macarray=Y); %put %do_over(mthyr); %zipArrays(mth, yr, argMd=5, function=MDY, format=date11., macarray=Y, reuse=cp); %put %do_over(mthyr); ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ --- ## >>> `%sortMacroArray()` macro: <<< ####################### The sortMacroArray() macro allow to sort elements of a macro array. The **limitation** is that sorted values are limited to 32767 bytes of length. See examples below for the details. ### SYNTAX: ################################################################### The basic syntax is the following, the `<...>` means optional parameters: ~~~~~~~~~~~~~~~~~~~~~~~sas %sortMacroArray( array <,valLength=> <,outSet=> <,sortseq=> ) ~~~~~~~~~~~~~~~~~~~~~~~ **Arguments description**: 1. `array` - *Required*, name of an array generated by the `%array()` macro. * `valLength = 32767` - *Optional*, default value is `32767`, maximum length of a variable storing macrovariable data. (the reason of 32767 limitation) * `outSet = _NULL_` - *Optional*, default value is `_NULL_`, an optional output dataset name. * `sortseq =` - *Optional*, default value is `LINGUISTIC(NUMERIC_COLLATION = ON)`, sorting options for use in an internal `Proc SORT`. ### EXAMPLES AND USECASES: #################################################### **EXAMPLE 1.** Basic use-case. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas options mprint; ods html; ods listing close; %array(hij [4:9] $ 512 ("C33" "B22" "A11" "A01" "A02" "X42"), macarray=Y) %put NOTE: %do_over(hij); %sortMacroArray(hij, valLength=3, outSet = A_NULL_(compress=char)) %put NOTE: %do_over(hij); ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 2.** Basic use-case. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas options mprint; ods html; ods listing close; %array(ds = sashelp.class, vars = name|NNN height|h, macarray=Y) %array(ds = sashelp.cars, vars = model|, macarray=Y) %put NOTE: %do_over(NNN); %put NOTE: %do_over(H); %put NOTE: %do_over(model); %sortMacroArray(NNN, valLength=30, outSet = A_NULL_(compress=char)) %sortMacroArray(H, valLength=32) %sortMacroArray(model, valLength=120) %put NOTE: %do_over(NNN); %put NOTE: %do_over(H); %put NOTE: %do_over(model); ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ --- ## License #################################################################### Copyright (c) Bartosz Jablonski, since January 2019 Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation files (the "Software"), to deal in the Software without restriction, including without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to the following conditions: The above copyright notice and this permission notice shall be included in all copies or substantial portions of the Software. THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. --- macroarray-1.2.3/hist/1.2.1/macroarray.zip000066400000000000000000001477611452773550200202010ustar00rootroot00000000000000PKFxkW?:h description.sasVmo6nb@#OSou1'mE"5#!oQ[ӥH:{90M!Fˍȝ B"̵7rS>lWpn{g%<<(P`1g9rg*3;B -y͑ q{ow݃ :MCl~ǁ a0T!eQ1`dyBƸё1Iyql)E%GHQmB8k[{6봩%m1!\gGG1}h")8*35[Ej_?[=)h=wkfXj;LގIY׮[3z kABaԩyLxZc?{蠴6W+4~52C,Ӆj("qW4NfT~/C4 eevG{ 6϶?8p.6nV`te+4*ф O]H=1TFttdt2GKq ˢ$U&P'q,- ㊈:iSz'%TPЖ 6eS@b%KLR'-# oG)MH't]`i|EJҴjeshDg߿PKFxkW*riG license.sas]RK0GqڕLb!I qbdL`w"!gg}7[3|KQxoC=1.^N XP3h(hQ>p4>\8݁޶F!!t=T k7~RȌ@͗\L9>8Ik8w=I|ڊ#={ AV8髧dn0O3Ľ;,z*z$&`x=10h}o"'ZjS,nDQ=:k46Pvҵv _p 6SGv[j`o[Ceܱ7#>NMG},,90APId<=K`#en'$+- `"K$k(eU EQ:#X b%dmJ 5LdsfB4.J *&s&Z˪9ȐB _y@YKGl$YR<.XyƱ8s~\i*#P%`<͒SF%IˢL0l^Q5d!f"XX+ ޝG轮+#dHVxJ2W PKFxkW)$packagemetadata.sasJ10̩4[i/t=[f64$O-Er1$ E-wlp} =vq3#ꕬ Z-aO]aEY߷)㼳"qx*y@SS|ZK(<U ,Fv>-b[;NPKFxkWiceloadpackage.sas͗mO0O;"JJ`bbلDԕ2M9.D$qFwEܝ/ ` S\P(oL b !;P03[gnu~ڡ`qD#5rCF\r `ʥ\o*6IVS,Z f 6~ɬN%W]> $QO6rc. @.8M[F]cl׀Ea oqn FU**өKpL50"`-p 06 Nñ-I/b؏hz:e YBT8H)ӯL_.1x% S+U/ì<<|:=wٶLݑ`aY$B a`v7˚cU`Zug;gtUmLlg> /'G fr"e_2MN&L݀/aop &542tGWїj4'b2C|"oKM{W̨T# ܟŹYnDGWx-´1xn, dqr.P5b9M?Jw78p{9vЏxI* С%y"&2~_k5ThJZv¶۸hѦUa&{wgv^PKFxkWJ* /Hload.sas\SH=U%1d;NQLNeƠBUVu<40N|n;=^g83toVuúG{SUscU_ܰ-h5V4fqWQ:Ta79@&xΙ\cڇ{7jrt>jf[ϼەrd;\Smc'v0bsJEy`sCȱ.x t5p3'/Pg?ʶ˶1,P52fw>1Pg:U|_9ҙpmpOie{ppcna;OŰ4s3B:dq<*W`ѹ=s5 )svzQd)<빮r .%@ bC623b#z"'SǶzS{8C [&G?!G(b;U6u52\ujk?ڠyA?&a/ o Җ ǵ5Kg -r)DeH]J[H Lcy{V+푆'5+ol_V`i\ό$ٽ@Oj1_:Le:krȠ \ً,N2Xs0Nubxc KHbnȣ]}a5wH='!'0"sT]"6(Ec-{92U מ +E1jh\в.D]ҺdOKFTU.(9O0@ۓV>[9~jML;B kɹ41ͣP`)y=)nDX-iSbrŹ50PM0N)MU4hдf1)q8Sw{vKbp95M~nf@څ& ='n"V“`m[/b? *lqZ#3a2>3=\\7݌6 _kkK5dN EXqX3& [ _e{bOt`$?%;XڂĖ b&+]' @vWM@tÝxgXeա>6@i]خ"QfC{?BdS{qMhN{b"%ҶeRKïN1I﷋(m5oJLZƞqք /X5<-{e4wo` 73Ak,z434`_te4M C3 aVmg)NSeIٖ!H݈$Pqe25o DdU&-x#P92&IXmPfI2%nFg'TZb{G|B`=ऽ]R'p#Gr%R#_b7"' #(e\$eQnC*tDb7#*'*i\De QtSLV*O ip X-+m[ P,t#bA 'm W@iєQ1LFnPɧcidZNgLxxLj@|38N|R7~ ݣft ѽ 6.+U\/tw.ג-wwAȱΜKz% j>uF}j5/瑧PgM :ykN-#'  r +?ֻ0ArԷxu GtR+Wpy wTS7 {pKN€=n# /<3:npT_(e@y"8w՜1Bm݂3U9ܞ}>]/aoܗ]S JR&=4*j1Ҁd4pt@:?#-]\M{\sU8))\T/:=i7W7"xԐkFU$`܉80ȳyt=˵F[aJΑ sgq,;" s?)-mwIsl4Ztq}?#W D֯FnB5/aV>ƺ4(=qi,/QҢ*z逕2Ջ1Ty%yruo"Ii*kh~xb~F`|INil{Ho,KTIݨtRzzקa«`l-8B{&2M瘝ⓐ<ܜ{O9gJCX^\jd1{RA#XʙRl?7T1Æ/EI ]ubJH,mJT``IhJ#?8զ(It!Kƥi.:tB YqHr(=DZLNLX'5)=&Gsư$ط]@@0>܀(S]! !ձX[VkZƚi@7'PKFxkW unload.sasXQs6~LÞlꒄt.3e|mFȖc误$ 4FZzY@IC3ÃÃB@{D-ؿ÷B'N$<`SKnuFa_Zȳq|T'_6̗||c*gDô`N~~c\-_@HBlӅXD4eSv?IB@]+_A"=fUzvká}u+k-{޾(TiD T8%IOӔHqL)V8JaB`*ݔd`퉚O(݅Yv7*ԾH,Riqkir ʵ92HvldMy'-w K hFzvuVߑNW_yo7֏}pc>׷Rfy׮SRH ]*w>qmCECou+/ݎZNT_84iP>AiԌ2l\^Þ!.Zӿyo bcF*ݯR7% L9)+)"Pml1c"5(梖5Se(FS͎XM3d p>$?@K+{d] OEFNB ' Sz[ PX9->.4|YM4 YDiKg[k2Z O|!Ml1[=5YZ}XXleS4?J s+02t9g/W82cF7=3 Lީ> ~nҹ Gyi=)(ǽ0Kq)иkM,&M$H+NESuح+!T)6,&pk[p3$ ''*.q1,g=q! D#N=Hɚ|ֆ/cεA٣9ٸUhU ~<;<%*&qgFJd) 2/g^aK}j!N~Hqt1P6 כDͷpTSҗ@hsXGr+~/Wbu,D鷳WϛÃ㪼((묨PKFxkW_k preview.sasXmoHY`#ʋI{(KrBmHT,^Uuwm9߬/kIp!7AH"wG}5Cp1m- Luq| w[;c1w}qHoG=dH -\n.x@Ē#S7s'`?ОƇw$bKɭɡ5b O_Ӫ(Z|Zsμ;b|7IODX̐[Ȝ_(~ET w iAVf,/R|9_s'!.wxD4+x.wH>"1lɏѻUv+{X|~~20^j$4`C4AIlAs ]| tW!0/v:))O\\ӂvby8wz:E@Pv@T0}<B' o !&8FsO~94 :"hLn #'-h+tyй$bHjR,Rs'y40{x ;$>`^BjG=u(VYC%XC:.qsq-p~!nށXO'wJ)DOl]cH2BN) AE@)"jWy*~ iTUCt;fLR髫I6=TF0),r5ԛfYbUPfuy~xXnPt%XFf{,•ʼ\Eu!T\L)Wnek=YV{^/U*JB ,f+we,ru)kϸvltX nSXc73ݒzv ?b GÚ9;gV+ddOZpwqR Q 5ְa5D0g~PqUH.yIy11!]zn/˄:t_ƙtY]?9x1_ΊwnqoJYwnPKFxkW(ƾy%help.sasZms8ǵ Nڞ}iLS'! 'L1u'?Va74ABj]-L\֔ݻqƴWT+p( oǃ7Г]L&Ae L-; .Ț7_n4zl^P:ijDj4vG4y ">,J.mFgwFW,ѧ RcA<і ZO?)$ʞM6~x ^li@yF }2GdL+" IJu ^ÝXs %QUO., F9̌%P:^0j%p\ЃwsN8f}s}5R>8@ IJ. SR18 s{i.R#ԝUkmjR$ ĉPZ\HjDn ftsV*^~ׁt!wV8Q{Ou`Mp MȢ\lL{ Oþj^?] ̆ ťx,?4f'8!͠N@,X; pcb%Ieh`^"l8/cyH#/y KCv^-nyM@\$[Ws5z {fvh jipNM2cLhz-ӎhV+tRǍӢ5K' Cx5:} h6a8,TRn(Hd R=/BH:dkh6.t 0 +eTQ-X¹4 1T^o(aZ[ckH \^R r54 B( AB^`Iq9cJMEz.+G74+ ؗ%*_̩SǴ"}׿n>MfZrcS6L#7 8؈#'Da UlpD7FFl o6؊` TK̹X9)|þ0qhoǒ)xRڬ|ɑz,@펺enu8ޒtwR<28Ly|#KK@ͩ)B`rIhdZI׼ ǘ+32lPKFxkWhiP/{_001_macro.appendcell.sasY[oH~G?q/˾l%4"i5 VSe7M9e2ɖp];9Eɲ,Pi=vK%+l߯r˛O0bpyy |6e#Z6.K >,l&yxy(If3,ɤzSM), m;r@ 7}{;;;ax4ơ}"B|tΗ$]KrPS?`UZ u~i$(1`$'Rg3]SLZf= \|((]Od3&l"UU(sHWSs=I#?AjBWUȏD[A#4I=uBÞ!,.x?-!Y"8d HؤMp{}45h ct&[k~J8ڱ  D:lȩ?7T80˦ %ڰ(׫rHڧs}qA%;5TIs]s~ivK l}lӌ&#)xr&=X(kU B {UVD-:tBP:ƪ;Hcqoy,; EX ݾqe[FO{F ;O ]VBz[kVpۼoUn/v}W'\̇c* (5J!),KA=2Wi2;`9nȽHT~u@Tqbm2pг"iUY%D)fMj68D%âVFRXkHBqD6.fJj>@SܨΗvR"Z>Z=&J wiBUa]zкr>)n"Kz5g tYN((P7#AUmpty)g@j6itRAG Gnk"[tvz?7* kVqN/,w},\:|u(:, 'iW+a@k_QCOSӊS:D rPkC{t KXê%0")zMJ<0{KVy>悢ĆذoHlQ gJO:"G5:^ߎO>͑~[~yyJH=\:tgMXpaQr<^2)ۮKq n5XZJ_Ou9 LB~`)u{2dr 'wA)HkC7@th" d,C,^F?qpĈS!<)۔|0yzRpteIx_V̟BؐS>x-nI%z-(27 j3ZVu< ui5( SIy gj ?e=1׳Q|3gxPKFxkWؓZqy_001_macro.array.sas=mw8{NJ73t&tB7!Blj$v{%ٲ1iҤ=3{L"v>gͣt?~?z|7l߷g3{{{ŋ\{9Y;/iǏސ3ol]s`|.q r+3} ?X$xƕ]r?p<} Xe!TۃCC'`C8cngv&] sJ6:A?jS+'@ٌp#r3;{ʂ y/=~t,t el> 7T|z ٳ9P`KonB9tY̜3%׻"`_m됻(`AHI20aC`Wvh sٝUb-f#  5,B!%]CV=fpPiȎ};tܱ.y0j< PW%)5jP=9zW4&'p6Lve(|c6IJ 3I>h!eN(}D€jL*7yWlGNK/ȯe įM ]QEHT|L M+Qq7֎L)G;=ow쭳*w(\.hyH+p ETz rH-ֹHC v6f ~{QP/8H_ +2;si6) 0`Vl= :d'afˆ`VŒ3PumlJ%9-ZC 6rCA;^Ɓ9ZW8 gԻVF)ރ{}f`Grd Oa=@?qYpq0̇ e0&)JP ٘E[STQX̊VʬWt"nsگOe~TB#sJ<=]")bXA^݉ACGz%$ L}y}kpnQFv(ȏ4)G ΁<H8'p##wD5ّQG]*&lSGI2iPDkde'D<_(P|`[* ;!{9p{d P H9r{̰ʕ/acxECOc\I b@~1y< +Jb@;pof@RlZ(>P>͆#$\F* H4j,]Wm~kJ">8|adP0Y`lLŠ²K:!Soňt2އ0 b) ա·!a:򽙮fw-S53ٻeֲQ\y 85 ~ &hC3ۃwBݢf;KRU>/8&^-2Uұ" u,2`EqF@ު01ӌ9RQzM3O=H\p]Erl -SfÜg#!5d9~ZN}lz ^,`]3hSs'DJ"J YYMʱp5 kVA9e?3`蝁 |$D0M%#iᅔmhRQ  Y!!XDK'7,DiN? p%=v4 l$8ohӉx*~dȜ~&#꠽o;4y}ӄ4(b!(ː ̆s1x@kfE z~Fxu_SFw~tn|6OJ16$R@,T|Cp*#ڡTe"n⧧XE t7T"Թ& UD P6z$" YgD^y շ,*5Ogg5/&1l4\aTQؔ0c/7ŀ,.I5BI)RX,Ad~ -񣊷FO5IR @ׅ‡0F_ LA`y >ᾞ7i+FbHb`618À`;ġ`B1P#ktmCb0ض1c@do6NδY z&K^M%)LZ"LrDi:IN,gc[Ŕ z {8A{,=3v H\'*)Tʴ ( @]uvkR;Ş_Y6RvZ.#>q2alL8zcB%I!2%A~3O>RRiƏS@G#L0vOޮqPGMZ׾_j?7uZEEq-'2O:lh7 QXs,}d̏pۗ0_EJ@0BnIJb$Lt%ѮSznl|7h{ܴ7M?_l0 9xw1#9+~A.6hϻ}  .պ[!8A}1352Ԃ-7eL1@tS6/IMCO i6E>|BJ$ǣEl$H9eH/b+wssHez#Nm1M"|^#0g- A9:⸎ ɻiߘ1[z XЊ$J;C^nm0#13؍үc =D LR}43_HԷR$,Mߍ.R"v kx0ٖOSHz A`ݣ=H 5+e@Vd?Σ *Dw1KY9$d=G̷Dvc>ʝ>ECg4+cDŽeDĀ 鵔tJ17X_RާM%]|M#Is,$w8X56Jd3Y|Zp(RQ\DrB?d Ee4j+f)䟑aF."ˠ Qڊo h*TVl\gm,]O*ü|WkUmU{!oM1ZgpF,Έ[fhVd`՞EI%5v<յYʆ}Eώ{n9* XOWWi27B8fwɼn5 JORmڃsYZ(?ya*.OE#~5Yk52ʛsI AhaŲ~}'ǤIń~/)"MO2/pltS 0zs9"LCW[}n"[?,j,?<8tEA;AŸ)JȈ~D?_/:@swSLMyl;nG3w툝R2Go!3ggn͓IG@A>u-╬'V2v/d/2D!< ~d#iP>>rm#M(o8Y9'`|lX+VZY\iݬE X¯vI: YkJ-ZkQAx72W=.Pf6eAGgߩAُ6N:Rmq"/5pEfs.,M:*;j 6H6;PRhNqj+{xn!~r0M]f<,%S$YN$YNUY#AfQ(Fb.JÈp#aD8QP 0RC2]1q1!1&$eb'8cB7@`0׺#>cβXd;>iwqG[ޱ~t]90l"SaCWefxdf(P3Q(<Z\5<<_o0L[8,$5bhl'LTUzqTTNx=OK"UX#%;Nzs⼷wl>:#\g‚ 0PZ,,Fb\`ʦxVLcZRK/xyx/PPg627,w6 4;!嗻?Ύޗ-{мd|nbA}vdU S+<{/D>9%E&|B vޗ=~1:4;GA;Vtz3툍CtAߘNTI~WğkkA-2M Sz;㹐dgԐi-cVinV=J+Z~1 rgPOص<7U}޿;c"\.cC666 = @3`+QP s=|s,| ,ހ~tP}e[iӉc|}3jym<ȇ,Ƴ׮%~H Aw=d|C_oSؑҤ% ѻ\c2 HȃВO&PR2 C8"í񶅻6eQP *TEAU W +B|;H >)ea$NMbS6t>Y;vI!AMt ]YX6ueaQըp7.5U]<Y2#0@N,-ǥVj\"uTގʱ=8!ӝ"s eVZͭan(Wh+D*Ed>8֟_Nz,wP*NkVFJ)=ot9FJku!G\@[[yʭ|pM=f7DŤKМHny6i|8Z{xzAy9<ݗxrPMBH?wә~t=Y(蜊i{:{1rѬ@5]WХ' Q646k NzW=*l٧_2қ ^7"sY{$TϬ銭ܝAE<#aj*7Lqī ߛ˕l. ;H[.R a8*b Z>KDK}cM^_,UO|r,{^ D kx],o:EJypC|}oj ހap}t ry.l;/@=(VC.zNS)a&_옄:a) _.BwI@~Xw $QK=ϼ+Թغĭ`@Ngcո%@KXzW4 3ꍥf[zXXOT\xVf,+xf;0ѼLl?PKFxkW%U0_001_macro.concatarrays.sasXmS8=s8/a.дpCLC[ V*Ʉ܇(mlu馲BG-D򧧺lP)?*90h7|V Є5kGd]Xu=L$ kUBW94$jFmȩVDq:¢ٶZW(A+8~՞Kl{$.Y7bK6h8 R X5 A1s1e[QO*fIJ0Ys`mqqhU&f P4 `q|D F 11215 ~" 6gxWKs#[)Jd/iI,DiN#`S ֢:s:4cИpwQ׵8:4 dz"wZMr2 xJXo%Ó?PKFxkWPuU _001_macro.do_over.sasYQsH~wC'>0҂lk*&)۹]W*i0: H힑 9l47=4ww{''%8O  &̍D ...A& zP^^^ˣ+<b1^+!1 ~(~=qr6?&}=--lw*ss ,LB,ybCEln3?d΃S(T݇|xns ā42 %-(+?=C&}<3R?>ֵ/e]4EȂϲuxd yOOS #GJU=Uoa\!C8;wel3nLxKt#_n-zj[)hy?'/T|Q@21X̠$УoisK1DB 9$Sԝce)8)ʘw)h5$ +˩Caz4]9"3tDSYM)8z, #J\D(1\$z  (! &[dލC'"F( ]JxUD+i@MNˍu΢^\`57#R?)IB5  !Kb1Ak94𹗡$\@\Bdf 3˱Hoyi]+^Hr]shKH-<稪|R*18LP+gfh]{fKg5`E+ʚB1#MH܈L (&Ɍ/uRqh8EL`fܤg;`@8vDu:64 ^ޒ~r}k&' #&<o,Yѿy{J>ݯU5ӀB"[Y,F@J`ҿ(ѣ? s E*2sM)1PKE`YmUnH2];bjT~D Խv6٢܄7%dٓj eTЯ MM@Ô[녛r¬2Y%7gɪC a,v\.WIPh$CrEkTbvZʼn(YY"&r*}c豀 电 ~Ȟ,G0cbFPHqVL_ۯdb%p dNJ6UĖ驺޺M@+ߢ+xRƪҵİZ{J0ĀNQέ*4iC6 (lE{T,JƄNdn~s]$܇|^[XP\,'#|zSEz#f([aCh~>p\^_TƱ\(f)ո>Z YiJ ?Fz( ?ۏb8{Zi mXi 7 ($YZ2`8 ލOa?+!'˃iA 2\ WAÃvUUȘ@`I{O}SKf)UTIk߅⽏}|w;f1v AA&ZB43DL)rj6}Uh ̤ؗ y,5bRiD5Xf嚈(j6f)(.[䉥Lʑ{bT,/ -BG\B<{BX-3c}:l1X#c2]dw2.m[lNbc!6F rI=. >̰堑wahmCWvm蟘?pn|0!9y7l9ʗLj0DhTF\uА?(TJ.6[+ Srʄ˥2|;3B3WDo%EvTb$sc/&IYdk9c=$͸syPV=~8wbCm ūA5s;xS`V]V +Lo!5h7ގYnaXJZ:LDx5!'g}iVR}Ђ0{ß;SpM׽6!؆eg7~x:D>p1AxpkkNʃqlLO/>C g'^ඇ6*4pKܥs(yQꎝR$jesFo |y{u+Yo6—͗ 鰛mcP*8X>g+k;zsR1<&ڝMT|r;[FGpuΎ Wz-eʧ3 h }:P7Ep@d4]ɳo# ؃LRuW&x*!M*16\^\Ҵy+c]0wmLKuj%ffbݐXBDtLн0-xx!6~JfOojAD XwL?'s0َX#V&ƻm:e#5I슫R>SH -qPKFxkWkʘv_001_macro.do_over3.sasWmo96ڔ݃Mw.!hB =5*o\zn?ˎ {\WGGAZ-D R@ل&Nfy"jvfGu)ʥ)X$4,՜IhW8z  o KGw3˭!Pyo.uk@T,hLSI4R詤i#R%Ēr `p.]G0'F%׫6p3M LV,2wW'G?Q,|,00>40l!ZJ1LpV'ETT\`%-v]z8jVSI=TZV|{pv޻x{1zA)? 0 AЖlFVPKfm zBdPLXL,m 1ob)ҦIB4Hd<¹UaC# hcܪ Ty1s+ zDEcyal{`S&D.r.bB$K5ܐ43?Qvтh>:” ϋٕu&ָLV6hgU IFEVˌ%IJ uQh稭=}"Z[q Kk'N0ٲ-; q*: ֞}\MQ֯X`p v/AEILG:֝;xǝSsJzG87XUg/7 2n%xdZA2&dS{c3k]j>쮇=;oߪتXO^*;"@a@|:v iūhZOӜ$+ݔޖrrM>ގf*>=xwn篴{6ЪU :CߣFwb&NSW}t>|X{> :ۃ/p 8s/0LͰ]bc l6`<2`VS3T^1֗uo{и{O#+S<Sn5fJ WQyNU<>iiǍMI?nvF} |0SȆS~O>l"w?,9) j+6>*; )Bk1_J6jxE;t(\}aUP'xF/Q1MṮ*ɘ3jzjvn{mU0ƛb{$#%Rk5k6P΍9%$dF&4W cc S3-Xu67Zյ^4)䙙uԂJdKչXբLhZt&KP)xL5vv@eIF KC$|`xPKFxkWI̦_001_macro.make_do_over.sasXms8 S^ҙ si]{&޴%oWMHXճ8ypoނ'O5e|ˡʣ} SEᐁ`S~T!/0 L8x Gݰœ)j;|; ٢`%'߈]Z9,7S``a( 1?O@Gq /]!p΄9Ӂ,0G`{bj{P7t}shO |(0 ;6]$-)-:fxIE<& @(цPʙ[s J$/MA}rGЄr ]dFKcz WH%ͅCg V5R 5WTćG9 吼[v{ Ԭν2s"DaVI3XbPQa{7wW3P!j`!z$ZcKV޻,R@/ȑ]+_bym7M7׶HxIqm;OjTocD Ȅ~O=P29?A%vvC*Ti4##uv{&SEZv7@wo@?9_؆lBhIz&7}*X|,)cs}c6pʃrԲ]t٭˄*JԳq˭2E-rΒlPVr:ͦ^lHWUmD[kE[E%ZzNIVsK4k#==-gHb[|2_.Ns^bomr%k$$+f ZAƀ7ʇnG5Z Xu!}Se;A:~h uz~18^p>k uFaa.:Cf ˧;F`_ o@bJVa΢@$/sc+ne~Ӥ]iHh?RJP:J(p_ ?vfn5%l \ZmEb6!"9tl>J:Ut*'9KA-&n)m_001_macro.mcdictionary.sas=kSȲߩ?L F`8{CvBr0&7{ʖB=oo= Af7:6hh[VQu/ nwwlsc+ߚ-SMYE鳉 KRc6D7wvҫ+ܸyuL̴M5Rq@=sdCaCM7-|NA9CUκc|טrU5fWkj{Lw&TмΚm0/ 16waTi6ּ15_ecS3Ͳkٕf4]U6!68Ub 0C $DzÉ|]py *r6"P?7 \.?*~>h~z1oBg̛پv`qrG5TU5<%-dӼ͍4 _NGgWmȿ|6Z2w$Zm`mWwMBZ}O*];zοˍj-5uq q*bjg #!EхW; Bz̤fYp|QQPu O]m1c|2g9HaHHU+*;uأPUUV'nHGyC9ZڇyGjvD^\,J!+~57jw~ ;yɳ+$ʕGj_bALF?4N.$#"ۭgȬ}$ lY,2SgXh_T]3 ]gBT*BYHw[o{ j[3f.rRCʎN)K$d،@&1tY02ԓo{ ( -Ws~4Ez8BpE7ANh/ݼhI (؁hu dNȵ{N tgQx $&l ύWLzEqcXK$ ^K@`ꨫcO0;eOuY WPnV0H"e;"hB,_- ˄$ë}C-Ю4"$;6As{11J+đߘVl H/gܫ1k'UB5MQ23ń2`",}x܏1 IЏBpĹsvۊ!vu/L9~:ra9 ;y?B #x%Mn@kҠʴA$& Gn()9C Cg>c(0U5' 9#7b9Q}zVs0QIoED 2Pb?= F "$A4Kns7U`{!&]#10H]036Ŭðrh6®/iaX(t=P|D#JI?rc$C+hJƻ!2+21̡B&Hk P!bS!xQ>?{Ѹ! l)&N2ͯAzS8@<4Lzep}ڢ|%}NU}#O/%OR'pGlږ@ʑǶ0N[s sk y~ mg[SF[$MlƞmǙ2|K&&(ÏW@՟Y! 5j.cU9nuvZ7>;jvP -x[CW}s+JmoUeΣ_U`vv@h-4FXW0E{SBEV0)~$SL_/|E$:eȞ UABdD㱩lr[9;fúOT)my,[-o=b%̂k ^Q6꥜dݑ',B k8MtL{]Z6ef4 Ig x7CaOтA\X!5T]\ۺpui'bQ (DQ]: 5uZ2'qL5pRx^#E ̀h`)ʝBfit9v]e.*@ [^YES:BFHaz>0~;|H!Q*3͆)*xE@>uAξ4} 2̗ؗ7\ Qž·ȧ*xZT,Y)AWdpp+zw^Ic5hY"29z6Ĩǖ@;8L\ }9+\Ԓ(AEYM$B`d|n!TeE"Mka "Yg {WnUи5{w7Hdi@|=9yl,*b1cʅ¬f[xfBS`Įs\a^ qsrg\lN;(Fʼʾ[5|uʞ\tp+#b٠,DrPT)G}kN9D˭C\9xPh4/ #@97Qwr#V4;5b^ĮLxC;D8>+JJGuY@l /3dn,3cC*cX?Gb+X0g@4Zi~y^B3i^vmb8ࡲPIeIJc2 2tv#N<+fEvOFL"uIi!dIP*)>v8}sn[؉a]tQj#Ub(al9) NjhV@rb-V|ڟ';.k؇nmw/%$H`tAeuRJ{bi Hg+[ ?Ԩ>TJɌijg0xdiSbx<F8mFL'֕TG͕_m6>~#B%fz@ɈǂS-Q?>O(ޕ( HD4:|HUaH.Uf-U.l% NHGJ+˳'8e5$7()Kc^?9!Ģwc5WԸg]٦JEr.C_7˾klA꿖hm.UdxE<h1niX<2XjؤP/RznV0c;lۧeYq 5/P"Rp<_Up= bBiӾjX6q@jX=NaYVw}e},R$C['_of`..uly۾ X+&ʷ.V$2^Lw(zC T9 K`AFﴧ 8bJ09ZtU %X迸?Ao%NsEb a ޑ1o.45R-dź-+Hk+8anl4U*u ;Ea*Zq4̄5s+ /!j9Łf#+ OQ@:?B܅3^UfSzZádu qRҧ m\cf-b}kII3E4I 5&>]w:p"8@裟Xʌm)s~?;'g̨f%zQ%XB}ñ9!w{e3WU[:t3}f`c{`}=f龃QvcPkʠrCq`'E:fZޡ?u1jkPFݙ?P <d͘@3  gY"CPr\]á4{R6qi}c|]_wsm3*Ơ>)x ÏPxD%bbkzjVG5"-~~\7{ ,pu첏K#NkN"*3mp3h·vaX?PKFxkWC`x_001_macro.mchashtable.sas]{sȖU=edf!;qmgnR{@HmP,$" L9[BOCݙfbZ_>}ޒZ;ju; vuݼf𰺻vw^`o߾eռ6xEkFc6D%>^r@KojoًcwgwzsuL̴M5Vq=sdIa7nZ>snJbDU :뎭_cUV՘ez>^OiWzLw&R5`~#nsF5h4aWL,ރ~@Nf2]Uan>qC68એEd@8|f<2utl,Ǯ8gALc456\SwXavus 5ԙ7}큁$8oV0)MrAL}ݝ><݉.Ms=o?ͫnVrjfn$k9k<[W٠;`t%:3]nTk<ђI΢1@ t fHȦm5FF`t@e|BCBd̨PI4?W Tvh+Qk KOh]^OhU!H6|!vXӼiuyR2@w9I`9! g:3Wxr-l M U_JK"1aF7{i#XĄnδw|Y-1 hbqwl\Rqk'Ǎ0G0o1 q g}לLGЃ_:"`]gB ^]𢡄]pffG$oVI2)c!7E%337Q rPy`ypa1lR,!OG>EP`YEKJ`:h.N{l4OpBCMD)ph c~)frUG3$c*9Xv~{w?n3[H;S@2)`@iG~Np+ V-ݝ%"@ԶoLQ4))D 3L=:xQ$Ck,38)$&쇿PnJlФhc1>2dIDؔ+-422Y4b3:[d70C^p(h#ԥSw轱ޠk'P4E9kSO ͎2Y.ɷrٙ 8 0dϛAJWa g{ 3al^}8{};ulxvJ3@M .L@mEk q4ɛ"^:;͆Vih<ׁĈ:Z6ǃhA@VN Yc_4|zSTUrO?[d]kzw#7"ԦkkG`"j;ab@`S]؄ wgL5p(Tg2Ic,{!G(f\ۺf0P 4Q  DTPˣ,{>D:Մ f=Tq EJmHH3v)FfܐKY]}@Z=^` Бe) )@ۛ. d >e!R^W$tXeS? K/j*.RUמT&jCO3=/* *\?˨nQÅARQI\t]-}Ss6LLVΫ+M1AOCm(83-|t޼+_DPR% )vd#YU=Reuk@"-St 9/#kg ^/O.hy g pUB}h5r{ F}^Az&xѬI%!q BSWj-gM1ɇ͚a0*;3i#?֟RA ~T͓PQ&v1ϐGdd&ljk N*uEv+ٷe]=h&y#A{ 2)i%*06IKILSM.<^s\⹹h4 C>gQw &-O鎸Kbq^}<-"CgT .# T81ORǦ_@+3$ oZЈiE5UZͬpd:I¯EuuRTR,DoSШIAJh cnIypD@Nl F,1b)<L ahlyg48 (IGy!yK"Aڟ%_Sg qse'Aw7 ?{Qkf"_sMnG.G>؞W |Fy3߃|2sip3l8WaR>qj;k>'C'NWμ`C9e'IV_wN/yۀGWm8y[x1w{^pϸkS8G|'փjf/U'5Hr3sKI\N=~cdX_AZ7*OVL n}z$ gx}%{;{xlL9c=<&_.n m/2ݝˏg7d;mݝ ٖ c ^oB?n.=eSPv<;edzsYv<;eGhIyeRyInVa3a).w[)^oŪpjjFKYA[F*:!]~JHֈb%BtjVb [Y؜1H鈑WN-)}6xVtb=I|7з2 -; J7+!X Tc pς6N'b{`OӋ^犂WVsάENhәPI -K@r/N2^b6VlR50B5ldnAYlk4jf%>G/A1fSK/H==:}?6A\:g\f$07*(#ʏvlwz |zݾV^8:O4WL5м NfxrCBQob-ЍZ_rlp-XSDž><1;G Nd"T8gG%?䇟oIf޽K6ZdS,ZgXH(#il _cf-T|]XPQH0Zp/ q|yy[:MX/S0^S8lq ZAFѶ&S3$e-Dm`+.YDkrϱb f|y|oaR Fx&c D   8"iԶaLV?qbf^A%}r]}띞_Ca 5 ! Gcl/8 r\QuzQ5y&Ŋͦt[кɍQ}ȕL.eB4w?߁5݂ԝ뾃g PRewn\.>^LA=Ľh8wf^}bSBzWP@M?|U9b͙М09IPr\]á4{.gY dG7 9^2f!g="ޑԊg āT&pMV͠#o`pɭqv$]Fma?vh!"*smx9h{ھpa(LqPKFxkWv+2 V._001_macro.qziparrays.sasZs'΀rW񔸴u4ci1 aB?ܿp{Eytj[1qk^s~YvFs f)-x`bƑ>8?;f$7sِ${uD>!س"._p/ 9O,))x|IR@-?x=qfB"=!MUDKaF ܆D $Z̵bEEF$/YhRƸuB~fTGQ bmC6 (}aĂTBP{ !)GǏ;`.63GX̑U74I g]pT`-|1 PÙ|֜Bb3i'u$q!r#H_n:N2Y.-5[8A!'9ZD FhWE>E>g'Ss&/Lr^(E oCNL`ś&#ENZCTitӬTj},C+p )0:M@_G!eKfq9F:fc$[$"ј|> ccCJD՞!g9_$l\T;V&]L./Pf(n E+<ꩭ: 6=b*5'1+8 q4W8 yRprҾ .Eb^yLE "Kz \ijG\xѬ+ҍHWs0:S] jڷ4V{ { _lɦɮ5Uc':Tbh*yguUr%#%?x@rfIDT,ЊsEEFgE[E#-SzfE%mLdPaVyD&mo`&0*m(C"X:nGT8Ek4X"~rBExTԄieK5ٻQ> ~& X'%P7%xVw*UX]TEn[7;uU5$O('C*jc9JC ~R[LOBӻnDwI.b- g.4&ȲQ% l-7D;\~>.Q#!=Ipn%k`S݁ ɛz7] $&t!{ןZ_^_ߠ!m(p ie8ǖ W y|[gjx;ZJ=phylKcW[ (ُ 1M[ 5:ꐹa< ӆi'5 5p{ى|e)"H悾]_[š(>KQ$nEʬA+g,ɀp=!BZʢl9fYz[9)4+'+t9xB:ʬHD[);p[%jUSZ&6k{E#(jUΏۺ!ڨӝ S5#s>nƦɸNN8}y"AoA]]QbjO]Z@`P6I$uᇟ)N[EuDٳuY\(;>?bɝkѥAz'\GPOϬ*@kB{C0UrZOy%\p-5I~ñNЧO){4M < EYj<|$ loWzNaSYI{aUa\5mǭw%V(ci$^' ~F*aUẉNWgkk)hP˜'&D[4XufA`a8ne:vW6숂؃r_,!V6gKҀEGO^ kdN=r# M4+[4(^5(dj7ǭJ|Mh X=B i;nc .WW0kM_NÛAW ) 2ScA1);_QX@P3Q%BL1 %8Y*/67gsoR/Ґ{|+N7,P6hX~_b;3cؙPKFxkWV_001_macro.sortmacroarray.sasWko9 a(Zʰ"YD""*pMR} [v"9s) hotR!tK0D+拤!{;C Z j bq/CVzձk%V/@'TaӃqN0LA%x#+ 1] a 1@2ܱp%pO+o߼G5r㉚f!Nre0fJcPݕ꿹2 cL&SExRԏÚu䃳Q,HBVө_tjZ/]Sb-]nq*4&<YPN,3l5v G|2 b]LI_{yd%cdyDnCԴJe"Yb0L&1q>!Vx0hߴZޜ]{K\%"܅<leeyo\5N_vژF|?6I%5J2%bv)H|uQvEk=KXoZ.`沦l{?~B/f/)r/ td][%PE^[@r.x: ;l]~<}Z zCwܣtE O* Mo .E@nك4dF>TMNޓ%G6wd tB -vZi†}Nqz9{RM Qme4 ^dBl])}c&ʇמ#najVDX)J̭tXwіskeqm4+2 V s7yqW(XH(L=98̥?ҩEqCH=HTE 6> O}^ki2g 6e=14u%Erzv߬Bv ;.Ѿ68o?iN`OG4('ZS&.XM+ q[+|J,h^ov:dM7ۊKQo!ۦ.vMhJA5T6A. *[,tVUCpǻPKFxkWtK39_001_macro.ziparrays.sas[S Ö\†$\ChK4 1h"Kw<BhR>yܘ*zXQ:awN@\t&_;wB·<  ™{BY8O=4W Jv\ jlmgu忋aHa9M{cA{d ƺ?v棓 /iG A֢SGTBױ 6(4;T2a(d~6q? ruB}$c H4'@Ftdlc BȩRQF3y52@*fLw7uw&B]֏LnVyEdS֙LPD4=mH\2:=`-O(3pe;!kS..tq!Ίzl-a!3h\\Hz% $P 87ڏ3ᴏf]ұ1ؼ*"E\@\x dLsd?ԕTҮ4+UXlPgck " 'P&7(J;+JU*SU0>#ʷ)3P*(n1(|nEY_]Ed\bBq8П.I}O> DIcVxRdVXJ`M,B)BVIߕ:L8{@S h!IƑp6n݀L-Բ@[۟_WmoWOsC]qpzv$԰.jc,iprX`LAԁV>cl8g4< NPbȷ`*.jǪMRH(O2Z|C'}ÉW#!; m0v;tݒ:s!#aHJ*.:U]z!k>RUޮv!zTS߬ğ+ U ju؝(g\r#ll<ߓ$bZ$98O$ (Ͽ[Vz^2yȍ*4J"OB[:X9Znwr=V0M hb b3Pn{f# \L]rn `Kƴ! `1z5h&ttndYLxQ-uVS?R'm\*bϡ RgXF% n]sh' ]86zǁ6@M`;''п쾻8_[ 52J\Jsxv/?kkw&A-tw YOV藂"8VMujX{q6-[3V\gcP'GP}-ޚPo3<`W2%v| eW8qOL.#ݥ7Q'G4,nNf.;F:aH{Љ&}k~jz=WXi:@i wM~|%sK੶}/yp||CpʚՄ/vghp<5W-jQP&T/6sM90;/AJ`1E &l63(W[;-~o9-l#-9Ap0upf!wL Zq<ΟʻV^})|Brm{ꊁ]oHKBi:ǢĢ] }>L!}$lyM9AD{H}T0aтP3~U1ŠW; yg@.n'1lgԶY*PkdU2XCxZEȱɱ#CW_Oۦ VJs,lʚ$jm8ښ35` ߼2K/Ԕccj5 bGH-iX?Zנ ~ѐxG:3y#[6r}/:űY0 ԓre\fsL-ܤ,epǼ6+؊R,'\]cw㈻HEZBjRjX^@l®Ŭ"y7F~(Q2wfJҏoi{]R2q 1>nI N\1mRbV@JC2G7)YB @mFw s\A?POf O8+PKFxkW?:h  description.sasPKFxkW*riG  {license.sasPKFxkW)$ @packagemetadata.sasPKFxkW jiceloadpackage.sasPKFxkWJ* /H L load.sasPKFxkWʼn@  lazydata.sasPKFxkW  .unload.sasPKFxkW_k  preview.sasPKFxkW(ƾy% #help.sasPKFxkW  +_001_macro.appendarray.sasPKFxkWhiP/{ /_001_macro.appendcell.sasPKFxkWؓZqy -7_001_macro.array.sasPKFxkW%U0 T_001_macro.concatarrays.sasPKFxkWvD2 [_001_macro.deletemacarray.sasPKFxkWPuU  Ea_001_macro.do_over.sasPKFxkWx; j_001_macro.do_over2.sasPKFxkWkʘv p_001_macro.do_over3.sasPKFxkWI̦ v_001_macro.make_do_over.sasPKFxkW`l>)m }_001_macro.mcdictionary.sasPKFxkWC`x 6_001_macro.mchashtable.sasPKFxkWv+2 V. _001_macro.qziparrays.sasPKFxkWV ?_001_macro.sortmacroarray.sasPKFxkWtK39 k_001_macro.ziparrays.sasPKmacroarray-1.2.3/hist/1.2.3/000077500000000000000000000000001452773550200152775ustar00rootroot00000000000000macroarray-1.2.3/hist/1.2.3/macroarray.md000066400000000000000000002161611452773550200177700ustar00rootroot00000000000000- [The macroArray package](#macroarray) - [Content description](#content-description) * [`%appendArray()` macro](#appendarray-macro) * [`%appendCell()` macro](#appendcell-macro) * [`%array()` macro](#array-macro) * [`%concatArrays()` macro](#concatarrays-macro) * [`%deleteMacArray()` macro](#deletemacarray-macro) * [`%do_over()` macro](#do-over-macro) * [`%do_over2()` macro](#do-over2-macro) * [`%do_over3()` macro](#do-over3-macro) * [`%make_do_over()` macro](#make-do-over-macro) * [`%mcHashTable()` macro](#mchashtable-macro) * [`%mcDictionary()` macro](#mcdictionary-macro) * [`%QzipArrays()` macro](#qziparrays-macro) * [`%zipArrays()` macro](#ziparrays-macro) * [`%sortMacroArray()` macro](#sortmacroarray-macro) * [License](#license) --- # The macroArray package [ver. 1.2.3] ############################################### The **macroArray** package implements a macroarray facility: - `%array()`, - `%do_over()`, - `%make_do_over()`, - `%deletemacarray()`, - `%concatarrays()`, - `%appendcell()`, - `%mcHashTable()`, - `%zipArrays()`, - `%sortMacroArray()`, - `%mcDictionary()`, - etc. The set of macros, which emulates classic data-step-array functionality on the macro programming level, is provided. *Note:* If you are working with BIG macroarrays do not forget to verify your session setting for macro memory limits. Run: ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas proc options group = macro; run; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ to verify the following options: | option | description | |-------------:|:-----------------------------------------------------------------------------------------------| |`MEXECSIZE=` | specifies the maximum macro size that can be executed in memory. | |`MSYMTABMAX=` | specifies the maximum amount of memory available to the macro variable symbol table or tables. | |`MVARSIZE=` | specifies the maximum size for a macro variable that is stored in memory. | --- Package contains: 1. macro appendarray 2. macro appendcell 3. macro array 4. macro concatarrays 5. macro deletemacarray 6. macro do_over 7. macro do_over2 8. macro do_over3 9. macro make_do_over 10. macro mcdictionary 11. macro mchashtable 12. macro qziparrays 13. macro sortmacroarray 14. macro ziparrays Required SAS Components: *Base SAS Software* *SAS package generated by generatePackage, version 20231123* The SHA256 hash digest for package macroArray: `F*A0840B92EB9356EDB318DBE9B579A345C85ABF69E8D5F7C73C144C66F2F74FB4` --- # Content description ############################################################################################ ## >>> `%appendArray()` macro: <<< ############ The `%appendArray()` macro is a macrowrapper which allows to concatenate two macroarrays created by `%array()` macro. By default values of the second macroarray are *not* removed. Dimensions of the first macroarray are extended. The `%appendArray()` macro executes like a pure macro code. ### SYNTAX: ##################################################################### The basic syntax is the following, the `<...>` means optional parameters: ~~~~~~~~~~~~~~~~~~~~~~~sas %appendArray( first ,second ) ~~~~~~~~~~~~~~~~~~~~~~~ **Arguments description**: 1. `first` - *Required*, a name of a macroarray created by the `%array()` macro. 2. `second` - *Required*, a name of a macroarray created by the `%array()` macro. ### EXAMPLES AND USECASES: ###################################################### **EXAMPLE 1.** Append macroarrays LL and MM. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(ll[2:4] $ 12, function = quote(put(today() + 10*_I_, yymmdd10.)), macarray=Y ) %array(mm[10:13] $ 1200, function = quote(repeat("A",12*_I_)), macarray=Y ) %put *%ll(2)*%ll(3)*%ll(4)*; %appendArray(ll, mm); %put *%ll(2)*%ll(3)*%ll(4)*%ll(5)*%ll(6)**%ll(7)*%ll(8)*; %put *%mm(10)**%mm(11)*%mm(12)*%mm(13)*; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 2.** Error handling. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %appendArray(ll, ) %appendArray(, mm) %appendArray(noExistA, noExistB) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ --- ## >>> `%appendCell()` macro: <<< ############## The `%appendCell()` macro allows to append a macrovariable to a macroarray created by the `%array()` macro. Dimensions of the macroarray are extended. The `%appendCell()` macro executes like a pure macro code. ### SYNTAX: #################################################################### The basic syntax is the following, the `<...>` means optional parameters: ~~~~~~~~~~~~~~~~~~~~~~~sas %appendCell( first ,second ,hilo ) ~~~~~~~~~~~~~~~~~~~~~~~ **Arguments description**: 1. `first` - *Required*, a name of a macroarray created by the `%array()` macro. 2. `second` - *Required*, a name of a macrovariable to be append to the macroarray. 3. `hilo` - *Required*, if `H` macrovariable is appended at the end if `L` macrovariable is appended at the beginning ); ### EXAMPLES AND USECASES: #################################################### **EXAMPLE 1.** Create two macro wrappers. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %* Macro wrapper to append a macrovariable to the end of a macroarray; %macro appendHC(array,cell); %appendCell(&array.,&cell.,H) %mend appendHC; %* macro wrapper to append a macrovariable to the beginning of a macroarray; %macro appendLC(array,cell); %appendCell(&array.,&cell.,L) %mend appendLC; %* create macroarrays X and variables W,Y,Z; %array(X[2:4] $ ("AAA", "BBB", "CCC"), macarray=Y) %let W=1; %let Y=2; %let Z=3; %put *%do_over(X)*&=W*&=Y*&=Z*; %put BEFORE *%do_over(X)**&=xLBOUND*&=xHBOUND*&=xN*; %appendCell(X,Y,H) %put AFTER1 *%do_over(X)**&=xLBOUND*&=xHBOUND*&=xN*; %appendLC(X,W) %put AFTER2 *%do_over(X)**&=xLBOUND*&=xHBOUND*&=xN*; %appendHC(X,Z) %put AFTER3 *%do_over(X)**&=xLBOUND*&=xHBOUND*&=xN*; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 2.** Error handling ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %appendCell(X,Y,blahblah) %appendCell(X,,H) %appendCell(,Y,H) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 3.** Adding variable below lower bound. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(zero[0:2] $ ("AAA", "BBB", "CCC"), macarray=Y) %let belowzero=zzz; %put BEFORE *%do_over(zero)**&=zeroLBOUND*&=zeroHBOUND*&=zeroN*; %appendCell(zero,belowzero,L) %put AFTER *%do_over(zero)**&=zeroLBOUND*&=zeroHBOUND*&=zeroN*; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ --- ## >>> `%array()` macro: <<< ####################### The code of a macro was inspired by *Ted Clay's* and *David Katz's* macro `%array()`. The `%array()` macro version provided in the package is designed to facilitate the idea of macroarray concept, i.e. *a list of macrovariables with common prefix and numerical suffixes*. Usually such construction is then resolved by double ampersand syntax, e.g. `&&perfix&i` or similar one. What is new/extension to the `%array()` macro concept are: 0. The syntax is closer to the data step one. 1. It is a pure macro code (it can be executed in any place of 4GL code), this includes generating macroarrays out of datasets. 2. When a macroarrray is created it allows also to generate a new macro (named the same as the array name) and replace the double ampersand syntax with more array looking one, i.e. for array ABC user can have `%ABC(1)`, `%ABC(2)`, or `%ABC(&i)` constructions. 3. The array macro allows to use data step functions to generate array's entries. The `%array()` macro executes like a pure macro code. ### SYNTAX: ################################################################### The basic syntax is the following, the `<...>` means optional parameters: ~~~~~~~~~~~~~~~~~~~~~~~sas %array( array <,function=> <,before=> <,after=> <,vnames=N> <,macarray=N> <,ds=> <,vars=> <,q=> ) ~~~~~~~~~~~~~~~~~~~~~~~ **Arguments description**: 1. `array` - *Required*, an array name and a declaration/definition of an array,
e.g. `myArr[*] x1-x3 (4:6)`
or `myBrr[*] $ y1-y3 ("a" "b" "c")`
or `myCrr[3] $ ("d d d" "e,e,e" "f;f;f")`
or `myDrr p q r s`.
Macrovariables created by the macro are *global*. If an array name is `_` (single underscore) then attached variables list names are used, a call of the form: `%array(_[*] p1 q2 r3 s4 (-1 -2 -3 -4))` will create macrovariables: `p1`, `q2`, `r3`, and `s4` with respective values: `-1`, `-2`, `-3`, and `-4`.
Three additional *global* macrovariables: `LBOUND`, `HBOUND`, and `N` are generated with the macroarray. See examples for more use-cases. * `function=` - *Optional*, a function or an expression to be applied to all array cells, `_I_` is as array iterator, e.g. `_I_ + rand("uniform")`. * `before=` - *Optional*, a function or an expression to be added before looping through array, e.g. `call streaminit(123)`. * `after=` - *Optional*, a function or an expression to be added after looping through array, e.g. `call sortn(ABC)`. * `vnames=N` - *Optional*, default value `N`, if set to `Y`/`YES` then macroarray is built based on variables names instead values, e.g. `%array(myArr[*] x1-x3 (4:6), vnames=Y)` will use `x1`, `x2`, and `x3` as values instead `4`, `5`, and `6`. * `macarray=N` - *Optional*, default value `N`, if set to `Y`/`YES` then a macro, named with the array name, is compiled to create convenient envelope for multiple ampersands, e.g. `%array(myArr[*] x1-x3 (4:6), macarray=Y)` will create `%myArr(J)` macro which will allow to extract "data" from macroarray like: `%let x = %myArr(1);` or when used with second parameter equal `I` (insert) allow to overwrite macroarrays value: `%let %myArr(17,i) = 42;` If set to `M` then for a given array name the macro symbols table is scanned for macrovariables with prefix like the array name and numeric suffixes, then the minimum and the maximum index is determined and all not existing global macrovariables are created and a macro is generated in the same way as for the `Y` value. * `ds=` - *Optional*, use a dataset as a basis for a macroarray data, if used by default overwrites use of the `array` parameter, honors `macarray=` argument, dataset options are allowed, e.g. `sashelp.class(obs=5)` * `vars=` - *Optional*, a list of variables used to create macroarrays from a dataset, the list format can be as follows (`<...>` means optional): `variable1 <... variableN>` delimiters are hash(`#`) and pipe(`|`), currently only space is supported as separator, the meaning of `#` and `|` delimiters will be explained in the following example: if the `vars = height#h weight weight|w age|` value is provided then the following macroarrays will be created:
1) macroarray "H" with ALL(`#`) values of variable "height"
2) macroarray "WEIGHT" with ALL(no separator is equivalent to #) values of variable "weight"
3) macroarray "W" with UNIQUE(|) values of variable "weight" and
4) macroarray "AGE" with UNIQUE(|) values of variable "age". * `q=` - *Optional*, indicates (when set to `1` or '2') if the value should be surrounded by quotes. It uses `quote(cats(...))` combo under the hood. Default value is `0`. Value `1` is for apostrophes, value `2` is for double quotes. Ignored for `macarray=M`. --- ### EXAMPLES AND USECASES: #################################################### **EXAMPLE 1.** Basic use-case. Creating macroarray like in the array statement. Values not variables names are used by default. Different types of brackets are allowed. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(a[*] x1-x5 (1:5)) %array(b{5} (5*17), q=1) %* Mind the $ since it is a character array!; %array(c(3) $ 10 ("a A" "b,B" "c;C")) %array(d x1-x5 (5 4 3 2 1)) %put _user_; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 2.** Index ranges. If range starts < 0 then it is shifted to 0. In case when range is from `1` to `M` then macrovariable `N` is set to `M` In case when range is different the `N` returns number of elements in the array `(Hbound - Lbound + 1)`. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(d[-2:2] $ ("a" "b" "c" "d" "e")) %put &=dLBOUND. &=dHBOUND. &=dN.; %put &=d0. &=d1. &=d2. &=d3. &=d4.; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 3.** Functions. It is possible to assign value of a function or an expression to a cell of the array, e.g. `array[_I_] = function(...)`. You can use an iterator in a function. As in case of usual arrays it is `_I_`. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(e[-3:3] $, function = "A" ) %put &=eLBOUND. &=eHBOUND. &=eN.; %put &=e0. &=e1. &=e2. &=e3. &=e4. &=e5. &=e6.; %array(f[-3:3], function = (2**_I_) ) %put &=fLBOUND. &=fHBOUND. &=fN.; %put &=f0. &=f1. &=f2. &=f3. &=f4. &=f5. &=f6.; %array(g[0:2], function = ranuni(123) ) %put &=gLBOUND. &=gHBOUND. &=gN.; %put &=g0. &=g1. &=g2.; %* Or something more complex; %array(gg[0:11] $ 11, function = put(intnx("MONTH", '1jun2018'd, _I_, "E"), yymmn.), q=1) %put &=ggLBOUND. &=ggHBOUND. &=ggN.; %put &=gg0 &=gg1 &=gg2 ... &=gg11; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 4.** Functions cont. If there is need for set-up something *before* or *after*: ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(h[10:12] ,function = rand('Uniform') ,before = call streaminit(123) ,after = call sortn(of h[*]) ) %put &=h10. &=h11. &=h12.; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 5.** Fibonacci series. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(i[1:10] (10*0) ,function = ifn(_I_ < 2, 1, sum(i[max(_I_-2,1)], i[max(_I_-1,2)]) ) ) %put &=i1 &=i2 &=i3 &=i4 &=i5 &=i6 &=i7 &=i8 &=i9 &=i10; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 6a.** Quoted "Uppercas Letters" ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(UL[26] $, function = byte(rank("A")+_I_-1) , q=1) %put &=UL1 &=UL2 ... &=UL25 &=UL26; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 6b.** "Lowercase Letters" Extended by `macarray=Y` option and the input mode support (with `I`). ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(ll[26] $, function = byte(rank("a")+_I_-1), macarray=Y) %put *%ll(&llLBOUND.)*%ll(3)*%ll(4)*%ll(5)*...*%ll(25)*%ll(&llHBOUND.)*; %* The range handling, warning; %put *%ll(265)*; %* The input mode; %put *before:*%ll(2)*; %let %ll(2,I) = bbbbb; %put *after: *%ll(2)*; %* The range handling, error; %let %ll(265,I) = bbb; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 7.** The use of `vnames=Y` ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(R R1978-R1982) %put &=R1 &=R2 &=R3 &=R4 &=R5; %array(R R1978-R1982 (78:82)) %put &=R1 &=R2 &=R3 &=R4 &=R5; %array(R R1978-R1982 (78:82), vnames=Y) %put &=R1 &=R2 &=R3 &=R4 &=R5; %array(R R1978-R1982, vnames=Y) %put &=R1 &=R2 &=R3 &=R4 &=R5; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 8.** A "no name" array i.e. the `_[*]` array ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(_[*] x1-x5 (1:5)) %put _user_; %array(_[*] p q r s (4*42)) %put _user_; %* If no variables names than use _1 _2 ... _N; %array(_[4] (-1 -2 -3 -4)) %put &=_1 &=_2 &=_3 &=_4; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 9.** Pure macro code can be used in a data step. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas data test1; set sashelp.class; %array(ds[*] d1-d4 (4*17)) a1 = &ds1.; a2 = &ds2.; a3 = &ds3.; a4 = &ds4.; run; data test2; set sashelp.class; %array(_[*] j k l m (4*17)) a1 = &j.; a2 = &k.; a3 = &l.; a4 = &m.; run; data test3; set sashelp.class; %array(alpha[*] j k l m (101 102 103 104), macarray=Y) a1 = %alpha(1); a2 = %alpha(2); a3 = %alpha(3); a4 = %alpha(4); a5 = %alpha(555); run; data test4; set sashelp.class; %array(beta[*] j k l m (101 102 103 104), vnames=Y, macarray=Y) a1 = "%beta(1)"; a2 = "%beta(2)"; a3 = "%beta(3)"; a4 = "%beta(4)"; a5 = "%beta(555)"; run; data test5; set sashelp.class; %array(gamma[4] $ 12 ("101" "102" "103" "104"), macarray=Y) a1 = "%gamma(1)"; a2 = "%gamma(2)"; a3 = "%gamma(3)"; a4 = "%gamma(4)"; a5 = "%gamma(555)"; run; data test6; set sashelp.class; %array(ds = sashelp.cars, vars = Cylinders|, macarray=Y) a0 = %Cylinders(0); a1 = %Cylinders(1); a2 = %Cylinders(2); a3 = %Cylinders(3); a4 = %Cylinders(4); a5 = %Cylinders(555); run; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 10.** Creating an array from a dataset, basic case. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(ds = sashelp.class, vars = height weight age) %put _user_; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 11. Creating an array from a dataset, advanced. If: `vars = height#h weight weight|w age|` then create: 1. macroarray "h" with ALL(#) values of variable "height" 2. macroarray "weight" with ALL(no separator is equivalent to #) values of variable "weight" 3. macroarray "w" with UNIQUE(|) values of variable "weight" 4. macroarray "age" with UNIQUE(|) values of variable "age" Currently the only separator in VARS is a space. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(ds = sashelp.class, vars = height#h weight weight|w age|, q=1) %put _user_; %array(ds = sashelp.class, vars = height#hght weight weight|wght age|, macarray=Y, q=1) %put *%hght(&hghtLBOUND.)**%weight(2)**%wght(&wghtHBOUND.)**%age(3)*; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 12.** Creating an array from a dataset with dataset options ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(ds = sashelp.cars(obs=100 where=(Cylinders=6)), vars = Make| Type| Model, macarray=Y) %put *%make(&makeLBOUND.)*%Model(2)*%Model(3)*%Model(4)*%type(&typeHBOUND.)*; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 13.** Creating an array and macro from existing list of macrovariables ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %let myTest3 = 13; %let myTest6 = 16; %let myTest9 = 19; %array(myTest, macarray=M, q=1) %do_over(myTest, phrase = %nrstr(%put *&_I_.*%myTest(&_I_.)*;)) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ --- ## >>> `%concatArrays()` macro: <<< ########### The `%concatArrays()` macro allows to concatenate two macroarrays created by the `%array()` macro. By default values of the second macroarray are removed. Dimensions of the first macroarray are extended. The `%concatArrays()` macro executes like a pure macro code. ### SYNTAX: ##################################################################### The basic syntax is the following, the `<...>` means optional parameters: ~~~~~~~~~~~~~~~~~~~~~~~sas %concatArrays( first ,second <,removeSecond=Y> ) ~~~~~~~~~~~~~~~~~~~~~~~ **Arguments description**: 1. `first` - *Required*, a name of a macroarray created by the `%array()` macro. 2. `second` - *Required*, a name of a macroarray created by the `%array()` macro. * `removeSecond=Y` - *Optional*, default value `Y`, if set to `Y` then the second array is removed. ### EXAMPLES AND USECASES: #################################################### **EXAMPLE 1.** Concatenate macroarrays LL and MM. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(ll[2:4] $ 12, function = quote(put(today() + 10*_I_, yymmdd10.)), macarray=Y ) %array(mm[10:13] $ 12000, function = quote(repeat("A",123*_I_)), macarray=Y ) %put *%ll(2)*%ll(3)*%ll(4)*; %concatArrays(ll, mm); %put *%ll(2)*%ll(3)*%ll(4)*%ll(5)*%ll(6)**%ll(7)*%ll(8)*; %put *%mm(10)**%mm(11)*%mm(12)*%mm(13)*; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 2.** Error handling. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %concatArrays(ll, ) %concatArrays(, mm) %concatArrays(noExistA, noExistB) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ --- ## >>> `%deleteMacArray()` macro: <<< ####### The `%deleteMacArray()` macro allows to delete macroarrays created by the `%array()` macro. The `%deleteMacArray()` macro executes like a pure macro code. ### SYNTAX: ##################################################################### The basic syntax is the following, the `<...>` means optional parameters: ~~~~~~~~~~~~~~~~~~~~~~~sas %deleteMacArray( arrs <,macarray=N> ) ~~~~~~~~~~~~~~~~~~~~~~~ **Arguments description**: 1. `arrs` - *Required*, a space separated list of manes of macroarray created by the `%array()` macro. * `macarray=N` - *Optional*, indicator should a macro associated with macroarray to be deleted? If `Y` or `YES` then the associated macro is deleted. ## >>> `%do_over()` macro: <<< ###################### The code of the macro was inspired by *Ted Clay's* and *David Katz's* macro `%do_over()`. The `%DO_OVER()` macro allows to iterate over macroarray created with the `macarray=Y` parameter of the `%ARRAY()` macro. The `%do_over()` macro executes like a pure macro code. ### SYNTAX: ##################################################################### The basic syntax is the following, the `<...>` means optional parameters: ~~~~~~~~~~~~~~~~~~~~~~~sas %do_over( array <,phrase=%nrstr(%&array(&_I_.))> <,between=%str( )> <,which = > ) ~~~~~~~~~~~~~~~~~~~~~~~ **Arguments description**: 1. `array` - *Required*, indicates a macroarray which metadata (Lbound, Hbouns) are to be used to loop in the `%do_over()` * `phrase=` - *Optional*, Default value `%nrstr(%&array(&_I_.))`, a statement to be called in each iteration of the internal do_over's loop. Loop iterator is `_I_`, if you want to use `_I_` or array name [e.g. `%myArr(&_I_.)`] *enclose it* in the `%NRSTR()` macro quoting function. * `between=` - *Optional*, default value `%str( )` (space), a statement to be called in between each iteration of the internal do_over loop. If macroquoted (e.g. `%str( + )`) then the `%unquote()` function is automatically applied. * `which=` - *Optional*, a _SPACE_ separated list of indexes which should be used to iterate over selected macroarray. Possible special characters are `H` and `L` which means *high* and *low* bound of an array, list could be set with colons(`:`) in form of `start:end:by` (*no spaces between!*), if `by` is omitted the default is `1`. If possible use `1:5` rather `1 2 3 4 5` since the firs works faster. ### EXAMPLES AND USECASES: #################################################### **EXAMPLE 1.** Simple looping. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(beta[*] j k l m (101 102 103 104), vnames=Y, macarray=Y) %put #%do_over(beta)#; %put #%do_over(beta, phrase=%nrstr("%beta(&_I_.)"), between=%str(,))#; data test1; %array(beta[*] j k l m (101 102 103 104), vnames=Y, macarray=Y) %do_over(beta, phrase=%nrstr(a&_I_. = "%beta(&_I_.)";)) put _all_; run; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 2.** Multiple arrays looping. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(alpha[*] j k l m n, vnames=Y, macarray=Y) %array( beta[5] $ , function = "a", macarray=Y) %array(gamma[4] (101 102 103 104), macarray=Y) data test2; call streaminit(123); %do_over(beta , phrase = %nrstr(%beta(&_I_.) = %gamma(&_I_.) * rand('Uniform'); output;) , between = put _all_; ); put _all_; run; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 3.** Multiple arrays looping, cont. Create multiple datasets. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %do_over(beta , phrase = %nrstr( data %alpha(&_I_.)2; call streaminit(123); %beta(&_I_.)x = %gamma(&_I_.) * rand('Uniform'); output; run; ) ) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 4.** Multiple arrays looping, cont. Create multiple datasets using a macro. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %macro doit(ds, var=a, val=1); data &ds.; call streaminit(123); &var. = &val. * rand('Uniform'); output; run; %mend doit; %do_over(beta , phrase = %nrstr( %DOIT(%alpha(&_I_.)1, var = %beta(&_I_.), val = %gamma(&_I_.)) ) ) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 5.** `%do_over()` inside `%array()` ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(test[*] x1-x12 (1:12), macarray=Y) %put **%test(1)**%test(12)**; %put #%do_over(test)#; %array(abc[*] x1-x12 (%do_over(test,phrase=%nrstr(%eval(100-%test(&_I_.))))), macarray=Y) %put **%abc(1)**%abc(12)**; %put #%do_over(abc)#; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 6.** Looping over array with *macroquoted* separator. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(alpha[11] (5:15), macarray=Y) %let x = %do_over(alpha , phrase = %NRSTR(%alpha(&_I_.)) , between= %str( + ) ); %put &=x.; %put %sysevalf(&x.); ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 7.** Working with the `WHICH=` optional parameter ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(test[*] x01-x12, vnames= Y, macarray=Y) %put #%do_over(test)#; %put #%do_over(test, which= 1 3 5)#; %put #%do_over(test, which= 1:5)#; %put #%do_over(test, which= 1:5:2 7 8)#; %put #%do_over(test, which= L:H l:h)#; %put #%do_over(test, which= L:3 10:h)#; %put #%do_over(test, which= L:H h:l:-1 13 14)#; %put #%do_over(test, which= %eval(1+1):%eval(5+1))#; %put #%do_over(test, which= L:H h:l:-1 13 14, between=%str(,))#; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ --- ## >>> `%do_over2()` macro: <<< #################### The code of the macro was inspired by *Ted Clay's* and *David Katz's* macro `%do_over()`. The `%DO_OVER2()` macro allows to iterate over *two* macroarray created with the `macarray=Y` parameter of the `%ARRAY()` macro. The `%do_over2()` macro executes like a pure macro code. ### SYNTAX: ##################################################################### The basic syntax is the following, the `<...>` means optional parameters: ~~~~~~~~~~~~~~~~~~~~~~~sas %do_over2( arrayI ,arrayJ <,phrase=%nrstr(%&arrayI(&_I_.) %&arrayJ(&_J_.))> <,between=%str( )> ) ~~~~~~~~~~~~~~~~~~~~~~~ **Arguments description**: 1. `arrayI` - Required, indicates the first macroarray which metadata (Lbound, Hbouns) are to be used in the outer loop in the `%do_over2()` 2. `arrayJ` - Required, indicates the second macroarray which metadata (Lbound, Hbouns) are to be used in the inner loop in the `%do_over2()` * `phrase=` - *Optional*, default value `%nrstr(%&arrayI(&_I_.) %&arrayJ(&_J_.))`, a statement to be called in each iteration of the *inner* loop. The outer loop iterator is `_I_`, the inner loop iterator is `_J_`, if you want to use `_I_`, `_J_`, or arrays names [e.g. `%myArr(&_I_.)`] *enclose them* in the `%NRSTR()` macro quoting function. * `between=` - *Optional*, default value `%str( )` (space), a statement to be called in between each iteration of the internal do_over2 loop. If macroquoted (e.g. `%str( + )`) then the `%unquote()` function is automatically applied. ### EXAMPLES AND USECASES: #################################################### **EXAMPLE 1.** Looping over two arrays. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(alpha[*] j k l m n, vnames=Y, macarray=Y) %array( beta[4] (101 102 103 104), macarray=Y) %put *%do_over2(alpha, beta , phrase = %NRSTR((%alpha(&_I_.), %beta(&_J_))) )*; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 2.** Looping over two arrays with a separator. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(alpha[11] (5:15), macarray=Y) %array( beta[ 4] (101 102 103 104), macarray=Y) %let x = %do_over2(alpha, beta , phrase = %NRSTR((%alpha(&_I_.) * %beta(&_J_))) , between= + ); %put &=x.; %put %sysevalf(&x.); ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 3.** Looping over two arrays with *macroquoted* separator. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(alpha[11] (5:15), macarray=Y) %array( beta[ 4] (101 102 103 104), macarray=Y) %let x = %do_over2(alpha, beta , phrase = %NRSTR((%alpha(&_I_.) * %beta(&_J_))) , between= %str( + ) ); %put &=x.; %put %sysevalf(&x.); ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ --- ## >>> `%do_over3()` macro: <<< #################### The code of the macro was inspired by *Ted Clay's* and *David Katz's* macro `%do_over()`. The `%DO_OVER3()` macro allows to iterate over *three* macroarray created with the `macarray=Y` parameter of the `%ARRAY()` macro. The `%do_over3()` macro executes like a pure macro code. ### SYNTAX: ##################################################################### The basic syntax is the following, the `<...>` means optional parameters: ~~~~~~~~~~~~~~~~~~~~~~~sas %do_over2( arrayI ,arrayJ ,arrayK <,phrase=%nrstr(%&arrayI(&_I_.) %&arrayJ(&_J_.) %&arrayK(&_K_.))> <,between=%str( )> ) ~~~~~~~~~~~~~~~~~~~~~~~ **Arguments description**: 1. `arrayI` - *Required*, indicates the first macroarray which metadata (Lbound, Hbouns) are to be used in the outer loop in the `%do_over3()` 2. `arrayJ` - *Required*, indicates the second macroarray which metadata (Lbound, Hbouns) are to be used in the inner loop in the `%do_over3()` 3. `arrayK` - *Required*, indicates the third macroarray which metadata (Lbound, Hbouns) are to be used in the inner loop in the `%do_over3()` * `phrase=` - *Optional*, default value `%nrstr(%&arrayI(&_I_.) %&arrayJ(&_J_.) %&arrayK(&_K_.))`, a statement to be called in each iteration of the *inner* loop. The *outer* loop iterator is `_I_`, the *middle* loop iterator is `_J_`, the *inner* loop iterator is `_K_`, if you want to use `_I_`, `_J_`, `_K_`, or arrays names [e.g. `%myArr(&_I_.)`] *enclose them* in the `%NRSTR()` macro quoting function. * `between=` - *Optional*, default value `%str( )` (space), a statement to be called in between each iteration of the internal do_over2 loop. If macroquoted (e.g. `%str( + )`) then the `%unquote()` function is automatically applied. ### EXAMPLES AND USECASES: #################################################### **EXAMPLE 1.** Looping over 3 macroarrays. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(a1_[2] (0 1), macarray=Y) %array(a2_[2] (2 3), macarray=Y) %array(a3_[2] (4 5), macarray=Y) %do_over3(a1_, a2_, a3_ , phrase = %NRSTR(%put (%a1_(&_I_.), %a2_(&_J_), %a3_(&_K_));) ) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 2.** Looping 3 times over a macroarray. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(a[0:2] (0 1 2), macarray=Y) %do_over3(a, a, a , phrase = %NRSTR(%put (%a(&_I_.), %a(&_J_), %a(&_K_));) ) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ --- ## >>> `%make_do_over()` macro: <<< ########### The code of the macro was inspired by *Ted Clay's* and *David Katz's* macro `%do_over()`. The `%make_do_over()` macro allows to generate the `%DO_OVER()` macros. It works *only* for *n>3*! The `%make_do_over()` macro does *not* executes like a pure macro code. ### SYNTAX: ##################################################################### The basic syntax is the following, the `<...>` means optional parameters: ~~~~~~~~~~~~~~~~~~~~~~~sas %make_do_over( size ) ~~~~~~~~~~~~~~~~~~~~~~~ **Arguments description**: 1. `size` - *Required*, indicates the number of dimensions (i.e. inner loops) of the `%DO_OVER()` macro. ### EXAMPLES AND USECASES: #################################################### **EXAMPLE 1.** Code of created "4-loop" `%DO_OVER4()` macro ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %macro do_over4( arrayI1, arrayI2, arrayI3, arrayI4, phrase=%nrstr( %&arrayI1(&_I1_.) %&arrayI2(&_I2_.) %&arrayI3(&_I3_.) %&arrayI3(&_I4_.) ), between=%str( ) ); %local _I1_ _I2_ _I3_ _I4_; %do _I1_ = &&&arrayI1.LBOUND %to &&&arrayI1.HBOUND; %do _I2_ = &&&arrayI2.LBOUND %to &&&arrayI2.HBOUND; %do _I3_ = &&&arrayI3.LBOUND %to &&&arrayI3.HBOUND; %do _I4_ = &&&arrayI4.LBOUND %to &&&arrayI4.HBOUND; %if not ( &_I1_. = &&&arrayI1.LBOUND AND &_I2_. = &&&arrayI2.LBOUND AND &_I3_. = &&&arrayI3.LBOUND AND &_I4_. = &&&arrayI4.LBOUND ) %then %do;%unquote(&between.)%end;%unquote(%unquote(&phrase.)) %end; %end; %end; %end; %mend do_over4; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 2.** Create a "4-loop" `%DO_OVER4()` macro ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %make_do_over(4); %array(a1_[2] (0 1), macarray=Y) %do_over4(a1_, a1_, a1_, a1_ , phrase = %NRSTR(%put (%a1_(&_I1_.), %a1_(&_I2_), %a1_(&_I3_), %a1_(&_I4_));) ) %put *%do_over4(a1_, a1_, a1_, a1_ , between = * )*; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 3.** Create a "5-loop" `%DO_OVER5()` macro ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %make_do_over(5); %array(a1_[2] (0 1), macarray=Y) %do_over5(a1_, a1_, a1_, a1_, a1_ , phrase = %NRSTR(%put (%a1_(&_I1_.), %a1_(&_I2_), %a1_(&_I3_), %a1_(&_I4_), %a1_(&_I5_));) ) %put *%do_over5(a1_, a1_, a1_, a1_, a1_ , between = * )* ; options nomprint; data test2; %do_over5(a1_, a1_, a1_, a1_, a1_ , phrase = %NRSTR(x1 = %a1_(&_I1_.); x2 = %a1_(&_I2_); x3 = %a1_(&_I3_); x4 = %a1_(&_I4_); x5 = %a1_(&_I5_);) , between = output; ) output; run; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 4.** Create all from 6 to 10 "do_overs" ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(loop[6:10] (6:10), macarray=Y) %do_over(loop , phrase = %nrstr( %make_do_over(%loop(&_I_.)) ) ); ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ --- ## >>> `%mcHashTable()` macro: <<< ####################### The `%mcHashTable()` macro provided in the package is designed to facilitate the idea of a "macro hash table" concept, i.e. *a list of macrovariables with common prefix and suffixes generated as a hash digest* which allows to use values other than integers as indexes. The `%mcHashTable()` macro allows to generate other macros which behaves like hash tables or dictionaries. See examples below. The `%mcHashTable()` macro executes like a pure macro code. ### SYNTAX: ################################################################### The basic syntax is the following, the `<...>` means optional parameters: ~~~~~~~~~~~~~~~~~~~~~~~sas %mcHashTable( H <,METHOD> <,HASH=> ) ~~~~~~~~~~~~~~~~~~~~~~~ **Arguments description**: 1. `H` - *Required*, a hash table macro name and a declaration/definition, e.g. `mcHashTable(HT)`. It names a macro which is generated by the `%mcHashTable()` macro. Provided name cannot be empty or an underscore (`_`). No longer than *16* characters. 2. `METHOD` - *Optional*, if empty (or DECLARE or DCL) then the code of a macro hash table is compiled. If `DELETE` then the macro hash table named by `H` and all macrovariables named like "`&H._`" are deleted. * `HASH=` - *Optional*, indicates which hashing algorithms should be used, available values are `CRC32` or `MD5`, the `CRC32` is the default. --- ### THE CREATED MACRO `%&H.()`: #################################################### The created macro imitates behaviour of a hash table or a dictionary. It is *not* dedicated for "long-ish" lists (above 1000 elements) since the performance may be poor. The basic syntax is the following, the `<...>` means optional parameters: ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %&H.( METHOD <,KEY=> <,DATA=> ) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **Arguments description**: 1. `METHOD` - *Required*, indicate what behaviour should be executed. Allowed values are: - `ADD`, adds key and data portion to the macro hash table, *multiple data portions* are available for one key. - `FIND`, tests if given key exists in the macro hash table and, if yes, returns data value associated with the key. For multiple data portions see the `data=` parameter. - `DP` (data portion) or `CHECK`, returns the number of data portions for a given key. - `CLEAR` removes all data and keys values. - `KEYIDX`, allows to get data by the key index rather than value. - `KEYVAL`, returns key value for a given key index. - `CHECKIDX`, returns the number of data portions for a given key index. * `KEY=` - *Optional*, provides key value for `ADD`, `FIND`,`DP`, `CHECK` `CHECKIDX`, `KEYIDX`, and `KEYVAL` methods. Leading and trimming spaces are removed from the value. The `hashing(CRC32,...)` function or the `MD5(...)` function is used to generate the hash. * `DATA=` - *Optional*, provides data value for the `ADD` method and for the`FIND` method provides data portion number to be extracted. Default value is `1` (used by the `FIND` method). When macro is executed and when data are added the following types of *global* macrovariables are created: - `&H._########`, - `&H._########_Xk`, - `&H._########_Xi`, - `&H._########_Xi_j`, - `&H._KEYNUM`, - and `&H._KEY_i`. The `#` represents value generated by the `hashing(CRC32,...)` function or the `MD5(...)` function for the given key. The first type keeps information about possible collision for the key. The second type keeps information about value of a given key, the `X` keeps the track of other colliding keys. The third type keeps information about number of data portions for given key, the `X` keeps the track of other colliding keys. The fourth type keeps the data portion, the `j` indicates data portion number. The fifth type keeps the number of unique values of the key. The sixth type keeps the list of unique values of the key, the `i` indicates key number. See examples below to see use cases. --- ### EXAMPLES AND USECASES: #################################################### **EXAMPLE 1.** Basic use-case. Creating macro hash table, macro `HT` is generated. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %mcHashTable(HT) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Add elements to the `HT`. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %HT(ADD,key=x,data=17) %HT(ADD,key=y,data=42) %HT(ADD,key=z,data=303) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Add some duplicates for the key x. See macrovariables created. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %HT(ADD,key=x,data=18) %HT(ADD,key=x,data=19) %put _user_; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Check the number od data portions in macrohash for the key `x` and non existing key `t`. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %put ##%HT(DP,key=x)##; %put ##%HT(DP,key=t)##; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Check the number od data portions in macrohash for the key index 1 and 4. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %put ##%HT(CHECKIDX,key=1)##; %put ##%HT(CHECKIDX,key=4)##; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Prints first data values for various keys. Key `t` does not exist in the macrohash. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %put #%HT(FIND,key=x)#; %put #%HT(FIND,key=y)#; %put #%HT(FIND,key=z)#; %put #%HT(FIND,key=t)#; %put #%HT(FIND,key=x,data=2)#; %put #%HT(FIND,key=x,data=3)#; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Print first and subsequent data values for a given KeyIDX. Index `4` does not exist. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %put #%HT(KEYIDX,key=1)#; %put #%HT(KEYIDX,key=2)#; %put #%HT(KEYIDX,key=3)#; %put #%HT(KEYIDX,key=4)#; %put #%HT(KEYIDX,key=1,data=2)#; %put #%HT(KEYIDX,key=1,data=3)#; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Print the key values for a given KeyIDX. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %put #%HT(KEYVAL,key=1)#; %put #%HT(KEYVAL,key=2)#; %put #%HT(KEYVAL,key=3)#; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Clear and delete macro hash table `HT`. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %HT(CLEAR) %mcHashTable(HT,DELETE) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 2.** Combine `CHECK` and `FIND` methods with macros `%array()` and `%do_over()` ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %mcHashTable(H) %H(ADD,key=x,data=17) %H(ADD,key=x,data=18) %H(ADD,key=x,data=19) %array(A[%H(CHECK,key=x)]); %put %do_over(A, phrase=%nrstr( %H(FIND,key=x,data=&_i_) ), between = %str(,)); %mcHashTable(H,delete) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 3.** Populate macro hash table from a dataset. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %mcHashTable(CLASS) %let t = %sysfunc(datetime()); data _null_; set sashelp.class; call execute('%CLASS(ADD,key=' !! name !! ',data=' !! age !! ')'); call execute('%CLASS(ADD,key=' !! name !! ',data=' !! weight !! ')'); call execute('%CLASS(ADD,key=' !! name !! ',data=' !! height !! ')'); run; %put t = %sysevalf(%sysfunc(datetime()) - &t.); %put _user_; %CLASS(CLEAR) %mcHashTable(CARS) %let t = %sysfunc(datetime()); data _null_; set sashelp.cars; call execute('%CARS(ADD,key=' !! catx("|",make,model) !! ',data=' !! MPG_CITY !! ')'); run; %put t = %sysevalf(%sysfunc(datetime()) - &t.); %* %put _user_; %CARS(CLEAR) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 4.** Data portion may require quoting and un-quoting.. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %mcHashTable(CODE) %CODE(CLEAR) %CODE(ADD,key=data, data=%str(data test; x = 42; run;)) %CODE(ADD,key=proc, data=%str(proc print; run;)) %CODE(ADD,key=macro,data=%nrstr(%put *****;)) %CODE(FIND,key=data) %CODE(FIND,key=proc) %unquote(%CODE(FIND,key=macro)) %mcHashTable(CODE,DELETE) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 5.** Longer lists. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %let size = 1000; %mcHashTable(AAA) %mcHashTable(BBB) %mcHashTable(CCC) %mcHashTable(DDD) %let t = %sysfunc(datetime()); data _null_; do i = 1 to &size.; call execute(cats('%AAA(ADD,key=A', i, ',data=', i, ')')); end; run; %put t = %sysevalf(%sysfunc(datetime()) - &t.); %put &=AAA_KEYSNUM; %AAA(CLEAR) %let t = %sysfunc(datetime()); data _null_; do i = 1 to &size.; call execute(cats('%BBB(ADD,key=B', i, ',data=', i, ')')); call execute(cats('%BBB(ADD,key=B', i, ',data=', i+1, ')')); end; run; %put t = %sysevalf(%sysfunc(datetime()) - &t.); %put &=BBB_KEYSNUM; %BBB(CLEAR) %let t = %sysfunc(datetime()); data _null_; t= datetime(); do i = 1 to &size.; call execute(cats('%CCC(ADD,key=C', i, ',data=', i, ')')); end; t = datetime() - t; put t=; t= datetime(); do i = 1 to &size.; call execute(cats('%CCC(ADD,key=C', i, ',data=', i+1, ')')); end; t = datetime() - t; put t=; run; %put t = %sysevalf(%sysfunc(datetime()) - &t.); %let t = %sysfunc(datetime()); data test; do i = 1 to &size.; x = resolve(cats('%CCC(FIND,key=C', i, ',data=1)')); y = resolve(cats('%CCC(FIND,key=C', i, ',data=2)')); output; end; run; %put t = %sysevalf(%sysfunc(datetime()) - &t.); %put &=CCC_KEYSNUM; %CCC(CLEAR) %let t = %sysfunc(datetime()); data _null_; do i = 1 to &size.; call execute(cats('%DDD(ADD,key=D,data=', i, ')')); end; run; %put t = %sysevalf(%sysfunc(datetime()) - &t.); %put &=DDD_KEYSNUM; %put %DDD(CHECK,key=D); %DDD(CLEAR) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 6.** Forbidden names. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %mcHashTable() %mcHashTable(_) %mcHashTable(ABCDEFGHIJKLMNOPQ) %* bad; %mcHashTable(ABCDEFGHIJKLMNOP) %* good; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 7.** Hashing algorithms. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %mcHashTable(H1,DCL,HASH=MD5) %mcHashTable(H2,DECLARE,HASH=CRC32) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ --- ## >>> `%mcDictionary()` macro: <<< ####################### The `%mcDictionary()` macro provided in the package is designed to facilitate the idea of a "macro dictionary" concept, i.e. *a list of macrovariables with common prefix and suffixes generated as a hash digest* which allows to use values other than integers as indexes. The `%mcDictionary()` macro allows to generate other macros which behaves like a dictionary. See examples below. The `%mcDictionary()` macro executes like a pure macro code. ### SYNTAX: ################################################################### The basic syntax is the following, the `<...>` means optional parameters: ~~~~~~~~~~~~~~~~~~~~~~~sas %mcDictionary( H <,METHOD> <,DS=> <,K=Key> <,D=Data> ) ~~~~~~~~~~~~~~~~~~~~~~~ **Arguments description**: 1. `H` - *Required*, a dictionary macro name and a declaration/definition, e.g. `mcDictionary(HT)`. It names a macro which is generated by the `%mcDictionary()` macro. Provided name cannot be empty or an underscore (`_`). No longer than *16* characters. 2. `METHOD` - *Optional*, if empty (or DECLARE or DCL) then the code of a macro dictionary is compiled. If `DELETE` then the macro dictionary named by `H` and all macrovariables named like "`&H._`" are deleted. * `DS=` - *Optional*, if NOT empty then the `&DS.` dataset is used to populate dictionary with keys from variable `&K.` and data from variable `&D.` Works only during declaration. * `K=` - *Optional*, if the `&DS.` is NOT empty then `&K.` holds a name of a variable which keeps or an expression which generates keys values. Default is `Key`. * `D=` - *Optional*, if the `&DS.` is NOT empty then `&D.` holds a name of a variable which keeps or an expression which generates data values. Default is `Data`. --- ### THE CREATED MACRO `%&H.()`: #################################################### The created macro imitates behaviour of a dictionary. The basic syntax is the following, the `<...>` means optional parameters: ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %&H.( METHOD <,KEY=> <,DATA=> ) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **Arguments description**: 1. `METHOD` - *Required*, indicate what behaviour should be executed. Allowed values are: - `ADD`, adds key and data portion to the macro dictionary, *multiple data portions* are NOT available for one key. - `FIND`, tests if given key exists in the macro dictionary and, if yes, returns data value associated with the key. For multiple data portions see the `data=` parameter. - `CHECK`, returns indicator if the key exists in dictionary. - `DEL`, removes key and data portion from the macro dictionary. - `LIST`, prints out a dictionary to the log. - `CLEAR` removes all data and keys values. * `KEY=` - *Optional*, provides key value for `ADD`, `FIND`, `CHECK` and `DEL` methods. Leading and trimming spaces are removed from the value. The `MD5(...)` function is used to generate the hash. Default value is `_`. * `DATA=` - *Optional*, provides data value for the `ADD` method. Default value is blank. When macro is executed and when data are added the following types of *global* macrovariables are created: - `&H._########_K`, - `&H._########_V`, - `&H._KEYSNUM`. The `#` represents value generated by the `MD5(...)` function for the given key. The first type keeps information about the key. The second type keeps information about the value of a given key The third type keeps the number of unique values of the key. See examples below to see use cases. --- ### EXAMPLES AND USECASES: #################################################### **EXAMPLE 1.** Basic use-case. Creating macro dictionary, macro `Dict` is generated. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %mcDictionary(Dict) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Add elements to the `Dict`. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %Dict(ADD,key=x,data=17) %Dict(ADD,key=y y,data=42) %Dict(ADD,key=z z z,data=303) %put _user_; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Add some duplicates for the key x. See macrovariables created. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %Dict(ADD,key=x,data=18) %put _user_; %Dict(ADD,key=x,data=19) %put _user_; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Check for the key `x` and non existing key `t`. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %put ##%Dict(CHECK,key=x)##; %put ##%Dict(CHECK,key=t)##; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Prints data values for various keys. Key `t` does not exist in the macrodictionary. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %put #%Dict(FIND,key=x)#; %put #%Dict(FIND,key=y y)#; %put #%Dict(FIND,key=z z z)#; %put #%Dict(FIND,key=t)#; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ List dictionary content to the log. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %Dict(LIST); ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Delete keys. Key `t` does not exist in the macrodictionary. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %put #%Dict(DEL,key=z z z)#; %put _user_; %put #%Dict(DEL,key=t)#; %put _user_; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Clear and delete macro dictionary `Dict`. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %Dict(CLEAR) %put _user_; %mcDictionary(Dict,DELETE) %put _user_; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 2A.** Populate macro dictionary from a dataset "by hand". ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %mcDictionary(CLASS) %let t = %sysfunc(datetime()); data _null_; set sashelp.class; call execute('%CLASS(ADD,key=' !! name !! ',data=' !! age !! ')'); run; %put t = %sysevalf(%sysfunc(datetime()) - &t.); %put &=Class_KEYSNUM.; %put _user_; %CLASS(CLEAR) %mcDictionary(CARS) %let t = %sysfunc(datetime()); data _null_; set sashelp.cars(obs=42); call execute('%CARS(ADD,key=' !! catx("|",make,model,type) !! ',data=' !! put(MPG_CITY*10,dollar10.2) !! ')'); run; %put t = %sysevalf(%sysfunc(datetime()) - &t.); %put &=CARS_KEYSNUM.; %CARS(LIST); %put %CARS(F,key=Audi|TT 3.2 coupe 2dr (convertible)|Sports); %CARS(CLEAR) %put &=CARS_KEYSNUM.; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 2B.** Populate macro dictionary from a dataset "automatically". ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %let t = %sysfunc(datetime()); %mcDictionary(CLASS,DCL,DS=sashelp.class,k=name,d=_N_) %put t = %sysevalf(%sysfunc(datetime()) - &t.); %put &=CLASS_KEYSNUM.; %put _user_; %CLASS(CLEAR) %let t = %sysfunc(datetime()); %mcDictionary(CARS,DCL,DS=sashelp.cars(obs=42),k=catx("|",make,model,type),d=put(MPG_CITY*10,dollar10.2)) %put t = %sysevalf(%sysfunc(datetime()) - &t.); %put &=CARS_KEYSNUM.; %CARS(LIST); %put %CARS(F,key=Audi|TT 3.2 coupe 2dr (convertible)|Sports); %CARS(CLEAR) %put &=CARS_KEYSNUM.; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 3.** Data portion may require quoting and un-quoting. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %mcDictionary(CODE) %CODE(CLEAR) %CODE(ADD,key=data, data=%str(data test; x = 42; run;)) %CODE(ADD,key=proc, data=%str(proc print; run;)) %CODE(ADD,key=macro,data=%nrstr(%put *1*2*3*4*;)) %CODE(FIND,key=data) %CODE(FIND,key=proc) %unquote(%CODE(FIND,key=macro)) %CODE(LIST); %mcDictionary(CODE,DELETE) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 4.** Longer lists. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %let size = 1000; %mcDictionary(AAA) %let t = %sysfunc(datetime()); data _null_; do i = 1 to &size.; call execute(cats('%AAA(ADD,key=A', i, ',data=', i, ')')); end; run; %put t = %sysevalf(%sysfunc(datetime()) - &t.); %put %AAA(F,key=A555) %AAA(CHECK,key=A555); %put &=AAA_KEYSNUM; %AAA(CLEAR) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 5.** Forbidden names. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %mcDictionary() %mcDictionary(_) %mcDictionary(ABCDEFGHIJKLMNOPQ) %* bad; %mcDictionary(ABCDEFGHIJKLMNOP) %* good; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 6.** More fun with datasets. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas data work.metadata; input key :$16. data :$128.; cards; ID ABC-123-XYZ path /path/to/study/data cutoffDT 2023-01-01 startDT 2020-01-01 endDT 2024-12-31 MedDRA v26.0 ; run; proc print; run; %mcDictionary(Study,dcl,DS=work.metadata) %put _user_; %put *%Study(F,key=ID)**%Study(C,key=ID)*; title1 "Study %Study(F,key=ID) is located at %Study(F,key=path)"; title2 "it starts %Study(F,key=startDT) and ends %Study(F,key=endDT)"; footnote "MedDRA version: %Study(F,key=MedDRA)"; proc print data=sashelp.class(obs=7); run; title; footnote; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ --- ## >>> `%QzipArrays()` macro: <<< ####################### The zipArrays() and QzipArrays() macros allow to use a function on elements of pair of macroarrays. For two macroarrays the corresponding elements are taken and the macro applies a function, provided by user, to calculate result of the function on taken elements. When one of the arrays is shorter then elements are, by default, "reused" starting from the beginning. But this behaviour can be altered. See examples for the details. By default newly created macroarray name is concatenation of first 13 characters of names of arrays used to create the new one, e.g. if arrays names are `abc` and `def` then the result name is `abcdef`, if arrays names are `abcd1234567890` and `efgh1234567890` then the result name is `abcd123456789efgh123456789` The `zipArrays()` returns unquoted value [by `%unquote()`]. The `QzipArrays()` returns quoted value [by `%superq()`]. See examples below for the details. The `%QzipArrays()` macro executes like a pure macro code. ### SYNTAX: ################################################################### The basic syntax is the following, the `<...>` means optional parameters: ~~~~~~~~~~~~~~~~~~~~~~~sas %QzipArrays( first ,second <,function=> <,operator=> <,argBf=> <,argMd=> <,argAf=> <,format=> <,result=> <,macarray=> <,reuse=> ) ~~~~~~~~~~~~~~~~~~~~~~~ **Arguments description**: 1. `first` - *Required*, a space separated list of texts. 2. `second` - *Required*, a space separated list of texts. * `function = cat` - *Optional*, default value is `cat`, a function which will be applied to corresponding pairs of elements of the first and the second list. * `operator =` - *Optional*, default value is empty, arithmetic infix operator used with elements the first and the second list. The first list is used on the left side of the operator the second list is used on the right side of the operator. * `argBf =` - *Optional*, default value is empty, arguments of the function inserted *before* elements the first list. If multiple should be comma separated. * `argMd =` - *Optional*, default value is empty, arguments of the function inserted *between* elements the first list and the second list. If multiple should be comma separated. * `argAf =` - *Optional*, default value is empty, arguments of the function inserted *after* elements the second list. If multiple should be comma separated. * `format=` - *Optional*, default value is empty, indicates a format which should be used to format the result, does not work when the `operator=` is used. * `result=` - *Optional*, default value is empty, indicates a name of newly created macroarray, by default created macroarray name is concatenation of first 13 characters of names of arrays used to create the new one. * `macarray=N` - *Optional*, default value is `N`, if set to `Y`/`YES` then a macro, named with the array name, is compiled to create convenient envelope for multiple ampersands, see the `%array()` macro for details. * `reuse=Y` - *Optional*, default value is `Y`, when one of the arrays is shorter then elements are *reused* starting from the beginning. If `CP` then function is executed on the *Cartesian product* of arrays elements. Any other value will cut the process with the end of the shorter array. See examples for the details. ### EXAMPLES AND USECASES: #################################################### See examples in `%zipArrays()` help for the details. --- ## >>> `%zipArrays()` macro: <<< ####################### The zipArrays() and QzipArrays() macros allow to use a function on elements of pair of macroarrays. For two macroarrays the corresponding elements are taken and the macro applies a function, provided by user, to calculate result of the function on taken elements. When one of the arrays is shorter then elements are, by default, "reused" starting from the beginning. But this behaviour can be altered. See examples for the details. By default newly created macroarray name is concatenation of first 13 characters of names of arrays used to create the new one, e.g. if arrays names are `abc` and `def` then the result name is `abcdef`, if arrays names are `abcd1234567890` and `efgh1234567890` then the result name is `abcd123456789efgh123456789` The `zipArrays()` returns unquoted value [by `%unquote()`]. The `QzipArrays()` returns quoted value [by `%superq()`]. See examples below for the details. The `%zipArrays()` macro executes like a pure macro code. ### SYNTAX: ################################################################### The basic syntax is the following, the `<...>` means optional parameters: ~~~~~~~~~~~~~~~~~~~~~~~sas %zipArrays( first ,second <,function=> <,operator=> <,argBf=> <,argMd=> <,argAf=> <,format=> <,result=> <,macarray=> <,reuse=> ) ~~~~~~~~~~~~~~~~~~~~~~~ **Arguments description**: 1. `first` - *Required*, a space separated list of texts. 2. `second` - *Required*, a space separated list of texts. * `function = cat` - *Optional*, default value is `cat`, a function which will be applied to corresponding pairs of elements of the first and the second list. * `operator =` - *Optional*, default value is empty, arithmetic infix operator used with elements the first and the second list. The first list is used on the left side of the operator the second list is used on the right side of the operator. * `argBf =` - *Optional*, default value is empty, arguments of the function inserted *before* elements the first list. If multiple should be comma separated. * `argMd =` - *Optional*, default value is empty, arguments of the function inserted *between* elements the first list and the second list. If multiple should be comma separated. * `argAf =` - *Optional*, default value is empty, arguments of the function inserted *after* elements the second list. If multiple should be comma separated. * `format=` - *Optional*, default value is empty, indicates a format which should be used to format the result, does not work when the `operator=` is used. * `result=` - *Optional*, default value is empty, indicates a name of newly created macroarray, by default created macroarray name is concatenation of first 13 characters of names of arrays used to create the new one. * `macarray=N` - *Optional*, default value is `N`, if set to `Y`/`YES` then a macro, named with the array name, is compiled to create convenient envelope for multiple ampersands, see the `%array()` macro for details. * `reuse=Y` - *Optional*, default value is `Y`, when one of the arrays is shorter then elements are *reused* starting from the beginning. If `CP` then function is executed on the *Cartesian product* of arrays elements. Any other value will cut the process with the end of the shorter array. See examples for the details. ### EXAMPLES AND USECASES: #################################################### **EXAMPLE 1.** Simple concatenation of elements: ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(a[*] x1-x3 (1:3)) %array(b[*] x1-x5 (11:15)) %put _user_; %zipArrays(a, b); %put _user_; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 2.** Shorter list is "reused": ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(a[6] (1:6)) %array(b[3] (10 20 30)) %zipArrays(a, b, result=A_and_B, macarray=Y); %put %do_over(A_and_B); ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 3.** Use of the `operator=`: ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(c[0:4] (000 100 200 300 400)) %array(d[2:16] (1002:1016)) %zipArrays(c, d, operator=+, result=C_plus_D, macarray=Y); %put (%do_over(C_plus_D)); %put %C_plus_D(1); ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 4.** If one of array names is empty or an array does not exist: ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(a[6] (1:6)) %array(b[3] (10 20 30)) %zipArrays(a, ); %zipArrays(, b); %zipArrays(a, z); %zipArrays(z, b); ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 5.** Use of the `function=`: ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(one[3] A B C, vnames=Y) %array(two[5] p q r s t, vnames=Y) %zipArrays( one ,two ,function = catx ,argBf = %str( ) ,format = $quote. ,macarray=Y ) %put %do_over(onetwo); ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 6.** To reuse or not to reuse, or maybe Cartesian product: ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(e[3] (10 20 30)) %array(f[2] (5:6)) %zipArrays(e, f, reuse=n, operator=+, macarray=Y, result=_noReuse); %zipArrays(e, f, reuse=y, operator=+, macarray=Y, result=_yesReuse); %zipArrays(e, f, reuse=cp, operator=+, macarray=Y, result=_cartProdReuse); %put %do_over(_noReuse); %put %do_over(_yesReuse); %put %do_over(_cartProdReuse); ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 7.** Use middle argument: ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(yr[3] (2018:2020)) %array(mth[12] (1:12)) %zipArrays(mth, yr, argMd=5, function=MDY, format=date11., macarray=Y); %put %do_over(mthyr); %zipArrays(mth, yr, argMd=5, function=MDY, format=date11., macarray=Y, reuse=cp); %put %do_over(mthyr); ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ --- ## >>> `%sortMacroArray()` macro: <<< ####################### The sortMacroArray() macro allow to sort elements of a macroarray. The **limitation** is that sorted values are limited to 32767 bytes of length. See examples below for the details. ### SYNTAX: ################################################################### The basic syntax is the following, the `<...>` means optional parameters: ~~~~~~~~~~~~~~~~~~~~~~~sas %sortMacroArray( array <,valLength=> <,outSet=> <,sortseq=> ) ~~~~~~~~~~~~~~~~~~~~~~~ **Arguments description**: 1. `array` - *Required*, name of an array generated by the `%array()` macro. * `valLength = 32767` - *Optional*, default value is `32767`, maximum length of a variable storing macrovariable data. (the reason of 32767 limitation) * `outSet = _NULL_` - *Optional*, default value is `_NULL_`, an optional output dataset name. * `sortseq =` - *Optional*, default value is `LINGUISTIC(NUMERIC_COLLATION = ON)`, sorting options for use in an internal `Proc SORT`. ### EXAMPLES AND USECASES: #################################################### **EXAMPLE 1.** Basic use-case. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas options mprint; ods html; ods listing close; %array(hij [4:9] $ 512 ("C33" "B22" "A11" "A01" "A02" "X42"), macarray=Y) %put NOTE: %do_over(hij); %sortMacroArray(hij, valLength=3, outSet = A_NULL_(compress=char)) %put NOTE: %do_over(hij); ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 2.** Basic use-case. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas options mprint; ods html; ods listing close; %array(ds = sashelp.class, vars = name|NNN height|h, macarray=Y) %array(ds = sashelp.cars, vars = model|, macarray=Y) %put NOTE: %do_over(NNN); %put NOTE: %do_over(H); %put NOTE: %do_over(model); %sortMacroArray(NNN, valLength=30, outSet = A_NULL_(compress=char)) %sortMacroArray(H, valLength=32) %sortMacroArray(model, valLength=120) %put NOTE: %do_over(NNN); %put NOTE: %do_over(H); %put NOTE: %do_over(model); ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ --- ## License #################################################################### Copyright (c) Bartosz Jablonski, since January 2019 Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation files (the "Software"), to deal in the Software without restriction, including without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to the following conditions: The above copyright notice and this permission notice shall be included in all copies or substantial portions of the Software. THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. --- macroarray-1.2.3/hist/1.2.3/macroarray.zip000066400000000000000000001501311452773550200201640ustar00rootroot00000000000000PKɫwW=Ҡ8f description.sasVo6n@ŀư2M1Vs^6:[(R%);;Jt)%>;=DX? hZ\H6-9Z>kI?< <1X̙aҙ\@ Hhʸ=W'At6w:ulZeχ+<\qv )FYǔz fFGư;= ' gqDZuk\"?K_WG h)] d3:N x^Zuvm?>AGe}Ӡ5PT!=5h7ڧ"L Lܭbl0y3^N盖p$eݻoP5fVOP0Fiڌ\W zy1{ Ϟ<'t$kK.\bsœq!+i=>?6_cIӮht=\3(sT1G)p[f)5ȣ{V7;?#+bfE۪Xtޕj D0+$s4\2kZ1gMu ՠmʍ^e qd5]㚹s5C 6OY ð뺽Ȃ4PżTXo^{ ZfڔdpBёe ZEpaaatIC?6zt젵W8ג0kv׻/w»c L'7^͑ inEVdõ"CJΔw"E^ƍsSy3|MQ8d.T3,MGLߍԈ:jl4/ׅ@P[R|/صh*K;!7KkmMzqv\j)lrV`te+4*cч.*g d1G Kq ˢٳU&P'Q[%U j]]PAAf)"/,Y ])dIOׂWd%cdXz-QtZB+>.R"z_hlh/PKɫwW*riG license.sas]RK0GqڕLb!I qbdL`w"!gg}7[3|KQxoC=1.^N XP3h(hQ>p4>\8݁޶F!!t=T k7~RȌ@͗\L9>8Ik8w=I|ڊ#={ AV8髧dn0O3Ľ;,z*z$&`x=10h}o"'ZjS,nDQ=:k46Pvҵv _p 6SGv[j`o[Ceܱ7#>NMG},,90APId<=K`#en'$+- `"K$k(eU EQ:#X b%dmJ 5LdsfB4.J *&s&Z˪9ȐB _y@YKGl$YR<.XyƱ8s~\i*#P%`<͒SF%IˢL0l^Q5d!f"XX+ ޝG轮+#dHVxJ2W PKɫwW!$packagemetadata.sasMk1@0']LRR (nOқṫ$YwRb d4 z !1H/d$NrАn=SNoFVCUQpy!Zu GaKl8*tr5t!)+F';,Z f 6~ɬN%W]> $QO6rc. @.8M[F]cl׀Ea oqn FU**өKpL50"`-p 06 Nñ-I/b؏hz:e YBT8H)ӯL_.1x% S+U/ì<<|:=wٶLݑ`aY$B a`v7˚cU`Zug;gtUmLlg> /'G fr"e_2MN&L݀/aop &542tGWїj4'b2C|"oKM{W̨T# ܟŹYnDGWx-´1xn, dqr.P5b9M?Jw78p{9vЏxI* С%y"&2~_k5ThJZv¶۸hѦUa&{wgv^PKɫwW8- /Hload.sas\SH=U%1=NQLNeƠBUVU[&)w`yguۃN#UݰQGT\u՗|g.7l Zvp8Q(z*|0 d }yΙ\cڇ{^pn~}<lWQVpA񷹁+W*3B}v{`3㡿:’(t]T[3 TezgDLTG w3^~f ]mfxopOie{ppcna_wf?̙ )TZ\}DXw(N\ypf1,]g@zA0hk񵦿TCVia=Twy:V+ Eoa !%26.FKZ5k!w ;VHcB#放YGԿ 6|e\wi#~sߢD?2& [ ʎĘ27:I~ЉKv";S+ܣ-.LW|YMNH j!vs(q,A];#vXeա>6@."QfC{?BdSjޱ^`oioUVTL v u; 3&\>:>v1%W-\ I3iM"AOyh݋P-i3f륯UeZc1-+s1ԼlH"9 '4l#y'rX>) p)?-2Uٸ9IA)$)k6tCR%Q OMK&ӊOvrgT* )xD|]q::Oz֩pDջaARar~0zW&HNN*qs!cnTW2d)j*!<@qT4vnɷXSa0@CAm9>=왩SwL"hQ'b3<[W#-:3=qXٗE+|s5PP$(#W*o?ec\6*Ȏ[cڃ3Uz< { aRBs(Ƥji˜&j#-EW.jt~+G5_NG6.Q:RN t$&<FQd"RG>,/˫y'zޟW3E%'X-Uxʣ`q;5{fyOr5PEQ'ip(j%FҙMdcP0A,̚ P^1]t_)fgy 0k$a* ΘaxWk.B){,@ZAt@|)zm&Ԫ=4myf-,M86ZKgNْ%PzGwf޲Jp{rUOE+7/LO=+}\V]ɖ#LEA&n<賘kA2˫)fG^`]b%^O{7'{Cz^@ 5NHOi@g{2Ae/?[guÿi[\4{jq;N;@E[c14\gY]>&F#Q\{rըLR2;QFy6g>עx\9r!=uL91aGa'm"|N-F}.GhCMH%LbBX7|b>#9J[XBZTE^/RϗVMߔⱖZa: *FG`mnPFOcipo7u5b^0IU`0 Jž)CxCy!!Q8RayХ<]^/"fPb脆~4Lh(>U&/Itሐ%jq|V 8Ri\!9r}$q[H2ԩ⥩$f=%dN6bc$w&>M@4nn@)~!5!ձXVkZFi@7'PKɫwW^̢ unload.sasXQs6~LÞlꒄt.3e|mFȖc误$ 4FZzY@IC3ÃÃB@{D-ؿ÷B'N$<`3KnuFa_Zȳq|T'_6̗||c*gDô`N~~c\-_@HBlӅXD4eSv?IB@]+_A"=fUzvká}u+k-{޾(TiD T8%IOӔHqL)V8JaB`*ݔd`퉚O(݅Yv7*ԾH,Riqkir ʵ92HvldMy'-w K hFzvuVߑNW_yo7֏}pc>׷Rfy׮SRH ]*w>qmCECou+/ݎZNT_84iP>AiԌ2l\^Þ!.Zӿyo bcF*ݯR7% L9)+)"Pml1c"5(梖5Se(FS͎XM3d p>$?@K+{d] OEFNB ' Sz[ PX9->.4|YM4 YDiKg[k2Z O|!Ml1[=5YZ}XXleS4?J s+02t9g/W82cF7=3 Lީ> ~nҹ Gyi=)(ǽ0Kq)иkM,&M$H+NESuح+!T)6,&pk[p3$ ''*.q1,g=q! D#N=Hɚ|ֆ/cεA٣9ٸUhU ~<;<%*&qgFJd) 2/g^aK}j!N~Hqt1P6 כDͷpTSҗ@hsXGr+~/Wbu,D鷳WϛÃ㪼((묨PKɫwW}Ʀ.k preview.sasXmo6n ,d8~na A' EcT[;z\˱)#|#4Q{ꑈ[pu]8ILW3C/KLj?$"ğ=х=^ڣx8{u"֔ܚjP#. "TVE92tYHu[J"|&}eB@ x(dte NsT9N ￿f WayA䅉_\  ]n'J)g{Op 4$ߓw|òr0pB spk` W[9qp NT&f TaX5dL:J)~Spt99NY5ӬY|z}DbZ=X}'V<p#d`k$4`C4AYAs ^?Fdݣ]>?y gG)W ߘ=0aX@1R@iH sEC0&6& >! B(J8#P1E5H`kZn]dALLs#aHK^ΕTì")L@.֒wZR{ TԡXe)Ֆ`z e0/:p\ǵ8zb=)]wHM<@vZO!8 9(ZRs\i|.vRU 1Kj7&$\NC<,w4*2Sw Lv+M2v')0҇%bGUT8.<bLv+U/3n^RfqJW%Xe$tpʂf,唏Wfl;hh79kNw5=>6q:-)nx p4鯬:?fB6)Ktwg!pj(Pc KXVY_S@ԱJ; CIX80R%6)/&4F=P{> JڍzW8΋?}_W8;o;f]Ǡ[dܛE[PKɫwWWT{%help.sasZms8 as)6Cr4k)n<-Oto%Xc9I,Yj]=s=[s7>AVI0^@n3Bݺ'0(8"(v&~LtlII&@SzDcO/Ȣ5zuћzWG/C_ h_-קC k|i2=905xt)-|['4)Jb +! ED~@IBWHğ/8XD6TDyJU㿞CQ? H⹾-R Z؊5,i z=_xͶڅk b?q<"G4wpX@]* (P:;2SCbe!""5V14fm+&P)4 G˛Fa_A0C";~1NQwd|CUT2J%#1g pZ;(92o@ |лpW + qrs8<mCymltpC!Z[Lwe#eC{[߉Y$-o;姧/~jݡ[ /^_nXlx c]zr0}G ޞV45k% 7"L'p'>F }2 Gd+" IJu ^ÝXs %QUO., sdKtAhrAI9̓h<I)(')|p N* vp(;ؖ헶LJPwNTmRK,'>Ǜ3Cls!9 +,2X͡^Kd{Y\҅YDA(=ԁ96Y%4!rV.Cռ-K 4Y ~hNp-BAY,)$M`I5PB4̼GdaIj&6nW7y*K vq"TQrN 5FA ntV^f-Xuڑyj'"Qj}]dK:ͳ:R1{^ {xxyn$N,r=vyTv%^+ZE.2%QfQ0_0_I[{ŤRr-nLe,a} +OJ$@/^+I4R_LBpx +|:ͷ1g#H4?L B,ps^uE~[`x!J^>Ϟ՞;J: 8;kQPPqٻg9bdRI6.->Ny&W/d>->69GN+0L4yM z?PKɫwW _001_macro.appendarray.sasV[o6~7p,ɲt71.! :CMKM"]>tRǍӢ5K' Cx5:} h6a8,TRn(Hd R=/BH:dkh6.t 0 +eTQ-X¹4 1T^o(aZ[ckH \^R r54 B( AB^`Iq9cJMEz.+G74+ ؗ%*_̩SǴ"}׿n>MfZrcS6L#7 8؈#'Da UlpD7FFl o6؊` TK̹X9)|þ0qhoǒ)xRڬ|ɑz,@펺enu8ޒtwR<28Ly|#KK@ͩ)B`rIhdZI׼ ǘ+32lPKɫwWhiP/{_001_macro.appendcell.sasY[oH~G?q/˾l%4"i5 VSe7M9e2ɖp];9Eɲ,Pi=vK%+l߯r˛O0bpyy |6e#Z6.K >,l&yxy(If3,ɤzSM), m;r@ 7}{;;;ax4ơ}"B|tΗ$]KrPS?`UZ u~i$(1`$'Rg3]SLZf= \|((]Od3&l"UU(sHWSs=I#?AjBWUȏD[A#4I=uBÞ!,.x?-!Y"8d HؤMp{}45h ct&[k~J8ڱ  D:lȩ?7T80˦ %ڰ(׫rHڧs}qA%;5TIs]s~ivK l}lӌ&#)xr&=X(kU B {UVD-:tBP:ƪ;Hcqoy,; EX ݾqe[FO{F ;O ]VBz[kVpۼoUn/v}W'\̇c* (5J!),KA=2Wi2;`9nȽHT~u@Tqbm2pг"iUY%D)fMj68D%âVFRXkHBqD6.fJj>@SܨΗvR"Z>Z=&J wiBUa]zкr>)n"Kz5g tYN((P7#AUmpty)g@j6itRAG Gnk"[tvz?7* kVqN/,w},\:|u(:, 'iW+a@k_QCOSӊS:D rPkC{t KXê%0")zMJ<0{KVy>悢ĆذoHlQ gJO:"G5:^ߎO>͑~[~yyJH=\:tgMXpaQr<^2)ۮKq n5XZJ_Ou9 LB~`)u{2dr 'wA)HkC7@th" d,C,^F?qpĈS!<)۔|0yzRpteIx_V̟BؐS>x-nI%z-(27 j3ZVu< ui5( SIy gj ?e=1׳Q|3gxPKɫwW.]e{_001_macro.array.sas=wFrlN[rGlRӳqq[aO<^z[+=}Kf=,ѝܫ;+<')gCoę7fǮ9np|>b+Ѓo3{XоrFvo,b,ƕ]q?p<-| Xe!T\CC'`#8nCgv&]GЁwa9e^f͜ :OP+wصN|N(sC9=cr <(>9l!6r_CpT\]ElyK`7E˓2P΀y> 3}湼mj;&. 8fQlc2C~p܏ڏfA;ԛK+ K .C!$]C~:fpPg%M};t܉&yPE|)2 i(S$6df5`; <$I ,8FDrߘMbBMIF '[tB_y XƤqc|}wԾBAaZ@;B N2.4hFFͷwxP8.:VPCkɦriP\CZE/+@@ja.lD` _'O$1Kbĸ+$y*Oȟ FiGbn 9P(4 7$7Pa t@ Xѧh EPeMIm1b#8!].>!;5_5}]=J7Uf_ljHע*Uα%ZW1"u.0}-GfMOBdcɁ_̼K{:8{PATRAL1QahOs\H#2 %(F?lԨ$Xa~5f,VRj&2v䬹 ^H6ja!a\pJW<=[)S"ۣ#}$5$7%L}uskGQ!d ّ _i5.3s'L&(ghi0 +\`e~.J#[uTn5~J07ۋ.jtl3۠8" 'P}|`[* Yi#;tOdG 8.p L70 @&GnќV%tl/hy~0ESI b@A3p`gp: ˥`|0b",!GrIo7Y$ASI}nC2}SMu&W jXk/B-Ss_7Fp̢+ g&]qׁ|+>\h@Y.C8Hqlg]OP?= Y\&бu5Co2n߰[f=U`5'/GC>hÄ ZЌ B'bF~_tL@Vgp;֥Eҳ hy>қC'cVhGV *#Pra4۰rNM7g2jQmC4@oAc(48F4˄&d)c}̮R[̎_ @#k2IcƎ"H(4:LA ^_dZԁ"[nM=\e[:EZHѷ3 (S>[sû {hklĆ-Z%CTKB42قLm @bp!f3GPɭW );:^e ZUUpt ,4"_8 n > r`ĵS*#xXtJ ?8ʜ#L@/c@"&YdZGYlwPm&f1G X)w&9z"|fɈֲF@W_97:喩QNس񱐁5d9~mZI騧AvX(H'N͠ 3A&2MTSH4;_[Ƨl #ג?D,M 3т4GsEەm3R)+[-uG$~\z!E)i!}TÀ0F:]z"7*Ä߆A ­(>!+SWQwbf4'`LhVױ|+ u"%#!.#e'LfsK+C7UZ?}R-ޚy-TD02z LA$P< ߡ7V!}YAf|}:t[^_'tN{G;̰`l, Z@j&"54 LIb>'e7l8_vsvb&Z8-;&dkv{==aMuNZC#\D6xA>'hX (2H?}o2N40u zԫ "ؐpV Pu a k> :*P/}?E+oI.ѵpCr5IDL<mk'A" '5 fQwG|< ~VR=x92r㋼|)DC,aLi7LU-PO!*51%-Fd HfJ@PZ?xgu}`]bX@)lt]/>x{1X{5YsBi#o3zmOu0&0%ۥ&mSg |~{obqCĶEVJٮ GRNV8`ɉF9Ĺp1ܴLgGY9 ]=ni jJh7n):Anwsܶ NSq%l#/)$ȱE,gYd w)~́'EЬ V@W80Ei}zh'%||m7zO4rh"J^dYt:yNGŠ D@(0M,G/Yk quJCX}pҾ w!w{+xvb?!O-E}ϸ,K3Ov$۴Znַ`6t q}DWH e@ b[mSm "R9 و\] !sE#eڌ(SXOx1;n L?S`㔮M)*Y#RxI0@Z E9̴/K"qy9H+p$'~]U'vgE/04={ئf$^JigYc\&:7B,L-i]7 貅O@b49Jȟ-䞡r5} n#ʚY,I A&c9ko2lQ*j>3& L8DpɆ$Fk]Z yZoLMzc9('7/*Zí<}փQˎ/;}Ò+_f/d{z~9L kPh1~@#J1 9`a2q\*U$)\1 _dk[ kbFH1QHr!ZwJ"z,Yjx9XF~br-[HܝS+[O$` lRi*YG["hWݖ%UvQӭUq"MkqS̃lcrhwsb~k~ mľkr~U#0n`E(5,Rw"YDLRPA/e/p0K8ʒ 1SI(~pʇdOʥ)jC1`т[ʌrlKLk"-ؾOTPiq.L.БMFWmrPb;u>D=&`C|R9LbtK͍Z/I% = mW7[D>bR̶ )*▲ qY|ˌW{DS")H0Y^tL:hsVU=k CLM1\_YT*gL!<<\n'a:;~R/{}֗!u0zN@t-L[Y3cD3!h/v>nJNa6vר4 k}gE*aGQ%>D I-4SDL"b63SHe S@)_D@vڂtJZJm2_ˋ˒s<컌Is ulUC{Fv9"^N#W[ ns;;Q /1<]жUdſd~6?'"OTug 2o7/hk2כ/| "IKD+Ҳp 4.<՟gݕ;13ZoW@A> -|Dޚv~BgSm v{- 񯷳k"Cn.Υs`?lef)5GnTlMW*&sRpjO ds|REYY[Lc6Z<ٗ*+$Hft0ktlat"<9FdɳmDI'6c: O.ԱlW6XANyPYM(8pa=;`lTٯnrYi7F,ףk,' YkJ-VZkQEx/-d, _x]07eAGP7m:4:eMIʼnhT y~Ѕ<sYtRj 6I6 ѨI+Ub| B`x,YK$I$I$ktݣr=a/DFP $qĸS10&ƄØp4w `.]neOb$&1$BbBHL*$i}O}q$ʔ#̰@aotk;A|, ǜe%U-#wra[ٵ~!xp][90|q)IH0٥E m=(%F)Y\9xX `SK˅ƹHO)H-Pz8|aaWAf1#c\mJ2a$Vb48N/U𲇗x/?G*F҃f<ijsʋ%\{GCL6Ϗ-F?/K$=w ORDC^w1mB;v+A鱃|e6bcxf3#?I3iSV̨QԠ=,B|S`Œqmx.g=a5dZ˘U4+M߾h%ڈ m|(?Zdx{~ ={'Z[@~1xk%PHHmFmFmFw/$3ƣ${y~@A5Y(EG+d(f6 A]=M̨j WZ NC޷X_~>. }z#>2_{<ző<ט(`Py$ !BK.>ax#Z`,YQ n}%y+h+ j& + )RlYX+Ӈ$F$>T=[LF֮Ŭ ¿ZrݢxJ,:Ҳjš*܋ MtF%?GVd6B @`NPVj\ZKkqi-.݋K&*FĞmy9 ]t60EIk45"EV2_ur>YLf SRtJHp|#.7RHC.Y`vJ:W#}x.?#uSr3rT~b{teCZwMko=]4$/}RjIgo;3]8P@7K &e6gbٞ^5tqShvКGХ' Q64xUZaK@@S,Ft1*w1Bj<̀&kwWl7 e./0M2"z\Oz9Tij>8[ap^Fz4`.W;I&~wDoIm`>tѪ WX"]#MG^_*->.,~D FKx]*n{>3 ID'C/7D Sۛ?WkXԣb5\d)Ѓ"(SmÄTR'c4 l|7d_lr\|1(`aqМ4(P9ӷ$J[R3eb;u-0 ,|ľ8(C9#!z#>tFlu馲BG-D򧧺lP)?*90h7|V Є5kGd]Xu=L$ kUBW94$jFmȩVDq:¢ٶZW(A+8~՞Kl{$.Y7bK6h8 R X5 A1s1e[QO*fIJ0Ys`mqqhU&f P4 `q|D F 11215 ~" 6gxWKs#[)Jd/iI,DiN#`S ֢:s:4cИpwQ׵8:4 dz"wZMr2 xJXo%Ó?PKɫwWPuU _001_macro.do_over.sasYQsH~wC'>0҂lk*&)۹]W*i0: H힑 9l47=4ww{''%8O  &̍D ...A& zP^^^ˣ+<b1^+!1 ~(~=qr6?&}=--lw*ss ,LB,ybCEln3?d΃S(T݇|xns ā42 %-(+?=C&}<3R?>ֵ/e]4EȂϲuxd yOOS #GJU=Uoa\!C8;wel3nLxKt#_n-zj[)hy?'/T|Q@21X̠$УoisK1DB 9$Sԝce)8)ʘw)h5$ +˩Caz4]9"3tDSYM)8z, #J\D(1\$z  (! &[dލC'"F( ]JxUD+i@MNˍu΢^\`57#R?)IB5  !Kb1Ak94𹗡$\@\Bdf 3˱Hoyi]+^Hr]shKH-<稪|R*18LP+gfh]{fKg5`E+ʚB1#MH܈L (&Ɍ/uRqh8EL`fܤg;`@8vDu:64 ^ޒ~r}k&' #&<o,Yѿy{J>ݯU5ӀB"[Y,F@J`ҿ(ѣ? s E*2sM)1PKE`YmUnH2];bjT~D Խv6٢܄7%dٓj eTЯ MM@Ô[녛r¬2Y%7gɪC a,v\.WIPh$CrEkTbvZʼn(YY"&r*}c豀 电 ~Ȟ,G0cbFPHqVL_ۯdb%p dNJ6UĖ驺޺M@+ߢ+xRƪҵİZ{J0ĀNQέ*4iC6 (lE{T,JƄNdn~s]$܇|^[XP\,'#|zSEz#f([aCh~>p\^_TƱ\(f)ո>Z YiJ ?Fz( ?ۏb8{Zi mXi 7 ($YZ2`8 ލOa?+!'˃iA 2\ WAÃvUUȘ@`I{O}SKf)UTIk߅⽏}|w;f1v AA&ZB43DL)rj6}Uh ̤ؗ y,5bRiD5Xf嚈(j6f)(.[䉥Lʑ{bT,/ -BG\B<{BX-3c}:l1X#c2]dw2.m[lNbc!6F rI=. >̰堑wahmCWvm蟘?pn|0!9y7l9ʗLj0DhTF\uА?(TJ.6[+ Srʄ˥2|;3B3WDo%EvTb$sc/&IYdk9c=$͸syPV=~8wbCm ūA5s;xS`V]V +Lo!5h7ގYnaXJZ:LDx5!'g}iVR}Ђ0{ß;SpM׽6!؆eg7~x:D>p1AxpkkNʃqlLO/>C g'^ඇ6*4pKܥs(yQꎝR$jesFo |y{u+Yo6—͗ 鰛mcP*8X>g+k;zsR1<&ڝMT|r;[FGpuΎ Wz-eʧ3 h }:P7Ep@d4]ɳo# ؃LRuW&x*!M*16\^\Ҵy+c]0wmLKuj%ffbݐXBDtLн0-xx!6~JfOojAD XwL?'s0َX#V&ƻm:e#5I슫R>SH -qPKɫwWkʘv_001_macro.do_over3.sasWmo96ڔ݃Mw.!hB =5*o\zn?ˎ {\WGGAZ-D R@ل&Nfy"jvfGu)ʥ)X$4,՜IhW8z  o KGw3˭!Pyo.uk@T,hLSI4R詤i#R%Ēr `p.]G0'F%׫6p3M LV,2wW'G?Q,|,00>40l!ZJ1LpV'ETT\`%-v]z8jVSI=TZV|{pv޻x{1zA)? 0 AЖlFVPKfm zBdPLXL,m 1ob)ҦIB4Hd<¹UaC# hcܪ Ty1s+ zDEcyal{`S&D.r.bB$K5ܐ43?Qvтh>:” ϋٕu&ָLV6hgU IFEVˌ%IJ uQh稭=}"Z[q Kk'N0ٲ-; q*: ֞}\MQ֯X`p v/AEILG:֝;xǝSsJzG87XUg/7 2n%xdZA2&dS{c3k]j>쮇=;oߪتXO^*;"@a@|:v iūhZOӜ$+ݔޖrrM>ގf*>=xwn篴{6ЪU :CߣFwb&NSW}t>|X{> :ۃ/p 8s/0LͰ]bc l6`<2`VS3T^1֗uo{и{O#+S<Sn5fJ WQyNU<>iiǍMI?nvF} |0SȆS~O>l"w?,9) j+6>*; )Bk1_J6jxE;t(\}aUP'xF/Q1MṮ*ɘ3jzjvn{mU0ƛb{$#%Rk5k6P΍9%$dF&4W cc S3-Xu67Zյ^4)䙙uԂJdKչXբLhZt&KP)xL5vv@eIF KC$|`xPKɫwWI̦_001_macro.make_do_over.sasXms8 S^ҙ si]{&޴%oWMHXճ8ypoނ'O5e|ˡʣ} SEᐁ`S~T!/0 L8x Gݰœ)j;|; ٢`%'߈]Z9,7S``a( 1?O@Gq /]!p΄9Ӂ,0G`{bj{P7t}shO |(0 ;6]$-)-:fxIE<& @(цPʙ[s J$/MA}rGЄr ]dFKcz WH%ͅCg V5R 5WTćG9 吼[v{ Ԭν2s"DaVI3XbPQa{7wW3P!j`!z$ZcKV޻,R@/ȑ]+_bym7M7׶HxIqm;OjTocD Ȅ~O=P29?A%vvC*Ti4##uv{&SEZv7@wo@?9_؆lBhIz&7}*X|,)cs}c6pʃrԲ]t٭˄*JԳq˭2E-rΒlPVr:ͦ^lHWUmD[kE[E%ZzNIVsK4k#==-gHb[|2_.Ns^bomr%k$$+f ZAƀ7ʇnG5Z Xu!}Se;A:~h uz~18^p>k uFaa.:Cf ˧;F`_ o@bJVa΢@$/sc+ne~Ӥ]iHh?RJP:J(p_ ?vfn5%l \ZmEb6!"9tl>J:Ut*'9KA-&n)m_001_macro.mcdictionary.sas=kSȲߩ?L F`8{CvBr0&7{ʖB=oo= Af7:6hh[VQu/ nwwlsc+ߚ-SMYE鳉 KRc6D7wvҫ+ܸyuL̴M5Rq@=sdCaCM7-|NA9CUκc|טrU5fWkj{Lw&TмΚm0/ 16waTi6ּ15_ecS3Ͳkٕf4]U6!68Ub 0C $DzÉ|]py *r6"P?7 \.?*~>h~z1oBg̛پv`qrG5TU5<%-dӼ͍4 _NGgWmȿ|6Z2w$Zm`mWwMBZ}O*];zοˍj-5uq q*bjg #!EхW; Bz̤fYp|QQPu O]m1c|2g9HaHHU+*;uأPUUV'nHGyC9ZڇyGjvD^\,J!+~57jw~ ;yɳ+$ʕGj_bALF?4N.$#"ۭgȬ}$ lY,2SgXh_T]3 ]gBT*BYHw[o{ j[3f.rRCʎN)K$d،@&1tY02ԓo{ ( -Ws~4Ez8BpE7ANh/ݼhI (؁hu dNȵ{N tgQx $&l ύWLzEqcXK$ ^K@`ꨫcO0;eOuY WPnV0H"e;"hB,_- ˄$ë}C-Ю4"$;6As{11J+đߘVl H/gܫ1k'UB5MQ23ń2`",}x܏1 IЏBpĹsvۊ!vu/L9~:ra9 ;y?B #x%Mn@kҠʴA$& Gn()9C Cg>c(0U5' 9#7b9Q}zVs0QIoED 2Pb?= F "$A4Kns7U`{!&]#10H]036Ŭðrh6®/iaX(t=P|D#JI?rc$C+hJƻ!2+21̡B&Hk P!bS!xQ>?{Ѹ! l)&N2ͯAzS8@<4Lzep}ڢ|%}NU}#O/%OR'pGlږ@ʑǶ0N[s sk y~ mg[SF[$MlƞmǙ2|K&&(ÏW@՟Y! 5j.cU9nuvZ7>;jvP -x[CW}s+JmoUeΣ_U`vv@h-4FXW0E{SBEV0)~$SL_/|E$:eȞ UABdD㱩lr[9;fúOT)my,[-o=b%̂k ^Q6꥜dݑ',B k8MtL{]Z6ef4 Ig x7CaOтA\X!5T]\ۺpui'bQ (DQ]: 5uZ2'qL5pRx^#E ̀h`)ʝBfit9v]e.*@ [^YES:BFHaz>0~;|H!Q*3͆)*xE@>uAξ4} 2̗ؗ7\ Qž·ȧ*xZT,Y)AWdpp+zw^Ic5hY"29z6Ĩǖ@;8L\ }9+\Ԓ(AEYM$B`d|n!TeE"Mka "Yg {WnUи5{w7Hdi@|=9yl,*b1cʅ¬f[xfBS`Įs\a^ qsrg\lN;(Fʼʾ[5|uʞ\tp+#b٠,DrPT)G}kN9D˭C\9xPh4/ #@97Qwr#V4;5b^ĮLxC;D8>+JJGuY@l /3dn,3cC*cX?Gb+X0g@4Zi~y^B3i^vmb8ࡲPIeIJc2 2tv#N<+fEvOFL"uIi!dIP*)>v8}sn[؉a]tQj#Ub(al9) NjhV@rb-V|ڟ';.k؇nmw/%$H`tAeuRJ{bi Hg+[ ?Ԩ>TJɌijg0xdiSbx<F8mFL'֕TG͕_m6>~#B%fz@ɈǂS-Q?>O(ޕ( HD4:|HUaH.Uf-U.l% NHGJ+˳'8e5$7()Kc^?9!Ģwc5WԸg]٦JEr.C_7˾klA꿖hm.UdxE<h1niX<2XjؤP/RznV0c;lۧeYq 5/P"Rp<_Up= bBiӾjX6q@jX=NaYVw}e},R$C['_of`..uly۾ X+&ʷ.V$2^Lw(zC T9 K`AFﴧ 8bJ09ZtU %X迸?Ao%NsEb a ޑ1o.45R-dź-+Hk+8anl4U*u ;Ea*Zq4̄5s+ /!j9Łf#+ OQ@:?B܅3^UfSzZádu qRҧ m\cf-b}kII3E4I 5&>]w:p"8@裟Xʌm)s~?;'g̨f%zQ%XB}ñ9!w{e3WU[:t3}f`c{`}=f龃QvcPkʠrCq`'E:fZޡ?u1jkPFݙ?P <d͘@3  gY"CPr\]á4{R6qi}c|]_wsm3*Ơ>)x ÏPxD%bbkzjVG5"-~~\7{ ,pu첏K#NkN"*3mp3h·vaX?PKɫwWC`x_001_macro.mchashtable.sas]{sȖU=edf!;qmgnR{@HmP,$" L9[BOCݙfbZ_>}ޒZ;ju; vuݼf𰺻vw^`o߾eռ6xEkFc6D%>^r@KojoًcwgwzsuL̴M5Vq=sdIa7nZ>snJbDU :뎭_cUV՘ez>^OiWzLw&R5`~#nsF5h4aWL,ރ~@Nf2]Uan>qC68એEd@8|f<2utl,Ǯ8gALc456\SwXavus 5ԙ7}큁$8oV0)MrAL}ݝ><݉.Ms=o?ͫnVrjfn$k9k<[W٠;`t%:3]nTk<ђI΢1@ t fHȦm5FF`t@e|BCBd̨PI4?W Tvh+Qk KOh]^OhU!H6|!vXӼiuyR2@w9I`9! g:3Wxr-l M U_JK"1aF7{i#XĄnδw|Y-1 hbqwl\Rqk'Ǎ0G0o1 q g}לLGЃ_:"`]gB ^]𢡄]pffG$oVI2)c!7E%337Q rPy`ypa1lR,!OG>EP`YEKJ`:h.N{l4OpBCMD)ph c~)frUG3$c*9Xv~{w?n3[H;S@2)`@iG~Np+ V-ݝ%"@ԶoLQ4))D 3L=:xQ$Ck,38)$&쇿PnJlФhc1>2dIDؔ+-422Y4b3:[d70C^p(h#ԥSw轱ޠk'P4E9kSO ͎2Y.ɷrٙ 8 0dϛAJWa g{ 3al^}8{};ulxvJ3@M .L@mEk q4ɛ"^:;͆Vih<ׁĈ:Z6ǃhA@VN Yc_4|zSTUrO?[d]kzw#7"ԦkkG`"j;ab@`S]؄ wgL5p(Tg2Ic,{!G(f\ۺf0P 4Q  DTPˣ,{>D:Մ f=Tq EJmHH3v)FfܐKY]}@Z=^` Бe) )@ۛ. d >e!R^W$tXeS? K/j*.RUמT&jCO3=/* *\?˨nQÅARQI\t]-}Ss6LLVΫ+M1AOCm(83-|t޼+_DPR% )vd#YU=Reuk@"-St 9/#kg ^/O.hy g pUB}h5r{ F}^Az&xѬI%!q BSWj-gM1ɇ͚a0*;3i#?֟RA ~T͓PQ&v1ϐGdd&ljk N*uEv+ٷe]=h&y#A{ 2)i%*06IKILSM.<^s\⹹h4 C>gQw &-O鎸Kbq^}<-"CgT .# T81ORǦ_@+3$ oZЈiE5UZͬpd:I¯EuuRTR,DoSШIAJh cnIypD@Nl F,1b)<L ahlyg48 (IGy!yK"Aڟ%_Sg qse'Aw7 ?{Qkf"_sMnG.G>؞W |Fy3߃|2sip3l8WaR>qj;k>'C'NWμ`C9e'IV_wN/yۀGWm8y[x1w{^pϸkS8G|'փjf/U'5Hr3sKI\N=~cdX_AZ7*OVL n}z$ gx}%{;{xlL9c=<&_.n m/2ݝˏg7d;mݝ ٖ c ^oB?n.=eSPv<;edzsYv<;eGhIyeRyInVa3a).w[)^oŪpjjFKYA[F*:!]~JHֈb%BtjVb [Y؜1H鈑WN-)}6xVtb=I|7з2 -; J7+!X Tc pς6N'b{`OӋ^犂WVsάENhәPI -K@r/N2^b6VlR50B5ldnAYlk4jf%>G/A1fSK/H==:}?6A\:g\f$07*(#ʏvlwz |zݾV^8:O4WL5м NfxrCBQob-ЍZ_rlp-XSDž><1;G Nd"T8gG%?䇟oIf޽K6ZdS,ZgXH(#il _cf-T|]XPQH0Zp/ q|yy[:MX/S0^S8lq ZAFѶ&S3$e-Dm`+.YDkrϱb f|y|oaR Fx&c D   8"iԶaLV?qbf^A%}r]}띞_Ca 5 ! Gcl/8 r\QuzQ5y&Ŋͦt[кɍQ}ȕL.eB4w?߁5݂ԝ뾃g PRewn\.>^LA=Ľh8wf^}bSBzWP@M?|U9b͙М09IPr\]á4{.gY dG7 9^2f!g="ޑԊg āT&pMV͠#o`pɭqv$]Fma?vh!"*smx9h{ھpa(LqPKɫwWv+2 V._001_macro.qziparrays.sasZs'΀rW񔸴u4ci1 aB?ܿp{Eytj[1qk^s~YvFs f)-x`bƑ>8?;f$7sِ${uD>!س"._p/ 9O,))x|IR@-?x=qfB"=!MUDKaF ܆D $Z̵bEEF$/YhRƸuB~fTGQ bmC6 (}aĂTBP{ !)GǏ;`.63GX̑U74I g]pT`-|1 PÙ|֜Bb3i'u$q!r#H_n:N2Y.-5[8A!'9ZD FhWE>E>g'Ss&/Lr^(E oCNL`ś&#ENZCTitӬTj},C+p )0:M@_G!eKfq9F:fc$[$"ј|> ccCJD՞!g9_$l\T;V&]L./Pf(n E+<ꩭ: 6=b*5'1+8 q4W8 yRprҾ .Eb^yLE "Kz \ijG\xѬ+ҍHWs0:S] jڷ4V{ { _lɦɮ5Uc':Tbh*yguUr%#%?x@rfIDT,ЊsEEFgE[E#-SzfE%mLdPaVyD&mo`&0*m(C"X:nGT8Ek4X"~rBExTԄieK5ٻQ> ~& X'%P7%xVw*UX]TEn[7;uU5$O('C*jc9JC ~R[LOBӻnDwI.b- g.4&ȲQ% l-7D;\~>.Q#!=Ipn%k`S݁ ɛz7] $&t!{ןZ_^_ߠ!m(p ie8ǖ W y|[gjx;ZJ=phylKcW[ (ُ 1M[ 5:ꐹa< ӆi'5 5p{ى|e)"H悾]_[š(>KQ$nEʬA+g,ɀp=!BZʢl9fYz[9)4+'+t9xB:ʬHD[);p[%jUSZ&6k{E#(jUΏۺ!ڨӝ S5#s>nƦɸNN8}y"AoA]]QbjO]Z@`P6I$uᇟ)N[EuDٳuY\(;>?bɝkѥAz'\GPOϬ*@kB{C0UrZOy%\p-5I~ñNЧO){4M < EYj<|$ loWzNaSYI{aUa\5mǭw%V(ci$^' ~F*aUẉNWgkk)hP˜'&D[4XufA`a8ne:vW6숂؃r_,!V6gKҀEGO^ kdN=r# M4+[4(^5(dj7ǭJ|Mh X=B i;nc .WW0kM_NÛAW ) 2ScA1);_QX@P3Q%BL1 %8Y*/67gsoR/Ґ{|+N7,P6hX~_b;3cؙPKɫwWV_001_macro.sortmacroarray.sasWko9 a(Zʰ"YD""*pMR} [v"9s) hotR!tK0D+拤!{;C Z j bq/CVzձk%V/@'TaӃqN0LA%x#+ 1] a 1@2ܱp%pO+o߼G5r㉚f!Nre0fJcPݕ꿹2 cL&SExRԏÚu䃳Q,HBVө_tjZ/]Sb-]nq*4&<YPN,3l5v G|2 b]LI_{yd%cdyDnCԴJe"Yb0L&1q>!Vx0hߴZޜ]{K\%"܅<leeyo\5N_vژF|?6I%5J2%bv)H|uQvEk=KXoZ.`沦l{?~B/f/)r/ td][%PE^[@r.x: ;l]~<}Z zCwܣtE O* Mo .E@nك4dF>TMNޓ%G6wd tB -vZi†}Nqz9{RM Qme4 ^dBl])}c&ʇמ#najVDX)J̭tXwіskeqm4+2 V s7yqW(XH(L=98̥?ҩEqCH=HTE 6> O}^ki2g 6e=14u%Erzv߬Bv ;.Ѿ68o?iN`OG4('ZS&.XM+ q[+|J,h^ov:dM7ۊKQo!ۦ.vMhJA5T6A. *[,tVUCpǻPKɫwWtK39_001_macro.ziparrays.sas[S Ö\†$\ChK4 1h"Kw<BhR>yܘ*zXQ:awN@\t&_;wB·<  ™{BY8O=4W Jv\ jlmgu忋aHa9M{cA{d ƺ?v棓 /iG A֢SGTBױ 6(4;T2a(d~6q? ruB}$c H4'@Ftdlc BȩRQF3y52@*fLw7uw&B]֏LnVyEdS֙LPD4=mH\2:=`-O(3pe;!kS..tq!Ίzl-a!3h\\Hz% $P 87ڏ3ᴏf]ұ1ؼ*"E\@\x dLsd?ԕTҮ4+UXlPgck " 'P&7(J;+JU*SU0>#ʷ)3P*(n1(|nEY_]Ed\bBq8П.I}O> DIcVxRdVXJ`M,B)BVIߕ:L8{@S h!IƑp6n݀L-Բ@[۟_WmoWOsC]qpzv$԰.jc,iprX`LAԁV>cl8g4< NPbȷ`*.jǪMRH(O2Z|C'}ÉW#!; m0v;tݒ:s!#aHJ*.:U]z!k>RUޮv!zTS߬ğ+ U ju؝(g\r#ll<ߓ$bZ$98O$ (Ͽ[Vz^2yȍ*4J"OB[:X9Znwr=V0M hb b3Pn{f# \L]rn `Kƴ! `1z5h&ttndYLxQ-uVS?R'm\*bϡ RgXF% n]sh' ]86zǁ6@M`;''п쾻8_[ 52J\Jsxv/?kkw&A-tw YOV藂"8VMujX{q6-[3V\gcP'GP}-ޚPo3<`W2%v| eW8qOL.#ݥ7Q'G4,nNf.;F:aH{Љ&}k~jz=WXi:@i wM~|%sK੶}/yp||CpʚՄ/vghp<5W-jQP&T/6sM90;/AJ`1E &l63(W[;-~o9-l#-9Ap0upf!wL Zq<ΟʻV^})|Brm{ꊁ]oHKBi:ǢĢ] }>L!}$lyM9AD{H}T0aтP3~U1ŠW; yg@.n'1lgԶY*PkdU2XCxZEȱɱ#CW_Oۦ VJs,lʚ$jm8ښ35` ߼2K/Ԕccj5 bGH-iX?Zנ ~ѐxG:3y#[6r}/:űY0 ԓre\fsL-ܤ,epǼ6+؊R,'\]cw㈻HEZBjRjX^@l®Ŭ"y7F~(Q2wfJҏoi{]R2q 1>nI N\1mRbV@JC2G7)YB @mFw s\A?POf O8+PKɫwW=Ҡ8f  description.sasPKɫwW*riG  ylicense.sasPKɫwW!$ >packagemetadata.sasPKɫwW giceloadpackage.sasPKɫwW8- /H I load.sasPKɫwW#a~A  lazydata.sasPKɫwW^̢  /unload.sasPKɫwW}Ʀ.k  preview.sasPKɫwWWT{% #help.sasPKɫwW  +_001_macro.appendarray.sasPKɫwWhiP/{ /_001_macro.appendcell.sasPKɫwW.]e{ 27_001_macro.array.sasPKɫwW%U0 LU_001_macro.concatarrays.sasPKɫwWvD2 [_001_macro.deletemacarray.sasPKɫwWPuU  a_001_macro.do_over.sasPKɫwWx; Jk_001_macro.do_over2.sasPKɫwWkʘv q_001_macro.do_over3.sasPKɫwWI̦ w_001_macro.make_do_over.sasPKɫwW`l>)m (~_001_macro.mcdictionary.sasPKɫwWC`x _001_macro.mchashtable.sasPKɫwWv+2 V. J_001_macro.qziparrays.sasPKɫwWV _001_macro.sortmacroarray.sasPKɫwWtK39 ӻ_001_macro.ziparrays.sasPKPmacroarray-1.2.3/macroarray.md000066400000000000000000002161611452773550200163600ustar00rootroot00000000000000- [The macroArray package](#macroarray) - [Content description](#content-description) * [`%appendArray()` macro](#appendarray-macro) * [`%appendCell()` macro](#appendcell-macro) * [`%array()` macro](#array-macro) * [`%concatArrays()` macro](#concatarrays-macro) * [`%deleteMacArray()` macro](#deletemacarray-macro) * [`%do_over()` macro](#do-over-macro) * [`%do_over2()` macro](#do-over2-macro) * [`%do_over3()` macro](#do-over3-macro) * [`%make_do_over()` macro](#make-do-over-macro) * [`%mcHashTable()` macro](#mchashtable-macro) * [`%mcDictionary()` macro](#mcdictionary-macro) * [`%QzipArrays()` macro](#qziparrays-macro) * [`%zipArrays()` macro](#ziparrays-macro) * [`%sortMacroArray()` macro](#sortmacroarray-macro) * [License](#license) --- # The macroArray package [ver. 1.2.3] ############################################### The **macroArray** package implements a macroarray facility: - `%array()`, - `%do_over()`, - `%make_do_over()`, - `%deletemacarray()`, - `%concatarrays()`, - `%appendcell()`, - `%mcHashTable()`, - `%zipArrays()`, - `%sortMacroArray()`, - `%mcDictionary()`, - etc. The set of macros, which emulates classic data-step-array functionality on the macro programming level, is provided. *Note:* If you are working with BIG macroarrays do not forget to verify your session setting for macro memory limits. Run: ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas proc options group = macro; run; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ to verify the following options: | option | description | |-------------:|:-----------------------------------------------------------------------------------------------| |`MEXECSIZE=` | specifies the maximum macro size that can be executed in memory. | |`MSYMTABMAX=` | specifies the maximum amount of memory available to the macro variable symbol table or tables. | |`MVARSIZE=` | specifies the maximum size for a macro variable that is stored in memory. | --- Package contains: 1. macro appendarray 2. macro appendcell 3. macro array 4. macro concatarrays 5. macro deletemacarray 6. macro do_over 7. macro do_over2 8. macro do_over3 9. macro make_do_over 10. macro mcdictionary 11. macro mchashtable 12. macro qziparrays 13. macro sortmacroarray 14. macro ziparrays Required SAS Components: *Base SAS Software* *SAS package generated by generatePackage, version 20231123* The SHA256 hash digest for package macroArray: `F*A0840B92EB9356EDB318DBE9B579A345C85ABF69E8D5F7C73C144C66F2F74FB4` --- # Content description ############################################################################################ ## >>> `%appendArray()` macro: <<< ############ The `%appendArray()` macro is a macrowrapper which allows to concatenate two macroarrays created by `%array()` macro. By default values of the second macroarray are *not* removed. Dimensions of the first macroarray are extended. The `%appendArray()` macro executes like a pure macro code. ### SYNTAX: ##################################################################### The basic syntax is the following, the `<...>` means optional parameters: ~~~~~~~~~~~~~~~~~~~~~~~sas %appendArray( first ,second ) ~~~~~~~~~~~~~~~~~~~~~~~ **Arguments description**: 1. `first` - *Required*, a name of a macroarray created by the `%array()` macro. 2. `second` - *Required*, a name of a macroarray created by the `%array()` macro. ### EXAMPLES AND USECASES: ###################################################### **EXAMPLE 1.** Append macroarrays LL and MM. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(ll[2:4] $ 12, function = quote(put(today() + 10*_I_, yymmdd10.)), macarray=Y ) %array(mm[10:13] $ 1200, function = quote(repeat("A",12*_I_)), macarray=Y ) %put *%ll(2)*%ll(3)*%ll(4)*; %appendArray(ll, mm); %put *%ll(2)*%ll(3)*%ll(4)*%ll(5)*%ll(6)**%ll(7)*%ll(8)*; %put *%mm(10)**%mm(11)*%mm(12)*%mm(13)*; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 2.** Error handling. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %appendArray(ll, ) %appendArray(, mm) %appendArray(noExistA, noExistB) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ --- ## >>> `%appendCell()` macro: <<< ############## The `%appendCell()` macro allows to append a macrovariable to a macroarray created by the `%array()` macro. Dimensions of the macroarray are extended. The `%appendCell()` macro executes like a pure macro code. ### SYNTAX: #################################################################### The basic syntax is the following, the `<...>` means optional parameters: ~~~~~~~~~~~~~~~~~~~~~~~sas %appendCell( first ,second ,hilo ) ~~~~~~~~~~~~~~~~~~~~~~~ **Arguments description**: 1. `first` - *Required*, a name of a macroarray created by the `%array()` macro. 2. `second` - *Required*, a name of a macrovariable to be append to the macroarray. 3. `hilo` - *Required*, if `H` macrovariable is appended at the end if `L` macrovariable is appended at the beginning ); ### EXAMPLES AND USECASES: #################################################### **EXAMPLE 1.** Create two macro wrappers. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %* Macro wrapper to append a macrovariable to the end of a macroarray; %macro appendHC(array,cell); %appendCell(&array.,&cell.,H) %mend appendHC; %* macro wrapper to append a macrovariable to the beginning of a macroarray; %macro appendLC(array,cell); %appendCell(&array.,&cell.,L) %mend appendLC; %* create macroarrays X and variables W,Y,Z; %array(X[2:4] $ ("AAA", "BBB", "CCC"), macarray=Y) %let W=1; %let Y=2; %let Z=3; %put *%do_over(X)*&=W*&=Y*&=Z*; %put BEFORE *%do_over(X)**&=xLBOUND*&=xHBOUND*&=xN*; %appendCell(X,Y,H) %put AFTER1 *%do_over(X)**&=xLBOUND*&=xHBOUND*&=xN*; %appendLC(X,W) %put AFTER2 *%do_over(X)**&=xLBOUND*&=xHBOUND*&=xN*; %appendHC(X,Z) %put AFTER3 *%do_over(X)**&=xLBOUND*&=xHBOUND*&=xN*; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 2.** Error handling ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %appendCell(X,Y,blahblah) %appendCell(X,,H) %appendCell(,Y,H) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 3.** Adding variable below lower bound. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(zero[0:2] $ ("AAA", "BBB", "CCC"), macarray=Y) %let belowzero=zzz; %put BEFORE *%do_over(zero)**&=zeroLBOUND*&=zeroHBOUND*&=zeroN*; %appendCell(zero,belowzero,L) %put AFTER *%do_over(zero)**&=zeroLBOUND*&=zeroHBOUND*&=zeroN*; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ --- ## >>> `%array()` macro: <<< ####################### The code of a macro was inspired by *Ted Clay's* and *David Katz's* macro `%array()`. The `%array()` macro version provided in the package is designed to facilitate the idea of macroarray concept, i.e. *a list of macrovariables with common prefix and numerical suffixes*. Usually such construction is then resolved by double ampersand syntax, e.g. `&&perfix&i` or similar one. What is new/extension to the `%array()` macro concept are: 0. The syntax is closer to the data step one. 1. It is a pure macro code (it can be executed in any place of 4GL code), this includes generating macroarrays out of datasets. 2. When a macroarrray is created it allows also to generate a new macro (named the same as the array name) and replace the double ampersand syntax with more array looking one, i.e. for array ABC user can have `%ABC(1)`, `%ABC(2)`, or `%ABC(&i)` constructions. 3. The array macro allows to use data step functions to generate array's entries. The `%array()` macro executes like a pure macro code. ### SYNTAX: ################################################################### The basic syntax is the following, the `<...>` means optional parameters: ~~~~~~~~~~~~~~~~~~~~~~~sas %array( array <,function=> <,before=> <,after=> <,vnames=N> <,macarray=N> <,ds=> <,vars=> <,q=> ) ~~~~~~~~~~~~~~~~~~~~~~~ **Arguments description**: 1. `array` - *Required*, an array name and a declaration/definition of an array,
e.g. `myArr[*] x1-x3 (4:6)`
or `myBrr[*] $ y1-y3 ("a" "b" "c")`
or `myCrr[3] $ ("d d d" "e,e,e" "f;f;f")`
or `myDrr p q r s`.
Macrovariables created by the macro are *global*. If an array name is `_` (single underscore) then attached variables list names are used, a call of the form: `%array(_[*] p1 q2 r3 s4 (-1 -2 -3 -4))` will create macrovariables: `p1`, `q2`, `r3`, and `s4` with respective values: `-1`, `-2`, `-3`, and `-4`.
Three additional *global* macrovariables: `LBOUND`, `HBOUND`, and `N` are generated with the macroarray. See examples for more use-cases. * `function=` - *Optional*, a function or an expression to be applied to all array cells, `_I_` is as array iterator, e.g. `_I_ + rand("uniform")`. * `before=` - *Optional*, a function or an expression to be added before looping through array, e.g. `call streaminit(123)`. * `after=` - *Optional*, a function or an expression to be added after looping through array, e.g. `call sortn(ABC)`. * `vnames=N` - *Optional*, default value `N`, if set to `Y`/`YES` then macroarray is built based on variables names instead values, e.g. `%array(myArr[*] x1-x3 (4:6), vnames=Y)` will use `x1`, `x2`, and `x3` as values instead `4`, `5`, and `6`. * `macarray=N` - *Optional*, default value `N`, if set to `Y`/`YES` then a macro, named with the array name, is compiled to create convenient envelope for multiple ampersands, e.g. `%array(myArr[*] x1-x3 (4:6), macarray=Y)` will create `%myArr(J)` macro which will allow to extract "data" from macroarray like: `%let x = %myArr(1);` or when used with second parameter equal `I` (insert) allow to overwrite macroarrays value: `%let %myArr(17,i) = 42;` If set to `M` then for a given array name the macro symbols table is scanned for macrovariables with prefix like the array name and numeric suffixes, then the minimum and the maximum index is determined and all not existing global macrovariables are created and a macro is generated in the same way as for the `Y` value. * `ds=` - *Optional*, use a dataset as a basis for a macroarray data, if used by default overwrites use of the `array` parameter, honors `macarray=` argument, dataset options are allowed, e.g. `sashelp.class(obs=5)` * `vars=` - *Optional*, a list of variables used to create macroarrays from a dataset, the list format can be as follows (`<...>` means optional): `variable1 <... variableN>` delimiters are hash(`#`) and pipe(`|`), currently only space is supported as separator, the meaning of `#` and `|` delimiters will be explained in the following example: if the `vars = height#h weight weight|w age|` value is provided then the following macroarrays will be created:
1) macroarray "H" with ALL(`#`) values of variable "height"
2) macroarray "WEIGHT" with ALL(no separator is equivalent to #) values of variable "weight"
3) macroarray "W" with UNIQUE(|) values of variable "weight" and
4) macroarray "AGE" with UNIQUE(|) values of variable "age". * `q=` - *Optional*, indicates (when set to `1` or '2') if the value should be surrounded by quotes. It uses `quote(cats(...))` combo under the hood. Default value is `0`. Value `1` is for apostrophes, value `2` is for double quotes. Ignored for `macarray=M`. --- ### EXAMPLES AND USECASES: #################################################### **EXAMPLE 1.** Basic use-case. Creating macroarray like in the array statement. Values not variables names are used by default. Different types of brackets are allowed. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(a[*] x1-x5 (1:5)) %array(b{5} (5*17), q=1) %* Mind the $ since it is a character array!; %array(c(3) $ 10 ("a A" "b,B" "c;C")) %array(d x1-x5 (5 4 3 2 1)) %put _user_; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 2.** Index ranges. If range starts < 0 then it is shifted to 0. In case when range is from `1` to `M` then macrovariable `N` is set to `M` In case when range is different the `N` returns number of elements in the array `(Hbound - Lbound + 1)`. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(d[-2:2] $ ("a" "b" "c" "d" "e")) %put &=dLBOUND. &=dHBOUND. &=dN.; %put &=d0. &=d1. &=d2. &=d3. &=d4.; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 3.** Functions. It is possible to assign value of a function or an expression to a cell of the array, e.g. `array[_I_] = function(...)`. You can use an iterator in a function. As in case of usual arrays it is `_I_`. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(e[-3:3] $, function = "A" ) %put &=eLBOUND. &=eHBOUND. &=eN.; %put &=e0. &=e1. &=e2. &=e3. &=e4. &=e5. &=e6.; %array(f[-3:3], function = (2**_I_) ) %put &=fLBOUND. &=fHBOUND. &=fN.; %put &=f0. &=f1. &=f2. &=f3. &=f4. &=f5. &=f6.; %array(g[0:2], function = ranuni(123) ) %put &=gLBOUND. &=gHBOUND. &=gN.; %put &=g0. &=g1. &=g2.; %* Or something more complex; %array(gg[0:11] $ 11, function = put(intnx("MONTH", '1jun2018'd, _I_, "E"), yymmn.), q=1) %put &=ggLBOUND. &=ggHBOUND. &=ggN.; %put &=gg0 &=gg1 &=gg2 ... &=gg11; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 4.** Functions cont. If there is need for set-up something *before* or *after*: ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(h[10:12] ,function = rand('Uniform') ,before = call streaminit(123) ,after = call sortn(of h[*]) ) %put &=h10. &=h11. &=h12.; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 5.** Fibonacci series. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(i[1:10] (10*0) ,function = ifn(_I_ < 2, 1, sum(i[max(_I_-2,1)], i[max(_I_-1,2)]) ) ) %put &=i1 &=i2 &=i3 &=i4 &=i5 &=i6 &=i7 &=i8 &=i9 &=i10; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 6a.** Quoted "Uppercas Letters" ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(UL[26] $, function = byte(rank("A")+_I_-1) , q=1) %put &=UL1 &=UL2 ... &=UL25 &=UL26; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 6b.** "Lowercase Letters" Extended by `macarray=Y` option and the input mode support (with `I`). ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(ll[26] $, function = byte(rank("a")+_I_-1), macarray=Y) %put *%ll(&llLBOUND.)*%ll(3)*%ll(4)*%ll(5)*...*%ll(25)*%ll(&llHBOUND.)*; %* The range handling, warning; %put *%ll(265)*; %* The input mode; %put *before:*%ll(2)*; %let %ll(2,I) = bbbbb; %put *after: *%ll(2)*; %* The range handling, error; %let %ll(265,I) = bbb; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 7.** The use of `vnames=Y` ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(R R1978-R1982) %put &=R1 &=R2 &=R3 &=R4 &=R5; %array(R R1978-R1982 (78:82)) %put &=R1 &=R2 &=R3 &=R4 &=R5; %array(R R1978-R1982 (78:82), vnames=Y) %put &=R1 &=R2 &=R3 &=R4 &=R5; %array(R R1978-R1982, vnames=Y) %put &=R1 &=R2 &=R3 &=R4 &=R5; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 8.** A "no name" array i.e. the `_[*]` array ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(_[*] x1-x5 (1:5)) %put _user_; %array(_[*] p q r s (4*42)) %put _user_; %* If no variables names than use _1 _2 ... _N; %array(_[4] (-1 -2 -3 -4)) %put &=_1 &=_2 &=_3 &=_4; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 9.** Pure macro code can be used in a data step. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas data test1; set sashelp.class; %array(ds[*] d1-d4 (4*17)) a1 = &ds1.; a2 = &ds2.; a3 = &ds3.; a4 = &ds4.; run; data test2; set sashelp.class; %array(_[*] j k l m (4*17)) a1 = &j.; a2 = &k.; a3 = &l.; a4 = &m.; run; data test3; set sashelp.class; %array(alpha[*] j k l m (101 102 103 104), macarray=Y) a1 = %alpha(1); a2 = %alpha(2); a3 = %alpha(3); a4 = %alpha(4); a5 = %alpha(555); run; data test4; set sashelp.class; %array(beta[*] j k l m (101 102 103 104), vnames=Y, macarray=Y) a1 = "%beta(1)"; a2 = "%beta(2)"; a3 = "%beta(3)"; a4 = "%beta(4)"; a5 = "%beta(555)"; run; data test5; set sashelp.class; %array(gamma[4] $ 12 ("101" "102" "103" "104"), macarray=Y) a1 = "%gamma(1)"; a2 = "%gamma(2)"; a3 = "%gamma(3)"; a4 = "%gamma(4)"; a5 = "%gamma(555)"; run; data test6; set sashelp.class; %array(ds = sashelp.cars, vars = Cylinders|, macarray=Y) a0 = %Cylinders(0); a1 = %Cylinders(1); a2 = %Cylinders(2); a3 = %Cylinders(3); a4 = %Cylinders(4); a5 = %Cylinders(555); run; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 10.** Creating an array from a dataset, basic case. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(ds = sashelp.class, vars = height weight age) %put _user_; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 11. Creating an array from a dataset, advanced. If: `vars = height#h weight weight|w age|` then create: 1. macroarray "h" with ALL(#) values of variable "height" 2. macroarray "weight" with ALL(no separator is equivalent to #) values of variable "weight" 3. macroarray "w" with UNIQUE(|) values of variable "weight" 4. macroarray "age" with UNIQUE(|) values of variable "age" Currently the only separator in VARS is a space. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(ds = sashelp.class, vars = height#h weight weight|w age|, q=1) %put _user_; %array(ds = sashelp.class, vars = height#hght weight weight|wght age|, macarray=Y, q=1) %put *%hght(&hghtLBOUND.)**%weight(2)**%wght(&wghtHBOUND.)**%age(3)*; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 12.** Creating an array from a dataset with dataset options ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(ds = sashelp.cars(obs=100 where=(Cylinders=6)), vars = Make| Type| Model, macarray=Y) %put *%make(&makeLBOUND.)*%Model(2)*%Model(3)*%Model(4)*%type(&typeHBOUND.)*; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 13.** Creating an array and macro from existing list of macrovariables ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %let myTest3 = 13; %let myTest6 = 16; %let myTest9 = 19; %array(myTest, macarray=M, q=1) %do_over(myTest, phrase = %nrstr(%put *&_I_.*%myTest(&_I_.)*;)) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ --- ## >>> `%concatArrays()` macro: <<< ########### The `%concatArrays()` macro allows to concatenate two macroarrays created by the `%array()` macro. By default values of the second macroarray are removed. Dimensions of the first macroarray are extended. The `%concatArrays()` macro executes like a pure macro code. ### SYNTAX: ##################################################################### The basic syntax is the following, the `<...>` means optional parameters: ~~~~~~~~~~~~~~~~~~~~~~~sas %concatArrays( first ,second <,removeSecond=Y> ) ~~~~~~~~~~~~~~~~~~~~~~~ **Arguments description**: 1. `first` - *Required*, a name of a macroarray created by the `%array()` macro. 2. `second` - *Required*, a name of a macroarray created by the `%array()` macro. * `removeSecond=Y` - *Optional*, default value `Y`, if set to `Y` then the second array is removed. ### EXAMPLES AND USECASES: #################################################### **EXAMPLE 1.** Concatenate macroarrays LL and MM. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(ll[2:4] $ 12, function = quote(put(today() + 10*_I_, yymmdd10.)), macarray=Y ) %array(mm[10:13] $ 12000, function = quote(repeat("A",123*_I_)), macarray=Y ) %put *%ll(2)*%ll(3)*%ll(4)*; %concatArrays(ll, mm); %put *%ll(2)*%ll(3)*%ll(4)*%ll(5)*%ll(6)**%ll(7)*%ll(8)*; %put *%mm(10)**%mm(11)*%mm(12)*%mm(13)*; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 2.** Error handling. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %concatArrays(ll, ) %concatArrays(, mm) %concatArrays(noExistA, noExistB) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ --- ## >>> `%deleteMacArray()` macro: <<< ####### The `%deleteMacArray()` macro allows to delete macroarrays created by the `%array()` macro. The `%deleteMacArray()` macro executes like a pure macro code. ### SYNTAX: ##################################################################### The basic syntax is the following, the `<...>` means optional parameters: ~~~~~~~~~~~~~~~~~~~~~~~sas %deleteMacArray( arrs <,macarray=N> ) ~~~~~~~~~~~~~~~~~~~~~~~ **Arguments description**: 1. `arrs` - *Required*, a space separated list of manes of macroarray created by the `%array()` macro. * `macarray=N` - *Optional*, indicator should a macro associated with macroarray to be deleted? If `Y` or `YES` then the associated macro is deleted. ## >>> `%do_over()` macro: <<< ###################### The code of the macro was inspired by *Ted Clay's* and *David Katz's* macro `%do_over()`. The `%DO_OVER()` macro allows to iterate over macroarray created with the `macarray=Y` parameter of the `%ARRAY()` macro. The `%do_over()` macro executes like a pure macro code. ### SYNTAX: ##################################################################### The basic syntax is the following, the `<...>` means optional parameters: ~~~~~~~~~~~~~~~~~~~~~~~sas %do_over( array <,phrase=%nrstr(%&array(&_I_.))> <,between=%str( )> <,which = > ) ~~~~~~~~~~~~~~~~~~~~~~~ **Arguments description**: 1. `array` - *Required*, indicates a macroarray which metadata (Lbound, Hbouns) are to be used to loop in the `%do_over()` * `phrase=` - *Optional*, Default value `%nrstr(%&array(&_I_.))`, a statement to be called in each iteration of the internal do_over's loop. Loop iterator is `_I_`, if you want to use `_I_` or array name [e.g. `%myArr(&_I_.)`] *enclose it* in the `%NRSTR()` macro quoting function. * `between=` - *Optional*, default value `%str( )` (space), a statement to be called in between each iteration of the internal do_over loop. If macroquoted (e.g. `%str( + )`) then the `%unquote()` function is automatically applied. * `which=` - *Optional*, a _SPACE_ separated list of indexes which should be used to iterate over selected macroarray. Possible special characters are `H` and `L` which means *high* and *low* bound of an array, list could be set with colons(`:`) in form of `start:end:by` (*no spaces between!*), if `by` is omitted the default is `1`. If possible use `1:5` rather `1 2 3 4 5` since the firs works faster. ### EXAMPLES AND USECASES: #################################################### **EXAMPLE 1.** Simple looping. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(beta[*] j k l m (101 102 103 104), vnames=Y, macarray=Y) %put #%do_over(beta)#; %put #%do_over(beta, phrase=%nrstr("%beta(&_I_.)"), between=%str(,))#; data test1; %array(beta[*] j k l m (101 102 103 104), vnames=Y, macarray=Y) %do_over(beta, phrase=%nrstr(a&_I_. = "%beta(&_I_.)";)) put _all_; run; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 2.** Multiple arrays looping. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(alpha[*] j k l m n, vnames=Y, macarray=Y) %array( beta[5] $ , function = "a", macarray=Y) %array(gamma[4] (101 102 103 104), macarray=Y) data test2; call streaminit(123); %do_over(beta , phrase = %nrstr(%beta(&_I_.) = %gamma(&_I_.) * rand('Uniform'); output;) , between = put _all_; ); put _all_; run; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 3.** Multiple arrays looping, cont. Create multiple datasets. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %do_over(beta , phrase = %nrstr( data %alpha(&_I_.)2; call streaminit(123); %beta(&_I_.)x = %gamma(&_I_.) * rand('Uniform'); output; run; ) ) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 4.** Multiple arrays looping, cont. Create multiple datasets using a macro. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %macro doit(ds, var=a, val=1); data &ds.; call streaminit(123); &var. = &val. * rand('Uniform'); output; run; %mend doit; %do_over(beta , phrase = %nrstr( %DOIT(%alpha(&_I_.)1, var = %beta(&_I_.), val = %gamma(&_I_.)) ) ) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 5.** `%do_over()` inside `%array()` ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(test[*] x1-x12 (1:12), macarray=Y) %put **%test(1)**%test(12)**; %put #%do_over(test)#; %array(abc[*] x1-x12 (%do_over(test,phrase=%nrstr(%eval(100-%test(&_I_.))))), macarray=Y) %put **%abc(1)**%abc(12)**; %put #%do_over(abc)#; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 6.** Looping over array with *macroquoted* separator. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(alpha[11] (5:15), macarray=Y) %let x = %do_over(alpha , phrase = %NRSTR(%alpha(&_I_.)) , between= %str( + ) ); %put &=x.; %put %sysevalf(&x.); ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 7.** Working with the `WHICH=` optional parameter ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(test[*] x01-x12, vnames= Y, macarray=Y) %put #%do_over(test)#; %put #%do_over(test, which= 1 3 5)#; %put #%do_over(test, which= 1:5)#; %put #%do_over(test, which= 1:5:2 7 8)#; %put #%do_over(test, which= L:H l:h)#; %put #%do_over(test, which= L:3 10:h)#; %put #%do_over(test, which= L:H h:l:-1 13 14)#; %put #%do_over(test, which= %eval(1+1):%eval(5+1))#; %put #%do_over(test, which= L:H h:l:-1 13 14, between=%str(,))#; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ --- ## >>> `%do_over2()` macro: <<< #################### The code of the macro was inspired by *Ted Clay's* and *David Katz's* macro `%do_over()`. The `%DO_OVER2()` macro allows to iterate over *two* macroarray created with the `macarray=Y` parameter of the `%ARRAY()` macro. The `%do_over2()` macro executes like a pure macro code. ### SYNTAX: ##################################################################### The basic syntax is the following, the `<...>` means optional parameters: ~~~~~~~~~~~~~~~~~~~~~~~sas %do_over2( arrayI ,arrayJ <,phrase=%nrstr(%&arrayI(&_I_.) %&arrayJ(&_J_.))> <,between=%str( )> ) ~~~~~~~~~~~~~~~~~~~~~~~ **Arguments description**: 1. `arrayI` - Required, indicates the first macroarray which metadata (Lbound, Hbouns) are to be used in the outer loop in the `%do_over2()` 2. `arrayJ` - Required, indicates the second macroarray which metadata (Lbound, Hbouns) are to be used in the inner loop in the `%do_over2()` * `phrase=` - *Optional*, default value `%nrstr(%&arrayI(&_I_.) %&arrayJ(&_J_.))`, a statement to be called in each iteration of the *inner* loop. The outer loop iterator is `_I_`, the inner loop iterator is `_J_`, if you want to use `_I_`, `_J_`, or arrays names [e.g. `%myArr(&_I_.)`] *enclose them* in the `%NRSTR()` macro quoting function. * `between=` - *Optional*, default value `%str( )` (space), a statement to be called in between each iteration of the internal do_over2 loop. If macroquoted (e.g. `%str( + )`) then the `%unquote()` function is automatically applied. ### EXAMPLES AND USECASES: #################################################### **EXAMPLE 1.** Looping over two arrays. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(alpha[*] j k l m n, vnames=Y, macarray=Y) %array( beta[4] (101 102 103 104), macarray=Y) %put *%do_over2(alpha, beta , phrase = %NRSTR((%alpha(&_I_.), %beta(&_J_))) )*; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 2.** Looping over two arrays with a separator. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(alpha[11] (5:15), macarray=Y) %array( beta[ 4] (101 102 103 104), macarray=Y) %let x = %do_over2(alpha, beta , phrase = %NRSTR((%alpha(&_I_.) * %beta(&_J_))) , between= + ); %put &=x.; %put %sysevalf(&x.); ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 3.** Looping over two arrays with *macroquoted* separator. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(alpha[11] (5:15), macarray=Y) %array( beta[ 4] (101 102 103 104), macarray=Y) %let x = %do_over2(alpha, beta , phrase = %NRSTR((%alpha(&_I_.) * %beta(&_J_))) , between= %str( + ) ); %put &=x.; %put %sysevalf(&x.); ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ --- ## >>> `%do_over3()` macro: <<< #################### The code of the macro was inspired by *Ted Clay's* and *David Katz's* macro `%do_over()`. The `%DO_OVER3()` macro allows to iterate over *three* macroarray created with the `macarray=Y` parameter of the `%ARRAY()` macro. The `%do_over3()` macro executes like a pure macro code. ### SYNTAX: ##################################################################### The basic syntax is the following, the `<...>` means optional parameters: ~~~~~~~~~~~~~~~~~~~~~~~sas %do_over2( arrayI ,arrayJ ,arrayK <,phrase=%nrstr(%&arrayI(&_I_.) %&arrayJ(&_J_.) %&arrayK(&_K_.))> <,between=%str( )> ) ~~~~~~~~~~~~~~~~~~~~~~~ **Arguments description**: 1. `arrayI` - *Required*, indicates the first macroarray which metadata (Lbound, Hbouns) are to be used in the outer loop in the `%do_over3()` 2. `arrayJ` - *Required*, indicates the second macroarray which metadata (Lbound, Hbouns) are to be used in the inner loop in the `%do_over3()` 3. `arrayK` - *Required*, indicates the third macroarray which metadata (Lbound, Hbouns) are to be used in the inner loop in the `%do_over3()` * `phrase=` - *Optional*, default value `%nrstr(%&arrayI(&_I_.) %&arrayJ(&_J_.) %&arrayK(&_K_.))`, a statement to be called in each iteration of the *inner* loop. The *outer* loop iterator is `_I_`, the *middle* loop iterator is `_J_`, the *inner* loop iterator is `_K_`, if you want to use `_I_`, `_J_`, `_K_`, or arrays names [e.g. `%myArr(&_I_.)`] *enclose them* in the `%NRSTR()` macro quoting function. * `between=` - *Optional*, default value `%str( )` (space), a statement to be called in between each iteration of the internal do_over2 loop. If macroquoted (e.g. `%str( + )`) then the `%unquote()` function is automatically applied. ### EXAMPLES AND USECASES: #################################################### **EXAMPLE 1.** Looping over 3 macroarrays. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(a1_[2] (0 1), macarray=Y) %array(a2_[2] (2 3), macarray=Y) %array(a3_[2] (4 5), macarray=Y) %do_over3(a1_, a2_, a3_ , phrase = %NRSTR(%put (%a1_(&_I_.), %a2_(&_J_), %a3_(&_K_));) ) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 2.** Looping 3 times over a macroarray. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(a[0:2] (0 1 2), macarray=Y) %do_over3(a, a, a , phrase = %NRSTR(%put (%a(&_I_.), %a(&_J_), %a(&_K_));) ) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ --- ## >>> `%make_do_over()` macro: <<< ########### The code of the macro was inspired by *Ted Clay's* and *David Katz's* macro `%do_over()`. The `%make_do_over()` macro allows to generate the `%DO_OVER()` macros. It works *only* for *n>3*! The `%make_do_over()` macro does *not* executes like a pure macro code. ### SYNTAX: ##################################################################### The basic syntax is the following, the `<...>` means optional parameters: ~~~~~~~~~~~~~~~~~~~~~~~sas %make_do_over( size ) ~~~~~~~~~~~~~~~~~~~~~~~ **Arguments description**: 1. `size` - *Required*, indicates the number of dimensions (i.e. inner loops) of the `%DO_OVER()` macro. ### EXAMPLES AND USECASES: #################################################### **EXAMPLE 1.** Code of created "4-loop" `%DO_OVER4()` macro ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %macro do_over4( arrayI1, arrayI2, arrayI3, arrayI4, phrase=%nrstr( %&arrayI1(&_I1_.) %&arrayI2(&_I2_.) %&arrayI3(&_I3_.) %&arrayI3(&_I4_.) ), between=%str( ) ); %local _I1_ _I2_ _I3_ _I4_; %do _I1_ = &&&arrayI1.LBOUND %to &&&arrayI1.HBOUND; %do _I2_ = &&&arrayI2.LBOUND %to &&&arrayI2.HBOUND; %do _I3_ = &&&arrayI3.LBOUND %to &&&arrayI3.HBOUND; %do _I4_ = &&&arrayI4.LBOUND %to &&&arrayI4.HBOUND; %if not ( &_I1_. = &&&arrayI1.LBOUND AND &_I2_. = &&&arrayI2.LBOUND AND &_I3_. = &&&arrayI3.LBOUND AND &_I4_. = &&&arrayI4.LBOUND ) %then %do;%unquote(&between.)%end;%unquote(%unquote(&phrase.)) %end; %end; %end; %end; %mend do_over4; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 2.** Create a "4-loop" `%DO_OVER4()` macro ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %make_do_over(4); %array(a1_[2] (0 1), macarray=Y) %do_over4(a1_, a1_, a1_, a1_ , phrase = %NRSTR(%put (%a1_(&_I1_.), %a1_(&_I2_), %a1_(&_I3_), %a1_(&_I4_));) ) %put *%do_over4(a1_, a1_, a1_, a1_ , between = * )*; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 3.** Create a "5-loop" `%DO_OVER5()` macro ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %make_do_over(5); %array(a1_[2] (0 1), macarray=Y) %do_over5(a1_, a1_, a1_, a1_, a1_ , phrase = %NRSTR(%put (%a1_(&_I1_.), %a1_(&_I2_), %a1_(&_I3_), %a1_(&_I4_), %a1_(&_I5_));) ) %put *%do_over5(a1_, a1_, a1_, a1_, a1_ , between = * )* ; options nomprint; data test2; %do_over5(a1_, a1_, a1_, a1_, a1_ , phrase = %NRSTR(x1 = %a1_(&_I1_.); x2 = %a1_(&_I2_); x3 = %a1_(&_I3_); x4 = %a1_(&_I4_); x5 = %a1_(&_I5_);) , between = output; ) output; run; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 4.** Create all from 6 to 10 "do_overs" ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(loop[6:10] (6:10), macarray=Y) %do_over(loop , phrase = %nrstr( %make_do_over(%loop(&_I_.)) ) ); ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ --- ## >>> `%mcHashTable()` macro: <<< ####################### The `%mcHashTable()` macro provided in the package is designed to facilitate the idea of a "macro hash table" concept, i.e. *a list of macrovariables with common prefix and suffixes generated as a hash digest* which allows to use values other than integers as indexes. The `%mcHashTable()` macro allows to generate other macros which behaves like hash tables or dictionaries. See examples below. The `%mcHashTable()` macro executes like a pure macro code. ### SYNTAX: ################################################################### The basic syntax is the following, the `<...>` means optional parameters: ~~~~~~~~~~~~~~~~~~~~~~~sas %mcHashTable( H <,METHOD> <,HASH=> ) ~~~~~~~~~~~~~~~~~~~~~~~ **Arguments description**: 1. `H` - *Required*, a hash table macro name and a declaration/definition, e.g. `mcHashTable(HT)`. It names a macro which is generated by the `%mcHashTable()` macro. Provided name cannot be empty or an underscore (`_`). No longer than *16* characters. 2. `METHOD` - *Optional*, if empty (or DECLARE or DCL) then the code of a macro hash table is compiled. If `DELETE` then the macro hash table named by `H` and all macrovariables named like "`&H._`" are deleted. * `HASH=` - *Optional*, indicates which hashing algorithms should be used, available values are `CRC32` or `MD5`, the `CRC32` is the default. --- ### THE CREATED MACRO `%&H.()`: #################################################### The created macro imitates behaviour of a hash table or a dictionary. It is *not* dedicated for "long-ish" lists (above 1000 elements) since the performance may be poor. The basic syntax is the following, the `<...>` means optional parameters: ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %&H.( METHOD <,KEY=> <,DATA=> ) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **Arguments description**: 1. `METHOD` - *Required*, indicate what behaviour should be executed. Allowed values are: - `ADD`, adds key and data portion to the macro hash table, *multiple data portions* are available for one key. - `FIND`, tests if given key exists in the macro hash table and, if yes, returns data value associated with the key. For multiple data portions see the `data=` parameter. - `DP` (data portion) or `CHECK`, returns the number of data portions for a given key. - `CLEAR` removes all data and keys values. - `KEYIDX`, allows to get data by the key index rather than value. - `KEYVAL`, returns key value for a given key index. - `CHECKIDX`, returns the number of data portions for a given key index. * `KEY=` - *Optional*, provides key value for `ADD`, `FIND`,`DP`, `CHECK` `CHECKIDX`, `KEYIDX`, and `KEYVAL` methods. Leading and trimming spaces are removed from the value. The `hashing(CRC32,...)` function or the `MD5(...)` function is used to generate the hash. * `DATA=` - *Optional*, provides data value for the `ADD` method and for the`FIND` method provides data portion number to be extracted. Default value is `1` (used by the `FIND` method). When macro is executed and when data are added the following types of *global* macrovariables are created: - `&H._########`, - `&H._########_Xk`, - `&H._########_Xi`, - `&H._########_Xi_j`, - `&H._KEYNUM`, - and `&H._KEY_i`. The `#` represents value generated by the `hashing(CRC32,...)` function or the `MD5(...)` function for the given key. The first type keeps information about possible collision for the key. The second type keeps information about value of a given key, the `X` keeps the track of other colliding keys. The third type keeps information about number of data portions for given key, the `X` keeps the track of other colliding keys. The fourth type keeps the data portion, the `j` indicates data portion number. The fifth type keeps the number of unique values of the key. The sixth type keeps the list of unique values of the key, the `i` indicates key number. See examples below to see use cases. --- ### EXAMPLES AND USECASES: #################################################### **EXAMPLE 1.** Basic use-case. Creating macro hash table, macro `HT` is generated. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %mcHashTable(HT) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Add elements to the `HT`. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %HT(ADD,key=x,data=17) %HT(ADD,key=y,data=42) %HT(ADD,key=z,data=303) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Add some duplicates for the key x. See macrovariables created. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %HT(ADD,key=x,data=18) %HT(ADD,key=x,data=19) %put _user_; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Check the number od data portions in macrohash for the key `x` and non existing key `t`. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %put ##%HT(DP,key=x)##; %put ##%HT(DP,key=t)##; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Check the number od data portions in macrohash for the key index 1 and 4. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %put ##%HT(CHECKIDX,key=1)##; %put ##%HT(CHECKIDX,key=4)##; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Prints first data values for various keys. Key `t` does not exist in the macrohash. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %put #%HT(FIND,key=x)#; %put #%HT(FIND,key=y)#; %put #%HT(FIND,key=z)#; %put #%HT(FIND,key=t)#; %put #%HT(FIND,key=x,data=2)#; %put #%HT(FIND,key=x,data=3)#; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Print first and subsequent data values for a given KeyIDX. Index `4` does not exist. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %put #%HT(KEYIDX,key=1)#; %put #%HT(KEYIDX,key=2)#; %put #%HT(KEYIDX,key=3)#; %put #%HT(KEYIDX,key=4)#; %put #%HT(KEYIDX,key=1,data=2)#; %put #%HT(KEYIDX,key=1,data=3)#; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Print the key values for a given KeyIDX. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %put #%HT(KEYVAL,key=1)#; %put #%HT(KEYVAL,key=2)#; %put #%HT(KEYVAL,key=3)#; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Clear and delete macro hash table `HT`. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %HT(CLEAR) %mcHashTable(HT,DELETE) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 2.** Combine `CHECK` and `FIND` methods with macros `%array()` and `%do_over()` ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %mcHashTable(H) %H(ADD,key=x,data=17) %H(ADD,key=x,data=18) %H(ADD,key=x,data=19) %array(A[%H(CHECK,key=x)]); %put %do_over(A, phrase=%nrstr( %H(FIND,key=x,data=&_i_) ), between = %str(,)); %mcHashTable(H,delete) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 3.** Populate macro hash table from a dataset. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %mcHashTable(CLASS) %let t = %sysfunc(datetime()); data _null_; set sashelp.class; call execute('%CLASS(ADD,key=' !! name !! ',data=' !! age !! ')'); call execute('%CLASS(ADD,key=' !! name !! ',data=' !! weight !! ')'); call execute('%CLASS(ADD,key=' !! name !! ',data=' !! height !! ')'); run; %put t = %sysevalf(%sysfunc(datetime()) - &t.); %put _user_; %CLASS(CLEAR) %mcHashTable(CARS) %let t = %sysfunc(datetime()); data _null_; set sashelp.cars; call execute('%CARS(ADD,key=' !! catx("|",make,model) !! ',data=' !! MPG_CITY !! ')'); run; %put t = %sysevalf(%sysfunc(datetime()) - &t.); %* %put _user_; %CARS(CLEAR) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 4.** Data portion may require quoting and un-quoting.. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %mcHashTable(CODE) %CODE(CLEAR) %CODE(ADD,key=data, data=%str(data test; x = 42; run;)) %CODE(ADD,key=proc, data=%str(proc print; run;)) %CODE(ADD,key=macro,data=%nrstr(%put *****;)) %CODE(FIND,key=data) %CODE(FIND,key=proc) %unquote(%CODE(FIND,key=macro)) %mcHashTable(CODE,DELETE) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 5.** Longer lists. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %let size = 1000; %mcHashTable(AAA) %mcHashTable(BBB) %mcHashTable(CCC) %mcHashTable(DDD) %let t = %sysfunc(datetime()); data _null_; do i = 1 to &size.; call execute(cats('%AAA(ADD,key=A', i, ',data=', i, ')')); end; run; %put t = %sysevalf(%sysfunc(datetime()) - &t.); %put &=AAA_KEYSNUM; %AAA(CLEAR) %let t = %sysfunc(datetime()); data _null_; do i = 1 to &size.; call execute(cats('%BBB(ADD,key=B', i, ',data=', i, ')')); call execute(cats('%BBB(ADD,key=B', i, ',data=', i+1, ')')); end; run; %put t = %sysevalf(%sysfunc(datetime()) - &t.); %put &=BBB_KEYSNUM; %BBB(CLEAR) %let t = %sysfunc(datetime()); data _null_; t= datetime(); do i = 1 to &size.; call execute(cats('%CCC(ADD,key=C', i, ',data=', i, ')')); end; t = datetime() - t; put t=; t= datetime(); do i = 1 to &size.; call execute(cats('%CCC(ADD,key=C', i, ',data=', i+1, ')')); end; t = datetime() - t; put t=; run; %put t = %sysevalf(%sysfunc(datetime()) - &t.); %let t = %sysfunc(datetime()); data test; do i = 1 to &size.; x = resolve(cats('%CCC(FIND,key=C', i, ',data=1)')); y = resolve(cats('%CCC(FIND,key=C', i, ',data=2)')); output; end; run; %put t = %sysevalf(%sysfunc(datetime()) - &t.); %put &=CCC_KEYSNUM; %CCC(CLEAR) %let t = %sysfunc(datetime()); data _null_; do i = 1 to &size.; call execute(cats('%DDD(ADD,key=D,data=', i, ')')); end; run; %put t = %sysevalf(%sysfunc(datetime()) - &t.); %put &=DDD_KEYSNUM; %put %DDD(CHECK,key=D); %DDD(CLEAR) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 6.** Forbidden names. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %mcHashTable() %mcHashTable(_) %mcHashTable(ABCDEFGHIJKLMNOPQ) %* bad; %mcHashTable(ABCDEFGHIJKLMNOP) %* good; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 7.** Hashing algorithms. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %mcHashTable(H1,DCL,HASH=MD5) %mcHashTable(H2,DECLARE,HASH=CRC32) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ --- ## >>> `%mcDictionary()` macro: <<< ####################### The `%mcDictionary()` macro provided in the package is designed to facilitate the idea of a "macro dictionary" concept, i.e. *a list of macrovariables with common prefix and suffixes generated as a hash digest* which allows to use values other than integers as indexes. The `%mcDictionary()` macro allows to generate other macros which behaves like a dictionary. See examples below. The `%mcDictionary()` macro executes like a pure macro code. ### SYNTAX: ################################################################### The basic syntax is the following, the `<...>` means optional parameters: ~~~~~~~~~~~~~~~~~~~~~~~sas %mcDictionary( H <,METHOD> <,DS=> <,K=Key> <,D=Data> ) ~~~~~~~~~~~~~~~~~~~~~~~ **Arguments description**: 1. `H` - *Required*, a dictionary macro name and a declaration/definition, e.g. `mcDictionary(HT)`. It names a macro which is generated by the `%mcDictionary()` macro. Provided name cannot be empty or an underscore (`_`). No longer than *16* characters. 2. `METHOD` - *Optional*, if empty (or DECLARE or DCL) then the code of a macro dictionary is compiled. If `DELETE` then the macro dictionary named by `H` and all macrovariables named like "`&H._`" are deleted. * `DS=` - *Optional*, if NOT empty then the `&DS.` dataset is used to populate dictionary with keys from variable `&K.` and data from variable `&D.` Works only during declaration. * `K=` - *Optional*, if the `&DS.` is NOT empty then `&K.` holds a name of a variable which keeps or an expression which generates keys values. Default is `Key`. * `D=` - *Optional*, if the `&DS.` is NOT empty then `&D.` holds a name of a variable which keeps or an expression which generates data values. Default is `Data`. --- ### THE CREATED MACRO `%&H.()`: #################################################### The created macro imitates behaviour of a dictionary. The basic syntax is the following, the `<...>` means optional parameters: ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %&H.( METHOD <,KEY=> <,DATA=> ) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **Arguments description**: 1. `METHOD` - *Required*, indicate what behaviour should be executed. Allowed values are: - `ADD`, adds key and data portion to the macro dictionary, *multiple data portions* are NOT available for one key. - `FIND`, tests if given key exists in the macro dictionary and, if yes, returns data value associated with the key. For multiple data portions see the `data=` parameter. - `CHECK`, returns indicator if the key exists in dictionary. - `DEL`, removes key and data portion from the macro dictionary. - `LIST`, prints out a dictionary to the log. - `CLEAR` removes all data and keys values. * `KEY=` - *Optional*, provides key value for `ADD`, `FIND`, `CHECK` and `DEL` methods. Leading and trimming spaces are removed from the value. The `MD5(...)` function is used to generate the hash. Default value is `_`. * `DATA=` - *Optional*, provides data value for the `ADD` method. Default value is blank. When macro is executed and when data are added the following types of *global* macrovariables are created: - `&H._########_K`, - `&H._########_V`, - `&H._KEYSNUM`. The `#` represents value generated by the `MD5(...)` function for the given key. The first type keeps information about the key. The second type keeps information about the value of a given key The third type keeps the number of unique values of the key. See examples below to see use cases. --- ### EXAMPLES AND USECASES: #################################################### **EXAMPLE 1.** Basic use-case. Creating macro dictionary, macro `Dict` is generated. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %mcDictionary(Dict) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Add elements to the `Dict`. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %Dict(ADD,key=x,data=17) %Dict(ADD,key=y y,data=42) %Dict(ADD,key=z z z,data=303) %put _user_; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Add some duplicates for the key x. See macrovariables created. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %Dict(ADD,key=x,data=18) %put _user_; %Dict(ADD,key=x,data=19) %put _user_; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Check for the key `x` and non existing key `t`. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %put ##%Dict(CHECK,key=x)##; %put ##%Dict(CHECK,key=t)##; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Prints data values for various keys. Key `t` does not exist in the macrodictionary. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %put #%Dict(FIND,key=x)#; %put #%Dict(FIND,key=y y)#; %put #%Dict(FIND,key=z z z)#; %put #%Dict(FIND,key=t)#; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ List dictionary content to the log. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %Dict(LIST); ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Delete keys. Key `t` does not exist in the macrodictionary. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %put #%Dict(DEL,key=z z z)#; %put _user_; %put #%Dict(DEL,key=t)#; %put _user_; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Clear and delete macro dictionary `Dict`. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %Dict(CLEAR) %put _user_; %mcDictionary(Dict,DELETE) %put _user_; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 2A.** Populate macro dictionary from a dataset "by hand". ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %mcDictionary(CLASS) %let t = %sysfunc(datetime()); data _null_; set sashelp.class; call execute('%CLASS(ADD,key=' !! name !! ',data=' !! age !! ')'); run; %put t = %sysevalf(%sysfunc(datetime()) - &t.); %put &=Class_KEYSNUM.; %put _user_; %CLASS(CLEAR) %mcDictionary(CARS) %let t = %sysfunc(datetime()); data _null_; set sashelp.cars(obs=42); call execute('%CARS(ADD,key=' !! catx("|",make,model,type) !! ',data=' !! put(MPG_CITY*10,dollar10.2) !! ')'); run; %put t = %sysevalf(%sysfunc(datetime()) - &t.); %put &=CARS_KEYSNUM.; %CARS(LIST); %put %CARS(F,key=Audi|TT 3.2 coupe 2dr (convertible)|Sports); %CARS(CLEAR) %put &=CARS_KEYSNUM.; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 2B.** Populate macro dictionary from a dataset "automatically". ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %let t = %sysfunc(datetime()); %mcDictionary(CLASS,DCL,DS=sashelp.class,k=name,d=_N_) %put t = %sysevalf(%sysfunc(datetime()) - &t.); %put &=CLASS_KEYSNUM.; %put _user_; %CLASS(CLEAR) %let t = %sysfunc(datetime()); %mcDictionary(CARS,DCL,DS=sashelp.cars(obs=42),k=catx("|",make,model,type),d=put(MPG_CITY*10,dollar10.2)) %put t = %sysevalf(%sysfunc(datetime()) - &t.); %put &=CARS_KEYSNUM.; %CARS(LIST); %put %CARS(F,key=Audi|TT 3.2 coupe 2dr (convertible)|Sports); %CARS(CLEAR) %put &=CARS_KEYSNUM.; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 3.** Data portion may require quoting and un-quoting. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %mcDictionary(CODE) %CODE(CLEAR) %CODE(ADD,key=data, data=%str(data test; x = 42; run;)) %CODE(ADD,key=proc, data=%str(proc print; run;)) %CODE(ADD,key=macro,data=%nrstr(%put *1*2*3*4*;)) %CODE(FIND,key=data) %CODE(FIND,key=proc) %unquote(%CODE(FIND,key=macro)) %CODE(LIST); %mcDictionary(CODE,DELETE) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 4.** Longer lists. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %let size = 1000; %mcDictionary(AAA) %let t = %sysfunc(datetime()); data _null_; do i = 1 to &size.; call execute(cats('%AAA(ADD,key=A', i, ',data=', i, ')')); end; run; %put t = %sysevalf(%sysfunc(datetime()) - &t.); %put %AAA(F,key=A555) %AAA(CHECK,key=A555); %put &=AAA_KEYSNUM; %AAA(CLEAR) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 5.** Forbidden names. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %mcDictionary() %mcDictionary(_) %mcDictionary(ABCDEFGHIJKLMNOPQ) %* bad; %mcDictionary(ABCDEFGHIJKLMNOP) %* good; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 6.** More fun with datasets. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas data work.metadata; input key :$16. data :$128.; cards; ID ABC-123-XYZ path /path/to/study/data cutoffDT 2023-01-01 startDT 2020-01-01 endDT 2024-12-31 MedDRA v26.0 ; run; proc print; run; %mcDictionary(Study,dcl,DS=work.metadata) %put _user_; %put *%Study(F,key=ID)**%Study(C,key=ID)*; title1 "Study %Study(F,key=ID) is located at %Study(F,key=path)"; title2 "it starts %Study(F,key=startDT) and ends %Study(F,key=endDT)"; footnote "MedDRA version: %Study(F,key=MedDRA)"; proc print data=sashelp.class(obs=7); run; title; footnote; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ --- ## >>> `%QzipArrays()` macro: <<< ####################### The zipArrays() and QzipArrays() macros allow to use a function on elements of pair of macroarrays. For two macroarrays the corresponding elements are taken and the macro applies a function, provided by user, to calculate result of the function on taken elements. When one of the arrays is shorter then elements are, by default, "reused" starting from the beginning. But this behaviour can be altered. See examples for the details. By default newly created macroarray name is concatenation of first 13 characters of names of arrays used to create the new one, e.g. if arrays names are `abc` and `def` then the result name is `abcdef`, if arrays names are `abcd1234567890` and `efgh1234567890` then the result name is `abcd123456789efgh123456789` The `zipArrays()` returns unquoted value [by `%unquote()`]. The `QzipArrays()` returns quoted value [by `%superq()`]. See examples below for the details. The `%QzipArrays()` macro executes like a pure macro code. ### SYNTAX: ################################################################### The basic syntax is the following, the `<...>` means optional parameters: ~~~~~~~~~~~~~~~~~~~~~~~sas %QzipArrays( first ,second <,function=> <,operator=> <,argBf=> <,argMd=> <,argAf=> <,format=> <,result=> <,macarray=> <,reuse=> ) ~~~~~~~~~~~~~~~~~~~~~~~ **Arguments description**: 1. `first` - *Required*, a space separated list of texts. 2. `second` - *Required*, a space separated list of texts. * `function = cat` - *Optional*, default value is `cat`, a function which will be applied to corresponding pairs of elements of the first and the second list. * `operator =` - *Optional*, default value is empty, arithmetic infix operator used with elements the first and the second list. The first list is used on the left side of the operator the second list is used on the right side of the operator. * `argBf =` - *Optional*, default value is empty, arguments of the function inserted *before* elements the first list. If multiple should be comma separated. * `argMd =` - *Optional*, default value is empty, arguments of the function inserted *between* elements the first list and the second list. If multiple should be comma separated. * `argAf =` - *Optional*, default value is empty, arguments of the function inserted *after* elements the second list. If multiple should be comma separated. * `format=` - *Optional*, default value is empty, indicates a format which should be used to format the result, does not work when the `operator=` is used. * `result=` - *Optional*, default value is empty, indicates a name of newly created macroarray, by default created macroarray name is concatenation of first 13 characters of names of arrays used to create the new one. * `macarray=N` - *Optional*, default value is `N`, if set to `Y`/`YES` then a macro, named with the array name, is compiled to create convenient envelope for multiple ampersands, see the `%array()` macro for details. * `reuse=Y` - *Optional*, default value is `Y`, when one of the arrays is shorter then elements are *reused* starting from the beginning. If `CP` then function is executed on the *Cartesian product* of arrays elements. Any other value will cut the process with the end of the shorter array. See examples for the details. ### EXAMPLES AND USECASES: #################################################### See examples in `%zipArrays()` help for the details. --- ## >>> `%zipArrays()` macro: <<< ####################### The zipArrays() and QzipArrays() macros allow to use a function on elements of pair of macroarrays. For two macroarrays the corresponding elements are taken and the macro applies a function, provided by user, to calculate result of the function on taken elements. When one of the arrays is shorter then elements are, by default, "reused" starting from the beginning. But this behaviour can be altered. See examples for the details. By default newly created macroarray name is concatenation of first 13 characters of names of arrays used to create the new one, e.g. if arrays names are `abc` and `def` then the result name is `abcdef`, if arrays names are `abcd1234567890` and `efgh1234567890` then the result name is `abcd123456789efgh123456789` The `zipArrays()` returns unquoted value [by `%unquote()`]. The `QzipArrays()` returns quoted value [by `%superq()`]. See examples below for the details. The `%zipArrays()` macro executes like a pure macro code. ### SYNTAX: ################################################################### The basic syntax is the following, the `<...>` means optional parameters: ~~~~~~~~~~~~~~~~~~~~~~~sas %zipArrays( first ,second <,function=> <,operator=> <,argBf=> <,argMd=> <,argAf=> <,format=> <,result=> <,macarray=> <,reuse=> ) ~~~~~~~~~~~~~~~~~~~~~~~ **Arguments description**: 1. `first` - *Required*, a space separated list of texts. 2. `second` - *Required*, a space separated list of texts. * `function = cat` - *Optional*, default value is `cat`, a function which will be applied to corresponding pairs of elements of the first and the second list. * `operator =` - *Optional*, default value is empty, arithmetic infix operator used with elements the first and the second list. The first list is used on the left side of the operator the second list is used on the right side of the operator. * `argBf =` - *Optional*, default value is empty, arguments of the function inserted *before* elements the first list. If multiple should be comma separated. * `argMd =` - *Optional*, default value is empty, arguments of the function inserted *between* elements the first list and the second list. If multiple should be comma separated. * `argAf =` - *Optional*, default value is empty, arguments of the function inserted *after* elements the second list. If multiple should be comma separated. * `format=` - *Optional*, default value is empty, indicates a format which should be used to format the result, does not work when the `operator=` is used. * `result=` - *Optional*, default value is empty, indicates a name of newly created macroarray, by default created macroarray name is concatenation of first 13 characters of names of arrays used to create the new one. * `macarray=N` - *Optional*, default value is `N`, if set to `Y`/`YES` then a macro, named with the array name, is compiled to create convenient envelope for multiple ampersands, see the `%array()` macro for details. * `reuse=Y` - *Optional*, default value is `Y`, when one of the arrays is shorter then elements are *reused* starting from the beginning. If `CP` then function is executed on the *Cartesian product* of arrays elements. Any other value will cut the process with the end of the shorter array. See examples for the details. ### EXAMPLES AND USECASES: #################################################### **EXAMPLE 1.** Simple concatenation of elements: ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(a[*] x1-x3 (1:3)) %array(b[*] x1-x5 (11:15)) %put _user_; %zipArrays(a, b); %put _user_; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 2.** Shorter list is "reused": ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(a[6] (1:6)) %array(b[3] (10 20 30)) %zipArrays(a, b, result=A_and_B, macarray=Y); %put %do_over(A_and_B); ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 3.** Use of the `operator=`: ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(c[0:4] (000 100 200 300 400)) %array(d[2:16] (1002:1016)) %zipArrays(c, d, operator=+, result=C_plus_D, macarray=Y); %put (%do_over(C_plus_D)); %put %C_plus_D(1); ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 4.** If one of array names is empty or an array does not exist: ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(a[6] (1:6)) %array(b[3] (10 20 30)) %zipArrays(a, ); %zipArrays(, b); %zipArrays(a, z); %zipArrays(z, b); ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 5.** Use of the `function=`: ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(one[3] A B C, vnames=Y) %array(two[5] p q r s t, vnames=Y) %zipArrays( one ,two ,function = catx ,argBf = %str( ) ,format = $quote. ,macarray=Y ) %put %do_over(onetwo); ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 6.** To reuse or not to reuse, or maybe Cartesian product: ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(e[3] (10 20 30)) %array(f[2] (5:6)) %zipArrays(e, f, reuse=n, operator=+, macarray=Y, result=_noReuse); %zipArrays(e, f, reuse=y, operator=+, macarray=Y, result=_yesReuse); %zipArrays(e, f, reuse=cp, operator=+, macarray=Y, result=_cartProdReuse); %put %do_over(_noReuse); %put %do_over(_yesReuse); %put %do_over(_cartProdReuse); ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 7.** Use middle argument: ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas %array(yr[3] (2018:2020)) %array(mth[12] (1:12)) %zipArrays(mth, yr, argMd=5, function=MDY, format=date11., macarray=Y); %put %do_over(mthyr); %zipArrays(mth, yr, argMd=5, function=MDY, format=date11., macarray=Y, reuse=cp); %put %do_over(mthyr); ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ --- ## >>> `%sortMacroArray()` macro: <<< ####################### The sortMacroArray() macro allow to sort elements of a macroarray. The **limitation** is that sorted values are limited to 32767 bytes of length. See examples below for the details. ### SYNTAX: ################################################################### The basic syntax is the following, the `<...>` means optional parameters: ~~~~~~~~~~~~~~~~~~~~~~~sas %sortMacroArray( array <,valLength=> <,outSet=> <,sortseq=> ) ~~~~~~~~~~~~~~~~~~~~~~~ **Arguments description**: 1. `array` - *Required*, name of an array generated by the `%array()` macro. * `valLength = 32767` - *Optional*, default value is `32767`, maximum length of a variable storing macrovariable data. (the reason of 32767 limitation) * `outSet = _NULL_` - *Optional*, default value is `_NULL_`, an optional output dataset name. * `sortseq =` - *Optional*, default value is `LINGUISTIC(NUMERIC_COLLATION = ON)`, sorting options for use in an internal `Proc SORT`. ### EXAMPLES AND USECASES: #################################################### **EXAMPLE 1.** Basic use-case. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas options mprint; ods html; ods listing close; %array(hij [4:9] $ 512 ("C33" "B22" "A11" "A01" "A02" "X42"), macarray=Y) %put NOTE: %do_over(hij); %sortMacroArray(hij, valLength=3, outSet = A_NULL_(compress=char)) %put NOTE: %do_over(hij); ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ **EXAMPLE 2.** Basic use-case. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas options mprint; ods html; ods listing close; %array(ds = sashelp.class, vars = name|NNN height|h, macarray=Y) %array(ds = sashelp.cars, vars = model|, macarray=Y) %put NOTE: %do_over(NNN); %put NOTE: %do_over(H); %put NOTE: %do_over(model); %sortMacroArray(NNN, valLength=30, outSet = A_NULL_(compress=char)) %sortMacroArray(H, valLength=32) %sortMacroArray(model, valLength=120) %put NOTE: %do_over(NNN); %put NOTE: %do_over(H); %put NOTE: %do_over(model); ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ --- ## License #################################################################### Copyright (c) Bartosz Jablonski, since January 2019 Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation files (the "Software"), to deal in the Software without restriction, including without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to the following conditions: The above copyright notice and this permission notice shall be included in all copies or substantial portions of the Software. THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. --- macroarray-1.2.3/macroarray.zip000066400000000000000000001501311452773550200165540ustar00rootroot00000000000000PKɫwW=Ҡ8f description.sasVo6n@ŀư2M1Vs^6:[(R%);;Jt)%>;=DX? hZ\H6-9Z>kI?< <1X̙aҙ\@ Hhʸ=W'At6w:ulZeχ+<\qv )FYǔz fFGư;= ' gqDZuk\"?K_WG h)] d3:N x^Zuvm?>AGe}Ӡ5PT!=5h7ڧ"L Lܭbl0y3^N盖p$eݻoP5fVOP0Fiڌ\W zy1{ Ϟ<'t$kK.\bsœq!+i=>?6_cIӮht=\3(sT1G)p[f)5ȣ{V7;?#+bfE۪Xtޕj D0+$s4\2kZ1gMu ՠmʍ^e qd5]㚹s5C 6OY ð뺽Ȃ4PżTXo^{ ZfڔdpBёe ZEpaaatIC?6zt젵W8ג0kv׻/w»c L'7^͑ inEVdõ"CJΔw"E^ƍsSy3|MQ8d.T3,MGLߍԈ:jl4/ׅ@P[R|/صh*K;!7KkmMzqv\j)lrV`te+4*cч.*g d1G Kq ˢٳU&P'Q[%U j]]PAAf)"/,Y ])dIOׂWd%cdXz-QtZB+>.R"z_hlh/PKɫwW*riG license.sas]RK0GqڕLb!I qbdL`w"!gg}7[3|KQxoC=1.^N XP3h(hQ>p4>\8݁޶F!!t=T k7~RȌ@͗\L9>8Ik8w=I|ڊ#={ AV8髧dn0O3Ľ;,z*z$&`x=10h}o"'ZjS,nDQ=:k46Pvҵv _p 6SGv[j`o[Ceܱ7#>NMG},,90APId<=K`#en'$+- `"K$k(eU EQ:#X b%dmJ 5LdsfB4.J *&s&Z˪9ȐB _y@YKGl$YR<.XyƱ8s~\i*#P%`<͒SF%IˢL0l^Q5d!f"XX+ ޝG轮+#dHVxJ2W PKɫwW!$packagemetadata.sasMk1@0']LRR (nOқṫ$YwRb d4 z !1H/d$NrАn=SNoFVCUQpy!Zu GaKl8*tr5t!)+F';,Z f 6~ɬN%W]> $QO6rc. @.8M[F]cl׀Ea oqn FU**өKpL50"`-p 06 Nñ-I/b؏hz:e YBT8H)ӯL_.1x% S+U/ì<<|:=wٶLݑ`aY$B a`v7˚cU`Zug;gtUmLlg> /'G fr"e_2MN&L݀/aop &542tGWїj4'b2C|"oKM{W̨T# ܟŹYnDGWx-´1xn, dqr.P5b9M?Jw78p{9vЏxI* С%y"&2~_k5ThJZv¶۸hѦUa&{wgv^PKɫwW8- /Hload.sas\SH=U%1=NQLNeƠBUVU[&)w`yguۃN#UݰQGT\u՗|g.7l Zvp8Q(z*|0 d }yΙ\cڇ{^pn~}<lWQVpA񷹁+W*3B}v{`3㡿:’(t]T[3 TezgDLTG w3^~f ]mfxopOie{ppcna_wf?̙ )TZ\}DXw(N\ypf1,]g@zA0hk񵦿TCVia=Twy:V+ Eoa !%26.FKZ5k!w ;VHcB#放YGԿ 6|e\wi#~sߢD?2& [ ʎĘ27:I~ЉKv";S+ܣ-.LW|YMNH j!vs(q,A];#vXeա>6@."QfC{?BdSjޱ^`oioUVTL v u; 3&\>:>v1%W-\ I3iM"AOyh݋P-i3f륯UeZc1-+s1ԼlH"9 '4l#y'rX>) p)?-2Uٸ9IA)$)k6tCR%Q OMK&ӊOvrgT* )xD|]q::Oz֩pDջaARar~0zW&HNN*qs!cnTW2d)j*!<@qT4vnɷXSa0@CAm9>=왩SwL"hQ'b3<[W#-:3=qXٗE+|s5PP$(#W*o?ec\6*Ȏ[cڃ3Uz< { aRBs(Ƥji˜&j#-EW.jt~+G5_NG6.Q:RN t$&<FQd"RG>,/˫y'zޟW3E%'X-Uxʣ`q;5{fyOr5PEQ'ip(j%FҙMdcP0A,̚ P^1]t_)fgy 0k$a* ΘaxWk.B){,@ZAt@|)zm&Ԫ=4myf-,M86ZKgNْ%PzGwf޲Jp{rUOE+7/LO=+}\V]ɖ#LEA&n<賘kA2˫)fG^`]b%^O{7'{Cz^@ 5NHOi@g{2Ae/?[guÿi[\4{jq;N;@E[c14\gY]>&F#Q\{rըLR2;QFy6g>עx\9r!=uL91aGa'm"|N-F}.GhCMH%LbBX7|b>#9J[XBZTE^/RϗVMߔⱖZa: *FG`mnPFOcipo7u5b^0IU`0 Jž)CxCy!!Q8RayХ<]^/"fPb脆~4Lh(>U&/Itሐ%jq|V 8Ri\!9r}$q[H2ԩ⥩$f=%dN6bc$w&>M@4nn@)~!5!ձXVkZFi@7'PKɫwW^̢ unload.sasXQs6~LÞlꒄt.3e|mFȖc误$ 4FZzY@IC3ÃÃB@{D-ؿ÷B'N$<`3KnuFa_Zȳq|T'_6̗||c*gDô`N~~c\-_@HBlӅXD4eSv?IB@]+_A"=fUzvká}u+k-{޾(TiD T8%IOӔHqL)V8JaB`*ݔd`퉚O(݅Yv7*ԾH,Riqkir ʵ92HvldMy'-w K hFzvuVߑNW_yo7֏}pc>׷Rfy׮SRH ]*w>qmCECou+/ݎZNT_84iP>AiԌ2l\^Þ!.Zӿyo bcF*ݯR7% L9)+)"Pml1c"5(梖5Se(FS͎XM3d p>$?@K+{d] OEFNB ' Sz[ PX9->.4|YM4 YDiKg[k2Z O|!Ml1[=5YZ}XXleS4?J s+02t9g/W82cF7=3 Lީ> ~nҹ Gyi=)(ǽ0Kq)иkM,&M$H+NESuح+!T)6,&pk[p3$ ''*.q1,g=q! D#N=Hɚ|ֆ/cεA٣9ٸUhU ~<;<%*&qgFJd) 2/g^aK}j!N~Hqt1P6 כDͷpTSҗ@hsXGr+~/Wbu,D鷳WϛÃ㪼((묨PKɫwW}Ʀ.k preview.sasXmo6n ,d8~na A' EcT[;z\˱)#|#4Q{ꑈ[pu]8ILW3C/KLj?$"ğ=х=^ڣx8{u"֔ܚjP#. "TVE92tYHu[J"|&}eB@ x(dte NsT9N ￿f WayA䅉_\  ]n'J)g{Op 4$ߓw|òr0pB spk` W[9qp NT&f TaX5dL:J)~Spt99NY5ӬY|z}DbZ=X}'V<p#d`k$4`C4AYAs ^?Fdݣ]>?y gG)W ߘ=0aX@1R@iH sEC0&6& >! B(J8#P1E5H`kZn]dALLs#aHK^ΕTì")L@.֒wZR{ TԡXe)Ֆ`z e0/:p\ǵ8zb=)]wHM<@vZO!8 9(ZRs\i|.vRU 1Kj7&$\NC<,w4*2Sw Lv+M2v')0҇%bGUT8.<bLv+U/3n^RfqJW%Xe$tpʂf,唏Wfl;hh79kNw5=>6q:-)nx p4鯬:?fB6)Ktwg!pj(Pc KXVY_S@ԱJ; CIX80R%6)/&4F=P{> JڍzW8΋?}_W8;o;f]Ǡ[dܛE[PKɫwWWT{%help.sasZms8 as)6Cr4k)n<-Oto%Xc9I,Yj]=s=[s7>AVI0^@n3Bݺ'0(8"(v&~LtlII&@SzDcO/Ȣ5zuћzWG/C_ h_-קC k|i2=905xt)-|['4)Jb +! ED~@IBWHğ/8XD6TDyJU㿞CQ? H⹾-R Z؊5,i z=_xͶڅk b?q<"G4wpX@]* (P:;2SCbe!""5V14fm+&P)4 G˛Fa_A0C";~1NQwd|CUT2J%#1g pZ;(92o@ |лpW + qrs8<mCymltpC!Z[Lwe#eC{[߉Y$-o;姧/~jݡ[ /^_nXlx c]zr0}G ޞV45k% 7"L'p'>F }2 Gd+" IJu ^ÝXs %QUO., sdKtAhrAI9̓h<I)(')|p N* vp(;ؖ헶LJPwNTmRK,'>Ǜ3Cls!9 +,2X͡^Kd{Y\҅YDA(=ԁ96Y%4!rV.Cռ-K 4Y ~hNp-BAY,)$M`I5PB4̼GdaIj&6nW7y*K vq"TQrN 5FA ntV^f-Xuڑyj'"Qj}]dK:ͳ:R1{^ {xxyn$N,r=vyTv%^+ZE.2%QfQ0_0_I[{ŤRr-nLe,a} +OJ$@/^+I4R_LBpx +|:ͷ1g#H4?L B,ps^uE~[`x!J^>Ϟ՞;J: 8;kQPPqٻg9bdRI6.->Ny&W/d>->69GN+0L4yM z?PKɫwW _001_macro.appendarray.sasV[o6~7p,ɲt71.! :CMKM"]>tRǍӢ5K' Cx5:} h6a8,TRn(Hd R=/BH:dkh6.t 0 +eTQ-X¹4 1T^o(aZ[ckH \^R r54 B( AB^`Iq9cJMEz.+G74+ ؗ%*_̩SǴ"}׿n>MfZrcS6L#7 8؈#'Da UlpD7FFl o6؊` TK̹X9)|þ0qhoǒ)xRڬ|ɑz,@펺enu8ޒtwR<28Ly|#KK@ͩ)B`rIhdZI׼ ǘ+32lPKɫwWhiP/{_001_macro.appendcell.sasY[oH~G?q/˾l%4"i5 VSe7M9e2ɖp];9Eɲ,Pi=vK%+l߯r˛O0bpyy |6e#Z6.K >,l&yxy(If3,ɤzSM), m;r@ 7}{;;;ax4ơ}"B|tΗ$]KrPS?`UZ u~i$(1`$'Rg3]SLZf= \|((]Od3&l"UU(sHWSs=I#?AjBWUȏD[A#4I=uBÞ!,.x?-!Y"8d HؤMp{}45h ct&[k~J8ڱ  D:lȩ?7T80˦ %ڰ(׫rHڧs}qA%;5TIs]s~ivK l}lӌ&#)xr&=X(kU B {UVD-:tBP:ƪ;Hcqoy,; EX ݾqe[FO{F ;O ]VBz[kVpۼoUn/v}W'\̇c* (5J!),KA=2Wi2;`9nȽHT~u@Tqbm2pг"iUY%D)fMj68D%âVFRXkHBqD6.fJj>@SܨΗvR"Z>Z=&J wiBUa]zкr>)n"Kz5g tYN((P7#AUmpty)g@j6itRAG Gnk"[tvz?7* kVqN/,w},\:|u(:, 'iW+a@k_QCOSӊS:D rPkC{t KXê%0")zMJ<0{KVy>悢ĆذoHlQ gJO:"G5:^ߎO>͑~[~yyJH=\:tgMXpaQr<^2)ۮKq n5XZJ_Ou9 LB~`)u{2dr 'wA)HkC7@th" d,C,^F?qpĈS!<)۔|0yzRpteIx_V̟BؐS>x-nI%z-(27 j3ZVu< ui5( SIy gj ?e=1׳Q|3gxPKɫwW.]e{_001_macro.array.sas=wFrlN[rGlRӳqq[aO<^z[+=}Kf=,ѝܫ;+<')gCoę7fǮ9np|>b+Ѓo3{XоrFvo,b,ƕ]q?p<-| Xe!T\CC'`#8nCgv&]GЁwa9e^f͜ :OP+wصN|N(sC9=cr <(>9l!6r_CpT\]ElyK`7E˓2P΀y> 3}湼mj;&. 8fQlc2C~p܏ڏfA;ԛK+ K .C!$]C~:fpPg%M};t܉&yPE|)2 i(S$6df5`; <$I ,8FDrߘMbBMIF '[tB_y XƤqc|}wԾBAaZ@;B N2.4hFFͷwxP8.:VPCkɦriP\CZE/+@@ja.lD` _'O$1Kbĸ+$y*Oȟ FiGbn 9P(4 7$7Pa t@ Xѧh EPeMIm1b#8!].>!;5_5}]=J7Uf_ljHע*Uα%ZW1"u.0}-GfMOBdcɁ_̼K{:8{PATRAL1QahOs\H#2 %(F?lԨ$Xa~5f,VRj&2v䬹 ^H6ja!a\pJW<=[)S"ۣ#}$5$7%L}uskGQ!d ّ _i5.3s'L&(ghi0 +\`e~.J#[uTn5~J07ۋ.jtl3۠8" 'P}|`[* Yi#;tOdG 8.p L70 @&GnќV%tl/hy~0ESI b@A3p`gp: ˥`|0b",!GrIo7Y$ASI}nC2}SMu&W jXk/B-Ss_7Fp̢+ g&]qׁ|+>\h@Y.C8Hqlg]OP?= Y\&бu5Co2n߰[f=U`5'/GC>hÄ ZЌ B'bF~_tL@Vgp;֥Eҳ hy>қC'cVhGV *#Pra4۰rNM7g2jQmC4@oAc(48F4˄&d)c}̮R[̎_ @#k2IcƎ"H(4:LA ^_dZԁ"[nM=\e[:EZHѷ3 (S>[sû {hklĆ-Z%CTKB42قLm @bp!f3GPɭW );:^e ZUUpt ,4"_8 n > r`ĵS*#xXtJ ?8ʜ#L@/c@"&YdZGYlwPm&f1G X)w&9z"|fɈֲF@W_97:喩QNس񱐁5d9~mZI騧AvX(H'N͠ 3A&2MTSH4;_[Ƨl #ג?D,M 3т4GsEەm3R)+[-uG$~\z!E)i!}TÀ0F:]z"7*Ä߆A ­(>!+SWQwbf4'`LhVױ|+ u"%#!.#e'LfsK+C7UZ?}R-ޚy-TD02z LA$P< ߡ7V!}YAf|}:t[^_'tN{G;̰`l, Z@j&"54 LIb>'e7l8_vsvb&Z8-;&dkv{==aMuNZC#\D6xA>'hX (2H?}o2N40u zԫ "ؐpV Pu a k> :*P/}?E+oI.ѵpCr5IDL<mk'A" '5 fQwG|< ~VR=x92r㋼|)DC,aLi7LU-PO!*51%-Fd HfJ@PZ?xgu}`]bX@)lt]/>x{1X{5YsBi#o3zmOu0&0%ۥ&mSg |~{obqCĶEVJٮ GRNV8`ɉF9Ĺp1ܴLgGY9 ]=ni jJh7n):Anwsܶ NSq%l#/)$ȱE,gYd w)~́'EЬ V@W80Ei}zh'%||m7zO4rh"J^dYt:yNGŠ D@(0M,G/Yk quJCX}pҾ w!w{+xvb?!O-E}ϸ,K3Ov$۴Znַ`6t q}DWH e@ b[mSm "R9 و\] !sE#eڌ(SXOx1;n L?S`㔮M)*Y#RxI0@Z E9̴/K"qy9H+p$'~]U'vgE/04={ئf$^JigYc\&:7B,L-i]7 貅O@b49Jȟ-䞡r5} n#ʚY,I A&c9ko2lQ*j>3& L8DpɆ$Fk]Z yZoLMzc9('7/*Zí<}փQˎ/;}Ò+_f/d{z~9L kPh1~@#J1 9`a2q\*U$)\1 _dk[ kbFH1QHr!ZwJ"z,Yjx9XF~br-[HܝS+[O$` lRi*YG["hWݖ%UvQӭUq"MkqS̃lcrhwsb~k~ mľkr~U#0n`E(5,Rw"YDLRPA/e/p0K8ʒ 1SI(~pʇdOʥ)jC1`т[ʌrlKLk"-ؾOTPiq.L.БMFWmrPb;u>D=&`C|R9LbtK͍Z/I% = mW7[D>bR̶ )*▲ qY|ˌW{DS")H0Y^tL:hsVU=k CLM1\_YT*gL!<<\n'a:;~R/{}֗!u0zN@t-L[Y3cD3!h/v>nJNa6vר4 k}gE*aGQ%>D I-4SDL"b63SHe S@)_D@vڂtJZJm2_ˋ˒s<컌Is ulUC{Fv9"^N#W[ ns;;Q /1<]жUdſd~6?'"OTug 2o7/hk2כ/| "IKD+Ҳp 4.<՟gݕ;13ZoW@A> -|Dޚv~BgSm v{- 񯷳k"Cn.Υs`?lef)5GnTlMW*&sRpjO ds|REYY[Lc6Z<ٗ*+$Hft0ktlat"<9FdɳmDI'6c: O.ԱlW6XANyPYM(8pa=;`lTٯnrYi7F,ףk,' YkJ-VZkQEx/-d, _x]07eAGP7m:4:eMIʼnhT y~Ѕ<sYtRj 6I6 ѨI+Ub| B`x,YK$I$I$ktݣr=a/DFP $qĸS10&ƄØp4w `.]neOb$&1$BbBHL*$i}O}q$ʔ#̰@aotk;A|, ǜe%U-#wra[ٵ~!xp][90|q)IH0٥E m=(%F)Y\9xX `SK˅ƹHO)H-Pz8|aaWAf1#c\mJ2a$Vb48N/U𲇗x/?G*F҃f<ijsʋ%\{GCL6Ϗ-F?/K$=w ORDC^w1mB;v+A鱃|e6bcxf3#?I3iSV̨QԠ=,B|S`Œqmx.g=a5dZ˘U4+M߾h%ڈ m|(?Zdx{~ ={'Z[@~1xk%PHHmFmFmFw/$3ƣ${y~@A5Y(EG+d(f6 A]=M̨j WZ NC޷X_~>. }z#>2_{<ző<ט(`Py$ !BK.>ax#Z`,YQ n}%y+h+ j& + )RlYX+Ӈ$F$>T=[LF֮Ŭ ¿ZrݢxJ,:Ҳjš*܋ MtF%?GVd6B @`NPVj\ZKkqi-.݋K&*FĞmy9 ]t60EIk45"EV2_ur>YLf SRtJHp|#.7RHC.Y`vJ:W#}x.?#uSr3rT~b{teCZwMko=]4$/}RjIgo;3]8P@7K &e6gbٞ^5tqShvКGХ' Q64xUZaK@@S,Ft1*w1Bj<̀&kwWl7 e./0M2"z\Oz9Tij>8[ap^Fz4`.W;I&~wDoIm`>tѪ WX"]#MG^_*->.,~D FKx]*n{>3 ID'C/7D Sۛ?WkXԣb5\d)Ѓ"(SmÄTR'c4 l|7d_lr\|1(`aqМ4(P9ӷ$J[R3eb;u-0 ,|ľ8(C9#!z#>tFlu馲BG-D򧧺lP)?*90h7|V Є5kGd]Xu=L$ kUBW94$jFmȩVDq:¢ٶZW(A+8~՞Kl{$.Y7bK6h8 R X5 A1s1e[QO*fIJ0Ys`mqqhU&f P4 `q|D F 11215 ~" 6gxWKs#[)Jd/iI,DiN#`S ֢:s:4cИpwQ׵8:4 dz"wZMr2 xJXo%Ó?PKɫwWPuU _001_macro.do_over.sasYQsH~wC'>0҂lk*&)۹]W*i0: H힑 9l47=4ww{''%8O  &̍D ...A& zP^^^ˣ+<b1^+!1 ~(~=qr6?&}=--lw*ss ,LB,ybCEln3?d΃S(T݇|xns ā42 %-(+?=C&}<3R?>ֵ/e]4EȂϲuxd yOOS #GJU=Uoa\!C8;wel3nLxKt#_n-zj[)hy?'/T|Q@21X̠$УoisK1DB 9$Sԝce)8)ʘw)h5$ +˩Caz4]9"3tDSYM)8z, #J\D(1\$z  (! &[dލC'"F( ]JxUD+i@MNˍu΢^\`57#R?)IB5  !Kb1Ak94𹗡$\@\Bdf 3˱Hoyi]+^Hr]shKH-<稪|R*18LP+gfh]{fKg5`E+ʚB1#MH܈L (&Ɍ/uRqh8EL`fܤg;`@8vDu:64 ^ޒ~r}k&' #&<o,Yѿy{J>ݯU5ӀB"[Y,F@J`ҿ(ѣ? s E*2sM)1PKE`YmUnH2];bjT~D Խv6٢܄7%dٓj eTЯ MM@Ô[녛r¬2Y%7gɪC a,v\.WIPh$CrEkTbvZʼn(YY"&r*}c豀 电 ~Ȟ,G0cbFPHqVL_ۯdb%p dNJ6UĖ驺޺M@+ߢ+xRƪҵİZ{J0ĀNQέ*4iC6 (lE{T,JƄNdn~s]$܇|^[XP\,'#|zSEz#f([aCh~>p\^_TƱ\(f)ո>Z YiJ ?Fz( ?ۏb8{Zi mXi 7 ($YZ2`8 ލOa?+!'˃iA 2\ WAÃvUUȘ@`I{O}SKf)UTIk߅⽏}|w;f1v AA&ZB43DL)rj6}Uh ̤ؗ y,5bRiD5Xf嚈(j6f)(.[䉥Lʑ{bT,/ -BG\B<{BX-3c}:l1X#c2]dw2.m[lNbc!6F rI=. >̰堑wahmCWvm蟘?pn|0!9y7l9ʗLj0DhTF\uА?(TJ.6[+ Srʄ˥2|;3B3WDo%EvTb$sc/&IYdk9c=$͸syPV=~8wbCm ūA5s;xS`V]V +Lo!5h7ގYnaXJZ:LDx5!'g}iVR}Ђ0{ß;SpM׽6!؆eg7~x:D>p1AxpkkNʃqlLO/>C g'^ඇ6*4pKܥs(yQꎝR$jesFo |y{u+Yo6—͗ 鰛mcP*8X>g+k;zsR1<&ڝMT|r;[FGpuΎ Wz-eʧ3 h }:P7Ep@d4]ɳo# ؃LRuW&x*!M*16\^\Ҵy+c]0wmLKuj%ffbݐXBDtLн0-xx!6~JfOojAD XwL?'s0َX#V&ƻm:e#5I슫R>SH -qPKɫwWkʘv_001_macro.do_over3.sasWmo96ڔ݃Mw.!hB =5*o\zn?ˎ {\WGGAZ-D R@ل&Nfy"jvfGu)ʥ)X$4,՜IhW8z  o KGw3˭!Pyo.uk@T,hLSI4R詤i#R%Ēr `p.]G0'F%׫6p3M LV,2wW'G?Q,|,00>40l!ZJ1LpV'ETT\`%-v]z8jVSI=TZV|{pv޻x{1zA)? 0 AЖlFVPKfm zBdPLXL,m 1ob)ҦIB4Hd<¹UaC# hcܪ Ty1s+ zDEcyal{`S&D.r.bB$K5ܐ43?Qvтh>:” ϋٕu&ָLV6hgU IFEVˌ%IJ uQh稭=}"Z[q Kk'N0ٲ-; q*: ֞}\MQ֯X`p v/AEILG:֝;xǝSsJzG87XUg/7 2n%xdZA2&dS{c3k]j>쮇=;oߪتXO^*;"@a@|:v iūhZOӜ$+ݔޖrrM>ގf*>=xwn篴{6ЪU :CߣFwb&NSW}t>|X{> :ۃ/p 8s/0LͰ]bc l6`<2`VS3T^1֗uo{и{O#+S<Sn5fJ WQyNU<>iiǍMI?nvF} |0SȆS~O>l"w?,9) j+6>*; )Bk1_J6jxE;t(\}aUP'xF/Q1MṮ*ɘ3jzjvn{mU0ƛb{$#%Rk5k6P΍9%$dF&4W cc S3-Xu67Zյ^4)䙙uԂJdKչXբLhZt&KP)xL5vv@eIF KC$|`xPKɫwWI̦_001_macro.make_do_over.sasXms8 S^ҙ si]{&޴%oWMHXճ8ypoނ'O5e|ˡʣ} SEᐁ`S~T!/0 L8x Gݰœ)j;|; ٢`%'߈]Z9,7S``a( 1?O@Gq /]!p΄9Ӂ,0G`{bj{P7t}shO |(0 ;6]$-)-:fxIE<& @(цPʙ[s J$/MA}rGЄr ]dFKcz WH%ͅCg V5R 5WTćG9 吼[v{ Ԭν2s"DaVI3XbPQa{7wW3P!j`!z$ZcKV޻,R@/ȑ]+_bym7M7׶HxIqm;OjTocD Ȅ~O=P29?A%vvC*Ti4##uv{&SEZv7@wo@?9_؆lBhIz&7}*X|,)cs}c6pʃrԲ]t٭˄*JԳq˭2E-rΒlPVr:ͦ^lHWUmD[kE[E%ZzNIVsK4k#==-gHb[|2_.Ns^bomr%k$$+f ZAƀ7ʇnG5Z Xu!}Se;A:~h uz~18^p>k uFaa.:Cf ˧;F`_ o@bJVa΢@$/sc+ne~Ӥ]iHh?RJP:J(p_ ?vfn5%l \ZmEb6!"9tl>J:Ut*'9KA-&n)m_001_macro.mcdictionary.sas=kSȲߩ?L F`8{CvBr0&7{ʖB=oo= Af7:6hh[VQu/ nwwlsc+ߚ-SMYE鳉 KRc6D7wvҫ+ܸyuL̴M5Rq@=sdCaCM7-|NA9CUκc|טrU5fWkj{Lw&TмΚm0/ 16waTi6ּ15_ecS3Ͳkٕf4]U6!68Ub 0C $DzÉ|]py *r6"P?7 \.?*~>h~z1oBg̛پv`qrG5TU5<%-dӼ͍4 _NGgWmȿ|6Z2w$Zm`mWwMBZ}O*];zοˍj-5uq q*bjg #!EхW; Bz̤fYp|QQPu O]m1c|2g9HaHHU+*;uأPUUV'nHGyC9ZڇyGjvD^\,J!+~57jw~ ;yɳ+$ʕGj_bALF?4N.$#"ۭgȬ}$ lY,2SgXh_T]3 ]gBT*BYHw[o{ j[3f.rRCʎN)K$d،@&1tY02ԓo{ ( -Ws~4Ez8BpE7ANh/ݼhI (؁hu dNȵ{N tgQx $&l ύWLzEqcXK$ ^K@`ꨫcO0;eOuY WPnV0H"e;"hB,_- ˄$ë}C-Ю4"$;6As{11J+đߘVl H/gܫ1k'UB5MQ23ń2`",}x܏1 IЏBpĹsvۊ!vu/L9~:ra9 ;y?B #x%Mn@kҠʴA$& Gn()9C Cg>c(0U5' 9#7b9Q}zVs0QIoED 2Pb?= F "$A4Kns7U`{!&]#10H]036Ŭðrh6®/iaX(t=P|D#JI?rc$C+hJƻ!2+21̡B&Hk P!bS!xQ>?{Ѹ! l)&N2ͯAzS8@<4Lzep}ڢ|%}NU}#O/%OR'pGlږ@ʑǶ0N[s sk y~ mg[SF[$MlƞmǙ2|K&&(ÏW@՟Y! 5j.cU9nuvZ7>;jvP -x[CW}s+JmoUeΣ_U`vv@h-4FXW0E{SBEV0)~$SL_/|E$:eȞ UABdD㱩lr[9;fúOT)my,[-o=b%̂k ^Q6꥜dݑ',B k8MtL{]Z6ef4 Ig x7CaOтA\X!5T]\ۺpui'bQ (DQ]: 5uZ2'qL5pRx^#E ̀h`)ʝBfit9v]e.*@ [^YES:BFHaz>0~;|H!Q*3͆)*xE@>uAξ4} 2̗ؗ7\ Qž·ȧ*xZT,Y)AWdpp+zw^Ic5hY"29z6Ĩǖ@;8L\ }9+\Ԓ(AEYM$B`d|n!TeE"Mka "Yg {WnUи5{w7Hdi@|=9yl,*b1cʅ¬f[xfBS`Įs\a^ qsrg\lN;(Fʼʾ[5|uʞ\tp+#b٠,DrPT)G}kN9D˭C\9xPh4/ #@97Qwr#V4;5b^ĮLxC;D8>+JJGuY@l /3dn,3cC*cX?Gb+X0g@4Zi~y^B3i^vmb8ࡲPIeIJc2 2tv#N<+fEvOFL"uIi!dIP*)>v8}sn[؉a]tQj#Ub(al9) NjhV@rb-V|ڟ';.k؇nmw/%$H`tAeuRJ{bi Hg+[ ?Ԩ>TJɌijg0xdiSbx<F8mFL'֕TG͕_m6>~#B%fz@ɈǂS-Q?>O(ޕ( HD4:|HUaH.Uf-U.l% NHGJ+˳'8e5$7()Kc^?9!Ģwc5WԸg]٦JEr.C_7˾klA꿖hm.UdxE<h1niX<2XjؤP/RznV0c;lۧeYq 5/P"Rp<_Up= bBiӾjX6q@jX=NaYVw}e},R$C['_of`..uly۾ X+&ʷ.V$2^Lw(zC T9 K`AFﴧ 8bJ09ZtU %X迸?Ao%NsEb a ޑ1o.45R-dź-+Hk+8anl4U*u ;Ea*Zq4̄5s+ /!j9Łf#+ OQ@:?B܅3^UfSzZádu qRҧ m\cf-b}kII3E4I 5&>]w:p"8@裟Xʌm)s~?;'g̨f%zQ%XB}ñ9!w{e3WU[:t3}f`c{`}=f龃QvcPkʠrCq`'E:fZޡ?u1jkPFݙ?P <d͘@3  gY"CPr\]á4{R6qi}c|]_wsm3*Ơ>)x ÏPxD%bbkzjVG5"-~~\7{ ,pu첏K#NkN"*3mp3h·vaX?PKɫwWC`x_001_macro.mchashtable.sas]{sȖU=edf!;qmgnR{@HmP,$" L9[BOCݙfbZ_>}ޒZ;ju; vuݼf𰺻vw^`o߾eռ6xEkFc6D%>^r@KojoًcwgwzsuL̴M5Vq=sdIa7nZ>snJbDU :뎭_cUV՘ez>^OiWzLw&R5`~#nsF5h4aWL,ރ~@Nf2]Uan>qC68એEd@8|f<2utl,Ǯ8gALc456\SwXavus 5ԙ7}큁$8oV0)MrAL}ݝ><݉.Ms=o?ͫnVrjfn$k9k<[W٠;`t%:3]nTk<ђI΢1@ t fHȦm5FF`t@e|BCBd̨PI4?W Tvh+Qk KOh]^OhU!H6|!vXӼiuyR2@w9I`9! g:3Wxr-l M U_JK"1aF7{i#XĄnδw|Y-1 hbqwl\Rqk'Ǎ0G0o1 q g}לLGЃ_:"`]gB ^]𢡄]pffG$oVI2)c!7E%337Q rPy`ypa1lR,!OG>EP`YEKJ`:h.N{l4OpBCMD)ph c~)frUG3$c*9Xv~{w?n3[H;S@2)`@iG~Np+ V-ݝ%"@ԶoLQ4))D 3L=:xQ$Ck,38)$&쇿PnJlФhc1>2dIDؔ+-422Y4b3:[d70C^p(h#ԥSw轱ޠk'P4E9kSO ͎2Y.ɷrٙ 8 0dϛAJWa g{ 3al^}8{};ulxvJ3@M .L@mEk q4ɛ"^:;͆Vih<ׁĈ:Z6ǃhA@VN Yc_4|zSTUrO?[d]kzw#7"ԦkkG`"j;ab@`S]؄ wgL5p(Tg2Ic,{!G(f\ۺf0P 4Q  DTPˣ,{>D:Մ f=Tq EJmHH3v)FfܐKY]}@Z=^` Бe) )@ۛ. d >e!R^W$tXeS? K/j*.RUמT&jCO3=/* *\?˨nQÅARQI\t]-}Ss6LLVΫ+M1AOCm(83-|t޼+_DPR% )vd#YU=Reuk@"-St 9/#kg ^/O.hy g pUB}h5r{ F}^Az&xѬI%!q BSWj-gM1ɇ͚a0*;3i#?֟RA ~T͓PQ&v1ϐGdd&ljk N*uEv+ٷe]=h&y#A{ 2)i%*06IKILSM.<^s\⹹h4 C>gQw &-O鎸Kbq^}<-"CgT .# T81ORǦ_@+3$ oZЈiE5UZͬpd:I¯EuuRTR,DoSШIAJh cnIypD@Nl F,1b)<L ahlyg48 (IGy!yK"Aڟ%_Sg qse'Aw7 ?{Qkf"_sMnG.G>؞W |Fy3߃|2sip3l8WaR>qj;k>'C'NWμ`C9e'IV_wN/yۀGWm8y[x1w{^pϸkS8G|'փjf/U'5Hr3sKI\N=~cdX_AZ7*OVL n}z$ gx}%{;{xlL9c=<&_.n m/2ݝˏg7d;mݝ ٖ c ^oB?n.=eSPv<;edzsYv<;eGhIyeRyInVa3a).w[)^oŪpjjFKYA[F*:!]~JHֈb%BtjVb [Y؜1H鈑WN-)}6xVtb=I|7з2 -; J7+!X Tc pς6N'b{`OӋ^犂WVsάENhәPI -K@r/N2^b6VlR50B5ldnAYlk4jf%>G/A1fSK/H==:}?6A\:g\f$07*(#ʏvlwz |zݾV^8:O4WL5м NfxrCBQob-ЍZ_rlp-XSDž><1;G Nd"T8gG%?䇟oIf޽K6ZdS,ZgXH(#il _cf-T|]XPQH0Zp/ q|yy[:MX/S0^S8lq ZAFѶ&S3$e-Dm`+.YDkrϱb f|y|oaR Fx&c D   8"iԶaLV?qbf^A%}r]}띞_Ca 5 ! Gcl/8 r\QuzQ5y&Ŋͦt[кɍQ}ȕL.eB4w?߁5݂ԝ뾃g PRewn\.>^LA=Ľh8wf^}bSBzWP@M?|U9b͙М09IPr\]á4{.gY dG7 9^2f!g="ޑԊg āT&pMV͠#o`pɭqv$]Fma?vh!"*smx9h{ھpa(LqPKɫwWv+2 V._001_macro.qziparrays.sasZs'΀rW񔸴u4ci1 aB?ܿp{Eytj[1qk^s~YvFs f)-x`bƑ>8?;f$7sِ${uD>!س"._p/ 9O,))x|IR@-?x=qfB"=!MUDKaF ܆D $Z̵bEEF$/YhRƸuB~fTGQ bmC6 (}aĂTBP{ !)GǏ;`.63GX̑U74I g]pT`-|1 PÙ|֜Bb3i'u$q!r#H_n:N2Y.-5[8A!'9ZD FhWE>E>g'Ss&/Lr^(E oCNL`ś&#ENZCTitӬTj},C+p )0:M@_G!eKfq9F:fc$[$"ј|> ccCJD՞!g9_$l\T;V&]L./Pf(n E+<ꩭ: 6=b*5'1+8 q4W8 yRprҾ .Eb^yLE "Kz \ijG\xѬ+ҍHWs0:S] jڷ4V{ { _lɦɮ5Uc':Tbh*yguUr%#%?x@rfIDT,ЊsEEFgE[E#-SzfE%mLdPaVyD&mo`&0*m(C"X:nGT8Ek4X"~rBExTԄieK5ٻQ> ~& X'%P7%xVw*UX]TEn[7;uU5$O('C*jc9JC ~R[LOBӻnDwI.b- g.4&ȲQ% l-7D;\~>.Q#!=Ipn%k`S݁ ɛz7] $&t!{ןZ_^_ߠ!m(p ie8ǖ W y|[gjx;ZJ=phylKcW[ (ُ 1M[ 5:ꐹa< ӆi'5 5p{ى|e)"H悾]_[š(>KQ$nEʬA+g,ɀp=!BZʢl9fYz[9)4+'+t9xB:ʬHD[);p[%jUSZ&6k{E#(jUΏۺ!ڨӝ S5#s>nƦɸNN8}y"AoA]]QbjO]Z@`P6I$uᇟ)N[EuDٳuY\(;>?bɝkѥAz'\GPOϬ*@kB{C0UrZOy%\p-5I~ñNЧO){4M < EYj<|$ loWzNaSYI{aUa\5mǭw%V(ci$^' ~F*aUẉNWgkk)hP˜'&D[4XufA`a8ne:vW6숂؃r_,!V6gKҀEGO^ kdN=r# M4+[4(^5(dj7ǭJ|Mh X=B i;nc .WW0kM_NÛAW ) 2ScA1);_QX@P3Q%BL1 %8Y*/67gsoR/Ґ{|+N7,P6hX~_b;3cؙPKɫwWV_001_macro.sortmacroarray.sasWko9 a(Zʰ"YD""*pMR} [v"9s) hotR!tK0D+拤!{;C Z j bq/CVzձk%V/@'TaӃqN0LA%x#+ 1] a 1@2ܱp%pO+o߼G5r㉚f!Nre0fJcPݕ꿹2 cL&SExRԏÚu䃳Q,HBVө_tjZ/]Sb-]nq*4&<YPN,3l5v G|2 b]LI_{yd%cdyDnCԴJe"Yb0L&1q>!Vx0hߴZޜ]{K\%"܅<leeyo\5N_vژF|?6I%5J2%bv)H|uQvEk=KXoZ.`沦l{?~B/f/)r/ td][%PE^[@r.x: ;l]~<}Z zCwܣtE O* Mo .E@nك4dF>TMNޓ%G6wd tB -vZi†}Nqz9{RM Qme4 ^dBl])}c&ʇמ#najVDX)J̭tXwіskeqm4+2 V s7yqW(XH(L=98̥?ҩEqCH=HTE 6> O}^ki2g 6e=14u%Erzv߬Bv ;.Ѿ68o?iN`OG4('ZS&.XM+ q[+|J,h^ov:dM7ۊKQo!ۦ.vMhJA5T6A. *[,tVUCpǻPKɫwWtK39_001_macro.ziparrays.sas[S Ö\†$\ChK4 1h"Kw<BhR>yܘ*zXQ:awN@\t&_;wB·<  ™{BY8O=4W Jv\ jlmgu忋aHa9M{cA{d ƺ?v棓 /iG A֢SGTBױ 6(4;T2a(d~6q? ruB}$c H4'@Ftdlc BȩRQF3y52@*fLw7uw&B]֏LnVyEdS֙LPD4=mH\2:=`-O(3pe;!kS..tq!Ίzl-a!3h\\Hz% $P 87ڏ3ᴏf]ұ1ؼ*"E\@\x dLsd?ԕTҮ4+UXlPgck " 'P&7(J;+JU*SU0>#ʷ)3P*(n1(|nEY_]Ed\bBq8П.I}O> DIcVxRdVXJ`M,B)BVIߕ:L8{@S h!IƑp6n݀L-Բ@[۟_WmoWOsC]qpzv$԰.jc,iprX`LAԁV>cl8g4< NPbȷ`*.jǪMRH(O2Z|C'}ÉW#!; m0v;tݒ:s!#aHJ*.:U]z!k>RUޮv!zTS߬ğ+ U ju؝(g\r#ll<ߓ$bZ$98O$ (Ͽ[Vz^2yȍ*4J"OB[:X9Znwr=V0M hb b3Pn{f# \L]rn `Kƴ! `1z5h&ttndYLxQ-uVS?R'm\*bϡ RgXF% n]sh' ]86zǁ6@M`;''п쾻8_[ 52J\Jsxv/?kkw&A-tw YOV藂"8VMujX{q6-[3V\gcP'GP}-ޚPo3<`W2%v| eW8qOL.#ݥ7Q'G4,nNf.;F:aH{Љ&}k~jz=WXi:@i wM~|%sK੶}/yp||CpʚՄ/vghp<5W-jQP&T/6sM90;/AJ`1E &l63(W[;-~o9-l#-9Ap0upf!wL Zq<ΟʻV^})|Brm{ꊁ]oHKBi:ǢĢ] }>L!}$lyM9AD{H}T0aтP3~U1ŠW; yg@.n'1lgԶY*PkdU2XCxZEȱɱ#CW_Oۦ VJs,lʚ$jm8ښ35` ߼2K/Ԕccj5 bGH-iX?Zנ ~ѐxG:3y#[6r}/:űY0 ԓre\fsL-ܤ,epǼ6+؊R,'\]cw㈻HEZBjRjX^@l®Ŭ"y7F~(Q2wfJҏoi{]R2q 1>nI N\1mRbV@JC2G7)YB @mFw s\A?POf O8+PKɫwW=Ҡ8f  description.sasPKɫwW*riG  ylicense.sasPKɫwW!$ >packagemetadata.sasPKɫwW giceloadpackage.sasPKɫwW8- /H I load.sasPKɫwW#a~A  lazydata.sasPKɫwW^̢  /unload.sasPKɫwW}Ʀ.k  preview.sasPKɫwWWT{% #help.sasPKɫwW  +_001_macro.appendarray.sasPKɫwWhiP/{ /_001_macro.appendcell.sasPKɫwW.]e{ 27_001_macro.array.sasPKɫwW%U0 LU_001_macro.concatarrays.sasPKɫwWvD2 [_001_macro.deletemacarray.sasPKɫwWPuU  a_001_macro.do_over.sasPKɫwWx; Jk_001_macro.do_over2.sasPKɫwWkʘv q_001_macro.do_over3.sasPKɫwWI̦ w_001_macro.make_do_over.sasPKɫwW`l>)m (~_001_macro.mcdictionary.sasPKɫwWC`x _001_macro.mchashtable.sasPKɫwWv+2 V. J_001_macro.qziparrays.sasPKɫwWV _001_macro.sortmacroarray.sasPKɫwWtK39 ӻ_001_macro.ziparrays.sasPKP