objsizcl

objsizcl



             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

0 comments

Oldest 

Forgot Password?

No problem! Submit your e-mail address below. We'll send you an email containing your password.

Your password has been sent to:

-ADS BY GOOGLE

SearchEnterpriseLinux

SearchDataCenter

Close