Re: inz keyword on subfield of likeds

Lim Hock-Chai wrote on 05/12/2006 02:56:48 PM:

is there a way to use INZ keyword in D spec to initialize subfields, by
subfield name, in LIKEDS data structure.

Give this a shot:

D refDS           ds 
D  name                         10      inz('TEST') 
D  lib                          10      inz('QTEMP') 
 
D myDS            ds                  likeds(refDS)
D                                                inz(*likeDS)
D  name
D  lib

I use this technique for DSs with numeric subfields, in order to avoid the 
dreaded Decimal Data Error.  The only problems I've come across using this 
technique are:
a) can't make the refDS BASED(TEMPLATE_ONLY)
b) actually remembering to use the INZ(*likeDS)  _before_ I get the 
Decimal Data Error in testing :)

HTH,
Adam




#####################################################################################
Attention:
The above message and/or attachment(s) is private and confidential and is 
intended 
only for the people for which it is addressed. If you are not named in the 
address 
fields, ignore the contents and delete all the material. Thank you. Have a nice 
day.

For more information on email virus scanning, security and content
management, please contact administrator@xxxxxxxxxxxx
#####################################################################################