===================================================================
希望能够和使用的DataStage 朋友们一起探讨学习。QQ:154642320
e-mail:zhaofmyan@sohu.com
===================================================================
子routine:
routine名称:CallRoutine
程序:
$INCLUDE DSINCLUDE JOBCONTROL.H
JobHandle=DSAttachJob("Test_Loop_Routine",DSJ.ERRFATAL) *获得调用job Test_Loop_Routine的控制
Msg1=DSSetParam(JobHandle, "Varloop" ,Arg1) *给参数 复制
Msg2=DSRunJob(JobHandle, DSJ.RUNNORMAL) *运行job
Msg3=DSWaitForJob(JobHandle) *等待运行的job完成
JobHandle = DSPrepareJob(JobHandle) *确保job是在处于正确的状态
Ans=Msg1:Msg2:Msg3
Return(Ans) *返回值
父routine:
routine名称:rtCallChild
程序:
A=""
For i=1 To 3 Step 1
Call DSU.CallRoutine(A,i) *A为 CallRoutine返回的值
Next i
Ans=A