Retrieve library description
It is used in a loop based on DSPOBJD *ALL *LIB OUTPUT(*OUTFILE).
It puts the library name, size, and description to your joblog.
dcl &rtnvar *char 104
dcl &rtnlen *char 4 x'00000068'
dcl &attrib *char 12 x'000000020000000500000006'
dcl &desc *char 50
dcl &size *dec (9 0)
dcl &mult *dec (9 0)
dcl &sizedec *dec (15 0)
dcl &sizechar *char 15
call qlirlibd (&rtnvar +
&rtnlen +
&odobnm +
&attrib +
x'0000000000000000')
chgvar &desc %sst(&rtnvar 29 50)
chgvar &size %bin(&rtnvar 93 4)
chgvar &mult %bin(&rtnvar 97 4)
chgvar &sizedec (&size * &mult)
chgvar &sizechar &sizedec
sndpgmmsg (&odobnm *cat ' ' *cat &sizechar +
*cat ' ' *cat &desc)
Thanks to Vern Hamberg
阅读(925) | 评论(0) | 转发(0) |
