The report loops throgh the required Tables of Purchase Order and based on the data entered on screen, displays the desired data. The report is to be modified/tweaked as per the custom need.

The basic purpose of the report is to develop a programatical flow of the language, the way normally ABAP programs are written.

Download Source Code : Z_PENDING_POS_REPORT

You might also be interested in these posts:

1. ABAP Pending Purchase Recquisition (PR) Report
2. ABAP Program to add Colors in ALV Grid
3. ABAP Programs for Beginners

This reference guide focuses on following topics:

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

Link : Complete Reference to ABAP Basics

You might also be interested in these posts:

1. ABAP Program to Display SE78 pictures on Screen
2. ABAP Programs for Beginners
3. Lock Objects in SAP

 Program Code

*&---------------------------------------------------------------------*
*& Report  ZCOLOR_IN_ALV
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  ZCOLOR_IN_ALV.

TABLES: ekko.

type-pools: slis. "ALV Declarations
*Data Declaration*----------------
TYPES: BEGIN OF t_ekko,
ebeln TYPE ekpo-ebeln,
ebelp TYPE ekpo-ebelp,
statu TYPE ekpo-statu,
aedat TYPE ekpo-aedat,
matnr TYPE ekpo-matnr,
menge TYPE ekpo-menge,
meins TYPE ekpo-meins,
netpr TYPE ekpo-netpr,
peinh TYPE ekpo-peinh,
line_color(4) type c, "Used to store row color attributes
END OF t_ekko.

DATA: it_ekko TYPE STANDARD TABLE OF t_ekko INITIAL SIZE 0,
wa_ekko TYPE t_ekko.
*ALV data declarations
data: fieldcatalog type slis_t_fieldcat_alv with header line,
gd_tab_group type slis_t_sp_group_alv,
gd_layout type slis_layout_alv,
gd_repid like sy-repid.

*Start-of-selection.
START-OF-SELECTION.

  perform data_retrieval.

  perform build_fieldcatalog.

  perform build_layout.

  perform display_alv_report.

*&---------------------------------------------------------------------
**& Form BUILD_FIELDCATALOG
*&---------------------------------------------------------------------
** Build Fieldcatalog for ALV Report
*----------------------------------------------------------------------*
form build_fieldcatalog.

  fieldcatalog-fieldname = 'EBELN'.
  fieldcatalog-seltext_m = 'Purchase Order'.
  fieldcatalog-col_pos = 0.
  fieldcatalog-outputlen = 10.
  fieldcatalog-emphasize = 'X'.
  fieldcatalog-key = 'X'.
  append fieldcatalog to fieldcatalog.
  clear fieldcatalog.

  fieldcatalog-fieldname = 'EBELP'.
  fieldcatalog-seltext_m = 'PO Item'.
  fieldcatalog-col_pos = 1.
  append fieldcatalog to fieldcatalog.
  clear fieldcatalog.

  fieldcatalog-fieldname = 'STATU'.
  fieldcatalog-seltext_m = 'Status'.
  fieldcatalog-col_pos = 2.
  append fieldcatalog to fieldcatalog.
  clear fieldcatalog.

  fieldcatalog-fieldname = 'AEDAT'.
  fieldcatalog-seltext_m = 'Item change date'.
  fieldcatalog-col_pos = 3.
  append fieldcatalog to fieldcatalog.
  clear fieldcatalog.

  fieldcatalog-fieldname = 'MATNR'.
  fieldcatalog-seltext_m = 'Material Number'.
  fieldcatalog-col_pos = 4.
  append fieldcatalog to fieldcatalog.
  clear fieldcatalog.

  fieldcatalog-fieldname = 'MENGE'.
  fieldcatalog-seltext_m = 'PO quantity'.
  fieldcatalog-col_pos = 5.
  append fieldcatalog to fieldcatalog.
  clear fieldcatalog.

  fieldcatalog-fieldname = 'MEINS'.
  fieldcatalog-seltext_m = 'Order Unit'.
  fieldcatalog-col_pos = 6.
  append fieldcatalog to fieldcatalog.
  clear fieldcatalog.

  fieldcatalog-fieldname = 'NETPR'.
  fieldcatalog-seltext_m = 'Net Price'.
  fieldcatalog-col_pos = 7.
  fieldcatalog-outputlen = 15.
  fieldcatalog-datatype = 'CURR'.
  append fieldcatalog to fieldcatalog.
  clear fieldcatalog.

  fieldcatalog-fieldname = 'PEINH'.
  fieldcatalog-seltext_m = 'Price Unit'.
  fieldcatalog-col_pos = 8.
  append fieldcatalog to fieldcatalog.
  clear fieldcatalog.
