Spool generation

Hello All,
i am running a normal report in background which is containing write statement.
when i starts a job through SM36 and runs it immediately,
will there be spool generation which will contain all the list output data came through WRITE statement?
if yes i am not getting the same.can anyone help me out. is anything additional required?
Rushikesh

Please check that your sap system is Cnfigured with an Printer properly .
for your better idea run any one standard program in background and see whethere it generate's spool .if not then printer problem .
Reward points if it is usefull
Girish

Similar Messages

Need help on smartform spool generation for payslips

Hi Experts,
My development of Payslip form is done, its all fine.
Here is some clarification I need on the spool generation:
First time I run the program for 2 employees, I get 2 pages one for each employee, as expected.
When I again run the program for 2 employees, 2 pages are added to the same spool request.
My requirement is to create a new spool when the program is executed for the next time. I have tried setting NO_OPEN and NO_CLOSE in control parameters and also I have tried with several output option settings. I have also tried using FMs SSF_OPEN and SSF_CLOSE. But no luck so far.
Please note that this is HR Payslip hence the smartform is being called inside the GET PERNR loop.
Thanks in advance.

Hi,
Here you can find the list of preconditions in order for Spool system to append to existing spool. Setting TDNEWID suggested by Nick will work and is the best solution if you wish to have each document in own spool. If you wish to have spool per job, you'd have to ensure that just the first document is output with TDNEWID set. You can also ensure spool separation by outputing the last document of the job by setting TDFINAL print parameter. Or you can ensure that spools will always be assigned a unique Title...
cheers
Janis

Sending Purchase Order in mail without the spool generation

Dear All,
When i create a Purchase Order using Tcode ME21N, the PO should go by mail to an external email id as a pdf attachment.
A Z sapscript is used . The spool request is not generated.
Could anyone please let me know the method/code to use the script data for creating Purchase Order and send it via email without spool generation.
Waiting for solution.
Thanks & Regards,
Bhavika

Hi,
as i said:
create an printer with devices type PDF1, set host spool access method to M (E-Mail to Receiver/Owner).
Use this printer as output-device.
To create and use a printer with PDF1 try searching in SCN or use SAP OSS.
Regards Dieter

Spool Generation problem in Back ground

Hi,
Can some one let me know what is the problem in spool generation in the following scenario.
I have two reports:
ZF003 and ZF005.
ZF003 contains the ALV grid which actually outputs the list.
If i run this in background the spool is being generated bcoz it makes use of ALV grid.
we had a requirement to code some additional functionality in ZF005 and made use of ZF003 in the program ZF005.
ZF005 displays the ALV output when it is run in fore ground.but it is not generating the spool when run in the background.
Thanks in advance.
Regards,
Babul.

Hi Aarun,
It doesnot handle any upload or download from PC.
Very much Thanks for ur suggestions.
But i have coded in ZF005 using ALV once again to generate the spool in background.

URGENT : SPOOL generation in update task

Hi all,
I was using following code in my program. This program is triggered in the update task.
SUBMIT ZMDTRAIL
           WITH P_BUKRS EQ VBRK-BUKRS
           WITH S_VBELN EQ VBRK-VBELN
          TO SAP-SPOOL SPOOL PARAMETERS PRI_PARAMS
                        ARCHIVE PARAMETERS ARC_PARAMS
                        WITHOUT SPOOL DYNPRO
           AND RETURN.
By addition TO SAP-SPOOL first output statement of zmdtrail creates a new spool request number and all outputs are transfered as print list page by page to SAP spool table.
By addition SPOOL PARAMETERS print parameters are transfered in PRI_PARAMS.
ARCHIVE PARAMETERS transfer archive parameters in structure ARC_PARAMS
Now in ECC 6.0 version submit statement is not allowed in update process. So instead of using submit statement i copied code of ZMDTRAIL . It is working fine. But now i want to work on SPOOL generation part of it.
Kindly suggest me some appropriate additions so that code will work in same way as it was working earlier.

Srinivas:
Try this, might work:
In FBZP go to payment methods per company code,
Select your company code, double click on the payment method that you use.
On the screen "Change view - maintenance of company code data, put a check mark on "Single payment for marked item" which is under Grouping of items.
Vj
Assign points if info helps

