Re: Checking file for data

["Peter Dow (ML)" <maillist@xxxxxxxxxxxxxxx>]

Hi Dwayne,

In CL it's available with RTVMBRD, NBRCURRCD parm.

In RPG it's available after opening the file by specifying the INFDS 
(file info data structure) and looking in pos.156-159, e.g.

    fFILE1     if   f    1        disk    infds(FileInfo)
    d FileInfo        ds
    d  Count                        10i 0 overlay(FileInfo:156)

**Peter Dow
Dow Software Services, Inc.
909 793-9050

Dwayne Allison wrote:
> Good Evening,
>
> Is there away to check a file for data with out having to do a DBU or
> CHAIN to the file.  I need to just check the file and if it has data
> continue to the next process.  If not data is found than exit.
>
>
>
>