How to print the dialog screen result

Experts,
Iam using dynpro and as a result a graph is printed on the screen container. This is my final screen and I want to take a print of that container with graph. so I have activated the print button in the functional keys by selecting the normal application function type.
my screen output is graph as i said.
My program code is like below
PROGRAM  Z_GRP_PRT.
TYPE-POOLS: GFW.
DATA PARAMS LIKE PRI_PARAMS.
DATA: OK_CODE TYPE SY-UCOMM,SAVE_OK LIKE  OK_CODE,
      VALUES TYPE TABLE OF GPRVAL WITH HEADER LINE,
      COLUMN_TEXTS TYPE TABLE OF GPRTXT WITH HEADER LINE.
DATA: DAYS(1)  TYPE N VALUE 2,
      COUNT(3) TYPE N VALUE 1,
      VALID    TYPE C.
MODULE STATUS_1000 OUTPUT
MODULE STATUS_1000 OUTPUT.
  SET PF-STATUS 'YUSR1'.
  REFRESH VALUES.
  REFRESH COLUMN_TEXTS.
  VALUES-ROWTXT = 'Prod1 '.
  VALUES-VAL1 = 1.
  VALUES-VAL2 = 5.
  VALUES-VAL3 = 6.
  VALUES-VAL4 = 7.
  APPEND VALUES.
  VALUES-ROWTXT = 'Prod2 '.
  VALUES-VAL1 = 0.
  VALUES-VAL2 = 5.
  VALUES-VAL3 = 2.
  VALUES-VAL4 = 5.
  APPEND VALUES.
  COLUMN_TEXTS-COLTXT = 'time1'.
  APPEND COLUMN_TEXTS.
  COLUMN_TEXTS-COLTXT = 'time2'.
  APPEND COLUMN_TEXTS.
  COLUMN_TEXTS-COLTXT = 'time3'.
  APPEND COLUMN_TEXTS.
  COLUMN_TEXTS-COLTXT = 'time4'.
  APPEND COLUMN_TEXTS.
  CALL FUNCTION 'GFW_PRES_SHOW'
    EXPORTING
      CONTAINER         = 'CONTAINER'
      PRESENTATION_TYPE = GFW_PRESTYPE_LINES
    TABLES
      VALUES            = VALUES
      COLUMN_TEXTS      = COLUMN_TEXTS
    EXCEPTIONS
      ERROR_OCCURRED    = 1
      OTHERS            = 2.
  IF SY-SUBRC <> 0.
    LEAVE PROGRAM.
  ENDIF.
ENDMODULE.                 " STATUS_1000  OUTPUT
MODULE USER_COMMAND_1000 INPUT
MODULE USER_COMMAND_1000 INPUT.
  OK_CODE = SY-UCOMM.
  SAVE_OK = OK_CODE.
  CASE SAVE_OK.
    WHEN 'EXIT' OR 'BACK'.
      LEAVE PROGRAM.
    WHEN 'PRINT'.
      CALL FUNCTION 'GET_PRINT_PARAMETERS'
        EXPORTING
          DESTINATION      = 'LOCA'
          COPIES               = COUNT
          LIST_NAME         = 'TEST'
          LIST_TEXT           = 'Test NEW-PAGE PRINT ON'
         IMMEDIATELY    = 'X'
          RELEASE            = 'X'
          NEW_LIST_ID       = 'X'
          EXPIRATION         = DAYS
          LINE_SIZE            = 79
          LINE_COUNT        = 23
          LAYOUT               = 'X_PAPER'
          SAP_COVER_PAGE = 'X'
          RECEIVER            = 'SAP*'
          DEPARTMENT      = 'System'
          NO_DIALOG          = ' '
        IMPORTING
          OUT_PARAMETERS = PARAMS
          VALID          = VALID.
      IF VALID = 'X'.
        NEW-PAGE PRINT ON PARAMETERS PARAMS NO DIALOG.
        WRITE / 'First line'.
      ENDIF.
NOTE : Following code is tried and not printing anything so commented **********
   WHEN 'PRINT'.
     data : lv_program type sy-repid,
            lv_dynnr   type sy-dynnr.
            lv_program =  sy-repid.
            lv_dynnr   = sy-dynnr.
     CALL FUNCTION 'RS_SCRP_PRINT_IN_LIST'
         EXPORTING
           dynnr = lv_dynnr
           Progname = lv_program
           fullscr = 'X'
           EXCEPTIONS
             cancelled = 1
             not_found = 0.
  ENDCASE.
ENDMODULE.                 " USER_COMMAND_1000  INPUT
Now, Iam getting a print out like
SAP logo printed with stars and with all the parameters I have passed to the function module
Iam not getting the graph as my output. I have tried another code calling 'RS_SCRP_PRINT_IN_LIST'. It is not even giving me any reply. The screen just blinks one time when I press the print button on the screen when I use the commented code function module.
I just want to print a graph in the screen container. Should I have to convert the screen graph as a list ?
Then how to do it. Post the complete code of any possible help. Please help me with this and keep my thanks in advance.I don't want to use hard copy.

