REPORT YSYSDOCU NO STANDARD PAGE HEADING.
TABLES: PAT03, TADIR, TWSYS, TASYS, TSYST, DEVL, T000, TSP03, TBTCO,
USR02, USR04, BTCUED, USR10, BTCOMSET, RFCDES, TXCOM.
DATA: A(90), LINE(256), DBHOST(10), LINE2(256), TR(4) VALUE '( ) ',
SZO(512), BARMI(150), VALAMI(150), BARMI2 TYPE I, VALAMI2 TYPE I,
SYNUM(2), BARMI3(20), VALAMI3(20).
DATA: BEGIN OF TS OCCURS 10.
        INCLUDE STRUCTURE TABLE_SPC.
DATA: END OF TS.
DATA: BEGIN OF TC OCCURS 10.
        INCLUDE STRUCTURE TSPC_CHECK.
DATA: END OF TC.
DATA: BEGIN OF TAB OCCURS 10.
        INCLUDE STRUCTURE ABAPLIST.
DATA: END OF TAB.
DATA: BEGIN OF ITAB OCCURS 10,
TEXT(25),
END OF ITAB.
DATA: BEGIN OF ITAB2 OCCURS 10,
TEXT1(10),
TEXT2(30),
END OF ITAB2.
*@TITLE
SKIP 2.
FORMAT INTENSIFIED ON.
WRITE: /40 'SYSTEM DOCUMENTATION', SY-DATUM.
WRITE AT /40(31) SY-ULINE.WRITE AT /40(31) SY-ULINE.
FORMAT INTENSIFIED OFF.
SKIP 2.
*@TOPICS
FORMAT INTENSIFIED ON.
WRITE: 'MAIN TOPICS:'.
WRITE AT /1(30) SY-ULINE.
SKIP 2.
WRITE: / 'SYSTEM NAME',/ 'SAP VERSION',/ 'DESCRIPTION, DATABASE, DBHOME'
,/ 'INSTANCE DATA',/ 'DB HOST',/ 'IP ADDRESS',/ 'OP. SYSTEM',/ 'SWAP',
/ 'DISK CONFIGURATION',/ 'DISK SIZE',/ 'VOLUME GROUPS',/ 'FILESYSTEMS',
/ 'NFS FILESYSTEMS',/ 'KERNEL PARAMETERS',/ 'ORACLE MAIN DATA',
/ 'ORACLE MEMORY CONFIGURATION',/ 'ORACLE PARAMETERS',
/ 'DB STATISTICS',/ 'DATABASE FILES',/ 'LICENSE DATA',/ 'HOT PACKAGES',
/ 'SAP MEMORY CONFIG',/ 'SYSTEM CHANGE OPTION',/ 'CTS SETUP',
/ 'CLIENT DATA',/ 'PRINTER DATA',/ 'BATCH JOBS',/ 'EVENTS',/
'CRONTAB JOBS',/ 'SAP TIMETABLE',/ 'USERS, PROFILES',/ 'OPERATION MODES'
,/ 'CPIC SETUP',/ 'DEFAULT PROFILE',/ 'INSTANCE PROFILE'.
FORMAT INTENSIFIED OFF.
SKIP 2.
NEW-PAGE.
*@SYSTEM NAME
SKIP.
FORMAT INTENSIFIED ON.
WRITE: /02 'SYSTEM NAME:'.
WRITE AT /1(30) SY-ULINE.SKIP.
FORMAT INTENSIFIED OFF.
WRITE: 25 SY-SYSID.
*@SAP VERSION
SKIP.
FORMAT INTENSIFIED ON.
WRITE: /02 'VERSION:'.WRITE AT /1(30) SY-ULINE.SKIP.
FORMAT INTENSIFIED OFF.
WRITE: 25 SY-SAPRL.
*@DESCRIPTION, DATABASE, DBHOME
A = '/etc/sapconf'.
OPEN DATASET A FOR INPUT IN TEXT MODE.
DO.
  READ DATASET A INTO LINE.
  IF SY-SUBRC <> 0.EXIT.ENDIF.
  IF LINE+0(3) = SY-SYSID.
    SPLIT LINE AT ' ' INTO TABLE ITAB.
    READ TABLE ITAB INDEX 2.
    SKIP.
    FORMAT INTENSIFIED ON.
    WRITE: /02 'DESCRIPTION:'.WRITE AT /1(30) SY-ULINE.SKIP.
    FORMAT INTENSIFIED OFF.
    WRITE: 25 ITAB-TEXT.
    READ TABLE ITAB INDEX 18.
    SKIP.
    FORMAT INTENSIFIED ON.
    WRITE: /02 'DATABASE:'.WRITE AT /1(30) SY-ULINE.SKIP.
    FORMAT INTENSIFIED OFF.
    WRITE: 25 ITAB-TEXT.
    READ TABLE ITAB INDEX 13.
    SKIP.
    FORMAT INTENSIFIED ON.
    WRITE: /02 'DB. HOME:'.WRITE AT /1(30) SY-ULINE.SKIP.
    FORMAT INTENSIFIED OFF.
    WRITE: 25 ITAB-TEXT.
  ENDIF.