Spool generation in Payment Run F110

Hi,
We have a requirement, while running the payment run with 100 vendors a spool is generated with all the remittance advice for all the 100 vendors as page1 and page2 and so on to 100...
The business requirement is, they want to generate one page for one spool for one vendor, is there any way of doing it.
Could you please let me know it is very urgent.
Thanks,
Srini

Srinivas:
Try this, might work:
In FBZP go to payment methods per company code,
Select your company code, double click on the payment method that you use.
On the screen "Change view - maintenance of company code data, put a check mark on "Single payment for marked item" which is under Grouping of items.
Vj
Assign points if info helps

Urgent : Issue with spool generation

Hey folks,
I have written a abap program to generate adobe form in the spool. It works. But i have the same logic inside a function module and it does not work here. Can someone explain why? and what must be done so that i can generate the spool using a function module instead of a report program.
Thanks.

works through a class though. solves my issue. but still i would like to know why does'nt the logic work in a function module?

How to remove spool generation setting for SM37 job.

Hi All,
please help ASAP as this is production issue.
There is a job in SM37 which is running daily and it is creating a spool with nearly 10000 pages.
we dont need this spool as it is now not useful to us.We want to run this job without generating the spool.....
Im stuck here...pls help me...what should I do?
As user are not priting these spool requests so the option "delete after print" is also not working....
so due to huge spool,all jobs are getting delayed..
please help ASAP....

Hi,
Is this related to Business Objects WebIntelligence reporting ontop of BW ?
Perhaps this thread need to be moved to BW warehouse administration?
Regards,
H

Problem in spool generation using SUBMIT statement

Hi Experts,
                  I am facing a problem in getting the spool no using the SUBMIT statemet.I am exporting an internal table with some data and then importing the same in another dummy program to get the ALV list output.This dummy program is called using the SUBMIT TO SAP-SPOOL statement.
The code is as follows:
Moderator message - Please respect the 2,500 character maximum when posting. Post only the relevant portions of code
The trouble is the submit statement is not calling the dummy program in this case.What can be the problem here and how can it be resolved.In my dummy program I am simply using the exported table to convert into list display so as to get a spool no. for it.
   My objective is to get the spool no. for this sothat I can convert this spool to PDF.
Thanks and Regards
Abhishek
Edited by: abhishek singh on Oct 27, 2009 9:26 PM
Edited by: abhishek singh on Oct 27, 2009 9:27 PM
Edited by: abhishek singh on Oct 27, 2009 9:29 PM
Edited by: Rob Burbank on Oct 27, 2009 4:41 PM

Hi Experts ,
                    I am posting the code again:
CALL FUNCTION 'JOB_OPEN'
    EXPORTING
      jobname          = lv_name
    IMPORTING
      jobcount         = lv_number
    EXCEPTIONS
      cant_create_job = 1
      invalid_job_data = 2
      jobname_missing = 3
      OTHERS           = 4.
IF sy-subrc = 0.
    CALL FUNCTION 'GET_PRINT_PARAMETERS'
      EXPORTING
        archive_mode         = gc_spool_print      "For print = '1'
        no_dialog            = abap_true
      IMPORTING
        out_parameters       = lv_print_parameters
        valid                = lv_valid_flag
      EXPORT fui_fin_split TO MEMORY ID 'CUSTOMER'.
      SUBMIT zvrr9333_dummy TO SAP-SPOOL
                            SPOOL PARAMETERS lv_print_parameters
                            WITHOUT SPOOL DYNPRO
                            VIA JOB lv_name NUMBER lv_number
                            AND RETURN.
        CALL FUNCTION 'JOB_CLOSE'
          EXPORTING
            jobcount             = lv_number
            jobname              = lv_name
            strtimmed            = abap_true        "Immediate Start
          MESSAGE 'Spool not created'(e15) TYPE gc_success.
        ENDIF.
SELECT jobname
         jobcount
         stepcount
         listident
FROM tbtcp
INTO TABLE gi_spool
WHERE jobname EQ fuv_name
AND   jobcount EQ fuv_number.
IF sy-subrc EQ 0.
    READ TABLE gi_spool INTO lw_spool INDEX 1.
    fcv_spoolno = lw_spool-listident.
