Let us Learn ABAP

Delimiting Infotype PA0016

2011-12-22T09:57:00.001-08:00

Will be updated soon

Play Music/Video from ABAP

2011-12-22T09:56:00.000-08:00

Will be updated soon ..
Any Suggestions would be highly appreciated.

Send SMS thru ABAP program

2011-12-22T09:53:00.001-08:00

Will be updated soon

Get ZL entries using FM 'HR_TIME_RESULTS_GET'

2011-12-22T09:51:00.000-08:00

*&---------------------------------------------------------------------*

*& Report ZTEST_ZL_ENTRIES

*&---------------------------------------------------------------------*

REPORT ZTEST_ZL_ENTRIES MESSAGE-ID zz.

TABLES : pa0001 , t549a , t549q .*--Types declaration

TYPES: BEGIN OF t_t569v,
abkrs TYPE t569v-abkrs, "Payroll Area

pabrj TYPE t569v-pabrj, "Accounting year

pabrp TYPE t569v-pabrp, "Accounting period

END OF t_t569v.*--For PA0001

TYPES: BEGIN OF ty_0001,

pernr TYPE pa0001-pernr,

begda TYPE pa0001-begda,

werks TYPE pa0001-werks,

END OF ty_0001.*--Final internal table

TYPES: BEGIN OF ty_final,

PERNR TYPE PA0000-PERNR,

reg_hour(8) TYPE c,

ot_hour(8) TYPE c,

END OF ty_final.

*--Internal table and work area declarations

DATA : it_0001 TYPE STANDARD TABLE OF ty_0001,

wa_0001 TYPE ty_0001,

it_final TYPE STANDARD TABLE OF ty_final,

wa_final TYPE ty_final,

it_zl type standard table of pc2bf,

wa_zl type pc2bf,

wa_t569v TYPE t_t569v.
*--Global variables declarationDATA : gv_lines TYPE i,

gv_pabrj TYPE t569v-pabrj, "Accounting year

gv_pabrp TYPE t569v-pabrp, "Accounting period

gv_iperm TYPE pc261-iperm. "Period parameters
*--Constants declaration

CONSTANTS: gc_vwsaz TYPE t569v-vwsaz VALUE 01.
*--Payroll period selections

SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.

SELECTION-SCREEN BEGIN OF LINE.

SELECTION-SCREEN COMMENT 01(20) text-002.

SELECT-OPTIONS: s_abkrs FOR pa0001-abkrs NO INTERVALS

NO-EXTENSION OBLIGATORY.

SELECTION-SCREEN POSITION 32.

SELECTION-SCREEN COMMENT 34(05) text-007 MODIF ID dtg.

SELECTION-SCREEN POSITION 40.

PARAMETERS: p_begda TYPE sy-datum MODIF ID dtg.

SELECTION-SCREEN COMMENT 52(03) text-006 MODIF ID dtg.

SELECTION-SCREEN POSITION 57.

PARAMETERS: p_endda TYPE sy-datum MODIF ID dtg.

SELECTION-SCREEN END OF LINE.
*-- Current period

SELECTION-SCREEN BEGIN OF LINE .

PARAMETERS: rb_timr9 TYPE qppnp-timr9 RADIOBUTTON GROUP grp1.

SELECTION-SCREEN COMMENT 04(20) text-003 FOR FIELD rb_timr9.

SELECTION-SCREEN POSITION 25.

PARAMETERS: p_dispp TYPE qppnp-pabrp MODIF ID cpi,

p_dispj TYPE qppnp-pabrj MODIF ID cpi.

SELECTION-SCREEN END OF LINE.

*-- Other period

SELECTION-SCREEN BEGIN OF LINE.

PARAMETERS: rb_timra TYPE qppnp-timra RADIOBUTTON GROUP grp1.

SELECTION-SCREEN COMMENT 04(20) text-004 FOR FIELD rb_timra.

SELECTION-SCREEN POSITION 25.

PARAMETERS: p_pabrp TYPE qppnp-pabrp,

p_pabrj TYPE qppnp-pabrj.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN END OF BLOCK b1.
*--Personnel area , number , file

SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-005.

PARAMETERS: p_werks TYPE pa0001-werks.

SELECT-OPTIONS : s_pernr FOR pa0001-pernr.

SELECTION-SCREEN END OF BLOCK b2.*-----------------------------------------------------------------------

* A T S E L E C T I O N S C R E E N O U T P U T

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

AT SELECTION-SCREEN OUTPUT.
*-- Display valid period parameters

PERFORM display_periods.*-----------------------------------------------------------------------

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

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

AT SELECTION-SCREEN.
*-- Validate control recordPERFORM validate_abkrs.
*-- Validate periods

PERFORM validate_periods.
*-- Get dates from periods

PERFORM get_dates.
*-----------------------------------------------------------------------

* START OF SELECTION

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

START-OF-SELECTION.
*-- Get initial data for the selection screen parameters

PERFORM get_data.
*--Populate final data

PERFORM fill_final.

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

* END OF SELECTION

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

END-OF-SELECTION.

*--Write log as to how many records are downloaded

PERFORM write_log.

*&---------------------------------------------------------------------*

*& Form display_periods

*&---------------------------------------------------------------------*

* Display valid period parameters

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

FORM display_periods.

LOOP AT SCREEN.

CASE screen-group1.

WHEN 'CPI'.

*-- If current period, display current period information

IF rb_timr9 = 'X'.

screen-input = '0'.

screen-output ='1'.

screen-invisible = '0'.

ELSE.

screen-input = '0'.

screen-output ='0'.

screen-invisible = '1'.

ENDIF.

MODIFY SCREEN.

*-- If other period is selected, display other period info

WHEN 'DTG'.

IF p_begda IS INITIAL.

screen-input = '0'.

screen-output ='0'.

screen-invisible = '1'.

ELSE.

screen-input = '0'.

screen-output ='1'.

screen-invisible = '0'.

ENDIF.

MODIFY SCREEN.

ENDCASE.

ENDLOOP.

ENDFORM. " display_periods

*&---------------------------------------------------------------------*

*& Form validate_periods

*&---------------------------------------------------------------------*

* Validate periods

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

FORM validate_periods.

*-- If current period is selected retrieve information from control

* record

IF rb_timr9 = 'X'.

IF NOT p_pabrp IS INITIAL OR

NOT p_pabrj IS INITIAL .

MESSAGE e000 WITH

'Other period value not allowed with Current Period'.

ENDIF.

gv_pabrp = wa_t569v-pabrp.

p_dispp = gv_pabrp.

gv_pabrj = wa_t569v-pabrj.

p_dispj = gv_pabrj.

ELSE.

*-- If other period is selected, validate required parameters

CLEAR: p_dispp,

p_dispj.

IF p_pabrp EQ 0 .

SET CURSOR FIELD 'P_PABRP' .

