Another method you can use is try to rename the file (to itself) and monmsg
for file not found
Check if Stream File SAVFMT Exists in IFS Directory
RNM OBJ('/CORP/SAVFMT.SAV') NEWOBJ('SAVFMT.SAV')
MONMSG MSGID(CPFA0A9) EXEC(DO)
You code here if the file does not exist
ENDDO
-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of James Lampert
Sent: Wednesday, September 14, 2011 5:53 PM
To: 'Midrange Systems Technical Discussion'
Subject: CHKOBJ for IFS?
It looks like I'm going to be needing to check for the existence of a *STMF
in the IFS, from a CL program: it's going to be running in a batch job, and
needs to wait (i.e., DLYJOB) until another job (the one that spawned it) has
created the object (and no, there's no way for the creating job to actually
tell the waiting one that the object has arrived).
Is there a CHKOBJ-equivalent for the IFS? The system in question is at V6R1.
It wouldn't exactly be a hard thing to write (at least, in a language other
than CL), but I'm in no hurry to reinvent any wheels.
--
JHHL
--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx To subscribe, unsubscribe,
or change list options,
visit:
http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx Before posting, please take a
moment to review the archives at
http://archive.midrange.com/midrange-l.
midrange.com