please  go through the link   here it was  give the step  .. first you have to create the short cut of the  sap desktop  ......  
<a href="http://">http://www.sapdevelopment.co.uk/tips/debug/debug_popup.htm</a>
reward  points  if  it is  usefull ...
Girish

Similar Messages

  • How to print the selection screen variant as a report header

    I want to print the variant selected on the selection screen as a report header in the report painter.....Kindly help....The variant selected prior to generating the report painter output must be displayed on the final output screen as the header on the screen...

    Hi
    Here you've to use 'Z_HEADER_FOOTER' function module at TOP-OF-PAGE
    Just pass parameters for report_name                 as repid
                                              show_select_options  as 'Y'
                                              show_parameters       as 'Y'
                                              line_size                       as you wish
                                              action                           as 'X'
    Hope this fulfills your requirement
    Thanks
    Suren

  • How to print the output of the screen in Dialog Programming

    Hi,
    Could anybody help how to print the output of a screen in the dialog programming. i can select 'Hard Copy' option in the 'Custumizing of Local Layout' Icon in the standard tool bar. but that prints the whole screen with the toolbar. i want to print only the output which is displayed on the screen. Please help..
    Regards,
    Swathi

    Hi Swathi,
        Ok. Do One thing. Go to menu bar and select Systems -> Own pool Request -> here you get the spool number. Select it and select the option "Print Directly" in tool bar.
    Thanks.

  • How to print the Module pool screen using a push button in the screen

    Hi Every one,
                         i have developed a module program , which have a selection screen and it display the output in a structured way.
    output includes boxes, texts etc...
    my problem is :---
    How to print the Module pool screen using a push button in the screen.

    When the "Print" button is pressed:
    leave to list-processing and return to screen 100.  "(current screen)
    Call a transaction that runs your print program.
    Rob

  • How to print the itab,and the result number is changeable ?

    in the abode ,how to print the itab,or how to print the data that its result number is
    changeable ,in the nw04s1 it provide such example ,thanks for you !

    Hi Yolanda,
    I need to do the same in my form. Would you mind let me know if you found any solution. Appreciate if you can share some code.
    Thanks in advance,
    SekharN

  • How to print the script in condensed mode

    Hi to all,
    Pls help me.
    How to print the script in condensed mode and particular window only print in the condensed mode.

    Hi,
    Hi
    It will remove the blank spaces in front of the variable
    and if you use the extension NO-GAPS
    It will remove all the blank spaces in the variable field.
    DATA: ws_val1 type char12.
    ws_val1 = ' 100 123'.
    Condense ws_val1.
    Write / ws_val1.
    Condense ws_val1 no-gaps.
    write / ws_val1.
    It will give output as
    100 123
    100123
    The CONDENSE statement deletes redundant spaces from a string:
    CONDENSE c NO-GAPS.
    This statement removes any leading blanks in the field c and replaces other sequences of blanks by exactly one blank. The result is a left-justified sequence of words, each separated by one blank. If the addition NO-GAPS is specified, all blanks are removed.
    Please check this link for sample code.
    http://help.sap.com/saphelp_nw2004s/helpdata/en/fc/eb33e6358411d1829f0000e829fbfe/content.htm
    Regards,
    Raj.

  • How to print the picture in PDF ?

    I developed a plug-in(Annot) that dynamically display a picture according some condition in PDF,but the picture cannot be printed. How to print the picture ?

    In the print dialog, make sure that Print: Comments (which means
    annotations) is on.
    Aandi Inston

  • HOW TO PRINT THE MATTER IN FOR ALL ENTRIES

    HI HOW T  PRINT THE FOR ALL ENTRIES MATTER

    Hi Naresh,
    You can only use FOR ALL ENTRIES IN ...WHERE ...in a SELECT statement.
    SELECT ... FOR ALL ENTRIES IN itab WHERE cond returns the union of the solution sets of all SELECT statements that would result if you wrote a separate statement for each line of the internal table replacing the symbol itab-f with the corresponding value of component f in the WHERE condition.Duplicates are discarded from the result set. If the internal table itab does not contain any entries, the system treats the statement as though there were no WHERE cond condition, and selects all records (in the current client).
    For example:
    SELECT * FROM sflight INTO wa_sflight 
    FOR ALL ENTRIES IN ftab 
    WHERE CARRID = ftab-carrid AND 
                 CONNID = ftab-connid AND 
                     fldate = '20010228'. 
    This condition, return all entries of the sflight.
    When using FOR ALL ENTRIES the number of matching records is restricted to the number of records in the internal table. If the number of records in the database tables is too large then join would cause overheads in performance. Additionally a JOIN bypasses the table buffering.
    Thanks,
    Reward If Helpful.

  • How to print the list shown in the finder

    I work as a photographer. For my clients I burn the pictures on DVD / CD.
    Some of my clients want a indexprint from the folder on the disk.
    How can print the list wich is shown in the finder? A screenshot doesn't work because there are often more items in the folder than the screen shows.
    A friend told me this isn't possible in OS X. In OS9 this function was available, but removed in OS X.... ?
    Regards
    Walter
    G5 Dual   Mac OS X (10.4.8)   also Intel Imac

    Hi Walter,
    To make a list, choose all (COMMAND + a) in the window than "copy" and "paste" to TextEdit or MS Word, or directly into email.
    Also, If you drag a folder or entire volume onto the Print Setup Utility it will print it's contents.
    -mj
    [email protected]

  • How to print the grade of sal?.

    how to print grade based on sal. think my table is having ename,sal columns.
    how to print the grade?. where i have to write the code?. pls give some tips
    i want to print like
    grade      ename sal
    1 abc0     5000
    2     abc1     4000
    2     abc2     4000
    3     abc3     3500
    4     abc4     3000

    Hi,
    Definitely an interesting Q.
    Here is what you can do:
    1. Create a Placeholder column "last_sal" at the report level (outside any groups)
    2. Create another Placeholder column "grade" at the group level (inside the group where you have salary).
    3. Create a formula column inside the group. Write the following formula:
    function CF_1Formula return Number is
    begin
    if :last_sal is null then
         :last_sal := :salary;
         :grade := 1;
    end if;
    if :last_sal > :salary then
         :grade := :grade + 1;
         :last_sal := :salary;
    end if;
    return 1;
    end;
    Print grade in your report layout. This should give you the desired result.
    Navneet.

  • How to print the error records and success records in bdc

    how to print the number of error records and success records in bdc

    hai,
    plz refer this program,
    Z_130399130271_A
    REPORT Z_130399130271_A
           NO STANDARD PAGE HEADING LINE-SIZE 325.
    *INCLUDE YVALIDATE.
    *include bdcrecx1.
    INCLUDE YINCLUDE399.
    DATA ITAB LIKE TABLE OF FILE_TABLE WITH HEADER LINE.
    PARAMETERS: DATASET(132) LOWER CASE.
    DATA : RC TYPE I,
    ERR(40) TYPE C,
    SUCCESSCNT TYPE I VALUE 0,
    FAILCOUNT TYPE I VALUE 0.
       DO NOT CHANGE - the generated data section - DO NOT CHANGE    ***
      If it is nessesary to change the data section use the rules:
      1.) Each definition of a field exists of two lines
      2.) The first line shows exactly the comment
          '* data element: ' followed with the data element
          which describes the field.
          If you don't have a data element use the
          comment without a data element name
      3.) The second line shows the fieldname of the
          structure, the fieldname must consist of
          a fieldname and optional the character '_' and
          three numbers and the field length in brackets
      4.) Each field must be type C.
    Generated data section with specific formatting - DO NOT CHANGE  ***
    DATA: BEGIN OF RECORD OCCURS 0,
    data element: LIF16
            LIFNR_001(016),
    data element: KTOKK
            KTOKK_002(004),
    data element: ANRED
            ANRED_003(015),
    data element: NAME1_GP
            NAME1_004(035),
    data element: SORTL
            SORTL_005(010),
    data element: STRAS_GP
            STRAS_006(035),
    data element: PFACH
            PFACH_007(010),
    data element: ORT01_GP
            ORT01_008(035),
    data element: ORT02_GP
            ORT02_009(035),
    data element: LAND1_GP
            LAND1_010(003),
    data element: REGIO
            REGIO_011(003),
    data element: SPRAS
            SPRAS_012(002),
    data element: TELF1
            TELF1_013(016),
    data element: TELF2
            TELF2_014(016),
    data element: BANKS
            BANKS_01_015(003),
    data element: BANKK
            BANKL_01_016(015),
    data element: BANKN
            BANKN_01_017(018),
          END OF RECORD.
    DATA:   BEGIN OF ERRORITAB OCCURS 0,
            LIFNR_001 LIKE LFA1-LIFNR,
            KTOKK_002 LIKE LFA1-KTOKK,
            ANRED_003 LIKE LFA1-ANRED,
            NAME1_004 LIKE LFA1-NAME1,
            SORTL_005 LIKE LFA1-SORTL,
            STRAS_006 LIKE LFA1-STRAS,
            PFACH_007 LIKE LFA1-PFACH,
            ORT01_008 LIKE LFA1-ORT01,
            ORT02_009 LIKE LFA1-ORT02,
            LAND1_010 LIKE LFA1-LAND1,
            REGIO_011 LIKE LFA1-REGIO,
            SPRAS_012 LIKE LFA1-SPRAS,
            TELF1_013 LIKE LFA1-TELF1,
            TELF2_014 LIKE LFA1-TELF2,
            BANKS_01_015 LIKE LFBK-BANKS,
            BANKL_01_016 LIKE LFBK-BANKL,
            BANKN_01_017 LIKE LFBK-BANKN,
            ERRORMSG(60) TYPE C,
            SERIAL TYPE I VALUE '1',
        END OF ERRORITAB.
    End generated data section ***
    AT SELECTION-SCREEN ON VALUE-REQUEST FOR DATASET.
      CALL FUNCTION 'TMP_GUI_FILE_OPEN_DIALOG'
    EXPORTING
        WINDOW_TITLE            = 'select a file '
        DEFAULT_EXTENSION       = 'TXT'
        DEFAULT_FILENAME        = 'ASSIGN5.TXT'
      FILE_FILTER             =
      INIT_DIRECTORY          =
      MULTISELECTION          =
    IMPORTING
      RC                      =
        TABLES
          FILE_TABLE              = ITAB
    EXCEPTIONS
       CNTL_ERROR              = 1
       OTHERS                  = 2
      IF SY-SUBRC <> 0.
        MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
                WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
      ENDIF.
      READ TABLE ITAB INDEX 1.
      DATASET = ITAB-FILENAME.
      WRITE DATASET.
    START-OF-SELECTION.
    *perform open_dataset using dataset.
    *perform open_group.
      DATA T TYPE STRING.
      T = DATASET.
      IF T EQ ' '.
        MESSAGE E110(ZX).
      ENDIF.
      CALL FUNCTION 'GUI_UPLOAD'
        EXPORTING
          FILENAME                      = T
      FILETYPE                      = 'ASC'
          HAS_FIELD_SEPARATOR           = 'X'
      HEADER_LENGTH                 = 0
      READ_BY_LINE                  = 'X'
      DAT_MODE                      = ' '
      CODEPAGE                      = ' '
      IGNORE_CERR                   = ABAP_TRUE
      REPLACEMENT                   = '#'
      CHECK_BOM                     = ' '
    IMPORTING
      FILELENGTH                    =
      HEADER                        =
        TABLES
          DATA_TAB                      = RECORD
    EXCEPTIONS
      FILE_OPEN_ERROR               = 1
      FILE_READ_ERROR               = 2
      NO_BATCH                      = 3
      GUI_REFUSE_FILETRANSFER       = 4
      INVALID_TYPE                  = 5
      NO_AUTHORITY                  = 6
      UNKNOWN_ERROR                 = 7
      BAD_DATA_FORMAT               = 8
      HEADER_NOT_ALLOWED            = 9
      SEPARATOR_NOT_ALLOWED         = 10
      HEADER_TOO_LONG               = 11
      UNKNOWN_DP_ERROR              = 12
      ACCESS_DENIED                 = 13
      DP_OUT_OF_MEMORY              = 14
      DISK_FULL                     = 15
      DP_TIMEOUT                    = 16
      OTHERS                        = 17
      IF SY-SUBRC <> 0.
        MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
               WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
      ENDIF.
      LOOP AT RECORD.
        CLEAR RC.
        CLEAR ERR.
    *read dataset dataset into record.
        IF SY-SUBRC <> 0. EXIT. ENDIF.
        RECORD-KTOKK_002 = '0001'.
        PERFORM BDC_DYNPRO      USING 'SAPMF02K' '0100'.
        PERFORM BDC_FIELD       USING 'BDC_CURSOR'
                                      'RF02K-KTOKK'.
        PERFORM BDC_FIELD       USING 'BDC_OKCODE'
                                      '/00'.
        PERFORM BDC_FIELD       USING 'RF02K-LIFNR'
                                      RECORD-LIFNR_001.
        PERFORM BDC_FIELD       USING 'RF02K-KTOKK'
                                      RECORD-KTOKK_002.
        PERFORM BDC_DYNPRO      USING 'SAPMF02K' '0110'.
        PERFORM BDC_FIELD       USING 'BDC_CURSOR'
                                      'LFA1-TELX1'.
        PERFORM BDC_FIELD       USING 'BDC_OKCODE'
                                      '/00'.
        PERFORM BDC_FIELD       USING 'LFA1-ANRED'
                                      RECORD-ANRED_003.
        PERFORM BDC_FIELD       USING 'LFA1-NAME1'
                                      RECORD-NAME1_004.
        PERFORM BDC_FIELD       USING 'LFA1-SORTL'
                                      RECORD-SORTL_005.
        PERFORM BDC_FIELD       USING 'LFA1-STRAS'
                                      RECORD-STRAS_006.
        PERFORM BDC_FIELD       USING 'LFA1-PFACH'
                                      RECORD-PFACH_007.
        PERFORM BDC_FIELD       USING 'LFA1-ORT01'
                                      RECORD-ORT01_008.
        PERFORM BDC_FIELD       USING 'LFA1-ORT02'
                                      RECORD-ORT02_009.
        PERFORM BDC_FIELD       USING 'LFA1-LAND1'
                                      RECORD-LAND1_010.
        PERFORM BDC_FIELD       USING 'LFA1-REGIO'
                                      RECORD-REGIO_011.
        PERFORM BDC_FIELD       USING 'LFA1-SPRAS'
                                      RECORD-SPRAS_012.
        PERFORM BDC_FIELD       USING 'LFA1-TELF1'
                                      RECORD-TELF1_013.
        PERFORM BDC_FIELD       USING 'LFA1-TELF2'
                                      RECORD-TELF2_014.
        PERFORM BDC_DYNPRO      USING 'SAPMF02K' '0120'.
        PERFORM BDC_FIELD       USING 'BDC_CURSOR'
                                      'LFA1-KUNNR'.
        PERFORM BDC_FIELD       USING 'BDC_OKCODE'
                                      '=VW'.
        PERFORM BDC_DYNPRO      USING 'SAPMF02K' '0130'.
        PERFORM BDC_FIELD       USING 'BDC_CURSOR'
                                      'LFBK-BANKN(01)'.
        PERFORM BDC_FIELD       USING 'BDC_OKCODE'
                                      '=ENTR'.
        PERFORM BDC_FIELD       USING 'LFBK-BANKS(01)'
                                      RECORD-BANKS_01_015.
        PERFORM BDC_FIELD       USING 'LFBK-BANKL(01)'
                                      RECORD-BANKL_01_016.
        PERFORM BDC_FIELD       USING 'LFBK-BANKN(01)'
                                      RECORD-BANKN_01_017.
        PERFORM BDC_DYNPRO      USING 'SAPMF02K' '0130'.
        PERFORM BDC_FIELD       USING 'BDC_CURSOR'
                                      'LFBK-BANKS(01)'.
        PERFORM BDC_FIELD       USING 'BDC_OKCODE'
                                      '=UPDA'.
        PERFORM BDC_TRANSACTION USING 'XK01' CHANGING ERR RC.
        DATA: SERIAL TYPE I VALUE 1.
        IF RC <> 0.
          FAILCOUNT = FAILCOUNT + 1.
          CLEAR ERRORITAB.
          ERRORITAB-SERIAL = SERIAL.
          ERRORITAB-LIFNR_001 = RECORD-LIFNR_001.
          ERRORITAB-KTOKK_002 = RECORD-KTOKK_002.
          ERRORITAB-ANRED_003 = RECORD-ANRED_003.
          ERRORITAB-NAME1_004 = RECORD-NAME1_004.
          ERRORITAB-SORTL_005 = RECORD-SORTL_005.
          ERRORITAB-STRAS_006 = RECORD-STRAS_006.
          ERRORITAB-PFACH_007 = RECORD-PFACH_007.
          ERRORITAB-ORT01_008 = RECORD-ORT01_008.
          ERRORITAB-ORT02_009 = RECORD-ORT02_009.
          ERRORITAB-LAND1_010 = RECORD-LAND1_010.
          ERRORITAB-REGIO_011 = RECORD-REGIO_011.
          ERRORITAB-SPRAS_012 = RECORD-SPRAS_012.
          ERRORITAB-TELF1_013 = RECORD-TELF1_013.
          ERRORITAB-TELF2_014 = RECORD-TELF2_014.
          ERRORITAB-BANKS_01_015 = RECORD-BANKS_01_015.
          ERRORITAB-BANKL_01_016 = RECORD-BANKL_01_016.
          ERRORITAB-BANKN_01_017 = RECORD-BANKN_01_017.
          ERRORITAB-ERRORMSG = ERR.
          SERIAL = SERIAL + 1.
          APPEND ERRORITAB.
          MODIFY RECORD TRANSPORTING KTOKK_002.
          DELETE RECORD WHERE KTOKK_002 = '0001'.
        ELSE.
          SUCCESSCNT = SUCCESSCNT + 1.
        ENDIF.
      ENDLOOP.
    display output********************************************************
      SKIP.
      FORMAT COLOR 5 INTENSIFIED OFF.
      WRITE:/ 'No. of records successfully uploaded: '.
      FORMAT COLOR 4 INTENSIFIED OFF.
      WRITE: SUCCESSCNT.
    Displaying the success table******************************************
      IF SUCCESSCNT <> 0.
        SKIP.
        FORMAT COLOR 4 INTENSIFIED OFF.
        WRITE:/ 'Successful Records'.
        FORMAT COLOR 7 INTENSIFIED ON.
        WRITE:/(261) SY-ULINE,
              / SY-VLINE,
                'S.NO',                               007 SY-VLINE,
                'VENDOR ACC.NUM',                     023 SY-VLINE,
                'VENDOR ACC GROUP',                   041 SY-VLINE,
                'TITLE',                              048 SY-VLINE,
                'VENDOR NAME',                        064 SY-VLINE,
                'SORT FIELD',                         076 SY-VLINE,
                'HOUSE NO.& STREET',                  101 SY-VLINE,
                'PO.BOX NO',                          116 SY-VLINE,
                'CITY',                               129 SY-VLINE,
                'DISTRICT',                           141 SY-VLINE,
                'COUNTRY KEY',                        156 SY-VLINE,
                'REGION',                             166 SY-VLINE,
                'LANGUAGE KEY',                       180 SY-VLINE,
                'TELEPHONE NO 1',                     196 SY-VLINE,
                'TELEPHONE NO 2',                     213 SY-VLINE,
                'BANK COUNTRY KEY',                   231 SY-VLINE,
                'BANK KEY',                           241 SY-VLINE,
                'BANK ACC.NO',                        261 SY-VLINE,
                /1(261) SY-ULINE.
        FORMAT COLOR 4 INTENSIFIED ON.
        SERIAL = 1.
       SORT RECORD BY LIFNR_001.
        LOOP AT RECORD.
          WRITE:/ SY-VLINE,
          SERIAL LEFT-JUSTIFIED,          007 SY-VLINE,
          RECORD-LIFNR_001(016),          023 SY-VLINE,
          RECORD-KTOKK_002(004),          041 SY-VLINE,
          RECORD-ANRED_003(015),          048 SY-VLINE,
          RECORD-NAME1_004(035),          064 SY-VLINE,
          RECORD-SORTL_005(010),          076 SY-VLINE,
          RECORD-STRAS_006(035),          101 SY-VLINE,
          RECORD-PFACH_007(010),          116 SY-VLINE,
          RECORD-ORT01_008(035),          129 SY-VLINE,
          RECORD-ORT02_009(035),          141 SY-VLINE,
          RECORD-LAND1_010(003),          156 SY-VLINE,
          RECORD-REGIO_011(003),          166 SY-VLINE,
          RECORD-SPRAS_012(002),          180 SY-VLINE,
          RECORD-TELF1_013(016),          196 SY-VLINE,
          RECORD-TELF2_014(016),          213 SY-VLINE,
          RECORD-BANKS_01_015(003),       231 SY-VLINE,
          RECORD-BANKL_01_016(015),       241 SY-VLINE,
          RECORD-BANKN_01_017(018),       261 SY-VLINE.
          WRITE:/(261) SY-ULINE.
          SERIAL = SERIAL + 1.
        ENDLOOP.
        WRITE:/1(261) SY-ULINE.
      ENDIF.
      SKIP.
      FORMAT COLOR 5 INTENSIFIED OFF.
      WRITE:/ 'No. of records not uploaded: '.
      FORMAT COLOR 4 INTENSIFIED OFF.
      WRITE: FAILCOUNT.
    *Displaying the error table
      IF FAILCOUNT <> 0.
        SKIP.
        FORMAT COLOR 4 INTENSIFIED OFF.
        WRITE:/(320) SY-ULINE,
                'Error Records'.
        FORMAT COLOR 7 INTENSIFIED ON.
        WRITE:/ SY-ULINE, SY-VLINE,
                'S.NO',                               007 SY-VLINE,
                'VENDOR ACC.NUM',                     023 SY-VLINE,
                'VENDOR ACC GROUP',                   041 SY-VLINE,
                'TITLE',                              048 SY-VLINE,
                'VENDOR NAME',                        064 SY-VLINE,
                'SORT FIELD',                         076 SY-VLINE,
                'HOUSE NO.& STREET',                  101 SY-VLINE,
                'PO.BOX NO',                          116 SY-VLINE,
                'CITY',                               129 SY-VLINE,
                'DISTRICT',                           141 SY-VLINE,
                'COUNTRY KEY',                        156 SY-VLINE,
                'REGION',                             166 SY-VLINE,
                'LANGUAGE KEY',                       180 SY-VLINE,
                'TELEPHONE NO 1',                     196 SY-VLINE,
                'TELEPHONE NO 2',                     213 SY-VLINE,
                'BANK COUNTRY KEY',                   231 SY-VLINE,
                'BANK KEY',                           241 SY-VLINE,
                'BANK ACC.NO',                        261 SY-VLINE,
                'ERROR MESSAGE',                      320 SY-VLINE.
        WRITE:/(320) SY-ULINE.
        FORMAT COLOR 4 INTENSIFIED ON.
       SORT ERRORITAB BY LIFNR_001.
        LOOP AT ERRORITAB.
          WRITE:/ SY-VLINE,
                ERRORITAB-SERIAL LEFT-JUSTIFIED,          007 SY-VLINE,
                ERRORITAB-LIFNR_001 ,       023 SY-VLINE,
                ERRORITAB-KTOKK_002,       041 SY-VLINE,
                ERRORITAB-ANRED_003,       048 SY-VLINE,
                ERRORITAB-NAME1_004,       064 SY-VLINE,
                ERRORITAB-SORTL_005,       076 SY-VLINE,
                ERRORITAB-STRAS_006,       101 SY-VLINE,
                ERRORITAB-PFACH_007,       116 SY-VLINE,
                ERRORITAB-ORT01_008,       129 SY-VLINE,
                ERRORITAB-ORT02_009,       141 SY-VLINE,
                ERRORITAB-LAND1_010,       156 SY-VLINE,
                ERRORITAB-REGIO_011,       166 SY-VLINE,
                ERRORITAB-SPRAS_012,       180 SY-VLINE,
                ERRORITAB-TELF1_013,       196 SY-VLINE,
                ERRORITAB-TELF2_014,       213 SY-VLINE,
                ERRORITAB-BANKS_01_015,    231 SY-VLINE,
                ERRORITAB-BANKL_01_016,    241 SY-VLINE,
                ERRORITAB-BANKN_01_017,    261 SY-VLINE,
                ERRORITAB-ERRORMSG,        320 SY-VLINE.
          WRITE:/(320) SY-ULINE.
        ENDLOOP.
        WRITE:/ SY-ULINE.
      ENDIF.
    hope this ll help you..
    regards,
    prema.A

  • How to print the picture ?

    I developed a plug-in(Annot) that dynamically display a picture according some condition,but the picture cannot be printed. How to print the picture ?

    In the print dialog, make sure that Print: Comments (which means
    annotations) is on.
    Aandi Inston

  • How to print the rows vertically

    Hi
    how to print the results vertically, like this
    SELECT eno, ename, deptid FROM emp_asign
    WHERE ROWNUM<3
    ENO     104
    ENAME     Bruce Ernst
    DEPTID     60
    ENO     106
    ENAME     Maximus
    DEPTID     60

    well, let's start from the inside and work our way out, shall we?
    the "WITH" clause is just to alias a subquery that he used as an example. I'll assume you know that, and just put it inside the main query (and I'll use all the columns)
    select rpad(t.column_value.getrootelement(),20) || ': ' || t.column_value.extract('//text()') out
    from table(xmlsequence(xmltype(cursor(select * from emp where rownum<4)).extract('ROWSET/ROW/*'))) t
    SQL> select cursor(select * from emp where rownum<4) from dual;
    CURSOR(SELECT*FROMEM
    CURSOR STATEMENT : 1
    CURSOR STATEMENT : 1
         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
    3 rows selected.
    1 row selected.
    SQL> select xmltype(cursor(select * from emp where rownum<4)) from dual;
    XMLTYPE(CURSOR(SELECT*FROMEMPWHEREROWNUM<4))
    <?xml version="1.0"?>
    <ROWSET>
    <ROW>
      <EMPNO>7369</EMPNO>
      <ENAME>SMITH</ENAME>
      <JOB>CLERK</JOB>
      <MGR>7902</MGR>
      <HIREDATE>17-DEC-80</HIREDATE>
      <SAL>800</SAL>
      <DEPTNO>20</DEPTNO>
    </ROW>
    <ROW>
      <EMPNO>7499</EMPNO>
      <ENAME>ALLEN</ENAME>
      <JOB>SALESMAN</JOB>
      <MGR>7698</MGR>
      <HIREDATE>20-FEB-81</HIREDATE>
      <SAL>1600</SAL>
      <COMM>300</COMM>
      <DEPTNO>30</DEPTNO>
    </ROW>
    <ROW>
      <EMPNO>7521</EMPNO>
      <ENAME>WARD</ENAME>
      <JOB>SALESMAN</JOB>
      <MGR>7698</MGR>
      <HIREDATE>22-FEB-81</HIREDATE>
      <SAL>1250</SAL>
      <COMM>500</COMM>
      <DEPTNO>30</DEPTNO>
    </ROW>
    </ROWSET>
    1 row selected.
    SQL> select xmltype(cursor(select * from emp where rownum<4)).extract('ROWSET/ROW/*') from dual;
    XMLTYPE(CURSOR(SELECT*FROMEMPWHEREROWNUM<4)).EXTRACT('ROWSET/ROW/*')
    <EMPNO>7369</EMPNO>
    <ENAME>SMITH</ENAME>
    <JOB>CLERK</JOB>
    <MGR>7902</MGR>
    <HIREDATE>17-DEC-80</HIREDATE>
    <SAL>800</SAL>
    <DEPTNO>20</DEPTNO>
    <EMPNO>7499</EMPNO>
    <ENAME>ALLEN</ENAME>
    <JOB>SALESMAN</JOB>
    <MGR>7698</MGR>
    <HIREDATE>20-FEB-81</HIREDATE>
    <SAL>1600</SAL>
    <COMM>300</COMM>
    <DEPTNO>30</DEPTNO>
    <EMPNO>7521</EMPNO>
    <ENAME>WARD</ENAME>
    <JOB>SALESMAN</JOB>
    <MGR>7698</MGR>
    <HIREDATE>22-FEB-81</HIREDATE>
    <SAL>1250</SAL>
    <COMM>500</COMM>
    <DEPTNO>30</DEPTNO>
    1 row selected.
    SQL> select xmlsequence(xmltype(cursor(select * from emp where rownum<4)).extract('ROWSET/ROW/*')) from dual;
    XMLSEQUENCE(XMLTYPE(CURSOR(SELECT*FROMEMPWHEREROWNUM<4)).EXTRACT('ROWSET/ROW/*'))
    XMLSEQUENCETYPE(XMLTYPE(<EMPNO>7369</EMPNO>
    ), XMLTYPE(<ENAME>SMITH</ENAME>
    ), XMLTYPE(<JOB>CLERK</JOB>
    ), XMLTYPE(<MGR>7902</MGR>
    ), XMLTYPE(<HIREDATE>17-DEC-80</HIREDATE>
    ), XMLTYPE(<SAL>800</SAL>
    ), XMLTYPE(<DEPTNO>20</DEPTNO>
    ), XMLTYPE(<EMPNO>7499</EMPNO>
    ), XMLTYPE(<ENAME>ALLEN</ENAME>
    ), XMLTYPE(<JOB>SALESMAN</JOB>
    ), XMLTYPE(<MGR>7698</MGR>
    ), XMLTYPE(<HIREDATE>20-FEB-81</HIREDATE>
    ), XMLTYPE(<SAL>1600</SAL>
    ), XMLTYPE(<COMM>300</COMM>
    ), XMLTYPE(<DEPTNO>30</DEPTNO>
    ), XMLTYPE(<EMPNO>7521</EMPNO>
    ), XMLTYPE(<ENAME>WARD</ENAME>
    ), XMLTYPE(<JOB>SALESMAN</JOB>
    ), XMLTYPE(<MGR>7698</MGR>
    ), XMLTYPE(<HIREDATE>22-FEB-81</HIREDATE>
    ), XMLTYPE(<SAL>1250</SAL>
    ), XMLTYPE(<COMM>500</COMM>
    ), XMLTYPE(<DEPTNO>30</DEPTNO>
    1 row selected.
    now that we know what that looks like, we can put it in the TABLE() and make it the FROM clause
    SQL> select * from table(xmlsequence(xmltype(cursor(select * from emp where rownum<4)).extract('ROWSET/ROW/*')));
    COLUMN_VALUE
    <EMPNO>7369</EMPNO>
    <ENAME>SMITH</ENAME>
    <JOB>CLERK</JOB>
    <MGR>7902</MGR>
    <HIREDATE>17-DEC-80</HIREDATE>
    <SAL>800</SAL>
    <DEPTNO>20</DEPTNO>
    <EMPNO>7499</EMPNO>
    <ENAME>ALLEN</ENAME>
    <JOB>SALESMAN</JOB>
    <MGR>7698</MGR>
    <HIREDATE>20-FEB-81</HIREDATE>
    <SAL>1600</SAL>
    <COMM>300</COMM>
    <DEPTNO>30</DEPTNO>
    <EMPNO>7521</EMPNO>
    <ENAME>WARD</ENAME>
    <JOB>SALESMAN</JOB>
    <MGR>7698</MGR>
    <HIREDATE>22-FEB-81</HIREDATE>
    <SAL>1250</SAL>
    <COMM>500</COMM>
    <DEPTNO>30</DEPTNO>
    23 rows selected.I'm getting bored. I'm sure you can break down the remaining parts of the statement to see what they return, and how it all comes together.

  • How to print the list outout with out getting output?

    How to print the list outout with out getting output?
    My requirement is that when i exicute the program the list output has to print with out getting output list display on the screen.
    if possible cana anyone share the code....
    Phani,

    See this Sample Program.
    DATA: PARAMS LIKE PRI_PARAMS,
          DAYS(1)  TYPE N VALUE 2,
          COUNT(3) TYPE N VALUE 1,
          VALID    TYPE C.
    CALL FUNCTION 'GET_PRINT_PARAMETERS'
      EXPORTING DESTINATION           = 'LT50'
                COPIES                = COUNT
                LIST_NAME             = 'TEST'
                LIST_TEXT             = 'SUBMIT ... TO SAP-SPOOL'
                IMMEDIATELY           = 'X'
                RELEASE               = 'X'
                NEW_LIST_ID           = 'X'
                EXPIRATION            = DAYS
                LINE_SIZE             = 79
                LINE_COUNT            = 23
                LAYOUT                = 'X_PAPER'
                SAP_COVER_PAGE        = 'X'
                COVER_PAGE            = 'X'
                RECEIVER              = 'SAP*'
                DEPARTMENT            = 'System'
                NO_DIALOG             = ' '
      IMPORTING OUT_PARAMETERS        = PARAMS
                VALID                 = VALID.
    IF VALID <> SPACE.
      SUBMIT RSTEST00 TO SAP-SPOOL
        SPOOL PARAMETERS PARAMS
        WITHOUT SPOOL DYNPRO.
    ENDIF.
    Awrd POints If useful
    Bhupal

  • How to print the day of the week

    Hi,
    How to print the day of the week for the particular date
    Regards,
    Ahamad

    Or the JSTL <fmt:formatDate> tag...
    Or, or, or...What about getting an instance of java.util.Calendar, invoking toString(), and then parsing the resultant string to find the day of the week? ;-)

Maybe you are looking for

  • LACK OF SUPPORT CREATIVE

    <span class="long_text">I have a Sound Blaster Audigy 2 card platinun ex and I decide to install the new Windows 7 but to my surprise a poor creative gives 2. for this operating system and although there are alternati'ves I always like to install the

  • Zero Balance title accounts appearing on financial reports

    Hi All Is there anyway of not showing a title account with a zero balance when you run a Trial Balance, P&L or a balance sheet. I know that you can leave the checkbox unticked in the selection criteria, but this only removes the active accounts from

  • Data read from Memory use - ranked list

    Dear Experts, I am trying to read data from memory use -ranked list. In general we use function pool to read the data but in case if we should read the data from a class can we do it. {O:267}-IF_PT_HRS_D_IF~IM_CONTRACT_TES[1]-TES in the above class i

  • Non Tempo-Event Found Warning

    I'm hanging on by a learning curve thread as I score a film. Made to 59 minutes out 77, and ****..now I get this Warning Window saying: "Non Tempo-Event found in Sync Reference." I've tried to look it up in the Logic Reference Manual and here in the

  • WebService Data Source

    Today on the home page of OTN: download the new WebService Data Source. On the download page, it is announced "soon". Yet another time the announcement is too early. But I'm getting used to it that a product is really there a couple of months after t