IBM Power Systems AS/400 iSeries に関する覚え書きなページです。

RPGにてライブラリを直接指定：外部PGM編集する

最終更新： rs6000 rs6000 2009年05月07日(木) 17:26:07履歴

RPGにてライブラリを直接指定：外部PGM

CALL命令で長いＰＧＭ名やライブラリを指定する場合は、D仕様書に名前を定義してCALL命令に指定すると便利です。
ここではILE-RPGにて記述しています。
SAMPLE00.RPGLE 
     H DATEDIT(*YMD/)
     FQPRINT    O    F  132        PRINTER OFLIND(*INOF)
     F                                     FORMLEN(66)
     F                                     FORMOFL(50)
     D PGM1            S             21A   INZ('PRIMULA/SAMPLE01')
     C*パラメータ初期化
     C                   Z-ADD     12.34         IN1              21 2
     C                   Z-ADD     *ZERO         OUT1             21 2
     C*サブルーチン実行
     C                   CALL      PGM1
     C                   PARM                    IN1
     C                   PARM                    OUT1
     C*印刷
     C                   EXCEPT    HDR
     C                   EXCEPT    DTL
     C*
     C                   SETON                                        LR
     C                   RETURN
     OQPRINT    E            HDR               2
     O                       UDATE         Y      8
     O                                           60 'サンプル'
     O                                          128 'PAGE.'
     O                       PAGE               131
     O          E            HDR         1
     O                                           30 '内容１'
     O                                           60 '内容２'
     O          E            DTL         1
     O                       IN1           1     30
     O                       OUT1          1     60
このエントリーをTumblrにポストClip to Evernoteこのエントリーをはてなブックマークに追加
RPGにてライブラリを直接指定：外部PGM - rs6000のWiki 先頭へ

このページへのコメント

LTJebF Major thankies for the blog article.Really thank you! Really Cool.

0
Posted by seo thing 2013年12月20日(金) 22:50:21 返信

コメントをかく


「http://」を含む投稿は禁止されています。

利用規約をご確認のうえご記入下さい
 

Wiki内検索

最近更新したページ

最新コメント

Menu

ここは自由に編集できるエリアです。

タグ

メンバーのみ編集できます