REPORT Z03_021

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.


5 Comments

avatar

 ABCDEFG
CDE
BCDE
BC ABC
   ABC
  BCDE

avatar

 

DATA : f1(8VALUE  ‘ABCDEFGH’,  로 수정하면 책의 결과와 비슷한 결과를 얻을수 있습니다.

 

ABCDEFGH
DEF
CDEF
CDABCD
    ABCD
    CDEF

avatar

교재랑 결과가 달라서 고민했었는데.

착한악마님덕에 알았습니다.

감사합니다~! ㅎ

avatar

이문제 왜 이해가 안되지.. ㅠㅠ

avatar

아.. ;; 저도 간단한 줄 알았는데 디버깅 해보고 하면서 알았네요 ㅋㅋ

 

아그리고 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 가 되요~~!

ㅋㅋ 저도 이문제 헷갈렸는데 도움이 되길 바랍니다~~~!^ ^

Leave a Reply