REPORT Z03_021.
DATA : f1(8) VALUE ‘ ABCDEFGH ‘,
f2(8).
DATA : o TYPE i VALUE 2,
l TYPE i VALUE 4.
MOVE F1 TO F2. WRITE / F2.
MOVE F1+3(3) TO F2. WRITE / F2.
MOVE F1+O(L) TO F2. WRITE / F2.
MOVE F1 TO F2+O(L). WRITE / F2.
CLEAR F2.
MOVE F1 TO F2+O(L). WRITE / F2.
MOVE F1+O(L) TO F2+O(L). WRITE / F2.
Leave a Reply
댓글을 달기 위해서는 로그인해야합니다.
5 Comments
ABCDEFG
CDE
BCDE
BC ABC
ABC
BCDE
DATA : f1(8) VALUE ‘ABCDEFGH’, 로 수정하면 책의 결과와 비슷한 결과를 얻을수 있습니다.
ABCDEFGH
DEF
CDEF
CDABCD
ABCD
CDEF
교재랑 결과가 달라서 고민했었는데.
착한악마님덕에 알았습니다.
감사합니다~! ㅎ
이문제 왜 이해가 안되지.. ㅠㅠ
아.. ;; 저도 간단한 줄 알았는데 디버깅 해보고 하면서 알았네요 ㅋㅋ
아그리고 F1선언시 8자리라고 했기 때문에 F1은 ‘_ABCDEFG’ 까지만 인식됩니다.
1. MOVE F1+O(L) TO F2. WRITE / F2. —->> 여기서 F2값은 BCDE. (CLEAR안했으니까 값이 남아있겠죠~~!)
2. MOVE F1 TO F2+O(L). WRITE / F2. —->> F2+2(4)의미: F2의 두자리 + F1의 네자리
즉 BC + _ABC = BC_ABC의 값을 가져요~~
CLEAR F2. ( 클리어하면 F2의 값은 공백으로 채워짐)
MOVE F1 TO F2+O(L). WRITE / F2. ——> F2+2(4)의미: F2의 두자리 + F1의 네자리
즉 __ + _ABC = ___ABC 가 되요~~!
ㅋㅋ 저도 이문제 헷갈렸는데 도움이 되길 바랍니다~~~!^ ^