ENDDO.
CLOSE DATASET A.
*@INSTANCE DATA
A = '/etc/sapconf'.
OPEN DATASET A FOR INPUT IN TEXT MODE.
SKIP 2.
FORMAT INTENSIFIED ON.
WRITE: /02 'INSTANCE DATA:'.WRITE AT /1(30) SY-ULINE.SKIP.
FORMAT INTENSIFIED OFF.
WRITE: 21 '    INST. NO.      HOST      MEMORY      TYPE      STATUS'.
WRITE: /21 '    ________________________________________________________
__'.
SKIP 2.
DO.
  READ DATASET A INTO LINE.
  IF SY-SUBRC <> 0.EXIT.ENDIF.
  IF LINE+2(3) = SY-SYSID.
    SPLIT LINE AT ' ' INTO TABLE ITAB.
    READ TABLE ITAB INDEX 12.WRITE: /25 ITAB-TEXT.
    SYNUM = ITAB-TEXT.
    READ TABLE ITAB INDEX 4.WRITE: 40 ITAB-TEXT.
    READ TABLE ITAB INDEX 6.WRITE: 50 ITAB-TEXT.
    READ TABLE ITAB INDEX 3.WRITE: 62 ITAB-TEXT.
    IF ITAB-TEXT(1) = 'D'.
      READ TABLE ITAB INDEX 4.DBHOST = ITAB-TEXT.
    ENDIF.
    READ TABLE ITAB INDEX 10.WRITE: 72 ITAB-TEXT.
  ENDIF.
ENDDO.
CLOSE DATASET A.
*@DB HOST
SKIP 2.
FORMAT INTENSIFIED ON.
WRITE: /02 'DB. HOST:'.WRITE AT /1(30) SY-ULINE.SKIP.
FORMAT INTENSIFIED OFF.
WRITE: 25 DBHOST.
*@IP ADDRESS
A = '/tmp/a'.
OPEN DATASET A FOR INPUT IN TEXT MODE FILTER 'arp nti48mto'.
SKIP 2.
FORMAT INTENSIFIED ON.
WRITE: /02 'IP ADDRESS:'.WRITE AT /1(30) SY-ULINE. SKIP.
FORMAT INTENSIFIED OFF.
DO.
  READ DATASET A INTO LINE.
  IF SY-SUBRC <> 0.EXIT.ENDIF.
  SPLIT LINE AT ' ' INTO TABLE ITAB.
  READ TABLE ITAB INDEX 2.
  TRANSLATE ITAB-TEXT USING TR.
  WRITE: 24 ITAB-TEXT.
ENDDO.
CLOSE DATASET A.
*@OP. SYSTEM
A = '/tmp/a'.
OPEN DATASET A FOR INPUT IN TEXT MODE FILTER 'uname -mrs'.
SKIP 2.
FORMAT INTENSIFIED ON.
WRITE: /02 'OP. SYSTEM AND HW.:'.WRITE AT /1(30) SY-ULINE.SKIP.
FORMAT INTENSIFIED OFF.
DO.
  READ DATASET A INTO LINE.
  IF SY-SUBRC <> 0.EXIT.ENDIF.
  WRITE: 25 LINE.
ENDDO.
CLOSE DATASET A.
*@SWAP
A = '/tmp/a'.
OPEN DATASET A FOR INPUT IN TEXT MODE FILTER 'swapinfo'.
SKIP 2.
FORMAT INTENSIFIED ON.
WRITE: /02 'SWAP:'.WRITE AT /1(30) SY-ULINE. SKIP.
FORMAT INTENSIFIED OFF.
DO.
  READ DATASET A INTO LINE.
  IF SY-SUBRC <> 0.EXIT.ENDIF.
  SPLIT LINE AT ' ' INTO TABLE ITAB.
  READ TABLE ITAB INDEX 1.
  IF ITAB-TEXT <> 'reserve' AND ITAB-TEXT <> 'memory'.
    WRITE: 25 LINE.
    SKIP 2.
  ENDIF.
