XT73P133.m

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

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

 ;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

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---XT73P133   472     printed  Dec 13, 2024@02:40:34                                                                                                                                                                                                     Page 2

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

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

 +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