RE: Content Violation:Re: monitor for file in IFS

["Janice Chester" <janice@xxxxxxxxxxxxx>]

Thanks to everyone who responded. I was able to accomplish what I
needed. I feel like part of the team. Maybe one day I can be of
assistance to someone on the team.

Thanks a bunch!!

Janice Chester
Tefron USA, Inc.
IT Director
P.O. Box 100
720 Main Street
Valdese, NC 28690
janicechester@xxxxxxxxxxxxx
Phone: (828) 879-6518
 
 
-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of
vhamberg@xxxxxxxxxxx
Sent: Friday, April 11, 2008 6:47 PM
To: Midrange Systems Technical Discussion
Subject: Content Violation:Re: monitor for file in IFS

Janice

There is an API called access() as I recall - and if you are on a new
enough release (v5r3) you can use integer parameters by value. That is
required to use this API in CL. Or use RPGLE - at any rate, it can be
used to text existence of any object you can name using a path -
including library objects. You don't even have to put a null at the end
of the path name (x'00') in CLLE if you pass a literal - you do if you
use a variable. At least it was just that way in V5R3 for me.

Example code -

PGM                                                    
                                                       
DCL        VAR(&RTNINT) TYPE(*INT) LEN(4)              
DCL        VAR(&PATH) TYPE(*CHAR) LEN(255)             
DCL        VAR(&NULL) TYPE(*CHAR) LEN(1) VALUE(X'00')  
DCL        VAR(&TESTVAL) TYPE(*INT) LEN(4) VALUE(0)    
CHGVAR     VAR(&PATH) VALUE('alltypes.slk' *TCAT &NULL)
CALLPRC    PRC('access') PARM((&PATH) (&TESTVAL +      
             *BYVAL)) RTNVAL(&RTNINT)                  
CALLPRC    PRC('access') PARM(('alltypes.slk') +       
             (&TESTVAL *BYVAL)) RTNVAL(&RTNINT)        
ENDPGM                                                 

This is NOT reliable before V5R3!

HTH
Vern

-------------- Original message -------------- 
From: "Janice Chester" <janice@xxxxxxxxxxxxx> 

> I know this has been asked before, but I need assistance using a CL 
> program to monitor for an object in the IFS directory. I am "very" new

> at this so any help would be appreciated. 
>
>
>
> Thanks, 
>
> Janice 
>
>
>
>
>
> Janice Chester 
>
> Tefron USA, Inc. 
>
> P.O. Box 100 
>
> 720 Main Street 
>
> Valdese, NC 28690 
>
> janicechester@xxxxxxxxxxxxx 
>
> Phone: (828) 879-6518 
>
>
>
>
>
>
>
> -- 
> 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.