Figure 7: Passing data structures as parameters

D Objexists       PR              N
D   Inparm                            Likeds(Qualname)

D Qualname        DS                   
D   Objname                     10A 
D   Libname                     10A   Inz('*LIBL')

 /Free

  If Objexists(Qualname);
    ...
  Endif;

 /End-free
	

P Objexists       B
D                 PI              N
D   Inparm                            Likeds(Qualname)
 /Free
  If Inparm.Libname <> '*LIBL';
    
  Else;
    
  Endif;

 /End-free