RE: [MI400] Program references

["Ron Melby" <qgenesist@xxxxxxxxxxx>]

for a 190A if I (in RPG) for instance*lock in a *dtaara it would have to do 
the old resolution template in the code...........(psuedocode)

DCL DD OBJTEMPLATE CHAR(32)
DCL DD TYPE BIN(2) DEF(OBJTEMPLATE) INIT(X'90A')
DCL OBJ CHAR(30) DEF(OBJTEMPLATE) POS(03) INIT('MyBigFatDataArea')
RSLVSP *Y_DTAARA, OBJTEMPLATE
TADA!
YADA(3)
I do not have a recent system so could not track down what an 0b30 
is.....perhaps others
could.  I do not have a cross-reference for it in any of my 
files................


> From: Bobby Hicks <Robert.Hicks@xxxxxxxxxxxxxxxx>
> Subject: [MI400] Program references
> Date: Wed, 29 Sep 2004 08:31:50 -0400
>
> I am using the OIR to retrieve a list of program references.  I have come
> across the following problem.
>
>
> I have data area references with a type of 0B30(which is invalid) in one
> program and 190A (which is valid) in another program.  How is this
> possible and what am I missing?
>
>
> Bobby.

_________________________________________________________________
Get ready for school! Find articles, homework help and more in the Back to 
School Guide! http://special.msn.com/network/04backtoschool.armx