메뉴 건너뛰기

SAP 한국 커뮤니티

진지한 아밥 자료실엔 올리기 머하고 자유게시판에 올려요


 


허접하지만... 아직 공부하고 있는중이니 너그럽게 봐주세요 ㅠㅠ


 


사다리 타기.. 이름 7개에 넣으시고... 돌리세요 ㅋㅋ


 


사람 인원에따라 편집해서 하세요 ㅎㅎ;;;;


 


 

PARAMETERS: num1(10),
            num2(10),
            num3(10),
            num4(10),
            num5(10),
            num6(10),
            num7(10).

DATA: num_1 TYPE i VALUE '1',
      num_2 TYPE i VALUE '2',
      num_3 TYPE i VALUE '3',
      num_4 TYPE i VALUE '4',
      num_5 TYPE i VALUE '5',
      num_6 TYPE i VALUE '6',
      num_7 TYPE i VALUE '7'.
DATA: unluck LIKE datatype-integer4.
DATA: rmin TYPE i,
      rmax TYPE i.
rmin = 1.
rmax = 7.

DO 100 TIMES.
  CALL FUNCTION 'RANDOM_I4'
    EXPORTING
      rnd_min   = rmin
      rnd_max   = rmax
    IMPORTING
      rnd_value = unluck.
ENDDO.

IF num_1 = unluck.
  MESSAGE i001(abap)  WITH num1'은/는 꽝!!!!떡볶이사오세요!!!'.
ELSEIF num_2 = unluck.
  MESSAGE i002(abap)  WITH num2'은/는 꽝!!!!떡볶이사오세요!!!'.
ELSEIF num_3 = unluck.
  MESSAGE i003(abap)  WITH num3'은/는 꽝!!!!떡볶이사오세요!!!'.
ELSEIF num_4 = unluck.
  MESSAGE i004(abap)  WITH num4'은/는 꽝!!!!떡볶이사오세요!!!'.
ELSEIF num_5 = unluck.
  MESSAGE i005(abap)  WITH num5'은/는 꽝!!!!떡볶이사오세요!!!'.
ELSEIF num_6 = unluck.
  MESSAGE i006(abap)  WITH num6'은/는 꽝!!!!떡볶이사오세요!!!'.
ELSEIF num_7 = unluck.
  MESSAGE i007(abap)  WITH num7'은/는 꽝!!!!떡볶이사오세요!!!'.
ENDIF.

* e-abap님에 의해서 게시물 이동되었습니다 (2011-02-17 18:36)
번호 제목 글쓴이 날짜 조회 수
5887 <img src=3.gif>open sql insert 시 accepting duplicate keys 에 대한 질문입니다. [4] 광돈 2010.11.03 1187
5886 <img src=2.gif>perform문 실행순서가 궁금해서요. 질문드립니다 [1] moon 2010.10.30 1182
5885 <img src=3.gif>예제 15-4-5에서 leave to list-processing으로 이동한 list 화면에서 헤더를 안 보이게 하는 방법 좀 알려주세요. [2] 페르츠 2010.10.16 1203
5884 <img src=3.gif>교재에 대한 질문입니다. 오탈자 인지 제가 이해를 못하는건지 모르겠네요 [2] 광돈 2010.10.07 1363
5883 <img src=3.gif>[완전초보입니다.] Chapt3부터 막히네요~ 예제실습을 어떻게하지요? [7] file 베르테르 2010.09.30 1191
5882 <img src=3.gif>플러스 abap 교제의 smartforms image 관련 문의 [4] 날곰 2010.06.28 1103
5881 <img src=2.gif>4-2-10 에서 '' 에 대한 질문입니다. [2] 웅냐공주사랑 2010.06.17 1144
5880 <img src=3.gif>type t -> type i 로 변환시 의 질문 [2] 웅냐공주사랑 2010.06.08 1262
5879 <img src=3.gif>넷위버 트라이얼 버전 프로그램 생성문의.. [2] abap왕초보 2010.05.19 1058
5878 <img src=2.gif>ABAP에서 오늘 연도 및 날짜 구하는 법 알려주시기 바랍니다. [3] 체사레 2010.05.13 1316
5877 <img src=3.gif>넷위버 설치관련해서 설치 파일 담아논곳을 찾습니다~ [2] abap왕초보 2010.05.13 1075
5876 <img src=3.gif>200번 화면에서 기본값을 바꾼 후 엔터시 다시 기본값으로 돌아가는 현상 [3] file 맨날초보 2011.02.24 1532
5875 <img src=2.gif>[proxy] 개발에 생성한 proxy를 운영에 cts 하는 방법??? [1] 맹꽁이 2011.02.24 1710
5874 <img src=3.gif> Function 만들떄 Typing에 TYPE REF TO는 어떤때 쓰는 것 인가요? [1] 초보자라네 2011.02.24 2026
5873 <img src=2.gif>GUI다운로드로 파일 다운받은 후 변환에 대해서 [1] 열공합시다 2011.02.24 1625
5872 <img src=1.gif>F-04에서 전표 부분반제 하려는데 BAPI 있나요? yang 2011.02.23 2408
5871 <img src=1.gif>itutor 설치시 문의 사항입니다.. 슈퍼복덩이 2011.02.23 1397
5870 <img src=2.gif>structure 생성시 specify reference table AND reference field 에러 발생 [1] file 모포 2011.02.23 1960
5869 <img src=3.gif>리포트프로그램 엑셀 다운로드시 총계도 같이 출력하려면???;; [2] ymjeong 2011.02.23 1731
5868 <img src=2.gif>userexit, badi, 대체관련 질문입니다. [3] file 쓰나미 2011.02.22 2526