Return custom results, the value of the service

Similar Questions

• Custome header - the service properties - WSDL

  Hello world
  
  We strive to communicate the BPM with OSM via WS, I am inserting some variables of a data type of any variable, the question is, how can I add the user name and password required for authentication to the OSM tab in properties of Service? Addition of an apps.context.header or something? because I added the full XML of the SOAP as a plain text user interface, but will i'me a java.lang.String can not be cast in org.w3c.dom.Element
  
  That's what I add to the apps.context.header in plain text
  
  < soapenv:mustUnderstand wsse: Security = '1' xmlns:soapenv = 'http://schemas.xmlsoap.org/soap/envelope/' xmlns:soapenc = "http://schemas.xmlsoap.org/soap/encoding/" xmlns:wsu = "http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-utility-1.0.xsd" xmlns: xsi = "http://www.w3.org/2001/XMLSchema-instance" container = "http://www.w3.org/2001/XMLSchema" xmlns:wsse = "http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-secext-1.0.xsd" >
  < wsse: UsernameToken >
  Admin of < wsse:Username > < / wsse:Username >
  < wsse:Password Type = "http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-username-token-profile-1.0#PasswordText" > password < / wsse:Password >
  < / wsse: UsernameToken >
  < / wsse: Security >
  
  --------------------------------------------
  
  also tried the jca.apps.ecx.Username = "user name".
  jca.apps.ecx.Password = "password"
  
  But has not not sent anything whatsoever at the OSM
  
  Any idea?
  
  Thnx!

  Salvation;
  Sorry for my previous answer. I edited it now. Try it again, she should run. If it does not, I will help you once again...

• Get the value based on the column names for the custom of the Webcenter content metadata field

  University Complutense of MADRID, I created a custom text metadata field.  I then activated optlist this area.  I fill the optList values, I use a view.  The view has three columns.  Let us call their ID, Key, Value.  OptList shows keys in its list.  I then create content (Content ID: MyContent) Webcenter content and choose the OptList values for my new field of metadata (MyField).

  WebCenter portal, I'm filling a selectOneChoice with MyField values in the content ID: MyContent.  Remember the previous step, the values entered in selectOneChoice lists them selected values from the field MyField optList.  The optList is filled from view.  After the user selects a value in selectOneChoice, in Javascript, I need to alert a message in this format "selected value - matching value from the view of the optList that fills MyField.

  In my opinion, only an example will be useful:

  This is a view that I created in Configuration Manager applet in Webcenter content Admin cmdlets :

  ID | State | Capital

  1. North Carolina | Raleigh

  2. California | Sacramento

  3. Illinois | Chicago

  Then I create a custom field (name: MyField).  MyField is an optList values are filled with view created above.  Internal value and the display value are the two State.  Then I have a new content with Content Id Check-In: MyContent.  To MyContent, I select these values in OptList MyField: {North Carolina, Illinois}.

  In my portal Webcenter application, I create a Taskflow presenter content.  I have set up as single content item presenter.  I attribute as content ID MyContent.  Then, in templateView, I get all the values of MyField in MyContent and display as selectOneChoice.  I created a javascript function that would get the value that the user selected in selectOneChoice.  In the view created in the Webcenter content Configuration Manager (see above), there is a value corresponding to each displayed value.  So, for the selected value, I need to get the corresponding Capital and display in my alert message.

  Starting from Javascript, how can I get the value of the Capital, since I have the status value.

  Hello.

  The idea to reach your requirement is planned:

  • Create an Assistant manage bean that will appeal as access map: #{stateUtil ['Calofironia']} (it will return Raleigh). This value will get calling GET_SCHEMA_VIEW_VALUES IDC service using RIDC in your managed bean.
  • Pass the result of #{stateUtil ["statename"]} to your JavaScript function to help

  I hope this information help you.

  Kind regards

