getcols.sas

Go to the documentation of this file.

/**
  @file getcols.sas
  @brief Retrieves column info to enable population of dropdowns
  @details
 
  <h4> SAS Macros </h4>
  @li dc_assignlib.sas
  @li mp_abort.sas
  @li mp_validatecol.sas
 
  @version 9.2
  @author 4GL Apps Ltd
  @copyright 4GL Apps Ltd.  This code may only be used within Data Controller
    and may not be re-distributed or re-sold without the express permission of
    4GL Apps Ltd.
 
**/
%mpeinit()
 
 
/**
  * The libds is read from the IWANT input table.  Reading it with
  * mf_getvalue would re-resolve any macro content in the value, so it is
  * read with symget in a data step and validated (LIBREF.DATASET) before
  * it is used in proc contents.
  */
%let is_libds=0;
data _null_;
  length _libds $64;
  set work.iwant;
  _libds=libds;
  %mp_validatecol(_libds,LIBDS,is_libds)
  if is_libds=0 then putlog 'ERR' 'OR: Invalid libds:' _libds;
  call symputx('is_libds',is_libds,'l');
  if is_libds=1 then call symputx('ds',upcase(_libds),'l');
  stop;
run;
 
%mp_abort(iftrue= (&is_libds ne 1)
  ,mac=&_program..sas
  ,msg=%str(Invalid libds)
)
 
%dc_assignlib(READ,%scan(&ds,1,.))
 
proc contents noprint data=&ds
  out=droplist1 (keep=name type length label varnum format:);
run;
data cols(keep=name type length varnum format label);
  set droplist1(rename=(format=format2 type=type2));
  name=upcase(name);
  if type2=2 then do;
    length format $49.;
    if format2='' then format=cats('$',length,'.');
    else if formatl=0 then format=cats(format2,'.');
    else format=cats(format2,formatl,'.');
    type='C';
    ddtype='C';
  end;
  else do;
    if format2='' then format=cats(length,'.');
    else if formatl=0 then format=cats(format2,'.');
    else if formatd=0 then format=cats(format2,formatl,'.');
    else format=cats(format2,formatl,'.',formatd);
    type='N';
    if format=:'DATETIME' then ddtype='DATETIME';
    else if format=:'DATE' then ddtype='DATE';
    else if format=:'TIME' then ddtype='TIME';
    else ddtype='N';
  end;
  if label='' then label=name;
run;
 
%mp_abort(iftrue= (&syscc ne 0)
  ,mac=&_program..sas
  ,msg=%str(syscc=&syscc)
)
 
%webout(OPEN)
%webout(OBJ,cols)
%webout(CLOSE)
 
 
%mpeterm()