RE: Qualified Data Area array

["Chevalier, Rick" <Rick.Chevalier@xxxxxxxxxxxxxxx>]

This may really be a new topic but I have a related question.

Is there a way to populate the pathds data structure at compile time?  Maybe
with the CTDATA keyword?  I was struggling with this recently and couldn't
come up with a way to make it work for me.

Rick

-----Original Message-----
From: Hans Boldt [mailto:boldt@xxxxxxxxxx]
Sent: Friday, August 01, 2003 7:34 AM
To: rpg400-l@xxxxxxxxxxxx
Subject: Re: Qualified Data Area array

Are you on V5R2? If so, code it as:

========================================================
d pathds          ds                  dim(10) qualified
d   marker                       3  0
d   path                       100a
 /free
    for x = 1 to %elem(pathds);
       if pathds(x).marker = somevar;
            path = pathds(x).path;
       endif;
    endfor;
 /endfree
========================================================

Cheers! Hans

.