Re: Template DSes was: Defining DS to retrieve variable length data from API

John King wrote on 27/06/2007 12:06:26:

Each calling procedure then declares its own
working-storage with a "myWhatever
DS LikeDS(Whatever_T) Inz(*LIKEDS)". The thought of being able to
identify commonly-used DSs with the prefix 'my' somehow appeals to

me, and

thought I'd first experiment with a 'real' DS, then switch to a

'dummy' DS

once I felt more comfortable.

One thing to be aware of when you start using the 'dummy' DS method - if
you define your template as based(), you can't use inz(*LIKEDS). This is
probably one of my biggest pet peeves when it comes to defining data. So,
following your example, this would _not_ work

D whatever_T...
D DS based(TEMPLATE_ONLY)
D char...
D 10A
D num...
D 15P 5 inz(*zeros)

because you can't initialize something that may doesn't have storage at
initialization time. There has been some indication from IBM that this
will be addressed in future. I hope it is soon!

HTH,
Adam

Attention:

The information contained in this message and or attachments is
intended only for the person or entity to which it is addressed and may contain
confidential and/or privileged material. Any review, retransmission,
dissemination or other use of, or taking of any action in reliance upon, this
information by persons or entities other than the intended recipient is
prohibited. If you received this message in error, please contact the sender
and
delete the material from any system and destroy any copies. Thank you for your
time and consideration.

Attention:

Le contenu de ce message et(ou) les fichiers ci-joints s?adressent
exclusivement à la personne ou -entité à laquelle ils sont destinés. Ils
peuvent
contenir de l?information confidentielle, protégée et(ou) classifiée. Il est
strictement interdit à toute personne ou entité autre que le(la) destinataire
prévu(e) de ce message d?examiner, de réviser, de retransmettre ou de diffuser
cette information, de prendre une quelconque action en fonction ou sur la base
de celle-ci, ou d?en faire tout autre usage. Si vous avez reçu ce message par
erreur, veuillez communiquer avec l?expéditeur(trice), supprimer ce message et
les fichiers ci-inclus de tout système, et en détruire toutes copies, qu?elles
soient électroniques ou imprimées. Nous vous remercions de votre entière
collaboration.