データエリアの属性を取得します。
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 |
PGM PARM(&DTAARANAM) DCL VAR(&DTAARANAM) TYPE(*CHAR) LEN(10) DCL VAR(&RCVVAR) TYPE(*CHAR) LEN(2048) DCL VAR(&RCVVARSIZ) TYPE(*INT) VALUE(2048) DCL VAR(&DTAARA) TYPE(*CHAR) LEN(20) + VALUE(' *LIBL ') DCL VAR(&START) TYPE(*INT) VALUE(-1) DCL VAR(&LENGTH) TYPE(*INT) VALUE(2000) DCL VAR(&ERRCOD) TYPE(*INT) VALUE(0) DCL VAR(&RTVLEN) TYPE(*DEC) LEN(15 0) DCL VAR(&RTVDEC) TYPE(*DEC) LEN(15 0) DCL VAR(&RTVLIB) TYPE(*CHAR) LEN(10) DCL VAR(&RTVTYPE) TYPE(*CHAR) LEN(10) CHGVAR VAR(%SST(&DTAARA 1 10)) VALUE(&DTAARANAM) CALL PGM(QWCRDTAA) PARM(&RCVVAR &RCVVARSIZ + &DTAARA &START &LENGTH &ERRCOD) /* 長さ */ CHGVAR VAR(&RTVLEN) VALUE(%BIN(&RCVVAR 29 4)) /* 小数点以下の桁数 */ CHGVAR VAR(&RTVDEC) VALUE(%BIN(&RCVVAR 33 4)) /* ライブラリー */ CHGVAR VAR(&RTVLIB) VALUE(%SST(&RCVVAR 19 10)) /* タイプ *DEC,*CHAR,*LGL,*DDM */ CHGVAR VAR(&RTVTYPE) VALUE(%SST(&RCVVAR 9 10)) ENDPGM |