/* 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 ============================================