MESSAGE e000 WITH 'Invalid Accounting Month'.

ELSEIF p_pabrj EQ 0 .

SET CURSOR FIELD 'P_PABRJ'.

MESSAGE e000 WITH 'Invalid Accounting Year'.

ELSE.

gv_pabrp = p_pabrp.

gv_pabrj = p_pabrj.

ENDIF.

ENDIF.

ENDFORM. " validate_periods

*&---------------------------------------------------------------------*

*& Form validate_abkrs

*&---------------------------------------------------------------------*

* Validate control record

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

FORM validate_abkrs.

DATA : gv_subrc type sy-subrc.

*-- Check the control record

LOOP AT s_abkrs.

SELECT SINGLE abkrs

pabrj

pabrp

FROM t569v

INTO wa_t569v

WHERE abkrs = s_abkrs-low AND

vwsaz = gc_vwsaz.

gv_subrc = sy-subrc.

ENDLOOP.

IF gv_subrc <> 0.

MESSAGE e000 WITH 'Control Record Not Found'.

ENDIF.

ENDFORM. " validate_abkrs

*&---------------------------------------------------------------------*

*& Form get_dates

*&---------------------------------------------------------------------*

* Get dates from periods

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

FORM get_dates.

*-- Find the period modifier

LOOP AT s_abkrs.

SELECT SINGLE * FROM t549a WHERE abkrs = s_abkrs-low.

IF sy-subrc <> 0.

MESSAGE e000 WITH 'Period modifier does not exist!'.

ENDIF.

ENDLOOP.

*-- Save off period modifier

gv_iperm = t549a-permo.

*-- Determine the dates for the requested period

SELECT SINGLE * FROM t549q WHERE permo = gv_iperm AND

pabrj = gv_pabrj AND

pabrp = gv_pabrp.

IF sy-subrc <> 0.

MESSAGE e505(pg) WITH gv_pabrj gv_pabrp t549a-permo.

ELSE.

MOVE t549q-begda TO p_begda.

MOVE t549q-endda TO p_endda.

ENDIF.

ENDFORM. " get_dates*&---------------------------------------------------------------------*
*& Form get_data

*&---------------------------------------------------------------------*

* Get data from PA0001

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

FORM get_data .
*--Get data from PA0001

SELECT pernr begda werks

INTO TABLE it_0001

FROM pa0001

WHERE pernr IN s_pernr

AND endda GE p_begda

AND begda LE p_endda

AND werks EQ p_werks

AND abkrs IN s_abkrs.

IF sy-subrc = 0.

SORT it_0001 BY pernr begda DESCENDING.

DELETE ADJACENT DUPLICATES FROM it_0001 COMPARING pernr.

ENDIF.

ENDFORM. " get_data*&---------------------------------------------------------------------*

*& Form fill_final

*&---------------------------------------------------------------------*

* Fill final internal table

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

FORM fill_final .

CLEAR : it_final[] , wa_final.*--Loop thru PA0001 entries

LOOP AT it_0001 INTO wa_0001.

wa_final-pernr = wa_0001-pernr.
*--Get time results for the pernr and given payroll period and year

CALL FUNCTION 'HR_TIME_RESULTS_GET'

EXPORTING

get_pernr = wa_0001-pernr

get_pabrj = gv_pabrj

get_pabrp = gv_pabrp

get_cltyp = '1'

TABLES

get_zl = it_zl

EXCEPTIONS

no_period_specified = 1

wrong_cluster_version = 2

no_read_authority = 3

cluster_archived = 4

technical_error = 5.
*--Fill Hours for the wage types from ZL structure

LOOP AT it_zl INTO wa_zl.
*--Fill temp dept

CASE wa_zl-lgart.
*--For Regular hours

WHEN '3REG'. " Regular hours

wa_final-reg_hour = wa_final-reg_hour + wa_zl-anzhl.
*--For Overtime hours

WHEN '3OVT'. " Overtime hours

wa_final-ot_hour = wa_final-ot_hour + wa_zl-anzhl.

ENDCASE.

CLEAR : wa_zl.

ENDLOOP.
*--Append final table with the number of hours for the wage types

APPEND wa_final TO it_final.

endloop.

ENDFORM. " fill_final*&---------------------------------------------------------------------*

*& Form write_log

*&---------------------------------------------------------------------*

* Write log

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

FORM write_log .

IF NOT it_final[] IS INITIAL.

LOOP AT IT_FINAL INTO WA_FINAL.

WRITE :/1 wa_final-pernr,

15 wa_final-reg_hour ,

30 wa_final-OT_hour.

ENDLOOP.

else.

MESSAGE i000(zz) WITH 'No data found for the selection criteria'.

ENDIF.

ENDFORM. " write_log

HR_INFOTYPE_OPERATION in Dynamic action

2011-12-22T09:46:00.000-08:00

Will be updated soon

Get work week begin and end dates for a given date

2011-12-22T09:43:00.000-08:00

Report zget_wweek_dates.

*Get work week begin and end dates for a given date

tables : pernr , t559a.
infotypes : 0007.

DATA: posid(2).
DATA: pack TYPE p.
DATA: p_wweek LIKE p0007-wweek.
DATA: edatum TYPE d.
DATA: ldatum TYPE d.

PARAMETERS : p_date TYPE sy-datum.

start-of-selection.
rp-lowdate-highdate.
rp-def-time-period.
rp-def-boolean.

GET pernr.

*-----getting current workweek
CLEAR p_wweek.
LOOP AT p0007 WHERE begda <= p_date AND endda >= p_date.
p_wweek = p0007-wweek.
EXIT.
ENDLOOP.

IF p_wweek IS NOT INITIAL.
SELECT SINGLE * FROM t559a WHERE wweek EQ p_wweek.

IF t559a-wleng IS INITIAL.
posid = '00'.
ELSE.
pack = ( p_date - t559a-wdate ) MOD t559a-wleng + 1.
UNPACK pack TO posid.
ENDIF.
ELSE.
posid = '00'.
ENDIF.

IF posid = '00'.
ldatum = edatum = high-date.
ELSE.
ldatum = p_date - posid + 1. " Begin date
edatum = p_date - posid + t559a-wleng. " End date
ENDIF.

end-of-selection.

Translate first character to Upper case

2011-10-12T23:13:00.000-07:00

FUNCTION ZSTRING_TO_INITIALCAPS.
*"----------------------------------------------------------------------
*"*"Local interface:
*" IMPORTING
*" VALUE(INSTRING) TYPE C
*" EXPORTING
*" VALUE(OUTSTRING) TYPE C
*"----------------------------------------------------------------------

constants: c_delimiter(21) value ' .()-{}[]/#1234567890'.

data: v_instring(80) type c,
v_len type i,
v_char type c,
i type i,
j type i.

v_instring = instring.
check not v_instring is initial.