• run the Idoc function in the data file returned by the service of GET_FILE

  Hello
  
  I'm new to this forum, so thank you in advance for any help and forgive me of any error with the post.
  
  I'm trying to force the execution of a custom Idoc function in a data file Complutense University of MADRID, when this data file is requested from the University Complutense of MADRID through service GET_FILE.
  
  The custom Idoc function is implemented as a filter of the computeFunction type. One of the datafile has appealed to my custom Idoc function:
  * < name wcm:element = "MainText" > [! - $myIdocFunction ()-] < / wcm:element > *.
  
  The data file is then downloaded with CRMI via service GET_FILE, but the Idoc function is not called.
  
  I tried to implement another filter Idoc type sendDataForServerResponse or sendDataForServerResponseBytes, that store objects cached responseString and responseBytes, personalized in order to look for any call to my function in the response object Idoc, eventually run the Idoc function and replace the output of the Idoc in the response. But this kind of filter will never run.
  
  The Idoc function myIdocFunction is executed correctly when I use WCM_PLACEHOLDER service to get a RegionTemplate (file .hcsp) associated with the data file. In this case, the fact RegionTemplate refers to the element of "MainText" data file with <!-$wcmElement ("MainText")->. But I need to make it work also with service GET_FILE.
  
  I use version 11.1.1.3.0 UCM.
  
  Any suggestion?
  Thank you very much
  Francesco

  Hello

  Thank you very much for your help and sorry for this late reply.

  Your trick to activate the complete detailed follow-up was helpful, because I found out I could somehow use the filter prepareForFileResponse for my purpose and I could also have related to the implementation of the native filter pdfwatermark. PdfwFileFilter .

  I managed to set up a filter whose purpose is to force the Idoc assessment of a predefined list of functions Idoc on the output returned by the service GET_FILE. Then I paste the code I have written, in which case it may be useful for other people. In any case, know that this filter can cause performance problems, which must be considered carefully in your own use cases.

  First set the filter in the set of filters in file .hda from your device:

  Filters @ResultSet

  4

  type

  location

  parameter

  loadOrder

  prepareForFileResponse

  mysamplecomponent. ForceIdocEvaluationFilter

  null

  1

  @end

  Here is a simplified version of the implementation of the filter:

  / public class ForceIdocEvaluationFilter implements FilterImplementor {}

  public int doFilter (workspace ws, linking DataBinder, ExecutionContext ctx) survey DataException, ServiceException {}

  Service string = binder.getLocal ("IdcService");

  String dDocName = binder.getLocal ("dDocName");

  Boolean isInternalCall = Boolean.parseBoolean (binder.getLocal ("isInternalCall"));

  If ((ctx instanceof FileService) & service.equals ("GET_FILE") &! isInternalCall) {}

  FileService fileService = ctx (FileService);

  checkToForceIdocEvaluation (dDocName, fileService);

  }

  continue with other filters

  Back to CONTINUE;

  }

  ' Private Sub checkToForceIdocEvaluation (String dDocName, FileService fileService) throws DataException, ServiceException {}

  PrimaryFile file = IOUtils.getContentPrimaryFile (dDocName);

  Ext = FileUtils.getExtension (primaryFile.getPath ());

  If (ext.equalsIgnoreCase ("xml")) {}

  forceIdocEvaluation (primaryFile, fileService);

  }

  }

  forceIdocEvaluation Private Sub (file primaryFile FileService fileService) throws ServiceException {}

  String multiplesContent = IOUtils.readStringFromFile (primaryFile);

  Replacement ForceIdocEvaluationPatternReplacer = new ForceIdocEvaluationPatternReplacer (fileService);

  String replacedContent = replacer.replace (fileContent);

  If (replacer.isMatchFound ()) {}

  setNewOutputOfService (fileService, replacedContent);

  }

  }

  ' Private Sub setNewOutputOfService (FileService fileService, String newOutput) throws ServiceException {}

  File newOutputFile = IOUtils.createTemporaryFile ("xml");

  IOUtils.saveFile (newOutput, newOutputFile);

  fileService.setFile (newOutputFile.getPath ());

  }

  }

  public class IOUtils {}

  public static getContentPrimaryFile (String dDocName) survey DataException, ServiceException {queue

  DataBinder serviceBinder = new DataBinder();

  serviceBinder.m_isExternalRequest = false;

  serviceBinder.putLocal ("IdcService", "GET_FILE");

  serviceBinder.putLocal ("dDocName", dDocName);

  serviceBinder.putLocal ("RevisionSelectionMethod", "Latest");

  serviceBinder.putLocal ("isInternalCall", "true");

  ServiceUtils.executeService (serviceBinder);

  String vaultFileName = DirectoryLocator.computeVaultFileName (serviceBinder);

  String vaultFilePath = DirectoryLocator.computeVaultPath (vaultFileName, serviceBinder);

  return new File (vaultFilePath);

  }

  public static String readStringFromFile (File sourceFile) throws ServiceException {}

  try {}

  return FileUtils.loadFile (sourceFile.getPath (), null, new String [] {"UTF - 8"});

  } catch (IOException e) {}

  throw new ServiceException (e);

  }

  }

  Public Shared Sub saveFile (String source, destination of the file) throws ServiceException {}

  FileUtils.writeFile (source, destination, "UTF - 8", 0, "is not save file" + destination);

  }

  public static getTemporaryFilesDir() leader throws ServiceException {}

  String idcDir = SharedObjects.getEnvironmentValue ("IntradocDir");

  String tmpDir = idcDir + "custom/MySampleComponent";

  FileUtils.checkOrCreateDirectory (tmpDir, 1);

  return new File (tmpDir);

  }

  public static createTemporaryFile (String fileExtension) leader throws ServiceException {}

  try {}

  The file TmpFile = File.createTempFile ("tmp", "." + fileExtension, IOUtils.getTemporaryFilesDir ());

  tmpFile.deleteOnExit ();

  return tmpFile;

  } catch (IOException e) {}

  throw new ServiceException (e);

  }

  }

  }

  Public MustInherit class PatternReplacer {}

  Private boolean matchFound = false;

  public string replace (CharSequence sourceString) throws ServiceException {}

  Matcher m = expand () .matcher (sourceString);

  StringBuffer sb = new StringBuffer (sourceString.length ());

  matchFound = false;

  While (m.find ()) {}

  matchFound = true;

  String matchedText = m.group (0);

  String replacement = doReplace (matchedText);

  m.appendReplacement (sb, Matcher.quoteReplacement (replacement));

  }

  m.appendTail (sb);

  Return sb.toString ();

  }

  protected abstract String doReplace(String textToReplace) throws ServiceException;

  public abstract Pattern getPattern() throws ServiceException;

  public boolean isMatchFound() {}

  Return matchFound;

  }

  }

  SerializableAttribute public class ForceIdocEvaluationPatternReplacer extends PatternReplacer {}

  private ExecutionContext ctx;

  idocPattern private model;

  public ForceIdocEvaluationPatternReplacer (ExecutionContext ctx) {}

  This.ctx = ctx;

  }

  @Override

  public getPattern() model throws ServiceException {}

  If (idocPattern == null) {}

  List of the functions = SharedObjects.getEnvValueAsList ("forceidocevaluation.functionlist");

  idocPattern = IdocUtils.createIdocPattern (functions);

  }

  Return idocPattern;

  }

  @Override

  protected String doReplace(String idocFunction) throws ServiceException {}

  Return IdocUtils.executeIdocFunction (ctx, idocFunction);

  }

  }

  public class IdocUtils {}

  public static String executeIdocFunction (ExecutionContext ctx, String idocFunction) throws ServiceException {}

  idocFunction = convertIdocStyle (idocFunction, IdocStyle.ANGULAR_BRACKETS);

  PageMerger activeMerger = (PageMerger) ctx.getCachedObject("PageMerger");

  try {}

  String output = activeMerger.evaluateScript (idocFunction);

  return output;

  } catch (Exception e) {}

  throw the new ServiceException ("cannot run the Idoc function" + idocFunction, e);

  }

  }

  public enum IdocStyle {}

  ANGULAR_BRACKETS,

  SQUARE_BRACKETS

  }

  public static String convertIdocStyle (String idocFunction, IdocStyle destinationStyle) {}

  String result = null;

  Switch (destinationStyle) {}

  case ANGULAR_BRACKETS:

  result = idocFunction.replace ("[!-$","<$").replace("--]", "$="">" "]");

  break;

  case SQUARE_BRACKETS:

  result = idocFunction.replace ("<$", "[!--$").replace("$="">", "-] '");

  break;

  }

  return the result;

  }

  public static model createIdocPattern ( list idocFunctions) throws ServiceException {}

  If (idocFunctions.isEmpty ()) throw new ServiceException ("list of Idoc functions to create a template for is empty");

  StringBuffer patternBuffer = new StringBuffer();

  model prefix

  patternBuffer.append ("(\\ [\\!--|)")<>

  Features GOLD - ed list

  for (int i = 0; i)

  patternBuffer.append (idocFunctions.get (i));

  If (i

  }

  model suffix

  patternBuffer.append ("") (. +?) (--\\]|\\$>)");

  String pattern = patternBuffer.toString ();

  log.trace ("Functions return Idoc model", model);

  Return Pattern.compile (pattern);

  }

  }

  public class ServiceUtils {}

  Private Shared Workspace getSystemWorkspace()}

  Workspace workspace = null;

  WsProvider provider = Providers.getProvider ("SystemDatabase");

  If (null! = wsProvider) {}

  workspace = wsProvider.getProvider ((workspace));

  }

  Returns the workspace;

  }

  getFullUserData private static UserData (String userName, cxt ExecutionContext, workspace ws) throws DataException, ServiceException {}

  If (null == ws) {}

  WS = getSystemWorkspace();

  }

  UserData userData is UserStorage.retrieveUserDatabaseProfileDataFull (name of user, ws, null, cxt, true, true);.

  ws.releaseConnection ();

  return userData;

  }

  public static executeService (DataBinder binder) Sub survey DataException, ServiceException {}

  get a connection to the database

  Workspace workspace = getSystemWorkspace();

  Look for a value of IdcService

  String cmd = binder.getLocal ("IdcService");

  If (null == cmd) {}

  throw new DataException("!csIdcServiceMissing");

  }

  get the service definition

  ServiceData serviceData = ServiceManager.getFullService (cmd);

  If (null == serviceData) {}

  throw new DataException (LocaleUtils.encodeMessage ("!")) csNoServiceDefined", null, cmd));

  }

  create the object for this service

  The service = ServiceManager.createService (serviceData.m_classID, workspace, null, Binder, serviceData);

  String userName = 'sysadmin ';

  UserData fullUserData = getFullUserData (username, service, workspace);

  service.setUserData (fullUserData);

  Binder.m_environment.put ("REMOTE_USER", username);

  try {}

  init service do not return HTML

  service.setSendFlags (true, true);

  create the ServiceHandlers and producers

  service.initDelegatedObjects ();

  do a safety check

  service.globalSecurityCheck ();

  prepare for service

  service.preActions ();

  run the service

  service.doActions ();

  } catch (ServiceException e) {}

  } {Finally

  service.cleanUp (true);

  If (null! = workspace) {}

  workspace.releaseConnection ();

  }

  }

  }

  }

