AZAXEISS.m

AZAXEISS ;IHS/PHXAO/AEF - TEST ROUTINE TO CREATE AND WRITE TO FILE

 ;1.0;ANNE'S SPECIAL ROUTINES;;SEP 24, 2004

 ;

 ;DELETE THIS ROUTINE

 ;

EN ;EP -- MAIN ENTRY POINT

 ;

 S %FILE=""

 S ZISH1="FILE"

 S ZISH2="c:\inetpub\ftproot\pub\"

 S ZISH3="EISSTEST2"

 S ZISH4="W"

 D OPEN^%ZISH(ZISH1,ZISH2,ZISH3,ZISH4)

 I POP D  Q

 . W "CANNOT OPEN FILE "_ZISH2_ZISH3

 S %FILE=IO

 ;

 U %FILE

 F I=1:1:10 D

 . W "THIS^IS^A^TEST"

 . W !

 D ^%ZISC

 Q

AZAXEISS  ;IHS/PHXAO/AEF - TEST ROUTINE TO CREATE AND WRITE TO FILE

 +1       ;1.0;ANNE'S SPECIAL ROUTINES;;SEP 24, 2004

 +2       ;

 +3       ;DELETE THIS ROUTINE

 +4       ;

EN        ;EP -- MAIN ENTRY POINT

 +1       ;

 +2        SET %FILE=""

 +3        SET ZISH1="FILE"

 +4        SET ZISH2="c:\inetpub\ftproot\pub\"

 +5        SET ZISH3="EISSTEST2"

 +6        SET ZISH4="W"

 +7        DO OPEN^%ZISH(ZISH1,ZISH2,ZISH3,ZISH4)

 +8        IF POP

               Begin DoDot:1

 +9                WRITE "CANNOT OPEN FILE "_ZISH2_ZISH3

               End DoDot:1

               QUIT 

 +10       SET %FILE=IO

 +11      ;

 +12       USE %FILE

 +13       FOR I=1:1:10

               Begin DoDot:1

 +14               WRITE "THIS^IS^A^TEST"

 +15               WRITE !

               End DoDot:1

 +16       DO ^%ZISC

 +17       QUIT