Looking for function or vi to calculate 1/2 power points of data obtained from peak detection vi

I am analyzing vibration data and need a function or vi that will operate on peak data returned from the LabView Peak detection function and provides 1/2 power points or sideband frequencies. These are needed to compute a "Q" factor. So far I have not been able to find anything.
Thanks, Fran

The sound and vibration toolset may help here. there are several vibration level measurements including peak. With the advanced FFT functions in the Sound and Vibration tools, the zoom FFT can be used to identify and find sidebands and associated amplitudes.
here is a link to the manual
http://digital.ni.com/manuals.nsf/websearch/1F8691E94728BDF5862570490058C3B2
here is a link to the toolset
http://sine.ni.com/nips/cds/view/p/lang/en/nid/10521
please note the bullets on the above page (about half way down) noting peak detection, etc.
Preston Johnson
Principal Sales Engineer
Condition Monitoring Systems
Vibration Analyst III - www.vibinst.org, www.mobiusinstitute.com
National Instruments
[email protected]
www.ni.com/mcm
www.ni.com/soundandvibration
www.ni.com/biganalogdata
512-683-5444

Similar Messages

Looking for function module to update User data

Hi All,
I'm looking for function module/base table to update data into User (User-Specific Data) data. You can notice it under PRTE t.code. Thank you.
Regards
Kishore

To Read: HRTRV_IF_GET_TRIP
To Modify: HRTRV_IF_MODIFY_TRIP
Please be aware that these FMs are not released for customers, i.e. you won't get any support for them.
EDIT: Since you are dealing with Structure USER/PTK99, maybe the document I created is of interest to you: Adding fields in Travel WDA Applications
Cheers, Lukas
Message was edited by: Lukas Weigelt

Looking for function modules

Hello All,
I m looking for function modules for the following functionalities :
1. Returns a list of purchase orders.
2. Returns a list of vendors of a metarial/materialgroup.
3. Getting details of a vendor evaluations
Thanks all
Moderator message: duplicate post locked.
Edited by: Thomas Zloch on Nov 3, 2011 9:50 PM

Hi,
for CALL FUNCTION 'GET_FIELDTAB'
Replacement suggested is :
DDIF_NAMETAB_GET or CACS_GET_TABLE_FIELDS or CL_ABAP_TYPEDESCR=>DESCRIBE_BY_NAME
for NAMETAB_GET'
Replacement suggested is :
'DDIF_NAMETAB_GET'
for more info
https://www.sdn.sap.com/irj/scn/wiki?path=/pages/viewpage.action&pageid=68191235
hope it helps you.
Thanks!

Function module which could calculate the previous month's start date.....

hi,
I want a function module which could calculate the previous month's start date and end date...
Say todays date is like 29.05.2007(start date) it should return
01.04.2007 and 30.04.2007...
IS there any FM for this ... or how to go about this scenario ???
thanks in advance
samm

See the below Logic :
DATA :g_date(2) TYPE n,           " Date
      g_month(2) TYPE n,          " Month
      g_year(4) TYPE n ,          " Year
      g_bill_low(10) TYPE n,       " From date
      g_bill_high(10) TYPE n,      " To date
      g_month1(2) TYPE n,         " Month
      g_year1(4) TYPE n,          " Year
      g_date1(2) TYPE n,          " Date
      g_year2(4) TYPE n,          " Year
      g_datum LIKE sy-datum.      " System date
RANGES : r_bdate FOR vbrk-fkdat.             " Billing date
g_datum = p_date + 10.
g_month = g_datum+4(2).
g_year = g_datum+0(4).
IF g_month = 1.
    g_year = g_year - 1.
    g_month = 12.
    g_date = 1.
ELSE.
    g_month = g_month - 1.
    g_date = 1.
ENDIF.
Passing the date to billing date-low
CONCATENATE g_year g_month g_date INTO g_bill_low.
r_bdate-low = g_bill_low.
r_bdate-sign = 'I'.
r_bdate-option = 'BT'.
g_month1 = g_datum+4(2).
g_year1 = g_datum+0(4).
IF g_month1 = 1.
    g_year1 = g_year1 - 1.
    g_month1 = 12.
ELSE.
    g_month1 = g_month1 - 1.
ENDIF.
CASE g_month1.
    WHEN 1.g_date1 = '31'.
    WHEN 3.g_date1 = '31'.
    WHEN 4.g_date1 = '30'.
    WHEN 5.g_date1 = '31'.
    WHEN 6.g_date1 = '30'.
    WHEN 7.g_date1 = '31'.
    WHEN 8.g_date1 = '31'.
    WHEN 9.g_date1 = '30'.
    WHEN 10.g_date1 = '31'.
    WHEN 11.g_date1 = '30'.
    WHEN 12.g_date1 = '31'.
ENDCASE.
g_year2 = g_year1.
IF g_month1 = 2.
    g_year2 = g_year2 MOD 4 .
    IF g_year2 = 0.
      g_date1 = 29.
    ELSE.
      g_date1 = 28.
    ENDIF.
ENDIF.
Passing the date to billing date-high
CONCATENATE g_year1 g_month1 g_date1 INTO g_bill_high.
r_bdate-high = g_bill_high.
APPEND r_bdate.
Reward Points if it is helpful
Thanks
Seshu

Looking for a third party utility to replace a file's "modified Date" field

For video files, apparently the organizer displays the thumbnails with the date taken from the file's "modified date" field. For some wierd reason (which I'm discussing with Adobe CS) the organizer changed the date of all my videos in the "modified date" field, so now the chronology of all my video clips in the organizer went down the drain.
Is there a third party utility to replace the "modified date" field of a file with the original shot date? (which in W7 is shown in the "Date" field).
In other words: for every video file in my library, I want to take the date from the "Date" field and put it in the "Modified Date" field
Thanks for your help.