• 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
  Chain of FIRSTSTR1 110-
  Chain of SECONDSTR1 111-
  String of 112 THIRDSTR1 -

  FML VIEW dependent:

  VIEWS sampview
  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

  environment variables that I put are:

  #FIELDTBLS
  #
  FIELDTBLS = sampfml, fields, Usysflds
  #
  #FLDTBLDIR
  #
  FLDTBLDIR = ${TUXDIR} / udataobj: ${APPDIR}
  #
  #VIEWDIR
  #
  VIEWDIR = ${APPDIR}
  #
  #VIEWFILES
  #
  VIEWFILES = sampview. V

  my customer code:
  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
  Hello
  Hello
  World
  VALUES BEFORE: Hello Hello World
  FML:
  DATA AFTER CONVERSION:
  Hello
  Hello
  World

  can anyone help me with this?
  
  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
  WORLD

  In 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

• Data connection to the interactive form returns no results

  I have an interactive form of Adobe with a data connection that calls a function module compatible SAP rfc.  The call works fine, but it must return a value in the data connection response.  I know that the function module is feeding the return variable and binding form field to the answer is correct, but it never shows up.  We are on Live Cycle 9.0, with SAP EHP7.  Wsdl and soap links all look good. I tried data as "ordinary" connections and "run", used the two text fields of hierarchy and directly by dragging the data finds the response to the form field.  I played with various permutations to the soap and wsdl url.  The value of the response is necessary so that the user sees the result of the action (triggered by a button on the form).  Don't know what else to try.  As I said, the call to the SAP function module works fine, it's just the answer that I can't go back to the form. Any help to fix this would be greatly appreciated.

  I finally solved the problem myself.  Looks like a bug to me.

  In my interactive form, I have a button associated with the data EXTRACT connection that calls a function module compatible rfc in SAP called Z_LEMS_EXTRACT.  This function module returns a result of string called E_MESSAGE.

  The returned E_MESSAGE is then bound to a form text field.

  The generated XML defines the link as

  Z_LEMS_EXTRACTResponse\. E_MESSAGE

  I had to manually change the xml code for

  Z_LEMS_EXTRACT\. Response.E_MESSAGE

  This was determined by referring to another interactive form that was created in a previous version of Live Cycle Designer and a previous version of SAP, he used "\Response." and worked properly.  So I applied the same coding here and it works.

