Report Field Names

I know the answer to this one must be very simple, but I can't find it! I want to display a value from a column in a report in the report header text (this report always displays just one row). I know there is a get_value function for parameters. Can this also be used for field values and if so, what is the name of the field? I have tried a_<column_name> but this doesn't work. Any ideas??
Thanks in advance for all help received.
Regards,
Gillian

Hi,
You can refer the values of the parameters only in the additional plsql code section like this
for i in 1..p_arg_names.count loop
if p_arg_names(i) = 'deptno' then
htp.p(p_arg_values(i));
end if;
end loop;
The p_arg_names is an array of the argument names and p_arg_values is an array of argument values.
Thanks,
Sharmila

Similar Messages

Field name not known   in old existing report.

We have a report that we have used for a long time and has always been fine. Today when we open it it says data will be lost because "Field name not known".   So you click ok and look at the report in design and the report is missing a bunch of fields. You look at the Field Explorer and it only shows the first field in the table. This report links 2 tables. The linking field is the first field in both tables.
I try to re-map datasource and no luck.   I close Crystal, open Crystal and create a new report, look at the same tables and all of the fields are there. Create similar report looking at same datasource, same tables, some of the same fields, and it works fine.
What is wrong with the original report and why won't it connect or show fields?

It may be that the report file became corrupted. Do you have a back up of that report anywhere? If not you could create a new report using the same tables and links and then have both new and old reports open and copy objects from the old report to the new report. Save it and then verify it all works as it should and replace the old report with then new report. Copy the old report somewhere safe also.
Thank you
Don

Crystal 8.5 - now 9 - report in VB6 gives "This field name is not known"

Hi,
I've got to do some maintenance on an old VB 6.0 project that had some Crystal 8.5 reports in it (DSR files).
I only had Crystal 9.0 (developer edition) available, so am using that.
Running one report I now get the error "This field name is not known".
Q1. How can I find out what field - and where in the report it is?
Q2. Is there anything special I should have done to "upgrade" the DSR/DCA and DSX files?
Thanks,
Details:
The reports are not "visual", they are created within a DLL that saves them as PDF's and/or prints them directly.
The reports are bound at run-time to recordsets; at design time they use field definition files (TTX). I believe I've made sure the field definitions match the recordsets that they represent.

