RE: Load a record into a data structure for DEBUGGING purposes.

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.