topic HIDE? in Application Development and Automation Discussions

HIDE?

Former Member — Thu, 31 Jan 2008 10:20:05 GMT

Hi All,

can you help me out in the following questions..

1> when we are using HIDE statement in basic list, is it necessary to use HIDE statement in secondary list to get more information about the fields we need.

*if possible give me example using 2 or 3 secondary lists.

2> Is it possible to create a Table without Data element? if yes how? and if we can create Table with out Data element then what is the use of Data element ?

Thanks in Advance

Re: HIDE?

Former Member — Thu, 31 Jan 2008 10:24:00 GMT

2) Yes,You Can create with out dataelement in SE11

enter the field name, Press predefined Type

Enter Type as CHAR length some 10

you can create by entering different data types.

Madhavi

Re: HIDE?

Former Member — Thu, 31 Jan 2008 10:34:58 GMT

Hi Satish,

about hide:

Syntax: HIDE dobj.

Effect

This statement stores - in the current list level - the content of the variable dobj together with the current list line whose line number is contained in sy-linno. The data type of the variables dobj must be flat and no field symbols can be specified that point to rows of internal tables, and no class attributes can be specified. The stored values can be read as follows:

For each user action in a displayed screen list that leads to a list result, all the row values stored using HIDE - that is, the row on which the screen cursor is positioned at the time of the event - are assigned to the respective variables.

If a list row of an arbitrary list level is read or modified using the statements READ LINE or MODIFY LINE, all the values of this row stored using HIDE are assigned to the respective variables.

Notes

The HIDE statement works independently of whether the list cursor was set. In particular, variables for empty list rows can be stored - that is, rows in which the list cursor was positioned using statements like SKIP.

The HIDE statement should be executed immediately at the statement that has set the list cursor in the row.

Outside of classes, constants and literals that cannot be read in list results and in the statement READ LINE can be specified for dobj outside of classes

Table without data element:

Yes, we can create dictionary tables without referring to data elements. This is done by clicking on “Predefined type” button during table creation.

Yes, we can create dictionary tables without referring to data elements. This is done by clicking on “Built in type” button during table creation.

Reward if found helpfull,

Cheers,

Chaitanya.

Re: HIDE?

Former Member — Thu, 31 Jan 2008 11:05:46 GMT

we can create table with data element using predefined type

this is small example which has 2 secoundary list and one basic list

where i have used hide in basic and 1st list

----

TABLE DECLARATION

----

TABLES kna1.

----

TYPE DECLARATION

----

TYPES:BEGIN OF st_kna1,

kunnr TYPE kna1-kunnr, "CUSTOMER NUMBER

name1 TYPE kna1-name1, "NAME1

END OF st_kna1.

TYPES:BEGIN OF st_vbak,

vbeln TYPE vbak-vbeln, "SALES DOCUMENT

audat TYPE vbak-audat, "DOCUMENT DATE

auart TYPE vbak-auart, "SALES DOCUMENT TYPE

erdat TYPE vbak-erdat, "DATA ON WHICH RECORD WAS CREATED

ernam TYPE vbak-ernam, "NAME OF THE PERSON WHO CREATED THE OBJECT

END OF st_vbak.

TYPES:BEGIN OF st_vbap,

posnr TYPE vbap-posnr, "SALES DOCUMENT ITEAM

matnr TYPE vbap-matnr, "MATERIAL NUMBER

pmatn TYPE vbap-pmatn, "Pricing reference material

matkl TYPE vbap-matkl, "MATERAIL GROUP

posar TYPE vbap-posar, "ITEAM TYPE

END OF st_vbap.

----

INTERNAL TABLE DECLARATION

----

DATA:it_kna1 TYPE STANDARD TABLE OF st_kna1,

it_vbak TYPE STANDARD TABLE OF st_vbak,

it_vbap TYPE STANDARD TABLE OF st_vbap.

----

WORK DECLARATION

----

DATA:wa_kna1 TYPE st_kna1,

wa_vbak TYPE st_vbak,

wa_vbap TYPE st_vbap.

----

DATA DECLARATION

----

DATA:v_kunnr(15),v_field TYPE kna1-kunnr,v1_vbeln(20),v1_field TYPE vbak-vbeln.

----

SELECT-OPTIONS

----

SELECT-OPTIONS:so_kunnr FOR kna1-kunnr.

"for range of customer code

----

PARAMETERS DECLARATION

----

PARAMETERS:p_hits TYPE i OBLIGATORY.

"no of hits

----

AT SELECTION SCREEN

----

AT SELECTION-SCREEN.

PERFORM validate-customerno.

"validation for entered customer code

----

START OF SELECTION

----

START-OF-SELECTION.

PERFORM basiclist. "fetching data for basic list

SET PF-STATUS 'PUSH'.

----

AT USER COMMAND

----

