Créer une fiche avec ODS PDF

Version imprimable

Bonjour, le programme suivant me permet de créer une fiche par observation.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
data T1;
   input X Y $ Z;
   datalines;
1 ze 3
4 fsdf 6
7 dsgg 9
;
data _null_;
   set T1;
   length NomVar $32 VarCar $ 500;
   put @1 "Ceci est un essai" @80 "Observation " _N_;
   do until(NomVar='NomVar');
      call vnext(NomVar);
      if NomVar eq 'NomVar' then leave;
      if vtype(NomVar) eq 'N' then do; VarNum=vvaluex(NomVar); put @1 NomVar @20 VarNum; end;
      if vtype(NomVar) eq 'C' then do; VarCar=vvaluex(NomVar); put @1 NomVar @20 VarCar; end;
   end;
   put _page_;
run;

Mais le résultat est dans la LOG !

Je souhaiterai obtenir ce même résultat dans un fichier PDF à l'aide du programme suivant et en remplaçant put par put _ODS_ :

Code:

1
2
3
4
5
6
7
8
9
   ods listing close;
   ods pdf file='d:\temp\X.pdf' notoc startpage=no;
   data _null_;
      set T1 end=FinTable;
      file print ods;
      ...
   run;
   ods pdf close;
   ods listing;

Ca ne me donne pas du tout un résultat correct.

Quelqu'un saurait-il comment procéder ?

23/05/2012, 11h24
richie_leffe

Je crois que tu dois utiliser une procédure pour générer l'output, dans ce cas-ci, un proc print suffira
24/05/2012, 11h34
enicnath
Je crois que je me suis mal fait comprendre.

Avec mon programme initial, j'obtiens ce que je veux lorsque je n'utilise pas ODS.
Mon problème est de savoir comment obtenir une sortie via ODS, avec le même type de programme.

Dans ce que tu dis, une proc print va générer le type d'output suivant :
Code:

1 2 3 4 X Y Z 1 ze 3 4 fsdf 6 7 dsgg 9
Ce n'est pas ce que je souhaite.
Je voudrais obtenir 3 fiches avec pour la 1ère fiche dans mon exemple :
Code:

1 2 3 X 1 Y ze Z 3
idem pour les fiches 2 et 3

C'est un peux ce qu'on pourrait obtenir avec une proc tranpose, en bidouillant un peu, mais mon problème de départ n'aura pas trouvé sa solution.

Mon problème de fiche n'est toujours pas résolu. Voici une version qui fonctionne, sans ODS :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 data T1; input X Y $ Z; datalines; 1 ze 3 4 fsdf 6 7 dsgg 9 ; data _null_; set T1; file 'd:\temp\x.txt'; length NomVar $32 VarCar $ 500; put "Observation " _N_; do until(NomVar='NomVar'); call vnext(NomVar); if vtypex(NomVar) eq 'N' then do; VarNum=vvaluex(NomVar); put @1 NomVar @20 VarNum; end; if vtypex(NomVar) eq 'C' then do; VarCar=vvaluex(NomVar); put @1 NomVar @20 VarCar; end; end; run;
J'imprime dans un fichier texte quelconque (ici, X.txt). J'obtiens bien mes observations sous forme de fiches.
La même chose ne fonctionne pas avec ODS. Voici le programme :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 data T1; input X Y $ Z; datalines; 1 ze 3 4 fsdf 6 7 dsgg 9 ; ods listing close; ods pdf file='d:\temp\X.pdf'; data _null_; set T1; file print ods; length NomVar $32 VarCar $ 500; put _ODS_ "Observation " _N_; do until(NomVar='NomVar'); call vnext(NomVar); IF vtype(NomVar) eq 'N' then do; VarNum=vvaluex(NomVar); put _ODS_ @1 NomVar @20 VarNum; end; IF vtype(NomVar) eq 'C' then do; VarCar=vvaluex(NomVar); put _ODS_ @1 NomVar @20 VarCar; end; end; run; ods pdf close; ods listing;
La LOG affiche des remarques pour chaque observation lue dans T1 :

Citation:

NOTE: Invalid numeric data, 'Observation' , at line 12 column 4.
NOTE: Invalid numeric data, NomVar='X' , at line 15 column 65.
NOTE: Invalid numeric data, NomVar='Y' , at line 16 column 65.
NOTE: Invalid numeric data, VarCar='ze' , at line 16 column 65.
NOTE: Invalid numeric data, NomVar='Z' , at line 15 column 65.
NOTE: Invalid numeric data, NomVar='NomVar' , at line 16 column 65.
NOTE: Invalid numeric data, VarCar='NomVar' , at line 16 column 65.
X=1 Y=ze Z=3 NomVar=NomVar VarCar=NomVar VarNum=3 _ERROR_=1 _N_=1

Quelqu'un saurait-il débrouiller cette question ?