translate v_instring to lower case.
condense v_instring.
* Translate first character to upper case
v_char = v_instring+0(1).
translate v_char to upper case.
v_instring+0(1) = v_char.

v_len = strlen( v_instring ).
v_len = v_len - 1. " Translate next char
i = 1. " Start from 2nd char

while i < v_len.

if v_instring+i(1) CA c_delimiter.
j = i + 1. " Translate next char
v_char = v_instring+j(1).
translate v_char to upper case.
v_instring+j(1) = v_char.
endif.

i = i + 1.

endwhile.

outstring = v_instring.

ENDFUNCTION.

Send Greetings mail on Birthday

2011-03-21T01:56:00.000-07:00

REPORT zbirthday MESSAGE-ID zhr.

DATA : BEGIN OF it_pa0002 OCCURS 0,
pernr LIKE pa0002-pernr,
nachn LIKE pa0002-nachn,
vorna LIKE pa0002-vorna,
gbdat like pa0002-gbdat,
END OF it_pa0002.

DATA : BEGIN OF it_pa0000 OCCURS 0,
pernr LIKE pa0000-pernr,
END OF it_pa0000.

START-OF-SELECTION.

SELECT pernr nachn vorna gbdat
FROM pa0002
INTO TABLE it_pa0002
WHERE endda >= sy-datum
AND begda <= sy-datum .

IF sy-subrc = 0.
SORT it_pa0002 BY pernr.
DELETE ADJACENT DUPLICATES FROM it_pa0002 COMPARING pernr.
ELSE.
MESSAGE i000 WITH 'No records exist'.
STOP.
ENDIF.

SELECT pernr FROM pa0000
INTO TABLE it_pa0000
FOR ALL ENTRIES IN it_pa0002
WHERE pernr = it_pa0002-pernr
AND endda >= sy-datum
AND begda <= sy-datum
AND stat2 = '3'.

IF sy-subrc = 0.
SORT it_pa0000 BY pernr.
DELETE ADJACENT DUPLICATES FROM it_pa0000 COMPARING pernr.
ELSE.
MESSAGE i000 WITH 'No records exist'.
STOP.
ENDIF.

*--Send Mail
LOOP AT it_pa0000.

PERFORM send_mail.

ENDLOOP.

END-OF-SELECTION.

*&---------------------------------------------------------------------*
*& Form SEND_MAIL
*&---------------------------------------------------------------------*
* Send Mail
*----------------------------------------------------------------------*
FORM send_mail.

DATA : lit_objpack LIKE sopcklsti1 OCCURS 0 WITH HEADER LINE,
lit_objtxt LIKE solisti1 OCCURS 0 WITH HEADER LINE,
lit_objbin LIKE solisti1 OCCURS 0 WITH HEADER LINE,
lit_reclist LIKE somlreci1 OCCURS 0 WITH HEADER LINE.

DATA : dl_objhead TYPE soli_tab,
dl_doc_chng TYPE sodocchgi1,
dl_lines_bin TYPE i,
dl_lines_txt TYPE i.

clear : it_pa0002.

READ TABLE it_pa0002 WITH KEY pernr = it_pa0000-pernr.
IF it_pa0002-gbdat+4(4) = sy-datum+4(4).

*--Body of the Mail
CONCATENATE 'Dear' it_pa0002-vorna it_pa0002-nachn ',' INTO lit_objtxt
SEPARATED BY space.
APPEND lit_objtxt.

lit_objtxt = ''.
APPEND lit_objtxt.

CONCATENATE 'Wish you a Very Happy Birthday!' '' INTO
lit_objtxt SEPARATED BY space.
APPEND lit_objtxt.

lit_objtxt = ''.
APPEND lit_objtxt.

lit_objtxt = 'Regards,'.
APPEND lit_objtxt.

lit_objtxt = 'HR Team.'.
APPEND lit_objtxt.

DESCRIBE TABLE lit_objtxt LINES dl_lines_txt.

***---Document information.
CONCATENATE 'Birthday' '' INTO dl_doc_chng-obj_name
SEPARATED BY space.

CONCATENATE 'Birthday' ' Greetings' INTO dl_doc_chng-obj_descr
SEPARATED BY space.

dl_doc_chng-sensitivty = 'F'. "Functional object
dl_doc_chng-obj_langu = sy-langu.

lit_objpack-transf_bin = space.
lit_objpack-head_start = 1.
lit_objpack-head_num = 0.
lit_objpack-body_start = 1.
lit_objpack-body_num = dl_lines_txt.
lit_objpack-doc_type = 'RAW'.
APPEND lit_objpack.

*-- E-mail receivers
SELECT SINGLE
usrid_long
FROM pa0105
INTO lit_reclist-receiver
WHERE pernr = it_pa0000-pernr
AND subty = '0010'.
IF sy-subrc = 0.
lit_reclist-rec_type = 'U'.
APPEND lit_reclist.
ENDIF.

*-- Fill in HR or Managers Email ID
* lit_reclist-receiver = ''.
* lit_reclist-copy = 'X'.
* lit_reclist-rec_type = 'U'.
* APPEND lit_reclist.

*--Sending mail.
IF lit_reclist[] IS NOT INITIAL.
CALL FUNCTION 'SO_DOCUMENT_SEND_API1'
EXPORTING
document_data = dl_doc_chng
put_in_outbox = 'X'
commit_work = 'X'
TABLES
packing_list = lit_objpack
contents_txt = lit_objtxt
receivers = lit_reclist
EXCEPTIONS
too_many_receivers = 1
document_not_sent = 2
document_type_not_exist = 3
operation_no_authorization = 4
parameter_error = 5
x_error = 6
enqueue_error = 7
OTHERS = 8.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
ENDIF.

ENDIF.

ENDFORM. " SEND_MAIL

Annual Perk Calculation

2011-03-21T01:32:00.000-07:00

Write your coding in user Exit : HRINHRA0 , FM - EXIT_HINCALC0_005 in the
Include ZXPPYINU04.

When Company leased accomodation is given the Annual Perk Calculation was
not calculated according to the clients requirement.
Also the negative diff rent was not shown in deductions.

*&---------------------------------------------------------------------*
*& Include ZXPPYINU04
*&---------------------------------------------------------------------*

DATA : v_amount LIKE pa0581-rtamt,
v_basis TYPE maxbt,
v_diff TYPE maxbt,
v_elig_amount LIKE pa0581-rtamt.

IF NOT _hra[] IS INITIAL.

READ TABLE _hra INDEX 1.

IF sy-subrc = 0 AND _hra-accom = '5'.

v_amount = _hra-rtamt.
_wgtyp_tab-abart = '*'.
_wgtyp_tab-lgart = '/3RI'. " Rent wage type
_wgtyp_tab-betrg = v_amount. " Rent amount

APPEND _wgtyp_tab.
CLEAR _wgtyp_tab.

*--Get basis amount
LOOP AT _it WHERE lgart = '/115'.
v_basis = v_basis + _it-betrg.
ENDLOOP.

