sasjs/core
1
0
Fork 0
mirror of https://github.com/sasjs/core.git synced 2026-01-08 10:00:04 +00:00
Code Issues Projects Releases Wiki Activity

Merge pull request #274 from sasjs/getpk

Browse Source 
fix: enabling cross-compatibility of mp_getpk macro
This commit is contained in:
Allan Bowe
2022-07-04 22:36:10 +01:00
committed by GitHub
parent 6e32d9b743 44a80c8985
commit 165b2d3568
3 changed files with 22 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
all.sas
View File

@@ -198,6 +198,11 @@ options noquotelenmax;
%else %if "&SYSVLONG" < "9.04.01M3" %then 0; %else %if "&SYSVLONG" < "9.04.01M3" %then 0;
%else 1; %else 1;
%end; %end;
%else %if &feature=DBMS_MEMTYPE %then %do;
/* does dbms_memtype exist in dictionary.tables? */
%if "%substr(&sysver,1,1)"="4" or "%substr(&sysver,1,1)"="5" %then 0;
%else 1;
%end;
%else %if &feature=EXPORTXLS %then %do; %else %if &feature=EXPORTXLS %then %do;
/* is it possible to PROC EXPORT an excel file? */ /* is it possible to PROC EXPORT an excel file? */
%if "%substr(&sysver,1,1)"="4" or "%substr(&sysver,1,1)"="5" %then 1; %if "%substr(&sysver,1,1)"="4" or "%substr(&sysver,1,1)"="5" %then 1;
@@ -7676,6 +7681,7 @@ create table &outds (rename=(
@param [out] outds= (work.mp_getpk) The name of the output table to create. @param [out] outds= (work.mp_getpk) The name of the output table to create.
<h4> SAS Macros </h4> <h4> SAS Macros </h4>
@li mf_existfeature.sas
@li mf_getengine.sas @li mf_getengine.sas
@li mf_getschema.sas @li mf_getschema.sas
@li mp_dropmembers.sas @li mp_dropmembers.sas
@@ -7871,7 +7877,12 @@ create table work.&tabs1 as select
libname as libref libname as libref
,upcase(memname) as dsn ,upcase(memname) as dsn
,memtype ,memtype
%if %mf_existfeature(DBMS_MEMTYPE)=1 %then %do;
,dbms_memtype ,dbms_memtype
%end;
%else %do;
,'n/a' as dbms_memtype format=$32.
%end;
,typemem ,typemem
,memlabel ,memlabel
,nvar ,nvar

5
base/mf_existfeature.sas
View File

@@ -40,6 +40,11 @@
%else %if "&SYSVLONG" < "9.04.01M3" %then 0; %else %if "&SYSVLONG" < "9.04.01M3" %then 0;
%else 1; %else 1;
%end; %end;
%else %if &feature=DBMS_MEMTYPE %then %do;
/* does dbms_memtype exist in dictionary.tables? */
%if "%substr(&sysver,1,1)"="4" or "%substr(&sysver,1,1)"="5" %then 0;
%else 1;
%end;
%else %if &feature=EXPORTXLS %then %do; %else %if &feature=EXPORTXLS %then %do;
/* is it possible to PROC EXPORT an excel file? */ /* is it possible to PROC EXPORT an excel file? */
%if "%substr(&sysver,1,1)"="4" or "%substr(&sysver,1,1)"="5" %then 1; %if "%substr(&sysver,1,1)"="4" or "%substr(&sysver,1,1)"="5" %then 1;

6
base/mp_getpk.sas
View File

@@ -34,6 +34,7 @@
@param [out] outds= (work.mp_getpk) The name of the output table to create. @param [out] outds= (work.mp_getpk) The name of the output table to create.
<h4> SAS Macros </h4> <h4> SAS Macros </h4>
@li mf_existfeature.sas
@li mf_getengine.sas @li mf_getengine.sas
@li mf_getschema.sas @li mf_getschema.sas
@li mp_dropmembers.sas @li mp_dropmembers.sas
@@ -229,7 +230,12 @@ create table work.&tabs1 as select
libname as libref libname as libref
,upcase(memname) as dsn ,upcase(memname) as dsn
,memtype ,memtype
%if %mf_existfeature(DBMS_MEMTYPE)=1 %then %do;
,dbms_memtype ,dbms_memtype
%end;
%else %do;
,'n/a' as dbms_memtype format=$32.
%end;
,typemem ,typemem
,memlabel ,memlabel
,nvar ,nvar