endform. " BUILD_FIELDCATALOG

*&---------------------------------------------------------------------
**& Form BUILD_LAYOUT
*&---------------------------------------------------------------------
** Build layout for ALV grid report
*----------------------------------------------------------------------*
form build_layout.
  gd_layout-no_input          = 'X'.
  gd_layout-colwidth_optimize = 'X'.
  gd_layout-totals_text       = 'Totals'(201).
  gd_layout-info_fieldname    = 'LINE_COLOR'.

endform. " BUILD_LAYOUT

*&---------------------------------------------------------------------
**& Form DISPLAY_ALV_REPORT
*&---------------------------------------------------------------------
** Display report using ALV grid
*----------------------------------------------------------------------*
form display_alv_report.
  gd_repid = sy-repid.
  call function 'REUSE_ALV_GRID_DISPLAY'
  exporting
  i_callback_program = gd_repid
  is_layout          = gd_layout
  it_fieldcat        = fieldcatalog[]
  i_save             = 'X'
*is_variant = z_template
  tables
  t_outtab          = it_ekko .

endform. " DISPLAY_ALV_REPORT
*&---------------------------------------------------------------------
**& Form DATA_RETRIEVAL
*&---------------------------------------------------------------------
** Retrieve data form EKPO table and populate itab it_ekko
*----------------------------------------------------------------------
form data_retrieval.
  data: ld_color(1) type c.

  select ebeln
  ebelp
  statu
  aedat
  matnr
  menge
  meins
  netpr
  peinh
  up to 10 rows
  from ekpo
  into table it_ekko.

*Populate field with color attributes
  loop at it_ekko into wa_ekko.
* Populate color variable with colour properties
* Char 1 = C (This is a color property)
* Char 2 = 3 (Color codes: 1 - 7)
* Char 3 = Intensified on/off ( 1 or 0 )
* Char 4 = Inverse display on/off ( 1 or 0 )
* i.e. wa_ekko-line_color = 'C410'
    ld_color = ld_color + 1.
* Only 7 colours so need to reset color value
    if ld_color = 8.
      ld_color = 1.
    endif.

    concatenate 'C' ld_color '10' into wa_ekko-line_color.
* wa_ekko-line_color = 'C410'.
    modify it_ekko from wa_ekko.
  endloop.

endform. " DATA_RETRIEVAL

You might also be interested in these posts:

1. Displaying Icons in ALV Grid using ABAP
2. ABAP Program to Search For SMARTFORMS in your Language
3. ABAP Program for ALV Grid, the OOPS way

Program Code

REPORT  ZICON_IN_ALV.

************************************************************************

* Include Programs

************************************************************************

*INCLUDE .

************************************************************************

* Database Tables

************************************************************************

TABLES: kna1. "Customer Master

************************************************************************

* Types

************************************************************************

TYPE-POOLS: kkblo.

************************************************************************

* Structures

************************************************************************

* Structure to hold the Color Information

DATA: BEGIN OF st_color,

color(3) TYPE c,

END OF st_color.

* Structure to hold the Icon Information

DATA: BEGIN OF st_icon,

icon(4) TYPE c,

END OF st_icon.

* ALV Field Catalog Structure

DATA: st_fieldcat TYPE slis_fieldcat_alv.

* ALV Layout Structure

DATA: st_layout TYPE slis_layout_alv.

************************************************************************

* Internal Tables

************************************************************************

* Output Table

DATA: BEGIN OF tbl_kna1 OCCURS 0.

INCLUDE STRUCTURE st_icon. "Icon Structure

INCLUDE STRUCTURE kna1. "Customer Master Structure

INCLUDE STRUCTURE st_color. "Color Structure

DATA: END OF tbl_kna1.

* ALV Field Catalog Table

DATA: tbl_fieldcat TYPE slis_t_fieldcat_alv.

************************************************************************

* Variables

************************************************************************

DATA: fieldname(30) TYPE c,

g_repid LIKE sy-repid.

************************************************************************

* Start of Selection

************************************************************************

START-OF-SELECTION.

g_repid = sy-repid.

PERFORM get_data.

************************************************************************

* End of Selection

************************************************************************

END-OF-SELECTION.

PERFORM do_fancy_stuff.

PERFORM get_layout.

PERFORM get_fieldcat.

PERFORM create_report.

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

*& Form CREATE_REPORT

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

* Learn to read the subroutine name!

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

FORM create_report.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

i_interface_check = ' '

i_callback_program = g_repid

i_callback_user_command = 'PROCESS_USER_COMMANDS'

it_fieldcat = tbl_fieldcat

i_default = 'X'

i_save = ' '

is_layout = st_layout

TABLES

t_outtab = tbl_kna1

