Return to DDXP41.m CVS log

Up to [Coherent Logic Development] / freem_fileman

Annotation of freem_fileman/DDXP41.m, revision 1.1.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