• Validator do not return is not the results.

  Hi all

  I extended the StringValidator class in order to create a user name validator. When a new user is registered, the user name is validated on the server to check if it exists.

  The code is not thrown error and I know the remoteobject calls to work. The push sets the message, but the problem is that the result is not returned.

  The flow is correct?

  public class PosUsernameValidator extends StringValidator {
            
            private var userServiceRO:RemoteObject = new RemoteObject();
            private var validatorResults:Array = new Array();
            
            public function PosUsernameValidator(){
                 super();
                 userServiceRO.destination = "UserService";
                 userServiceRO.getUserByUserName.addEventListener("result", getUserByUserNameRH);
                 userServiceRO.getUserByUserName.addEventListener("fault", getUserByUserNameFH)
            }
            
            override protected function doValidation(value:Object):Array {
                 validatorResults = super.doValidation(value); 
                 return doForUserName(value);
            }
            
            private function doForUserName(value:Object):Array{
                 userServiceRO.getUserByUserName(String(value));
                 return validatorResults;
            }
            
            private function getUserByUserNameRH(r:ResultEvent, t:Object = null):void{
                 var user:User = r.result as User;
                 if(user!=null){
                      validatorResults.push(new ValidationResult(true, null, "Username error","Username already taken!"));
                 }
            }
            
            private function getUserByUserNameFH(f:FaultEvent, t:Object = null):void{
                 Alert.show(ObjectUtil.toString(f));
            }
            
       }
  

  Once the error message string from the server side, link it to property 'errorString' of any component of entry, you want to display the error on. This will give you the red border and a ScreenTip as if you used a validator. Don't forget to set the error return string to "" to clear the message once validation passes.

