-- Generated on: 02/26/10 15:53:47
-- Relational Database: MYSERVER
-- Standards Option: DB2 UDB iSeries
SET PATH "QSYS","QSYS2","MYDB" ;
CREATE PROCEDURE TRMSPSQL.PER0202P11_INS_EXP_REC (
IN P_EMP_ID VARCHAR(10) ,
.....DELETED SOME CODE HERE......
IN P_RESPONSIBILITIES VARCHAR(240) ,
IN P_REASON VARCHAR(60) )
DYNAMIC RESULT SETS 1
LANGUAGE SQL
SPECIFIC MYDB.PER0202P11
NOT DETERMINISTIC
MODIFIES SQL DATA
CALLED ON NULL INPUT
SET OPTION ALWBLK = *ALLREAD ,
ALWCPYDTA = *OPTIMIZE ,
COMMIT = *NONE ,
DECRESULT = (31, 31, 00) ,
DFTRDBCOL = *NONE ,
DYNDFTCOL = *NO ,
DYNUSRPRF = *USER ,
SRTSEQ = *HEX
BEGIN
.....DELETED SOME CODE HERE......
--> ADD RECORD TO ATXTP TABLE:
IF RTRIM ( P_RESPONSIBILITIES ) || RTRIM ( P_REASON ) <> '' THEN
INSERT INTO MYDB.ATXTP
VALUES (
W_DIST , --TXTKDIST CHAR(3)
'CNT' , --TXTKFILE CHAR(3)
'CNT' , --TXTKRCD CHAR(3)
W_DIST || RTRIM ( P_EMP_ID ) || ' X' || W_CNTKDATE || P_EXP_BUCKET , --TXTKVALU CHAR(79)
'01' , --TXTKPAGE CHAR(2)
'WEBSQLIN' , --TXTUSR CHAR(8)
LEFT ( W_UPDATED , 2 ) , --TXTUCC CHAR(2),
SUBSTR ( W_UPDATED , 3 , 2 ) , --TXTUYY CHAR(2),
SUBSTR ( W_UPDATED , 5 , 2 ) , --TXTUMM CHAR(2),
SUBSTR ( W_UPDATED , 7 , 2 ) , --TXTUDD CHAR(2),
SUBSTR ( W_UPDATED , 9 , 2 ) , --TXTUHR CHAR(2),
SUBSTR ( W_UPDATED , 11 , 2 ) , --TXTUMN CHAR(2),
SUBSTR ( W_UPDATED , 13 , 2 ) , --TXTUSC CHAR(2),
'' , -- TXTPROT CHAR(1)
P_POSITION_TITLE , --TXTLIN1 CHAR(60)
P_GRADE_SUBJECT , --TXTLIN2 CHAR(60)
CASE
WHEN LENGTH ( RTRIM ( P_RESPONSIBILITIES ) ) < 61 THEN RTRIM ( P_RESPONSIBILITIES )
ELSE LEFT ( P_RESPONSIBILITIES , 60 )
END , --TXTLIN3 CHAR(60) CHARS 1-60
CASE
WHEN LENGTH ( P_RESPONSIBILITIES ) > 60 THEN
CASE
WHEN LENGTH ( P_RESPONSIBILITIES ) < 121 THEN SUBSTR ( P_RESPONSIBILITIES , 61 , LENGTH ( RTRIM ( P_RESPONSIBILITIES ) ) - 60 )
ELSE SUBSTR ( P_RESPONSIBILITIES , 61 , 60 )
END
ELSE ''
END , -- TXTLIN4 CHAR(60) CHARS 61-120
CASE
WHEN LENGTH ( P_RESPONSIBILITIES ) > 120 THEN
CASE
WHEN LENGTH ( P_RESPONSIBILITIES ) < 181 THEN SUBSTR ( P_RESPONSIBILITIES , 121 , LENGTH ( RTRIM ( P_RESPONSIBILITIES ) ) - 120 )
ELSE SUBSTR ( P_RESPONSIBILITIES , 121 , 60 )
END
ELSE ''
END , --TXTLIN5 CHAR(60) CHARS 121-180
CASE
WHEN LENGTH ( P_RESPONSIBILITIES ) > 180 THEN SUBSTR ( P_RESPONSIBILITIES , 181 , 60 )
ELSE ''
END , --TXTLIN6 CHAR(60) CHARS 181-240
P_REASON , --TXTLIN7 CHAR(60)
'' , --TXTLIN8 CHAR(60)
'Y' , --TXTPRINT CHAR(1)
'' --TXTFL1
) ;
END IF ;
.....DELETED SOME CODE HERE......