今度は、RCDFMTをHTMLに変換するプログラムです。どんな感じかなで、作ったので、あまり本気ではないのですが、まあまあかな?完全なものではないので、気に入ったら、ご自分で育ててください。
サンプル
ZZJOBMP
前提として必要なもの
11.10.レコード様式罫線付き印刷
作成方法
コマンドRCDFMTの中の、CLPで、以下のように、RCDFMTR2用の環境を追加します。
桁 . . . . . : 1 71 編集 TKLIB/TKSRC
SEU==> RCDFMTCL
0047.00 CALL RCDFMTI
0048.00
0049.00 /* ---- ADD FOR RCDFMTR2 -------------STR */
0051.00 CHKOBJ OUTPUT *FILE
0052.00 MONMSG CPF9800 *N CRTPF KTKUTL/OUTPUT RCDLEN(200) IGCDTA(*YES)
0053.00 CLRPFM OUTPUT
0055.00 /* ---- ADD FOR RCDFMTR2 -------------END */
0056.00
0057.00 OPNQRYF RCDFMTDP KEYFLD((WILIBR)(WIFILE)(WIRFMT)(WISTR))
0058.00 CALL RCDFMTR &POOTXT
0059.00
0060.00 /* ---- ADD FOR RCDFMTR2 -------------STR */
0061.00 POSDBF RCDFMTDP *START
0062.00 CALL RCDFMTR2 &POOTXT
0063.00 /* ---- ADD FOR RCDFMTR2 -------------END */
0064.00
0065.00 CLOF RCDFMTDP
0066.00
0067.00 DLTOVR *ALL
0068.00
0069.00 RETURN
|
RPG:rcdfmtr2.txt
コマンドRCDFMTを実行すると、ファイルOUTPUTにデータが入っています。これを、PCへダウンロードして、ブラウザで見てみてください。多分バグがあると思います。あまり気にしないでください。ははは
|