Definiere eine DS als Parameter, die kann bis 9999.
Alternativ konvertiere das Programm als ILERPG (CVTRPGSRC), dann geht's bis 32767.