How to list customers blocked report  in creidit managment seperatly and combined

Dear sd Experts ,i have checked in Google but i did not find in any post please tell me
i want to list of customer who are blocked irrespective of sales order /delivery/pgi
ex: i have 20000 customers  some are blocked at sales order and some are blocked Del/ and pgi ..some are not blocked
Now requirement is i want to reports
1) i want to make one list who are blocked customers ?
2) i want to make list of customers order level blocked / del/ And pgi level separately
Thanks To all sap Mentors

Dear ,
i want to make one list who are blocked customers ?
This is FI Consultant will Do , Go to T.code : S_ALR_87012189
Give your company code and Activate posting block  check box
Then you can find customers list who are blocked in your company code ,Irrespective of sales order /del/pgi
But it will show Only whos transactions are blocked may be some times Manuel also we can block posting to fi ( VOFA )
So check from that point of view also
i want to make list of customers order level blocked / del/ And pgi level separately
By using VKM1,VKM2, VKM5 , you can find it with some parameters
and
In this link lakshmipathi sir explained how to find unblocked customers list
may be helpful
i want to check only UNBLOCKED CUSTOMERS
Thanks a lot
venu gopal

Similar Messages

  • How can the info block be assigned with the view and assign view to users.

    Dear Friends,
    Anyone could plz tell me how can the info block be assigned with the view and assign view to users.  Also how can the info block in sale summary be assigned with a view and how to assign this view for user.
    Regards,
    Ashima

    Hi,
    To define view and to make it default
    Goto SAP IMG > Sales and Distribution > Sales Support (CAS) > Sales Summary > Define Reporting Views (Tcode:OVCD).
    To assign default user to the view.
    Goto SAP IMG > Sales and Distribution > Sales Support (CAS) > Sales Summary > Assign Default View To User (Tcode:OVCC).
    To assign Elements of SAPScript "SD-SALES-SUMMARY" to information Blocks To A View use
    Goto SAP IMG > Sales and Distribution > Sales Support (CAS) > Sales Summary > Assign Information Blocks To A View (Tcode:OVCB).

  • Need list of Crystal Reports Version Numbers by Product and Service Pack

    Hi All,
    Where can I get a list of Crystal Reports Version Numbers by Product and Service Pack? I'm trying to figure out which version we have is the most current version, because we have so many version installed threw out our company.
    Thanks.

    Hi Matt,
    Please check the crystal Report 2008 product versions
    Cr 2008+SP0 - 12.0.0.683
    Cr 2008+SP0 + FP1 - 12.0.0.796
    Cr 2008+SP0 + FP2 - 12.0.0.840
    Cr 2008+SP0 + FP3 - 12.0.3.900
    Cr 2008 + SP1 - 12.1.0.882
    Cr 2008 + SP1 + FP1.1 - 12.1.1.957
    Cr 2008 + SP1 + FP1.2 - 12.1.2.996
    Cr 2008 + SP1 + FP1.3 - 12.1.3.1028
    Cr 2008 + SP1 + FP1.4 - 12.1.4.1068
    Cr 2008 + SP1 + FP1.5 - 12.1.5.1096
    Cr 2008 + SP1 + FP1.6 - 12.1.6.1116
    Cr 2008 + SP1 + FP1.7 - 12.1.7.1144
    Cr 2008 + SP1 + FP1.8 - 12.1.8.1176
    Cr 2008 + SP1 + FP1.9 - 12.1.9.1290
    Cr 2008 + SP1 + FP1.10 - 12.1.10.1390
    Cr 2008 + SP1 + FP1.11 - 12.1.11.1454
    Cr 2008 + SP2 - 12.2.0.290
    Cr 2008 + SP2 + FP2.1 - 12.2.1.412
    Cr 2008 + SP2 + FP2.2 - 12.2.2.453
    Cr 2008 + SP2 + FP2.3 - 12.2.3.467
    Cr 2008 + SP2 + FP2.4 - 12.2.4.507
    Cr 2008 + SP2 + FP2.5 - 12.2.5.537
    Cr 2008 + SP2 + FP2.6 - 12.2.6.567
    Cr 2008 + SP2 + FP2.7 - 12.2.7.598
    Cr 2008 + SP2 + FP2.8 - 12.2.8.638
    Cr 2008 + SP2 + FP2.9 - 12.2.9.698
    Cr 2008 + SP2 + FP2.10 - 12.2.10.810
    Cr 2008 + SP3 - 12.3.0.601
    Cr 2008 + SP3 + FP3.1 - 12.3.1.684
    Cr 2008 + SP3 + FP3.2 - 12.3.2.753
    Cr 2008 + SP3 + FP3.3 - 12.3.3.812
    Thanks,
    Naga.

  • How to get list of block identifiers in a empty table and an empty index

    We have an application that has issue with ITL waits: this application is running many INSERT statements on a table that has 2 NUMBER columns and one primary key index. The application is designed to run INSERT statements but they are never committed (this is a software package).
    To check what are the really allocated ITL slots, I know that I can dump data block but I don't know how to get the block identifiers/numbers for an "empty" table and an "empty" index. Does someone knows how to do that ?
    PS: I already had a look to the Metalink notes and I have a Metalink SR for that but maybe OTN forum is faster ?

    You should be able to find the first data/index block with the following, even on an empty table/index.
    select header_file, header_block +1
    from dba_segments
    where segment_name = '<index or table name>';

  • Report : How to show all the reports in Content Management

    Hi,
      Can anyone tell me how I can show the "Resource Locks" Report in Portal.
      I can see 4 reports through Content Management -> Reports i.e. Approval Maintenance, Link Consistency, Resource Statistics, Time-based publishing.
    If I want to add more reports over here than "How I can achieve it".
      Also I have seen the settings System Administration -> System Configuration -> KM -> CM -> Repository Managers -> Reporting Repository
    But here I find no combo box for Active Reports, so from where I can activate the reports and show them in Content Management -> Reports
    Please help me.
    Regards
    Deep

    Deep,
        Are you talkign about the report which give you details of which Portal Objects are currently locked?
       If yes, then you can go to System Adminitrator > Monitoring > Object Locking
    Hope this helps,
    *Points will be appreciated.

  • How do I create a report of what is run and when on Crystal Server

    In crystal server, how do I create a report that will tell me the name of all of my reports and the time it is scheduled to run?
    I get the feeling it is in the Query Builder,  but I have no idea what the names of all of these tables are.
    Anyone ever done this or know of another way to do this?

    Please download https://www.sdn.sap.com/irj/boc/index?rid=/library/uuid/404170c1-59ae-2b10-b19f-c86764e759a5#rating and read the section titled "Auditing Reports".

  • How to export an eloqua report to a (ftp) server and schedule this export

    I would like to export an eloqua report to a (ftp) server and schedule this export. I want to pick this report up by another tool like Qlikview.
    Liesbeth

    if it is something to do with having report admin rights is there a way to still export report data without these admin rights? is it possible to just export report data as activity data in the normal import/export section within the setup menu? is there a problem using filezilla client and oracle eloqua together for this?

  • How do I install creative cloud when application manager opens and just sits there?

    I have downloaded creative cloud but when I double click on the icon, application manager opens and just sits there, advising me what apps can be installed or try; how do I get creative cloud installed

    attach a screenshot of your cc app if you are unable to click an install button, http://forums.adobe.com/message/4209263#4209263

  • How to clean old Earlywatch reports in Solution Manager

    Hi,
    We are using SOLMAN 7.0 for EarlyWatch alerts, everything is fine and EarlyWatch is generating Reports weekly. Now i had a concern on how to clean these Early Watch reports once they are like month old, Does SAP Standard Jobs take care of this or do we need to schedule any job that removes EarlyWatch alerts older than certain period.
    Thanks

    Yes there is....
    In transaction SOLUTION_MANAGER, click onto the EarlyWatch Alert tab -> next to the create button there is a button that say DELETE. If you click onto that it will bring up all of your sessions which you can select to delete.
    Hope this helps!

  • How to list the employees working under one manager in the same row.

    Hi,
    my emp table has the following data.
    EMPNO ENAME JOB MGR HIREDATE SAL COMM DEPTNO
    7369 SMITH CLERK 7902 17-DEC-80 800 20
    7499 ALLEN SALESMAN 7698 20-FEB-81 1600 300 30
    7521 WARD SALESMAN 7698 22-FEB-81 1250 500 30
    7566 JONES MANAGER 7839 02-APR-81 2975 20
    7654 MARTIN SALESMAN 7698 28-SEP-81 1250 1400 30
    7698 BLAKE MANAGER 7839 01-MAY-81 2850 30
    7782 CLARK MANAGER 7839 09-JUN-81 2450 10
    7788 SCOTT ANALYST 7566 19-APR-87 3000 20
    7839 KING PRESIDENT 17-NOV-81 5000 10
    7844 TURNER SALESMAN 7698 08-SEP-81 1500 0 30
    7876 ADAMS CLERK 7788 23-MAY-87 1100 20
    7900 JAMES CLERK 7698 03-DEC-81 950 30
    7902 FORD ANALYST 7566 03-DEC-81 3000 20
    7934 MILLER CLERK 7782 23-JAN-82 1300 10
    I want to group all the employees under one manager and list their names in the same row. IS that possible. When i tried the query below,
    select mgr, count(*) employees from emp where mgr is not null group by mgr, ename;
    I got the result as
    MGR EMPLOYEES
    7566 2
    7698 6
    7782 1
    7788 1
    7839 3
    7902 1
    Additionally, would I be able to display the names of the employees under one manager in a row? or atleast in some other way? Pls share your ideas.

    A summary of different string aggregation techniques can be found here
    http://www.oracle-base.com/articles/10g/StringAggregationTechniques.php

  • Unable to view custom report generated in Manage Content and Structure !!!

    Hello,
    I am farm administrator and I have created report to view all checked out documents for site collection.
    as below:
    Title : All Checked Out Documents
    Query : <Where><Geq><FieldRef Name="CheckoutUser" LookupId="TRUE"/><Value Type="int">0</Value></Geq></Where>
    Issue:
    When I see the report , I am able to see all checked out documents.However site admin and owner is unable to view this report.
    They are getting following message:
    There are no items to show in this view.
    Would you please let me know what can be the root cause and how can I resolve it ?
    Thanks and Regards,
    Dipti Chhatrapati

    Dipti,
    This is by design and Unfortunately, no one else can see the documents because they have never been checked in. Even the site owner
    can't see the documents.  However Site collection admin can see everything.
    Fortunately, there is an easy way to handle this situation. The site owner can go to the Document Library Settingspage and click on the link to Manage
    checked out files.
    From here, he can select the documents and click the Take Ownership of Selection link.
    Few links: CHECKING OUT DOCUMENTS =
    NO ONE ELSE CAN SEE THEM!
    Hope it will help :)
    Please 'propose as answer' if it helped you, also 'vote helpful' if you like this reply.

  • ALV BLOCK REPORT

    please tell me the process how to create ALV block report with simple example

    Try this sample program:
    Program Name:   ALV Program                                          *
    Description:                                                         *
    Date/Author:    Selvapandian                                         *
                      M O D I F I C A T I O N   L O G                    *
      Date      Programmer    Task    #            Description           *
    REPORT  ZEXAMPLE
           NO STANDARD PAGE HEADING
           MESSAGE-ID ZSP.
    TYPE-POOLS:  SLIS.
    INCLUDE: .
                               T A B L E S                               *
    TABLES: SCARR,              "Airline
            SPFLI,              "Flight schedule
            SBOOK.              "Single Flight Booking
                        I N T E R N A L   T A B L E S                    *
    DATA: GT_SP_GROUPS TYPE SLIS_T_SP_GROUP_ALV WITH HEADER LINE,
          GT_ZSUM      TYPE SLIS_T_SORTINFO_ALV WITH HEADER LINE,
          GT_FILTER    TYPE SLIS_T_FILTER_ALV   WITH HEADER LINE,
          XHEADER      TYPE SLIS_T_LISTHEADER   WITH HEADER LINE.
    DATA: GT_EXTAB TYPE SLIS_T_EXTAB WITH HEADER LINE.
    DATA: GT_COLOR TYPE SLIS_T_SPECIALCOL_ALV WITH HEADER LINE.
    DATA: BEGIN OF XDATA OCCURS 1,
            CARRID      LIKE SCARR-CARRID,
            CARRNAME    LIKE SCARR-CARRNAME,
            CURRCODE    LIKE SCARR-CURRCODE,
            BLUBBER     LIKE LTDXT-TEXT,
            NUMC(3)     TYPE N,
            ICONS(30)   TYPE C,
            SYMBOLS(30) TYPE C,
            AMPEL(1)    TYPE C,
            BOX(1)      TYPE C,
            LISTINFO(3) TYPE C,
          END OF XDATA.
    DATA: BEGIN OF YDATA OCCURS 1.
            INCLUDE STRUCTURE SPFLI.
    DATA:   BLUBBER     LIKE LTDXT-TEXT,
            NUMC(3)     TYPE N,
            ICONS(30)   TYPE C,
            SYMBOLS(30) TYPE C,
            AMPEL(1)    TYPE C,
            BOX(1)      TYPE C,
            LISTINFO(3) TYPE C,
            COLINFO     TYPE SLIS_T_SPECIALCOL_ALV,
          END OF YDATA.
    DATA: BEGIN OF ZDATA OCCURS 1.
            INCLUDE STRUCTURE SBOOK.
    DATA:   BLUBBER     LIKE LTDXT-TEXT,
            NUMC(3)     TYPE N,
            ICONS(30)   TYPE C,
            SYMBOLS(30) TYPE C,
            AMPEL(1)    TYPE C,
            BOX(1)      TYPE C,
            LISTINFO(3) TYPE C,
            COLINFO     TYPE SLIS_T_SPECIALCOL_ALV,
          END OF ZDATA.
    DATA: HDATA LIKE XDATA OCCURS 0 WITH HEADER LINE,
          LDATA LIKE XDATA OCCURS 0 WITH HEADER LINE,
          IDATA LIKE YDATA OCCURS 0 WITH HEADER LINE.
    DATA: LFIELD TYPE SLIS_T_FIELDCAT_ALV,
          XFIELD TYPE SLIS_T_FIELDCAT_ALV,
          YFIELD TYPE SLIS_T_FIELDCAT_ALV,
          ZFIELD TYPE SLIS_T_FIELDCAT_ALV,
          HFIELD TYPE SLIS_T_FIELDCAT_ALV.
    DATA: AFIELD TYPE SLIS_FIELDCAT_ALV.
    DATA: GS_LAYOUT TYPE SLIS_LAYOUT_ALV,
          X_LAYOUT  TYPE SLIS_LAYOUT_ALV,
          Y_LAYOUT  TYPE SLIS_LAYOUT_ALV,
          Z_LAYOUT  TYPE SLIS_LAYOUT_ALV,
          H_LAYOUT  TYPE SLIS_LAYOUT_ALV,
          L_LAYOUT  TYPE SLIS_LAYOUT_ALV.
    DATA: GS_KEYINFO TYPE SLIS_KEYINFO_ALV.
    DATA: XISETAB TYPE SLIS_SELDIS_ALV.
    DATA: GT_XEVENTS TYPE SLIS_T_EVENT,
          GT_YEVENTS TYPE SLIS_T_EVENT,
          GT_ZEVENTS TYPE SLIS_T_EVENT,
          GT_HEVENTS TYPE SLIS_T_EVENT,
          GT_LEVENTS TYPE SLIS_T_EVENT,
          GT_PRINT TYPE SLIS_PRINT_ALV.
                                 D A T A                                 *
    DATA: OK_CODE     LIKE SY-UCOMM,
          FLG_EXIT(1) TYPE C,
          V_REPID       LIKE SY-REPID,
          G_EXIT,
          X_SAVE,
          DEFAULT,
          X_VARIANT LIKE DISVARIANT,
          XS_LAYOUT LIKE GS_LAYOUT,
          XS_EVENT  TYPE SLIS_ALV_EVENT,
          GT_SPFLI  LIKE SPFLI OCCURS 0 WITH HEADER LINE,
          G_VARIANT LIKE DISVARIANT.
              S E L E C T - O P T I O N S / P A R A M E T E R S          *
    SELECT-OPTIONS CARRID FOR SCARR-CARRID.
    SELECTION-SCREEN SKIP.
    PARAMETERS: PFSTATUS TYPE SLIS_FORMNAME DEFAULT 'PF_STATUS_SET',
                HIERSEQU AS CHECKBOX DEFAULT 'X',
                BOX_TABL(5) DEFAULT 'IDATA',
                MAX_DATA AS CHECKBOX DEFAULT ' '.
                       I N I T I A L I Z A T I O N                       *
    INITIALIZATION.
      V_REPID = SY-REPID.
                  A T   S E L E C T I O N - S C R E E N                  *
    AT SELECTION-SCREEN ON CARRID.
    IF NOT CARRID[] IS INITIAL.
      SELECT SINGLE * FROM SCARR
             WHERE CARRID IN CARRID.
            IF SY-SUBRC <> 0.
              MESSAGE E000 WITH 'Enter valid Carrier ID'(003).
            ENDIF.
    ENDIF.
                   S T A R T - O F - S E L E C T I O N                   *
    START-OF-SELECTION.
      PERFORM F_SELECTION.
      PERFORM XEVENTS.
      PERFORM YEVENTS.
      PERFORM HEVENTS.
      PERFORM FIELDS.
                     E N D - O F - S E L E C T I O N                     *
    END-OF-SELECTION.
      CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_INIT'
           EXPORTING
                I_CALLBACK_PROGRAM       = V_REPID
                I_CALLBACK_USER_COMMAND  = 'USER_COMMAND'
                I_CALLBACK_PF_STATUS_SET = PFSTATUS.
      X_LAYOUT-BOX_FIELDNAME = 'BOX'.
      X_LAYOUT-BOX_TABNAME   = 'XDATA'.
      X_LAYOUT-LIGHTS_FIELDNAME  = 'AMPEL'.
      X_LAYOUT-INFO_FIELDNAME = 'LISTINFO'.
      CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_APPEND'
           EXPORTING
                IT_FIELDCAT = XFIELD
                IS_LAYOUT   = X_LAYOUT
                I_TABNAME   = 'XDATA'
                IT_EVENTS   = GT_XEVENTS
                I_TEXT      = TEXT-0B1
           TABLES
                T_OUTTAB    = XDATA.
      IF HIERSEQU = SPACE.
      y_layout-no_zebra = 'X'.
        Y_LAYOUT-BOX_FIELDNAME = 'BOX'.
        Y_LAYOUT-BOX_TABNAME   = 'YDATA'.
        Y_LAYOUT-INFO_FIELDNAME = 'LISTINFO'.
        CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_APPEND'
             EXPORTING
                  IT_FIELDCAT = YFIELD
                  IS_LAYOUT   = Y_LAYOUT
                  I_TABNAME   = 'YDATA'
                  IT_EVENTS   = GT_YEVENTS
                  I_TEXT      = TEXT-0B2
             TABLES
                  T_OUTTAB    = YDATA.
      ELSE.
        H_LAYOUT-BOX_FIELDNAME = 'BOX'.
        H_LAYOUT-BOX_TABNAME   = BOX_TABL.
        H_LAYOUT-INFO_FIELDNAME = 'LISTINFO'.
        GS_KEYINFO-HEADER01 = 'CARRID'.
        GS_KEYINFO-ITEM01 = 'CARRID'.
        GS_KEYINFO-ITEM02 = 'CONNID'.
        CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_HS_APPEND'
             EXPORTING
                  IS_LAYOUT        = H_LAYOUT
                  IT_FIELDCAT      = HFIELD
                  IS_KEYINFO       = GS_KEYINFO
                  I_HEADER_TABNAME = 'HDATA'
                  I_ITEM_TABNAME   = 'IDATA'
                  IT_EVENTS        = GT_HEVENTS
                  I_TEXT           = TEXT-0B2
             TABLES
                  T_OUTTAB_HEADER  = HDATA
                  T_OUTTAB_ITEM    = IDATA.
      ENDIF.
      CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_APPEND'
           EXPORTING
                IT_FIELDCAT = ZFIELD
                IS_LAYOUT   = Z_LAYOUT
                I_TABNAME   = 'ZDATA'
                IT_EVENTS   = GT_ZEVENTS
                I_TEXT      = TEXT-0B3
           TABLES
                T_OUTTAB    = ZDATA.
      CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_APPEND'
           EXPORTING
                IT_FIELDCAT = LFIELD
                IS_LAYOUT   = L_LAYOUT
                I_TABNAME   = 'LDATA'
                IT_EVENTS   = GT_LEVENTS
                I_TEXT      = TEXT-0B4
           TABLES
                T_OUTTAB    = LDATA.
      GT_PRINT-RESERVE_LINES = 2.
      CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_DISPLAY'
           EXPORTING
                IS_PRINT = GT_PRINT.
    *&      Form  SELECTION
    FORM F_SELECTION.
      DATA: L_TABIX  LIKE SY-TABIX,
            LT_SBOOK LIKE SBOOK OCCURS 1 WITH HEADER LINE,
            L_TABIX2 LIKE SY-TABIX.
      SELECT * FROM SCARR
               INTO CORRESPONDING FIELDS OF
               TABLE XDATA WHERE CARRID IN CARRID.
      IF SY-SUBRC <> 0.
        MESSAGE E000 WITH 'No records in SCARR table'(001).
      ENDIF.
      IF NOT XDATA[] IS INITIAL.
        SELECT * FROM SPFLI
                 INTO TABLE GT_SPFLI
                 FOR ALL ENTRIES IN XDATA
                 WHERE CARRID = XDATA-CARRID.
        IF SY-SUBRC <> 0.
          MESSAGE S000 WITH 'No records in SPFLI table'(002).
        ENDIF.
      ENDIF.
    LOOP AT GT_SPFLI.
       YDATA-NUMC = SY-TABIX DIV 5.
       MOVE-CORRESPONDING GT_SPFLI TO YDATA.
       APPEND YDATA.
    ENDLOOP.
      LOOP AT XDATA.
        XDATA-NUMC = SY-TABIX DIV 4.
        L_TABIX = SY-TABIX.
        REFRESH GT_COLOR.
        CLEAR   GT_COLOR.
        IF L_TABIX  > 5.
          XDATA-AMPEL = '1'.
        ELSEIF XDATA-CURRCODE = 'USD'.
          XDATA-AMPEL = '2'.
        ELSE.
          XDATA-AMPEL = '3'.
        ENDIF.
        IF XDATA-CURRCODE = 'LIT'.
          GT_COLOR-FIELDNAME = 'CURRCODE'.
          GT_COLOR-COLOR-COL = 6.
          GT_COLOR-COLOR-INT = 0.
          APPEND GT_COLOR.
          XDATA-SYMBOLS = SYM_PLUS_CIRCLE.
        ELSEIF XDATA-CURRCODE = 'DEM'.
          GT_COLOR-COLOR-COL = 5.
          GT_COLOR-COLOR-INT = 0.
          APPEND GT_COLOR.
          XDATA-SYMBOLS = SYM_FILLED_SQUARE.
        ELSE.
          GT_COLOR-FIELDNAME = 'CURRCODE'.
          GT_COLOR-COLOR-COL = 7.
          GT_COLOR-COLOR-INT = 1.
          GT_COLOR-COLOR-INV = 1.
          APPEND GT_COLOR.
          XDATA-SYMBOLS = SYM_FILLED_DIAMOND.
        ENDIF.
        MODIFY XDATA.
      ENDLOOP.
      HDATA[] = XDATA[].
      LDATA[] = XDATA[].
      IDATA[] = YDATA[].
      SELECT * FROM SBOOK
               UP TO 50 ROWS.
        L_TABIX   = L_TABIX + 1.
        L_TABIX2  = L_TABIX2 + 1.
        MOVE-CORRESPONDING SBOOK TO ZDATA.
        IF L_TABIX > 20.
          ZDATA-CARRID = 'LH'.
          ZDATA-CONNID = '47'.
        ENDIF.
        IF L_TABIX > 14 AND L_TABIX <= 20 OR
           L_TABIX > 25.
          ZDATA-FLDATE = ZDATA-FLDATE + 1.
        ENDIF.
        IF L_TABIX2 > 7 AND L_TABIX <= 20.
          ZDATA-CONNID = 49.
        ELSEIF L_TABIX >= 26.
          ZDATA-CONNID = 51.
        ENDIF.
        IF L_TABIX2 >= 14 AND L_TABIX <= 20 .
          CLEAR L_TABIX2.
        ENDIF.
        APPEND ZDATA.
      ENDSELECT.
      LOOP AT ZDATA.
        L_TABIX = SY-TABIX.
        IF L_TABIX = 1.
          ZDATA-LOCCURAM = 520.
        ENDIF.
        REFRESH GT_COLOR.
        CLEAR   GT_COLOR.
        IF ZDATA-LOCCURAM < 500.
          ZDATA-AMPEL = '1'.
        ELSEIF ZDATA-LOCCURAM < 530.
          ZDATA-AMPEL = '2'.
        ELSE.
          ZDATA-AMPEL = '3'.
        ENDIF.
        IF ZDATA-LOCCURAM > 600.
          GT_COLOR-FIELDNAME = 'LOCCURAM'.
          GT_COLOR-COLOR-COL = 6.
          GT_COLOR-COLOR-INT = 0.
          APPEND GT_COLOR.
          ZDATA-SYMBOLS = SYM_PLUS_CIRCLE.
        ELSEIF ZDATA-LOCCURAM > 500.
          GT_COLOR-COLOR-COL = 5.
          GT_COLOR-COLOR-INT = 0.
          APPEND GT_COLOR.
          ZDATA-SYMBOLS = SYM_FILLED_SQUARE.
        ELSE.
          GT_COLOR-FIELDNAME = 'LOCCURAM'.
          GT_COLOR-COLOR-COL = 7.
          GT_COLOR-COLOR-INT = 1.
          GT_COLOR-COLOR-INV = 1.
          APPEND GT_COLOR.
          ZDATA-SYMBOLS = SYM_FILLED_DIAMOND.
        ENDIF.
        IF ZDATA-LUGGWEIGHT = 0.
          ZDATA-ICONS = ICON_INCOMPLETE.
          GT_COLOR-FIELDNAME = 'LUGGWEIGHT'.
          GT_COLOR-COLOR-COL = 4.
          GT_COLOR-COLOR-INT = 1.
          GT_COLOR-COLOR-INV = 1.
          APPEND GT_COLOR.
        ELSEIF ZDATA-LUGGWEIGHT < 45.
          ZDATA-ICONS = ICON_CHECKED.
          GT_COLOR-FIELDNAME = 'LUGGWEIGHT'.
          GT_COLOR-COLOR-COL = 6.
          GT_COLOR-COLOR-INT = 1.
          GT_COLOR-COLOR-INV = 1.
          APPEND GT_COLOR.
        ELSE.
          ZDATA-ICONS = ICON_FAILURE.
          GT_COLOR-FIELDNAME = 'LUGGWEIGHT'.
          GT_COLOR-COLOR-COL = 5.
          GT_COLOR-COLOR-INT = 1.
          GT_COLOR-COLOR-INV = 1.
          APPEND GT_COLOR.
        ENDIF.
        ZDATA-NUMC = ( L_TABIX DIV 10 ) * 10.
        ZDATA-COLINFO = GT_COLOR[].
        IF NOT ZDATA-LUGGWEIGHT IS INITIAL.
          MOVE '??' TO ZDATA-WUNIT.
        ENDIF.
        MODIFY ZDATA.
      ENDLOOP.
      IF MAX_DATA = 'X'.
        DO 100 TIMES.
          APPEND XDATA.
          APPEND YDATA.
          APPEND ZDATA.
        ENDDO.
      ENDIF.
    ENDFORM.                               " SELECTION
          FORM XEVENTS                                                  *
    FORM XEVENTS.
      CLEAR XS_EVENT.
      XS_EVENT-NAME = SLIS_EV_END_OF_PAGE.
      XS_EVENT-FORM = 'XEND_OF_PAGE'.
      APPEND XS_EVENT TO GT_XEVENTS.
      CLEAR XS_EVENT.
      XS_EVENT-NAME = SLIS_EV_TOP_OF_PAGE.
      XS_EVENT-FORM = 'XTOP_OF_PAGE'.
      APPEND XS_EVENT TO GT_XEVENTS.
      CLEAR XS_EVENT.
      XS_EVENT-NAME = SLIS_EV_TOP_OF_LIST.
      XS_EVENT-FORM = 'XTOP_OF_LIST'.
      APPEND XS_EVENT TO GT_XEVENTS.
      CLEAR XS_EVENT.
      XS_EVENT-NAME = SLIS_EV_END_OF_LIST.
      XS_EVENT-FORM = 'XEND_OF_LIST'.
      APPEND XS_EVENT TO GT_XEVENTS.
      CLEAR XS_EVENT.
    ENDFORM.
          FORM FIELDS                                                   *
    FORM FIELDS.
      DATA: L_COUNT TYPE I.
      CLEAR AFIELD.
      L_COUNT = L_COUNT + 1.
      AFIELD-COL_POS = L_COUNT.
      AFIELD-FIELDNAME = 'CARRID'.
      AFIELD-REF_TABNAME = 'SCARR'.
      AFIELD-KEY = 'X'.                    "define field as key
      APPEND AFIELD TO XFIELD.
      AFIELD-TABNAME = 'HDATA'.
      APPEND AFIELD TO HFIELD.
      AFIELD-TABNAME = 'LDATA'.
      APPEND AFIELD TO LFIELD.
      CLEAR AFIELD.
      L_COUNT = L_COUNT + 1.
      AFIELD-COL_POS = L_COUNT.
      AFIELD-FIELDNAME = 'CARRNAME'.
      AFIELD-REF_TABNAME = 'SCARR'.
      APPEND AFIELD TO XFIELD.
      AFIELD-TABNAME = 'HDATA'.
      APPEND AFIELD TO HFIELD.
      AFIELD-TABNAME = 'LDATA'.
      APPEND AFIELD TO LFIELD.
      CLEAR AFIELD.
      L_COUNT = L_COUNT + 1.
    AFIELD-TABNAME = 'XDATA'.
      AFIELD-COL_POS = L_COUNT.
      AFIELD-FIELDNAME = 'CURRCODE'.
      AFIELD-REF_TABNAME = 'SCARR'.
    AFIELD-INPUT    = INPUT.
      APPEND AFIELD TO XFIELD.
      AFIELD-TABNAME = 'HDATA'.
      APPEND AFIELD TO HFIELD.
      AFIELD-TABNAME = 'LDATA'.
      APPEND AFIELD TO LFIELD.
      CLEAR AFIELD.
      L_COUNT = L_COUNT + 1.
    AFIELD-TABNAME = 'XDATA'.
      AFIELD-COL_POS = L_COUNT.
      AFIELD-FIELDNAME = 'NUMC'.
      AFIELD-DATATYPE  = 'NUMC'.
      AFIELD-REPTEXT_DDIC = TEXT-001.
    AFIELD-INPUT    = INPUT.
      AFIELD-DO_SUM = 'X'.
      APPEND AFIELD TO XFIELD.
      AFIELD-TABNAME = 'HDATA'.
      APPEND AFIELD TO HFIELD.
      AFIELD-TABNAME = 'LDATA'.
      APPEND AFIELD TO LFIELD.
      CLEAR AFIELD.
      L_COUNT = 0.
      L_COUNT = L_COUNT + 1.
      AFIELD-COL_POS = L_COUNT.
      AFIELD-TABNAME = SPACE.
      AFIELD-FIELDNAME = 'CARRID'.
      AFIELD-REF_TABNAME = 'SPFLI'.
      AFIELD-KEY = 'X'.                    "define field as key
      APPEND AFIELD TO YFIELD.
      AFIELD-TABNAME = 'IDATA'.
      APPEND AFIELD TO HFIELD.
      CLEAR AFIELD.
      L_COUNT = L_COUNT + 1.
      AFIELD-TABNAME = SPACE.
      AFIELD-COL_POS = L_COUNT.
      AFIELD-FIELDNAME = 'CONNID'.
      AFIELD-REF_TABNAME = 'SPFLI'.
      AFIELD-KEY = 'X'.                    "define field as key
      AFIELD-KEY_SEL = 'X'.
      APPEND AFIELD TO YFIELD.
      AFIELD-TABNAME = 'IDATA'.
      APPEND AFIELD TO HFIELD.
      CLEAR AFIELD.
      L_COUNT = L_COUNT + 1.
      AFIELD-TABNAME = SPACE.
      AFIELD-COL_POS = L_COUNT.
      AFIELD-FIELDNAME = 'CITYFROM'.
      AFIELD-REF_TABNAME = 'SPFLI'.
      APPEND AFIELD TO YFIELD.
      AFIELD-TABNAME = 'IDATA'.
      APPEND AFIELD TO HFIELD.
      CLEAR AFIELD.
      L_COUNT = L_COUNT + 1.
      AFIELD-TABNAME = SPACE.
      AFIELD-COL_POS = L_COUNT.
      AFIELD-FIELDNAME = 'AIRPFROM'.
      AFIELD-REF_TABNAME = 'SPFLI'.
      APPEND AFIELD TO YFIELD.
      AFIELD-TABNAME = 'IDATA'.
      APPEND AFIELD TO HFIELD.
      CLEAR AFIELD.
      L_COUNT = L_COUNT + 1.
      AFIELD-TABNAME = SPACE.
      AFIELD-COL_POS = L_COUNT.
      AFIELD-FIELDNAME = 'CITYTO'.
      AFIELD-REF_TABNAME = 'SPFLI'.
      APPEND AFIELD TO YFIELD.
      AFIELD-TABNAME = 'IDATA'.
      APPEND AFIELD TO HFIELD.
      CLEAR AFIELD.
      L_COUNT = L_COUNT + 1.
      AFIELD-TABNAME = SPACE.
      AFIELD-COL_POS = L_COUNT.
      AFIELD-FIELDNAME = 'AIRPTO'.
      AFIELD-REF_TABNAME = 'SPFLI'.
      APPEND AFIELD TO YFIELD.
      AFIELD-TABNAME = 'IDATA'.
      APPEND AFIELD TO HFIELD.
      CLEAR AFIELD.
      L_COUNT = L_COUNT + 1.
      AFIELD-TABNAME = SPACE.
      AFIELD-COL_POS = L_COUNT.
      AFIELD-FIELDNAME = 'DEPTIME'.
      AFIELD-REF_TABNAME = 'SPFLI'.
      APPEND AFIELD TO YFIELD.
      AFIELD-TABNAME = 'IDATA'.
      APPEND AFIELD TO HFIELD.
      CLEAR AFIELD.
      L_COUNT = L_COUNT + 1.
      AFIELD-TABNAME = SPACE.
      AFIELD-COL_POS = L_COUNT.
      AFIELD-FIELDNAME = 'ARRTIME'.
      AFIELD-REF_TABNAME = 'SPFLI'.
      APPEND AFIELD TO YFIELD.
      AFIELD-TABNAME = 'IDATA'.
      APPEND AFIELD TO HFIELD.
      CLEAR AFIELD.
      L_COUNT = L_COUNT + 1.
      AFIELD-TABNAME = SPACE.
      AFIELD-COL_POS = L_COUNT.
      AFIELD-FIELDNAME = 'FLTIME'.
      AFIELD-REF_TABNAME = 'SPFLI'.
      AFIELD-NO_OUT = 'X'.
      APPEND AFIELD TO YFIELD.
      AFIELD-TABNAME = 'IDATA'.
      APPEND AFIELD TO HFIELD.
      CLEAR AFIELD.
      L_COUNT = L_COUNT + 1.
      AFIELD-TABNAME = SPACE.
      AFIELD-COL_POS = L_COUNT.
      AFIELD-FIELDNAME = 'FLTYPE'.
      AFIELD-REF_TABNAME = 'SPFLI'.
      AFIELD-NO_OUT = 'X'.
      APPEND AFIELD TO YFIELD.
      AFIELD-TABNAME = 'IDATA'.
      APPEND AFIELD TO HFIELD.
    Ikonen
      L_COUNT = L_COUNT + 1.
      CLEAR AFIELD.
      AFIELD-COL_POS = L_COUNT.
      AFIELD-TABNAME = SPACE.
      AFIELD-FIELDNAME = 'ICONS'.
      AFIELD-REF_TABNAME = '    '.
      AFIELD-SP_GROUP = 'B'.
      AFIELD-REPTEXT_DDIC = 'Gpk?'(045).
      AFIELD-NO_OUT = 'X'.
      AFIELD-ICON = 'X'.
      AFIELD-DATATYPE = 'CHAR'.
      AFIELD-OUTPUTLEN  = '4'.
      APPEND AFIELD TO YFIELD.
      AFIELD-TABNAME = 'IDATA'.
      APPEND AFIELD TO HFIELD.
    Symbole
      L_COUNT = L_COUNT + 1.
      CLEAR AFIELD.
      L_COUNT = L_COUNT + 1.
      AFIELD-TABNAME = SPACE.
      AFIELD-FIELDNAME = 'SYMBOLS'.
      AFIELD-REF_TABNAME = '    '.
      AFIELD-COL_POS = L_COUNT.
      AFIELD-REPTEXT_DDIC = 'Prs?'(040).
      AFIELD-SP_GROUP = 'B'.
      AFIELD-NO_OUT = 'X'.
      AFIELD-SYMBOL = 'X'.
      AFIELD-DATATYPE = 'CHAR'.
      AFIELD-OUTPUTLEN  = '4'.
      AFIELD-JUST  = 'C'.
      APPEND AFIELD TO YFIELD.
      AFIELD-TABNAME = 'IDATA'.
      APPEND AFIELD TO HFIELD.
    Gepäckgewicht
      L_COUNT = L_COUNT + 1.
      CLEAR AFIELD.
      L_COUNT = L_COUNT + 1.
      AFIELD-TABNAME = SPACE.
      AFIELD-SP_GROUP = 'A'.
      AFIELD-NO_OUT   = SPACE.
      AFIELD-FIELDNAME = 'DISTANCE'.
      AFIELD-REF_TABNAME = 'SPFLI'.
      AFIELD-COL_POS = L_COUNT.
      AFIELD-NO_SIGN = 'X'.
      AFIELD-QFIELDNAME = 'DISTID'.
      AFIELD-OUTPUTLEN  = '10'.
      APPEND AFIELD TO YFIELD.
      AFIELD-TABNAME = 'IDATA'.
      APPEND AFIELD TO HFIELD.
    Mengeneinheit
      L_COUNT = L_COUNT + 1.
      CLEAR AFIELD.
      L_COUNT = L_COUNT + 1.
      AFIELD-TABNAME = SPACE.
      AFIELD-SP_GROUP = 'A'.
      AFIELD-NO_OUT   = SPACE.
      AFIELD-FIELDNAME = 'DISTID'.
      AFIELD-REF_TABNAME = 'SPFLI'.
      AFIELD-COL_POS = L_COUNT.
      AFIELD-OUTPUTLEN  = '4'.
      APPEND AFIELD TO YFIELD.
      AFIELD-TABNAME = 'IDATA'.
      APPEND AFIELD TO HFIELD.
    Numc
      L_COUNT = L_COUNT + 1.
      CLEAR AFIELD.
      AFIELD-COL_POS = L_COUNT.
      AFIELD-TABNAME = SPACE.
      AFIELD-FIELDNAME = 'NUMC'.
      AFIELD-COL_POS = L_COUNT.
      AFIELD-DO_SUM = 'X'.
      AFIELD-SP_GROUP = 'S'.
      AFIELD-SELTEXT_S = 'NUMC'.
      AFIELD-SELTEXT_M = 'NUMC_U'.
      AFIELD-SELTEXT_L = 'NUMC_USER'(041).
      AFIELD-DATATYPE = 'NUMC'.
      AFIELD-OUTPUTLEN  = '10'.
      AFIELD-NO_OUT = SPACE.
      APPEND AFIELD TO YFIELD.
      AFIELD-TABNAME = 'IDATA'.
      APPEND AFIELD TO HFIELD.
    Blubber
      L_COUNT = L_COUNT + 1.
      CLEAR AFIELD.
      AFIELD-COL_POS = L_COUNT.
      AFIELD-TABNAME = SPACE.
      AFIELD-FIELDNAME = 'BLUBBER'.
      AFIELD-REF_TABNAME = 'LTDXT'.
      AFIELD-REF_FIELDNAME = 'TEXT'.
      AFIELD-COL_POS = L_COUNT.
      AFIELD-HOTSPOT = 'X'.
      AFIELD-SP_GROUP = 'S'.
      AFIELD-REPTEXT_DDIC = 'Kommentar'(043).
      AFIELD-DATATYPE = 'CHAR'.
      AFIELD-OUTPUTLEN  = '20'.
      AFIELD-NO_OUT = 'X'.
      APPEND AFIELD TO YFIELD.
      AFIELD-TABNAME = 'IDATA'.
      APPEND AFIELD TO HFIELD.
    Key
      L_COUNT = 0.
      CLEAR AFIELD.
      AFIELD-FIELDNAME = 'CARRID'.
      AFIELD-OUTPUTLEN  = '3'.
      AFIELD-KEY = 'X'.
      AFIELD-REF_TABNAME = 'SBOOK'.
      AFIELD-COL_POS = L_COUNT.
    AFIELD-OFFSET  = '4'.
      APPEND AFIELD TO ZFIELD.
      L_COUNT = L_COUNT + 1.
      CLEAR AFIELD.
      AFIELD-FIELDNAME = 'FLDATE'.
      AFIELD-KEY = 'X'.
      AFIELD-KEY_SEL = 'X'.
      AFIELD-REF_TABNAME = 'SBOOK'.
      AFIELD-COL_POS = L_COUNT.
      APPEND AFIELD TO ZFIELD.
      L_COUNT = L_COUNT + 1.
      CLEAR AFIELD.
      AFIELD-FIELDNAME = 'CONNID'.
      AFIELD-KEY = 'X'.
      AFIELD-KEY_SEL = 'X'.
      AFIELD-REF_TABNAME = 'SBOOK'.
      AFIELD-COL_POS = L_COUNT.
      APPEND AFIELD TO ZFIELD.
      L_COUNT = L_COUNT + 1.
      CLEAR AFIELD.
      AFIELD-FIELDNAME = 'BOOKID'.
      AFIELD-KEY_SEL = 'X'.
      AFIELD-KEY = 'X'.
      AFIELD-REF_TABNAME = 'SBOOK'.
      AFIELD-COL_POS = L_COUNT.
      APPEND AFIELD TO ZFIELD.
    Ikonen
      L_COUNT = L_COUNT + 1.
      CLEAR AFIELD.
      AFIELD-FIELDNAME = 'ICONS'.
      AFIELD-REF_TABNAME = '    '.
      AFIELD-SP_GROUP = 'B'.
      AFIELD-COL_POS = L_COUNT.
      AFIELD-REPTEXT_DDIC = 'Gpk?'(045).
      AFIELD-NO_OUT = 'X'.
      AFIELD-ICON = 'X'.
      AFIELD-DATATYPE = 'CHAR'.
      AFIELD-OUTPUTLEN  = '4'.
      APPEND AFIELD TO ZFIELD.
    Buchungsdatum
      L_COUNT = L_COUNT + 1.
      CLEAR AFIELD.
      AFIELD-FIELDNAME = 'ORDER_DATE'.
      AFIELD-REF_TABNAME = 'SBOOK'.
      AFIELD-COL_POS = L_COUNT.
      AFIELD-SP_GROUP = 'S'.
      APPEND AFIELD TO ZFIELD.
    Kundentyp
      L_COUNT = L_COUNT + 1.
      CLEAR AFIELD.
      AFIELD-FIELDNAME = 'CUSTTYPE'.
      AFIELD-REF_TABNAME = 'SBOOK'.
      AFIELD-COL_POS = L_COUNT.
      AFIELD-SP_GROUP = 'S'.
      APPEND AFIELD TO ZFIELD.
    Kundennummer
      L_COUNT = L_COUNT + 1.
      CLEAR AFIELD.
      AFIELD-FIELDNAME = 'CUSTOMID'.
      AFIELD-REF_TABNAME = 'SBOOK'.
      AFIELD-COL_POS = L_COUNT.
      AFIELD-SP_GROUP = 'S'.
      AFIELD-OUTPUTLEN  = '3'.
      APPEND AFIELD TO ZFIELD.
    Raucher
      L_COUNT = L_COUNT + 1.
      CLEAR AFIELD.
      AFIELD-FIELDNAME = 'SMOKER'.
      AFIELD-REF_TABNAME = 'SBOOK'.
      AFIELD-COL_POS = L_COUNT.
      AFIELD-SP_GROUP = 'S'.
      APPEND AFIELD TO ZFIELD.
    Flugklasse
      L_COUNT = L_COUNT + 1.
      CLEAR AFIELD.
      AFIELD-FIELDNAME = 'CLASS'.
      AFIELD-REF_TABNAME = 'SBOOK'.
      AFIELD-COL_POS = L_COUNT.
      AFIELD-SP_GROUP = 'S'.
      APPEND AFIELD TO ZFIELD.
    Rechnungsstellung ja/nein
      L_COUNT = L_COUNT + 1.
      CLEAR AFIELD.
      AFIELD-FIELDNAME = 'INVOICE'.
      AFIELD-REF_TABNAME = 'SBOOK'.
      AFIELD-COL_POS = L_COUNT.
      AFIELD-SP_GROUP = 'S'.
      AFIELD-NO_OUT   = 'X'.
      APPEND AFIELD TO ZFIELD.
    Symbole
      L_COUNT = L_COUNT + 1.
      CLEAR AFIELD.
      AFIELD-FIELDNAME = 'SYMBOLS'.
      AFIELD-REF_TABNAME = '    '.
      AFIELD-COL_POS = L_COUNT.
      AFIELD-REPTEXT_DDIC = 'Prs?'(040).
      AFIELD-SP_GROUP = 'B'.
      AFIELD-NO_OUT = 'X'.
      AFIELD-SYMBOL = 'X'.
      AFIELD-DATATYPE = 'CHAR'.
      AFIELD-OUTPUTLEN  = '4'.
      AFIELD-JUST  = 'C'.
      APPEND AFIELD TO ZFIELD.
    Betrag
      L_COUNT = L_COUNT + 1.
      CLEAR AFIELD.
      AFIELD-FIELDNAME = 'LOCCURAM'.
      AFIELD-REF_TABNAME = 'SBOOK'.
      AFIELD-SP_GROUP = 'H'.
      AFIELD-COL_POS = L_COUNT.
      AFIELD-CFIELDNAME = 'LOCCURKEY'.
      AFIELD-DATATYPE = 'CURR'.
      AFIELD-DO_SUM   = 'X'.
      AFIELD-OUTPUTLEN  = '10'.
      APPEND AFIELD TO ZFIELD.
    Währung
      L_COUNT = L_COUNT + 1.
      CLEAR AFIELD.
      AFIELD-FIELDNAME = 'LOCCURKEY'.
      AFIELD-TECH = ' '.
      AFIELD-REF_TABNAME = 'SBOOK'.
      AFIELD-COL_POS = L_COUNT.
      AFIELD-OUTPUTLEN  = '4'.
      AFIELD-SP_GROUP = 'H'.
      APPEND AFIELD TO ZFIELD.
    BetragFW
      L_COUNT = L_COUNT + 1.
      CLEAR AFIELD.
      AFIELD-FIELDNAME = 'FORCURAM'.
      AFIELD-REF_TABNAME = 'SBOOK'.
      AFIELD-SP_GROUP = 'F'.
      AFIELD-COL_POS = L_COUNT.
      AFIELD-NO_OUT = 'X'.
      AFIELD-DO_SUM = 'X'.
      AFIELD-CFIELDNAME = 'FORCURKEY'.
      AFIELD-DATATYPE = 'CURR'.
      AFIELD-OUTPUTLEN  = '10'.
      APPEND AFIELD TO ZFIELD.
    Währung
      L_COUNT = L_COUNT + 1.
      CLEAR AFIELD.
      AFIELD-FIELDNAME = 'FORCURKEY'.
      AFIELD-SP_GROUP = 'F'.
      AFIELD-TECH = ' '.
      AFIELD-REF_TABNAME = 'SBOOK'.
      AFIELD-COL_POS = L_COUNT.
      AFIELD-NO_OUT = 'X'.
      AFIELD-OUTPUTLEN  = '4'.
      APPEND AFIELD TO ZFIELD.
    Gepäckgewicht
      L_COUNT = L_COUNT + 1.
      CLEAR AFIELD.
      AFIELD-SP_GROUP = 'A'.
      AFIELD-NO_OUT   = 'X'.
      AFIELD-FIELDNAME = 'LUGGWEIGHT'.
      AFIELD-REF_TABNAME = 'SBOOK'.
      AFIELD-COL_POS = L_COUNT.
      AFIELD-NO_SIGN = 'X'.
      AFIELD-QFIELDNAME = 'WUNIT'.
      AFIELD-OUTPUTLEN  = '10'.
      APPEND AFIELD TO ZFIELD.
    Mengeneinheit
      L_COUNT = L_COUNT + 1.
      CLEAR AFIELD.
      AFIELD-SP_GROUP = 'A'.
      AFIELD-NO_OUT   = 'X'.
      AFIELD-FIELDNAME = 'WUNIT'.
      AFIELD-REF_TABNAME = 'SBOOK'.
      AFIELD-COL_POS = L_COUNT.
      AFIELD-OUTPUTLEN  = '4'.
      APPEND AFIELD TO ZFIELD.
    Numc
      L_COUNT = L_COUNT + 1.
      CLEAR AFIELD.
      AFIELD-FIELDNAME = 'NUMC'.
      AFIELD-COL_POS = L_COUNT.
      AFIELD-SP_GROUP = 'S'.
      AFIELD-SELTEXT_S = 'NUMC'.
      AFIELD-SELTEXT_M = 'NUMC_U'.
      AFIELD-SELTEXT_L = 'NUMC_USER'(041).
      AFIELD-DATATYPE = 'NUMC'.
      AFIELD-OUTPUTLEN  = '10'.
      AFIELD-NO_OUT     = 'X'.
      APPEND AFIELD TO ZFIELD.
    Blubber
      L_COUNT = L_COUNT + 1.
      CLEAR AFIELD.
      AFIELD-FIELDNAME = 'BLUBBER'.
      AFIELD-REF_TABNAME = 'LTDXT'.
      AFIELD-REF_FIELDNAME = 'TEXT'.
      AFIELD-COL_POS = L_COUNT.
      AFIELD-HOTSPOT = 'X'.
      AFIELD-SP_GROUP = 'S'.
      AFIELD-REPTEXT_DDIC = 'Kommentar'(043).
      AFIELD-DATATYPE = 'CHAR'.
      AFIELD-OUTPUTLEN  = '20'.
      AFIELD-NO_OUT = 'X'.
      APPEND AFIELD TO ZFIELD.
    ENDFORM.                               " FIELDS
          FORM YEVENTS                                                  *
    FORM YEVENTS.
      CLEAR XS_EVENT.
      XS_EVENT-NAME = SLIS_EV_END_OF_PAGE.
      XS_EVENT-FORM = 'YEND_OF_PAGE'.
      APPEND XS_EVENT TO GT_YEVENTS.
      CLEAR XS_EVENT.
      XS_EVENT-NAME = SLIS_EV_TOP_OF_PAGE.
      XS_EVENT-FORM = 'YTOP_OF_PAGE'.
      APPEND XS_EVENT TO GT_YEVENTS.
      CLEAR XS_EVENT.
      XS_EVENT-NAME = SLIS_EV_TOP_OF_LIST.
      XS_EVENT-FORM = 'YTOP_OF_LIST'.
      APPEND XS_EVENT TO GT_YEVENTS.
      CLEAR XS_EVENT.
      XS_EVENT-NAME = SLIS_EV_END_OF_LIST.
      XS_EVENT-FORM = 'YEND_OF_LIST'.
      APPEND XS_EVENT TO GT_YEVENTS.
    ENDFORM.
          FORM HEVENTS                                                  *
    FORM HEVENTS.
      CLEAR XS_EVENT.
      XS_EVENT-NAME = SLIS_EV_TOP_OF_PAGE.
      XS_EVENT-FORM = 'HTOP_OF_PAGE'.
      APPEND XS_EVENT TO GT_HEVENTS.
      CLEAR XS_EVENT.
      XS_EVENT-NAME = SLIS_EV_TOP_OF_LIST.
      XS_EVENT-FORM = 'HTOP_OF_LIST'.
      APPEND XS_EVENT TO GT_HEVENTS.
      CLEAR XS_EVENT.
      XS_EVENT-NAME = SLIS_EV_END_OF_LIST.
      XS_EVENT-FORM = 'HEND_OF_LIST'.
      APPEND XS_EVENT TO GT_HEVENTS.
    ENDFORM.
    FORM ZBEFORE_LINE_OUTPUT USING LINEINFO TYPE SLIS_LINEINFO.
      WRITE AT /20 'HalloZ'.
    ENDFORM.
          FORM XBEFORE_LINE_OUTPUT                                      *
    FORM XBEFORE_LINE_OUTPUT USING LINEINFO TYPE SLIS_LINEINFO.
      WRITE AT /20 'HalloX'.
    ENDFORM.
          FORM XTOP_OF_PAGE                                             *
    FORM XTOP_OF_PAGE.
      WRITE: / 'X_TOP_OF_PAGE'.
    ENDFORM.
          FORM XTOP_OF_LIST                                             *
    FORM XTOP_OF_LIST.
      WRITE: / 'X_TOP_OF_LIST'.
    ENDFORM.
          FORM XEND_OF_PAGE                                             *
    FORM XEND_OF_PAGE.
      WRITE: / 'X_END_OF_PAGE'.
    ENDFORM.
          FORM XEND_OF_LIST                                             *
    FORM XEND_OF_LIST.
      WRITE: / 'X_END_OF_LIST'.
    ENDFORM.
    FORM YTOP_OF_PAGE.
      WRITE: / 'Y_TOP_OF_PAGE'.
    ENDFORM.
          FORM YTOP_OF_LIST                                             *
    FORM YTOP_OF_LIST.
      WRITE: / 'Y_TOP_OF_LIST'.
    ENDFORM.
          FORM YEND_OF_PAGE                                             *
    FORM YEND_OF_PAGE.
      WRITE: / 'Y_END_OF_PAGE'.
    ENDFORM.
          FORM YEND_OF_LIST                                             *
    FORM YEND_OF_LIST.
      WRITE: / 'Y_END_OF_LIST'.
    ENDFORM.
          FORM YTOP_OF_LIST                                             *
    FORM HTOP_OF_LIST.
      WRITE: / 'h_TOP_OF_LIST'.
    ENDFORM.
          FORM YEND_OF_PAGE                                             *
    FORM HEND_OF_PAGE.
      WRITE: / 'h_END_OF_PAGE'.
    ENDFORM.
          FORM YEND_OF_LIST                                             *
    FORM HEND_OF_LIST.
      WRITE: / 'h_END_OF_LIST'.
    ENDFORM.
    FORM USER_COMMAND USING R_UCOMM LIKE SY-UCOMM
                            RS_SELFIELD TYPE SLIS_SELFIELD.
      CASE R_UCOMM.
        WHEN 'REFR'.
          LOOP AT XDATA.
            IF XDATA-BOX = 'X'.
              XDATA-LISTINFO = 'C50'.
            ELSE.
              XDATA-LISTINFO = SPACE.
            ENDIF.
            MODIFY XDATA.
          ENDLOOP.
          LOOP AT YDATA.
            IF YDATA-BOX = 'X'.
              YDATA-LISTINFO = 'C50'.
            ELSE.
              YDATA-LISTINFO = SPACE.
            ENDIF.
            MODIFY YDATA.
          ENDLOOP.
          LOOP AT IDATA.
            IF IDATA-BOX = 'X'.
              IDATA-LISTINFO = 'C50'.
            ELSE.
              IDATA-LISTINFO = SPACE.
            ENDIF.
            MODIFY IDATA.
          ENDLOOP.
          RS_SELFIELD-REFRESH = 'X'.
        WHEN OTHERS.
      ENDCASE.
    ENDFORM.
          FORM PF_STATUS_SET                                            *
    FORM PF_STATUS_SET USING EXTAB TYPE SLIS_T_EXTAB.
      SET PF-STATUS 'STANDARD'. " EXCLUDING EXTAB.
    ENDFORM..

  • How To Run a Parameterized Report Stored in Crystal Enterprise on demand

    I have been integrating into Crystal Enterprise 10 for  many years now with no problem.  We use .net to schedule and run reports as well some administration tasks.  Users can view reports through our asp.net web application using the crystal viewers.
    However, I now have a task that requires us to run a report that is stored in CE on demand.  This can NOT be done through the viewer because it will not have direct user interaction.  The crystal report has to be bundled with other documents and then displayed to the user in a single PDF.  I have everything working right now if the report has already been scheduled and ran through CE.
    What I can't figure out to do is how to actually run the report in CE on demand and immediately get the results back.  I can't schedule it (even for immediate running) because I can't have it backed up in the job server queue.  If the report was local on the machine that Integerate with CE, I think it is as simple as loading document, setting parameters, and calling refresh.  However, I need this to happen in CE with the RAS or PageServer server.  In other words, the execution of the report needs to occur on server and I need the end results.
    I have scoured the Net looking for an example but everything either talks about scheduling through Job server or on demand through the viewer.
    Hopefully someone can help.

    Thanks for the answer Elaine, but I am still not quite there.
    We already had interactive on-demand report viewing working through our web app.
    The problem is that I need non-interactive on-deman report running.  Let me explain the process a little more to help paint the picture of the process we have.
    1.  While working in our application, the user selects an "information dump" on the selected the employee.  This dump is information from a number of different places and document types.
    2.  The application then goes to each of these different information areas and converts the information to PDF format.
    3.  Application stitches all the individual PDF files into a single PDF which is what is returned to the user via the web application.  The delivery mechanism cannot change due to requirement limitations.
    Currently, the information is coming from multiple MS Word mailmerge documents merged "on-the-fly" with data for the employee and a stored HTML worksheet that is also converted to PDF.
    We now have to add a PDF version of 2 reports that are ran when the user requests the information dump. 
    I already have the code to connect to CE and get a reference to the RASReportFactory.  We do this today using the interactive viewer.  However, we use the viewer to display reports that have already been scheduled and ran.  This means we simply make a call to RASReportFactory.OpenReportSource to get the source for the viewer.
    We now can't have a viewer in this process.  I found the call to the method OpenDocument on RASReportFactory to get a handle to a ReportClientDocument.
    I know how to properly set the values for the report arguments as well as the database information.
    What I don't see is a method to tell it to run the report.  I see Save and SaveAs but this simply saves the document by to CE or to a local file with the changes I made to parms and db info. 
    What do I call to tell it to execute the report so I can turn around and export it to PDF?  Thats the million dollar question.
    Edited by: Stephen Barrett on Aug 20, 2008 12:11 AM

  • List of OOTB Reports for SQL Server and Windows Server

    Hi,
    I am struggling to find a list of OTB reports from Operations Manager for SQL and Windows. Ideally I need the name of the reports and a list of counters that they report on.
    Can anybody give me an idea where I can find this?
    Thanks,
    Pete
    Peter Carter http://sqlserverdownanddirty.blogspot.com/

    Hi Pete,
    I don't believe that there are any Windows or SQL Server specific reports out of the box from SCOM. 
    However, when you import the Windows (either Server or Client, unsure which you are referring to) and/or the SQL Server Management Packs, within the documentation it will tell you the reports that will also be imported and thus available. 

  • How to list wage types using certain indirect modules?

    Gurus,
    How to list all the modules using certain indiect module (and which variant)?
    For example, I want to list all the wage type using PRZNT module with or with out one of its variant.
    Thanks,

    Arun,
    Do I need to know ABAP for this?
    Can you point some URL or step-bystep (high level) instrruction on how to get this?
    Thanks,

Maybe you are looking for