On 97-03-12 09:08:43 EST, Jerry Fochtman wrote:

>>At 08:17 AM 3/12/97 +0100, Claus Andersen wrote:
>>I don't think there's a smart way to accomplich your task, but one method
>>would be to call the intrinsic HPCICOMMAND doing a ":LISTEQ > LISTOUT", the

>>have the COBOL program read through LISTOUT to find the file-equation for
>>"FILE X;".
>>
>> /snip
>>
>> ----------
>>Fra: [log in to unmask]
>>Til: [log in to unmask]; Claus Andersen
>>Emne: Capturing dev class from a program
>>Dato: 5. marts 1997 16.01
>>
>><<Filvedlæg: ENVELOPE.TXT>>
>>Is there a way to capture the device class of a file from a Cobol
>>program?
>>
>>Example:
>>
>>FILE X;DEV=LPMINE
>>
>>After opening file X from the Cobol program, how can I find out that the
>>calss is LPMINE?
>>
>> --
>>Steve J Fatula
>>[log in to unmask]

> You can save a lot of coding/parsing work by simply calling FLABELINFO for
> options 34 and/or 35 on the file.  The file doesn't have to be opened to do
> this, but it does have to exist.  If the file is being created, after the
> file is opened, you can also obtain the volume restriction information with
> FFILEINFO option 76. If I recall, in COBOL, if you are using the OPEN verb,
> simply use the FD name assigned for the file as the FNUM for the call to
> FFILEINFO. Of course, all of this assumes it is a disc file.
>
> /jf

Jerry

When I do a file xx;dev=lp and do the ffileinfo 76, I get back a device class
of DISC not LP.  Any ideas?

Chuck Duncan
[log in to unmask]