Perhaps you should try

CALL INTRINSIC "FGETINFO" and CALL INTRINSIC "FFILEINFO"

The FNUM and ITEM parameters are 16 bit, but if you are using NM COBOL I
bet the default parameters are 32 bit.
John Zoltak
North American Mfg Co

> -----Original Message-----
> From: Michael Anderson [SMTP:[log in to unmask]]
> Sent: Wednesday, March 25, 1998 10:29 PM
> To:   [log in to unmask]
> Subject:      [HP3000-L] Question, coverting CM to NM
>
> I am converting many CM progs to NM, and ran into dead-end with
> FGETINFO. I have a subroutine that is called by many different
> applications, it calls FGETINFO to get the records size of the FNUM
> passed to it. When compiled in CM the FGETINFO call works perfect.
> However, when compiled in NM it always returns zero as the record
> size.
> Reading the Intrinsic Manual, I found that FGETINFO shouldn't  be used
> in NM progs, to use FFILEINFO instead. OK, so I changed the routine to
>
> CALL "FFILEINFO" USING FNUM \67\ RECSIZE.
>
> Using item 67, RECSIZE is now a 32 bit integer. However, it still
> returns zero as the record size. So I decided to use item 4, which
> would
> make RECSIZE a 16 bit integer like it used to be.
>
> CALL "FFILEINFO" USING FNUM \4\ RECSIZE.
>
> Still returns zero as the record size.
>
> Seems like a reasonable request, I just want the record size of a
> specific FNUM. Does anyone have any clue or pointers for me?  I'm out
> of
> idea's.
>
> Thanks in Advance,
> Michael Anderson