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 ';