MACRO TWO BOCA: Unterschied zwischen den Versionen
Zur Navigation springen
Zur Suche springen
K |
K |
||
| Zeile 8: | Zeile 8: | ||
|übersicht=User Modules (from Phase-III Macro System) | |übersicht=User Modules (from Phase-III Macro System) | ||
}} | }} | ||
| − | |||
| − | |||
== Type == | == Type == | ||
| Zeile 15: | Zeile 13: | ||
'''User module''' from [[Phase-III Macro System]] based on '''''[[Fraktal SAS Programming|Fractal System Architecture]]'''''. | '''User module''' from [[Phase-III Macro System]] based on '''''[[Fraktal SAS Programming|Fractal System Architecture]]'''''. | ||
| − | == Workflow == | + | == Workflow / Source == |
| − | |||
| − | |||
| − | == | + | {| class="wikitable" |
| + | |- | ||
| + | | style="width:35%;"|[[Datei:MACRO_TWO_BOCA.png|thumb|center|Workflow]] | ||
| + | | | ||
| + | ; Start Definition with Parameters and Defaults | ||
| − | %MACRO TWO_BOCA(dsn=,use=,row=,row2=,col=,indent=0,num=,total=T,stat=Y,weight=Y,space=3,condense=,struct=,struct2=,head=Y,head2=Y,misslin2=,indinc=2) / store | + | %MACRO TWO_BOCA(dsn=,use=,row=,row2=,col=,indent=0,num=,total=T,stat=Y,weight=Y,space=3,condense=,struct=,struct2=,head=Y,head2=Y,misslin2=,indinc=2) / store; |
%LOCAL n_grp v_grp n name; | %LOCAL n_grp v_grp n name; | ||
Version vom 6. März 2014, 13:56 Uhr
|
|
|
|
Type
User module from Phase-III Macro System based on Fractal System Architecture.
Workflow / Source
%MACRO TWO_BOCA(dsn=,use=,row=,row2=,col=,indent=0,num=,total=T,stat=Y,weight=Y,space=3,condense=,struct=,struct2=,head=Y,head2=Y,misslin2=,indinc=2) / store; %LOCAL n_grp v_grp n name;
%LET name=TWO_BOCA;
%IF &STRUCT eq %THEN %LET struct =&DSN;
%IF &STRUCT2 eq %THEN
%TOP_FILT(dsn=&DSN,grp=&ROW,grp2=&ROW2,by=&COL,grplvl=&NUM,var=,condense=&CONDENSE);
%ELSE
%TOP_FILT(dsn=&DSN,grp=&ROW,grp2=,by=&COL,grplvl=&NUM,var=,condense=&CONDENSE);
%TOP_FREQ(dsn=top_filt,struct=&STRUCT,grp=&ROW,by=&COL);
%TOP_OUTC(dsn=top_freq,head=&HEAD,total=&TOTAL,stat=&STAT,indent=&INDENT,grp=&ROW,rev=n,use=&USE,by=&COL);
%GRP_DESC(dsn=&DSN,grp=&ROW,miss=n);
%IF &STRUCT2 eq %THEN %LET struct2=top_filt;
%DO n=1 %TO &N_GRP;
%IF %SCAN(&V_GRP,&N) eq &USE %THEN %DO;
%ROW_FILT(dsn=&DSN,context=&ROW,subgrp=&N,grp=&ROW2,by=&COL,var=,miss=n);
%ROW_FREQ(dsn=row_filt,sum=top_freq,struct=&STRUCT2,context=&ROW,grp=&ROW2,by=&COL,weight=&WEIGHT);
%ROW_OUTC(dsn=row_freq,sum=,head=&HEAD2,stat=&STAT,indent=%EVAL(&INDENT+&INDINC),context=&ROW,grp=&ROW2,by=&COL,missline=&MISSLIN2);
%END;
%END;
%IF &TAB_NAME ne %THEN %DO;
data &TAB_DEF&NUM%SUBSTR(&TAB_NAME,5,4);
set
%IF &SPACE eq 1 %THEN dummy ;
row&NUM._0
%IF &SPACE eq 2 %THEN dummy ;
row&NUM._&CURSUB
%IF &SPACE eq 2 %THEN dummy ;
%IF &SPACE eq 3 %THEN dummy ;
;
run;
%END;
%GEN_MAIL(name=&NAME);
%MEND TWO_BOCA; |