• I received this e-mail supposedly on apple store.   Dear customer, this mail is sent to you as a final notice.  «To avoid a suspension of your account, please allow 2 minutes for the service to the customer by clicking on the link below: confirm my accoun

  I received this e-mail supposedly on apple store: is this true?

  Dear customer,

  This email is sent to you as a final notice.

  To avoid a suspension of your account, please allow 2 minutes for the service to the customer by clicking on the link below:

  Confirm my account now»

  Thank you for choosing us.

  Sincerely,

  The customer service

  < link published by host >

  This is a phishing attempt. Do not respond. Shall not disclose any personal or financial information. You can use the address below to the suspicious message as an attachment to the Apple. [email protected]

  The link below has information to identify fraudulent emails.

  http://support.Apple.com/kb/HT4933

• Customer does not understand the purpose of the Service Packs

  I have a client and I have trouble explaining a question related to the objective of the SPs. Any comment is appreciated.

  The customer has a computer that runs an application with SP2 and creates a file on this computer. Then send the file
  a user to overseas using a computer with SP1. The user overseas to have problems with the file,
  try with another computer SP2 and everything is OK.
  I told the customer that the problem may be something in the file and it is not related to the compatibility of the SP1 - SP2. He
  insists that SP2 must be compatible with SP1. I tried to explain, Ms is not a new version, it corrects bugs etc...
  and we never talk about compatibility between SPs. SPs are not meant to create problems, it's to solve problems.
  I won't give the name of the application because it can see the post. He has now decided to roll all the computers
  back to SP1 I don't aggree with him.

  What do you think?

  Thank you.

  I think that the customer is a fool, and you need to stop doing business with him if he does not understand or accept what you say. Make sure he knows its computers run a serious security risk, and operational risk, and some programs may not work without the latest service packs, and it will be very expensive to repair.