ENDDO.
CLOSE DATASET A.
NEW-PAGE.
*@DISK CONFIGURATION
SKIP 2.
FORMAT INTENSIFIED ON.
WRITE: /02 'HW. SW. PATH:'.WRITE AT /1(30) SY-ULINE.SKIP.
FORMAT INTENSIFIED OFF.
A = '/tmp/a'.
OPEN DATASET A FOR INPUT IN TEXT MODE FILTER
'ioscan -fn -C disk|grep -v Class|grep -v ='.
DO.
  READ DATASET A INTO LINE.
  IF SY-SUBRC <> 0.exit.endif.
  CONDENSE LINE.
  SPLIT LINE AT ' ' INTO TABLE ITAB.
  READ TABLE ITAB INDEX 1.
  IF ITAB-TEXT CP '*disk*'.
    READ TABLE ITAB INDEX 3.WRITE: /25 ITAB-TEXT.
  ELSE.
    CONDENSE LINE.
    READ TABLE ITAB INDEX 1.
    WRITE: 41 ITAB-TEXT.
    ITAB2-TEXT2 = ITAB-TEXT.
    APPEND ITAB2.
  ENDIF.
ENDDO.
CLOSE DATASET A.
*@Disk size
SKIP 2.
FORMAT INTENSIFIED ON.
WRITE: /02 'DEVICE TYPE, SIZE:'.WRITE AT /1(30) SY-ULINE.SKIP.
FORMAT INTENSIFIED OFF.
LOOP AT ITAB2.
  ITAB2-TEXT1 = 'diskinfo '.
  REPLACE 'dsk' WITH 'rdsk' INTO ITAB2-TEXT2.
  A = '/tmp/a'.
  OPEN DATASET A FOR INPUT IN TEXT MODE FILTER ITAB2.
  DO.
    READ DATASET A INTO LINE.
    IF SY-SUBRC <> 0.exit.endif.
    CONDENSE LINE.
    IF SY-INDEX <> 3 AND SY-INDEX < 6.
      WRITE: /25 LINE.
    ENDIF.
  ENDDO.
  CLOSE DATASET A.
  SKIP 2.
ENDLOOP.NEW-PAGE.
*@Volume groups
FORMAT INTENSIFIED ON.
WRITE: /02 'VOLUME GROUPS:'.WRITE AT /1(30) SY-ULINE.
FORMAT INTENSIFIED OFF.
LOOP AT ITAB2.
  ITAB2-TEXT1 = 'pvdisplay '.
  A = '/tmp/a'.
  OPEN DATASET A FOR INPUT IN TEXT MODE FILTER ITAB2.
  DO.
    READ DATASET A INTO LINE.
    IF SY-SUBRC <> 0.exit.endif.
    CONDENSE LINE.
    IF SY-INDEX BETWEEN 2 AND 4 OR SY-INDEX BETWEEN 9 AND 11.
      WRITE: /25 LINE.
    ENDIF.
  ENDDO.
  CLOSE DATASET A.
  SKIP 2.
ENDLOOP.NEW-PAGE.
*@FILESYSTEMS
A = '/tmp/a'.
OPEN DATASET A FOR INPUT IN TEXT MODE FILTER 'bdf'.
SKIP 2.
FORMAT INTENSIFIED ON.
WRITE: /02 'FILESYSTEMS:'.WRITE AT /1(30) SY-ULINE.SKIP.
FORMAT INTENSIFIED OFF.
DO.
  READ DATASET A INTO LINE.
  IF SY-SUBRC <> 0.EXIT.ENDIF.
  WRITE: /25 LINE.
ENDDO.
CLOSE DATASET A.
*@NFS FILESYSTEMS
A = '/tmp/a'.
OPEN DATASET A FOR INPUT IN TEXT MODE FILTER
'cat /etc/checklist|grep nfs'.
SKIP 2.
FORMAT INTENSIFIED ON.
WRITE: /02 'NFS FILESYSTEMS:'.WRITE AT /1(30) SY-ULINE.SKIP.
FORMAT INTENSIFIED OFF.
DO.
  READ DATASET A INTO LINE.
  IF SY-SUBRC <> 0.EXIT.ENDIF.
  WRITE: /25 LINE.
