MACRO ROW BOOL

Aus phenixxenia.org
Version vom 5. März 2014, 21:13 Uhr von Wolf-Dieter Batz (Diskussion | Beiträge)
(Unterschied) ← Nächstältere Version | Aktuelle Version (Unterschied) | Nächstjüngere Version → (Unterschied)
Zur Navigation springen Zur Suche springen

Zurück

Übersicht

Vorwärts

Type

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

Source

%MACRO ROW_BOOL(dsn=,row=,col=,total=T,indent=0,num=,use=,stat=Y,space=2,condense=) / store des="see documentation for a detailed description" ;
%LOCAL name;
%LET name=ROW_BOOL;
  %IF &NUM eq 1 %THEN %LET indent=0; ;
  %IF &NUM gt 1 %THEN %LET total=n; ;
  %TOP_FILT(dsn=&DSN,grp=&ROW,by=&COL,grplvl=&NUM,var=,condense=&CONDENSE);
  %TOP_FREQ(dsn=top_filt,grp=&ROW,by=&COL);
  %TOP_OUTC(dsn=top_freq,head=n,total=&TOTAL,stat=&STAT,indent=&INDENT,grp=&ROW,rev=n,use=&USE,by=&COL);
%IF &TAB_NAME ne %THEN %DO;
  data %SUBSTR(&TAB_NAME,1,3)&NUM%SUBSTR(&TAB_NAME,5,4) ;
   set
  %IF &SPACE eq 1 %THEN dummy;
    &SYSLAST
  %IF &SPACE eq 2 %THEN dummy;
   ;
%END;
%GEN_MAIL(name=&NAME);
%MEND ROW_BOOL;