IT Answers » PL/SQL error messages

SQL error SQL0204 while using scalar function calling RPGLE program

PG — Mon, 17 Aug 2009 07:32:39 +0000

I’ve created a sclar function in SQLRPGLE which will be calling a RPGLE program for processing. There are 2 functions in the SQLRPGLE program: one for handling character field and another for processing numeric fields. Character part is working fine, but if it processes numeric part (i.e. function name fnScrmbleN), program is showing error SQL0204 i.e. FNSCRMBLEN in *LIBL type *N not found.

Kindly help and suggest what could be the reason. I’m attaching code below for your reference: 1) If FLFLDT = ‘C’ (character), field FLFLD will have name of a character field 2) If FLFLDT = ‘N’ (numeric), field FLFLD will have name of a character field 3) Field FLSENC will always have numeric field name.



      4359      FAGP995    IP   E           K DISK                                                                         05/09/09     4301      D*                                                                                                         05/03/21     4310      D G_First         S               N                                                                        05/09/06     4321      D G_Sql           S           1024A   INZ                                                                  05/09/06     4324 13266D G_CMDNAM        S            150A                                                                        09/08/12     4325 13266D G_CMDLEN        S             15P 5                                                                      09/08/13     4326 13266D*                                                                                                         09/08/12     4327 13226D QCMDEXC         PR                  EXTPGM('QCMDEXC')                                                    09/08/12     4328 13266D CMD                          150A                                                                        09/08/13     4329 13266D CMDLEN                        15P 5                                                                      09/08/13     4330 13266D*                                                                                                         09/08/13     4331 13226D AG995C          PR                  EXTPGM('AG995C')                                                     09/08/13     4332 13266D AG995D          PR                  EXTPGM('AG995D')                                                     09/08/13     4333 13266D*                                                                                                         09/08/13     4334      D* Int value for Chars                                                                                     05/08/19     5304      I*                                                                                                         05/07/29     5305      IFMFILFLD                                                                                                  05/07/29     5306 13226I*                                         FLFILE        L1                                                09/08/11     5307 13226I                                          FLBATNO       L1                                                09/08/11     5308 13226I                                          FLFILE        L2                                                09/08/11     5310      C**================================================================**                                      05/07/29     5311      C*  PARAMETER LIST                                                  *                                      05/07/29     5312      C**================================================================**                                      05/07/29     5313      C*                                                                                                         05/07/29     5400      C**================================================================**                                      04/04/16     5500      C*  MAIN PROGRAM                                                    *                                      04/04/16     5600      C**================================================================**                                      04/04/16     7200      C*                                                                                                         04/04/16     7201       /free                                                                                                     05/07/29     7202 13266   // If level break L1 on FLBATNO is on                                                                   09/08/11     7203 13266     if *inl1;                                                                                             09/08/11     7204 13266       // Clear File AGP995C                                                                               09/08/13     7206 13266            G_CMDNAM = 'CLRPFM AGP995C';                                                                   09/08/12     7208 13266            G_CMDLEN = 14;                                                                                 09/08/13     7210 13266            CALLP      QCMDEXC(G_CMDNAM : G_CMDLEN);                                                       09/08/13     7211 13266                                                                                                           09/08/13     7212 13266       // Call AG995C                                                                                      09/08/13     7213 13266            CALLP      AG995C();                                                                           09/08/13     7216 13266                                                                                                           09/08/13     7217 13266       // Clear File AGP995D                                                                               09/08/13     7218 13266            G_CMDNAM = 'CLRPFM AGP995D';                                                                   09/08/12     7219 13266            G_CMDLEN = 14;                                                                                 09/08/13     7221 13266            CALLP      QCMDEXC(G_CMDNAM : G_CMDLEN);                                                       09/08/13     7222 13266                                                                                                           09/08/13     7223 13266        // Call AG995C                                                                                     09/08/13     7224 13266            CALLP      AG995D();                                                                           09/08/13     7225 13266     endif;                                                                                                09/08/13     7226 13266                                                                                                           09/08/13     7229         // init vars at detail level break                                                                      05/07/29     7231 13266     if *inl2;                                                                                             09/08/11     7232               G_First = *off;                                                                                   05/09/06     7233               G_Sql = 'Update ' + %trim(FLFILE) + ' set' ;                                                      05/09/06     7234           endif;                                                                                                05/07/29     7235         // build sql                                                                                            05/07/29     7236               if G_First = *on;                                                                                 05/09/06     7237                  G_Sql = %trim(G_Sql) + ',';                                                                    05/09/06     7238               endif;                                                                                            05/09/06     7241 13266                                                                                                           09/08/13     7242 13266      // Process character fields                                                                          09/08/13     7243 13266         if FLFLDT = 'C';                                                                                  09/08/13     7244 13266               if FLSENC <> ' ' ;                                                                          09/08/13     7245 13266                  G_Sql = %trim(G_Sql) +  ' ' + %trim(FLFLD) +                                             09/08/13     7246 13266                          ' = fnScrmble(' + %trim(FLFLD) + ',  ' +                                         09/08/13     7247 13266                          %trim(FLSENC) + ')';                                                             09/08/13     7248 13266               else;                                                                                       09/08/13     7249 13266                  G_Sql = %trim(G_Sql) +  ' ' + %trim(FLFLD) +                                             09/08/13     7250 13266                  ' = fnScrmble(' +  %trim(FLFLD) + ',  0)';                                               09/08/13     7251 13266               endif;                                                                                      09/08/13     7252 13266         endif;                                                                                            09/08/13     7253 13266                                                                                                           09/08/13     7254 13266      // Process numeric fields                                                                            09/08/13     7255 13266         if FLFLDT = 'N';                                                                                  09/08/13     7256 13266               if FLSENC <> ' ';                                                                           09/08/13     7257 13266                  G_Sql = %trim(G_Sql) +  ' ' + %trim(FLFLD) +                                             09/08/13     7258 13266                          ' = fnScrmbleN(' + %trim(FLFLD) + ',  ' +                                        09/08/13     7259 13266                          %trim(FLSENC) + ')';                                                             09/08/17     7261 13266               else;                                                                                       09/08/13     7262 13266                  G_Sql = %trim(G_Sql) +  ' ' + %trim(FLFLD) +                                             09/08/13     7263 13266                          ' = fnScrmbleN(' +  %trim(FLFLD) + ',  0)';                                      09/08/17     7265 13266               endif;                                                                                      09/08/13     7266 13266         endif;                                                                                            09/08/13     7267               G_First = *on;                                                                                    05/09/06     7268       /end-free                                                                                                 05/07/29     7269      C*                                                                                                         05/07/29     7270 13266C*L1                 EXSR      SRExcUpd                                                                    09/08/11     7271 13266CL2                 EXSR      SRExcUpd                                                                     09/08/11     7272      CLR                 EXSR      SRLastRec                                                                    05/09/09    12001      C**************************************************************************                                05/07/29    12002      C* SrExcUpd - Execute Update SQL                                                                           05/07/29    12003      C**************************************************************************                                05/07/29    12004      C     SrExcUpd      BEGSR                                                                                  05/07/29    12005      C*                                                                                                         05/07/29    12100      C/Exec SQL                                                                                                 05/07/29    12200      C+                   Prepare DynUpdStm From :G_Sql                                                         05/09/06    12300      C/End-Exec                                                                                                 05/07/29    12400      C/Exec SQL                                                                                                 05/07/29    12500      C+                   Execute DynUpdStm                                                                     05/07/29    12600      C/End-Exec                                                                                                 05/07/29    12700      C*                                                                                                         05/07/29    12800      C                   ENDSR                                                                                  05/07/29    12900      C**************************************************************************                                05/09/09    13000      C* *INZSR - Initialization                                                                                 05/09/09    13100      C**************************************************************************                                05/09/09    13200      C     *INZSR        BEGSR                                                                                  05/09/09    13300      C*                                                                                                         05/09/09    13400      C/Exec SQL                                                                                                 05/09/09    13501 13226C+                   create function fnScrmble(char(100), decimal(10,0))                                   09/08/13    13502 13226C+                     returns char(100)                                                                   09/08/13    13503      C+                     language rpgle                                                                      05/09/09    13504      C+                     external name AG995A                                                                05/09/09    13505      C+                     deterministic                                                                       05/09/09    13506      C+                     no sql                                                                              05/09/09    13507      C+                     no external action                                                                  05/09/09    13508      C+                     parameter style SQL                                                                 05/09/09    13509      C+                     allow parallel                                                                      05/09/09    13600      C/End-Exec                                                                                                 05/09/09    14000      C*                                                                                                         05/09/09    14001 13226C/Exec SQL                                                                                                 09/08/12    14003 13226C+   create function fnScrmbleN(decimal(15,5), decimal(10,0))                                              09/08/17    14004 13226C+                     returns decimal(15,5)                                                               09/08/13    14005 13226C+                     language rpgle                                                                      09/08/12    14006 13226C+                     external name AG995B                                                                09/08/12    14007 13226C+                     deterministic                                                                       09/08/12    14008 13226C+                     no sql                                                                              09/08/12    14009 13226C+                     no external action                                                                  09/08/12    14010 13226C+                     parameter style SQL                                                                 09/08/12    14011 13226C+                     allow parallel                                                                      09/08/12    14012 13226C/End-Exec                                                                                                 09/08/12    14013      C*                                                                                                         09/08/11    14100      C                   ENDSR                                                                                  05/09/09    14101      C**************************************************************************                                05/09/09    14102      C* SRLastRec - At Last Record                                                                              05/09/09    14103      C**************************************************************************                                05/09/09    14104      C     SRLastRec     BEGSR                                                                                  05/09/09    14200      C/Exec SQL                                                                                                 05/09/09    14300      C+                   drop function fnScrmble                                                               05/09/09    14400      C/End-Exec                                                                                                 05/09/09    14500      C*                                                                                                         05/09/09    14501 13226C/Exec SQL                                                                                                 09/08/12    14502 13226C+                   drop function fnscrmbleN                                                              09/08/12    14503 13226C/End-Exec                                                                                                 09/08/12    14600      C                   ENDSR                                                                                  05/09/09                                    * * * *  E N D  O F  S O U R C E  * * * *

