CREATE PROCEDURE ADMN.TABELA5 ( IN PNI_PES INTEGER ) DYNAMIC RESULT SETS 1 LANGUAGE SQL SPECIFIC ADMN.NG014PS05 NOT DETERMINISTIC MODIFIES SQL DATA CALLED ON NULL INPUT SET OPTION ALWBLK = *ALLREAD , ALWCPYDTA = *OPTIMIZE , COMMIT = *NONE , DECRESULT = (31, 31, 00) , DFTRDBCOL = PROD , DLYPRP = *NO , DYNDFTCOL = *NO , DYNUSRPRF = *USER , RDBCNNMTH = *RUW , SRTSEQ = *HEX BEGIN DECLARE NGCURSOR CURSOR WITH RETURN FOR SELECT NI_PES , NI_CRG , NO_PES , NU_CHP , NU_RG , DT_NSC , DS_EST_CVL , NU_TEL_1 , NU_TEL_2 , NU_TEL_3 , NU_TEL_4 , NU_CEL_1 , NU_CEL_2 , NU_CEL_3 , NU_CEL_4 , DS_EMAIL , CD_SEN , CD_USR_REDE , TS_INC , TS_ATLZ , TS_CAN FROM ADMN . TABELA5 WHERE NI_PES = PNI_PES ; OPEN NGCURSOR ; END ;