ENDDO.
CLOSE DATASET A.NEW-PAGE.
*@KERNEL PARAMETERS
A = '/tmp/a'.
OPEN DATASET A FOR INPUT IN TEXT MODE FILTER
'cat /stand/system|sed -n ''/^* Tunable/,/^system/p'''.
SKIP 2.
FORMAT INTENSIFIED ON.
WRITE: /02 'KERNEL PARAMETERS:'.WRITE AT /1(30) SY-ULINE.SKIP.
FORMAT INTENSIFIED OFF.
DO.
  READ DATASET A INTO LINE.
  IF SY-SUBRC <> 0.EXIT.ENDIF.
  WRITE: /25 LINE.
ENDDO.
CLOSE DATASET A.NEW-PAGE.
*@ORACLE MAIN DATA
SKIP 2.
FORMAT INTENSIFIED ON.
WRITE: /02 'ORACLE MAIN DATA:'.WRITE AT /1(30) SY-ULINE. SKIP.
FORMAT INTENSIFIED OFF.
WRITE: /25 'ORACLE_SID:'.
WRITE: 41 SY-SYSID.
SKIP 2.
WRITE: /25 'ORACLE_HOME:'.
WRITE: 41 '/oracle/' NO-GAP, SY-SYSID.
SKIP 2.
WRITE: /25 'ORACLE VERSION:'.
EXEC SQL PERFORMING BETESZ.
  SELECT *
  INTO :BARMI
  FROM V$VERSION WHERE BANNER LIKE '%Server%'
ENDEXEC.
WRITE: /25 'DB. BLOCK SIZE:'.
WRITE: 41 '8K'.
SKIP 2.
WRITE: /25 'LOG MODE:'.
EXEC SQL PERFORMING BETESZ.
  SELECT LOG_MODE
  INTO :BARMI
  FROM V$DATABASE
ENDEXEC.
WRITE: /25 'LOG FILES:'.
EXEC SQL PERFORMING BETESZ.
  SELECT MEMBER
  INTO :BARMI
  FROM V$LOGFILE
ENDEXEC.
SKIP 2.
WRITE: /25 'init.ora:'.
WRITE: 41 '/oracle/' NO-GAP, SY-SYSID(3) NO-GAP, '/dbs/' NO-GAP, 'init'
NO-GAP, SY-SYSID(3) NO-GAP, '.ora'.
SKIP 2.
WRITE: /25 'CONTROL FILES:'.
EXEC SQL .
  SELECT VALUE
  INTO :BARMI
  FROM V$PARAMETER WHERE NAME LIKE 'control_files'
ENDEXEC.
SPLIT BARMI AT ' ' INTO TABLE ITAB.
LOOP AT ITAB.
  WRITE: 41 ITAB-TEXT.
  SKIP 2.
ENDLOOP.
*@ORACLE MEMORY CONFIGURATION
SKIP 2.
FORMAT INTENSIFIED ON.
WRITE: /02 'ORACLE SGA CONFIG.:'.WRITE AT /1(30) SY-ULINE. SKIP 2.
FORMAT INTENSIFIED OFF.
EXEC SQL PERFORMING BETESZ2.
  SELECT NAME, VALUE
  INTO :BARMI, :BARMI2
  FROM V$SGA
ENDEXEC.
SKIP 2.NEW-PAGE.
*@ORACLE PARAMETERS
SKIP 2.
FORMAT INTENSIFIED ON.
WRITE: /02 'ORACLE PARAMETERS:'.WRITE AT /1(30) SY-ULINE.SKIP.
FORMAT INTENSIFIED OFF.
EXEC SQL PERFORMING BETESZ3.
  SELECT SUBSTR(NAME,1,20), SUBSTR(VALUE,1,40)
  INTO :BARMI3, :BARMI
  FROM V$PARAMETER WHERE NAME != 'control_files'
ENDEXEC.
SKIP 2.NEW-PAGE.
*@DB statistics
SKIP 2.
FORMAT INTENSIFIED ON.
WRITE: /02 'TABLESPACE SPACE STATISTICS:'.WRITE AT /1(30) SY-ULINE.
FORMAT INTENSIFIED OFF.
SKIP 2.
WRITE: /
  'NAME                         STATUS      SIZE       FREESPACE',
'      USED   TOT.EXT.  TOT.SEG.'.
SKIP 2.
CALL FUNCTION 'DB_ORA_CURRENT_SIZES'
     TABLES
          TS = TS.
LOOP AT TS.
  WRITE: /
  TS-TS,
*ts-init_ext,
*ts-next_ext,
*ts-min_ext,
*ts-max_ext,
*ts-pct_incr,
  TS-STATUS,
  TS-TSIZE,
  TS-TFREE,
  TS-TPCTUSED,
  TS-TEXTENTS,
  TS-TSEGMENTS.
