Here are the updates to the code that should be pushed to Github this evening, providing more detail based on the value of the return code and only performing the validation of the context on the first run.
/******************************************************************************/
/* This program will add a list deployment directories to Metadata for a */
/* defined context. */
/* Date: 14JUN2019 */
/******************************************************************************/
/* History: */
/* 04NOV2024 Added enhanced return code checking, removed redundant lookups of context */
/* when providing multiple deployment directories.*/
/* Copyright © 2023, SAS Institute Inc., Cary, NC, USA. All Rights Reserved.
* SPDX-License-Identifier: Apache-2.0
*/
/* Define connection to Metadata. */
options
metaserver="meta.demo.sas.com"
metaport=8561
metauser="sasadm@saspw"
metapass="password"
metarepository=Foundation
metaprotocol=BRIDGE;
/* Define the context to attach the deployment directories. */
%let appcontext = SASApp;
/* Create a dataset with each deployment directory name and path. */
data depdirs;
length Name Path $ 255;
input Name Path;
datalines;
DeploymentDir1 /tmp/depdir1
DeploymentDir2 /tmp/depdir2
;;
run;
/* End edit. */
data _null_;
/* Initialize variables. */
length type id appuri diruri $ 255;
call missing (of _character_);
/* Define query for context. */
appobj = "omsobj:ServerContext?@Name='&appcontext'";
/* Only for the first iteration, perform validation of the supplied context. */
if _n_ eq 1 then do;
/* Check for the existence of the context. */
rc=metadata_resolve(appobj,type,id);
/* Throw errors based on the return code if not equal to 1. */
if rc eq -1 then do;
put "ERROR: Failed to connect to the Metadata Server using the supplied connection options. " rc=;
stop;
end;
else if rc eq 0 then do;
put "ERROR: Found no application servers named &appcontext in the Metadata Server. " rc=;
stop;
end;
else if rc gt 1 then do;
put "ERROR: Found multiple contexts named &appcontext in the Metadata Server. " rc=;
stop;
end;
end;
/* Read in the data set of deployment directories. */
set depdirs;
/* For each one, create the directory object as a child of the context defined above. */
rc=metadata_newobj("Directory",diruri,Name,"Foundation",appobj,"DataPackages");
/* Only move forward if we successfully created the object. */
if rc eq 0 then do;
/* Add the attribute defining the path. */
rc=metadata_setattr(diruri,"DirectoryName",Path);
/* Add some required attributes. */
rc=metadata_setattr(diruri,"UsageVersion","0");
rc=metadata_setattr(diruri,"IsRelative","0");
end;
else do;
put "ERROR: Failed to create directory object. " rc=;
stop;
end;
run;
... View more
