CREATE PROCEDURE AAPS/ASPE3DL() 
-------------------------------------------                      
-- This procedure will return a          --                      
-- recordset to an ASP page              --                      
-------------------------------------------                           
  RESULT SETS 1                                         
  LANGUAGE SQL                                          
  READS SQL DATA                                        
BEGIN                                                   
  DECLARE c1 CURSOR WITH RETURN FOR                     
  SELECT E3STORE, E3SKU, E3PCAL, E3STAT,                
  PLCTRL, PLMPOG, PLYEAR, PLPER, PLWEEK, PLPOGEF        
  FROM AAPS/COMPE3L3                                    
  ORDER BY E3PCAL;                                      
  OPEN c1;                                              
  SET RESULT SETS CURSOR c1;                            
END