($title_img_alt)

こちらからの投稿は、先頭に表示されているコメントへの返信になります。
UDFをCLで固定で送りたい su さん [ 1月31日(金) 15時1分 ]
質問があります。宜しくお願いします。
CLプログラムからRPGを実行したいのですが、その時にUDSを固定にしたいのです。
現状のPGMのソースでUDFは下記の通りに記載されています。
I　　　　　　　　　　　UDS　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
I　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　1　　　80LC010
I　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　9　　120LC020
I　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　13　　180LC030
I　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　19　　240LC040
I　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　33　　330LC060
I　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　40　　470LC080
I　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　48　　550LC090
I　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　62　　690LC110
I　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　70　　770LC120
I　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　126　135　LC200
I　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　288　2910LC850
I　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　292　2950LC851
I　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　296　2990LC852

これをCLで値を固定でやりたいのです。
例えば、LC010は123456とCLで決めておきたい。

できればCLのサンプルをいただきたいのですが宜しくお願いします。
RE:UDFをCLで固定で送りたい ＩＫＤ さん [ 1月31日(金) 20時42分 ]
「固定でやりたい」という意味がさっぱりわかりません。

1.　CLPで　LDAの値をセットして

2.　RPGでは　LDAの値は受取るがLDAの値は変更しない

のような意味にも取れますが

固定　........　とは?

「LC010は123456とCLで決めておきたい。」

--->　CLPでこのLDA値をセットする方法が知りたいのか
　　　　　それとも他の意味なのか?
　　　　　
このLDAは　QTEMP/MYLDA　のように決めているのですか?
やりたいことの情報が乏しいので質問の意図が
伝わりません。　
抽象的な表現ではなくもう少し言葉を尽くして
具体的に数多く表現されたほうが質問の意図が
伝わります。
　　
RE:UDFをCLで固定で送りたい ＩＫＤ さん [ 2月3日(月) 9時19分 ]
*LDA　にCLPで値をセットするのであれば

CHGDTAARA　DTAARA(*LDA　(1　8))　VALUE('12345678')

のようにします。

お名前

パスワード

メールアドレス

タイトル

ホームページ

アドレス

項目