>How would I code the EKM paramenter to include a date and
>time stamp? I want the process to generate a new file each
>time it is cycled. [snip]
>Audit.metadata.file.name = /EKM/ekmetc/SDH8_metafile.xml
>Would become
> Audit.metadata.file.name=/EKM/ekmetc/&SYSNAME_metafile.xml
Lizette, did you come to a solution yet?
I admit, I'm pretty much ignorant about EKM but from a previous
post I seem to remember it is startet as STC?
You could add an initial step to create these files and then
create a link to them so that you don't have to change the
EKM configuration. Something like this:
/*REXX*/
syscallsrc = syscalls("ON")
if syscallsrc > 0
then do
say "SYSCALLS environment could not be established, RC=" !!
syscallsrc
say "aborting..."
exit 16
end
address syscall
sysname = MVSVAR("SYSNAME")
cdate = date("S") /* date as yyyymmdd */
ctime = time("N") /* time as hh:mm:ss, transform to hhmmss */
ctime = left(ctime,2) !! substr(ctime,4,2) !! right(ctime,2)
metafile = "/EKM/ekmetc/" !! sysname !! "_metafile.xml"
metafilelink = "/EKM/ekmetc/metafile.xml"
debugfile = "/EKM/ekmlog/" !! sysname !! "_" !! cdate !! "_" ,
!! ctime !! "_debug"
debugfilelink = "/EKM/ekmlog/debug"
"open" metafile O_CREAT+O_WRONLY "660" /* create the file using open */
"close" RETVAL /* then close it again */
"unlink" metafilelink /* remove the old link */
"symlink" metafile metafilelink /* and create the new link */
"open" debugfile O_CREAT+O_WRONLY "660" /* create the file using open */
"close" RETVAL /* then close it again */
"unlink" debugfilelink /* remove the old link */
"symlink" debugfile debugfilelink /* and create the new link */
exit 0
/*end-of-REXX*/
Store this REXX as CRESLINK in a REXX library and run it before
the EKM step:
//IRXJCL01 EXEC PGM=IRXJCL,PARM='CRESLINK'
//SYSEXEC DD DISP=SHR,DSN=your-rexx-library-goes-here
//SYSTSPRT DD SYSOUT=*
You may want to add some more sophisticated error handling and possibly
other files to create. But this should give you an idea.
--
Peter Hunkeler
Credit Suisse
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
