Auch dem CLP kannst du Parameter übergeben:

PGM PARM(&VAR)

DCL &VAR *CHAR 10