Posted: Sat Nov 17, 2007 6:24 pm Post subject: Complete SAP/UNIX/ORACLE status documentation (HP only)
Code:
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.
You cannot post new topics in this forum You cannot reply to topics in this forum You cannot edit your posts in this forum You cannot delete your posts in this forum You cannot vote in polls in this forum You cannot attach files in this forum You can download files in this forum
All product names are trademarks of their respective companies. SAPNET.RU websites are in no way affiliated with SAP AG. SAP, SAP R/3, R/3 software, mySAP, ABAP, BAPI, xApps, SAP NetWeaver and any other are registered trademarks of SAP AG. Every effort is made to ensure content integrity. Use information on this site at your own risk.