• Default values for the service Windows 7

  I found many services, including the OEM and Microsoft have used the resources of memory (> 1.5 G) during my new machine (HP dv6) started upward.

  What are the initial start of the consumption of RAM for various editions of Windows 7? No point of comparison? I heard around 300 k was of dimensioning pro-fiere lite Microsoft.

  Whitepapers descripting the default values for Microsoft services? I found some old windows, but not on Windows 7. Major differences for these default values in editions of Windows 7?

  Best practices or procedures of building available to improve performance and safety for Windows7?

  A lot...

  Read here what services are started by default:

  http://www.blackviper.com/Windows_7/servicecfg.htm

  "A programmer is just a tool that converts the caffeine in code" Deputy CLIP - http://www.winvistaside.de/

• ORA-06504: PL/SQL: return variables of the game results or the query types do not match

  Hello!

  I have a simple object type and a proecdure in which I am trying to use it to insert into another table

  -object

  CREATE ORREPLACETYPEmt_mtg ASOBJECT

  (

  ACOL NUMBER ,

  BCOL NVARCHAR2 (100)

  );

  CREATE ORREPLACETYPEREF_MTG ASTABLEOFMt_MTG ;

  -same structure as the use of sampletbl target table in the cursor query

  create table tbl_MT_MTG

  (

  ACOL NUMBER ,

  BCOL NVARCHAR2 (100)

  );

  -procedure

  CREATE ORREPLACEINTERIORTEST_PROCEDURE1

  AS

  ref_cur sys_refcursor ;

  REFR ref_mtg ;

  BEGIN

  OPEN ref_cur FOR

  Select acol,

  BCOL

  DE sampletbl où rownum<10;

  Fetch ref_cur in bulk collectintorefr;

  Insert intotbl_MT_MTG(acol,bcol)selectacol,bcol fromtable(refr);

  commit;

  CLOSE Ref_cur;

  END;

  /

  When I run this procedure fails with

  ORA-06504: PL/SQL: return variables of the game results or the query types do not match

  ORA-06512: at "TEST_PROCEDURE1", line 10

  ORA-06512: at line 2

  Any help on this please...

  Thanks to an OLD POST below

  so perfect helped me! Thank you

  Tubby

  After 5 years of more :-)

  How to store refcursor in collection How to store refcursor in collection