*--Get eligible amount
LOOP AT _it WHERE lgart = '1011'.
v_elig_amount = v_elig_amount + _it-betrg.
ENDLOOP.

*--Get difference amount
* _delgrt_mon = v_elig_amount - v_amount.

*--Get Yearly basis amount
v_basis = v_basis * 12.

*--Get Yearly rent amount
v_amount = v_amount * 12.

v_diff = ( v_basis - v_amount ) * 15 / 100 .

*--Calculate Yearly eligible amount
v_elig_amount = v_elig_amount * 12 .

IF v_diff > v_elig_amount.
_tcprk = v_elig_amount.
ELSE.
_tcprk = v_diff.
ENDIF.

ENDIF.

ENDIF.

Calculate EMI (Equated Monthly Instalments) in Infotype 0045

2011-03-21T00:34:00.000-07:00

Write your coding in user Exit : PBAS0001 , FM - EXIT_SAPFP50M_002 in the
Include ZXPADU02.

From Indian payroll view , there was a difference in calculation of EMI
amounts , the amount calculated in system differs from the ones calculated
in EXCEL sheet.
The below coding solves the problem.(Same as EXCEL calculation)

EMI Calculation Courtesy Link

*&---------------------------------------------------------------------*
*& Include ZXPADU02
*&---------------------------------------------------------------------*

DATA : i0045 LIKE p0045.
DATA : v_durn TYPE pea_scrmm.
DATA : p_durn(6) TYPE n,
p_intr TYPE p DECIMALS 5,
p_loan TYPE p DECIMALS 2,
v_emi TYPE p DECIMALS 2,
v_dltyp TYPE dltyp.

CHECK sy-tcode = 'PA30'.

CLEAR : p_durn , v_durn , v_emi , p_loan , p_intr , i0045 , v_dltyp.

CASE: innnn-infty.

WHEN '0045'.

SELECT SINGLE dltyp
FROM t506a
INTO v_dltyp
WHERE dlart EQ innnn-subty.

IF innnn-endda = '99991231'.
MESSAGE e208(00) WITH 'Determine end date'.
EXIT.
ENDIF.

CALL METHOD cl_hr_pnnnn_type_cast=>prelp_to_pnnnn
EXPORTING
prelp = innnn
IMPORTING
pnnnn = i0045.

CALL FUNCTION 'HR_HK_DIFF_BT_2_DATES'
EXPORTING
date1 = i0045-endda
date2 = i0045-tilbg
output_format = '04'
IMPORTING
* YEARS =
months = v_durn
* DAYS =
EXCEPTIONS
invalid_dates_specified = 1
OTHERS = 2
.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.

p_durn = v_durn.

*--Interest rate
p_intr = i0045-indin / 1200 .
p_loan = i0045-darbt.

v_emi = ( ( ( 1 + p_intr ) ** p_durn ) - 1 ).

IF v_emi IS NOT INITIAL.
*--Calculate EMI

IF v_dltyp = 'A'.
i0045-anrte = ( p_loan * p_intr ) *
( ( ( 1 + p_intr ) ** p_durn ) /
( ( ( 1 + p_intr ) ** p_durn ) - 1 ) ).
ELSEIF v_dltyp = 'I'.
i0045-tilbt = ( p_loan * p_intr ) *
( ( ( 1 + p_intr ) ** p_durn ) /
( ( ( 1 + p_intr ) ** p_durn ) - 1 ) ).
ENDIF.

ENDIF.

CALL METHOD cl_hr_pnnnn_type_cast=>pnnnn_to_prelp
EXPORTING
pnnnn = i0045
IMPORTING
prelp = innnn.

ENDCASE.

Merge two PDF's

2011-02-10T04:18:00.000-08:00

Will be updated soon ...

Send PDF to SPOOL

2010-12-06T22:23:00.000-08:00

*&---------------------------------------------------------------------*
*& Report ZPDF_TO_SPOOL.
*&
*&---------------------------------------------------------------------*
report ZPDF_TO_SPOOL.

*&---------------------------------------------------------------------*
*& Declarations
*&---------------------------------------------------------------------*

data : w_options like itcpo ,
it_otfdata type standard table of itcoo ,
it_tlines type standard table of tline ,
bin_filesize type i ,
bin_file type xstring ,
printer like tsp01-rqdest value 'LP01',
append type c value 'X',
doctype type adsdoctype value 'ADSP' ,
adstype type string,
l_strlen type i,
l_strlen1 type i,
nopdf type c value '',
globaldir(100),
pathname(256),
myfile type string,
handle like sy-tabix,
spoolid like tsp01-rqident,
partname type adspart,
filename type file_name,
pages type i,
size type i.

data: begin of datatab occurs 100,
line(80) type x,
end of datatab.

*&---------------------------------------------------------------------*
*& Start of selection
*&---------------------------------------------------------------------*

start-of-selection.

w_options-tdgetotf = 'X'.
w_options-tddest = 'LP01'.

*--Call the Script

call function 'OPEN_FORM'
exporting
device = 'PRINTER'
dialog = ' '
form = 'ZTEST'
language = sy-langu
options = w_options.

call function 'WRITE_FORM'
exporting
* element = '520'
function = 'SET'
type = 'BODY'
window = 'MAIN'.

call function 'CLOSE_FORM'
tables
otfdata = it_otfdata.

*--Convert from OTF to PDF format
* bin_file needs to be XSTRING format.
call function 'CONVERT_OTF'
exporting
format = 'PDF'
max_linewidth = 255
importing
bin_filesize = bin_filesize
bin_file = bin_file
tables
otf = it_otfdata
lines = it_tlines.

call function 'ADS_SR_OPEN'
exporting
dest = printer
append = append
doctype = doctype
importing
handle = handle
spoolid = spoolid
partname = partname
exceptions
device_missing = 1
no_such_device = 2
operation_failed = 3
wrong_doctype = 4
others = 5.

* l_strlen = STRLEN( bin_file ).
* l_strlen1 = STRLEN( bin_file ).

l_strlen = bin_filesize .
l_strlen1 = bin_filesize .

do.

if l_strlen gt 80.
move bin_file+0(80) to datatab-line.
append datatab.
l_strlen = l_strlen - 80.
bin_file = bin_file+80.
else.
move bin_file+0(l_strlen) to datatab-line.
append datatab.
exit.
endif.

enddo.

* Filename from partname
concatenate partname '.pdf' into filename.

* Get path of global directory
call 'C_SAPGPARAM'
id 'NAME' field 'DIR_GLOBAL'
id 'VALUE' field globaldir.

* Create fully qualified path
concatenate globaldir '/' filename into pathname.

myfile = pathname.

open dataset myfile for output in binary mode.

if sy-subrc = 0.

loop at datatab.
transfer datatab to myfile.
endloop.

close dataset myfile.
endif.

