Article

objsizcl

Sudhakar Kunji


             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