ABAP Tutorials » Fun

Complete Reference to ABAP Basics

Admin — Tue, 16 Mar 2010 18:16:32 +0000

The following ebook is for the ABAP beginners giving an overview of basic topics in ABAP.

This reference guide focuses on following topics:

ENTERPRISE RESOURCE PLANNING (ERP)
SAP ADVANTAGES
Role of ABAPer
R/3 ARCHITECTURE COMPONENTS
WHAT IS CLIENT IN SAP
Developemt Obects - REPOSITORY OBJECTS and DATA DICTIONARY OBJECTS
ABAP GUI
DATA DICTIONARY
INTERNAL TABLES
SUBROUTINES
Reports
MODULE POOL PROGRAMMING
Menu Painter
BATCH DATA COMMUNICATION
LSMW ( Legacy System Migration Workbench)
SAPSCRIPTS
SMARTFORMS

Link : Complete Reference to ABAP Basics

You might also be interested in these posts:

Customizing SAP Login Screen

Admin — Wed, 30 Dec 2009 04:33:02 +0000

There are times, when Client want to display some important / statutory message on SAP Login Screen.

We can do that using some simple steps:

1. Goto SE61 and select GENERAL TEXT as Document Class and search for “ZLOGIN_SCREEN_INFO“. Click Change button. (if not found, Create

Enter the text you want to display in free text field displayed. Save and exit.

Now the next time you click login on login pad, you will see the message you saved.

Note:

1. You can add Icons to the message. Use report RSTXICON to identify icon.

2. Refer to SAP Note 205487 for more on displaying text on login screen.

You might also be interested in these posts:

Add company logo to SAP Easy Access Initial Screen

Admin — Wed, 23 Dec 2009 04:31:26 +0000

It is primarily required to display company logo instead of SAP standard wallpaper on SAP Easy Access Initial Screen. you can do it by using SMW0.

Go to transaction SMW0 and click on Binary Data for Web RFC Applications,

Click on Right Tick Mark on above.

On next screen you will see a execute button don’t select any package just execute it.

On the next screen create a new entry by selecting Create button. Enter Object Name and Description. Press Enter to select the Image using File Browser. Select the Image and press Import.

Then go to SM30. Select table SSM_CUST. There will be a perameter called START_IMAGE. Enter parameter value (TEST IMAGE in our case).

It will ask for a Transport Request. Create a Local Request.

Log off and login again. You will see new logo.

You might also be interested in these posts:

Tic-Tac-Toe Game in SAP

Admin — Mon, 24 Aug 2009 14:10:08 +0000

The main objective of this program is to develop a game in abap. The game is called as “Tic Tac Toe” which can be played against a computer. Simple procedures are used to write this program. Use of selection screen concepts are done in this game.

*———————————————————————*

* Report ZTICTACTOE

*

*———————————————————————*

REPORT ZTICTACTOE.

TABLES SSCRFIELDS.

DATA: FLAG, count(10) type c ,

f1,f2,f3,f4,f5,f6,f7,f8,f9,

p1(2) type c,

p2(2) type c,

player(2) type c,

ch type c.

SELECTION-SCREEN BEGIN OF BLOCK rad1

WITH FRAME TITLE text-002 no intervals.

PARAMETERS Message(10) TYPE c .

SELECTION-SCREEN SKIP 1.

SELECTION-SCREEN:

BEGIN OF LINE,

PUSHBUTTON 2(5) BUT1 USER-COMMAND CLI1 MODIF ID sc1,

PUSHBUTTON 7(5) BUT2 USER-COMMAND CLI2 MODIF ID sc2,

PUSHBUTTON 12(5) BUT3 USER-COMMAND CLI3 MODIF ID sc3,

END OF LINE,

BEGIN OF LINE,

PUSHBUTTON 2(5) BUT4 USER-COMMAND CLI4 MODIF ID sc4,

PUSHBUTTON 7(5) BUT5 USER-COMMAND CLI5 MODIF ID sc5,

PUSHBUTTON 12(5) BUT6 USER-COMMAND CLI6 MODIF ID sc6,

END OF LINE,

BEGIN OF LINE,

PUSHBUTTON 2(5) BUT7 USER-COMMAND CLI7 MODIF ID sc7,

PUSHBUTTON 7(5) BUT8 USER-COMMAND CLI8 MODIF ID sc8,

PUSHBUTTON 12(5) BUT9 USER-COMMAND CLI9 MODIF ID sc9,

END OF LINE.

SELECTION-SCREEN END OF BLOCK rad1.

* DISPLAYING THE SCORE FILED AS A LABEL

*disabling process******************************* *

form box_disable using ch.

LOOP AT SCREEN.

IF screen-group1 = ch.

screen-input = ‘0′.

MODIFY SCREEN.

ENDIF.

ENDLOOP.

endform. “box_disable

AT SELECTION-SCREEN OUTPUT.

if f1 = 1.

perform box_disable using ‘SC1′.

endif.

if f2 = 1.

perform box_disable using ‘SC2′.

endif.

if f3 = 1.

perform box_disable using ‘SC3′.

endif.

if f4 = 1.

perform box_disable using ‘SC4′.

endif.

if f5 = 1.

perform box_disable using ‘SC5′.

endif.

if f6 = 1.

perform box_disable using ‘SC6′.

endif.

if f7 = 1.

perform box_disable using ‘SC7′.

endif.

if f8 = 1.

perform box_disable using ‘SC8′.

endif.

if f9 = 1.

perform box_disable using ‘SC9′.

endif.

AT SELECTION-SCREEN .

CASE SSCRFIELDS.

WHEN ‘CLI1′.

count = count + 1.

perform player_turn.

BUT1 = p1.

f1 = ‘1′.

perform computer_move.

WHEN ‘CLI2′.

count = count + 1.

perform player_turn.

BUT2 = p1.

f2 = ‘1′.

perform computer_move.

WHEN ‘CLI3′.

count = count + 1.

perform player_turn.

BUT3 = p1.

f3 = ‘1′.

perform computer_move.

WHEN ‘CLI4′.

count = count + 1.

perform player_turn.

BUT4 = p1.

f4 = ‘1′.

perform computer_move.

WHEN ‘CLI5′.

count = count + 1.

perform player_turn.

BUT5 = p1.

f5 = ‘1′.

perform computer_move.

WHEN ‘CLI6′.

count = count + 1.

perform player_turn.

BUT6 = p1.

f6 = ‘1′.

perform computer_move.

WHEN ‘CLI7′.

count = count + 1.

perform player_turn.

BUT7 = p1.

f7 = ‘1′.

perform computer_move.

WHEN ‘CLI8′.

count = count + 1.

perform player_turn.

BUT8 = p1.

f8 = ‘1′.

perform computer_move.

WHEN ‘CLI9′.

count = count + 1.

perform player_turn.

BUT9 = p1.

f9 = ‘1′.

perform computer_move.

ENDCASE.

*this is for toggle operation p1 = X ; p2 = O ;

form player_turn.

player = count MOD 2.

**BUT2 = player.

if player = 1.

**BUT4 = ‘player1′.

p1 = ‘X’.

else.

**BUT4 = ‘player2′.

p1 = ‘O’.

endif.

endform. “player_turn

**———————————————————————**

** Form computer_move

**———————————————————————**

** text

**———————————————————————-**

form computer_move.

if count = 9.

Message = ‘DRAW’.

perform reset.

endif.

if count = 7.

perform fourth_move.

endif.

if count = 5.

perform third_move.

endif.

if count = 3.

perform second_move.

endif.

if count = 1.

perform first_move.

endif.

perform who_wins.

endform. “computer_move

**computer – O

form first_move.

if but5 <> ‘X’.

but5 = ‘O’.

else.

BUT9 = ‘O’.

endif.

count = count + 1.

endform. “first_move

**———————————————————————**

** Form second_move

**———————————————————————**

** text

**———————————————————————-**

form second_move.

data str1 type c.

str1 = ‘X’.

perform check_possible using ‘X’.

if count = 3.

perform misc_move.

endif.

if count = 3.

perform empty_fill.

endif.

endform. “second_move

**———————————————————————**

** Form check_possible

**———————————————————————**

** text

**———————————————————————-**

form check_possible using str type c.

**checking for rows

**1st row *–3rd col empty

if but1 = str and but2 = str and but3 = ‘ ‘.

but3 = ‘O’.

count = count + 1.

endif.

**2ndrow

if but4 = str and but5 = str and but6 = ‘ ‘.

but6 = ‘O’.

count = count + 1.

endif.

**3rd row

if but7 = str and but8 = str and but9 = ‘ ‘.

but9 = ‘O’.

count = count + 1.

endif.

**1st row *–2nd col empty

if but1 = str and but2 = ‘ ‘ and but3 = str.

but2 = ‘O’.

count = count + 1.

endif.

**2ndrow

if but4 = str and but5 = ‘ ‘ and but6 = str.

but5 = ‘O’.

count = count + 1.

endif.

**3rd row

if but7 = str and but8 = ‘ ‘ and but9 = str.

but8 = ‘O’.

count = count + 1.

endif.

**1st row *–1st col empty

if but1 = ‘ ‘ and but2 = str and but3 = str.

but1 = ‘O’.

count = count + 1.

endif.

**2ndrow

if but4 = ‘ ‘ and but5 = str and but6 = str.

but4 = ‘O’.

count = count + 1.

endif.

**3rd row

if but7 = ‘ ‘ and but8 = str and but9 = str.

but7 = ‘O’.

count = count + 1.

endif.

**check for columns

**1st col *–3rd col empty

if but1 = str and but4 = str and but7 = ‘ ‘.

but7 = ‘O’.

count = count + 1.

endif.

**2nd col

if but2 = str and but5 = str and but8 = ‘ ‘.

but8 = ‘O’.

count = count + 1.

endif.

**3rd col

if but3 = str and but6 = str and but9 = ‘ ‘.

but9 = ‘O’.

count = count + 1.

endif.

**1st col *–2nd col empty

if but1 = str and but4 = ‘ ‘ and but7 = str.

but4 = ‘O’.

count = count + 1.

endif.

**2nd col

if but2 = str and but5 = ‘ ‘ and but8 = str.

but5 = ‘O’.

count = count + 1.

endif.

**3rd col

if but3 = str and but6 = ‘ ‘ and but9 = str.

but6 = ‘O’.

count = count + 1.

endif.

**1st col *–1st col empty

if but1 = ‘ ‘ and but4 = str and but7 = str.

but1 = ‘O’.

count = count + 1.

endif.

**2nd col

if but2 = ‘ ‘ and but5 = str and but8 = str.

but2 = ‘O’.

count = count + 1.

endif.

**3rd col

if but3 = ‘ ‘ and but6 = str and but9 = str.

but3 = ‘O’.

count = count + 1.

endif.

**diagonal

**left-top

if but1 = ‘ ‘ and but5 = str and but9 = str.

but1 = ‘O’.

count = count + 1.

endif.

if but1 = str and but5 = str and but9 = ‘ ‘.

but9 = ‘O’.

count = count + 1.

endif.

**right-top

if but3 = ‘ ‘ and but5 = str and but7 = str.

but3 = ‘O’.

count = count + 1.

endif.

if but3 = str and but5 = str and but7 = ‘ ‘.

but7 = ‘O’.

count = count + 1.

endif.

endform. “check_possible

**———————————————————————**

** Form misc_move

**———————————————————————**

** text

**———————————————————————-**

form misc_move.

if but6 = ‘X’ and but8 = ‘X’.

but9 = ‘O’.

count = count + 1.

endif.

if but1 = ‘X’ and but9 = ‘X’.

but2 = ‘O’.

count = count + 1.

endif.

if but3 = ‘X’ and but7 = ‘X’.

but2 = ‘O’.

count = count + 1.

endif.

if but1 = ‘X’ and but5 = ‘X’.

but7 = ‘O’.

count = count + 1.

endif.

if but1 = ‘X’ and but8 = ‘X’.

but7 = ‘O’.

count = count + 1.

endif.

if but3 = ‘X’ and but8 = ‘X’.

but9 = ‘O’.

count = count + 1.

endif.

if but6 = ‘X’ and but7 = ‘X’.

but9 = ‘O’.

count = count + 1.

endif.

if but4 = ‘X’ and but6 = ‘X’.

but1 = ‘O’.

count = count + 1.

endif.

**—————————-misc–last updated trial *-error

if but2 = ‘X’ and but8 = ‘X’.

but1 = ‘O’.

count = count + 1.

exit .

endif.

if but2 = ‘X’ and but7 = ‘X’.

but9 = ‘O’.

count = count + 1.

endif.

if but2 = ‘X’ and but9 = ‘X’.

but7 = ‘O’.

count = count + 1.

endif.

if but4 = ‘X’ and but8 = ‘X’.

but1 = ‘O’.

count = count + 1.

endif.

if but1 = ‘X’ and but6 = ‘X’.

but3 = ‘O’.

count = count + 1.

endif.

if but2 = ‘X’ and but6 = ‘X’.

but9 = ‘O’.

count = count + 1.

endif.

if but2 = ‘X’ and but4 = ‘X’.

but3 = ‘O’.

count = count + 1.

endif.

if but4 = ‘X’ and but9 = ‘X’.

but7 = ‘O’.

count = count + 1.

endif.

if but4 = ‘X’ and but3 = ‘X’.

but1 = ‘O’.

count = count + 1.

endif.

endform. “misc_move

**———————————————————————**

** Form empty_fill

**———————————————————————**

** text

**———————————————————————-**

form empty_fill.

if but1 <> ‘X’ and but1 <> ‘O’.

but1 = ‘O’.

count = count + 1.

elseif but2 <> ‘X’ and but2 <> ‘O’.

but2 = ‘O’.

count = count + 1.

elseif but3 <> ‘X’ and but3 <> ‘O’.

but3 = ‘O’.

count = count + 1.

elseif but4 <> ‘X’ and but4 <> ‘O’.

but4 = ‘O’.

count = count + 1.

elseif but5 <> ‘X’ and but5 <> ‘O’.

but5 = ‘O’.

count = count + 1.

elseif but6 <> ‘X’ and but6 <> ‘O’.

but6 = ‘O’.

count = count + 1.

elseif but7 <> ‘X’ and but7 <> ‘O’.

but7 = ‘O’.

count = count + 1.

elseif but8 <> ‘X’ and but8 <> ‘O’.

but8 = ‘O’.

count = count + 1.

elseif but9 <> ‘X’ and but9 <> ‘O’.

but9 = ‘O’.

count = count + 1.

endif.

endform. “empty_fill

**———————————————————————**

** Form third_move

**———————————————————————**

** text

**———————————————————————-**

form third_move.

perform check_possible using ‘O’.

if count = 5.

perform check_possible using ‘X’.

endif.

if count = 5.

perform empty_fill.

endif.

endform. “third_move

**———————————————————————**

** Form fourth_move

**———————————————————————**

** text

**———————————————————————-**

form fourth_move.

perform check_possible using ‘O’.

if count = 7.

perform check_possible using ‘X’.

endif.

if count = 7.

perform empty_fill.

endif.

endform. “fourth_move

**check for win ,reset——————————————————————————-*-

**———————————————————————**

** Form check_x_win

**———————————————————————**

** text

**———————————————————————-**

form check_x_win.

** checking of the rows

data a type i.

if but1 = ‘X’ AND but2 = ‘X’ AND but3 = ‘X’.

Message = ‘ X wins ‘.

perform reset.

endif.

if but4 = ‘X’ AND but5 = ‘X’ AND but6 = ‘X’.

Message = ‘ X wins ‘.

perform reset.

endif.

if but7 = ‘X’ AND but8 = ‘X’ AND but9 = ‘X’.

Message = ‘ X wins ‘.

perform reset.

endif.

** checking of the cols

if but1 = ‘X’ AND but4 = ‘X’ AND but7 = ‘X’.

Message = ‘ X wins ‘.

perform reset.

endif.

if but2 = ‘X’ AND but5 = ‘X’ AND but8 = ‘X’.

Message = ‘ X wins ‘.

perform reset.

endif.

if but3 = ‘X’ AND but6 = ‘X’ AND but9 = ‘X’.

Message = ‘ X wins ‘.

perform reset.

endif.

** checking for diagonal

if but1 = ‘X’ AND but5 = ‘X’ AND but9 = ‘X’.

Message = ‘ X wins ‘.

perform reset.

endif.

if but3 = ‘X’ AND but5 = ‘X’ AND but7 = ‘X’.

Message = ‘ X wins ‘.

perform reset.

endif.

endform. “check_x_win

**———————————————————————**

** Form check_o_win

**———————————————————————**

** text

**———————————————————————-**

form check_o_win.

** checking of the rows

if but1 = ‘O’ AND but2 = ‘O’ AND but3 = ‘O’.

Message = ‘ O wins ‘.

perform reset.

endif.

if but4 = ‘O’ AND but5 = ‘O’ AND but6 = ‘O’.

Message = ‘ O wins ‘.

perform reset.

endif.

if but7 = ‘O’ AND but8 = ‘O’ AND but9 = ‘O’.

Message = ‘ O wins ‘.

perform reset.

endif.

** checking of the cols

if but1 = ‘O’ AND but4 = ‘O’ AND but7 = ‘O’.

Message = ‘O wins ‘.

perform reset.

endif.

if but2 = ‘O’ AND but5 = ‘O’ AND but8 = ‘O’.

Message = ‘ O wins ‘.

perform reset.

endif.

if but3 = ‘O’ AND but6 = ‘O’ AND but9 = ‘O’.

Message = ‘ O wins ‘.

perform reset.

endif.

** checking for diagonal

if but1 = ‘O’ AND but5 = ‘O’ AND but9 = ‘O’.

Message = ‘ O wins ‘.

perform reset.

endif.

if but3 = ‘O’ AND but5 = ‘O’ AND but7 = ‘O’.

Message = ‘ O wins ‘.

perform reset.

endif.

endform. “check_o_win

**———————————————————————**

** Form who_wins

**———————————————————————**

** text

**———————————————————————-**

form who_wins.

perform check_x_win.

perform check_o_win.

endform. “who_wins

**———————————————————————**

** Form reset

**———————————————————————**

** text

**———————————————————————-**

form reset.

BUT1 = ‘ ‘.

BUT2 = ‘ ‘.

BUT3 = ‘ ‘.

BUT4 = ‘ ‘.

BUT5 = ‘ ‘.

BUT6 = ‘ ‘.

BUT7 = ‘ ‘.

BUT8 = ‘ ‘.

BUT9 = ‘ ‘.

f1 = ‘ ‘.

f2 =’ ‘.

f3 = ‘ ‘.

f4 =’ ‘.

f5 = ‘ ‘.

f6 =’ ‘.

f7 = ‘ ‘.

f8 =’ ‘.

f9 = ‘ ‘.

** Message = ‘ ‘.

** Score = ‘ ‘.

count = 0.

endform. “reset

initialization.

count = 0.

BUT1 = p1.

BUT2 = p1.

BUT3 = p1.

BUT4 = p1.

BUT5 = p1.

BUT6 = p1.

BUT7 = p1.

BUT8 = p1.

BUT9 = p1.

You might also be interested in these posts:

ABAP Program for Marble Game in SAP

Admin — Sat, 01 Aug 2009 02:58:16 +0000

Try to remove all but one marble from the board. You can remove a marble by skipping over it to an empty spot. Select a marble by clicking on it and move it by selecting the spot that you want to move to.

Marble Game

*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*

*& Report ZTST_MARBLE

*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*

REPORT ZTST_MARBEL NO STANDARD PAGE HEADING.

*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*

* I N C L U D E

*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*

INCLUDE .

*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*

* D A T A D E F I N I T I O N

*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*

*….Types

TYPES: BEGIN OF TY_SCORE,

SRL TYPE I,

UNAME TYPE SY-UNAME,

SCORE TYPE I,

TIME TYPE I,

END OF TY_SCORE.

*….Internal Tables

DATA: BEGIN OF ITAB OCCURS 0,

C1, C2, C3,

C4, C5, C6,

C7, C8, C9,

END OF ITAB.

DATA: BEGIN OF IT_PRINT OCCURS 0,

C1(4), C2(4), C3(4),

C4(4), C5(4), C6(4),

C7(4), C8(4), C9(4),

END OF IT_PRINT.

DATA: IT_SCORE TYPE STANDARD TABLE OF TY_SCORE.

*….Work Areas

DATA: WA_ITAB LIKE ITAB,

WA_PRINT LIKE IT_PRINT,

W_SCORE TYPE TY_SCORE.

*….Globle Variables

DATA: L_NO_M TYPE I,

L_NO_S TYPE I,

L_NO_C TYPE CHAR10,

L_HALF TYPE I,

L_HALF_HALF TYPE I,

L_PRINT TYPE FLAG,

L_NAME TYPE CHAR20,

L_MOD TYPE I.

DATA: W_ON TYPE FLAG,

W_SEL_LINE TYPE I,

W_SEL_COL TYPE CHAR1,

W_DEST_OK TYPE FLAG,

W_DEST_LINE TYPE I,

W_DEST_COL TYPE CHAR1,

W_FIELD TYPE CHAR20,

W_LINE TYPE I,

W_GAME_OVER TYPE FLAG,

W_TOTAL TYPE I,

W_REM TYPE I,

W_GONE TYPE I,

W_ST_TIME TYPE I,

W_END_TIME TYPE I,

W_EXPORTED TYPE FLAG.

*….Field symbols

FIELD-SYMBOLS: TYPE ANY.

*….Constants

CONSTANTS: ICON_0(40) TYPE C VALUE ICON_WD_RADIO_BUTTON_EMPTY,

ICON_1(40) TYPE C VALUE ICON_RADIOBUTTON,

ICON_2(40) TYPE C VALUE ICON_COLOR.

*.. Some systems don’t have above listed ICONs You can use:

**….Constants

*CONSTANTS: ICON_0(40) TYPE C VALUE ICON_AVERAGE, ” ICON_WD_RADIO_BUTTON_EMPTY,

* ICON_1(40) TYPE C VALUE ICON_POSITIVE, ” ICON_RADIOBUTTON,

* ICON_2(40) TYPE C VALUE ICON_COLOR.

*….Ranges

RANGES: R_NOT_GREY FOR ABDOCMODE-FLAG.

*….Macros

DEFINE CONV_I_C.

&2 = &1.

CONDENSE &2.

END-OF-DEFINITION.

*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*

* S E L E C T I O N S C R E E N

*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*

PARAMETERS: P_NUM TYPE I DEFAULT 7.

*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*

* A T S E L E C T I O N – S C R E E N .

*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*

AT SELECTION-SCREEN.

IF P_NUM GT 9

OR P_NUM LT 5.

MESSAGE E398(00) WITH ‘Currently allowed only: 5, 7, 9′.

ENDIF.

L_MOD = P_NUM MOD 2.

IF L_MOD = 0.

MESSAGE E398(00) WITH ‘Only odd numbers are allowed’.

ENDIF.

*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*

* S T A R T O F S E L E C T I O N

*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*

START-OF-SELECTION.

GET TIME FIELD W_ST_TIME.

PERFORM FILL_MARBLES.

PERFORM FILL_PRINT_TABLE.

PERFORM WRITE_MARBLES.

*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*

* A T L I N E S E L E C T I O N

*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*

AT LINE-SELECTION.

GET CURSOR FIELD W_FIELD.

PERFORM CALCULATE_MARBLES.

PERFORM FILL_PRINT_TABLE.

SY-LSIND = 0.

PERFORM WRITE_MARBLES.

PERFORM CHECK_GAME_OVER.

*&———————————————————————*

*& Form fill_marbles

*&———————————————————————*

* Fillup the initial table for the marbles

*———————————————————————-*

FORM FILL_MARBLES .

* Grey cells

L_HALF = FLOOR( P_NUM / 2 ).

L_HALF_HALF = L_HALF / 2.

R_NOT_GREY-SIGN = ‘I’.

R_NOT_GREY-OPTION = ‘BT’.

R_NOT_GREY-LOW = ( L_HALF – L_HALF_HALF ) + 1.

R_NOT_GREY-HIGH = ( L_HALF + L_HALF_HALF ) – 1.

APPEND R_NOT_GREY.

CLEAR R_NOT_GREY.

* Filling up the table

DO P_NUM TIMES.

L_NO_M = SY-INDEX.

NEW-LINE.

DO P_NUM TIMES.

L_NO_S = SY-INDEX.

CLEAR: L_PRINT.

IF L_NO_M IN R_NOT_GREY.

L_PRINT = ‘X’.

ENDIF.

IF L_NO_S IN R_NOT_GREY.

L_PRINT = ‘X’.

ENDIF.

IF L_PRINT = ‘X’.

CONV_I_C L_NO_S L_NO_C.

CONCATENATE ‘WA_ITAB-C’ L_NO_C INTO L_NAME.

ASSIGN (L_NAME) TO .

IF L_NO_S = L_HALF

AND L_NO_M = L_HALF.

= ’0′.

W_TOTAL = W_TOTAL – 1.

ELSE.

= ’1′.

W_TOTAL = W_TOTAL + 1.

ENDIF.

ELSE.

WRITE: ‘ ‘.

ENDIF.

ENDDO.

APPEND WA_ITAB TO ITAB.

CLEAR WA_ITAB.

ENDDO.

W_REM = W_TOTAL.

ENDFORM. ” fill_marbles

*&———————————————————————*

*& Form fill_print_Table

*&———————————————————————*

* Convert ITAB value to PRINT table value .

*———————————————————————-*

FORM FILL_PRINT_TABLE .

FIELD-SYMBOLS: TYPE ANY.

REFRESH IT_PRINT.

LOOP AT ITAB INTO WA_ITAB.

L_NO_M = SY-INDEX.

DO P_NUM TIMES.

CONV_I_C SY-INDEX L_NO_C.

CLEAR L_NAME.

CONCATENATE ‘WA_ITAB-C’ L_NO_C INTO L_NAME.

ASSIGN (L_NAME) TO .

CLEAR L_NAME.

CONCATENATE ‘WA_PRINT-C’ L_NO_C INTO L_NAME.

ASSIGN (L_NAME) TO .

CASE .

WHEN ’1′.

= ICON_1.

WHEN ’0′.

= ICON_0.

WHEN ’2′.

= ICON_2.

WHEN OTHERS.

ENDCASE.

ENDDO.

APPEND WA_PRINT TO IT_PRINT.

CLEAR WA_PRINT.

ENDLOOP.

ENDFORM. ” fill_print_Table

*&———————————————————————*

*& Form write_marbles

*&———————————————————————*

* Write marbles from the PRINT table

*———————————————————————-*

FORM WRITE_MARBLES .

FIELD-SYMBOLS: TYPE ANY.

IF W_GAME_OVER IS INITIAL.

LOOP AT IT_PRINT INTO WA_PRINT.

SKIP 1.

W_LINE = SY-TABIX.

WRITE: (2) W_LINE.

HIDE W_LINE.

DO P_NUM TIMES.

CONV_I_C SY-INDEX L_NO_C.

CLEAR L_NAME.

CONCATENATE ‘WA_PRINT-C’ L_NO_C INTO L_NAME.

ASSIGN (L_NAME) TO .

IF NOT IS INITIAL.

WRITE: (2) AS ICON HOTSPOT ON, (2) ‘ ‘.

ELSE.

WRITE: (2) ‘ ‘, (2) ‘ ‘.

ENDIF.

ENDDO.

ENDLOOP.

ENDIF.

SKIP 4.

WRITE: /(30) ‘Total Marbles:’, W_TOTAL.

WRITE: /(30) ‘Remaining Marbles’, W_REM.

SKIP 4.

PERFORM WRITE_5_HIGH_SCORE.

ENDFORM. ” write_marbles

*&———————————————————————*

*& Form calculate_marbles

*&———————————————————————*

* Calculate the marbles after the user input in line selection

*———————————————————————-*

FORM CALCULATE_MARBLES .

* No marble has been selected

IF W_ON IS INITIAL.

PERFORM VALIDATE_INPUT.

ELSE.

* remove the seleced marble

PERFORM DESELECT_MARBLE.

IF W_ON = ‘X’.

* Check destination cell, if the same marble has not been selected

PERFORM CHECK_DESTINATION.

ENDIF.

* Destination is ok ..? rearrange the marbles in ITAB

IF W_DEST_OK = ‘X’.

PERFORM REARRANGE_MARBLES.

ENDIF.

ENDFORM. ” calculate_marbles

*&———————————————————————*

*& Form validate_input

*&———————————————————————*

* Validating the selected marble, is it movable or not

* if marble is movable, highlight it

*———————————————————————-*

FORM VALIDATE_INPUT .

DATA: L_SEL_FIELD(20),

L_TMP_FIELD(20),

L_SEL_COL(1),

L_TMP_COL(2),

L_TMP_LINE TYPE I,

L_OK TYPE FLAG.

FIELD-SYMBOLS: TYPE ANY,

TYPE ANY.

READ TABLE ITAB INTO WA_ITAB INDEX W_LINE.

L_SEL_FIELD = W_FIELD.

L_SEL_COL = W_FIELD+10(1).

REPLACE ‘PRINT’ INTO L_SEL_FIELD WITH ‘ITAB’.

CONDENSE L_SEL_FIELD.

ASSIGN (L_SEL_FIELD) TO .

* value = 0 >> No marble

IF = ’0′.

MESSAGE S398(00) WITH ‘No marble to select.!’.

EXIT.

ENDIF.

* Check right

L_TMP_COL = L_SEL_COL + 2.

IF L_TMP_COL < 9.

CONCATENATE ‘WA_ITAB-C’ L_TMP_COL INTO L_TMP_FIELD.

CONDENSE L_TMP_FIELD.

ASSIGN (L_TMP_FIELD) TO .

IF = ’0′.

L_OK = ‘X’.

ENDIF.

* Check left

IF L_OK IS INITIAL.

L_TMP_COL = L_SEL_COL – 2.

IF L_TMP_COL > 0.

CONCATENATE ‘WA_ITAB-C’ L_TMP_COL INTO L_TMP_FIELD.

CONDENSE L_TMP_FIELD.

ASSIGN (L_TMP_FIELD) TO .

IF = ’0′.

L_OK = ‘X’.

ENDIF.

* check Above

IF L_OK IS INITIAL.

L_TMP_LINE = W_LINE – 2.

IF L_TMP_LINE > 0.

READ TABLE ITAB INTO WA_ITAB INDEX L_TMP_LINE.

IF = ’0′.

L_OK = ‘X’.

ENDIF.

READ TABLE ITAB INTO WA_ITAB INDEX W_LINE.

ENDIF.

* Check underneath

IF L_OK IS INITIAL.

L_TMP_LINE = W_LINE + 2.

IF L_TMP_LINE < 9.

READ TABLE ITAB INTO WA_ITAB INDEX L_TMP_LINE.

IF = ’0′.

L_OK = ‘X’.

ENDIF.

READ TABLE ITAB INTO WA_ITAB INDEX W_LINE.

ENDIF.

* Ok .. than ON

IF L_OK = ‘X’.

W_ON = ‘X’.

= ’2′.

MODIFY ITAB FROM WA_ITAB INDEX W_LINE.

W_SEL_LINE = W_LINE.

W_SEL_COL = L_SEL_COL .

ELSE.

MESSAGE S398(00) WITH ‘No marble to select.!’ ‘ ‘ ‘ ‘ ‘ ‘.

ENDIF.

ENDFORM. ” validate_input

*&———————————————————————*

*& Form deselect_marble

*&———————————————————————*

* Deselect the marble if the same marble is selected again

*———————————————————————-*

FORM DESELECT_MARBLE .

DATA: L_SEL_FIELD(20).

FIELD-SYMBOLS: TYPE ANY.

READ TABLE ITAB INTO WA_ITAB INDEX W_LINE.

L_SEL_FIELD = W_FIELD.

REPLACE ‘PRINT’ INTO L_SEL_FIELD WITH ‘ITAB’.

CONDENSE L_SEL_FIELD.

ASSIGN (L_SEL_FIELD) TO .

IF = ’2′.

= ’1′.

MODIFY ITAB FROM WA_ITAB INDEX W_LINE.

MESSAGE S398(00) WITH ‘Marble was deselected..!!’.

CLEAR: W_ON, W_SEL_LINE, W_SEL_COL.

ENDIF.

ENDFORM. ” deselect_marble

*&———————————————————————*

*& Form check_destination

*&———————————————————————*

* Check the destination cell, it should not be empty and distnce

* between selected cell and destination cell must be 2

*———————————————————————-*

FORM CHECK_DESTINATION .

DATA: L_DEST_FIELD(20),

L_DEST_COL(1),

L_DEST_NOT_OK TYPE FLAG,

L_TMP_LINE TYPE I,

L_TMP_COL TYPE C.

DATA: L_ITAB_DEST LIKE ITAB.

FIELD-SYMBOLS: TYPE ANY.

READ TABLE ITAB INTO L_ITAB_DEST INDEX W_LINE.

L_DEST_FIELD = W_FIELD.

L_DEST_COL = W_FIELD+10(1).

REPLACE ‘WA_PRINT’ INTO L_DEST_FIELD WITH ‘L_ITAB_DEST’.

CONDENSE L_DEST_FIELD.

ASSIGN (L_DEST_FIELD) TO .

* Destination should be empty

IF <> ’0′.

L_DEST_NOT_OK = ‘X’.

ENDIF.

* Calcualate the distance between selected marble and destination

IF L_DEST_NOT_OK IS INITIAL.

IF W_SEL_LINE <> W_LINE.

L_TMP_LINE = ABS( W_SEL_LINE – W_LINE ).

IF L_TMP_LINE <> ’2′.

L_DEST_NOT_OK = ‘X’.

ENDIF.

IF L_DEST_NOT_OK IS INITIAL.

IF W_SEL_COL <> L_DEST_COL.

L_TMP_COL = ABS( W_SEL_COL – L_DEST_COL ).

IF L_TMP_COL <> ’2′.

L_DEST_NOT_OK = ‘X’.

ENDIF.

* destination not ok

IF L_DEST_NOT_OK = ‘X’.

MESSAGE S398(00) WITH ‘Destination is not GOOD’ ‘ ‘ ‘ ‘ ‘ ‘.

ELSE.

W_DEST_OK = ‘X’.

W_DEST_LINE = W_LINE.

W_DEST_COL = L_DEST_COL.

ENDIF.

ENDFORM. ” check_destination

*&———————————————————————*

*& Form rearrange_marbles

*&———————————————————————*

* Rearrange marbles

* 1 Remove the marble which is inbetween the selected & destination

* 2 Remove the marble from the selected cell

* 3 Put marble on the destination cell

*———————————————————————-*

FORM REARRANGE_MARBLES .

DATA: L_FIELD(20),

L_TMP_LINE TYPE I,

L_TMP_COL TYPE CHAR1,

L_NO_MOVE TYPE FLAG,

L_ITAB LIKE ITAB.

FIELD-SYMBOLS: TYPE ANY.

* Make the inbetween column as 0 if both lines are same

IF W_SEL_LINE = W_DEST_LINE.

IF W_SEL_COL > W_DEST_COL.

L_TMP_COL = W_DEST_COL + 1.

ELSE.

L_TMP_COL = W_SEL_COL + 1.

ENDIF.

READ TABLE ITAB INTO L_ITAB INDEX W_SEL_LINE.

L_FIELD = W_FIELD.

REPLACE ‘WA_PRINT’ INTO L_FIELD WITH ‘L_ITAB’.

CONDENSE L_FIELD.

L_FIELD+8(1) = L_TMP_COL.

ASSIGN (L_FIELD) TO .

IF = 1.

= ’0′.

W_GONE = W_GONE + 1.

MODIFY ITAB FROM L_ITAB INDEX W_SEL_LINE.

ELSE.

L_NO_MOVE = ‘X’.

ENDIF.

CLEAR L_ITAB.

ENDIF.

* Make the inbetween line as 0 if both lines are same

IF W_SEL_COL = W_DEST_COL.

IF W_SEL_LINE > W_DEST_LINE.

L_TMP_LINE = W_DEST_LINE + 1.

ELSE.

L_TMP_LINE = W_SEL_LINE + 1.

ENDIF.

READ TABLE ITAB INTO L_ITAB INDEX L_TMP_LINE.

L_FIELD = W_FIELD.

REPLACE ‘WA_PRINT’ INTO L_FIELD WITH ‘L_ITAB’.

CONDENSE L_FIELD.

L_FIELD+8(1) = W_SEL_COL.

ASSIGN (L_FIELD) TO .

IF = 1.

= ’0′.

W_GONE = W_GONE + 1.

MODIFY ITAB FROM L_ITAB INDEX L_TMP_LINE.

ELSE.

L_NO_MOVE = ‘X’.

ENDIF.

CLEAR L_ITAB.

ENDIF.

IF L_NO_MOVE IS INITIAL.

* Make Destination = 1

READ TABLE ITAB INTO L_ITAB INDEX W_DEST_LINE.

L_FIELD = W_FIELD.

REPLACE ‘WA_PRINT’ INTO L_FIELD WITH ‘L_ITAB’.

CONDENSE L_FIELD.

L_FIELD+8(1) = W_DEST_COL.

ASSIGN (L_FIELD) TO .

= ’1′.

MODIFY ITAB FROM L_ITAB INDEX W_DEST_LINE.

CLEAR L_ITAB.

* Make Selected = 0.

READ TABLE ITAB INTO L_ITAB INDEX W_SEL_LINE.

L_FIELD = W_FIELD.

REPLACE ‘WA_PRINT’ INTO L_FIELD WITH ‘L_ITAB’.

CONDENSE L_FIELD.

L_FIELD+8(1) = W_SEL_COL.

ASSIGN (L_FIELD) TO .

= ’0′.

MODIFY ITAB FROM L_ITAB INDEX W_SEL_LINE.

CLEAR L_ITAB.

ELSE.

* Make Selected = 1 when no movement

READ TABLE ITAB INTO L_ITAB INDEX W_SEL_LINE.

L_FIELD = W_FIELD.

REPLACE ‘WA_PRINT’ INTO L_FIELD WITH ‘L_ITAB’.

CONDENSE L_FIELD.

L_FIELD+8(1) = W_SEL_COL.

ASSIGN (L_FIELD) TO .

= ’1′.

MODIFY ITAB FROM L_ITAB INDEX W_SEL_LINE.

CLEAR L_ITAB.

ENDIF.

W_REM = W_TOTAL – W_GONE.

CLEAR: W_DEST_OK, W_DEST_LINE, W_DEST_COL,

W_ON, W_SEL_LINE, W_SEL_COL.

ENDFORM. ” rearrange_marbles

*&———————————————————————*

*& Form check_game_over

*&———————————————————————*

* Check game over when the remaining marbles are half than

* the original marbles. Check for all cells with the marbles and

* check adjacent cells (right, left, above and underneath cells)

* with the value. If the marble found in any adjacent cell than

* GAME is NOT OVER

*———————————————————————-*

FORM CHECK_GAME_OVER .

STATICS: L_TOT_HALF TYPE I.

DATA: L_ITAB LIKE ITAB,

L_ITAB_TMP LIKE ITAB.

DATA: L_TMP_FIELD(20),

L_SEL_COL(1),

L_TMP_COL(2),

L_OK TYPE FLAG,

L_LINE TYPE I,

L_TMP_LINE TYPE I.

CLEAR: L_OK.

FIELD-SYMBOLS: TYPE ANY,

TYPE ANY.

CHECK W_ON IS INITIAL.

L_TOT_HALF = ABS( W_TOTAL / 2 ).

CHECK W_REM < L_TOT_HALF.

LOOP AT ITAB INTO L_ITAB.

L_LINE = SY-TABIX.

L_ITAB_TMP = L_ITAB.

DO P_NUM TIMES.

L_ITAB = L_ITAB_TMP.

L_SEL_COL = SY-INDEX.

CONV_I_C SY-INDEX L_NO_C.

CLEAR L_NAME.

CONCATENATE ‘L_ITAB-C’ L_NO_C INTO L_NAME.

ASSIGN (L_NAME) TO .

IF IS INITIAL

OR = ’0′.

CONTINUE.

ENDIF.

* IF = ’1′.

* l_ok = ‘X’.

* exit.

* ENDIF.

* right neighbour

L_TMP_COL = L_SEL_COL + 1.

IF L_TMP_COL < 9.

CONCATENATE ‘L_ITAB-C’ L_TMP_COL INTO L_TMP_FIELD.

CONDENSE L_TMP_FIELD.

ASSIGN (L_TMP_FIELD) TO .

IF = ’1′.

L_TMP_COL = L_SEL_COL + 2.

IF L_TMP_COL < 9.

CONCATENATE ‘L_ITAB-C’ L_TMP_COL INTO L_TMP_FIELD.

CONDENSE L_TMP_FIELD.

ASSIGN (L_TMP_FIELD) TO .

IF = ’0′.

L_OK = ‘X’.

EXIT.

ENDIF.

* Check left

L_TMP_COL = L_SEL_COL – 1.

IF L_TMP_COL > 0.

CONCATENATE ‘L_ITAB-C’ L_TMP_COL INTO L_TMP_FIELD.

CONDENSE L_TMP_FIELD.

ASSIGN (L_TMP_FIELD) TO .

IF = ’1′.

L_TMP_COL = L_SEL_COL – 2.

IF L_TMP_COL > 0.

CONCATENATE ‘L_ITAB-C’ L_TMP_COL INTO L_TMP_FIELD.

CONDENSE L_TMP_FIELD.

ASSIGN (L_TMP_FIELD) TO .

IF = ’0′.

L_OK = ‘X’.

EXIT.

ENDIF.

CONCATENATE ‘L_ITAB-C’ L_NO_C INTO L_TMP_FIELD.

CONDENSE L_TMP_FIELD.

ASSIGN (L_TMP_FIELD) TO .

* check Above

L_TMP_LINE = L_LINE – 1.

IF L_TMP_LINE > 0.

CLEAR L_ITAB.

READ TABLE ITAB INTO L_ITAB INDEX L_TMP_LINE.

IF = ’1′.

L_TMP_LINE = L_LINE – 2.

IF L_TMP_LINE > 0.

CLEAR L_ITAB.

READ TABLE ITAB INTO L_ITAB INDEX L_TMP_LINE.

IF = ’0′.

L_OK = ‘X’.

EXIT.

ENDIF.

* Check underneath

L_TMP_LINE = L_LINE + 1.

IF L_TMP_LINE < 9.

CLEAR L_ITAB.

READ TABLE ITAB INTO L_ITAB INDEX L_TMP_LINE.

IF = ’1′.

L_TMP_LINE = L_LINE + 2.

IF L_TMP_LINE < 9.

CLEAR L_ITAB.

READ TABLE ITAB INTO L_ITAB INDEX L_TMP_LINE.

IF = ’0′.

L_OK = ‘X’.

EXIT.

ENDIF.

ENDDO.

IF L_OK = ‘X’.

EXIT.

ENDIF.

ENDLOOP.

IF L_OK IS INITIAL.

W_GAME_OVER = ‘X’.

MESSAGE S398(00) WITH ‘Game Over. Socre:’ W_REM.

PERFORM EXPORT_HIGH_SCORE.

* leave program.

ENDIF.

ENDFORM. ” check_game_over

*&———————————————————————*

*& Form export_high_score

*&———————————————————————*

* Export High Score to memory when the game is over

*———————————————————————-*

FORM EXPORT_HIGH_SCORE .

DATA: L_TIME TYPE I.

CHECK W_EXPORTED IS INITIAL.

GET TIME FIELD W_END_TIME.

L_TIME = W_END_TIME – W_ST_TIME.

W_SCORE-UNAME = SY-UNAME.

W_SCORE-SCORE = W_REM.

W_SCORE-TIME = L_TIME.

APPEND W_SCORE TO IT_SCORE.

SORT IT_SCORE BY SCORE TIME.

LOOP AT IT_SCORE INTO W_SCORE.

W_SCORE-SRL = SY-TABIX.

MODIFY IT_SCORE FROM W_SCORE.

CLEAR W_SCORE.

ENDLOOP.

DELETE IT_SCORE WHERE SRL > 5.

EXPORT IT_SCORE = IT_SCORE TO DATABASE INDX(ZZ)

ID ‘ZGAME_MAR’.

W_EXPORTED = ‘X’.

ENDFORM. ” export_high_score

*&———————————————————————*

*& Form write_5_high_score

*&———————————————————————*

* Write 5 high scores

*———————————————————————-*

FORM WRITE_5_HIGH_SCORE .

IMPORT IT_SCORE = IT_SCORE FROM DATABASE INDX(ZZ)

ID ‘ZGAME_MAR’.

WRITE: /(12) ‘User’,

(10) ‘Score’ RIGHT-JUSTIFIED ,

(10) ‘Time’ RIGHT-JUSTIFIED.

WRITE: /(34) SY-ULINE.

LOOP AT IT_SCORE INTO W_SCORE.

WRITE: /(12) W_SCORE-UNAME,

(10) W_SCORE-SCORE,

(10) W_SCORE-TIME.

ENDLOOP.

ENDFORM. ” write_5_high_score

*source= Naimesh Patel

You might also be interested in these posts: