SAP | ABAP | ABAP PROGRAMMING | ABAP CODES | ULTIMATE ABAP BLOG

Paoder Presentin' Last Push the ReMix

2007-10-16T23:53:00.001-07:00

REPORT ypao_lastpush MESSAGE-ID hitman.
TABLES: ysalh,
ysali,
ycustr,
ymatrl.
DATA: i_custr TYPE STANDARD TABLE OF ycustr WITH HEADER LINE.
DATA: i_salh TYPE STANDARD TABLE OF ysalh WITH HEADER LINE.
DATA: i_sali TYPE STANDARD TABLE OF ysali WITH HEADER LINE.
DATA: w_total TYPE p DECIMALS 3,
w_matnr(18) TYPE n,
w_bmeng TYPE p DECIMALS 3.
CONSTANTS: c_nofound(30) TYPE c VALUE 'No records found'.
SELECT-OPTIONS: s_kunnr FOR ycustr-kunnr.

w_total = 0.
SELECT *
FROM ycustr JOIN ysalh
ON ycustr~kunnr EQ ysalh~kunnr
INTO corresponding fields of table i_custr
WHERE ycustr~kunnr IN s_kunnr
ORDER BY YCUSTR~KUNNR.
IF NOT sy-subrc IS INITIAL.
MESSAGE e001 WITH c_nofound.
ENDIF.
LOOP AT i_custr.
FORMAT COLOR 1.
WRITE: / text-006, i_custr-kunnr,
/ text-001, i_custr-kname,
/ text-002, i_custr-addrs.
FORMAT COLOR OFF.
SELECT *
FROM ysalh
INTO CORRESPONDING FIELDS OF TABLE i_salh
WHERE ysalh~kunnr EQ i_custr-kunnr.

LOOP AT i_salh.
FORMAT COLOR 1.
WRITE: / text-003, i_salh-vbeln,
/ text-004, i_salh-erdat.
FORMAT COLOR OFF.
ENDLOOP.
SKIP.
SELECT *
FROM ysali
INTO CORRESPONDING FIELDS OF TABLE i_sali
WHERE ysali~vbeln EQ i_salh-vbeln.
LOOP AT i_sali.
MOVE i_sali-matnr TO w_matnr.
MOVE i_sali-bmeng TO w_bmeng.
ADD w_bmeng TO w_total.
WRITE: / ' ', i_sali-posnr,
w_matnr,
w_bmeng.
ENDLOOP.
SKIP.
FORMAT COLOR 3.
WRITE: / text-005, ' ', w_total.
FORMAT COLOR OFF.
SKIP.
w_total = 0.
ENDLOOP.

Alan 3rd Removal Notes

2007-10-16T23:41:00.000-07:00

***ALLAN CARLO T. RAMOS
***THIS FILE IS FOR REVIEW AND
REPORT znotes3_removals MESSAGE-ID allan .
TABLES: ysalh, ysali, ycustr, ymatrl.
*1.Types
**Customer Sales Header and Customer Table Comibined
TYPES: BEGIN OF y_cussa,
kunnr TYPE ycustr-kunnr,
kname TYPE ycustr-kname,
addrs TYPE ycustr-addrs,
vbeln TYPE ysalh-vbeln,
erdat TYPE ysalh-erdat,
END OF y_cussa.
*2.Constants
CONSTANTS: c_norows(20) TYPE c VALUE 'NO RECORDS RETRIEVED'.
*3.Single Variables
DATA: w_crows TYPE i. "used for determining if there is an output from
"foriegn row table or not
*4.Structures
DATA: e_customer LIKE ycustr.
DATA: e_salh LIKE ysalh.
DATA: e_sali LIKE ysali.
*5.Internal Tables
**Customer Sales Header and Customer Table Comibined
DATA: i_cussa TYPE TABLE OF y_cussa WITH HEADER LINE.
DATA: i_ysali TYPE TABLE OF ysali WITH HEADER LINE.
*6.Input Parameters/Select Options
*****SELECTION SCREEN**************************
***********************************************
SELECTION-SCREEN BEGIN OF BLOCK a WITH FRAME TITLE text-006.
SELECT-OPTIONS: s_cust FOR ycustr-kunnr.
SELECTION-SCREEN END OF BLOCK a.
***********************************************
***********************************************
*7.Macros
***8.Data Processing and Output*
*SELECT *
* FROM ycustr
* INTO CORRESPONDING FIELDS OF e_customer.
* WRITE: / e_customer-kunnr,
* e_customer-kname,
* e_customer-addrs.
*ENDSELECT.
*
*SELECT *
* FROM ysalh
* INTO CORRESPONDING FIELDS OF e_salh
* ORDER BY kunnr.
* WRITE: / e_salh-vbeln, e_salh-erdat, e_salh-erzet, e_salh-kunnr.
*ENDSELECT.
*
*SKIP.
*
*SELECT *
* FROM ysalh
* INTO CORRESPONDING FIELDS OF e_salh
* ORDER BY vbeln.
* WRITE: / e_salh-vbeln, e_salh-erdat, e_salh-erzet, e_salh-kunnr.
*ENDSELECT.
*
*SKIP.
*
*SELECT *
* FROM ysali
* INTO CORRESPONDING FIELDS OF e_sali
* ORDER BY vbeln.
* WRITE: / e_sali-vbeln, e_sali-posnr, e_sali-matnr, e_sali-bmeng,
* e_sali-mbdat.
*ENDSELECT.
*
*SKIP.
SELECT *
FROM ycustr JOIN ysalh
ON ycustr~kunnr EQ ysalh~kunnr
INTO corresponding fields of table i_cussa
WHERE ycustr~kunnr IN s_cust.
***DISPLAY AN ERROR MESSAGE WHEN THERE IS NO RETRIEVED ROWS
***FOR FROM YCUST AND YSALH
IF NOT sy-subrc IS INITIAL.
MESSAGE e001 WITH c_norows.
ENDIF.

****Debugging Codes: to produce an output for the joined table
****ycustr and ysalh
***LOOP AT i_cussa.
*** WRITE: / 'Customer Number: ', i_cussa-kunnr,
*** / 'Customer Name: ', i_cussa-kname,
*** / 'Customer Address: ', i_cussa-addrs,
*** / 'Sales Document Number: ', i_cussa-vbeln.
*** SKIP.
***ENDLOOP.

SELECT *
FROM ysali
INTO CORRESPONDING FIELDS OF TABLE i_ysali
FOR ALL ENTRIES IN i_cussa
WHERE ysali~vbeln EQ i_cussa-vbeln.
***DISPLAY AN ERROR MESSAGE WHEN THERE IS NO RETRIEVED ROWS
***FOR YSALI
IF NOT sy-subrc IS INITIAL.
MESSAGE e001 WITH c_norows.
ENDIF.
*Debugging Codes: to produce an output for the joined table
*ycustr and ysalh
WRITE: / 'Mat Num',
'Con Quantity',
'Availability Date'.
LOOP AT i_ysali.
WRITE: / i_ysali-posnr,
i_ysali-matnr,
i_ysali-bmeng,
i_ysali-mbdat.
ENDLOOP.

***REAL OUTPUT.
LOOP AT i_cussa.
***This outputs the header information
FORMAT COLOR 1.
WRITE: / text-001, i_cussa-kunnr,
/ text-002, i_cussa-kname,
/ text-003, i_cussa-addrs,
/ text-004, i_cussa-vbeln,
/ text-005, i_cussa-erdat.
FORMAT COLOR OFF.
SKIP.
***Check each i_ysali and if there are rows that matches with the vbeln
***of i_caussa then print these lines.
MOVE 0 TO w_crows.
LOOP AT i_ysali where vbeln eq i_cussa-vbeln.
***Determine if the vblen from ysali
WRITE: /
i_ysali-posnr,
i_ysali-matnr,
i_ysali-bmeng.
ADD 1 TO w_crows.
ENDLOOP.
IF w_crows NE 0.
SKIP.
ENDIF.
ENDLOOP.
*9.Subroutines

Function Module

2007-10-16T10:56:00.001-07:00

REPORT Y_FUNCTIONEX1 .

TYPES: y_day(20) type c.

CONSTANTS: c_sun type y_day value 'SUNDAY',

c_mon type y_day value 'MONDAY',

c_tue type y_day value 'TUESDAY',

c_wed type y_day value 'WEDNESDAY',

c_thu type y_day value 'THURSDAY',

c_fri type y_day value 'FRIDAY',

c_sat type y_day value 'SATURDAY'.

PARAMETER: p_date like sy-datum.

DATA: w_date type p.

CALL FUNCTION 'DAY_IN_WEEK'

EXPORTING

datum = p_date

IMPORTING

WOTNR = w_date.

IF w_date EQ 1.

WRITE: / c_mon.

ENDIF.

IF w_date EQ 2.

WRITE: / c_tue.

ENDIF.

IF w_date EQ 3.

WRITE: / c_wed.

ENDIF.

IF w_date EQ 4.

WRITE: / c_thu.

ENDIF.

IF w_date EQ 5.

WRITE: / c_fri.

ENDIF.

IF w_date EQ 6.

WRITE: / c_sat.

ENDIF.

IF w_date EQ 7.

WRITE: / c_sun.

ENDIF.

Exercise 28

2007-10-16T10:55:00.001-07:00

REPORT y_exercise28_041062 .

TABLES:

scarr, spfli, sflight.

SELECT-OPTIONS:

s_carrid FOR scarr-carrid,

s_connid FOR spfli-connid,

s_fldate FOR sflight-fldate.

