Print a TEST indicator on non productive documents

To avoid confusions about the origin of printed documents a Test Indicator can be printed on each page of all SAP-Script documents that are issued from a Test System.

This Test Indicator shows in the top line of the page
 -The user who initiated the print.
 -The test system that was used to print.
 -The date and time the document was issued.
 -in the center of the page the word 'TEST' in big gray characters.

To add a Test Indicator to every new or copied SAP-Script document

apply the following code.

1. Edit the Script in the original language.
2. Create a paragraph = 'ZI'
     Description = 'Test Indicator'
     Alignment = 'CENTER'
     Font family = 'HELVE'
     Points = '8'
     Attributes = 'BOLD'.
3. Create a Window = 'TESTINDI'
     Description = 'Test Indicator'
     Type = 'CONST'
     Default Paragraph = 'ZI'
4. Add the next command to this window
    '/: INCLUDE Z_TESTINDICATOR OBJECT 'TEXT' ID 'ZSCR' LANGUAGE 'EN' PARAGRAPH 'ZI''
5. Add this window to every page of the form
     Width =  '21 CM'
     Height = '1 LN'
6. Edit the Script in every available language open window 'TESTINDI' and apply step 4.

The include 'Z_TESTINDICATOR' does the formatting and printing and tests for the
production system (no output).

Standard Text Z_TESTINDICATOR
/*   INCLUDE TO PRINT THE WORD "TEST" USING BOXES
/*
/*   MAKE SURE WE ARE NOT ON THE PRODUCTION SYSTEM
/:   IF &SY-SYSID& <> 'P01'
/:   BOX HEIGHT 7 MM INTENSITY 20
/*   Character "T"
/:   POSITION WINDOW
/:   POSITION XORIGIN 40 MM YORIGIN 100 MM
/:   BOX HEIGHT 5 MM WIDTH 26 MM INTENSITY 20
/:   POSITION WINDOW
/:   POSITION XORIGIN 51 MM YORIGIN 100 MM
/:   BOX HEIGHT 40 MM WIDTH 5 MM INTENSITY 20
/*   Character "E"
/:   POSITION WINDOW
/:   POSITION XORIGIN 70 MM YORIGIN 100 MM
/:   BOX HEIGHT 5 MM WIDTH 24 MM INTENSITY 20
/:   POSITION WINDOW
/:   POSITION XORIGIN 70 MM YORIGIN 115 MM
/:   BOX HEIGHT 4 MM WIDTH 20 MM INTENSITY 20
/:   POSITION WINDOW
/:   POSITION XORIGIN 70 MM YORIGIN 135 MM
/:   BOX HEIGHT 5 MM WIDTH 24 MM INTENSITY 20
/:   POSITION WINDOW
/:   POSITION XORIGIN 70 MM YORIGIN 100 MM
/:   BOX HEIGHT 40 MM WIDTH 5 MM INTENSITY 20
/*   Character "S"
/:   POSITION WINDOW
/:   POSITION XORIGIN 105 MM YORIGIN 100 MM
/:   BOX HEIGHT 5 MM WIDTH 20 MM INTENSITY 20
/:   POSITION WINDOW
/:   POSITION XORIGIN 105 MM YORIGIN 115 MM
/:   BOX HEIGHT 5 MM WIDTH 15 MM INTENSITY 20
/:   POSITION WINDOW
/:   POSITION XORIGIN 100 MM YORIGIN 135 MM
/:   BOX HEIGHT 5 MM WIDTH 20 MM INTENSITY 20
/:   POSITION WINDOW
/:   POSITION XORIGIN 100 MM YORIGIN 105 MM
/:   BOX HEIGHT 10 MM WIDTH 5 MM INTENSITY 20
/:   POSITION WINDOW
/:   POSITION XORIGIN 120 MM YORIGIN 120 MM
/:   BOX HEIGHT 15 MM WIDTH 5 MM INTENSITY 20
/*   Character "T"
/:   POSITION WINDOW
/:   POSITION XORIGIN 130 MM YORIGIN 100 MM
/:   BOX HEIGHT 5 MM WIDTH 26 MM INTENSITY 20
/:   POSITION WINDOW
/:   POSITION XORIGIN 140 MM YORIGIN 100 MM
/:   BOX HEIGHT 40 MM WIDTH 5 MM INTENSITY 20
 ZI   printed by &SY-UNAME& from test system &SY-SYSID& on &SY-DATUM&
 =     &SY-UZEIT&
 /:   ENDIF