OK thanks.
I've found a utility that modifes several of the date fields.
Now, I just want to be sure that I don't screw this up...
Which of the several date fields of a file holds the actual shot date?
Which of the date fields is used by the organizer to "organize" the video files (avi and mov's) chronologically?
Thanks for your help

Looking for function module to clear document structure

Hello,
we want to use Easy DMS for quick check-in of documents. Therefore we need a folder (document structure) to move all new documents in this fixed defined folder. Now we want to clear every night this folder. Does anybody know, which function module could I use?
Thanks a lot for any support.
Best regards.
Markus

Hello Iring,
thanks a lot for your answer. BAPI_DOCUMENT_CHANGE2 is a solution, but in this case I have to read everytime all documents. In my case I know already the folder number (document structure) and therefore I'm looking for a function module to give just the folder number to clear, which would be the best way from performance side.
Anyway thanks a lot for your answer.
Regards.
Markus

Looking for Function module through which I can get Logged comments

Hi,
I am new to CRM.
On an activity task we have 'Logged comments' section. I am looking for FM that I could use to import 'Logged comments' for an activity task.
I guess that I can use CRM_ORDER_READ. I was trying to find some documentation but did not find anything. I am not sure which object I should export.
Could anyone help me?
Many thanks,
Jan

If you are refering to text called logged comments then use function module READ_TEXT.
Regard.

Looking for function that send mail

I AM LOOKING FOR A FUNCTION THAT SEND MAIL
<b><b>WITH ATTACMENT ONLY</b> ANYONE KNOW????
THANKS.

REPORT ZMAILOUTPUT
    MESSAGE-ID ZZ.
* CONSTANTS                                                           *
CONSTANTS : C_X(1)      TYPE C VALUE 'X',      " For constant value
            C_OTF(3)    TYPE C VALUE 'OTF',    " For format
            C_U(1)      TYPE C VALUE 'U'.      " Mail Option
* VARIABLES                                                           *
DATA : V_RQIDENT TYPE TSP01-RQIDENT, " For Spool Number
       V_RQCLIENT TYPE TSP01-RQCLIENT, " For Client
       V_RQO1NAME TYPE TSP01-RQO1NAME, " For Object name
       V_SPOOL    TYPE TSP01-RQIDENT, " For Spool Number
       V_SPOOL1   TYPE TSP01-RQIDENT. " For Spool Number
* FLAGS                                                               *
DATA : F_SPOOL TYPE C.
*   INTERNAL TABLES                                                    *
* Internal table for sending mails
DATA: IT_PDF          LIKE TLINE      OCCURS 10 WITH HEADER LINE,
      IT_XI_PDF       LIKE TLINE      OCCURS 0 WITH HEADER LINE,
      IT_HTML         LIKE SOLISTI1   OCCURS 0 WITH HEADER LINE,
      IT_XI_TEMP      LIKE BAPIQCMIME OCCURS 0 WITH HEADER LINE,
      IT_XI_MIME(255) TYPE C          OCCURS 0 WITH HEADER LINE.
* For sending mail
DATA: IT_OBJPACK LIKE SOPCKLSTI1 OCCURS 2 WITH HEADER LINE.
* Internal table for Single List with Column Length 255
DATA : IT_OBJBIN LIKE SOLISTI1 OCCURS 10 WITH HEADER LINE.
* Internal table for Single List with Column Length 255
DATA : IT_OBJTXT LIKE SOLISTI1 OCCURS 10 WITH HEADER LINE.
* Internal table for Structure of the API Recipient List
DATA : IT_RECLIST LIKE SOMLRECI1 OCCURS 5 WITH HEADER LINE.
* Structure of the API Recipient List
DATA: X_DOC_CHNG LIKE SODOCCHGI1.
* Internal table for storing the variants
DATA : BEGIN OF IT_VARIANT1 OCCURS 0,
        VARIANT LIKE VARID-VARIANT,
       END   OF IT_VARIANT1.
* Internal table to store variants for the programs
DATA: IT_VARIANT2 LIKE IT_VARIANT1 OCCURS 0 WITH HEADER LINE.
* Internal table for storing the selected values
DATA IT_RETURN TYPE DDSHRETVAL OCCURS 0 WITH HEADER LINE.
* Internal table for storing the mail-ids
DATA : BEGIN OF IT_MAILID OCCURS 0,
        KOKRS LIKE CSKS-KOKRS,
        KOSTL LIKE CSKS-KOSTL,
        DATBI LIKE CSKS-DATBI,
        TELX1 LIKE CSKS-TELX1,
       END   OF IT_MAILID.
* Internal table for storing the mail-ids
DATA : IT_MAILID1 LIKE IT_MAILID OCCURS 0 WITH HEADER LINE.
*   SELECTION SCREEN                                                   *
DATA : V_CHAR TYPE CHAR50.
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
SELECT-OPTIONS: S_EMAIL FOR V_CHAR NO INTERVALS
                LOWER CASE
                NO-DISPLAY.
SELECT-OPTIONS: S_EMAIL1 FOR V_CHAR NO INTERVALS
                LOWER CASE
                NO-DISPLAY.
SELECTION-SCREEN END OF BLOCK B1.
SELECTION-SCREEN BEGIN OF BLOCK A1 WITH FRAME TITLE TEXT-028.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS : P_C1 AS CHECKBOX.
SELECTION-SCREEN COMMENT 3(66) TEXT-026 FOR FIELD P_C1.
SELECTION-SCREEN END OF LINE.
PARAMETERS : P_SET LIKE TSP1D-PAPART MATCHCODE OBJECT ZH_TSP1D.
SELECTION-SCREEN SKIP 1.
PARAMETERS : P_VARA1 TYPE RS38M-SELSET.
SELECTION-SCREEN END OF BLOCK A1.
SELECTION-SCREEN BEGIN OF BLOCK A2 WITH FRAME TITLE TEXT-029.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS : P_C2 AS CHECKBOX.
SELECTION-SCREEN COMMENT 3(56) TEXT-027 FOR FIELD P_C1.
SELECTION-SCREEN END OF LINE.
PARAMETERS : P_SET1 LIKE TSP1D-PAPART MATCHCODE OBJECT ZH_TSP1D.
SELECTION-SCREEN SKIP 1.
PARAMETERS : P_VARA2 TYPE RS38M-SELSET.
SELECTION-SCREEN END OF BLOCK A2.
* AT SELECTION SCREEN ON VALUE REQUEST
AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_VARA1.
* For fetching the variants available for the program
PERFORM FETCH_VARIANTS.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_VARA2.
* For fetching the variants available for the program
PERFORM FETCH_VARIANTS1.
* AT SELECTION SCREEN
AT SELECTION-SCREEN.
* For Validation
PERFORM VALIDATION.
* START OF SELECTION                                                  *
START-OF-SELECTION.
* To get the output data and mail
PERFORM FETCH_DATA.
* END OF SELECTION                                                    *
END-OF-SELECTION.
IF F_SPOOL = C_X.
    MESSAGE E000 WITH 'Spool Not Generated'(060).
ENDIF.
*&      Form fetch_data
*       To get the output data and mail
FORM FETCH_DATA .
* To send the output to spool
PERFORM GENERATE_SPOOL.
ENDFORM.                    " fetch_data
*&      Form generate_spool
*       To send the output to spool
FORM GENERATE_SPOOL .
DATA: L_PARAMS LIKE PRI_PARAMS,
        L_DAYS(1) TYPE N VALUE 2,
        L_COUNT(3) TYPE N VALUE 1,
        L_VALID    TYPE C,
        L_VALID1   TYPE C,
        L_PARAMS1 LIKE PRI_PARAMS.
DATA: L_DEVICE TYPE USR01-SPLD.
*Get the printer name for the user
SELECT SINGLE SPLD INTO L_DEVICE FROM USR01 WHERE BNAME = SY-UNAME.
IF L_DEVICE IS INITIAL.
    L_DEVICE = 'LOCL'.
ENDIF.
* For report-1
IF P_C1 = 'X'.
* Setting the print parameters
    CALL FUNCTION 'GET_PRINT_PARAMETERS'
      EXPORTING
        DESTINATION    = L_DEVICE
        COPIES         = L_COUNT
        LIST_NAME      = SY-UNAME
        LIST_TEXT      = 'SUBMIT ... TO SAP-SPOOL'(008)
        RELEASE        = C_X
        NEW_LIST_ID    = C_X
        EXPIRATION     = L_DAYS
*        LINE_SIZE      = 255
*        LINE_COUNT     = 65
        LAYOUT         = p_set
        SAP_COVER_PAGE = SPACE
        COVER_PAGE     = SPACE
        RECEIVER       = 'SAP*'(010)
        DEPARTMENT     = 'System'(011)
        NO_DIALOG      = C_X
      IMPORTING
        OUT_PARAMETERS = L_PARAMS
        VALID          = L_VALID.
    IF L_VALID <> SPACE.
      CLEAR V_SPOOL.
* Fetch the spool number b4 submit
      PERFORM FETCH_RECENT_SPOOL USING V_SPOOL.
* Submitting the program to spool
      SUBMIT RKAEP000 TO SAP-SPOOL
        USING SELECTION-SET P_VARA1
        SPOOL PARAMETERS L_PARAMS
        WITHOUT SPOOL DYNPRO
        AND RETURN.
      CLEAR V_SPOOL1.
* Fetch the spool number after submit
      PERFORM FETCH_RECENT_SPOOL USING V_SPOOL1.
      IF V_SPOOL = V_SPOOL1.
        F_SPOOL = C_X.
        IF P_C2 IS INITIAL.
          STOP.
        ENDIF.
      ELSE.
* Checking the format ( ABAP/OTF)
        PERFORM FORMAT_CHECK TABLES S_EMAIL.
      ENDIF.
    ELSE.
      MESSAGE E000 WITH 'Problem in print settings'(003).
      STOP.
    ENDIF.
ENDIF.
* For Report-2
IF P_C2 = 'X'.
* Setting the print parameters
    CALL FUNCTION 'GET_PRINT_PARAMETERS'
      EXPORTING
        DESTINATION    = L_DEVICE
        COPIES         = L_COUNT
        LIST_NAME      = SY-UNAME
        LIST_TEXT      = 'SUBMIT ... TO SAP-SPOOL'(008)
        RELEASE        = C_X
        NEW_LIST_ID    = C_X
        EXPIRATION     = L_DAYS
*        LINE_SIZE      = 200
*        LINE_COUNT     = 65
        LAYOUT         = p_set1
        SAP_COVER_PAGE = SPACE
        COVER_PAGE     = SPACE
        RECEIVER       = 'SAP*'(010)
        DEPARTMENT     = 'System'(011)
        NO_DIALOG      = C_X
      IMPORTING
        OUT_PARAMETERS = L_PARAMS1
        VALID          = L_VALID1.
    IF L_VALID1 <> SPACE.
      CLEAR V_SPOOL.
* Fetch the spool number b4 submit
      PERFORM FETCH_RECENT_SPOOL USING V_SPOOL.
* Submitting the program to spool
      SUBMIT GP3DIEHXY88SNFJ0391V7KF9EK7050 TO SAP-SPOOL
        USING SELECTION-SET P_VARA2
        SPOOL PARAMETERS L_PARAMS1
        WITHOUT SPOOL DYNPRO
        AND RETURN.
      CLEAR V_SPOOL1.
* Fetch the spool number after submit
      PERFORM FETCH_RECENT_SPOOL USING V_SPOOL1.
      IF V_SPOOL = V_SPOOL1.
        MESSAGE E000 WITH 'Spool Not Generated'(060).
        STOP.
      ENDIF.
* Checking the format ( ABAP/OTF)
      PERFORM FORMAT_CHECK TABLES S_EMAIL1.
    ELSE.
      MESSAGE E000 WITH 'Problem in print settings'(003).
      STOP.
    ENDIF.
ENDIF.
ENDFORM.                    " generate_spool
*&      Form fetch_recent_spool
*       Fetch the recent spool number generated
FORM FETCH_RECENT_SPOOL USING P_V_SPOOL TYPE TSP01-RQIDENT .
DATA: L_USER LIKE TSP01-RQ2NAME.
CLEAR : V_RQIDENT,
          V_RQCLIENT,
          V_RQO1NAME.
L_USER = SY-UNAME.
* Get latest Spool No
SELECT SINGLE RQIDENT
                RQCLIENT
                RQO1NAME
         INTO (V_RQIDENT , V_RQCLIENT , V_RQO1NAME)
    FROM TSP01
   WHERE RQCRETIME =   ( SELECT MAX( RQCRETIME )
                                FROM TSP01
                               WHERE RQ2NAME EQ L_USER
                                 AND RQFINAL EQ '.' ).
IF SY-SUBRC = 0 .
    P_V_SPOOL = V_RQIDENT.
ENDIF.
ENDFORM.                    " fetch_recent_spool
*&      Form format_check
*       Checking the format ( ABAP/OTF)
FORM FORMAT_CHECK TABLES P_S_EMAIL STRUCTURE S_EMAIL.
DATA : L_OBJTYPE    LIKE RSTSTYPE-TYPE.
CALL FUNCTION 'RSTS_GET_ATTRIBUTES'
    EXPORTING
      AUTHORITY     = 'SP01'(019)
      CLIENT        = V_RQCLIENT
      NAME          = V_RQO1NAME
      PART          = 1
    IMPORTING
      OBJTYPE       = L_OBJTYPE
    EXCEPTIONS
      FB_ERROR      = 1
      FB_RSTS_OTHER = 2
      NO_OBJECT     = 3
      NO_PERMISSION = 4.
IF SY-SUBRC <> 0.
    MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
IF L_OBJTYPE(3) = C_OTF.
* Convert OTF Spool to PDF
    PERFORM CONVERT_OTF2PDF TABLES P_S_EMAIL.
ELSE.
* Convert ABAP Spool to PDF
    PERFORM CONVERT_ABAP2PDF TABLES P_S_EMAIL.
ENDIF.
ENDFORM.                    " format_check
*&      Form convert_otf2pdf
*       Convert OTF Spool to PDF
FORM CONVERT_OTF2PDF TABLES P_P_S_EMAIL STRUCTURE S_EMAIL .
CLEAR   IT_PDF.
REFRESH IT_PDF.
DATA : L_BYTECOUNT TYPE I.
* Fn. to get the PDF format
CALL FUNCTION 'CONVERT_OTFSPOOLJOB_2_PDF'
    EXPORTING
      SRC_SPOOLID              = V_RQIDENT
      NO_DIALOG                = 'X'
    IMPORTING
      PDF_BYTECOUNT            = L_BYTECOUNT
    TABLES
      PDF                      = IT_PDF
    EXCEPTIONS
      ERR_NO_OTF_SPOOLJOB      = 1
      ERR_NO_SPOOLJOB          = 2
      ERR_NO_PERMISSION        = 3
      ERR_CONV_NOT_POSSIBLE    = 4
      ERR_BAD_DSTDEVICE        = 5
      USER_CANCELLED           = 6
      ERR_SPOOLERROR           = 7
      ERR_TEMSEERROR           = 8
      ERR_BTCJOB_OPEN_FAILED   = 9
      ERR_BTCJOB_SUBMIT_FAILED = 10
      ERR_BTCJOB_CLOSE_FAILED = 11.
IF SY-SUBRC = 0.
* For page format
    PERFORM PAGE_FORMAT TABLES P_P_S_EMAIL.
ELSE.
    MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDFORM.                    " convert_otf2pdf
*&      Form convert_abap2pdf
*        Convert ABAP Spool to PDF
FORM CONVERT_ABAP2PDF TABLES P_P_S_EMAIL STRUCTURE S_EMAIL.
CLEAR   IT_PDF.
REFRESH IT_PDF.
DATA : L_BYTECOUNT TYPE I.
* Fn. to convert to PDF format
CALL FUNCTION 'CONVERT_ABAPSPOOLJOB_2_PDF'
    EXPORTING
      SRC_SPOOLID              = V_RQIDENT
      NO_DIALOG                = 'X'
    IMPORTING
      PDF_BYTECOUNT            = L_BYTECOUNT
    TABLES
      PDF                      = IT_PDF
    EXCEPTIONS
      ERR_NO_ABAP_SPOOLJOB     = 1
      ERR_NO_SPOOLJOB          = 2
      ERR_NO_PERMISSION        = 3
      ERR_CONV_NOT_POSSIBLE    = 4
      ERR_BAD_DESTDEVICE       = 5
      USER_CANCELLED           = 6
      ERR_SPOOLERROR           = 7
      ERR_TEMSEERROR           = 8
      ERR_BTCJOB_OPEN_FAILED   = 9
      ERR_BTCJOB_SUBMIT_FAILED = 10
      ERR_BTCJOB_CLOSE_FAILED = 11.
IF SY-SUBRC = 0.
* For page formatting
    PERFORM PAGE_FORMAT TABLES P_P_S_EMAIL.
ELSE.
    MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDFORM.                    " convert_abap2pdf
*&      Form send_mail
*       For sending mail
FORM SEND_MAIL TABLES MAIL STRUCTURE S_EMAIL .
* Structures and internal tables for the send data
DATA: OBJPACK LIKE SOPCKLSTI1 OCCURS 2 WITH HEADER LINE,
        OBJHEAD LIKE SOLISTI1   OCCURS 1 WITH HEADER LINE,
        OBJBIN LIKE SOLISTI1   OCCURS 0 WITH HEADER LINE,
        OBJTXT LIKE SOLISTI1   OCCURS 10 WITH HEADER LINE,
        RECLIST LIKE SOMLRECI1 OCCURS 5 WITH HEADER LINE.
DATA: DOC_CHNG LIKE SODOCCHGI1,
        TAB_LINES LIKE SY-TABIX.
* Data for the status output after sending
DATA: SENT_TO_ALL LIKE SONV-FLAG.
CLEAR: IT_RECLIST, IT_RECLIST[],
         IT_OBJTXT , IT_OBJTXT[],
         IT_OBJPACK, IT_OBJPACK[],
         IT_OBJBIN , IT_OBJBIN[],X_DOC_CHNG.
LOOP AT IT_HTML.
    OBJBIN-LINE = IT_HTML-LINE.
    APPEND OBJBIN.
    CLEAR OBJBIN.
ENDLOOP.
* Create the document which is to be sent
DOC_CHNG-OBJ_NAME = 'List'(012).
DOC_CHNG-OBJ_DESCR = 'Mail'(013).
* Heading
OBJTXT-LINE = 'Mail with pdf attachment'(014).
APPEND OBJTXT.
CLEAR OBJTXT.
* Size
DESCRIBE TABLE OBJTXT LINES TAB_LINES.
READ TABLE OBJTXT INDEX TAB_LINES.
DOC_CHNG-DOC_SIZE = ( TAB_LINES - 1 ) * 255 + STRLEN( OBJTXT ).
* Fill the fields of the packing_list for the main document:
CLEAR OBJPACK-TRANSF_BIN.
* The document needs no header (head_num = 0)
OBJPACK-HEAD_START = 1.
OBJPACK-HEAD_NUM = 0.
* Body
OBJPACK-BODY_START = 1.
OBJPACK-BODY_NUM = TAB_LINES.
OBJPACK-DOC_TYPE = 'RAW'(015).
APPEND OBJPACK.
* Create the attachment (the list itself)
DESCRIBE TABLE OBJBIN LINES TAB_LINES.
* Fill the fields of the packing_list for the attachment:
OBJPACK-TRANSF_BIN = 'X'.
* Header
OBJPACK-HEAD_START = 1.
OBJPACK-HEAD_NUM = 0.
* Body
OBJPACK-BODY_START = 1.
OBJPACK-BODY_NUM = TAB_LINES.
OBJPACK-DOC_TYPE = 'PDF'(016).
OBJPACK-OBJ_NAME = 'Attachment'(017).
OBJPACK-OBJ_DESCR = 'Mail with pdf Attachment'(018).
OBJPACK-DOC_SIZE = TAB_LINES * 255.
APPEND OBJPACK.
*-Fill the mail recipient list
LOOP AT MAIL.
    RECLIST-RECEIVER = MAIL-LOW.
    RECLIST-REC_TYPE = C_U.
    APPEND RECLIST.
    CLEAR: RECLIST,
           MAIL.
ENDLOOP.
*-Send the document by calling the SAPoffice API1 module for sending
*-documents with attachments
CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'
    EXPORTING
      DOCUMENT_DATA              = DOC_CHNG
      PUT_IN_OUTBOX              = C_X
      COMMIT_WORK                = C_X
    IMPORTING
      SENT_TO_ALL                = SENT_TO_ALL
    TABLES
      PACKING_LIST               = OBJPACK
      OBJECT_HEADER              = OBJHEAD
      CONTENTS_BIN               = OBJBIN
      CONTENTS_TXT               = OBJTXT
      RECEIVERS                  = RECLIST
    EXCEPTIONS
      TOO_MANY_RECEIVERS         = 1
      DOCUMENT_NOT_SENT          = 2
      OPERATION_NO_AUTHORIZATION = 4
      OTHERS                     = 99.
CASE SY-SUBRC .
    WHEN 0.
      MESSAGE I000 WITH 'Mail has been sent successfully'(006).
    WHEN OTHERS.
      MESSAGE E000 WITH 'Problem in sending the mail'(023).
ENDCASE.
ENDFORM.                    " send_mail
*&      Form page_format
*        For page foramtting
FORM PAGE_FORMAT TABLES EMAIL STRUCTURE S_EMAIL .
DATA : L_LINES       TYPE I,
         L_TEMP(500)   TYPE C,
         L_OFFSET      TYPE P,
         L_LINESLEN(2) TYPE P,
         L_MIMELEN(2) TYPE P,
         L_TABIX       LIKE SY-TABIX.
CLEAR : IT_XI_PDF,
          IT_XI_TEMP.
REFRESH : IT_XI_PDF,
            IT_XI_TEMP.
IT_XI_PDF[] = IT_PDF[].
* Reformat the line to 255 characters wide (--code from SAP--)
CLEAR: L_TEMP, L_OFFSET, IT_XI_TEMP.
DESCRIBE TABLE IT_XI_PDF   LINES L_LINES.
DESCRIBE FIELD IT_XI_PDF   LENGTH L_LINESLEN IN CHARACTER MODE.
DESCRIBE FIELD IT_XI_TEMP LENGTH L_MIMELEN IN CHARACTER MODE.
LOOP AT IT_XI_PDF.
    L_TABIX = SY-TABIX.
    MOVE IT_XI_PDF TO L_TEMP+L_OFFSET.
    IF L_TABIX = L_LINES.
      L_LINESLEN = STRLEN( IT_XI_PDF ).
    ENDIF.
    L_OFFSET = L_OFFSET + L_LINESLEN.
    IF L_OFFSET GE L_MIMELEN.
      CLEAR IT_XI_TEMP.
      IT_XI_TEMP = L_TEMP(L_MIMELEN).
      APPEND IT_XI_TEMP.
      SHIFT L_TEMP BY L_MIMELEN PLACES.
      L_OFFSET = L_OFFSET - L_MIMELEN.
    ENDIF.
    IF L_TABIX = L_LINES.
      IF L_OFFSET GT 0.
        CLEAR IT_XI_TEMP.
        IT_XI_TEMP = L_TEMP(L_OFFSET).
        APPEND IT_XI_TEMP.
      ENDIF.
    ENDIF.
ENDLOOP.
CLEAR : IT_XI_MIME,
          IT_XI_MIME[].
LOOP AT IT_XI_TEMP.
    IT_XI_MIME(255) = IT_XI_TEMP-LINE.
    APPEND IT_XI_MIME.
    CLEAR IT_XI_MIME.
ENDLOOP.
* Final Data
CLEAR : IT_HTML,
          IT_HTML[].
IT_HTML[] = IT_XI_MIME[].
* For sending mail
PERFORM SEND_MAIL TABLES EMAIL.
ENDFORM.                    " page_format
*&      Form fetch_variants
*       For fetching the variants available for the program
FORM FETCH_VARIANTS .
DATA : L_PROGRAM LIKE RS38M-PROGRAMM VALUE 'RKAEP000',
         L_VARA1 TYPE DFIES-FIELDNAME VALUE 'P_VARA1'.
CLEAR : IT_VARIANT1,
          IT_VARIANT1[].
* Get variants
PERFORM GET_VARIANTS TABLES IT_VARIANT1
                       USING L_PROGRAM.
* F4 Help
IF NOT IT_VARIANT1[] IS INITIAL.
    PERFORM GET_F4_HELP TABLES IT_VARIANT1
                         USING L_VARA1
                        CHANGING P_VARA1.
ELSE.
    MESSAGE E000 WITH 'No variants available for report1'(054).
ENDIF.
ENDFORM.                    " fetch_variants
*&      Form validation
*       For Validation
FORM VALIDATION .
DATA : L_PRO1 LIKE RS38M-PROGRAMM VALUE 'RKAEP000',
         L_PRO2 LIKE RS38M-PROGRAMM VALUE 'GP3DIEHXY88SNFJ0391V7KF9EK7050',
         L_C1,
         L_C2.
* If both check-box are unchecked
IF P_C1 IS INITIAL
AND P_C2 IS INITIAL.
    MESSAGE E000 WITH 'Check any one check-box'(049).
ENDIF.
* If checked without varaint
IF NOT P_C1 IS INITIAL AND P_VARA1 IS INITIAL.
    MESSAGE E000 WITH 'Please give any one of the variant for report1'(055).
ENDIF.
* If checked without varaint
IF NOT P_C2 IS INITIAL AND P_VARA2 IS INITIAL.
    MESSAGE E000 WITH 'Please give any one of the variant for report2'(061).
ENDIF.
* Reading the variant and fetching the mail-ids
IF P_C1 = C_X.
    L_C1 = '1'.
    CLEAR : S_EMAIL,
            S_EMAIL[].
    PERFORM READ_VARIANTS TABLES IT_MAILID
                                 S_EMAIL
                           USING P_VARA1
                                 L_PRO1
                                 L_C1.
    IF S_EMAIL[] IS INITIAL.
      MESSAGE E000 WITH 'No Id available for given Cost report1'(066).
    ELSE.
      SORT S_EMAIL BY LOW.
      DELETE ADJACENT DUPLICATES FROM S_EMAIL COMPARING LOW.
    ENDIF.
ENDIF.
* Reading the variant and fetching the mail-ids
IF P_C2 = C_X.
    CLEAR : S_EMAIL1,
            S_EMAIL1[].
    L_C2 = '2'.
    PERFORM READ_VARIANTS TABLES IT_MAILID1
                                 S_EMAIL1
                           USING P_VARA2
                                 L_PRO2
                                 L_C2.
    IF S_EMAIL1[] IS INITIAL.
      MESSAGE E000 WITH 'No Id available for given Cost report2'(067).
    ELSE.
      SORT S_EMAIL1 BY LOW.
      DELETE ADJACENT DUPLICATES FROM S_EMAIL1 COMPARING LOW.
    ENDIF.
ENDIF.
ENDFORM.                    " validation
*&      Form GET_VARIANTS
*       Fetching Variants
FORM GET_VARIANTS TABLES   P_IT_VARIANT STRUCTURE IT_VARIANT1
                   USING    P_V_PROGRAM TYPE RS38M-PROGRAMM.
SELECT VARIANT
         FROM VARID
         INTO TABLE P_IT_VARIANT
         WHERE REPORT = P_V_PROGRAM.
ENDFORM.                    " GET_VARIANTS
*&      Form GET_F4_HELP
*       text
FORM GET_F4_HELP TABLES   P_IT_VARIANT1 STRUCTURE IT_VARIANT1
                   USING   P_L_VARA1 LIKE DFIES-FIELDNAME
                  CHANGING P_P_VARA LIKE P_VARA1.
* Fn. for Pop-Up
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
    EXPORTING
      RETFIELD        = P_L_VARA1
      VALUE_ORG       = 'S'
      DISPLAY         = ' '
    TABLES
      VALUE_TAB       = P_IT_VARIANT1
      RETURN_TAB      = IT_RETURN
    EXCEPTIONS
      PARAMETER_ERROR = 1
      NO_VALUES_FOUND = 2
      OTHERS          = 3.
IF SY-SUBRC = 0.
    P_P_VARA = IT_RETURN-FIELDVAL.
ELSE.
    MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDFORM.                    " GET_F4_HELP
*&      Form FETCH_VARIANTS1
*       text
FORM FETCH_VARIANTS1 .
DATA : V_PROGRAM1 LIKE RS38M-PROGRAMM VALUE 'GP3DIEHXY88SNFJ0391V7KF9EK7050',
         L_VARA2 TYPE DFIES-FIELDNAME VALUE 'P_VARA2'.
CLEAR : IT_VARIANT2,
          IT_VARIANT2[].
* Get Variants
PERFORM GET_VARIANTS TABLES IT_VARIANT2
                       USING V_PROGRAM1.
* F4 Help
IF NOT IT_VARIANT2[] IS INITIAL.
    PERFORM GET_F4_HELP TABLES IT_VARIANT2
                        USING L_VARA2
                      CHANGING P_VARA2.
ELSE.
    MESSAGE E000 WITH 'No variants available for report2'(050).
ENDIF.
ENDFORM.                    " FETCH_VARIANTS1
*&      Form read_variants
*        Reading the variant and fetching the mail-ids
FORM READ_VARIANTS TABLES P_IT_MAILID STRUCTURE IT_MAILID
                          P_S_EMAIL   STRUCTURE S_EMAIL
                   USING P_P_VARA1   LIKE P_VARA1
                          P_L_PRO1    LIKE RS38M-PROGRAMM
                          P_L_C1      TYPE C.
DATA : L_TEMP(44),
         IT_VALUTAB LIKE RSPARAMS OCCURS 0 WITH HEADER LINE.
RANGES : R_COCEN FOR CSKS-KOSTL.
* Function Module to get the variant contents
CALL FUNCTION 'RS_VARIANT_CONTENTS'
    EXPORTING
      REPORT               = P_L_PRO1
      VARIANT              = P_P_VARA1
    TABLES
      VALUTAB              = IT_VALUTAB
    EXCEPTIONS
      VARIANT_NON_EXISTENT = 1
      VARIANT_OBSOLETE     = 2
      OTHERS               = 3.
IF SY-SUBRC <> 0.
    MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
CLEAR : R_COCEN,
          R_COCEN[].
LOOP AT IT_VALUTAB WHERE SELNAME = 'KOSTL'
                        OR SELNAME = '_C-CCTR'.
* Getting the range of cost centers
    IF IT_VALUTAB-OPTION = 'BT'.
      R_COCEN-LOW    = IT_VALUTAB-LOW.
* For Conversion Routine
      PERFORM CONVERSION USING R_COCEN-LOW.
      R_COCEN-HIGH   = IT_VALUTAB-HIGH.
* For Conversion Routine
      PERFORM CONVERSION USING R_COCEN-HIGH.
      R_COCEN-OPTION = 'BT'.
      R_COCEN-SIGN   = 'I'.
      APPEND R_COCEN.
      CLEAR R_COCEN.
    ENDIF.
* Getting the single cost centers
    IF IT_VALUTAB-OPTION = 'EQ'.
      R_COCEN-LOW    = IT_VALUTAB-LOW.
* For Conversion Routine
      PERFORM CONVERSION USING R_COCEN-LOW.
      R_COCEN-OPTION = 'EQ'.
      R_COCEN-SIGN   = 'I'.
      APPEND R_COCEN.
      CLEAR R_COCEN.
    ENDIF.
ENDLOOP.
* If no cost centers
IF NOT R_COCEN[] IS INITIAL.
    SELECT KOKRS
           KOSTL
           DATBI
           TELX1
      FROM CSKS
           INTO TABLE P_IT_MAILID
     WHERE KOSTL IN R_COCEN.
    IF P_IT_MAILID[] IS INITIAL.
      IF P_L_C1 = '1'.
        MESSAGE E000 WITH 'No IDs available for report1'(059).
      ELSEIF P_L_C1 = '2'.
        MESSAGE E000 WITH 'No IDs available for report2'(062).
      ENDIF.
    ENDIF.
* Deleting the blank entries
    DELETE P_IT_MAILID WHERE TELX1 = SPACE.
    CLEAR L_TEMP.
    READ TABLE P_IT_MAILID INDEX 1.
    L_TEMP = P_IT_MAILID-TELX1.
    DATA : L_CHECK.
    LOOP AT P_IT_MAILID WHERE TELX1 <> L_TEMP.
      L_CHECK = C_X.
    ENDLOOP.
* For checking the unique ids
    IF L_CHECK = C_X.
      IF P_L_C1 = '1'.
        MESSAGE E000 WITH 'No unique mail-ids for report1'(058).
      ELSEIF P_L_C1 = '2'.
        MESSAGE E000 WITH 'No unique mail-ids for report2'(065).
      ENDIF.
    ENDIF.
* Populating the IDs for the cost centers
    LOOP AT P_IT_MAILID.
      SET LOCALE LANGUAGE SY-LANGU.
      TRANSLATE P_IT_MAILID-TELX1 TO LOWER CASE.
      SET LOCALE LANGUAGE SPACE .
      CONCATENATE P_IT_MAILID-TELX1 '@allergan.com' INTO L_TEMP.
      P_S_EMAIL-LOW = L_TEMP.
      P_S_EMAIL-SIGN = 'I'.
      P_S_EMAIL-OPTION = 'EQ'.
      APPEND P_S_EMAIL.
      CLEAR P_S_EMAIL.
    ENDLOOP.
ELSE.
    IF P_L_C1 = '1'.
      MESSAGE E000 WITH 'No Cost Center Available for report1'(057).
    ELSEIF P_L_C1 = '2'.
      MESSAGE E000 WITH 'No Cost Center Available for report2'(063).
    ENDIF.
ENDIF.
ENDFORM.                    " read_variants
*&      Form CONVERSION
*       For Conversion Routine
FORM CONVERSION USING    P_IT_VALUTAB_LOW TYPE C.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
    EXPORTING
      INPUT = P_IT_VALUTAB_LOW
    IMPORTING
      OUTPUT = P_IT_VALUTAB_LOW.
ENDFORM.                    " CONVERSION
check this Program......

Looking for Functional Module for OM

Hello everyone,
I am looking for a FM which take input as Org unit and provide SUB ORG UNITS of its own(not SUB SUB ORG UNITS) for example if
org unit 10 has two sub org units (20 and 30)
and 20 also have its own sub org units (40 50 60)
and 30 also have its own sub org units (70 80).
if user select 10 its output should only be 20 and 30.
if user select 20 its output should only be 40 50 and 60.

Hy Fayyaz,
from the code that Suresh suggest you
ACT_OTYPE = 'O'
ACT_OBJID = "Ojbect ID
ACT_WEGID = 'B002' "Eval Path
ACT_INT_FLAG = 'X'
ACT_PLVAR = 01
ACT_BEGDA = 02/16/2007
ACT_ENDDA = 02/16/2007
ACT_TDEPTH = 2 "One level below ie Direct Sub
ACT_TFLAG X
ACT_VFLAG X
AUTHORITY_CHECK X
Take a look on this view
>> T778A
In that entries you could find the "Eval Path" that resolve your problem.
On result tab you should find the cost centers.
Regards
Andrea

I'm looking for a decent CRM app, so I can load my customer data base

HI I'm looking for a CRM app or package, just started using my air for business and would like to have my customer data base with me handy
for pulling up local customers and being able to enter some data sales related or just comments regarding conversations and topics talked about so I can follow up ect!
any suggestions would be appreciated!
thanks, Lee.

Hi Lee what sort of database are you looking at also what sort of business do you run ?
I have a CRM Package that is native to mac and pc and is built off of filemaker it is normally targeted at Recruitment businesses.
Drop me a line if you wanna chat about it!
Sammie

Looking for a form in the VIS demo database with lots of data

Hi all,
I am looking for a form in the VIS demo database (that ships with Oracle Applications) that contains a lot (1 MB or more) of data. Specifically, when I perform some type of search in the form, I would like more than 1 MB of data to be transferred over the network to the client.
With Oracle Applications 11i, I was using this form: CRM Resource Manager, Vision Enterprises → Resources
This was nice because searching for all resources resulted in 4.6 MB of data being sent by the server. However, in Oracle Applications R12, the same query in the same form only sends about 100 KB of data. :-(
Does anyone know any other forms that have lots of data in them?
- Kyle

Thanks for that - I found the form. However, it appears the database table is empty - when I perform a search for all jobs, no records are returned.Nevermind, after some trial and error I found a site that had lots of jobs defined. Thanks for the pointer!
I'm still running into the same problem I was seeing with the previous form I was using. This is what I'm doing:
1. Open the form.
2. Search for all records.
3. Jump to the very last record.
In Oracle Applications 11i, this would cause a large amount of data to be transferred over the network (4.6 MB for the previous form I was using and 2.6 MB for this new "Discrete Jobs" form I'm trying). However, the behavior is different in Oracle Applications R12. When I perform the same steps in the same forms, only a fraction of the data is transferred over the network (~100 KB).
Ideally, I would like a set of steps (and a form) that will produce the same results in both 11i and R12. More realistically, I just need a form (or a new test procedure) in R12 that will spit out more than 1 MB of data.

Looking for functionality matrix for SRM 7.0

Hi Folks,
where can I find the functionality matrix for SRM 7.0 ?
Regards,
Mitesh

Hello,
I am not sure what you mean by functionality matrix, but in https://websmp101.sap-ag.de/sp-stacks you can find more information of support packages contents, which are delivered when you implement/upgrade your SRM.
Regards
Ricardo

Looking for an API to get calculate the price

Hi ,
I am trying to find an API to calculate the Price of an item (Quote)
This need to find the price considering the Modifier , and qualifiers.
I have setup up qualifiers on Customer,Price List , Order levels.
I have tried the below given script , but it is not considering modifiers
DECLARE
l_listprice     NUMBER;
l_bestprice     NUMBER;
l_status_code     VARCHAR2(2000);
l_status_text     VARCHAR2(2000);
l_user_id     NUMBER;
l_responsibility_id NUMBER;
l_application_id NUMBER;
BEGIN
fnd_client_info.set_org_context ('81');
SELECT user_id
INTO l_user_id
FROM fnd_user
WHERE user_name = 'USER';
SELECT responsibility_id
,application_id
INTO l_responsibility_id
,l_application_id
FROM fnd_responsibility_tl
WHERE responsibility_name = 'IBE_CUSTOMER';
fnd_global.apps_initialize (l_user_id
,l_responsibility_id
,l_application_id);
IBE_PRICE_PVT.GetPrice(
     p_price_list_id     =>          7007
     ,p_party_id => 222
     ,p_cust_account_id => 111
     ,p_model_id          => NULL
     ,p_organization_id     => 123
     ,p_currency_code     => 'USD'
,p_inventory_item_id     =>     1222321
,p_uom_code          => 'CS'
     --,p_calculate_flag     => 'Y'
     ,p_model_bundle_flag     => NULL
     ,p_request_type_code     => 'ASO'
     ,p_pricing_event     => 'LINE'
,x_listprice          => l_listprice
     ,x_bestprice          => l_bestprice
     ,x_status_code     => l_status_code
     ,x_status_text     => l_status_text
DBMS_OUTPUT.PUT_LINE ( 'l_listprice = '|| l_listprice );
DBMS_OUTPUT.PUT_LINE ( 'l_bestprice = '|| l_bestprice );
DBMS_OUTPUT.PUT_LINE ( 'l_status_code = '|| l_status_code );
DBMS_OUTPUT.PUT_LINE ( 'l_status_text = '|| l_status_text );
END;
Edited by: 797959 on 22-Feb-2011 10:08

I'm not sure I completely follow you with the "privilege".
To answer your question, yes, you may enhance behaviour of standard services such as CHECKIN_UNIVERSAL via so called "filters". Filters are Java pieces of code, that might be hooked to "filter events" such as validateCheckinData. When a service is being processed, the filter code is triggered on that event automatically.
However, the checkin services already contain a security check (it calls a Java method from the standard code), and it will do checks like "can this user check in a document with such a security group?" or "does this folder exist?", no extra code needed. So, I'm not sure what your enhancement would do additional.

I'm looking for return value if trigger level is reached,in LABVIEW .NO data acquisition.

I won't like to acquire data with the analog input , only a return value if the trigger level is reached, dearest a Bool expression to control another function, only to activate or deactivate this function. I use the PCI MIO 16E1 and Labview 6 and i hope there is someone who can help ; -)

The DAQ Occurence will probably be the best option for you. It can be set to generate an occurence (interrupt) at a particular level. You won't get a BOOL output. Instead, you have another node (Wait on Occurence) that doesn't allow execution to continue until the occurence is generated.
Otherwise, you may have to do a point-point comparison.

How can i show my music playing via itunes while im using MSN? i have ticked show what im listening to box and looked for add-ons....i have win7, up to date itunes and also MSN

hi there, i explained my problem in the discussion topic? any ideas?
Thankyou!!!!

Hi SDucky.!
I have an article here that should be able to help you troubleshoot this issue. The article is about finding lost media in iTunes and can be found here:
iTunes: Finding lost media and downloads
http://support.apple.com/kb/TS1408
Take care, and thanks for visiting the Apple Support Communities.
-Braden

Looking for function or vi to calculate 1/2 power points of data obtained from peak detection vi

Similar Messages

Maybe you are looking for