DATA:

i_scarr TYPE TABLE OF scarr WITH HEADER LINE.

SELECT *

FROM scarr INTO CORRESPONDING FIELDS OF TABLE i_scarr WHERE

carrid IN s_carrid.

LOOP AT i_scarr.

SELECT * FROM spfli WHERE carrid = i_scarr-carrid.

SELECT * FROM sflight WHERE connid = spfli-connid.

WRITE: / i_scarr-carrid,

i_scarr-carrname,

spfli-connid,

spfli-cityfrom,

spfli-cityto,

sflight-fldate,

sflight-seatsmax,

sflight-seatsocc.

ENDSELECT.

ENDLOOP.

Exercise 27:

2007-10-16T10:54:00.001-07:00

REPORT y_exercise27_041062.

TABLES:

scarr, spfli.

SELECT-OPTIONS:

s_carrid FOR scarr-carrid,

s_connid FOR spfli-connid.

DATA:

i_scarr TYPE TABLE OF scarr WITH HEADER LINE.

SELECT *

FROM scarr INTO CORRESPONDING FIELDS OF TABLE i_scarr WHERE

carrid IN s_carrid.

LOOP AT i_scarr.

SELECT * FROM spfli WHERE carrid = i_scarr-carrid.

WRITE: / i_scarr-carrid,

i_scarr-carrname,

spfli-connid,

spfli-cityfrom,

spfli-cityto.

ENDSELECT.

ENDLOOP.

Exercise 26: Select Option

2007-10-16T10:52:00.000-07:00

REPORT y_exercise26_041062.

TABLES: scarr, spfli.

TYPES: BEGIN OF y_type,

fld1 TYPE scarr-carrid,

fld2 TYPE spfli-connid,

fld3 TYPE scarr-carrname,

fld4 TYPE spfli-cityfrom,

fld5 TYPE spfli-cityto,

END OF y_type.

DATA: e_struc TYPE y_type.

DATA: i_tab TYPE TABLE OF y_type WITH HEADER LINE.

SELECT-OPTIONS: s_carrid FOR scarr-carrid.

SELECT-OPTIONS: s_connid FOR spfli-connid.

SELECT scarr~carrid

spfli~connid

scarr~carrname

spfli~cityfrom

spfli~cityto

FROM spfli INNER JOIN scarr ON scarr~carrid = spfli~carrid INTO

table i_tab WHERE scarr~carrid IN s_carrid AND spfli~connid IN s_connid.

LOOP AT i_tab INTO e_struc.

WRITE: / e_struc-fld1, / e_struc-fld2, / e_struc-fld3,

/ e_struc-fld4, / e_struc-fld5.

ENDLOOP.

Paolo Feat. the World

2007-10-16T10:50:00.000-07:00

REPORT y_ex2fpao .

TABLES: sflight.

DATA: i_tab TYPE TABLE OF sflight WITH HEADER LINE.

SELECT-OPTIONS: s_carrid FOR sflight-carrid,

s_connid FOR sflight-connid.

SELECT * FROM sflight INTO CORRESPONDING FIELDS OF TABLE i_tab WHERE

carrid IN s_carrid.

LOOP AT i_tab.

WRITE: / i_tab-carrid,

i_tab-connid,

i_tab-fldate,

i_tab-seatsmax.

ENDLOOP.

IF sflight-carrid NE sy-subrc.

WRITE: / 'No record found.'.

endif.

*Paolo and Allan

*how to use a select statement.

REPORT y_ex1fpao .

TABLES: spfli.

DATA: i_tab TYPE TABLE OF spfli WITH HEADER LINE.

SELECT-OPTIONS: s_carrid FOR spfli-carrid

OBLIGATORY DEFAULT 'AA' TO 'AA'

OPTION NB

SIGN i.

SELECT * FROM spfli

INTO CORRESPONDING FIELDS OF TABLE

i_tab

WHERE

carrid IN s_carrid.

LOOP AT i_tab.

WRITE: / i_tab-carrid,

i_tab-connid,

i_tab-cityfrom,

i_tab-cityto.

ENDLOOP.

IF spfli-carrid NE sy-subrc.

WRITE: / 'No record found.'.

ENDIF.

Exercise 25: Select Option

2007-10-16T10:43:00.000-07:00

REPORT y_exercise25_041062 .

TABLES: scarr.

SELECT-OPTIONS: s_carrid FOR scarr-carrid.

SELECT * FROM scarr WHERE scarr~carrid IN s_carrid.

WRITE: / scarr-carrid, scarr-carrname.

ENDSELECT.

IF scarr-carrid IS INITIAL.

WRITE: 'Record cannot be retrieved'.

ENDIF.

Dino and Gyl Representin' 2

2007-10-16T10:42:00.001-07:00

REPORT y_dinogylex2 .

TABLES: yindex_dg.

PARAMETERS: p_fnam(30) TYPE c,

p_lnam(30) TYPE c,

p_age TYPE i,

p_bday LIKE sy-datum.

yindex_dg-fname = p_fnam.

yindex_dg-lname = p_lnam.

yindex_dg-yage = p_age.

yindex_dg-bday = p_bday.

INSERT yindex_dg.

Dino and Gyl Representin' 1

2007-10-16T10:41:00.001-07:00

REPORT y_dinogylex1 .

TABLES: trdir.

DATA: i_tab TYPE TABLE OF trdir WITH HEADER LINE.

SELECT-OPTIONS: s_name FOR trdir-name,

s_cnam FOR trdir-cnam.

IF s_name IS INITIAL AND s_name IS INITIAL.

WRITE: 'Error in program'.

ELSE.

SELECT * FROM trdir WHERE name IN s_name AND cnam IN s_name.

LOOP AT i_tab.

WRITE: / i_tab-name,

i_tab-cnam,

i_tab-cdat,

i_tab-udat.

ENDLOOP.

ENDSELECT.

ENDIF.

Super Subroutine

2007-10-16T10:38:00.000-07:00

REPORT Y_EXSUB3.

CONSTANTS: c_chk TYPE c VALUE 'X',

c_und(10) TYPE c VALUE 'Undefined.',

c_zero TYPE c VALUE '0'.

DATA: w_num1 TYPE i,

w_num2 TYPE i,

w_ans TYPE i.

PARAMETERS: p_add AS CHECKBOX,

p_sub AS CHECKBOX,

p_mult AS CHECKBOX,

p_div AS CHECKBOX,

p_num1 TYPE i OBLIGATORY,

p_num2 TYPE i OBLIGATORY.

MOVE: p_num1 TO w_num1,

p_num2 TO w_num2.

PERFORM f_add USING w_num1 w_num2 CHANGING w_ans.

PERFORM f_sub USING w_num1 w_num2 CHANGING w_ans.

PERFORM f_mult USING w_num1 w_num2 CHANGING w_ans.

PERFORM f_div USING w_num1 w_num2 CHANGING w_ans.

FORM f_add USING VALUE(us_num1) VALUE(us_num2) CHANGING VALUE(ch_ans).

IF p_add EQ c_chk.

ch_ans = us_num1 + us_num2.

WRITE: / ch_ans Left-Justified.

ENDIF.

ENDFORM.

FORM f_mult USING VALUE(us_num1) VALUE(us_num2) CHANGING VALUE(ch_ans).

IF p_mult EQ c_chk.

ch_ans = us_num1 * us_num2.

WRITE: / ch_ans Left-Justified.

ENDIF.

ENDFORM.

FORM f_sub USING us_num1 us_num2 CHANGING ch_ans.

IF p_sub EQ c_chk.

ch_ans = us_num1 - us_num2.

WRITE: / ch_ans Left-Justified.

ENDIF.

ENDFORM.

FORM f_div USING us_num1 us_num2 CHANGING ch_ans.

IF p_div EQ c_chk.

ch_ans = us_num1 / us_num2.

WRITE: / ch_ans Left-Justified.

ENDIF.

ENDFORM.

For All Entries2

2007-10-15T11:16:00.000-07:00

*filename: zforallentries_ramos
*student number: 03-2299
*email: allan10carlo86@yahoo.com

REPORT zforallentries_ramos.
*********tables
TABLES: spfli.
TABLES: scarr.

**********Constants Declaration for output of data
CONSTANTS: c_cid(20) TYPE c VALUE 'Carrier ID',
         c_cname(20) TYPE c VALUE 'Carrier Name',
         c_ccon(20) TYPE c VALUE 'Connectin Id',
         c_cdep(20) TYPE c VALUE 'Departure Time: ',
         c_carr(20) TYPE c VALUE 'Arrival Time: ',
         c_spaces(20) TYPE c VALUE space.


**************** Internal Tables Declaration
*i_spfli contains the data of selected
*data based from the input
DATA: BEGIN OF i_spfli OCCURS 0,
       connid LIKE spfli-connid,
       arrtime LIKE spfli-arrtime,
       deptime LIKE spfli-deptime,
       carrid LIKE spfli-carrid,
    END OF i_spfli,
**table to store i_scarr
    BEGIN OF i_scarr OCCURS 0,
        carrid TYPE scarr-carrid,
        carrname TYPE scarr-carrname,
    END OF i_scarr.


*This is the output internal table
*to be used to store the processed data from the i_spfli table
DATA: BEGIN OF i_output OCCURS 0,
      connid LIKE spfli-connid,
      arrtime LIKE spfli-arrtime,
      deptime LIKE spfli-deptime,
      carrid LIKE spfli-carrid,
      carrname LIKE scarr-carrname,
END OF i_output.

************* Select Options Declaration