AT USER-COMMAND.

DATA:v_vbeln TYPE vbak-vbeln.

CASE sy-ucomm.

WHEN 'DISP'. "checking the condition for

PERFORM firstlist.

WHEN 'LIST'.

PERFORM secoundlist.

WHEN 'DOCU'.

v_vbeln = sy-lisel.

SET PARAMETER ID 'AUN' FIELD v_vbeln.

CALL TRANSACTION 'VA03' AND SKIP FIRST SCREEN.

ENDCASE.

----

at line selection

----

AT LINE-SELECTION.

CASE sy-lsind.

WHEN 1.

PERFORM firstlist.

WHEN 2.

PERFORM secoundlist.

ENDCASE.

----

TOP-OF-PAGE

----

TOP-OF-PAGE.

WRITE:2(15) text-000,20(20) text-001.

----

TOP-OF-PAGE DURING LINE SELECTION

----

TOP-OF-PAGE DURING LINE-SELECTION.

CASE sy-lsind.

WHEN 1.

ULINE AT : /1(154).

WRITE : / sy-vline ,

2 text-000 ,

wa_kna1-kunnr ,

75 text-001 ,

wa_kna1-name1,

154 sy-vline.

ULINE AT : /1(154).

WRITE : / sy-vline ,

2(22) text-002 COLOR 3,

sy-vline,

27(20) text-003 COLOR 3 ,

sy-vline ,

50(15) text-004 COLOR 3 ,

sy-vline ,

67(32) text-005 COLOR 3 ,

sy-vline,

102(52) text-006 COLOR 3 ,

154 sy-vline.

ULINE AT /1(154).

WHEN 2.

ULINE AT : /1(130).

WRITE : / sy-vline , 2 text-000 , wa_kna1-kunnr , 35 text-001 , wa_kna1-name1 , 85 text-003 , wa_vbak-vbeln , 130 sy-vline.

ULINE AT : /1(130).

WRITE : /1 sy-vline,

2(13) text-007 COLOR 3,

sy-vline,

18(18) text-008 COLOR 3 ,

sy-vline,

40(30) text-009 COLOR 3 ,

sy-vline,

92(16) text-010 COLOR 3 ,

sy-vline,

110(20) text-011 COLOR 3 ,

130 sy-vline.

"ULINE AT : /1(130).

ENDCASE.

----

FORM VALIDATE CUSTOMER NO

----

FORM validate-customerno .

SELECT kunnr FROM vbak INTO TABLE it_vbak UP TO p_hits ROWS WHERE kunnr IN so_kunnr.

IF sy-subrc NE 0.

MESSAGE text-012 TYPE 'E'.

ENDIF.

ENDFORM. " VALIDATE-CUSTOMERNO---*

----

FORM FIRSTLIST

----

FORM firstlist .

GET CURSOR FIELD v_kunnr VALUE v_field.

IF v_kunnr = 'WA_KNA1-KUNNR'.

CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'

EXPORTING

input = v_field

IMPORTING

output = v_field.

SET PF-STATUS 'PUSH1'.

SELECT v_{vbeln v}audat v_{auart v}erdat v_{ernam INTO TABLE it_vbak FROM vbak AS v INNER JOIN kna1 AS k ON v}kunnr = k_{kunnr WHERE v}kunnr = v_field .

IF sy-subrc = 0.

LOOP AT it_vbak INTO wa_vbak .

WRITE:/1 sy-vline,

2(22) wa_vbak-vbeln,

sy-vline,

27(20) wa_vbak-audat,

sy-vline,

50(15) wa_vbak-auart,

sy-vline,

67(32) wa_vbak-erdat,

sy-vline,

102(52) wa_vbak-ernam.

HIDE: wa_vbak-vbeln.

ENDLOOP.

ELSE.

MESSAGE text-013 TYPE 'E'.

ENDIF.

ULINE AT /1(154).

ELSE.

MESSAGE text-014 TYPE 'E'.

ENDIF.

ENDFORM. " FIRSTLIST

----

FORM SECOUNDLIST

----

FORM secoundlist .

SET PF-STATUS space.

GET CURSOR FIELD v1_vbeln VALUE v1_field.

IF v1_vbeln = 'WA_VBAK-VBELN'.

CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'

EXPORTING

input = v1_field

IMPORTING

output = v1_field.

SELECT v_{posnr v}matnr v_{pmatn v}matkl v_{posar INTO TABLE it_vbap FROM vbap AS v INNER JOIN vbak AS a ON v}vbeln = a_{vbeln WHERE v}vbeln = v1_field.

IF sy-subrc = 0.

LOOP AT it_vbap INTO wa_vbap .

WRITE:/2(30) wa_vbap-posnr,

18(18) wa_vbap-matnr,

40(30) wa_vbap-pmatn,