Hi,
Thanks for your replies.
Falk:
Nothing in particular was done to upgrade the files, other than to upgrade the VB project to reference the Crystal 9 dll's and such instead of Crystal 8.5.
The Crystal reports designer does not seem to want to open a DSR file. I did find some RPT files in the project; but while the Crystal reports designer will load them it does not seem to want to save as DSR files.
The "Field name is not known" message is returned in the error raised when VB tries to run the report, and it stops the report from being built.
Ludek:
That's a good kbase article. I had actually guessed that was an issue and had fixed two of the three reports in this project, by dumping (to text files) the recordsets being bound to them and comparing real field names with the TTX files. (I also updated some of the custom formulas in the reports to match the proper names).
...but in the third report, I just couldn't find the mis-match; checking the recordsets, TTX files and any customisable formulas I could locate.
As for the patch - after installing it the report designer no longer works at all in VB6 - not for the reports that I had got working, nor even for a new report!
(added: actually I can't get any designer up, even the VB forms designer won't load, in a project with no Crystal in it...)
At this point I "give up".
VB Express 2008 was used to "upgrade" the VB project to .Net and then convert the DSR's to new format RPT's. They were then loaded into a fresh VS 2008 (C#) project.
I'm now at the point of trying to figure out how to put in the report events that were in the old DSR files in the original VB project (there is code in them to assign the recordsets as sources, at run time, and calculate and make available information from the report).
Thanks again,
Edited by: pzkpfw on Aug 14, 2008 12:19 AM clarify
Edited by: pzkpfw on Aug 14, 2008 12:21 AM
Edited by: pzkpfw on Aug 14, 2008 5:16 AM

Field Names for Answers reports in Publisher.

I have found that the field names(xml element names) that publisher creates for datasets created from BI Answers reports are taken from the formula section of the field.
This creates two big problems.
1. The field names can be huge if you have a complicated formula in the field for BI answers. Good luck using that as anything but dropping on a page.
2. If the formula in the BI Answer report is changed in anyway the link between the field in the template and publisher is broken as publisher renames the data field name (xml Element).
Is there another layer of abstraction I can use to counter this? Some type of datafield mapping? Maybe something I can do in BI Answers?
Assume not all of my Datafields can be fixed by moving the formula to the RPD layer for calculation.
This is sort along the lines of previous thread. The method:
REPORT NAME -> Data Model -> Groups -> GROUP NAME -> Right Click on the field name -> Property Palette -> XML Tag
Does not seem to work in my version of Publisher. Or I need more help with it. I have not Groups Option.
Anyway to change the XML element name

The closest you can get to this is importing a query from the Answers catalog into Publisher, but there huge limitations to what you can then do with it. The chances are it will not actually meet your requirements and you will end up building the query from scratch in Publisher.
Publisher isn't always as easy to use as it might seem, I would urge you to look at the examples on OTN and follow the tutorials to get a better idea of what is possible, there is too much to explain through the forum.
http://www.oracle.com/technology/obe/obe_bi/bipub/index.html
Regards
Ed

Crystal Report Windows Forms Viewer error: "The field name is not known"

Hi,
My report runs fine in the Crystal Reports viewer. When we try to view the crystal report through a piece of 3rd party software, I start to get errors in a few of my formulas indicating that "the field name is not known". I can clearly see that the field is in my crystal report. Has anyone else had this problem? Any ideas on what might be happening?
Thank you.

Just to provide some further clarification on my problem:
The "field name is not known" error seems to be occurring only in a few formulas where I have a statement like this:
if ISNULL({somefieldfromdatabase}) Then
I've used this for many other formulas and not had an issue with them. I've verified that the database and the stored procedure contain this field.

Navigate through block and keep all field names available to a report

Dear OTN Members,
when i press a button, it has to go to a BLOCK what i mentioned and it has to collect all field names those having Visual attribute name what i mentioned and this list i want to populate into a new block where i press button? is it possible in any way.
thanks in advance

Thank you Mr Natesh,
but for me it is not possible to send the form, the form consists of lot of blocks and again i have to send you SQL scripts to generate respective blocks etc. if you can think of it with example block A with 20 fields, and block B with a field multi record block, here i want to populate all A.20 field names into B. again the fields in A are differentiated with Visual ttributes 2 types. here i want to restrict the list to a perticular VA.
hope you will help me in this.

What are the field names for below mentioned

Hello Friends
What are the fields names for below tables
in EKKO
Purchase Document Date
Net Value of the purchase document.
In EKPO
Item Description
From which place We bought it. (It means in Sales Items there we can know from which plant we sold the goods, like in EKPO, there is any field like this)
Please let we are defining the report to find out the stock availability for perticular storage location using select Options plant, company code, material no.
How many tables involve her to build this report. and also field names, they come under which table.
Please send me this information ASAP. PLz Plz Plz..........
Regards
Praveen

You can check the fields of these tables via SE11
Purchase Document Date - EKKO-BEDAT
Item Description - EKPO-TXZ01
Net price per item - EKPO-NETPR.
Regards,
Rich Heilman

How to return all field names in a table

How do you write a report to return all field names in a table? I prefer the field names in a column.
Thanks
Wayne

Hi,
In Oracle it is,
Select column_name from user_tab_cols where table_name = 'Table_Name';
Note: Table_Name should be in capital letters
In MS SQL Server it is,
SELECT Column_Name + ', '
FROM INFORMATION_SCHEMA.COLUMNS
WHERE TABLE_NAME = 'Table_Name'
Hope this helps!
Thanks
-Azhar

How to find the field name of variable system information on SAP B1

Hi All,
I recently wanted to create a simple SQL query to list all ITEM MASTER DATE where the weight is blank. This is so i can get a list of all items with the weight information missing from the system to investigate.
It turns out the weight field within the SALES DATA tab is a system variable. When i pull the OITM table up within the query generator i can not identify where this variable name come up without guessing which can give me the wrong information.
Can someone point me into the direction on how to assisocate variable to a field name within SAP B1. This is also another problem if i wanted to display variable within Crystal report layout.
Regards

Hi Nick Dang,
Try This
SELECT T0.[ItemCode], T0.[ItemName], T0.[SalUnitMsr], T0.[SHeight1], T0.[SWidth1], T0.[SLength1], T0.[SVolume], T0.[SWeight1] FROM OITM T0 WHERE T0.[ItemCode] =[%0]
Thanks,
Srujal Patel

Table name and field name

hi frds
Give me table name and field name of OPEN PO QUANTITY ..
thanks
Pari Vendhan.R

See the sample code for the open PO's based on Vendor
and do accordingly
*& Report ZMM_PO_REPORT
REPORT ZMM_PO_REPORT message-Id yb
NO STANDARD PAGE HEADING
LINE-COUNT 60(1)
LINE-SIZE 230.
D A T A B A S E T A B L E S D E C L A R A T I O N
TABLES: lfa1, " Vendor Master
t161, " PO Doc Types
t024, " Purchase Groups
ekko. " PO Header
T Y P E S D E C L A R A T I O N S
Purchase Orders Main Structure
TYPES: BEGIN OF s_po,
ebeln TYPE ebeln, " PO No.
ebelp TYPE ebelp, " PO Item
bstyp TYPE bstyp, " PO Category
bukrs TYPE bukrs, " Company Code
bsart TYPE bbsrt, " PO Type
lifnr TYPE lifnr, " Vendor No
ekgrp TYPE bkgrp, " Purchase Group
waers TYPE waers, " Currency
bedat TYPE etbdt, " PO Date
txz01 TYPE txz01, " Material Text
werks TYPE ewerk, " Plant
lgort TYPE lgort_d, " Storage Location
matkl TYPE matkl, " Material Group
menge TYPE bamng, " PR Quantity
meins TYPE bamei, " UOM
bprme TYPE bbprm, " Price Unit
netpr TYPE netpr, " Net price
peinh TYPE peinh, " Price Unit UOM
pstyp TYPE pstyp, " Item Category
knttp TYPE knttp, " Account Assignment Category
END OF s_po.
Purchase Orders History Structure
TYPES: BEGIN OF s_account,
ebeln TYPE ebeln, " PO No.
ebelp TYPE ebelp, " PO Item
gjahr TYPE mjahr, " Fiscal Year
belnr TYPE mblnr, " PO Invoice No
menge TYPE menge_d, " PR Quantity
wrbtr TYPE wrbtr, " Price in Local Currency
dmbtr TYPE dmbtr, " Price in Foreign Currency
waers TYPE waers, " Currency
shkzg TYPE shkzg, " Dr/Cr Indicator
END OF s_account.
Purchase Orders History Structure(Item Sum)
TYPES: BEGIN OF s_inv_sum,
ebeln TYPE ebeln, " PO No.
ebelp TYPE ebelp, " PO Item
menge TYPE menge_d, " PR Quantity
wrbtr TYPE wrbtr, " Price in Foreign Currency
waers TYPE waers, " Currency
END OF s_inv_sum.
Purchase Orders Main Structure
TYPES: BEGIN OF s_rep,
lifnr TYPE lifnr, " Vendor No
ebeln TYPE ebeln, " PO No.
ebelp TYPE ebelp, " PO Item
bstyp TYPE bstyp, " PO Category
bsart TYPE bbsrt, " PO Type
ekgrp TYPE bkgrp, " Purchase Group
waers TYPE waers, " Currency
bedat TYPE etbdt, " PO Date
txz01 TYPE txz01, " Material Text
werks TYPE ewerk, " Plant
lgort TYPE lgort_d, " Storage Location
matkl TYPE matkl, " Material Group
menge TYPE bamng, " PR Quantity
meins TYPE bamei, " UOM
bprme TYPE bbprm, " Price Unit
netpr TYPE netpr, " Net price
peinh TYPE peinh, " Price Unit UOM
pstyp TYPE pstyp, " Item Category
knttp TYPE knttp, " Account Assignment Category
name1 TYPE name1, " Plant
orewr TYPE netpr, " To be Invoiced Price
curr TYPE waers, " Inv Doc Currency
END OF s_rep.
D A T A D E C L A R A T I O N S
DATA: gv_title1 TYPE sylisel, " Report title
gv_dial. " Color flag
C O N S T A N T S D E C L A R A T I O N S
CONSTANTS: c_x VALUE 'X', " Flag X
c_h VALUE 'H', " Debit
c_vgabe TYPE vgabe VALUE '2'. " Transaction Type
I N T E R N A L T A B L E S D E C L A R A T I O N S
DATA: i_po TYPE STANDARD TABLE OF s_po WITH HEADER LINE,
" Purchase Order
i_inv TYPE STANDARD TABLE OF s_inv_sum WITH HEADER LINE,
" PO Invoice Values
i_rep TYPE STANDARD TABLE OF s_rep WITH HEADER LINE,
" PO Invoice Values
i_ekbe TYPE STANDARD TABLE OF s_account WITH HEADER LINE.
" PO Invoice Values
S E L E C T I O N S C R E E N *
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
SELECT-OPTIONS: s_lifnr FOR lfa1-lifnr MATCHCODE OBJECT kred,
s_ebeln FOR ekko-ebeln MATCHCODE OBJECT mekk,
s_bsart FOR t161-bsart,
s_ekgrp FOR t024-ekgrp,
s_bedat FOR ekko-bedat.
SELECTION-SCREEN END OF BLOCK b1.
I N I T I A L I Z A T I O N *
INITIALIZATION.
A T S E L E C T I O N - S C R E E N *
AT SELECTION-SCREEN.
Validate the screen fields
PERFORM validate_screen.
S T A R T - O F - S E L E C T I O N *
START-OF-SELECTION.
Fetch main data
PERFORM fetch_data.
T O P - O F - P A G E *
TOP-OF-PAGE.
Header of the List
PERFORM header.
E N D - O F - P A G E *
Footer
END-OF-PAGE.
ULINE.
E N D - O F - S E L E C T I O N *
END-OF-SELECTION.
Display the Report Output data
PERFORM display_data.
At Line-Selection
AT LINE-SELECTION.
When double clicked on EBELN display the details of Purchase Doc
PERFORM line_sel.
*& Form validate_screen
Validation of Selection Screen fields
FORM validate_screen .
Validation of Vendor Number
CLEAR lfa1-lifnr.
IF NOT s_lifnr[] IS INITIAL.
SELECT lifnr UP TO 1 ROWS
INTO lfa1-lifnr
FROM lfa1
WHERE lifnr IN s_lifnr.
ENDSELECT.
IF sy-subrc 0.
MESSAGE e000 WITH 'Invalid Vendor'(002).
ENDIF.
ENDIF.
Validation of PO Number
CLEAR ekko-ebeln.
IF NOT s_ebeln[] IS INITIAL.
SELECT ebeln UP TO 1 ROWS
INTO ekko-ebeln
FROM ekko
WHERE ebeln IN s_ebeln.
ENDSELECT.
IF sy-subrc 0.
MESSAGE e000 WITH 'Invalid Document Number'(003).
ENDIF.
ENDIF.
Validation of PO Document Type
CLEAR t161-bsart.
IF NOT s_bsart[] IS INITIAL.
SELECT bsart UP TO 1 ROWS
INTO t161-bsart
FROM t161
WHERE bsart IN s_bsart.
ENDSELECT.
IF sy-subrc 0.
MESSAGE e000 WITH 'Invalid Purchase Document Type'(004).
ENDIF.
ENDIF.
Validation of Purchasing Group
CLEAR t024-ekgrp.
IF NOT s_ekgrp[] IS INITIAL.
SELECT ekgrp UP TO 1 ROWS
INTO t024-ekgrp
FROM t024
WHERE ekgrp IN s_ekgrp.
ENDSELECT.
IF sy-subrc 0.
MESSAGE e000 WITH 'Invalid Purchasing Group'(005).
ENDIF.
ENDIF.
ENDFORM. " validate_screen
*& Form fetch_data
Fetching the PO related data from Database Tables
FORM fetch_data .
CLEAR i_po.
REFRESH i_po.
SELECT a~ebeln " PO No.
b~ebelp " PO Item
a~bstyp " PO Category
a~bukrs " Company Code
a~bsart " PO Type
a~lifnr " Vendor No
a~ekgrp " Purchase Group
a~waers " Currency
a~bedat " PO Date
b~txz01 " Material Text
b~werks " Plant
b~lgort " Storage Location
b~matkl " Material Group
b~menge " PR Quantity
b~meins " UOM
b~bprme " Price Unit
b~netpr " Net price
b~peinh " Price Unit UOM
b~pstyp " Item Category
b~knttp " Account Assignment Category
INTO TABLE i_po
FROM ekko AS a JOIN ekpo AS b
ON a~ebeln = b~ebeln
WHERE a~ebeln IN s_ebeln AND
a~lifnr IN s_lifnr AND
a~ekgrp IN s_ekgrp AND
a~bsart IN s_bsart AND
a~bedat IN s_bedat.
SORT i_po BY ebeln ebelp.
break-point.
IF NOT i_po[] IS INITIAL.
Fetch the PO History/Invoice Details from EKBE Table
CLEAR i_ekbe.
REFRESH i_ekbe.
SELECT ebeln " PO No.
ebelp " PO Item
gjahr " Fiscal Year
belnr " PO Invoice No
menge " PR Quantity
wrbtr " Price in Local Currency
dmbtr " Price in Foreign Currency
waers " Currency
shkzg " Dr/Cr Indicator
INTO TABLE i_ekbe
FROM ekbe
FOR ALL ENTRIES IN i_po
WHERE ebeln = i_po-ebeln AND
ebelp = i_po-ebelp AND
vgabe = c_vgabe.
IF sy-subrc = 0.
SORT i_ekbe BY ebeln ebelp.
LOOP AT i_ekbe.
IF i_ekbe-shkzg = c_h.
i_ekbe-wrbtr = i_ekbe-wrbtr * -1.
ENDIF.
MODIFY i_ekbe.
ENDLOOP.
break-point.
Sum up the Item wise Invoice totals
LOOP AT i_ekbe.
AT END OF ebelp.
READ TABLE i_ekbe INDEX sy-tabix.
SUM.
MOVE-CORRESPONDING i_ekbe TO i_inv.
APPEND i_inv.
ENDAT.
CLEAR i_inv.
ENDLOOP.
SORT i_inv BY ebeln ebelp.
break-point.
ENDIF.
ENDIF.
Move the Vendor Name and Invoice Values to I_rep Internal Table
LOOP AT i_po.
MOVE-CORRESPONDING i_po TO i_rep.
CLEAR i_inv.
READ TABLE i_inv WITH KEY ebeln = i_po-ebeln
ebelp = i_po-ebelp.
IF sy-subrc = 0.
i_rep-orewr = ( i_po-menge - i_inv-menge ) * i_po-netpr.
i_rep-curr = i_inv-waers.
ELSE.
i_rep-orewr = i_po-menge * i_po-netpr.
i_rep-curr = i_po-waers.
ENDIF.
break-point.
Get the Vendor Name
CLEAR lfa1-name1.
SELECT SINGLE name1 FROM lfa1 INTO lfa1-name1
WHERE lifnr = i_po-lifnr.
IF sy-subrc = 0.
i_rep-name1 = lfa1-name1.
ENDIF.
APPEND i_rep.
CLEAR i_rep.
break-point.
ENDLOOP.
SORT i_rep BY lifnr ebeln ebelp.
DELETE i_rep WHERE orewr LE 0.
break-point.
ENDFORM. " fetch_data
*& Form display_data
Display the Report Output data
FORM display_data .
DATA: lv_flag, " New Flag
lv_rec TYPE i. " No of Records
CLEAR lv_rec.
IF i_rep[] IS INITIAL.
MESSAGE e000 WITH 'No Data found'(022).
ELSE.
LOOP AT i_rep.
Toggle Color
PERFORM toggle_color.
IF lv_flag space.
NEW-LINE.
ENDIF.
At New Purchase Document
AT NEW ebeln.
WRITE:/1 sy-vline, 2(10) i_rep-ebeln INTENSIFIED OFF.
lv_flag = c_x.
lv_rec = lv_rec + 1.
ENDAT.
WRITE: 1 sy-vline,
12 sy-vline,13(4) i_rep-bsart,
17 sy-vline,18(10) i_rep-lifnr,
28 sy-vline,29(35) i_rep-name1,
64 sy-vline,65(4) i_rep-ekgrp,
69 sy-vline,70(10) i_rep-bedat,
80 sy-vline,81(5) i_rep-ebelp,
86 sy-vline,87(40) i_rep-txz01,
127 sy-vline,128(9) i_rep-matkl,
137 sy-vline,138(1) i_rep-pstyp,
139 sy-vline,140(1) i_rep-knttp,
141 sy-vline,142(4) i_rep-werks,
146 sy-vline,147(4) i_rep-lgort,
151 sy-vline,152(13) i_rep-menge UNIT i_rep-meins,
165 sy-vline,166(3) i_rep-meins,
169 sy-vline,170(15) i_rep-netpr CURRENCY i_rep-waers,
185 sy-vline,186(4) i_rep-waers,
190 sy-vline,191(5) i_rep-peinh,
196 sy-vline,197(4) i_rep-bprme,
201 sy-vline,202(15) i_rep-orewr CURRENCY i_rep-curr,
217 sy-vline,218(4) i_rep-curr,
222 sy-vline,223(7) i_rep-bstyp centered,
230 sy-vline.
NEW-LINE.
hide: i_rep-ebeln.
ENDLOOP.
ULINE.
FORMAT COLOR OFF.
WRITE : /2 'Total Number of Purchasing Documents:'(025) COLOR 3,
lv_rec COLOR 3.
ENDIF.
ENDFORM. " display_data
*& Form header
Write the Report Header
FORM header .
FORMAT RESET.
header
WRITE:/1(230) 'LIST OF PURCHASE DOCUMENTS PER VENDOR'(006) CENTERED.
SKIP.
FORMAT COLOR COL_HEADING.
ULINE.
WRITE:/1 sy-vline,2(10) 'Pur.Doc.No'(006) CENTERED,
12 sy-vline,13(4) 'Type'(007),
17 sy-vline,18(10) 'Vendor'(008) CENTERED,
28 sy-vline,29(35) 'Name'(009) CENTERED,
64 sy-vline,65(4) 'PGrp'(010) CENTERED,
69 sy-vline,70(10) 'Doc.Date'(012) CENTERED,
80 sy-vline,81(5) 'Item'(011),
86 sy-vline,87(40) 'Material Short Text'(024) CENTERED,
127 sy-vline,128(9) 'Mat.Group'(013),
137 sy-vline,138(1) 'I',
139 sy-vline,140(1) 'A',
141 sy-vline,142(4) 'Plnt'(014),
146 sy-vline,147(4) 'SLoc'(015),
151 sy-vline,152(13) 'Quantity'(016) CENTERED,
165 sy-vline,166(3) 'UoM'(017),
169 sy-vline,170(15) 'Net Value'(018) CENTERED,
185 sy-vline,186(4) 'Curr'(019),
190 sy-vline,191(5) 'Per'(020),
196 sy-vline,197(4) 'Unit'(021),
201 sy-vline,202(15) 'To be Invoiced'(023) CENTERED,
217 sy-vline,218(4) 'Curr'(019),
222 sy-vline,223(7) 'Doc.Cat'(026),
230 sy-vline.
ULINE.
ENDFORM. " header
*& Form toggle_color
This routine alters the color of the records in the list FORM toggle_color.
IF gv_dial = space.
FORMAT COLOR COL_NORMAL INTENSIFIED OFF.
gv_dial = c_x.
ELSE.
FORMAT COLOR 1 INTENSIFIED OFF.
CLEAR gv_dial.
ENDIF.
ENDFORM. " toggle_color
*& Form LINE_SEL
*When double clicked on EBELN field display the details of Purchase Doc
FORM line_sel.
CASE sy-lsind.
WHEN '1'.
DATA: lv_field(20),
lv_value(10),
lv_bstyp like i_rep-bstyp.
clear: lv_bstyp,lv_value, lv_field.
GET CURSOR FIELD lv_field VALUE lv_value.
IF lv_field = 'I_REP-EBELN'.
IF NOT lv_value IS INITIAL.
READ LINE sy-index FIELD VALUE i_rep-bstyp
INTO lv_bstyp.
READ CURRENT LINE FIELD VALUE i_rep-bstyp INTO lv_bstyp.
if lv_bstyp = 'F'.
SET PARAMETER ID 'BES' FIELD lv_value.
CALL TRANSACTION 'ME23N' AND SKIP FIRST SCREEN.
elseif ( lv_bstyp = 'K' or lv_bstyp = 'L' ).
SET PARAMETER ID 'VRT' FIELD lv_value.
CALL TRANSACTION 'ME33' AND SKIP FIRST SCREEN.
elseif lv_bstyp = 'A'.
SET PARAMETER ID 'ANF' FIELD lv_value.
CALL TRANSACTION 'ME43' AND SKIP FIRST SCREEN.
endif.
ENDIF.
ENDIF.
ENDCASE.
ENDFORM. " line_sel{code]
<REMOVED BY MODERATOR>
kushagra
Edited by: Alvaro Tejada Galindo on Feb 18, 2008 2:03 PM

Closing Stock/stock value field name in MB5B

Dear Expert,
I want to create a report on closing stock and closing stock value monthwise. Please suggest the field name in which i will get the data monthwise.
Regards

hi,
there is no specific field name for them, just refer the t code MC.9, may be you can get the required information you want.
Regards
Manohar

Can You Use A Report Field Value In A Hyperlink?

I have a report field that I would like to be a link to another application. Making a report field a hyperlink to a web page was nice and simple. However, I was expecting to be able to use the value of the field in the hyperlink something like...<a href="http://mywebsite/controller?action=servlets.ReportAlertDetailListAction&key={AlertSearch.ALERT_KEY">http://mywebsite/controller?action=servlets.ReportAlertDetailListAction&key={AlertSearch.ALERT_KEY</a>}...where AlertSearch is the table name and ALERT_KEY is the field name. Is there a way to use a report field in a hyperlink? Would using a formula allow it to be dynamic? The goal is to have each row of the report link to a URL with a different parameter. I can see eventually redoing it as a drill down feature but the detail I need already exists in a separate application.Thanks,Ed

Hi Ed.
I believe the conditional formula that you would use (don't just type in the text box - press the button for the formula first).
"[http://mywebsite/controller?action=servlets.ReportAlertDetailListAction&key | http://mywebsite/controller?action=servlets.ReportAlertDetailListAction&key]=" + {AlertSearch.ALERT_KEY}
The key is toÂ use the conditional formula feature of the hyperlinkÂ feature.Â
Enjoy!Â
Â Â Â Â - Kathryn Webster (Report Design Consultant)
Â Â Â Â Â Â Â Â Â Â Kat's News: http://diamond.businessobjects.com/blog/279

Field names for cl_alv_table_create= create_dynamic_table

Morning All
My client is currently implementing SAP QM at one of the labs and I have come across a situation where the fieldnames required for a dynamic table creation can potentially contain spaces and special characters. So far I have urged them to remove all such characters as the call to the cl_alv_table_create=>create_dynamic_table method will dump if they are present.
My question therefore is, is there a definitive list of characters that cannot be used as part of a fieldname? I intend to use such a list to then search and replace the special characters to enable me to match fieldnames.
For those of you that know QM, we cannot use internally assigned numbers for master characteristics (client decision) and special characters are frequently used as names in the lab. My client sees it as a limitation to remove the spaces and special characters from the names but unfortunately it causes problems for me if they don't.
I need to match the names to determine results for a report so substition seems to be the way forward - unless some else has another suggestion?
Thanks in advance
Ian

There is a form called SAACHECK in module pool RDDU0001 that the data dictionary program uses to check the validity of field names. You should probably have a look at the logic.
But why use the Master characteristics as the field name anyway? Why not instead create a cross reference in an internal table and generate a simple sequence for each unique master characteristic. That way your field names are just the sequence number, but you can still match up your data with a binary read on the cross reference internal table.

Add PROPERTY to Fields for "Field Name"

I want to have each field with a unique name when it arrives in the Responses report. Then, when I export to csv or Excel, I can manage the data knowing each column has a well-formatted and unique name. This is unique from the field's "text".
I read a response from Randy that one can double-click on the title cell in the responses page, and type in a new name there, which becomes essentially the field name. This does not replace the field's text.
However with more than 200 fields in my form, this would be a tedious process. Also, naming fields should be part of the form design process, not in the responses side.
I recommend that the field definition pop-up, when designing a form, should include in the field's properties a FIELD_NAME. The help should make clear the character set allowed in field names (or perhaps this could be part of the user's options, such as prohibiting backslash, etc.)
Thank you for a growing tool!

Hi,
Thanks for the feedback. You should post this feature idea to the Ideas section:
http://forums.adobe.com/community/formscentral?view=idea
We use the Ideas section to help prioritize our work.
Regards,
Brian

Populate information when double click on the field name

I have this tree structure with the field names as shown at this picture.
<a href="http://img164.imageshack.us/img164/426/treeaf0.jpg">http://img164.imageshack.us/img164/426/treeaf0.jpg</a>
When I double click on the field name, I would like to populate the values related to the fieldname to the tab form next to the tree structure as should in the picture.
How am I suppose to do this?
My codes as shown below:
*& Report ZSCSDM_RULES_ENGINE_TRANSFORM_v4
*& with Column Tree Structure & ABAP Generic code
REPORT ZSCSDM_MODIFY_TRANSFORM_HERA.
GLOBAL DECLARATION
======================================================================
SCREEN 9000 TABS (WIZARD-GENERATED CODES. DO NOT CHANGE)-------------*
*&SPWIZARD: FUNCTION CODES FOR TABSTRIP 'TRANSFORM'
Rayden Tree Control Code.
CLASS CL_TREE DEFINITION DEFERRED.
CLASS CL_GUI_CFW DEFINITION LOAD.
TYPES : ITEM_TABLE_TYPE LIKE STANDARD TABLE OF MTREEITM
 WITH DEFAULT KEY.
DATA: BEGIN OF ITAB_MO OCCURS 1.
 INCLUDE STRUCTURE ZSCSDM_MO.
DATA:END OF ITAB_MO.
DATA: BEGIN OF ITAB_OF OCCURS 1.
 INCLUDE STRUCTURE ZSCSDM_OF.
DATA:END OF ITAB_OF.
DATA: BEGIN OF ITAB_OS OCCURS 1.
 INCLUDE STRUCTURE ZSCSDM_OS.
DATA:END OF ITAB_OS.
DATA: BEGIN OF ITAB_TREE OCCURS 1,
 UNIKEY(100) TYPE C,
 PARENT(100) TYPE C,
 TYPE(10) TYPE C,
 IN_AREA(1) TYPE C,
 NAME(14) TYPE C,
 DESC(255) TYPE C,
 TAG(50) TYPE C,
 END OF ITAB_TREE.
DATA: TREE TYPE REF TO CL_GUI_COLUMN_TREE,
 DOCKING TYPE REF TO CL_GUI_DOCKING_CONTAINER,
 REPID TYPE SY-REPID,
 DYNNR TYPE SY-DYNNR,
 TREE_APPLICATION TYPE REF TO CL_TREE,
 LEVEL TYPE I,
 AREA_COUNT TYPE I,
 AREA_TEXT(30) TYPE C,
 AREA_DESC(30) TYPE C,
 AREA_KEY(30) TYPE C,
 OBJECT_TEXT(30) TYPE C,
 NODE_DISABLE(1) TYPE C,
 NODE_EXPAND(1) TYPE C,
 NODE_IMAGE(46) TYPE c,
 NODE_EXP_IMAGE(46) TYPE C,
 FIELD_KEY(30) TYPE C,
 SELECTED_KEY(30) TYPE C,
 SELECTED_ITEM(30) TYPE C,
 FIELD_COUNT(9) TYPE N,
 TAG_VALUE(255) TYPE C,
 TAG_1(255) TYPE C,
 TAG_2(255) TYPE C,
 PARENT_TAG_VALUE(50) TYPE C,
 TEMP_VALUE(100) TYPE C,
 COUNTER TYPE I,
 IN_AREA(1) TYPE C,
 STR_COUNTER TYPE STRING.
DATA: EVENT TYPE CNTL_SIMPLE_EVENT,
 EVENTS TYPE CNTL_SIMPLE_EVENTS,
 NODE_TABLE TYPE TREEV_NTAB,
 ITEM_TABLE TYPE ITEM_TABLE_TYPE,
 NODE TYPE TREEV_NODE,
 ITEM TYPE MTREEITM,
 ITAB_TREE_WA LIKE LINE OF ITAB_TREE,
 NODE_WA LIKE LINE OF NODE_TABLE,
 ITEM_WA LIKE LINE OF ITEM_TABLE,
 OF_WA LIKE LINE OF ITAB_OF,
 HIERARCHY_HEADER TYPE TREEV_HHDR.
FIELD-SYMBOLS: <FS_ITAB_TREE_ANY> TYPE ANY,
 <FS_NODE_ANY> TYPE ANY,
 <FS_OF_DESC> TYPE ANY.
CONSTANTS: BEGIN OF C_TRANSFORM,
 TAB1 LIKE SY-UCOMM VALUE 'TRANSFORM_FC1',
 TAB2 LIKE SY-UCOMM VALUE 'TRANSFORM_FC2',
 END OF C_TRANSFORM.
*&SPWIZARD: DATA FOR TABSTRIP 'TRANSFORM'
CONTROLS: TRANSFORM TYPE TABSTRIP.
DATA: BEGIN OF G_TRANSFORM,
 SUBSCREEN LIKE SY-DYNNR,
PROG LIKE SY-REPID VALUE 'ZSCSDM_MODIFY_TRANSFORM_V5',
 PRESSED_TAB LIKE SY-UCOMM VALUE C_TRANSFORM-TAB1,
 END OF G_TRANSFORM.
DATA: OK_CODE LIKE SY-UCOMM.
SCREEN 9001 FIELDS---------------------------------------------------*
TABLES: ZSCSDM_MO, ZSCSDM_OF, ZSCSDM_OS, ZSCSDM_REF.
DATA: REF_COND TYPE ZSCSDM_REF-REF_COND,
 G_EDITOR_CONTAINER TYPE REF TO CL_GUI_CUSTOM_CONTAINER,
 G_EDITOR TYPE REF TO CL_GUI_TEXTEDIT.
Rayden Dynamic generate ABAP Code.
SCREEN 9002 FIELDS---------------------------------------------------*
DATA: CODE_EDITOR_CONTAINER TYPE REF TO CL_GUI_CUSTOM_CONTAINER,
 CODE_EDITOR TYPE REF TO CL_GUI_TEXTEDIT.
TYPES: BEGIN OF DYN_CODE,
 LINE(255),
 END OF DYN_CODE.
DATA: DYN_CODE_TABLE TYPE TABLE OF DYN_CODE.
INITIALIZATION-------------------------------------------------------*
DATA: INIT_MODE_9001 TYPE I VALUE 0. "0 = CREATE, 1 = EDIT
SCREEN 9001 PBO AND PAI---------------------------------------------------*
DATA: DETAILS_SCREEN(10) TYPE C VALUE 'Transform',
 RETURN_RESULT TYPE CHAR9.
CONSTANTS: G_EDITOR_LENGTH TYPE I VALUE 255.
DATA: BEGIN OF G_EDITOR_LINE OCCURS 0,
 REF_COND TYPE ZSCSDM_REF-REF_COND,
 END OF G_EDITOR_LINE.
TYPES: BEGIN OF G_EDITOR_TABLE_LINE,
 LINE(G_EDITOR_LENGTH) TYPE C,
 END OF G_EDITOR_TABLE_LINE.
DATA: G_EDITOR_TABLE TYPE TABLE OF G_EDITOR_TABLE_LINE,
 G_EDITOR_CONTENTS LIKE STANDARD TABLE OF LINE.
DATA: INSERT_COUNTER TYPE I, INSERT_VALUE(G_EDITOR_LENGTH) TYPE C.
*DATA: NONE_BLANK_COUNTER TYPE I, NONE_BLANK_CHECK(G_EDITOR_LENGTH) TYPE C,
 INSERT_COUNTER TYPE I, INSERT_VALUE(G_EDITOR_LENGTH) TYPE C,
 OFFSET_LEN_3AT TYPE I,OFFSET_LEN_DOT TYPE I.
SAVE STATUS (SUCCESS=S OR FAIL=F)------------------------------------*
DATA: SAVE_STATUS(1) TYPE C.
Rayden Tree Control Code.
 CLASS CL_TREE DEFINITION
CLASS CL_TREE DEFINITION.
PUBLIC SECTION.
 METHODS : HANDLE_ITEM_DOUBLE_CLICK
 FOR EVENT ITEM_DOUBLE_CLICK
 OF CL_GUI_COLUMN_TREE
 IMPORTING NODE_KEY ITEM_NAME.
ENDCLASS. "CL_TREE DEFINITION
 CLASS CL_TREE IMPLEMENTATION
CLASS CL_TREE IMPLEMENTATION.
METHOD HANDLE_ITEM_DOUBLE_CLICK.
 SELECTED_KEY = NODE_KEY.
 SELECTED_ITEM = ITEM_NAME.
 CLEAR: TAG_VALUE.
 PERFORM CLEAR_SCREEN.
 IF ITEM_NAME = 'OBJECT'.
 READ TABLE ITAB_TREE INTO ITAB_TREE_WA WITH KEY UNIKEY = SELECTED_KEY.
 IF ITAB_TREE_WA-TYPE = 'OBJECT'.
 ZSCSDM_MO-OBJECT_ID = ITAB_TREE_WA-NAME.
 ZSCSDM_MO-OBJECT_DESC = ITAB_TREE_WA-DESC.
 ENDIF.
 IF ITAB_TREE_WA-TYPE = 'FILE'.
 ZSCSDM_OF-FILE_NAME = ITAB_TREE_WA-NAME.
 ZSCSDM_OF-FILE_DESC = ITAB_TREE_WA-DESC.
 " Get the OBJECT of the FILE
 SPLIT ITAB_TREE_WA-TAG AT 'T' INTO TAG_1 TAG_2.
 READ TABLE ITAB_TREE INTO ITAB_TREE_WA WITH KEY TAG = TAG_1.
 READ TABLE ITAB_TREE INTO ITAB_TREE_WA WITH KEY UNIKEY = ITAB_TREE_WA-PARENT.
 ZSCSDM_MO-OBJECT_ID = ITAB_TREE_WA-NAME.
 ZSCSDM_MO-OBJECT_DESC = ITAB_TREE_WA-DESC.
 ENDIF.
 IF ITAB_TREE_WA-TYPE = 'FIELD'.
 ZSCSDM_OS-FIELD_NAME = ITAB_TREE_WA-NAME.
 ZSCSDM_OS-FIELD_DESC = ITAB_TREE_WA-DESC.
 " Get the FILE of the FIELD
 SPLIT ITAB_TREE_WA-TAG AT 'F' INTO TAG_1 TAG_2.
 READ TABLE ITAB_TREE INTO ITAB_TREE_WA WITH KEY TAG = TAG_1.
 ZSCSDM_OF-FILE_NAME = ITAB_TREE_WA-NAME.
 ZSCSDM_OF-FILE_DESC = ITAB_TREE_WA-DESC.
 " Get the OBJECT of the FILE
 SPLIT ITAB_TREE_WA-TAG AT 'T' INTO TAG_1 TAG_2.
 READ TABLE ITAB_TREE INTO ITAB_TREE_WA WITH KEY TAG = TAG_1.
 READ TABLE ITAB_TREE INTO ITAB_TREE_WA WITH KEY UNIKEY = ITAB_TREE_WA-PARENT.
 ZSCSDM_MO-OBJECT_ID = ITAB_TREE_WA-NAME.
 ZSCSDM_MO-OBJECT_DESC = ITAB_TREE_WA-DESC.
 ENDIF.
 ENDIF.
ENDMETHOD. "HANDLE_ITEM_DOUBLE_CLICK
ENDCLASS. "CL_TREE IMPLEMENTATION
PROCESSING BLOCK
======================================================================
INITIALIZATION.
PERFORM GET_MEMORY.
ZSCSDM_OS-TG_LAST_CHGED_BY = SY-UNAME.
ZSCSDM_OS-TG_LAST_CHGED_ON = SY-DATUM.
START-OF-SELECTION.
CREATE OBJECT TREE_APPLICATION.
CALL SCREEN 9000.
MODULE PBO_9000 OUTPUT
MODULE PBO_9000 OUTPUT.
IF G_TRANSFORM-PRESSED_TAB = 'TRANSFORM_FC1'.
 SET PF-STATUS 'SCREEN_9000' EXCLUDING 'SYN'.
ELSEIF G_TRANSFORM-PRESSED_TAB = 'TRANSFORM_FC2'.
 SET PF-STATUS 'SCREEN_9000'.
ENDIF.
SET TITLEBAR 'RWB_TRANSFORM'.
IF TREE IS INITIAL.
 REPID = SY-REPID.
 DYNNR = SY-DYNNR.
 PERFORM INIT_TREE.
ENDIF.
ENDMODULE. "PBO_9000 OUTPUT
MODULE PBO_9001 OUTPUT
MODULE PBO_9001 OUTPUT.
IF INIT_MODE_9001 = 0. "ON FIRST LOAD
 CREATE OBJECT G_EDITOR_CONTAINER
 EXPORTING
 CONTAINER_NAME = 'REF_COND'
 EXCEPTIONS
 CNTL_ERROR = 1
 CNTL_SYSTEM_ERROR = 2
 CREATE_ERROR = 3
 LIFETIME_ERROR = 4
 LIFETIME_DYNPRO_DYNPRO_LINK = 5.
 CREATE OBJECT G_EDITOR
 EXPORTING
 PARENT = G_EDITOR_CONTAINER
 WORDWRAP_MODE =
 CL_GUI_TEXTEDIT=>WORDWRAP_OFF
 CL_GUI_TEXTEDIT=>WORDWRAP_AT_FIXED_POSITION
 CL_GUI_TEXTEDIT=>WORDWRAP_AT_WINDOWBORDER
 WORDWRAP_POSITION = G_EDITOR_LENGTH
 WORDWRAP_TO_LINEBREAK_MODE = CL_GUI_TEXTEDIT=>TRUE.
 SELECT REF_COND INTO G_EDITOR_LINE FROM ZSCSDM_REF
 WHERE OBJECT_ID = ZSCSDM_MO-OBJECT_ID AND FILE_NAME = ZSCSDM_OF-FILE_NAME
 AND FIELD_NAME = ZSCSDM_OS-FIELD_NAME AND REF_COND_TYPE = 'T'
 AND REF_CON_ID = 1.
 APPEND G_EDITOR_LINE-REF_COND TO G_EDITOR_TABLE.
 ENDSELECT.
 CALL METHOD G_EDITOR->SET_TEXT_AS_R3TABLE
 EXPORTING
 TABLE = G_EDITOR_TABLE.
 CALL METHOD CL_GUI_CFW=>FLUSH.
 REFRESH G_EDITOR_TABLE.
 SELECT COUNT(*) INTO INIT_MODE_9001 FROM ZSCSDM_OS
 WHERE OBJECT_ID = ZSCSDM_MO-OBJECT_ID AND FILE_NAME = ZSCSDM_OF-FILE_NAME
 AND FIELD_NAME = ZSCSDM_OS-FIELD_NAME AND TG_CREATED_BY <> ''.
 IF INIT_MODE_9001 = 0. "CREATE MODE
 INIT_MODE_9001 = 1.
 ZSCSDM_OS-TG_CREATED_BY = SY-UNAME.
 ZSCSDM_OS-TG_CREATED_ON = SY-DATUM.
 ZSCSDM_OS-TG_STATUS = 'A'.
 ZSCSDM_OS-TRANS_BY_DIRECT = 'X'.
 ELSE. "UPDATE MODE
 SELECT TG_CREATED_BY TG_CREATED_ON TG_LAST_CHGED_BY TG_LAST_CHGED_ON
 TG_STATUS TRANS_BY_DIRECT TRANS_TABLE TRANS_FIELD
 TRANS_BY_DEFAULT TRANS_DEF_VAL TRANS_BY_CONCAT
 CONCAT_FIELD_1 CONCAT_FIELD_2 CONCAT_FIELD_3 CONCAT_FIELD_4 CONCAT_FIELD_5
 CONCAT_FIELD_6 CONCAT_FIELD_7 CONCAT_FIELD_8 CONCAT_FIELD_9 CONCAT_FIELD_10
 TRANS_BY_REF
 INTO (ZSCSDM_OS-TG_CREATED_BY, ZSCSDM_OS-TG_CREATED_ON,
 ZSCSDM_OS-TG_LAST_CHGED_BY, ZSCSDM_OS-TG_LAST_CHGED_ON,
 ZSCSDM_OS-TG_STATUS, ZSCSDM_OS-TRANS_BY_DIRECT,
 ZSCSDM_OS-TRANS_TABLE, ZSCSDM_OS-TRANS_FIELD,
 ZSCSDM_OS-TRANS_BY_DEFAULT, ZSCSDM_OS-TRANS_DEF_VAL,
 ZSCSDM_OS-TRANS_BY_CONCAT, ZSCSDM_OS-CONCAT_FIELD_1,
 ZSCSDM_OS-CONCAT_FIELD_2, ZSCSDM_OS-CONCAT_FIELD_3,
 ZSCSDM_OS-CONCAT_FIELD_4, ZSCSDM_OS-CONCAT_FIELD_5,
 ZSCSDM_OS-CONCAT_FIELD_6, ZSCSDM_OS-CONCAT_FIELD_7,
 ZSCSDM_OS-CONCAT_FIELD_8, ZSCSDM_OS-CONCAT_FIELD_9,
 ZSCSDM_OS-CONCAT_FIELD_10, ZSCSDM_OS-TRANS_BY_REF) FROM ZSCSDM_OS
 WHERE OBJECT_ID = ZSCSDM_MO-OBJECT_ID AND FILE_NAME = ZSCSDM_OF-FILE_NAME
 AND FIELD_NAME = ZSCSDM_OS-FIELD_NAME.
 ENDSELECT.
 ENDIF.
ENDIF.
PERFORM CHANGE_TRANSFORM_TYPE.
ENDMODULE. "PBO_9001 OUTPUT
*&SPWIZARD: OUTPUT MODULE FOR TS 'TRANSFORM'. DO NOT CHANGE THIS LINE!
*&SPWIZARD: SETS ACTIVE TAB
MODULE TRANSFORM_ACTIVE_TAB_SET OUTPUT.
TRANSFORM-ACTIVETAB = G_TRANSFORM-PRESSED_TAB.
CASE G_TRANSFORM-PRESSED_TAB.
 WHEN C_TRANSFORM-TAB1.
 G_TRANSFORM-SUBSCREEN = '9001'.
 WHEN C_TRANSFORM-TAB2.
 G_TRANSFORM-SUBSCREEN = '9002'.
 WHEN OTHERS.
*&SPWIZARD: DO NOTHING
ENDCASE.
ENDMODULE. "TRANSFORM_ACTIVE_TAB_SET OUTPUT
MODULE USER_COMMAND_9000 INPUT
MODULE USER_COMMAND_9000 INPUT.
CASE SY-UCOMM.
 G_TRANSFORM-PRESSED_TAB = TRANSFORM-ACTIVETAB.
 " IF G_TRANSFORM-PRESSED_TAB =
 WHEN 'TRANSFORM_FC1'.
 SET PF-STATUS 'SCREEN_9000' EXCLUDING 'SYN'.
 MODIFY SCREEN.
 WHEN 'TRANSFORM_FC2'.
 SET PF-STATUS 'SCREEN_9000'.
 MODIFY SCREEN.
 WHEN 'EXIT' OR 'CANCEL'.
 LEAVE PROGRAM.
 WHEN 'BACK'.
 CLEAR SY-UCOMM.
 SAVE_STATUS = ''.
 PERFORM SET_MEMORY.
 SUBMIT ZSCSDM_RULES_ENGINE_NAV_V5.
 WHEN 'SAVE'.
 PERFORM GET_MEMORY_SAVE_STATUS.
 IF SAVE_STATUS = 'S'.
 PERFORM SET_MEMORY.
 SUBMIT ZSCSDM_RULES_ENGINE_NAV_V5.
 ELSE.
 PERFORM SET_MEMORY_SAVE_STATUS_RESET.
 ENDIF.
ENDCASE.
ENDMODULE. "USER_COMMAND_9000 INPUT
MODULE USER_COMMAND_9001 INPUT
MODULE USER_COMMAND_9001 INPUT.
CASE SY-UCOMM.
 WHEN 'SAVE'.
 CLEAR SY-UCOMM.
 PERFORM CHANGE_TRANSFORM_TYPE.
 PERFORM VALIDATE_DIRECT_FIELD.
 PERFORM VALIDATE_CONCAT_FIELD.
 PERFORM SAVE_TRANSFORM_TYPE.
 SELECT FIELD_STATUS CREATED_BY CREATED_ON LAST_CHGED_BY LAST_CHGED_ON
 COLUMN_NO KEY_FIELD SEARCH_HELP HASH_TOTAL_IND
 VG_CREATED_BY VG_CREATED_ON VG_LAST_CHGED_BY VG_LAST_CHGED_ON
 CHECK_DATA_TYPE DT_ERR_TEXT LN_ERR_TEXT DP_ERR_TEXT SN_ERR_TEXT
 FIELD_DOMAIN FIELD_DATA_TYPE FIELD_LENGTH FIELD_DECIMAL
 FIELD_NEGATIVE DOMAIN_POSS_VAL DOMAIN_ERR_TEXT
 MAND_OPT MAND_ERR_TEXT UNIQUE_CHECK UNIQUE_ERR_TEXT
 INTO (ZSCSDM_OS-FIELD_STATUS, ZSCSDM_OS-CREATED_BY, ZSCSDM_OS-CREATED_ON,
 ZSCSDM_OS-LAST_CHGED_BY, ZSCSDM_OS-LAST_CHGED_ON,
 ZSCSDM_OS-COLUMN_NO, ZSCSDM_OS-KEY_FIELD,
 ZSCSDM_OS-SEARCH_HELP, ZSCSDM_OS-HASH_TOTAL_IND,
 ZSCSDM_OS-VG_CREATED_BY, ZSCSDM_OS-VG_CREATED_ON,
 ZSCSDM_OS-VG_LAST_CHGED_BY, ZSCSDM_OS-VG_LAST_CHGED_ON,
 ZSCSDM_OS-CHECK_DATA_TYPE, ZSCSDM_OS-DT_ERR_TEXT,
 ZSCSDM_OS-LN_ERR_TEXT, ZSCSDM_OS-DP_ERR_TEXT,
 ZSCSDM_OS-SN_ERR_TEXT, ZSCSDM_OS-FIELD_DOMAIN,
 ZSCSDM_OS-FIELD_DATA_TYPE, ZSCSDM_OS-FIELD_LENGTH,
 ZSCSDM_OS-FIELD_DECIMAL, ZSCSDM_OS-FIELD_NEGATIVE,
 ZSCSDM_OS-DOMAIN_POSS_VAL, ZSCSDM_OS-DOMAIN_ERR_TEXT,
 ZSCSDM_OS-MAND_OPT, ZSCSDM_OS-MAND_ERR_TEXT,
 ZSCSDM_OS-UNIQUE_CHECK, ZSCSDM_OS-UNIQUE_ERR_TEXT) FROM ZSCSDM_OS
 WHERE OBJECT_ID = ZSCSDM_MO-OBJECT_ID AND FILE_NAME = ZSCSDM_OF-FILE_NAME
 AND FIELD_NAME = ZSCSDM_OS-FIELD_NAME.
 ENDSELECT.
 CALL FUNCTION 'ZSCSDM_FM_RULES_ENGINE_MODIFY'
 EXPORTING
 IN_OBJECT_ID = ZSCSDM_MO-OBJECT_ID
 IN_FILE_NAME = ZSCSDM_OF-FILE_NAME
 IN_FIELD_NAME = ZSCSDM_OS-FIELD_NAME
 IN_FIELD_DESC = ZSCSDM_OS-FIELD_DESC
 IN_FIELD_STATUS = ZSCSDM_OS-FIELD_STATUS
 IN_CREATED_BY = ZSCSDM_OS-CREATED_BY
 IN_CREATED_ON = ZSCSDM_OS-CREATED_ON
 IN_LAST_CHGED_BY = ZSCSDM_OS-LAST_CHGED_BY
 IN_LAST_CHGED_ON = ZSCSDM_OS-LAST_CHGED_ON
 IN_COLUMN_NO = ZSCSDM_OS-COLUMN_NO
 IN_KEY_FIELD = ZSCSDM_OS-KEY_FIELD
 IN_SEARCH_HELP = ZSCSDM_OS-SEARCH_HELP
 IN_HASH_TOTAL_IND = ZSCSDM_OS-HASH_TOTAL_IND
 IN_VG_CREATED_BY = ZSCSDM_OS-VG_CREATED_BY
 IN_VG_CREATED_ON = ZSCSDM_OS-VG_CREATED_ON
 IN_VG_LAST_CHGED_BY = ZSCSDM_OS-VG_LAST_CHGED_BY
 IN_VG_LAST_CHGED_ON = ZSCSDM_OS-VG_LAST_CHGED_ON
 IN_CHECK_DATA_TYPE = ZSCSDM_OS-CHECK_DATA_TYPE
 IN_DT_ERR_TEXT = ZSCSDM_OS-DT_ERR_TEXT
 IN_LN_ERR_TEXT = ZSCSDM_OS-LN_ERR_TEXT
 IN_DP_ERR_TEXT = ZSCSDM_OS-DP_ERR_TEXT
 IN_SN_ERR_TEXT = ZSCSDM_OS-SN_ERR_TEXT
 IN_FIELD_DOMAIN = ZSCSDM_OS-FIELD_DOMAIN
 IN_FIELD_DATA_TYPE = ZSCSDM_OS-FIELD_DATA_TYPE
 IN_FIELD_LENGTH = ZSCSDM_OS-FIELD_LENGTH
 IN_FIELD_DECIMAL = ZSCSDM_OS-FIELD_DECIMAL
 IN_FIELD_NEGATIVE = ZSCSDM_OS-FIELD_NEGATIVE
 IN_DOMAIN_POSS_VAL = ZSCSDM_OS-DOMAIN_POSS_VAL
 IN_DOMAIN_ERR_TEXT = ZSCSDM_OS-DOMAIN_ERR_TEXT
 IN_MAND_OPT = ZSCSDM_OS-MAND_OPT
 IN_MAND_ERR_TEXT = ZSCSDM_OS-MAND_ERR_TEXT
 IN_UNIQUE_CHECK = ZSCSDM_OS-UNIQUE_CHECK
 IN_UNIQUE_ERR_TEXT = ZSCSDM_OS-UNIQUE_ERR_TEXT
 IN_TG_CREATED_BY = ZSCSDM_OS-TG_CREATED_BY
 IN_TG_CREATED_ON = ZSCSDM_OS-TG_CREATED_ON
 IN_TG_LAST_CHGED_BY = ZSCSDM_OS-TG_LAST_CHGED_BY
 IN_TG_LAST_CHGED_ON = ZSCSDM_OS-TG_LAST_CHGED_ON
 IN_TG_STATUS = ZSCSDM_OS-TG_STATUS
 IN_TRANS_BY_DIRECT = ZSCSDM_OS-TRANS_BY_DIRECT
 IN_TRANS_TABLE = ZSCSDM_OS-TRANS_TABLE
 IN_TRANS_FIELD = ZSCSDM_OS-TRANS_FIELD
 IN_TRANS_BY_DEFAULT = ZSCSDM_OS-TRANS_BY_DEFAULT
 IN_TRANS_DEF_VAL = ZSCSDM_OS-TRANS_DEF_VAL
 IN_TRANS_BY_CONCAT = ZSCSDM_OS-TRANS_BY_CONCAT
 IN_CONCAT_FIELD_1 = ZSCSDM_OS-CONCAT_FIELD_1
 IN_CONCAT_FIELD_2 = ZSCSDM_OS-CONCAT_FIELD_2
 IN_CONCAT_FIELD_3 = ZSCSDM_OS-CONCAT_FIELD_3
 IN_CONCAT_FIELD_4 = ZSCSDM_OS-CONCAT_FIELD_4
 IN_CONCAT_FIELD_5 = ZSCSDM_OS-CONCAT_FIELD_5
 IN_CONCAT_FIELD_6 = ZSCSDM_OS-CONCAT_FIELD_6
 IN_CONCAT_FIELD_7 = ZSCSDM_OS-CONCAT_FIELD_7
 IN_CONCAT_FIELD_8 = ZSCSDM_OS-CONCAT_FIELD_8
 IN_CONCAT_FIELD_9 = ZSCSDM_OS-CONCAT_FIELD_9
 IN_CONCAT_FIELD_10 = ZSCSDM_OS-CONCAT_FIELD_10
 IN_TRANS_BY_REF = ZSCSDM_OS-TRANS_BY_REF
 IMPORTING
 OUT_RESULT = RETURN_RESULT.
 IF RETURN_RESULT = 'SUCCESS'.
 MESSAGE S001(ZSCSDM_DMT).
 IF ZSCSDM_OS-TRANS_BY_REF = 'X'.
 NONE_BLANK_COUNTER = 0.
 INSERT_COUNTER = 1.
 DELETE FROM ZSCSDM_REF WHERE OBJECT_ID = ZSCSDM_MO-OBJECT_ID AND FILE_NAME = ZSCSDM_OF-FILE_NAME
 AND FIELD_NAME = ZSCSDM_OS-FIELD_NAME AND REF_COND_TYPE = 'T' AND
 REF_CON_ID = 1.
 CALL METHOD G_EDITOR->GET_TEXT_AS_R3TABLE
 IMPORTING
 TABLE = G_EDITOR_CONTENTS.
 LOOP AT G_EDITOR_CONTENTS INTO NONE_BLANK_CHECK.
 IF NONE_BLANK_CHECK <> ''.
 NONE_BLANK_COUNTER = NONE_BLANK_COUNTER + 1.
 ENDIF.
 ENDLOOP.
 CLEAR INSERT_VALUE.
 LOOP AT G_EDITOR_CONTENTS INTO INSERT_VALUE.
 IF INSERT_VALUE <> ''.
 ZSCSDM_REF-OBJECT_ID = ZSCSDM_MO-OBJECT_ID.
 ZSCSDM_REF-FILE_NAME = ZSCSDM_OF-FILE_NAME.
 ZSCSDM_REF-FIELD_NAME = ZSCSDM_OS-FIELD_NAME.
 ZSCSDM_REF-REF_COND_TYPE = 'T'.
 ZSCSDM_REF-REF_CON_ID = 1.
 ZSCSDM_REF-REF_COND_ROW = INSERT_COUNTER.
 ZSCSDM_REF-CREATED_BY = ZSCSDM_OS-CREATED_BY.
 ZSCSDM_REF-CREATED_ON = ZSCSDM_OS-VG_CREATED_ON.
 ZSCSDM_REF-LAST_CHANGED_BY = ZSCSDM_OS-VG_LAST_CHGED_BY.
 ZSCSDM_REF-LAST_CHANGED_ON = ZSCSDM_OS-TG_LAST_CHGED_ON.
 ZSCSDM_REF-REF_RULE_STATUS = ZSCSDM_OS-TG_STATUS.
 ZSCSDM_REF-NOT_EXIST_IND = ''.
 ZSCSDM_REF-REF_COND = INSERT_VALUE.
 ZSCSDM_REF-REF_ERR_TEXT = 'Reference Error: The reference condition did not return any results.'.
 INSERT INTO ZSCSDM_REF VALUES ZSCSDM_REF.
 IF INSERT_COUNTER = NONE_BLANK_COUNTER.
 OFFSET_LEN_3AT = STRLEN( INSERT_VALUE ) - STRLEN( '@@@' ).
 IF OFFSET_LEN_3AT >= 0.
 IF INSERT_VALUE+OFFSET_LEN_3AT(3) NE '@@@'.
 OFFSET_LEN_DOT = STRLEN( INSERT_VALUE ) - STRLEN( `.` ).
 INSERT_COUNTER = INSERT_COUNTER + 1.
 ZSCSDM_REF-OBJECT_ID = ZSCSDM_MO-OBJECT_ID.
 ZSCSDM_REF-FILE_NAME = ZSCSDM_OF-FILE_NAME.
 ZSCSDM_REF-FIELD_NAME = ZSCSDM_OS-FIELD_NAME.
 ZSCSDM_REF-REF_COND_TYPE = 'T'.
 ZSCSDM_REF-REF_CON_ID = 1.
 ZSCSDM_REF-REF_COND_ROW = INSERT_COUNTER.
 ZSCSDM_REF-CREATED_BY = ZSCSDM_OS-CREATED_BY.
 ZSCSDM_REF-CREATED_ON = ZSCSDM_OS-VG_CREATED_ON.
 ZSCSDM_REF-LAST_CHANGED_BY = ZSCSDM_OS-VG_LAST_CHGED_BY.
 ZSCSDM_REF-LAST_CHANGED_ON = ZSCSDM_OS-TG_LAST_CHGED_ON.
 ZSCSDM_REF-REF_RULE_STATUS = ZSCSDM_OS-TG_STATUS.
 ZSCSDM_REF-NOT_EXIST_IND = ''.
 ZSCSDM_REF-REF_ERR_TEXT = 'Reference Error: The reference condition did not return any results.'.
 IF INSERT_VALUE+OFFSET_LEN_DOT(1) EQ '.'.
 ZSCSDM_REF-REF_COND = '@@@'.
 ELSE.
 ZSCSDM_REF-REF_COND = '.@@@'.
 ENDIF.
 ENDIF.
 ELSE.
 OFFSET_LEN_DOT = STRLEN( INSERT_VALUE ) - STRLEN( `.` ).
 INSERT_COUNTER = INSERT_COUNTER + 1.
 ZSCSDM_REF-OBJECT_ID = ZSCSDM_MO-OBJECT_ID.
 ZSCSDM_REF-FILE_NAME = ZSCSDM_OF-FILE_NAME.
 ZSCSDM_REF-FIELD_NAME = ZSCSDM_OS-FIELD_NAME.
 ZSCSDM_REF-REF_COND_TYPE = 'T'.
 ZSCSDM_REF-REF_CON_ID = 1.
 ZSCSDM_REF-REF_COND_ROW = INSERT_COUNTER.
 ZSCSDM_REF-CREATED_BY = ZSCSDM_OS-CREATED_BY.
 ZSCSDM_REF-CREATED_ON = ZSCSDM_OS-VG_CREATED_ON.
 ZSCSDM_REF-LAST_CHANGED_BY = ZSCSDM_OS-VG_LAST_CHGED_BY.
 ZSCSDM_REF-LAST_CHANGED_ON = ZSCSDM_OS-TG_LAST_CHGED_ON.
 ZSCSDM_REF-REF_RULE_STATUS = ZSCSDM_OS-TG_STATUS.
 ZSCSDM_REF-NOT_EXIST_IND = ''.
 ZSCSDM_REF-REF_ERR_TEXT = 'Reference Error: The reference condition did not return any results.'.
 IF INSERT_VALUE+OFFSET_LEN_DOT(1) EQ '.'.
 ZSCSDM_REF-REF_COND = '@@@'.
 ELSE.
 ZSCSDM_REF-REF_COND = '.@@@'.
 ENDIF.
 ENDIF.
 INSERT INTO ZSCSDM_REF VALUES ZSCSDM_REF.
 ENDIF.
 INSERT_COUNTER = INSERT_COUNTER + 1.
 ENDIF.
 ENDLOOP.
 ELSE.
 DELETE FROM ZSCSDM_REF WHERE OBJECT_ID = ZSCSDM_MO-OBJECT_ID AND FILE_NAME = ZSCSDM_OF-FILE_NAME
 AND FIELD_NAME = ZSCSDM_OS-FIELD_NAME AND REF_COND_TYPE = 'T' AND
 REF_CON_ID = 1.
 ENDIF.
 SAVE_STATUS = 'S'.
 PERFORM SET_MEMORY_SAVE_STATUS.
 SAVE_STATUS = ''.
 ELSE.
 SAVE_STATUS = 'F'.
 PERFORM SET_MEMORY_SAVE_STATUS.
 SAVE_STATUS = ''.
 MESSAGE E101(ZSCSDM_DMT).
 ENDIF.
ENDCASE.
ENDMODULE. "USER_COMMAND_9001 INPUT
*&SPWIZARD: INPUT MODULE FOR TS 'TRANSFORM'. DO NOT CHANGE THIS LINE!
*&SPWIZARD: GETS ACTIVE TAB
MODULE TRANSFORM_ACTIVE_TAB_GET INPUT.
OK_CODE = SY-UCOMM.
CASE OK_CODE.
 WHEN C_TRANSFORM-TAB1.
 G_TRANSFORM-PRESSED_TAB = C_TRANSFORM-TAB1.
 WHEN C_TRANSFORM-TAB2.
 G_TRANSFORM-PRESSED_TAB = C_TRANSFORM-TAB2.
 WHEN OTHERS.
*&SPWIZARD: DO NOTHING
ENDCASE.
ENDMODULE. "TRANSFORM_ACTIVE_TAB_GET INPUT
MODULE STATUS_9002 OUTPUT
MODULE STATUS_9002 OUTPUT.
IF CODE_EDITOR IS INITIAL.
 CREATE OBJECT CODE_EDITOR_CONTAINER
 EXPORTING
 CONTAINER_NAME = 'GEN_CODE'
 EXCEPTIONS
 CNTL_ERROR = 1
 CNTL_SYSTEM_ERROR = 2
 CREATE_ERROR = 3
 LIFETIME_ERROR = 4
 LIFETIME_DYNPRO_DYNPRO_LINK = 5.
 CREATE OBJECT CODE_EDITOR
 EXPORTING
 PARENT = CODE_EDITOR_CONTAINER
 WORDWRAP_MODE =
 CL_GUI_TEXTEDIT=>WORDWRAP_OFF
 CL_GUI_TEXTEDIT=>WORDWRAP_AT_FIXED_POSITION
 CL_GUI_TEXTEDIT=>WORDWRAP_AT_WINDOWBORDER
 WORDWRAP_POSITION = G_EDITOR_LENGTH
 WORDWRAP_TO_LINEBREAK_MODE = CL_GUI_TEXTEDIT=>TRUE.
ENDIF.
ENDMODULE. "STATUS_9002 OUTPUT
MODULE USER_COMMAND_9002 INPUT
MODULE USER_COMMAND_9002 INPUT.
ENDMODULE. "USER_COMMAND_9002 INPUT
MODULE F4_INPUT INPUT
MODULE F4_INPUT INPUT.
TYPES: BEGIN OF VALUES,
 FIELD_NAME TYPE ZSCSDM_OS-FIELD_NAME,
 FIELD_DESC TYPE ZSCSDM_OS-FIELD_DESC,
END OF VALUES.
DATA: PROGNAME TYPE SY-REPID, DYNNUM TYPE SY-DYNNR.
DATA: FILENAME_A TYPE ZSCSDM_OS-FILE_NAME,
 F4_VALUES TYPE TABLE OF VALUES.
PROGNAME = SY-REPID.
DYNNUM = SY-DYNNR.
SELECT FILE_NAME INTO (FILENAME_A) FROM ZSCSDM_OF
 WHERE OBJECT_ID = ZSCSDM_MO-OBJECT_ID AND FILE_NAME_TRANS = ZSCSDM_OF-FILE_NAME.
ENDSELECT.
SELECT FIELD_NAME FIELD_DESC FROM ZSCSDM_OS
 INTO CORRESPONDING FIELDS OF TABLE F4_VALUES
 WHERE OBJECT_ID = ZSCSDM_MO-OBJECT_ID AND FILE_NAME = FILENAME_A
 AND FIELD_STATUS = 'A'.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
 EXPORTING
 RETFIELD = 'FIELD_NAME'
 DYNPPROG = PROGNAME
 DYNPNR = DYNNUM
 DYNPROFIELD = 'ZSCSDM_OS-TRANS_FIELD'
 VALUE_ORG = 'S'
 TABLES
 VALUE_TAB = F4_VALUES.
ENDMODULE. "F4_INPUT INPUT
*& Form GET_MEMORY
 text
FORM GET_MEMORY.
DATA: MEM_STR(40) TYPE C, SY_MOD(2) TYPE C.
SY_MOD = SY-MODNO.
CONDENSE SY_MOD NO-GAPS.
CONCATENATE 'TraObjectID-' SY-UNAME '-' SY_MOD INTO MEM_STR.
IMPORT ZSCSDM_MO-OBJECT_ID FROM MEMORY ID MEM_STR.
FREE MEMORY ID MEM_STR.
CLEAR MEM_STR.
CONCATENATE 'TraObjectDesc-' SY-UNAME '-' SY_MOD INTO MEM_STR.
IMPORT ZSCSDM_MO-OBJECT_DESC FROM MEMORY ID MEM_STR.
FREE MEMORY ID MEM_STR.
CLEAR MEM_STR.
CONCATENATE 'TraFileName-' SY-UNAME '-' SY_MOD INTO MEM_STR.
IMPORT ZSCSDM_OF-FILE_NAME FROM MEMORY ID MEM_STR.
FREE MEMORY ID MEM_STR.
CLEAR MEM_STR.
CONCATENATE 'TraFileDesc-' SY-UNAME '-' SY_MOD INTO MEM_STR.
IMPORT ZSCSDM_OF-FILE_DESC FROM MEMORY ID MEM_STR.
FREE MEMORY ID MEM_STR.
CLEAR MEM_STR.
CONCATENATE 'TraFieldName-' SY-UNAME '-' SY_MOD INTO MEM_STR.
IMPORT ZSCSDM_OS-FIELD_NAME FROM MEMORY ID MEM_STR.
FREE MEMORY ID MEM_STR.
CLEAR MEM_STR.
CONCATENATE 'TraFieldDesc-' SY-UNAME '-' SY_MOD INTO MEM_STR.
IMPORT ZSCSDM_OS-FIELD_DESC FROM MEMORY ID MEM_STR.
FREE MEMORY ID MEM_STR.
CLEAR MEM_STR.
ENDFORM. "GET_MEMORY
*& Form GET_MEMORY_SAVE_STATUS
 text
FORM GET_MEMORY_SAVE_STATUS.
DATA: MEM_STR(40) TYPE C, SY_MOD(2) TYPE C.
DATA: CHECK_SAVE_STATUS(1) TYPE C.
SY_MOD = SY-MODNO.
CONDENSE SY_MOD NO-GAPS.
CONCATENATE 'Save-' SY-UNAME '-' SY_MOD INTO MEM_STR.
IMPORT CHECK_SAVE_STATUS FROM MEMORY ID MEM_STR.
FREE MEMORY ID MEM_STR.
CLEAR MEM_STR.
SAVE_STATUS = CHECK_SAVE_STATUS.
ENDFORM. "GET_MEMORY_SAVE_STATUS
*& Form SET_MEMORY
 text
FORM SET_MEMORY.
DATA: MEM_STR(40) TYPE C, SY_MOD(2) TYPE C.
SY_MOD = SY-MODNO.
CONDENSE SY_MOD NO-GAPS.
CONCATENATE 'DtlScreen-' SY-UNAME '-' SY_MOD INTO MEM_STR.
FREE MEMORY ID MEM_STR.
EXPORT DETAILS_SCREEN TO MEMORY ID MEM_STR.
CLEAR MEM_STR.
CONCATENATE 'TraObjectID1-' SY-UNAME '-' SY_MOD INTO MEM_STR.
FREE MEMORY ID MEM_STR.
EXPORT ZSCSDM_MO-OBJECT_ID TO MEMORY ID MEM_STR.
CLEAR MEM_STR.
CONCATENATE 'TraObjectDesc1-' SY-UNAME '-' SY_MOD INTO MEM_STR.
FREE MEMORY ID MEM_STR.
EXPORT ZSCSDM_MO-OBJECT_DESC TO MEMORY ID MEM_STR.
CLEAR MEM_STR.
CONCATENATE 'TraFileName1-' SY-UNAME '-' SY_MOD INTO MEM_STR.
FREE MEMORY ID MEM_STR.
EXPORT ZSCSDM_OF-FILE_NAME TO MEMORY ID MEM_STR.
CLEAR MEM_STR.
CONCATENATE 'TraFileDesc1-' SY-UNAME '-' SY_MOD INTO MEM_STR.
FREE MEMORY ID MEM_STR.
EXPORT ZSCSDM_OF-FILE_DESC TO MEMORY ID MEM_STR.
CLEAR MEM_STR.
CONCATENATE 'TraFieldName1-' SY-UNAME '-' SY_MOD INTO MEM_STR.
FREE MEMORY ID MEM_STR.
EXPORT ZSCSDM_OS-FIELD_NAME TO MEMORY ID MEM_STR.
CLEAR MEM_STR.
CONCATENATE 'TraFieldDesc1-' SY-UNAME '-' SY_MOD INTO MEM_STR.
FREE MEMORY ID MEM_STR.
EXPORT ZSCSDM_OS-FIELD_DESC TO MEMORY ID MEM_STR.
CLEAR MEM_STR.
ENDFORM. "SET_MEMORY
*& Form SET_MEMORY_SAVE_STATUS
 text
FORM SET_MEMORY_SAVE_STATUS.
DATA: MEM_STR(40) TYPE C, SY_MOD(2) TYPE C.
DATA: CHECK_SAVE_STATUS(1) TYPE C.
SY_MOD = SY-MODNO.
CONDENSE SY_MOD NO-GAPS.
CONCATENATE 'Save-' SY-UNAME '-' SY_MOD INTO MEM_STR.
IMPORT CHECK_SAVE_STATUS FROM MEMORY ID MEM_STR.
IF CHECK_SAVE_STATUS <> 'F'.
 FREE MEMORY ID MEM_STR.
 CHECK_SAVE_STATUS = SAVE_STATUS.
 EXPORT CHECK_SAVE_STATUS TO MEMORY ID MEM_STR.
ENDIF.
CLEAR MEM_STR.
ENDFORM. "SET_MEMORY_SAVE_STATUS
*& Form SET_MEMORY_SAVE_STATUS_RESET
 text
FORM SET_MEMORY_SAVE_STATUS_RESET.
DATA: MEM_STR(40) TYPE C, SY_MOD(2) TYPE C.
DATA: CHECK_SAVE_STATUS(1) TYPE C.
SY_MOD = SY-MODNO.
CONDENSE SY_MOD NO-GAPS.
CONCATENATE 'Save-' SY-UNAME '-' SY_MOD INTO MEM_STR.
FREE MEMORY ID MEM_STR.
CHECK_SAVE_STATUS = ''.
EXPORT CHECK_SAVE_STATUS TO MEMORY ID MEM_STR.
CLEAR MEM_STR.
ENDFORM. "SET_MEMORY_SAVE_STATUS_RESET
*& Form CHANGE_TRANSFORM_TYPE
 text
FORM CHANGE_TRANSFORM_TYPE.
IF ZSCSDM_OS-TRANS_BY_DIRECT = 'X'.
 LOOP AT SCREEN.
 IF SCREEN-NAME = 'ZSCSDM_OS-TRANS_FIELD'.
 SCREEN-INPUT = '1'.
 MODIFY SCREEN.
 ELSEIF SCREEN-NAME = 'ZSCSDM_OS-TRANS_DEF_VAL'.
 SCREEN-INPUT = '0'.
 MODIFY SCREEN.
 ELSEIF SCREEN-NAME = 'ZSCSDM_OS-CONCAT_FIELD_1'.
 SCREEN-INPUT = '0'.
 MODIFY SCREEN.
 ELSEIF SCREEN-NAME = 'ZSCSDM_OS-CONCAT_FIELD_2'.
 SCREEN-INPUT = '0'.
 MODIFY SCREEN.
 ELSEIF SCREEN-NAME = 'ZSCSDM_OS-CONCAT_FIELD_3'.
 SCREEN-INPUT = '0'.
 MODIFY SCREEN.
 ELSEIF SCREEN-NAME = 'ZSCSDM_OS-CONCAT_FIELD_4'.
 SCREEN-INPUT = '0'.
 MODIFY SCREEN.
 ELSEIF SCREEN-NAME = 'ZSCSDM_OS-CONCAT_FIELD_5'.
 SCREEN-INPUT = '0'.
 MODIFY SCREEN.
 ELSEIF SCREEN-NAME = 'ZSCSDM_OS-CONCAT_FIELD_6'.
 SCREEN-INPUT = '0'.
 MODIFY SCREEN.
 ELSEIF SCREEN-NAME = 'ZSCSDM_OS-CONCAT_FIELD_7'.
 SCREEN-INPUT = '0'.
 MODIFY SCREEN.
 ELSEIF SCREEN-NAME = 'ZSCSDM_OS-CONCAT_FIELD_8'.
 SCREEN-INPUT = '0'.
 MODIFY SCREEN.
 ELSEIF SCREEN-NAME = 'ZSCSDM_OS-CONCAT_FIELD_9'.
 SCREEN-INPUT = '0'.
 MODIFY SCREEN.
 ELSEIF SCREEN-NAME = 'ZSCSDM_OS-CONCAT_FIELD_10'.
 SCREEN-INPUT = '0'.
 MODIFY SCREEN.
 ENDIF.
 ENDLOOP.
 CALL METHOD G_EDITOR->SET_READONLY_MODE
 EXPORTING
 READONLY_MODE = CL_GUI_TEXTEDIT=>TRUE.
 SET CURSOR FIELD 'ZSCSDM_OS-TRANS_FIELD'.
ELSEIF ZSCSDM_OS-TRANS_BY_DEFAULT = 'X'.
 LOOP AT SCREEN.
 IF SCREEN-NAME = 'ZSCSDM_OS-TRANS_FIELD'.
 SCREEN-INPUT = '0'.
 MODIFY SCREEN.
 ELSEIF SCREEN-NAME = 'ZSCSDM_OS-TRANS_DEF_VAL'.
 SCREEN-INPUT = '1'.
 MODIFY SCREEN.
 ELSEIF SCREEN-NAME = 'ZSCSDM_OS-CONCAT_FIELD_1'.
 SCREEN-INPUT = '0'.
 MODIFY SCREEN.
 ELSEIF SCREEN-NAME = 'ZSCSDM_OS-CONCAT_FIELD_2'.
 SCREEN-INPUT = '0'.
 MODIFY SCREEN.
 ELSEIF SCREEN-NAME = 'ZSCSDM_OS-CONCAT_FIELD_3'.
 SCREEN-INPUT = '0'.
 MODIFY SCREEN.
 ELSEIF SCREEN-NAME = 'ZSCSDM_OS-CONCAT_FIELD_4'.
 SCREEN-INPUT = '0'.
 MODIFY SCREEN.
 ELSEIF SCREEN-NAME = 'ZSCSDM_OS-CONCAT_FIELD_5'.
 SCREEN-INPUT = '0'.
 MODIFY SCREEN.
 ELSEIF SCREEN-NAME = 'ZSCSDM_OS-CONCAT_FIELD_6'.
 SCREEN-INPUT = '0'.
 MODIFY SCREEN.
 ELSEIF SCREEN-NAME = 'ZSCSDM_OS-CONCAT_FIELD_7'.
 SCREEN-INPUT = '0'.
 MODIFY SCREEN.
 ELSEIF SCREEN-NAME = 'ZSCSDM_OS-CONCAT_FIELD_8'.
 SCREEN-INPUT = '0'.
 MODIFY SCREEN.
 ELSEIF SCREEN-NAME = 'ZSCSDM_OS-CONCAT_FIELD_9'.
 SCREEN-INPUT = '0'.
 MODIFY SCREEN.
 ELSEIF SCREEN-NAME = 'ZSCSDM_OS-CONCAT_FIELD_10'.
 SCREEN-INPUT = '0'.
 MODIFY SCREEN.
 ENDIF.
 ENDLOOP.
 CALL METHOD G_EDITOR->SET_READONLY_MODE
 EXPORTING
 READONLY_MODE = CL_GUI_TEXTEDIT=>TRUE.
 SET CURSOR FIELD 'ZSCSDM_OS-TRANS_DEF_VAL'.
ELSEIF ZSCSDM_OS-TRANS_BY_CONCAT = 'X'.
 LOOP AT SCREEN.
 IF SCREEN-NAME = 'ZSCSDM_OS-TRANS_FIELD'.
 SCREEN-INPUT = '0'.
 MODIFY SCREEN.
 ELSEIF SCREEN-NAME = 'ZSCSDM_OS-TRANS_DEF_VAL'.
 SCREEN-INPUT = '0'.
 MODIFY SCREEN.
 ELSEIF SCREEN-NAME = 'ZSCSDM_OS-CONCAT_FIELD_1'.
 SCREEN-INPUT = '1'.
 MODIFY SCREEN.
 ELSEIF SCREEN-NAME = 'ZSCSDM_OS-CONCAT_FIELD_2'.
 SCREEN-INPUT = '1'.
 MODIFY SCREEN.
 ELSEIF SCREEN-NAME = 'ZSCSDM_OS-CONCAT_FIELD_3'.
 SCREEN-INPUT = '1'.
 MODIFY SCREEN.
 ELSEIF SCREEN-NAME = 'ZSCSDM_OS-CONCAT_FIELD_4'.
 SCREEN-INPUT = '1'.
 MODIFY SCREEN.
 ELSEIF SCREEN-NAME = 'ZSCSDM_OS-CONCAT_FIELD_5'.
 SCREEN-INPUT = '1'.
 MODIFY SCREEN.
 ELSEIF SCREEN-NAME = 'ZSCSDM_OS-CONCAT_FIELD_6'.
 SCREEN-INPUT = '1'.
 MODIFY SCREEN.
 ELSEIF SCREEN-NAME = 'ZSCSDM_OS-CONCAT_FIELD_7'.
 SCREEN-INPUT = '1'.
 MODIFY SCREEN.
 ELSEIF SCREEN-NAME = 'ZSCSDM_OS-CONCAT_FIELD_8'.
 SCREEN-INPUT = '1'.
 MODIFY SCREEN.
 ELSEIF SCREEN-NAME = 'ZSCSDM_OS-CONCAT_FIELD_9'.
 SCREEN-INPUT = '1'.
 MODIFY SCREEN.
 ELSEIF SCREEN-NAME = 'ZSCSDM_OS-CONCAT_FIELD_10'.
 SCREEN-INPUT = '1'.
 MODIFY SCREEN.
 ENDIF.
 ENDLOOP.
 CALL METHOD G_EDITOR->SET_READONLY_MODE
 EXPORTING
 READONLY_MODE = CL_GUI_TEXTEDIT=>TRUE.
 SET CURSOR FIELD 'ZSCSDM_OS-CONCAT_FIELD_1'.
ELSEIF ZSCSDM_OS-TRANS_BY_REF = 'X'.
 LOOP AT SCREEN.
 IF SCREEN-NAME = 'ZSCSDM_OS-TRANS_FIELD'.
 SCREEN-INPUT = '0'.
 MODIFY SCREEN.
 ELSEIF SCREEN-NAME = 'ZSCSDM_OS-TRANS_DEF_VAL'.
 SCREEN-INPUT = '0'.
 MODIFY SCREEN.
 ELSEIF SCREEN-NAME = 'ZSCSDM_OS-CONCAT_FIELD_1'.
 SCREEN-INPUT = '0'.
 MODIFY SCREEN.
 ELSEIF SCREEN-NAME = 'ZSCSDM_OS-CONCAT_FIELD_2'.
 SCREEN-INPUT = '0'.
 MODIFY SCREEN.
 ELSEIF SCREEN-NAME = 'ZSCSDM_OS-CONCAT_FIELD_3'.
 SCREEN-INPUT = '0'.
 MODIFY SCREEN.
 ELSEIF SCREEN-NAME = 'ZSCSDM_OS-CONCAT_FIELD_4'.
 SCREEN-INPUT = '0'.
 MODIFY SCREEN.
 ELSEIF SCREEN-NAME = 'ZSCSDM_OS-CONCAT_FIELD_5'.
 SCREEN-INPUT = '0'.
 MODIFY SCREEN.
 ELSEIF SCREEN-NAME = 'ZSCSDM_OS-CONCAT_FIELD_6'.
 SCREEN-INPUT = '0'.
 MODIFY SCREEN.
 ELSEIF SCREEN-NAME = 'ZSCSDM_OS-CONCAT_FIELD_7'.
 SCREEN-INPUT = '0'.
 MODIFY SCREEN.
 ELSEIF SCREEN-NAME = 'ZSCSDM_OS-CONCAT_FIELD_8'.
 SCREEN-INPUT = '0'.
 MODIFY SCREEN.
 ELSEIF SCREEN-NAME = 'ZSCSDM_OS-CONCAT_FIELD_9'.
 SCREEN-INPUT = '0'.
 MODIFY SCREEN.
 ELSEIF SCREEN-NAME = 'ZSCSDM_OS-CONCAT_FIELD_10'.
 SCREEN-INPUT = '0'.
 MODIFY SCREEN.
 ENDIF.
 ENDLOOP.
 CALL METHOD G_EDITOR->SET_READONLY_MODE
 EXPORTING
 READO

Hello Swathi
I have never used method SET_USER_COMMAND (cl_gui_alv_grid) before so I do not really know its function.
However, you event handler FORM routine belongs to the old-fashioned fm-based ALV lists (e.g. REUSE_ALV_GRID_DISPLAY_LVC) so I doubt whether this will work together.
If you have define a column as HOTSPOT then this trigger the class event HOTSPOT_CLICK.
Correspondingly a double-click on the ALV grid triggers event DOUBLE_CLICK.
For a sample report regarding ALV event handling have a look at the links provided in
2 ALVS IN ONE SCREEN
Regards
Uwe

Report Field Names

Similar Messages

Maybe you are looking for