size = l_strlen1.
pages = 1.

call function 'ADS_SR_CONFIRM'
exporting
handle = handle
partname = partname
size = size
pages = pages
no_pdf = nopdf
exceptions
handle_not_valid = 1
operation_failed = 2
others = 3.

call function 'ADS_SR_CLOSE'
exporting
handle = handle
exceptions
handle_not_valid = 1
operation_failed = 2
others = 3.

end-of-selection.

Split Container to display multiple ALV's

2010-12-03T00:50:00.000-08:00

*&---------------------------------------------------------------------*
*& Report Z_SPLIT_CONTAINER_ALV
*&
*&---------------------------------------------------------------------*

REPORT Z_SPLIT_CONTAINER_ALV.

DATA : lcl_custom TYPE REF TO cl_gui_custom_container.
DATA : lcl_split TYPE REF TO cl_gui_splitter_container.
DATA : lcl_con1 TYPE REF TO cl_gui_container.
DATA : lcl_con2 TYPE REF TO cl_gui_container.
DATA : lcl_con3 TYPE REF TO cl_gui_container.
DATA : lcl_con4 TYPE REF TO cl_gui_container.
DATA : gcl_dd_doc TYPE REF TO cl_dd_document.
DATA : gr_functions TYPE REF TO cl_salv_functions.

DATA : gr_salv TYPE REF TO cl_salv_table,
gr_salv2 TYPE REF TO cl_salv_table,
gr_salv3 TYPE REF TO cl_salv_table,
gr_salv4 TYPE REF TO cl_salv_table,
lr_exp TYPE REF TO cx_root,
lv_text TYPE string.

TYPES:BEGIN OF ty_table3,
g_belnr TYPE bkpf-belnr, "pra
g_bukrs TYPE bkpf-bukrs,"pra
sbelnr TYPE bkpf-belnr,"pra
rbukrs TYPE bkpf-bukrs,"pra
rbelnr TYPE bkpf-belnr,"pra
rstblg TYPE bkpf-stblg,"pra
pernr TYPE pa0001-pernr,
name(30) TYPE c,
begda TYPE dats,
endda TYPE dats,
END OF ty_table3.

DATA : BEGIN OF ty_alv3.
INCLUDE TYPE ty_table3.
DATA : END OF ty_alv3.

DATA : gt_display3 LIKE TABLE OF ty_alv3,
gs_display3 LIKE ty_alv3.

TYPES:BEGIN OF ty_table2,
pernr TYPE pa0002-pernr,
nachn TYPE pa0002-nachn,
vorna type pa0002-vorna,
GESCH type pa0002-GESCH,
GBDAT type pa0002-GBDAT,
begda TYPE dats,
endda TYPE dats,
END OF ty_table2.

DATA : BEGIN OF ty_alv2.
INCLUDE TYPE ty_table2.
DATA : END OF ty_alv2.

DATA : gt_display2 LIKE TABLE OF ty_alv2,
gs_display2 LIKE ty_alv2.

DATA : gt_display4 LIKE TABLE OF bseg,
gs_display4 LIKE bseg.

START-OF-SELECTION.

PERFORM fill_internal_tables.

CALL SCREEN 100.

*&---------------------------------------------------------------------*
*& Module STATUS_0100 OUTPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE status_0100 OUTPUT.
SET PF-STATUS 'ZSTAT'.
SET TITLEBAR 'ZTITLE'.

CREATE OBJECT lcl_custom
EXPORTING
* parent = parent
container_name = 'SPLIT'
* style = style
* lifetime = lifetime_default
* repid = repid
* dynnr = dynnr
* no_autodef_progid_dynnr = no_autodef_progid_dynnr
EXCEPTIONS
cntl_error = 1
cntl_system_error = 2
create_error = 3
lifetime_error = 4
lifetime_dynpro_dynpro_link = 5
OTHERS = 6
.

*Split the container into 4
CREATE OBJECT lcl_split
EXPORTING
parent = lcl_custom
rows = 4
columns = 1
* no_autodef_progid_dynnr = no_autodef_progid_dynnr
* name = name
EXCEPTIONS
cntl_error = 1
cntl_system_error = 2
OTHERS = 3
.

*1st window
CALL METHOD lcl_split->get_container
EXPORTING
row = 1
column = 1
RECEIVING
container = lcl_con1.

CALL METHOD lcl_split->set_row_height
EXPORTING
id = 1
height = 3.

IF gcl_dd_doc IS INITIAL.
CREATE OBJECT gcl_dd_doc.
ENDIF.
PERFORM built_header CHANGING gcl_dd_doc.
CALL METHOD gcl_dd_doc->merge_document.

CALL METHOD gcl_dd_doc->display_document
EXPORTING
parent = lcl_con1
EXCEPTIONS
html_display_error = 1.

*2nd window
CALL METHOD lcl_split->get_container
EXPORTING
row = 2
column = 1
RECEIVING
container = lcl_con4.

CALL METHOD lcl_split->set_row_height
EXPORTING
id = 2
height = 3.
TRY.
"Factory Method for display the ALV
CALL METHOD cl_salv_table=>factory
EXPORTING
r_container = lcl_con4
IMPORTING
r_salv_table = gr_salv4
CHANGING
t_table = gt_display3.

CATCH cx_salv_msg INTO lr_exp.
lv_text = lr_exp->get_text( ).

ENDTRY.

gr_salv4->display( ).

*3rd window
CALL METHOD lcl_split->get_container
EXPORTING
row = 3
column = 1
RECEIVING
container = lcl_con2.

CALL METHOD lcl_split->set_row_height
EXPORTING
id = 3
height = 22.

TRY.
"Factory Method for display the ALV
CALL METHOD cl_salv_table=>factory
EXPORTING
r_container = lcl_con2
IMPORTING
r_salv_table = gr_salv2
CHANGING
t_table = gt_display2.

gr_functions = gr_salv2->get_functions( ).
gr_functions->set_all( abap_true ).

CATCH cx_salv_msg INTO lr_exp.
lv_text = lr_exp->get_text( ).

ENDTRY.
gr_salv2->display( ).

*4th window
CALL METHOD lcl_split->get_container
EXPORTING
row = 4
column = 1
RECEIVING
container = lcl_con3.

CALL METHOD lcl_split->set_row_height
EXPORTING
id = 4
height = 21.

TRY.
"Factory Method for display the ALV
CALL METHOD cl_salv_table=>factory
EXPORTING
r_container = lcl_con3
IMPORTING
r_salv_table = gr_salv3
CHANGING
t_table = gt_display4.

gr_functions = gr_salv3->get_functions( ).
gr_functions->set_all( abap_true ).

CATCH cx_salv_msg INTO lr_exp.
lv_text = lr_exp->get_text( ).

ENDTRY.
gr_salv3->display( ).

ENDMODULE. " STATUS_0100 OUTPUT

