Macro XEDIT (from Fraktal SAS Programming): Unterschied zwischen den Versionen

Aus phenixxenia.org
Zur Navigation springen Zur Suche springen
K
K
Zeile 9: Zeile 9:
 
}}
 
}}
  
−
%MACRO xedit(xentry,xpath);
+
{| class="wikitable"
−
%LOCAL xpath;
+
! Code executed
−
%IF %LENGTH(&XPATH.) = 0 %THEN %DO;
+
! Function performed
−
%XSET(homeshare);
+
|-
−
%LET xpath = &HOMESHARE.;
+
|
−
%END;
+
;%MACRO xedit(xentry,xpath);
−
%IF &XENTRY. ne %THEN %DO;
+
|
−
filename path "&XPATH";
+
|-
−
DM "PGM";
+
|
−
DM "inc path(&XENTRY.)";
+
:%LOCAL xpath;
−
%END;
+
|
−
%ELSE %DO;
+
|-
−
%XDIR(&HOMESHARE.);
+
|
−
%END;
+
;%IF %LENGTH(&XPATH.) = 0 %THEN %DO;
−
filename path clear;
+
|
−
%MEND xedit;
+
|-
 +
|
 +
:%XSET(homeshare);
 +
|
 +
|-
 +
|
 +
:%LET xpath = &HOMESHARE.;
 +
|
 +
|-
 +
|
 +
;%END;
 +
|
 +
|-
 +
|
 +
;%IF &XENTRY. ne %THEN %DO;
 +
|
 +
|-
 +
|
 +
;filename path "&XPATH";
 +
|
 +
|-
 +
|
 +
:DM "PGM";
 +
|
 +
|-
 +
|
 +
:DM "inc path(&XENTRY.)";
 +
|
 +
|-
 +
|
 +
;%END;
 +
|
 +
|-
 +
|
 +
;%ELSE %DO;
 +
|
 +
|-
 +
|
 +
:%XDIR(&HOMESHARE.);
 +
|
 +
|-
 +
|
 +
;%END;
 +
|
 +
|-
 +
|
 +
;filename path clear;
 +
|
 +
|-
 +
|
 +
;%MEND xedit;
 +
|}
  
 
{{SeitenNavigation1
 
{{SeitenNavigation1

Version vom 31. Juli 2014, 15:56 Uhr

Zurück

Übersicht

Vorwärts

Code executed Function performed
%MACRO xedit(xentry,xpath);
%LOCAL xpath;
%IF %LENGTH(&XPATH.) = 0 %THEN %DO;
%XSET(homeshare);
%LET xpath = &HOMESHARE.;
%END;
%IF &XENTRY. ne %THEN %DO;
filename path "&XPATH";
DM "PGM";
DM "inc path(&XENTRY.)";
%END;
%ELSE %DO;
%XDIR(&HOMESHARE.);
%END;
filename path clear;
%MEND xedit;

Zurück

Übersicht

Vorwärts

Abgerufen von „https://phenixxenia.org/w/index.php?title=Macro_XEDIT_(from_Fraktal_SAS_Programming)&oldid=3992“