• Publish the services in Lightroom: internal error? : 0:attempt to index field 'export setings' (value zero). On 10 64-bit windows. I uninstalled and reinstalled Lightroom (x 3), uninstalled and reinstalled the plugins etc, etc. Anyone with a real solution

  Hello

  I think I found the problem to which there is no solution. Lucky white Heather. This happens just as I'm building a site to which I'm now uploading - Smugmug.

  Publish the services in Lightroom: internal error? : 0:attempt to index field 'export setings' (value zero). On the 64-bit windows 10 platform: desktop. I uninstalled and reinstalled Lightroom (x 3), uninstalled and reinstalled the plugins etc, etc. Anyone with a real solution?

  Help

  Andrew

  Hi André,.

  See this similar thread: 'Services to publish' question in Lightroom

  Kind regards

  Claes

• Values of elements not FOUND after restarting the service configurations

  Has anyone seen elsewhere deliver before, I have a VCO 4.2.1 build 555 and every time we're going to restart the service, configuration items in bulk he values

  That's before the reboot/restart

  

  After the reboot

  

  If I go manually set values and resave the configuration items are the items in the vcenter. The strange thing is 1 point most of the time. Sometimes, the DVS sometimes the resource pool. Can someone tell me where these settings are stored or what could be causing this issue? The VCO is installed on a windows 2008 R2, vcenter server that we are connected 5.0.1. Any help or pointers in the right direction are welcome.

  Thank you

  Sean

  This problem has been reported before: and there is a solution: http://communities.vmware.com/message/2049507#2049507

• I can't re install Adobe Acrobat professional 7.0 on my computer.  That is to say that a qualifying product is not detected. I can't even through the use of the service line customer they provide 800-272-3623.  This is the worst ever had interactionI with

  I can't re install Adobe Acrobat professional 7.0 on my computer.  That is to say that a qualifying product is not detected. I can't even through the use of the service line customer they provide 800-272-3623.  It's the worst interactionI have ever had with a company.

  Hi joej49728017,

  I'm sorry for the inconvenience caused. But it's all just because Adobe Acrobat 7.0 is a stale version & now the activation server so that there is no.

  Please refer to the following KB doc.  Error: "Activation Server is not available. CS2, Acrobat 7, pass a hearing 3

  The link above will help you to install a special version that doesn't require activation.

  In case you still need assistance, please let us know. We will be more than happy to help you.

  Kind regards

  Nicos

• Aware of the direction of small Quiz return NaN results

  I am trying to use knowledge management to build a quiz for 3 different tracks that people can choose. My real file does not work, so I created a small example, and it does not either. Here's a screenshot of the branching view to give a sense of the flow:

  

  When I hit the quiz for the 1 branch, I answer them correctly and show the results of the quiz:

  

  As far as I can tell, it is the same for all three branches.

  Feel free to download the file and tell me where I'm wrong. This is just my first time, so I don't know there is something that I forgot...  You can find the file here: http://www.theharagans.com/captivate7/BranchingQuizTest.cptx

  Thanks in advance!

  UPDATE with a REAL SOLUTION!

  Well, my intention to have a branching quiz was to have a student take 1, some or all the (their choice) a module in multiple ways, with each track having its own quiz. My default is native in that I had the action on the last slide of quiz for each branch to go to the quiz results slide, however, if the action on the last slide of questionnaire for a branch must return to the point at which a student chooses which module they want, the quiz is not break.

  What I ended up doing was creating a button on the "menu" slide that takes the student results of the quiz. This HAS to be the last action, the student takes before they are done with the module. If the module somehow return lines ONCE the results of the quiz are displayed, the quiz to break.

  So the branching view now looks like this, and it works for several tracks taking in the iteration of the training.