Versuch es mal so:

Code:
D PRDEF PR    extpgm('getLand')
D LAND 3

D PRDEF PI
D LAND 3
Aufruf der Prozedur mit callP getLand.