El script no utiliza datos tabulares SAS clásicos. Consulta y modifica el repositorio de metadatos (Metadata Repository) a través de funciones especializadas de DATA Step (metadata_resolve, metadata_getnobj, metadata_setassn).
1 Bloque de código
OPTIONS
Explicación : Configuración de los parámetros de conexión al servidor de metadatos SAS 9 (host, puerto, usuario, contraseña, repositorio).
Explicación : Paso DATA _NULL_ que contiene la lógica de negocio: consulta del servidor de metadatos para encontrar la URI del servidor de aplicaciones, búsqueda de las bibliotecas de destino y bucle de asignación (adición de la asociación 'DeployedComponents' con 'metadata_setassn').
¡Copiado!
data _null_;
length type id app_uri lib_uri $ 50;
call missing(of _character_);
/* Recherche du contexte serveur SASSTP */
appobj="omsobj:ServerContext? @Name='SASSTP'";
app_count=metadata_resolve(appobj,type,id);
if app_count <= 0 then do;
put "ERROR: No application server context found matching query " appobj;
stop;
end;
else do;
/* Récupération de l'URI du contexte */
rc=metadata_getnobj(appobj,1,app_uri);
/* Recherche des bibliothèques cibles */
libobj="omsobj:SASLibrary? ..."; /* Partie corrompue dans l'entrée originale */
lib_count=metadata_resolve(libobj,type,id);
if lib_count <= 0 then do;
put "ERROR: No libraries found matching query " libobj;
stop;
end;
else do n=1 to lib_count;
/* Boucle de mise à jour des métadonnées */
rc=metadata_getnobj(libobj,1,lib_uri);
rc=metadata_setassn(lib_uri,"DeployedComponents","Append",app_uri);
end;
end;
run;
1
DATA _null_;
2
LENGTH type id app_uri lib_uri $ 50;
3
call missing(of _character_);
4
5
/* Recherche du contexte serveur SASSTP */
6
appobj="omsobj:ServerContext? @Name='SASSTP'";
7
app_count=metadata_resolve(appobj,type,id);
8
9
IF app_count <= 0 THENDO;
10
put "ERROR: No application server context found matching query " appobj;
11
stop;
12
END;
13
ELSEDO;
14
/* Récupération de l'URI du contexte */
15
rc=metadata_getnobj(appobj,1,app_uri);
16
17
/* Recherche des bibliothèques cibles */
18
libobj="omsobj:SASLibrary? ..."; /* Partie corrompue dans l'entrée originale */
19
lib_count=metadata_resolve(libobj,type,id);
20
21
IF lib_count <= 0 THENDO;
22
put "ERROR: No libraries found matching query " libobj;
Este material se proporciona "tal cual" por We Are Cas. No hay garantías, expresas o implícitas, en cuanto a la comerciabilidad o idoneidad para un propósito particular con respecto a los materiales o el código contenidos en este documento. We Are Cas no es responsable de los errores en este material tal como existe ahora o existirá, ni We Are Cas proporciona soporte técnico para el mismo.
Información de copyright : Author: Greg Wootton Date: 16JUN2017
SAS y todos los demás nombres de productos o servicios de SAS Institute Inc. son marcas registradas o marcas comerciales de SAS Institute Inc. en los EE. UU. y otros países. ® indica registro en los EE. UU. WeAreCAS es un sitio comunitario independiente y no está afiliado a SAS Institute Inc.
Este sitio utiliza cookies técnicas y analíticas para mejorar su experiencia.
Saber más.