Programmcode

D KEYGRP S LIKE(KEY)

D KEY DS
D FIRMA 1 2P 0
D ARTIKEL 10
D NUM1 11 17 0
D NUM2 18 25 0
D NUM3 26 33 0

C EVAL KEYGRP = KEY


C CALL 'TEST'
C PARM KDNR
C PARM NUM3

C *ENTRY PLIST
C PARM KDNR
C PARM NUM3

C NUM3 CABEQ *ZERO ENDE
- hier der Dezimaldatenfehler im Programm TEST