Application Development and Automation Discussions
Join the discussions or start your own on all things application development, including tools and APIs, programming models, and keeping your skills sharp.
cancel
Showing results for 
Search instead for 
Did you mean: 
Read only

hide statement not working properly

Former Member
0 Likes
448

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

2 REPLIES 2
Read only

Former Member
0 Likes
350

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.

Read only

Former Member
0 Likes
350

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.