92(16) wa_vbap-matkl,

110(20) wa_vbap-posar.

ENDLOOP.

ELSE.

MESSAGE text-015 TYPE 'E'.

ENDIF.

ELSE.

MESSAGE text-016 TYPE 'E'.

ENDIF.

ENDFORM. " SECOUNDLIST

----

FORM BASIC LIST

----

FORM basiclist .

IF so_kunnr[] IS INITIAL.

MESSAGE text-017 TYPE 'I'.

ELSE.

SELECT kunnr name1 FROM kna1 INTO TABLE it_kna1 UP TO p_hits ROWS WHERE kunnr IN so_kunnr.

LOOP AT it_kna1 INTO wa_kna1.

WRITE:/2(10) wa_kna1-kunnr,20(10) wa_kna1-name1.

HIDE:wa_kna1-kunnr,wa_kna1-name1.

ENDLOOP.

ENDIF.

ENDFORM. " BASICLIST

Re: HIDE?

Former Member — Thu, 31 Jan 2008 11:08:41 GMT

hi,

we can create table without dataelement

here is the small example for hide which consists of one basic list and two secoundary list

----

TABLE DECLARATION

----

TABLES kna1.

----

TYPE DECLARATION

----

TYPES:BEGIN OF st_kna1,

kunnr TYPE kna1-kunnr, "CUSTOMER NUMBER

name1 TYPE kna1-name1, "NAME1

END OF st_kna1.

TYPES:BEGIN OF st_vbak,

vbeln TYPE vbak-vbeln, "SALES DOCUMENT

audat TYPE vbak-audat, "DOCUMENT DATE

auart TYPE vbak-auart, "SALES DOCUMENT TYPE

erdat TYPE vbak-erdat, "DATA ON WHICH RECORD WAS CREATED

ernam TYPE vbak-ernam, "NAME OF THE PERSON WHO CREATED THE OBJECT

END OF st_vbak.

TYPES:BEGIN OF st_vbap,

posnr TYPE vbap-posnr, "SALES DOCUMENT ITEAM

matnr TYPE vbap-matnr, "MATERIAL NUMBER

pmatn TYPE vbap-pmatn, "Pricing reference material

matkl TYPE vbap-matkl, "MATERAIL GROUP

posar TYPE vbap-posar, "ITEAM TYPE

END OF st_vbap.

----

INTERNAL TABLE DECLARATION

----

DATA:it_kna1 TYPE STANDARD TABLE OF st_kna1,

it_vbak TYPE STANDARD TABLE OF st_vbak,

it_vbap TYPE STANDARD TABLE OF st_vbap.

----

WORK DECLARATION

----

DATA:wa_kna1 TYPE st_kna1,

wa_vbak TYPE st_vbak,

wa_vbap TYPE st_vbap.

----

DATA DECLARATION

----

DATA:v_kunnr(15),v_field TYPE kna1-kunnr,v1_vbeln(20),v1_field TYPE vbak-vbeln.

----

SELECT-OPTIONS

----

SELECT-OPTIONS:so_kunnr FOR kna1-kunnr.

"for range of customer code

----

PARAMETERS DECLARATION

----

PARAMETERS:p_hits TYPE i OBLIGATORY.

"no of hits

----

AT SELECTION SCREEN

----

AT SELECTION-SCREEN.

PERFORM validate-customerno.

"validation for entered customer code

----

START OF SELECTION

----

START-OF-SELECTION.

PERFORM basiclist. "fetching data for basic list

SET PF-STATUS 'PUSH'.

----

AT USER COMMAND

----

AT USER-COMMAND.

DATA:v_vbeln TYPE vbak-vbeln.

CASE sy-ucomm.

WHEN 'DISP'. "checking the condition for

PERFORM firstlist.

WHEN 'LIST'.

PERFORM secoundlist.

WHEN 'DOCU'.

v_vbeln = sy-lisel.

SET PARAMETER ID 'AUN' FIELD v_vbeln.

CALL TRANSACTION 'VA03' AND SKIP FIRST SCREEN.

ENDCASE.

----

at line selection

----

AT LINE-SELECTION.

CASE sy-lsind.

WHEN 1.

PERFORM firstlist.

WHEN 2.

PERFORM secoundlist.

ENDCASE.

----

TOP-OF-PAGE

----

TOP-OF-PAGE.

WRITE:2(15) text-000,20(20) text-001.

----

TOP-OF-PAGE DURING LINE SELECTION

----

TOP-OF-PAGE DURING LINE-SELECTION.

CASE sy-lsind.

WHEN 1.

ULINE AT : /1(154).

WRITE : / sy-vline ,

2 text-000 ,

wa_kna1-kunnr ,

75 text-001 ,

wa_kna1-name1,

154 sy-vline.

ULINE AT : /1(154).

WRITE : / sy-vline ,