SELECT-OPTIONS: s_connid FOR spfli-connid.
SELECT-OPTIONS: s_carrid FOR scarr-carrid.

*************** Data Processing
*Search all spfli and release an output to the i_spfli table
*based for the connection id(s_connid) input
SELECT *
 FROM spfli
*use this whenever there is you don't want to use append
 INTO CORRESPONDING FIELDS OF i_spfli
 WHERE connid IN s_connid.
** previous modified code
*use append to append into an internal table of *the first output
*  i_spfli-connid = spfli-connid.
*  i_spfli-arrtime = spfli-arrtime.
*  i_spfli-deptime = spfli-deptime.
*  i_spfli-carrid = spfli-carrid.
APPEND i_spfli.
ENDSELECT.


***Using scarr, release the output
***and compare it to the i_spfli
***if the carrid of i_spfli is equal to the carrid of scarr-splfi.
***put it in the output

SELECT
 scarr~carrid
 scarr~carrname
*please use into corresponding fields not appending
 APPENDING CORRESPONDING FIELDS OF TABLE i_scarr
 FROM scarr
 FOR ALL ENTRIES IN i_spfli
 WHERE carrid = i_spfli-carrid
        AND carrid IN s_carrid.

***use append to append into an internal table of the first output
LOOP AT i_spfli.
LOOP AT i_scarr.
  IF i_scarr-carrid = i_spfli-carrid.
    i_output-connid  = i_spfli-connid.
    i_output-arrtime = i_spfli-arrtime.
    i_output-deptime = i_spfli-deptime.
    i_output-carrid  = i_scarr-carrid.
    i_output-carrname = i_scarr-carrname.
    APPEND i_output.
  ENDIF.
ENDLOOP.
ENDLOOP.


*********** Output ***********
*header columns
WRITE: c_cid, c_cname , c_ccon, c_cdep, c_carr.
**data columns
LOOP AT i_output.
WRITE: /
      i_output-carrid, c_spaces(10),
      i_output-carrname, c_spaces(10),
      i_output-connid, c_spaces(10),
   i_output-arrtime, c_spaces(10),
      i_output-deptime, c_spaces(10).
ENDLOOP.

Kreonik Kreations Presents: Subroutine

2007-10-15T10:31:00.000-07:00

REPORT y_exsub1 .

CONSTANTS: c_hw(11) VALUE 'Hello world'.

PERFORM f_printhw.

*---------------------------------------------------------------------*

* FORM printhw *

*---------------------------------------------------------------------*

* ........ *

*---------------------------------------------------------------------*

FORM f_printhw.

WRITE: c_hw.

ENDFORM.

REPORT y_exsub2 .

CONSTANTS: c_hw(11) VALUE 'Hello world'.

PERFORM f_printhw USING c_hw.

*---------------------------------------------------------------------*

* FORM printhw *

*---------------------------------------------------------------------*

* ........ *

*---------------------------------------------------------------------*

FORM f_printhw USING us_hw.

WRITE: us_hw.

ENDFORM.

Alan the World's Notes2.1

2007-10-15T10:23:00.001-07:00

SAMPLE FOR FOR ALL ENTRIES AND APPENDING

SELECT

scarr~carrid

scarr~carrname

APPENDING CORRESPONDING FIELDS OF TABLE i_scarr

FROM scarr

FOR ALL ENTRIES IN i_spfli

WHERE carrid = i_spfli-carrid

AND carrid IN s_carrid.

DETERMINING IF SELECT-OPTIONS IS INITIAL SAMPLE CODE

**There is still a problem do not use

tables: spfli.

select-option: s_tab for spfli-carrid.

**not sure if it checks the whole table.

**sample code

TABLES: spfli.

DATA: i_tab TYPE TABLE OF spfli WITH HEADER LINE,

w_x TYPE spfli-carrid.

SELECT-OPTIONS: s_tab FOR spfli-carrid.

**checks if s_tab has a value or not

IF not s_tab IS INITIAL.

**the select statement itself

SELECT *

FROM spfli

INTO CORRESPONDING FIELDS OF i_tab

WHERE carrid IN s_tab.

APPEND I_TAB.

ENDSELECT.

**checks if the sql statement is executed

IF sy-subrc = 0.

WRITE: / w_x.

LOOP AT i_tab.

WRITE: i_tab-carrid.

ENDLOOP.

ENDIF.

ELSE.

WRITE: / 's_tab is initial'.

ENDIF.

Screen look:

OUTPUT:

REPORT yexer2_select .

TABLES: sflight.

DATA: i_sfli TYPE TABLE OF sflight WITH HEADER LINE.

SELECT-OPTIONS: s_carrid FOR sflight-carrid.

SELECT-OPTIONS: s_connid FOR sflight-connid.

IF s_connid IS INITIAL AND

s_carrid IS INITIAL.

WRITE: 'Input is initial'.

ELSE.

SELECT *

FROM sflight

INTO CORRESPONDING FIELDS OF TABLE i_sfli

WHERE carrid IN s_carrid

AND

connid IN s_connid.

IF sy-subrc EQ 0.

****** Output

LOOP AT i_sfli.

WRITE: / i_sfli-carrid,

i_sfli-connid,

i_sfli-fldate,

i_sfli-seatsmax.

ENDLOOP.

ELSE.

write: ' No input retrieved '.

ENDIF.

USING SUBROUTINES (FILENAME: Y_SUBCALC2_SEPT4)

Passing by value:

PERFORM f_add USING p_in1 p_in2 CHANGING w_ans.

FORM f_add using value(us_in1) value(us_in2) CHANGING value( ch_ans).

ch_ans = us_in1 + us_in2.

Write: w_ans left-justified.

ENDFORM.

PERFORM f_sub USING p_in1 p_in2 CHANGING w_ans.

FORM f_sub USING us_in1 us_in2 CHANGING w_ans.

ch_ans = us_in1 - us_in2.

Write: w_ans left-justified.

ENDFORM.

USING MACROS (ZMACROS_SUBIJANO)

DEFINE M_OPERATION.

W_RES = &1 &2 &3.

Write: / w_res left-justified.

END-OF-DEFINITION.

To access the macros:

m_operation p_var1 / p_var2.

Alan the World's Notes2

2007-10-15T10:23:00.000-07:00

Notes in ABAP

Functions : se38 Abap Ed, f3 back, se11 data dictionary, /o new window, /n new window,

Syntax Check -> ctrl+f33

Different types of data: P packed Decimal, I Integer, F Floating point, N Numeric Text, C Character, D date(YYYYMMDD), Ttime (HHMMSS), X Hexadecimal

Delcared as: data: w_char(length) type __.

User Input: Parameters p_input(20) type C obligatory.

CheckBoxes: Parameters: P_chk1 as checkbox.

RadioButtons: Parameters: p_radio radiobutton

gr_name.  group name

Eq, gt, lt, ne, le, ge

Ca, co, cp,

Has pattern +  one word… *  many words.

If w_var cp ‘ate+c’. (ate_c} _ means anyletter.

if p_chk1 = 'X'.

write: 'true'.

Elseif p_chk2 = ‘X’.

Write: ‘true on the second’.

else.

write: 'false'.

endif.

How to change Parameter Names: GOTO  Text Elements Selection Texts Shift + f8 to activiate

Create File Copy in Windows: Utilities  More Utilities  Uploads/Downloads  download

Pretty Printer (setting it up): Utilities  Settings  Pretty Printer (click on keyword upper case)

Conditional Statements: If… else… endif.

If p_param1 EQ (or you may use =) ‘TRUE’.

Else.

Write: ‘False’.

Endif.

Using Constants: Syntax -> Constants: c_constants(length) type datTtype.

Debugging: Active(ctrl+f3)go back (click on debugging) Take Note: f5 -> execute next line; f8  next backup/whole program.

Using Types: y_var type datatype.

Begin of y_type,

Fld1 type datatype,

Fld2 type datatype,

End of y_type.

Creating a structure from types

Data: e_struc type y_type.

Constructing a Table

Data: I_tab type table of y_type with header line.

Data: begin o f I_tab2 occcurs 0,

Fld1 type c,

Fld type I,

End of I_tab2.

Case Statements

Case variable.

When var1. Imperative Statements.

When var2. Imperative Statements.

When others.

Endcase.

Looping statement:

DO.. ENDDO

do p_int times.

Case sy-index. ...endcase.

Enddo.

WHILE... ENDWHILE

while x eq y.

endwhile.

LOOP AT... WHERE.... ENDLOOP.

Loop at internal_table (from n to m where logical exp).

write: / i_tab-fld1, i_tab-fld2.

endloop.

Clearing a table.

Refresh i_tab[]. []--> it all the table

clear i_tab. --> only the header line

How to access the variable by substring or charater.

fieldname+startingPosition(field_length).

Using select-options

select-options: table_name for table-field.

Select -options: s_carrid for scarr-carrid.

OTHER SYNTAX:

select-option: sel for field obligatory

Default g

Default g option xx sign s

Default g to h

Default g to h option xx sign s

sign

options

low

high

SIGN

- type c i/e length 1

- i – include – including high and low

- e – exclude – exclude the high and low

OPTIONS

- type c length 2

- arithmetic operations

- ne, cp --> only for non-existent values

- bt (between), nb(not between) --> if there is high

SELECT STATEMENTS

SELECT single .. or *

FROM

INTO or

INTO CORRESPONDING FIELDS OF or

WHERE AND OR .

SAMPLE SELECT STATEMENT

SELECT *

FROM spfli

INTO CORRESPONDING FIELDS OF i_spfli

