How to find out if disk drive is faulty already?

Hi Sükrü
You can read the table E071 with the object id and get the transport request number. Use this transport request and read the table E070, the field "TRSTATUS" will give the status whether the object is locked or released.
Hope this helps !
Regards
Ranganath
PS : Reward points if found useful !

Similar Messages

How to find out, if a dynamic genereated structure already exists in DDIC?

Good morning developers,
can you help me with that above mentioned problem?
I'm about to write a report which manages to change tablecontrol(s) to alvgrids.
My current problem is, that i read all fields of a tablecontrol and generate its <b>structure</b> dynamically ( temporary just during runtime of the report, not stored yet ).
Now I have to know, if this generated structure already exists in the DDIC, or not.
If not, i have to create a type of my generated structure and store it in the DDiC.
I know that there s a FM called <b>"COMPARE_STRUCTURE_DATA"</b>.
But i think i have to know the name of the existing structure in DDiC.
Is there also a way for a recursive search in ddic?
If not: when i read the fields of my tablecontrol from the DDiC, i read from ddic-table D021S. In its field "FNAM" it contains for example SFLIGHT-carrid ( <table><column> ).
I could split 'FNAM' into table and column. How do i search for the structuretype of a table?
Thx for your replys, post points waiting
Regards
Basti

Hello Bastian
All dynpro fields (including table controls) are either based on DDIC structures of program variables. Thus, the following coding will return you the required answer.
*& Report ZUS_SDN_RTTI_IS_DDICTYPE
REPORT zus_sdn_rtti_is_ddictype.
TYPE-POOLS: abap.
TYPES: BEGIN OF ty_s_line.
TYPES:   field(3) TYPE n.
TYPES:   flag(1)   TYPE c.
" INCLUDE TYPE knb1.
TYPES: END OF ty_s_line.
TYPES: ty_t_line    TYPE STANDARD TABLE OF ty_s_line
                    WITH DEFAULT KEY.
DATA:
gs_line    TYPE ty_s_line,
gs_knb1    TYPE knb1,
go_tabdescr      TYPE REF TO cl_abap_tabledescr,
go_strucdescr    TYPE REF TO cl_abap_structdescr.
START-OF-SELECTION.
go_strucdescr ?= cl_abap_tabledescr=>describe_by_data( gs_line ).
IF ( go_strucdescr->is_ddic_type( ) = abap_true ).
    WRITE: / 'gs_line is a DDIC type'.
ELSE.
    WRITE: / 'gs_line is not a DDIC type'.
ENDIF.
SKIP.
go_strucdescr ?= cl_abap_tabledescr=>describe_by_data( gs_knb1 ).
IF ( go_strucdescr->is_ddic_type( ) = abap_true ).
    WRITE: / 'gs_knb1 is a DDIC type'.
ELSE.
    WRITE: / 'gs_knb1 is not a DDIC type'.
ENDIF.
END-OF-SELECTION.
However, if a dynpro field is based on a type defined within the program the situation may be more complex if the type includes DDIC structures (as shown above). But I am sure you will master this obstacle.
Regards
Uwe

How do I find out about the driver letter of a usb drive by script, given the DeviceID

Hi all,
I am wondering if it is possible by script to find out what the drive letter of a usb drive might be.
I have just inserted my USB stick into a socked and the operating system displays that the drive was recognized and that the drive letter is F:.
I already know, how USB devices can be listed by WMI script, but how do I extract the drive letter of a USB storage device.
The DeviceID is known, where do I find the drive letter given the DeviceID ?
Disk drive
DeviceID:
USBSTOR\DISK&VEN_SAMSUNG&PROD_YP-U2&REV_0100\4002FDCCE0E4D094&0
Service: disk
Status: OK
SystemName: MEINER
Caption: Samsung YP-U2 USB Device
All help is welcome

