PROCEDURE DIVISION.
A000-FirsT-Para.
MOVE 123456789 TO WS-NUM1.
MOVE WS-NUM1 TO WS-NUM2 WS-NUM3.
MOVE WS-NUM1(3:6) TO WS-NUM4.
MOVE 123 TO WS-HOUSE-NUMBER.
MOVE 'INDIA' TO WS-COUNTRY.
MOVE 112233 TO WS-PINCODE.
MOVE WS-ADDRESS TO WS-ADDRESS1.
disPLAY WS-NUM1 : WS-NUM1
disPLAY WS-NUM2 : WS-NUM2
disPLAY WS-NUM3 : WS-NUM3
disPLAY WS-NUM4 : WS-NUM4
disPLAY WS-ADDRESS : WS-ADDRESS
disPLAY WS-ADDRESS1 : WS-ADDRESS1
STOP RUN.
版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 [email protected] 举报，一经查实，本站将立刻删除。