MACRO BLK CATV: 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_BLK_CATV.png]]
 
[[Datei:MACRO_BLK_CATV.png]]
 +
 +
== Source ==
 +
 +
%MACRO BLK_CATV(dsn=,row=,rev=N,col=,total=T,head=Y,indent=,num=,stat=Y,space=2,struct=,condense=,missline=) / store des="see documentation for a detailed description" ;
 +
 +
%LOCAL name;
 +
%LET name=BLK_CATV;
 +
  %IF &STRUCT eq %THEN %LET struct=&DSN; ;
 +
  %IF &NUM gt 1 and %UPCASE(&TOTAL) eq T %THEN %LET total=n; ;
 +
  %TOP_FILT(dsn=&DSN,grp=&ROW,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=&REV,use=,by=&COL,missline=&MISSLINE);
 +
%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 BLK_CATV;

Version vom 11. Juli 2013, 18:07 Uhr


FRAKTAL MACRO ARCHITECTURE.png

Type

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

Workflow

MACRO BLK CATV.png

Source

%MACRO BLK_CATV(dsn=,row=,rev=N,col=,total=T,head=Y,indent=,num=,stat=Y,space=2,struct=,condense=,missline=) / store des="see documentation for a detailed description" ;
%LOCAL name;
%LET name=BLK_CATV;
  %IF &STRUCT eq %THEN %LET struct=&DSN; ;
  %IF &NUM gt 1 and %UPCASE(&TOTAL) eq T %THEN %LET total=n; ;
  %TOP_FILT(dsn=&DSN,grp=&ROW,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=&REV,use=,by=&COL,missline=&MISSLINE);
%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 BLK_CATV;