enrico-sorichetti
Global Moderator
Joined: 14 Mar 2007
Posts: 3277
Location: italy
|
|
|
|
The "unneeded" Dynamic adjective You used makes Your question difficult to understand 
| Code: |
dcl var1 char(....)
dcl var2 char(....)
dcl ptr ptr ;
dcl 01 struct1 based(ptr) ,
02 ......
02 ......
02 ...... ;
dcl 01 struct2 based(ptr) ,
02 ......
02 ......
02 ...... ;
ptr = addr(var1) ;
/* now the variable var1 is being mapped according to stucts struct1 and struct2
and You can use in the same way variables declared in struct1 and struct2 */
ptr = addr(var2);
/* same thing now for var2
but, remember You have lost addressability to var1 */ |
|
|
