The following will give you an approach to this. You can modify it
according to your needs. (My acknowledgements to Paul Gobes of Robelle who
explained BAND to me in December, 1991. I have been using this code in job
streams and command files ever since).

IF FINFO ("file","EXISTS") THEN
    IF (FINFO ("file","FOPTIONS") ) BAND 2 = 2 THEN
        PURGE file,TEMP
    ENDIF
ENDIF
IF FINFO ("file","EXISTS") THEN
    IF (FINFO ("file","FOPTIONS") ) BAND 1 = 1 THEN
        PURGE file
    ENDIF
ENDIF

Leonard S. Berkowitz







Per Ostberg <[log in to unmask]> on 07/29/98 07:27:14 AM

Please respond to [log in to unmask]

To:   [log in to unmask]
cc:    (bcc: Leonard Berkowitz/THP)
Subject:  temp or perm file?




I'd like to find out, from the CI, if a file is in the temp or perm
domain. Is there an finfo-option or some other trick to accomplish this?
TIA
/per
(in writing this I realise I could use listf/listftemp, but maybe
someone knows of a better way?)