*&---------------------------------------------------------------------*
*& Module USER_COMMAND_0100 INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE user_command_0100 INPUT.

CASE sy-ucomm.
WHEN 'BACK' OR 'EXIT'.
SET SCREEN 0.
LEAVE SCREEN.
ENDCASE.

ENDMODULE. " USER_COMMAND_0100 INPUT

*&---------------------------------------------------------------------*
*& Form built_header
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
FORM built_header CHANGING ps_cl_dd_doc TYPE REF TO cl_dd_document.

DATA : lcl_ta TYPE REF TO cl_dd_table_element,
lcl_col1 TYPE REF TO cl_dd_area,
lcl_col2 TYPE REF TO cl_dd_area,
lcl_col3 TYPE REF TO cl_dd_area,
lv_text TYPE sdydo_text_element,
lcl_form TYPE REF TO cl_dd_form_area.

CALL METHOD ps_cl_dd_doc->add_table
EXPORTING
no_of_columns = 3
width = '100%'
cell_background_transparent = space
IMPORTING
table = lcl_ta.

*Set the columns
CALL METHOD lcl_ta->add_column
EXPORTING
width = '30%'
IMPORTING
column = lcl_col1.

CALL METHOD lcl_ta->add_column
EXPORTING
width = '30%'
IMPORTING
column = lcl_col2.

CALL METHOD lcl_ta->add_column
EXPORTING
width = '40%'
IMPORTING
column = lcl_col3.

lv_text = 'First Field'.

CALL METHOD lcl_col1->add_text
EXPORTING
text = lv_text
sap_emphasis = cl_dd_area=>table_heading."strong.

lv_text = 'Second Field'.

CALL METHOD lcl_col2->add_text
EXPORTING
text = lv_text
sap_emphasis = cl_dd_area=>table_heading.

lv_text = 'Third Field'.

CALL METHOD lcl_col3->add_text
EXPORTING
text = lv_text
sap_emphasis = cl_dd_area=>table_heading.

CLEAR:lv_text.

CALL METHOD ps_cl_dd_doc->add_table
EXPORTING
no_of_columns = 3
width = '100%'
cell_background_transparent = space
IMPORTING
table = lcl_ta.

ENDFORM. " built_header

*&---------------------------------------------------------------------*
*& Form fill_internal_tables
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
FORM fill_internal_tables .

SELECT pernr nachn vorna GESCH gbdat begda endda FROM pa0002
INTO TABLE gt_display2
UP TO 20 ROWS.

gs_display4-bukrs = '0112'.
gs_display4-belnr = '1090807060'.
gs_display4-gjahr = '2010'.

DO 20 TIMES.
APPEND gs_display4 TO gt_display4.
ENDDO.

ENDFORM. " fill_internal_tables

Convert ABAP Spool to word document

2010-12-03T00:20:00.000-08:00

*&---------------------------------------------------------------------*
*& Report Z_SPOOL_2_WORD
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT Z_SPOOL_2_WORD.

INCLUDE ole2incl.

DATA i_buffer(132) OCCURS 0 WITH HEADER LINE.

SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE text-001.

PARAMETERS: p_spool LIKE tsp01-rqident OBLIGATORY.

SELECTION-SCREEN END OF BLOCK B1.

SELECTION-SCREEN BEGIN OF BLOCK B2 WITH FRAME TITLE text-002.

PARAMETERS: p_word AS CHECKBOX DEFAULT 'X'.
PARAMETERS: p_fwor LIKE rlgrap-filename obligatory.

SELECTION-SCREEN END OF BLOCK B2.

*----------------------------------------------------------------------*
* START-OF-SELECTION.
*----------------------------------------------------------------------*
START-OF-SELECTION.
PERFORM read_spool.

IF NOT p_word IS INITIAL.
PERFORM write_word.
ENDIF.

*&---------------------------------------------------------------------*
*& Form read_spool
*&---------------------------------------------------------------------*
* Read spool data
*----------------------------------------------------------------------*
FORM read_spool.

CALL FUNCTION 'RSPO_RETURN_ABAP_SPOOLJOB'
EXPORTING
rqident = p_spool
first_line = 1
last_line = 9999999
TABLES
buffer = i_buffer
EXCEPTIONS
no_such_job = 1
not_abap_list = 2
job_contains_no_data = 3
selection_empty = 4
no_permission = 5
can_not_access = 6
read_error = 7
OTHERS = 8.

IF sy-subrc NE 0.
MESSAGE e398(00) WITH 'Spool' p_spool 'not found'.
ENDIF.

ENDFORM. " read_spool

*&---------------------------------------------------------------------*
*& Form write_word
*&---------------------------------------------------------------------*
* Write to word.
*----------------------------------------------------------------------*
FORM write_word.

DATA: wordapp TYPE ole2_object,
document TYPE ole2_object,
selection TYPE ole2_object.

CALL FUNCTION 'CLPB_EXPORT'
TABLES
data_tab = i_buffer
EXCEPTIONS
clpb_error = 1
OTHERS = 2.

* Word CREATE
CREATE OBJECT wordapp 'word.application'.

IF sy-subrc NE 0.
MESSAGE e398(00) WITH 'Word cannot be created'.
ENDIF.

* Set visible
SET PROPERTY OF wordapp 'Visible' = 1.

CALL METHOD OF wordapp 'Documents' = document.

CALL METHOD OF document 'Add'.

CALL METHOD OF wordapp 'Selection' = selection.

CALL METHOD OF selection 'Paste'.

IF sy-subrc NE 0.
MESSAGE e398(00) WITH 'Error at writing to the document'.
ENDIF.

CALL METHOD OF wordapp 'ActiveDocument' = document.

CALL METHOD OF document 'SaveAs'
EXPORTING #1 = p_fwor.

IF sy-subrc NE 0.
MESSAGE e398(00) WITH 'Error saving the document'.
ENDIF.

* Close Word application

CALL METHOD OF WORDAPP 'Quit'.

IF sy-subrc NE 0.
MESSAGE e398(00) WITH 'Error closing Word'.
ENDIF.

ENDFORM. "write_word

Email Excel Sheet as an Attachment

2010-12-02T22:35:00.000-08:00

*&---------------------------------------------------------------------*
*& Report Z_EXCEL_MAIL
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT Z_EXCEL_MAIL.

DATA: BEGIN OF it_kna1 OCCURS 0,
kunnr TYPE kunnr,
land1 TYPE land1_gp,
name1 TYPE name1_gp,
END OF it_kna1.

START-OF-SELECTION.

SELECT kunnr land1 name1 FROM kna1
INTO TABLE it_kna1 UP TO 10 ROWS
WHERE land1 = 'US'.

*-- Sending mail with Excel

TYPES: BEGIN OF t_solisti1,
line TYPE string,
END OF t_solisti1.

