‎2008 Aug 15 8:18 AM
hi,
please have a look at this report and suggest me necessary changes so that my hide statement will work properly.
TYPES : BEGIN OF z1,
zsales TYPE vbeln_va,
zpmo TYPE aufnr,
zacc TYPE belnr_d,
zamount TYPE dmbtr,
END OF zbct.
TYPES : BEGIN OF z1t,
ztype TYPE bapi_mtype,
zid TYPE symsgid,
zmessage TYPE bapi_msg,
END OF zbret.
DATA : it_zbct TYPE STANDARD TABLE OF zbct.
DATA : fl_zbct TYPE zbct,
fl_zbret TYPE zbret.
START-OF-SELECTION.
WRITE : /'Sales Document Order Number Accounting Document Number Amount'.
fl_zbct-zsales_ord = 'AAAAAAAAAA'.
fl_zbct-zpmo_ord = 'BBBBBBBBBBBB'.
fl_zbct-zacc_doc = 'CCCCCCCCCC'.
fl_zbct-zamount = '111.00'.
INSERT fl_zbct INTO TABLE it_zbct.
CLEAR fl_zbct.
fl_zbct-zsales_ord = 'DDDDDDDDDD'.
fl_zbct-zpmo_ord = 'EEEEEEEEEEEE'.
fl_zbct-zacc_doc = 'FFFFFFFFFF'.
fl_zbct-zamount = '222.00'.
INSERT fl_zbct INTO TABLE it_zbct.
CLEAR fl_zbct.
fl_zbct-zsales_ord = 'GGGGGGGGGG'.
fl_zbct-zpmo_ord = 'HHHHHHHHHHHH'.
fl_zbct-zacc_doc = 'IIIIIIIIII'.
fl_zbct-zamount = '333.00'.
INSERT fl_zbct INTO TABLE it_zbct.
CLEAR fl_zbct.
LOOP AT it_zbct INTO fl_zbct.
WRITE : /2 fl_zbct-zsales_ord,
23 fl_zbct-zpmo_ord,
50 fl_zbct-zacc_doc,
68 fl_zbct-zamount,
: /.
HIDE : fl_zbct-zpmo_ord,
fl_zbct-zacc_doc.
ENDLOOP.
CLEAR fl_zbct.
WRITE : / 'Message Type Message Class Message Text'.
AT LINE-SELECTION.
IF sy-lsind = 1.
WRITE: / 'selected order number is:',
fl_zbct-zpmo_ord,
ENDIF.
thanks,
S K
‎2008 Aug 15 9:18 AM
Hi,
it is easier to just not write out the fields and to use a read statement as shown below:
TYPES : BEGIN OF z1,
zsales TYPE vbeln_va,
zpmo TYPE aufnr,
zacc TYPE belnr_d,
zamount TYPE dmbtr,
END OF z1.
TYPES : BEGIN OF z1t,
ztype TYPE bapi_mtype,
zid TYPE symsgid,
zmessage TYPE bapi_msg,
END OF z1t.
DATA : it_z1t TYPE STANDARD TABLE OF z1 with header line.
DATA : fl_z1t TYPE z1,
fl_zbret TYPE z1.
START-OF-SELECTION.
WRITE : /2 'Sales Document',
23 'Order Number',
50 'Accounting Document',
68 'Number Amount'.
fl_z1t-zsales = 'AAAAAAAAAA'.
fl_z1t-zpmo = 'BBBBBBBBBBBB'.
fl_z1t-zacc = 'CCCCCCCCCC'.
fl_z1t-zamount = '111.00'.
INSERT fl_z1t INTO TABLE it_z1t.
CLEAR fl_z1t.
fl_z1t-zsales = 'DDDDDDDDDD'.
fl_z1t-zpmo = 'EEEEEEEEEEEE'.
fl_z1t-zacc = 'FFFFFFFFFF'.
fl_z1t-zamount = '222.00'.
INSERT fl_z1t INTO TABLE it_z1t.
CLEAR fl_z1t.
fl_z1t-zsales = 'GGGGGGGGGG'.
fl_z1t-zpmo = 'HHHHHHHHHHHH'.
fl_z1t-zacc = 'IIIIIIIIII'.
fl_z1t-zamount = '333.00'.
INSERT fl_z1t INTO TABLE it_z1t.
CLEAR fl_z1t.
LOOP AT it_z1t INTO fl_z1t.
HIDE : fl_z1t-zpmo,
fl_z1t-zacc.
WRITE : /2 fl_z1t-zsales,
23 fl_z1t-zpmo,
50 fl_z1t-zacc,
68 fl_z1t-zamount,
: /.
ENDLOOP.
CLEAR fl_z1t.
WRITE : / 'Message Type Message Class Message Text'.
AT LINE-SELECTION.
break pd74334.
move SY-LISEL+1(10) to fl_z1t-zsales.
read table it_z1t with key zsales = fl_z1t-zsales.
WRITE: / 'selected order number is:',
it_z1t-zpmo.
‎2008 Aug 15 9:23 AM
Hi
refer smaple code--
DATA: begin of tb_data occurs 0,
number type i,
square TYPE i,
cube TYPE i,
end of tb_data.
START-OF-SELECTION.
FORMAT HOTSPOT.
clear tb_data.
tb_data-number = 2.
tb_data-square = 4.
tb_data-cube = 8.
append tb_data.
clear tb_data.
tb_data-number = 3.
tb_data-square = 9.
tb_data-cube = 27.
append tb_data.
clear tb_data.
tb_data-number = 4.
tb_data-square = 16.
tb_data-cube = 64.
append tb_data.
clear tb_data.
tb_data-number = 5.
tb_data-square = 25.
tb_data-cube = 125.
append tb_data.
*DO 10 TIMES.
*square = sy-index ** 2.
*cube = sy-index ** 3.
*WRITE / sy-index.
*HIDE: square, cube.
*ENDDO.
loop at tb_data.
write:/ tb_data-number,
tb_data-square,
tb_data-cube.
Hide: tb_data-square, tb_data-cube.
endloop.
AT LINE-SELECTION.
WRITE:/ 'square', tb_data-square, 'cube', tb_data-cube.