×
The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.
On 31 May 2012 08:44, Koester, Michael wrote:
I'm not sure what you mean by "Length specification had been
specified on the original DS."
...On the ds definition in the copybook? I've not seen a ds with a
specified length before.
How would that be coded there?
d Example_ds...
d ds qualified
d subfield1 6a
d subfield2 2a
Same as for a standalone field. So instead of coding the length [and
type] on the standalone based-storage variable, code only a length on
the DS [the To\Length of the D-spec; as prompted in SEU], and use the
LIKE(Example_ds) on the based-storage variable to establish the same
length as the "like DS":
d Example_ds...
d ds 8 qualified
d subfield1 6a
d subfield2 2a
d Xmp_DS s like(Example_ds)
d based(Xmp_DS@)
d Xmp_DS@ s * inz(%addr(Example_ds))
So assuming the full length of the DS NMS_OrderDetails is 51 bytes:
d NMS_OrderDetails...
d ds 51 qualified
d Order 6a
d ...
d NMS_DS s like(NMS_OrderDetails)
d based(NMS_DS@)
d NMS_DS@ s * inz(%addr(NMS_OrderDetails))
Regards, Chuck
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact
[javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.
midrange.com
