Create a spool from a Postscript File

[FredericGirod]

Hi,

I would like to create a spool and insert inside this spool a Postscript file (or anything picture .. )

My problem is, the spool code is not interpreted,

For the moment my code is :

• Ouverture du spool.

CALL FUNCTION 'RSPO_SR_OPEN'
    EXPORTING
      dest                   = 'FR4D'
*     LDEST                  =
      layout                 = 'X_POSTSCRIPT'
*     NAME                   =
*     SUFFIX1                =
*     SUFFIX2                =
*     COPIES                 =
*     PRIO                   =
      immediate_print        = ' '
*     AUTO_DELETE            =
*     TITLELINE              =
*     RECEIVER               =
*     DIVISION               =
*     AUTHORITY              =
*     POSNAME                =
*     ACTTIME                =
*     LIFETIME               = '8'
*     APPEND                 =
*     COVERPAGE              =
*     CODEPAGE               =
      doctype                = 'BIN'
*     ARCHMODE               =
*     ARCHPARAMS             =
*     TELELAND               =
*     TELENUM                =
*     TELENUME               =
*     SPONUMIV               = ' '
*     USESPOOLID             =
*     PRINTOPTIONS           =
    IMPORTING
      handle                 = w_handle
      spoolid                = w_spoolid
*   TABLES
*     ATTRIBUTES             =
   EXCEPTIONS
     device_missing         = 1
     name_twice             = 2
     no_such_device         = 3
     operation_failed       = 4
     OTHERS                 = 5.




* Lecture du fichier créé.
  OPEN DATASET w_fileo
       FOR INPUT
       IN TEXT MODE ENCODING DEFAULT.
  DO.
    READ DATASET w_fileo
         INTO w_line.
    IF sy-subrc NE space.
      EXIT.
    ENDIF.
*    CALL FUNCTION 'RSPO_SR_WRITE_BINARY'
*      EXPORTING
*        handle                 = w_handle
*        data                   = w_line
**   LENGTH                 =
**   CODEPAGE               =
*  EXCEPTIONS
*    HANDLE_NOT_VALID       = 1
*    OPERATION_FAILED       = 2
*    OTHERS                 = 3.
    w_len = STRLEN( w_line ).
    w_lineb = w_line+0(w_len).
    CALL FUNCTION 'RSPO_SR_WRITE'
      EXPORTING
        handle                 = w_handle
        text                   = w_lineb
        length                 = w_len
*       CODEPAGE               =
*       TRUNCATE               =
     EXCEPTIONS
       handle_not_valid       = 1
       operation_failed       = 2
       OTHERS                 = 3.


  ENDDO.
  CLOSE DATASET w_fileo.



  CALL FUNCTION 'RSPO_SR_CLOSE'
    EXPORTING
      handle                 = w_handle
*     PAGES                  =
*     FINAL                  =
   EXCEPTIONS
     handle_not_valid       = 1
     operation_failed       = 2
     OTHERS                 = 3.

[Former Member]

Hello,

have you found a solution ?

Can you please share it with us?

Thanks

Arnfried