MACRO TAB CONV: Unterschied zwischen den Versionen

Aus phenixxenia.org
Zur Navigation springen Zur Suche springen
K
K
 
(2 dazwischenliegende Versionen desselben Benutzers werden nicht angezeigt)
Zeile 9: Zeile 9:
 
}}
 
}}
  
== Type ==
+
{| 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]]'''''.
 +
|}
  
'''User module''' from [[Phase-III Macro System]] based on '''''[[Fraktal SAS Programming|Fractal System Architecture]]'''''.
+
== Source ==
  
== Workflow / Source ==
+
;Start Definition with Parameters and Defaults
  
{| class="wikitable"
+
  %MACRO TAB_CONV(dsn=,row=,col=,stats=,num=,stat=Y,pvalue=,nulltxt=N) / store des="Create Table from N continuous SuperRows" ;
|-
+
 
| style="width:35%;"|[[Datei:MACRO_TAB_CONV.png|thumb|center|Workflow]]
+
;Declares and other Preparations
|
 
  %MACRO TAB_CONV(dsn=,row=,col=,stats=,num=,stat=Y,pvalue=,nulltxt=N)  
 
/ store des="Create Table from N continuous SuperRows" ;
 
  
 
  %LOCAL n_lst v_lst n row_n name;
 
  %LOCAL n_lst v_lst n row_n name;
Zeile 26: Zeile 29:
 
   proc datasets nolist lib=work; delete %SUBSTR(&TAB_NAME,1,3)&NUM%SUBSTR(&TAB_NAME,5,4); run; quit;
 
   proc datasets nolist lib=work; delete %SUBSTR(&TAB_NAME,1,3)&NUM%SUBSTR(&TAB_NAME,5,4); run; quit;
 
  %CHK_LIST(list=&ROW);
 
  %CHK_LIST(list=&ROW);
 +
 +
;Loop for List Processing
 +
 
  %DO n=1 %TO &N_LST;
 
  %DO n=1 %TO &N_LST;
 
   %LET row_n=%SCAN(&ROW,&N);
 
   %LET row_n=%SCAN(&ROW,&N);
Zeile 38: Zeile 44:
 
  %END;
 
  %END;
 
  %GEN_MAIL(name=&NAME);
 
  %GEN_MAIL(name=&NAME);
 +
 +
;Close Definition
  
 
  %MEND TAB_CONV;
 
  %MEND TAB_CONV;
|}
 

Aktuelle Version vom 28. Oktober 2014, 14:30 Uhr

Zurück

Übersicht

Vorwärts

Workflow Graph Module Type
MACRO TAB CONV.png
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;