REPORT  Z05_005  .

DATA: a1    TYPE p DECIMALS 3 VALUE '1.1',

         a2    TYPE c VALUE 'A',

         a3    TYPE d VALUE '3.3',

         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

                         f3        LIKE a3

      CHANGING

                           value(f4) TYPE spfli-carrid.

         f1 = 1.

         f2 = 2.

         f3 = 3.

         f4 = 4.

ENDFORM.                    "subr