Skip to content

Instantly share code, notes, and snippets.

View rudvfaden's full-sized avatar

Rud Faden rudvfaden

View GitHub Profile
{
// See https://go.microsoft.com/fwlink/?LinkId=733558
// for the documentation about the tasks.json format
"version": "2.0.0",
"tasks": [
{
"label": "Run SAS",
"type": "shell",
"linux": {
"command": "<sas startup scriptZ>.sh",
%macro embed(f);
%local p ref rc fid;
%let p = %sysfunc(findc(&f,/\:.));
%if &p %then %let rc = %sysfunc(filename(ref, &f));
%else %let ref = &f;
%let fid = %sysfunc(fopen(&ref));
%if &fid>0 %then
%do %while(%sysfunc(fread(&fid))=0);
%let rc = %sysfunc(fget(&fid, line, 32767));
&line