CREATE PROCEDURE YourLibrary/MainProc( 
		    IN ParentContact Dec (9,0 ),  
		    IN ChildContact Dec (9,0 ),   
		    OUT ContactName CHAR (30 ),   
		    OUT ContactPhone CHAR (30 ),  
		    OUT ContactEMail CHAR (60 ),  
		    OUT BillToName CHAR (30 ),    
		    OUT BillToAddr1 CHAR (35 ),   
		    OUT BillToAddr2 CHAR (35 ),   
		    OUT BillToAddr3 CHAR (35 ),   
		    OUT BillToAddr4 CHAR (35 ),   
		    OUT BillToAddr5 CHAR (21 ),   
		    OUT BillToState CHAR (2 ),    
		    OUT BillToZipCode CHAR (10 ), 
		    OUT BillToPhone CHAR (30 ),   
		    OUT FaxNumber CHAR (14 ),       
		    OUT CustomerNumber CHAR (7 ))   
		 DYNAMIC RESULT SETS 1              
		 LANGUAGE RPGLE                     
		 NOT DETERMINISTIC                  
		 MODIFIES SQL DATA                  
		 EXTERNAL NAME YourLibrary/MainRPG     
		 PARAMETER STYLE SQL                
			 

		CREATE PROCEDURE YourLibrary/WrapProc(   
		    IN ParentContact Dec (9,0 ),         
		    IN ChildContact Dec (9,0 ))      
		 DYNAMIC RESULT SETS 1               
		 LANGUAGE SQL                        
		 BEGIN                               
		   DECLARE ContactName CHAR (30);    
		   DECLARE ContactPhone CHAR (30);   
		   DECLARE ContactEMail CHAR (60);   
		   DECLARE BillToName CHAR (30);     
		   DECLARE BillToAddr1 CHAR (35);    
		   DECLARE BillToAddr2 CHAR (35);    
		   DECLARE BillToAddr3 CHAR (35);    
		   DECLARE BillToAddr4 CHAR (35);    
		   DECLARE BillToAddr5 CHAR (21);    
		   DECLARE BillToState CHAR (2);     
		   DECLARE BillToZipCode CHAR (10);  
		   DECLARE BillToPhone CHAR (30);    
		   DECLARE FaxNumber CHAR (14);               
		   DECLARE CustomerNumber CHAR (7);           
		   DECLARE c1 CURSOR WITH RETURN FOR          
		     SELECT ParentContact,                    
		         ChildContact,                     
		         ContactName,                      
		         ContactPhone,                     
		         ContactEMail,                     
		         BillToName,                       
		         BillToAddr1,                      
		         BillToAddr2,                      
		         BillToAddr3,                      
		         BillToAddr4,                      
		         BillToAddr5,                      
		         BillToState,                      
		         BillToZipCode,                    
		         BillToPhone,                      
		         FaxNumber,                               
		         CustomerNumber                           
		      FROM SYSIBM/SYSDUMMY1;                       
		    SET ContactName = ' ';                          
		    SET ContactPhone = ' ';                         
		    SET ContactEMail = ' ';                         
		    SET BillToName = ' ';                           
		    SET BillToAddr1 = ' ';                          
		    SET BillToAddr2 = ' ';                          
		    SET BillToAddr3 = ' ';                          
		    SET BillToAddr4 = ' ';                          
		    SET BillToAddr5 = ' ';                          
		    SET BillToState = ' ';                          
		    SET BillToZipCode = ' ';                        
		    SET BillToPhone = ' ';                          
		    SET FaxNumber = ' ';                       
		    SET CustomerNumber = ' ';                  
		    CALL MainProc(ParentContact,                
		                  ChildContact,                 
		                  ContactName,                  
		                  ContactPhone,                 
		                  ContactEMail,                 
		                  BillToName,                   
		                  BillToAddr1,                  
		                  BillToAddr2,                  
		                  BillToAddr3,                  
		                  BillToAddr4,                  
		                  BillToAddr5,                  
		                  BillToState,                  
		                  BillToZipCode,                   
		                  BillToPhone,                     
		                  FaxNumber,                       
		                  CustomerNumber);                 
		    OPEN c1 USING ParentContact,                  
		                  ChildContact,                   
		                  ContactName,                    
		                  ContactPhone,                   
		                  ContactEMail,                   
		                  BillToName,                     
		                  BillToAddr1,                    
		                  BillToAddr2,                    
		                  BillToAddr3,                    
		                  BillToAddr4,                    
		                  BillToAddr5,                  
		                  BillToState,                  
		                  BillToZipCode,                
		                  BillToPhone,                  
		                  FaxNumber,                    
		                  CustomerNumber;               
		END