책에 나온 [결과치]를 보시려면 아래와 같이 코드를 변경하시면 됩니다.

 

DATA: a1    TYPE p DECIMALS 3 VALUE '1.1',
  a2    TYPE c VALUE 'A',
  a3    type d VALUE '20090101',
  a4    TYPE spfli-carrid.

PERFORM subr USING a1 a2 a3 a4.
WRITE : / 'USING   구문 이용 : ', a1, a2, a3, a4.

PERFORM subr CHANGING a1 a2 a3 a4.
WRITE : / 'CHANGING 구문이용 : ', a1, a2, a3, a4.

PERFORM subr USING a1 a2 a3
    CHANGING a4.
WRITE : / 'USING 과 CHANGING : ', a1, a2, a3, a4.

FORM subr USING
         value(f1) TYPE p
         value(f2) TYPE c
      CHANGING
         f3  type d "교제처럼 Using및에 올수도 있으나, [Warning이 발생함]
         value(f4) TYPE spfli-carrid.
  f1 = 1.
  f2 = 2.
  f3 = 3.
  f4 = 4.
ENDFORM.