IBM SC34-5764-01 TRANSLATE, VALUE, VERIFY, WORD, WORDINDEX, and WORDLENGTH, WORDS

Drop A.3 ; <.A.B>=3 /* if ETMODE is on */
SYMBOL('<.A.B>') -> 'VAR'
SYMBOL(<.A.B>) -> 'LIT' /* has tested "3" */
SYMBOL('a.<.A.B>') -> 'LIT' /* has tested A.3 */
TRANSLATE
In EBCDIC:
TRANSLATE('abcd','<.A.B.C>','abc') -> '<.A.B.C>d'
TRANSLATE('abcd','<><.A.B.C>','abc') -> '<.A.B.C>d'
TRANSLATE('abcd','<><.A.B.C>','ab<>c') -> '<.A.B.C>d'
TRANSLATE('a<>bcd','<><.A.B.C>','ab<>c') -> '<.A.B.C>d'
TRANSLATE('a<>xcd','<><.A.B.C>','ab<>c') -> '<.A>x<.C>d'
Applying the character extraction from a string, character comparison, and character concatenation rules.
VALUE
In EBCDIC:
Drop A3 ; <.A.B>=3 ; fred='<.A.B>'
VALUE('fred') -> '<.A.B>' /* looks up FRED */
VALUE(fred) -> '3' /* looks up <.A.B> */
VALUE('a'<.A.B>) -> 'A3' /* if ETMODE is on */
VERIFY
In EBCDIC:
VERIFY('<><><.A.B><><.X>','<.B.A.C.D.E>') -> 3
Applying the character extraction from a string and character comparison rules.
WORD, WORDINDEX, and WORDLENGTH
In EBCDIC:
W = '<><. .A. . .B><.C. .D>'
WORD(W,1) -> '<.A>'
WORDINDEX(W,1) -> 2
WORDLENGTH(W,1) -> 1
Y = '<><.A. . .B><.C. .D>'
WORD(Y,1) -> '<.A>'
WORDINDEX(Y,1) -> 1
WORDLENGTH(Y,1) -> 1
Z = '<.A .B><.C> <.D>'
WORD(Z,2) -> '<.B><.C>'
WORDINDEX(Z,2) -> 3
WORDLENGTH(Z,2) -> 2
Applying the word extraction from a string and (for WORDINDEX and WORDLENGTH) counting
characters rules.
WORDS
In EBCDIC:
W = '<><. .A. . .B><.C. .D>'
WORDS(W) -> 3
Applying the word extraction from a string rule.
Appendix C. Double-Byte Character Set (DBCS) Support 403