2(22) text-002 COLOR 3,

sy-vline,

27(20) text-003 COLOR 3 ,

sy-vline ,

50(15) text-004 COLOR 3 ,

sy-vline ,

67(32) text-005 COLOR 3 ,

sy-vline,

102(52) text-006 COLOR 3 ,

154 sy-vline.

ULINE AT /1(154).

WHEN 2.

ULINE AT : /1(130).

WRITE : / sy-vline , 2 text-000 , wa_kna1-kunnr , 35 text-001 , wa_kna1-name1 , 85 text-003 , wa_vbak-vbeln , 130 sy-vline.

ULINE AT : /1(130).

WRITE : /1 sy-vline,

2(13) text-007 COLOR 3,

sy-vline,

18(18) text-008 COLOR 3 ,

sy-vline,

40(30) text-009 COLOR 3 ,

sy-vline,

92(16) text-010 COLOR 3 ,

sy-vline,

110(20) text-011 COLOR 3 ,

130 sy-vline.

"ULINE AT : /1(130).

ENDCASE.

----

FORM VALIDATE CUSTOMER NO

----

FORM validate-customerno .

SELECT kunnr FROM vbak INTO TABLE it_vbak UP TO p_hits ROWS WHERE kunnr IN so_kunnr.

IF sy-subrc NE 0.

MESSAGE text-012 TYPE 'E'.

ENDIF.

ENDFORM. " VALIDATE-CUSTOMERNO---*

----

FORM FIRSTLIST

----

FORM firstlist .

GET CURSOR FIELD v_kunnr VALUE v_field.

IF v_kunnr = 'WA_KNA1-KUNNR'.

CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'

EXPORTING

input = v_field

IMPORTING

output = v_field.

SET PF-STATUS 'PUSH1'.

SELECT v_{vbeln v}audat v_{auart v}erdat v_{ernam INTO TABLE it_vbak FROM vbak AS v INNER JOIN kna1 AS k ON v}kunnr = k_{kunnr WHERE v}kunnr = v_field .

IF sy-subrc = 0.

LOOP AT it_vbak INTO wa_vbak .

WRITE:/1 sy-vline,

2(22) wa_vbak-vbeln,

sy-vline,

27(20) wa_vbak-audat,

sy-vline,

50(15) wa_vbak-auart,

sy-vline,

67(32) wa_vbak-erdat,

sy-vline,

102(52) wa_vbak-ernam.

HIDE: wa_vbak-vbeln.

ENDLOOP.

ELSE.

MESSAGE text-013 TYPE 'E'.

ENDIF.

ULINE AT /1(154).

ELSE.

MESSAGE text-014 TYPE 'E'.

ENDIF.

ENDFORM. " FIRSTLIST

----

FORM SECOUNDLIST

----

FORM secoundlist .

SET PF-STATUS space.

GET CURSOR FIELD v1_vbeln VALUE v1_field.

IF v1_vbeln = 'WA_VBAK-VBELN'.

CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'

EXPORTING

input = v1_field

IMPORTING

output = v1_field.

SELECT v_{posnr v}matnr v_{pmatn v}matkl v_{posar INTO TABLE it_vbap FROM vbap AS v INNER JOIN vbak AS a ON v}vbeln = a_{vbeln WHERE v}vbeln = v1_field.

IF sy-subrc = 0.

LOOP AT it_vbap INTO wa_vbap .

WRITE:/2(30) wa_vbap-posnr,

18(18) wa_vbap-matnr,

40(30) wa_vbap-pmatn,

92(16) wa_vbap-matkl,

110(20) wa_vbap-posar.

ENDLOOP.

ELSE.

MESSAGE text-015 TYPE 'E'.

ENDIF.

ELSE.

MESSAGE text-016 TYPE 'E'.

ENDIF.

ENDFORM. " SECOUNDLIST

----

FORM BASIC LIST

----

FORM basiclist .

IF so_kunnr[] IS INITIAL.

MESSAGE text-017 TYPE 'I'.

ELSE.

SELECT kunnr name1 FROM kna1 INTO TABLE it_kna1 UP TO p_hits ROWS WHERE kunnr IN so_kunnr.

LOOP AT it_kna1 INTO wa_kna1.

WRITE:/2(10) wa_kna1-kunnr,20(10) wa_kna1-name1.

HIDE:wa_kna1-kunnr,wa_kna1-name1.

ENDLOOP.

ENDIF.

ENDFORM. " BASICLIST

Re: HIDE?

Former Member — Fri, 01 Feb 2008 06:36:36 GMT

Hi,

It is necessary to use hide statement in case you are developing a interactive report.

You need to use Hide syntax in Basic list.It basically stores the value that you double clicked on to go to the secondary list.

It is not necessary to use hide syntax in secondary list.

Thanks..

Reward me points if useful.