Return to DDXP41.m CVS log

Up to [Coherent Logic Development] / freem_fileman / USER

Restructure repository

    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