ENDLOOP.
SKIP 2.NEW-PAGE.
FORMAT INTENSIFIED ON.
WRITE: /02 'TABLESPACE EXTENT STATISTICS:'.WRITE AT /1(30) SY-ULINE.
FORMAT INTENSIFIED OFF.
SKIP 2.
WRITE: / 'NAME'.
WRITE 23 'MAX. CON.'.
WRITE 34 'FREG. NU.'.
WRITE 46 'TOT. FRE.'.
WRITE 58 'LRG. NXT.'.
WRITE 73 'CRT.  NU.'.
SKIP 2.
CALL FUNCTION 'DB_ORA_CRIT_OBJ___FREESPC_STAT'
     TABLES
          TS_CHECK = TC.
LOOP AT TC.
  WRITE: /
TC-TSPC,
TC-MAXBLKFREE,
TC-ANZBLKFREE,
TC-TOTBLKFREE,
TC-MAXNEXTEXT,
TC-CRITICALS1.
ENDLOOP.NEW-PAGE.
*@DATABASE FILES
SKIP 2.
FORMAT INTENSIFIED ON.
WRITE: /02 'DATABASE FILES:'.WRITE AT /1(30) SY-ULINE.
FORMAT INTENSIFIED OFF.
SKIP 2.
WRITE: / 'TABLESPACE'.
WRITE 15 'DATAFILE.'.
WRITE 45 'SIZE (byte)'.
SKIP 2.
EXEC SQL  PERFORMING BETESZ4.
  SELECT TABLESPACE_NAME, FILE_NAME, BYTES
  INTO :BARMI, :BARMI3, :BARMI2
  FROM SYS.DBA_DATA_FILES
ENDEXEC.
SKIP 2.NEW-PAGE.
*@LICENSE DATA
A = '/tmp/a'.
OPEN DATASET A FOR INPUT IN TEXT MODE FILTER 'saplicense -show'.
SKIP 2.
FORMAT INTENSIFIED ON.
WRITE: /02 'LICENSE HISTORY:'.WRITE AT /1(30) SY-ULINE.
FORMAT INTENSIFIED OFF.
SKIP 2.
DO.
  READ DATASET A INTO LINE.
  IF SY-SUBRC <> 0.EXIT.ENDIF.
  WRITE: / LINE.
ENDDO.
CLOSE DATASET A.
SKIP 2.
*@HOT PACKAGES
FORMAT INTENSIFIED ON.
WRITE: /02 'HOT PACKAGES:'.WRITE AT /1(30) SY-ULINE.
FORMAT INTENSIFIED OFF.
SKIP 2.
WRITE /  'NAME'.
WRITE 16 'DESCRIPTION'.
WRITE 53 'STATUS     '.
WRITE 62 'DATE'.
WRITE 70 'APPLIED'.
WRITE 79 'CONFIRM'.
WRITE 87 'BACKUP'.
SKIP 2.
SELECT * FROM PAT03.
  WRITE: / PAT03-PATCH, 16 PAT03-SHORT_TEXT+0(40), PAT03-STATUS,
                                                       PAT03-DELIV_DATE,
  PAT03-RESPONSIBL, PAT03-CONFIRMED, PAT03-BACKUP.
ENDSELECT.
SKIP 2.
*@SAP MEMORY CONFIG
*format intensified on.
*write: /02 'SAP MEMORY CONFIG:'.
*format intensified off.
*skip 2.
SUBMIT RSTUNE57 EXPORTING LIST TO MEMORY AND RETURN.

CALL FUNCTION 'LIST_FROM_MEMORY'
     TABLES
          LISTOBJECT = TAB.
CALL FUNCTION 'WRITE_LIST'
     TABLES
          LISTOBJECT = TAB.
SKIP 2.NEW-PAGE.
*@SYSTEM CHANGE OPTION
FORMAT INTENSIFIED ON.
WRITE: /02 'SYSTEM CHANGE OPTION:'.WRITE AT /1(30) SY-ULINE.
FORMAT INTENSIFIED OFF.
SKIP 2.
SELECT * FROM TADIR WHERE PGMID = 'HEAD'.
  IF TADIR-EDTFLAG = 'N'.FORMAT INTENSIFIED ON.ENDIF.
  WRITE: / 'No changes allowed.'.
  FORMAT INTENSIFIED OFF.
  IF TADIR-EDTFLAG = ' '.FORMAT INTENSIFIED ON.ENDIF.
  WRITE: / 'Only original objects can be changed.'.
  FORMAT INTENSIFIED OFF.
  IF TADIR-EDTFLAG = 'C'.FORMAT INTENSIFIED ON.ENDIF.
  WRITE: / 'All customer object can be changed.'.
  FORMAT INTENSIFIED OFF.
  IF TADIR-EDTFLAG = 'R'.FORMAT INTENSIFIED ON.ENDIF.
  WRITE: / 'All object can be changed.'.
  FORMAT INTENSIFIED OFF.
