alexz/SQL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Update Function SYS_PARMS

Browse Source
This commit is contained in:
Alex Zaw
2026-02-25 23:02:25 +00:00
parent 9ee213057a
commit ed2f8372c8
1 changed files with 130 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

131
CISTOOLS/Functions/SYS_PARMS.sql
View File

@@ -1 +1,130 @@
牄禗袬蒨@\蚕謨@^@
SET PATH *LIBL ;
CREATE OR REPLACE FUNCTION CISTOOLS.SYS_PARMS (
HTTP_HOST CHAR(50) )
RETURNS TABLE (
AMFLIB CHAR(10) ,
AMTLIB CHAR(10) ,
SFPLIB CHAR(10) ,
CUSTOM CHAR(10) ,
AMALIB CHAR(10) ,
IFS CHAR(200) ,
DTEFMT CHAR(3) ,
MSGF CHAR(10) ,
NE CHAR(1) ,
ENDS CHAR(2) ,
PPSLIB CHAR(10) ,
PPSOBJ CHAR(10) ,
PPSMSGF CHAR(10) ,
PHYFILE CHAR(10) ,
KANLIB CHAR(10) ,
GPPHTML CHAR(10) ,
OTHER1 CHAR(10) ,
OTHER2 CHAR(10) ,
OTHER3 CHAR(10) ,
OTHER4 CHAR(10) )
LANGUAGE SQL
SPECIFIC CISTOOLS.SYS_PARMS
NOT DETERMINISTIC
READS SQL DATA
CALLED ON NULL INPUT
SET OPTION ALWBLK = *ALLREAD ,
ALWCPYDTA = *OPTIMIZE ,
COMMIT = *NONE ,
DECRESULT = (31, 31, 00) ,
DYNDFTCOL = *NO ,
DYNUSRPRF = *USER ,
SRTSEQ = *HEX
BEGIN
DECLARE V_AMFLIB , V_AMTLIB , V_SFPLIB , V_CUSTOM , V_AMALIB , V_MSGF , V_PPSLIB, V_PPSOBJ , V_PPSMSGF , V_PHYFILE , V_KANLIB , V_GPPHTML ,
V_OTHER1 , V_OTHER2 , V_OTHER3 , V_OTHER4 CHAR ( 10 ) ;
DECLARE V_IFS CHAR ( 200 ) ;
DECLARE V_DTEFMT CHAR ( 3 ) ;
DECLARE V_NE CHAR ( 1 ) ;
DECLARE V_ENDS CHAR ( 2 ) ;
SELECT MAX (
CASE
WHEN PARKEY2 = 'MAPICSFILE' THEN PARALPH
END ) , MAX (
CASE
WHEN PARKEY2 = 'MAPICSFILET' THEN PARALPH
END ) , MAX (
CASE
WHEN PARKEY2 = 'SFPFILE' THEN PARALPH
END ) , MAX (
CASE
WHEN PARKEY2 = 'CUSTOMFILE' THEN PARALPH
END ) , MAX (
CASE
WHEN PARKEY2 = 'MAPICSPGM' THEN PARALPH
END ) , MAX (
CASE
WHEN PARKEY2 = 'DTEFMT ' THEN PARALPH
END ) , MAX (
CASE
WHEN PARKEY2 = 'MSGF ' THEN PARALPH
END ) , MAX (
CASE
WHEN PARKEY2 = 'NUMEDT ' THEN PARALPH
END ) , MAX (
CASE
WHEN PARKEY2 = 'MAPICSENDS' THEN PARALPH
END ) , MAX (
CASE
WHEN PARKEY2 = 'PPSFILE ' THEN PARALPH
END ) , MAX (
CASE
WHEN PARKEY2 = 'PPSOBJ ' THEN PARALPH
END ) , MAX (
CASE
WHEN PARKEY2 = 'PPSMSGF ' THEN PARALPH
END ) , MAX (
CASE
WHEN PARKEY2 = 'PHYFILE ' THEN PARALPH
END ) , MAX (
CASE
WHEN PARKEY2 = 'KANFILE ' THEN PARALPH
END ) , MAX (
CASE
WHEN PARKEY1 = 'SFPLUS '
AND PARKEY2 = 'IFSPATH ' THEN PARALPH
END ) , MAX (
CASE
WHEN PARKEY1 = 'SFPLUS '
AND PARKEY2 = 'GPPHTML ' THEN PARALPH
END )
INTO V_AMFLIB , V_AMTLIB , V_SFPLIB , V_CUSTOM , V_AMALIB , V_DTEFMT , V_MSGF ,V_NE , V_ENDS , V_PPSLIB , V_PPSOBJ , V_PPSMSGF ,
V_PHYFILE , V_KANLIB , V_IFS , V_GPPHTML
FROM $PARMGEN
WHERE PARKEY3 = HTTP_HOST
AND ( ( PARKEY1 = 'GENERAL'
AND PARKEY2 IN ( 'MAPICSFILE' ,
'MAPICSFILET' , 'SFPFILE' , 'CUSTOMFILE' , 'MAPICSPGM' , 'DTEFMT ' , 'MSGF' , 'NUMEDT ' , 'MAPICSENDS' ,
'PPSFILE ' , 'PPSOBJ ' , 'PPSMSGF ' , 'PHYFILE ' , 'KANFILE ' ) )
OR ( PARKEY1 = 'SFPLUS '
AND PARKEY2 IN ( 'IFSPATH ' , 'GPPHTML ' ) ) ) ;
SET V_OTHER1 = '' ;
SET V_OTHER2 = '' ;
SET V_OTHER3 = '' ;
SET V_OTHER4 = '' ;
PIPE (
V_AMFLIB ,
V_AMTLIB , V_SFPLIB , V_CUSTOM , V_AMALIB , V_IFS , V_DTEFMT , V_MSGF , V_NE , V_ENDS , V_PPSLIB , V_PPSOBJ , V_PPSMSGF , V_PHYFILE ,
V_KANLIB , V_GPPHTML , V_OTHER1 , V_OTHER2 , V_OTHER3 , V_OTHER4 ) ;
RETURN ;
END ;
COMMENT ON PARAMETER SPECIFIC FUNCTION CISTOOLS.SYS_PARMS
( HTTP_HOST IS 'HTTP Host' ) ;
LABEL ON SPECIFIC FUNCTION CISTOOLS.SYS_PARMS
IS 'Sys Parms' ;
GRANT ALTER , EXECUTE
ON SPECIFIC FUNCTION CISTOOLS.SYS_PARMS
TO AMAPICS WITH GRANT OPTION ;
GRANT EXECUTE
ON SPECIFIC FUNCTION CISTOOLS.SYS_PARMS
TO PUBLIC ;