@echo off
:: GetLetterOFmyUSBstick.cmd
:: Bye Gastone Canali
::DeviceID: USBSTOR\DISK&VEN_SAMSUNG&PROD_YP-U2&REV_0100\4002FDCCE0E4D094&0
setlocal EnableDelayedExpansion
set PNPDeviceID=4002FDCCE0E4D094
set Q='wmic  diskdrive where "interfacetype="USB" and PNPDeviceID like "%%%PNPDeviceID%%%""    assoc /assocclass:Win32_DiskDriveToDiskPartition'
echo %Q%
for /f "tokens=2,3,4,5 delims=,= " %%a in (%Q%) do (
  set hd=%%a %%b, %%c %%d
  call :_LIST_LETTER !hd!)
goto :_END
:_LIST_LETTER
(echo %1 |find  "Disk ") >nul|| goto :_EOF
for /f "tokens=3 delims==" %%a in ('WMIC Path Win32_LogicalDiskToPartition  ^|find %1') do set TMP_letter=%%a
set Part_letter=%TMP_letter:~1,2%
echo %Part_letter% %1
goto :_EOF
:_END
:_EOF
' ' GetLetterOFmyUSBstick.vbs
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
strPnPdevID = "USBSTOR\DISK&VEN_SAMSUNG&PROD_YP-U2&REV_0100\4002FDCCE0E4D094&0"
strPnPdevID = Replace(strPnPdevID, "\", "\\")
Set colDiskDrives = objWMIService.ExecQuery ("SELECT * FROM Win32_DiskDrive where PNPDeviceID like '"& strPnPdevID &"' ")
For Each objDrive In colDiskDrives
    Wscript.Echo "Physical Disk: " & objDrive.Caption & " -- " & objDrive.DeviceID
    strDeviceID = Replace(objDrive.DeviceID, "\", "\\")
    Set colPartitions = objWMIService.ExecQuery _
        ("ASSOCIATORS OF {Win32_DiskDrive.DeviceID=""" & _
            strDeviceID & """} WHERE AssocClass = " & _
                "Win32_DiskDriveToDiskPartition")
    For Each objPartition In colPartitions
        Wscript.Echo "Disk Partition: " & objPartition.DeviceID
        Set colLogicalDisks = objWMIService.ExecQuery _
            ("ASSOCIATORS OF {Win32_DiskPartition.DeviceID=""" & _
                objPartition.DeviceID & """} WHERE AssocClass = " & _
                    "Win32_LogicalDiskToPartition")
        For Each objLogicalDisk In colLogicalDisks
            Wscript.Echo "Logical Disk: " & objLogicalDisk.DeviceID
        Next
        Wscript.Echo
    Next
    Wscript.Echo
Next

How to find out how much hard disk space is available

how to find out how much hard disk space is available

Right Click on your Mac Hard Drive Icon and Choose Get Info
Look at Available...
If your Mac Hard Drive is not visible on your Desktop...
Goto...
Finder > Preferences > General Tab > and Check Hard Disk.

How to find out web-inf path from the physical drive?

How to find out web-inf path from the physical drive?
I have some user profiles in web-inf directory.SO I want to know the path from root directory like
d:/program files/allaire/jrun/appname/web-inf/profiles/username like that.
Presently I am able to get the path upto the application directory and from that I am concatinationg web-inf/profiles/username .
But it is giving problems when it is deployed under unix or linux.Because web-inf there it treats as WEB_INF
SO I want to get the path of web-inf directory with out hard coding.
Thanku

String path = application.getRealPath("/WEB-INF/profiles/username");
Note sure why you need this, but you don't need the real path to read the file - you can get an InputStream using the relative path. See ServletContext getResource() and getResourceAsStream().

How to find out which type of the driver is used in our application?

Hi all,
can anyone tell me how to find out which type of the driver is used in our application?
Thanks in advance,
Phoeniox

Hi,
Check out this...
Class.forName("com.mysql.jdbc.Driver"); //if u r using MySql
List drivers = Collections.list(DriverManager.getDrivers());
               for(int i=0;i<drivers.size();i++)
                    Driver driver = (Driver)drivers.get(i);
                    String driverName = driver.getClass().getName();
                    System.out.println("Driver "+i+":::"+driverName);
you need to load the driver and display in the same program.
Then only you'l get the required result.
prakhyath

How can we find out the disk which is used for a mount point

How can we find out the disk which is used for a mount point?
one of our mount point(/u03/oracle/prod) was using high I/O and this was causing slowness in the server.
I can see a disk operation error in errpt at the same time as below. Wanted to check whether the mount point /u03/oracle/prod is using the disk hdisk31
$errpt|more
IDENTIFIER TIMESTAMP T C RESOURCE_NAME DESCRIPTION
DXB78877 1125032114 T H hdisk31 DISK OPERATION ERROR
OS version:AIX 6.1
DB:11.2.0.2

this is the output for cat /etc/filesystem
/u02:
        dev             = /dev/fslv00
        vfs             = jfs2
        log             = /dev/loglv00
        mount           = true
        options         = rw
        account         = false
/u01:
        dev             = /dev/fslv01
        vfs             = jfs2
        log             = /dev/loglv00
        mount           = true
        options         = rw
        account         = false

How to find out the "manufacture date"?

Hello!
Can you tell me how to find out the manufacture date of my Satellite A110-334 with the serial "SY6224123K"?
I need this information for my insurance!
I found only this link for HDD`s: http://www.storage.toshiba.eu/index_manual.php?pid=220&sid=536&la=en
But there is no "S" on the first digit!??
So it is maybe "Y6" which can be November 2006! Is this right?
Thank you!
===========
This is the information on the link above:
How to encode a Toshiba Hard Disk Drive Serial Number?
The Toshiba serial number (S/N) includes details of the date of manufacture. The first digit of the serial number indicates the Month of manufacture and the 2nd digit indicates the Year.
Example:
M Y x x x x x x x
M = Month
Y = Year
The month digit goes from 1, for January, through to 9, for September, and then X, Y and Z, for October, November and December.
Examples:
2 8 1 7 0 0 0 1 A
2 = February
8 = 1998
3 0 5 4 4 3 0 6 T
3 = March
0 = 2000
X 9 D 7 8 3 3 1 T
X = October
9 = 1999
The remaining digits contain information about factory and production line, and some digits are reserved for a continuously running serial number.

Hello
Try with http://gedb.toshiba.com/
Let me know if you find info you need.

How to find out what is the lock key for the computer

How to find out what is the lock key for the computer?

You don't.
If you forgot or lost the password, all you can practically do is reset it.
The manner in which you do so depends on what version of OS X you are running. The older versions utilize the reset password utility on your recovery/re-installation disk/drive.
On Lion, you use the following technique to reset the Administrators password:
Boot to your Lion Recovery Partition, by holding down the Option key while starting, and then selecting the Recovery HD as the boot choice.
Once booted, at the top of the screen is a menu ..., select Utilities / Terminal from the menu bar.
In the Terminal window, type “resetpassword” (without the quotes) and press return. A “Reset Password” window will open. Select your boot volume (your SSD drive) if it is not already selected. Select your administrators username from the menu labeled “Select the user account” if it is not already selected. Follow the prompts to reset the password. Restart the computer from the apple menu.

How to find out which C library I am using?

On my Solaris 9 UltraSparc system,
% echo $LD_LIBRARY_PATH
/opt/gcc/3.4.4/lib:/opt/glib/2.12.1/lib:/opt/gnome/lib:/opt/openssl/0.9.7g/lib
% /usr/lib/libc.so
usage: ld.so.1 [-e option,...] dynamic-object [object args,...]
On my Solaris 10 x86 system,
% echo $LD_LIBRARY_PATH
/pkg/gcc/4.2.1/lib:/opt/gcc/current/lib:/opt/glib/2.10.1/lib:/usr/sfw/lib:/usr/lib/mps:/opt/openldap/lib:/opt/openssl/current/lib
% /usr/lib/libc.so
usage: ld.so.1 [-e option,...] dynamic-object [object args,...]
On my Linux/x86 system,
% echo $LD_LIBRARY_PATH
/opt/openssl/0.9.7g/lib:/opt/gcc/3.4.4/lib:/opt/binutils2.13/lib:/opt/glib/2.12.1/lib:/opt/java/j2sdk1.4.1_01/lib
% /lib/libc.so.6
GNU C Library stable release version 2.6.1, by Roland McGrath et al.
From the above, can one tell what C library I am linking to on the Solaris systems? If not, how can one tell? How do I know the exact location of the C library I am using?
On the Linux/x86 system, I can use gnu_get_libc_version() to find out the version of glibc I am supposedly using. But it does not work when I compiled the identical C program using gcc on the Solaris 9/UltraSparc and Solaris 10/x86 systems. If I can use gnu_get_libc_version() , does that mean for sure that my C program links to glibc? On the other hand, if the linker reports that gnu_get_libc_version() is not found, does that mean for sure that my C program is not linked to glibc?
Is there a function on the Sun libc similiar to gnu_get_libc_version()?
http://docs.sun.com/source/819-3690/Using.Libs.html says "The Solaris operating system comes with several libraries installed in /usr/lib. Most of these libraries have a C interface. Of these, the libc and libm, libraries are linked by the CC driver by default." If one wants to link to the glibc library, how to override the default? How to find out the default? Is it in some environ variable? If one changes the CC driver to gcc, does the default remain the Sun libc? And if one compiles explictly using gcc, i.e. "gcc myprog.c", is the default C library the Sun Library, or glibc?
gnu.org has a (web page for the) glibc manual but I am not able to find a Sun C Library Manual. Is there one?
Edited by: hzmonte on Jun 28, 2008 1:43 AM

I'll discuss only the Sun C compiler here. For questions about gcc, look in the gcc manual, or try a gcc forum.
Run the command "ldd" on an executable file or shared library, and it will report the shared libraries that it will link to, based on any runpath in the file, and on LD_LIBRARY_PATH. Example: % echo $LD_LIBRARY_PATH
LD_LIBRARY_PATH: Undefined variable
% cc hello.c
% ldd a.out
        libc.so.1 =>     /lib/libc.so.1
        libm.so.2 =>     /lib/libm.so.2
        /platform/SUNW,A70/lib/libc_psr.so.1 BTW, except possibly for testing, there is usually no need to set LD_LIBRARY_PATH, and setting it is usually a bad idea. For more on this topic see Rod Evans' blog:
[http://blogs.sun.com/rie/entry/tt_ld_library_path_tt]
Prefer to set a runpath in the executable so that no client needs to set LD_LIBRARY_PATH.
If you want to know what libraries the C compiler will link, based on a given command line, you can add the -v (verbose) option, which will display each subcommand. Or you can use the -### option, which shows what commands would be run. Example: % cc -### hello.c
### Note: NLSPATH = \
/opt/SUNWspro/prod/bin/../lib/locale/%L/LC_MESSAGES/%N.cat:/opt/SUNWspro/prod/bin/../../lib/locale/%L/LC_MESSAGES/%N.cat
###     command line files and options (expanded):
### hello.c
/opt/SUNWspro/prod/bin/acomp -xldscope=global -i hello.c -y-fbe -y/opt/SUNWspro/prod/bin/fbe -y-xarch=generic \
-y-xmemalign=8i -y-o -yhello.o -y-verbose -y-xthreadvar=no%dynamic -y-comdat -xdbggen=no%stabs+dwarf2+usedonly \
-xdbggen=incl -y-s -m32 -fparam_ir -Qy -D__SunOS_5_10 -D__SUNPRO_C=0x590 -D__SVR4 -D__sun -D__SunOS -D__unix \
-D__sparc -D__BUILTIN_VA_ARG_INCR -D__C99FEATURES__ -Xa -D__PRAGMA_REDEFINE_EXTNAME -Dunix -Dsun \
-Dsparc -D__RESTRICT -xc99=%all,no%lib -D__FLT_EVAL_METHOD__=0 -I/opt/SUNWspro/prod/include/cc \
"-g/opt/SUNWspro/prod/bin/cc -c " -fsimple=0 -D__SUN_PREFETCH -destination_ir=yabe
### Note: LD_LIBRARY_PATH = <null>
### Note: LD_RUN_PATH = <null>
/usr/ccs/bin/ld /opt/SUNWspro/prod/lib/crti.o /opt/SUNWspro/prod/lib/crt1.o /opt/SUNWspro/prod/lib/misalign.o \
/opt/SUNWspro/prod/lib/values-xa.o hello.o -Y "P,/opt/SUNWspro/prod/lib/sparc:/opt/SUNWspro/prod/lib:/usr/ccs/lib:/lib:/usr/lib" \
-Qy -lc /opt/SUNWspro/prod/lib/crtn.oThe basic runtime support library is /lib/libc.so.1, on any version of Solaris, used by every compiler version. You can check the patch version of the library by running
showrev -p | grep <patch>
where <patch> is the patch number for the library. The patch number depends on the Solaris version. You can get more information at [http://sunsolve.sun.com].
There is no manual specifically for the C library. There is a Solaris man page for each function in the library, and you can check the C Users Guide and the Solaris Linker and Libraries Guide for additional information.

How to find out which user create folder

how to find out which user create folder in shared drive?

Hello,
you have to enable Auditing in on the DCs OU and also on the top folder level where this should be monitored.
http://technet.microsoft.com/en-us/library/cc784387(v=ws.10).aspx
http://support.microsoft.com/kb/310399
Best regards
Meinolf Weber
MVP, MCP, MCTS
Microsoft MVP - Directory Services
My Blog: http://msmvps.com/blogs/mweber/
Disclaimer: This posting is provided AS IS with no warranties or guarantees and confers no rights.

How to find out the versions of family pack and mini pack installed?

There are family pack and mini pack for HRMS.
How to find out the versions of family pack and mini pack installed
just by a Unix command or sqlplus Select statement?
Thanks

you can get the Minipack version of the products by querying fnd_product_installations or ad_patchdriver_minipks, for family packs you need to query through Metalink, OR if you have u driver file which resides on $AY_TOP/discoverer, looks for the minipacks/familypack version in the driver file.

How to find out whether it is shared Appl_top?

How to find out whether it is shared Appl_top?

Hi,
In a Shared APPL_TOP installation, the APPL_TOP and the COMMON_TOP file systems are installed on a shared disk resource mounted to each node in the system. These nodes can be used to provide standard application tier services, such as Forms, Web, and Concurrent processing. Any changes made in the shared APPL_TOP file system are immediately visible on all nodes.
Note that each node continues to have a separate Applications techstack installation.
I have given the concept of shared Appl_TOP , so that you can understand "How to find out whether it is shared Apll_TOP".
Hope, this will help you.

How to find out the user-exits?

hi.
how to find out the user-exits?
regards
eswar.

Hi,
*& Report ZEXITFINDER
*report zexitfinder.
*& Enter the transaction code that you want to search through in order
*& to find which Standard SAP User Exits exists.
*& Tables
tables : tstc, "SAP Transaction Codes
tadir, "Directory of Repository Objects
modsapt, "SAP Enhancements - Short Texts
modact, "Modifications
trdir, "System table TRDIR
tfdir, "Function Module
enlfdir, "Additional Attributes for Function Modules
tstct. "Transaction Code Texts
*& Variables
data : jtab like tadir occurs 0 with header line.
data : field1(30).
data : v_devclass like tadir-devclass.
*& Selection Screen Parameters
selection-screen begin of block a01 with frame title text-001.
selection-screen skip.
parameters : p_tcode like tstc-tcode obligatory.
selection-screen skip.
selection-screen end of block a01.
*& Start of main program
start-of-selection.
Validate Transaction Code
select single * from tstc
where tcode eq p_tcode.
Find Repository Objects for transaction code
if sy-subrc eq 0.
select single * from tadir
where pgmid = 'R3TR'
and object = 'PROG'
and obj_name = tstc-pgmna.
move : tadir-devclass to v_devclass.
if sy-subrc ne 0.
select single * from trdir
where name = tstc-pgmna.
if trdir-subc eq 'F'.
select single * from tfdir
where pname = tstc-pgmna.
select single * from enlfdir
where funcname = tfdir-funcname.
select single * from tadir
where pgmid = 'R3TR'
and object = 'FUGR'
and obj_name = enlfdir-area.
move : tadir-devclass to v_devclass.
endif.
endif.
Find SAP Modifactions
select * from tadir
into table jtab
where pgmid = 'R3TR'
and object = 'SMOD'
and devclass = v_devclass.
select single * from tstct
where sprsl eq sy-langu
and tcode eq p_tcode.
format color col_positive intensified off.
write:/(19) 'Transaction Code - ',
20(20) p_tcode,
45(50) tstct-ttext.
skip.
if not jtab[] is initial.
write:/(95) sy-uline.
format color col_heading intensified on.
write:/1 sy-vline,
2 'Exit Name',
21 sy-vline ,
22 'Description',
95 sy-vline.
write:/(95) sy-uline.
loop at jtab.
select single * from modsapt
where sprsl = sy-langu and
name = jtab-obj_name.
format color col_normal intensified off.
write:/1 sy-vline,
2 jtab-obj_name hotspot on,
21 sy-vline ,
22 modsapt-modtext,
95 sy-vline.
endloop.
write:/(95) sy-uline.
describe table jtab.
skip.
format color col_total intensified on.
write:/ 'No of Exits:' , sy-tfill.
else.
format color col_negative intensified on.
write:/(95) 'No User Exit exists'.
endif.
else.
format color col_negative intensified on.
write:/(95) 'Transaction Code Does Not Exist'.
endif.
Take the user to SMOD for the Exit that was selected.
at line-selection.
get cursor field field1.
check field1(4) eq 'JTAB'.
set parameter id 'MON' field sy-lisel+1(10).
call transaction 'SMOD' and skip first screen.
Regards

How to find out the Transactions used per month & the USER who used that

Hi,
1)How to find out the Transactions used per month & the USER who used that?
2)and can i get the above same for minimum 20 month?
System : SAP- Enterprise Core Component.

You can use my program...
*& Report Z_ABAP_TCODE_MONITOR
*****& Program Type          : Report                                 *
*****& Title                 : Z_ABAP_TCODE_MONITOR                   *
*****& Transaction code      : ZTCODE_USAGE                           *
*****& Developer name        : Shailendra Kolakaluri                  *
*****& Deveopment start date : 26 th Dec 2011                         *
*****& Development Package   : ZDEV                                   *
*****& Transport No          : DEVK906086                                       *
*****& Program Description   : This program is to display
*List all tcodes executed during previous day.
*& Show the number of users executing tcodes
*& Modification history
REPORT Z_ABAP_TCODE_MONITOR.
*& List all tcodes executed during previous day.
*& Show the number of users executing tcodes
TYPE-POOLS : slis.
DATA: ind TYPE i,
      fcat TYPE slis_t_fieldcat_alv WITH HEADER LINE,
      layout TYPE slis_layout_alv,
      variant TYPE disvariant,
      events TYPE slis_t_event WITH HEADER LINE,
      heading TYPE slis_t_listheader WITH HEADER LINE.
*REPORT z_report_usage.
TYPES: BEGIN OF zusertcode,
date   TYPE swncdatum,
user   TYPE swncuname,
mandt     TYPE swncmandt,
tcode     TYPE swnctcode,
report TYPE swncreportname,
count     TYPE swncshcnt,
END OF zusertcode.
*data   : date type n.
DATA: t_usertcode TYPE swnc_t_aggusertcode,
      wa_usertcode TYPE swncaggusertcode,
      wa           TYPE zusertcode,
      t_ut         TYPE STANDARD TABLE OF zusertcode,
      wa_result    TYPE zusertcode,
      t_result     TYPE STANDARD TABLE OF zusertcode.
PARAMETER: month TYPE dats DEFAULT sy-datum.
*PARAMETER: date TYPE dats.
*select-options : username for wa_usertcode-account.
START-OF-SELECTION.
PERFORM get_data.
PERFORM get_fieldcatalog.
PERFORM set_layout.
PERFORM get_event.
PERFORM get_comment.
PERFORM display_data.
FORM get_data .
*date = sy-datum - 2 .
After start-of-selection add this line (parameter Month required 01 as day).
concatenate month+0(6) '01' into month.
CALL FUNCTION 'SWNC_COLLECTOR_GET_AGGREGATES'
    EXPORTING
      component     = 'TOTAL'
      ASSIGNDSYS    = 'DEV'
      periodtype    = 'M'
      periodstrt    = month
    TABLES
      usertcode     = t_usertcode
    EXCEPTIONS
      no_data_found = 1
      OTHERS        = 2.
wa-date = month.
*wa-date = date.
wa-mandt = sy-mandt.
wa_usertcode-account = username.
LOOP AT t_usertcode INTO wa_usertcode.
    wa-user = wa_usertcode-account.
    IF wa_usertcode-entry_id+72 = 'T'.
      wa-tcode = wa_usertcode-entry_id.
      wa-report = space.
    ELSE.
      wa-tcode = space.
      wa-report = wa_usertcode-entry_id.
    ENDIF.
    COLLECT wa INTO t_ut.
ENDLOOP.
SORT t_ut BY report ASCENDING.
CLEAR: wa, wa_result.
endform.
FORM get_fieldcatalog .
fcat-tabname     = 't_ut'.
fcat-fieldname   = 'DATE'.
fcat-seltext_l   = 'Date'.
fcat-key         = 'X'.
APPEND fcat.
CLEAR fcat.
fcat-tabname     = 't_ut'.
fcat-fieldname   = 'MANDT'.
fcat-seltext_l   = 'Client'.
fcat-key         = 'X'.
APPEND fcat.
CLEAR fcat.
fcat-tabname     = 't_ut'.
fcat-fieldname   = 'USER'.
fcat-seltext_l   = 'User Name'.
fcat-key         = 'X'.
APPEND fcat.
CLEAR fcat.
fcat-tabname     = 't_ut'.
fcat-fieldname   = 'TCODE'.
fcat-seltext_l   = 'Transaction Code'.
fcat-key         = 'X'.
APPEND fcat.
ENDFORM.
*&      Form SET_LAYOUT
      text
--> p1        text
<-- p2        text
FORM set_layout .
layout-colwidth_optimize = 'X'.
ENDFORM.                    " SET_LAYOUT
*&      Form GET_EVENT
      text
--> p1        text
<-- p2        text
*FORM get_event .
events-name = slis_ev_top_of_page.
events-form = 'TOP_OF_PAGE'.
APPEND events.
*ENDFORM.                    " GET_EVENT
**&      Form GET_COMMENT
      text
--> p1        text
<-- p2        text
*FORM get_comment .
DATA: text(30).
text = 'Billing Report'.
heading-typ = 'H'.
heading-info = text.
APPEND heading.
*ENDFORM.                    " GET_COMMENT
**&      Form top_of_page
      text
--> p1        text
<-- p2        text
*FORM top_of_page .
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
   EXPORTING
     it_list_commentary       = heading[]
I_LOGO                   =
I_END_OF_LIST_GRID       =
*ENDFORM.                    " top_of_page
*&      Form DISPLAY_DATA
      text
--> p1        text
<-- p2        text
FORM display_data .
sort t_ut[].
DELETE ADJACENT DUPLICATES FROM t_ut[] COMPARING ALL FIELDS.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      i_callback_program = sy-cprog
      is_layout          = layout
      it_fieldcat        = fcat[]
      i_save             = 'A'
      is_variant         = variant
      it_events          = events[]
    TABLES
      t_outtab           = t_ut
    EXCEPTIONS
      program_error      = 1
      OTHERS             = 2.
IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
ENDFORM.                    " DISPLAY_DATA

How to find out if disk drive is faulty already?

Similar Messages

Maybe you are looking for