File size: 815 Bytes
9ae68e3 | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 | **free
ctl-opt dftactgrp(*no) actgrp(*caller);
dcl-pr RunDeclaredStage extpgm('RUNSTAGE');
workflowId char(64) const;
runId char(64) const;
stageId char(32) const;
manifestId char(128) const;
stageStatus char(16);
end-pr;
dcl-pi *n;
workflowId char(64) const;
runId char(64) const;
manifestId char(128) const;
end-pi;
dcl-s stageStatus char(16) inz('NOT_RUN');
// RUNSTAGE is a required external adapter, not supplied here.
// It resolves the immutable manifest, invokes the declared stage,
// and records source/destination identities and actual execution evidence.
RunDeclaredStage(workflowId : runId : 'PYTHON_PIPELINE' :
manifestId : stageStatus);
if stageStatus <> 'SUCCEEDED';
dsply ('Workflow status: ' + %trim(stageStatus));
endif;
*inlr = *on;
return;
|