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

Aus phenixxenia.org
Zur Navigation springen Zur Suche springen
← Zum vorherigen VersionsunterschiedZum nächsten Versionsunterschied →
Wolf-Dieter Batz (Diskussion | Beiträge)
autoreview, Bürokraten, editor, reviewer, Administratoren
12.497 Bearbeitungen
KKeine Bearbeitungszusammenfassung
Wolf-Dieter Batz (Diskussion | Beiträge)
autoreview, Bürokraten, editor, reviewer, Administratoren
12.497 Bearbeitungen
KKeine Bearbeitungszusammenfassung
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“