Ajout et suppression des"rsubmit" et "endrsubmit" dans fichier SAS exterieur [Résolu]

[bahraoui]

Bonjour,

J'ai écris une macro qui charge un programme SAS dans une table SAS sous Windows, je supprime les rsubmit et endrsubmit, et je copie le programme sous unix.

Tout fonctionnent correctement à l'exception de la mise en page (espaces...)que je perds lors du chargement du fichier dans une table SAS.
Est qu'il y a un moyen pour ne pas perdre la mise en page lors de l'import d'un fichier dans une table SAS?
Sinon comment peut on ajouter ou supprimer du code dans un programme SAS.

Cordialement.

[fafabzh6]

Bonjour,
Je ne vois pas trop ce que tu veux faire, mais si tu mets ton code ça sera peut être plus claire.
Fafabzh

[Fleur-Anne.Blain]

La mise en page....aucune idée et peu importe je dirais. Par contre pour ajouer ou supprimer du code SAS dans ton programme il suffit de l'éditer avec SAS...

Envoyé par bahraoui

Bonjour,

J'ai écris une macro qui charge un programme SAS dans une table SAS sous Windows, je supprime les rsubmit et endrsubmit, et je copie le programme sous unix.

Tout fonctionnent correctement à l'exception de la mise en page (espaces...)que je perds lors du chargement du fichier dans une table SAS.
Est qu'il y a un moyen pour ne pas perdre la mise en page lors de l'import d'un fichier dans une table SAS?
Sinon comment peut on ajouter ou supprimer du code dans un programme SAS.

Cordialement.

[bahraoui]

Envoyé par fafabzh6

Bonjour,
Je ne vois pas trop ce que tu veux faire, mais si tu mets ton code ça sera [CODE]peut être plus claire.
Fafabzh

Le fichier prg.sas contient du code SAS, le code est bien indenté.
Je charge ce fichier dans une table SAS et je supprime les "rsubmit" et "endrsubmit".

Code :

1
2
3
4
5
6
7
8
9
10
 
DATA prg;
INFILE "c:\prg.sas" truncover dsd;
input chaine $100.; 
chaine1=TRANWRD(lowcase(chaine),'endrsubmit;','') ;
run;
 
DATA prg; SET prg;
chaine1=TRANWRD(lowcase(chaine1),'rsubmit;','') ;
run;

Après je crée un fichier à partir de la table prg (le fichier que je vais créer ne contient plus rsubmit et endrsubmit) et je peux faire un upload sur le serveur unix est le lancer avec un shell SAS.

Code :

1
2
3
4
5
DATA _null_;
file "c:\temp\prg_new.sas";
SET prg;
put chaine1;
run;

le fichier fichier prg_new.sas n'est plus indenté!!! donc illisible.

Cordialement.

[fafabzh6]

Bonjour,
Peux-tu mettre aussi ton programme prg.sas

[bahraoui]

Envoyé par fafabzh6

Bonjour,
Peux-tu mettre aussi ton programme prg.sas

N'importe quel programme peut faire l'affaire.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
DATA t1;
input p;
cards;
1
2
3
;
                run;
DATA t2;
SET t1;
IF p > 2 then do;
        t='TOTO';
		t1='TITI';
end;
     /*la ligne concernanat la variable t contient des espaces*/
     /*la ligne concernanat la variable t1 contient une tabulation*/
         run;
      /*Fin programme */

[fafabzh6]

As-tu réussi à solutionner ton problème?

[bahraoui]

Envoyé par fafabzh6

As-tu réussi à solutionner ton problème?

Bonjour,

Ce n'était pas simple
Ajout du code dans un programme SANS PERDRE L'INDENTATION

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
DATA _null_;
INFILE entree RECFM=F sharebuffers end=eof LRECL=256;
file sortie RECFM=F ;
input;
IF _n_=1 then do; 
	_infile_='RSUBMIT;'||_infile_;
	put _infile_;  
end;
else IF eof then do;
	put _infile_ 'ENDRSUBMIT;';
end;
else do;
	put _infile_;
end;
run;

Supprimer du code SANS PERDRE L'INDENTATION

data _null_;
infile entree RECFM=F sharebuffers end=eof LRECL=256;
file sortie RECFM=F;
input;
_infile_=tranwrd(_infile_,'ENDRSUBMIT;','');
_infile_=tranwrd(_infile_,'endrsubmit;','');
_infile_=tranwrd(_infile_,'RSUBMIT;','');
_infile_=tranwrd(_infile_,'rsubmit;','');
put _infile_;
run;

Cordialement.
Salah