ENDSELECT.
SKIP 2.
*@CTS SETUP
FORMAT INTENSIFIED ON.
WRITE: /02 'CTS SETUP:'.WRITE AT /1(30) SY-ULINE.
FORMAT INTENSIFIED OFF.
SKIP 2.
WRITE:  'CONSOLIDATION ROUTES'.
WRITE:/ 'RECIPIENT CONSOLIDATION'.
SKIP.
SELECT * FROM TASYS.WRITE:/ TASYS.ENDSELECT.
SKIP 2.
WRITE:  'SAP SYSTEMS'.
WRITE:/ 'SYSTEM    DESCRIPTION                            '.
WRITE: '                    DEVLAYER'.
SKIP.
SELECT * FROM TSYST.WRITE:/ TSYST.ENDSELECT.
SKIP 2.
WRITE:  'ALTERNATE ROUTES'.
WRITE:/ 'SOURCE   CONSOLID.  TARGET'.
SKIP.
SELECT * FROM TWSYS.WRITE:/ TWSYS.ENDSELECT.
SKIP 2.
WRITE: 'DEVELOPMENT LAYERS'.
WRITE:/ 'LYR  INTEGR.   CONSOL.'.
SKIP.
SELECT * FROM DEVL.WRITE:/ DEVL.ENDSELECT.
SKIP 2.NEW-PAGE.
*@CLIENT DATA
FORMAT INTENSIFIED ON.
WRITE: /02 'CLIENT DATA:'.WRITE AT /1(30) SY-ULINE.
FORMAT INTENSIFIED OFF.
SKIP 2.
SELECT * FROM T000.
  WRITE: / 'CLIENT:', 25 T000-MANDT.
  WRITE: / 'DESCRIPTION:', 25 T000-MTEXT.
  WRITE: / 'CHANGED BY:', 25 T000-CHANGEUSER.
  WRITE: / 'CATEGORY:'.
  CASE T000-CCCATEGORY.
    WHEN 'P'.
      WRITE: 25 'Productive'.
    WHEN 'T'.
      WRITE: 25 'Test'.
    WHEN 'C'.
      WRITE: 25 'Customizing'.
    WHEN 'D'.
      WRITE: 25 'Demo'.
    WHEN 'S'.
      WRITE: 25 'SAP reference'.
    WHEN 'E'.
      WRITE: 25 'Training/education'.
  ENDCASE.
  WRITE: / 'CUSTOMIZATION SETUP:'.
  CASE T000-CCCORACTIV.
    WHEN ' '.
      WRITE: 25 'No recording of changes for transport'.
    WHEN '1'.
      WRITE: 25 'Changes are recorded in transport request'.
    WHEN '2'.
      WRITE: 25 'Customizing in this client cannot be changed'.
    WHEN '3'.
 WRITE: 25 'Customizing: Can be changed as req., but cannot be transp.'.
  ENDCASE.
  WRITE: / 'DEVELOPMENT SETUP:'.
  CASE T000-CCNOCLIIND.
    WHEN ' '.
  WRITE: 25 'Changes to repository and client-ind. customizing allowed'.
    WHEN '1'.
      WRITE: 25 'No changes to client-independent customizing objects'.
    WHEN '2'.
      WRITE: 25 'No changes to repository objects'.
    WHEN '3'.
 WRITE: 25 'No changes to Repository and client-independent cust. obj.'.
  ENDCASE.
  SKIP 2.
ENDSELECT.NEW-PAGE.
*@PRINTER DATA
FORMAT INTENSIFIED ON.
WRITE: /02 'PRINTER DATA:'.WRITE AT /1(30) SY-ULINE.
FORMAT INTENSIFIED OFF.
SKIP 2.
SELECT * FROM TSP03.
  WRITE: / 'NAME:', 25 TSP03-PADEST.
  WRITE: / 'DESCRIPTION:', 25 TSP03-PAMSG.
  WRITE: / 'SERVER NAME:', 25 TSP03-PAHOST.
  WRITE: / 'LOCAL HOST:', 25 TSP03-PALPDHOST.
  WRITE: / 'QUEUE:', 25 TSP03-PAOSNAME.
  WRITE: / 'TYPE:', 25 TSP03-PATYPE.
  WRITE: / 'ACCESS TYPE:', 25 TSP03-PAMETHOD.
  WRITE: / 'LPQ FORMAT:', 25 TSP03-PALPQFORM.
  SKIP 2.
