Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping
Routine: LR08KILL

LR08KILL.m

Go to the documentation of this file.

LR08KILL ;;DALISC/KAT - KILLING .091 DD'S OF ORIGINAL NUMERIC IDENTIFIER

 ;;5.2;LAB SERVICE;;May 2, 1996

 S U="^"

 S DIK="^DD(68,",DA=.091

 D ^DIK

 K DIK,DA

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HLR08KILL   171     printed  Apr 09, 2024@21:06:20                                                                                                                                                                                                     Page 2

LR08KILL  ;;DALISC/KAT - KILLING .091 DD'S OF ORIGINAL NUMERIC IDENTIFIER

 +1       ;;5.2;LAB SERVICE;;May 2, 1996

 +2       ;

 +3        SET U="^"

 +4        SET DIK="^DD(68,"

           SET DA=.091

 +5        DO ^DIK

 +6        KILL DIK,DA

 +7        QUIT