rpgprogram.rpgle

Dcl-ds PARM1_Ds Extname('FILE') Qualified End-ds;
                                                    
 Incoming parameter definition                      
Dcl-pr Entry Extpgm('RPGNAME');                  
  PARM1   Char(%Len(PARM1_Ds.FIELDOFPARM1));               
End-pr;                                             

* Incoming parameter definition       
 Dcl-pi Entry;                        
   PARM1   Char(%Len(PARM1_Ds.PARM1));
 End-pi;