midrange.com code scratchpad |
Name:
Retrieve Journal Receiver information via SQL
|
Scriptlanguage:
Plain Text
|
Tabwidth:
4
|
Date:
08/17/2021 08:29:38 pm
|
IP:
Logged
|
|
Description:
Using the QjoRtvJrnReceiverInformation API this will return detach date information from JRNRCV Objs.
|
Code:
- RPG:
-
- **Free
- Ctl-Opt Nomain
- Option(*Srcstmt:*Nodebugio:*Noshowcpy) Debug(*yes);
-
- // CRTRPGMOD MODULE(KEVIN/RTVJRNRCVI)
- // CRTSRVPGM SRVPGM(KEVIN/RTVJRNRCVI) EXPORT(*ALL)
- //
- // Create or Replace Function KEVIN.RTVJRNRCVI
- // (RcvLib Char(10),
- // RcvFile Char(10))
- // Returns Char(13)
- // Language RPGLE
- // No SQL
- // Not Fenced
- // External Name 'KEVIN/RTVJRNRCVI(GETDETACHDATE)'
- // Parameter Style General ;
-
- Dcl-Pr RtvJrnRcvA ExtProc('QjoRtvJrnReceiverInformation');
- *N Char(500); // Data coming back
- *N Int(10) Const; // Length of data coming back
- *N Char(20) Const; // Qualified name of the receiver
- *N Char(8) Const; // Format name
- // Q&D - no error handling.
- End-Pr;
-
- Dcl-Pr GETDETACHDATE Char(13);
- Library Char(10);
- FileName Char(10);
- End-Pr;
-
- Dcl-Proc GETDETACHDATE Export;
-
- Dcl-Pi *N Char(13);
- Library Char(10);
- FileName Char(10);
- End-Pi;
-
- Dcl-S ReturnValue Char(500);
-
- RtvJrnRcvA (ReturnValue
- :500
- :FileName + Library
- :'RRCV0100');
- Return %Subst(ReturnValue:109:13);
-
- End-Proc;
-
- SQL Example:
- with jrnrcv as (SELECT objname FROM TABLE (QSYS2.OBJECT_STATISTICS('MPMSAUDIT ','JRNRCV') ) )
-
- select objname, kevin.rtvjrnrcvi('MPMSAUDIT',objname) from jrnrcv;
-
- Returns:
- MPMSJR0214 1210816074112
- MPMSJR0215 1210816110921
- MPMSJR0216 1210817011129
- MPMSJR0217 1210817103202
- MPMSJR0218 0000000000000
|
|
|