EXCEPTIONS

program_error = 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.

ENDFORM. " CREATE_REPORT

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

*& Form GET_FIELDCAT

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

* Build the Field Catalog

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

FORM get_fieldcat.

* Here the field catalog is created. To display more fields simply

* 'uncomment' the additional lines and add the field name. Also note

* that the field catalog is much more powerful than this. You can

* intensify fields, change the colour, assign reference fields, etc.

* Look at type slis_fieldcat_alv for more options.

PERFORM write_fieldcat USING 'ICON' 'TBL_KNA1' ' ' 'X' 1 '2' 'X'

' '.

PERFORM write_fieldcat USING 'KUNNR' 'TBL_KNA1' 'KNA1' 'X' 2 ' ' ' '

' '.

PERFORM write_fieldcat USING 'NAME1' 'TBL_KNA1' 'KNA1' ' ' 3 '10' ' '

'X'.

PERFORM write_fieldcat USING 'STRAS' 'TBL_KNA1' 'KNA1' ' ' 4 ' ' ' '

' '.

PERFORM write_fieldcat USING 'TELF1' 'TBL_KNA1' 'KNA1' ' ' 5 ' ' ' '

' '.

PERFORM write_fieldcat USING 'ORT01' 'TBL_KNA1' 'KNA1' ' ' 6 ' ' ' '

' '.

PERFORM write_fieldcat USING 'PSTLZ' 'TBL_KNA1' 'KNA1' ' ' 7 ' ' ' '

' '.

PERFORM write_fieldcat USING 'SORTL' 'TBL_KNA1' 'KNA1' ' ' 8 ' ' ' '

' '.

PERFORM write_fieldcat USING 'ERNAM' 'TBL_KNA1' 'KNA1' ' ' 9 ' ' ' '

' '.

PERFORM write_fieldcat USING 'SPRAS' 'TBL_KNA1' 'KNA1' ' ' 10 ' ' ' '

' '.

* perform write_fieldcat using ' ' 'TBL_KNA1' 'KNA1' ' ' 10 ' '.

* perform write_fieldcat using ' ' 'TBL_KNA1' 'KNA1' ' ' 11 ' '.

* perform write_fieldcat using ' ' 'TBL_KNA1' 'KNA1' ' ' 12 ' '.

ENDFORM. " GET_FIELDCAT

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

*& Form WRITE_FIELDCAT

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

* Write the Field Catalog data to the Field Catalog Table

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

* -->name Field name

* -->tab Table name

* -->st Structure Name

* -->key Is this field a Key?

* -->pos Position Number

* -->length Field Length

* -->icon Display as Icon

* -->hot Hotspot

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

FORM write_fieldcat USING name tab st key pos length icon hot.

st_fieldcat-fieldname = name.

st_fieldcat-tabname = tab.

st_fieldcat-ref_tabname = st.

st_fieldcat-key = key.

st_fieldcat-col_pos = pos.

st_fieldcat-outputlen = length.

st_fieldcat-icon = icon.

st_fieldcat-hotspot = hot.

APPEND st_fieldcat TO tbl_fieldcat.

CLEAR st_fieldcat.

ENDFORM. " WRITE_FIELDCAT

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

*& Form PROCESS_USER_COMMANDS

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

* Interactive Reporting Commands

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

FORM process_user_commands USING syst-ucomm LIKE syst-ucomm

selfield TYPE slis_selfield.

* This subroutine is called when there is user interaction in the output

* In this case if the user double clicks the Customer Number then the

* program will call transaction XD03 and display the Customer Master

* Data

CASE syst-ucomm.

WHEN '&IC1'.

* get cursor field fieldname.

READ TABLE tbl_kna1 INDEX selfield-tabindex.

SET PARAMETER ID 'KUN' FIELD tbl_kna1-kunnr.

CALL TRANSACTION 'XD03' AND SKIP FIRST SCREEN.

ENDCASE.

ENDFORM. " PROCESS_USER_COMMANDS

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

*& Form GET_LAYOUT

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

* set the layout of the ALV.

* add color to the row?

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

FORM get_layout.

st_layout-info_fieldname = 'COLOR'.

st_layout-colwidth_optimize = 'X'.

st_layout-get_selinfos = 'X'.

ENDFORM. " GET_LAYOUT

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

*& Form get_data

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

* Get some data to play with

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

FORM get_data.

SELECT * FROM kna1 INTO CORRESPONDING FIELDS OF TABLE tbl_kna1

UP TO 30 ROWS.

ENDFORM. " get_data

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

*& Form do_fancy_stuff

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

* Do some fancy pants stuff for example changing the color of

* lines and adding icons

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

FORM do_fancy_stuff.

