Re: Subroutines vs Subprocedures was RE: Indicators

Rick.Chevalier@xxxxxxxxxxxxxxx wrote:
> 
> I seem to remember trying to use a data structure defined using LIKEREC in a 
> subprocedure and the compiler not accepting it.  IIRC I had to move it into 
> the global definitions for the program.  If that's true how does defining a 
> data structure with LIKEREC allow I/O without accessing global variables?  
> Maybe I'm not understanding the definition of global?
> 

Rick, here's an example (that compiles on V5R2) of using a
locally-defined LIKEREC DS in a subprocedure.

The first record in my file has 'a' in fld1.  The program displays
   DSPLY  a    x

Fpf1       if   e             disk                    
D subproc         pr                                  
D   parm                              likerec(rec1)   
D ds              ds                  likerec(rec1)   
c                   eval      fld1 = 'x'              
c                   eval      ds.fld1 = 'y'           
c                   callp     subproc (ds)            
c     ds.fld1       dsply                   fld1      
C                   return                            
P subproc         b                                   
D subproc         pi                                  
D   parm                              likerec(rec1)   
c                   read      rec1          parm      
P subproc         e