From ef5864dc88d9e71af66c1bf14a4409fe696b66b6 Mon Sep 17 00:00:00 2001 From: yabwon Date: Mon, 14 Sep 2020 17:08:07 +0200 Subject: [PATCH] version 20200911 SAS Packages Framework, version 20200911: - New macros added: %loadPackageS() and %verifyPackage() - %installPackage() allow to install multiple packages with in run - %listPackages() updated - %generatePackage() provides hash digest of the package zip file (for SAS 9.54M6 and later) - Bug fixes - New version of documentation and "getting started" Packages recompiled with new version of SAS Packages Framework: - BasePlus [0.62] - getVars() modified to handle "long" lists of variables - QuickSort functions added - SQLinDS [2.2] - DFA (Dynamic Function Arrays) [0.2] - macroArray [0.4] -new parameter `which=` added to the %do_over macro - dynMacroArray [0.2] --- SPF/SPFinit.sas | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/SPF/SPFinit.sas b/SPF/SPFinit.sas index f869242..753815b 100644 --- a/SPF/SPFinit.sas +++ b/SPF/SPFinit.sas @@ -2177,7 +2177,7 @@ data _null_; put " infile &_PackageFileref_.(description.sas) end = EOF; "; put ' input; '; put ' if upcase(strip(_infile_)) =: "DESCRIPTION END:" then printer = 0; '; - put ' if printer then put "*> " _infile_; '; + put ' if printer then put @1 _infile_; '; put ' if upcase(strip(_infile_)) =: "DESCRIPTION START:" then printer = 1; '; put ' end; '; put ' else stop; '; @@ -2225,7 +2225,7 @@ data _null_; put ' do until (EOF); '; put " infile &_PackageFileref_.(license.sas) end = EOF; "; put ' input; '; - put ' put "*> " _infile_; '; + put ' put @1 _infile_; '; put ' end; '; put ' else stop; '; put 'run; ' /; @@ -2288,11 +2288,11 @@ data _null_; put ' call execute(" input; ");'; put ' call execute(" if upcase(strip(_infile_)) '; put ' = ''/*** HELP END ***/'' then printer = 0; ");'; - put ' call execute(" if printer then put ""*> "" _infile_; ");'; + put ' call execute(" if printer then put @1 _infile_; ");'; put ' call execute(" if upcase(strip(_infile_)) '; put ' = ''/*** HELP START ***/'' then printer = 1; ");'; put ' call execute(" end; ");'; - put ' call execute(" put ""*> "" / ""*> ""; ");'; + put ' call execute(" put "" "" / "" ""; ");'; put ' call execute(" stop; ");'; put ' call execute("run; ");'; put ' if lowcase(type) =: "data" then ';