DATA : docdata LIKE sodocchgi1,
objpack LIKE sopcklsti1 OCCURS 1 WITH HEADER LINE,
objtxt LIKE solisti1 OCCURS 10 WITH HEADER LINE,
objbin_tmp TYPE STANDARD TABLE OF solix ,
objbin_final TYPE STANDARD TABLE OF solix ,
objhead TYPE TABLE OF solisti1,
objbin1 TYPE t_solisti1 OCCURS 10 WITH HEADER LINE,
reclist LIKE somlreci1 OCCURS 1 WITH HEADER LINE,
wa_objhead LIKE LINE OF objhead,
tab_lines TYPE sy-tabix.

DATA:gv_tab_lines TYPE c.

CONSTANTS : lk_tab_char TYPE c VALUE
cl_abap_char_utilities=>horizontal_tab,
lk_cr_char TYPE c VALUE cl_abap_char_utilities=>cr_lf,
lk_xls_extension TYPE so_obj_tp VALUE 'XLS',
lk_filename(255) TYPE c VALUE 'Customer Details.XLS'.

DESCRIBE TABLE objtxt LINES tab_lines.
READ TABLE objtxt INDEX tab_lines.
docdata-doc_size = ( tab_lines - 1 ) * 255 + STRLEN( objtxt ) .

*-- Mail Subject
CONCATENATE 'Customer details as on'
sy-datum+4(2)
sy-datum+6(2)
sy-datum+0(4)
INTO docdata-obj_descr.

CLEAR objpack-transf_bin.
objpack-head_start = 1.
objpack-head_num = 0.
objpack-body_start = 1.
objpack-body_num = gv_tab_lines.
objpack-doc_type = 'RAW'.
APPEND objpack.

*-- Mail Subject
CLEAR : objhead,
wa_objhead.
REFRESH objhead.

wa_objhead-line = lk_filename.
APPEND wa_objhead TO objhead.

reclist-receiver = 'mailid@igroup.com'.
reclist-express = 'X'.
reclist-rec_type = 'U'. "Internet Mail Address
APPEND reclist.

reclist-receiver = 'mailid@igroup.com'.
reclist-copy = 'X'.
reclist-express = 'X'.
reclist-rec_type = 'U'. "Internet Mail Address
APPEND reclist.

*-- Creation of the document attachment
CONCATENATE 'Customer'
'Country'
'Name'
INTO objbin1-line
SEPARATED BY lk_tab_char.
CONCATENATE objbin1-line lk_cr_char
INTO objbin1-line.
CONDENSE objbin1-line.
APPEND objbin1.

APPEND: INITIAL LINE TO objbin1.

*-- Creation of the document body
LOOP AT it_kna1.
DATA:lv_tot_approval(20) TYPE c,
lv_sno(3) TYPE c.
lv_sno = lv_sno + 1.

CONCATENATE it_kna1-kunnr
it_kna1-land1
it_kna1-name1
INTO objbin1-line
SEPARATED BY lk_tab_char.
CONCATENATE objbin1-line lk_cr_char
INTO objbin1-line.
CONDENSE objbin1-line.
APPEND objbin1.
CLEAR : objbin1.
ENDLOOP.

DESCRIBE TABLE objbin1 LINES tab_lines.
tab_lines = tab_lines + 50.
objpack-doc_size = tab_lines * 255 .
objpack-transf_bin = 'X'.
objpack-head_start = 1.
objpack-head_num = 1.
objpack-body_start = 1.
objpack-body_num = tab_lines.
objpack-doc_type = lk_xls_extension.
objpack-obj_name = lk_filename.
objpack-obj_descr = lk_filename.

APPEND objpack.

*-- To avoid Junk Characters
LOOP AT objbin1.
DATA:lv_buffer TYPE xstring.

CLEAR lv_buffer.
CALL FUNCTION 'SCMS_STRING_TO_XSTRING'
EXPORTING
text = objbin1-line
IMPORTING
buffer = lv_buffer
EXCEPTIONS
failed = 1
OTHERS = 2.
IF sy-subrc = 0.

CALL FUNCTION 'SCMS_XSTRING_TO_BINARY'
EXPORTING
buffer = lv_buffer
TABLES
binary_tab = objbin_tmp.
APPEND LINES OF objbin_tmp TO objbin_final.
ENDIF.

ENDLOOP.

*-- FM to send mail
CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'
EXPORTING
document_data = docdata
commit_work = 'X'
TABLES
packing_list = objpack
object_header = objhead
contents_txt = objtxt
contents_hex = objbin_final
receivers = reclist
EXCEPTIONS
too_many_receivers = 1
document_not_sent = 2
document_type_not_exist = 3
operation_no_authorization = 4
parameter_error = 5
x_error = 6
enqueue_error = 7
OTHERS = 8.
IF sy-subrc <> 0.
MESSAGE 'Mail was sent successfully' TYPE 'I'.
ELSE.
MESSAGE 'Mail sent successfully' TYPE 'I'.
ENDIF.

ALV List with Subtotal and Page no's

2010-12-02T21:59:00.000-08:00

*&---------------------------------------------------------------------*
*& Report ZALV_SUBTOTAL_PAGENOS *
*&---------------------------------------------------------------------*
report ZALV_SUBTOTAL_PAGENOS.

*-- Type pools
type-pools: slis.

*--------------------------------------------------------------------
* G L O B A L I N T E R N A L T A B L E S
*--------------------------------------------------------------------
data: gt_fieldcat type slis_t_fieldcat_alv,
gs_layout type slis_layout_alv,
gt_events type slis_t_event.
data: it_sort type slis_t_sortinfo_alv ,
wa_sort type slis_sortinfo_alv .
data: gs_print type slis_print_alv.

data: begin of it_sflight occurs 0,
carrid like sflight-carrid,
connid like sflight-connid,
fldate like sflight-fldate,
price like sflight-price,
planetype like sflight-planetype,
seatsmax like sflight-seatsmax,
seatsocc like sflight-seatsocc,
paymentsum like sflight-paymentsum,
end of it_sflight.

data: g_repid like sy-repid.
data: gt_list_top_of_page type slis_t_listheader.
data: v_total(5).

start-of-selection.
g_repid = sy-repid.

perform init_fieldcat using gt_fieldcat[].
perform build_eventtab using gt_events[].
perform build_comment using gt_list_top_of_page[].
perform get_data.
perform set_layout using gs_layout.

*-- SORT
clear wa_sort.
wa_sort-fieldname = 'CARRID'.
wa_sort-up = 'X'.
wa_sort-group = '*'.
wa_sort-subtot = 'X'.
append wa_sort to it_sort.

clear wa_sort.
wa_sort-fieldname = 'CONNID'.
wa_sort-up = 'X'.
wa_sort-group = 'UL'.
wa_sort-subtot = 'X'.
append wa_sort to it_sort.

