Type : CREATION_INTERNE
Este script es una macro de configuración y no trata directamente con datos de entrada para el análisis. Manipula parámetros de macro y opciones del sistema para preparar el entorno de generación de salidas gráficas en formato PDF. Los nombres de los archivos de salida se construyen dinámicamente a partir de los parámetros proporcionados a la macro o de las variables de entorno.
| 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; |