WebSphere MQ Workflow 3.4 Generic C API Test / Prototyping Tool

[prev][next][parent][TOC]

FmcjPEA - Example

Testcase
/* Example17 test case  (runtime client for activity implementation example18 ) */

FmcjGlobalConnect
  XpRc                              FMC_OK
End

FmcjExecutionServiceAllocate
  ExecutionServiceHdl               1
  XpRc                              FMC_OK
End

FmcjExecutionServiceLogon
  ExecutionServiceHdl               1
  UserId                            "USER2"
  Password                          "password"
  SessionMode                       Fmc_SM_Default
  AbsentIndicator                   Fmc_SA_NotSet
  XpRc                              FMC_OK
End

FmcjExecutionServicePEAStartUp
  ExecutionServiceHdl               1
  XpRc                              FMC_OK
End

TestTool_Sleep
  SleepTime_ms                      10000
  UserText                          "Sleep after PEA start"
  Beep                              TRUE
End

TestTool_CommentToOutput
  Comment                           "execute any activity implementation(s) now"
  ToStandardError                   FALSE
End

FmcjExecutionServiceQueryProcessTemplates
  ExecutionServiceHdl               1
  Filter                            "NAME='ContainerProcessP'"
  SortCriteria                      NULL
  Threshold                         200
  ProcessTemplateVectorHdl          2
  ShowAllObjectNames                TRUE
  XpRc                              FMC_OK
End

FmcjProcessTemplateVectorFirstElement
  ProcessTemplateVectorHdl          2
  ProcessTemplateHdl                1
End

FmcjProcessTemplateInitialInContainer
  ProcessTemplateHdl                1
  ReadWriteContainerHdl             1
  XpRc                              FMC_OK
End

FmcjProcessTemplateCreateAndStartInstance
  ProcessTemplateHdl                1
  InstanceName                      "TestInstance_1P"
  SystemGroup                       NULL
  System                            NULL
  ReadWriteContainerHdl             1
  KeepName                          FALSE
  ProcessInstanceHdl                1
  XpRc                              FMC_OK
End

FmcjExecutionServiceQueryWorkitems
  ExecutionServiceHdl               1
  Filter                            "NAME = 'Prog_A_ContainerTest_PEA'"
  SortCriteria                      NULL
  Threshold                         500
  WorkitemVectorHdl                 1
  ShowAllObjectNames                TRUE
  XpRc                              FMC_OK
End

FmcjWorkitemVectorFirstElement
  WorkitemVectorHdl                 1
  WorkitemHdl                       1
End

FmcjWorkitemStart
  WorkitemHdl                       1
  XpRc                              FMC_OK
End

TestTool_Sleep
  SleepTime_ms                      30000
  UserText                          "Sleep after Workitem start"
  Beep                              TRUE
End

FmcjExecutionServicePEAShutDown
  ExecutionServiceHdl               1
  XpRc                              FMC_OK
End

FmcjExecutionServiceLogoff
  ExecutionServiceHdl               1
  XpRc                              FMC_OK
End

FmcjGlobalDisconnect
  XpRc                              FMC_OK
End
 
/* =================================================================== */
/* Example18 test case (activity implementation  (FmcjPEA...() APIs) ) */

FmcjGlobalConnect
  XpRc                              FMC_OK
End

FmcjResultObjectOfCurrentThread
  ResultHdl                         1
End

/* ------------------------------------------------- */

FmcjPEAProgramID
  BufferLength                      100
End

FmcjPEARemoteUserID
  ProgramID                         DEFAULT
  BufferLength                      100
  XpValue                           "USER2"
End

FmcjResultRc
  ResultHdl                         1
  XpRc                              FMC_OK
End

FmcjContainerRemoteInContainer
  ProgramID                         DEFAULT
  ReadOnlyContainerHdl              1
  XpRc                              FMC_OK
End

FmcjContainerRemoteOutContainer
  ProgramID                         DEFAULT
  ReadWriteContainerHdl             1
  XpRc                              FMC_OK
End

TestTool_CommentToOutput
  Comment                           "do some container reading and writing"
  ToStandardError                   FALSE
End

FmcjContainerSetRemoteOutContainer
  ProgramID                         DEFAULT
  ReadWriteContainerHdl             1
  XpRc                              FMC_OK
End


/* ====== Alternative to Fmcj...Remote...() ======== */

FmcjPEAUserID
  BufferLength                      100
  XpValue                           "USER2"
End

FmcjResultRc
  ResultHdl                         1
  XpRc                              FMC_OK
End

