- BLRPOST1 ;;IHS/ITSC/TPF - FORCE COMPARE OF SYSTEM TO TRANSPORT GLOBAL [ 10/15/2002 11:33 AM ]
- ;;5.2;LR;**1014**;OCT 9, 2002
- ;CLEAR OUT NON LR NAMESPACE GLOBAL
- N BLR
- F BLR="^TIMTEST" D
- . I $$KILLOK^ZIBGCHAR($P(BLR,U,2)) W !,$$ERR^ZIBGCHAR($$KILLOK^ZIBGCHAR($P(BLR,U,2)))_" "_BLR Q
- . W !,"KILLING "_BLR K @BLR
- Q
- BLRPOST1 ;;IHS/ITSC/TPF - FORCE COMPARE OF SYSTEM TO TRANSPORT GLOBAL [ 10/15/2002 11:33 AM ]
- +1 ;;5.2;LR;**1014**;OCT 9, 2002
- +2 ;CLEAR OUT NON LR NAMESPACE GLOBAL
- +3 NEW BLR
- +4 FOR BLR="^TIMTEST"
- Begin DoDot:1
- +5 IF $$KILLOK^ZIBGCHAR($PIECE(BLR,U,2))
- WRITE !,$$ERR^ZIBGCHAR($$KILLOK^ZIBGCHAR($PIECE(BLR,U,2)))_" "_BLR
- QUIT
- +6 WRITE !,"KILLING "_BLR
- KILL @BLR
- End DoDot:1
- +7 QUIT