Oracle stored procedure error with PL/SQL

BrentSheets — Thu, 14 May 2009 16:45:48 +0000

We wrote a stored procedure, where we are passing input as VARCHAR2. And passing 73 characters string as input. Till here its fine.

After giving few extra characters above this, it’s giving the error:

ORA-06502: PL/SQL: numeric or value error
ORA-06512: at “stored procedure name”, line 114
ORA-06512: at line 1″
ORA-06502: PL/SQL: numeric or value error

Moderator Note: This is a submitted question.

PL/SQL error

Inprise — Thu, 05 Feb 2009 08:32:07 +0000

Hi Experts,

I am getting the follwoing error ORA-08102: index key not found, obj# 141051, file 28, block 15245 (2)

I tried rebuild on that specific obj id still error persist

wat are the possible causes and how to overcome
please guide me

SQLERRM = ORA-06502: PL/SQL: numeric or value error: character string buffer too small

Bw7 — Thu, 15 Jan 2009 15:07:06 +0000

My procedure is shown below. When I execute it, it gives me the title error. Field3 is identified as a CLOB. Any / all help would be greatly appreciated. Running Oracle Database 10g Enterprise Edition Release 10.2.0.3.0

CREATE OR REPLACE PROCEDURE xxx IS

FileHandle SYS.UTL_FILE.FILE_TYPE;
FileName VARCHAR2(2000);
FileText VARCHAR2(2000);

