More:Could u pls complete the following code by adding a class constructor?
Thank you for your concern about my post. Actually it is an exercise in book "Thinking in Java, 2nd edition, Revision 12" chapter 8. The exercise is described as below:
Create a class with an inner class that has a nondefault constructor. Create a second class with an inner class that inherits from the first inner class.
And I make some changes for the above exercise requiring the class which encloses the first inner class has a nondefault constructor.
There is something related to this topic in chapter 8 picked out for reference as below:
Inheriting from inner classes
Because the inner class constructor must attach to a reference of the enclosing class object, things are slightly complicated when you inherit from an inner class. The problem is that the �secret?reference to the enclosing class object must be initialized, and yet in the derived class there�s no longer a default object to attach to. The answer is to use a syntax provided to make the association explicit:
//: c08:InheritInner.java
// Inheriting an inner class.
class WithInner {
class Inner {}
public class InheritInner
extends WithInner.Inner {
//! InheritInner() {} // Won't compile
InheritInner(WithInner wi) {
wi.super();
public static void main(String[] args) {
WithInner wi = new WithInner();
InheritInner ii = new InheritInner(wi);
} ///:~
You can see that InheritInner is extending only the inner class, not the outer one. But when it comes time to create a constructor, the default one is no good and you can�t just pass a reference to an enclosing object. In addition, you must use the syntax
enclosingClassReference.super();
inside the constructor. This provides the necessary reference and the program will then compile.
My previous post is shown below, could you help me out?
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
//Could you please help me complete the following code by generating
// the Test class constructor to ensure error free compilation? Please
// keep the constructor simple just to fulfill its basic functionality
// and leave the uncommented part untouched.
class Outer {
Outer (int i) {
System.out.println("Outer is " + i);
class Inner {
int i;
Inner (int i) {
this.i = i;
void prt () {
System.out.println("Inner is " + i);
public class Test extends Outer.Inner {
// Test Constructor
// is implemented
// here.
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Test(Outer o, int i) {
o.super(i);
}Note that this doesn't quite answer the question from Thinking In Java, since your Test class is not an inner class (though there is no difference to the constructor requirements if you do make it an inner class).
Similar Messages
-
Pls help me in write a join for the following code.
can any one give me optimized code for the posted query..
DATA :BEGIN OF BAPITABLE OCCURS 1,
EDITELEM LIKE TOJTB-EDITELEM,
FUNCTION LIKE SBAPIS-FUNCTION,
SHORTTEXT LIKE TFTIT-STEXT,
END OF BAPITABLE.
SELECT EDITELEM INTO (BAPITABLE-EDITELEM)
FROM TOJTB
WHERE APPLIC = APPLICATIONCODE
AND MODELONLY = 'R'
and ACTIVE = 'X'.
SELECT FUNCTION INTO (BAPITABLE-FUNCTION)
FROM SBAPIS
WHERE OBJECT = JEDITELEM.
SELECT STEXT INTO (BAPITABLE-SHORTTEXT)
FROM TFTIT
WHERE SPRAS = 'EN' AND FUNCNAME = BAPITABLE-FUNCTION.
APPEND BAPITABLE.
ENDSELECT.
ENDSELECT.
ENDSELECT.
waiting for ur replies....
RESHALIHi
i'm giving you a sample code please change according to your requiirement.
I've taken required fields from 3 different tables and put them in one internal table.
please see the following code.
types : begin of ty_kna1,
kunnr type kna1-kunnr,
name1 type kna1-name1,
vbeln type vbap-vbeln,
erdat type vbak-erdat,
end of ty_kna1.
data : it_kna1 type table of ty_kna1,
wa_kna1 type ty_kna1.
data : it_fieldcat type slis_t_fieldcat_alv,
wa_fieldcat type slis_fieldcat_alv.
start-of-selection.
select kkunnr kname1 v1erdat v2vbeln
into corresponding fields of table it_kna1
from ( ( kna1 as k
inner join vbak as v1 on kkunnr = v1kunnr )
inner join vbap as v2 on v1vbeln = v2vbeln )
up to 100 rows.
Reward if helpful
Regards
Lakshman -
AutoConfig could not successfully execute the following scripts adsvalsn.cm
When i run the autoconfig, it end up with following error message:
AutoConfig could not successfully execute the following scripts:
Directory: E:\oracle\fincomn\admin\install\FIN_ora-fin
adsvalsn.cmd INSTE8_APPLY -1
AutoConfig is exiting with status 1
And because of this error autoconfig takes more than an hour to complete. please help me
regards- Do not run AutoConfig command from any terminal clients
- Make sure the apps listener is down when you run AutoConfig
In addition, you may review the following notes:
Note: 218089.1 - Autoconfig FAQ
https://metalink.oracle.com/metalink/plsql/ml2_documents.showDocument?p_database_id=NOT&p_id=218089.1
Note: 393788.1 - Autoconfig Gives Installation Failed And Then Hangs
https://metalink.oracle.com/metalink/plsql/ml2_documents.showDocument?p_database_id=NOT&p_id=393788.1
Note: 260365.1 - Adconfig.cmd Hangs When Starting Apps Listener
https://metalink.oracle.com/metalink/plsql/ml2_documents.showDocument?p_database_id=NOT&p_id=260365.1 -
hi to support
i want in the appstore with error
::your request could not be completed the item you are request in not currently available in the u.s store::
tanks fo supportYou aren't talking to Support here: this is a user-to-user forum. The message you see usually means that the item has been removed from the Store. If you want to follow this up go to https://expresslane.apple.com ; select 'iTunes' in the first column and then 'iTunes Store' in the second column.
-
Help me to avoide redundancy in the following code
hi ,
for selecting req fields from tables vbap,vbak n makt, i use the following inner join
but it takes many duplicate records from the table.. pls correct the following coding
SELECT VBAK~KUNNR
VBAK~VBELN
VBAK~AUDAT
VBAK~VBTYP
VBAP~MATNR
VBAP~ZMENG
VBAP~NETPR
VBAP~NETWR
MAKT~MAKTX
INTO TABLE IT_OUTPUT
FROM VBAK
INNER JOIN VBAP ON VBAKVBELN EQ VBAPVBELN
INNER JOIN MAKT ON VBAPMATNR EQ MAKTMATNR
WHERE VBAKVBELN IN SALESDOC AND VBAKAUDAT IN DOCDATE
AND VBAPMATNR IN MATNR AND VBAPZMENG IN TRGQTY.
thanks n regards,Hi experts.. i am having the same problem regarding data redundancy when i use the following codes:
PARAMETERS: P_IORDER LIKE EKKN-AUFNR.
SELECT-OPTIONS S_JORDER FOR EKKN-EBELN.
TYPES: BEGIN OF t_output,
EBELN LIKE EKKN-EBELN,
SAKTO LIKE EKKN-SAKTO,
EBELP LIKE EKPO-EBELP,
TXZ01 LIKE EKPO-TXZ01,
PACKNO LIKE EKPO-PACKNO,
SUB_PACKNO LIKE ESLL-SUB_PACKNO,
END OF t_output,
BEGIN OF t_output2,
PACKNO LIKE ESLL-PACKNO,
SRVPOS LIKE ESLL-SRVPOS,
KTEXT1 LIKE ESLL-KTEXT1,
MENGE LIKE ESLL-MENGE,
MEINS LIKE ESLL-MEINS,
TBTWR LIKE ESLL-TBTWR,
END OF t_output2.
DATA: i_output TYPE STANDARD TABLE OF t_output WITH HEADER LINE,
i_output2 TYPE STANDARD TABLE OF t_output2 WITH HEADER LINE WITH
KEY PACKNO.
IF S_JORDER = 0.
SELECT aEBELN aSAKTO bEBELP bTXZ01 cPACKNO cSUB_PACKNO
INTO CORRESPONDING FIELDS OF TABLE i_output
FROM EKKN AS a
INNER JOIN EKPO AS b ON aEBELN = bEBELN
LEFT OUTER JOIN ESLL AS c ON bPACKNO = cPACKNO
WHERE aAUFNR = P_IORDER AND BEBELN = '4500006740'.
SELECT
PACKNO
SRVPOS
KTEXT1
MENGE
MEINS
TBTWR
FROM ESLL
INTO TABLE i_output2
FOR ALL ENTRIES IN i_output
WHERE PACKNO = i_output-sub_packno.
ENDIF.
LOOP AT i_output.
READ TABLE i_output2 WITH TABLE KEY PACKNO = i_output-SUB_PACKNO.
*Declare PACKNO as your table key
IF SY-SUBRC EQ 0.
WRITE: / i_output-EBELN,
15 i_output-EBELP,
25 i_output-TXZ01,
55 i_output2-SRVPOS,
65 i_output2-KTEXT1,
82 i_output2-MENGE,
105 i_output2-MEINS,
112 i_output2-TBTWR,
130 i_output-SAKTO.
today is just my 3rd week of being an abap developer and everything is still new to me and I am still not that familiar with it.. that's why i need your help. Thanks! -
What does symbol ! stand for in the following code?
What does symbol *!* stand for in the following code? What does SYSTEM mean?
<! DOCTYPE report-group SYSTEM "report-group.dtd">
Edited by: user11337968 on Jul 3, 2009 4:53 PMIt is just part of the XML specification; to do a "doctype", you must have an open angle bracket followed by an exclamation point. See [doctype decl | http://www.w3.org/TR/REC-xml/#NT-doctypedecl] for more information.
Peace,
Cameron Purdy | Oracle Coherence -
Windows XP could not start because the following file is missing or corrupt - message
Hi there and apologies in advance if this is a daft or very frequently asked question.
Upon trying to boot up this Toshiba mini NB200 device last night we got this message:
Windows XP could not start because the following file is missing or corrupt: \WINDOWS\SYSTEM32\CONFIG\SYSTEM. it then asked me to press r at the forst screen to start a repair if I have the original set up cd.
The device had to be forced to shutdown previously as it hung when shutting down.
Now multiple reboots (including uncoupling/recoupling the battery) and resetting the settings from start up menu result in the same error message.
The device has no cd drive installed but previously Jerry Lippey (in 2011) saved the day by recommending purchase of a product recovery disc (R10804EN) after a 'flashing cursor issue' at logon.
Has anyone far more clever than I any thoughts (if we're able to borrow a portable cd drive) whether this disc may work again?
Windows XP was/is preinstalled on the PC (we havent the disc) and we've subsequently added MS Works. A total wipe of the device (as long as XP remains?) wont be too much hassle as we havent any data that we're too bothered about on it.
Many, many thanks in advance
Solved!
Go to Solution.Toshiba NB200-11L
Windows XP could not start because the following file is missing or corrupt: \WINDOWS\SYSTEM32\CONFIG\SYSTEM
Bad news. It means the System hive, which is the most important branch of the registry, is corrupt. Unless you have made provisions for this (we always do on XP systems), the fix is too complex for you to handle (KB307545).
I'm afraid you'll need to restore the hard disk to its original out-of-the-box contents using Toshiba recovery media as you did before. Do you have important files to rescue?
-Jerry -
What does the following code mean???
what does the following code mean ??
fpm.raiseReviewAndSaveEvent(IFPM.EVENT_REVIEW, IFPM.EVENT_SAVE, vcFormEditButtons);
thanks in advance.
can you please tell me best site to learn WD4J coding.
site having lot of WD4J code examplesHi,
While Creating an FPM View we can use this line code.For more details of above line
[code|http://help.sap.com/erp2005_ehp_04/helpdata/en/fc/ffd8464eb041848ca66749165d8f33/content.htm]
Please look at these documents for WDJ Example Application. Please go through this documenst.
[WDJ Application|Web Dynpro Java Tutorials and Samples NW 2004 ] and [Samples for Web Dynpro Java|http://www.sdn.sap.com/irj/sdn/index?rid=/webcontent/uuid/00b64d9f-fea2-2910-c988-ee2544047f8c] and [Web Dynpro for Java Demo Kit|http://wiki.sdn.sap.com/wiki/display/WDJava/WebDynproforJavaDemo+Kit]
Hope this is help full for u
Regards
Vijay -
No DME could be generated for the following documents
Dear Consultants,
Transaction code F110. DME file is generated for all vendors except 2 vendors. Invoices got cleared.
One vendor is from Austria and other is UK.
No DME could be generated for the following documents
Error:
Supplying country's country key is missing or is not valid
SCB indicator is missing or is not valid.
Could you please let me know where do these setting to be made.
Thanks & Regards,
SKDear Friends,
I have solved my issue myself and thought of sharing with you. In field status group - foreign Payment there is a field SCB/Country Key.
It was suppressed earlier. I made this as optional. When we are postings invoices, once the fileds are filled in . DME file generated.
Regards,
SK -
AutoConfig could not successfully instantiate the following files
Dear Gurus,
We have just migrated to Autoconfig on DB tier and after running the autoconfig on DB tier we are getting the following error:
[AutoConfig Error Report]
The following report lists errors AutoConfig encountered during each
phase of its execution. Errors are grouped by directory and phase.
The report format is:
<filename> <phase> <return code where appropriate>
[INSTANTIATE PHASE]
AutoConfig could not successfully instantiate the following files:
Directory: /volora/oracle9/app/oracle/product/9i/appsutil/install/MSBEP004_dcpsr006osm
adcrobj.sh INSTE8_APPLY
addbprf.sh INSTE8
adsvdb.sh INSTE8
adsvdcnv.sh INSTE8
adsvdlsn.sh INSTE8
afdbprf.sh INSTE8_PRF
afmkinit.sh INSTE8_SETUP
Directory: /volora/oracle9/app/oracle/product/9i/appsutil/install
adlnkoh.sh INSTE8
Directory: /volora/oracle9/app/oracle/product/9i/appsutil/scripts/MSBEP004_dcpsr006osm
adautocfg.sh INSTE8
addbctl.sh INSTE8
addlnctl.sh INSTE8
adlsnodes.sh INSTE8
adpreclone.pl INSTE8
Directory: /volora/oracle9/app/oracle/product/9i/rdbms/lib
config.s INSTE8
AutoConfig is exiting with status 14
Please suggest what could be the problem
Thanks in Advance
Regards
Kiran Ranahi guru
The logfile given bellow error
AC-00423: Template file: /volora/oracle9/app/oracle/product/9i/appsutil/template/adpreclone.pl missing from file system.
Raised by oracle.apps.ad.autoconfig.InstantiateFile
AC-00423: Template file: /volora/oracle9/app/oracle/product/9i/appsutil/template/adsvdb.sh missing from file system.
Raised by oracle.apps.ad.autoconfig.InstantiateFile
AC-00423: Template file: /volora/oracle9/app/oracle/product/9i/appsutil/template/adsvdlsn.sh missing from file system.
Raised by oracle.apps.ad.autoconfig.InstantiateFile
AC-00423: Template file: /volora/oracle9/app/oracle/product/9i/appsutil/template/adsvdcnv.sh missing from file system.
Raised by oracle.apps.ad.autoconfig.InstantiateFile
AC-00423: Template file: /volora/oracle9/app/oracle/product/9i/appsutil/template/addbprf.sh missing from file system.
Raised by oracle.apps.ad.autoconfig.InstantiateFile
AC-00423: Template file: /volora/oracle9/app/oracle/product/9i/appsutil/template/afdbprf.sh missing from file system.
Raised by oracle.apps.ad.autoconfig.InstantiateFile
AC-00423: Template file: /volora/oracle9/app/oracle/product/9i/appsutil/template/addbctl.sh missing from file system.
Raised by oracle.apps.ad.autoconfig.InstantiateFile
AC-00423: Template file: /volora/oracle9/app/oracle/product/9i/appsutil/template/addlnctl.sh missing from file system.
Raised by oracle.apps.ad.autoconfig.InstantiateFile
AC-00423: Template file: /volora/oracle9/app/oracle/product/9i/appsutil/template/adlsnodes_ux.sh missing from file system.
Raised by oracle.apps.ad.autoconfig.InstantiateFile
AC-00423: Template file: /volora/oracle9/app/oracle/product/9i/appsutil/template/adlnkoh.sh missing from file system.
Raised by oracle.apps.ad.autoconfig.InstantiateFile
AC-00423: Template file: /volora/oracle9/app/oracle/product/9i/appsutil/template/adautocfg_ux.sh missing from file system.
Raised by oracle.apps.ad.autoconfig.InstantiateFile
AC-00423: Template file: /volora/oracle9/app/oracle/product/9i/appsutil/template/adcrobj.sh missing from file system.
Raised by oracle.apps.ad.autoconfig.InstantiateFile
File /volora/oracle9/app/oracle/product/9i/dbs/initMSBEP004.ora of type INSTALL already exists, this file will not be instantiated.
File /volora/oracle9/app/oracle/product/9i/network/admin/MSBEP004_dcpsr006osm/listener.ora of type INSTALL already exists, this file will not be instantiated.
AC-00423: Template file: /volora/oracle9/app/oracle/product/9i/appsutil/template/afmkinit.sh missing from file system.
Raised by oracle.apps.ad.autoconfig.InstantiateFile
AC-00423: Template file: /volora/oracle9/app/oracle/product/9i/appsutil/template/config_aix_64.s missing from file system.
Raised by oracle.apps.ad.autoconfig.InstantiateFile
AutoConfig Setup Phase
Running Setup Process 2 of 2 for AppsUtil
AC-50400: Script file /volora/oracle9/app/oracle/product/9i/appsutil/install/MSBEP004_dcpsr006osm/afmkinit.sh missing.
Raised by oracle.apps.ad.autoconfig.InstantiateFile
AutoConfig Profile Phase
Running Profile Process 1 of 1 for AppsUtil
AC-50400: Script file /volora/oracle9/app/oracle/product/9i/appsutil/install/MSBEP004_dcpsr006osm/afdbprf.sh missing.
Raised by oracle.apps.ad.autoconfig.InstantiateFile
AutoConfig Services Phase
Running Service Process 1 of 1 for AppsUtil
AC-50400: Script file /volora/oracle9/app/oracle/product/9i/appsutil/install/MSBEP004_dcpsr006osm/adcrobj.sh missing.
Raised by oracle.apps.ad.autoconfig.InstantiateFile -
AutoConfig could not successfully execute the following scripts afcpnode.cm
When i run the autoconfig, it end up with following error message:
[AutoConfig Error Report]
The following report lists errors AutoConfig encountered during each
phase of its execution. Errors are grouped by directory and phase.
The report format is:
<filename> <phase> <return code where appropriate>
[SETUP PHASE]
AutoConfig could not successfully execute the following scripts:
Directory: d:\oracle\prodcomn\admin\install\PROD_oraprod
afcpnode.cmd INSTE8_SETUP 1
[PROFILE PHASE]
AutoConfig could not successfully execute the following scripts:
Directory: d:\oracle\prodcomn\admin\install\PROD_oraprod
afcpgsm.cmd INSTE8_PRF 1
AutoConfig is exiting with status 2
this error is comming after running the FNDCPASS utility to change apps and other schema password. i also changed the password for sys and system and remote_login_passwordfile parameter is set to exclusive. This error is comming on application node. On Database node there is no error.
Thanls and RegardsIs this problem is linked with apps user's password length because it is 17 char long and may be apps password variable is not that much longI could not find any reported bugs/notes about the password length, only a bug (5859062) about the domain name length.
Note: 418403.1 - AUTOCONFIG FAILURE AFCPNODES.SQL DOMAIN NAME LONGER THAN 30 CHARACTERS
https://metalink.oracle.com/metalink/plsql/ml2_documents.showDocument?p_database_id=NOT&p_id=418403.1 -
AutoConfig could not successfully execute the following scripts bisdblrp.cm
When i run the autoconfig, it end up with following error message:
AutoConfig could not successfully execute the following scripts:
Directory: E:\oracle\fincomn\admin\install\FIN_ora-fin
bisdblrp.cmd INSTE8_APPLY -1
this error is comming after running the FNDCPASS utility to change apps and other schema password. i also changed the password for sys and system and remote_login_passwordfile parameter is set to exclusive.
AutoConfig is exiting with status 1
regardsThere are many reported Metalink notes about bisdblrp.sh (bisdblrp.cmd), here are some links:
Note: 397773.1 - bisdblrp.sh failed with ORA-01031: insufficient privileges while running Autoconfig
https://metalink.oracle.com/metalink/plsql/ml2_documents.showDocument?p_database_id=NOT&p_id=397773.1
Note: 431079.1 - Bisdblrp.sh Fails With ORA-06502 Error
https://metalink.oracle.com/metalink/plsql/ml2_documents.showDocument?p_database_id=NOT&p_id=431079.1
Note: 417073.1 - Bisdblrp.Sh Fails During Clone Autoconfig
https://metalink.oracle.com/metalink/plsql/ml2_documents.showDocument?p_database_id=NOT&p_id=417073.1
Note: 360679.1 - Adautocfg errors on bisdblrp.sh - buffer too small ora-06502
https://metalink.oracle.com/metalink/plsql/ml2_documents.showDocument?p_database_id=NOT&p_id=360679.1
So, checking AutoConfig log file should be helpful in revealing more details about the error. -
Need help in modifing the following code to display required output
Hi this is the code which i am going to displayoutput here i used FM VRM_SET_VALUES for getting dropdown box when i used it my output race field is not getting any values and blank space is getting displayed
what i want is just i need to display the output according to the selection screen
and the other fields in the selection screen except 'p_gender' are also giving problem when i am keeping where condition to link selection screen
can any one please help me in getting the required output according to selection by modifing the following code
TABLES: pernr,t5u13,cskt , t001p,t500p, t501t,t503t,t513s,t527x,t529t,t530t, t5uaa.
TYPE-POOLS: slis, vrm.
INFOTYPES: 0000, "Actions
0001, "Org Assignment
0002, "Personal Data
0006, "Address
0008, "Basic Pay
0041, "Date Specifications
0077. "Additional Personal Data
CONSTANTS: gc_x TYPE c VALUE 'X',
g_w(1) TYPE c VALUE 'W',
g_h(1) TYPE c VALUE 'H',
g_af(2) TYPE c VALUE 'AF',
g_ai(2) TYPE c VALUE 'AI',
g_01(2) TYPE c VALUE 'R1',
g_02(2) TYPE c VALUE 'R2',
g_03(2) TYPE c VALUE 'R3',
g_05(2) TYPE c VALUE 'R5'.
TYPES : BEGIN OF t_roster,
pernr TYPE p0001-pernr,
ssn TYPE p0002-perid,
first_name TYPE p0002-vorna,
last_name TYPE p0002-nachn,
city TYPE t500p-ort01,
state TYPE t500p-regio,
zipcode TYPE t500p-pstlz,
hire_date(10) TYPE c,
lhire_date(10) TYPE c,
serv_date(10) TYPE c,
eg TYPE p0001-persg,
eg_desc TYPE t501t-ptext,
esg TYPE p0001-persk,
esg_desc TYPE t503t-ptext,
race TYPE p0077-rac01,
*** TYPE p0002-gesch,
job_grade TYPE p0008-trfgr,
job_level TYPE p0008-trfst,
grade_entry_date(10) TYPE c,
job_title TYPE p0001-plans,
title(30) TYPE c,
job_code TYPE p0001-stell,
job_code_desc TYPE t513s-stltx,
job_entry_date(10) TYPE c,
annual_sal TYPE p0008-ansal,
hrly_rate TYPE p0008-bet01,
org_unit TYPE p0001-orgeh,
orgtx(40) TYPE c,
cost_cntr TYPE p0001-kostl,
ltext(40) TYPE c,
personal_area TYPE p0001-werks,
personal_area_desc TYPE t500p-name1,
supervisor(30) TYPE c,
flsa TYPE t5u13-exmpt,
ee01 TYPE t5u13-eeoct,
job_grp TYPE p0001-stell,
aap_code TYPE t5u13-aapct,
aap_code_desc TYPE t5uaa-ltext,
dob TYPE p0002-gbdat,
psa TYPE p0001-btrtl,
psa_desc TYPE t001p-btext,
unionl TYPE p0001-btrtl,
unionc TYPE p0001-btrtl,
END OF t_roster.
DATA : gi_roster TYPE STANDARD TABLE OF t_roster, gi_objec TYPE STANDARD TABLE OF objec,
gi_hrp1000 TYPE STANDARD TABLE OF hrp1000,
gi_cskt TYPE STANDARD TABLE OF cskt,
gi_t001p TYPE STANDARD TABLE OF t001p,
gi_t500p TYPE STANDARD TABLE OF t500p,
gi_t501t TYPE STANDARD TABLE OF t501t,
gi_t503t TYPE STANDARD TABLE OF t503t,
gi_t513s TYPE STANDARD TABLE OF t513s,
gi_t527x TYPE STANDARD TABLE OF t527x,
gi_t529t TYPE STANDARD TABLE OF t529t,
gi_t530t TYPE STANDARD TABLE OF t530t,
gi_t5u13 TYPE STANDARD TABLE OF t5u13,
gi_t5uaa TYPE STANDARD TABLE OF t5uaa.
DATA : gs_roster TYPE t_roster,
gs_objec TYPE objec,
gs_hrp1000 TYPE hrp1000,
gs_cskt TYPE cskt,
gs_t001p TYPE t001p,
gs_t500p TYPE t500p,
gs_t501t TYPE t501t,
gs_t503t TYPE t503t,
gs_t513s TYPE t513s,
gs_t527x TYPE t527x,
gs_t529t TYPE t529t,
gs_t530t TYPE t530t,
gs_t5u13 TYPE t5u13,
gs_t5uaa TYPE t5uaa.
DATA : gv_ltext(40) TYPE c,
gv_ltext1(40) TYPE c,
gv_age(3) TYPE c,
gv_butxt(40) TYPE c,
gv_eeoc(10) TYPE c,
gv_prevdate TYPE datum.
DATA: gi_fieldcat TYPE slis_t_fieldcat_alv,
gs_fieldcat TYPE slis_fieldcat_alv,
i_top_of_page TYPE slis_t_listheader,
g_repid TYPE sy-repid,
g_save,
gs_layout TYPE slis_layout_alv,
gt_events TYPE slis_t_event,
gs_variant LIKE disvariant,
gi_top_of_page TYPE slis_formname VALUE 'TOP_OF_PAGE'.
DATA: name TYPE vrm_id,
list TYPE vrm_values,
value LIKE LINE OF list.
SELECTION-SCREEN BEGIN OF BLOCK b1
WITH FRAME TITLE text-x02.
PARAMETERS : p_race(10) AS LISTBOX VISIBLE LENGTH 30,
p_gender TYPE p0002-gesch,
p_eeoc TYPE t5u13-eeoct,
p_aap TYPE t5u13-aapct.
SELECTION-SCREEN END OF BLOCK b1.
AT SELECTION-SCREEN OUTPUT.
REFRESH list.
name = 'P_RACE'.
value-key = 'R1'.
value-text = 'American Indian or Alaskan Native'.
APPEND value TO list.
CLEAR value.
value-key = 'R2'.
value-text = 'Asian'.
APPEND value TO list.
CLEAR value.
value-key = 'R3'.
value-text = 'Black or African American'.
APPEND value TO list.
CLEAR value.
value-key = 'R5'.
value-text = 'White'.
APPEND value TO list.
CLEAR value.
CALL FUNCTION 'VRM_SET_VALUES'
EXPORTING
id = name
values = list
EXCEPTIONS
id_illegal_name = 1
OTHERS = 2.
INITIALIZATION.
g_repid = sy-repid.
PERFORM layout_init USING gs_layout.
PERFORM eventtab_build USING gt_events[].
gs_variant-report = g_repid.
g_save = 'A'.
START-OF-SELECTION.
GET pernr.
PERFORM roster_aap.
END-OF-SELECTION.
PERFORM fetch_roster_text.
PERFORM output_roster_display.
*& Form ROSTER_AAP
text
--> p1 text
<-- p2 text
FORM roster_aap .
PERFORM infty_rost_0001.
PERFORM infty_rost_0002.
PERFORM infty_rost_0008.
PERFORM infty_rost_0041.
PERFORM infty_rost_0077.
PERFORM supervisor_rost.
PERFORM append_rost_recs.
ENDFORM. " ROSTER_AAP
*& Form INFTY_ROST_0001
text
FORM infty_rost_0001 .
rp_provide_from_last p0001 space
pn-begda pn-endda.
IF pnp-sw-found = 1.
gs_roster-pernr = p0001-pernr.
gs_roster-eg = p0001-persg.
READ TABLE gi_t501t INTO gs_t501t WITH KEY persg = p0001-persg.
IF sy-subrc <> 0.
APPEND gs_t501t TO gi_t501t.
CLEAR gs_t501t.
ENDIF.
gs_roster-esg = p0001-persk.
READ TABLE gi_t503t INTO gs_t503t WITH KEY persk = p0001-persk.
IF sy-subrc <> 0.
APPEND gs_t503t TO gi_t503t.
CLEAR gs_t503t.
ENDIF.
gs_roster-job_title = p0001-plans.
READ TABLE gi_hrp1000 INTO gs_hrp1000 WITH KEY objid = p0001-plans.
IF sy-subrc <> 0.
APPEND gs_hrp1000 TO gi_hrp1000.
CLEAR gs_hrp1000.
ENDIF.
gs_roster-job_code = p0001-stell.
READ TABLE gi_t513s INTO gs_t513s WITH KEY stell = p0001-stell.
IF sy-subrc <> 0.
APPEND gs_t513s TO gi_t513s.
CLEAR gs_t513s.
ENDIF.
gs_roster-org_unit = p0001-orgeh.
READ TABLE gi_t527x INTO gs_t527x WITH KEY orgeh = p0001-orgeh.
IF sy-subrc <> 0.
APPEND gs_t527x TO gi_t527x.
CLEAR gs_t527x.
ENDIF.
gs_roster-cost_cntr = p0001-kostl.
READ TABLE gi_cskt INTO gs_cskt WITH KEY kostl = p0001-kostl.
IF sy-subrc <> 0.
APPEND gs_cskt TO gi_cskt.
CLEAR gs_cskt.
ENDIF.
gs_roster-personal_area = p0001-werks.
READ TABLE gi_t500p INTO gs_t500p WITH KEY persa = p0001-werks.
IF sy-subrc <> 0.
APPEND gs_t500p TO gi_t500p.
CLEAR gs_t500p.
ENDIF.
gs_roster-job_grp = p0001-stell.
READ TABLE gi_t5u13 INTO gs_t5u13 WITH KEY stell = p0001-stell.
IF sy-subrc <> 0.
APPEND gs_t5u13 TO gi_t5u13.
CLEAR gs_t5u13.
ENDIF.
READ TABLE gi_t5uaa INTO gs_t5uaa WITH KEY aapct = gs_roster-aap_code.
IF sy-subrc <> 0.
APPEND gs_t5uaa TO gi_t5uaa.
CLEAR gs_t5uaa.
ENDIF.
gs_roster-psa = p0001-btrtl.
READ TABLE gi_t001p INTO gs_t001p WITH KEY btrtl = p0001-btrtl.
IF sy-subrc <> 0.
APPEND gs_t001p TO gi_t001p.
CLEAR gs_t001p.
ENDIF.
gs_roster-unionl = p0001-btrtl.
gs_roster-unionc = p0001-btrtl.
ENDIF.
ENDFORM. " INFTY_ROST_0001
*& Form INFTY_ROST_0002
text
FORM infty_rost_0002 .
rp_provide_from_last p0002 space
pn-begda pn-endda.
IF pnp-sw-found = 1.
IF p_gender IS NOT INITIAL AND p_gender NE p0002-gesch.
REJECT.
ENDIF.
gs_roster-ssn = p0002-perid.
gs_roster-first_name = p0002-vorna.
gs_roster-last_name = p0002-nachn.
gs_roster-*** = p0002-gesch.
gs_roster-dob = p0002-gbdat.
ENDIF.
ENDFORM. " INFTY_ROST_0002
*& Form INFTY_ROST_0008
text
FORM infty_rost_0008 .
DATA: lv_wage TYPE lgart,
lv_amount TYPE pad_amt7s.
rp_provide_from_last p0008 space
pn-begda pn-endda.
IF pnp-sw-found = 1.
gs_roster-annual_sal = p0008-ansal.
DO 40 TIMES VARYING lv_wage FROM p0008-lga01
NEXT p0008-lga02
VARYING lv_amount FROM p0008-bet01
NEXT p0008-bet02.
IF lv_wage = '0101'.
gs_roster-hrly_rate = lv_amount.
EXIT.
ENDIF.
ENDDO.
gs_roster-job_grade = p0008-trfgr.
gs_roster-job_level = p0008-trfst.
ENDIF.
ENDFORM. " INFTY_ROST_0008
*& Form INFTY_ROST_0041
text
FORM infty_rost_0041 .
DATA : l_date TYPE datum,
l_hdate TYPE datum,
l_sdate TYPE datum.
rp_provide_from_last p0041 space
pn-begda pn-endda.
IF pnp-sw-found = 1.
CLEAR : l_date,
l_hdate,
l_sdate.
*--Last Hire Date--
CALL FUNCTION 'HR_DATESPECIFICATION_DATE_GET'
EXPORTING
p0041 = p0041
p_datar = 'U1'
P_DATKN =
IMPORTING
p_date = l_date
EXCEPTIONS
illegal_arguments = 1
more_than_one_date = 2
OTHERS = 3
IF sy-subrc <> 0.
ENDIF.
IF NOT l_date IS INITIAL.
CONCATENATE
l_date4(2) l_date6(2) l_date+0(4)
INTO gs_roster-hire_date
SEPARATED BY '/'.
ENDIF.
ENDIF.
*--Last Hire Date--
CALL FUNCTION 'HR_DATESPECIFICATION_DATE_GET'
EXPORTING
p0041 = p0041
p_datar = 'U2'
P_DATKN =
IMPORTING
p_date = l_hdate
EXCEPTIONS
illegal_arguments = 1
more_than_one_date = 2
OTHERS = 3
IF sy-subrc <> 0.
ENDIF.
IF NOT l_hdate IS INITIAL.
CONCATENATE
l_hdate4(2) l_hdate6(2) l_hdate+0(4)
INTO gs_roster-lhire_date
SEPARATED BY '/'.
ENDIF.
*--Service Date--
CALL FUNCTION 'HR_DATESPECIFICATION_DATE_GET'
EXPORTING
p0041 = p0041
p_datar = 'U4'
P_DATKN =
IMPORTING
p_date = l_sdate
EXCEPTIONS
illegal_arguments = 1
more_than_one_date = 2
OTHERS = 3
IF sy-subrc <> 0.
ENDIF.
IF NOT l_sdate IS INITIAL.
CONCATENATE
l_sdate4(2) l_sdate6(2) l_sdate+0(4)
INTO gs_roster-serv_date
SEPARATED BY '/'.
ENDIF.
ENDFORM. " INFTY_ROST_0041
*& Form INFTY_ROST_0077
text
FORM infty_rost_0077 .
DATA: lv_race TYPE races.
rp_provide_from_last p0077 space
pn-begda pn-endda.
IF pnp-sw-found = 1.
IF NOT p_race IS INITIAL AND p_race NE lv_race.
REJECT.
ENDIF.
DO 10 TIMES VARYING lv_race FROM p0077-rac01
NEXT p0077-rac02.
IF lv_race NE space.
IF lv_race EQ g_01.
gs_roster-race = g_ai.
ELSEIF lv_race EQ g_02.
gs_roster-race = g_h.
ELSEIF lv_race EQ g_03.
gs_roster-race = g_af.
ELSEIF lv_race EQ g_05.
gs_roster-race = g_w.
ENDIF.
ENDIF.
ENDDO.
ENDIF.
ENDFORM. " INFTY_ROST_0077
*& Form SUPERVISOR_ROST
text
FORM supervisor_rost .
REFRESH gi_objec.
IF NOT p0001-orgeh IS INITIAL.
CALL FUNCTION 'HRCM_ORGUNIT_MANAGER_GET'
EXPORTING
plvar = '01'
otype = 'O'
objid = p0001-orgeh
begda = pn-begda
endda = pn-endda
PATH_ID = ' '
TABLES
manager_info_table = gi_objec
EXCEPTIONS
path_error = 1
root_error = 2
nothing_found = 3
OTHERS = 4
IF sy-subrc <> 0.
ENDIF.
SORT gi_objec DESCENDING BY endda.
READ TABLE gi_objec INTO gs_objec INDEX 1.
IF sy-subrc = 0.
gs_roster-supervisor = gs_objec-stext.
CLEAR gs_objec.
ENDIF.
ENDIF.
ENDFORM. " SUPERVISOR_ROST
*& Form APPEND_ROST_RECS
text
FORM append_rost_recs .
IF NOT gs_roster-pernr IS INITIAL.
APPEND gs_roster TO gi_roster.
CLEAR gs_roster.
ENDIF.
ENDFORM. " APPEND_ROST_RECS
*& Form FETCH_ROSTER_TEXT
text
FORM fetch_roster_text .
IF p_eeoc IS NOT INITIAL AND p_eeoc NE t5u13-eeoct.
REJECT.
ENDIF.
IF NOT gi_roster IS INITIAL.
SELECT orgeh orgtx FROM t527x
INTO CORRESPONDING FIELDS OF TABLE gi_t527x
WHERE sprsl = sy-langu AND
endda = '99991231'.
SELECT persa ort01 regio pstlz name1
FROM t500p
INTO CORRESPONDING FIELDS OF TABLE gi_t500p.
SELECT persg ptext
FROM t501t
INTO CORRESPONDING FIELDS OF TABLE gi_t501t
WHERE sprsl = sy-langu.
SELECT persk ptext
FROM t503t
INTO CORRESPONDING FIELDS OF TABLE gi_t503t
WHERE sprsl = sy-langu.
SELECT stell stltx FROM t513s
INTO CORRESPONDING FIELDS OF TABLE gi_t513s
WHERE sprsl = sy-langu AND
endda = '99991231'.
SELECT otype plvar objid stext
FROM hrp1000 INTO
CORRESPONDING FIELDS OF TABLE gi_hrp1000
for all entries in gi_roster
WHERE plvar = '01'
AND otype = 'S'.
and objid = gi_roster-job_title.
SELECT stell eeoct exmpt aapct
FROM t5u13
INTO CORRESPONDING FIELDS OF TABLE gi_t5u13.
for all entries in gi_t5u13
WHERE stell = gi_t5u13-stell
AND eeoct = p_eeoc
AND aapct = p_aap.
SELECT aapct eeoct ltext
FROM t5uaa
INTO CORRESPONDING FIELDS OF TABLE gi_t5uaa.
FOR ALL ENTRIES IN gi_roster
WHERE aapct = gi_roster-aap_code
and eeoct = gi_roster-ee01.
SELECT kostl ltext
FROM cskt
INTO CORRESPONDING FIELDS OF TABLE gi_cskt
FOR ALL ENTRIES IN gi_roster
WHERE kostl = gi_roster-cost_cntr
WHERE spras = sy-langu.
SELECT btrtl btext
FROM t001p
INTO CORRESPONDING FIELDS OF TABLE gi_t001p.
FOR ALL ENTRIES IN gi_roster
WHERE btrtl = gi_roster-psa.
ENDIF.
LOOP AT gi_roster INTO gs_roster.
CLEAR :gs_hrp1000,gs_t5u13,gs_t500p,gs_t501t,gs_t503t,gs_t5uaa,gs_cskt,gs_t001p,gs_t513s, gs_t527x,gs_t529t,gs_t530t.
READ TABLE gi_t501t INTO gs_t501t WITH KEY persg = gs_roster-eg.
IF sy-subrc = 0.
gs_roster-eg_desc = gs_t501t-ptext.
ENDIF.
READ TABLE gi_t503t INTO gs_t503t WITH KEY persk = gs_roster-esg.
IF sy-subrc = 0.
gs_roster-esg_desc = gs_t503t-ptext.
ENDIF.
READ TABLE gi_t513s INTO gs_t513s
WITH KEY stell = gs_roster-job_code.
IF sy-subrc = 0.
gs_roster-job_code_desc = gs_t513s-stltx.
ENDIF.
READ TABLE gi_t527x INTO gs_t527x
WITH KEY orgeh = gs_roster-org_unit.
IF sy-subrc = 0.
gs_roster-orgtx = gs_t527x-orgtx.
ENDIF.
READ TABLE gi_hrp1000 INTO gs_hrp1000 WITH KEY objid = gs_roster-job_title.
IF sy-subrc = 0.
gs_roster-title = gs_hrp1000-stext.
ENDIF.
READ TABLE gi_cskt INTO gs_cskt
WITH KEY kostl = gs_roster-cost_cntr.
IF sy-subrc = 0.
gs_roster-ltext = gs_cskt-ltext.
ENDIF.
READ TABLE gi_t5u13 INTO gs_t5u13 WITH KEY stell = gs_roster-job_code.
IF sy-subrc = 0.
gs_roster-ee01 = gs_t5u13-eeoct.
gs_roster-flsa = gs_t5u13-exmpt.
gs_roster-aap_code = gs_t5u13-aapct.
ENDIF.
READ TABLE gi_t500p INTO gs_t500p WITH KEY persa = gs_roster-personal_area.
IF sy-subrc = 0.
gs_roster-city = gs_t500p-ort01.
gs_roster-state = gs_t500p-regio.
gs_roster-zipcode = gs_t500p-pstlz.
gs_roster-personal_area_desc = gs_t500p-name1.
ENDIF.
READ TABLE gi_t001p INTO gs_t001p WITH KEY btrtl = gs_roster-psa.
IF sy-subrc = 0.
gs_roster-psa_desc = gs_t001p-btext.
ENDIF.
READ TABLE gi_t5uaa INTO gs_t5uaa WITH KEY aapct = gs_roster-aap_code eeoct = gs_roster-ee01.
IF sy-subrc = 0.
gs_roster-aap_code_desc = gs_t5uaa-ltext.
ENDIF.
MODIFY gi_roster FROM gs_roster .
ENDLOOP.
ENDFORM. " FETCH_ROSTER_TEXT
*& Form OUTPUT_ROSTER_DISPLAY
text
FORM output_roster_display .
PERFORM build_roster_fieldcatalog.
PERFORM comment_roster_build CHANGING i_top_of_page[].
PERFORM display_roster_alv_report.
ENDFORM. " OUTPUT_ROSTER_DISPLAY
*& Form LAYOUT_INIT
text
FORM layout_init USING rs_layout TYPE slis_layout_alv.
rs_layout-detail_popup = 'X'.
rs_layout-zebra = 'X'.
rs_layout-colwidth_optimize = 'X'.
ENDFORM. " LAYOUT_INIT
*& Form EVENTTAB_BUILD
text
FORM eventtab_build USING rt_events TYPE slis_t_event.
*"Registration of events to happen during list display
DATA: ls_event TYPE slis_alv_event.
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
EXPORTING
i_list_type = 0
IMPORTING
et_events = rt_events.
READ TABLE rt_events WITH KEY name = slis_ev_top_of_page
INTO ls_event.
IF sy-subrc = 0.
MOVE gi_top_of_page TO ls_event-form.
APPEND ls_event TO rt_events.
ENDIF.
ENDFORM. " EVENTTAB_BUILD
*& Form top_of_page
text
FORM top_of_page.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
EXPORTING
it_list_commentary = i_top_of_page.
ENDFORM. "TOP_OF_PAGE
*& Form BUILD_ROSTER_FIELDCATALOG
text
FORM build_roster_fieldcatalog .
gs_fieldcat-fieldname = 'PERNR'.
gs_fieldcat-seltext_m = 'Employee Number'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'SSN'.
gs_fieldcat-seltext_m = 'SSN Number'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'FIRST_NAME'.
gs_fieldcat-seltext_m = 'First Name'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'LAST_NAME'.
gs_fieldcat-seltext_m = 'Last Name'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'CITY'.
gs_fieldcat-seltext_m = 'City'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'STATE'.
gs_fieldcat-seltext_m = 'State'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'ZIPCODE'.
gs_fieldcat-seltext_m = 'Zip Code'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'HIRE_DATE'.
gs_fieldcat-seltext_m = 'Hire Date'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'LHIRE_DATE'.
gs_fieldcat-seltext_m = 'Last Hire Date'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'SERV_DATE'.
gs_fieldcat-seltext_m = 'Service Date'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'EG'.
gs_fieldcat-seltext_m = 'Eg'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'EG_DESC'.
gs_fieldcat-seltext_m = 'Eg Description'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'ESG'.
gs_fieldcat-seltext_m = 'Esg'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'ESG_DESC'.
gs_fieldcat-seltext_m = 'Eg Description'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'RACE'.
gs_fieldcat-seltext_m = 'Race'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = '***'.
gs_fieldcat-seltext_m = '***'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'JOB_GRADE'.
gs_fieldcat-seltext_m = 'Job Grade'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'JOB_LEVEL'.
gs_fieldcat-seltext_m = 'Job Level'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'GRADE_ENTRY_DATE'.
gs_fieldcat-seltext_l = 'Grade Entry Date'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'JOB_TITLE'.
gs_fieldcat-seltext_l = 'Job Title'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat..
gs_fieldcat-fieldname = 'TITLE'.
gs_fieldcat-seltext_l = 'Job Title Description'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'JOB_CODE'.
gs_fieldcat-seltext_l = 'Job Code'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'JOB_CODE_DESC'.
gs_fieldcat-seltext_l = 'Job Code Description'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'JOB_ENTRY_DATE'.
gs_fieldcat-seltext_l = 'Job Entry Date'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'ANNUAL_SAL'.
gs_fieldcat-seltext_l = 'Annual Salary'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'HRLY_RATE'.
gs_fieldcat-seltext_l = 'Hourly Rate'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'ORG_UNIT'.
gs_fieldcat-seltext_l = 'Org Unit'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'ORGTX'.
gs_fieldcat-seltext_l = 'Org Text'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'COST_CNTR'.
gs_fieldcat-seltext_l = 'Cost Center'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'LTEXT'.
gs_fieldcat-seltext_l = 'Cost Center Description'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'PERSONAL_AREA'.
gs_fieldcat-seltext_l = 'Personal Area'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'PERSONAL_AREA_DESC'.
gs_fieldcat-seltext_l = 'Personal Area Description'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'SUPERVISOR'.
gs_fieldcat-seltext_l = 'Supervisor'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'FLSA'.
gs_fieldcat-seltext_l = 'FLSA'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'EE01'.
gs_fieldcat-seltext_l = 'EE01'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'JOB_GRP'.
gs_fieldcat-seltext_l = 'Job Group'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'AAP_CODE'.
gs_fieldcat-seltext_l = 'AAP Code'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'AAP_CODE_DESC'.
gs_fieldcat-seltext_l = 'AAP Code Description'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'DOB'.
gs_fieldcat-seltext_l = 'Date of Birth'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'PSA'.
gs_fieldcat-seltext_l = 'Personal Sub Area'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'PSA_DESC'.
gs_fieldcat-seltext_l = 'Personal Sub Area Description'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'UNIONL'.
gs_fieldcat-seltext_l = 'Union Local'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'UNIONC'.
gs_fieldcat-seltext_l = 'Union Classfication'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
ENDFORM. " BUILD_ROSTER_FIELDCATALOG
*& Form COMMENT_ROSTER_BUILD
text
FORM comment_roster_build CHANGING top_of_page TYPE
slis_t_listheader.
DATA: ls_line TYPE slis_listheader,
l_startdate(10) TYPE c,
l_enddate(10) TYPE c,
l_final_start(22) TYPE c,
l_final_end(22) TYPE c.
CONCATENATE pn-begda4(2)'/'pn-begda6(2)'/'pn-begda+0(4)
INTO l_startdate.
CONCATENATE pn-endda4(2)'/'pn-endda6(2)'/'pn-endda+0(4)
INTO l_enddate.
CONCATENATE 'Start Date:' l_startdate INTO l_final_start.
CONCATENATE 'End Date :' l_enddate INTO l_final_end.
CLEAR ls_line.
ls_line-typ = 'H'.
ls_line-info = 'AAP-EEOC Roster Report Data '. "Max len = 60
APPEND ls_line TO i_top_of_page.
CLEAR ls_line.
ls_line-typ = 'S'.
ls_line-info = l_final_start.
APPEND ls_line TO i_top_of_page.
CLEAR ls_line.
ls_line-typ = 'S'.
ls_line-info = l_final_end.
APPEND ls_line TO i_top_of_page.
CLEAR ls_line.
ENDFORM. " COMMENT_ROSTER_BUILD
*& Form DISPLAY_ROSTER_ALV_REPORT
text
FORM display_roster_alv_report .
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
i_callback_program = g_repid
is_layout = gs_layout
it_fieldcat = gi_fieldcat
i_save = g_save
is_variant = gs_variant
it_events = gt_events[]
TABLES
t_outtab = gi_roster
EXCEPTIONS
program_error = 1
OTHERS = 2
IF sy-subrc <> 0.
ENDIF.
ENDFORM. " DISPLAY_ROSTER_ALV_REPORT
Regards
sachinhi there,
i want to fetch data from all the fields i ahve given here .It will be a join statement.
the important thing is I need all the values of vbeln in leftside
as output. -
What's wrong with the following code?
What's wrong with the following code?
Circle cir1;
double rad = cir1.radiusThe circle Object was never instantiated.
In other words, you have set a declaring of a Circle, but it has not been created in memory yet.
You will create it using the " = new Circle( PARAMETERS_HERE ); "
Or some other method that returns a circle. -
Do we need to put the following code in the web-xml for the project to run
Hi^^^,
actually I have created a project in Eclipse WTP and I am running it from remote server. Its giving me 404 error when I tried to run it.
I know 404 error is generally due to some error in deployment descriptor.
I am going through this tutorial for creating project in eclipse WTP
this says that I need to include the following code in web-xml. Please look at the quotes below
"Web modules in J2EE has a deployment descriptor where you configure the web application and its components. This deployment descriptors is called the web.xml. According to the J2EE specification, it must be located in the WEB-INF folder. web.xml must have definitions for the Servlet and the Servlet URI mapping. Enter the following lines into web.xml:"
"Listing 2. Deployment Descriptor web.xml"
<servlet>
<servlet-name>Snoop Servlet</servlet-name>
<servlet-class>org.eclipse.wtp.tutorial.SnoopServlet</servlet-class>
</servlet>
<servlet-mapping>
<servlet-name>Snoop Servlet</servlet-name>
<url-pattern>/snoop/*</url-pattern>
</servlet-mapping>
My question is, it is necessary to include the above lines between <servlet> and </servlet-mapping> in web-xml
thanks and regards,
Prashantpksingh79 wrote:
actually I have created a project in Eclipse WTP and I am running it from remote server. Its giving me 404 error when I tried to run it.
I know 404 error is generally due to some error in deployment descriptor. what's the url you've put.
<servlet>
<servlet-name>Snoop Servlet</servlet-name>
<servlet-class>org.eclipse.wtp.tutorial.SnoopServlet</servlet-class>
</servlet> Every Servlet has to have a <servlet></Servlet> tag in the web.xml
the <servlet-name>is for the naming the servlet and the <servlet-calss>is for class file of the servlet in your case the .class file is to be in the package of tutorial,if it's not then how the container will no where the calss file is
<servlet-mapping>
<servlet-name>Snoop Servlet</servlet-name>
<url-pattern>/snoop/*</url-pattern>
</servlet-mapping>You type something in your url likk http://localhost:8080/webappname (Tomcat server),so for url mapping instead of typing the entire class file name ,you just enough have to type what you've put in the <url-mapping> tag and it has to be inside of <servlet-mapping>
I think the problem is in <url-pattern> change it like /snoop<url-pattern>
My question is, it is necessary to include the above lines between <servlet> and ></servlet->mapping> in web.xmlSo now you think whether you need something inside <servlet>and </servlet-mapping>
Maybe you are looking for
-
My iphone is synced to a broken down computer, how can i sync it to a new computer?
Hi, I want to update and add music to my iphone 4S but my iphone 4S is synced to a computer that has recently broken down.... I have another computer with an itunes library but when i attach the iphone 4S via USB the itunes library doesnt pick it up
-
Hello experts, I am currently having a problem with my At New statement. It is treating every field of the itab as a new record even though it is the same. For example, on the first loop the field matnr has a value of mat-A then the at new will
-
Need help -how to use a GUI to compile a file
hello peeps, I have this problem, let's get directly into it, i have a program that has GUI with a Text Area that im going to copy a text file into it (using JFileChooser FileReader and readLine() ...) so i have radio buttons like (view, compile and
-
Discovering additional network configurations
Can someone help me. While trying to install solaris 10 in my ultra 80. I keep getting a hangup while discovering additional network configurations. How can I disable this so it doesnt happen anymore.
-
Missing Source files when exporting to Soundtrack and LiveType
An extremely frustrating "glitch" has occurred. When exporting to LiveType or Soundtrack, I receive and error message telling me that one or more of my source files are missing. I had been editing with these files in FCP 5 for the past few days with