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:
- // How to compile:
- // CRTRPGMOD MODULE(ROB/HELLOWORLD) SRCFILE(ROB/QPGMSRC) DBGVIEW(*SOURCE)
- // CRTSRVPGM SRVPGM(ROB/HELLOWORLD) EXPORT(*ALL)
- // SQL:
- // CREATE FUNCTION ROB.HELLOWORLD (CHAR (1) )
- // returns CHAR(15)
- // language rpgle
- // deterministic
- // no sql
- // returns null on null input
- // no external action allow parallel
- // simple call
- // external name 'ROB/HELLOWORLD(HELLOWORLD)';
-
- // To test use the following in SQL:
- // VALUES ROB.HELLOWORLD('W');
-
- CTL-OPT
- NOMAIN
- ExprOpts(*RESDECPOS)
- EXTBININT(*YES)
- ;
-
- DCL-PR HELLOWORLD char(15);
- Gimmie char(1);
- END-PR;
-
- DCL-PROC HELLOWORLD export;
- DCL-PI HELLOWORLD like(ReturnString);
- Gimmie char(1);
- END-PI;
- DCL-S ReturnString CHAR(15);
- Select;
- When Gimmie = 'W';
- ReturnString = 'Hello World';
- When Gimmie = 'C';
- ReturnString = 'Hello Country';
- Other;
- ReturnString = 'Hello chaos';
- ENDSL;
- Return ReturnString;
- END-PROC HELLOWORLD;
|
|
|