REPORT  RSPO0075.
************************************************************************
* this report can be used to add additional access methods:
*  P     device pools
*  E     OMS support
* for a description see below.
*
************************************************************************
*  access method 'P'
*
* It is used to print to pools of printers.
* The user can choose between printing to all members of a pool
* or one randomly selected printer from a pool.
*
************************************************************************
* access method 'E'
*
* It provides support for external output-management systems.
*
************************************************************************
* access method 'M'
*
* Printing by sending an E-Mail to the user
*
************************************************************************
TABLES: TSP6D, TSP6T.
SELECTION-SCREEN BEGIN OF BLOCK WHAT WITH FRAME TITLE TEXT-010.
PARAMETERS: AM_P AS CHECKBOX,
            AM_E AS CHECKBOX,
            AM_M as checkbox,
            AM_G as checkbox.
SELECTION-SCREEN END OF BLOCK WHAT.
SELECTION-SCREEN SKIP.
SELECTION-SCREEN BEGIN OF BLOCK HOW WITH FRAME TITLE TEXT-011.
PARAMETERS: ADD RADIOBUTTON GROUP SELE,
            DEL RADIOBUTTON GROUP SELE.
SELECTION-SCREEN END OF BLOCK HOW.
constants: am_z type c value space,
           am_w type c value space,
           am_t type c value space,
           am_f type c value space.
DATA: DESC(100).
SET TITLEBAR '100'.
IF AM_Z = 'X'.
  DESC = 'Kundeneigener Aufbereiter'(100).
PERFORM ADD_METHOD USING 'Z'
'Kundeneigener Aufbereiter' "#EC NOTEXT
'Private printprocessor' "#EC NOTEXT
                           DESC.
ENDIF.
IF AM_P = 'X'.
  DESC = 'Gerätepool'(101).
PERFORM ADD_METHOD USING 'P'
'Gerätepool'
'Device pool' "#EC *
                           DESC.
ENDIF.
IF AM_F = 'X'.
  DESC = 'Drucken auf Front-End-Rechner'(102).
PERFORM ADD_METHOD USING 'F'
'Drucken auf Front-End-Rechner' "#EC NOTEXT
'Printing on front end computer' "#EC NOTEXT
                           DESC.
ENDIF.
IF AM_E = 'X'.
  DESC = 'Externes Output-Management-System'(103).
PERFORM ADD_METHOD USING 'E'
'Externes Output-Management-System' "#EC NOTEXT
'External output management system' "#EC NOTEXT
                       DESC.
ENDIF.
IF AM_W = 'X'.
  DESC = 'Internet Printing Protocol (IPP)'(104).
PERFORM ADD_METHOD USING 'W'
'Internet Printing Protocol (IPP)' "#EC NOTEXT
'Internet Printing Protocol (IPP)' "#EC NOTEXT
                       DESC.
ENDIF.
IF AM_T = 'X'.
  DESC = 'Job Ticket'(106).
PERFORM ADD_METHOD USING 'T'
'Job Ticket' "#EC NOTEXT
'Job-Ticket' "#EC NOTEXT
                       DESC.
ENDIF.
IF AM_M = 'X'.
  DESC = 'E-Mail'(105).
PERFORM ADD_METHOD USING 'M'
'E-Mail an Empfänger/Eigentümer' "#EC NOTEXT
'e-mail to receiver/onwer' "#EC NOTEXT
                       DESC.
ENDIF.
IF AM_G = 'X'.
  DESC = 'Frontenddruck mit Control-Technologie'(107).
PERFORM ADD_METHOD USING 'G'
'Frontenddruck mit Control-Technologie'
'Frontend print with control technologie' "#EC *
                           DESC.
ENDIF.
FORM ADD_METHOD USING NAME GERMAN ENGLISH SPEC.
IF ADD = 'X'.
    TSP6D-METHOD = NAME.
INSERT TSP6D.
DELETE FROM TSP6T WHERE METHOD = NAME AND SPRAS = 'D'.
    TSP6T-METHOD = NAME.
    TSP6T-SPRAS = 'D'.
    TSP6T-TXT = GERMAN.
INSERT TSP6T.
DELETE FROM TSP6T WHERE METHOD = NAME AND SPRAS = 'E'.
    TSP6T-METHOD = NAME.
    TSP6T-SPRAS = 'E'.
    TSP6T-TXT = ENGLISH.
INSERT TSP6T.
IF SY-LANGU <> 'D' AND SY-LANGU <> 'E'.
DELETE FROM TSP6T WHERE METHOD = NAME AND SPRAS = SY-LANGU.
      TSP6T-METHOD = NAME.
      TSP6T-SPRAS = SY-LANGU.
      TSP6T-TXT = SPEC.
INSERT TSP6T.
ENDIF.
WRITE: / 'Koppelart'(001), NAME,
'kann nun in Transaktion SPAD verwendet werden'(002).
ELSE.
    TSP6D-METHOD = NAME.
DELETE TSP6D.
DELETE FROM TSP6T WHERE METHOD = NAME.
WRITE: / 'Koppelart'(001), NAME,
'wurde gelöscht'(003).
ENDIF.
ENDFORM.