Urgent: need threadsafe replacement for malloc
Hi,
I have a native library that is using GetDirectBufferAddress to create large chunks
within the java memory model that I can use to subdivide and alloc from
in the native code instead of using malloc. However, there are multiple threads
using these chunks so I need a locking mechanism.
The problem is that MonitorEntry/MonitorExit takes 250 nanoseconds, which is
a huge price to pay for allocation and free, total = 500. My question is can I
do whatever malloc does in the GNU library to make itself immune to jvm
thread context switches, especially on multiple cpu machines. Spin locks,
openmp mutexes? Does anyone know how malloc is made threadsafe to
be ok to use within a JNI library? And how I can get my hands on the
necessary code.
Thanks,
Andy
Greetings Folks,
Like the original poster I am trying to back up my HD info. Got the exact same error message and code:
"The operation cannot be completed because one or
more required items cannot be found.
(Error code -43).
Could not open the data fork of "<unable to get file path>" (-43)."
I was able to trace the error code down on Apple's Support site under the heading: Mac OS X, Mac OS X Server: "Error -43" When Using Windows File Sharing (SMB). Yay...except I have never used Windows file sharing and can't figure how this pertains to my problem.
I did type
in the "<unable to get file path>" into spotlight and
got several hits:
Documents:
core.html.html
windows.html.html
ssl_faq.html
PDF Documents:
About Xcode Tools.pdf
I deleted the "Documents" files (same ones as OP) that came up when I searched <unable to get file path> Was this an oops?
Anyway, the disc was only 50% complete. I got a
"closing session 1" window and that stayed active on
the desktop for a few minutes and then the dvd just
spit out. I put the dvd back in to see what was on it
and didn't even open for a minute or two, just heard
some clicking sounds from the drive and never got a
disc icon on the desktop to even look at what was on
the dvd. I gave it another try but sam thing
happened.
Same thing happened here. I would really like to back up my files. I have already trashed several DVDs in my unsuccessful attempts.
I don't see any replies to the OP--is there anyone with a few cogent thoughts on all this out there? The same thing has now happened to at least 2 Mac users, which makes it seem a lot less like it's all in my head.
Thank you many times over.
iMac G5 2GHz PPC Mac OS X (10.4.7) still miss my Indigo G3
Similar Messages
-
I need a Replacement for my Radeon9600
I am getting pixels on my desktop and it looks like my Radeon9600 has gone awry.I would like to replace it and upgrade with a better card.I have a 2004 G5 (7,2) and I need advice as to the best card for it.I am using a 25" Cinema Display. Any advice would be appreciated.
Hi-
A new, bulk card will be without packaging.
Although new AGP cards are rare, they do, from time to time, show up.
New Mac OEM Mac cards are the rarest, but not unheard of.
Old stock coming out of the dark recesses of someone's warehouse isn't inconceivable.
In this case, old computer stock may be the source.
Recently, I have seen new, boxed G4 MDD and Quicksilver machines for sale. Also, brand new 23" Apple Cinema Displays (in box) for sale.
Used cards are by far, the most common cards available.
Of note, there have been NO new Mac Geforce cards to surface in years.
There have been new ATI cards on the market recently.
New Radeon 9800 Pro and new X800 pro cards are to be found for the PC market.
I recently purchased a very rare, new ATI X800 FireGL, which is now flashed for Mac.
It is a bulk card, no packaging, but has a 2/2010 date of service tag on it for warranty purposes.
Dual DVI, one dual link..... sweet!
And, YES, the X800XT will smoke the Radeon 9600.
Totally different cards.
OpenGL performance alone is over 3x that of the 9600. -
Urgent need of code for abap hr program
Hi,
Can any one provide with coding to calculate the leave balance for employee
for a given period. Its very urgent.
Thanks in advance,
SubhaHi
See this sample code for calculation of absence quota
using 2001 and 2006 infotypes
make changes as per your requirement
REPORT zh_absence_quota
NO STANDARD PAGE HEADING
MESSAGE-ID zh_msg
LINE-SIZE 169
LINE-COUNT 60(1).
T A B L E S D E C L A R A T I O N S
TABLES: pernr, " Logical PNP
t001p, " Personnel Subarea
t529u, " Employment Status
t500p, " Personnel Area
t501, " Employee Group
t503k, " Employee Subgroup
t549a, " Payroll Area
t554s, " Absence Type
t554t, " Absence Type Texts
t556a, " Quota Type
t527x, " Orgn. Unit
t556b, " Quota Type Text
pa0003. " Payroll Status
INFOTYPES:
0000, " Actions
0001, " Organizational Assignment
2006, " Absence Quota
2001. " Absences
T Y P E S D E C L A R A T I O N S
Employee Absence Structure
TYPES: BEGIN OF s_2001,
pernr TYPE persno, " Personal Number
awart TYPE awart, " Absence Type
subty TYPE subty, " Sub Type
endda TYPE endda, " End date
begda TYPE begda, " Begin date
abrtg TYPE abrtg, " Absence days
ename TYPE emnam, " employee Name
atext TYPE abwtxt, " Absence Type Text
END OF s_2001.
Employee Absence Quota Structure
TYPES: BEGIN OF s_2006,
pernr TYPE persno, " Personal Number
ktart TYPE abwko, " Absence Quota Type
year(4) TYPE n, " Year
subty TYPE subty, " Sub Type
endda TYPE endda, " End date
begda TYPE begda, " Begin date
anzhl TYPE ptm_quonum, " Absence Entitlement days
ename TYPE emnam, " employee Name
ktext TYPE kotxt, " Absence Type Text
kverb TYPE kverb, " Deduction Quota days
anzhb TYPE ptm_quonum, " Balance days
END OF s_2006.
Combined Employee Absence and Quota Structure
TYPES: BEGIN OF s_rep,
pernr TYPE persno, " Personal Number
ktart TYPE abwko, " Absence Quota Type
year(4) TYPE n, " Year
anzhl TYPE ptm_quonum, " Absence Entitlement days
kverb TYPE kverb, " Deduction Quota days
anzhb TYPE ptm_quonum, " Balance days
ktext TYPE kotxt, " Quota Type Text
awart TYPE awart, " Absence Type
abrtg TYPE abrtg, " Absence days
ename TYPE emnam, " employee Name
atext TYPE abwtxt, " Absence Type Text
endda TYPE endda, " End date
begda TYPE begda, " Begin date
END OF s_rep.
Declaration of Variables
DATA : gv_atext TYPE abwtxt, " Absence Type Text
gv_ktext TYPE kotxt, " Absence Type Text
gv_title1 TYPE sylisel, " Report title
gv_year(4) TYPE c, " Year
gv_mon(2) TYPE c, " Month
gv_hrs TYPE abwtg, " Hours
gv_date TYPE sydatum, " Date
gv_date1 TYPE sydatum, " Date
gv_dial. " Color flag
Declaration of Constants
CONSTANTS :
c_x TYPE c VALUE 'X', " Sign
c_1 TYPE persg VALUE '1', " Emp Group
c_pernr(8) TYPE n VALUE '00000000', " Pernr
c_moabw TYPE moabw VALUE '01', " Per SA Grouping
c_mozko TYPE mozko VALUE '01', " Per SA Grouping
c_mopgk TYPE mopgk VALUE '1', " Emp SGrp Grouping
c_endda TYPE sydatum VALUE '99991231', " End Date
c_val1(2) TYPE c VALUE '31', " Date Type
c_val2(2) TYPE c VALUE '12', " Date Type
c_val LIKE p0041-dar01 VALUE '01', " Date Type
c_date1 LIKE sy-datum VALUE '18000101'. " Date
I N T E R N A L T A B L E S D E C L A R A T I O N S
DATA: i_2001 TYPE STANDARD TABLE OF s_2001 WITH HEADER LINE,
i_2006 TYPE STANDARD TABLE OF s_2006 WITH HEADER LINE,
i_rep1 TYPE STANDARD TABLE OF s_2006 WITH HEADER LINE,
i_rep TYPE STANDARD TABLE OF s_rep WITH HEADER LINE.
S E L E C T I O N S C R E E N
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
SELECT-OPTIONS: s_ktart FOR t556a-ktart, " Absence Quota Type
s_awart FOR t554s-subty. " Absence Type
SELECTION-SCREEN END OF BLOCK b1.
SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-002.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(33) text-003. " Quota & Absence
PARAMETERS: p_qa RADIOBUTTON GROUP rb1.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(33) text-004. " Quota
PARAMETERS: p_q RADIOBUTTON GROUP rb1.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(33) text-005. " Absence
PARAMETERS: p_a RADIOBUTTON GROUP rb1.
SELECTION-SCREEN END OF LINE.SELECTION-SCREEN END OF BLOCK b2.
I N I T I A L I Z A T I O N *
INITIALIZATION.
A T S E L E C T I O N - S C R E E N *
AT SELECTION-SCREEN.
Validate the screen fields
PERFORM validate_screen.
S T A R T - O F - S E L E C T I O N *
START-OF-SELECTION.
Selection of Period
PERFORM get_period.
Get PERNR from LDB
GET pernr.
IF p0000-stat2 <> '0'.
Get the data from PA0001,PA2001, PA2006
PERFORM get_pers_data.
ENDIF.
T O P - O F - P A G E *
TOP-OF-PAGE.
Header of the List
PERFORM header.
E N D - O F - P A G E *
Footer
END-OF-PAGE.
IF p_qa = c_x.
Display both Absence and Quota Data
WRITE /1(188) sy-uline.
ELSEIF p_q = c_x.
Display only Quota Data
WRITE /1(114) sy-uline.
ELSEIF p_a = c_x.
Display only Absence Data
WRITE /1(125) sy-uline.
ENDIF.
E N D - O F - S E L E C T I O N *
END-OF-SELECTION.
Combine the Absence and Quota Data
PERFORM append_data.
IF p_qa = c_x.
Display both Absence and Quota Data
PERFORM display_qa_data.
ELSEIF p_q = c_x.
Display only Quota Data
PERFORM display_q_data.
ELSEIF p_a = c_x.
Display only Absence Data
PERFORM display_a_data.
ENDIF.
*& Form validate_screen
Validation of Selection Screen fields
FORM validate_screen .
Validation of Personnel Number
CLEAR pa0003.
IF NOT pnppernr[] IS INITIAL.
SELECT pernr
FROM pa0003 UP TO 1 ROWS
INTO pa0003-pernr
WHERE pernr IN pnppernr.
ENDSELECT.
IF sy-subrc <> 0.
MESSAGE e999 WITH 'Incorrect Personnel Number'(006).
ENDIF.
ENDIF.
Validation of Employee Status
CLEAR t529u.
IF NOT pnpstat2[] IS INITIAL.
SELECT SINGLE statv
INTO t529u-statv
FROM t529u
WHERE statv IN pnpstat2 AND
statn = '2' AND
sprsl = sy-langu.
IF sy-subrc <> 0.
MESSAGE e999 WITH 'Invalid Employee Status'(007).
ENDIF.
ENDIF.
Validation of Personnel Area
CLEAR t500p.
IF NOT pnpwerks[] IS INITIAL.
SELECT persa
FROM t500p UP TO 1 ROWS
INTO t500p-persa
WHERE persa IN pnpwerks.
ENDSELECT.
IF sy-subrc <> 0.
MESSAGE e999 WITH 'Incorrect Personnel Area'(008).
ENDIF.
ENDIF.
Validation of Personnel Sub Area
CLEAR t001p.
IF NOT pnpbtrtl[] IS INITIAL.
SELECT btrtl
FROM t001p UP TO 1 ROWS
INTO t001p-btrtl
WHERE btrtl IN pnpbtrtl.
ENDSELECT.
IF sy-subrc <> 0.
MESSAGE e999 WITH 'Incorrect Personnel Sub Area'(009).
ENDIF.
ENDIF.
Validation of Employee Group
CLEAR t501.
IF NOT pnppersg[] IS INITIAL.
SELECT persg
FROM t501 UP TO 1 ROWS
INTO t501-persg
WHERE persg IN pnppersg.
ENDSELECT.
IF sy-subrc <> 0.
MESSAGE e999 WITH 'Incorrect Employee Group'(010).
ENDIF.
ENDIF.
Validation of Employee Sub Group
CLEAR t503k.
IF NOT pnppersk[] IS INITIAL.
SELECT persk
FROM t503k UP TO 1 ROWS
INTO t503k-persk
WHERE persk IN pnppersk.
ENDSELECT.
IF sy-subrc <> 0.
MESSAGE e999 WITH 'Incorrect Employee Sub Group'(011).
ENDIF.
ENDIF.
Validation of Payroll Area
CLEAR t549a.
IF NOT pnpabkrs[] IS INITIAL.
SELECT abkrs
FROM t549a UP TO 1 ROWS
INTO t549a-abkrs
WHERE abkrs IN pnpabkrs.
ENDSELECT.
IF sy-subrc <> 0.
MESSAGE e999 WITH 'Incorrect Employee Payroll Area'(026).
ENDIF.
ENDIF.
Validation of Absence Type
CLEAR t554s.
IF NOT s_awart[] IS INITIAL.
SELECT subty
FROM t554s UP TO 1 ROWS
INTO t554s-subty
WHERE subty IN s_awart AND
moabw EQ c_moabw AND
endda EQ c_endda.
ENDSELECT.
IF sy-subrc <> 0.
MESSAGE e999 WITH 'Incorrect Employee Absence Type'(012).
ENDIF.
ENDIF.
Validation of Absence Quota Type
CLEAR t556a.
IF NOT s_ktart[] IS INITIAL.
SELECT ktart
FROM t556a UP TO 1 ROWS
INTO t556a-ktart
WHERE ktart IN s_ktart AND
mopgk EQ c_mopgk AND
mozko EQ c_mozko AND
endda EQ c_endda.
ENDSELECT.
IF sy-subrc <> 0.
MESSAGE e999 WITH 'Incorrect Employee Quota Type'(013).
ENDIF.
ENDIF.
ENDFORM. "validate_screen
*& Form get_period
Get the Correct Period based on Selection screen selection
FORM get_period.
CLEAR: gv_year,gv_mon, gv_date, gv_date1.
gv_year = sy-datum+0(4).
gv_mon = sy-datum+4(2).
IF pnptimr1 = c_x. " Current Date
pnpbegda = sy-datum.
pnpendda = sy-datum.
ELSEIF pnptimr2 = c_x. " Current Month
CONCATENATE gv_year gv_mon c_val INTO gv_date.
CONCATENATE gv_year gv_mon c_val1 INTO gv_date1.
pnpbegda = gv_date.
pnpendda = gv_date1.
ELSEIF pnptimr3 = c_x. " Current Year
CONCATENATE gv_year c_val c_val INTO gv_date.
CONCATENATE gv_year c_val2 c_val1 INTO gv_date1.
pnpbegda = gv_date.
pnpendda = gv_date1.
ELSEIF pnptimr4 = c_x. " Upto Today
pnpbegda = c_date1.
pnpendda = sy-datum.
ELSEIF pnptimr5 = c_x. " From Today
pnpbegda = sy-datum.
pnpendda = c_endda.
ELSE.
IF ( pnpbegda IS INITIAL AND pnpendda IS INITIAL ).
pnpbegda = c_date1.
pnpendda = c_endda.
ELSEIF pnpbegda IS INITIAL AND NOT pnpendda IS INITIAL.
pnpbegda = c_date1.
pnpendda = pnpendda.
ELSEIF NOT ( pnpbegda IS INITIAL AND pnpendda IS INITIAL ).
pnpbegda = pnpbegda.
pnpendda = pnpendda.
ENDIF.
ENDIF.
ENDFORM. "get_period
*& Form get_pers_data
Get the Absence and Quota Data from PA0001,PA2001,PA2006
FORM get_pers_data.
DATA: lv_year1(4) TYPE n,
lv_year2(4) TYPE n,
lv_date1 TYPE sydatum,
lv_date2 TYPE sydatum,
lv_anzhb TYPE ptm_quonum. " Last Year Balance days
Get data from Respective Infotypes
rp_provide_from_last p0001 space pnpbegda pnpendda.
Absence Data
LOOP AT p2001 WHERE pernr = pernr-pernr AND
begda GE pnpbegda AND
endda LE pnpendda.
IF p2001-awart IN s_awart.
i_2001-pernr = pernr-pernr.
i_2001-subty = p2001-subty.
i_2001-awart = p2001-awart.
i_2001-abrtg = p2001-abrtg.
i_2001-begda = p2001-begda.
i_2001-endda = p2001-endda.
READ TABLE p0001 WITH KEY pernr = p2001-pernr.
i_2001-ename = p0001-ename.
Get the Absence Type Text
CLEAR gv_atext.
SELECT SINGLE atext INTO gv_atext FROM t554t
WHERE sprsl = sy-langu AND
moabw = c_moabw AND
awart = p2001-awart.
IF sy-subrc = 0.
i_2001-atext = gv_atext.
ENDIF.
APPEND i_2001.
CLEAR i_2001.
ENDIF.
ENDLOOP.
Quota Data
LOOP AT p2006 WHERE pernr = pernr-pernr AND
begda GE pnpbegda AND
endda LE pnpendda.
IF p2006-ktart IN s_ktart.
i_2006-pernr = pernr-pernr.
i_2006-subty = p2006-subty.
i_2006-begda = p2006-begda.
i_2006-endda = p2006-endda.
i_2006-year = p2006-endda+0(4).
i_2006-ktart = p2006-ktart.
i_2006-anzhl = p2006-anzhl.
i_2006-kverb = p2006-kverb.
i_2006-anzhb = p2006-anzhl - p2006-kverb.
READ TABLE p0001 WITH KEY pernr = p2001-pernr.
i_2006-ename = p0001-ename.
Get the Quota Type Text
CLEAR gv_ktext.
SELECT SINGLE ktext INTO gv_ktext FROM t556b
WHERE sprsl = sy-langu AND
mopgk = c_mopgk AND
mozko = c_mozko AND
ktart = p2006-ktart.
IF sy-subrc = 0.
i_2006-ktext = gv_ktext.
ENDIF.
APPEND i_2006.
CLEAR i_2006.
ENDIF.
ENDLOOP.
For Vacation Quota (80) get the Balance of the Last Year and
add to the Current Year Quota
LOOP AT i_2006.
IF i_2006-ktart = '80'.
lv_year1 = i_2006-endda+0(4).
lv_year2 = lv_year1 - 1.
CONCATENATE lv_year2 '01' '01' INTO lv_date1.
CONCATENATE lv_year2 '12' '31' INTO lv_date2.
LOOP AT p2006 WHERE pernr = i_2006-pernr AND
begda GE lv_date1 AND
endda LE lv_date2 AND
ktart = '80'.
lv_anzhb = p2006-anzhl - p2006-kverb.
i_rep1-pernr = i_2006-pernr.
i_rep1-ktext = i_2006-ktext.
i_rep1-anzhl = p2006-anzhl.
i_rep1-kverb = p2006-kverb.
i_rep1-ename = i_2006-ename.
i_rep1-begda = p2006-begda.
i_rep1-endda = p2006-endda.
i_rep1-anzhb = lv_anzhb.
i_rep1-ktart = '80'.
i_rep1-year = lv_year2.
APPEND i_rep1.
CLEAR: i_rep1.
ENDLOOP.
ENDIF.
CLEAR: lv_year1, lv_year2,
lv_date1, lv_date2,lv_anzhb.
ENDLOOP.
SORT i_rep1 BY pernr ktart.
ENDFORM. "get_pers_data
*& Form append_data
Put the Absence and Quota Data into one Report Int Table
FORM append_data.
CLEAR: i_rep.
REFRESH: i_rep.
SORT i_2001 BY pernr awart.
SORT i_2006 BY pernr ktart year.
Move I_REP1 data into i_2006
LOOP AT i_rep1.
MOVE-CORRESPONDING i_rep1 TO i_2006.
APPEND i_2006.
CLEAR i_2006.
ENDLOOP.
Move the Absence and Quota Data into a final Int Table
LOOP AT i_2006.
i_rep-pernr = i_2006-pernr.
i_rep-ename = i_2006-ename.
i_rep-ktart = i_2006-ktart.
i_rep-anzhl = i_2006-anzhl.
i_rep-kverb = i_2006-kverb.
i_rep-ktext = i_2006-ktext.
i_rep-anzhb = i_2006-anzhb.
i_rep-year = i_2006-year.
CLEAR i_2001.
CASE i_2006-ktart.
WHEN '81'.
PERFORM get_2001 USING i_2006-pernr '1000' i_2006-year.
WHEN '50'.
PERFORM get_2001 USING i_2006-pernr '1002' i_2006-year.
WHEN '80'.
PERFORM get_2001 USING i_2006-pernr '1001' i_2006-year.
WHEN '56'.
PERFORM get_2001 USING i_2006-pernr '1003' i_2006-year.
WHEN '51'.
PERFORM get_2001 USING i_2006-pernr '1004' i_2006-year.
WHEN '52'.
PERFORM get_2001 USING i_2006-pernr '1005' i_2006-year.
WHEN '54'.
PERFORM get_2001 USING i_2006-pernr '1006' i_2006-year.
WHEN '53'.
PERFORM get_2001 USING i_2006-pernr '1007' i_2006-year.
WHEN '55'.
PERFORM get_2001 USING i_2006-pernr '1008' i_2006-year.
WHEN '57'.
PERFORM get_2001 USING i_2006-pernr '1009' i_2006-year.
WHEN '90'.
PERFORM get_2001 USING i_2006-pernr '2000' i_2006-year.
WHEN '58'.
PERFORM get_2001 USING i_2006-pernr '2001' i_2006-year.
WHEN '59'.
PERFORM get_2001 USING i_2006-pernr '2002' i_2006-year.
WHEN '91'.
PERFORM get_2001 USING i_2006-pernr '2003' i_2006-year.
ENDCASE.
IF sy-subrc <> 0.
APPEND i_rep.
ENDIF.
CLEAR i_rep.
ENDLOOP.
SORT i_rep BY pernr ktart year.
DELETE i_rep WHERE pernr = ' '.
ENDFORM. " append_data
*& Form display_qa_data
Display the Absence and Quota Data
FORM display_qa_data.
DATA: lv_flag, " New Flag
lv_tot2 TYPE ptm_quonum. " Absence Balance days
IF i_rep[] IS INITIAL.
MESSAGE i000 WITH 'No Data found'(014).
ELSE.
LOOP AT i_rep.
toggle color
PERFORM toggle_color.
IF lv_flag <> space.
NEW-LINE.
ENDIF.
AT NEW pernr.
READ TABLE i_rep INDEX sy-tabix.
WRITE:/1 sy-vline,2(8) i_rep-pernr,
10 sy-vline,11(40) i_rep-ename.
ENDAT.
AT NEW ktart.
READ TABLE i_rep INDEX sy-tabix.
WRITE: 1 sy-vline, 10 sy-vline,
51 sy-vline,52(25) i_rep-ktext.
ENDAT.
AT NEW year.
READ TABLE i_rep INDEX sy-tabix.
WRITE: 1 sy-vline, 10 sy-vline,
51 sy-vline,
77 sy-vline, 78(4) i_rep-year,
82 sy-vline, 83(11) i_rep-anzhl,
94 sy-vline, 95(25) i_rep-atext,
120 sy-vline,133 sy-vline,
144 sy-vline,
155 sy-vline,156(13) i_rep-anzhb,
169 sy-vline.
lv_tot2 = lv_tot2 + i_rep-anzhb.
ENDAT.
WRITE: 1 sy-vline, 10 sy-vline,
51 sy-vline, 77 sy-vline,
82 sy-vline, 94 sy-vline,
120 sy-vline,121(12) i_rep-abrtg NO-ZERO,
133 sy-vline,134(10) i_rep-begda NO-ZERO,
144 sy-vline,145(10) i_rep-endda NO-ZERO,
155 sy-vline,169 sy-vline.
NEW-LINE.
AT END OF pernr.
WRITE : /1(169) sy-uline.
SUM.
FORMAT COLOR 3.
WRITE:/1 sy-vline, 10 sy-vline,
51 sy-vline, 77 sy-vline,
82 sy-vline, 94 sy-vline,
120 sy-vline,121(12) i_rep-abrtg,
133 sy-vline,144 sy-vline,
155 sy-vline, 156(13) lv_tot2,
169 sy-vline.
FORMAT COLOR OFF.
WRITE : /1(169) sy-uline.
CLEAR lv_tot2.
ENDAT.
ENDLOOP.
ENDIF.
ENDFORM. " display_qa_data
*& Form display_q_data
Display only the Quota Data
FORM display_q_data.
DATA: lv_flag. " New Flag
SORT i_2006 BY pernr ktart year.
IF i_2006[] IS INITIAL.
MESSAGE i000 WITH 'No Data found'(014).
ELSE.
LOOP AT i_2006.
Toggle Color
PERFORM toggle_color.
IF lv_flag <> space.
NEW-LINE.
ENDIF.
AT NEW pernr.
READ TABLE i_2006 INDEX sy-tabix.
WRITE: /1 sy-vline, 2(8) i_2006-pernr,
10 sy-vline,11(40) i_2006-ename.
ENDAT.
AT NEW ktart.
READ TABLE i_2006 INDEX sy-tabix.
WRITE: 1 sy-vline,10 sy-vline,
51 sy-vline,52(25) i_2006-ktext.
ENDAT.
AT NEW year.
READ TABLE i_2006 INDEX sy-tabix.
WRITE: 1 sy-vline, 10 sy-vline,
51 sy-vline,
77 sy-vline,78(4) i_2006-year,
82 sy-vline,83(11) i_2006-anzhl,
94 sy-vline,95(13) i_2006-anzhb,
108 sy-vline.
NEW-LINE.
ENDAT.
AT END OF pernr.
WRITE : /1(108) sy-uline.
SUM.
FORMAT COLOR 3.
WRITE: /1 sy-vline, 10 sy-vline,
51 sy-vline,
77 sy-vline, 82 sy-vline,
94 sy-vline, 95(13) i_2006-anzhb,
108 sy-vline.
FORMAT COLOR OFF.
WRITE : /1(108) sy-uline.
ENDAT.
ENDLOOP.
ENDIF.
ENDFORM. " display_q_data
*& Form display_a_data
Display Only the Absence Quota
FORM display_a_data.
DATA: lv_flag. " New Flag
SORT i_2001 BY pernr awart.
IF i_2001[] IS INITIAL.
MESSAGE i000 WITH 'No Data found'(014).
ELSE.
LOOP AT i_2001.
Toggle Color
PERFORM toggle_color.
IF lv_flag <> space.
NEW-LINE.
ENDIF.
AT NEW pernr.
READ TABLE i_2001 INDEX sy-tabix.
WRITE: /1 sy-vline, 2(10) i_2001-pernr,
10 sy-vline,11(40) i_2001-ename.
ENDAT.
WRITE: 1 sy-vline, 10 sy-vline,
51 sy-vline,52(25) i_2001-atext,
77 sy-vline,78(12) i_2001-abrtg,
90 sy-vline,91(10) i_2001-begda,
101 sy-vline,102(10) i_2001-endda,
112 sy-vline.
NEW-LINE.
AT END OF pernr.
WRITE : /1(112) sy-uline.
SUM.
FORMAT COLOR 3.
WRITE: /1 sy-vline, 10 sy-vline,
51 sy-vline,
77 sy-vline,78(12) i_2001-abrtg,
90 sy-vline,101 sy-vline,
112 sy-vline.
FORMAT COLOR OFF.
WRITE : /1(112) sy-uline.
ENDAT.
ENDLOOP.
ENDIF.
ENDFORM. " display_a_data
*& Form header
Write the Report Header
FORM header .
data : lv_pers type pbtxt,
lv_orgn type orgtx.
gv_title1 = sy-title. " Set List Header
IF p_qa = c_x.
NEW-PAGE LINE-SIZE 193.
ELSEIF p_a = c_x.
NEW-PAGE LINE-SIZE 125.
ELSEIF p_q = c_x.
NEW-PAGE LINE-SIZE 119.
ENDIF.
Standard header
FORMAT RESET.
CALL FUNCTION 'Z_STANDARD_HEADER'
EXPORTING
title1 = gv_title1.
Get the Personal Area and Org.Unit Texts
clear : lv_pers,lv_orgn.
select single name1 into lv_pers
from t500p where persa = pnpwerks-low.
select single orgtx into lv_orgn
from t527x where sprsl = sy-langu and
orgeh = pnporgeh-low and
endda = c_endda.
if not lv_pers is initial.
write : /2 'Personal Area:'(017), 17(25) lv_pers color 7.
endif.
if not lv_orgn is initial.
write : /2 'Organization Unit:'(021), 20(25) lv_orgn color 3.
endif.
IF p_qa = c_x.
FORMAT COLOR COL_HEADING.
WRITE : /1(169) sy-uline.
WRITE:/1 sy-vline,2(8) 'Emp.No'(015) CENTERED,
10 sy-vline,11(40) 'Employee Name'(016) CENTERED,
51 sy-vline,52(25) 'Quota Description'(018) CENTERED,
77 sy-vline,78(4) 'Year'(027),
82 sy-vline,83(11) 'Entitlement'(019),
94 sy-vline,95(25) 'Absence Description'(022) CENTERED,
120 sy-vline,121(12) 'Absence days'(023),
133 sy-vline,134(10) 'From Date'(024),
144 sy-vline,145(10) 'To Date'(025),
155 sy-vline,156(13) 'Quota Balance'(020),
169 sy-vline.
WRITE : /1(169) sy-uline.
ELSEIF p_q = c_x.
FORMAT COLOR COL_HEADING.
WRITE : /1(108) sy-uline.
WRITE:/1 sy-vline,2(8) 'Emp.No'(015) CENTERED,
10 sy-vline,11(40) 'Employee Name'(016) CENTERED,
51 sy-vline,52(25) 'Quota Description'(018) CENTERED,
77 sy-vline,78(4) 'Year'(027),
82 sy-vline,83(11) 'Entitlement'(019),
94 sy-vline,95(13) 'Quota Balance'(020),
108 sy-vline.
WRITE : /1(108) sy-uline.
ELSEIF p_a = c_x.
FORMAT COLOR COL_HEADING.
WRITE : /1(112) sy-uline.
WRITE:/1 sy-vline,2(8) 'Emp.No'(015) CENTERED,
10 sy-vline,11(40) 'Employee Name'(016) CENTERED,
51 sy-vline,52(25) 'Absence Description'(022) CENTERED,
77 sy-vline,78(12) 'Absence days'(023),
90 sy-vline,91(10) 'From Date'(024),
101 sy-vline,102(10) 'To Date'(025),
112 sy-vline.
WRITE : /1(112) sy-uline.
ENDIF.
ENDFORM. " header
*& Form toggle_color
This routine alters the color of the records in the list
FORM toggle_color.
IF gv_dial = space.
FORMAT COLOR COL_NORMAL INTENSIFIED OFF.
gv_dial = c_x.
ELSE.
FORMAT COLOR 1 INTENSIFIED OFF.
CLEAR gv_dial.
ENDIF.
ENDFORM. " toggle_color
*& Form get_2001
Get the ABsence type for each Quota type
FORM get_2001 USING p_pernr TYPE persno
p_value TYPE awart
p_year.
LOOP AT i_2001 WHERE pernr = p_pernr AND
awart = p_value AND
endda+0(4) = p_year.
i_rep-awart = i_2001-awart.
i_rep-abrtg = i_2001-abrtg.
i_rep-atext = i_2001-atext.
i_rep-begda = i_2001-begda.
i_rep-endda = i_2001-endda.
APPEND i_rep.
ENDLOOP.
ENDFORM. " get_2001
<b>
Reward points for useful Answers</b>
Regards
Anji -
Need a replacement for Intego Antispam since it does not work with Mountain Lion
Any suggestion.
Also noticed that if you have installed program that did not come from App Store it may not be able to open it due to Mountain Lion. Whats up with thataldonben wrote:
Thank-you for heads up, so what your saying is all my online threw Safari is 100% protected no need for any protection other than this GateKeeper. Or is that just for my programs.
GateKeeper is just one of the anti-malware protection features of Mountain Lion. There are others. Mountain Lion actually includes its own malware scanner too. The difference is that it doesn't check for all the millions of Windows viruses. Just keep your software updated. Mountain Lion should do that automatically.
In the case of spam my internet provide i have email address threw them and even after turning on their filter I continue to get spam, so that why I been asking. I've been told of one today called SpamSieve.
SPAM is more difficult. I use SpamSieve and highly recommend it. -
I need a replacement for stolen disks.
I purchased Adobe CS6 Creative Suit Premium Production software about 2 years ago, and I received installation discs for both Mac and PC. From what I understand each discs can install the software on up to 3 different systems a maximum of 3 times. I installed the windows disk on the same system twice, but the entire suite and all its contents were stolen out of my car about a month ago. I still have the entire suite installed on my current PC and still have yet to use the Mac disks at all. Is there a way for me to receive a replacement kit and if so will it cost me?
Hi,
you can download the complete suite online rather.
Here is the download link
http://helpx.adobe.com/x-productkb/policy-pricing/cs6-product-downloads.html
Thank you,
Mohd Naseem -
MOVED: MSI TECHNICAL - URGENTLY NEED NEW BIOS FOR DIAMOND PLUS MOBO
This topic has been moved to BIOS.
https://forum-en.msi.com/index.php?topic=93688.0We are having a issue here with the Nvidia raid changing the raid from raid 0 to raid 2 all by it's self. This has happend twice now on the Diamon Plus board. We have tried all kinds of drives. Sata 1 Sata 2 from 4 companys with no change. We are also having the op system Windows give errors that I have never seen in 20 years of building computers .
We have contacted tech support by phone and they have been great trying to help us , but to no good out come. Tech support told us here at the shop that this is an issue that they are working on and trying to find a fix.
This board is a great gamer board if you can find a build of parts that it is stable with, but if not it is a on going problem.
We are also getting the boot error on the Raid that you are on some systems that we build.
I will say again that MSI tech support has been great in working with us on this, And we are also starting to see errors on systems that we put out with the Diamond Plus when the first came out for use. Systems that have been stable for about two months are starting to come back with issues with the drives and that is strange as one would think it would stay stable after this long running.
But in looking back on what has happend , all the issues seem to be due to the Harddrives or Drive controlers. Now that could encompass the buss or buss controler and or many other factors. But we do think the problem is with one of these.
I use the diamond plus for my own gaming system, and it is fast. I love it and the changes I can make in the bios. But I cannot use the raid on the board . I have tired and it was not stable , and after two reloads I went to a fast 300 gig single sata drive. After that I have had no issues at all. And with this drive I am running as fast as I did with the raid. I would recomend that others take this route till a fix is found.
-
Urgent,need for code in bdc for co02
hi all,
im in urgent need of code for developing bdc tcode co02.
Thanks for your help..1. Please record the transaction which you need to change the data in Co02 (Shop Order/Prod. Order)
2. Create BDC program as normally you do it for normal BDC programs..
Smaple Code with Recording.
clear: bdcdata,messtab.
perform bdc_dynpro using: 'SAPLCOKO1' '0110'.
perform bdc_field using: 'CAUFVD-AUFNR' t_aufk-aufnr.
perform bdc_field using: 'R62CLORD-FLG_OVIEW' 'X'.
perform bdc_field using: 'BDC_OKCODE' '/00'.
perform bdc_dynpro using: 'SAPLCOKO1' '0115'.
perform bdc_field using: 'BDC_SUBSCR' 'SAPLCOKO1'.
perform bdc_field using: 'BDC_OKCODE' '=KOWE'.
perform bdc_dynpro using: 'SAPLCOKO1' '0115'.
perform bdc_field using: 'BDC_SUBSCR' 'SAPLCOKO1'.
perform bdc_field using: 'BDC_CURSOR' 'AFPOD-INSMK'.
perform bdc_field using: 'AFPOD-INSMK' 'S'.
perform bdc_field using: 'BDC_OKCODE' '=BU'.
call transaction 'CO02' using bdcdata mode 'A'
update 'S'
messages into messtab.
Thanks, -
Replacement For Not Exists operator in oracle
Hi Guys,
I need a replacement for the statement " Where NOT EXISTS (SELECT 'X' FROM ADM_SC_SHIPPING_HEADER_FACT WHERE prod_obj = s.prod_obj AND sc_shipping_doc_num = s.sc_shipping_doc_num AND TO_NUMBER (transportation_status) > TO_NUMBER (s.transportation_status))".
i am getting an error"literal doesnot match the formatting string" when this statement is included in my procedure.
Please help me out..
Thanks in advance.1007699 wrote:
There is no problem with Transportation_status. It is a varchar and it's been converted to number using To_Number .There very likely IS a problem with transportation_status.
It's supposed to be a number and you're trying to convert it to a number using to_number(), but the error message you're getting implies that there's a value in that column that isn't a valid number.
If it's not that field, then there must be some othe implicit type conversion going on with one of the other columns in your subquery - 'cos that's what that error message means: "I'm trying to convert from one datatype to another, but it's not in the format I expect".
Either fix your data to conform to the proper format, or explicitly specify a format that describes your data, or (best of all) use a proper and consistent datatype for your columns. If transportation_status is a number, why store it in a varchar2 column? -
Iphone Replacement for baseband Issues
Hello every one this is my first question here ... Since I am in Egypt and we don't have authorized Applecare/store here I would like to know if there is any issues in my iphone and it's no longer in the warranty,I had a hardware issue (No IMEI/Firmware Blank), that might need a replacement for the phone by paying about 159$ difference (as I heard) ... if the iphone has been fixed before this issue (No IMEI,Firmware Blank) occured since the battery needed to be replaced .... Would I be able to do the replacement for the Iphone itself from apple event it's fixed before from another third party ??
I am using Iphone 5 ios 7.1.1If a third party opened the device, Apple will not service or replace the device any longer even as the advertised discounted prices. If they did, this would require them to warrant your device for someone else's work, which they will not do, so in your case, you will only have third party options for service at this point, or you can purchase a new phone.
-
Urg: Need to replace standard hierarchy with alt hierarchy
Hi,
I have an urgent need to replace the cost center standard hierarchy with the Alternative hierarchy already available. I dont have Business organization implemented so I cannot use Keog3...I need to know if there is any other way..
this is super urgent...please help...Hi i am a student could you please answer
what is an alternate hierarchy and when do we use it
Thanks -
Hi,
I need the replacement for the keyword LOCAL......
some how i found the replacement (by my own) but it is not working properly...
the replacement is data declaration for the local...
Example program for local...
REPORT ZTEST_LOCAL_EXAMPLE.
DATA text TYPE string VALUE 'Global text'.
WRITE / text. " Global text
PERFORM subr1.
WRITE / text. " Global text
FORM subr1.
LOCAL text.
*data text type string. "replacement for local
text = 'Text in subr1'.
WRITE / text.
PERFORM subr2 USING text.
WRITE / text.
ENDFORM.
FORM subr2 USING para TYPE string.
LOCAL para.
para = 'Text in subr2'.
WRITE / text.
ENDFORM.
Here it is local statement and the replacement statement... but the replacement is not working properly....
Thanks
vishnu. ROutput
Global text
Text in subr1
Text in subr2
Text in subr1
Global text
Output with replacement
Global text
Text in subr1
Global text
Text in subr1
Global text
Looks fine to me. What do you expect?
matt -
Windows Media Centre - Windows Media Foundation - Windows Apps. Replacement for WMC
Still looking for a PVR replacement but DVBLogic looks like it might do the job.
Have gone down the Plex Windows App route (The clostest replacement to WMC player so far) but they are saying they are hamstrung by limitations of the App sandbox? and Windows Media Foundation.
I need some concrete information from the Windows Media Centre People or Windows Media Foundation people so that developers can be steered in the right direction to help people like me switch over from WMC to something else without major headaches, frustrations,
days and days of conversion and metadata reentry.
My post from Microsoft Community
Hi,
Since Windows Media Centre almost didn't make it into Windows 8 I have been looking to move to something else before it disappears for good.
While it might just make it into Windows 10 there certainly won't be any future development.
I not a big fan of Microsoft products but WMC is one application they nailed
Some additional smart recording options
i.e. I had to add "The Big Bang Theory - Return", "The Big Bang Theory - New", "The Big Bang Theory - Finale" etc to my series recording
A proper library manager (Plex does a great job of this) e.g. by series, season, episode - Movies - Documentaries etc with additional data downloaded.
A few more playable formats/containers
It would be perfect.
A proper Library wasn't as important as most of the metadata could be viewed directly in windows explorer.
Not supported with other containers.
This brings me to the first obstacle.
All the alternatives I have looked at so far can't or won't support .wtv files
Converting the files to another format/container loses all the explorer properties. (And some of the metadata completely)
Discussions I have had so far are pointing the finger at the "Windows Media Foundation"
I.e. Developers can't do anything with .wtv files because WMF doesn't support them.
So the question is: If Windows Media Centre is no longer viable for Microsoft why haven't they atleast provided the tools for developers to support the format/container they forced upon so many users of their product.
i.e. Metadata reader/writer
Codec/Container? player?
I need a replacement for Windows Media Centre: What is/are the alternative(s)?Hi,
Since Windows Media Centre almost didn't make it into Windows 8 I have been looking to move to something else before it disappears for good.
While it might just make it into Windows 10 there certainly won't be any future development.
I not a big fan of Microsoft products but WMC is one application they nailed
Some additional smart recording options
i.e. I had to add "The Big Bang Theory - Return", "The Big Bang Theory - New", "The Big Bang Theory - Finale" etc to my series recording
A proper library manager (Plex does a great job of this) e.g. by series, season, episode - Movies - Documentaries etc with additional data downloaded.
A few more playable formats/containers
It would be perfect.
A proper Library wasn't as important as most of the metadata could be viewed directly in windows explorer.
Not supported with other containers.
This brings me to the first obstacle.
All the alternatives I have looked at so far can't or won't support .wtv files
Converting the files to another format/container loses all the explorer properties. (And some of the metadata completely)
Discussions I have had far are pointing the finger at the "Windows Media Foundation"
I really like the Plex Store App byt they can't play Recoreded TV Files without transcoding them.
I.e. Developers can't do anything with .wtv files because WMF doesn't support them.
So the question is: If Windows Media Centre is no longer viable for Microsoft why haven't they atleast provided the tools for developers to support the format/container they forced upon so many users of their product.
i.e. Metadata reader/writer
Codec/Container? player?
I need a replacement for Windows Media Centre: What is/are the alternative(s)?
Other
post -
Need a replacement for one of our internal SATA drives on our Xserve Intel. There are no Apple drives out there...what do folks recommend for a replacement that is server-worthy?
Thanks!Which XServe model do you have? I have been able to use the following drive (actually, 2 of them) in a 2008 XServe, 2.8 GHz quad core.
Seagate Constellation ES 1 TB 7200RPM SATA 2.0 3Gb/s 32 MB Cache 3.5 Inch Internal Hard Drive ST31000524NS - Bare Drive
The Sata III version of the drive was *not* recognized by the XServe. -
have a G70t200 CTO - CD drive hasdisappeared from " computer" display , does not work. Need a replacement for
HL-DT-ST DVDram GSA T50N ATA . do not need lightscribe feature nor 2 side burn capability. Can someone recommend a simple CD-dvd drive?
This question was solved.
View Solution.Disappearing CD/DVD drives seems to be way too common the last couple of years. You 'might' find that it actually reappears if you start the laptop up once without it, shut down, reinstall it and start up again.
******Clicking the Thumbs-Up button is a way to say -Thanks!.******
**Click Accept as Solution on a Reply that solves your issue to help others** -
Hi, i have a new number and I'm trying to activate iMessage but i can't. it is only saying waiting for activation, i have tried a lot of times with not success. i'm not sure if i need to replace the old one to this new one, or what do do. can you help
Troubleshooting iMessage activation:
http://support.apple.com/kb/TS4268
Maybe you are looking for
-
Rwbld60.exe error while calling a graph wizard from reports 6i.
Hi, I have a latest patch 4f installed on my machine for reports 6i. When i call a graph wizard from my reports i am getting a program error saying "rwbld60.exe has generated errors". How do i confirm that my new patch is installed successfully. Than
-
Is it possible to view widgets in full screen. I have only been able to get the half screen presentation. That is very cluttered and small for my older eyes. Of course, I can click on pictures within updates and see those full screen, but I am tal
-
i need a code for this... write a class for "myxmlparser" to parse "*.xml" fileto "*.dtd" file. sundar
-
Modify .wmf graph in illustrator (make it look nice)
I'm a newbie, just trying to figure out how to edit a .wmf file that is a graph and was generated by a statistical program. I need to visually enhance this graph, making it look more appealing for publication in a manuscript. It's very simple, just
-
OS X 10.8.5 - Mail Signature
Hi, I tried this so many times but I could not find it.I guess there must be a way to do this. How can i put my Facebook / Twitter link to my facebook/twitter icon (image) attached to my signature ? Thanks, Berke