@sassoftware/viya-serverjs 0.1.2 → 0.2.0

package/packages/examples/app/certs/ca.crt

@@ -0,0 +1,19 @@
+-----BEGIN CERTIFICATE-----
+MIIDIjCCAgqgAwIBAgIIXK9uCGkAZEcwDQYJKoZIhvcNAQELBQAwLzEtMCsGA1UE
+AxMkU0FTIFZpeWEgb3BlbnNzbCBSb290IENBIENlcnRpZmljYXRlMB4XDTIzMDkw
+NTEyMTE1M1oXDTI4MDkwNDEyMjY1M1owLzEtMCsGA1UEAxMkU0FTIFZpeWEgb3Bl
+bnNzbCBSb290IENBIENlcnRpZmljYXRlMIIBIjANBgkqhkiG9w0BAQEFAAOCAQ8A
+MIIBCgKCAQEAosmo1/yW04reIhucI7PXSjnRdYioQUWI62f2ohaW6hARgUhT1HUx
+93LCpSq8zpgRuHAfAtNgeCKIKhM+GIDSqiNxsHAVljblrIKiS0lPfPmV0NFE2FMF
+eUtQldqEjGOeYH4Wf6AR/hDr1X1ar0nbzJU/GoNA5yvV8Quk4aZsM6slnkm9jmwu
+7AyCyT+Ms6CMFBuWR17+tf/H4Sacyp0GX9kpNKtWZ6eSUn/vzsFG6gyqbxWUwcAk
+bTXX6EyP1STtHiQ4xEKO2DkYDFKt8rFkKouCybH/iFwszMfs40AGzsOldj8CqECe
+R3eem5Lyz7bK9HO9AwrAK4dg6qiQNBThCQIDAQABo0IwQDAOBgNVHQ8BAf8EBAMC
+AqQwDwYDVR0TAQH/BAUwAwEB/zAdBgNVHQ4EFgQUlRRx1PVwUxylneMHIE69ttRL
+OFgwDQYJKoZIhvcNAQELBQADggEBACb6bxKMjfnj3rN2teZVl3mV4kVWV9bewIiU
+mFHrXIqvEhO2BsZoMNz27xQ2WmiwVgZiCb7QEYclx0ypTuEMiJAyaJZG5ogMy292
+KhPvEqj+suTEKBIdsNc6IliuC+/Wfd0u45w/2sIGQi9ySo1oNyB6QeBaja0PHb5w
+1JiXTk0wnYOhaPu+0J4mGvSwOmMcFkJpur40NjBWAjenPxnMGrBCjA/KTCaqEQ+O
+lMiQHt7J7rJrPhAs3uA4hxhDR+CbaWIxPUNrHkbZzakMiUpw8RVdY3U5bYrjc6fV
++x1hJWiqRW4CDMCwmaD0byL95og9vBL7si78NUsP8MnecGdqWAE=
+-----END CERTIFICATE-----

package/packages/examples/app/certs/tls.crt