ENDIF.
SELECT jobname
         jobcount
         stepcount
         listident
FROM tbtcp
INTO TABLE gi_spool
WHERE jobname EQ fuv_name
AND   jobcount EQ fuv_number.
IF sy-subrc EQ 0.
    READ TABLE gi_spool INTO lw_spool INDEX 1.
    fcv_spoolno = lw_spool-listident.
ENDIF.

Regarding spool generation

Hi Friends:
kindly see the below program:
*& Report ZSM1                                                        *
REPORT zsm1                                    .
TABLES : lfa1,zsm1.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
SELECT-OPTIONS : s_lifnr FOR lfa1-lifnr.
SELECTION-SCREEN END OF BLOCK b1.
DATA : git_lfa1 TYPE TABLE OF zsm1,
       gs_lfa1 LIKE LINE OF git_lfa1.
DATA : gs_adrc TYPE adrc.
DATA : form_name TYPE rs38l_fnam.
DATA: control TYPE ssfctrlop,
control_parameters TYPE ssfctrlop,
output_options TYPE ssfcompop.
control-no_dialog = 'X'.
control-device = 'PRINTER'.
output_options-tddest = 'LP01'.
SELECT lifnr adrnr FROM lfa1 INTO TABLE git_lfa1
                  WHERE lifnr IN s_lifnr.
LOOP AT git_lfa1 INTO gs_lfa1.
SELECT SINGLE name1 name2 street str_suppl3
                          city1 post_code1 region
                          FROM adrc
                          INTO (gs_adrc-name1,gs_adrc-name2,
                          gs_adrc-street,
                             gs_adrc-str_suppl3,gs_adrc-city1,
                             gs_adrc-post_code1,
                             gs_adrc-region)
                          WHERE addrnumber = gs_lfa1-adrnr.
CALL FUNCTION '/1BCDWB/SF00000313'
    EXPORTING
     ARCHIVE_INDEX              =
     ARCHIVE_INDEX_TAB          =
     ARCHIVE_PARAMETERS         =
      control_parameters         = control
     MAIL_APPL_OBJ              =
     MAIL_RECIPIENT             =
     MAIL_SENDER                =
     output_options              = output_options
     user_settings               = ' '
      git_lfa1                   = git_lfa1
      gs_adrc                    = gs_adrc
   IMPORTING
     DOCUMENT_OUTPUT_INFO       =
     JOB_OUTPUT_INFO            =
     JOB_OUTPUT_OPTIONS         =
    EXCEPTIONS
      formatting_error           = 1
      internal_error             = 2
      send_error                 = 3
      user_canceled              = 4
      OTHERS                     = 5
IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
ENDLOOP.
It must generate a spool request..but its not generating...please help........

Hi
You are populating the control parameters to specify the output details and suppress the popup which comes when the Smartform is invoked.
Check this link
https://www.sdn.sap.com/irj/sdn/go/portal/prtroot/docs/library/uuid/d937ec90-0201-0010-0ca8-b6cb3b6dd1ef
Regards
Raj
Message was edited by:
        Rajasekhar Dinavahi

Error in Spool generation

Hi Gurus,
I am using following code generate the spool. But spool is generated with twice with same output
SUBMIT GPC3IL91J3FDQJFRDFHTFNJSIKF110 TO SAP-SPOOL
                    SPOOL PARAMETERS print_parameters
                   ARCHIVE PARAMETERS archi_parameters
                    with $1KOKRE = 'FR09'
                    with $1GJAHR = '2011'
                    with $1PERIV = '1'
                    with $1PERIB = '12'
                    with $1VERP = '0'
                    with _1KOSET-LOW = '02P007C300'
                    WITHOUT SPOOL DYNPRO AND RETURN.

