Service Flags in Jolt
I'm looking for documentation on the use of service flags with Jolt. Using atmi,
I might:
long flags = TPNOBLOCK | TPNOREPLY | TPNOTIME;
tpcall( svcName, inBuf, inLen, outBuf, outLen, flags );
What is the JoltRemoteService interface to accomplish something similar?
Help, please
Yeah you are right about everything, but the problem here is the changes that come in flat file have all the fields populated irrescpective of whether a field is actually having the change or not.
May be i shouldnt have used the word flag but should have used a ctrl field
and the idoc is such that we have a two segment
lets say we item segment which has qty, vloume , material.....
and there is control item segment which has ctrl qty , ctrl volume, ctrl material.....
so now the case is qty field can be updated if ctrl qty has X in it. its true also for the rest of the fields.
Now the problem is the flat file cant send these X in the ctrl fields. and XI cant put X in all the ctrl fields as if we do it that way its not updating the actual updated fields
Similar Messages
-
Calling Tuxedo Service using BEA Jolt.
I'm trying to call Tuxedo service from java stored procedure using BEA JOLT.My normal java client works fine but when i use the same client as java stored procedure i get following error message :
can not connect to any //lucy:9021(host:port)
Reason:Nwhdlr:can not open socket
I've successfully loaded all required JOLT jar files using loadjava and created the procedure successfully .Java code is given below :
import bea.jolt.*;
import java.sql.*;
public class JoltToTux
public static void callTuxService() throws Exception
JoltSession session;
JoltSessionAttributes sattr;
JoltRemoteService toupper;
JoltTransaction trans;
String userName=null;
String userPassword=null;
String appPassword=null;
String userRole=null;
String outstr;
try {
sattr = new JoltSessionAttributes();
sattr.setString(sattr.APPADDRESS, "//lucy:9021");
sattr.setInt(sattr.IDLETIMEOUT, 300);
session = new JoltSession(sattr, userName, userRole,userPassword, appPassword);
toupper = new JoltRemoteService ("CB_EXESUB", session);
toupper.setString("CLFY_SUB", "PingSrvr");
toupper.call(null);
System.out.println( "Call to Tuxedo complete" );
outstr = toupper.getStringDef("WF_MESSAGE","" );
System.out.println("return string : " + outstr);
session.endSession();
System.exit(0);
} //end of try
catch (Exception e) {
// System.err.println(e.getMessage());}
e.printStackTrace();
} // end main
public static void main( String args[] ) {
try {
JoltToTux jt = new JoltToTux();
jt.callTuxService();
catch ( Exception e0 ) {
e0.printStackTrace();
} // end ToUpper
thanks
anuragAms,
You can't do that with JOLT. You will need to use the WTC product,
currently in beta - see WTC Questions and Answers
Regards,
Peter.
Got a Question? Ask BEA at http://askbea.bea.com
The views expressed in this posting are solely those of the author, and
BEA
Systems, Inc. does not endorse any of these views.
BEA Systems, Inc. is not responsible for the accuracy or completeness of
the
information provided
and assumes no duty to correct, expand upon, delete or update any of the
information contained in this posting.
Ams wrote:
Hi Manoj,
I want to call a tuxedo service and also want to update
database (using entity beabs) in same transaction so I
can't use AUTOTRAN , Am I right ?
I am using bea.jolt.pool.SessionPool's startTransaction
method to start a transaction and passing this
to SessionPool's call method.
Ams.
"Manoj SASIDHARAN" <[email protected]> wrote:
Hello Ams,
Could u plz give more information abt the usage scenario. Another way
to test
would be to put AUTOTRAN=Y for the service in question.
HTH
regards
MS
"Ams" <[email protected]> wrote:
Hi,
I am calling Tuxedo service from ejb using jolt.
I want the service call in transaction started in ejb.
I am getting following error.
LIBTUX_CAT:481: ERROR: Service xa_start returned -7
Does jolt support transaction ?
Ams
[att1.html] -
Need to know why contracts(Service contracts) are not showing up in ra_interface_lines-all
Hi all,
We are running the service contracts main billing to get the contracts to ra_interface_lines_all table which are eligible for invoicing, but somehow some contracts are not showing up in ra_interface_lines_all table,
the reasons may be as follows:
1. Billing service flag set to no
2. Contract modifier > 30
3. Contract is not active or
4. Invoice interface is not set to current date.
These may be the reason for contracts not showing up in interface_lines_all, I need to write a query to state why these contracts are not coming into interface table using the above stated reasons. Can anyone help me out saying how can i write query for it?
Thanks,
AparanjitHey Emilio,
I found a solution, that worked for me. Try reseting the sync services as stated in this document:
http://support.apple.com/kb/ts1627
Follow these steps:
Export your Calendar data - (you should end up with a .icbu-File) and make sure all Calendars are shown (I had one that was hidden - which later had all entries doubled)
Close Calendar
Export your Contacts (you should end up with a .abbu-File)
Close Contacts
Backup your iPhone
Close iTunes (just in case)
Open up Terminal and for Mounain Lion enter: /System/Library/Frameworks/SyncServices.framework/Versions/A/Resources/resetsyn c.pl full
Open iTunes and sync your iPhone (go to the info-tab you should see blanks and not your Calendars - don't worry they will soon show up, as you activate the sync)
Pooh. Ok. Looks like a lot, but it actually is really simple. I only did so many steps, to really make sure, I would not loose any data.
In quick words: reset your sync services with the terminal and sync again.
I will also write that down for all times in my notebook.
Cheers -
Procurement of external services in production orders
Dear Sirs,
We need to procure external service in production order as is done in maintenance order using a control key like PM03, it means, we need to create, automatically, purchase requisition with item category D (service). Therefore transaction COR1 (production order creation) doesn't allow to use any kind of control key which has T430-SERVICE flagged.
Do you have any idea how to solve this?
Best Regards,
Carlos DanielPlease update the control key that you are using for this activity under -
IMG>Production>Capacity Requirements Planning>Routing data>Define control key
Here, you have to flag the check box " Schedule Ext. Operation" & maintain the " Ext Processing indicator"
Thanx!! -
We are currently using Jolt 1.2 connected to a Tuxedo 6.5 system on Solaris.
We are porting a Windows thick application to browser. We call a Tuxedo
service
with the old system that takes around 10 minutes to complete. We obviously
call this
asynchronously. When we call this same service using Jolt it "times-out".
Which makes
sense since Jolt 1.2 seems to only allow synchronous ( aka
Request-Response ) calls.
I have looked at the documentation for Jolt 1.2, 1.2.1, the Jolt with Tuxedo
7.1 and Tuxedo 8 and
I cannot find an ability to make a Asynchronous call. However, I did find
it in the API documentation
for the Jolt that comes with Weblogic Enterprise 5.1 and above? Are these
APIs available without
Weblogic Enterprise? Is there a special Jolt add-on package?
Thanks for the info,
Carl J. Collin
Walgreen Co.
[email protected]Thank you very much. That is exactly what our engineers came up with
to get around this. The problem is that we have no ability to be notified
when this async service is finished. In our old application we would lock
the window manually (windows api) and run a loop doing getReplies until
the async returned a buffer. With a browser model, it probably isn't
possible
without having an applet or something. It just rubs me raw that the API I
need
for Jolt isn't supplied when you BUY JOLT, but only if you buy the
SUPER-EXPENSIVE
Weblogic Enterprise. Why have a Jolt product to begin with if you do not
supply the whole
functionality needed to merge Java and Tuxedo, which is the supposedly the
product's goal?
Carl J. Collin
Walgreen Co.
[email protected]
"Manoj SASIDHARAN" <[email protected]> wrote in message
news:[email protected]...
>
Hello Carl J. Collin,
I can suggest a workaround to make things happen.
From the browser call a Tuxedo service (synchronously) using Jolt whichinternally
does the following:
SVC(TPSVINFO...)
SvcName="Name of Service Currently called from Browser..";
ret=tpacall(SvcName,... TPNOREPLY);
tpreturn(...);
HTH
regards
MS
"Carl J. Collin" <[email protected]> wrote:
We are currently using Jolt 1.2 connected to a Tuxedo 6.5 system on
Solaris.
We are porting a Windows thick application to browser. We call a Tuxedo
service
with the old system that takes around 10 minutes to complete. Weobviously
call this
asynchronously. When we call this same service using Jolt it"times-out".
Which makes
sense since Jolt 1.2 seems to only allow synchronous ( aka
Request-Response ) calls.
I have looked at the documentation for Jolt 1.2, 1.2.1, the Jolt with
Tuxedo
7.1 and Tuxedo 8 and
I cannot find an ability to make a Asynchronous call. However, I did
find
it in the API documentation
for the Jolt that comes with Weblogic Enterprise 5.1 and above? Are
these
APIs available without
Weblogic Enterprise? Is there a special Jolt add-on package?
Thanks for the info,
Carl J. Collin
Walgreen Co.
[email protected] -
Dear all,
We are new to Jolt. So we aer trying to access a FML32 tuxedo service using a
JOLT client. We receive the following error:
184858.ndev!JSH.16068.1.-2: Fldid(INBUF1) failed for SIMPFMLSERV: LIBFML_CAT:11:
ERROR: Cannot find or open field table. Maybe FIELDTBLS is not set properly.
184858.ndev!JSH.16068.1.-2: JOLT_CAT:1198: WARN: Forced shutdown of client; user
name ''; client name 'myapp'
We have defined the service using the JOLT Repository server.
We have 2 fields INBUF1 and OUTBUF1 for request and response respectively.
What configuration needs to be done on the client machine to run the sample correctly.
Please note that we are using FML32 in our tuxedo service. And, we have tested
the service using a C client successfully.
Please throw some light on this..
Advance thanks.
NadeemScott,
Thanx for the reply.
We have done what you said but still the problem persists. I read somewhere in
this newsgroup that if the field sizes are longer then we may face this problem.
is this true? is there a patch available for this.
We have also approached BEA on this and are awaiting a real solution.
We have tried it on tux 8.0 with the same error.
Please comment.
Thanks,
Nadeem
Scott Orshan <[email protected]> wrote:
This message points to a problem with your environment variables. The
JSH is saying that it can't find the field table that contains INBUF1.
Make sure that the field table is in FLDTBLDIR, and that the field is
in
one of the tables in FIELDTBLS, and that these variables are properly
exported into the environment before the JSL is started.
Nadeem wrote:
Dear all,
We are new to Jolt. So we aer trying to access a FML32 tuxedo serviceusing a
JOLT client. We receive the following error:
184858.ndev!JSH.16068.1.-2: Fldid(INBUF1) failed for SIMPFMLSERV: LIBFML_CAT:11:
ERROR: Cannot find or open field table. Maybe FIELDTBLS is not setproperly.
184858.ndev!JSH.16068.1.-2: JOLT_CAT:1198: WARN: Forced shutdown ofclient; user
name ''; client name 'myapp'
We have defined the service using the JOLT Repository server.
We have 2 fields INBUF1 and OUTBUF1 for request and response respectively.
What configuration needs to be done on the client machine to run thesample correctly.
Please note that we are using FML32 in our tuxedo service. And, wehave tested
the service using a C client successfully.
Please throw some light on this..
Advance thanks.
Nadeem -
Hi SDN
i have a small problem where iam unable to add fields in the final internal table
i have to add two fields i.e., COMMITMENT AND ACTVALUE from ESUH TABLE
AND the final internal table is l_i_ekpo.
we have to add only two fields COMMITMENT and a ....variable = COMMITMENT - ACTVALUE. which is already done in the program.
here iam attaching a program.
TABLES: ekpo.
DATA: i_directory_list LIKE rlgrap-filename OCCURS 0 WITH HEADER LINE.
DATA: i_directory_sel LIKE popuptext OCCURS 0 WITH HEADER LINE.
*{ INSERT PS010306UPGR
CLASS cl_abap_char_utilities DEFINITION LOAD.
*} INSERT
DATA: BEGIN OF tab,
*{ REPLACE PS010306UPGR
T(1) TYPE X VALUE '09', "HEX!
t(1) TYPE c VALUE cl_abap_char_utilities=>horizontal_tab, "Unicode
*} REPLACE
END OF tab.
DATA: ekpo_konnr LIKE ekpo-konnr.
DATA: ekpo_ktpnr LIKE ekpo-ktpnr.
DATA: BEGIN OF t_bapiessrc OCCURS 0.
INCLUDE STRUCTURE zbapiessrc_chars.
DATA: END OF t_bapiessrc.
DATA: t_bapiessrc_tab(301) OCCURS 0." with header line.
DATA: wa_bapiessrc_tab(301).
DATA: BEGIN OF t_headertext OCCURS 0,
ext_number LIKE zbapiessrc_chars-ext_number,
linno(4) TYPE n,
tcode(20),
recordname(30),
txpargraph(2),
txline(72),
text_mark,
END OF t_headertext.
DATA: BEGIN OF t_itemtext OCCURS 0,
ext_number LIKE zbapiessrc_chars-ext_number,
ext_line(18),
linno(4) TYPE n,
tcode(20),
recordname(30),
txpargraph(2),
txline(72),
text_mark,
ext_linno(6),
END OF t_itemtext.
DATA: t_headertext_tab(180) OCCURS 0.
DATA: wa_headertext_tab(180).
DATA: t_itemtext_tab(190) OCCURS 0.
DATA: wa_itemtext_tab(190).
DATA: BEGIN OF t_bapiesllc OCCURS 0.
ext_number like bapiessrc-ext_number.
INCLUDE STRUCTURE zbapiesllc_chars.
DATA: END OF t_bapiesllc.
DATA: t_bapiesllc_tab(650) OCCURS 0." with header line.
DATA: wa_bapiesllc_tab(650).
DATA: no_of_files LIKE sy-index.
DATA: perc_uploaded TYPE i.
DATA: text_uploaded(50).
DATA: text_fi_not_upl1(30), text_fi_not_upl2(30).
DATA: continue_yn.
DATA: file TYPE localfile.
FIELD-SYMBOLS .
DATA: BEGIN OF clbp_content OCCURS 0.
INCLUDE STRUCTURE solisti1.
DATA: END OF clbp_content.
DATA w_mode VALUE 'A'.
CONSTANTS: c_update VALUE 'S'.
DATA: BEGIN OF bdcdata OCCURS 0. " BDC Table
INCLUDE STRUCTURE bdcdata.
DATA: END OF bdcdata.
DATA: BEGIN OF bdcmsgcoll OCCURS 0. " BDC Messages
INCLUDE STRUCTURE bdcmsgcoll.
DATA: END OF bdcmsgcoll.
DATA params LIKE pri_params.
DATA list_text LIKE pri_params-prtxt.
DATA: days(1) TYPE n VALUE 2,
count(3) TYPE n VALUE 1,
valid TYPE c.
DATA t_bapi_essr LIKE bapiessrc OCCURS 0.
DATA t_bapi_essr_log LIKE bapiessrc OCCURS 0 WITH HEADER LINE.
DATA t_bapi_esll LIKE bapiesllc OCCURS 0.
DATA t_bapi_esll_log LIKE bapiesllc OCCURS 0 WITH HEADER LINE.
DATA: BEGIN OF output_prot OCCURS 0.
INCLUDE STRUCTURE essr.
INCLUDE STRUCTURE bdcmsgcoll.
DATA: END OF output_prot.
DATA: BEGIN OF i_sgcses_struc OCCURS 0,
po_number LIKE zbapiessrc_chars-po_number,
po_item LIKE zbapiessrc_chars-po_item,
short_text LIKE zbapiessrc_chars-short_text,
xblnr LIKE essr-xblnr,
ref_date LIKE zbapiessrc_chars-ref_date,
service LIKE zbapiesllc_chars-service,
flag,
quantity LIKE zbapiesllc_chars-quantity,
final,
END OF i_sgcses_struc.
start of insert >>>
DATA: l_ses_no LIKE essr-lblni.
TYPES: BEGIN OF t_ekpo,
ebeln LIKE ekpo-ebeln,
ebelp LIKE ekpo-ebelp,
werks LIKE ekpo-werks,
packno LIKE ekpo-packno,
END OF t_ekpo.
DATA: i_ekpo TYPE STANDARD TABLE OF t_ekpo.
end of insert <<<
$$----
S E L E C T I O N S C R E E N -
PARAMETERS: p_path TYPE localfile DEFAULT
'C: empBasellInterfacesSesSES-Daten'.
***parameters: p_dismod type ctu_mode default 'A'.
PARAMETERS: p_dismod TYPE ctu_mode DEFAULT 'E'.
PARAMETERS: p_spnam TYPE tsp01-rq2name DEFAULT 'SES_UPL.....'
OBLIGATORY.
PARAMETERS: cb_serv AS CHECKBOX DEFAULT 'X'.
PARAMETERS: cb_text AS CHECKBOX DEFAULT 'X'.
PARAMETERS: cb_chck AS CHECKBOX DEFAULT 'X'.
$$----
A T S E L E C T I O N S C R E E N -
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_path.
DATA: len TYPE i,
testchar(1).
CALL FUNCTION 'KD_GET_FILENAME_ON_F4'
EXPORTING
mask = 'C:*.txt'
static = 'X'
CHANGING
file_name = p_path.
DESCRIBE FIELD p_path LENGTH len IN CHARACTER MODE.
DO len TIMES.
len = len - 1.
testchar = p_path+len(1).
IF testchar = ''.
len = len + 1.
p_path = p_path(len).
EXIT.
ENDIF.
ENDDO.
$$----
S T A R T O F S E L E C T I O N -
START-OF-SELECTION.
PERFORM select_files.
PERFORM spool_settings.
PERFORM upload_files.
PERFORM select_additional_data.
$$----
E N D O F S E L E C T I O N -
END-OF-SELECTION.
PERFORM spool_settings.
CLEAR: perc_uploaded, no_of_files, text_uploaded.
DESCRIBE TABLE t_bapiessrc LINES no_of_files.
Loop over header-records: for each header-record one call transaction:
LOOP AT t_bapiessrc.
perc_uploaded = ( 100 * sy-tabix ) / no_of_files.
IF cb_serv = 'X'.
PERFORM prepare_clipboard.
Upload Service Entry Sheets:
PERFORM call_transaction_upload.
Italian Version begin
IMPORT output_prot FROM MEMORY ID 'OUT_PROT'.
PERFORM write_prot_to_spool.
FREE MEMORY ID 'OUT_PROT'.
REFRESH: output_prot.
Italian Version end
PERFORM find_ses_number.
PERFORM check_estimated_value.
ENDIF.
IF cb_text = 'X'.
Upload SES Texts:
PERFORM upload_texts.
ENDIF.
start of insert >>>
PERFORM change_account.
IF cb_serv = 'X'.
PERFORM release_ses.
ENDIF.
end of insert <<<
ENDLOOP.
In case only text and no services shall be uploaded:
IF NOT cb_text IS INITIAL.
In case also services are uploaded this loop won't apply cause
t_headertext-entries are deleted after they were processed in the
loop above!
LOOP AT t_headertext.
MOVE t_headertext-ext_number TO t_bapiessrc-ext_number.
*only for test cases since data file is not correct:
move t_headertext-ext_number to t_bapiessrc-ref_doc_no.
*only for test cases since data file is not correct:END
PERFORM upload_texts.
ENDLOOP.
ENDIF.
PERFORM log_upload_success.
NEW-PAGE PRINT OFF.
PERFORM delete_files.
WRITE: / text-001.
write: / 'Check spools for correct processing (Transaction SP01)!'.
$$----
T O P O F P A G E -
TOP-OF-PAGE.
*--at user-command--
AT USER-COMMAND.
*--top of page-during line selection--
TOP-OF-PAGE DURING LINE-SELECTION.
$$----
F O R M - R O U T I N E S -
*& Form SPLIT_BAPIESSRC
FORM split_bapiessrc.
DATA: l_score_time(3),
l_score_qual(3),
l_essr_lblni LIKE essr-lblni.
start of insert >>>
TABLES: esuc.
DATA: l_packno LIKE ekpo-packno.
end of insert <<<
CLEAR: t_bapiessrc, ekpo_konnr, ekpo_ktpnr, ekpo.
TRANSLATE doc_content-line USING '#;'. ZBAPIESSRC_CHARS
SPLIT AT '§' INTO
t_bapiessrc-sheet_no t_bapiessrc-ext_number
t_bapiessrc-person_int t_bapiessrc-person_ext
t_bapiessrc-location t_bapiessrc-ref_date
t_bapiessrc-begdate t_bapiessrc-enddate
t_bapiessrc-pckg_no t_bapiessrc-short_text
Only for testing due to wrong data
t_bapiessrc-po_number t_bapiessrc-po_item
ekpo_konnr ekpo_ktpnr
Only for testing due to wrong data END
t_bapiessrc-block_ind t_bapiessrc-score_time
t_bapiessrc-score_qual t_bapiessrc-doc_date
t_bapiessrc-post_date t_bapiessrc-ref_doc_no
Only for testing due to wrong data
t_bapiessrc-po_number t_bapiessrc-po_item
Only for testing due to wrong data END
t_bapiessrc-accasscat t_bapiessrc-comm_no
t_bapiessrc-user_field t_bapiessrc-acceptance
Only for testing due to wrong data
ekpo_konnr ekpo_ktpnr t_bapiessrc-final.
Only for testing due to wrong data END
MOVE '0000000001' TO t_bapiessrc-pckg_no.
SHIFT t_bapiessrc-po_item RIGHT DELETING TRAILING space.
TRANSLATE t_bapiessrc-po_item USING ' 0'.
start of delete >>>
IF NOT ekpo_konnr IS INITIAL AND NOT ekpo_ktpnr IS INITIAL.
SELECT SINGLE konnr ktpnr FROM ekpo
INTO (ekpo-konnr, ekpo-ktpnr)
WHERE ebeln = t_bapiessrc-po_number
AND ebelp = t_bapiessrc-po_item.
IF NOT sy-subrc IS INITIAL.
WRITE:/ text-101, t_bapiessrc-ext_number,
text-102,
t_bapiessrc-po_number,
text-103,
t_bapiessrc-po_item,
text-104.
WRITE: / text-105.
EXIT.
ELSE.
IF ekpo_konnr NE ekpo-konnr OR ekpo_ktpnr NE ekpo-ktpnr.
WRITE:/ text-101, t_bapiessrc-ext_number,
text-106,
ekpo_konnr, '/',
ekpo_ktpnr,
text-107,
t_bapiessrc-po_number,
text-103, t_bapiessrc-po_item, ')'.
WRITE: / text-105.
EXIT.
ENDIF.
ENDIF.
ENDIF.
end of delete <<<
start of insert >>>
" check contract number
IF NOT ekpo_konnr IS INITIAL AND NOT ekpo_ktpnr IS INITIAL.
SELECT SINGLE konnr ktpnr packno
FROM ekpo
INTO (ekpo-konnr, ekpo-ktpnr, l_packno)
WHERE ebeln = t_bapiessrc-po_number
AND ebelp = t_bapiessrc-po_item.
IF sy-subrc NE 0.
" no corresponding PO, no update will be performed
WRITE:/ text-101, t_bapiessrc-ext_number,
text-102,
t_bapiessrc-po_number,
text-103,
t_bapiessrc-po_item,
text-104.
WRITE: / text-105.
EXIT.
ELSE.
" check contract number against table ESUC first.
SELECT SINGLE *
FROM esuc
WHERE packno EQ l_packno
AND ebeln EQ ekpo_konnr
AND ebelp EQ ekpo_ktpnr.
IF sy-subrc NE 0.
" check against PO line
IF ekpo_konnr NE ekpo-konnr OR ekpo_ktpnr NE ekpo-ktpnr.
WRITE:/ text-101, t_bapiessrc-ext_number,
text-106,
ekpo_konnr, '/',
ekpo_ktpnr,
text-107,
t_bapiessrc-po_number,
text-103, t_bapiessrc-po_item, ')'.
WRITE: / text-105.
EXIT.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
end of insert <<<
IF cb_chck = 'X'.
SELECT SINGLE lblni FROM essr INTO l_essr_lblni
WHERE loekz = ' '
AND user1 = t_bapiessrc-ext_number.
IF sy-subrc IS INITIAL.
WRITE:/ 'External SES', t_bapiessrc-ext_number,
'is already uploaded. SES-Number: ', l_essr_lblni.
WRITE: / 'No update of this sheet was accomplished!'.
EXIT.
ENDIF.
ENDIF.
APPEND t_bapiessrc.
ENDFORM. " SPLIT_BAPIESSRC
*& Form SPLIT_BAPIESLLC
FORM split_bapiesllc.
DATA: l_outl_level(3), l_ovf_tol(3), l_price_unit(5), l_gr_price(23),
l_target_val(23), l_userf2_num(13), l_quantity(13),
l_form_val1(13), l_form_val2(13), l_form_val3(13),
l_form_val4(13), l_form_val5(13), l_ext_number(16).
CLEAR: t_bapiesllc.
TRANSLATE doc_content-line USING '#;'.
SPLIT AT '§' INTO
t_bapiesllc-ext_number
t_bapiesllc-pckg_no t_bapiesllc-line_no
t_bapiesllc-ext_line t_bapiesllc-outl_level
t_bapiesllc-outl_no t_bapiesllc-outl_ind
t_bapiesllc-subpckg_no t_bapiesllc-service
t_bapiesllc-serv_type t_bapiesllc-edition
t_bapiesllc-ssc_item t_bapiesllc-ext_serv
t_bapiesllc-quantity t_bapiesllc-base_uom
t_bapiesllc-uom_iso t_bapiesllc-ovf_tol
t_bapiesllc-ovf_unlim t_bapiesllc-price_unit
t_bapiesllc-gr_price t_bapiesllc-from_line
t_bapiesllc-to_line t_bapiesllc-short_text
t_bapiesllc-distrib t_bapiesllc-pers_no
t_bapiesllc-wagetype t_bapiesllc-pln_pckg
t_bapiesllc-pln_line t_bapiesllc-con_pckg
t_bapiesllc-con_line t_bapiesllc-tmp_pckg
t_bapiesllc-tmp_line t_bapiesllc-ssc_lim
t_bapiesllc-limit_line t_bapiesllc-target_val
t_bapiesllc-basline_no t_bapiesllc-basic_line
t_bapiesllc-alternat t_bapiesllc-bidder
t_bapiesllc-supp_line t_bapiesllc-open_qty
t_bapiesllc-inform t_bapiesllc-blanket
t_bapiesllc-eventual t_bapiesllc-tax_code
t_bapiesllc-taxjurcode t_bapiesllc-price_chg
t_bapiesllc-matl_group t_bapiesllc-date
t_bapiesllc-begintime t_bapiesllc-endtime
t_bapiesllc-extpers_no t_bapiesllc-formula
t_bapiesllc-form_val1 t_bapiesllc-form_val2
t_bapiesllc-form_val3 t_bapiesllc-form_val4
t_bapiesllc-form_val5 t_bapiesllc-userf1_num
t_bapiesllc-userf2_num t_bapiesllc-userf1_txt
t_bapiesllc-userf2_txt t_bapiesllc-hi_line_no.
start of insert >>> "AP13022007i
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
input = t_bapiesllc-line_no
IMPORTING
output = t_bapiesllc-line_no.
end of insert <<< "AP13022007i
TRANSLATE t_bapiesllc-quantity USING ',.'.
MOVE '0000000002' TO t_bapiesllc-pckg_no. "TS20082002
APPEND t_bapiesllc.
ENDFORM. " SPLIT_BAPIESLLC
*& Form SELECT_FILES
FORM select_files.
CALL FUNCTION 'KCD_FRONT_END_DIRECTORY_READ'
EXPORTING
i_path = p_path
IMPORTING
E_PURE_PATH =
TABLES
e_directory = i_directory_list
EXCEPTIONS
download = 1
upload = 2
execute = 3
directory_not_exist = 4
directory = 5
OTHERS = 6
IF sy-subrc <> 0.
*{ REPLACE PS010306UPGR
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
MESSAGE w208(00) WITH 'Enter existing directory'(003).
*} REPLACE
EXIT.
ENDIF.
LOOP AT i_directory_list.
CHECK i_directory_list(1) CA 'KPLT'.
check i_directory_list cs '.XLS' or i_directory_list cs '.TXT'.
CHECK i_directory_list CS '.TXT'.
CLEAR i_directory_sel.
MOVE 'X' TO i_directory_sel-text(1).
MOVE i_directory_list(79) TO i_directory_sel-text+1(79).
APPEND i_directory_sel.
ENDLOOP.
CALL FUNCTION 'Z_SL018_POPUP_WITH_TEXT_TO_SEL'
EXPORTING
popup_title = 'Select Files for SES-Upload'
start_column = 10
start_row = 1
end_column = 50
end_row = 16
IMPORTING
sy_ucomm = sy-ucomm
TABLES
x_popuptext = i_directory_sel.
*Check which Files shall be uploaded:
LOOP AT i_directory_sel.
CHECK i_directory_sel-text(1) NE 'Y'.
DELETE i_directory_sel.
ENDLOOP.
SORT i_directory_sel.
DESCRIBE TABLE i_directory_sel LINES no_of_files.
ENDFORM. " SELECT_FILES
*& Form UPLOAD_FILES
FORM upload_files.
*{ INSERT PS010306UPGR
DATA: fname TYPE string.
*} INSERT
LOOP AT i_directory_sel.
CLEAR: file.
UNASSIGN: .
perc_uploaded = ( 100 * sy-tabix ) / no_of_files.
CONCATENATE i_directory_sel-text+1(31) 'uploaded from disk'
INTO text_uploaded
SEPARATED BY space.
CONCATENATE p_path i_directory_sel-text+1(31) INTO file.
Choose the right structure for <doc_content> and <wa_doc_content>
depending on file type K, P, T or L via assignment of field symbols:
CASE i_directory_sel-text+1(1).
WHEN 'K'. "Kopfdaten
ASSIGN t_bapiessrc_tab TO .
ENDCASE.
*{ REPLACE PS010306UPGR
CALL FUNCTION 'WS_UPLOAD'
EXPORTING
FILENAME = FILE
TABLES
DATA_TAB = <DOC_CONTENT>
EXCEPTIONS
CONVERSION_ERROR = 1
FILE_OPEN_ERROR = 2
FILE_READ_ERROR = 3
INVALID_TABLE_WIDTH = 4
INVALID_TYPE = 5
NO_BATCH = 6
UNKNOWN_ERROR = 7
GUI_REFUSE_FILETRANSFER = 8
CUSTOMER_ERROR = 9
OTHERS = 10.
fname = file.
CALL METHOD cl_gui_frontend_services=>gui_upload
EXPORTING
filename = fname
CHANGING
data_tab = 0.
CLEAR: text_fi_not_upl1, text_fi_not_upl2, continue_yn.
CONCATENATE 'File' i_directory_sel-text+1(21) ': upload failed!'
INTO text_fi_not_upl1 SEPARATED BY space.
MOVE 'Continue Program?' TO text_fi_not_upl2.
CALL FUNCTION 'POPUP_TO_CONFIRM_STEP'
EXPORTING
defaultoption = 'N'
textline1 = text_fi_not_upl1
textline2 = text_fi_not_upl2
titel = 'Upload Failed'
start_column = 25
start_row = 6
cancel_display = ' '
IMPORTING
answer = continue_yn.
IF continue_yn = 'N'.
EXIT.
ENDIF.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ELSE.
Move uploaded File records line by line into correct internal table:
t_bapiessrc for K__.txt
t_bapiesllc for P__.txt
t_headertext for T__.txt
t_itemtext for L__.txt
LOOP AT .
IF NOT sy-subrc IS INITIAL. EXIT. ENDIF.
ENDDO.
CASE i_directory_sel-text+1(1).
WHEN 'K'. "Kopfdaten
PERFORM split_bapiessrc.
WHEN 'T'.
PERFORM split_headertext.
WHEN 'P'.
PERFORM split_bapiesllc.
WHEN 'L'.
PERFORM split_itemtext.
ENDCASE.
ENDLOOP.
ENDIF.
CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
EXPORTING
percentage = perc_uploaded
text = text_uploaded.
ENDLOOP.
SORT t_bapiessrc BY ext_number.
SORT t_headertext BY ext_number linno.
SORT t_bapiesllc BY ext_number. "
SORT t_bapiesllc BY ext_number pckg_no line_no.
sort t_bapiesllc by ext_number line_no.
SORT t_itemtext BY ext_number ext_linno ext_line linno.
ENDFORM. " UPLOAD_FILES
*& Form PREPARE_CLIPBOARD
FORM prepare_clipboard.
CLEAR: clbp_content.
REFRESH: clbp_content.
DATA: l_line TYPE n.
DATA: l_tabix LIKE sy-tabix.
CLEAR l_tabix.
*Assemble the File-Structure out of the internal tables t_bapiessrc
and t_bapiesllc which is expected by the user exit
exit_saplmlsx_002 and move it to the clipboard:
MOVE 'K' TO clbp_content(1). "Flag for header record
MOVE t_bapiessrc TO clbp_content+1(246).
APPEND clbp_content.
READ TABLE t_bapiesllc WITH KEY ext_number = t_bapiessrc-comm_no
BINARY SEARCH.
CHECK sy-subrc IS INITIAL.
MOVE sy-tabix TO l_tabix.
insert dummy row for connection between pach_no and sub_packno:
CLEAR l_line.
CLEAR: clbp_content, t_bapiesllc.
ADD 1 TO l_line.
MOVE 'P' TO clbp_content(1). "Flag for service-record
MOVE l_line TO clbp_content+1(1).
MOVE '0000000001' TO t_bapiesllc-pckg_no.
MOVE '0000000002' TO t_bapiesllc-subpckg_no.
WRITE t_bapiesllc16(245) TO clbp_content3(245).
APPEND clbp_content.
CLEAR clbp_content.
ADD 1 TO l_line.
MOVE 'P' TO clbp_content(1).
MOVE l_line TO clbp_content+1(1).
WRITE t_bapiesllc261(245) TO clbp_content3(245).
APPEND clbp_content.
APPEND clbp_content.
CLEAR clbp_content.
ADD 1 TO l_line.
MOVE 'P' TO clbp_content(1).
MOVE l_line TO clbp_content+1(1).
MOVE 'E' TO clbp_content+2(1).
WRITE t_bapiesllc506(27) TO clbp_content3(245).
APPEND clbp_content.
CLEAR clbp_content.
end insert
LOOP AT t_bapiesllc FROM l_tabix.
CLEAR l_line.
CLEAR clbp_content.
IF t_bapiesllc-ext_number NE t_bapiessrc-ext_number.
EXIT.
ENDIF.
ADD 1 TO l_line.
MOVE 'P' TO clbp_content(1). "Flag for service-record
'P'-service records are split into three clipbord-lines since
structure t_bapiesllc is too long for one line
MOVE l_line TO clbp_content+1(1).
WRITE t_bapiesllc16(245) TO clbp_content3(245).
APPEND clbp_content.
CLEAR clbp_content.
ADD 1 TO l_line.
MOVE 'P' TO clbp_content(1).
MOVE l_line TO clbp_content+1(1).
WRITE t_bapiesllc261(245) TO clbp_content3(245).
APPEND clbp_content.
CLEAR clbp_content.
ADD 1 TO l_line.
MOVE 'P' TO clbp_content(1).
MOVE l_line TO clbp_content+1(1).
MOVE 'E' TO clbp_content+2(1).
WRITE t_bapiesllc506(27) TO clbp_content3(245).
APPEND clbp_content.
CLEAR clbp_content.
ENDLOOP.
******Italy version of upload
PERFORM include_italy.
export t_bapiessrc to memory id 'GER_ESSRC'.
export t_bapiesllc to memory id 'GER_ESLLC'.
EXPORT t_bapi_essr TO MEMORY ID 'GER_ESSRC'.
EXPORT t_bapi_esll TO MEMORY ID 'GER_ESLLC'.
CHECK 1 = 2.
******Italy version of upload END
CALL FUNCTION 'CLPB_EXPORT'
TABLES
data_tab = clbp_content
EXCEPTIONS
clpb_error = 1
OTHERS = 2.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
ENDFORM. " PREPARE_CLIPBOARD
*& Form CALL_TRANSACTION_UPLOAD
FORM call_transaction_upload.
REFRESH bdcdata.
PERFORM bdc_dynpro USING: 'RM11RL00' '1000'.
PERFORM bdc_field USING: 'BDC_OKCODE' '=UPL'.
PERFORM bdc_field USING: 'S_LBLNI-LOW' ' '.
PERFORM bdc_field USING: 'S_LBLNI-HIGH' ' '.
PERFORM bdc_field USING: 'P_BSTNR' ' '.
PERFORM bdc_field USING: 'S_BSTPO-LOW' ' '.
PERFORM bdc_field USING: 'S_BSTPO-HIGH' ' '.
*Italian upload version -> comments set|remove comments for Germ.Version
perform bdc_dynpro using: 'SAPLMLSX' '0480'.
perform bdc_field using: 'BDC_OKCODE' '=EXEC'.
perform bdc_dynpro using: 'SAPLGRAP' '0210'.
perform bdc_field using: 'BDC_OKCODE' '=UPL_FR_CLP'.
PERFORM bdc_dynpro USING: 'SAPMSSY0' '0120'.
perform bdc_field using: 'MARKIERT' 'X'.
*Italian upload version -> comments set; END
CASE p_dismod.
WHEN 'A'.
PERFORM bdc_field USING: 'BDC_OKCODE' '=LITE'.
WHEN 'N'.
PERFORM bdc_field USING: 'BDC_OKCODE' '=HIND'.
WHEN 'E'.
PERFORM bdc_field USING: 'BDC_OKCODE' '=DARK'.
ENDCASE.
Here the call transcation of SAP-standard takes place for creating the
service entry sheet
After SAP-standard call transaction: analyze the popup with the
*Italian upload version -> comments set|remove comments for Germ.Version
PERFORM bdc_dynpro USING: 'SAPMSSY0' '0120'.
perform bdc_field using: 'BDC_OKCODE' '=PRI'.
perform bdc_dynpro using: 'SAPLSPRI' '0100'.
perform bdc_field using: 'BDC_OKCODE' '=PRIN'.
perform bdc_field using: 'PRI_PARAMS-PLIST' p_spnam.
perform bdc_field using: 'PRI_PARAMS-PRIMM' ' '.
perform bdc_field using: 'PRI_PARAMS-PRREL' ' '.
perform bdc_field using: 'PRI_PARAMS-PRNEW' ' '.
perform bdc_dynpro using: 'SAPMSSY0' '0120'.
perform bdc_field using: 'BDC_OKCODE' '=EXEC'.
*Italian upload version -> remove the following line for Germ. version:
PERFORM bdc_field USING: 'BDC_OKCODE' '/00'.
w_mode = p_dismod.
currently w_mode and p_dismod are set to the same value:
foregroud, background or error. But it could also be set to differnt
values: Foreground for upload clipboard,
CALL TRANSACTION 'ML81' USING bdcdata MODE w_mode UPDATE c_update
MESSAGES INTO bdcmsgcoll.
ENDFORM. " CALL_TRANSACTION_UPLOAD
*& Form BDC_DYNPRO
FORM bdc_dynpro
USING program TYPE c
dynpro TYPE c.
CLEAR bdcdata.
bdcdata-program = program.
bdcdata-dynpro = dynpro.
bdcdata-dynbegin = 'X'.
APPEND bdcdata.
ENDFORM. " BDC_DYNPRO
*& Form BDC_FIELD
FORM bdc_field
USING fnam TYPE c
fval TYPE c.
CLEAR bdcdata.
bdcdata-fnam = fnam.
bdcdata-fval = fval.
APPEND bdcdata.
ENDFORM. " BDC_FIELD
*& Form UPLOAD_TEXTS
FORM upload_texts.
DATA l_lblni LIKE essr-lblni.
DATA l_tabix_header_start LIKE sy-tabix.
DATA l_tabix_item_start LIKE sy-tabix.
DATA: p(2) TYPE c.
DATA: w LIKE sy-index.
DATA: w_field(20) TYPE c.
DATA: l_ext_line_save LIKE t_itemtext-ext_line.
DATA: l_ext_linno_save LIKE t_itemtext-ext_linno.
DATA: l_extrow(10)." like ml_esll-extrow.
DATA: l_messg LIKE message.
DATA: l_msgno LIKE sy-msgno.
*only for test cases since data file is not correct:
read table t_headertext with key ext_number = t_bapiessrc-ref_doc_no.
READ TABLE t_headertext WITH KEY ext_number = t_bapiessrc-ext_number
BINARY SEARCH.
*only for test cases since data file is not correct:END
IF NOT sy-subrc IS INITIAL.
MESSAGE ID 'ZV' TYPE 'I' NUMBER '011'
WITH text-202.
WRITE: / text-202.
EXIT.
ENDIF.
l_tabix_header_start = sy-tabix.
SELECT SINGLE MAX( lblni ) FROM essr INTO l_lblni
where xblnr = t_headertext-ext_number.
WHERE user1 = t_headertext-ext_number
AND loekz = ' '.
IF NOT sy-subrc IS INITIAL.
MESSAGE ID 'ZV' TYPE 'I' NUMBER '011'
WITH text-203.
WRITE: / text-203.
EXIT.
ENDIF.
CLEAR: bdcdata, bdcmsgcoll.
REFRESH: bdcdata, bdcmsgcoll.
PERFORM bdc_dynpro USING 'RM11RL00' '1000'.
PERFORM bdc_field USING 'BDC_OKCODE' '=ONLI'.
PERFORM bdc_field USING 'S_LBLNI-LOW' l_lblni. " '1000001748'.
PERFORM bdc_field USING 'BDC_CURSOR' 'P_LIST'.
PERFORM bdc_field USING 'P_LIST' ' '.
PERFORM bdc_field USING 'P_DIRECT' 'X'.
PERFORM bdc_field USING 'P_LISTU' ' '.
PERFORM bdc_dynpro USING 'SAPLMLSR' '0100'.
PERFORM bdc_field USING 'BDC_OKCODE' '=TXT'.
perform bdc_field using 'ESSR-TXZ01' t_headertext-txline(40).
PERFORM bdc_dynpro USING 'SAPLSTXX' '1100'.
PERFORM bdc_field USING 'BDC_OKCODE' '=TXBA'.
CLEAR w.
ADD 1 TO w.
LOOP AT t_headertext FROM l_tabix_header_start.
Is t_bapiessrc-ext_number really filled?
IF t_headertext-ext_number NE t_bapiessrc-ext_number.
EXIT.
ENDIF.
ADD 1 TO w.
UNPACK w TO p.
CLEAR w_field.
w_field+00(17) = 'RSTXT-TXPARGRAPH('.
w_field+17(02) = p.
w_field+19(01) = ')'.
PERFORM bdc_field USING w_field t_headertext-txpargraph.
CLEAR w_field.
w_field+00(13) = 'RSTXT-TXLINE('.
w_field+13(02) = p.
w_field+15(01) = ')'.
PERFORM bdc_field USING w_field t_headertext-txline .
delete line from internal table so that Upload Texts is not
processed twice when perform_upload_texts is called without up-
loading services:
DELETE t_headertext.
ENDLOOP.
PERFORM bdc_dynpro USING 'SAPLMLSR' '0100'.
PERFORM bdc_field USING 'BDC_OKCODE' '=SERV'.
PERFORM bdc_dynpro USING 'SAPLMLSP' '0210'.
PERFORM bdc_field USING 'BDC_OKCODE' 'ENTER'.
READ TABLE t_itemtext WITH KEY
ext_number = t_bapiessrc-ext_number.
l_tabix_item_start = sy-tabix.
CLEAR l_ext_line_save.
LOOP AT t_itemtext FROM l_tabix_item_start.
IF t_itemtext-ext_number NE t_bapiessrc-ext_number.
EXIT.
ENDIF.
SHIFT t_itemtext-ext_line RIGHT DELETING TRAILING space.
TRANSLATE t_itemtext-ext_line USING ' 0'.
IF ( t_itemtext-ext_line NE l_ext_line_save )
OR ( t_itemtext-ext_linno NE l_ext_linno_save ).
***find line number:
break michalska.
SELECT SINGLE extrow FROM ml_esll INTO l_extrow
WHERE extrow = t_itemtext-ext_linno
AND srvpos = t_itemtext-ext_line
AND ebeln = l_lblni.
IF NOT sy-subrc IS INITIAL.
CONTINUE.
ENDIF.
PERFORM bdc_dynpro USING 'SAPLMLSP' '0210'.
PERFORM bdc_field USING 'BDC_OKCODE' 'ENTER'.
PERFORM bdc_field USING 'RM11P-NEW_ROW' l_extrow.
PERFORM bdc_dynpro USING 'SAPLMLSP' '0210'.
PERFORM bdc_field USING 'BDC_OKCODE' '=ZLT'.
PERFORM bdc_field USING 'BDC_CURSOR' 'ESLL-EXTROW(01)'.
PERFORM bdc_field USING 'RM11P-SELKZ(01)' 'X'.
PERFORM bdc_dynpro USING 'SAPLSTXX' '1100'.
PERFORM bdc_field USING 'BDC_OKCODE' '=TXBA'.
CLEAR w.
ADD 1 TO w.
ENDIF.
ADD 1 TO w.
UNPACK w TO p.
CLEAR w_field.
w_field+00(17) = 'RSTXT-TXPARGRAPH('.
w_field+17(02) = p.
w_field+19(01) = ')'.
PERFORM bdc_field USING w_field t_itemtext-txpargraph.
CLEAR w_field.
w_field+00(13) = 'RSTXT-TXLINE('.
w_field+13(02) = p.
w_field+15(01) = ')'.
PERFORM bdc_field USING w_field t_itemtext-txline .
l_ext_line_save = t_itemtext-ext_line.
l_ext_linno_save = t_itemtext-ext_linno.
ENDLOOP.
PERFORM bdc_dynpro USING 'SAPLMLSP' '0210'.
PERFORM bdc_field USING 'BDC_OKCODE' '=SAV'.
CALL TRANSACTION 'ML81' USING bdcdata MODE p_dismod UPDATE c_update
MESSAGES INTO bdcmsgcoll.
LOOP AT bdcmsgcoll.
IF sy-tabix = 1.
WRITE AT: /1 text-002,
write at: /1 'Log for text uploads of entry sheet ',
37 l_lblni, 48 ':'.
ENDIF.
check bdcmsgcoll-msgtyp = 'E' or bdcmsgcoll-msgtyp = 'A'.
CHECK bdcmsgcoll-msgnr CO ' 0123456789'.
MOVE bdcmsgcoll-msgnr TO l_msgno.
CALL FUNCTION 'WRITE_MESSAGE'
EXPORTING
msgid = bdcmsgcoll-msgid
msgno = l_msgno
msgty = bdcmsgcoll-msgtyp
msgv1 = bdcmsgcoll-msgv1
msgv2 = bdcmsgcoll-msgv2
msgv3 = bdcmsgcoll-msgv3
msgv4 = bdcmsgcoll-msgv4
IMPORTING
messg = l_messg.
WRITE AT: /3 l_messg-msgtx.
ENDLOOP.
ENDFORM. " UPLOAD_TEXTS
*& Form SPLIT_HEADERTEXT
FORM split_headertext.
DATA: l_essr_lblni LIKE essr-lblni.
CLEAR: t_headertext.
TRANSLATE doc_content-line USING '#;'. ZBAPIESSRC_CHARS
SPLIT AT '§' INTO
t_headertext-ext_number
t_headertext-linno
t_headertext-tcode
t_headertext-recordname
t_headertext-txpargraph
t_headertext-txline
t_headertext-text_mark.
start of insert >>>
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
input = t_headertext-linno
IMPORTING
output = t_headertext-linno.
end of insert <<<
IF cb_chck = 'X'.
SELECT SINGLE lblni FROM essr INTO l_essr_lblni
WHERE loekz = ' '
AND user1 = t_headertext-ext_number.
IF sy-subrc IS INITIAL.
IF t_headertext-linno = 1.
WRITE:/ 'External SES', t_headertext-ext_number,
'is already uploaded. SES-Number: ', l_essr_lblni.
WRITE: / 'No update of this sheet-texts was accomplished!'.
ENDIF.
EXIT.
ENDIF.
ENDIF.
start of insert >>>
IF NOT cb_serv IS INITIAL.
" check
READ TABLE t_bapiessrc WITH KEY ext_number = t_headertext-ext_number
BINARY SEARCH.
IF sy-subrc NE 0.
EXIT.
ENDIF.
ENDIF.
end of insert <<<
APPEND t_headertext.
ENDFORM. " SPLIT_HEADERTEXT
*& Form SPLIT_ITEMTEXT
FORM split_itemtext.
DATA: l_essr_lblni LIKE essr-lblni.
CLEAR: t_itemtext.
TRANSLATE doc_content-line USING '#;'. ZBAPIESSRC_CHARS
SPLIT AT '§' INTO
t_itemtext-ext_number
t_itemtext-ext_line
t_itemtext-linno
t_itemtext-tcode
t_itemtext-recordname
t_itemtext-txpargraph
t_itemtext-txline
t_itemtext-text_mark
t_itemtext-ext_linno.
start of insert >>>
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
input = t_itemtext-ext_linno
IMPORTING
output = t_itemtext-ext_linno.
end of insert <<<
IF cb_chck = 'X'.
SELECT SINGLE lblni FROM essr INTO l_essr_lblni
WHERE loekz = ' '
AND user1 = t_itemtext-ext_number.
IF sy-subrc IS INITIAL.
write:/ 'External SES', t_itemtext-ext_number,
'is already uploaded. SES-Number: ', l_essr_lblni.
write: / 'No update of this sheet was accomplished!'.
EXIT.
ENDIF.
ENDIF.
APPEND t_itemtext.
ENDFORM. " SPLIT_ITEMTEXT
start of delete >>>
*& Form SPOOL_SETTINGS
*FORM spool_settings.
MOVE p_spnam TO list_text.
CALL FUNCTION 'GET_PRINT_PARAMETERS'
EXPORTING " destination = 'dest'
copies = 1
list_name = p_spnam
list_text = list_text
immediately = ' '
release = ' '
new_list_id = ' '
expiration = 9
line_size = 125
line_count = 23
layout = 'X_65_132'
sap_cover_page = ' '
receiver = 'SAP*'
department = 'System'
no_dialog = 'X'
IMPORTING
out_parameters = params
valid = valid.
IF valid <> space.
NEW-PAGE PRINT ON PARAMETERS params NO DIALOG.
ENDIF.
*ENDFORM. " SPOOL_SETTINGS
end of delete <<<
*& Form DELETE_FILES
text
--> p1 text
<-- p2 text
FORM delete_files.
*{ REPLACE PS010306UPGR
DATA: l_return.
DATA: l_return TYPE i.
DATA: fname TYPE string.
*} REPLACE
LOOP AT i_directory_sel.
move space to i_directory_sel-text(1).
MOVE 'X' TO i_directory_sel-text(1).
MODIFY i_directory_sel.
ENDLOOP.
*{ REPLACE
CLEAR i_directory_sel.
MOVE'Xdir_file.bat' TO i_directory_sel-text.
APPEND i_directory_sel.
CLEAR i_directory_sel.
MOVE'Xdir_file.txt' TO i_directory_sel-text.
APPEND i_directory_sel.
DATA: l_directory_list LIKE rlgrap-filename OCCURS 0 WITH HEADER LINE.
CALL FUNCTION 'KCD_FRONT_END_DIRECTORY_READ'
EXPORTING
i_path = p_path
TABLES
e_directory = l_directory_list
EXCEPTIONS
OTHERS = 6.
IF sy-subrc <> 0.
LOOP AT l_directory_list.
IF l_directory_list CS 'dir_file.bat'.
CLEAR i_directory_sel.
MOVE'Xdir_file.bat' TO i_directory_sel-text.
APPEND i_directory_sel.
ELSEIF l_directory_list CS 'dir_file.txt'.
CLEAR i_directory_sel.
MOVE'Xdir_file.txt' TO i_directory_sel-text.
APPEND i_directory_sel.
ENDIF.
ENDLOOP.
ENDIF.
CALL FUNCTION 'Z_SL018_POPUP_WITH_TEXT_TO_SEL'
EXPORTING
popup_title = 'Select Files for DELETION'
start_column = 10
start_row = 1
end_column = 50
end_row = 16
IMPORTING
sy_ucomm = sy-ucomm
TABLES
x_popuptext = i_directory_sel.
*Check which Files shall be uploaded:
CHECK sy-ucomm = 'OK'.
LOOP AT i_directory_sel.
CHECK i_directory_sel-text(1) = 'Y'.
CLEAR file.
CONCATENATE p_path i_directory_sel-text+1(31) INTO file.
*{ REPLACE PS010306UPGR
CALL FUNCTION 'WS_FILE_DELETE'
EXPORTING
FILE = FILE
IMPORTING
RETURN = L_RETURN.
fname = file.
CALL METHOD cl_gui_frontend_services=>file_delete
EXPORTING
filename = fname
CHANGING
rcHI
add that fileds in the all locations where you need it like
in internal table declaration , write statement , select statement
these are the main areas where you have to add that 2 fileds -
Error during distribution for compiled code generation-Reply
Hi,
Looking at your error messages, it looks as though your build is failing during the code generation phase of an autocompilation. To determine why the code generator crashed, either look in the $FORTE_ROOT/log/forte_ex*.log files or don't use autocompilation and use fcompile.
There are many reasons why the code generator could crash. Some of the things I've come across are running out of memory and trying to find invalid classes.
If its the invalid class problem you'll find a message like:
Generating code for partition BLTCustomWindow_cl0_Part1.
ERROR: Exiting due to following exception:
SYSTEM ERROR: Client partition FTCompile_cl0_Client was terminated by escaped
exception. See the remainder of the error stack for more information.
Class: qqsp_ResourceException
Error #: [1001, 3]
Detected at: qqrt_ForteExecAgent::LoadPartition at 1
Error Time: Tue Aug 18 17:52:44
Exception occurred (locally) on partition "Forte_Executor", (partitionId =
9EA25A00-36FE-11D2-87C4-502F15BEAA77:0x1, taskId =
[9EA25A00-36FE-11D2-87C4-502F15BEAA77:0x1.6]) in application
"FTCompile_cl0", pid 28331 on node stardev in environment <unknown>.
FATAL ERROR: Invalid class ProductBMServices.ProductSecurityMgrProxy
(0x4ecd,0x19a)
Class: qqsp_ImplementationException
Detected at: qqcg_TRclass::SetClass at 2
Last TOOL statement: method ForteCompiler.ProcessPGF
Error Time: Tue Aug 18 17:52:44
Exception occurred (locally) on partition "Forte_Executor",
(partitionId = 9EA25A00-36FE-11D2-87C4-502F15BEAA77:0x1, taskId =
[9EA25A00-36FE-11D2-87C4-502F15BEAA77:0x1.6]) in application
"FTCompile_cl0", pid 28331 on node stardev in environment <unknown>.
The solution for this instance is to clean up the invalid classes using the c4tstdrv utility.
c4tstdrv > setrepos star8
c4tstdrv > setwork dmcompiledbuild
c4tstdrv > open
Type Service Flags Level
err sh * 255
trc rp 1 4
c4tstdrv > findproj productbmservices
c4tstdrv > cleanuprtclasses
Removing extraneous RTclass ProductShootingLocationMgrProxy
Removing extraneous RTclass PRTerritoryBaseMgrProxy
Removing extraneous RTclass PRTerritoryMgrProxy
Removing extraneous RTclass TalentBaseMgrProxy
Removing extraneous RTclass TalentTypeMgrProxy
Removing extraneous RTclass TitleTypeBaseMgrProxy
Removing extraneous RTclass TitleTypeMgrProxy
Removing extraneous RTclass ProductSecurityBaseClass
Removing extraneous RTclass ProductSecurityBaseQuery
Removing extraneous RTclass ProductSecurityQuery
Removing extraneous RTclass ProductSecurityMgrProxy
c4tstdrv > commit
c4tstdrv > exit
Integrate the changes to the workspace, start the build again and this should have cured the problem.
However, its hard to know what the cause of your problem is without seeing the output in the log files.
Good luck.
Mark Carruthers
20th Century Fox
"Forte Consultants" <[email protected]> 01/22/99 08:35am >>>
Hi,
I'm doing application distribution for my application using a fscript
script and am forcing compilation on 2 of my partitions.
This I have been doing from quite sometime successfully. Recently I
developed a new service and plugged it into my application for
deployment.
I'm successfully able to distribute & deploy the interpreted code. But
I'm getting a long list of system errors when I try doing distribution
for compiled code. And I see only one of the .exe generated instead of
two because of which I'm unable to go ahead with installaion. I would
appreciate if anybody let me know why this's happening ?. The following
is the main chunk of this error list.
Thanks in advance.
--Anand Ramaswamy
SYSTEM ERROR: Cannot resolve the distributed reference for an object of
class
(qqlo_Object) named (<Unknown>) for the reasons below.
Class: qqsp_DistAccessException
Error #: [601, 144]
Detected at: qqdo_ProxyMgr::ResolveOutGoingProxy at 10
Error Time: Fri Jan 22 10:44:22
Exception occurred (locally) on partition "Fscript_cl9_Client",
(partitionId = 32271CD0-4E62-11D2-AF29-9F40A9E1AA77:0x614:0x1,
taskId =
[32271CD0-4E62-11D2-AF29-9F40A9E1AA77:0x614:0x1.1]) in application
"fscript", pid 4b81 on node MOOSUP in environment IGTSDENV.
SYSTEM ERROR: Can not initially communicate with the object named
(Unnamed),
which is supposed to be in partition
(32271CD0-4E62-11D2-AF29-9F40A9E1AA77:0x616:0x1).
Class: qqsp_DistAccessException
Error #: [601, 140]
Detected at: qqdo_ProxyMgr::CheckAccess at 1
Error Time: Fri Jan 22 10:44:22
Exception occurred (locally) on partition "Fscript_cl9_Client",
(partitionId = 32271CD0-4E62-11D2-AF29-9F40A9E1AA77:0x614:0x1,
taskId =
[32271CD0-4E62-11D2-AF29-9F40A9E1AA77:0x614:0x1.1]) in application
"fscript", pid 4b81 on node MOOSUP in environment IGTSDENV.
SYSTEM ERROR: Attempt to send to unknown destination partition
(32271CD0-4E62-11D2-AF29-9F40A9E1AA77:0x616:0x1).
Class: qqsp_DistAccessException
Error #: [601, 102]
Detected at: qqdo_PartitionMgr::SendMsg at 1
Error Time: Fri Jan 22 10:44:22
Distributed method called: qqdo_InternalMessage.<Message> (object
name
Unnamed) from partition "CodeGenerationSvc_cl0_Part1-router",
(partitionId
= 32271CD0-4E62-11D2-AF29-9F40A9E1AA77:0x615:0x1, taskId =
[32271CD0-4E62-11D2-AF29-9F40A9E1AA77:0x615.2]) in application
"CodeGenerationSvc_cl0", pid 7487 on node MOOSUP in environment
IGTSDENV
Exception occurred (locally) on partition "Fscript_cl9_Client",
(partitionId = 32271CD0-4E62-11D2-AF29-9F40A9E1AA77:0x614:0x1,
taskId =
[32271CD0-4E62-11D2-AF29-9F40A9E1AA77:0x614:0x1.1]) in application
"fscript", pid 4b81 on node MOOSUP in environment IGTSDENV.
SYSTEM ERROR: Partition (32271CD0-4E62-11D2-AF29-9F40A9E1AA77:0x616:0x1)
no
longer exists. The process associated with the partition probably
terminated.
Class: qqsp_DistAccessException
Detected at: qqdo_PartitionMgr::CheckStarted at 1
Error Time: Fri Jan 22 10:44:22
Exception occurred (locally) on partition "Fscript_cl9_Client",
(partitionId = 32271CD0-4E62-11D2-AF29-9F40A9E1AA77:0x614:0x1,
taskId =
[32271CD0-4E62-11D2-AF29-9F40A9E1AA77:0x614:0x1.1]) in application
"fscript", pid 4b81 on node MOOSUP in environment IGTSDENV.
SYSTEM ERROR: This method invocation is being retried because the
failures
shown below and the fact that the dialog duration is MESSAGE. This is
try #2.
Class: qqsp_DistAccessException
Error #: [601, 54]
Detected at: qqdo_Message::Failed at 1
Error Time: Fri Jan 22 10:44:19
Exception occurred (locally) on partition "Fscript_cl9_Client",
(partitionId = 32271CD0-4E62-11D2-AF29-9F40A9E1AA77:0x614:0x1,
taskId =
[32271CD0-4E62-11D2-AF29-9F40A9E1AA77:0x614:0x1.1]) in application
"fscript", pid 4b81 on node MOOSUP in environment IGTSDENV.
SYSTEM ERROR: The load balanced router is disabled or has no members.
This
can happen if all of the members terminated or failed.
Class: qqsp_DistAccessException
Error #: [601, 161]
Detected at: qqdo_LbRouter::Route at 1
Error Time: Fri Jan 22 10:44:19
Distributed method called: GenerationMgrProxy.GeneratePartitionCode
(object name
site/codegenerationsvc_cl0/codegenerationsvc_cl0-codegensvc)
from partition "Fscript_cl9_Client", (partitionId =
32271CD0-4E62-11D2-AF29-9F40A9E1AA77:0x614:0x1, taskId =
[32271CD0-4E62-11D2-AF29-9F40A9E1AA77:0x614.2]) in application
"fscript",
pid 4b81 on node MOOSUP in environment IGTSDENV
Exception occurred (remotely) on partition
"CodeGenerationSvc_cl0_Part1-router", (partitionId =
32271CD0-4E62-11D2-AF29-9F40A9E1AA77:0x615:0x1, taskId =
[32271CD0-4E62-11D2-AF29-9F40A9E1AA77:0x614:0x1.10]) in
application
"CodeGenerationSvc_cl0", pid 7487 on node MOOSUP in environment
IGTSDENV.
SYSTEM ERROR: This method invocation is being retried because the
failures
shown below and the fact that the dialog duration is MESSAGE. This is
try #1.
Class: qqsp_DistAccessException
Error #: [601, 54]
Detected at: qqdo_Message::Failed at 1
Error Time: Fri Jan 22 10:44:15
Exception occurred (locally) on partition "Fscript_cl9_Client",
(partitionId = 32271CD0-4E62-11D2-AF29-9F40A9E1AA77:0x614:0x1,
taskId =
[32271CD0-4E62-11D2-AF29-9F40A9E1AA77:0x614:0x1.1]) in application
"fscript", pid 4b81 on node MOOSUP in environment IGTSDENV.
SYSTEM ERROR: Access to a load balanced router member (which is a
service
object) failed for the reasons below.
Class: qqsp_DistAccessException
Error #: [601, 162]
Detected at: qqdo_LbRouter::Route at 2
Error Time: Fri Jan 22 10:44:15
Distributed method called: GenerationMgrProxy.GeneratePartitionCode
(object name
site/codegenerationsvc_cl0/codegenerationsvc_cl0-codegensvc)
from partition "Fscript_cl9_Client", (partitionId =
32271CD0-4E62-11D2-AF29-9F40A9E1AA77:0x614:0x1, taskId =
[32271CD0-4E62-11D2-AF29-9F40A9E1AA77:0x614.3]) in application
"fscript",
pid 4b81 on node MOOSUP in environment IGTSDENV
Distributed method called: qqlo_Object.<Message> (object name
Unnamed)
from partition "Forte_Executor", (partitionId =
32271CD0-4E62-11D2-AF29-9F40A9E1AA77:0x615, taskId =
[32271CD0-4E62-11D2-AF29-9F40A9E1AA77:0x615.12]) in application
"CodeGenerationSvc_cl0", pid 7487 on node MOOSUP in environment
IGTSDENV
Exception occurred (remotely) on partition
"CodeGenerationSvc_cl0_Part1-router", (partitionId =
32271CD0-4E62-11D2-AF29-9F40A9E1AA77:0x615:0x1, taskId =
[32271CD0-4E62-11D2-AF29-9F40A9E1AA77:0x614:0x1.10]) in
application
"CodeGenerationSvc_cl0", pid 7487 on node MOOSUP in environment
IGTSDENV.
SYSTEM ERROR: Cannot resolve the distributed reference for an object of
class
(qqlo_Object) named (<Unknown>) for the reasons below.
Class: qqsp_DistAccessException
Error #: [601, 144]
Detected at: qqdo_ProxyMgr::ResolveOutGoingProxy at 10
Error Time: Fri Jan 22 10:44:15
Distributed method called: qqlo_Object.<Message> (object name
Unnamed)
from partition "Forte_Executor", (partitionId =
32271CD0-4E62-11D2-AF29-9F40A9E1AA77:0x615, taskId =
[32271CD0-4E62-11D2-AF29-9F40A9E1AA77:0x615.12]) in application
"CodeGenerationSvc_cl0", pid 7487 on node MOOSUP in environment
IGTSDENV
Exception occurred (remotely) on partition
"CodeGenerationSvc_cl0_Part1-router", (partitionId =
32271CD0-4E62-11D2-AF29-9F40A9E1AA77:0x615:0x1, taskId =
[32271CD0-4E62-11D2-AF29-9F40A9E1AA77:0x614:0x1.10]) in
application
"CodeGenerationSvc_cl0", pid 7487 on node MOOSUP in environment
IGTSDENV.
SYSTEM ERROR: This distributed reference was previously invalidated due
to the
reasons below.
Class: qqsp_DistAccessException
Error #: [601, 132]
Detected at: qqdo_ProxyMgr::ResolveOutGoingProxy at 3
Error Time: Fri Jan 22 10:44:15
Exception occurred (remotely) on partition
"CodeGenerationSvc_cl0_Part1-router", (partitionId =
32271CD0-4E62-11D2-AF29-9F40A9E1AA77:0x615:0x1, taskId =
[32271CD0-4E62-11D2-AF29-9F40A9E1AA77:0x614:0x1.10]) in
application
"CodeGenerationSvc_cl0", pid 7487 on node MOOSUP in environment
IGTSDENV.
INFORMATION: The connection to the partner was terminated by the
Communication
Manager for the reasons below.
Class: qqsp_DistAccessException
Detected at: qqdo_PartitionMgr::StopLocation at 1
Error Time: Fri Jan 22 10:44:15
Exception occurred (remotely) on partition
"CodeGenerationSvc_cl0_Part1-router", (partitionId =
32271CD0-4E62-11D2-AF29-9F40A9E1AA77:0x615:0x1, taskId =
[32271CD0-4E62-11D2-AF29-9F40A9E1AA77:0x614:0x1.10]) in
application
"CodeGenerationSvc_cl0", pid 7487 on node MOOSUP in environment
IGTSDENV.
INFORMATION: Network partner closed connection. This usually means the
process at the other end of the wire failed. Please go look there and
find
out why.
Class: qqsp_DistAccessException
Detected at: qqcm_HoseFSM::ReceivedClose at 2
Error Time: Fri Jan 22 10:44:15
Exception occurred (remotely) on partition
"CodeGenerationSvc_cl0_Part1-router", (partitionId =
32271CD0-4E62-11D2-AF29-9F40A9E1AA77:0x615:0x1, taskId =
[32271CD0-4E62-11D2-AF29-9F40A9E1AA77:0x614:0x1.10]) in
application
"CodeGenerationSvc_cl0", pid 7487 on node MOOSUP in environment
IGTSDENV.
INFORMATION: Asynchronous Failure: Recieved a close from the network
partner:
Internet Location - Host: moosup.iroquois.com Port Number: 2504 Dot:
193.1.11.26 %LINKDISCON, network partner disconnected logical link
Event 4
Class: qqsp_DistAccessException
Detected at: qqcm_HoseFSM::ReceivedClose at 1
Error Time: Fri Jan 22 10:44:15
Exception occurred (remotely) on partition
"CodeGenerationSvc_cl0_Part1-router", (partitionId =
32271CD0-4E62-11D2-AF29-9F40A9E1AA77:0x615:0x1, taskId =
[32271CD0-4E62-11D2-AF29-9F40A9E1AA77:0x614:0x1.10]) in
application
"CodeGenerationSvc_cl0", pid 7487 on node MOOSUP in environment
IGTSDENV.
SYSTEM ERROR: This method invocation is being retried because the
failures
shown below and the fact that the dialog duration is MESSAGE. This is
try #1.
Class: qqsp_DistAccessException
Error #: [601, 54]
Detected at: qqdo_Message::Failed at 1
Error Time: Fri Jan 22 10:44:15
Exception occurred (remotely) on partition
"CodeGenerationSvc_cl0_Part1-router", (partitionId =
32271CD0-4E62-11D2-AF29-9F40A9E1AA77:0x615:0x1, taskId =
[32271CD0-4E62-11D2-AF29-9F40A9E1AA77:0x614:0x1.10]) in
application
"CodeGenerationSvc_cl0", pid 7487 on node MOOSUP in environment
IGTSDENV.
INFORMATION: The connection to the partner was terminated by the
Communication
Manager for the reasons below.
Class: qqsp_DistAccessException
Detected at: qqdo_PartitionMgr::StopLocation at 1
Error Time: Fri Jan 22 10:44:15
Distributed method called: qqlo_Object.<Message> (object name
Unnamed)
from partition "Forte_Executor", (partitionId =
32271CD0-4E62-11D2-AF29-9F40A9E1AA77:0x615, taskId =
[32271CD0-4E62-11D2-AF29-9F40A9E1AA77:0x615.12]) in application
"CodeGenerationSvc_cl0", pid 7487 on node MOOSUP in environment
IGTSDENV
Exception occurred (remotely) on partition
"CodeGenerationSvc_cl0_Part1-router", (partitionId =
32271CD0-4E62-11D2-AF29-9F40A9E1AA77:0x615:0x1, taskId =
[32271CD0-4E62-11D2-AF29-9F40A9E1AA77:0x614:0x1.10]) in
application
"CodeGenerationSvc_cl0", pid 7487 on node MOOSUP in environment
IGTSDENV.
INFORMATION: Network partner closed connection. This usually means the
process at the other end of the wire failed. Please go look there and
find
out why.
Class: qqsp_DistAccessException
Detected at: qqcm_HoseFSM::ReceivedClose at 2
Error Time: Fri Jan 22 10:44:15
Exception occurred (remotely) on partition
"CodeGenerationSvc_cl0_Part1-router", (partitionId =
32271CD0-4E62-11D2-AF29-9F40A9E1AA77:0x615:0x1, taskId =
[32271CD0-4E62-11D2-AF29-9F40A9E1AA77:0x614:0x1.10]) in
application
"CodeGenerationSvc_cl0", pid 7487 on node MOOSUP in environment
IGTSDENV.
INFORMATION: Asynchronous Failure: Recieved a close from the network
partner:
Internet Location - Host: moosup.iroquois.com Port Number: 2504 Dot:
193.1.11.26 %LINKDISCON, network partner disconnected logical link
Event 4
Class: qqsp_DistAccessException
Detected at: qqcm_HoseFSM::ReceivedClose at 1
Error Time: Fri Jan 22 10:44:15
Exception occurred (remotely) on partition
"CodeGenerationSvc_cl0_Part1-router", (partitionId =
32271CD0-4E62-11D2-AF29-9F40A9E1AA77:0x615:0x1, taskId =
[32271CD0-4E62-11D2-AF29-9F40A9E1AA77:0x614:0x1.10]) in
application
"CodeGenerationSvc_cl0", pid 7487 on node MOOSUP in environment
IGTSDENV.
To unsubscribe, email '[email protected]' with
'unsubscribe forte-users' as the body of the message.
Searchable thread archive <URL:http://pinehurst.sageit.com/listarchive/>
To unsubscribe, email '[email protected]' with
'unsubscribe forte-users' as the body of the message.
Searchable thread archive <URL:http://pinehurst.sageit.com/listarchive/>Hi,
If this INCLUDE is in a function group go the MAIN program and activate from there.
Can you list out the include name?
a® -
Design Pattern / Best Practice Question
Hi,
I have been using Flex for a while now, but there is a
scenario which I still have not found a solution I'm entirely happy
with. I'm wondering if anyone else out there might have suggestions
on a design pattern or best practice.
Suppose I have a view which depends on model data which
resides in some back end systems. That model data may or may not
have been loaded (e.g. via a web service or remote object call) at
the time the view is displayed.
I don't know if the user will ever visit this part of the
application so I would prefer to defer retrieval of the data until
the user actually navigates to this view. Or I want to retrieve the
data each time the view is displayed because the data is dynamic
and could change between one presentation of the view and the next.
Because the data comes from several systems, I cannot simply
make one service call and display the view when it completes and
all the data is available. I need to call several services which
could complete in any order but I only want to display my view
after I know all of them have completed and all of the model data
is available. Otherwise, I can present the user an incomplete view
(e.g. some combo boxes are empty until the corresponding service
call to get the data completes).
The solution I like best so far is to dispatch a single event
(I am using Cairngorm) handled by a single command which acts as
the caller and responder for all of the services. This command then
remembers which responses it has received and dispatches another
event to navigate to the view once all the results have returned.
If the services being called are used in different
combinations on different screens, this results in proliferation of
events and commands. An event and command for each service and
additional events and commands to bundle the services and the
handling of their responses in the right combinations for each of
the views.
Another approach is to have some helper class listen for all
of the model changes and only display the view when the model
enters some state that is acceptable. It is sometimes difficult to
determine just by looking at the model whether it is in the right
state (e.g. how can I tell that a collection is the new collection
that should just have been requested versus an old one lingering
from a previous call). The logic required can get kind of
convoluted and brittle.
Basically, all of the solutions I've come up with so far seem
less than ideal and a little hackish. I keep thinking there is some
elegant solution out there that I am just missing ... but so far,
no luck finding it. Thoughts?
Thanks.
Billi think a service class is right - to coordinate your calls.
i would have 1 event per call (so you could listen to individual
responses if you wanted to).
then i would use a flag. if you want to check for staleness,
you would probably want two objects to map your service flag to
lastRequested and lastCompleted. when you check, check if it's
completed, and if it's not stale and that your lastRequested is
less than lastCompleted (meaning that you're not currently waiting,
i.e. you've returned since making a request). then make the request
and update your lastRequested.
here's a snippet of what i mean.
./paul
public static const SVC1_LOADED:int = 1;
public static const SVC2_LOADED:int = 2;
public static const SVC3_LOADED:int = 4;
public static const SVCALL_LOADED:int = 7;
private var completedFlag:int = 0;
then each call would have it's own callback.
private function onSvc1Complete( evt:Event):void {
completedFlag |= SVC1_LOADED;
lastCompleted[ SVC1_LOADED ] = getTimer();
dispatchEvent( new Event("svc1complete") );
checkDone();
private function checkDone():void{
if( completedFlag == SVCALL_LOADED )
dispatchEvent(new Event( "allLoaded" )); -
I am trying to wrapper a C DLL, basically a very simple DLL and have a
forte application call the function specified in the DLL. I have Forte
3G2 and using VC++ 6.0
below is the C code which is the only C file in the C DLL project.
/********************** testdll.c file ****************************/
#include <windows.h>
#include <stdlib.h>
__declspec(dllexport) void VerifyWithAddress(char *);
BOOL WINAPI DllMain( HANDLE hModule,
DWORD fdwReason,
LPVOID lpReserved
BOOL bResult = TRUE;
// Dispatch this call based on the reason it was called.
switch (fdwReason)
case DLL_PROCESS_ATTACH:
// The DLL is being loaded for the first time by a given
process.
// Perform per-process initialization here. If the
initialization
// is successful, return TRUE; if unsuccessful, return FALSE.
break;
case DLL_PROCESS_DETACH:
// The DLL is being unloaded by a given process. Do any
break;
case DLL_THREAD_ATTACH:
// A thread is being created in a process that has already
loaded
// this DLL. Perform any per-thread initialization here. The
// return value is ignored.
break;
case DLL_THREAD_DETACH:
// A thread is exiting cleanly in a process that has already
// loaded this DLL. Perform any per-thread clean up here. The
// return value is ignored.
break;
return(bResult);
void VerifyWithAddress(char * myString)
strcpy(myString,"testing");
and here is the .PEX file
/********************* pex file *************************/
begin C tagdll;
class xstaAddressValidation
VerifyWithAddress(input address: string);
end;
has property
Libraryname = 'testdll';
Extended = (ExternalObjectFiles =
'c:/forte/userapp/tagdll/cl0/testdll');
end tagdll;
I get the .obj file generated by VC++ and try to do a fcompile against
the files generated by forte as a result of making a distribution of the
imported .pex file that was configured as a library. as I do the
fcompile, I keep getting the following errors:
/************************ Forte errors ***************************/
Forte Conductor (tm):
Copyright (c) 1994-1998, Forte Software, Inc. and its licensors.
US Patent No. 5,457,797
Forte Express (tm), Forte WebEnterprise (tm):
Copyright (c) 1995-1998, Forte Software, Inc.
All Rights Reserved.
Unpublished rights reserved under the copyright laws of the United
States.
Fri Mar 13 17:12:00 1998
Type Service Flags Level
err sh * 255
Loaded Forte Message Catalog 'fortemsg/en_us.cat'
NLM Startup is Complete - Partition's Locale is 'en_us.win'
Loading partition FTCompile_cl0_Client built on 13-Mar-1998 19:11:07.
Processing BOM file: testdll.bom
cl /W3 /Gf /GX /MD /c /Ob1 /vmg /DSTRICT /DWIN32 /D__WIN32__
/DLIBOO_DLL /DWIN3
2_LEAN_AND_MEAN /Ic:\forte\install\inc\cmn /Ic:\forte\install\inc\os
/Ic:\forte
\install\inc\ds /Ic:\forte\install\inc\handles /Ic:\forte /Fotestdll.obj
/Tp tes
tdll.cc
The name specified is not recognized as an
internal or external command, operable program or batch file.
Error during compilation, aborting.
C:\forte\appdist\centrale\tagdll\cl0\codegen\testdll>
Get Your Private, Free Email at http://www.hotmail.com
To unsubscribe, email '[email protected]' with
'unsubscribe forte-users' as the body of the message.
Searchable thread archive <URL:http://pinehurst.sageit.com/listarchive/>my question is if I could include a C++ library in my
java program and, in that case, how to do it.
Although JNI allows that keep in mind that certainly in some cases it is easier to create a C++ application (executable) and then have java communicate with that app. -
Compile project for different env
Good morning every one,
Just a quick question. I am developing on Mac OS X, with CF 8 and Flex 4 (as eclipse plugin). I have one staging server also Mac OS X with CF 8 and a production server which is Linux with CF 8.
As of now, I am taking the compiled output and just copying it over to my staging area, when verified same codebase is copied over to the production area. This was working fine until last nights update to production area. I started getting Java.nullpointer exception when Flex tried to communicate with CF.
I am wondering if it has anything to do with the way Flex project has been compiled with --services flag. The location of CF 8 services-config.xml is different on Linux v. Mac. Or is it that everything is encapsulated in the compiled swf and it does not matter as long as CF version are same? and error is related to something else?
Thanks
JayWhat exact error are you getting? Have to tried to enable robust error info in cold fusion?
-Gaurav
http://www.gauravj.com/blog -
Failed to bring up UDS Control Panel
Hi,
I have installed FORTE-UDS 5.0.3 on a Windows 2000 professional machine. The problem is, when I tried to bring up the UDS Control Panel, I see the start up screen flashed by and nothing happened.
From the DOS prompted, I manually invoked the command:
C:\forte\install\bin\ftexec.exe -fs -fss -fi bt:c:\forte\USERAPP\ENVIRONM\CL0\FCONTROL
and got the following error message:
ftexec Forte Version 5.0.3
Windows NT
Copyright (c) 2001 Sun Microsystems, Inc. All rights reserved. Use is
subject to license terms. Third-party software, including font
technology, is copyrighted and licensed from Sun suppliers. Sun, Sun
Microsystems, the Sun logo, Forte, iPlanet and Unified Development
Server are trademarks or registered trademarks of Sun Microsystems, Inc.
in the U.S. and other countries. Federal Acquisitions: Commercial
Software - Government Users Subject to Standard License Terms and
Conditions.
Copyright (c) 2001 Sun Microsystems, Inc. Tous droits r�serv�s. Distribu�
par des licences qui en restreignent l'utilisation. Le logiciel d�tenu
par des tiers, et qui comprend la technologie relative aux polices de
caract�res, est prot�g� par un copyright et licenci� par des fournisseurs
de Sun. Sun, Sun Microsystems, le logo Sun, Forte, iPlanet et Unified
Development Server sont des marques de fabrique ou des marques d�pos�es de
Sun Microsystems, Inc. aux Etats-Unis et dans d'autres pays.
Tue Nov 13 18:45:58 2001
Process ID 516 (Native threading)
Type Service Flags Level
err sh * 255
Loaded Forte Message Catalog 'fortemsg/en_us.cat'
NLM Startup is Complete - Partition's Locale is 'en_us.win'
SecurityManager Using: Default-Export-Security
ERROR: Exiting due to following exception:
SYSTEM ERROR: Could not find the transport provider library named windows
sockets.
Class: qqsp_SystemResourceException
Error #: [501, 13]
Detected at: qqcm_CommManager::InstallTransportProvider at 1
Error Time: Tue Nov 05 16:00:33
Exception occurred (locally) on partition "Forte_Executor", (partitionId =
0x0, taskId = [0x0.8]) in application "Forte Runtime", pid 516 on node
WW730BNN1 in environment <unknown>.
SYSTEM ERROR: System Error: The specified module could not be found.,
loading the library 'windows sockets.dll'
Class: qqos_DynamicLibraryException
Error #: [101, 29]
Detected at: qqos_DynamicLibrary::OSLoad at 1
Error Time: Tue Nov 05 16:00:33
Exception occurred (locally) on partition "Forte_Executor",
(partitionId = 0x0, taskId = [0x0.8]) in application "Forte Runtime",
pid 516 on node WW730BNN1 in environment <unknown>.
Any help would be greatly appreciated!Thanks Roberto for your reply. I could not find "windows sockets.dll" anywhere. This .dll file does not exist even on the Win 2000 machines that I had no trouble invoking UDS Control Panel. My machine has wsock32.dll in the C:\WINNT\system32 directory and the system path is also set to point to that directory.
By the way, when someone else logs onto the same machine, he has no trouble bringing up UDS Control Panel. The problem occurs only if I logon. I also compared the environment variables with that person's environment variables and they are exactly the same. -
Re: System segmentattion access violation
There is a special utility you must run which will clean the environment
repository. It is located under the following directory:
%{FORTE_ROOT}/install/diag/bin/
It is called envedit
The command works like this:
%FORTE_ROOT%/install/diag/bin/envedit -fs -fr
%FORTE_ROOT%/sysdata/envrepos/<envrepos_name>
You can use the -i option to specifiy a script to run. Such a script will
need to look like this:
# envedit script for cleaning the environment repositories
setworkspace SystemMgr
open
browse
compactrepos
quit
quit
This will clean and compact your environment repository. Make sure that yo
ur environment is offline before you attempt this.
Mark Musgrove
Object Technologies. Inc.
<Graphic image not retained>
ja.espinoza@O1=Internet/DD.RFC-822=ja_espinoza\ on 06/29/99 03:58:06 PM
To: Mark Musgrove/BCS/BBS/BLS@BLS
cc: ja.espinoza@O1=Internet/DD.RFC-822=ja_espinoza\@yahoo.com@omgw,
forte-users@O1=Internet/DD.RFC-822=forte-users\@sageit.com@omgw
Subject: System segmentattion access violation
Received: from carnac.bst.bellsouth.com (bos17943.al.bst.bls.com [90.110.28
.65])
by om1.al.bst.bls.com (8.8.6 (PHNE_17135)/8.8.6) with ESMTP id OAA1038
9
for <[email protected]>; Tue, 29 Jun 1999 14:56:37 -0
500 (CDT)
Received: from web502.yahoomail.com ([128.11.68.69])
by carnac.bst.bellsouth.com (Netscape Messaging Server 3.52)
with SMTP id AAA3C12 for <[email protected]>;
Tue, 29 Jun 1999 14:56:03 -0500
Received: from [206.49.176.243] by web502.yahoomail.com; Tue, 29 Jun 1999 1
2:58:06 PDT
Message-ID: <[email protected]>
Date: Tue, 29 Jun 1999 12:58:06 -0700 (PDT)
From: Jorge Espinoza <[email protected]>
Subject: System segmentattion access violation
To: [email protected]
Cc: [email protected]
MIME-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Mark,
We have tried # 1. It does not work.
How do I clean the environment repository?
Thanks
Jorge
--- [email protected] wrote:
This type of segmentation violation is due to an
environment manager
repository corruption. One of the three options
below will fix it(listed
from easiest solution to most difficult). If the
first two do not work,
the third one will always fix the problem.
1. Shutdown and restart the environment.
2. If #1 does not fix the problem, then your
environment repository has
become corrupted. Shutdown the environment and
clean your environment
repository. This will fix your corruption problem
about 75 % of the time.
3. If #2 does not correct your error, then the
environment is corrupted
beyond repair. You will need to delete your current
environment repository
and rebuild it. Sometimes you can rebuild it using
an export of your
current environment(bootstrap). Many times though
the current corrupted
environment will not successfully allow you to
export the environment
definition. In this case, you will have to rebuild
your environment from
scratch.
Hope this helps...
Mark Musgrove
Object Technologies, Inc
<Graphic image not retained>
ja.espinoza@O1=Internet/DD.RFC-822=ja_espinoza\ on
06/26/99 12:05:55 AM
To:
forte-users@O1=Internet/DD.RFC-822=forte-users\@SageIT.com@omgw
cc:
ja.espinoza@O1=Internet/DD.RFC-822=ja_espinoza\@yahoo.com@omgw
Subject: System segmentattion access violation
Received: from carnac.bst.bellsouth.com
(bos17943.al.bst.bls.com [90.110.28
.65])
by om1.al.bst.bls.com (8.8.6
(PHNE_17135)/8.8.6) with ESMTP id XAA0132
8
for <[email protected]>; Fri,
25 Jun 1999 23:45:53 -0
500 (CDT)
Received: from pebble.SageIT.com ([206.169.110.3])
by carnac.bst.bellsouth.com (Netscape
Messaging Server 3.52)
with SMTP id AAA64AA for
<[email protected]>;
Fri, 25 Jun 1999 23:45:20 -0500
Received: (from sync@localhost) by pebble.SageIT.com
(8.6.10/8.6.9) id UAA1
3783 for forte-users-outgoing; Fri, 25 Jun 1999
20:51:51 -0700
Received: (from uucp@localhost) by pebble.SageIT.com
(8.6.10/8.6.9) id UAA1
3767 for <[email protected]>; Fri, 25 Jun 1999
20:51:46 -0700
Received: from web501.yahoomail.com(128.11.68.68) by
pebble.sagesoln.com vi
a smap (V2.0)
id xma013762; Fri, 25 Jun 99 20:51:31 -0700
Message-ID:
<[email protected]>
Received: from [206.49.176.243] by
web501.yahoomail.com; Fri, 25 Jun 1999 2
1:05:55 PDT
Date: Fri, 25 Jun 1999 21:05:55 -0700 (PDT)
From: Jorge Espinoza <[email protected]>
Subject: System segmentattion access violation
To: [email protected]
MIME-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Sender: [email protected]
Precedence: bulk
Reply-To: Jorge Espinoza <[email protected]>
Hello :
We're try connect with our Central Server Node and
have a problem, if we're make the connection with
Escript this is
succesfull, but if we're connected again with
Econsole , Launcher
Distributed or Forte Distributed then this
connection display the
following error
NLM Startup is Complete - Partition's Locale is 'c'
Loading partition FTLaunch_cl0_Client built on
03-Sep-1998 00:37:56.
There is no manager active for node FORTE1.
Type Service Flags Level
err sh * 255
cfg sp 8 255
cfg em 2 2
FTLaunch_cl0: Configuring node agent.
FTLaunch_cl0: Opening configuration repository
bt:c:\forte\sysdata\envrepos\fort
e1.
FTLaunch_cl0: Attached to manager for node FORTE1.
Type Service Flags Level
err sh * 255
cfg em 2 2
Begin Stack Backtrace
==========================================================
Trace caused by a segmentation or access violation
in the Forte
executable:
ftexec Version 3.0.J.1
Windows NT
Forte Application Environment (tm), Forte Runtime
Environment (tm),
Forte Conductor (tm):
Copyright (c) 1994-1998, Forte Software, Inc. and
its licensors.
US Patent No. 5,457,797
Forte Express (tm), Forte WebEnterprise (tm):
Copyright (c) 1995-1998, Forte Software, Inc.
All Rights Reserved.
Unpublished rights reserved under the copyright laws
of the United
States.
Wed Sep 2 22:53:49 1998
Fault at 25-Jun-1999 13:23:56, pid '180', node
'FORTE1':
User Name: Administrador
Machine Name: FORTE1 with 1 CPU(s)
OS version 4.0
Loading symbols for ...
c:\forte\install\bin\QQRP.dll
c:\forte\install\bin\QQCT.dll
c:\forte\install\bin\QQSH.dll
c:\forte\install\bin\QQKN.dll
c:\forte\install\bin\QQSM.dll
c:\forte\install\bin\ftexec.exe
c:\forte\install\bin\QQDO.dll
c:\forte\install\bin\QQCM.dll
c:\forte\install\bin\QQFO.dll
c:\forte\install\bin\QQDS.dll
c:\forte\install\bin\qqtlnt.dll
c:\forte\install\bin\w3tpwss.dll
c:\forte\install\bin\qqem.dll
c:\forte\install\bin\QQDD.dll
c:\forte\install\bin\QQRT.dll
C:\WINNT\System32\WINSPOOL.DRV
C:\WINNT\System32\rpcltc1.dll
C:\WINNT\System32\rnr20.dll
C:\WINNT\System32\rasadhlp.dll
C:\WINNT\System32\IMM32.dll
C:\WINNT\System32\spool\DRIVERS\W32X86\2\RASDDUI.DLL
C:\WINNT\system32\msafd.dll
C:\WINNT\System32\wshtcpip.dll
C:\WINNT\System32\WS2HELP.dll
C:\WINNT\System32\WS2_32.dll
C:\WINNT\System32\WSOCK32.dll
C:\WINNT\system32\ole32.dll
C:\WINNT\system32\COMCTL32.dll
C:\WINNT\system32\SHELL32.dll
C:\WINNT\system32\comdlg32.dll
C:\WINNT\system32\ADVAPI32.dll
C:\WINNT\system32\RPCRT4.dll
C:\WINNT\system32\USER32.dll
C:\WINNT\system32\GDI32.dll
C:\WINNT\system32\KERNEL32.dll
C:\WINNT\System32\ntdll.dll
C:\WINNT\system32\MSVCRT.dll
Stack backtrace ...
qqem 026e2c5d (0130bac0,00000001,00000000,013b8aa0)
QQSM 003b238a (0130bac0,013b8aa0,013f0001,013f4768)
QQKN 0024d5f1 (0130bac0,013b8aa0,013f0001,013f4748)
QQKN 00250915 (0130bac0,013b8aa0,013f4730,013f4748)
QQDO 00432d96 (0130bac0,0209fd40,000000d0,013365b8)
=== message truncated ===
Do You Yahoo!?
Get your free @yahoo.com address at http://mail.yahoo.com
To unsubscribe, email '[email protected]' with
'unsubscribe forte-users' as the body of the message.
Searchable thread archive <URL:http://pinehurst.sageit.com/listarchive/>There is a special utility you must run which will clean the environment
repository. It is located under the following directory:
%{FORTE_ROOT}/install/diag/bin/
It is called envedit
The command works like this:
%FORTE_ROOT%/install/diag/bin/envedit -fs -fr
%FORTE_ROOT%/sysdata/envrepos/<envrepos_name>
You can use the -i option to specifiy a script to run. Such a script will
need to look like this:
# envedit script for cleaning the environment repositories
setworkspace SystemMgr
open
browse
compactrepos
quit
quit
This will clean and compact your environment repository. Make sure that yo
ur environment is offline before you attempt this.
Mark Musgrove
Object Technologies. Inc.
<Graphic image not retained>
ja.espinoza@O1=Internet/DD.RFC-822=ja_espinoza\ on 06/29/99 03:58:06 PM
To: Mark Musgrove/BCS/BBS/BLS@BLS
cc: ja.espinoza@O1=Internet/DD.RFC-822=ja_espinoza\@yahoo.com@omgw,
forte-users@O1=Internet/DD.RFC-822=forte-users\@sageit.com@omgw
Subject: System segmentattion access violation
Received: from carnac.bst.bellsouth.com (bos17943.al.bst.bls.com [90.110.28
.65])
by om1.al.bst.bls.com (8.8.6 (PHNE_17135)/8.8.6) with ESMTP id OAA1038
9
for <[email protected]>; Tue, 29 Jun 1999 14:56:37 -0
500 (CDT)
Received: from web502.yahoomail.com ([128.11.68.69])
by carnac.bst.bellsouth.com (Netscape Messaging Server 3.52)
with SMTP id AAA3C12 for <[email protected]>;
Tue, 29 Jun 1999 14:56:03 -0500
Received: from [206.49.176.243] by web502.yahoomail.com; Tue, 29 Jun 1999 1
2:58:06 PDT
Message-ID: <[email protected]>
Date: Tue, 29 Jun 1999 12:58:06 -0700 (PDT)
From: Jorge Espinoza <[email protected]>
Subject: System segmentattion access violation
To: [email protected]
Cc: [email protected]
MIME-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Mark,
We have tried # 1. It does not work.
How do I clean the environment repository?
Thanks
Jorge
--- [email protected] wrote:
This type of segmentation violation is due to an
environment manager
repository corruption. One of the three options
below will fix it(listed
from easiest solution to most difficult). If the
first two do not work,
the third one will always fix the problem.
1. Shutdown and restart the environment.
2. If #1 does not fix the problem, then your
environment repository has
become corrupted. Shutdown the environment and
clean your environment
repository. This will fix your corruption problem
about 75 % of the time.
3. If #2 does not correct your error, then the
environment is corrupted
beyond repair. You will need to delete your current
environment repository
and rebuild it. Sometimes you can rebuild it using
an export of your
current environment(bootstrap). Many times though
the current corrupted
environment will not successfully allow you to
export the environment
definition. In this case, you will have to rebuild
your environment from
scratch.
Hope this helps...
Mark Musgrove
Object Technologies, Inc
<Graphic image not retained>
ja.espinoza@O1=Internet/DD.RFC-822=ja_espinoza\ on
06/26/99 12:05:55 AM
To:
forte-users@O1=Internet/DD.RFC-822=forte-users\@SageIT.com@omgw
cc:
ja.espinoza@O1=Internet/DD.RFC-822=ja_espinoza\@yahoo.com@omgw
Subject: System segmentattion access violation
Received: from carnac.bst.bellsouth.com
(bos17943.al.bst.bls.com [90.110.28
.65])
by om1.al.bst.bls.com (8.8.6
(PHNE_17135)/8.8.6) with ESMTP id XAA0132
8
for <[email protected]>; Fri,
25 Jun 1999 23:45:53 -0
500 (CDT)
Received: from pebble.SageIT.com ([206.169.110.3])
by carnac.bst.bellsouth.com (Netscape
Messaging Server 3.52)
with SMTP id AAA64AA for
<[email protected]>;
Fri, 25 Jun 1999 23:45:20 -0500
Received: (from sync@localhost) by pebble.SageIT.com
(8.6.10/8.6.9) id UAA1
3783 for forte-users-outgoing; Fri, 25 Jun 1999
20:51:51 -0700
Received: (from uucp@localhost) by pebble.SageIT.com
(8.6.10/8.6.9) id UAA1
3767 for <[email protected]>; Fri, 25 Jun 1999
20:51:46 -0700
Received: from web501.yahoomail.com(128.11.68.68) by
pebble.sagesoln.com vi
a smap (V2.0)
id xma013762; Fri, 25 Jun 99 20:51:31 -0700
Message-ID:
<[email protected]>
Received: from [206.49.176.243] by
web501.yahoomail.com; Fri, 25 Jun 1999 2
1:05:55 PDT
Date: Fri, 25 Jun 1999 21:05:55 -0700 (PDT)
From: Jorge Espinoza <[email protected]>
Subject: System segmentattion access violation
To: [email protected]
MIME-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Sender: [email protected]
Precedence: bulk
Reply-To: Jorge Espinoza <[email protected]>
Hello :
We're try connect with our Central Server Node and
have a problem, if we're make the connection with
Escript this is
succesfull, but if we're connected again with
Econsole , Launcher
Distributed or Forte Distributed then this
connection display the
following error
NLM Startup is Complete - Partition's Locale is 'c'
Loading partition FTLaunch_cl0_Client built on
03-Sep-1998 00:37:56.
There is no manager active for node FORTE1.
Type Service Flags Level
err sh * 255
cfg sp 8 255
cfg em 2 2
FTLaunch_cl0: Configuring node agent.
FTLaunch_cl0: Opening configuration repository
bt:c:\forte\sysdata\envrepos\fort
e1.
FTLaunch_cl0: Attached to manager for node FORTE1.
Type Service Flags Level
err sh * 255
cfg em 2 2
Begin Stack Backtrace
==========================================================
Trace caused by a segmentation or access violation
in the Forte
executable:
ftexec Version 3.0.J.1
Windows NT
Forte Application Environment (tm), Forte Runtime
Environment (tm),
Forte Conductor (tm):
Copyright (c) 1994-1998, Forte Software, Inc. and
its licensors.
US Patent No. 5,457,797
Forte Express (tm), Forte WebEnterprise (tm):
Copyright (c) 1995-1998, Forte Software, Inc.
All Rights Reserved.
Unpublished rights reserved under the copyright laws
of the United
States.
Wed Sep 2 22:53:49 1998
Fault at 25-Jun-1999 13:23:56, pid '180', node
'FORTE1':
User Name: Administrador
Machine Name: FORTE1 with 1 CPU(s)
OS version 4.0
Loading symbols for ...
c:\forte\install\bin\QQRP.dll
c:\forte\install\bin\QQCT.dll
c:\forte\install\bin\QQSH.dll
c:\forte\install\bin\QQKN.dll
c:\forte\install\bin\QQSM.dll
c:\forte\install\bin\ftexec.exe
c:\forte\install\bin\QQDO.dll
c:\forte\install\bin\QQCM.dll
c:\forte\install\bin\QQFO.dll
c:\forte\install\bin\QQDS.dll
c:\forte\install\bin\qqtlnt.dll
c:\forte\install\bin\w3tpwss.dll
c:\forte\install\bin\qqem.dll
c:\forte\install\bin\QQDD.dll
c:\forte\install\bin\QQRT.dll
C:\WINNT\System32\WINSPOOL.DRV
C:\WINNT\System32\rpcltc1.dll
C:\WINNT\System32\rnr20.dll
C:\WINNT\System32\rasadhlp.dll
C:\WINNT\System32\IMM32.dll
C:\WINNT\System32\spool\DRIVERS\W32X86\2\RASDDUI.DLL
C:\WINNT\system32\msafd.dll
C:\WINNT\System32\wshtcpip.dll
C:\WINNT\System32\WS2HELP.dll
C:\WINNT\System32\WS2_32.dll
C:\WINNT\System32\WSOCK32.dll
C:\WINNT\system32\ole32.dll
C:\WINNT\system32\COMCTL32.dll
C:\WINNT\system32\SHELL32.dll
C:\WINNT\system32\comdlg32.dll
C:\WINNT\system32\ADVAPI32.dll
C:\WINNT\system32\RPCRT4.dll
C:\WINNT\system32\USER32.dll
C:\WINNT\system32\GDI32.dll
C:\WINNT\system32\KERNEL32.dll
C:\WINNT\System32\ntdll.dll
C:\WINNT\system32\MSVCRT.dll
Stack backtrace ...
qqem 026e2c5d (0130bac0,00000001,00000000,013b8aa0)
QQSM 003b238a (0130bac0,013b8aa0,013f0001,013f4768)
QQKN 0024d5f1 (0130bac0,013b8aa0,013f0001,013f4748)
QQKN 00250915 (0130bac0,013b8aa0,013f4730,013f4748)
QQDO 00432d96 (0130bac0,0209fd40,000000d0,013365b8)
=== message truncated ===
Do You Yahoo!?
Get your free @yahoo.com address at http://mail.yahoo.com
To unsubscribe, email '[email protected]' with
'unsubscribe forte-users' as the body of the message.
Searchable thread archive <URL:http://pinehurst.sageit.com/listarchive/> -
Dears,
we are facing slowness problem while migration application from weblogic 7 to weblogic 11g.
Our Application use EJB 2.1 CMP and oracle database
In web-logic 7 we use global transaction and emulate two phase commit .Our application works fine
If we set global transaction as last logging resource or Emulate two phase commit in weblogic 11g we found so much slowness in the application.
Kindly help me in this regardHi,
Jolt is just a Java client API for Tuxedo services. Typically, Jolt is
used by a client to invoke a Tuxedo service. From what I could gather
from your post, you are probably doing some JDBC work and then calling
out to a Tuxedo service and want the work done with the JDBC/XA driver
and the database work done by the Tuxedo service to be comitted/aborted
transactionally? Is this correct?
If so, then you probably want to look at the JET API (essentially Jolt
without the need for a JSL/JSH) for invoking Tuxedo services directly
(instead of through the JSH) from a WLE Java Server. It should be fully
capable of doing what I have described above.
Hope this helps,
Robert
Hwa Min Tan wrote:
> I have read that the WLE 5.1 supports the Open XA standard for
> two-phase (distributed) commits.
> However, I have been unable to find any documentation / code
> samples that demonstrates that JOLT is also able to perform
> two-phase commits, even though its architecture is
> inherently Tuxedo.
> We'd like to use two-phase commit on two separate databases
> (one connected by Jolt and another using the WLE JDBC/XA driver.
>
> Does Jolt support two-phase commit and the Open XA standard?
>
> Many thanks for your help,
>
> Hwa Min
-
Videora won't run on my XP system
Every time I try to start Videora, I get a Common Language Runtime debugging service flag that tells me "Application has generated an exception that could not be handled" - Any ideas on why I get this message ? Many thanks for any help or advice....
Fair enough.... but then again since it is a problem with the installation of videora there is not much we can do. I do not think that asking that question on the videora forum would be recieved with "cold shoulders", unless you phrase the question wrong.
In summary: you cannot install videora on windows xp....therefore the ipod is not even in the picture yet. Now, please check to see if you have a conclift with your antivurs, make sure that your windows xp is installed properly and updated with latest patches.
I can tell you that it works because I use it, therefore I know it works. Have you checked if older versions work?
The issue here, and forgive me if I was rude, is that sometimes we forget proper etiquette when we use a particular forums.
I think you should re-post your question properly on the videora forum, without mentioning the ipod, becuase it is not an ipod problem.
Maybe you are looking for
-
Use a "Write" Event on a Specific Drive or to a Specific Folder to Trigger a Task in Task Scheduler
I first posted this question on the Microsoft Community forum. It was suggested that I repost it here. I have a question! (Pleas forgive the long post...) What I am trying to do: (This is what I have not yet figured out!) I am trying to figure out ho
-
Adavance Adapter Engine Performance Tuning
Hi all, We are using PI-7.11 . We are working on an asynchronus scenario that reads JMS queue and calls server proxy at the receiver. The interface is configured to bypass the ABAP stack(Integration server) by using advance adapter configuration
-
How can i copy songs from another library to my itunes library with homesharing?
How can i copy songs from another library to my itunes library with homesharing? I see the other libraries, but cannot drag the songs into my library. The help window says to use the "show menu" at the bottom, but I don't have that menu with itunes
-
Aperture 3 slideshow: How to stop and then restart at the same point?
I am about to give a slideshow in Aperture 3 (or could use iPhoto). I need to run the show for a while, stop it and then use a different app and then come back to Aperture and restart the slideshow from where I stopped it. Simply pausing and restarti
-
Hi everybody, I want to use the toolbox at the sample editor, but there are only a few tools to use.Has somone an idea how to use the whole toolbox, or is this not possible with that version (LE 7.1)