*-- DISPLAY LIST
call function 'REUSE_ALV_LIST_DISPLAY'
exporting
i_interface_check = ' '
i_callback_program = g_repid
i_callback_user_command = 'USER_COMMAND'
is_layout = gs_layout
it_fieldcat = gt_fieldcat[]
it_sort = it_sort[]
it_events = gt_events
is_print = gs_print
tables
t_outtab = it_sflight
exceptions
program_error = 1
others = 2.

*&---------------------------------------------------------------------*
*& Form INIT_FIELDCAT
*&---------------------------------------------------------------------*
form init_fieldcat using p_gt_fieldcat type slis_t_fieldcat_alv.

data: ls_fieldcat type slis_fieldcat_alv,
l_index type sy-tabix.

data :rep like sy-repid.
rep = sy-repid.
call function 'REUSE_ALV_FIELDCATALOG_MERGE'
exporting
i_program_name = rep
i_internal_tabname = 'IT_SFLIGHT'
i_inclname = rep
changing
ct_fieldcat = gt_fieldcat
exceptions
inconsistent_interface = 1
program_error = 2
others = 3.
if sy-subrc <> 0.
message id sy-msgid type 'S' number sy-msgno
with sy-msgv1 sy-msgv2 sy-msgv3 sy-subrc.
endif.

sort gt_fieldcat by col_pos.

loop at gt_fieldcat into ls_fieldcat.
l_index = sy-tabix.
if ls_fieldcat-fieldname = 'PRICE'.
ls_fieldcat-do_sum = 'X'.
ls_fieldcat-sp_group = 'X'.
modify gt_fieldcat from ls_fieldcat index l_index .
endif.
endloop.

endform. " INIT_FIELDCAT

*&---------------------------------------------------------------------*
*& Form BUILD_EVENTTAB
*&---------------------------------------------------------------------*
form build_eventtab using p_gt_events type slis_t_event.

data: ls_event type slis_alv_event.

clear ls_event.
ls_event-name = slis_ev_top_of_page.
ls_event-form = 'XTOP_OF_PAGE'.
append ls_event to p_gt_events.
clear ls_event.
ls_event-name = slis_ev_top_of_list.
ls_event-form = 'XTOP_OF_LIST'.
append ls_event to p_gt_events.
clear ls_event.
clear ls_event.
ls_event-name = slis_ev_end_of_page.
ls_event-form = 'XEND_OF_PAGE'.
append ls_event to p_gt_events.
ls_event-name = slis_ev_end_of_list.
ls_event-form = 'XEND_OF_LIST'.
append ls_event to p_gt_events.
clear ls_event.

endform. " BUILD_EVENTTAB

*&---------------------------------------------------------------------*
*& Form BUILD_COMMENT
*&---------------------------------------------------------------------*
form build_comment using p_gt_list_top_of_page type slis_t_listheader.
data: ls_line type slis_listheader.
ls_line-typ = 'H'." = Header, S = Selection, A = Action
ls_line-key = 'KEY'.
ls_line-info = 'INFO'.
append ls_line to p_gt_list_top_of_page.

endform. " BUILD_COMMENT

*&---------------------------------------------------------------------*
*& Form SELECTION
*&---------------------------------------------------------------------*
form get_data..
data: l_rows type i value 3.
* Read data from table SFLIGHT
select carrid
connid
fldate
price
planetype
seatsmax
seatsocc
paymentsum
from sflight
into table it_sflight.
** up to l_rows rows.
sort it_sflight.
endform. " SELECTION

*&---------------------------------------------------------------------*
*& Form SET_LAYOUT
*&---------------------------------------------------------------------*
form set_layout using p_gs_layout type slis_layout_alv.

p_gs_layout-zebra = 'X'.
p_gs_layout-colwidth_optimize = 'X'.
p_gs_layout-no_input = 'X'.
p_gs_layout-no_colhead = space.
p_gs_layout-totals_text = 'Total Price'.
p_gs_layout-subtotals_text = 'Sub Total'.
p_gs_layout-totals_only = 'X'.
p_gs_layout-key_hotspot = 'X'.
p_gs_layout-detail_popup = 'X'.
p_gs_layout-no_subtotals = space.
p_gs_layout-expand_all = 'X'.
p_gs_layout-group_buttons = 'X'."space.
endform. " SET_LAYOUT

*---------------------------------------------------------------------*
* FORM XTOP_OF_PAGE *
*---------------------------------------------------------------------*
form xtop_of_page.

data : lv_page(5),
lv_text(20).
MOVE SY-PAGNO TO LV_PAGE.
write:/ 'X_TOP_OF_PAGE'.
.
endform. "xtop_of_page
*---------------------------------------------------------------------*
* FORM XTOP_OF_LIST *
*---------------------------------------------------------------------*
form xtop_of_list.
write:/ 'X_TOP_OF_LIST'.
endform. "xtop_of_list

*---------------------------------------------------------------------*
* FORM XEND_OF_PAGE *
*---------------------------------------------------------------------*
form xend_of_page.
write:/ 'X_END_OF_PAGE'.
endform. "xend_of_page

*---------------------------------------------------------------------*
* FORM XEND_OF_LIST *
*---------------------------------------------------------------------*
form xend_of_list.
write:/ 'X_END_OF_LIST'.
data : lv_page(5),
lv_text(20).
data : l_lines type i,
l_line type i.

clear v_total.

write sy-pagno to v_total left-justified.
do sy-pagno times.
lv_page = sy-index.
concatenate 'Page' lv_page 'of' v_total
into lv_text separated by space.
if sy-index = 1.
read line 2 of page sy-index.
else.
read line 1 of page sy-index.

endif.
sy-lisel+60(20) = lv_text.
modify current line .
enddo.

endform. "xend_of_list

*---------------------------------------------------------------------*
* USER_COMMAND *
*---------------------------------------------------------------------*
form user_command using r_ucomm like sy-ucomm
rs_selfield type slis_selfield.

case r_ucomm.
when 'EXIT'.
leave to screen 0.
when '&IC1'.
data: text(256),text1(6),text2(5).
move rs_selfield-tabindex to text1.
move rs_selfield-sumindex to text2.
concatenate 'Double clicked on (field:'
rs_selfield-fieldname
'Value:'
rs_selfield-value
','
text1
','
text2
' ) '
into text
separated by space.

call function 'POPUP_TO_DISPLAY_TEXT'
exporting
textline1 = text.

endcase.
endform. "user_command

Debug a popup screen

2010-12-02T21:36:00.000-08:00

Type the below in a note pad , save it to the desktop , drag and drop onto the popup screen.

[FUNCTION]
Command=/H
Title=Debugger
Type=SystemCommand

Other useful sites

2010-11-25T21:32:00.000-08:00

www.sdn.sap.com
www.saptechnical.com

Get sample program list

2010-11-25T21:28:00.000-08:00

Enter ABAPDOCU in Command prompt and enter
You'll find some basic ABAP Examples
BIBS - Contains Examples of user Interface design