WHERE connid IN s_connid.

APPEND i_spfli.

ENDSELECT.

SOME Logical expression

WHERE table-fld value

WHERE table-fld LIKE

WHERE table-fld IN

LIST of operators: EQ = , NE <>><, GT >, GE >=, LT <, LE <=,

BETWEEN f1 AND f2 --> interval

Last Notes from Allan the World

2007-10-15T01:18:00.001-07:00

REPORT ztables_allanfinals .

TYPES: BEGIN OF line,
       col1 TYPE i,
       col2 TYPE i,
     END OF line.

DATA: itab TYPE STANDARD TABLE OF line WITH HEADER LINE,
    jtab TYPE STANDARD TABLE OF line.


PERFORM fill TABLES itab.

MOVE itab[] TO jtab.

PERFORM out TABLES jtab.


*---------------------------------------------------------------------*
*       FORM fill                                                     *
*---------------------------------------------------------------------*
*       ........                                                      *
*---------------------------------------------------------------------*
*  -->  F_ITAB                                                        *
*---------------------------------------------------------------------*
FORM fill TABLES f_itab LIKE itab[].
DO 3 TIMES.
  f_itab-col1 = sy-index.
  f_itab-col2 = sy-index ** 2.
  APPEND f_itab.
ENDDO.
ENDFORM.


*---------------------------------------------------------------------*
*       FORM out                                                      *
*---------------------------------------------------------------------*
*       ........                                                      *
*---------------------------------------------------------------------*
*  -->  F_ITAB                                                        *
*---------------------------------------------------------------------*
FORM out TABLES f_itab LIKE jtab.

LOOP AT f_itab.
  WRITE: / f_itab-col1, f_itab-col2.
ENDLOOP.
ENDFORM.

TABLES: scarr, spfli.
*will be printed
SELECT carrid FROM scarr INTO scarr-carrid.
WRITE: /  scarr-carrid.
ENDSELECT.
*no output will be outputed
SELECT carrid FROM scarr INTO scarr.
WRITE: / scarr-carrid,  scarr-mandt.
ENDSELECT.

SELECT carrid
FROM scarr
INTO CORRESPONDING FIELDS OF scarr.
WRITE: / scarr-carrid.
ENDSELECT.
*using join
TYPES: BEGIN OF y_ans,
        carrid LIKE scarr-carrid,
        countryto LIKE spfli-countryto,
     END OF y_ans.

CONSTANTS: c_n(2) TYPE c VALUE 'al'.
DATA: w_ans TYPE y_ans.

SELECT-OPTIONS: s_carrid FOR w_ans-carrid.
**USING ENDSELECT AND JOINING TABLES
SELECT scarr~carrid
     spfli~countryto
FROM scarr
     JOIN spfli
ON
     spfli~carrid EQ spfli~carrid
INTO corresponding fields of w_ans
WHERE scarr~carrid IN s_carrid  .
WRITE: / 'carrid', w_ans-carrid, 'Country to', w_ans-countryto.
ENDSELECT.

**USING WITHOUT ENDSELECT
DATA: i_ans TYPE STANDARD TABLE OF y_ans WITH HEADER LINE.

SELECT scarr~carrid
     spfli~countryto
FROM scarr JOIN spfli
  ON spfli~carrid EQ spfli~carrid
INTO corresponding fields of table i_ans
WHERE scarr~carrid IN s_carrid.

Splitting Names2

2007-10-15T01:18:00.000-07:00

*Name: ZSPLITTINGNAMES_RAMOS
*Student Number: 03-2299
*Email: allan10carlo86@yahoo.com

REPORT zsplittingnames_ramos .
**constants section

CONSTANTS: c_one TYPE i VALUE 1. "constant for number 1


*varaibles section
DATA: w_counter TYPE i,   " w_counter mis the moving index
     w_len TYPE i,       "the length of the character
     w_char TYPE c. "this is the character extracted from the input

**parameters / input section
PARAMETERS: p_name(60) TYPE c.

*processing section
w_len = strlen( p_name ).

w_counter = c_one - c_one.



WHILE w_counter <= w_len.
  w_char = p_name+w_counter(c_one). 
*Main algorithm.
  IF NOT w_char EQ space.
*if there is no space then write the character
   WRITE: w_char NO-GAP.
  ELSE.  
*if there is a space skip
   SKIP .
  ENDIF.
  ADD 1 TO w_counter.
ENDWHILE.

zpalindromes_ramos

2007-10-15T01:17:00.000-07:00

*zpalindromes_ramos
*03-2299
*allan10carlo86@yahoo.com

REPORT zpalindromes_ramos .

*literals for palindrome output
CONSTANTS: c_is(20) TYPE c VALUE 'It is a palindrome!',
    c_isnot(20) TYPE c VALUE 'Not a palindrome',
    c_one TYPE i VALUE 1, " for one number
     c_error TYPE c VALUE 'Please input less or equal to 20
characters'.                     "error message


DATA:
**Characters from left to right examined using this variables
     w_left(1) TYPE c,
     w_right(1) TYPE c,
*counters for left and right.
     w_cleft TYPE i,
     w_cright TYPE i,
     w_strlen TYPE i,
* Determines w_isPalin
     w_ispalin(20) TYPE c.

PARAMETER: p_in(20) TYPE c.
*condense p_in
CONDENSE p_in NO-GAPS.
w_strlen = strlen( p_in ).

*Debuggin codes
*write: / p_in.
IF w_strlen LE 20.
  w_cleft = c_one - c_one.
  w_cright = w_strlen - c_one.
  w_ispalin = c_is.       "assume all are palindromes
*Debuggin Codes
*       write: 'w_left', 'w_right'.
 SKIP.

  WHILE w_cleft < w_strlen.

   w_left = p_in+w_cleft(c_one).
   w_right = p_in+w_cright(c_one).
* Debuggin Codes showing the left and right characters as
*the indexes of each moves from opposite directions
*              write: w_left, w_right.
*              write:  /, /.

 IF NOT w_left EQ w_right.
*if it is not write the output message of telling it
*it's not and exit the loop
      w_ispalin = c_isnot.
      
     ENDIF.
     ADD 1 TO w_cleft.  
     SUBTRACT 1 FROM w_cright.
    ENDWHILE.
**write if the result here
    WRITE: w_ispalin.
 ENDIF.

ZBACKGROUNDCOLORS_RAMOS

2007-10-15T01:15:00.000-07:00

*zbackgroundcolors_ramos
*03-2299
*allan10carlo86@yahoo.com
REPORT zbackgroundcolors_ramos .

*CONSTANTS TO BE USED IN COLOR LOGIC
CONSTANTS: c_false TYPE c VALUE 'f',
          c_true TYPE c VALUE 't'.

*VARAIABLES TO BE USED FOR COLOR PRINTING AND LOGIC
DATA: w_count TYPE i,   "RANGE 1 TO 7
     w_color TYPE i,    "RANGE OF ID COLOR 1 TO 7
     w_intense TYPE c VALUE c_false.   "LOGICAL VARABLE FOR CONDITION

*PARAMETERS FROM A TO B INPUT
PARAMETERS : p_in1 TYPE i,
            p_in2 TYPE i.
*Tables
DATA: BEGIN OF i_color OCCURS 0,
       color TYPE i,
     END OF i_color.


w_count = p_in1.
w_color = 1.
*PUT NUMBERS IN I_COUNT TABLES
WHILE w_count <= p_in2.
 i_color-color = w_count.
 w_count = w_count + 1.
 APPEND i_color.
ENDWHILE.

*LOOP AT TABLE WITH INTENSIFIED COLORS
LOOP AT i_color.
**IF YOU NEED INTENSE COLORS THEN PRINT THIS
*  FORMAT INTENSIFIED ON.
 FORMAT INTENSIFIED COLOR = w_color.
 IF w_intense = c_true.
   WRITE:/ i_color-color.
   w_intense = c_false.
 ELSE.

   WRITE: / i_color-color INTENSIFIED OFF.
   w_intense = c_true.
 ENDIF.
*cha
 w_color = w_color + 1.
 IF w_color = 14.
   w_color = 1.
 ENDIF.

ENDLOOP.
w_count = 0.
while w_count <= 14.
 format color = w_count.
 write: w_count.
 format color off.
 add 1 to w_count.

endwhile.

Triggering Error Message

2007-10-14T19:17:00.001-07:00

TRIGGERING ERROR MESSAGES

REPORT ZTRIGGERINGERRORMESSAGES_LAM MESSAGE-ID janice.

CONSTANTS: c_10(2) TYPE n VALUE '10',

c_5 TYPE n VALUE '5',

c_add TYPE c VALUE '+',

c_sub TYPE c VALUE '-',

c_mul TYPE c VALUE '*',

c_div TYPE c VALUE '/'.

DATA: w_result TYPE i.

PARAMETERS: p_in TYPE c.

**** does whatever operation the user intputs

CASE p_in.

WHEN c_add.

w_result = c_10 + c_5.

WHEN c_sub.

w_result = c_10 - c_5.

WHEN c_mul.

w_result = c_10 * c_5.

WHEN c_div.

w_result = c_10 / c_5.

WHEN OTHERS.

MESSAGE e000 WITH 'Invalid operator.'.

ENDCASE.

**** displys result in a message box

MESSAGE i001 WITH w_result.

INITIALIZING INPUT PARAMETERS

2007-10-14T19:16:00.004-07:00

INITIALIZING INPUT PARAMETERS

*parameters

PARAMETERS: p_name(20) type c,

p_age(2) type n,

p_id(7) type c.