Check the value in PRCOP of print parameters
Check [Copy Counter option of the output device|http://wiki.sdn.sap.com/wiki/display/ABAP/Copies(duplicate,etc.)#Copies%28duplicate%2Cetc.%29-CopyCounteroptionoftheoutputdevice]

PDF form spool generation

Hi
I have a requirement to generate spool number from a webdynpro object. where I have alerady the PDF format xml output.
what is the function module that can be used to pass xml string and get spool number?
I am using RSPO_OPEN_SPOOLREQUEST function, but it is not giving any output pages on spool.
Please help me.

<Link removed by moderator>
Edited by: Vinod Kumar on Mar 7, 2012 11:44 AM

Spool generation in SAP script

Hi All,
Could any one please tel me ....In scripts when the spool no. is generated that while processing the driver program OR after the print log processing?
and also provide me the table and fields that contain the spool no.
Regards
Vishnu

Check the below code for getting the data in the SPOOL request. Spool requets will be stored in the table <b>TSP01</b>.
*& Report YPRA_SAMPLE38                                               *
REPORT ypra_sample38.
*Type Declarations
TYPES: BEGIN OF ty_rdidata,
        line(1000) TYPE c,
       END OF ty_rdidata.
DATA: ws_spool LIKE tsp01-rqident,
      i_rdidata TYPE STANDARD TABLE OF ty_rdidata,
      wa_rdidata TYPE ty_rdidata.
ws_spool = '0000019125'.
CALL FUNCTION 'RSPO_RETURN_ABAP_SPOOLJOB_RAW'
EXPORTING
    rqident                    = ws_spool
FIRST_LINE                 = 1
LAST_LINE                  =
TABLES
    buffer                     = i_rdidata
EXCEPTIONS
   no_such_job                = 1
   not_abap_list              = 2
   job_contains_no_data       = 3
   selection_empty            = 4
   no_permission              = 5
   can_not_access             = 6
   read_error                 = 7
   OTHERS                     = 8
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
          WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
CALL FUNCTION 'GUI_DOWNLOAD'
EXPORTING
    filename                        =
                    'C:\Documents and Settings\P.Ramu\Desktop\RDI1.xls'
TABLES
    data_tab                        = i_rdidata
EXCEPTIONS
   file_write_error                = 1
   no_batch                        = 2
   gui_refuse_filetransfer         = 3
   invalid_type                    = 4
   no_authority                    = 5
   unknown_error                   = 6
   header_not_allowed              = 7
   separator_not_allowed           = 8
   filesize_not_allowed            = 9
   header_too_long                 = 10
   dp_error_create                 = 11
   dp_error_send                   = 12
   dp_error_write                  = 13
   unknown_dp_error                = 14
   access_denied                   = 15
   dp_out_of_memory                = 16
   disk_full                       = 17
   dp_timeout                      = 18
   file_not_found                  = 19
   dataprovider_exception          = 20
   control_flush_error             = 21
   OTHERS                          = 22
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
          WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.

BTE for mailing dunning notices & spool generation

Dear Experts,
I have been using a function module FI_OPT_ARCHIVE_DUNNING_NOTICE and event 00001040 for emailing dunning notices.
Emailing part is working perfectly fine , but alongside that the client needs to maintain a copy of the spool with them.
Problem is that spool is not being generated.
Kindly guide me if I am missing any parameter in the above FM to generate a spool.
Thanks in advance..responses will ensure valuable points...

Can anybdy please throw some light regarding this FM :
Want a parameter which will trigger spool genration alongside mail.
CALL FUNCTION 'GET_PRINT_PARAMETERS'
       EXPORTING
        ARCHIVE_ID             = C_CHAR_UNKNOWN
          ARCHIVE_INFO           = '000'
            ARCHIVE_MODE         = C_ITCPO-TDARMOD
          ARCHIVE_TEXT           = 'Dunning'
            AR_OBJECT            = TOA_DARA-AR_OBJECT
        ARCHIVE_REPORT         = C_CHAR_UNKNOWN
        AUTHORITY              = C_CHAR_UNKNOWN
        COPIES                 = C_NUM3_UNKNOWN
        COVER_PAGE             = C_CHAR_UNKNOWN
        DATA_SET               = C_CHAR_UNKNOWN
        DEPARTMENT             = C_CHAR_UNKNOWN
        destination            = C_CHAR_UNKNOWN
        expiration             = 0
          IMMEDIATELY          = C_ITCPO-TDIMMED
        IN_ARCHIVE_PARAMETERS = ' '
        IN_PARAMETERS          = ' '
        LAYOUT                 = C_CHAR_UNKNOWN
        LINE_COUNT             = C_INT_UNKNOWN
        LINE_SIZE              = C_INT_UNKNOWN
        list_name              = ' '
        list_text              = ' '
        mode                   = ' '
          NEW_LIST_ID          = C_ITCPO-TDNEWID
          NO_DIALOG              = 'X'
          RECEIVER             = SY-UNAME
        RELEASE                = C_CHAR_UNKNOWN
        REPORT                 = C_CHAR_UNKNOWN
        SAP_COVER_PAGE         = C_CHAR_UNKNOWN
            SAP_OBJECT           = TOA_DARA-SAP_OBJECT
        TYPE                   = C_CHAR_UNKNOWN
      IMPORTING
           OUT_ARCHIVE_PARAMETERS = A_PARAMETERS
           OUT_PARAMETERS         = P_PARAMETERS
           VALID                  = VALID
       EXCEPTIONS
            ARCHIVE_INFO_NOT_FOUND = 1
            INVALID_PRINT_PARAMS   = 2
            INVALID_ARCHIVE_PARAMS = 3
            OTHERS                 = 4.

Spool generation pgm

hi all!!!
how do i create spool explicitly in program
is any Fmodule available for this.
Thanks in Advance .

Hai Praveen
report ZPDFPRNT no standard page heading.
TABLES: TST05.
DATA: BEGIN OF ITAB OCCURS 0,
   TLINE(255),
END OF ITAB.
DATA: BEGIN OF ITAB2 OCCURS 0,
TLINE(255),
END OF ITAB2.
DATA: BEGIN OF ITAB3 OCCURS 0,
TLINE(255),
END OF ITAB3.
DATA: BEGIN OF OTF_TAB OCCURS 0,
TLINE(255),
END OF OTF_TAB.
DATA: LEN_OUT LIKE SOOD-OBJLEN.
DATA: LEN_IN LIKE SOOD-OBJLEN.
DATA: BEGIN OF DATA_SET OCCURS 200,
DATA_LENGTH(5),
PRECOL(1),
DATA_LINE(1000),
END OF DATA_SET.
DATA: BEGIN OF OTF_PAGE OCCURS 200.
INCLUDE STRUCTURE ITCOO.
DATA: END OF OTF_PAGE,
OTF_PAGES TYPE P,
OTF_MAX_PAGES TYPE P VALUE 10.
DATA: BEGIN OF OTF_CONTROL.
INCLUDE STRUCTURE ITCPP.
DATA: END OF OTF_CONTROL,
FORCE_RAW_OTF VALUE ' ',
L100_EXCLUDE(4) VALUE 'OTFJ',
BEGIN OF OTF_PAGE_INDEX OCCURS 20,
LINE_NUM TYPE P,
END OF OTF_PAGE_INDEX,
CUR_OTF_PAGE VALUE 1.
DATA: DATA_SET_LINECOUNT TYPE P,
DATA_SET_MAX_LINES TYPE P VALUE 100000,
DATA_SET_VALID TYPE C VALUE ' ',
DATA_SET_IS_OTF TYPE C VALUE ' ',
DATA_SET_LENGTH(5) TYPE C,
LINE_SPECIAL LIKE DATA_SET-DATA_LINE,
NEED_LINE_SPECIAL TYPE C,
DSN_TYPE(8) TYPE C.
DATA: FCODE(4) TYPE C,
DATE TYPE D,
TIME TYPE T,
RC(10) TYPE C,
ERRMSG(100) TYPE C,
PRINTJOB_CREATED(1) TYPE C,
PRINTJOB_CLEARED(1) TYPE C,
PRINTJOB_LIST(1) TYPE C,
DISPLAY_MODE(1) TYPE C,
LINE_MAX TYPE P VALUE '100000',
NEW_SCREEN_300(1) TYPE C,
MULTI_PRINT_300(1) TYPE C,
PRINT_ALL_300(1) TYPE C,
PRINT_COUNT_300 TYPE I,
SHOW_USER_100 TYPE C VALUE ' ',
ERROR_DISPLAY_LEVEL TYPE C VALUE '9',
NEXT_ERROR_DISPLAY_LEVEL TYPE C,
PREV_ERROR_DISPLAY_LEVEL TYPE C,
START_300(5) TYPE C, END_300(5) TYPE C,
SEP LIKE SY-VLINE,
DEFAULT_PRI,
TSP01_BUF LIKE TSP01,
TSP01_CURLINE LIKE SY-STARO,
TSP01_CURCOL LIKE SY-CUCOL,
TSP01_CURROW LIKE SY-CUROW.
DATA: BEGIN OF DATA_SET_LINE,
DATA_LENGTH(5),
PRECOL(1),
DATA_LINE(1000),
END OF DATA_SET_LINE.
DATA: STATUS LIKE SY-SUBRC.
DATA: WGF_MESSAGE(80).
DATA: H_PATH(20) TYPE C.
DATA: H_MASK(20) TYPE C VALUE ',.pdf ,.pdf. '.
DATA: FILE_NAME(20).
DATA: FILENAME LIKE RLGRAP-FILENAME.
DATA: IMPORT(132).
PARAMETERS: IDENT(5) TYPE C.
PERFORM GET_OTF_TAB.
LOOP AT OTF_PAGE.
   OTF_TAB-TLINE = OTF_PAGE.
   APPEND OTF_TAB.
ENDLOOP.
CALL FUNCTION 'SX_OBJECT_CONVERT_OTF_PDF'
EXPORTING
FORMAT_SRC = 'OTF'
FORMAT_DST = 'PDF'
DEVTYPE = 'ASCIIPRI'
LEN_IN = LEN_IN
IMPORTING
LEN_OUT = LEN_OUT
TABLES
CONTENT_IN = OTF_TAB
CONTENT_OUT = ITAB2
EXCEPTIONS
ERR_CONV_FAILED = 1
OTHERS = 2.
PERFORM GET_PATH USING 'PDF_FILE'.
CALL FUNCTION 'WS_DOWNLOAD'
EXPORTING
FILENAME = FILENAME
FILETYPE = 'BIN'
BIN_FILESIZE = LEN_OUT
TABLES
DATA_TAB = ITAB2
EXCEPTIONS
FILE_OPEN_ERROR = 1
FILE_WRITE_ERROR = 2
INVALID_FILESIZE = 3
INVALID_TABLE_WIDTH = 4
INVALID_TYPE = 5
NO_BATCH = 6
UNKNOWN_ERROR = 7
OTHERS = 8.
*& Form GET_OTF_TAB
FORM GET_OTF_TAB.
DATA: PART(4) VALUE '0001',
BEGIN OF MSG,
A(40),
B(40),
C(40),
END OF MSG.
REFRESH DATA_SET.
DATA_SET_LINECOUNT = 0.
DATA_SET_IS_OTF = ' '.
OTF_PAGES = 0.
REFRESH OTF_PAGE_INDEX.
CALL 'RSPOACSD'.
SELECT * FROM TST05 WHERE DTHREAD = 'X'.
CALL 'RSPOAOSD'
ID 'ID' FIELD IDENT
ID 'TYPE' FIELD TST05-DTYPE
ID 'RECTYP' FIELD 'VYL----'
ID 'RC' FIELD RC
ID 'ERRMSG' FIELD ERRMSG.
STATUS = SY-SUBRC.
IF STATUS = 0.
DSN_TYPE = TST05-DTYPE.
IF DSN_TYPE(3) = 'OTF'.
    DATA_SET_IS_OTF = 'X'.
ENDIF.
ENDIF.
IF STATUS <> 24. EXIT. ENDIF.
ENDSELECT.
DATA_SET_VALID = 'X'.
DATA_SET_MAX_LINES = ( LINE_MAX * '1.1' ) + 100.
DO.
CLEAR: DATA_SET_LINE, DATA_SET_LENGTH.
CALL 'RSPOARSD'
ID 'BUFF' FIELD DATA_SET_LINE+5
ID 'DATALEN' FIELD DATA_SET_LENGTH
ID 'RC' FIELD RC
ID 'ERRMSG' FIELD ERRMSG.
STATUS = SY-SUBRC.
IF STATUS = 36.
WHILE STATUS = 36.
CALL 'RSPOACSD'
ID 'RC' FIELD RC
ID 'ERRMSG' FIELD ERRMSG.
ADD 1 TO PART.
IF DATA_SET_IS_OTF = ' '.
CALL 'RSPOAOSD'
ID 'ID' FIELD IDENT
ID 'TYPE' FIELD DSN_TYPE
ID 'PART' FIELD PART
ID 'RECTYP' FIELD 'VYL----'
ID 'RC' FIELD RC
ID 'ERRMSG' FIELD ERRMSG.
ELSE.
CALL 'RSPOAOSD'
ID 'ID' FIELD IDENT
ID 'PART' FIELD PART
ID 'TYPE' FIELD DSN_TYPE
ID 'RECTYP' FIELD 'VYL----'
ID 'RC' FIELD RC
ID 'ERRMSG' FIELD ERRMSG.
ENDIF.
IF SY-SUBRC NE 0. EXIT. ENDIF.
CLEAR: DATA_SET_LINE, DATA_SET_LENGTH.
CALL 'RSPOARSD'
ID 'BUFF' FIELD DATA_SET_LINE+5
ID 'DATALEN' FIELD DATA_SET_LENGTH
ID 'RC' FIELD RC
ID 'ERRMSG' FIELD ERRMSG.
STATUS = SY-SUBRC.
ENDWHILE.
ENDIF.
IF STATUS <> 0 AND STATUS <> 40. EXIT. ENDIF.
DATA_SET = DATA_SET_LINE.
IF NOT ( DATA_SET_LENGTH IS INITIAL ).
DATA_SET-DATA_LENGTH = DATA_SET_LENGTH - 1.
ENDIF.
APPEND DATA_SET.
ADD 1 TO DATA_SET_LINECOUNT.
IF DATA_SET_IS_OTF = ' '.
IF DATA_SET_LINECOUNT >= DATA_SET_MAX_LINES.
CLEAR DATA_SET.
APPEND DATA_SET.
MOVE '----
' TO DATA_SET-DATA_LINE.
APPEND DATA_SET.
CLEAR DATA_SET.
APPEND DATA_SET.
WRITE: 'Abbruch nach'(029) TO MSG-A.
WRITE: DATA_SET_MAX_LINES TO MSG-B.
WRITE: 'Zeilen.'(030) TO MSG-C.
CONDENSE MSG.
DATA_SET-DATA_LINE = MSG.
APPEND DATA_SET.
EXIT.
ENDIF.
ELSE.
MOVE DATA_SET_LINE-DATA_LINE TO OTF_PAGE.
APPEND OTF_PAGE.
IF OTF_PAGE(2) = 'EP'.
ADD 1 TO OTF_PAGES.
IF OTF_PAGES >= OTF_MAX_PAGES.
    MESSAGE S229(PO) WITH OTF_MAX_PAGES.
    EXIT.
ENDIF.
ELSEIF OTF_PAGE(2) = 'OP'.
OTF_PAGE_INDEX-LINE_NUM = DATA_SET_LINECOUNT.
APPEND OTF_PAGE_INDEX.
ENDIF.
ENDIF.
ENDDO.
IF STATUS <> 0 AND STATUS <> 12.
CALL 'RSPOACSD'.
MESSAGE E112(PO) WITH STATUS RC ERRMSG.
ENDIF.
CALL 'RSPOACSD'.
STATUS = SY-SUBRC.
IF STATUS <> 0.
MESSAGE E112(PO) WITH STATUS RC ERRMSG.
ENDIF.
ENDFORM. " GET_OTF_TAB
*& Form GET_PATH
FORM GET_PATH USING P_FILENAME.
CLEAR: H_PATH, FILE_NAME.
FILE_NAME = P_FILENAME.
CALL FUNCTION 'WS_QUERY'
EXPORTING
QUERY = 'CD' "// Current Directory
IMPORTING
RETURN = H_PATH.
CONCATENATE FILE_NAME '.pdf' INTO FILE_NAME.
CALL FUNCTION 'WS_FILENAME_GET'
EXPORTING
DEF_FILENAME = FILE_NAME
DEF_PATH = H_PATH
MASK = H_MASK
MODE = 'O'
IMPORTING
FILENAME = FILENAME"dbname
EXCEPTIONS
INV_WINSYS = 1
NO_BATCH = 2
SELECTION_CANCEL = 3
SELECTION_ERROR = 4
OTHERS = 5.
ENDFORM. " GET_PATH
Thanks & regards
Sreenivasulu P

Spool generation

Similar Messages

Maybe you are looking for