Midrange Systems Design - IBM iSeries i5

RPGLE converting *entry parms to proto types

      * Converting Entry parms to proto types                                                 
     H DFTACTGRP(*NO)                                                                         
a    D EntryParm       PR                                                                     
b    D  xx                                 Like(Customer)                                       
c    D  xx                                 Like(Order)                                       
d    D EntryParm       PI                                                                     
e    D  Customer                      8  0                                                    
f    D  Order                        11  0                                                    
                                                                                              
g    C*    *ENTRY        PLIST                                                                
h    C*                  PARM                    Customer 8 0 
i    C*                  PARM                    Order   11 0                        

     C                   Eval      *inLR = *on                                                

        a.    PR means prototype.  
        a.    Prototype name "EntryParm" must be the same as the program name (source member). 
        b.    xx is required for SEU to not show an error, but it is ignored by the compiler.  So I use a dummy name of xx.
        b,c.  Like insures the length and attribute match the interface e,f.
        d.    P I means procedure interface.  
        d.    Procedure interface name must be the same as the program name (source member).
        b,c.  defines the programs parameters length and attributes.          
        e,f.  defines the variables names.  The length and attibures must match b,c. 
        g,h,i.remove G through i and replace them with a through f.