PARAMETERS:
p_carr_1 TYPE spfli-carrid,
p_carr_2 TYPE spfli-carrid.
AT SELECTION-SCREEN ON VALUE-REQUEST
FOR p_carr_2.
CALL SCREEN 100 STARTING AT 10 5
ENDING AT 50 10.
MODULE value_list OUTPUT.
SUPPRESS DIALOG.
LEAVE TO LIST-PROCESSING AND
RETURN TO SCREEN 0.
SET PF-STATUS space.
p_carr_2 = 'AK '. WRITE: / p_carr_2
COLOR COL_KEY, '아시아나 Korea'.
HIDE p_carr_2.
p_carr_2 = 'AD '. WRITE: / p_carr_2
COLOR COL_KEY, '대한항공 Korea'.
HIDE p_carr_2.
p_carr_2 = 'UA '. WRITE: / p_carr_2
COLOR COL_KEY, 'United Airlines'.
HIDE p_carr_2.
ENDMODULE.
AT LINE-SELECTION.
CHECK NOT p_carr_2 IS INITIAL. LEAVE TO SCREEN 0.
책보다가 갑자기 막혀서 굵은 부분만 좀 부탁드리겠습니다. 소스 설명이 안되어있어서여..
- p_carr_2 필드에 대하여 f4 entries 의 기능을 생성하고 해당 f4 entries를 선택했을때
기능루틴으로 100번 스크린을 시작지점과 끝지점을 이용하여 창의 크기를 부여했습니다.
AT SELECTION-SCREEN ON VALUE-REQUEST
FOR p_carr_2.
CALL SCREEN 100 STARTING AT 10 5
ENDING AT 50 10.
- 100번 화면의 PROCESS BEFORE OUTPUT(PBO) 쪽에 기능모듈
value_list 를 하나 생성하였고
MODULE value_list OUTPUT.
ENDMODULE.
- 화면에 대하여 리스트 형태의 구성으로 사용하겠다는 명령문이구요
SUPPRESS DIALOG.
- 스크린에 표시되는 리스트를 만들기 위한 명령문으로 프로세스가 종료되면
타도록 하였고 AND RETURN TO SCREEN 0 이전화면으로
전환하는 명령문을 같이 사용하였네요.
LEAVE TO LIST-PROCESSING AND
RETURN TO SCREEN 0.
- STATUS 에 대하여 SPACE를 SETTING 하여 STANDARD GUI 를 사용하겠다고 지정하였구요.
SET PF-STATUS space.
- 메모리상에 해당 필드의 데이터와 행번호를 가지게끔 사용한 명령어구요.
HIDE p_carr_2.
잘 안쓰다 보니.... ^^