ENDSELECT.NEW-PAGE.
*@BATCH JOBS
FORMAT INTENSIFIED ON.
WRITE: /02 'SCHEDULED BATCH JOBS:'.WRITE AT /1(30) SY-ULINE.
FORMAT INTENSIFIED OFF.
SKIP 2.
WRITE: 'NAME', 26 'START DATE/TIME',46 'PERIOD m h d w m',75
'EVENT', 91 'CLASS'.
SKIP 2.
SELECT * FROM TBTCO WHERE STATUS = 'S'.
  WRITE: / TBTCO-JOBNAME(24), TBTCO-SDLSTRTDT, TBTCO-SDLSTRTTM,
  TBTCO-PRDMINS, TBTCO-PRDHOURS, TBTCO-PRDDAYS, TBTCO-PRDWEEKS,
  TBTCO-PRDMONTHS, TBTCO-EVENTID+0(31), TBTCO-JOBCLASS.
ENDSELECT.
SKIP 2.
*@EVENTS
FORMAT INTENSIFIED ON.
WRITE: /02 'EVENTS:'.WRITE AT /1(30) SY-ULINE.
FORMAT INTENSIFIED OFF.
SKIP 2.
WRITE: 'EVENT',34 'DESCRIPTION'.
SKIP 2.
SELECT * FROM BTCUED WHERE LANGUAGE = 'E'.
  WRITE: / BTCUED-EVENTID, BTCUED-DESCRIPT.
ENDSELECT.
SKIP 2.
*@CRONTAB JOBS
A = '/tmp/a'.
OPEN DATASET A FOR INPUT IN TEXT MODE FILTER
'cat /var/spool/cron/crontabs/root'.
SKIP 2.
FORMAT INTENSIFIED ON.
WRITE: /02 'CRONTAB JOBS:'.WRITE AT /1(30) SY-ULINE.
FORMAT INTENSIFIED OFF.
SKIP 2.
DO.
  READ DATASET A INTO LINE.
  IF SY-SUBRC <> 0.EXIT.ENDIF.
  WRITE: / LINE.
ENDDO.
CLOSE DATASET A.
SKIP 2.
*@SAP TIMETABLE
*format intensified on.
*write: /02 'SAP TIMETABLE:'.
*format intensified off.
*skip 2.
SUBMIT RSORAADM EXPORTING LIST TO MEMORY AND RETURN.

CALL FUNCTION 'LIST_FROM_MEMORY'
     TABLES
          LISTOBJECT = TAB.
CALL FUNCTION 'WRITE_LIST'
     TABLES
          LISTOBJECT = TAB.
SKIP 2.NEW-PAGE.
*@USERS, PROFILES
FORMAT INTENSIFIED ON.
WRITE: /02 'USERS, PROFILES:'.WRITE AT /1(30) SY-ULINE.
FORMAT INTENSIFIED OFF.
SKIP 2.
WRITE: / 'CLI', 5 'USER', 18 'PROFILES'.
SKIP 2.
SELECT * FROM USR02 CLIENT SPECIFIED ORDER BY MANDT BNAME.
  SELECT SINGLE * FROM USR04 CLIENT SPECIFIED
  WHERE BNAME = USR02-BNAME AND MANDT = USR02-MANDT.
  FORMAT INTENSIFIED ON.
  WRITE: / USR02-MANDT, USR02-BNAME.
  FORMAT INTENSIFIED OFF.
  SHIFT USR04-PROFS RIGHT BY 10 PLACES.
  DO USR04-NRPRO TIMES.
    SHIFT USR04-PROFS LEFT BY 12 PLACES.
    WRITE: USR04-PROFS+0(12).
  ENDDO.
ENDSELECT.
SKIP 2.NEW-PAGE.
*@OPERATION MODES
FORMAT INTENSIFIED ON.
WRITE: /02 'OPERATION MODES:'.WRITE AT /1(30) SY-ULINE.
DETAIL.
SKIP 2.
WRITE: / 'MODE', 20 'TARGET SYSTEM', 55 'START', 64 'END'.
SKIP 2.
SELECT * FROM BTCOMSET.
  WRITE: / BTCOMSET-MODENAME, BTCOMSET-TARGET, BTCOMSET-STARTTIME,
  BTCOMSET-ENDTIME.
