Copyright (c) Digital Equipment Corporation 1990, 1994. All rights reserved
OP/SYS:     OpenVMS VAX Versions 5.1-1, 5.2, 5.2-1, 5.3, 5.3-1, 5.3-2,
                                 5.4, 5.4-1, 5.4-2, 5.4-3, 5.5, 5.5-1,
                                 5.5-2

COMPONENT:  Tape

SOURCE:     Digital Equipment Corporation


SYMPTOM:

A QIO IO$_WRITEOF function with the IO$M_INHRETRY modifier fails when
executed on a HSC served tape device.  The same function works as
expected with a local tape device.  A device status of 84 is returned
which translates to the following:

   %SYSTEM-F-CTRLERR, fatal controller error


EXAMPLE:

$ TYPE test_program.pli

QIO:   PROCEDURE OPTIONS(MAIN);

        %INCLUDE SYS$ASSIGN;
        %INCLUDE SYS$DASSGN;
        %INCLUDE SYS$CREMBX;
        %INCLUDE SYS$WAITFR ;
        %INCLUDE SYS$QIO;
        %INCLUDE $SSDEF;
        %INCLUDE $STSDEF;

        DCL SYS$SETDDIR EXTERNAL ENTRY ;

        DCL CHANM       FIXED BIN(15);
        DCL CHANT       FIXED BIN(15);
        DCL IO$_READVBLK BIT(31) GLOBALREF  VALUE;
        DCL IO$_WRITEOF BIT(31) GLOBALREF  VALUE;
        DCL IO$M_INHRETRY BIT(31) GLOBALREF  VALUE;
        DCL IO$M_TIMED BIT(31) GLOBALREF  VALUE;
        DCL IO$_WRITEVBLK BIT(31) GLOBALREF  VALUE;
        DCL IO$_SKIPFILE BIT(31) GLOBALREF  VALUE;
        DCL STRING1     CHARACTER(512) INIT('REUVEN') ;
        DCL STRING      CHARACTER(4) INIT ('[6n') ;
        DCL BUFF      CHARACTER(20) ;
        DCL I         FIXED BIN(7);
        DCL IOSB(4)     FIXED BIN(15);
        DCL FUNC FIXED BIN(31) ;


        STS$VALUE = SYS$ASSIGN ('TAPE', CHANT,,);
        PUT SKIP LIST ('assign: ',STS$VALUE) ;
        IF ^STS$SUCCESS THEN SIGNAL VAXCONDITION(STS$VALUE);
         STS$VALUE = SYS$QIOW(, CHANT,
                             IO$_WRITEVBLK!IO$M_INHRETRY,
                             IOSB,,,
                             STRING1,
                             512,,,,);
        PUT SKIP LIST ('IOSB ',IOSB) ;

LLL:
         STS$VALUE = SYS$QIOW(, CHANT,
                             IO$_WRITEOF,
                             IOSB,,,
                             ,,,,,);
        PUT SKIP LIST ('IOSB ',IOSB) ;
        STS$VALUE = SYS$DASSGN (CHANT);
END:
        END QIO;
$
$ MOUNT/FOREIGN tape:
$ INITIALIZE tape: test
$ RUN test_program

assign:                      1
IOSB            1             512            1216             192
IOSB           84               0            1216             192
IOSB           84               0            1216             192
$ EXIT (84)
%SYSTEM-F-CTRLERR, fatal controller error


DIGITAL RESPONSE:

It is unlikely this problem will be addressed in a future release
due to its low priority.  In addition, there have been very few
reported occurrences.  However, if this is a high impact problem
for your system,  please contact Digital support.

buy online or call 1.800.AT.COMPAQ