Siebel field values are not passed to the OPA: error on WD Smoke Test
HelloI installed OPA siebel connector locally and deployed determination determination of web and server to tomcat server. The 'DS smoke Test' button works well, but the 'WD Smoke Test' does not work correctly. After the installation by clicking on the button opens a pop-up window with "page cannot be displayed".
I changed the symbolic for 'Employee' as URL:
http://localhost: 8085/siebel-web-determinations/startsession/AdminSmokeTest
(from the original one: http://localhost:8085 / siebel-web-determinations/startsession/AdminSmokeTest/en-US? user = [UserID] & caseID =, [UserID], [ObjectID], AdminSmokeTest)
This show opens the popup window and and it asks the question ' what is the text of valid user?' by clicking on it application "which is a Siebel Admin user's first name?" then the subsequesnt questions and after the last questions it shows if it is valid Siebel Admin record ot not. If the rule works correctly.
Now my questions are:
1. how the Siebel field values will be passed to the determination of the Web? Ideally result response (if that's a record valid sadmin) should have been displayed in the window pop up directly by clicking on the button 'WD Smoke Test' with the employee field values passed, instead he asks for input.
2. the field mappings are definde in the automation of the Admin-Policy-> show mappings. The field values are passed correctly to the server of determination, but how to pass for determination of the Web? The same mapping works for the determination of the Web as well?
3. If I use the old url for employee (http://localhost: 8085/siebel-web-determinations/startsession/AdminSmokeTest/en-us? user = [username] & caseID =, [UserID], [ObjectID], AdminSmokeTest) the user id is passed correctly but it is throwing an error.
4. in the Administration - policy Automation-> Web determinations it gives the following error.
[An error occurred when loading the case ID "8SIA-82CJP, SADMIN, AdminSmokeTest".
This error has been recorded and is available in the application logs.
Support and assistance please contact [email protected]].
If I change the url as before, then he asks the same questions. What is this point of view?
Thanks in advance!
Kind regards
ALIOU
ALIOU,
One of the key things to note about the OPA Web determinations for Siebel is which is needs component EAI run on the Siebel server for it to work. There is an article on this in the installation guide where there you preform a test to verify that EAI_ANON_ENU is running on the Siebel server (located on pages 12-13 on the installation guide).
1. for determinations of Web works properly, you must leave the URL token exactly as indicated in the installation guide. In addition, determinations Web use EAI (mentioned above) to pass information to the Web of Siebel determinations.
2. same as number 1.
3. again once it goes back to check that the EAI runs.
4. make sure that the user you are logged in as has the responsibility to use this point of view.
In addition to all this... once EAI works you need to check the incoming Web Service URL and point them to the location of the IAE but also change the path to the IAE in the file data-siebe - adapt .properties. Also, be sure to match the user name and password in this file for what you use to connect to Siebel with.
-Adam Starr
Tags: Oracle Applications
Similar Questions
-
Prompt dashboard value does not pass in the report
Hello
I use OBIEE 10 g. The problem is in Oracle BI answers
I have a guest orders and its report. In the prompt, in one of the column, I use sql result. The sql query is a query of sup of co related where I used the 2 tables. employee_data and employee_region. The reason to use the subquery is that there is no column data_center in employee_data table. He has records for all data_center e.g. USA, UK, IND, AUSTRALIA etc. so I used the query sub with condition that gives the result on a center of particular data (here's of the U.S.) and the output of the query of this sub is entered for the main request. And the guests works very well and gives the correct result
The sql query used for the column in the prompt (in Oracle BI answers) as
In the report, there are now 2 coulmns. -EMPLOYEE_DATA. ENAME and EMPLOYEE_REGION. DATA_CENTERSELECT EMPLOYEE_DATA.ENAME FROM EMPLOYEE WHERE EMPLOYEE_DATA.ENAME IN (SELECT EMPLOYEE_REGION.ENAME FROM EMPLOYEE WHERE EMPLOYEE_REGION.DATA_CENTER = 'USA')
I used the main column EMPLOYEE_DATA. ENAME to filter as a "guest."
The problem is that the value from the prompt is failed at the prompt of the report, what I found. Because, rather than show the result for 'USA' data_center, it also shows the other data_center (UK, IND, AUSTRALIA) data.
How to filter the condition I should use for EMPLOYEE_DATA. ENAME column in the report so that the prompt value will change to the report correctly?
Thank you
Published by: Kuldip on 21 February 2013 06:17Hi Kuldip,
If a direct column is not used in the prompt then it would not strain the direct relationship with column with guest. In your case try using a variable presentation. Define a variable presentation in the command prompt and use the presentation variable to filter the report.
Let me know if it worked.
Kind regards
Jay -
Activity Code values are not displayed in the drop-down list of choices
I added a P6 activity Code (seller) and added some code values it contains. I'm in a position successfully, choose this option in the selected columns list, but when I go to select a value from the drop down, no values are displayed.
Advice on why this happens or how to fix?
Thank you
Bill
Published by: user12451419 on 18 June 2012 10:47When you assign a code by clicking on the column, a window opens. At the top of the window, click on the view bar, and then choose filter by > all values.
-
credentials are not passed to the script that is run as a scheduled task
I create a new thread since I did not see any action on the existing, where I posted (not sure if anyone saw it because the age of the thread). For reference, see http://communities.vmware.com/message/1406190. But the main thing is the execution of a script as a scheduled task is not correctly the credentials of the Windows service account to the cmdlet Connect-VIServer. When you run this cmdlet, it throws the following error:
SE connect-VIServer: & lt; SourcePath & gt;\%APPDATA%\VMware\credstore to & lt; SourcePath & gt; \scriptname.ps1:41 tank: 17
Anyway, the rumor was that it was corrected in PowerCLI 4.0, but this doesn't seem to be the case as Alan Renouf (and now me) have pointed out. On my original message in this thread...
My two cents to Rob, Luc and Alan. I had this problem with PowerCLI 4 as well. However, I think it's sort of fixed. Here's my situation:
(1) I have an account with appropriate permissions vCenter AD service.
(2) I have run the scheduled task of options with this service AD account while connected to the server and it works of course very well.
(3) I log off.
(4) script continues to work fine until the server is restarted (which of course happens every month for Microsoft patches).
(5) to resolve what I can simply log in with my account service and connect immediately - I have not even interactively run the script to fix.
So it seems to me that connecting you must create the APPDATA % environment variable and apparently a disconnect is not clear the variable correctly or something.
My main question, that is why "Connect-VIServer" even trying to make a call to that path? Must not only do that when I call it "Get-VICredentialStoreItem"? My script is done simply:
[string]$strVCServer = "servername.domain" Connect-VIServer -Server $strVCServer
I'm not trying to save credentials as pass through must work properly and be a bit more secure.
Hi Allen,.
Yes, the problem is solved in U1. He is not related to PS 2.
Kind regards
-Angel
-
The values are not displayed in the user interface
Hello.
I use jdev 11.1.1.5
I need to refersh tha table
I had created a TPTrialBal EO with corresponding VO. I had dragged and dropped it as an adf:table
I had also created an adf:button named build., when I click on this button, some values are inserted into the TPTrialBal I need to show the value inserted in the user interface.,.
How can I do this.,.
could someone help me plsAfter update of data in the table add patialTrigger to the table component.
You can do it by doing this. In the behavior section property table contains call partial property triggers here you
adjustable from which component partial triggers this component, you can select your command button. -
What is your strategy to find errors that are not triggered by the WebService error handler?
Is there a way to underride the default functionality of WebService.as? I can't find the source code in the SDK, so I guess that this part of Flex is not Open Source.
I find that the use of Web services there are many errors that potentially happen that I can't capture in the user interface. Alternatively, let me rephrase, I couldn't find a way to capture in the user interface.
For example, the error message "Unable to load the WSDL" following occurs. Now, I could probably design a strategy all about check that the connection is still alive and these, but then I saw the other errors that occur in the WebService base classes that are all asynchronous licensees.
Is it possible to add a default handler than capures these types of errors? (They aren't catches by FaultHandlers).
I can't have a user interface that displays the large white box to end-users with a stack trace. Thank you.
[FaultString = "Unable to load the WSDL" RPC error faultCode = "Server.NoServicesInWSDL" faultDetail = "no < wsdl:service > element in WSDL to." "]
to mx.rpc.wsdl::WSDL/getService() [E:\dev\flex_3_beta3\sdk\frameworks\projects\rpc\src\mx\rpc \wsdl\WSDL.as:256]
to mx.rpc.wsdl::WSDL/getPort() [E:\dev\flex_3_beta3\sdk\frameworks\projects\rpc\src\mx\rpc\ws dl\WSDL.as:182]
to mx.rpc.soap::WebService/ http://www.adobe.com/2006/flex/mx/internal:wsdlHandler () [E:\dev\flex_3_beta3\sdk\framewor ks\projects\rpc\src\mx\rpc\soap\WebService.as:267 ]
at flash.events::EventDispatcher/dispatchEventFunction()
at flash.events::EventDispatcher/dispatchEvent()
to mx.rpc.wsdl::WSDLLoader/checkLoadsOutstanding() [E:\dev\flex_3_beta3\sdk\frameworks\projec ts\rpc\src\mx\rpc\wsdl\WSDLLoader.as:195]
to mx.rpc.wsdl::WSDLLoader/resultHandler() [E:\dev\flex_3_beta3\sdk\frameworks\projects\rpc\s rc\mx\rpc\wsdl\WSDLLoader.as:173]
at flash.events::EventDispatcher/dispatchEventFunction()
at flash.events::EventDispatcher/dispatchEvent()
to mx.rpc::AbstractInvoker / http://www.adobe.com/2006/flex/mx/internal:dispatchRpcEvent () [E:\dev\flex_3_beta3\sdk\fra meworks\projects\rpc\src\mx\rpc\AbstractInvoker.as:175 ]
to mx.rpc::AbstractInvoker / http://www.adobe.com/2006/flex/mx/internal:resultHandler () [E:\dev\flex_3_beta3\sdk\framew orks\projects\rpc\src\mx\rpc\AbstractInvoker.as:198 ]
at mx.rpc::Responder/result() [E:\dev\flex_3_beta3\sdk\frameworks\projects\rpc\src\mx\rpc\Res ponder.as:48]
at mx.rpc::AsyncRequest/acknowledge() [E:\dev\flex_3_beta3\sdk\frameworks\projects\rpc\src\mx \rpc\AsyncRequest.as:81]
to DirectHTTPMessageResponder / completeHandler ([E:\dev\flex_3_beta3\sdk\frameworks\projects\ rpc\src\mx\messaging\channels\DirectHTTPChannel.as:387])
at flash.events::EventDispatcher/dispatchEventFunction()
at flash.events::EventDispatcher/dispatchEvent()
at flash.net::URLLoader/onComplete()
I discovered the programmers, that when I do not use the debug version of the player that those mistakes should properly propagate to the error handler.
-
value is not passed to the Adder (webservice)
Hello, Ive tried to reproduce this http://zone.ni.com/reference/en-XX/help/371361K-01/lvhowto/build_web_service/ and when I run the web service, im getting the following output
As you can see, the value just displays what is entered in the http query string, the expected output should be, a must see "4", b should display 6 'and c should display the amount that is 10'.
Where did we go wrong?
Thank you
I opened your project and received the same question. Order web services work, you must connect the controls and indicators to the connector on the front panel pane. This is part of step 5 in the tutorial.
-
Instead of trigger is running, but the values are not inserted into the view
I created a view
create or replace view as select e.department_id, e.last_name, d.department_name employee e, Department d where e.department_id = d.department_id;
create or replace trigger trgg instead of inserting it on vns for each line
declare
The CNT number;
Start
Select count (*) in the cnt of employees where department_id =:new.department_id;
If cnt = 0 then
insert into employees (department_id, last_name) values(11,'nandu');
end if;
Select count (*) in the cnt of the Department where department_id =:new.department_id;
If cnt > 0 then
insert into dept (department_name) values('wrestling');
end if;
end;
/
This is the code required. .plz answer the rightcreate or replace view vns as select e.department_id,e.last_name,d.department_name from employees e,departments d where e.department_id=d.department_id; create or replace trigger trgg instead of insert on vns for each row declare cnt number; begin select count(*) into cnt from employees where department_id=:new.department_id; if cnt=0 then --insert into employees(department_id,last_name) values(11,'nandu'); insert into employees(employee_id,email,hire_date,job_id,department_id,last_name) values(207,'[email protected]',sysdate,'AC_MGR',11,'nandu'); --- Values you have to choose!! end if; select count(*) into cnt from departments where department_id=:new.department_id; if cnt>0 then insert into departments(department_id, department_name) values(11, 'wrestling'); -- department_id is needed end if; end; / -- testing with existing dept id = 10 insert into vns(department_id) values(10); SQL> select * from departments where department_id = 11; DEPARTMENT_ID DEPARTMENT_NAME MANAGER_ID LOCATION_ID ------------- ------------------------------ ---------- ----------- 11 wrestling
Requirement, you must be knowing well
Show you how the trigger must be according to your point of view and logic inside the trigger or you recreate in order to avoid the required values in the trigger body.Thank you!
-
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 -
Structure of the case: selector values are not unique
Get the error: case Structure: selector values are not unique...
With the help of producer-consumer architecture w / SW-events and comms of queue. DevSuite - LV2014
My loop of consumers use a typedef for case selection control. The typedef is an enum and the names of text for each value. All my files are in quotes and there are no duplicates in the typedef or structure of the case.
Help
JF
Jeff.F wrote:
Get the error: case Structure: selector values are not unique...
With the help of producer-consumer architecture w / SW-events and comms of queue. DevSuite - LV2014
My loop of consumers use a typedef for case selection control. The typedef is an enum and the names of text for each value. All my files are in quotes and there are no duplicates in the typedef or structure of the case.
Help
JF
I don't know what you're doing exactly what I think. Do not write text in quotes for values box. Wire the enum in the switch case, right-click on the structure of the case and select "add a case for each value.
It might be a little different because I'm teliing memory.
Ben64
-
My PowerEdge R720 started with iDRAC Initialization Error as topic above.
SWC0700: iDRAC is not ready. The configuration values are not available.
Noise of FAN after pressing F1 to continue. Please what can I do? It's my edge transport server and it is now off to find out what needs to be done. Please notify.
Been,
Network administrator,
ExecuJet Aviation Nigeria.
Hello, I'll email you to ask for the serial number. Thanks Marco
-
typed letters are not visible after the end of the custom field in editfield
class CustomEditField extends EditField {}
CustomEditField (String text) {}
Super("",Text);
}
public void layout (int width, int height) {}
Super.Layout (getPreferredWidth (), getPreferredHeight ());
setExtent (getPreferredWidth (), getPreferredHeight ());
}
public int getPreferredHeight() {}
Return super.getPreferredHeight ();
}
public int getPreferredWidth() {}
return (Display.getWidth () * 2/3);
}
}
It's my edit custom field.
When I type on this field and reached end of the field, can't see the letters after that, but I can type (the only thing is to type letters are not visible after the end of the field)
What is the solution
I'm sure that you must explicitly enable scrolling. See Manager javadocs.
In addition, you limit the scope of your field, which may also fail to scroll.
-
Select only records where the column values are not all equal to zero
Hi everyone, it seems so easy, but it has left me speechless on the research in a way that is clean, easy to achieve. I know when someone replies, I'm going to kick me. So, let's assume this is what I have:
I need an external application around it or something which will select only 'Type 1'... that is, if all months are each equal to zero, do not include the record in the result set.with mytable as ( select 'Type 1' as itemtype, 'JAN' as monthname, 0 as theval from dual union all select 'Type 1' as itemtype, 'FEB' as monthname, 1 as theval from dual union all select 'Type 1' as itemtype, 'MAR' as monthname, 5 as theval from dual union all select 'Type 1' as itemtype, 'APR' as monthname, 1 as theval from dual union all select 'Type 1' as itemtype, 'MAY' as monthname, 4 as theval from dual union all select 'Type 1' as itemtype, 'JUL' as monthname, 0 as theval from dual union all select 'Type 1' as itemtype, 'AUG' as monthname, 0 as theval from dual union all select 'Type 1' as itemtype, 'SEP' as monthname, 1 as theval from dual union all select 'Type 1' as itemtype, 'OCT' as monthname, 7 as theval from dual union all select 'Type 1' as itemtype, 'NOV' as monthname, 1 as theval from dual union all select 'Type 1' as itemtype, 'DEC' as monthname, 2 as theval from dual union all select 'Type 2' as itemtype, 'JAN' as monthname, 0 as theval from dual union all select 'Type 2' as itemtype, 'FEB' as monthname, 0 as theval from dual union all select 'Type 2' as itemtype, 'MAR' as monthname, 0 as theval from dual union all select 'Type 2' as itemtype, 'APR' as monthname, 0 as theval from dual union all select 'Type 2' as itemtype, 'MAY' as monthname, 0 as theval from dual union all select 'Type 2' as itemtype, 'OCT' as monthname, 0 as theval from dual union all select 'Type 2' as itemtype, 'NOV' as monthname, 0 as theval from dual union all select 'Type 2' as itemtype, 'DEC' as monthname, 0 as theval from dual ) select itemtype, sum (case monthname when 'JAN' then theval else 0 end) as JAN, sum (case monthname when 'FEB' then theval else 0 end) as FEB, sum (case monthname when 'MAR' then theval else 0 end) as MAR, sum (case monthname when 'APR' then theval else 0 end) as APR, sum (case monthname when 'MAY' then theval else 0 end) as MAY, sum (case monthname when 'JUN' then theval else 0 end) as JUN, sum (case monthname when 'JUL' then theval else 0 end) as JUL, sum (case monthname when 'AUG' then theval else 0 end) as AUG, sum (case monthname when 'SEP' then theval else 0 end) as SEP, sum (case monthname when 'OCT' then theval else 0 end) as OCT, sum (case monthname when 'NOV' then theval else 0 end) as NOV, sum (case monthname when 'DEC' then theval else 0 end) as DEC from mytable group by itemtype order by itemtype
In summary to get a total of zero is not an option, because I could have-15 and + 15 in different columns, in which case, the recording should be displayed.
Something as simple as... 'not the case (oct = 0 and 0 nov and dec = 0...) at the end is all it seems to me necessary. I thought to add a case for each column clause, but that seems not very effective. Ideas?
Thanks in advance!
Mark
Edit... I know not what follows will work using the MINUS operator, but my actual query is really huge, and I don't want to have to write it twice...
{code}
Select
ItemType,
sum (case monthname when "JAN" then Val else 0 end) such as JAN,.
sum (case when monthname 'FEB', then Val 0 otherwise end) by Feb.
sum (case when monthname 'MAR', then Val 0 otherwise end) like MARS,
sum (case monthname when "APR" then Val else 0 end) as APR.
sum (case when monthname 'MAY', then Val else 0 end) either.
sum (case when monthname "JUN", then Val 0 otherwise end) as JUN.
sum (case monthname when "JUL" then Val else 0 end) as JUL,.
sum (case monthname when "AUG" then Val else 0 end) as AUG.
sum (case monthname when "MS" then Val else 0 end) as MS.
sum (case monthname when "OCTS" then Val else 0 end) OCT.
sum (case monthname when "NOV" then Val else 0 end) as NOV.
sum (case monthname when 'DEC' then Val else 0 end) as DEC
FROM MyTable
Group of itemtype
less
Select
ItemType,
Jan, Feb, mar, Apr, may, June, July, August, Sept, oct, nov, dec
de)
Select
ItemType,
sum (case monthname when "JAN" then Val else 0 end) such as JAN,.
sum (case when monthname 'FEB', then Val 0 otherwise end) by Feb.
sum (case when monthname 'MAR', then Val 0 otherwise end) like MARS,
sum (case monthname when "APR" then Val else 0 end) as APR.
sum (case when monthname 'MAY', then Val else 0 end) either.
sum (case when monthname "JUN", then Val 0 otherwise end) as JUN.
sum (case monthname when "JUL" then Val else 0 end) as JUL,.
sum (case monthname when "AUG" then Val else 0 end) as AUG.
sum (case monthname when "MS" then Val else 0 end) as MS.
sum (case monthname when "OCTS" then Val else 0 end) OCT.
sum (case monthname when "NOV" then Val else 0 end) as NOV.
sum (case monthname when 'DEC' then Val else 0 end) as DEC
FROM MyTable
Group of itemtype
)
where (oct = 0 & nov = 0 and dec = 0 and jan = 0 and 0 = Feb and mar = 0
apr = 0 and may = 0 and = 0 jun and Jul = 0 and aug = 0 and Ms = 0
)
order of itemtype
{code}
Change again... OK, I guess that I am answering my own question here, but I think that by using a WITH to write the main request once clause and then selecting * twice using the MINUS operator between where the second query is where (oct = 0, etc.) is what I need. If anyone has better suggestions, please let me know! Here's the logic of nickname for what I come up with to date...
{code}
WITH mainquery as (select all)
Select * from mainquery
less
Select * from mainquery where (oct = 0, nov = 0, etc...)
{code}
Thanks again!
Mark
Published by: user455268 on March 1, 2012 19:13
Published by: user455268 on March 1, 2012 19:16Hello
You can do it with a HAVING clause:
select itemtype, sum (case monthname when 'JAN' then theval else 0 end) as JAN, sum (case monthname when 'FEB' then theval else 0 end) as FEB, sum (case monthname when 'MAR' then theval else 0 end) as MAR, sum (case monthname when 'APR' then theval else 0 end) as APR, sum (case monthname when 'MAY' then theval else 0 end) as MAY, sum (case monthname when 'JUN' then theval else 0 end) as JUN, sum (case monthname when 'JUL' then theval else 0 end) as JUL, sum (case monthname when 'AUG' then theval else 0 end) as AUG, sum (case monthname when 'SEP' then theval else 0 end) as SEP, sum (case monthname when 'OCT' then theval else 0 end) as OCT, sum (case monthname when 'NOV' then theval else 0 end) as NOV, sum (case monthname when 'DEC' then theval else 0 end) as DEC from mytable group by itemtype HAVING MIN (theval) != 0 OR MAX (theval) != 0 order by itemtype ;
If the values are all 0, then the MIN and MAX will be 0.
If the MIN or MAX is not 0, the values are all 0.This assumes that the combination (itemtype, monthname) is unique, because it is in your sample data.
If this is not the case, start with a subquery that GROUPs BY itemtype, monthname, so that when you get to the main request, this combination will be unique. -
Can not pass 9.3 - get 'you are not connected to the Internet.
I upgraded my iPhone 6 to 9.3 an hour ago, but now when trying to update my iPhone 5s I get something like "not possible to check the upgrade... «You are not connected to the Internet more» And when you search for updates on my iPad Air it says I already have the last 9.2.1. Apple has just removed 9.3?
-
Please help: why my variables are not displayed in the subtemplate?
Hi all
We use BEEP 11.1.1.6 (build 5.12.110)
We have several models of rtf and some with templates.
In this case, I declared a variable var1 in the upper part of the main model.
I also said variable var2 in the subtemplate.
In the subtemplate, I added this command:
var2 always displays normally.var1:<?xdoxslt:get_variable($_XDOCTX, 'var1')?> var2:<?xdoxslt:get_variable($_XDOCTX, 'var2')?>
var1 is always null (RC = NaN when I pass it as a parameter to the submodel)
The value appears correctly the second main folder of XML data.
Is there something wrong in my code?
Is there a reason why the variable is NULL in the first record of the main loop?
Please find attached an example with different variables and params:
https://FTS.Capgemini.com/pubpwd/66814124735400/XML_Publisher_test.zip link is valid until 2013-05-13 13:00 UTC (access with local public password)
Username: ijtzggnrz
Password: uP8YrdRPKc
I hope my explanation is clear.
Thanks in advance,
OlivierLook at the response of amri in Obtaining Variable in footer of RTF
>
Variables when declared in the body section are not available in the scope of the header/footer.
So you can't put in the body section and see the same thing in the header/footer.I think you want to have the header/footer conditional for some sets of pages. If you can explain your condition here we offer if this is possible.
>and the response of the Vetsrini in the use of variables within a foot of the RTF template
>
Footer is in a different context,If you will not be able to use the variable declared in the page inside the footer,
try to create a sample footer variable is assign a value and displays
you will be able to display that correctly...
Maybe you are looking for
-
My email will not be opened from the icon and if I get it open it freezes. I can't close except for a stop down. Any ideas?
-
X 1 carbon Lenovo camera work is not on Windows 10
After installing the drivers provided the camrey does not work on Windows Preview Build
-
Windows Update 8007371 B error code «»
I spent from Vista to Windows 7, use PCMover to help transfer. I'll have two problems (1) won't install Norton anti-virus (Norton is okay) and update of windows gives me an error code "8007371B". Any ideas? Thank you
-
How can I insert the symbol ~ (which is on my keyboard) on the letter n. As in Spain or Nina.
-
Same story as someone else... Found a 'old' 110mini of HP in the drawer, but BIOS needs a password and I never remember put a. Tried a bit, that I sometimes use and none worked. Is it possible to unlock it? My serial number [edited by Moderator seria