DSPF

A                                      RTNCSRLOC(&CREC &CFLD)
A            CREC          10A  H                            
A            CFLD          10A  H                            

--------------------------------------------------------------

RPG

 * Selection                              
C           *INKD     IFEQ *ON            
 *                                        
C           CFLD      IFEQ 'DXX1    '     
C                     CALL 'PGMXX1  '     
C                     PARM *BLANKS   PXX1P
C           PXX1P     IFNE *BLANKS        
C                     MOVELPXX1P     DXX1 
C                     ENDIF               
 *                                        
C                     ELSE                
C           CFLD      IFEQ 'DXX2    '     
C                     CALL 'PGMXX2  '     
C                     PARM *BLANKS   PXX2P
C           PXX2P     IFNE *BLANKS        
C                     MOVELPXX2P     DXX2 
C                     ENDIF               
C                     ENDIF 
C                     ENDIF