vField1 TABLE.field1%TYPE;
vField2 TABLE.field2%TYPE;
vField3 TABLE.field3%TYPE;

CURSOR TableCURSOR IS
SELECT *
FROM table;

BEGIN

DBMS_OUTPUT.ENABLE(1000000);

FileName := ‘Output.txt’;
FileHandle := SYS.UTL_FILE.FOPEN(‘PATH’, FileName, ‘w’);

FOR trec in TableCURSOR LOOP

vField1 := trec.field1;
vField2 := trec.field2;
vField3 := trec.field3;

FileText :=
vField1 || ‘~’ ||
vField2 || ‘~’ ||
vField3;

SYS.UTL_FILE.PUT_LINE(FileHandle, FileText);

END LOOP;

SYS.UTL_FILE.FCLOSE(FileHandle);

EXCEPTION
WHEN OTHERS THEN
DBMS_OUTPUT.PUT_LINE (‘Error on ‘ || vField1 || ‘ ‘ || vField2 || ‘ ‘ || vField3);
DBMS_OUTPUT.PUT_LINE (‘SQLCODE = ‘ || to_char(SQLCODE));
DBMS_OUTPUT.PUT_LINE (‘SQLERRM = ‘ || substr(SQLERRM, 1,200));
END;
/
SHO ERR

I am getting ORA-01422: Exact fetch returns more than requested number of rows

Inprise — Tue, 06 Jan 2009 10:56:38 +0000

New Answer by Michael Tidmarsh

PL/SQL: How to check that parameter is case-sensitive?

Inprise — Fri, 12 Dec 2008 04:18:19 +0000

Hi Experts

how can i check the email id shud take only lower case in PL/SQL block
i tried using vpos := REGEXP_LIKE(p_email_address,’[:lower:]‘,’C'); as well
vpos ;= REGEXP_LIKE(p_email_address,’[^[:lower:]]’,'C’)

But both says wrong type as error and p_email_address is a parameter of procedure and i declared vpos as varchar2

please help me!!!!

Error(7,30): PLS-00103: Encountered the symbol “OUT” when expecting one of the following

Inprise — Wed, 03 Dec 2008 05:16:27 +0000

I am getting this eror when i compile my procedure with OUT Parameter ,it has got several OUT param ,but only this particular line pops up err msg

Error(7,30): PLS-00103: Encountered the symbol “OUT” when expecting one of the following: := . ) , @ % default character The symbol “,” was substituted for “OUT” to continue.

Can someone help me on this ??

Error(31,19): PLS-00103: Encountered the symbol “INTO” when expecting one of the following

Inprise — Wed, 03 Dec 2008 05:12:51 +0000

I got this error while compiling a select stm and it s my pckg body however package parameter hav OUT as well IN ..

Error(31,19): PLS-00103: Encountered the symbol “INTO” when expecting one of the following: . ( , % from The symbol “from was inserted before “INTO” to continue.

Anbody able to help me out ??