ENDSELECT.
SKIP 2.
*@RFC SETUP
FORMAT INTENSIFIED ON.
WRITE: /02 'RFC SETUP:'.WRITE AT /1(30) SY-ULINE.
DETAIL.
SKIP 2.
WRITE: / 'DESTINATION', 18 'TYPE', 44 'DETAILS'.
SKIP 2.
SELECT * FROM RFCDES WHERE RFCTYPE NE 'I'.
  WRITE: / RFCDES-RFCDEST(18), RFCDES-RFCTYPE, RFCDES-RFCOPTIONS.

ENDSELECT.
SKIP 2.
*@CPIC SETUP
FORMAT INTENSIFIED ON.
WRITE: /02 'CPIC SETUP:'.WRITE AT /1(30) SY-ULINE.
DETAIL.
SKIP 2.
SELECT * FROM TXCOM.
  WRITE: / 'DESTINATION:', 30 TXCOM-SDEST.
  WRITE: / 'LOGICAL UNIT:', 30 TXCOM-LU.
  WRITE: / 'PROGRAM:', 30 TXCOM-TP.
  WRITE: / 'COMMUNICATIONS:', 30 TXCOM-CTYPE.
  WRITE: / 'GATEWAY HOST:', 30 TXCOM-GWHOST.
  WRITE: / 'GW. SERVICE:', 30 TXCOM-GWSERV.
  WRITE: / 'TP NAME:', 30 TXCOM-LONGTP.
  SKIP 2.
ENDSELECT.NEW-PAGE.
*@DEFAULT PROFILE
A = '/sapmnt/'.
A+8(3) = SY-SYSID.
A+11(20) = '/profile/DEFAULT.PFL'.
OPEN DATASET A FOR INPUT IN TEXT MODE.
FORMAT INTENSIFIED ON.
WRITE: /02 'DEFAULT PROFILE:'.WRITE AT /1(30) SY-ULINE.
FORMAT INTENSIFIED OFF.
SKIP 2.
DO.
  READ DATASET A INTO LINE.
  IF SY-SUBRC <> 0.EXIT.ENDIF.
  WRITE: / LINE.
ENDDO.
CLOSE DATASET A.
SKIP 2.NEW-PAGE.
*@INSTANCE PROFILE
A = '/sapmnt/'.
A+8(3) = SY-SYSID.
A+11(9) = '/profile/'.
A+20(3) = SY-SYSID.
A+23(8) = '_DVEBMGS'.
A+31(2) = SYNUM.
A+33(1) = '_'.
A+34(8) = SY-HOST.

OPEN DATASET A FOR INPUT IN TEXT MODE.
FORMAT INTENSIFIED ON.
WRITE: /02 'INSTANCE PROFILE:'.WRITE AT /1(30) SY-ULINE.
FORMAT INTENSIFIED OFF.
SKIP 2.
DO.
  READ DATASET A INTO LINE.
  IF SY-SUBRC <> 0.EXIT.ENDIF.
  WRITE: / LINE.
ENDDO.
CLOSE DATASET A.

*---------------------------------------------------------------------*
*       FORM BETESZ                                                   *
*---------------------------------------------------------------------*
*       ........                                                      *
*---------------------------------------------------------------------*
FORM BETESZ.
  MOVE BARMI TO VALAMI.
  WRITE: 41 VALAMI.
  SKIP 2.
ENDFORM.
*---------------------------------------------------------------------*
*       FORM BETESZ2                                                  *
*---------------------------------------------------------------------*
*       ........                                                      *
*---------------------------------------------------------------------*
FORM BETESZ2.
  MOVE BARMI TO VALAMI.
  MOVE BARMI2 TO VALAMI2.
  WRITE: 41 VALAMI.
  WRITE: 61 VALAMI2.
  SKIP 2.
ENDFORM.
*---------------------------------------------------------------------*
*       FORM BETESZ3                                                  *
*---------------------------------------------------------------------*
*       ........                                                      *
*---------------------------------------------------------------------*
FORM BETESZ3.
  MOVE BARMI TO VALAMI.
  MOVE BARMI3 TO VALAMI3.
  WRITE: /21 VALAMI3.
  WRITE: 45 VALAMI.
ENDFORM.
*---------------------------------------------------------------------*
*       FORM BETESZ4                                                  *
*---------------------------------------------------------------------*
*       ........                                                      *
*---------------------------------------------------------------------*
FORM BETESZ4.
  MOVE BARMI TO VALAMI.
  MOVE BARMI2 TO VALAMI2 .
  MOVE BARMI3 TO VALAMI3.
  WRITE: / VALAMI.
  WRITE: 15 VALAMI3.
  WRITE: 45 VALAMI2.
ENDFORM.