Return to DDXP41.m CVS log

Up to [Coherent Logic Development] / freem_fileman

Annotation of freem_fileman/DDXP41.m, revision 1.1

1.1     ! snw         1: DDXP41 ;SFISC/DPC-EXPORT DATA (CONT);1/8/93  09:18
        !             2:        ;;21.0;VA FileMan;;Dec 28, 1994
        !             3:        ;Per VHA Directive 10-93-142, this routine should not be modified.
        !             4: SORTVAL        ;
        !             5:        N DDXPNG,CHK
        !             6:        S DDXPNG=0
        !             7:        F CHK="#","!","+","@" D
        !             8:        . I $E(X)=CHK S DDXPNG=1 W !!,$C(7),"SORRY.  You cannot use the "_CHK_" sort qualifier when exporting data.",!
        !             9:        . Q
        !            10:        F CHK=";C",";S" D
        !            11:        . I X[CHK S DDXPNG=1 W !!,$C(7),"SORRY.  Using "_CHK_" will have no effect when exporting data.",!
        !            12:        . Q
        !            13:        I X[";""" S DDXPNG=1 W !!,$C(7),"SORRY.  You cannot replace a caption with a literal when exporting data.",!
        !            14:        K:DDXPNG X
        !            15:        Q