× 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.



Peter,

you can rename the sufields in MPSDs with EXTFLD.something like:

>D MPSDs         e ds                  extname(MPSSum)
>D mpsch1a       e                       extfld(mpsch1)

Regards,
Carel Teijgeler

*********** REPLY SEPARATOR  ***********

On 30-1-04 at 10:21 Peter Vidal wrote:

>"...could you just not use the fields in other data structures?  Give a couple
>of samples of these other data structures."
>
>Yes, I need them there to be able to effectively process the data.  Here are
>more details of the program:
>
>FMPSSum    uf a e           k disk
>.
>D MPSDs         e ds                  extname(MPSSum) Prefix(#)
>.
> *  Schedule Data Structure
>D ScheduleDS      ds                  inz
>D mpsch1                  1     11  2
>D mpsch2                 12     22  2
>D mpsch3                 23     33  2
>D mpsch4                 34     44  2
>D mpsch5                 45     55  2
>D mpsch6                 56     66  2
>D mpsch7                 67     77  2
>D mpsch8                 78     88  2
>D mpsch9                 89     99  2
>D mpsch10               100    110  2
>D mpsch11               111    121  2
>D mpsch12               122    132  2
>D mpsch                   1    132  2 dim(12)
>
>If I do not rename the MPSDS to have a PREFIX(let's say "#"), then it will say
>that MPSCH1,MPSCH2,MPSCH3, etc. are already defined:
>
>*RNF3315 20 a      009300  The Name entry is already defined on a
>Definition
>                           Specification; defaults to blanks.




As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

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.