[Info-vax] Fortran problem with QIO

[gerry77 at no.spam.mail.com]

On Wed, 02 Dec 2009 22:28:13 -0500, Arne Vajhøj <arne at vajhoej.dk> wrote:

> >       ATRDSC.DSC1.DSC$W_MAXSTRLEN = SIZEOF(ATR)
> >       ATRDSC.DSC1.DSC$B_DTYPE = DSC$K_DTYPE_T
> >       ATRDSC.DSC1.DSC$B_CLASS = DSC$K_CLASS_A  ! Array type descriptor
> >       ATRDSC.DSC1.DSC$A_POINTER = LOC(ATR)       
> >       ATRDSC.DSC5.DSC$B_SCALE = 0              ! Are all this things
> >       ATRDSC.DSC5.DSC$B_DIGITS = 0             !   really needed?
> >       ATRDSC.DSC5.DSC$B_AFLAGS = 0             !
> >       ATRDSC.DSC5.DSC$B_DIMCT = 1              !
> >       ATRDSC.DSC5.DSC$L_ARSIZE = SIZEOF(ATR)   !
> >       ATRDSC.DSC5.DSC$A_A0 = LOC(ATR)          !
> 
> You are not using ATRDSC !?!?

What are you meaning here? Sorry, I cannot understand your question...

> >       SS_STATUS = SYS$QIOW(EFN$C_ENF,             ! Efn (no EF used)
> 
> I would try %VAL on that!

Oh, yes, you're right! :-P That was really a bug that I've just corrected
(and checked for with SDA).

Thanks,
G.