Saving a textarea list from a form to attribute string in SAP resource

Hi,
I am trying to save a text area from a form defined as this:
<Field name='accounts[$(RESOURCE_NAME)].assignedProfiles'>
<Display class='TextArea'>
<Property name='title' value='$(RESOURCE_NAME) Profiles'/>
<Property name='rows' value='6'/>
<Property name='columns' value='32'/>
<Property name='format' value='list'/>
<Property name='sorted' value='true'/>
</Display>
<Derivation>
<ref>accounts[$(RESOURCE_NAME)].assignedProfiles</ref>
</Derivation>
</Field>
Into an SAP Resource to the attribute assignedProfiles which is mapped to PROFILES->BAPIPROF
This text area actually outputs a list and saves without error from IDM however, when I check in SAP, it's not reflected, what is happening here, I tried many approaches already, and it's maddening that it doesn't work!
Please help!

So here is a solution I came up with
<cfoutput>
<cfset Servers="#StripCR(Form.ServerList)#">
<cfset Servers2="'#Replace(Servers, "
", " ", "All")#'">
<cfset Servers3="#ToString(Servers2)#">
<cfset Servers4="#Replace(Servers3, " ", "', '", "All")#">
</cfoutput>
Then in the cfquery SQL I used
WHERE Server IN (#PreserveSingleQuotes(Servers4)#)
Right now this is working but it seems very cumbersome. If anyone can come up with a way to simplify this please let me know.

Similar Messages

Saving data in database from jsp form

I have a very huge table in my jsp...600 entries.
my form table is like this.
the number of rows depends upon the number of days in a month.
there is one colum which specifies the time frame in 1 hr frame and
withing each column is two coulmn representing either male or female.
If i want to save the data entered in the form to database synchronizing
with date, timeframe and sex, what is the best way to do it?
I did it in a way that declaring 600 private string variables in form bean,
saving it in a list and sending it to database.
Is there any other way of doing it without the need for 600 getter and setter methods?

I just want to see if I understood this correctly. You declared 600 private variables in a form bean?
Perhaps this is not the best use of either Struts or the JavaBean specification. What you almost certainly actually have is a series of homogenous objects. Store that instead in an array or Collection. Use loops to iterate through the values to generate your table. There are both JSTL tags and plain Java code embedded within a JSP to achieve this task.
- Saish

Saving values into table from Interactive Form

Hallo together,
iam trying to do the example "Include Tables" (SAP Interactive Forms by Adobe - Galileo Press).
It works, but not as described. When i want to change data in the interactive_forms ui element and press the webdynpro native button send, the value at the webdynpro table does not change. When i change the value at the webdynpro table and press the send button at the form or change the line at the webdynpro, the value in the adobe formular changes too. Thats one problem.
The other problem is that i want to save the changed/added data from the formular at the database. What to do? The form layout is "ZCI Layout" and i added the script:
DO NOT MODIFY THE CODE BEYOND THIS POINT - 800.20070708051308.406522.403406 - ContainerFoundation_JS
I also added this into "wddomodifyview":
METHOD wddomodifyview .
DATA: lr_interactive_form TYPE REF TO cl_wd_interactive_form,
             lr_method_handler TYPE REF TO if_wd_iactive_form_method_hndl.
CHECK first_time = abap_true.
lr_interactive_form ?= view->get_element( 'FORM' ).
lr_method_handler ?= lr_interactive_form->_method_handler.
lr_method_handler->set_legacy_editing_enabled( abap_true ).
ENDMETHOD.
I selected also:
execute at: "Server and Client"
I dont know what to do anymore.
Best regards
Philip

Hi,
To make an input enabled table. I would suggest to use TABLE element from the PDF library and then binding the columns from your context.
Step 1: Library -> Standard ->Table
Select create using assistance.
Select body rows vary depending on data .
Select number of Columns in your case it will be 4.
Then proceed further and finish as per your need.
Step 2:
Select a table Column .
Select Pallets->Object then chnage the cell type from Text to text field.
Then click on binding tab and bind it to the respective field from hierarchy.
Select upgrade the following properties radio button and check only "default value" option.
This will create binding something like this $record.SCARR.DATA[*].CARRID
Follow this for all other columns.
Step 3:
Now create a button in the View holding your form(you can also use SUBMIT button of form). On action event of this button right the following code to get all the changed values from Table.
data lt_scarr type wd_this->elements_scarr.
call method lo_nd_scarr->get_static_attributes_table
    importing
      table = lt_scarr.
LT_SCARR will contain all the new values from Form. Then use this table to update ur database table.
Thanks,
Abhishek

Assign Task to a specific user based on the value of DDL from the form

Hello,
Can any one please advise me on how to assign a task to a specific user based on the value of the drop down list from the form. E.g. user fills the form and before they submit the form they have to select one of the name from the drop down list so the form can go to that person for approval.
Thanks in advance,
Han

I got it works now by using the xpath expression (in workbench) to assign to the selected user from the DDL in the form.

Closing a Enumerated DropDown List in Adobe form

I have an adobe form where we used Enumerated Drop down Lists for search helps. The problem is right now we dont have option to close the Enumerated DropDown List. It closes when we select a value or sometimes if we try "ESC" key. But we want to have a "Close"/"X" button like in normal search help.
Letme know if there is any solution or an Alternate way to close the Enumerated Drop Down List from Adobe Form by just hitting a close/X button. Each value help has over 500 values, so we cannot use normal dropdowns, letme know if any other suggestions.
Edited by: Phani Rajesh Mullapudi on Jun 21, 2010 8:14 PM

Hello Arafat,
I am using a drop down list in Adobe Interactive Form for Web Dynpro ABAP.
The form is of ZCI type layout and the form interface is of XML schema-based interface type and the XML schema source is set to "Generated".
I have included the following code in WDDOINIT method of the view:
data: handle1 type ref to if_wd_context_node,
begin of zstruct,
zktokd type kna1-ktokd,
end of zstruct,
zitab type table of zsttxecr.
handle1 = wd_context->get_child_node( name = 'DATA.NODE1' ).
select ktokd from kna1 into corresponding fields of zstruct.
append zstruct to zitab.
endselect.
handle1->bind_table( new_items = zitab ).
In the Adobe Form Designer, i have binded the node NODE1 to the enumerated drop down list from native web dynpro library. Still the drop down box is not getting populated.
Please let me know what is missing.
Thanks and Regards.

Passing a parameter list from a web form to a report

I am using FORMS6 and REPORTS6, with OAS 4.07 on NT4 (SP3).
In client server mode all works well - i am able to pass parameter lists from my calling form to the relevant reports and view them (using RUN_PRODUCT).
However, when i try and do the same by deploying the web Form I come up against several obstacles.
1. How do you pass a parameter list over without using "Paramform=Yes" - a waste of time seeing a html version of the reports parameter form when all the necessary parameters have been selected in the form.
2. if i use web.show_document, with paramform=no, the report runs but with it's default settings.
Any light you can shed would be greatly appreciated.

Hi Tony ,
Launcher form is just a simple form(Non database form) which will be having all fields that is required for the report and button to run the report .
When button pressed trigger
Pass all the parameters which are required using Run_product tool & Call the report by Web.Show_document
Best way to see the report is in .pdf format in adobe acrobat reader
I hope it will help you
Bye
Rao guduru

Display select list from query on manual tabular form

Hello,
I'm trying to display a select list from query on a manual tabular form. I'm using a collection to store the data. I can't seem to get the query to work. I can display the item as a text item. Any help would be appreciated. Thanks, Elizabeth.
SELECT
-- Notice how I'm keeping the idx value the same as the column value in the collection. This helps to keep things organized
-- I also apply an id to each entry
-- I append the error value to the empname and sal
-- The Seq_id. Usefull when hiding rows (for delete) and then submitting from
apex_item.hidden(1,x.seq_id, null, x.seq_id || '_seq_id') ||
-- The Primary Key of the column
apex_item.hidden(2, x.ceah_people_id, null, x.seq_id || '_ceah_people_id') || x.ceah_people_id ceah_people_id,
-- Employee Name
case when x.seq_id = -1
then
apex_item.select_list_from_query (3,
NULL,
'select distinct language_name d, '
|| 'language_id r from foreign_language',
'style="width:170px" ' ,
'YES',
'0',
'- Select Language -',
'x.seq_id_' || LPAD (9900 + LEVEL, 4, '0'),
NULL,
'NO'
else
apex_item.text (3,(select language_name from foreign_language where x.language_id = foreign_language.language_id),
80,
100,
'style="width:170px" readonly="readonly"',
'f32_' || LPAD (ROWNUM, 4, '0')
end
|| err.language_id language_id,
/* apex_item.text(3,x.language_id,null, null, null, x.seq_id || '_language_id') || err.language_id language_id,
-- Employee Salary
apex_item.text(4,x.proficiency, null, null, null, x.seq_id || '_proficiency') || err.proficiency ||
-- Store the sql action type as well.
apex_item.hidden(50,x.sql_action_typ, null, x.seq_id || '_sql_action_typ_id') proficiency,
-- Last but not least the row error
err.row_error
FROM (SELECT ac.c001 seq_id,
ac.c002 ceah_people_id,
ac.c003 language_id,
ac.c004 proficiency,
ac.c049 modifiable_flag,
ac.c050 sql_action_typ
FROM apex_collections ac
WHERE ac.collection_name = 'DATA_COLLECTION'
ORDER BY ac.seq_id) x,
-- Error Collection
(SELECT ac.seq_id seq_id,
ac.c002 ceah_people_id,
ac.c003 language_id,
ac.c004 proficiency,
ac.c050 row_error -- Useful when individual data is correct, however the row of data is not. Ex: start/end dates
FROM apex_collections ac
WHERE ac.collection_name = 'ERROR_COLLECTION'
ORDER BY ac.seq_id) err
WHERE x.seq_id = err.seq_id(+)

I got so frustrated I started over. I'm following the how to create a manual form.
http://www.oracle.com/technology/products/database/application_express/howtos/tabular_form.html#MANUAL
The problem I'm now having is even though I display items as hidden, there is a column holder on the report for them. If I go into the report attributes and toggle the show attribute off I cannot reference an items value in my logic. I used /&nbsp/ for the column heading but I still get the little sort arrow where the column heading should be. I tried to toggle the sort attribute off but the sort arrow still shows up. How can I use the apex_item.hidden and not get a place holder for the column on a report? Thanks, Elizabeth
Here is the code I'm using to generate the report:
select x.ceah_people_lang_id,
x.language_id,
x.proficiency,
x.ceah_people_id
from (
select apex_item.hidden(1,ceah_people_lang_id) ceah_people_lang_id,
apex_item.select_list_from_query(2,language_id,'select language_name, language_id from foreign_language') language_id,
apex_item.select_list_from_query(3,proficiency,'select name, id from proficiency') proficiency,
apex_item.hidden(4,ceah_people_id) ceah_people_id
from ceah_people_language where ceah_people_language.ceah_people_id = :P152_person_id
union all
select apex_item.hidden(1,null) ceah_people_lang_id,
apex_item.select_list_from_query(2,null,'select language_name, language_id from foreign_language') language_id,
apex_item.select_list_from_query(3,null,'select name, id from proficiency') proficiency,
apex_item.hidden(4,null) ceah_people_id
from dual) x

Populate list from recordset on Parent/Child form

We have a parent/child form and want to populate several lists from recordsets. We can populate the child canvas by calling a procedure from the WHEN NEW FORM INSTANCE trigger but the same code fails when trying to populate a list on the Parent canvas. If I move the code to a PRE-BLOCK trigger on the parent block, then it works. I just kept moving the code until I found something that works. Can anyone tell me why it wouldn't work from the WHEN NEW FORM INSTANCE trigger? Is PRE-BLOCK the correct place?

WHEN-NEW-FORM-INSTANCE trigger
Add_Orgs_Lists('HR_PERSONS.OFFICE_SYMBOL');
PROGRAM UNIT
PROCEDURE Add_Orgs_Lists (list_name VARCHAR2) is list_id ITEM;
     col_name VARCHAR2(80) := SUBSTR(list_name, INSTR(list_name, '.')+1);
     sql_stat VARCHAR2(2000);
     BEGIN
     --Find ID for list item.
          list_id := FIND_ITEM(list_name);
          IF ID_NULL(list_ID) THEN
               MESSAGE('List Item ' ||list_name|| ' does not exist.');
               RAISE FORM_TRIGGER_FAILURE;
          END IF;
     --Build the SQL statement.
     --     message('In Get_Org');
     sql_stat := 'SELECT Distinct Org_Name, Org_Name FROM HR_Organizations
     ORDER BY 1 ASC';
     Populate_the_List(list_id, sql_stat);
          EXCEPTION
               WHEN OTHERS THEN
                    MESSAGE('Internal error occurred in Add_Orgs_List.');
                    RAISE FORM_TRIGGER_FAILURE;
END Add_Orgs_Lists;
PROCEDURE Populate_the_List (list_id ITEM,
                                                       sql_stat VARCHAR2) is
     group_id RecordGroup;
     outcome NUMBER;
     --List_Elements VARCHAR2(40);
BEGIN
          --message('In Populate_the...');
--Create temporary record group.
group_id := CREATE_GROUP_FROM_QUERY('List_Elements', sql_stat);
IF ID_NULL(group_id) THEN
     MESSAGE('Record Group could not be created in Populate_the_List.');
     RAISE FORM_TRIGGER_FAILURE;
END IF;
--Populate record group.
     outcome := POPULATE_GROUP(group_id);
     IF outcome <> 0 THEN
          MESSAGE('Record Group could not be populated in Populate_the_List.');
          RAISE FORM_TRIGGER_FAILURE;
     END IF;
--Populate list item
     POPULATE_LIST(list_id, group_id);
--Destroy the temporary record group to release resources
     DELETE_GROUP(group_id);
EXCEPTION
     WHEN OTHERS THEN
     MESSAGE('Internal error occured in Popluate_the_List.');
     RAISE FORM_TRIGGER_FAILURE;
END Populate_the_List;
The error is FRM-41337 Cannot populate the list from record group. It happens when we open the form. We are using the same code to populate the lists on the child form (except the SQL statement is different) and it works correctly.
I appreciate your help.

Transferring long lists from Excel to Adobe Forms

Is there a way to add a list from Excel to a drop down menu in Adobe Forms Central?

Unfortunately this is something that is not supported at this time.
-Jeff

Remove invisible column's listing from Form Settings

How to remove invisible columns listing from Form Settings or How to prevent user to make invisible column visible from Form Settings?

Hi
in screen painter you can make the width of that column to zero and by this it will act as invisiible and user will not be able to make it visible again...
Regards

How to get prefilled drop down list in Adobe form from WebDynpro context

Hi All,
We all know that we can have dropdown list in webdynpro which can be automatically populated by the context node collection.
How can we have the same functionality in Adobe form drop down list. I tried to bind the node attribute to drop down list in Adobe form but it shows me only first element. I am not able to see all the elements in the dropdown but if I am doing same thing for WebDynpro DropDown list I can see the complete List.
Anybody with Solution?

Hi Ricky
I have started a thread for this problem and got an answer for it already. Unfortunately I did not have the time to check it out yet; have a look over there:
https://mail.cirrus.ch/exchweb/bin/redir.asp?URL=https:///community [original link is broken]
I appreciate if you tell me whether it worked for you.
Andreas

Pass Values to Edit Form thru Query String and Save in List

I have developed a custom Edit form from SharePoint Designer and I am passing values thru Query String as below;
http://<>/cli/acc/Lists/GIInfo/testEdit.aspx?ID=262&com=POD_Send
And, user supposed to save the form directly without changing the values came thru Query String as below.
Now, issue is, when user saves the form, values is not getting saved. It saves when we change the value in text box or when we do a text change event in form. Becasue data binding says Text Change even in data binding property.
__designer:bind="{ddwrt:DataBind('u',concat('ff22',$Pos),'Text','TextChanged','ID',ddwrt:EscapeDelims(string(@ID)),'@Actions')}"/>
Kindly guide me what is the issue, or correct approach to do that? I want to pass values to Edit Form thru Query string and save in List without changing those.
-Rajesh A.

I know this is late, but i found a very good solution on this post and credit goes to the author.
https://social.msdn.microsoft.com/Forums/sharepoint/en-US/4be1be38-0663-4b80-8f28-45f38f98f9d0/sharepoint-designer-2010-custom-newformaspx-data-in-textbox-fields-dont-save-on-submission?forum=sharepointcustomizationprevious
The issue was resolved by changing the textbox values,
<asp:TextBox runat="server" id="ff1{$Pos}" Name="Title" Text="" Value="{$Destination}" __designer:bind="{ddwrt:DataBind('i',concat('ff1',$Pos),'Text','TextChanged','ID',ddwrt:EscapeDelims(string(@ID)),'@Title')}">
instead of
<asp:TextBox runat="server" id="ff1{$Pos}" Name="Title" Text="{$Destination}" __designer:bind="{ddwrt:DataBind('i',concat('ff1',$Pos),'Text','TextChanged','ID',ddwrt:EscapeDelims(string(@ID)),'@Title')}">

How to call list from memory after submitting RCS13001

Can anyone help me with this problem? I am submitting RCS13001 and using option exporting list to memory and return. It was successfully displayed the ALV list (which I don't want to see) and return to the caller program. Then when calling function list_from_memory, it short dumped/returned nothing. It seems that nothing is saved in the memory when submitting the program.
So what I want to get now is call RCS13001 and process the data, don't display the ALV report but save it in memory, and then collect the memory for output.
Any help is appreciated and points awarded. Thanks in advance
Regards,
Eric
Code:
        SUBMIT ZRCS13001
          WITH PM_MTNRV INCL v_matnr
          WITH PM_WERKS INCL p_werks
          WITH PM_STLAL INCL p_stlal
          WITH PM_CAPID INCL p_capid
          WITH PM_DATUV INCL p_datuv
          WITH PM_EMENG INCL v_emeng
          EXPORTING LIST TO MEMORY
          AND RETURN.
    CALL FUNCTION 'LIST_FROM_MEMORY'
      TABLES
        LISTOBJECT       = alv_stb
    EXCEPTIONS
      NOT_FOUND        = 1
      OTHERS           = 2

Hi Eric,
Please check Rich's sample code.
report zrich_0003 .
data: begin of listout occurs 0,
      line(1024) type c,
      end of listout.
* Submit the report and export list to memory
submit z_your_report exporting list to memory
            and return.
* Get list from memory and convert to ascii
perform retrieve_list_from_memory tables listout.
loop at listout.
write:/ listout.
endloop.
* RETRIEVE_LIST_FROM_MEMORY
form retrieve_list_from_memory tables reportlines.
data: list like abaplist occurs 0 with header line.
data: txtlines(1024) type c occurs 0 with header line.
clear list. refresh list.
clear reportlines. refresh reportlines.
call function 'LIST_FROM_MEMORY'
       tables
            listobject = list
       exceptions
            not_found = 1
            others     = 2.
check sy-subrc = 0.
call function 'LIST_TO_ASCI'
       tables
            listobject         = list
            listasci           = txtlines
       exceptions
            empty_list         = 1
            list_index_invalid = 2
            others             = 3.
check sy-subrc = 0.
reportlines[] = txtlines[].
call function 'LIST_FREE_MEMORY'.
endform.
Also please check this link for more sample codes.
http://www.sapdevelopment.co.uk/reporting/rep_submit.htm
Regards,
Ferry Lianto
Please reward points if helpful.

Interactive lists from ALV

Hi experts,
Please tell me how to generate Interactive list from ALV.
I have already created interactive list without ALV
( using AT LINE SELECTION)

Please refer to the below code.
A very good example with most of the company Standards.
*& Report zalv                                                      *
REPORT zalv .
TYPE-POOLS: kkblo,
            slis.
TABLES: mara, marc, mard.
DATA:       disvariant   LIKE disvariant,
            eventcat     TYPE slis_t_event,
            eventcat_ln LIKE LINE OF eventcat,
            fieldcat     TYPE slis_t_fieldcat_alv,
            fieldcat_kkb TYPE kkblo_t_fieldcat,
            fieldcat_ln LIKE LINE OF fieldcat,
            keyinfo      TYPE slis_keyinfo_alv,
            layout       TYPE slis_layout_alv,
            layout_kkb   TYPE kkblo_layout,
            pgm          LIKE sy-repid,
            printcat     TYPE slis_print_alv,
            sortcat      TYPE slis_t_sortinfo_alv,
            sortcat_ln   LIKE LINE OF sortcat,
            BEGIN OF coltab OCCURS 50,
              fieldname LIKE fieldcat_ln-fieldname,
            END OF coltab.
DATA: print          TYPE slis_print_alv.
DATA : v_repid TYPE sy-repid.
DATA: BEGIN OF wa OCCURS 0,
        matnr TYPE mara-matnr,
        ersda TYPE mara-ersda,
        ernam TYPE mara-ernam,
        aenam TYPE mara-aenam,
        werks TYPE marc-werks,
        pstat TYPE marc-pstat,
        lfmon TYPE mard-lfmon,
      END OF wa.
DATA: itab LIKE TABLE OF wa.
**Selection Screen
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001..
SELECT-OPTIONS: mat_no FOR mara-matnr.
SELECTION-SCREEN SKIP.
SELECTION-SCREEN END OF BLOCK b1.
* Parameter for list viewer display variant
PARAMETERS:    variant LIKE disvariant-variant.
AT SELECTION-SCREEN ON variant.
CHECK NOT variant IS INITIAL.
PERFORM check_variant_existence USING variant 'U'.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR variant.
PERFORM f4_display_variant USING variant 'U'.
*Initialization
INITIALIZATION.
v_repid = sy-repid.
*Start of selection
PERFORM check_tcode_authority USING 'SA38'.
START-OF-SELECTION.
SELECT a~matnr a~ersda
         a~ernam a~aenam
         c~werks c~pstat d~lfmon
INTO TABLE itab
UP TO 10 ROWS
FROM mara AS a
INNER JOIN marc AS c ON a~matnr = c~matnr
INNER JOIN mard AS d ON c~matnr = d~matnr
WHERE a~matnr IN mat_no.
*End of Selection
END-OF-SELECTION.
PERFORM call_list_viewer.
*&      Form call_list_viewer
*       text
FORM call_list_viewer .
PERFORM build_fieldcat USING:
           'MATNR' 'ITAB'
            'Material #' 'CHAR'     18 ' ' ' ' ' ' ' ' ' ',
           'ERSDA' 'ITAB'
            'Date Created' 'CHAR'   10 ' ' ' ' ' ' ' ' ' ',
           'ERNAM' 'ITAB'
            'Created By' 'CHAR'     10 ' ' ' ' ' ' ' ' ' ',
           'AENAM' 'ITAB'
            'Changed By' 'CHAR'     10 ' ' ' ' ' ' ' ' ' ',
           'WERKS' 'ITAB'
            'Plant' 'CHAR'           4 ' ' ' ' ' ' ' ' ' ',
           'PSTAT' 'ITAB'
            'Status' 'CHAR'         10 ' ' ' ' ' ' ' ' ' ',
           'LFMON' 'ITAB'
            'Current Period' 'CHAR' 8 ' ' ' ' ' ' ' ' ' '.
PERFORM build_eventcat USING: 'TOP_OF_LIST',
                                'TOP_OF_PAGE'.
PERFORM list_display TABLES itab.
ENDFORM.                    "call_list_viewer
* build field catalog entry                                            *
FORM build_fieldcat USING a_fieldname
                          a_tabname
                          a_heading
                          a_datatype
                          a_outputlen
                          a_key
                          a_no_out
                          a_no_sum
                          a_do_sum
                          a_no_zero.
CLEAR fieldcat_ln.
fieldcat_ln-fieldname = a_fieldname.
fieldcat_ln-tabname = a_tabname.
fieldcat_ln-outputlen = a_outputlen.
fieldcat_ln-datatype = a_datatype.
fieldcat_ln-reptext_ddic = a_heading.
fieldcat_ln-key = a_key.
fieldcat_ln-no_out = a_no_out.
fieldcat_ln-no_sum = a_no_sum.
fieldcat_ln-do_sum = a_do_sum.
fieldcat_ln-no_zero = a_no_zero.
APPEND fieldcat_ln TO fieldcat.
ENDFORM.                    "BUILD_FIELDCAT
*       FORM BUILD_EVENTCAT
FORM build_eventcat USING a_event.
eventcat_ln-name = eventcat_ln-form = a_event.
APPEND eventcat_ln TO eventcat.
ENDFORM.                    "BUILD_EVENTCAT
* call the ABAP list viewer                                            *
FORM list_display TABLES a_output.
pgm = disvariant-report = sy-repid.
disvariant-variant = variant.
* call list viewer
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
    EXPORTING
      i_callback_program       = pgm
*      i_callback_pf_status_set = 'SET_PF_STATUS'
      it_fieldcat              = fieldcat
      is_variant               = disvariant
      is_layout                = layout
      is_print                 = print
      i_save                   = 'A'
      it_events                = eventcat
      it_sort                  = sortcat
*      i_callback_user_command = 'USER_COMMAND'
    TABLES
      t_outtab                 = a_output
    EXCEPTIONS
      program_error            = 1
      OTHERS                   = 2.
ENDFORM.                    "LIST_DISPLAY
*&      Form top_of_page
*       text
FORM top_of_page.
PERFORM standard_headings.
PERFORM print_selection_screen TABLES:
               mat_no USING 'Material No : ' 18 'N' 1.
ENDFORM.                    "top_of_page
*       FORM CHECK_VARIANT_EXISTENCE
*       Verify that a variant on the selection screen exists
FORM check_variant_existence USING varname LIKE disvariant-variant
                                   save   TYPE c.
DATA: xdisvar LIKE disvariant.
xdisvar-report = sy-repid.
xdisvar-variant = varname.
CALL FUNCTION 'REUSE_ALV_VARIANT_EXISTENCE'
    EXPORTING
      i_save        = save
    CHANGING
      cs_variant    = xdisvar
    EXCEPTIONS
      wrong_input   = 1
      not_found     = 2
      program_error = 3
      OTHERS        = 4.
IF sy-subrc <> 0.
    MESSAGE e256(56) WITH varname.
*   Anzeigevariante &1 nicht gefunden
ENDIF.
disvariant-report = sy-repid.
disvariant-variant = varname.
ENDFORM.                    "check_variant_existence
*       Form F4_DISPLAY_VARIANT
*       F4 help to find a display variant
*       varname = name of the dynpro field for which f4 is requested
*       save    = type of list variant saving
*                 ' ' = no saving allowed
*                 'A' = standard & user specific variants can be saved
*                 'U' = only user specific variants can be saved
*                 'X' = only standard variants can be saved
FORM f4_display_variant USING varname LIKE disvariant-variant
                              save    TYPE c.
disvariant-report = sy-repid.
CALL FUNCTION 'REUSE_ALV_VARIANT_F4'
    EXPORTING
      is_variant    = disvariant
      i_save        = save
    IMPORTING
      es_variant    = disvariant
    EXCEPTIONS
      not_found     = 1
      program_error = 2
      OTHERS        = 3.
IF sy-subrc = 0.
    varname = disvariant-variant.
ELSE.
    MESSAGE s245(56).
*   Keine Anzeigevariante(n) vorhanden
ENDIF.
ENDFORM.                               " F4_DISPLAY_VARIANT
*       FORM STANDARD_HEADINGS                                        *
*       Print standard page headings for report                       *
FORM standard_headings.
DATA: start_column TYPE i,
        title_len TYPE i,
        header_for_80_col(45),
        date_time_for_80_col(45),
        text_h0(11) VALUE 'Report No. ',
        text_h1(5) VALUE 'Date ',
        text_h2(6) VALUE 'Page -',
        text_h3(7) VALUE 'System ',
        text_h4(5) VALUE 'Time ',
        text_h5(11) VALUE 'Run By     '.
FORMAT INTENSIFIED ON.
CONDENSE syst-title.
IF syst-linsz > 80.
    WRITE: / text_h0,                 "Report No.
           12 syst-repid(8),
           23 text_h1,                 "Date
              sy-datlo.
    title_len = STRLEN( syst-title ) / 2.
    start_column = ( syst-linsz / 2 ) - title_len.
    IF start_column < 40.
      start_column = 40.
    ENDIF.
    WRITE: AT start_column syst-title.
ELSE.
    WRITE: / text_h0,                 "Report No.
           12 syst-repid(8).
    start_column = 22.
    WRITE syst-title TO header_for_80_col CENTERED.
    WRITE: header_for_80_col.
ENDIF.
start_column = syst-linsz - 12.
WRITE: AT start_column text_h2, syst-pagno LEFT-JUSTIFIED.
IF syst-linsz > 80.
    WRITE: / text_h3,                  "System
          12 syst-sysid(4),
             syst-mandt,
          23 text_h4,                  "Time
             syst-timlo.
    WRITE: / text_h5,                  "Run By
          12 syst-uname.
ELSE.
    WRITE: / text_h3,                  "System
          12 syst-sysid(4),
             syst-mandt,
          23 text_h1,                  "Date
             syst-datlo.
    WRITE: / text_h5,                  "Run By
          12 syst-uname,
          23 text_h4,                  "Time
             syst-timlo.
ENDIF.
SKIP.
ENDFORM.                    "STANDARD_HEADINGS
*       FORM PRINT_SELECTION_SCREEN                                        *
* --> SIGN                                                          *
* --> OPTION                                                        *
* --> LOW                                                           *
* --> HIGH                                                          *
* --> D_IND                                                         *
* --> S_STRING                                                      *
FORM print_selection_screen TABLES r_selection TYPE table
                       USING p_name
                              p_length TYPE i
                              p_ind
                              p_start_col.
DATA: year(4)       TYPE c,
        month(2)      TYPE c,
        day(2)        TYPE c,
        low_date(10) TYPE c,
        high_date(10) TYPE c,
        offset(80)    TYPE c.
DATA: BEGIN OF l_selline,
          sign(1) TYPE c,
          option(2) TYPE c,
          data(200) TYPE c,
        END OF l_selline.
DATA: l_string(80) TYPE c,
        l_temp(80) TYPE c,
        len TYPE i,
        len1 TYPE i.
DESCRIBE FIELD p_name LENGTH len IN CHARACTER MODE.
len = len + p_start_col + 2.
LOOP AT r_selection.
    IF syst-tabix = 1.
      WRITE AT /p_start_col p_name.
    ELSE.
      len1 = ( STRLEN( l_string ) ).
      len = len1 + len + 2.
    ENDIF.
    MOVE r_selection TO l_selline.
    SHIFT l_selline-data LEFT DELETING LEADING '0'.
    CLEAR l_string.
    CASE l_selline-option.
      WHEN 'EQ'.
        CONCATENATE l_string '=' INTO l_string.
      WHEN 'NE'.
        CONCATENATE l_string 'not =' INTO l_string.
      WHEN 'LT'.
        CONCATENATE l_string '<' INTO l_string.
      WHEN 'GT'.
        CONCATENATE l_string '>' INTO l_string.
      WHEN 'LE'.
        CONCATENATE l_string '<=' INTO l_string.
      WHEN 'GE'.
        CONCATENATE l_string '>=' INTO l_string.
      WHEN 'BT'.
        CONCATENATE l_string 'between' INTO l_string.
      WHEN 'NB'.
        CONCATENATE l_string 'not between' INTO l_string.
      WHEN 'CP'.
        CONCATENATE l_string 'contains pattern' INTO l_string.
      WHEN 'NP'.
        CONCATENATE l_string 'no pattern' INTO l_string.
    ENDCASE.
    IF l_selline-sign EQ 'E'.
      CONCATENATE 'NOT' l_string INTO l_string SEPARATED BY ' '.
    ENDIF.
    IF p_ind EQ 'Y'.
      MOVE l_selline-data(4) TO year.
      MOVE l_selline-data+4(2) TO month.
      MOVE l_selline-data+6(2) TO day.
      CONCATENATE month '/' day '/' year INTO low_date.
      CONCATENATE l_string low_date INTO l_string SEPARATED BY ' '.
      IF l_selline-option EQ 'BT' OR l_selline-option EQ 'NB'.
        MOVE l_selline-data+p_length(4) TO year.
        offset = p_length + 4.
        MOVE l_selline-data+offset(2) TO month.
        ADD 2 TO offset.
        MOVE l_selline-data+offset(2) TO day.
        CONCATENATE month '/' day '/' year INTO high_date.
        CONCATENATE l_string 'and' high_date INTO l_string SEPARATED
                                              BY ' '.
      ENDIF.
    ELSE.
      MOVE l_selline-data(p_length) TO l_temp.
      CONCATENATE l_string l_temp INTO l_string SEPARATED BY ' '.
      IF l_selline-option EQ 'BT' OR l_selline-option EQ 'NB'.
        MOVE l_selline-data+p_length(p_length) TO l_temp.
        CONCATENATE l_string 'and' l_temp INTO l_string SEPARATED
                                                            BY ' '.
      ENDIF.
    ENDIF.
    WRITE AT len l_string.
ENDLOOP.
IF syst-subrc <> 0.
    WRITE: AT /p_start_col p_name, ' *** ALL ***'.
ENDIF.
ENDFORM.                    "PRINT_SELECTION_SCREEN
*       FORM CHECK_TCODE_AUTHORITY                                    *
*       Check User Security Against A SAP Transaction                 *
* --> a_tcode Transaction Code For Security                        *
FORM check_tcode_authority USING a_tcode.
* if tcode is not passed, then return ok.
IF NOT a_tcode IS INITIAL.
    CALL FUNCTION 'AUTHORITY_CHECK_TCODE'"Only People that
         EXPORTING                     " have access to
           tcode = a_tcode            " Transaction t-tcode
         EXCEPTIONS                    " are ALLOWED to execute
              ok     = 1               " this Program
              not_ok = 2.
    IF syst-subrc NE 1.
      MESSAGE a999(zz) WITH 'YOU Do Not Have Authority to Execute'.
    ENDIF.
ELSE.
    MOVE 1 TO syst-subrc.
ENDIF.
ENDFORM.                    "CHECK_TCODE_AUTHORITY
Shreekant

Can I create "keyword list" from keywords in EXIF data?

Hi - I'm still a Mac and Aperture noob, so please excuse me if the question is dumb or ill-formed...
I used to use Photoshop Elements on a PC. I made pretty extensive use of "tags" (keywords, in Aperture lingo) for categorizing my photos. I wrote all the tags into the exif data of my photos, then copied everything over to Aperture.
Now, when I pull up an existing photo in Aperture browser, I can see the keywords that I already added. Great...but, is there a way to extract all the existing keywords from all my photos, and build a "library" of keywords that I can pick and choose from for tagging future photos?
Alternatively - if I could export a keyword list from Photoshop Elements (in txt or XML format, whatever) is there a way that I can import that into Aperture?
From the reading I've done so far, it seems like I have to manually enter keywords on each photo or do a batch update (and, again, manually enter them). I'd much prefer to have a list of keywords that I can scroll down, then just click to select. Is that asking too much of Aperture?

jtj3 wrote:
Hi - I'm still a Mac and Aperture noob, so please excuse me if the question is dumb or ill-formed...
Welcome to the list and Mac's. Don't woory about your questions, veteran Mac and Aperture users here frequently post dumb and ill-formed questions.
I used to use Photoshop Elements on a PC. I made pretty extensive use of "tags" (keywords, in Aperture lingo) for categorizing my photos. I wrote all the tags into the exif data of my photos, then copied everything over to Aperture.
Now, when I pull up an existing photo in Aperture browser, I can see the keywords that I already added. Great...but, is there a way to extract all the existing keywords from all my photos, and build a "library" of keywords that I can pick and choose from for tagging future photos?
I tried what you described to see what would happen. I opened an image in Preview and added a keyword to it (one I was sure wasn't in my Aperture) saved the file and imported into Aperture. The new keyword was bot in the EXIF data field of the image and in Apertures keyword list.
Are you familiar with the *Keywords HUD* (*Window->Show Keyword HUD*)? If you look there do you see your keywords from your imported images?
Alternatively - if I could export a keyword list from Photoshop Elements (in txt or XML format, whatever) is there a way that I can import that into Aperture?
There is a way to import and export keywords see *+Exporting and Importing Keyword Lists+* in the +Aperture Users Manual+ (get to it by *Help->Aperture Help*)
From the reading I've done so far, it seems like I have to manually enter keywords on each photo or do a batch update (and, again, manually enter them). I'd much prefer to have a list of keywords that I can scroll down, then just click to select. Is that asking too much of Aperture?
Not at all, ask away (you may not always like the answer )

Saving a textarea list from a form to attribute string in SAP resource

Similar Messages

Maybe you are looking for