Paramètres prototypés en RPG

– Voici un programme utilisant une PLIST pour gérer les paramètres.

DpCODE            s              5A                                         
DpACTIF           s              5A                                         
C     *ENTRY        PLIST                                                   
C                   PARM                    pCODE                         
C                   PARM                    pACTIF                         
 /free                                                                      
  if pACTIF = 'O';                                                          
   pCODE = '11111';                                                         
  endif;                                                                    
  *inlr = *on;                                                            
  return;                                                                 

 Voici le même programme avec des paramètres « prototypés »

D EntryParms      PR                  extpgm('ENTRY')      
D  pCODE                         5A                        
D  pACTIF                        1A                        
D EntryParms      PI                                       
D  pCODE                         5A                        
D  pACTIF                        1A                        
 /free                                                     
  if pACTIF = 'O';                                         
   pCODE = '11111';                                        
  endif;                                                   
    *inlr = *on;                                           
    return;                                                
Print Friendly, PDF & Email