XT73P133.m

XT73P133 ;RSD/OAKLAND - Test Routine for XT*7.3*133

 ;;7.3;TOOLKIT;**133**;Apr 25, 1995;Build 16

 ;This routine is only to test XINDEX for patch 133. It contains several

 ; different formats for Cache Objects.

 Q

 SET STATUS=##class(%XML.TextReader).ParseStream(STREAM,.READER,,,,,1)

 SET XOBSTAT=$System.OBJ.DeletePackage("xobw")

 SET XOBSTRM=##class(%FileCharacterStream).%New()

 SET X=XOBSTRM.ReadLine(XOBJECT)

 DO $System.OBJ.DisplayError(%OBJLASTERROR)

 Q

XT73P133  ;RSD/OAKLAND - Test Routine for XT*7.3*133

 +1       ;;7.3;TOOLKIT;**133**;Apr 25, 1995;Build 16

 +2       ;This routine is only to test XINDEX for patch 133. It contains several

 +3       ; different formats for Cache Objects.

 +4        QUIT 

 +5        SET STATUS=##class(%XML.TextReader).ParseStream(STREAM,.READER,,,,,1)

 +6 

*** ERROR ***

           SET XOBSTAT=$System.OBJ.DeletePackage("xobw")

 +7        SET XOBSTRM=##class(%FileCharacterStream).%New()

 +8        SET X=XOBSTRM.ReadLine(XOBJECT)

 +9 

*** ERROR ***

           DO $System.OBJ.DisplayError(%OBJLASTERROR)

 +10       QUIT