PGM PARM(&LIBNAME)
DCL VAR(&LIBNAME) TYPE(*CHAR) LEN(10)
/* Message to display to user */
DCL VAR(&MSG) TYPE(*CHAR) LEN(103)
/* Variables for calling QLIRLIBD API */
DCL VAR(&BYTESP) TYPE(*DEC) LEN(8) VALUE(0)
DCL VAR(&KEY1) TYPE(*DEC) LEN(8)
DCL VAR(&KEY2) TYPE(*DEC) LEN(8)
DCL VAR(&LIBSIZ) TYPE(*DEC) LEN(15 0)
DCL VAR(&LIBSIZM) TYPE(*DEC) LEN(15 0)
DCL VAR(&LIBCNT) TYPE(*DEC) LEN(15 0)
DCL VAR(&NBRVARREC) TYPE(*DEC) LEN(8)
DCL VAR(&RCVLD) TYPE(*DEC) LEN(8) VALUE(200)
DCL VAR(&ERRCODE) TYPE(*CHAR) LEN(4)
DCL VAR(&INFSTAT) TYPE(*CHAR) LEN(1)
DCL VAR(&RCVL) TYPE(*CHAR) LEN(4)
DCL VAR(&RCVVAR) TYPE(*CHAR) LEN(200)
DCL VAR(&RTVINFO) TYPE(*CHAR) LEN(16)
/* Variables for decimal to character conversion */
DCL VAR(&CHARCNV) TYPE(*CHAR) LEN(15)
/* Set up to call the API: */
对不起,您需要登录后才能查看全部详细内容
由深圳市七乘二四信息技术有限公司提供技术支持。