*write whatever is written in the parameters - predefined using

*text-symbols

write: / p_name,

/ p_age,

/ p_id.

*initialization of the text symbols inputted by double clicking the

*paramter name

initialization.

*Processes what was put inside the text-symbol

p_name = text-NAM.

p_age = text-AGE.

p_id = text-SID.

Palindrome

2007-10-14T19:16:00.003-07:00

PALINDROMES

DATA: BEGIN OF i_tab OCCURS 0,

char TYPE c,

END OF i_tab.

DATA: w_word_len TYPE i,

w_indx TYPE i,

w_word_tmp(20) TYPE c,

w_word_rev(20) TYPE c,

w_yes(20) TYPE c VALUE 'It is a palindrome.',

w_no(20) TYPE c VALUE 'Not a palindrome.'.

PARAMETERS: p_word(20) TYPE c.

**** gets length of word

w_word_len = strlen( p_word ).

w_word_tmp = p_word.

**** goes through the each letter index

DO w_word_len TIMES.

w_indx = w_word_len - sy-index.

* index is equal to the world lenth minus sy-index (starts at 1)

SHIFT p_word BY w_indx PLACES LEFT.

* shifts the word by the index number to the left

i_tab-char = p_word.

APPEND i_tab.

CLEAR i_tab.

p_word = w_word_tmp.

ENDDO.

* loops the char's of the word to reverse it

LOOP AT i_tab.

CONCATENATE w_word_rev i_tab-char INTO w_word_rev.

ENDLOOP.

**** DECIDES WHETHER IT IS A PALIDROME OR NOT ****

* w_yes writes It is a palindrome.

* w_no write Not a palindrome.

IF p_word EQ w_word_rev.

WRITE: w_yes.

ELSE.

WRITE: w_no.

ENDIF.

Splitting Names

2007-10-14T19:16:00.001-07:00

SPLITTING NAMES

*define type y_type as having 1 field with length - 60 characters

*and type y_type also having 60 characters

TYPES: BEGIN OF y_type,

fld1(60) TYPE c,

y_type(60) type c,

END OF y_type.

DATA: e_struc TYPE y_type.

*e-struc inherits the attributes of type y_type

DATA: i_tab TYPE TABLE OF y_type WITH HEADER LINE.

*make table i_tab with header line

DATA: w_data type y_type.

*make new elementary variable w_data which inherits type y_type

parameters: p_param(60) type c.

*make new parameter which also inherits y_type

SPLIT p_param AT SPACE into TABLE i_tab.

*this splits whatever you write in p_param if there is a space and puts

*it into the table i_tab

loop at i_tab.

*puts current selection of row on the headerline

write: / i_tab-fld1.

*writes the field

endloop.

DATA: BEGIN OF names OCCURS 0,

name(60) TYPE c,

END OF names.

PARAMETERS: name(60) TYPE c.

**** splits the name at space

SPLIT name AT space INTO TABLE names.

**** prints each name on separate lines

LOOP AT names.

WRITE: / names-name.

ENDLOOP.

Leap Year

2007-10-14T19:15:00.001-07:00

LEAP YEAR 1

CONSTANTS c_x TYPE c VALUE 'X'.

DATA: w_year(4) TYPE n,

w_yr_tmp(4) TYPE n.

DATA: w_by_4 TYPE i,

w_by_100 TYPE i,

w_by_400 TYPE i.

DATA: BEGIN OF i_range OCCURS 0,

year(4) TYPE n,

l_yr TYPE c,

END OF i_range.

**** SELECT-OPTIONS ****

SELECT-OPTIONS s_yr FOR w_year NO-EXTENSION.

i_range-year = s_yr-low.

w_yr_tmp = s_yr-low.

APPEND i_range.

CLEAR i_range.

**** TO DISPLAY THE RANGE *****

WHILE w_yr_tmp LT s_yr-high.

w_yr_tmp = w_yr_tmp + 1.

i_range-year = w_yr_tmp.

APPEND i_range.

CLEAR i_range.

ENDWHILE.

**** TO DISPLAY THE 'X' FOR YEARS THAT ARE LEAP YEAR ****

LOOP AT i_range.

w_by_4 = i_range-year MOD 4.

IF w_by_4 EQ 0.

w_by_100 = i_range-year MOD 100.

IF w_by_100 EQ 0.

w_by_400 = i_range-year MOD 400.

IF w_by_400 EQ 0.

i_range-l_yr = c_x.

MODIFY i_range FROM i_range.

ENDIF.

ELSE.

i_range-l_yr = c_x.

MODIFY i_range FROM i_range.

ENDIF.

ENDLOOP.

**** DISPLAY THE INTERNAL TABLE ****

* this will display the range of year and

* will place an X wherever the leap year lands

LOOP AT i_range.

WRITE:/ i_range-year, i_range-l_yr.

ENDLOOP.

_____________________________________________________________________________________

LEAP YEAR 2

TYPES: BEGIN OF y_type,

fld1 LIKE sy-datum(4),

fld2 TYPE c,

END OF y_type.

*you make a table with two fields, the first field will be for the year

*and the second will be for the literal X

CONSTANTS: c_cons TYPE c VALUE 'X'.

* you create a constant for the literal X

DATA: i_tab TYPE TABLE OF y_type WITH HEADER LINE,

w_date TYPE i,

w_fourhundred TYPE i,

w_onehundred TYPE i,

w_four TYPE i,

w_low TYPE i.

*get the difference between highest and lowest range

*then add 1 so the output will be correct

SELECT-OPTIONS: s_year FOR sy-datum(4) NO-EXTENSION.

*select option s_year is stated here, sy-datum is 4 because you only

*get the year

w_date = s_year-high - s_year-low.

ADD 1 TO w_date.

*equate the new elemtary variable with the lowest range

w_low = s_year-low.

*do w_date times so it will print the number range selected

DO w_date TIMES.

w_onehundred = w_low MOD 100.

*the variable for testing if it is first equal to 0 so we can go on with

*the if loop

w_fourhundred = w_low MOD 400.

*the variable for testing if it is equal to 0

w_four = w_low MOD 4.

*the variable for testing if it is equal to 0

*if w_low which is my lowest range is equal to 0,then test all if

*can be divided by 400 (for dates ending in hundreds) and 4 if not

IF w_onehundred EQ 0.

IF w_fourhundred EQ 0.

i_tab-fld2 = c_cons.

*write x to i_tab-fld 2 if leapyear

ENDIF.

ELSEIF w_four EQ 0.

i_tab-fld2 = c_cons.

ELSE.

i_tab-fld2 = space.

*if not leapyear, just write a space on i_tab-fld2.

ENDIF.

*to add to the table!!

i_tab-fld1 = w_low.

*i add the lowest range (s_year-low) to i_tab-fld1 to populate the table

ADD 1 TO w_low.

*i add 1 so i can get all the values in the range

APPEND i_tab.

*append to table

ENDDO.

LOOP AT i_tab.

WRITE: / i_tab-fld1, i_tab-fld2.

ENDLOOP.

For All Entries

2007-10-14T19:14:00.000-07:00

1. FOR ALL ENTRIES

* calling the tables for select options.

TABLES: scarr, spfli.

* constants for literals.

CONSTANTS: c_conn(20) TYPE c VALUE 'Connection ID',

c_dept(20) TYPE c VALUE 'Departure Time',

c_arr(20) TYPE c VALUE 'Arrival Time',

c_carr(20) TYPE c VALUE 'Carrier ID',

c_cna(20) TYPE c VALUE 'Carrier Name',

c_skip TYPE i VALUE 1.

* declares the two internal tables

DATA: i_scarr TYPE TABLE OF scarr WITH HEADER LINE,

i_spfli TYPE TABLE OF spfli WITH HEADER LINE.

SELECT-OPTIONS: s_spfli FOR spfli-connid,

s_scarr FOR scarr-carrid.

* select statement selecting the fields in spfli table.

SELECT *

FROM spfli

INTO CORRESPONDING FIELDS OF TABLE i_spfli

WHERE connid IN s_spfli.

* select statement selecting fields from SCARR table based on the

*selection of spfli.

SELECT *

FROM scarr

INTO CORRESPONDING FIELDS OF TABLE i_scarr

FOR ALL ENTRIES IN i_spfli

WHERE carrid EQ i_spfli-carrid.

*loop at table i_scarr to write in table.

LOOP at i_spfli.

WRITE: / c_conn, i_spfli-connid,

/ c_dept, i_spfli-deptime,

/ c_arr, i_spfli-arrtime.

SKIP c_skip.

ENDLOOP.

*loop at table i_spfli to write in table.

LOOP at i_scarr.

SKIP c_skip.

WRITE: / c_carr, i_scarr-carrid,

/ c_cna, i_scarr-carrname.

ENDLOOP.

Joining Tables

2007-10-14T19:13:00.000-07:00

1. JOINING TABLES

TABLES: scarr, spfli.

*names of the transparent table

TYPES: BEGIN OF y_type,

fld1 TYPE scarr-carrid,

fld2 TYPE spfli-connid,

fld3 TYPE scarr-carrname,

fld4 TYPE spfli-arrtime,

fld5 TYPE spfli-deptime,

END OF y_type.

*this is where the fields are declared and what is in the fields

*write it straight so you're sure of the order of your select

DATA: e_struc TYPE y_type.

*e_struc is one line of the internal table (headerline)

*it inherits the characteristics of y_type

DATA: i_tab TYPE TABLE OF y_type WITH HEADER LINE.

*creates a table i_tab with fields in y_type