* Here we will demonstrate changing the color of ALV Record lines as

* well as displaying Icons

LOOP AT tbl_kna1.

* All records where NAME1 begins with 'M', will be displayed in Bluish

* Green

IF tbl_kna1-name1(1) EQ 'M'.

tbl_kna1-color = 'C41'. "Bluish Green

MODIFY tbl_kna1 TRANSPORTING color.

ENDIF.

* All records with no TELF1 will be displayed in White and have a

* Warning Icon

IF tbl_kna1-telf1 IS INITIAL.

tbl_kna1-color = 'C00'. "White

tbl_kna1-icon = '@AH@'. "Warning Icon

MODIFY tbl_kna1 TRANSPORTING icon color.

ENDIF.

ENDLOOP.

ENDFORM. " do_fancy_stuff

You might also be interested in these posts:

1. ABAP Program to add Colors in ALV Grid
2. ABAP Program for ALV Grid, the OOPS way
3. ABAP Program with Editable ALV Grid Contents

Here is a simple program to make certain cells of an ALV grid control editable.

Editable Table Grid

In present context the VBRK details are displayed where the KALSM is editable only where Sales Organization(VKORG) is ’0300′.

Note: Please do the following before executing the program.

1) create the gui interface ‘pf-status’ (with BACK and EXIT buttons) and a container ( give name as CONTAINER) for the screen.

2) In PBO of screen, write ‘MODULE LIST.’ after ‘MODULE STATUS_0100′.

Sample Code:

REPORT Z_ALV_EDIT_CELL.

*internal table declaration
DATA:
BEGIN OF t_itab OCCURS 0.
INCLUDE STRUCTURE VBRK.

*Adding a table of type LVC_T_SCOL to the output table that holds the status of editable cells
DATA t_editcell TYPE lvc_t_styl.
DATA END OF t_itab.

*Style table for cells and its work area
DATA: t_editcell TYPE lvc_t_styl,
fs_editcell LIKE LINE OF t_editcell.

*declaring the container & grid for output table display

DATA:
r_container TYPE REF TO cl_gui_custom_container,
r_grid TYPE REF TO cl_gui_alv_grid.

*structure of layout

DATA:
fs_layout TYPE lvc_s_layo.

START-OF-SELECTION.

SELECT * FROM VBRKt INTO CORRESPONDING FIELDS OF TABLE t_itab UP TO 20 ROWS.

*—————————————————————————–

*populating layout

fs_layout-stylefname = ‘T_EDITCELL’.

*—————————————————————————–

LOOP AT t_itab.

REFRESH t_editcell.

*making the KALSM editable for editing data for specific Sales Organization(0300)
IF t_itab-vkorg = ’0300′.

*populating t_editcell which contains fieldname+style of cell

fs_editcell-fieldname = ‘ KALSM’.

fs_editcell-style = cl_gui_alv_grid=>MC_STYLE_ENABLED. ” the value represents EDIT ENABLED

APPEND fs_editcell TO t_editcell.

ENDIF.

INSERT LINES OF t_editcell INTO TABLE t_itab-t_editcell.

MODIFY t_itab.

ENDLOOP.

CALL SCREEN 100.

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

*&Module STATUS_0100 OUTPUT

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

* text

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

MODULE status_0100 OUTPUT.

SET PF-STATUS ‘SCREEN1′.

ENDMODULE.” STATUS_0100 OUTPUT

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

*&Module USER_COMMAND_0100 INPUT

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

* text

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

MODULE user_command_0100 INPUT.

CASE sy-ucomm.

WHEN ‘BACK’.

LEAVE TO SCREEN 0.

WHEN ‘EXIT’.

LEAVE PROGRAM.

ENDCASE.

ENDMODULE.” USER_COMMAND_0100 INPUT

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

*& Module LIST OUTPUT

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

* text

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

MODULE list OUTPUT.

CREATE OBJECT r_container

EXPORTING

container_name = ‘CONTAINER’.

CREATE OBJECT r_grid

EXPORTING

i_parent = r_container.

*call this method to make the cell ready for input

CALL METHOD r_grid->set_ready_for_input

EXPORTING

i_ready_for_input = 1.

*passing the layout structure, fieldcatalog and output table for display

CALL METHOD r_grid->set_table_for_first_display

EXPORTING

i_structure_name = ‘SFLIGHT’

is_layout = fs_layout

CHANGING

it_outtab = t_itab[].

ENDMODULE. ” LIST OUTPUT

You might also be interested in these posts:

1. ABAP Program for ALV Grid, the OOPS way
2. ABAP Program for Creating an ALV Grid in 3 lines
3. ABAP Program to Display SE78 pictures on Screen