@@ -0,0 +1,25 @@
+-----BEGIN CERTIFICATE-----
+MIIEJzCCAw+gAwIBAgIIa5XRpEFkiJowDQYJKoZIhvcNAQELBQAwLzEtMCsGA1UE
+AxMkU0FTIFZpeWEgb3BlbnNzbCBSb290IENBIENlcnRpZmljYXRlMB4XDTIzMTAx
+NDEwNTE1OVoXDTI1MTAxMzExMDY1OVowHjEcMBoGA1UEAxMTc2FzLWNvbnN1bC1z
+ZXJ2ZXItMDCCASIwDQYJKoZIhvcNAQEBBQADggEPADCCAQoCggEBANBcqa39TogJ
+n57iGMYQ2dPvKt0ueLNaW70w1qBBb4CWeFclwcAhJQ7EHgvrdSfR7WGfoCe2E9nI
+g2lTabLT1CJnTeTEg9JqKywfzRooF8sSTeW1Sjjz/TXtAxJW/UfoKqUSRRQcjeNC
+LCshWx0YQCew+T7gWwCu6+L39l5EwP20WGV0vtZlNPm8wGJf14MuLd9Pltzps0Sx
+WGk/OWr3yrwBC21+9wdI77aPh9zAgD31tbUAeGMrCTpY3oWuI8vKlo9kDOoiXAjv
+bIVLhzU4HqL/cgwl9dRSTmq00N8qd/jReBjloJl4Vta/7hWxkJmwH4XPYYhFQe+b
+hW9RMMTKNucCAwEAAaOCAVYwggFSMA4GA1UdDwEB/wQEAwIFoDAdBgNVHSUEFjAU
+BggrBgEFBQcDAQYIKwYBBQUHAwIwHQYDVR0OBBYEFCb35V252QMYv87u/lrBgCSJ
+QTKeMB8GA1UdIwQYMBaAFJUUcdT1cFMcpZ3jByBOvbbUSzhYMIHgBgNVHREEgdgw
+gdWCIGFrcy1zdGF0ZWZ1bC0yMTkzODE2NS12bXNzMDAwMDBzgglsb2NhbGhvc3SC
+EXNhcy1jb25zdWwtc2VydmVyghNzYXMtY29uc3VsLXNlcnZlci0wgkVzYXMtY29u
+c3VsLXNlcnZlci0wLnNhcy1jb25zdWwtc2VydmVyLWludGVybmFsLnZpeWEuc3Zj
+LmNsdXN0ZXIubG9jYWyCH3hhYXMtODQ3ODQ4ODQ1MTEuZW5nYWdlLnNhcy5jb22H
+BAoAAlKHBAr0BTOHBH8AAAGHBMCoAAgwDQYJKoZIhvcNAQELBQADggEBAHK0ua95
+58zfmBIqt50REsUHZ8prLd/UKKwfJpUYC8blK8sHV/t3w5CvjUEHLdA4SFvYRpXB
+Nfhb4Hepe9zg9jANon4coWxNpbKBSLx8CTombylfqEjCtnVsl6dNWC4s6e+sHrZe
+o8Uc687G7g1IkN/Aw7BO/aPoZA5U5rl4uZdmVg/wIbkdaAKjMR3Z86ykamNsCIp2
+aCXsCO8wSurG+upczsnBqYCBtX3F5EhE5BUsEgq8c5op7Gx5CAJ2KN/pL76i2JL2
+h7mHfNqQZoFSypp2d4U3GLLb92gxoQosbQrnX8vCI9m9OlKOJzooMI4uP838nwxf
+GyfP+QhQCMDGc+A=
+-----END CERTIFICATE-----

package/packages/examples/app/certs/tls.key

