Hallo Dieter

Kannste getrost verwenden, siehe hier:


ctl-opt option(*NoDebugIO:*NoExpDDS:*SrcStmt)
dftactgrp(*No)
datfmt(*ISO)timfmt(*ISO);

dcl-s DocType char(20)inz('Invoice');
dcl-s Currency char(3)inz('EUR');
dcl-s Language char(3)inz('ger');
************************************************** *******************

dcl-pi *n;
$DocType like(DocType);
$Currency like(Currency);
 $Language char(3);
end-pi;

*inlr =*on;