*name of the table, scarr is the carrier ID (primary key) it holds

*airline info

*name of the table, this holds the flight schedule.

SELECT-OPTIONS: s_carrid FOR scarr-carrid.

SELECT-OPTIONS: s_connid FOR spfli-connid.

*s_carrid is for my option SCARR and s_connid is for my option SPFLI.

*scarr-carrid is my field

*spfli-connid is my field

*SCARR AND SPFLI are transparent tables

SELECT scarr~carrid

spfli~connid

scarr~carrname

spfli~arrtime

spfli~deptime

FROM spfli INNER JOIN scarr ON scarr~carrid = spfli~carrid INTO

table i_tab WHERE scarr~carrid IN s_carrid AND spfli~connid IN s_connid.

*selects the fields needed corresponding to the SCARR and SPFLI table

*and joins the same fields into one internal table.

LOOP AT i_tab INTO e_struc.

*so the fields in e_struc will go to the internal table

WRITE: / e_struc-fld1, / e_struc-fld2, / e_struc-fld3,

/ e_struc-fld4, / e_struc-fld5.

*writes the output

ENDLOOP.

Subroutine

2007-10-14T19:12:00.000-07:00

1. SUBROUTINES

**** DECLARATIONS ****

CONSTANTS: c_no1 TYPE i VALUE 12,

c_no2 TYPE i VALUE 6,

c_oper TYPE c VALUE 'X'.

DATA: w_result TYPE i.

PARAMETERS: p_add RADIOBUTTON GROUP rad1,

p_sub RADIOBUTTON GROUP rad1,

p_mul RADIOBUTTON GROUP rad1,

p_div RADIOBUTTON GROUP rad1.

*data: w_int type i.

*w_int = 5.

**** CASE ****

* decides which operation to perform

* based on what the user chooses

* whether it be to add, multiply, subtract,

* divide

CASE c_oper.

WHEN p_add.

PERFORM f_compute_sum USING c_no1 c_no2.

PERFORM f_display USING w_result.

WHEN p_sub.

PERFORM f_compute_dif USING c_no1 c_no2.

PERFORM f_display USING w_result.

WHEN p_mul.

PERFORM f_compute_mul USING c_no1 c_no2.

PERFORM f_display USING w_result.

WHEN p_div.

PERFORM f_compute_quo USING c_no1 c_no2.

PERFORM f_display USING w_result.

ENDCASE.

*write: / w_int.

**** SUBROUTINES PASSING VALUES BY REFERENCE ****

* here the values of the two constants are

* passed to the subroutines by reference

**** SUM ****

* computes for the sum of the two numbers

FORM f_compute_sum USING c_no1 c_no2.

w_result = c_no1 + c_no2.

* f_no3 = 10.

ENDFORM.

**** DIFF ****

* computes for the difference of the two numbers

FORM f_compute_dif USING f_no1 f_no2.

w_result = f_no1 - f_no2.

ENDFORM.

**** SUBROUTINES PASSING VALUES BY VALUE ****

* here the values of the two constants are

* passed to the subroutines by value

**** MULTIPLY *****

* computes for the product of the two numbers

FORM f_compute_mul USING value(f_no1)

value(f_no2).

w_result = f_no1 * f_no2.

ENDFORM.

**** DIVIDE ****

* computes for the quotient of the two numbers

FORM f_compute_quo USING value(f_no1)

value(f_no2).

w_result = f_no1 / f_no2.

ENDFORM.

**** RESULT ****

* displays the result

FORM f_display USING f_result.

WRITE f_result.

ENDFORM.

Checks for PRIME AND COMPOSITE

2007-10-14T19:10:00.000-07:00

REPORT yoddeven_camelo.

PARAMETERS: p_num TYPE i.

DATA: w_num TYPE i,

w_mod TYPE i,

w_input TYPE i,

w_loop TYPE i.

w_input = p_num + 1.

DO w_input TIMES.

w_num = sqrt( w_loop ).

DO w_num TIMES.

w_mod = w_loop MOD w_num.

IF w_num EQ 1.

WRITE: / w_loop, 'is a prime number'.

EXIT.

ENDIF.

IF w_mod IS INITIAL.

WRITE: / w_loop, 'is a composite number'.

EXIT.

ENDIF.

SUBTRACT 1 FROM w_num.

ENDDO.

ADD 1 TO w_loop.

ENDDO.

Checks for ODD AND EVEN

2007-10-14T19:08:00.000-07:00

REPORT YODDEVEN_CAMELO .

PARAMETERS: p_int type i obligatory default 5.

DATA: w_ans type i.

DATA: w_ansx type i.

WRITE: 10 '0'.

WRITE: 13 'is niether'.

do p_int times.

CASE SY-index.

w_ans = p_int mod 2.

w_ansx = sy-index mod 2.

WHEN p_int.

IF w_ansx EQ 1.

Write: / sy-index, 'is odd'.

Else.

Write: / sy-index, 'is even'.

ENDIF.

WHEN OTHERS.

IF w_ansx EQ 1.

Write: / sy-index, 'is odd'.

Else.

Write: / sy-index, 'is even'.

ENDIF.

ENDCASE.

enddo.

Group Program 1: Fibonacci

2007-10-14T19:05:00.000-07:00

REPORT YGROUP_3 .

TYPES: BEGIN OF y_type,

fld1 TYPE i,

fld2 TYPE i,

END OF y_type.

DATA: e_struc TYPE y_type,

w_prev TYPE i.

DATA: i_tab TYPE TABLE OF y_type WITH HEADER LINE.

i_tab-fld1 = 1.

DO 35 TIMES.

i_tab-fld2 = i_tab-fld1 + w_prev.

APPEND i_tab.

w_prev = i_tab-fld1.

i_tab-fld1 = i_tab-fld2.

ENDDO.

LOOP AT i_tab.

WRITE: / i_tab-fld2.

ENDLOOP.

SY-SUBRC

2007-10-14T19:01:00.000-07:00

REPORT y07102007_camelo .

PARAMETERS: p_int type i obligatory default 5.

do p_int times.

CASE SY-SUBRC.

WHEN p_int.

WRITE: / 'Last number is' , sy-index.

WHEN OTHERS.

WRITE: / sy-index.

ENDCASE.

enddo.

NOTE: sy-subrc checks if the previous statement is successful or not.

PART 2

REPORT y07102007_camelo .

PARAMETERS: p_int type i obligatory default 5.

do p_int times.

CASE SY-index.

WHEN p_int.

WRITE: / 'Last number is' , sy-index.

WHEN OTHERS.

WRITE: / sy-index.

ENDCASE.

enddo.

PART 3

REPORT y07102007_camelo .

PARAMETERS: p_int type i obligatory default 5.

DATA: begin of i_tab occurs 0,

char(30) type c,

end of i_tab.

i_tab-char = 'asd'. APPEND i_tab.

loop at i_tab.

ENDLOOP.

if sy-index IS INITIAL.

WRITE: / 'i_tab is not empty'.

else.

WRITE: / 'i_tab is empty'.

endif.

Multiplication Table with sy-tabix (or loop)

2007-10-14T18:59:00.000-07:00

REPORT yexer2_camelo .

TYPES: begin of y_type,

fld1 type i,

fld2 type i,

end of y_type.

DATA: e_struc type y_type.

DATA: w_ans TYPE i.

DATA: i_tab TYPE TABLE OF y_type with header line.

DATA: begin of i_tab2 occurs 0,

fld1 type i,

fld2 type i,

end of i_tab2.

do 20 times.

APPEND i_tab.

MOVE: sy-tabix to w_ans.

MULTIPLy: w_ans by 2.

write: / sy-tabix, w_ans.

if sy-index eq 20.

exit.

endif.

enddo.

REPORT YEXER2_DURAN .

TYPES: begin of y_type,

fld1 type i,

fld2 type i,

end of y_type.

DATA: e_struc type y_type.

DATA: i_tab TYPE TABLE OF y_type with header line.

do 20 times.

i_tab-fld1 = i_tab-fld1 + 1.

i_tab-fld2 = i_tab-fld1 * 2.

APPEND i_tab.

enddo.

loop at i_tab.

Write: / i_tab-fld1, i_tab-fld2.

endloop.

Tables with Column and Rows

2007-10-14T18:57:00.000-07:00

REPORT YXX_XP .

TYPES: begin of y_type,

fld1 type c,

fld2 type i,

end of y_type.

DATA: e_struc type y_type.

DATA: i_tab TYPE TABLE OF y_type with header line.

DATA: begin of i_tab2 occurs 0,

fld1 type c,

fld2 type i,

end of i_tab2.

i_tab-fld1 = 'a'.

i_tab-fld2 = 1.

APPEND i_tab.

i_tab-fld1 = 'b'.

i_tab-fld2 = 2.

APPEND i_tab.

i_tab-fld1 = 'c'.

i_tab-fld2 = 3.

APPEND i_tab.

i_tab-fld1 = 'd'.

i_tab-fld2 = 4.

APPEND i_tab.

break-point.

clear i_tab.

loop at i_tab from 2 to 3.

write: / sy-tabix, i_tab-fld1, i_tab-fld2.

endloop.

do 6 times.

write: / 'a'.

if sy-index eq 5.

exit.

endif.

enddo.

break-point.

while sy-index <>

write: sy-index.

endwhile.

Table

2007-10-14T18:55:00.000-07:00

REPORT ygyl_tab.

Types: begin of y_type,

fld1 type c,

fld2 type i,

end of y_type.

data: e_struc type y_type.

data: i_tab type table of y_type with header line.

