System fields VIII

REPORT ZZBETO98.

PARAMETERS: PARAM(6) DEFAULT 'TEST'.

WRITE: / 'System variables for printing.'.

WRITE: / 'Please check the spool for the printout'.

SKIP.

* check is necessary to prevent further recursive calls of this program.

IF NOT ( SY-PDEST IS INITIAL ).

SKIP.

WRITE: / 'System variables for printing:'.

SKIP.

WRITE: / ' Layout: SY-PAART',SY-PAART.

* This can be used in normal lists as well.

* If used with 'new-page print on', it continues counting

WRITE: / ' Current page number: SY-PAGNO', SY-PAGNO.

WRITE: / ' Printer: SY-PDEST', SY-PDEST.

WRITE: / ' Priority: SY-PEXPI', SY-PEXPI.

WRITE: / ' List name: SY-PLIST', SY-PLIST.

WRITE: / ' Department: SY-PRABT', SY-PRABT.

* output cover sheet with the report's parameters

WRITE: / ' Output cover sheet: SY-PRBIG', SY-PRBIG.

WRITE: / ' No. of copies: SY-PRCOP', SY-PRCOP.

WRITE: / ' Dataset name: SY-PRDSN', SY-PRDSN.

WRITE: / ' Print immediately: SY-PRIMM', SY-PRIMM.

WRITE: / ' New list: SY-PRNEW', SY-PRNEW.

* Receiver must be a valid user-id

WRITE: / ' Receiver: SY-PRREC', SY-PRREC.

WRITE: / ' Delete after output: SY-PRREL', SY-PRREL.

WRITE: / ' Cover text: SY-PRTXT', SY-PRTXT.

EXIT.

ENDIF.

SUBMIT ZZBETO98 TO SAP-SPOOL

                DESTINATION             'ST03'
                COPIES                  3
                LIST NAME               'NEWLIST'
                LIST DATASET            'TESTLIST'
                COVER TEXT              'Test of system variables'
                LIST AUTHORITY          'BASIS'
                IMMEDIATELY             ' '
                KEEP IN SPOOL           'X'
                NEW LIST IDENTIFICATION 'X'
                DATASET EXPIRATION      '8'
                LINE-COUNT              90
                LINE-SIZE               120
                LAYOUT                  'X_90_120'
                SAP COVER PAGE          'X'
                COVER PAGE              'X'
                RECEIVER                'SAP*'
                DEPARTMENT              'DEP.'
                WITHOUT SPOOL DYNPRO.

Bence Toth