FmcjContainerInContainer
  ReadOnlyContainerHdl              2
  XpRc                              FMC_OK
End

FmcjContainerOutContainer
  ReadWriteContainerHdl             2
  XpRc                              FMC_OK
End

TestTool_CommentToOutput
  Comment                           "do some container reading and writing"
  ToStandardError                   FALSE
End

/*
...
*/

FmcjContainerSetOutContainer
  ReadWriteContainerHdl             2
  XpRc                              FMC_OK
End

/* ------------------------------------------------- */

FmcjGlobalDisconnect
  XpRc                              FMC_OK
End
 

 
 

Result (activity implementation only)

C API Test Tool for MQ Workflow v31_347 Windows 95/NT: F:\FMCWINNT\BIN\FMCTJCA1.EXE
Test case: K:\FLE\EXAMPLE18
Thu Jul 16 07:54:54 1998
============================================================================
+++>
============================================================================
FmcjGlobalConnect
..........RC Report.........................................................
AcRc = FMC_OK = 0
XpRc = FMC_OK
+++OK+++
============================================================================
FmcjResultObjectOfCurrentThread
parameter:  ResultHdl = 1
..........Status Report.....................................................
ResultHdl = 0x00C128B0
============================================================================
FmcjPEAProgramID
parameter:  BufferLength = 100
..........Value Report......................................................
AcValue = "E5AAAAAEAFMC"
XpValue = Expected value missing
============================================================================
FmcjPEARemoteUserID
parameter:  ProgramID = "E5AAAAAEAFMC"  (DEFAULT)
parameter:  BufferLength = 100
..........Value Report......................................................
AcValue = "USER2"
XpValue = "USER2"
+++OK+++
============================================================================
FmcjResultRc
parameter:  ResultHdl = 1
..........RC Report.........................................................
AcRc = FMC_OK = 0
XpRc = FMC_OK
+++OK+++
============================================================================
FmcjContainerRemoteInContainer
parameter:  ProgramID = "E5AAAAAEAFMC"  (DEFAULT)
parameter:  ReadOnlyContainerHdl = 1
..........RC Report.........................................................
AcRc = FMC_OK = 0
XpRc = FMC_OK
+++OK+++
============================================================================
FmcjContainerRemoteOutContainer
parameter:  ProgramID = "E5AAAAAEAFMC"  (DEFAULT)
parameter:  ReadWriteContainerHdl = 1
..........RC Report.........................................................
AcRc = FMC_OK = 0
XpRc = FMC_OK
+++OK+++
============================================================================
TestTool_CommentToOutput
do some container reading and writing
============================================================================
FmcjContainerSetRemoteOutContainer
parameter:  ProgramID = "E5AAAAAEAFMC"  (DEFAULT)
parameter:  ReadWriteContainerHdl = 1
..........RC Report.........................................................
AcRc = FMC_OK = 0
XpRc = FMC_OK
+++OK+++
============================================================================
FmcjPEAUserID
parameter:  BufferLength = 100
..........Value Report......................................................
AcValue = "USER2"
XpValue = "USER2"
+++OK+++
============================================================================
FmcjResultRc
parameter:  ResultHdl = 1
..........RC Report.........................................................
AcRc = FMC_OK = 0
XpRc = FMC_OK
+++OK+++
============================================================================
FmcjContainerInContainer
parameter:  ReadOnlyContainerHdl = 2
..........RC Report.........................................................
AcRc = FMC_OK = 0
XpRc = FMC_OK
+++OK+++
============================================================================
FmcjContainerOutContainer
parameter:  ReadWriteContainerHdl = 2
..........RC Report.........................................................
AcRc = FMC_OK = 0
XpRc = FMC_OK
+++OK+++
============================================================================
TestTool_CommentToOutput
do some container reading and writing
============================================================================
FmcjContainerSetOutContainer
parameter:  ReadWriteContainerHdl = 2
..........RC Report.........................................................
AcRc = FMC_OK = 0
XpRc = FMC_OK
+++OK+++
============================================================================
FmcjGlobalDisconnect
..........RC Report.........................................................
AcRc = FMC_OK = 0
XpRc = FMC_OK
+++OK+++
============================================================================
FmcjReadWriteContainerDeallocate( 1 ) ended with RC = 0
FmcjReadWriteContainerDeallocate( 2 ) ended with RC = 0
FmcjReadOnlyContainerDeallocate( 1 ) ended with RC = 0
FmcjReadOnlyContainerDeallocate( 2 ) ended with RC = 0

Cleanup done by Test Tool
============================================================================
====== Test case ended normally ============================================