Return to DDU.m CVS log

Up to [Coherent Logic Development] / freem_fileman

Annotation of freem_fileman/DDU.m, revision 1.1

1.1     ! snw         1: DDU    ;SFISC/DCM-DD UTILITES ;3/24/91  12:22 PM
        !             2:        ;;21.0;VA FileMan;;Dec 28, 1994
        !             3:        ;Per VHA Directive 10-93-142, this routine should not be modified.
        !             4: 0      S DIC="^DOPT(""DDU"","
        !             5:        G OPT:$D(^DOPT("DDU",3)) S ^(0)="DATA DICTIONARY UTILITY OPTION^1.01" K ^("B")
        !             6:        F X=1:1:3 S ^DOPT("DDU",X,0)=$P($T(@X),";;",2)
        !             7:        S DIK=DIC D IXALL^DIK
        !             8: OPT    ;
        !             9:        S DIC(0)="AEQIZ" D ^DIC G Q:Y<0 S DI=+Y D EN G 0
        !            10:        ;
        !            11: EN     ;
        !            12:        D @DI W !!
        !            13: Q      K %,DIC,DIK,DI,DA,I,J,X,Y Q
        !            14:        ;
        !            15: 1      ;;LIST FILE ATTRIBUTES
        !            16:        G ^DID
        !            17:        ;
        !            18: 2      ;;MAP POINTER RELATIONS
        !            19:        G ^DDMAP
        !            20:        ;
        !            21: 3      ;;CHECK/FIX DD STRUCTURE
        !            22:        G ^DDUCHK
        !            23:        ;