From 06d1c528e6670ca0e464307d1899e859ffeb28b0 Mon Sep 17 00:00:00 2001
From: Alex Zaw <me@alexzaw.dev>
Date: Wed, 25 Feb 2026 23:00:51 +0000
Subject: [PATCH] Update Function FIND_STRING_PDM

---
 CISTOOLS/Functions/FIND_STRING_PDM.sql | 119 ++++++++++++++++++++++++-
 1 file changed, 118 insertions(+), 1 deletion(-)

diff --git a/CISTOOLS/Functions/FIND_STRING_PDM.sql b/CISTOOLS/Functions/FIND_STRING_PDM.sql
index a6e9cb3..aff94f3 100644
--- a/CISTOOLS/Functions/FIND_STRING_PDM.sql
+++ b/CISTOOLS/Functions/FIND_STRING_PDM.sql
@@ -1 +1,118 @@
-馀鉆琢闳@\由掠@^@%%觅帕闩@仲@倥子撩臔其彰闵终@蒙忏种逾K粕漳m忏偕涨m啄訞M@%烧忏偕涨@辶倜攘費耩餧@k@%烧由翤萌临M耩]@k@%烧粕优@萌临M耩]@呐屏溆鉆@珍佑@@k@%烧月貮萌临M耩]@呐屏溆鉆@珍佑@@]@%倥沅僬釦懔掠臔M@%庵滟门m由沦临鐯辶倜攘費耩]@k@%庵滟门m粕优@辶倜攘費耩]@k@%庵滟门m耘月刨@辶倜攘費耩]@k@%庵滟门m呐饷偕足芍誁辶倜攘費躔]@k@%庵滟门m汨着@辶倜攘費耩]@k@%庵滟门m馀劁耪门@烧闩桥貮k@%庵滟门m牧闩@烧闩桥貮k@%庵滟门m牧懔@辶倜攘費耱餧@k@%庵滟门m觅帕闩腀牧闩@k@%恿忏m萌琳桥腀牧闩@k@%恿忏m饬迮腀牧闩@]@@@%恿涨淞桥@庳覢%庾琶善擅@蒙忏种逾K普拟阗啄訞%罩鉆呐闩僭烧赦闵聾%灾纳粕赔@庳覢牧懔@%昧佑拍@终@珍佑@烧卒鉆%弥彰滟倥浙@撩门忖@倥庵愉闵终@呐屏溆鉆%馀鉆肿闵终@@劣媛右@~@\劣淤帕腀k@%劣婷阻你罖~@\肿闵陨榕@k@%弥栽摄@~@\免@k@%穆清膳鍬~@\庵滟门@k@%呐觅赔溆鉆~@M篑k@篑k@痧]@k@%蔫漳沏弥覢~@\罩@k@%蔫珍赓踪艪~@\溻刨@k@%庳用滟黉优@~@\忏腀k@%赓汊咆@~@\扰鏎@@%屡巧誁%呐糜临臔胖艪烧鉆罩鉆珍佑@呐屏溆鉆餈^@%呐糜临臔赓糜陕@萌临@M@耩@]@呐屏溆鉆}}@^@%呐糜临臔赓闷捎@萌临@M@耩@]@呐屏溆鉆}@}@^@%呐糜临臔赓迷沦@萌临@M@耩@]@呐屏溆鉆}@}@^@%呐糜临臔赓媚赔聾辶倜攘貮M@躔@]@^@%呐糜临臔赓勉枳臔辶倜攘貮M@耩@]@呐屏溆鉆}@}@^@%呐糜临臔赓妹巽@闵耘忏猎譆^@%呐糜临臔赓妹惹@闵耘忏猎譆^@%呐糜临臔赓免铃@闵耘忏猎譆^@%呐糜临臔赓媚零@烧鉆呐屏溆鉆餈^@%呐糜临臔赓媚懔@萌临@M@耨駺]@呐屏溆鉆}@}@^@%呐糜临臔赓免咆@烧鉆呐屏溆鉆餈^@%呐糜临臔劣闪饷阅@辶倜攘貮M@蝠餈]@呐屏溆鉆}@}@^@%呐糜临臔馄駺娩兮仲@浦貮%馀优勉@赓免咆@k@赓媚零@k@赓媚懔@%瀑衷@劂旁譆K@赓闷捎膨@%嫒刨臔倥桥缱m由遗@M@昧忏@M@渥着貮M@赓媚懔@]@菱@辶倜攘貮M@耨駺]@妹馍腀篦@]@k@%渥着貮M@烧忏偕涨@]@]@^@%呐糜临臔馄@娩兮仲@浦貮%馀优勉@忤忏旁m懔掠舖饷扰粤@k@忤忏旁m懔掠舖樟耘@k@忤忏旁m懔掠舖耘月刨@k@%昧忏@M@琢巽摄芍誱闩玢@菱@辶倜攘貮M@躔@]@妹馍腀篦@]@k@庵滟门m汨着@k@%觅帕闩m闵耘忏猎譆k@恿忏m庵滟门m渥牧闩m闵耘忏猎譆k@%恿忏m饬迮m闵耘忏猎譆%瀑衷@忤庾临闵闵终忏零@罖%嫒刨臔忤忏旁m懔掠舖樟耘@~@弥劣赔门@M@烧粕优@k@忤忏旁m懔掠舖樟耘@]@%琳腀忤忏旁m懔掠舖饷扰粤@~@烧由翤%琳腀又昧闩@M@}K}@k@忤忏旁m懔掠舖耘月刨@]@~@餈%琳腀忤忏旁m懔掠舖耘月刨@~@弥劣赔门@M@%烧月貮k@忤忏旁m懔掠舖耘月刨@]@%琳腀倥桥缱m由遗@M@渥着貮M@%桥鉳糜致m瀑衷m粕优@M@%M@阗稍@M@忤忏旁m懔掠舖饷扰粤@]@OO@}a}@OO@%阗稍@M@忤忏旁m懔掠舖樟耘@]@OO@}M}@OO@%阗稍@M@忤忏旁m懔掠舖耘月刨@]@OO@}]}@]@]@]@k@渥着貮M@%烧忏偕涨@]@]@^@%呐糜临臔弥浙烧渑@攘漳优貮浦貮罩鉆浦湔腀馀鉆胖艪~@馌^@%肿耪@馄@^@%馄@z@又肿@%婆忝菮张玢@瀑衷@馄@%烧阒@赓糜陕@k@赓闷捎@k@赓迷沦@k@赓媚赔聾k@赓勉枳臔k@赓妹巽@k@赓妹惹@k@%赓免铃@^@%善@胖艪~@馌闳耪@%优铃臔馄@^@%耪腀善@^@%馀鉆劣闪饷阅@~@}脵厑@謾@賲棑亙匑翐墎兀厰桲鈾兤墦咈@茤橜}@OO@%赓糜陕@OO@}a}@OO@赓闷捎@OO@}M}@OO@赓迷沦@OO@}]}@^@%喷琶溷臔稍耘纳零臔劣闪饷阅@^@%肿耪@馄駺^@%馄駺z@又肿@%婆忝菮张玢@瀑衷@馄駺%烧阒@赓免咆@k@赓媚零@k@赓媚懔@^@
\ No newline at end of file
+SET PATH *LIBL ; 
+
+CREATE OR REPLACE FUNCTION CISTOOLS.FIND_STRING_PDM ( 
+	INSTRING VARCHAR(100) , 
+	INLIB CHAR(10) , 
+	INFILE CHAR(10) DEFAULT  NULL  , 
+	INMBR CHAR(10) DEFAULT  NULL  ) 
+	RETURNS TABLE ( 
+	SOURCE_LIBRARY VARCHAR(10) , 
+	SOURCE_FILE VARCHAR(10) , 
+	SOURCE_MEMBER VARCHAR(10) , 
+	SOURCE_DESCRIPTION VARCHAR(50) , 
+	SOURCE_TYPE VARCHAR(10) , 
+	SOURCE_SEQUENCE INTEGER , 
+	SOURCE_DATE INTEGER , 
+	SOURCE_DATA VARCHAR(120) , 
+	SOURCE_CREATED DATE , 
+	LAST_CHANGED DATE , 
+	LAST_SAVED DATE )   
+	LANGUAGE SQL 
+	SPECIFIC CISTOOLS.FNDSTRPDM 
+	NOT DETERMINISTIC 
+	MODIFIES SQL DATA 
+	CALLED ON NULL INPUT 
+	CONCURRENT ACCESS RESOLUTION DEFAULT 
+	SET OPTION  ALWBLK = *ALLREAD , 
+	ALWCPYDTA = *OPTIMIZE , 
+	COMMIT = *CS , 
+	DBGVIEW = *SOURCE , 
+	DECRESULT = (31, 31, 00) , 
+	DYNDFTCOL = *NO , 
+	DYNUSRPRF = *USER , 
+	SQLCURRULE = *STD , 
+	SRTSEQ = *HEX   
+	BEGIN 
+DECLARE EOF INT NOT NULL DEFAULT 0 ; 
+DECLARE SRCLIB CHAR ( 10 ) DEFAULT '' ; 
+DECLARE SRCFIL CHAR ( 10 ) DEFAULT ' ' ; 
+DECLARE SRCMBR CHAR ( 10 ) DEFAULT ' ' ; 
+DECLARE SRCDESC VARCHAR ( 50 ) ; 
+DECLARE SRCTYPE VARCHAR ( 10 ) DEFAULT ' ' ; 
+DECLARE SRCCRT TIMESTAMP ; 
+DECLARE SRCCHG TIMESTAMP ; 
+DECLARE SRCSAV TIMESTAMP ; 
+DECLARE SRCDAT INT DEFAULT 0 ; 
+DECLARE SRCDTA CHAR ( 112 ) DEFAULT ' ' ; 
+DECLARE SRCSEQ INT DEFAULT 0 ; 
+DECLARE ALIASCMD VARCHAR ( 200 ) DEFAULT ' ' ; 
+DECLARE SF2 CURSOR FOR 
+SELECT SRCSEQ , SRCDAT , SRCDTA 
+FROM QTEMP . SRCFILE2 
+WHERE REGEXP_LIKE ( CAST ( UPPER ( SRCDTA ) AS VARCHAR ( 112 ) CCSID 37 ) , 
+UPPER ( INSTRING ) ) ; 
+DECLARE SF CURSOR FOR 
+SELECT SYSTEM_TABLE_SCHEMA , SYSTEM_TABLE_NAME , SYSTEM_TABLE_MEMBER , 
+CAST ( PARTITION_TEXT AS VARCHAR ( 50 ) CCSID 37 ) , SOURCE_TYPE , 
+CREATE_TIMESTAMP , LAST_SOURCE_UPDATE_TIMESTAMP , 
+LAST_SAVE_TIMESTAMP 
+FROM SYSPARTITIONSTAT A 
+WHERE SYSTEM_TABLE_NAME = COALESCE ( INFILE , SYSTEM_TABLE_NAME ) 
+AND SYSTEM_TABLE_SCHEMA = INLIB 
+AND LOCATE ( '.' , SYSTEM_TABLE_MEMBER ) = 0 
+AND SYSTEM_TABLE_MEMBER = COALESCE ( 
+INMBR , SYSTEM_TABLE_MEMBER ) 
+AND REGEXP_LIKE ( UPPER ( 
+GET_CLOB_FROM_FILE ( 
+( TRIM ( SYSTEM_TABLE_SCHEMA ) || '/' || 
+TRIM ( SYSTEM_TABLE_NAME ) || '(' || 
+TRIM ( SYSTEM_TABLE_MEMBER ) || ')' ) ) ) , UPPER ( 
+INSTRING ) ) ; 
+DECLARE CONTINUE HANDLER FOR NOT FOUND SET EOF = 1 ; 
+OPEN SF ; 
+SF : LOOP 
+FETCH NEXT FROM SF 
+INTO SRCLIB , SRCFIL , SRCMBR , SRCDESC , SRCTYPE , SRCCRT , SRCCHG , 
+SRCSAV ; 
+IF EOF = 1 THEN 
+LEAVE SF ; 
+END IF ; 
+SET ALIASCMD = 'Create Or Replace Alias Qtemp.SrcFile2 For ' || 
+SRCLIB || '/' || SRCFIL || '(' || SRCMBR || ')' ; 
+EXECUTE IMMEDIATE ALIASCMD ; 
+OPEN SF2 ; 
+SF2 : LOOP 
+FETCH NEXT FROM SF2 
+INTO SRCSEQ , SRCDAT , SRCDTA ; 
+IF EOF = 1 THEN 
+LEAVE SF2 ; 
+END IF ; 
+PIPE ( 
+SRCLIB , 
+SRCFIL , SRCMBR , SRCDESC , SRCTYPE , SRCSEQ , SRCDAT , SRCDTA , 
+DATE ( SRCCRT ) , DATE ( SRCCHG ) , DATE ( SRCSAV ) ) ; 
+END LOOP ; 
+CLOSE SF2 ; 
+SET EOF = 0 ; 
+END LOOP ; 
+CLOSE SF ; 
+RETURN ; 
+END  ; 
+
+COMMENT ON PARAMETER SPECIFIC FUNCTION CISTOOLS.FNDSTRPDM 
+( INSTRING IS 'Input Search String' , 
+	INLIB IS 'Input Library' , 
+	INFILE IS 'Input File' , 
+	INMBR IS 'Input Member' ) ; 
+
+LABEL ON SPECIFIC FUNCTION CISTOOLS.FNDSTRPDM 
+	IS 'Find String Pdm' ; 
+
+GRANT ALTER , EXECUTE   
+ON SPECIFIC FUNCTION CISTOOLS.FNDSTRPDM 
+TO AMAPICS WITH GRANT OPTION ; 
+
+GRANT EXECUTE   
+ON SPECIFIC FUNCTION CISTOOLS.FNDSTRPDM 
+TO PUBLIC ; 
+