Pathway/iTS TCP and Terminal Programming Guide

Processing Double-Byte Character Sets
Compaq NonStop™ Pathway/iTS TCP and Terminal Programming Guide—426751-001
8-15
Example of Working-Storage Section and Screen
Section
Example of Working-Storage Section and Screen
Section
The following example shows a sample Working-Storage Section and its corresponding
Screen Section.
For this Working-Storage Section,
WORKING-STORAGE SECTION.
:
01 WS-KANJI-ONLY-FLD PIC N(10).
01 WS-KANJI-TO-PICX-REDEF REDEFINES WS-KANJI-ONLY-FLD PIC X(20).
01 WS-KANJI-ONLY-FLD2 PIC N(10).
01 WS-KANJI-ONLY-FLD3 PIC N(10).
01 WS-KANJI-ONLY-FLD4 PIC N(10).
01 WS-ALPHA-NUMERIC-FLD PIC X(20).
01 WS-ALPHA-NUMERIC-FLD2 PIC X(20).
01 WS-ALPHA-NUMERIC-FLD3 PIC X(20).
Table 8-1. Restrictions on MOVE Statements
Category of Receiving Data Item
Category of Sending
Data Item
Alphabetic Alphanumeric Alphanumeric Edited Numeric Integer, Numeric Noninteger, Numeric Edited Double-Byte Character
Alphabetic Yes Yes No No Yes*
Alphanumeric Yes Yes No Yes Yes*
Alphanumeric Edited Yes No No No Yes*
Numeric Integer NoNoNoYes No
Numeric Noninteger No No No Yes No
Numeric Edited No No No No No
Double-Byte Character No Yes Yes No Yes
* Such MOVE operations move string data byte by byte; no editing or conversion is done.