Qty rec hold request
Hello
There are 2 queries below.
The first query returns me 179 records while the second query to return me 135 records.
How do I do the fist query to return records only 135.
SELECT DISTINCT Reqh.segment1,
Fu.Email_Address,
AIA.invoice_num
Of ap_holds_all AHA,.
ap_invoices_all, aia,
ap_invoice_distributions_all aida,
po_distributions_all pda,
-po_headers_all pha,
po_req_distributions_all reqd,
po_requisition_headers_all reqh,
po_requisition_lines_all reql,
-per_all_people_f women's wear,
fnd_user fu
WHERE AHA.hold_lookup_code = "QTY REC.
AND aha. RELEASE_LOOKUP_CODE IS NULL
- AND fu.employee_id = papf.person_id
AND reqh.created_by = fu.user_id
AND reqh.requisition_header_id = reql.requisition_header_id
AND reqd.requisition_line_id = reql.requisition_line_id
AND pda.req_distribution_id = reqd.distribution_id
- AND pha.po_header_id (+) = pda.po_header_id
AND pda.po_distribution_id (+) = aida.po_distribution_id
AND aia.invoice_id = aida.invoice_id
AND aia.invoice_id (+) = aha.invoice_id
Query 2
Select * from ap_holds_all where hold_lookup_code = "QTY REC" AND release_lookup_code is NULL
Hello
You can try this query...
*****************************************************
Select distinct Reqh.Segment1,
Fu.Email_Address,
Aia.Invoice_Num
Of
Ap_Holds_All Ah,.
Ap_Invoices_All Aia
Aida Ap_Invoice_Distributions_All,.
Po_Distributions_All Pda,
-Po_Headers_All Pha,
Po_Req_Distributions_All Reqd
Po_Requisition_Headers_All Reqh,
Po_Requisition_Lines_All Reql,
-Per_All_People_F women's wear,
Fnd_User Fu
Where Aha.Hold_Lookup_Code = "QTY REC.
And Aha.Release_Lookup_Code is null
- And Fu.Employee_Id = Papf.Person_Id
And Reqh.Created_By = Fu.User_Id (+)
And Reqh.Requisition_Header_Id (+) = Reql.Requisition_Header_Id
And Reqd.Requisition_Line_Id = Reql.Requisition_Line_Id (+)
And Pda.Req_Distribution_Id = Reqd.Distribution_Id (+)
- And Pha.Po_Header_Id (+) = Pda.Po_Header_Id
And Pda.Po_Distribution_Id = Aida.Po_Distribution_Id
And Aia.Invoice_Id = Aida.Invoice_Id
And Aia.Invoice_Id = Aha.Invoice_Id
Kind regards
Vimal
If it is useful for you, please mark...
Tags: Oracle Applications
Similar Questions
-
There is the installer of the AP Module for 2 operating units.
For an ORGANIZATIONAL unit, the amount of Hold - Qty Rec - AP invoice exceeds quantity received, is to come if the quantity invoiced is higher than the amount received
But for the other OU, this expectation AP does not come, and the invoice is validated.
What could be the difference for this in the configurations? Which could have an impact on it in the second OU. I saw checked all configuration options, but they seem to be the same.
Pls HelpPlease check the tolerances at the level of the provider site. The site is specific org while there might be a difference any in there.
Thank you
Anil -
bricked sansa e260: do not format (or do something else besides)!
First of all, I want to apologize to ask you this question often, but I assure you, that my problem is a little different from the others.
In short, I am able to get into recovery mode, access to 16 MB-FORMAT drive in Windows XP and Ubuntu 8.04 and sansa.fmt dough, rom and mi4 files; but in both places, I'm not able to do format, nor commit the bootloader or the firmware on the drive NAND.
How it happened: in other words, the recovery of 16 MB drive has been formatted. When the computer reboots, there has been a "Load main image failed. Switch to recovery mode.
That the player is able to do now:
In normal mode, the player starts with the startup splash screen, followed of the message.Cannot load the main image.
Switch to recovery modeThe player is not automatically in recovery mode, I have to do it manually, using the combo PowerOn-REC-HOLD.
In recovery mode, when the usb cable is connected, I get the following message
**********************
Welcome to Recovery Mode
**********************USB cable connected
Enter USB2.0 MSD modeNow, windows and linux, the recovery of load automatically drive and let me paste the files here.
One thing to note, is that the recovery drive, always seems to be a corrupt VERSION. TXT file.
Every time I got paste all the files (like sansa.fmt) and disassemble the drive. I get the following message:Safe to unplug the USB
Leave the USB 2.0 MSD modeAfter I unplug the usb cable and the drive is simply stuck in this mode forever, until I have hold the power button for 15 seconds to close. When the computer reboots, I'm back to the same old problem. NO CHANGE.
In production mode, I am successfully able to use the e200tool for all functions, including the order of i2cprogram (with which I flashed the rom i2c to i2c - e260.bin file without hassle). I am also able to inject the Bootloaders in the RAM by using the recover command.
Methods I tried to solve this problem :
- In recovery mode, I tried to install the firmware (mi4) alone, sansa.fmt only, firmware and BL (rom file) and finally the three files together (I have always used the firmware and BL of the same version). Everything I try, the result is the same, the player is blocked (see photo) always recovery mode screen. I waited a few hours, before you close and restart, but still no change.
- In production mode, I connect the player to linux via the USB port, the drive is detected correctly. I then use the e200tool to recover the corrupt Bootloader. Once the performance begins, I touch REC, which starts the drive in recovery mode, I paste it sansa.fmt on the 16 MB drive. Unplug the cable USB and just wait and wait and wait... NO message on the screen.
(I tried all versions of firmware 10, 1.00.12 to 1.03.07, found here) - I searched through them two and abi forums, looking for a solution and we tried all those. Please do tell me if I'm doing something wrong.
If there is no easy solution for this, I'm even willing to do some so low levels of piracy, possibly, to access the NAND drive somehow using the e200tool and, possibly, to directly write the entire score of 20 MB hidden on the NAND drive. If anyone can guide me with this. It would be more useful.
Please feel free to ask me questions to clarify or specify what anyone, that I mentioned above.
Hey, guys... I found a solution to the problem... click on the following link:
-
Generate the command Id and insert data into two different tables: oracle apex 5.0
I have three tables. name of the tables: PRODUCT, ORDER_HEADER, ORDER_DETAIL. I took REPORT inter ASSETS in which the VALUES from TABLE product. I need to use the trigger here, there is a TEXT ARTICLE called ORDER ID: it will generate through trigger. so whenever new order placed order id must be unique. There is a button when this button is clicked, the VALUES of REPORT must be inserted in to ORDER_HEADER , ORDER_DETAIL (in fact, I am in confusion is it even possible).
I tried to create the trigger: not work if
CREATE OR REPLACE TRIGGER "EMP_TRG1".
Before Insert on order_header
for each line
Start
If: new. Order_ID is null
then
Select lpad (demo_seq.nextval, 8, '0'): new. Order_ID order_header;
end if;
end;
SQL:
Select
apex_item. Text(1,p.PRODUCT_ID) PID.
PN.product_name,
apex_item. Text(2,p.PRODUCT_QTY) qt.
apex_item. Text(3,p.unit_price) upward,
apex_item. Text(4,p.TOTAL_AMOUNT) am
OMS_SHIP_CART_DETAIL p, pn OMS_PRODUCT
where p.product_id = pn.product_id
DA:
var arr_f01 = [];
var arr_f02 = [];
var arr_f03 = [];
var arr_f04 = [];
var arr_f05 = [];
product_id var;
unit_price var;
Var Qty;
var total_1;
() $("input[name='f01']").each
function() {}
product_id = $(this).closest('tr') .children ('td [headers = 'PID']') .text ();
unit_price = $(this).closest('tr') .children ('td [headers = "Uprice"]') .text ();
Qty = $(this).closest('tr') .children ('td [headers = "Qty"]') .text ();
total_1 = $(this). Closest ('tr'). Children ('td [headers = "total"]'). Text();
arr_f01.push ($(this).) Val());
arr_f02.push (product_id);
arr_f03.push (total_1);
arr_f04.push (unit_price);
arr_f05.push (Qty);
} );
(apex). Server.Process
"Insert a command."
, {f01: arr_f01, f02: arr_f02, f03: arr_f03, f04: arr_f04, f05: arr_f05}
}
, {dataType: "text", success: function (pData) {alert ('added product') ;}}
);
Ajax callback:
declare
l_count number;
Start
-insert into OMS_ORDER_HEADER (USER_ID, TOTAL_AMOUNT, batch, ORDER_DATE) values(:P1_USER_ID,:P42_TOTAL,'PENDING',SYSDATE);
I'm looping 1.apex_application.g_f01.count
insert into OMS_ORDER_DETAIL (PRODUCT_ID, UNIT_QTY, UNIT_PRICE, TOTAL_AMOUNT)
values (APEX_APPLICATION. G_F01 (i), APEX_APPLICATION. G_F03 (i), APEX_APPLICATION. G_F04 (i), APEX_APPLICATION. G_F05 (i));
commit;
end loop;
end;
Hi Dominique,.
I create a process page away present in your application
declare l_order_id varchar2(8); begin insert into order_header(ORDER_ID , STATUS , ORDER_DATE) values(lpad(demo_seq.nextval,8,'0') , 'Pending' , sysdate) returning ORDER_ID into l_order_id; for rec in(select ID , QTY , PRICE from product) loop Insert Into Order_Detail ( ORDER_ID , PRODUCT_ID , QTY , UNIT_PRICE) Values(l_order_id , rec.id , rec.qty , rec.price); commit; end loop; end;
Please check and let me know.
Kind regards
Jitendra
-
Error in the overall Transaction
Hello
I installed 10R3 Tuxedo on AIX 5.3... I wrote a code example for global Transaction... When calling the service, Tpcall is a failure with a status of 0... So I couldnot understand where the error...
My client source code program is:
IDENTIFICATION DIVISION.
PROGRAM-ID. GLOBCL.
AUTHOR. DEVELOPMENT OF TUX.
ENVIRONMENTAL DIVISION.
SECTION OF CONFIGURATION.
DATA DIVISION.
STORAGE SECTION OF WORK.
*****************************************************
* Definitions of tuxedo
*****************************************************
TPTYPE 01 - REC.
COPY TPTYPE.
*
TPSTATUS 01 - REC.
COPY TPSTATUS.
*
TPSVCDEF 01 - REC.
COPY TPSVCDEF.
*
TPINFDEF 01 - REC.
COPY TPINFDEF.
*
TPTRXDEF 01 - REC.
COPY TPTRXDEF.
*****************************************************
* Definitions log messages
*****************************************************
01 LOGMSG.
VALUE OF FILL 05 PIC X (8) ' GLOBCL:
LOGMSG 05-TEXT PIC X (50).
01 LOGMSG-LEN PIC S9 (9) COMP-5.
*
PEAK USER-DATA-REC 01 X (75).
SEND-STRING PIC 01 X (100) VALUE SPACES.
RECV-STRING PIC 01 X (100) VALUE SPACES.
SECTION OF LIAISON.
01 BONES - LEN PIC S9 (9) COMP.
01 BONES-STRING.
PARMPTR 02-TABLE SE PRODUCT BASED ON 1 TO 100 TIMES
ON OS - LEN.
03 PARMPTR POINTER.
01 X (100) PIC PARM-STRING.
******************************************************
* Start the program with command line parameters
******************************************************
THE PROCEDURE DIVISION
USING VALUE OS - LEN BY OS-STRING REFERENCE.
MOVE DOWN-VALUES TO TPINFDEF-REC.
MOVE ALL THE LOGMSG TO LOGMSG-LEN.
ADDRESS OF PARM-STRING VALUE PARMPTR (2).
MOVE PARM-STRING TO SEND STRING.
START-GLOBCL.
DISPLAY ' SEND-STRING: "SEND-STRING.
LOGMSG-TEXT, MOVE "on the road".
PERFORM DES USERLOG.
PERFORM DES TPINIT.
PERFORM DES TPBEGIN.
PERFORM DES TPCALL.
PERFORM DES TPCOMMIT.
PERFORM DES TPTERM.
MAKE THE PROGRAM EXIT.
*****************************************************
* Now put the customer in the system.
*****************************************************
-TPINIT.
MOVING TO USRNAME SPACES.
MOVE TO CLTNAME BOXES.
MOVE TO BOXES TO PASSWD.
MOVE TO BOXES TO GRPNAME.
MOVE 0 TO DATALEN.
TPU - DIP SET TO TRUE.
*
CALL FOR ASSISTANCE "TPINITIALIZE" TPINFDEF-REC
USER-DATA-REC
TPSTATUS-REC.
IF NOT OK
MOVE "TPINITIALIZE failed" LOGMSG-text
PERFORM DES USERLOG
MAKE THE PROGRAM EXIT
END-IF.
-TPBEGIN.
MOVE FROM 0 TO T-OUT.
CALL "TPBEGIN" WITH THE HELP OF REC-TPTRXDEF TPSTATUS-REC.
IF NOT OK
MOVE "TPBEGIN failed" LOGMSG-text
PERFORM DES USERLOG
DISPLAY "TPBEGIN:" TP-STATUS
MAKE THE PROGRAM EXIT
END-IF.
DISPLAY "COMM HANDLE:"COMM-HANDLE. "
*****************************************************
Issue of a TPCALL
*****************************************************
-TPCALL.
SPEND 100 TO LEN.
GO REC-TYPE "STRING".
GO "GLOBSRV" - NAME OF THE SERVICE.
TPBLOCK SET TO TRUE.
TPTRAN SET TO TRUE.
TPNOTIME SET TO TRUE.
TPSIGRSTRT SET TO TRUE.
TPCHANGE SET TO TRUE.
CALL FOR ASSISTANCE "TPCALL" TPSVCDEF-REC
TPTYPE-REC
SEND-STRING
TPTYPE-REC
SEND-STRING
TPSTATUS-REC.
IF NOT OK
MOVE "TPCALL failed" LOGMSG-text
PERFORM DES USERLOG
DISPLAY "TPCALL:" TP-STATUS
END-IF.
-TPCOMMIT.
CALL "TPCOMMIT" WITH THE HELP OF REC-TPTRXDEF TPSTATUS-REC.
IF NOT OK
MOVE "TPCOMMIT failed" LOGMSG-text
PERFORM DES USERLOG
DISPLAY "TPCOMMIT:" TP-STATUS
MAKE THE PROGRAM EXIT
END-IF.
DISPLAY "RECV-STRING:" SEND-STRING.
*****************************************************
* Let TUXEDO
*****************************************************
-TPTERM.
CALL FOR ASSISTANCE "TPTERM" TPSTATUS-REC.
IF NOT OK
MOVE "TPTERM failed" LOGMSG-text
PERFORM DES USERLOG
END-IF.
*****************************************************
* Saves messages in the userlog
*****************************************************
-USERLOG.
CALL FOR ASSISTANCE "USERLOG" LOGMSG
LOGMSG-LEN
TPSTATUS-REC.
*****************************************************
* Request for leave
*****************************************************
EXIT-PROGRAM.
MOVE 'done' LOGMSG-TEXT.
PERFORM DES USERLOG.
STOP EXECUTION.
and the server program source code is:
IDENTIFICATION DIVISION.
PROGRAM-ID. GLOBSRV.
AUTHOR. DEVELOPMENT OF TUX.
ENVIRONMENTAL DIVISION.
SECTION OF CONFIGURATION.
DATA DIVISION.
STORAGE SECTION OF WORK.
******************************************************
* Definitions of tuxedo
******************************************************
TPSVCRET 01 - REC.
COPY TPSVCRET.
*
TPTYPE 01 - REC.
COPY TPTYPE.
*
TPSTATUS 01 - REC.
COPY TPSTATUS.
*
TPSVCDEF 01 - REC.
COPY TPSVCDEF.
******************************************************
* Definitions of log messages
******************************************************
01 LOGMSG.
VALUE OF FILL 05 PIC X (10)
"GLOBSRV:
LOGMSG 05-TEXT PIC X (50).
01 LOGMSG-LEN PIC S9 (9) COMP-5.
******************************************************
* Data records user defined
******************************************************
01 X (100) PIC RECV-STRING.
01 X (100) OF PEAK SEND-STRING.
*
SECTION OF LIAISON.
*
THE PROCEDURE DIVISION.
*
START-FUNDUPSR.
MOVE ALL THE LOGMSG TO LOGMSG-LEN.
LOGMSG-TEXT, MOVE "on the road".
PERFORM DES USERLOG.
******************************************************
* Get the data that has been sent by the client
******************************************************
MOVE ALL THE STRING-SENT TO LEN.
CALL USING 'TPSVCSTART' TPSVCDEF-REC
TPTYPE-REC
SEND-STRING
TPSTATUS-REC.
IF NOT OK
MOVE 'TPSVCSTART failed' to LOGMSG-TEXT
PERFORM DES USERLOG
MAKE THE PROGRAM EXIT
END-IF.
IF TPTRUNCATE
MOVE "Data has been truncated" LOGMSG-TEXT
PERFORM DES USERLOG
MAKE THE PROGRAM EXIT
END-IF.
INSPECT THE SHIPMENT-STRING CONVERSION
"abcdefghijklmnopqrstuvwxyz" to
"ABCDEFGHIJKLMNOPQRSTUVWXYZ"
MOVE SEND LOGMSG-TEXT STRING.
PERFORM DES USERLOG.
MOVE 'Success' to LOGMSG-TEXT.
PERFORM DES USERLOG.
TPSUCCESS SET TO TRUE.
COPY TPRETURN REPLACEMENT
DATA-REC SEND-STRING.
******************************************************
* Write an err messages disconnect
******************************************************
-USERLOG.
CALL FOR ASSISTANCE "USERLOG" LOGMSG
LOGMSG-LEN
TPSTATUS-REC.
******************************************************
* EXIT PROGRAM
******************************************************
EXIT-PROGRAM.
LOGMSG-TEXT, MOVE "has failed."
PERFORM DES USERLOG.
TPFAIL SET TO TRUE.
COPY TPRETURN REPLACEMENT
DATA-REC SEND-STRING.
and the output is:
GLOBCL salvation
SEND-STRING: hiCOB = IBMCobolDB2INSTANCE = db2inst4FLDTBLDIR = / usr/Oracle/Tuxedo10g / udataobj:AUTHSTATE = compatVIEW
HANDFUL OF COMM: 0000000000
TPCALL:0000000000
RECV-STRING: hiCOB = IBMCobolDB2INSTANCE = db2inst4FLDTBLDIR = / usr/Oracle/Tuxedo10g / udataobj:AUTHSTATE = compatVIEW
in the ULOG:
223955.ibmsceai! proc.676012.1.-2: 10/08/2009: Version Tuxedo 10.3.0.0, 32-bit
223955.ibmsceai! proc.676012.1.-2: GLOBCL: started
223955.ibmsceai! proc.676012.1.0: gtrid x 0 x 1 x4a80e7fe: GLOBCL: TPCALL failed
223955.ibmsceai! proc.676012.1.-2: GLOBCL: completed
Any suggestion about this?
Thank you...Hello
Try changing the order to record the error message and DISPLAY the TPSTATUS in the sentence IF NOT OK after the TPCALL APPEAL. In my view, the call to USERLOG is overwhelming TPSTATUS for what you see is TPOK on the USERLOG call and not the original state of the TPCALL. I hope that this will allow you to see the error status of the TPCALL itself.
Kind regards
Todd little
Chief Architect of Oracle Tuxedo -
Values not passed to the service VIEW FML
Hello
Use Tuxedo10g R3 on AIX 5.3.
I wrote a Tuxedo application model that takes the customer data and transmit these data to the Service via FML VIEW dependent and the server converts the data passed in capital letters and return to the customer...
I created the table field and FML VIEW dependent file and set the required environment variables and I built the client and the server.
After running the object module is called the service, but the values are not passed to the service and the data is not converted to uppercase.
The table field file is as follows:
"sampfml" 4 lines, 159 characters# name number type flags comments
FML VIEW dependent:
Chain of FIRSTSTR1 110-
Chain of SECONDSTR1 111-
String of 112 THIRDSTR1 -VIEWS sampview
environment variables that I put are:
indicator of County # type cname fbna size null
String firststr FIRSTSTR1 1-10. \0
String secondstr SECONDSTR1 1-10. \0
String thirdstr THIRDSTR1 1-10. \0
END#FIELDTBLS
my customer code:
#
FIELDTBLS = sampfml, fields, Usysflds
#
#FLDTBLDIR
#
FLDTBLDIR = ${TUXDIR} / udataobj: ${APPDIR}
#
#VIEWDIR
#
VIEWDIR = ${APPDIR}
#
#VIEWFILES
#
VIEWFILES = sampview. V
IDENTIFICATION DIVISION.
PROGRAM-ID. SIMPCL.
AUTHOR. DEVELOPMENT OF TUX.
ENVIRONMENTAL DIVISION.
SECTION OF CONFIGURATION.
DATA DIVISION.
STORAGE SECTION OF WORK.
*****************************************************
* Definitions of tuxedo
*****************************************************
TPTYPE 01 - REC.
COPY TPTYPE.
*
TPSTATUS 01 - REC.
COPY TPSTATUS.
*
TPSVCDEF 01 - REC.
COPY TPSVCDEF.
*
TPINFDEF 01 - REC.
COPY TPINFDEF.
*
FML 01 - REC.
COPY FMLINFO.
*
01 MYFML.
F-05 DATA PIC X (10).
05 PIC S-DATA X (10).
T-05 DATA PIC X (10).
FILLER 05 PIC X (30).
*****************************************************
* Definitions log messages
*****************************************************
01 LOGMSG.
VALUE OF FILL 05 PIC X (8) ' SIMPCL:
LOGMSG 05-TEXT PIC X (50).
01 LOGMSG-LEN PIC S9 (9) COMP-5.
*
STRING 01 DATA.
COPY sampview.
ENTER 01-STRING.
05 S-FIRST PIC X (10).
05 S-SECOND PIC X (10).
05 S-THIRD PIC X (10).
PEAK USER-DATA-REC 01 X (75).
SECTION OF LIAISON.
******************************************************
* Start the program with command line parameters
******************************************************
THE PROCEDURE DIVISION.
MOVE DOWN-VALUES TO TPINFDEF-REC.
MOVE ALL THE LOGMSG TO LOGMSG-LEN.
START-SIMPCL.
LOGMSG-TEXT, MOVE "on the road".
PERFORM DES USERLOG.
PERFORM DES TPINIT.
ACCEPT S FIRST.
ACCEPT THE SECOND S.
ACCEPT S THIRD.
S-FIRST MOVEMENT FIRSTSTR.
SPEND S-SECOND TO SECONDSTR.
PASS S-THIRD AT THIRDSTR.
DISPLAY ' VALUES BEFORE: "-THE STRING DATA.".
DISPLAY "FML: ' MYFML.
PERFORM DES TPCALL.
DISPLAY "DATA AFTER CONVERSION:
DISPLAY FIRSTSTR.
DISPLAY SECONDSTR.
DISPLAY THIRDSTR.
PERFORM DES TPTERM.
MAKE THE PROGRAM EXIT.
*****************************************************
* Now put the customer in the system.
*****************************************************
-TPINIT.
MOVING TO USRNAME SPACES.
MOVE TO CLTNAME BOXES.
MOVE TO BOXES TO PASSWD.
MOVE TO BOXES TO GRPNAME.
MOVE 0 TO DATALEN.
TPU - DIP SET TO TRUE.
*
CALL FOR ASSISTANCE "TPINITIALIZE" TPINFDEF-REC
USER-DATA-REC
TPSTATUS-REC.
IF NOT OK
MOVE "TPINITIALIZE failed" LOGMSG-text
PERFORM DES USERLOG
MAKE THE PROGRAM EXIT
END-IF.
*****************************************************
Issue of a TPCALL
*****************************************************
-TPCALL.
MOVE ALL MYFML FLM-LENGTH.
CALL "ENDS" WITH THE HELP OF MYFML FLM - REC.
OTHERWISE FOK
MOVE "FINALLY failed" LOGMSG-text
PERFORM DES USERLOG
MAKE THE PROGRAM EXIT.
FUPDATE SET TO TRUE.
MOVE 'sampview' to VIEWNAME.
CALL "FVSTOF" WITH THE HELP OF STRING FML - REC MYFML-DATA.
OTHERWISE FOK
MOVE 'FVSTOF failed' to LOGMSG-TEXT
PERFORM DES USERLOG
FLM-DISPLAY STATUS
MAKE THE PROGRAM EXIT.
MOVE "FLM" REC-INDICATE THE TPTYPE-REC.
MOVE SPACES OF SUB-TYPE IN TPTYPE-REC.
MOVE ALL MYFML TO LEN.
GO "SIMPSRV" - NAME OF THE SERVICE.
TPBLOCK SET TO TRUE.
TPNOTRAN SET TO TRUE.
TPNOTIME SET TO TRUE.
TPSIGRSTRT SET TO TRUE.
TPCHANGE SET TO TRUE.
CALL FOR ASSISTANCE "TPCALL" TPSVCDEF-REC
TPTYPE-REC
MYFML
TPTYPE-REC
MYFML
TPSTATUS-REC.
IF NOT OK
MOVE "TPCALL failed" LOGMSG-text
PERFORM DES USERLOG
END-IF.
CALL "FVFTOS" WITH THE HELP OF STRING FML - REC MYFML-DATA.
OTHERWISE FOK
MOVE 'FVFTOS failed' to LOGMSG-TEXT
PERFORM DES USERLOG
MAKE THE PROGRAM EXIT.
*****************************************************
* Let TUXEDO
*****************************************************
-TPTERM.
CALL FOR ASSISTANCE "TPTERM" TPSTATUS-REC.
IF NOT OK
MOVE "TPTERM failed" LOGMSG-text
PERFORM DES USERLOG
END-IF.
*****************************************************
* Saves messages in the userlog
*****************************************************
-USERLOG.
CALL FOR ASSISTANCE "USERLOG" LOGMSG
LOGMSG-LEN
TPSTATUS-REC.
*****************************************************
* Request for leave
*****************************************************
EXIT-PROGRAM.
MOVE 'done' LOGMSG-TEXT.
PERFORM DES USERLOG.
STOP EXECUTION.
My server code:
IDENTIFICATION DIVISION.
PROGRAM-ID. SIMPSRV.
AUTHOR. DEVELOPMENT OF TUX.
ENVIRONMENTAL DIVISION.
SECTION OF CONFIGURATION.
DATA DIVISION.
STORAGE SECTION OF WORK.
******************************************************
* Definitions of tuxedo
******************************************************
TPSVCRET 01 - REC.
COPY TPSVCRET.
*
TPTYPE 01 - REC.
COPY TPTYPE.
*
TPSTATUS 01 - REC.
COPY TPSTATUS.
*
TPSVCDEF 01 - REC.
COPY TPSVCDEF.
******************************************************
* Definitions of log messages
******************************************************
01 LOGMSG.
VALUE OF FILL 05 PIC X (10)
"SIMPSRV:
LOGMSG 05-TEXT PIC X (50).
01 LOGMSG-LEN PIC S9 (9) COMP-5.
******************************************************
* Data records user defined
******************************************************
STRING 01 DATA.
COPY sampview.
01 MYFML.
F-05 DATA PIC X (10).
05 PIC S-DATA X (10).
T-05 DATA PIC X (10).
FILLER 05 PIC X (30).
*
SECTION OF LIAISON.
*
THE PROCEDURE DIVISION.
*
START-FUNDUPSR.
MOVE ALL THE LOGMSG TO LOGMSG-LEN.
LOGMSG-TEXT, MOVE "on the road".
PERFORM DES USERLOG.
******************************************************
* Get the data that has been sent by the client
******************************************************
MOVE ALL MYFML TO LEN.
MOVING MYFML LOGMSG-TEXT.
PERFORM DES USERLOG.
CALL USING 'TPSVCSTART' TPSVCDEF-REC
TPTYPE-REC
MYFML
TPSTATUS-REC.
IF NOT OK
MOVE 'TPSVCSTART failed' to LOGMSG-TEXT
PERFORM DES USERLOG
MAKE THE PROGRAM EXIT
END-IF.
IF TPTRUNCATE
MOVE "Data has been truncated" LOGMSG-TEXT
PERFORM DES USERLOG
MAKE THE PROGRAM EXIT
END-IF.
MOVING FIRSTSTR LOGMSG-TEXT.
PERFORM DES USERLOG.
MOVING SECONDSTR LOGMSG-TEXT.
PERFORM DES USERLOG.
MOVING THIRDSTR LOGMSG-TEXT.
PERFORM DES USERLOG.
INSPECT THE FIRSTSTR CONVERSION
"abcdefghijklmnopqrstuvwxyz" to
"ABCDEFGHIJKLMNOPQRSTUVWXYZ"
INSPECT THE SECONDSTR CONVERSION
"abcdefghijklmnopqrstuvwxyz" to
"ABCDEFGHIJKLMNOPQRSTUVWXYZ"
INSPECT THE THIRDSTR CONVERSION
"abcdefghijklmnopqrstuvwxyz" to
"ABCDEFGHIJKLMNOPQRSTUVWXYZ"
MOVE FIRSTSTR TO S-FIRST.
MOVE SECONDSTR TO S-SECONDS.
MOVE THIRDSTR TO S THIRD.
MOVE 'Success' to LOGMSG-TEXT.
PERFORM DES USERLOG.
MOVE TO ENTER STRING LOGMSG-TEXT.
PERFORM DES USERLOG.
TPSUCCESS SET TO TRUE.
COPY TPRETURN REPLACEMENT
DATA-REC MYFML.
******************************************************
* Write an err messages disconnect
******************************************************
-USERLOG.
CALL FOR ASSISTANCE "USERLOG" LOGMSG
LOGMSG-LEN
TPSTATUS-REC.
******************************************************
* EXIT PROGRAM
******************************************************
EXIT-PROGRAM.
LOGMSG-TEXT, MOVE "has failed."
PERFORM DES USERLOG.
TPFAIL SET TO TRUE.
COPY TPRETURN REPLACEMENT
DATA-REC MYFML.
And when execution of the module of the object:SIMPCL
can anyone help me with this?
Hello
Hello
World
VALUES BEFORE: Hello Hello World
FML:
DATA AFTER CONVERSION:
Hello
Hello
World
Thank you...Hello
In the server program, you must call FVFTOS to convert the COBOL record FML buffer, then do the translation. After that, you must also call 'FVSTOF' to convert it back to FML. I can get the correct results with your program with these changes.
Customer
======================
IDENTIFICATION DIVISION.
PROGRAM-ID. CSIMPCL.
AUTHOR. DEVELOPMENT OF TUX.
ENVIRONMENTAL DIVISION.
SECTION OF CONFIGURATION.
STORAGE SECTION OF WORK.
*****************************************************
* Definitions of tuxedo
*****************************************************
TPTYPE 01 - REC.
COPY TPTYPE.
*
TPSTATUS 01 - REC.
COPY TPSTATUS.
*
TPSVCDEF 01 - REC.
COPY TPSVCDEF.
*
VALUES-01 TPINFDEF-REC VALUE LOW.
COPY TPINFDEF.
*
FML 01 - REC.
COPY FMLINFO.
*
01 MYFML.
F-05 DATA PIC X (10).
05 PIC S-DATA X (10).
T-05 DATA PIC X (10).
FILLER 05 PIC X (30).
*****************************************************
* Definitions log messages
*****************************************************
01 LOGMSG.
VALUE OF FILL 05 PIC X (8) ' CSIMPCL:
LOGMSG 05-TEXT PIC X (50).
01 LOGMSG-LEN PIC S9 (9) COMP-5.
*
STRING 01 DATA.
COPY sampview.
*
ENTER 01-STRING.
05 S-FIRST PIC X (10).
05 S-SECOND PIC X (10).
05 S-THIRD PIC X (10).
*
PEAK USER-DATA-REC 01 X (75).
SECTION OF LIAISON.
******************************************************
* Start the program with command line parameters
******************************************************
THE PROCEDURE DIVISION.
START-CSIMPCL.
LOGMSG-TEXT, MOVE "on the road".
PERFORM DES USERLOG.
PERFORM DES TPINIT.
MOVE 'Hi' to FIRSTSTR.
MOVE the 'Hello' to SECONDSTR.
MOVE the 'world' to THIRDSTR.
DISPLAY ' VALUES BEFORE: "-THE STRING DATA.
DISPLAY "FML: ' MYFML.
PERFORM DES TPCALL.
DISPLAY ' VALUES AFTER:
DISPLAY FIRSTSTR.
DISPLAY SECONDSTR.
DISPLAY THIRDSTR.
PERFORM DES TPTERM.
MAKE THE PROGRAM EXIT.
*****************************************************
* Now put the customer in the system.
*****************************************************
-TPINIT.
MOVING TO USRNAME SPACES.
MOVE TO CLTNAME BOXES.
MOVE TO BOXES TO PASSWD.
MOVE TO BOXES TO GRPNAME.
MOVE 0 TO DATALEN.
TPU - DIP SET TO TRUE.
*
CALL FOR ASSISTANCE "TPINITIALIZE" TPINFDEF-REC
USER-DATA-REC
TPSTATUS-REC.IF NOT OK
MOVE "TPINITIALIZE failed" LOGMSG-text
PERFORM DES USERLOG
MAKE THE PROGRAM EXIT
END-IF.-TPCALL.
MOVE ALL MYFML FLM-LENGTH.
DISPLAY 'LENGTH OF MYFML.
FML-LENGTH DISPLAY.
CALL "ENDS" WITH THE HELP OF MYFML FLM - REC.
OTHERWISE FOK
MOVE "FINALLY failed" LOGMSG-text
PERFORM DES USERLOG
MAKE THE PROGRAM EXIT
END-IF.
FUPDATE SET TO TRUE.
MOVE 'sampview' to VIEWNAME.
CALL "FVSTOF" WITH THE HELP OF STRING FML - REC MYFML-DATA.
OTHERWISE FOK
MOVE 'FVSTOF failed' to LOGMSG-TEXT
PERFORM DES USERLOG
FLM-DISPLAY STATUS
MAKE THE PROGRAM EXIT
END-IF.MOVE "FLM" REC-INDICATE THE TPTYPE-REC.
MOVE SPACES OF SUB-TYPE IN TPTYPE-REC.
MOVE ALL MYFML TO LEN.GO "SIMPSRV" - NAME OF THE SERVICE.
TPBLOCK SET TO TRUE.
TPNOTRAN SET TO TRUE.
TPNOTIME SET TO TRUE.
TPSIGRSTRT SET TO TRUE.
TPCHANGE SET TO TRUE.CALL FOR ASSISTANCE "TPCALL" TPSVCDEF-REC
TPTYPE-REC
MYFML
TPTYPE-REC
MYFML
TPSTATUS-REC.
IF NOT OK
MOVE "TPCALL failed" LOGMSG-text
PERFORM DES USERLOG
END-IF.CALL "FVFTOS" WITH THE HELP OF STRING FML - REC MYFML-DATA.
OTHERWISE FOK
MOVE 'FVFTOS failed' to LOGMSG-TEXT
PERFORM DES USERLOG
MAKE THE PROGRAM EXIT
END-IF.*****************************************************
* Let TUXEDO
*****************************************************
-TPTERM.
CALL FOR ASSISTANCE "TPTERM" TPSTATUS-REC.
IF NOT OK
MOVE "TPTERM failed" LOGMSG-text
PERFORM DES USERLOG
END-IF.*****************************************************
* Saves messages in the userlog
*****************************************************
-USERLOG.
CALL FOR ASSISTANCE "USERLOG" LOGMSG
LOGMSG-LEN
TPSTATUS-REC.*****************************************************
* Request for leave
*****************************************************
EXIT-PROGRAM.
MOVE 'done' LOGMSG-TEXT.
PERFORM DES USERLOG.
STOP EXECUTION.Server
====================================
IDENTIFICATION DIVISION.
PROGRAM-ID. SIMPSRV.
AUTHOR. DEVELOPMENT OF TUX.
ENVIRONMENTAL DIVISION.
SECTION OF CONFIGURATION.DATA DIVISION.
STORAGE SECTION OF WORK.
******************************************************
* Definitions of tuxedo
******************************************************
TPSVCRET 01 - REC.
COPY TPSVCRET.
*
TPTYPE 01 - REC.
COPY TPTYPE.
*
TPSTATUS 01 - REC.
COPY TPSTATUS.
*
TPSVCDEF 01 - REC.
COPY TPSVCDEF.
*
FML 01 - REC.
COPY FMLINFO.
******************************************************
* Definitions of log messages
******************************************************
01 LOGMSG.
VALUE OF FILL 05 PIC X (10)
"SIMPSRV:
LOGMSG 05-TEXT PIC X (50).
01 LOGMSG-LEN PIC S9 (9) COMP-5.
******************************************************
* Data records user defined
******************************************************
STRING 01 DATA.
COPY sampview.
ENTER 01-STRING.
05 S-FIRST PIC X (10).
05 S-SECOND PIC X (10).
05 S-THIRD PIC X (10).
*
01 MYFML.
F-05 DATA PIC X (10).
05 PIC S-DATA X (10).
T-05 DATA PIC X (10).
FILLER 05 PIC X (30).*
SECTION OF LIAISON.
*
THE PROCEDURE DIVISION.
*
START-FUNDUPSR.
MOVE ALL THE LOGMSG TO LOGMSG-LEN.
LOGMSG-TEXT, MOVE "on the road".
PERFORM DES USERLOG.******************************************************
* Get the data that has been sent by the client
******************************************************
MOVE ALL MYFML TO LEN.
MOVING MYFML LOGMSG-TEXT.
PERFORM DES USERLOG.
CALL USING 'TPSVCSTART' TPSVCDEF-REC
TPTYPE-REC
MYFML
TPSTATUS-REC.IF NOT OK
MOVE 'TPSVCSTART failed' to LOGMSG-TEXT
PERFORM DES USERLOG
MAKE THE PROGRAM EXIT
END-IF.IF TPTRUNCATE
MOVE "Data has been truncated" LOGMSG-TEXT
PERFORM DES USERLOG
MAKE THE PROGRAM EXIT
END-IF.MOVE 'sampview' to VIEWNAME
CALL "FVFTOS" WITH THE HELP OF STRING FML - REC MYFML-DATA.
OTHERWISE FOK
MOVE "FVFTOS failed" LOGMSG-TEXT
PERFORM DES USERLOG
MAKE THE PROGRAM EXIT
END-IF.
MOVE 'DOING OK FVFTOS' LOGMSG-TEXT.
PERFORM DES USERLOG.
MOVING FIRSTSTR LOGMSG-TEXT.
PERFORM DES USERLOG.
MOVING SECONDSTR LOGMSG-TEXT.
PERFORM DES USERLOG.
MOVING THIRDSTR LOGMSG-TEXT.
PERFORM DES USERLOG.
INSPECT THE FIRSTSTR CONVERSION
"abcdefghijklmnopqrstuvwxyz" to
"ABCDEFGHIJKLMNOPQRSTUVWXYZ"
INSPECT THE SECONDSTR CONVERSION
"abcdefghijklmnopqrstuvwxyz" to
"ABCDEFGHIJKLMNOPQRSTUVWXYZ"
INSPECT THE THIRDSTR CONVERSION
"abcdefghijklmnopqrstuvwxyz" to
"ABCDEFGHIJKLMNOPQRSTUVWXYZ"
MOVE FIRSTSTR TO S-FIRST.
MOVE SECONDSTR TO S-SECONDS.
MOVE THIRDSTR TO S THIRD.
MOVE 'Success' to LOGMSG-TEXT.
PERFORM DES USERLOG.
MOVE TO ENTER STRING LOGMSG-TEXT.
PERFORM DES USERLOG.
FUPDATE SET TO TRUE.
MOVE 'sampview' to VIEWNAME.
CALL "FVSTOF" WITH THE HELP OF STRING FML - REC MYFML-DATA.
OTHERWISE FOK
MOVE 'FVSTOF failed' to LOGMSG-TEXT
PERFORM DES USERLOG
FLM-DISPLAY STATUS
MAKE THE PROGRAM EXIT
END-IF.TPSUCCESS SET TO TRUE.
COPY TPRETURN REPLACEMENT
DATA-REC MYFML.******************************************************
* Write an err messages disconnect
******************************************************
-USERLOG.
CALL FOR ASSISTANCE "USERLOG" LOGMSG
LOGMSG-LEN
TPSTATUS-REC.
******************************************************
* EXIT PROGRAM
******************************************************
EXIT-PROGRAM.
LOGMSG-TEXT, MOVE "has failed."
PERFORM DES USERLOG.
TPFAIL SET TO TRUE.
COPY TPRETURN REPLACEMENT
DATA-REC MYFML.The result looks like,
The VALUES BEFORE: Hello Hello World
FML:
LENGTH MYFML
+ 0000000060
VALUES AFTER:
Hello
Hello
WORLDIn addition, in your client program FILLING only given size 10, not compatible with the side server, which is 30. I use the same size in the client and the server.
I also interested in why do you use style convert FML/VIEW? If both a pure COBOL, just with VIEW program is easier programming, just a suggestion.Kind regards
Wayne -
TMQFORWARD TPDEQUEUE work-so no is a failure
Hello
Use Tuxedo 10 g R3 on AIX 5.3...
I wrote a COBOL sample program using queues... I created Queuespace and queues for that...
I built the client and server programs and created the module object for this... when execution of the module enqueue object works fine without error and it is written in the queue... but given that TMQFORWARD didn't call the message service is not removed...
That's what I said in the UBBCONFIG file.
* GROUPS
TMQGRP LMID = "cicsapp" GRPNO = 4 TMSNAME = TMS_QM TMSCOUNT = 2 OPENINFO = "" TUXEDO/QM: / home/e160195/cfg/WHAT: TMQUEUE ""
* SERVERS
TMQUEUE SRVGRP = "TMQGRP" SRVID = RESTART 4 = GRACE MAXGEN = CONV = CLOPT 10 Y = 0 N = "s TMQUEUE:TMQUEUE"
TMQFORWARD SRVGRP = "TMQGRP" SRVID = REVIVE 5 = GRACE MAXGEN = CONV = CLOPT 10 Y = 0 N = '--i - 2 - q TOUPPER n'
where TMQUEUE is my name queuespace and TOUPPER is the name of the service and is one of the queues (to be delivered) and RPLYQ are the response queue name and ERRQ is the name of the queue of errors...
and my customer code:
IDENTIFICATION DIVISION.
PROGRAM-ID. QUECL.
AUTHOR. TUXEDO.
ENVIRONMENTAL DIVISION.
SECTION OF CONFIGURATION.
DATA DIVISION.
STORAGE SECTION OF WORK.
*****************************************************
* Definitions of tuxedo
*****************************************************
TPQUEDEF 01 - REC.
COPY TPQUEDEF.
*
TPTYPE 01 - REC.
COPY TPTYPE.
*
TPSTATUS 01 - REC.
COPY TPSTATUS.
*
TPSVCDEF 01 - REC.
COPY TPSVCDEF.
*
TPINFDEF 01 - REC.
COPY TPINFDEF.
*****************************************************
* Definitions log messages
*****************************************************
01 LOGMSG.
VALUE OF FILL 05 PIC X (8) ' QUECL:
LOGMSG 05-TEXT PIC X (50).
01 LOGMSG-ERR.
VALUE OF FILL 05 PIC X (14)
"QUECL ERR = > '.
05 JOURNAL-ERR-ROUTINE PIC X (10).
VALUE OF FILL 05 PIC X (21)
"FAILED: TP-STATUS =". "
05-ERR-TP-STATE OF THE NEWSPAPER PIC S9 (9).
01 LOGMSG-ERR-LEN PIC S9 (9) COMP-5.
01 LOGMSG-LEN PIC S9 (9) COMP-5.
*
PEAK USER-DATA-REC 01 X (75).
SEND-STRING PIC 01 X (100) VALUE SPACES.
SECTION OF LIAISON.
******************************************************
* Start the program with command line parameters
******************************************************
THE PROCEDURE DIVISION.
MOVE DOWN-VALUES TO TPINFDEF-REC.
MOVE ALL THE LOGMSG TO LOGMSG-LEN.
START-CSIMPCL.
MOVE 'Hello' to SEND STRING.
DISPLAY ' SEND-STRING: front: "SEND-STRING."
LOGMSG-TEXT, MOVE "on the road".
PERFORM DES USERLOG.
PERFORM DES TPINIT.
PERFORM DES TPENQUEUE.
PERFORM DES TPDEQUEUE.
DISPLAY ' SEND-STRING: after: "SEND-STRING."
PERFORM DES TPTERM.
MAKE THE PROGRAM EXIT.
*****************************************************
* Now put the customer in the system.
*****************************************************
-TPINIT.
MOVING TO USRNAME SPACES.
MOVE TO CLTNAME BOXES.
MOVE TO BOXES TO PASSWD.
MOVE TO BOXES TO GRPNAME.
MOVE 0 TO DATALEN.
TPU - DIP SET TO TRUE.
*
CALL FOR ASSISTANCE "TPINITIALIZE" TPINFDEF-REC
USER-DATA-REC
TPSTATUS-REC.
IF NOT OK
MOVE "TPINITIALIZE failed" LOGMSG-text
PERFORM DES USERLOG
MAKE THE PROGRAM EXIT
END-IF.
*****************************************************
Issue of a TPENQUEUE
*****************************************************
-TPENQUEUE.
MOVE DOWN-VALUES TO TPQUEDEF-REC.
MOVE 'TMQUEUE' TO QSPACE-NAME IN TPQUEDEF-REC.
MOVING 'TOUPPER' TO QNAME IN TPQUEDEF-REC.
MOVE 'RPLYQ' TO REPLYQUEUE IN THE TPQUEDEF-REC.
TPTRAN SET TPQUEDEF-REC TO TRUE.
TPBLOCK SET TPQUEDEF-REC TO TRUE.
TPTIME SET TPQUEDEF-REC TO TRUE.
TPSIGRSTRT SET TPQUEDEF-REC TO TRUE.
TPQREPLYQ SET TPQUEDEF-REC TO TRUE.
TPQQOSDELIVERYNONPERSISTENT SET TPQUEDEF-REC TO TRUE.
TPQMSGID SET TPQUEDEF-REC TO TRUE.
MOVE DOWN-VALUES IN TPTYPE-REC.
MOVE 'STRING' IN TPTYPE-REC REC-TYPE.
LENGTH OF REMOVAL OF SEND-STRING TO LEN IN TPTYPE-REC.
CALL FOR ASSISTANCE "TPENQUEUE.
TPQUEDEF-REC
TPTYPE-REC
SEND-STRING
TPSTATUS-REC.
IF NOT OK
MOVE "TPENQUEUE failed" LOGMSG-TEXT
PERFORM DES USERLOG
MAKE THE PROGRAM EXIT.
DISPLAY ' ENQUEUE ON. "
*****************************************************
Issue of a TPDEQUEUE
*****************************************************
-TPDEQUEUE.
MOVE DOWN-VALUES TO TPQUEDEF-REC.
MOVE 'TMQUEUE' TO QSPACE-NAME IN TPQUEDEF-REC.
MOVE 'RPLYQ' TO QNAME IN TPQUEDEF-REC.
TPTRAN SET TPQUEDEF-REC TO TRUE.
TPBLOCK SET TPQUEDEF-REC TO TRUE.
TPTIME SET TPQUEDEF-REC TO TRUE.
TPSIGRSTRT SET TPQUEDEF-REC TO TRUE.
* SET TPQWAIT IN TPQUEDEF-REC TO TRUE.
MOVE DOWN-VALUES IN TPTYPE-REC.
MOVE 'STRING' IN TPTYPE-REC REC-TYPE.
LENGTH OF REMOVAL OF SEND-STRING TO LEN IN TPTYPE-REC.
CALL FOR ASSISTANCE "TPDEQUEUE.
TPQUEDEF-REC
TPTYPE-REC
SEND-STRING
TPSTATUS-REC.
IF NOT OK
MOVE "TPDEQUEUE failed" LOGMSG-TEXT
PERFORM DES USERLOG
MOVE THE "TPDEQUEUE' LOG-ERR-ROUTINE
TP-STATUS OF DISPLACEMENT TO THE NEWSPAPER-ERR-TP-STATUS
PERFORM DES USERLOG ERR
MAKE THE PROGRAM EXIT.
DISPLAY ABOVE "DEQUEUE".
*****************************************************
* Let TUXEDO
*****************************************************
-TPTERM.
CALL FOR ASSISTANCE "TPTERM" TPSTATUS-REC.
IF NOT OK
MOVE "TPTERM failed" LOGMSG-text
PERFORM DES USERLOG
END-IF.
*****************************************************
* Saves messages in the userlog
*****************************************************
-USERLOG.
CALL FOR ASSISTANCE "USERLOG" LOGMSG
LOGMSG-LEN
TPSTATUS-REC.
USERLOG-ERR.
CALL "USERLOG" WITH THE HELP OF LOGMSG-ERR
LOGMSG-ERR-LEN
TPSTATUS-REC.
*****************************************************
* Request for leave
*****************************************************
EXIT-PROGRAM.
MOVE 'done' LOGMSG-TEXT.
PERFORM DES USERLOG.
STOP EXECUTION.
and here is the server code:
IDENTIFICATION DIVISION.
PROGRAM-ID. TOUPPER.
AUTHOR. TUXEDO.
ENVIRONMENTAL DIVISION.
SECTION OF CONFIGURATION.
DATA DIVISION.
STORAGE SECTION OF WORK.
******************************************************
* Definitions of tuxedo
******************************************************
TPQUEDEF 01 - REC.
COPY TPQUEDEF.
*
TPSVCRET 01 - REC.
COPY TPSVCRET.
*
TPTYPE 01 - REC.
COPY TPTYPE.
*
TPSTATUS 01 - REC.
COPY TPSTATUS.
*
TPSVCDEF 01 - REC.
COPY TPSVCDEF.
******************************************************
* Definitions of log messages
******************************************************
01 LOGMSG.
VALUE OF FILL 05 PIC X (10)
"QUESR:
LOGMSG 05-TEXT PIC X (50).
01 LOGMSG-LEN PIC S9 (9) COMP-5.
******************************************************
* Data records user defined
******************************************************
01 X (100) OF PEAK SEND-STRING.
*
SECTION OF LIAISON.
*
THE PROCEDURE DIVISION.
*
START-STRING.
MOVE ALL THE LOGMSG TO LOGMSG-LEN.
LOGMSG-TEXT, MOVE "on the road".
PERFORM DES USERLOG.
******************************************************
* Get the data that has been sent by the client
******************************************************
MOVE ALL THE STRING-SENT TO LEN.
CALL USING 'TPSVCSTART' TPSVCDEF-REC
TPTYPE-REC
SEND-STRING
TPSTATUS-REC.
IF NOT OK
MOVE 'TPSVCSTART failed' to LOGMSG-TEXT
PERFORM DES USERLOG
MAKE THE PROGRAM EXIT
END-IF.
IF TPTRUNCATE
MOVE "Data has been truncated" LOGMSG-TEXT
PERFORM DES USERLOG
MAKE THE PROGRAM EXIT
END-IF.
INSPECT THE SHIPMENT-STRING CONVERSION
"abcdefghijklmnopqrstuvwxyz" to
"ABCDEFGHIJKLMNOPQRSTUVWXYZ"
MOVE 'Success' to LOGMSG-TEXT.
PERFORM DES USERLOG.
TPSUCCESS SET TO TRUE.
COPY TPRETURN REPLACEMENT
DATA-REC SEND-STRING.
******************************************************
* Write an err messages disconnect
******************************************************
-USERLOG.
CALL FOR ASSISTANCE "USERLOG" LOGMSG
LOGMSG-LEN
TPSTATUS-REC.
******************************************************
* EXIT PROGRAM
******************************************************
EXIT-PROGRAM.
LOGMSG-TEXT, MOVE "has failed."
PERFORM DES USERLOG.
TPFAIL SET TO TRUE.
COPY TPRETURN REPLACEMENT
DATA-REC SEND-STRING.
In ULOG me do the same.
040915.ibmsceai! proc.303126.1.-2: QUECL: started
040915.ibmsceai! proc.303126.1.0: QUECL: TPDEQUEUE failed
040915.ibmsceai! proc.303126.1.0:
040915.ibmsceai! proc.303126.1.0: QUECL: completed
After running the program messages remain queued for request for a few seconds, then it moves to the queue of the error... Since dequeue fails there is no message in the queue to answer...
can someone tell me why this TMQFORWARD does not call the TOUPPER function? and the wait does not work?
Thank you...Hi Celine,.
First of all, you can consult qmadmin to consult the messages are there in the queue of TOUPPER. Second, it applies after the "n" option to TMQFORWARD, are reload you TUXCONFIG tmloadcf? Third, you can use the CSIMPCL original to call the function TOUPPER directly to see if you can call successfully or not.
This should not be a big problem, I spent all my test that follows, it works in my env,
UBBCONFIG
================================
#
# (c) 2003 BEA Systems, Inc. All rights reserved.
#
# THIS IS UNPUBLISHED PROPRIETARY SOURCE CODE
# OF BEA Systems, Inc.
# Above copyright notice do not evidence
# any actual or planned such a publication
source code #.
#
#ident ' @(#) samples/atmi/CSIMPAPP/UBBCSIMPLE.nt $Revision: $1.5.#Skeleton the file UBBCONFIG for Simple TUXEDO COBOL Application.
#Replace theelements with appropriate values. * RESOURCES
IPCKEY 123456NETWORKID UBBCSIMPLE
Simple MASTER
MAXACCESSERS 100
MAXSERVERS 10
MAXSERVICES 20
MODEL SHM
LDBAL N* MACHINES
DEFAULT:
APPDIR = "d:\cobol\simpapp."
TUXCONFIG = "d:\cobol\simpapp\tuxconfig."
TUXDIR = "d:\work\source\phoenix."
ENVFILE = "d:\cobol\simpapp\envfile. NT.WCHEN02 LMID simple =
TLOGDEVICE = "d:\cobol\simpapp\TLOG".* GROUPS
GROUP1
LMID = simple = 1 OPENINFO = NONE GRPNOTMQGRP
LMID = simple GRPNO = 2
TMSNAME = TMS_QM TMSCOUNT = 2
OPENINFO = "TUXEDO / QM:d:\cobol\simpapp\QUE;» TMQUEUE ".TMQGRP1
LMID = simple GRPNO = 3
TMSNAME = TMS_QM TMSCOUNT = 2
OPENINFO = "TUXEDO / QM:d:\cobol\simpapp\QUE;» TMQUEUE ".
* SERVERS
DEFAULT:
CLOPT = "-A"CSIMPSRV SRVGRP = GROUP1 SRVID = 1
TMQUEUE
SRVGRP = TMQGRP = 1 SRVID
GRACE = REBOOT 0 = Y CONV = MAXGEN N = 10
CLOPT = "- s TMQUEUE:TMQUEUE"
TMQUEUE
SRVGRP = TMQGRP1 = 1 SRVID
GRACE = REBOOT 0 = Y CONV = MAXGEN N = 10
CLOPT = "- s TMQUEUE:TMQUEUE"TMQFORWARD
SRVGRP = TMQGRP SRVID = GRACE 5 = REBOOT 0 = Y CONV = MAXGEN N = 10
CLOPT = '--i - 2 - q TOUPPER n'TMQFORWARD
SRVGRP = TMQGRP1 SRVID = GRACE 5 = REBOOT 0 = Y CONV = MAXGEN N = 10
CLOPT = '--i - 2 - q TOUPPER n'
* SERVICES
CSIMPSRVServer
======================================
* (c) 2003 BEA Systems, Inc. All rights reserved.
*
* Copyright (c) 1992 USL
* All rights reserved
*
TIS NOT EXCLUSIVE PUBLISHED
* SOURCE CODE OF THE USL
* The copyright notice above does not work
* evidence any actual or planned
* publication of such source code.
*
* #ident ' @(#) samples/atmi/CSIMPAPP/CSIMPSRV.cbl $Revision: $1.5.
* public static char sccsid [] = ' @(#) samples/atmi/CSIMPAPP/CSIMPSRV.cbl $Revision: $1.5;
*
IDENTIFICATION DIVISION.
PROGRAM-ID. CSIMPSRV.
AUTHOR. DEVELOPMENT OF TUX.
ENVIRONMENTAL DIVISION.
SECTION OF CONFIGURATION.STORAGE SECTION OF WORK.
******************************************************
* Definitions of tuxedo
******************************************************
TPSVCRET 01 - REC.
COPY TPSVCRET.
*
TPTYPE 01 - REC.
COPY TPTYPE.
*
TPSTATUS 01 - REC.
COPY TPSTATUS.
*
TPSVCDEF 01 - REC.
COPY TPSVCDEF.
******************************************************
* Definitions of log messages
******************************************************
01 LOGMSG.
VALUE OF FILL 05 PIC X (10)
"CSIMPSRV:
LOGMSG 05-TEXT PIC X (50).
01 LOGMSG-LEN PIC S9 (9) COMP-5.
******************************************************
* Data records user defined
******************************************************
01 X (100) PIC RECV-STRING.
01 X (100) OF PEAK SEND-STRING.
*
SECTION OF LIAISON.
*
THE PROCEDURE DIVISION.
*
START-FUNDUPSR.
MOVE ALL THE LOGMSG TO LOGMSG-LEN.
LOGMSG-TEXT, MOVE "on the road".
PERFORM DES USERLOG.******************************************************
* Get the data that has been sent by the client
******************************************************
MOVE ALL THE RECV-STRING TO LEN.
CALL USING 'TPSVCSTART' TPSVCDEF-REC
TPTYPE-REC
RECV-STRING
TPSTATUS-REC.
IF NOT OK
MOVE 'TPSVCSTART failed' to LOGMSG-TEXT
PERFORM DES USERLOG
MAKE THE PROGRAM EXIT
END-IF.IF TPTRUNCATE
MOVE "Data has been truncated" LOGMSG-TEXT
PERFORM DES USERLOG
MAKE THE PROGRAM EXIT
END-IF.INSPECT RECV-STRING CONVERSION
"abcdefghijklmnopqrstuvwxyz" to
"ABCDEFGHIJKLMNOPQRSTUVWXYZ"
MOVE 'Success' to LOGMSG-TEXT.
PERFORM DES USERLOG.
TPSUCCESS SET TO TRUE.
COPY TPRETURN REPLACEMENT
DATA-REC RECV-STRING.******************************************************
* Write an err messages disconnect
******************************************************
-USERLOG.
CALL FOR ASSISTANCE "USERLOG" LOGMSG
LOGMSG-LEN
TPSTATUS-REC.
******************************************************
* EXIT PROGRAM
******************************************************
EXIT-PROGRAM.
LOGMSG-TEXT, MOVE "has failed."
PERFORM DES USERLOG.
TPFAIL SET TO TRUE.
COPY TPRETURN REPLACEMENT
DATA-REC RECV-STRING.Please note that the service is advertised as 'TOUPPER' instead of CSIMPSRV.
Customer
===========================================
*
* (c) 2003 BEA Systems, Inc. All rights reserved.
*
* Copyright (c) 1992 USL
* All rights reserved
*
TIS NOT EXCLUSIVE PUBLISHED
* SOURCE CODE OF THE USL
* The copyright notice above does not work
* evidence any actual or planned
* publication of such source code.
*
* #ident ' @(#) samples/atmi/CSIMPAPP/CSIMPCL.cbl $Revision: $1.5.
* public static char sccsid [] = ' @(#) samples/atmi/CSIMPAPP/CSIMPCL.cbl $Revision: $1.5;
*
IDENTIFICATION DIVISION.
PROGRAM-ID. CSIMPCL.
AUTHOR. DEVELOPMENT OF TUX.
ENVIRONMENTAL DIVISION.
SECTION OF CONFIGURATION.
STORAGE SECTION OF WORK.
*****************************************************
* Definitions of tuxedo
*****************************************************
TPTYPE 01 - REC.
COPY TPTYPE.
*
TPSTATUS 01 - REC.
COPY TPSTATUS.
*
TPSVCDEF 01 - REC.
COPY TPSVCDEF.
*
TPQUEDEF 01 - REC.
COPY TPQUEDEF.
*
VALUES-01 TPINFDEF-REC VALUE LOW.
COPY TPINFDEF.
*****************************************************
* Definitions log messages
*****************************************************
01 LOGMSG.
VALUE OF FILL 05 PIC X (8) ' CSIMPCL:
LOGMSG 05-TEXT PIC X (50).
01 LOGMSG-LEN PIC S9 (9) COMP-5.
*
PEAK USER-DATA-REC 01 X (75).
SEND-STRING PIC 01 X (100) VALUE SPACES.
RECV-STRING PIC 01 X (100) VALUE SPACES.
******************************************************
* Start the program with command line parameters
******************************************************
THE PROCEDURE DIVISION.
START-CSIMPCL.
MOVE ALL THE LOGMSG TO LOGMSG-LEN.
ACCEPT SEND-STRING COMMAND LINE.
DISPLAY ' SEND-STRING: "SEND-STRING.LOGMSG-TEXT, MOVE "on the road".
PERFORM DES USERLOG.PERFORM DES TPINIT.
PERFORM DES TPENQUEUE.
DISPLAY "RECV-STRING:" RECV-STRING.
PERFORM DES TPTERM.
MAKE THE PROGRAM EXIT.*****************************************************
* Now put the customer in the system.
*****************************************************
-TPINIT.
MOVING TO USRNAME SPACES.
MOVE TO CLTNAME BOXES.
MOVE TO BOXES TO PASSWD.
MOVE TO BOXES TO GRPNAME.
MOVE 0 TO DATALEN.
TPU - DIP SET TO TRUE.
*
CALL FOR ASSISTANCE "TPINITIALIZE" TPINFDEF-REC
USER-DATA-REC
TPSTATUS-REC.IF NOT OK
MOVE "TPINITIALIZE failed" LOGMSG-text
PERFORM DES USERLOG
MAKE THE PROGRAM EXIT
END-IF.-TPENQUEUE.
MOVE DOWN-VALUES TO TPQUEDEF-REC.
MOVE 'TMQUEUE' TO QSPACE-NAME IN TPQUEDEF-REC.
MOVING 'TOUPPER' TO QNAME IN TPQUEDEF-REC.
MOVE 'RPLYQ' TO REPLYQUEUE IN THE TPQUEDEF-REC.
TPTRAN SET TPQUEDEF-REC TO TRUE.
TPBLOCK SET TPQUEDEF-REC TO TRUE.
TPTIME SET TPQUEDEF-REC TO TRUE.
TPSIGRSTRT SET TPQUEDEF-REC TO TRUE.
TPQREPLYQ SET TPQUEDEF-REC TO TRUE.
TPQQOSDELIVERYNONPERSISTENT SET TPQUEDEF-REC TO TRUE.
TPQMSGID SET TPQUEDEF-REC TO TRUE.
MOVE DOWN-VALUES IN TPTYPE-REC.
MOVE 'STRING' IN TPTYPE-REC REC-TYPE.
LENGTH OF REMOVAL OF SEND-STRING TO LEN IN TPTYPE-REC.
CALL FOR ASSISTANCE "TPENQUEUE.
TPQUEDEF-REC
TPTYPE-REC
SEND-STRING
TPSTATUS-REC.
IF TPOK
MOVE 'OK TPQUEUE' LOGMSG-TEXT
PERFORM DES USERLOG
END-IF.
IF NOT OK
MOVE 'TPQUEUE failed' to LOGMSG-TEXT
PERFORM DES USERLOG
END-IF.*****************************************************
* Let TUXEDO
*****************************************************
-TPTERM.
CALL FOR ASSISTANCE "TPTERM" TPSTATUS-REC.
IF NOT OK
MOVE "TPTERM failed" LOGMSG-text
PERFORM DES USERLOG
END-IF.*****************************************************
* Saves messages in the userlog
*****************************************************
-USERLOG.
CALL FOR ASSISTANCE "USERLOG" LOGMSG
LOGMSG-LEN
TPSTATUS-REC.*****************************************************
* Request for leave
*****************************************************
EXIT-PROGRAM.
MOVE 'done' LOGMSG-TEXT.
PERFORM DES USERLOG.
STOP EXECUTION.Wayne
-
Modbus tcp read holding registers return not requested quantity
Background: I have a client using ELAU motion system - they record data with records they want to be able to read on a cRIO match with some analog FPGA data (I have digital handshaking going on for this).
LabVIEW 2010 SP1
cRIO-9074
With the help of the library of VI of MOdbus.llb OR communicate with the other system. I can open the TCP communication without problem and actually get SOME records, but not ALL registry data, I want to read.
I want to do is read the registers individual operating 330 U16 values. I know how the data are split to represent different lengths (i.e. most of the data items use 2 records number represent a 32 bit). I want just to read all of the individual records and analyze the data in another VI to convert it to other data types.
I provided the .vi MB Ethernet Master Query (poly) with the starting address for the first register, then the amount of 330. The polymorphic instance selected is "reading record keeping. The array returned by this VI via 'Holding Registers' is only 74 elements and not requested 330. I have no exception code and no error in LV. Is there some intrinsic limit, i.e. the number of Holding Registers that can be read?
I do not use the (not sure if necessary) MBAP header entry.
Thank you.
Simple solution once I dug in the series MODBUS/TCP protocol protocol documentation out there via Google.
History of the modbus function series is the limitation that carried over TCP - the maximum amount of bytes in the pack a data can be only 256 bytes. So I was limited to approximately 125 ~ records at a time.
256 bytes is 2048 bits. The use of the 16-bit registers which gives maximum 128 registers. I went with 125 followed making easier totals.
-
Request holds on an ancient source of data
I had a similar problem in this thread:
I have a CF 10 interfacing with an Oracle 11 g server application; Windows Server 2012. The original developers have different names for data sources of Test (abcdTest) and Production (abcdProd). I had tried to get the Test after being on another project for a while and received the message that the abcdProd of the data source cannot be found... it's OK, because I was connected to the Test computer. I searched my source code and for some reason, the data abcdProd source was attributed in many places in the Application.cfc. I changed all references, cleared cache, restarted the browser and tried to log in again. Same mistake. There is no reference to abcdProd in the code base, with what I am currently working. I checked with the SysAdmin gov ' t that CF Admin is configured correctly and my code must be pointing to abcdTest. But it's not. I can't do recognize abcdTest. I hope the CF server needs to be restarted. I asked in the course of the above mentioned thread and told me, "there are 50 other applications on this machine and none of them require that you need. Restarting should be provided", so unless it's the only way to fix it, I would avoid this option. Someone had this problem? What has been done to fix it? Thank you.
If you have access to and can change your application.cfc, add the following code to the beginning (after all the arguments, of course) of your onRequestStart() function:
Then, load the page with http: / / www. area. com/page.cfm? reset = true
This resets the scope of application without having to restart the server.
I would like to do a search of the entire site for "abcdProd" to ensure that it is not defined then elsewhere (you said only that it was not in application.cfc.)
HTH,
^_^
-
How to permanently remove the concurrent requests, put on hold?
Hi Hussein:
My Business division is implementing two or three tables interface 11i. The testing process has created some 6000 concurrent jobs over a period of time that are in status 'pending '. Is it possible that we can safely remove it without affecting the normal functionality?
Have you Eve met this scenario?
Kind regards
BalaHi Bala,
You can change the status of these simultaneous queries to Completed and error. You will need to update the table FND_CONCURRENT_REQUESTS (STATUS_CODE and PHASE_CODE columns). Once the status is changed, you can serve these applications using 'Serve concurrent demand and/or Manager Data' simultaneous program.
Note: 152209.1 - What are the meanings of the Codes in the STATUS_CODE and the PHASE_CODE FND_CONCURRENT_REQUESTS Table columns?
https://metalink2.Oracle.com/MetaLink/PLSQL/ml2_documents.showDocument?p_database_id=not&P_ID=152209.1Kind regards
Hussein -
Does not meet a request to shutdown or restart
MacBook Pro retina, 15-inch, late 2013 2.3 GHz Intel Core i7 running OS El Capitan worm 10.11.6, it fails to respond to a request in the Apple menu to stop or restart. I checked to see if all programs work always stop preventive action. the only way to stop the mac is to hold down the power button and force a shutdown.
Clues?
Reset the SMC and the MVRAM:
https://support.Apple.com/en-us/HT201295
https://support.Apple.com/en-us/HT204063
Any change?
Ciao.
-
installed firefox last, won ' t hold home page, will not be updated from kaspersky
I updated Firefox to worm. 40.0 and now my laptop, which is a HP with Windows 7, has all sorts of problems. I use Yahoo as my homepage, and it will not hold my homepage. He continues to go to a page of Yahoo search instead of yahoo page I use. I continue to restore, but it won't stay. I restarted Firefox, I restarted my computer and nothing works. Also Kaspersky will not update. I never had any of these problems before the update to Firefox. And the Pocket will not work on any of my three computers. Two desktop computers and laptops are all HP PC running Windows 7. I have connected to the pocket with [email protected] and have tried all the things you me in previous emails and still contributes nothing. Also have minor changes to some other software I have, but I can work around these. All computers have been checked against viruses and malware and are clean. What grit? [email protected]
PS: I tried to connect to my other accounts of Firefox and have reset password several times but always rejects password and I cannot connect. It is a completely new account, my 3rd email account. If it stops working I can't communicate with you, so how do you?
public email Edition and robots to spammers. You should get an email when someone replies to the thread.
How did you check for malware? It certainly seems malware-ish. Here's my method to track down and clean the bad Add - ons and other hijackers. I know it seems long, but it's not so bad.
(1) open the Control Panel, uninstall a program. After the loading of the list, click on the column heading "installed on" to group infections, I mean additions by date. This can help the surface elements undisclosed bundle which snuck out with some software, you have agreed to install. Beware of everything that you don't recognize / remember, since malware often uses sounding names important or innocent to discourage you remove. Out as much garbage as possible here.
(2) open Firefox page modules using either:
- CTRL + SHIFT + a
- "3-bar" menu button (or tools) > Add-ons
- in the Windows "Run" dialog box, type or paste
firefox.exe "about:addons"
In the left column, click on Plugins. Set essential and unrecognized plugins 'never enable '.
In the left column, click Extensions. Then, in case of doubt, disable (or delete, if possible) not recognized and unwanted extensions. Remember that all extensions are optional, none come with Firefox.
Often, a link will appear above at least an extension disabled to restart Firefox. You can complete your work on the tab and click one of the links in the last step.
Any improvement?
(3) check an optional parameters file called user.js in your profile (personal settings folder) folder. Firefox uses the settings in this file at startup to override your preferences since the previous session. Unless you have created this file, it may contains settings of an add-on or external software. You can check and delete the file by following the steps in this article: How to fix preferences that will not save.
If you find a file named user but not user.js, Windows can hide the extensions of file on your part. To work with files as accurately as possible, I suggest showing all file extensions. This Microsoft support article has the steps: http://windows.microsoft.com/en-us/wi.../show-hide-file-name-extensions.
(4) you can search the rest of problems with scanning/cleaning tools listed in our technical support article: Troubleshooting Firefox problems caused by malware. These scanners on request are free and take a long time to run. If they end quickly, especially if they require the payment you have a serious infection. I suggest the specialty forums listed in the article in this case.
Success?
-
The object you have requested is not currently available in Apple music in India.
"The object you requested is not currently available in the music for Apple in India." I see this error when I select an album. I'm not able to see the album. I am able to see only ablbum when I connect, but when I connect with my apple id I can't find this album.
It is not available in India, the message said.
This means that the copyright holder has no have license to distribute in India.
-
How can I request a read receipt
I recently spent of Outlook Express and Microsoft Outlook. These gave the account holder and the possibility to request notifications of individual delivery and or reading, or for all confirmations sent emails.
How do I do this in Thunderbird?
On a per email basis:
Click on 'Write' create a new email.
Write e-mail
then click on 'Options' in the upper part of the Menu bar
Select "return receipts and or Delivery Status Notification.
Click on 'send '.To set up a car always request a receipt and determine how Thunderbird handles return received:
- Tools > Options > advanced > general tab
or
- 3 menu bar icon > Options > Options > advanced > general tab
- Click on the button «Back received»
- Choose settings.
- Click OK
- Click OK to save the Options changes.
As you're new to Thunderbird, you will have all your active toolbars. Help most designates the toolbars, and if you prefer, you can view them.
See the image below:Also useful information to you help maintain a healthy Thunderbird:
-
The server request timeout expired pending request from the browser. How to fix?
After having successfully reached www.foxnews.com, trying to branch to one of the stories in the viewfinder and receive "Request Timeout".
The server has expired pending request from the browser.Reference #2.5cab3c41.1399773250.0
Using Internet Explorer I don't have this problem. How can I do this time-out to goYou can try the following steps in case of problems with web pages:
You can reload webpages and ignore the cache to refresh potentially stale or corrupt.
- Hold down the SHIFT key and click the Reload button
- Press 'Ctrl + F5' or 'Ctrl + Shift + R' (Windows, Linux)
- Press 'Command + shift + R' (Mac)
Clear the cache and cookies only from Web sites that are causing problems.
"Clear the Cache":
- Firefox/tools > Options > advanced > network > content caching Web: 'clear now '.
'Delete Cookies' sites causing problems:
- Firefox/tools > Options > privacy > "Use the custom settings for history" > Cookies: "show the Cookies".
Start Firefox in Safe Mode to check if one of the extensions (Firefox/tools > Modules > Extensions) or if hardware acceleration is the cause of the problem.
- Put yourself in the DEFAULT theme: Firefox/tools > Modules > appearance
- Do NOT click on the reset button on the startup window Mode safe
Maybe you are looking for
-
Fix ios 9.3.1 battery drain problem before I was on 8.4.1 and battery life was excellent but after updating to ios 9.3.1 autonomy got worse on my iphone 6. Apple company released please update to fix
-
OfficeJet 6100: Black ink printing
I have a yellow cartridge empty but want to print in black ink only 90% satisfied with my printing needs.
-
Hey everybody. I had wireless network problems with my Macbook Pro bought recently. I have two other Mac, a printer and an internet router cable connected to an airport base station. While other, older Macbook Pro have no problem sharing wireless wit
-
Help, INternet explorer does not work after windows update
One day, the computer automatically downloads and installs the programs that are recommended by microsoft windows. After installation, my INternet explorer does not work. It reads: Windows could not access 'ie.redirect.hp.com '.Windows received an H
-
Hi all, I have little doubt in the options of the menu. I have 3 Menu items. I need to replace the default menu items. the menus close, en_gb, en_US. A button is on my screen. My problem is: when I click on (1) scroll navigation bar: If the focus is