PGM PARM(&VAR &STD)
DCL VAR(&VAR) TYPE(*DEC) LEN(15 0)
DCL VAR(&STD) TYPE(*DEC) LEN(15 0)
RTVOBJD OBJ(PKMANHUSUD/VARLENPF) OBJTYPE(*FILE) +
SIZE(&VAR)
RTVOBJD OBJ(PKMANHUSUD/STDLENPF) OBJTYPE(*FILE) +
SIZE(&STD)
ENDPGM