ILE-RPGでsprintf関数を使う 
ILE-RPGからCの関数を呼び出すサンプルです。
TP01.rpgle
H DATEDIT(*YMD) DFTACTGRP(*NO) ACTGRP(*CALLER) BNDDIR('QC2LE') DEBUG(*YES)
D TP01 PR
D in1 10A
D in2 10A
* sprintf関数
D sprintf PR 10u 0 extProc('sprintf')
D string * VALUE
D format * VALUE OPTIONS(*STRING)
D parm1 * VALUE OPTIONS(*STRING:*NOPASS)
D parm2 * VALUE OPTIONS(*STRING:*NOPASS)
D parm3 * VALUE OPTIONS(*STRING:*NOPASS)
D parm4 * VALUE OPTIONS(*STRING:*NOPASS)
*
D PSDS SDS
D CPFMSG 7a OVERLAY(PSDS:40)
*
D QCMDEXC PR EXTPGM('QCMDEXC')
D cmdString 32702 options(*varsize)
D const
D cmdLen 15p 5 CONST
*
D TP01 PI
D in1 10A
D in2 10A
*
D cmd1 S 256a INZ(*blank)
D cmd2 S 256a INZ(*blank)
D wk01 S 128a
*
/Free
//普通にコマンド文字列を組み立てる
cmd1 = 'DSPFD FILE(' + %trim(in1) + '/' + %trim(in2) +
') OUTPUT(*PRINT)' ;
QCMDEXC(cmd1:%len(%trim(cmd1)));
// sprintfでコマンド文字列を組み立てる
wk01 = 'DSPFD FILE(%s/%s) OUTPUT(*PRINT)';
sprintf(%addr(cmd2):%trim(wk01):%trim(in1):%trim(in2)) ;
DUMP ;
QCMDEXC(cmd2:%len(%trim(cmd2))-1);
*inlr = *on ;
return ;
/End-Free
実行方法
CALL PGM(TP01) PARM(SAMPLEDB EMPLOYEE)
実行結果
WRKJOBした結果
ジョブ・スプール・ファイルの処理
ジョブ : PRIMULADSP ユーザー : PRIMULA 番号 : 123456
オプションを入力して，実行キーを押してください。
1= 送信 2= 変更 3= 保留 4= 削除 5= 表示 6= 解放 7= メッセージ
8= 属性 9= 印刷状況の処理
合計
装置／ ユーザー sﾟｰﾆﾞ 現行
OPT ファイル 待ち行列 データ 状況 数 sﾟｰﾆﾞ 部数
TP01 FIN
QPDSPFD FIN
QPPGMDMP FIN
QPDSPFD FIN
QPDSPFD P000 RDY 7 1
QPPGMDMP QEZDEBUG RDY 3 1
QPDSPFD P000 RDY 7 1
終わり
オプション 1, 2, 3, のパラメーターまたはコマンド
===>
F3= 終了 F10=ﾍﾞｬｰ3 F11= ビュー２ F12= 取り消し F22= 印刷装置
F24= キーの続き
すでに区域の最下部が表示されている。
ダンプの内容（一部）
CMD1 CHAR(256) 'DSPFD FILE(SAMPLEDB/EMPLOYEE) OUTPUT(*PRINT) '
81 ' '
161 ' '
241 ' '
VALUE IN HEX 'C4E2D7C6C440C6C9D3C54DE2C1D4D7D3C5C4C261C5D4D7D3D6E8C5C55D40D6E4E3D7E4E34D5CD7D9'X
41 'C9D5E35D404040404040404040404040404040404040404040404040404040404040404040404040'X
81 '40404040404040404040404040404040404040404040404040404040404040404040404040404040'X
121 '40404040404040404040404040404040404040404040404040404040404040404040404040404040'X
161 '40404040404040404040404040404040404040404040404040404040404040404040404040404040'X
201 '40404040404040404040404040404040404040404040404040404040404040404040404040404040'X
241 '40404040404040404040404040404040'X
CMD2 CHAR(256) 'DSPFD FILE(SAMPLEDB/EMPLOYEE) OUTPUT(*PRINT) '
81 ' '
161 ' '
241 ' '
VALUE IN HEX 'C4E2D7C6C440C6C9D3C54DE2C1D4D7D3C5C4C261C5D4D7D3D6E8C5C55D40D6E4E3D7E4E34D5CD7D9'X
41 'C9D5E35D004040404040404040404040404040404040404040404040404040404040404040404040'X
81 '40404040404040404040404040404040404040404040404040404040404040404040404040404040'X
121 '40404040404040404040404040404040404040404040404040404040404040404040404040404040'X
続く .
なにげにCMD2の文字の最後にNULL(x'00')が挿入されています
このページへのコメント
cqNqiC Fantastic blog.Much thanks again. Much obliged.