@@ -0,0 +1,28 @@
+-----BEGIN PRIVATE KEY-----
+MIIEvgIBADANBgkqhkiG9w0BAQEFAASCBKgwggSkAgEAAoIBAQDQXKmt/U6ICZ+e
+4hjGENnT7yrdLnizWlu9MNagQW+AlnhXJcHAISUOxB4L63Un0e1hn6AnthPZyINp
+U2my09QiZ03kxIPSaissH80aKBfLEk3ltUo48/017QMSVv1H6CqlEkUUHI3jQiwr
+IVsdGEAnsPk+4FsAruvi9/ZeRMD9tFhldL7WZTT5vMBiX9eDLi3fT5bc6bNEsVhp
+Pzlq98q8AQttfvcHSO+2j4fcwIA99bW1AHhjKwk6WN6FriPLypaPZAzqIlwI72yF
+S4c1OB6i/3IMJfXUUk5qtNDfKnf40XgY5aCZeFbWv+4VsZCZsB+Fz2GIRUHvm4Vv
+UTDEyjbnAgMBAAECggEAANgmI9/tC684lac9Lr8lTkFESHxPlJ3oHrDb1KYhhNNy
+stH+NJKtz58UHTv3K21sxvl/DDfcz01CR6Mgdzznp03AJg4sF7ieIZjtrbMHCRV8
+VVL2meQyE8SUP5t9xvk/KLTw9dznMAD/EkCHWdlCmCaUubKlC8Kps3jA54pRNnX4
+U3n17CGpaawAw6IWpynoqWeZfO6hV35FyAzrJ/+oT2/r1ySf7k+V7n+XHfjz+K42
+Zp0mUGtvZe0nFYvzMnFpUkxvcSXarIzD/+/FMtkJnFh5GDzKRAf0kQSWSqLL31rZ
+6dope8cYUhMnfAH+y+qYFohMSAMkFvfmHIfJCX5OyQKBgQDt/UtwFSV4A1la3X7F
+lVek1r6xbkmWto4G+w6gGB3IiyhAQ7JT4AjGjQ6+8HUQwq9ntslJl85+3hHNTHV9
+QV/6FBr4V91wW88FB9ruD6jw//Qyv4I74LRp34eAFQTWn7klnE3ZrGQVqPNgC+Aa
+cQ2VChUBjMeZsJWe6zLeQ92bWwKBgQDgIWDVNQysqqk1Hvqu8vFIAh4DWmfwGBSY
+CfOrlLfVnqcWtAX9jVhwaf+SZhldG0CUh4fzB+thzRSn5BWk7Cdcc4hmol77Qs4T
+XJyI2iSQJGi9cagPpBVmA+/f7d3OpWBcRkNQR4v3V1em8fIC+12LdolBP/Ah4APl
+RqmMn5OEZQKBgQDnq7wk5qDr3C6+soF267M+xsEpTdga+6j0iK6rD+7mSviq3nuZ
+BKzmQ2hIXSFIaIyBpMD7f+jHPXwM4tI4VUyNz8aVXEs21liHaCcpuVrXCAJ66Exp
+54sYyT1JZKyqFSARyb9LF3LyVt5b8BN/CfCT1hWuxZGEPg7YfdKt5VizowKBgQCk
+YZaliKztDpXfcgMlwOSZjYP5rZrBise/4rymQQK7WArwKcSi+8G7YOKiuuMrWEt7
+JBPfeRV3u3PE1xHQzarosYt+yuOioJKHvMrJzEQ4u5teJje+kPdoxMZvlAO0BbKw
+uo+wF2leVN7igFyhNz6ahKuSAZTbI3N3+uVrT7ZfyQKBgE/9OiCsqmcPUvy4dT6o
+sCXHFTPii54vZLvL3/GhfJUPW21+XHuLrwhsi8MbRU5Wk51409noY3W8h41TPPFV
+r2HirPAxW4Om3AhsWo1522pVt/nXxm0OT59ICAENIvYE56EX4UjwVlFxkSEcL8Jz
+FSnXxmP5vCQXGx09r3Rd025y
+-----END PRIVATE KEY-----

package/packages/examples/app/certs/tls.sh

@@ -0,0 +1,5 @@
+kubectl cp $(kubectl get pod | grep "sas-consul-server-0" | awk -F" " '{print $1}'):security/ca.crt ./ca.crt
+
+kubectl cp $(kubectl get pod | grep "sas-consul-server-0" | awk -F" " '{print $1}'):security/tls.crt ./tls.crt
+
+kubectl cp $(kubectl get pod | grep "sas-consul-server-0" | awk -F" " '{print $1}'):security/tls.key ./tls.key

package/packages/examples/app/docker-compose.yml

@@ -0,0 +1,12 @@
+version: "3.8"
+services:
+  viyaapp:
+      build: .
+      restart: always
+      ports:
+        - 8080:8080
+      environment:
+        - VIYA_SERVER=$V1
+        - APPNAME=viyaapp
+        - DEBUG=
+

package/packages/examples/app/index.js

@@ -0,0 +1,15 @@
+/*
+* Copyright © 2019, SAS Institute Inc., Cary, NC, USA.  All Rights Reserved.
+* SPDX-License-Identifier: Apache-2.0
+*/
+const rafServer = require('@sassoftware/viya-appserverjs');
+debugger;
+rafServer.icli(null, true, customize);
+function customize (key, _options){
+    debugger;
+    let info = {
+        SWAGGEROPTIONS: {},
+        APPENV        : null
+    };
+    return info[key];  
+}

package/packages/examples/app/package.json

