FTN4 SUBROUTINE XFRMT(LU,IDVID,IDATA,ITYPE,ISTAG,IER),92067-1X536 REV. X2040 800717 C***************************************************************** C* * C* (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1979. ALL RIGHTS * C* RESERVED. NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED, * C* REPRODUCED OR TRANSLATED TO ANOTHER PROGRAMMING LANGUAGE * C* WITHOUT THE PRIOR WRITTEN CONSENT OF THE HEWLETT-PACKARD * C* COMPANY. * C* * C***************************************************************** C C NAME: XFRMT C SOURCE: 92067-18536 C RELOC: PART OF 92067-12002 C PGMR: J.S.W C DIMENSION IBUF(20) C C IUNIT=IAND(IDVID,177400B)/256 ID=IAND(IDVID,7B) C IF(IFDVR(LU).EQ.0) RETURN C CALL XDSJ(LU,IDVID,IER) IF(IER.EQ.2.OR.IER.EQ.4) RETURN IBUF(1)=440B+ID CALL XPRTY(IBUF(1)) IBUF(2)=754B IBUF(3)=30B IBUF(4)=IUNIT C C ISTAG=IAND(ISTAG,377B) ITYPE=IAND(ITYPE,377B) C IBUF(5)=ITYPE IBUF(6)=ISTAG IBUF(7)=1000B+IDATA IBUF(8)=100677B CALL ZCTRL(LU,IBUF) CALL XDSJ(LU,IDVID,IER) RETURN END END$