SELECT 라는 GUI STATUS를 하나 추가하시구요. APPLICATION TOOLBAR에 function code를 하나 추가해주세요.

그리고 소스를 다음과 같이 수정한후 해보세요.

다음주 월요일에 좀더 정리해서 올리겠습니다. 주말 잘 보내시구요~

 

REPORT  z15_044.

DATA: name(8) VALUE 'Z15_044',

                    wid TYPE i ,                            "VALUE 80,

                    len TYPE i ,                            "VALUE 0.

                    lines TYPE i.

SET PF-STATUS 'SELECT'.

WRITE: 'Select a report and its list format:',

          / '-------------------------------------'.

WRITE: 'Report     ', name INPUT ON.

WRITE : / 'Line size  ', wid INPUT ON.


WRITE : / 'Page length', len  INPUT ON.

lines = sy-linno.

AT USER-COMMAND.


DO lines TIMES.
      READ LINE sy-index FIELD VALUE WID. "현재라인 READ
      IF WID IS NOT INITIAL.
        EXIT.
      ENDIf.
 ENDDO.

  SUBMIT (name) LINE-SIZE wid LINE-COUNT len AND RETURN.

DATA: name(10) VALUE 'Z15_044',
      wid TYPE i VALUE 80 ,
      len TYPE i VALUE 0.

IMPORT wid FROM MEMORY ID 'ZZZZ'.

WRITE : 'Select a report and its list format:',
         / '-----------------------------------'.
WRITE : 'Report', name INPUT ON,
       / 'Line size', wid INPUT ON, "SY-LINCT INPUT ON,
       / 'Page length', sy-linsz INPUT ON.

SET PF-STATUS 'SELECT'.

AT USER-COMMAND.
  CASE sy-ucomm.
    WHEN 'SELE'.
      wid = 88.
    WHEN 'SAVE'.
      wid = 77.
    WHEN 'BACK'.
      LEAVE TO SCREEN 0 .

  ENDCASE.

  EXPORT wid TO MEMORY ID 'ZZZZ'.
  SUBMIT (name) LINE-SIZE wid LINE-COUNT len. " AND RETURN. 

ABAP  메모리를 이용해서 다르게 해본겁니다.. 버튼 추가하셔서 연습해보세요. 제가 한건 아니지만.. ㅠ_ㅠ

<예제 15-6-2>

REPORT  Z15_044.