Jeb, da die SQLCA vor dem END-DS hinein gemogelt wurde :-)

Code:
**FREE

/IF DEFINED (PARM_SET1)

DCL-DS InParameters_Set1_Template TEMPLATE QUALIFIED;
  Company CHAR(3);
  Division CHAR(3);
  CustomerNumber CHAR(10);
  ItemNumber CHAR(10);
END-DS;

DCL-DS Parameter_Set1_Template TEMPLATE QUALIFIED;
  DCL-DS InParameter LIKEDS(InParameters_Set1_Template);
  OutParameter CHAR(130) DIM(27);
END-DS;

DCL-DS DynamicCallDS_Set1_Template TEMPLATE QUALIFIED;
  Parameters LIKEDS(Parameter_Set1_Template);
END-DS;

/UNDEFINE PARM_SET1

/ENDIF