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_getcols.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,.))
 
/* Column metadata, typed the way the editor's own load types it: %mp_getcols
  infers DATE and DATETIME across the whole format list (YYMMDD, MMDDYY,
  E8601DA, B8601DA, NLDATE, NLDATM, E8601DT, ...), which a test against the
  format prefix does not - a column formatted YYMMDD would otherwise reach the
  picker as numeric.  getdata.sas makes the same call for the same reason. */
%mp_getcols(&ds, outds=cols1)
 
/* Response contract.  `type` keeps the SAS vocabulary this public service has
  always used (C/N), and `format` and `label` are carried over from the
  previous shape, so an existing caller still finds them unchanged.  `fmtname`
  (the bare format name) and `ddtype` (which now distinguishes DATE, DATETIME
  and TIME) are additions.  The client derives its own num/char vocabulary from
  ddtype at the store boundary - see sas-store.getCols. */
data cols(keep=name type length varnum fmtname format label ddtype);
  set cols1;
  /* DDTYPE in the client's vocabulary, as getdata.sas maps it.  ddtype needs
    no length statement - the macro creates it with 'CHARACTER', so it is
    already $9. */
  if ddtype='CHARACTER' then ddtype='C';
  else if ddtype='NUMERIC' then ddtype='N';
run;
 
%mp_abort(iftrue= (&syscc ne 0)
  ,mac=&_program..sas
  ,msg=%str(syscc=&syscc)
)
 
%webout(OPEN)
%webout(OBJ,cols)
%webout(CLOSE)
 
 
%mpeterm()