変更前
D #IWVAL PR 1000 EXTPROC('#IWVAL') D 32 const変更後
D #IWVAL PR 1000 EXTPROC('#IWVAL') D 32 value /* const→valueへ変更 */
変更前
D #IWSET PR 1 EXTPROC('#IWSET') D 32 const D 1000 value変更後
D #IWSET PR 1 EXTPROC('#IWSET') D 32 value /* const→valueへ変更 */ D 1000 value
変更前
D #IWOUT PR 1 EXTPROC('#IWOUT') D 10 const D 10 const D 10 value変更後
D #IWOUT PR 1 EXTPROC('#IWOUT') D 10 value /* const→valueへ変更 */ D 10 value /* const→valueへ変更 */ D 10 value
変更前
D #CHR2NUM PR 31 EXTPROC('#CHR2NUM') D 50 value D 2 0 const D 2 0 const変更後
D #CHR2NUM PR 31 EXTPROC('#CHR2NUM') D 50 value D 2 0 value /* const→valueへ変更 */ D 2 0 value /* const→valueへ変更 */
変更前
*<< 変数値獲得 >> D #IWVAL PR 1000 EXTPROC('#IWVAL') /* 削除します */ D 32 const /* 削除します */ D get_nam S 32 INZ D get_val S 1000 INZ *<< 変数値セット >> D #IWSET PR 1 EXTPROC('#IWSET') /* 削除します */ D 32 const /* 削除します */ D 1000 value /* 削除します */ D sts_set S 1 D set_nam S 32 INZ D set_val S 1000 INZ *<< 出力処理 >> D #IWOUT PR 1 EXTPROC('#IWOUT') /* 削除します */ D 10 const /* 削除します */ D 10 const /* 削除します */ D 10 value /* 削除します */ D sts_out S 1 D out_lib S 10 INZ D out_fil S 10 INZ D out_mbr S 10 INZ D out_mbr1 S 10 INZ('TMP100H1 ') D out_mbr2 S 10 INZ('TMP100H2 ') D out_mbr3 S 10 INZ('TMP100H3 ') *<< 文字列数値変換 >> D #CHR2NUM PR 31 EXTPROC('#CHR2NUM')/* 削除します */ D 50 value /* 削除します */ D 2 0 const /* 削除します */ D 2 0 const /* 削除します */ D cnv_str S 50 INZ D dec_len S 2 0 INZ D dec_plen S 2 0 INZ
変更後
D/COPY IWRPGX2/QCPYSRC,#IWRX2PRO /* 追加します */ *<< 変数値獲得 >> D get_nam S 32 INZ D get_val S 1000 INZ *<< 変数値セット >> D sts_set S 1 D set_nam S 32 INZ D set_val S 1000 INZ *<< 出力処理 >> D sts_out S 1 D out_lib S 10 INZ D out_fil S 10 INZ D out_mbr S 10 INZ D out_mbr1 S 10 INZ('TMP100H1 ') D out_mbr2 S 10 INZ('TMP100H2 ') D out_mbr3 S 10 INZ('TMP100H3 ') *<< 文字列数値変換 >> D cnv_str S 50 INZ D dec_len S 2 0 INZ D dec_plen S 2 0 INZ
変更前
*<< 変数値獲得 >> D #IWVAL PR 1000 EXTPROC('#IWVAL') D 32 const D get_nam S 32 INZ D get_val S 1000 INZ *<< 変数値セット >> D #IWSET PR 1 EXTPROC('#IWSET') D 32 const D 1000 value D sts_set S 1 D set_nam S 32 INZ D set_val S 1000 INZ *<< 出力処理 >> D #IWOUT PR 1 EXTPROC('#IWOUT') D 10 const D 10 const D 10 value D sts_out S 1 D out_lib S 10 INZ D out_fil S 10 INZ D out_mbr S 10 INZ D out_mbr1 S 10 INZ('TMP100H1 ') D out_mbr2 S 10 INZ('TMP100H2 ') D out_mbr3 S 10 INZ('TMP100H3 ') *<< 文字列数値変換 >> D #CHR2NUM PR 31 EXTPROC('#CHR2NUM') D 50 value D 2 0 const D 2 0 const D cnv_str S 50 INZ D dec_len S 2 0 INZ D dec_plen S 2 0 INZ
変更後
*<< 変数値獲得 >> D #IWVAL PR 1000 EXTPROC('#IWVAL') D 32 value /* const→valueへ変更 */ D get_nam S 32 INZ D get_val S 1000 INZ *<< 変数値セット >> D #IWSET PR 1 EXTPROC('#IWSET') D 32 value /* const→valueへ変更 */ D 1000 value D sts_set S 1 D set_nam S 32 INZ D set_val S 1000 INZ *<< 出力処理 >> D #IWOUT PR 1 EXTPROC('#IWOUT') D 10 value /* const→valueへ変更 */ D 10 value /* const→valueへ変更 */ D 10 value D sts_out S 1 D out_lib S 10 INZ D out_fil S 10 INZ D out_mbr S 10 INZ D out_mbr1 S 10 INZ('TMP100H1 ') D out_mbr2 S 10 INZ('TMP100H2 ') D out_mbr3 S 10 INZ('TMP100H3 ') *<< 文字列数値変換 >> D #CHR2NUM PR 31 EXTPROC('#CHR2NUM') D 50 value D 2 0 value /* const→valueへ変更 */ D 2 0 value /* const→valueへ変更 */ D cnv_str S 50 INZ D dec_len S 2 0 INZ D dec_plen S 2 0 INZ