data: begin of i_tab2 occurs 0,

fld1 type c,

fld2 type i,

end of i_tab2.

i_tab-fld1 = 'a'.

i_tab-fld2 = '1'.

append i_tab.

i_tab-fld1 = 'b'.

i_tab-fld2 = '2'.

append i_tab.

i_tab-fld1 = 'c'.

i_tab-fld2 = '3'.

append i_tab.

loop at i_tab.

write: / i_tab-fld1,

/ i_tab-fld2.

endloop.

Operators

2007-10-14T18:53:00.000-07:00

*CO = contains only

*CA = contains any

*CP = contains pattern

REPORT yexer1_camelo .

TYPES: y_type(10) TYPE c ,

y_type2(5) TYPE c .

DATA: w_in1 TYPE y_type ,

w_in2 TYPE y_type2 ,

w_ans TYPE y_type2 ,

w_true TYPE y_type2 ,

w_false TYPE y_type2 .

PARAMETER: p_in1 TYPE y_type OBLIGATORY .

PARAMETER: p_in2 TYPE y_type2 OBLIGATORY .

PARAMETER: p_cp RADIOBUTTON GROUP gr_a .

PARAMETER: p_ca RADIOBUTTON GROUP gr_a .

PARAMETER: p_cs RADIOBUTTON GROUP gr_a .

PARAMETER: p_co RADIOBUTTON GROUP gr_a .

PARAMETER: p_not AS CHECKBOX .

w_true = 'TRUE'.

w_false = 'FALSE'.

IF p_cp EQ 'X' .

w_in1 = p_in1 .

w_in2 = p_in2 .

IF w_in1 CP w_in2.

MOVE: w_true to w_ans .

ELSE.

MOVE: w_false to w_ans .

ENDIF.

ELSEIF p_ca EQ 'X' .

w_in1 = p_in1 .

w_in2 = p_in2 .

IF w_in1 CA w_in2.

MOVE: w_true to w_ans .

ELSE.

MOVE: w_false to w_ans .

ENDIF.

ELSEIF p_cs EQ 'X' .

w_in1 = p_in1 .

w_in2 = p_in2 .

IF w_in1 CS w_in2.

MOVE: w_true to w_ans .

ELSE.

MOVE: w_false to w_ans .

ENDIF.

ELSEIF p_co EQ 'X' .

w_in1 = p_in1 .

w_in2 = p_in2 .

IF w_in1 CO w_in2.

MOVE: w_true to w_ans .

ELSE.

MOVE: w_false to w_ans .

ENDIF.

IF p_not EQ 'X' .

IF w_ans EQ w_true.

WRITE: w_false.

ELSE.

WRITE: w_true.

ENDIF.

ELSE.

REPORT ygyl_op .

DATA: w_var1(5) TYPE c,

w_var2(5) TYPE c,

w_var3(20) TYPE c.

w_var1 = 'QWERT'.

w_var2 = 'QWERT'.

*CO = contains only

*CA = contains any

*CP = contains pattern

IF w_var1 CO w_var2.

WRITE: / 'CO'.

ENDIF.

IF w_var1 CA w_var2.

WRITE: / 'CA'.

ENDIF.

IF w_var1 CP w_var2.

WRITE: / 'CP'.

ENDIF.

Sample Calculator Program

2007-10-14T18:50:00.000-07:00

REPORT zexer2_camelo .

PARAMETER: p_in1 TYPE i .

PARAMETER: p_in2 TYPE i .

PARAMETER: p_add RADIOBUTTON GROUP gr_a .

PARAMETER: p_sub RADIOBUTTON GROUP gr_a .

PARAMETER: p_mul RADIOBUTTON GROUP gr_a .

PARAMETER: p_div RADIOBUTTON GROUP gr_a .

PARAMETER: p_5 AS CHECKBOX .

PARAMETER: p_10 AS CHECKBOX .

IF p_5 EQ 'X' .

WRITE: ' ' .

ENDIF .

IF p_10 EQ 'X' .

WRITE: ' ' .

ENDIF .

DATA: w_ans TYPE string .

IF p_add EQ 'X' .

ADD: p_in1 TO p_in2 .

MOVE: p_in2 TO w_ans .

WRITE: w_ans .

ELSEIF p_sub EQ 'X' .

SUBTRACT: p_in2 FROM p_in1 .

MOVE: p_in1 TO w_ans .

WRITE: w_ans .

ELSEIF p_mul EQ 'X' .

MULTIPLY: p_in1 BY p_in2 .

MOVE: p_in1 TO w_ans .

WRITE: w_ans .

ELSEIF p_div EQ 'X' .

DIVIDE: p_in1 BY p_in2 .

MOVE: p_in1 TO w_ans .

WRITE: w_ans .

ENDIF .

Checkbox and Radio Button

2007-10-14T18:48:00.000-07:00

IF Checkbox is checked it will display YES. Click on a Radiobutton to display Yes

REPORT ygyl_chk .

PARAMETER: p_chk1 AS CHECKBOX .

PARAMETER: p_btn1 radiobutton group gr_a.

PARAMETER: p_btn2 radiobutton group gr_a.

IF p_chk1 EQ 'X' .

WRITE: 'YES' .

ELSE .

WRITE: 'NO' .

ENDIF .

IF p_btn1 EQ 'X' .

WRITE: / 'YES 1' .

ELSE .

WRITE: / 'NO 1' .

ENDIF .

IF p_btn2 EQ 'X' .

WRITE: / 'YES 2' .

ELSE .

WRITE: / 'NO 2' .

ENDIF .

Structure Declaration 2 (w/ checkbox)

2007-10-14T18:46:00.000-07:00

REPORT ygyl_struc .

TYPES: BEGIN OF y_struc ,

name(25) TYPE c ,

age(20) TYPE i ,

bday TYPE sy-datum ,

cell(11) TYPE n ,

END OF y_struc .

PARAMETER: p_struc TYPE y_struc .

PARAMETER: p_chk1 AS CHECKBOX .

DATA: e_struc TYPE y_struc .

MOVE: 'GYL CAMELO' to e_struc-name .

MOVE: '20' to e_struc-age .

MOVE: '19870201' to e_struc-bday .

MOVE: '09175294833' to e_struc-cell .

WRITE: / p_struc ,

/ p_chk1 ,

/ e_struc-name ,

/ e_struc-age ,

/ e_struc-bday ,

/ e_struc-cell .

Structure Declaration

2007-10-14T18:43:00.000-07:00

REPORT ygyl_struc .

TYPES: BEGIN OF y_struc ,

name(25) TYPE c ,

age(20) TYPE i ,

bday TYPE sy-datum ,

cell(11) TYPE n ,

END OF y_struc .

DATA: e_struc TYPE y_struc .

e_struc-name = 'GYL CAMELO' .

e_struc-age = '20' .

e_struc-bday = '19870201' .

e_struc-cell = '09175294833' .

WRITE: / e_struc-name ,

/ e_struc-age ,

/ e_struc-bday ,

/ e_struc-cell .

REPORT ygyl_struc .

TYPES: BEGIN OF y_struc ,

name(25) TYPE c ,

age(20) TYPE i ,

bday TYPE sy-datum ,

cell(11) TYPE n ,

END OF y_struc .

DATA: e_struc TYPE y_struc .

MOVE: 'GYL CAMELO' to e_struc-name .

MOVE: '20' to e_struc-age .

MOVE: '19870201' to e_struc-bday .

MOVE: '09175294833' to e_struc-cell .

WRITE: / e_struc-name ,

/ e_struc-age ,

/ e_struc-bday ,

/ e_struc-cell .

First Sample Program

2007-10-14T18:42:00.001-07:00

REPORT zexer1_camelo .

TYPES: y_fname(25) TYPE c ,

y_fname2 TYPE y_fname .

TYPES: y_lname(20) TYPE c ,

y_lname2 TYPE y_lname .

TYPES: y_age(2) TYPE i ,

y_age2 TYPE y_age .

TYPES: y_bday LIKE sy-datum,

y_bday2 TYPE y_bday .

TYPES: y_add(50) TYPE c ,

y_add2 TYPE y_add .

TYPES: y_ymid(25) TYPE c ,

y_ymid2 TYPE y_ymid .

TYPES: y_cel(11) TYPE n ,

y_cel2 TYPE y_cel .

DATA: w_fname TYPE y_fname2 .

DATA: w_lname TYPE y_lname2 .

DATA: w_age TYPE y_age2 .

DATA: w_bday TYPE y_bday2 .

DATA: w_add TYPE y_add2 .

DATA: w_ymid TYPE y_ymid2 .

DATA: w_cel TYPE y_cel2 .

CONSTANTS: c_constant1(31) TYPE c VALUE

'This is my first real exercise.'.

CONSTANTS: c_constant2(31) TYPE c VALUE 'I am:'.

PARAMETERS: p_fname TYPE y_fname OBLIGATORY DEFAULT 'ARGYL'.

PARAMETERS: p_lname TYPE y_lname OBLIGATORY DEFAULT 'CAMELO'.

PARAMETERS: p_age TYPE y_age DEFAULT '20'.

PARAMETERS: p_bday TYPE y_bday DEFAULT '19870201' .

PARAMETERS: p_add TYPE y_add

DEFAULT '100 San Rafael Street Mandaluyong'.

PARAMETERS: p_ymid TYPE y_ymid OBLIGATORY

DEFAULT 'gyliseternal’.

PARAMETERS: p_cel TYPE y_cel DEFAULT '09175294833'.

MOVE p_fname TO w_fname .

