Type : CREATION_INTERNE
Dieses Skript ist ein Konfigurationsmakro und verarbeitet keine direkten Eingabedaten zur Analyse. Es manipuliert Makroparameter und Systemoptionen, um die Umgebung für die Generierung grafischer Ausgaben im PDF-Format vorzubereiten. Die Dateinamen für die Ausgabe werden dynamisch aus den der Makro übergebenen Parametern oder aus Umgebungsvariablen erstellt.
| 1 | %global gsasfile gsasdir devtyp; |
| 2 | |
| 3 | %macro pdf( |
| 4 | fn, |
| 5 | hsize=6in, |
| 6 | vsize=6in |
| 7 | ); |
| 8 | |
| 9 | %let devtyp=PDF; |
| 10 | %let dev=pdf; |
| 11 | %local gprolog gaccess; |
| 12 | |
| 13 | %*-- Get the basename of the graphic file(s); |
| 14 | %sasgfile(pdf,&fn); |
| 15 | |
| 16 | %put PDF: gsasfile is: "&gsasdir.&gsasfile"; |
| 17 | filename gsasfile "&gsasdir.&gsasfile"; |
| 18 | |
| 19 | %IF &sysver < 6.08 %THEN %DO; |
| 20 | %let gprolog='2521'x; |
| 21 | %let gaccess=sasgaedt; |
| 22 | %END; |
| 23 | %ELSE %DO; |
| 24 | %let gprolog=; |
| 25 | %let gaccess=gsasfile; |
| 26 | %END; |
| 27 | |
| 28 | goptions device=&dev gaccess=&gaccess gsfname=gsasfile gsflen=80 |
| 29 | hpos=70 vpos=65 /* match pscolor device */ |
| 30 | gsfmode=append gprolog=&gprolog; |
| 31 | goptions lfactor=3; |
| 32 | goptions ftext='helvetica'; |
| 33 | goptions hsize=&hsize vsize=&vsize; |
| 34 | %mend; |