From ed2f8372c87c16bbc9a56fa2b2730165b46d3123 Mon Sep 17 00:00:00 2001 From: Alex Zaw Date: Wed, 25 Feb 2026 23:02:25 +0000 Subject: [PATCH] Update Function SYS_PARMS --- CISTOOLS/Functions/SYS_PARMS.sql | 131 ++++++++++++++++++++++++++++++- 1 file changed, 130 insertions(+), 1 deletion(-) diff --git a/CISTOOLS/Functions/SYS_PARMS.sql b/CISTOOLS/Functions/SYS_PARMS.sql index bb233e0..466f0e3 100644 --- a/CISTOOLS/Functions/SYS_PARMS.sql +++ b/CISTOOLS/Functions/SYS_PARMS.sql @@ -1 +1,130 @@ -âÅã@×ÁãÈ@\ÓÉÂÓ@^@ % %ÃÙÅÁãÅ@ÖÙ@ÙÅ×ÓÁÃÅ@ÆäÕÃãÉÖÕ@ÃÉâãÖÖÓâKâèâm×ÁÙÔâ@M@ %Èãã×mÈÖâã@ÃÈÁÙMõð]@]@ %ÙÅãäÙÕâ@ãÁÂÓÅ@M@ %ÁÔÆÓÉÂ@ÃÈÁÙMñð]@k@ %ÁÔãÓÉÂ@ÃÈÁÙMñð]@k@ %âÆ×ÓÉÂ@ÃÈÁÙMñð]@k@ %ÃäâãÖÔ@ÃÈÁÙMñð]@k@ %ÁÔÁÓÉÂ@ÃÈÁÙMñð]@k@ %ÉÆâ@ÃÈÁÙMòðð]@k@ %ÄãÅÆÔã@ÃÈÁÙMó]@k@ %ÔâÇÆ@ÃÈÁÙMñð]@k@ %ÕÅ@ÃÈÁÙMñ]@k@ %ÅÕÄâ@ÃÈÁÙMò]@k@ %××âÓÉÂ@ÃÈÁÙMñð]@k@ %××âÖÂÑ@ÃÈÁÙMñð]@k@ %××âÔâÇÆ@ÃÈÁÙMñð]@k@ %×ÈèÆÉÓÅ@ÃÈÁÙMñð]@k@ %ÒÁÕÓÉÂ@ÃÈÁÙMñð]@k@ %Ç××ÈãÔÓ@ÃÈÁÙMñð]@k@ %ÖãÈÅÙñ@ÃÈÁÙMñð]@k@ %ÖãÈÅÙò@ÃÈÁÙMñð]@k@ %ÖãÈÅÙó@ÃÈÁÙMñð]@k@ %ÖãÈÅÙô@ÃÈÁÙMñð]@]@@@ %ÓÁÕÇäÁÇÅ@âØÓ@ %â×ÅÃÉÆÉÃ@ÃÉâãÖÖÓâKâèâm×ÁÙÔâ@ %ÕÖã@ÄÅãÅÙÔÉÕÉâãÉÃ@ %ÙÅÁÄâ@âØÓ@ÄÁãÁ@ %ÃÁÓÓÅÄ@ÖÕ@ÕäÓÓ@ÉÕ×äã@ %âÅã@Ö×ãÉÖÕ@@ÁÓæÂÓÒ@~@\ÁÓÓÙÅÁÄ@k@ %ÁÓæÃ×èÄãÁ@~@\Ö×ãÉÔÉéÅ@k@ %ÃÖÔÔÉã@~@\ÕÖÕÅ@k@ %ÄÅÃÙÅâäÓã@~@Móñk@óñk@ðð]@k@ %ÄèÕÄÆãÃÖÓ@~@\ÕÖ@k@ %ÄèÕäâÙ×ÙÆ@~@\äâÅÙ@k@ %âÙãâÅØ@~@\ÈÅç@@@ %ÂÅÇÉÕ@ %ÄÅÃÓÁÙÅ@åmÁÔÆÓÉÂ@k@åmÁÔãÓÉÂ@k@åmâÆ×ÓÉÂ@k@åmÃäâãÖÔ@k@åmÁÔÁÓÉÂ@k@åmÔâÇÆ@k@åm××âÓÉÂk@åm××âÖÂÑ@k@åm××âÔâÇÆ@k@åm×ÈèÆÉÓÅ@k@åmÒÁÕÓÉÂ@k@åmÇ××ÈãÔÓ@k@ %åmÖãÈÅÙñ@k@åmÖãÈÅÙò@k@åmÖãÈÅÙó@k@åmÖãÈÅÙô@ÃÈÁÙ@M@ñð@]@^@ %ÄÅÃÓÁÙÅ@åmÉÆâ@ÃÈÁÙ@M@òðð@]@^@ %ÄÅÃÓÁÙÅ@åmÄãÅÆÔã@ÃÈÁÙ@M@ó@]@^@ %ÄÅÃÓÁÙÅ@åmÕÅ@ÃÈÁÙ@M@ñ@]@^@ %ÄÅÃÓÁÙÅ@åmÅÕÄâ@ÃÈÁÙ@M@ò@]@^@ %âÅÓÅÃã@ÔÁç@M@ %ÃÁâÅ@ %æÈÅÕ@×ÁÙÒÅèò@~@}ÔÁ×ÉÃâÆÉÓÅ}@ãÈÅÕ@×ÁÙÁÓ×È@ %ÅÕÄ@]@k@ÔÁç@M@ %ÃÁâÅ@ %æÈÅÕ@×ÁÙÒÅèò@~@}ÔÁ×ÉÃâÆÉÓÅã}@ãÈÅÕ@×ÁÙÁÓ×È@ %ÅÕÄ@]@k@ÔÁç@M@ %ÃÁâÅ@ %æÈÅÕ@×ÁÙÒÅèò@~@}âÆ×ÆÉÓÅ}@ãÈÅÕ@×ÁÙÁÓ×È@ %ÅÕÄ@]@k@ÔÁç@M@ %ÃÁâÅ@ %æÈÅÕ@×ÁÙÒÅèò@~@}ÃäâãÖÔÆÉÓÅ}@ãÈÅÕ@×ÁÙÁÓ×È@ %ÅÕÄ@]@k@ÔÁç@M@ %ÃÁâÅ@ %æÈÅÕ@×ÁÙÒÅèò@~@}ÔÁ×ÉÃâ×ÇÔ}@ãÈÅÕ@×ÁÙÁÓ×È@ %ÅÕÄ@]@k@ÔÁç@M@ %ÃÁâÅ@ %æÈÅÕ@×ÁÙÒÅèò@~@}ÄãÅÆÔã@@@}@ãÈÅÕ@×ÁÙÁÓ×È@ %ÅÕÄ@]@k@ÔÁç@M@ %ÃÁâÅ@ %æÈÅÕ@×ÁÙÒÅèò@~@}ÔâÇÆ@@@@@}@ãÈÅÕ@×ÁÙÁÓ×È@ %ÅÕÄ@]@k@ÔÁç@M@ %ÃÁâÅ@ %æÈÅÕ@×ÁÙÒÅèò@~@}ÕäÔÅÄã@@@}@ãÈÅÕ@×ÁÙÁÓ×È@ %ÅÕÄ@]@k@ÔÁç@M@ %ÃÁâÅ@ %æÈÅÕ@×ÁÙÒÅèò@~@}ÔÁ×ÉÃâÅÕÄâ}@ãÈÅÕ@×ÁÙÁÓ×È@ %ÅÕÄ@]@k@ÔÁç@M@ %ÃÁâÅ@ %æÈÅÕ@×ÁÙÒÅèò@~@}××âÆÉÓÅ@@@}@ãÈÅÕ@×ÁÙÁÓ×È@ %ÅÕÄ@]@k@ÔÁç@M@ %ÃÁâÅ@ %æÈÅÕ@×ÁÙÒÅèò@~@}××âÖÂÑ@@@@}@ãÈÅÕ@×ÁÙÁÓ×È@ %ÅÕÄ@]@k@ÔÁç@M@ %ÃÁâÅ@ %æÈÅÕ@×ÁÙÒÅèò@~@}××âÔâÇÆ@@@}@ãÈÅÕ@×ÁÙÁÓ×È@ %ÅÕÄ@]@k@ÔÁç@M@ %ÃÁâÅ@ %æÈÅÕ@×ÁÙÒÅèò@~@}×ÈèÆÉÓÅ@@@}@ãÈÅÕ@×ÁÙÁÓ×È@ %ÅÕÄ@]@k@ÔÁç@M@ %ÃÁâÅ@ %æÈÅÕ@×ÁÙÒÅèò@~@}ÒÁÕÆÉÓÅ@@@}@ãÈÅÕ@×ÁÙÁÓ×È@ %ÅÕÄ@]@k@ÔÁç@M@ %ÃÁâÅ@ %æÈÅÕ@×ÁÙÒÅèñ@~@}âÆ×Óäâ@@@@}@ %ÁÕÄ@×ÁÙÒÅèò@~@}ÉÆâ×ÁãÈ@@@}@ãÈÅÕ@×ÁÙÁÓ×È@ %ÅÕÄ@]@k@ÔÁç@M@ %ÃÁâÅ@ %æÈÅÕ@×ÁÙÒÅèñ@~@}âÆ×Óäâ@@@@}@ %ÁÕÄ@×ÁÙÒÅèò@~@}Ç××ÈãÔÓ@@@}@ãÈÅÕ@×ÁÙÁÓ×È@ %ÅÕÄ@]@ %ÉÕãÖ@åmÁÔÆÓÉÂ@k@åmÁÔãÓÉÂ@k@åmâÆ×ÓÉÂ@k@åmÃäâãÖÔ@k@åmÁÔÁÓÉÂ@k@åmÄãÅÆÔã@k@åmÔâÇÆ@kåmÕÅ@k@åmÅÕÄâ@k@åm××âÓÉÂ@k@åm××âÖÂÑ@k@åm××âÔâÇÆ@k@ %åm×ÈèÆÉÓÅ@k@åmÒÁÕÓÉÂ@k@åmÉÆâ@k@åmÇ××ÈãÔÓ@ %ÆÙÖÔ@[×ÁÙÔÇÅÕ@ %æÈÅÙÅ@×ÁÙÒÅèó@~@Èãã×mÈÖâã@ %ÁÕÄ@M@M@×ÁÙÒÅèñ@~@}ÇÅÕÅÙÁÓ}@ %ÁÕÄ@×ÁÙÒÅèò@ÉÕ@M@}ÔÁ×ÉÃâÆÉÓÅ}@k@ %}ÔÁ×ÉÃâÆÉÓÅã}@k@}âÆ×ÆÉÓÅ}@k@}ÃäâãÖÔÆÉÓÅ}@k@}ÔÁ×ÉÃâ×ÇÔ}@k@}ÄãÅÆÔã@@@}@k@}ÔâÇÆ}@k@}ÕäÔÅÄã@@@}@k@}ÔÁ×ÉÃâÅÕÄâ}@k@ %}××âÆÉÓÅ@@@}@k@}××âÖÂÑ@@@@}@k@}××âÔâÇÆ@@@}@k@}×ÈèÆÉÓÅ@@@}@k@}ÒÁÕÆÉÓÅ@@@}@]@]@ %ÖÙ@M \ No newline at end of file +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 ; +