@@ -0,0 +1,20 @@
+{
+  "name": "apptest",
+  "version": "2.0.1",
+  "description": "",
+  "main": "app.js",
+  "scripts": {
+    "start": "cross-env NODE_TLS_REJECT_UNAUTHORIZED=0 node index.js --env=./.env --docker=./Dockerfile",
+    "starti": "cross-env NODE_TLS_REJECT_UNAUTHORIZED=0 node index.js --env=./.envimpl --docker=./Dockerfile",
+    "proxy": "cross-env NODE_TLS_REJECT_UNAUTHORIZED=0 node index.js --env=./.envproxy --docker=./Dockerfile",
+
+    "debug": "cross-env NODE_TLS_REJECT_UNAUTHORIZED=0 node --inspect-brk index.js   --env=./.env --docker=./Dockerfile",
+    "indocker": "cross-env NODE_TLS_REJECT_UNAUTHORIZED=0 node index.js"
+  },
+  "keywords": [],
+  "author": "",
+  "license": "ISC",
+  "dependencies": {
+    "cross-env": ">=7.0.0"
+  }
+}

package/packages/examples/app/public/casread.html

@@ -0,0 +1,324 @@
+<!DOCTYPE html>
+<!--
+  ~ /* ------------------------------------------------------------------------------------
+  ~  * Copyright (c) SAS Institute Inc.
+  ~  *  Licensed under the Apache License, Version 2.0 (the "License");
+  ~  * you may not use this file except in compliance with the License.
+  ~  * You may obtain a copy of the License at
+  ~  *
+  ~  * http://www.apache.org/licenses/LICENSE-2.0
+  ~  *
+  ~  *  Unless required by applicable law or agreed to in writing, software
+  ~  * distributed under the License is distributed on an "AS IS" BASIS,
+  ~  * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+  ~  * See the License for the specific language governing permissions and
+  ~ * limitations under the License.
+  ~ ----------------------------------------------------------------------------------------*/
+  ~
+  -->
+
+<html lang="en">
+	<head>
+		<meta charset="UTF-8" />
+
+		<script
+			crossorigin
+			src="https://unpkg.com/react@16/umd/react.production.min.js"
+		></script>
+		<script
+			crossorigin
+			src="https://unpkg.com/react-dom@16/umd/react-dom.production.min.js"
+		></script>
+		<script src="https://cdnjs.cloudflare.com/ajax/libs/babel-standalone/6.26.0/babel.min.js"></script>
+		<script src="https://cdnjs.cloudflare.com/ajax/libs/babel-polyfill/6.26.0/polyfill.min.js"></script>
+		<script src="https://unpkg.com/@sassoftware/restaf@5.2.4"></script>
+		<script src="https://unpkg.com/@sassoftware/restaflib@5.2.4"></script>
+		
+	
+		<style>
+			.container {
+				display: flex;
+				flex-direction: column;
+				flex-wrap: nowrap;
+				min-height: 800px;
+			}
+			.elabel {
+				display: inline-block;
+
+				clear: left;
+				width: 250px;
+				text-align: right;
+			}
+			.einput {
+				display: inline-block;
+			}
+			.div1 {
+				border: 1px solid black;
+				background: lightskyblue;
+			}
+			.div2 {
+				border: 1px solid black;
+				background: lightskyblue;
+				height: 200px;
+			}
+		</style>
+	
+		<script>
+			debugger;
+			let LOGONPAYLOAD = {
+				host: "https://viya.kumar-zv1-azure-nginx-84560a6e.unx.sas.com",
+				authType: 'server',
+			}
+			
+			let store = restaf.initStore({casProxy: true});
+		  console.log(store.config);
+
+			let session = null;
+			let servers = null;
+			let services = null;
+			let files = null;
+			let reports = null;
+			let compute = null;
+
+			function setup() {
+				debugger;
+				document.getElementById('output').innerHTML = '...initializing';
+				
+				initSession()
+					.then(r => {
+						document.getElementById('output').innerHTML = 'ready';
+						//keepAlive();
+					})
+					.catch(e => {
+						
+						console.log(e);
+					});
+			}
+			
+			async function initSession() {
+				debugger;
+				let msg = await store.logon(LOGONPAYLOAD);
+				debugger;
+				console.log(msg)
+				console.log(store.connection());
+				console.log(LOGONPAYLOAD);
+	
+				return 'done';
+			}
+			function runit(type) {
+				
+				
+				document.getElementById('output').innerHTML = '...running';
+				let testcase;
+				switch (type) {
+					case 'files': {
+						testcase = SASfileService;
+						break;
+					}
+					case 'compute': {
+						testcase = dsCompute;
+						break;
+					}
+					case 'cas': {
+						testcase = runCas;
+						break;
+					}
+					case 'timedout': {
+						testcase = timedout;
+						break;
+					}
+					case 'redir': {
+						testcase= noaction;
+						
+						break;
+					}
+					case 'spre': {
+						testcase= spre;
+						
+						break;
+					}
+					default: {
+						testcase = SASfileService;
+						break;
+					}
+				}
+
+				testcase(store)
+					.then(r => {
+						document.getElementById(
+							'output'
+						).innerHTML = JSON.stringify(r, null, 4);
+					})
+					.catch(err => {
+						
+						document.getElementById(
+							'output'
+						).innerHTML = JSON.stringify(err, null, 4);
+					});
+			}
+			async function noaction() {
+				r = {msg: 'redirects completed'};
+				return r;
+			}
+			async function spre(store) {
+				let p = {
+					method: 'GET',
+					url   : 'http://localhost:3000/api/test',
+					withCredentials: true
+				}
+				let r = await store.request(p);
+				return r.data;
+			}
+			async function timedout(store) {
+				console.log('timed out at', Date() );
+				let params = `scrollbars=no,resizable=no,status=no,location=no,toolbar=no,menubar=no,width=0,height=0,left=-1000,top=-1000`;
+				window.open(`${LOGONPAYLOAD.host}/SASLogon/timedout`,'Timed Out', params);
+				return true;
+			}
+			async function runCas(store) {
+				
+				let {casManagement} = await store.addServices('casManagement');
+				let servers = await store.apiCall(
+					casManagement.links('servers')
+				);
+				let serverName = servers.itemsList(0);
+				let session = await store.apiCall(
+					servers.itemsCmd(serverName, 'createSession')
+				);
+				let payload = {
+					action: 'builtins.echo',
+					data: { code: { x: 1 } }
+				};
+				console.log(JSON.stringify(session.links("execute"), null, 4));
+				let r = await store.runAction(session, payload);
+				console.log('echo completed');
+				debugger;
+				payload = {
+					from  : 1,
+					count : 20,
+					format: true,
+					table : {caslib: 'Samples', name: 'COSTCHANGE'}
+				}
+				debugger;
+				let result = await restaflib.casFetchData(store, session, payload);
+				debugger;
+				console.log(result);
+				
+				await store.apiCall(session.links('delete'));
+				return r.items();
+		
+			}
+
+			async function SASfileService(store) {
+				debugger;
+				try {
+					debugger;
+				let {files} = await store.addServices('files');
+				debugger;
+				console.log(JSON.stringify(files.links(), null, 4));
+				console.log('items - should be an array of files(empty array is ok)')
+				console.log(files.items().toJS());
+				let payload = {
+					data: { x: 1, y: 'This was saved earlier in the step' },
+					headers: { 'content-type': 'application/json' }
+				};
+				let createCmd = files.links('create');
+				let newFile = await store.apiCall(createCmd, payload);
+
+				let content = await store.apiCall(newFile.links('content'));
+			} catch(err) {
+				console.log(err);
+				debugger;
+			}
+				
+				return content.items();
+			}
+			async function dsCompute(store) {
+				let log = null;
+				debugger;
+				let {compute} = await store.addServices('compute');
+				let servers = await store.apiCall(compute.links('servers'));
+
+				let contexts = await store.apiCall(compute.links('contexts'));
+
+				// lookup the name of the first context and then use it to get the associated createSession restafLink
+				let createSession = contexts.itemsCmd(
+					contexts.itemsList(0),
+					'createSession'
+				);
+				let session = await store.apiCall(createSession);
+
+				// Now run a simple data step in that session
+				let payload = {
+					data: {
+						code: [`data _null_; do i = 1 to 100; x=1; end; run; `]
+					}
+				};
+
+				// Now execute the data step and wait for completion
+				let job = await store.apiCall(
+					session.links('execute'),
+					payload
+				);
+				let status = await store.jobState(job, null, 5, 2);
+
+				if (status.data === 'running') {
+					throw `ERROR: Job did not complete in allotted time`;
+				} else {
+					switch (status.data) {
+						case 'warning':
+							console.log(`Warning: check your log for warnings`);
+							break;
+						case 'error':
+							throw `Please correct errors and rerun program`;
+						default:
+							log = await store.apiCall(status.job.links('log'));
+							break;
+					}
+				}
+				return log === null ? status : log.items();
+			}
+		</script>
+	</head>
+	<body onload="setup()">
+		<h1 id="head">Hi</h1>
+		<div>
+			<button onclick="runit('redir')">
+				Press to do some redirs
+			</button>
+			<button onclick="runit('files')">
+				Press to make a call to file service
+			</button>
+			<br />
+			<br />
+			<button onclick="runit('compute')">
+				Press to make a call compute service
+			</button>
+			<br />
+			<br />
+			<button onclick="runit('cas')">
+				Press to make a call to cas echo
+			</button>
+			<br />
+			<br />
+			<button onclick="runit('spre')">
+				REST call
+			</button>
+			<br />
+			<br />
+			<input id='filename'> </input>
+			<button onclick="runit('timedout')">
+				Press to test timedout
+			</button>
+			<br />
+			<br />
+			<button onclick="logoff()">
+				logoff
+			</button>
+			<br />
+		</div>
+		<div>
+			<pre id="output"></pre>
+		</div>
+	</body>
+</html>

