ID #1122

データエリアの属性を取得

データエリアの属性を取得します。

 
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

タグ: データエリア

関連エントリー: -

最終更新: 2011-11-02 08:32
製作者:
改訂: 1.0

Digg it! Share on Facebook このレコードを印刷する 友達に教える PDF ファイルで表示する
Propose a translation for Propose a translation for
この FAQ を評価してください:

評価点数: 0 (0 件の投票)

完全に役に立たない 1 2 3 4 5 最も価値がある

このエントリーにコメントできません。