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;