Please find the code and do needful.
Code: Select all
EQUATE RoutineName TO 'PersistentValueSae'
PVFile="PersistentValueFile"
* Open failed. Create the file.
Call DSExecute("UV", 'SELECT CATEGORY, NAME FROM DS_JOBS;',Output,SystemReturnCode)
ScriptName = RoutineName
Openpath aScriptDir to vSCRIPTDIR
Else
Call DSLogFatal("Unable to open script directory " : aScriptDir,RoutineName)
Return(-1)
End
FinalOutput=Ereplace(Output,@FM,char(010))
* NewScript = Change(Output, @FM, char(010))
Write FinalOutput to vSCRIPTDIR,ScriptName
Category............ Job name............
\Jobs\AUDT\AUDT_04\3 ExtRetrieveArrangeme
0 Extract and Transf ntBalanceFromIFW
orm
\Jobs\_COMMON\60 Loa UtilProcessMetaDataT
d ODS P
\Jobs\zz Sandbox\pri MQRecordFeeRefundFro
ya mIFW_geetha
\Jobs\CSE\00 Sequenc SQ60CSELdODSFL
es