mirror of
https://github.com/sasjs/core.git
synced 2026-01-05 08:30:06 +00:00
36 lines
800 B
SAS
36 lines
800 B
SAS
/**
|
|
@file
|
|
@brief Locktable DDL
|
|
@details For "locking" tables prior to multipass loads. Used by
|
|
mp_lockanytable.sas
|
|
|
|
**/
|
|
|
|
|
|
%macro mddl_dc_locktable(libds=WORK.LOCKTABLE);
|
|
|
|
proc sql;
|
|
create table &libds(
|
|
lock_lib char(8),
|
|
lock_ds char(32),
|
|
lock_status_cd char(10) not null,
|
|
lock_user_nm char(100) not null ,
|
|
lock_ref char(200),
|
|
lock_pid char(10),
|
|
lock_start_dttm num format=E8601DT26.6,
|
|
lock_end_dttm num format=E8601DT26.6
|
|
);
|
|
|
|
%local lib;
|
|
%let libds=%upcase(&libds);
|
|
%if %index(&libds,.)=0 %then %let lib=WORK;
|
|
%else %let lib=%scan(&libds,1,.);
|
|
|
|
proc datasets lib=&lib noprint;
|
|
modify %scan(&libds,-1,.);
|
|
index create
|
|
pk_mp_lockanytable=(lock_lib lock_ds)
|
|
/nomiss unique;
|
|
quit;
|
|
|
|
%mend mddl_dc_locktable; |