H BNDDIR('QC2LE')
D ERRID S 7 A IMPORT('_EXCP_MSGID')
D QSYSTEM PR extProc('system')
D cmd * value options(*string)

/free
QSYSTEM('dein cl befehl');
IF ERRID = 'CPF1234' ;

ENDIF;
------------------------------------------
spart die dusselige Längenangabe und gibt immer die CPF Nr zurück

cmd ist im Prototypen def. und braucht auch nicht mehr def. werden. Den Prototypen in eine /copy ... alles immer gleich

Robi