midrange.com code scratchpad
Name:
SQL: Make RPG into a SQL function
Scriptlanguage:
Plain Text
Tabwidth:
4
Date:
02/01/2019 09:49:17 pm
IP:
Logged
Description:
The user was to lazy to give a description
Code:
  1.         // How to compile:
  2.         // CRTRPGMOD MODULE(ROB/HELLOWORLD) SRCFILE(ROB/QPGMSRC) DBGVIEW(*SOURCE)
  3.         // CRTSRVPGM SRVPGM(ROB/HELLOWORLD) EXPORT(*ALL)
  4.         // SQL:  
  5.         //     CREATE FUNCTION ROB.HELLOWORLD (CHAR (1) )
  6.         //     returns CHAR(15)
  7.         //     language rpgle
  8.         //     deterministic
  9.         //     no sql
  10.         //     returns null on null input
  11.         //     no external action allow parallel
  12.         //     simple call
  13.         //     external name 'ROB/HELLOWORLD(HELLOWORLD)';
  14.       
  15.         // To test use the following in SQL:
  16.         // VALUES ROB.HELLOWORLD('W');
  17.       
  18.        CTL-OPT
  19.          NOMAIN
  20.          ExprOpts(*RESDECPOS)
  21.          EXTBININT(*YES)
  22.        ;
  23.  
  24.        DCL-PR HELLOWORLD  char(15);
  25.          Gimmie char(1);
  26.        END-PR;
  27.  
  28.        DCL-PROC HELLOWORLD export;
  29.        DCL-PI HELLOWORLD like(ReturnString);
  30.          Gimmie char(1);
  31.        END-PI;
  32.        DCL-S ReturnString CHAR(15);
  33.        Select;
  34.          When Gimmie = 'W';
  35.            ReturnString = 'Hello World';
  36.          When Gimmie = 'C';
  37.            ReturnString = 'Hello Country';
  38.          Other;
  39.            ReturnString = 'Hello chaos';
  40.        ENDSL;
  41.        Return ReturnString;
  42.        END-PROC HELLOWORLD; 
© 2004-2019 by midrange.com generated in 0.006s valid xhtml & css