Réparation de table sas indéxé dont le fichier index supprimé [Résolu]

[reznac]

bonjour

je travaille avec sas V6 sous l'environement VM mainframe , j'ai des tables indéxés dont les utilisateurs on supprimé les fichiers indexe, par consequence je ne pourais pas générer un fichier de transport pour ces table avec la proc CPORT
manuelement j'ai la posibilité de réparer la table ( sas recré le fichier index )
comme j'ai beaucoup de table dans ce cas de figure, il faux que je cherche un moyen de le faire par programme
quelqu'un a il une solution


merci pour votre aide

[s_a_m]

Bonjour,
pourquoi utilises tu la proc cport?

la proc import ne suffit pas ?

tu veux juste transférer les tables et index ?

[wise2]

Bonjour,

Avec une proc datasets; repair. Les indexs manquants devraient être automatiquement recréés, non !?

[s_a_m]

Oui c'est faisable. Maintenant reste à savoir si reznac à plusieurs biblio, car le fonctionnement VM/CMS n'est pas le même que Windows ou Unix.

Sous VM on n'a pas le libre choix quand au nom de la biblio et c'est obligatoirement le FILEMANE (VM) qu'il faut mettre comme nom de biblio.

Maintenant pour automatiser la tâche en utilisant la PROC DATASETS pour réparer les tables. Je te propose ce petit programme qui permet la réparation de toutes les tables (d’au moins celles qui nécessite une réparation.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
 
%macro reparer;
	%LOCAL nbr i;
 
	/* La ligne qui suit permet de récuperer le contenu du disque K ( à changer si t'as un autre nom de disque) */
	%cms listf  *    SAS  K ( exec format;
 
 
	DATA  tab_sas  ;
 
	INFILE "cms exec a"  dsd missover ;
 
	@8    tab         $ 8.
	@17   lib         $ 8.
	@26   disc        $ 1.
	@37   longueur    $ 4.
	;
	/* ici on ne  récupère que les tables SAS (les libname), sous VM/CMS les les tables SAS ont un  LRECL=1024 */
	IF longueur = '1024' then output ;
		run;
 
	DATA _null_;
	SET tab_sas end=eof;
 
	IF eof then do;
		call symput ( 'nbr' , _n_);
	call symput ('table'!!LEFT(_n_), tab);
	call symput ('libre'!!LEFT(_n_),lib);
	end;
	run;
 
 
	%do i=1 %TO &nbr.;
 
 
	proc datasets lib=&&libre&i;
	repair &&table&i ;
	quit;
	run;
 
	%end;
%mend;
 
%reparer;

Par contre je ne compernds pas pourquoi veux-tu utiliser la proc CPORT

Bon courage.

[reznac]

ça marche bien,
la proc cport, je l'utilise pour générer des fichier de transport, je les met dans un serveur FTP sur MVS , afin que je les récupére coté Unix et avec la proc CIMPORT je reconstitu les table d'origines


merci bien S A M

[s_a_m]

Nacir, la proc CPORT est Inutile dans ce cas.

Avec un fichier scr ( script de connexion)tu pourra établir une connexion de Unix vers VM/CMS ou MSV et importer tout ce que tu veux avec une proc donwload.
Maintenant il faut faire attention à la transcodification et à la gestion des caractères spéciaux quand à ce type de transfert entre systèmes.