MACRO TAB CONV: Unterschied zwischen den Versionen
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 |
||
| (6 dazwischenliegende Versionen desselben Benutzers werden nicht angezeigt) | |||
| Zeile 1: | Zeile 1: | ||
[[Kategorie:zazy]] | [[Kategorie:zazy]] | ||
| + | {{SeitenNavigation1 | ||
| + | |links=xx_left.png | ||
| + | |rechts=xx_right.png | ||
| + | |hoch=FRAKTAL_MACRO_ARCHITECTURE.png | ||
| + | |zurück=MACRO BLK CONV | ||
| + | |vorwärts=MACRO TWO CATV | ||
| + | |übersicht=User Modules (from Phase-III Macro System) | ||
| + | }} | ||
| − | [[Datei: | + | {| class="wikitable" |
| + | ! Workflow Graph | ||
| + | ! Module Type | ||
| + | |- | ||
| + | | [[Datei:MACRO_TAB_CONV.png|thumb|100px]] | ||
| + | | '''User module''' from [[Phase-III Macro System]] based on '''''[[Fraktal SAS Programming|Fractal System Architecture]]'''''. | ||
| + | |} | ||
| − | == | + | == Source == |
| − | + | ;Start Definition with Parameters and Defaults | |
| − | == | + | %MACRO TAB_CONV(dsn=,row=,col=,stats=,num=,stat=Y,pvalue=,nulltxt=N) / store des="Create Table from N continuous SuperRows" ; |
| − | + | ;Declares and other Preparations | |
| + | |||
| + | %LOCAL n_lst v_lst n row_n name; | ||
| + | %LET name=TAB_CONV; | ||
| + | proc datasets nolist lib=work; delete %SUBSTR(&TAB_NAME,1,3)&NUM%SUBSTR(&TAB_NAME,5,4); run; quit; | ||
| + | %CHK_LIST(list=&ROW); | ||
| + | |||
| + | ;Loop for List Processing | ||
| + | |||
| + | %DO n=1 %TO &N_LST; | ||
| + | %LET row_n=%SCAN(&ROW,&N); | ||
| + | %IF &TAB_NAME eq %THEN %DO; | ||
| + | %BLK_CONV(dsn=&DSN,row=&ROW_N,col=&COL,stats=&STATS,num=%EVAL(&NUM+&N-1),stat=&STAT,nulltxt=&NULLTXT); | ||
| + | %END; | ||
| + | %IF &TAB_NAME ne %THEN %DO; | ||
| + | %BLK_CONV(dsn=&DSN,row=&ROW_N,col=&COL,stats=&STATS,num=0,stat=&STAT,pvalue=&PVALUE,nulltxt=&NULLTXT); | ||
| + | proc append base=%SUBSTR(&TAB_NAME,1,3)&NUM%SUBSTR(&TAB_NAME,5,4) data=%SUBSTR(&TAB_NAME,1,3)0%SUBSTR(&TAB_NAME,5,4); run; | ||
| + | proc datasets nolist lib=work; delete %SUBSTR(&TAB_NAME,1,3)0%SUBSTR(&TAB_NAME,5,4); run; quit; | ||
| + | %END; | ||
| + | %END; | ||
| + | %GEN_MAIL(name=&NAME); | ||
| + | |||
| + | ;Close Definition | ||
| + | |||
| + | %MEND TAB_CONV; | ||
Aktuelle Version vom 28. Oktober 2014, 14:30 Uhr
|
|
|
|
| Workflow Graph | Module Type |
|---|---|
| User module from Phase-III Macro System based on Fractal System Architecture. |
Source
- Start Definition with Parameters and Defaults
%MACRO TAB_CONV(dsn=,row=,col=,stats=,num=,stat=Y,pvalue=,nulltxt=N) / store des="Create Table from N continuous SuperRows" ;
- Declares and other Preparations
%LOCAL n_lst v_lst n row_n name; %LET name=TAB_CONV; proc datasets nolist lib=work; delete %SUBSTR(&TAB_NAME,1,3)&NUM%SUBSTR(&TAB_NAME,5,4); run; quit; %CHK_LIST(list=&ROW);
- Loop for List Processing
%DO n=1 %TO &N_LST;
%LET row_n=%SCAN(&ROW,&N);
%IF &TAB_NAME eq %THEN %DO;
%BLK_CONV(dsn=&DSN,row=&ROW_N,col=&COL,stats=&STATS,num=%EVAL(&NUM+&N-1),stat=&STAT,nulltxt=&NULLTXT);
%END;
%IF &TAB_NAME ne %THEN %DO;
%BLK_CONV(dsn=&DSN,row=&ROW_N,col=&COL,stats=&STATS,num=0,stat=&STAT,pvalue=&PVALUE,nulltxt=&NULLTXT);
proc append base=%SUBSTR(&TAB_NAME,1,3)&NUM%SUBSTR(&TAB_NAME,5,4) data=%SUBSTR(&TAB_NAME,1,3)0%SUBSTR(&TAB_NAME,5,4); run;
proc datasets nolist lib=work; delete %SUBSTR(&TAB_NAME,1,3)0%SUBSTR(&TAB_NAME,5,4); run; quit;
%END;
%END;
%GEN_MAIL(name=&NAME);
- Close Definition
%MEND TAB_CONV;