MOVE p_lname TO w_lname .

MOVE p_age TO w_age .

MOVE p_bday TO w_bday .

MOVE p_add TO w_add .

MOVE p_ymid TO w_ymid .

MOVE p_cel TO w_cel .

WRITE: / c_constant1,

/ c_constant2,

/6 w_fname,

/10 w_lname,

/7 w_age,

/16 w_bday,

/15 w_add,

/10 w_ymid,

/6 w_cel.

Selection Text Basics

2007-10-14T18:40:00.001-07:00

Selection Text Basics just follow the screen shots:

Activate Afterwards

Y Type and Default Basics

2007-10-14T18:39:00.001-07:00

REPORT ygyl_test1 .

TYPES: y_type(20) TYPE c ,

y_type2 TYPE y_type .

DATA: w_char TYPE y_type2 value 'asd' ,

w_char2(10) TYPE c ,

w_char3(10) TYPE c ,

w_char4(8) TYPE c .

CONSTANTS: c_constant1(10) TYPE c VALUE '12345678910'.

PARAMETERS: p_input TYPE y_type DEFAULT 'ASD' .

WRITE: / c_constant1 ,

/ w_char .

Constants Basic

2007-10-14T18:35:00.000-07:00

REPORT ygyl_test1 .

CONSTANTS: c_constant(10) TYPE c VALUE 'VALUE1' .

PARAMETERS: p_prmtr1(10) TYPE c OBLIGATORY .

PARAMETERS: p_prmtr2(8) TYPE c .

PARAMETERS: p_prmtr3(10) TYPE c OBLIGATORY .

PARAMETERS: p_prmtr4(8) TYPE c .

PARAMETERS: p_prmtr5 LIKE p_prmtr1 .

PARAMETERS: p_prmtr6 LIKE p_prmtr2 .

WRITE: 'PARAMETER1:' ,

p_prmtr1 ,

/ 'PARAMETER2:' ,

p_prmtr2 ,

/ 'PARAMETER3:' ,

p_prmtr3 ,

/ 'PARAMETER4:' ,

p_prmtr4 ,

/ 'PARAMETER5:' ,

p_prmtr5 ,

/ 'PARAMETER6:' ,

p_prmtr6 ,

/ c_constant .

IF p_prmtr1 EQ 'GYL' .

SKIP 10 .

WRITE: 'PASSWORD CORRECT' .

ELSEIF p_prmtr1 EQ 'GYLX' .

SKIP 10 .

WRITE: 'PASSWORD CORRECTX' .

ELSE .

SKIP 10 .

WRITE: 'PASSWORD INCORRECT' .

ENDIF .

Else IF and IF Else Combo-Nation

2007-10-14T18:31:00.000-07:00

REPORT ygyl_test1 .

PARAMETERS: p_prmtr1(10) TYPE c OBLIGATORY .

PARAMETERS: p_prmtr2(8) TYPE c .

PARAMETERS: p_prmtr3(10) TYPE c OBLIGATORY .

PARAMETERS: p_prmtr4(8) TYPE c .

PARAMETERS: p_prmtr5 LIKE p_prmtr1 .

PARAMETERS: p_prmtr6 LIKE p_prmtr2 .

WRITE: 'PARAMETER1:' ,

p_prmtr1 ,

/ 'PARAMETER2:' ,

p_prmtr2 ,

/ 'PARAMETER3:' ,

p_prmtr3 ,

/ 'PARAMETER4:' ,

p_prmtr4 ,

/ 'PARAMETER5:' ,

p_prmtr5 ,

/ 'PARAMETER6:' ,

p_prmtr6 .

IF p_prmtr1 EQ 'GYL' .

SKIP 10 .

WRITE: 'PASSWORD CORRECT' .

ELSE .

SKIP 10 .

WRITE: 'PASSWORD INCORRECT' .

ENDIF .

Using Like

2007-10-14T18:20:00.000-07:00

REPORT YGYL_DATE .

PARAMETERS: p_date LIKE sy-datum OBLIGATORY .

WRITE: 'The date you entered is' ,

p_date .

Printing Date Output and Obligatory

2007-10-14T18:18:00.000-07:00

REPORT YGYL_DATE .

DATA: w_char TYPE D .

PARAMETERS: p_date TYPE D OBLIGATORY .

MOVE p_date TO w_char .

WRITE: 'The date you entered is' ,

w_char .

OR

REPORT YGYL_DATE .

PARAMETERS: p_date TYPE D OBLIGATORY .

WRITE: 'The date you entered is' ,

p_date .

P = Packed Number

I = Integer

F = Floating Point Number

C = Character / Test

N = Numeric Text

D = Date (YYYY/MM/DD)

T = Time (HH:MM:SS)

X = hexadecimal

REMEMBER:

OBLIGATORY = put on all parameters to indicate that it requires the field to be filled before the program runs.

Color Basics

2007-10-14T18:11:00.000-07:00

REPORT YGYL_TESTPROG .

DATA i TYPE i VALUE 0.

DATA col(15) TYPE c.

WHILE i <>

CASE i.

WHEN 0. col = 'COL_BACKGROUND '.

WHEN 1. col = 'COL_HEADING '.

WHEN 2. col = 'COL_NORMAL '.

WHEN 3. col = 'COL_TOTAL '.

WHEN 4. col = 'COL_KEY '.

WHEN 5. col = 'COL_POSITIVE '.

WHEN 6. col = 'COL_NEGATIVE '.

WHEN 7. col = 'COL_GROUP '.

ENDCASE.

FORMAT INTENSIFIED COLOR = i.

WRITE: /(4) i, AT 7 sy-vline,

col, sy-vline,

col INTENSIFIED OFF, sy-vline,

col INVERSE.

i = i + 1.

ENDWHILE.

Basic Declarations

2007-10-14T18:06:00.000-07:00

REPORT YGYL_DECLARATION .

DATA: w_char(50) TYPE C ,

w_charx(50) TYPE C ,

w_num TYPE I .

PARAMETERS: P_FNAME(20) TYPE C .

PARAMETERS: P_LNAME(20) TYPE C .

PARAMETERS: P_AGE TYPE I .

MOVE P_FNAME TO w_char .

MOVE P_LNAME TO w_charx .

MOVE P_AGE TO w_num .

WRITE: w_char ,

/ w_charx .

SKIP 2 .

WRITE w_num .

Hello World = Spacing Basics 2

2007-10-14T18:01:00.000-07:00

REPORT YGYL_HELLOWORLD .

WRITE: / 'ARGYL' .

SKIP 2 .

WRITE: /5 'CAMELO' .

SKIP 2 .

WRITE: /10 SY-DATUM(4) . “(NUMBER) = MEANS THAT IT’LL ONLY PRINT THE

NUMBER

SKIP 2 .

WRITE: /19 SY-UZEIT(4) .

Hello World = Spacing Basics

2007-10-14T17:51:00.000-07:00

REPORT YGYL_HELLOWORLD .

WRITE: 'HELLO WORLD' .

SKIP 10 . “CREATES A SPACE OF TEN ENTERS

WRITE: / 'Argyl' ,

/ ,

/5 'Camelo' ,

/10 'June 20, 2007' ,

/22 SY-DATUM ,

/31 SY-UZEIT .

The Basics: ABAP Intro!

2007-08-16T09:53:00.000-07:00

     ABAP : MADE EASY

ABAP:Made easy guide
by Gyl The World of Wonders
J-Mastah (JM the teachuh Macariola)
Copyright 2007. ACB 402. Demshit! Foreward.



// The StartingSampleProgram //

REPORT ygylisgod.   "customized program name
"abap is just the single code
WRITE 'ABAP'.  "Literals - case sensitive

WRITE 'Allan''s ABAP'. "it will be two literal because of the ' katumbas ng backlash ay ' para lumabas ang isa pang'

WRITE 'Hello " World'.

WRITE / 'HELLO WORLD'. " / FOR ENTER


Output  
ABAP Allan's ABAP Hello " World
HELLO WORLD






// The Hello World Program //

*(shortest program ever! O_O WOW!!)
* Asterisk (*) is comment for the whole line
* Double Quote (") is comment in the middle
REPORT ygylisgod.

WRITE 'Hello World'.



// EXERCISE //

Do the following output:

firstname
surname
ABAP

* : for the syntax to expect more than 1 parameter.


REPORT ygylisgod.

WRITE 'ARGYL'.
WRITE / 'CAMELO'.
WRITE / 'ABAP'.


OR


REPORT ygylisgod.

WRITE: 'ARGYL',/'CAMELO', / 'ABAP'.


OR


REPORT ygylisgod.

WRITE: 'ARGYL'   ,
/ 'CAMELO'  ,
/ 'ABAP'    ,
/ sy-datum  , "displays the date
/ sy-uzeit  . "displayes the time

Any number before the literal = creates a space ei.
WRITE: 10 'ARGYL'   ,
/ 20  'ARGYL'  .



REPORT ygylisgod.

WRITE:   'ARGYL'   ,
/            ,
/5  'CAMELO'  ,
/10 'ABAP'    ,
/22 sy-datum  ,
/31 sy-uzeit  .




colors
and
output 14a



// THE COMMANDS //


CTRL + F2 = CHECK SYNTAX
CTRL + F3 = ACTIVATE  = Reflects changes in your program
CTRL +S = SAVE
F3 = GO BACK
F6 = DEBUG/MODIFY
F8 = RUN

Ultimate ABAP Emancipation Mix

2007-08-14T09:30:00.000-07:00

All contents on this blog will be on ABAP Programming

EAT ABAP!!!