一个在AS/400 DB2下的存储过程示例

因程序需要,要在AS/400系统下建立DB2存储过程,参考了很多资料终于写完了一个可以运行的例子.

 

 1CREATE PROCEDURE CIT003/PSCANO              
 2  (IN LOTNO INT,                                
 3   IN MODELNAME VARCHAR(50),                    
 4   IN STARTNO INT,                              
 5   IN QTY INT,                                  
 6   IN INTDATE INT,                              
 7   IN INTTIME INT)                              
 8   LANGUAGE SQL MODIFIES SQL DATA               
 9   P1:BEGIN                                     
   DECLARE I INT;                               
   DECLARE ANAMNO CHAR(15);                     
   DECLARE BARCODE CHAR(15);                    
   DECLARE TMPSTR CHAR(15);                     
   DECLARE FRISTNO CHAR(15);                    
   DECLARE LASTNO CHAR(15); 
   DECLARE LINE INT;

   DECLARE S11 CURSOR FOR SELECT SWRKC FROM BPCSFCT/FSO WHERE SORD=LOTNO;
   OPEN S11;
   FETCH S11 INTO LINE;
   CLOSE S11;

   SET TMPSTR='00000'||TRIM(CHAR(STARTNO));                                       
   SET FRISTNO=TRIM(CHAR(LOTNO))||SUBSTR(TMPSTR,LENGTH(TRIM(TMPSTR))-4,5);  
   SET TMPSTR='00000'||TRIM(CHAR(STARTNO+QTY));                       
   SET LASTNO=TRIM(CHAR(LOTNO))||SUBSTR(TMPSTR,LENGTH(TRIM(TMPSTR))-4,5);

   IF NOT EXISTS (SELECT SCBC FROM BPCSUSRFC/SCA WHERE SCBC>=FRISTNO AND SCBC<=LASTNO) THEN             
   SET I=1;                                                           
   WHILE (I<=QTY) DO                                                  
   SET TMPSTR='00000'||TRIM(CHAR(STARTNO));                           
   SET BARCODE=TRIM(CHAR(LOTNO))||SUBSTR(TMPSTR,LENGTH(TRIM(TMPSTR))-4,5); 
   INSERT INTO BPCSUSRFC/SCA (SCID,SCFAC,SCDTE,SCWC,SCBC,             
                           SCBCTM,SCSO,SCCDT,SCPRD)                   
   VALUES ('SC','CF1',INTDATE,LINE,TRIM(BARCODE),INTTIME,LOTNO,
           INTDATE,MODELNAME);        
   SET I=I+1;               
   SET STARTNO=STARTNO+1;   
   END WHILE;               
   END IF ;                 
   END P1;