Programming in abap

Question

hi all,
as i am new to abap can anyone explain me how to start  programming in abap ie a small classical report.
thanks in advance,
chandana

Answer 1

Hi,
Please refer the following program. It covers all the events in a report.
REPORT  zsample.
tables : zpldet ,zplrv .
data : begin of itab occurs 4,
       plno like zpldet-plno,
       ptype like zpldet-ptype,
       pname like zpldet-pname,
       pns like zpldet-pns,
       end of itab.
data : begin of jtab occurs 4,
       plno like zplrv-plno,
       rid like zplrv-rid,
       ptype like zplrv-ptype,
       stno like zplrv-stnr,
      end of jtab.
selection-screen : begin of block b1 with frame title text-001.
select-options planenum for zpldet-plno.
parameters planenam like zpldet-pname.
selection-screen : end of block b1.
initialization.
        planenum-low = '111'.
        planenum-high = '999'.
        append planenum.
start-of-selection.
select plno ptype pname pns from zpldet into table itab where plno in planenum.
loop at itab.
write : itab-plno, itab-ptype,itab-pname, itab-pns.
endloop.
*top-of-page.
*write: / 'CLASSICAL REPORT'.
*end-of-page.
*write: / 'END OF LIST'.
loop at itab.
   format hotspot on.
   write : / itab-plno.
hide : itab-plno.
   format hotspot off.
write :  itab-ptype,itab-pname, itab-pns.
endloop.
top-of-page.
    write : / 'Plane details based on planenumber'.
at line-selection.
   case sy-lsind.
    when '1'.
select plno rid ptype stnr from zplrv into table jtab where plno = itab-plno.
  loop at jtab.
  format hotspot on.
   write : / jtab-plno.
  format hotspot off.
write :  jtab-rid, jtab-ptype, jtab-stno.
skip 1.
endloop.
when '2'.
write: / 'End of list'.
endcase.
top-of-page during line-selection.
write : / 'Cancellation of this plane number'.
Please reward points if helpful.