Jon, would you want to retain
I Y="* D DOLRO Q
Otherwise if Y is "*" there is a syntax error. CCDH>S Y="*"
CCDH>S X="^JDSY("
CCDH>D ORDER^%ZOSV
S (Y,Y1)=$P(Y,"*",1) I $D(@Y)=0 F %=0:0 S Y=$O(@Y) Q:Y=""!(Y[Y1)
(This error is true in the current CACHE version also) ^ <SYNTAX>ORDER+1^%ZOSV
« Back to merge proposal
Jon,
would you want to retain
I Y="* D DOLRO Q
Otherwise if Y is "*" there is a syntax error.
CCDH>S Y="*"
CCDH>S X="^JDSY("
CCDH>D ORDER^%ZOSV
S (Y,Y1)=$P(Y,"*",1) I $D(@Y)=0 F %=0:0 S Y=$O(@Y) Q:Y=""!(Y[Y1)
(This error is true in the current CACHE version also)
^ ORDER+1^ %ZOSV
<SYNTAX>