IBM SC34-5764-01 Manual page 425

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