Check the program version..
Hi All.
I must compare object versions of DEV with PRD.
The number of object is about 150 including programs, tables and etc.
I only want to know that the Request number for the activated version between two systems is same or not.
How to do it?
If you have a program or a SQL, give to me.. please...
Thank you in advance.
Best Regards.
kil-nam.
Message was edited by: Kil-Nam Kim
hi kim ,
u hav a version management for the object in versions --version management .
now open transaction se03 transport organizer tools .
give the request number of the same in ur DEV server.
now open se03 in SE03 in PRD server.
giv the request no in here and check it .
this will give u teh match whether activated version is same or not.
u can use SE01 also , but se03 is user friendly.
second alternative is
goto table E071 and execute .
in here u giv the object name in the select options this will giv u all the include objects /dependent objects which is present .
so u can compare the same with PRD and DEV.
also check tables E070 etc ..
regards,
vijay.
Similar Messages
-
How to check the JDK version of a compiled java file
can anybody tell me how to check the JDK version of a compiled java file ?
Edited by: gbhatia8 on Sep 9, 2010 7:04 AMThe major/minor version of the class file is the way to go.
Also, it's not necessary to write a separate program to get to those. javap prints them out when being passed the -v flag.
Note, however that "JDK version" is not a correct term, as I can create 1.4-compatible class files with a Java 6 JDK (by passing the -target flag to javac). Those won't look any different than .class files written with a 1.4 JDK. -
How to check the verity version in our PeopleSoft Installation?
How to check the verity version in our PeopleSoft Installation? I am not sure if the verity is installed or not and also if installed what is the version?
yes. it says the version is 5.0.1
Is there any difference in installation or configuration when the app and web server are in same machine and when the app and web server are installed in different servers?
============================================
D:\fs840\webserv\peoplesoft>mkvdk
mkvdk - Verity, Inc. Version 5.0.1 (_nti40, Jul 23 2004)
Usage: mkvdk [<option>...] <filespec>...
Where <option> can be a VDK switch, or any of:
-about Show the collection's about resources
-autodel Delete bulk insert file when no longer needed
-backup <dir> Specify collection backup location
-bulk Submit bulk insert file(s)
-charmap <name> Specify the character map to VDK
-collection <path> Specify the collection (required)
-create Create the collection
-credentials <user> Specify user[:passwd][:domain][:mailbox]
-datapath <path> Specify VDK datapath
-datefmt <fmt> Specify date format to VDK
-debug Enable debugging output
-delete Delete documents
-description <desc> Set the collection's description
-diskcache <num> Set VDK's disk cache size (kbytes)
-extract Extract field values from text
-help Print this usage information
-insert Insert documents (default)
-locale <locale> Specify the locale to VDK
-logfile <file> Save output in a log file
-loglevel <num> Set the VDK output level for the log
-mailboxes This option is depracated. Use the credentials option inste
ad
-maxfiles <num> Set VDK's maximum number of open files
-maxmemory <num> Set VDK's maximum memory usage (kbytes)
-mode <mode> Set the indexing mode
-modify Modify fields using field/value pairs from a bulkfile
-nohousekeep Disable housekeeping
-noindex Disable indexing
-nolock Turns off locking (dangerous)
-nooptimize Disable optimizations
-nosave Don't save collection work list
-noservice Prevents servicing of submitted work
-nosubmit Don't submit work to VDK
-numdocs <num> Number of documents to insert from bulk insert file(s)
-numpages <num> Synonym for diskcache for backward compatibility
-offset <num> Specify offset into bulk insert file(s)
-online Flag for online Bulk Modify
-optimize <spec> Optimize the collection
-outlevel <num> Set the VDK output level
-persist Service the collection forever
-purge Remove all documents from collection
-purgeback Purge in the background
-purgewait <secs> Specify delay before purge
-quiet Suppress all non-error messages
-repair Repair the collection
-servlev <spec> Advanced option for overriding service level
-sleeptime <secs> Interval between service calls for persist
-style <dir> Specify style directory for create
-submit Synonym for noservice for backward compatibility
-synch Perform work synchronously
-topicset <path> Specify VDK topic set
-update Update documents
-vdkhome <path> Specify VDK home
-verbose Output more information
-words Build word assist list
-wordindex Build word assist index
The <spec> for -optimize is a hyphenated string of:
maxmerge Perform maximal merging of partitions
squeeze Recover space from deleted documents
vdbopt Build optimized VDB's
spanword Create word list spanning all partitions
ngramindex Create ngram index into spanning word list
maxclean Really clean (not for read-write)
readonly Make the collection read-only
tuneup Fully optimize for read-write use
publish Fully optimize for read-only use
The <spec> for -servlev is a hyphenated string of:
search Enable search and retrieval
insert Enable adding and updating documents
optimize Enable opportunistic collection optimization
assist Enable building of word list
housekeep Enable housekeeping of unneeded files
delete Enable document deletion
backup Enable backup
purge Enable background purging
repair Enable collection repair
dataprep Same as search-index-optimize-assist-housekeep
index Same as insert-delete
Error: must specify collection
mkvdk done
D:\fs840\webserv\peoplesoft> -
Checking the ADF version on EBS environment
How to check the ADF version on an EBS environment for 12.2 branch
Not sure if this is what you are looking for as I don't know too much about ESB, but you can try Terre web service I developed here http://wp.me/pcBZk-eI
Timo -
How to check the firmware version of my MSI DR8-A
Hi guys,
How do I check the firmware version of my DVD writer MSI DR8-A ?
I just bought this DVD writer, burned a DVD using a Melody DVD disc.
And have problem reading it.
Does it have anything to do with the firmware version?
Is there a list of recommended DVD disc to be used with this burner ?
Thanks a lot !!!Click Start, then Run and then type msinfo32.
When the box pops up it'll have the options for your listed components. Open this tree and find your DVD-RW. To the right it will list your firmware for this drive.
I do not know of any problems with these drives and certain media, but then again I haven't used any yet as I've only just got the drive. Don't scare me. -
How to check the firmware version of my DR8?
Hi,
How to check the firmware version of my DR8?Go to:
http://www.cdspeed2000.com/
to get the software Nero CD-DVD Speed V2.11. -
How to check the OLite version and isntalled patches?!
Hi,
A couple of months ago we installed the consolidated patch 9535503 in the Mobile Server version (10.3.0.2.0). All the clients (WIN32) were supossed to make a synchronization with mSync.exe and install the patch when exit the sync (similar to first installation)
There is now a client which faces the same bug (or this looks like) and i don't know how to check if it is possible to check if the above patch has been installed in the client or not.
Any idea?
Thanks in advance...
Tomeuthe device manager should be running, if not start it up. the client version should be on the main display screen, and you can see the individual component versions in file>version
If it is patches you are looking for, open the polite.ini file and there should be a section at the end [DMC.UPDATE] that should show the installed patches -
Regarding checking the objects versions after transporting
Hi
we are doing transportation from DEV to QAS. what we have done is
we have collected all master data objects,data sorses,transformations,dtps,process chains into different transport recquests and releases the recquests ,and imported recq in QAS.
now our recq is to check whether all master data objects,data sorses,transformations,dtps,process chains are transported or not
if transported have to check all obj are in active version or not.
at present we are follwing below procedure
a) go to se09 in DEV and select 1 recq and check the objects list under that recq then copy one obj and check in QAS,the same procedure for all objects, but we are having 100 recquests, under each recq we are having many objects.
if we follow that it wil take days,so is there any procedure to check
are there any tables where we can check fast and minimise the time.am not sure about the object status however can get list of objects in your transports from below process :
Go to table E071 and give your request numbers as input. It will give you list of all the objects contained in those requests.
Now object will be of different types , IOBJ - Infoobjects , ODSO - ODS , MPRO - Multiprovider , TRFN - Transformation etc. -
Extended program check - The program ZZZ does not exist as a main program
Program ZZZ is the Include program of program AAA. I dont understand this error on Extended program check."The program ZZZ does not exist as a main program"
why are you runnign Code inspector the include program.You shoudl check only your main programs
-
How to send Mail to external system - Check the program ?
Hi all,
The following is a ABAP Program to Send a mail to external mail id. this program is not showing error but when executed it say "No message sent"
what i've to do to overcome this hurdles. if any solution or prerequisites then '
please give me a solution.
PARAMETERS: psubject(40) type c default 'Hello',
p_email(40) type c default '[email protected]' .
data: it_packing_list like sopcklsti1 occurs 0 with header line,
it_contents like solisti1 occurs 0 with header line,
it_receivers like somlreci1 occurs 0 with header line,
it_attachment like solisti1 occurs 0 with header line,
gd_cnt type i,
gd_sent_all(1) type c,
gd_doc_data like sodocchgi1,
gd_error type sy-subrc.
data: it_message type standard table of SOLISTI1 initial size 0
with header line.
*START-OF-SELECTION.
START-OF-SELECTION.
Perform populate_message_table.
*Send email message, although is not sent from SAP until mail send
*program has been executed(rsconn01)
PERFORM send_email_message.
*Instructs mail send program for SAPCONNECT to send email(rsconn01)
perform initiate_mail_execute_program.
*& Form POPULATE_MESSAGE_TABLE
Adds text to email text table
form populate_message_table.
Append 'Email line 1' to it_message.
Append 'Email line 2' to it_message.
Append 'Email line 3' to it_message.
Append 'Email line 4' to it_message.
endform. " POPULATE_MESSAGE_TABLE
*& Form SEND_EMAIL_MESSAGE
Send email message
form send_email_message.
Fill the document data.
gd_doc_data-doc_size = 1.
Populate the subject/generic message attributes
gd_doc_data-obj_langu = sy-langu.
gd_doc_data-obj_name = 'SAPRPT'.
gd_doc_data-obj_descr = psubject.
gd_doc_data-sensitivty = 'F'.
Describe the body of the message
clear it_packing_list.
refresh it_packing_list.
it_packing_list-transf_bin = space.
it_packing_list-head_start = 1.
it_packing_list-head_num = 0.
it_packing_list-body_start = 1.
describe table it_message lines it_packing_list-body_num.
it_packing_list-doc_type = 'RAW'.
append it_packing_list.
Add the recipients email address
clear it_receivers.
refresh it_receivers.
it_receivers-receiver = p_email.
it_receivers-rec_type = 'U'.
it_receivers-com_type = 'INT'.
it_receivers-notif_del = 'X'.
it_receivers-notif_ndel = 'X'.
append it_receivers.
Call the FM to post the message to SAPMAIL
call function 'SO_NEW_DOCUMENT_ATT_SEND_API1'
exporting
document_data = gd_doc_data
put_in_outbox = 'X'
importing
sent_to_all = gd_sent_all
tables
packing_list = it_packing_list
contents_txt = it_message
receivers = it_receivers
exceptions
too_many_receivers = 1
document_not_sent = 2
document_type_not_exist = 3
operation_no_authorization = 4
parameter_error = 5
x_error = 6
enqueue_error = 7
others = 8.
Store function module return code
gd_error = sy-subrc.
Get it_receivers return code
loop at it_receivers.
endloop.
endform. " SEND_EMAIL_MESSAGE
*& Form INITIATE_MAIL_EXECUTE_PROGRAM
Instructs mail send program for SAPCONNECT to send email.
form initiate_mail_execute_program.
wait up to 2 seconds.
if gd_error eq 0.
submit rsconn01 with mode = 'INT'
with output = 'X'
and return.
endif.
endform. " INITIATE_MAIL_EXECUTE_PROGRAM
Thanks in Advance,
ManianHi,
I can get the idea but i'm asking u about the prerequisites such as SCOT - sap connect or something else has to be done before executing the program.
if i need any pls let me know?
I've tried the program but it say " No Message sent" and i didn't get any mail to mail id.
thanks in advance,
Manian. -
Urgent ..... check the program code,
The below is my code, my superior say that ,this is not correct
he suggest me not use OCCUR or With header line,
And even is there anything worng in ''Start od selection''
so anyone check my code and tell me what is worng in it and what correct is required
Tables: LIKP, LIPS, VBRK, VBRP, KNA1, MARA, MAKT, vbpa, VBAK.
DATA : itab type STANDARD TABLE OF ZTARA_STRUC WITH HEADER LINE.
Select-options: so_kunnr for kna1-kunnr,
So_Fkdat for vbrk-fkdat.
data : container type ref to cl_gui_custom_container,
grid type ref to cl_gui_alv_grid,
fieldcat type lvc_t_fcat.
DATA : lt_vbrk type STANDARD TABLE OF vbrk WITH HEADER LINE,
lt_vbrp TYPE STANDARD TABLE OF vbap WITH HEADER LINE,
lt_VBAK TYPE STANDARD TABLE OF VBAK WITH HEADER LINE,
lt_veda TYPE STANDARD TABLE OF veda WITH HEADER LINE,
lt_kna1 TYPE STANDARD TABLE OF KNA1 WITH HEADER LINE,
it_vbak type standard table of vbak with header line.
Start-of-selection.
so_kunnr = so_kunnr-low.
So_Fkdat = So_Fkdat-low.
SELECT kunnr Name1 ort01 FROM KNA1 INTO CORRESPONDING FIELDS OF TABLE lt_kna1
WHERE kunnr in so_kunnr.
loop at lt_kna1.
itab-CUSTOMER_NUMBER = lt_kna1-kunnr.
itab-CUSTOMER_NAME = lt_kna1-Name1.
itab-city = lt_kna1-ort01.
SELECT vbeln fkdat kunag FROM VBRK INTO CORRESPONDING FIELDS OF TABLE lt_vbrk
WHERE kunag = itab-CUSTOMER_NUMBER
AND Fkdat in So_Fkdat.
if sy-SUBRC = 0.
LOOP AT lt_vbrk.
itab-SOLD2PARTY = lt_kna1-kunnr.
itab-INVOICE_DATE = lt_vbrk-Fkdat.
itab-Vbeln = lt_vbrk-Vbeln.
SELECT POSNR Matnr ARKTX FROM vbrp INTO CORRESPONDING FIELDS OF TABLE lt_vbrp
WHERE vbeln = itab-Vbeln.
LOOP AT lt_vbrp.
itab-MATERIAL_DESCRIP = lt_vbrp-ARKTX.
SELECT AUDAT FROM VBAK INTO CORRESPONDING FIELDS OF TABLE lt_VBAK
WHERE VBELN = itab-VBELN.
LOOP AT lt_VBAK.
itab-AUDAT = lt_VBAK-AUDAT.
SELECT VBEGDAT VENDDAT FROM veda INTO CORRESPONDING FIELDS OF TABLE lt_veda
WHERE VBELN = itab-CUSTOMER_NUMBER.
LOOP AT lt_veda.
itab-VBEGDAT = lt_veda-VBEGDAT.
itab-VENDDAT = lt_veda-VENDDAT.
ENDLOOP.
ENDLOOP.
ENDLOOP.
ENDLOOP.
ENDLOOP.
*select * FROM vbak INTO CORRESPONDING FIELDS OF TABLE it_vbak
WHERE VBELN = itab-VBELN
and ERDAT = itab-invoice_date.
*LOOP AT it_vbak.
*itab-VBELN = it_vbak-VBELN.
itab-INVOICE_DATE = it_vbak-ERDAT.
APPEND itab.
*ENDLOOP.
else.
exit.
endif.
APPEND itab.
ENDLOOP.
call screen 9000.
*& Module STATUS_9000 OUTPUT
text
MODULE STATUS_9000 OUTPUT.
SET PF-STATUS 'MAIN MENU'.
SET TITLEBAR 'TITLE'.
CREATE OBJECT CONTAINER
EXPORTING
PARENT =
CONTAINER_NAME = 'CUS_CONTAINER'
STYLE =
LIFETIME = lifetime_default
REPID =
DYNNR =
NO_AUTODEF_PROGID_DYNNR =
EXCEPTIONS
CNTL_ERROR = 1
CNTL_SYSTEM_ERROR = 2
CREATE_ERROR = 3
LIFETIME_ERROR = 4
LIFETIME_DYNPRO_DYNPRO_LINK = 5
others = 6
IF SY-SUBRC <> 0.
*MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
CREATE OBJECT GRID
EXPORTING
I_SHELLSTYLE = 0
I_LIFETIME =
I_PARENT = CONTAINER
I_APPL_EVENTS = space
I_PARENTDBG =
I_APPLOGPARENT =
I_GRAPHICSPARENT =
I_NAME =
I_FCAT_COMPLETE = SPACE
EXCEPTIONS
ERROR_CNTL_CREATE = 1
ERROR_CNTL_INIT = 2
ERROR_CNTL_LINK = 3
ERROR_DP_CREATE = 4
others = 5
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
CALL METHOD GRID->SET_TABLE_FOR_FIRST_DISPLAY
EXPORTING
I_BUFFER_ACTIVE =
I_BYPASSING_BUFFER =
I_CONSISTENCY_CHECK =
I_STRUCTURE_NAME = 'ZTARA_STRUC'
IS_VARIANT =
I_SAVE =
I_DEFAULT = 'X'
IS_LAYOUT =
IS_PRINT =
IT_SPECIAL_GROUPS =
IT_TOOLBAR_EXCLUDING =
IT_HYPERLINK =
IT_ALV_GRAPHICS =
IT_EXCEPT_QINFO =
IR_SALV_ADAPTER =
CHANGING
IT_OUTTAB = itab[]
IT_FIELDCATALOG = lt_fcat
IT_SORT =
IT_FILTER =
EXCEPTIONS
INVALID_PARAMETER_COMBINATION = 1
PROGRAM_ERROR = 2
TOO_MANY_LINES = 3
others = 4
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDMODULE. " STATUS_9000 OUTPUT
*& Module USER_COMMAND_9000 INPUT
text
MODULE USER_COMMAND_9000 INPUT.
case sy-ucomm.
when 'BACK'.
Leave Program.
when others.
Leave Program.
endcase.
ENDMODULE. " USER_COMMAND_9000 INPUThI
USE types DECLARATION LIKE THIS SEE THIS PROGRAM AND YOU CAN UNDERSTAND VERY EASILY
**************DATA TYPES DECLARATION **********************
TABLES: HRP1001, HRP1026, HRP1000,PCHDY.
TYPE-POOLS SLIS.
TYPES :BEGIN OF ST_OUTPUT,
COUNT TYPE STRING,
OBJID TYPE HRP1001-OBJID,
STEXT TYPE HRP1000-STEXT,
BEGDA TYPE HRP1000-BEGDA,
ENDDA TYPE HRP1000-ENDDA,
CANCRT TYPE T77CRT-CANCRT,
AEDTM TYPE HRP1026-AEDTM,
UNAME TYPE HRP1026-UNAME,
LSTEXT TYPE HRP1000-STEXT,
RINVT TYPE T777V-RINVT,
END OF ST_OUTPUT.
TYPES: BEGIN OF ST_HRP1000,
OBJID TYPE HRP1001-OBJID,
STEXT TYPE HRP1000-STEXT,
END OF ST_HRP1000.
TYPES : BEGIN OF ST_HRP1001,
OTYPE TYPE HRP1001-OTYPE,
OBJID TYPE HRP1001-OBJID,
RELAT type hrp1001-RELAT,
BEGDA TYPE HRP1001-BEGDA,
ENDDA TYPE HRP1001-ENDDA,
SCLAS TYPE HRP1001-SCLAS,
SOBID TYPE HRP1001-SOBID,
END OF ST_HRP1001.
TYPES : BEGIN OF ST_HRP1026,
OTYPE TYPE HRP1026-OTYPE,
OBJID TYPE HRP1001-OBJID,
AEDTM TYPE HRP1026-AEDTM,
UNAME TYPE HRP1026-UNAME,
DELET TYPE HRP1026-DELET,
CANCR TYPE HRP1026-CANCR,
END OF ST_HRP1026.
TYPES : BEGIN OF ST_REASON,
CANCR TYPE HRP1026-CANCR,
CANCRT TYPE T77CRT-CANCRT,
END OF ST_REASON.
TYPES : BEGIN OF ST_SOBID,
OTYPE TYPE HRP1001-OTYPE,
OBJID TYPE HRP1001-OBJID,
RELAT type hrp1001-OBJID,
BEGDA TYPE HRP1001-BEGDA,
ENDDA TYPE HRP1001-ENDDA,
SCLAS TYPE HRP1001-SCLAS,
SOBID TYPE HRP1001-OBJID,
END OF ST_SOBID.
TYPES : BEGIN OF ST_OBJID,
OBJID TYPE HRP1001-OBJID,
END OF ST_OBJID.
TYPES : BEGIN OF ST_LOCATION,
OTYPE TYPE HRP1001-OTYPE,
OBJID TYPE HRP1001-OBJID,
RSIGN TYPE HRP1001-RSIGN,
RELAT TYPE HRP1001-RELAT,
SCLAS TYPE HRP1001-SCLAS,
SOBID TYPE HRP1001-SOBID,
END OF ST_LOCATION.
TYPES : BEGIN OF ST_LOCATION1,
OTYPE TYPE HRP1001-OTYPE,
OBJID TYPE HRP1001-OBJID,
RSIGN TYPE HRP1001-RSIGN,
RELAT TYPE HRP1001-RELAT,
SCLAS TYPE HRP1001-SCLAS,
SOBID TYPE HRP1001-OBJID,
END OF ST_LOCATION1.
TYPES : BEGIN OF ST_LSTEXT,
OTYPE TYPE HRP1000-OTYPE,
OBJID TYPE HRP1000-OBJID,
LSTEXT TYPE HRP1000-STEXT,
END OF ST_LSTEXT.
TYPES : BEGIN OF ST_OBJID_SH,
OTYPE TYPE HRP1000-OTYPE,
OBJID TYPE HRP1000-OBJID,
END OF ST_OBJID_SH.
DATA : IT_OBJID_SH TYPE STANDARD TABLE OF ST_OBJID_SH.
DATA : WA_OBJID_SH TYPE ST_OBJID_SH.
DATA : IT_LSTEXT TYPE STANDARD TABLE OF ST_LSTEXT. "TOS STORE THE TEXT OF COURCE LOCATION
DATA : WA_LSTEXT TYPE ST_LSTEXT.
DATA : IT_LOCATION TYPE STANDARD TABLE OF ST_LOCATION. " TO STORE THE LOCATION OF COURCE
DATA : WA_LOCATION TYPE ST_LOCATION.
DATA : IT_LOCATION1 TYPE STANDARD TABLE OF ST_LOCATION1. " TO CONVERT SOBID INTO OBJID FOR COURCE LOCATION
DATA : WA_LOCATION1 TYPE ST_LOCATION1.
DATA : IT_SOBID TYPE STANDARD TABLE OF ST_SOBID. " TO CHANGE THE SOBID OF HRP1001 TO OBJID OF HRP1026
DATA : WA_SOBID TYPE ST_SOBID. " BY USING FOR ALL ENTRIES
DATA : IT_REASON TYPE STANDARD TABLE OF ST_REASON. "TO STORE T HE REASON FOR CANCELL TEXT
DATA : WA_REASON TYPE ST_REASON.
DATA : IT_OUTPUT TYPE STANDARD TABLE OF ST_OUTPUT. "OUTPUT FEILDS OF REPORT.
DATA : WA_OUTPUT TYPE ST_OUTPUT.
DATA : IT_OUTPUT_1 TYPE STANDARD TABLE OF ST_OUTPUT. " TEMP OUTPUT FEILDS OF REPORT.
DATA : WA_OUTPUT_1 TYPE ST_OUTPUT.
DATA : IT_HRP1000 TYPE STANDARD TABLE OF ST_HRP1000. "DATA FROM HRP1000 TABLE
DATA : WA_HRP1000 TYPE ST_HRP1000.
DATA : IT_HRP1001 TYPE STANDARD TABLE OF ST_HRP1001. "DATA FROM HRP1001 TABLE
DATA : WA_HRP1001 TYPE ST_HRP1001.
DATA : IT_HRP1026 TYPE STANDARD TABLE OF ST_HRP1026. "DATA FROM HRP1026 TABLE
DATA : WA_HRP1026 TYPE ST_HRP1026.
DATA : IT_OBJID TYPE STANDARD TABLE OF ST_OBJID. " TO STORE THE OBJID OF HRP1001
DATA : WA_OBJID TYPE ST_OBJID.
DATA: WS_FCAT TYPE SLIS_FIELDCAT_ALV . " FEILDCATALOG FOR ALV REPORT
DATA: IN_FCAT TYPE SLIS_T_FIELDCAT_ALV.
DATA: W_LAYOUT TYPE SLIS_LAYOUT_ALV.
DATA : LV_COUNT TYPE I. "FEILD FOR SERIAL NUMBER
***************************END OF DATA DECLARATION******************************************
***********SELECTION SCREEN DESIGN***********************
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
*SELECT-OPTIONS : S_OTYPE FOR HRP1001-OTYPE NO INTERVALS .
SELECT-OPTIONS : S_OBJID FOR HRP1001-OBJID NO INTERVALS .
SELECT-OPTIONS : DATE FOR SY-DATUM NO-EXTENSION OBLIGATORY.
SELECTION-SCREEN END OF BLOCK B1.
**********END OF SELECTION SCREEN DESIGN*****************
*****INITIALIZATION VENT TO ASIGN DEFAULT VALUES TO OTYPE
*INITIALIZATION.
S_OTYPE-LOW = 'D'.
S_OTYPE-SIGN = 'I'.
S_OTYPE-OPTION = 'EQ'.
APPEND S_OTYPE.
CLEAR S_OTYPE.
*************END OF EVENT INITIALIZATION*****************
*********VALIDATION FOR SCREEN FIELDS********************
AT SELECTION-SCREEN ON VALUE-REQUEST FOR S_OBJID-LOW.
IF S_OBJID IS NOT INITIAL.
SELECT OTYPE OBJID FROM HRP1000
INTO TABLE IT_OBJID_SH
WHERE OTYPE = 'D'.
IF SY-SUBRC EQ 0.
SEARCH HELP FOR QUALIFICATION.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
EXPORTING
DDIC_STRUCTURE = ' '
RETFIELD = 'OBJID'
PVALKEY = ' '
DYNPPROG = SY-REPID
DYNPNR = SY-DYNNR
DYNPROFIELD = 'S_OBJID'
STEPL = 0
WINDOW_TITLE =
VALUE = ' '
VALUE_ORG = 'S'
MULTIPLE_CHOICE = ' '
DISPLAY = ' '
CALLBACK_PROGRAM = ' '
CALLBACK_FORM = ' '
MARK_TAB =
IMPORTING
USER_RESET =
TABLES
VALUE_TAB = IT_OBJID_SH
FIELD_TAB =
RETURN_TAB = RETURN_TAB
DYNPFLD_MAPPING =
EXCEPTIONS
PARAMETER_ERROR = 1
NO_VALUES_FOUND = 2
OTHERS = 3
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDIF.
IF SY-SUBRC NE 0.
MESSAGE 'NO RECORD FOUND FOR THE GIVEN SELECTION CRITERIA.' TYPE 'E'.
ENDIF.
ENDIF.
REFRESH IT_OBJID.
***************VALIDATION OF SCREEN FIELDS ENDS***********
*****************START OF SELECTION ************************
START-OF-SELECTION.
SELECT OTYPE
OBJID
RELAT
BEGDA
ENDDA
SCLAS
SOBID FROM HRP1001 INTO TABLE IT_HRP1001
WHERE OTYPE = 'D'
AND OBJID IN S_OBJID
AND BEGDA GE DATE-LOW
AND ENDDA LE DATE-HIGH
AND ( SCLAS = 'E' OR SCLAS = 'ET' ).
IF SY-SUBRC NE 0.
MESSAGE 'NO RECORD FOUND FOR THE GIVEN SELECTION CRITERIA ' TYPE 'E'.
ENDIF.
LOOP AT IT_HRP1001 INTO WA_HRP1001.
WA_SOBID-OTYPE = WA_HRP1001-OTYPE.
WA_SOBID-OBJID = WA_HRP1001-OBJID.
WA_SOBID-RELAT = WA_HRP1001-RELAT.
WA_SOBID-BEGDA = WA_HRP1001-BEGDA.
WA_SOBID-ENDDA = WA_HRP1001-ENDDA.
WA_SOBID-SCLAS = WA_HRP1001-SCLAS.
WA_SOBID-SOBID = WA_HRP1001-SOBID.
APPEND WA_SOBID TO IT_SOBID.
ENDLOOP.
SELECT OTYPE
OBJID
AEDTM
UNAME
DELET
CANCR
NCONT
FROM HRP1026
INTO TABLE IT_HRP1026
FOR ALL ENTRIES IN IT_SOBID
WHERE OBJID = IT_SOBID-SOBID
AND ( OTYPE = 'E' OR OTYPE = 'ET' )
AND DELET = 'X' AND
BEGDA GE DATE-LOW AND
ENDDA LE DATE-HIGH.
IF SY-SUBRC EQ 0.
SELECT OBJID
STEXT
FROM HRP1000
INTO TABLE IT_HRP1000
FOR ALL ENTRIES IN IT_SOBID
WHERE OBJID = IT_SOBID-SOBID AND
BEGDA GE DATE-LOW AND
ENDDA LE DATE-HIGH.
SELECT CANCR
CANCRT
FROM T77CRT
INTO TABLE IT_REASON
FOR ALL ENTRIES IN IT_HRP1026
WHERE CANCR = IT_HRP1026-CANCR
AND LANGU = 'E' .
********PERFORM FOR GETTING T HE LOCATION OF THE COURCE**
PERFORM GET_LOCATION.
**************END OF LOCATION OF COURCE ******************
ELSE.
MESSAGE 'NO RECORD FOUND FOR THE GIVEN SELECTION CRITERIA ' TYPE 'E'.
ENDIF.
*****PERFORM FOR GETTING DATA INTO THE FINAL INTERNAL TABLE IT_OUTPUT**
PERFORM GET_DATA.
*********************************END OF PERFORM ET DATA ***************
***********LOGIC FOR PRONTING NUMBER OF RECORDS ***********************
LV_COUNT = 0.
LOOP AT IT_OUTPUT INTO WA_OUTPUT.
LV_COUNT = LV_COUNT + 1.
WA_OUTPUT-COUNT = LV_COUNT.
APPEND WA_OUTPUT TO IT_OUTPUT_1.
ENDLOOP.
REFRESH IT_OUTPUT.
IT_OUTPUT = IT_OUTPUT_1.
********************END OF LOGIC FOR NUMBER OF RECORDS ***************
****************DISPLAYING OUTPUT BY USEING GRID DISPLAY**********
PERFORM ALV_DISPLAY.
****************************END OF PERFORM FOR DISPLAYING **********
*& Form PERFORM_ALV
DISPLAY THE RECORDS IN ALV GRID FORMAT.
FORM ALV_DISPLAY.
PERFORM FIELD_CATALOG USING 'COUNT' 'Sr. No.'.
PERFORM FIELD_CATALOG USING 'OBJID' 'COURCE ID.'.
PERFORM FIELD_CATALOG USING 'STEXT' 'COURCE NAME'.
PERFORM FIELD_CATALOG USING 'LSTEXT' 'COURCE LOATION'.
PERFORM FIELD_CATALOG USING 'BEGDA' 'BEGIN DATE '.
PERFORM FIELD_CATALOG USING 'ENDDA' 'END DATE '.
PERFORM FIELD_CATALOG USING 'CANCRT' 'REASON'.
PERFORM FIELD_CATALOG USING 'AEDTM' 'DATE Of CANCEL'.
PERFORM FIELD_CATALOG USING 'NCONT' 'NUMBER OF BOOKINGS'.
PERFORM FIELD_CATALOG USING 'LOCTX' 'COURCE LOCATION'.
PERFORM FIELD_CATALOG USING 'UNAME' 'WHO CANCELLED'.
PERFORM FIELD_CATALOG USING 'LSTEXT' 'COURCE LOATION'.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
I_STRUCTURE_NAME = 'IT_OUTPUT'
I_GRID_TITLE = ' Cancelled courses with reason '
IT_FIELDCAT = IN_FCAT
TABLES
T_OUTTAB = IT_OUTPUT.
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. "PERFORM_ALV
*& Form FIELD_CATALOG
text
-->FIELD_NAME text
-->DIS_TEXT text
FORM FIELD_CATALOG USING FIELD_NAME DIS_TEXT.
CLEAR WS_FCAT.
WS_FCAT-TABNAME = 'IT_OUTPUT'.
WS_FCAT-FIELDNAME = FIELD_NAME.
WS_FCAT-SELTEXT_M = DIS_TEXT.
APPEND WS_FCAT TO IN_FCAT .
ENDFORM. "FIELD_CATALOG
*& Form GET_DATA
text
--> p1 text
<-- p2 text
FORM GET_DATA .
*sort it_sobid by objid.
LOOP AT IT_SOBID INTO WA_SOBID." where otype eq s_otype and objid eq s_objid.
READ TABLE IT_HRP1026 WITH KEY OBJID = WA_SOBID-SOBID OTYPE = WA_SOBID-SCLAS INTO WA_HRP1026.
IF SY-SUBRC EQ 0.
READ TABLE IT_HRP1000 WITH KEY OBJID = WA_SOBID-SOBID INTO WA_HRP1000.
READ TABLE IT_REASON WITH KEY CANCR = WA_HRP1026-CANCR INTO WA_REASON.
WA_OUTPUT-OBJID = WA_HRP1026-OBJID.
WA_OUTPUT-BEGDA = WA_SOBID-BEGDA.
WA_OUTPUT-ENDDA = WA_SOBID-ENDDA.
WA_OUTPUT-AEDTM = WA_HRP1026-AEDTM.
WA_OUTPUT-UNAME = WA_HRP1026-UNAME.
WA_OUTPUT-NCONT = WA_HRP1026-NCONT.
READ TABLE IT_HRP1000 WITH KEY OBJID = WA_SOBID-SOBID INTO WA_HRP1000.
WA_OUTPUT-STEXT = WA_HRP1000-STEXT.
READ TABLE IT_REASON WITH KEY CANCR = WA_HRP1026-CANCR INTO WA_REASON.
WA_OUTPUT-CANCRT = WA_REASON-CANCRT.
CLEAR WA_REASON-CANCRT.
READ TABLE IT_LOCATION1 WITH KEY OBJID = WA_HRP1026-OBJID INTO WA_LOCATION1..
READ TABLE IT_LSTEXT WITH KEY OBJID = WA_LOCATION1-SOBID OTYPE = 'F' INTO WA_LSTEXT.
WA_OUTPUT-LSTEXT = WA_LSTEXT-LSTEXT.
CLEAR WA_LSTEXT-LSTEXT.
APPEND WA_OUTPUT TO IT_OUTPUT.
CLEAR WA_OUTPUT.
CLEAR WA_OUTPUT-CANCRT.
ENDIF.
ENDLOOP.
ENDFORM. " GET_DATA
*& Form GET_LOCATION
text
--> p1 text
<-- p2 text
FORM GET_LOCATION .
SELECT OTYPE
OBJID
RSIGN
RELAT
SCLAS
SOBID
FROM HRP1001
INTO TABLE IT_LOCATION
FOR ALL ENTRIES IN IT_HRP1026
WHERE OTYPE = 'E' AND OBJID = IT_HRP1026-OBJID
AND RSIGN = 'A' AND RELAT = '024' AND SCLAS = 'F'
AND BEGDA GE DATE-LOW AND ENDDA LE DATE-HIGH.
IF SY-SUBRC NE 0.
MESSAGE 'NO RECORD FOUND FOR THE GIVEN SELECTION CRITERIA ' TYPE 'E'.
ENDIF.
LOOP AT IT_LOCATION INTO WA_LOCATION.
WA_LOCATION1-OTYPE = WA_LOCATION-OTYPE.
WA_LOCATION1-OBJID = WA_LOCATION-OBJID.
WA_LOCATION1-RSIGN = WA_LOCATION-RSIGN.
WA_LOCATION1-RELAT = WA_LOCATION-RELAT.
WA_LOCATION1-SCLAS = WA_LOCATION-SCLAS.
WA_LOCATION1-SOBID = WA_LOCATION-SOBID.
APPEND WA_LOCATION1 TO IT_LOCATION1.
CLEAR WA_LOCATION1.
ENDLOOP.
SELECT OTYPE
OBJID
STEXT
FROM HRP1000
INTO TABLE IT_LSTEXT
FOR ALL ENTRIES IN IT_LOCATION1
WHERE OBJID = IT_LOCATION1-SOBID
AND OTYPE = 'F'.
AND BEGDA GE DATE-LOW
AND ENDDA LE DATE-HIGH.
ENDFORM. " GET_LOCATION -
Just tred to install anti-virus on the new 10.10 OS and low and behold it see it as 10.1, no surprise there, and will not let me install. Seem most of my installers will not do to the need to be 10.6 or later. This would be funny if it was not costing me all of this time.
10.10 is not the same as 10.1 and a properly coded installer should recognize that.
Check if the versions of the software are up to date. Old versions might cause problems anyway. -
I check the firmware version on my BT Home Hub
So the other day HH4 (Type A) received a new firmware check HH fw ....but I have a wired hub as an extention to overcome WiFi deadzone. I have now swapped the extention to be the Master (as when in slave is not connected to interwebs & won't receive fw updates), this (used to be extention) is the same model/type but is 2nd hand, not like the other updated hub which I received from ISP (BT).
My question is; It's been about a week now & still no update to the fw so do BT not issue updates to hubs that are not registered with them? (or s'thing)
Solved!
Go to Solution.I received a new hub after my original one broke due to the WPS button breaking and it has updated the firmware after a week or so.
Seems their must be a database of routers issued or I had a dodgy 2nd hand one? -
Checking the Sprint Version?
I'm just double checking that I'm looking at the right info.
If I have the most updated set of tools, I'm running spring v23 correct?
ThanksBob, one last question:
Is the viewer number and the sprint number the same? i.e. viewer v 23 = sprint 24 or spint 23?
Thanks! -
If you can't chat, check the iChat version first
Finally after dozens of hours fiddling with firewall & airport settings, reconfiguring my ADSL modem (including having to borrow a PC laptop), scouring the forums, learning Ralph Johns's pages off by heart, establishing jabber accounts, etc, etc, I discovered the problem: for some unknown reason iChat had never been updated by Software Update and was still on 3.0. A quick download and install of the 10.4.3 update combo and all was solved.
If by any chance some other poor sufferer has been victim of the same anomaly, please let me know - it would be some compensation.
Apple - please make **** sure in future that updates can't be confused...Hi Andrew,
The problem I have had with SIP and port 5060 is that I had a small group of people that I could get to when it was still bound and a a similar sized group of intermittent contacts and a larger group that I could not contact at all.
ibosie on another dicussion board help me find the then 4.2.3 firmware that gave me UPnP AND the instructions for unbinding SIP from port 5060. I did not use UPnP at that stage because I was the only computer using the modem. The Unbinding of Port 5060 ws the key.
I have seen posts here where people with a small number of succesful Buddies have been using iChat 2. in Panther then found they can not get iChat to work until they have done the unbinding when they upgrade to Tiger and iChat 3
IF he does not do the unbinding it is likely he will have some successful contacts and some that are not.
Yes UPnP should work ...it does on mine... If all the other things are sorted.
At no point have Defcom and I suggested that he change from using UPnP. What we have said is that this modem is SIP aware (which is an Internet protocol standard on port 5060) and that it will need SIP to be unbound for the greatest succsss.
Ralph
Maybe you are looking for
-
Printing landscape on HP LaserJet
Ever since upgrading to OS X Leopard, I can no longer print in Landscape on a HP LaserJet printer. Does anyone know how to fix or get around this issue? Thanks.
-
'You've Been Signed Out' - Solutions not working
Hi, I've been having this problem for many days now and have been very patient with the customer care team. However, I'm not approaching deadlines at University and really, really need access to Creative Cloud. I haven't even got any programs downloa
-
Hi, Please help me.. I am getting below error while doing custamizatino in OAF initially i created entity based vo (PhoneVO) and new region and new controller i have written the below code in new controller which is maped to new region. i create stac
-
Ovi maps v 3.06 is it downloadable to NOKIA C5..?
current version v3.04.....i want to up grade to v3.06 on my nokia C5 is it possible...im in INDIA using TATA DOCOMo..when will the update availble in india..is my device compitable to download it..?
-
How to get envoy printer into online mode
My printer is in off line mode ever since I got home from vacation. Can't get it on line. Could someone please help? This question was solved. View Solution.