@andreas_lds:
Thanks. Using ALL:"Y" is possible, but then your bone-idleness may be still disturbed by the need to alter the code quite a bit to accommodate it . This is because it will work only if:
- you specify the DATASET argument tag to the constructor (with OBS=0 to avoid unneeded hash table loading)
- also MULTIDATA:"Y" because now you can't use _N_ as a key (it's not on the input file)
- specify CUSTOMER (or any other field from HAVE) as the hash key instead
In other words, you'd have to code something like:
...
data _null_ ;
if _n_ = 1 then do ;
dcl hash h (dataset:"have(obs=0)", multidata:"y") ;
h.definekey ("customer") ;
h.definedata (all:"y") ;
h.definedone () ;
end ;
h.clear () ;
do /*_n_ = 1 by 1*/ until (last.customer) ;
set have ;
by customer ;
h.add() ;
end ;
...
I agree that listing all the input data set variables as hash data variables is off-putting since it's hard coding. However, besides using ALL:"Y" argument tag and the associated subterfuges notes above, that can be also dealt with by using the compiler symbol table to call DEFINEDATA to add one variable at a time:
...
if _n_ = 1 then do ;
dcl hash h () ;
h.definekey ("_n_") ;
if 0 then set have ;
length _v $ 32 ;
do until (cmiss (_v)) ;
call vnext (_v) ;
if lowcase (_v) notin: ("_", "first.", "last.", "") then h.definedata (_v) ;
end ;
h.definedone () ;
end ;
h.clear () ;
do _n_ = 1 by 1 until (last.customer) ;
set have ;
by customer ;
h.add() ;
end ;
...
Kind regards
Paul D.
