MACRO TWO BOCA: Unterschied zwischen den Versionen

Aus phenixxenia.org
Zur Navigation springen Zur Suche springen
(Die Seite wurde neu angelegt: „Kategorie:zazy 200px|thumb == Type == '''User module''' from Phase-III Macro System based on '''''[[Frakta…“)
 
K
Zeile 10: Zeile 10:
  
 
[[Datei:MACRO_TWO_BOCA.png]]
 
[[Datei:MACRO_TWO_BOCA.png]]
 +
 +
== 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 des="see documentation for a detailed description";
 +
 +
%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;

Version vom 11. Juli 2013, 17:16 Uhr


FRAKTAL MACRO ARCHITECTURE.png

Type

User module from Phase-III Macro System based on Fractal System Architecture.

Workflow

MACRO TWO BOCA.png

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 des="see documentation for a detailed description";
%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;