On Thu, 6 Nov 2025 17:08:19 -0600, Mark Charles <[email protected]>
wrote:
>Here is how I did this some 30 years ago. I bet it will still work:
>
>ALLOC FI(IWASUSED) DA('SYS1.IWASUSED') MOD
>OPENFILE IWASUSED OUTPUT
>SET IWASUSED = &STR(&SYSDATE &SYSTIME &JOBN &PROC &TYPE &DSN)
>PUTFILE IWASUSED
>CLOSFILE IWASUSED
>FREE FI(IWASUSED)
Be aware this logic doesn't do any serialization and has the potential to miss
a couple of procs.
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