package/packages/examples/app/public/data/Cluster_SDOH1.sas

@@ -0,0 +1,182 @@
+/*--------------------------------------------------
+The options statement below should be placed
+before the data step when submitting this code.
+--------------------------------------------------*/
+/*options VALIDMEMNAME=EXTEND VALIDVARNAME=ANY;*/
+   /*------------------------------------------
+   Generated SAS Scoring Code
+     Date             : 02Jul2019:21:19:56
+     Locale           : en_US
+     Model Type       : Cluster
+     Interval variable: SDOH_PMU(SDOH1 Physically Mentally Unhealthy)
+     Interval variable: SDOH_Per_Adults_Bachelors(SDOH2 Education)
+     Interval variable: SDOH_Unemployment_Rate(SDOH4 Unemployment Rate)
+     Interval variable: SDOH_Median_Household_Income(SDOH3 Median Household Income)
+     ------------------------------------------*/
+
+ 
+   length _WARN_ $4;
+   label _WARN_ = 'Warnings';
+   label _CLUSTER_ID_ = 'Cluster ID';
+   label _DISTANCE_ = 'Distance to Centroid';
+
+   _i_ = 0;
+   _j_ = 0;
+   _k_ = 0;
+   _l_ = 0;
+   _dist_ = 0;
+   _minDist_ = 0;
+   _found_ = 0;
+   _unknown_ = 0;
+   _unknownflag_ = 0;
+   _intMindist2cntr_ = 0;
+   _missingflag4Int_ = 0;
+   _numberOfIntVars_ = 4;
+   _minDistInt_ = 0;
+   label _STANDARDIZED_DISTANCE_ = 'Standardized Distance to Centroid';
+
+   drop _i_;
+   drop _j_;
+   drop _k_;
+   drop _l_;
+   drop _dist_;
+   drop _minDist_;
+   drop _minDistInt_;
+   drop _unknown_;
+   drop _unknownflag_;
+   drop _found_;
+   drop _intMindist2cntr_;
+   drop _missingflag4Int_;
+   drop _numberOfIntVars_;
+   drop _minDistInt_;
+
+   array _intVals_67{4} _temporary_;
+   array _intStdVals_67{4} _temporary_;
+   array _intVars_67[4] _temporary_;
+   _intVars_67[1] =
+   SDOH_PMU;
+   _intVars_67[2] =
+   SDOH_Per_Adults_Bachelors;
+   _intVars_67[3] =
+   SDOH_Unemployment_Rate;
+   _intVars_67[4] =
+   SDOH_Median_Household_Income;
+   array _cntrcoordsInt_67{4,4} _temporary_ (
+   5.6752109618776
+   34.574068577069
+   5.5249572649573
+   65162.262238794
+   6.1728412355737
+   28.076500921419
+   8.4815044247788
+   50250.811599193
+   5.5563377592335
+    27.69585347275
+    3.586724137931
+   55456.199169472
+   7.1425816544567
+   23.193113163492
+   5.9483653846154
+   45013.481439879
+   );
+   array _stdcntrcoordsInt_67 {4,4} _temporary_ (
+   -0.545947986801
+   1.2465170251288
+   -0.140043320021
+   1.2424484776721
+    0.080847377302
+    -0.09555849286
+   1.0754374093924
+   -0.456774851619
+   -0.695675960102
+    -0.17418139437
+   -0.936879929639
+   0.1364012391051
+   1.3022939633885
+   -1.104224427884
+   0.0340260867236
+   -1.053590936451
+   );
+   array _stdscaleInt_67 {4} _temporary_ (
+   0.7939278147152
+   4.8414322208822
+   2.4324097357342
+   8775.4507500947
+   );
+   array _stdcenterInt_67 {4} _temporary_ (
+   6.1086542539869
+   28.539140887732
+            5.8656
+   54259.216813453
+   );
+
+   *************** check missing interval value ******************;
+   _missingflag4Int_ = 0;
+   do _i_ = 1 to _numberOfIntVars_ until(_missingflag4Int_);
+      if missing( _intVars_67[_i_] ) then
+         _missingflag4Int_ = 1;
+   end;
+
+   if (_missingflag4Int_ = 1) then
+      substr(_WARN_, 1, 1) = 'M';
+   ********** prepare interval variable values *********;
+   do _i_ = 1 to _numberOfIntVars_;
+      if missing (_intVars_67[_i_] ) then do;
+         _intVals_67[_i_] = .;
+         _intStdVals_67[_i_] = .;
+      end; else do;
+         if missing (_stdscaleInt_67[_i_] ) then do;
+            _intStdVals_67[_i_] = ( _intVars_67[_i_] -  _stdcenterInt_67[_i_]);
+         end; else do;
+            _intStdVals_67[_i_] = ( _intVars_67[_i_] -  _stdcenterInt_67[_i_])
+                  /  _stdscaleInt_67[_i_];
+         end;
+         _intVals_67[_i_] = _intVars_67[_i_];
+      end;
+   end;
+   ****************** find the closest cluster ******************;
+   if _missingflag4Int_ > 0  then
+   do;
+      _CLUSTER_ID_ = .;
+      _DISTANCE_ = .;
+      _minDistInt_ = .;
+      _STANDARDIZED_DISTANCE_ = .;
+   end;
+   else
+   do;
+      _CLUSTER_ID_ = .;
+      _minDist_ = 8.988465674E307;
+      do _i_=1 to               4;
+         _intMindist2cntr_ = 0;
+         do _j_=1 to               4;
+            _dist_ = _intStdVals_67{_j_} - _stdcntrcoordsInt_67{_i_,_j_};
+            _dist_ = _dist_ ** 2;
+            _intMindist2cntr_ = _intMindist2cntr_ + _dist_;
+         end;
+         _intMindist2cntr_ = _intMindist2cntr_ **              0.5;
+         if( _minDist_  > _intMindist2cntr_) then do;
+            _CLUSTER_ID_ = _i_;
+            _minDist_ = _intMindist2cntr_;
+         end;
+         _STANDARDIZED_DISTANCE_ = _minDist_;
+      end;
+      _DISTANCE_ = 8.988465674E307;
+      _i_ = _CLUSTER_ID_;
+      _intMindist2cntr_ = 0;
+      do _j_=1 to               4;
+         _dist_ = _intVals_67{_j_} - _cntrcoordsInt_67{_i_,_j_};
+         _dist_ = _dist_ ** 2;
+         _intMindist2cntr_ = _intMindist2cntr_ + _dist_;
+      end;
+      _intMindist2cntr_ = _intMindist2cntr_ **              0.5;
+      _DISTANCE_ = _intMindist2cntr_;
+   end;
+
+if (MISSING('_CLUSTER_ID_'n))then _CLUSTER_ID_ = -1;   /*------------------------------------------*/
+   drop '_CLUSTER_ID_'n '_DISTANCE_'n '_WARN_'n '_STANDARDIZED_DISTANCE_'n;
+      '_CLUSTER_ID__67'n='_CLUSTER_ID_'n;
+'_DISTANCE__67'n='_DISTANCE_'n;
+'_WARN__67'n='_WARN_'n;
+'_STANDARDIZED_DISTANCE__67'n='_STANDARDIZED_DISTANCE_'n;
+   /*------------------------------------------*/
+   run;