例えば　CRTRPGPGM　というコマンドを使用する場合、
コマンド入力画面で次の操作を行ってみてください。

1.　全体のプロンプト要求
　?CRTRPGPGM　+　[実行]　　===>　コマンド全体のプロンプト画面が表示されます。

2.　パラメータのプロンプト要求
　　　CRTRPGPGM　??PGM(QTEMP/MYPGM)　??SRCFILE(QTRSRC/QRPGSRC)　+　[実行]
　　　====>　指定パラメータがプロンプト表示されてパラメータ値を変更することができます。

3.パラメータのプロンプト表示
　　CRTRPGPGM　?*PGM(QTEMP/MYPGM)　?*SRCFILE(QTRSRC/QRPGSRC)　+　[実行]
　　　====>　指定パラメータがプロンプト表示されますがパラメータ値は変更することはできません。
　　　　　つまり、これが求めておられる機能です。パラメータの直前に文字列｢?*｣を指定すれば
　　　　　ご希望の機能を実現することができます。

DSPLIB　で出力に　*PRINT　を指定してください。
スプールの最後に表示される｢合計サイズ｣が
正確なライブラリーのサイズです。

はじめまして。

アポストロフィー（'）を指定する場合、二つ続けて入力すればいいですよ。

　例　『'』を検索する場合→『LIKE　'%''%'』
　　　『''』を検索する場合→『LIKE　'%''''%'』

Queryに限らず『'』を固定値として定義する場合、ほとんどこのルールが適用されてます。



>　皆さん始めまして
>　
>　Queryで文字フィールドからLIKEで抽出したいのですけど
>　半角で『'』を抽出する場合（文字列の最後尾に付く『'』だけ）
>　
>　を抽出する場合
>　LIKE　　　'%'　%'　　でやると
>　「　値が正しくない−カーソルはエラーを検査する位置にある。　」と表示されて抽出できませ
ん。
>　この場合に上記条件で抽出するのは不可能なのでしょうか？
>　
>　ご存知の方いらっしゃいましたら教えて下さい。
>　何分、この掲示板に初書き込みですので情報が不足して意味が不明でしたら御指摘お願い致しま
す。
>　
>　
>　
>　

DSPFD　を使って、

DSPFD　FILE(MYSRCLIB/QRPGLESRC)　TYPE(*MBRLIST)　OUTPUT(*OUTFILE)　OUTFILE(QTEMP/MBRLIST)

のように実行すると　ファイル　QTEMP/MBRLIST　が作成されます。
このファイルの　｢最終変更日付｣と｢最終変更時刻｣を読むことによって
ご希望の機能を実現することができます。
小職もずいぶん以前に　SAVCHGSRC　というコマンドを作成したことがあります。
SAVCHGOBJ　と同じ機能ですが客先などで作業した後で
SAVCHGSRC　を使って自分の会社へ変更ソース・メンバーだけを
送信するような仕組みでした。

鋭いご指摘です。
MAX_LEN　をレコード長に一致させても改善されないかどうか
お試しください。
結果をお知らせ頂ければ幸いです。

MAX_LENをレコード長に一致させてみましたが、改善されませんでした。
以下は、結果です。

1)C/400で　_Rreadnのレコード読み取りバッファにNULL
1回目　1分15秒
2回目　1分13秒

2)ILE-RPG
1回目　1分02秒
2回目　0分57秒

こちらの実験結果では、C/400での高速化を計る要因は別にありそうな
気がします。
よろしくお願いします。

通貨記号｢\｣の使用は特殊であり｢#｣とともにお勧めできませんが
｢\｣は　ASCII　などでは　｢$｣に変換されてしまいます。
そこで｢\｣の代わりに｢$｣を指定してみてください。

対象となるデータ・ベースの情報がありませんので
原因は不明ですが
対象データ・ベースにPACK数字が存在しているか
不正なフィールド値が存在しているかを
調査してみてください。
PCOMM　などで同じファイルをダウンロードすると
より原因が明確になるのではないかと思います。

ソースファルは　CCSID　=　65535　で作成しておきます。
次に　SEU　を起動したら、F13　=　セッション省略時の値の変更　を
選択してください。
「大文字入力専用」が　Y　になっていたら　N　に変更して
実行キーを押して戻ってください。
これで英小文字の入力が可能となります。
Ctrl　+　F3　で入力モードを変更することができます。

結論から申し上げますとダウンロードだけであれば何もしないでも可能となります。

このサイトでも[Source]ボタンを押すとブラウザにソースが
表示されますが、これは　HTTPサーバーから
Content-Type　が、テキスト・ファイルとしてブラウザに戻されていますので
ブラウザは警告なしに表示しているだけです。
しかし、HTML,　TXT　以外のその他の　Content-Type　のファイルの取得を
ブラウザから要求すると、例の保存ダイアログが表示されるのですが
これはブラウザの機能です。
従って、何も設定する必要はありません。
(　アクセス許可の設定は当然、必要ですが)
ただしファイルを変換するのか、あるいは無変換でバイナリで
ダウンロードするのかは　HTTP構成ファイルで設定する必要があります。

よくオープン・ソースでオブジェクトをクリックすると保存ダイアログが
表示されてダウンロードが開始される機能を見かけますが
大抵のオープン・ソースなどでは　HTTP構成で、ディレクトリーの表示を許可しているだけの
簡単なもので、配布者は何も設定も行っていません。

最後にもし、CGI　を利用してという話であれば、
CGI　で、IFS　のどこかにファイルを出力しておいてから
CGI　からは、ブラウザへ、そのファイルへのリダイレクトを戻せば
CGI　によるダウンロード機能をご希望のとおり作成することができます。
リダイレクトのサンプルは、このサイトの

http://www.as400-net.com/cl.html

の｢26.　すべてのOS/400　Ver　で印刷スプールを　PDF　化するには｣
に、あります。

WDWTITLE((*TEXT　'F3=終了')　*BOTTOM)でどうでしょうか？

ご質問の意図が不明です。
貴兄がどのような開発言語で何をしているのか
全く不明です。ご質問に際しては第三者にも理解できるよう
詳細を記述してください。

WRKOUTQ　での｢5=　表示｣　の表示を言及しておられるものと推測しますが
そうであればできません。
WRKOUTQ　で　表示ができるのは　*SCS　印刷ストリームだけです。
PDF化されるのであれば｢Spoolライター｣であれば　*SCS　をSystem　i5　の
中だけで　PDF化することができます。
試供版もありますのでお試しください。

お礼が遅くなりました。
ありがとうございました。

CPYFRMIMPFコマンドでパラメータにFLDDLM(*TAB)を指定したら良いのではないでしょうか。
または、どんさんのおっしゃているように配列にデータをセットしてＤＯ文で回して
１項目づつ取り出すのが良いのかと。
でもレコードが長すぎとあるのでもしかしたらレコード長が9999バイト超えているという事かな。
そうなるとレコードを分割しながら、ちょっと工夫がいりますね。
アドバイスにならなくてすみません。

RPG　であればレコードを外部定義として配列でオーバーレイ定義して
LOOKUP　で分割を繰り返すことができます。
以下はテストはしていませんがサンプルとして作成したソースです。
また　C/400　であれば、strtok　いう分割用の関数がありますので
もっと簡単になります。
RPG　から分割対象のフィールドのポインターをパラメータとして
渡せば、この　C/400　を使って項目を取り出すことができます。

【PPG　サンプル:　TESTTOK　】
http://218.44.135.18/QSYS.LIB/PGMRLIB.LIB/QRPGLESC.FILE/TESTTOK.MBR
------------------------------------------------------------------------------------------
-----
0001.00　H　DFTNAME(TESTTOK)　DATEDIT(*YMD/)　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
0002.00　F********　項目の分割　**************************************************　
0003.00　FDATAFL　　　　IF　　　E　　　　　　　　　　　K　DISK　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
0004.00　F**********************************************************************　
0005.00　D　DDS001　　　　　　　　E　DS　　　　　　　　　　　　　　　　　　EXTNAME(DATAFL)　　　　　　　　　　　　　　　　　　　
0006.00　D　　VAR　　　　　　　　　　　　　　　　　　　　1　　　1024　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
0007.00　D　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　DIM(1024)　　　　　　　　　　　　　　　　　　　　　　　　　
0008.00　D　CRLF　　　　　　　　　　　　S　　　　　　　　　　　　　　1B　0　INZ(X'00')　　　　　　　　　　　　　　　　　　　　　　　　
0009.00　D　LEN　　　　　　　　　　　　　S　　　　　　　　　　　　　　4S　0　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
0010.00　C　　　　　　　　　　　　　　　　　　　Z-ADD　　　　　1　　　　　　　　　　　　　M　　　　　　　　　　　　　　　　　4　0　　　　　　　
0011.00　C　　　　　　　　　　　　　　　　　　　DO　　　　　　　　*HIVAL　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
0012.00　C　　　　　CRLF　　　　　　　　　　LOOKUP　　　　VAR(N)　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　50　
0013.00　C　　　　　*IN50　　　　　　　　　IFEQ　　　　　　*ON　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
0014.00　C　　　　　　　　　　　　　　　　　　　SUB　　　　　　　1　　　　　　　　　　　　　N　　　　　　　　　　　　　　　　　　　　　　　　　　　
0015.00　C　　　　　　　　　　　　　　　　　　　EVAL　　　　　　LEN　=　N　-　M　+　1　　　　　　　　　　　　　　　　　　　　　　　　　　　
0016.00　C　　　　　LEN　　　　　　　　　　　SUBST　　　　　DDS01:M　　　　　　　ITEM　　　　　　　　　　　　256　　　　　　　　　
0017.00　C　　　　　N　　　　　　　　　　　　　ADD　　　　　　　2　　　　　　　　　　　　　M　　　　　　　　　　　　　　　　　　　　　　　　　　　
0018.00　C　　　　　　　　　　　　　　　　　　　ELSE　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
0019.00　C　　　　　　　　　　　　　　　　　　　LEAVE　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
0020.00　C　　　　　　　　　　　　　　　　　　　END　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
0021.00　C　　　　　　　　　　　　　　　　　　　END
------------------------------------------------------------------------------------------
-----
【C/400　サンプル:　TESTTOK】
http://218.44.135.18/QSYS.LIB/PGMRLIB.LIB/QCSRC.FILE/TESTTOK.MBR
------------------------------------------------------------------------------------------
-----
0001.00　#include　<stdio.h>　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
0002.00　#include　<stdlib.h>　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
0003.00　#include　<string.h>　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
0004.00　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
0005.00　#define　TRUE　　　　　　　　　0　　　　　　　　　　　　　　　　　　　　　　　　　　
0006.00　#define　FALSE　　　　　　　-1　　　　　　　　　　　　　　　　　　　　　　　　　　
0007.00　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
0008.00　int　　main(int　argc,　char　*argv[]){　　　　　　　　　　　　　　
0009.00　　　　char*　str;　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
0010.00　　　　char*　tokenPtr;　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
0011.00　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
0012.00　　　　memcpy(str,　argv[1],　16);　　　　　　　　　　　　　　　　　　　　
0013.00　　　　tokenPtr　=　strtok(str,　0x05);　　　　　　　　　　　　　　　　
0014.00　　　　while(tokenPtr　！=　NULL){/*while*/　　　　　　　　　　　　
0015.00　　　　　　printf("tokenPtr　=　%s�n",　tokenPtr);　　　　　　　
0016.00　　　　　　tokenPtr　=　strtok(NULL,　0x05);　　　　　　　　　　　　　
0017.00　　　　}/*while*/　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
0018.00　}　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
------------------------------------------------------------------------------------------
-----

伊集院博さん、IKDさん御回答ありがとうございます。
早速、御教授いただいた方法にて検証してみます。

レコード長は800〜2000程度です。複数同様のファイルがあります。
MOVEAにてテーブルに移す際に、256以上は移せず、
ダブルバイトがある為、256ずつに区切る事が出来ませんでした。
開発はRPGで行っております。
>IKDさん：RPGで付けていただいているリンクが残念ながら開けません。

DSPFD　というファイルは、

DSPFD　　　　　　FILE(&FILLIB/&FILE)　TYPE(*MBR)　+　　　　　　　
　　　　　　　　　　　　　OUTPUT(*OUTFILE)　OUTFILE(QTEMP/DSPFD)

によって生成される作業ファイルです。
従ってどのようなファイルでも構いませんので

DSPFD　FILE(MYLIB/MYFILE)　TYPE(*MBR)　OUTPUT(*OUTFILE)　OUTFILE(QTEMP/DSPFD)

のように実行すればファイル　QTEMP/DSPFD　が作成されます。
その後、コンパイルしてください。

Ajax　の記事をご評価頂きましてありがとうございます。
早速、開発を試みられるとはサスガですね。
Ajax　のその後について、いくつかご紹介しましょう。

�@図面情報を　Google　Maps　のように
　　Ajax　のライブラリーを使って図面情報をマウスのトラックポインタで
　拡大／縮小することができます。

�APOPUP-WINDOW　のブラウザ表示について
　　ご存知のように　i5　で私達がよく行う方法としての
　　親PGM　から子PGM　を　CALL　して　POPUP　を表示する方法は
　　従来の手法では　親画面が消滅して　POPUPだけが表示されてしまう結果と
　なります。
　Ajax　を使えば初期(Onload)　で　window.open　する親画面を送信してから
　データ部分だけを　Ajax　によって表示することができます。

�B妥当性検査について
　　オープン・フィールドの入力で漢字や半角文字が混在されて入力される場合は
　シフト文字を附加して初めて桁数オーバーを検出できるのですが
　Ajax　で入力値を　i5に送信して、小さな　CGI　で簡単に検査することができます。
　JavaScript　でも可能ですが、かなりの量になってしまいます。

�C5250タブ移動や　FieldExit　キーの再現について
　十字キーの動きや　FieldExit　キーで右寄せや後続文字の消去を再現しようとすると
　　JavaScript　でも可能ですが　Script　の量が大変、多くなるばかりでなく
　動作が緩慢になってしまいます。
　Ajax　によって　i5側の　CGI　であれば簡単に実現でき、パフォーマンスにも優れている
　だけでなく、目の前で数値の編集も行うことができます。
　これこそが今、流行のユーザビリティであり、米国雑誌で最初に　Ajax　+　RPG　の
　手法が紹介されたのは、このようなフィールド個別の検査の部分でした。

---　上記のように　Ajax　を使えば、今まで不可能と思われてきた機能が次々と可能となり
　　ユーザー・フレンドリーに寄与することになってくることがわかってきました。
　　これらの手法の詳細は追って順次、ライブラリーとして公開していく予定でおります。
　　お役に立てれば幸いです。ありがとうございました。

なるほどご指摘のとおり通常、使用されることに多いタイプ　Y　では
｢1　　102｣　のように入力できてしまいます。
結果として　100102　になってしまいます。
タイプ　N　も試してみましたが、やはりブランクが入力することが
できました。
調べた結果、タイプ　D　であれば、数字以外は入力することはできないようで
ご希望の機能に叶うのではないかと思いますので、お試しください。
タイプ　D　でもブランク右寄せも可能です。
ただし　｢1　　102｣　とタイプミスするのは操作員にも問題があるように
思えますが　...　。

　A　　　　　　　　　　　　JUCNO　　　　　　　　　　5D　0B　　2　12TEXT('　受注�ａ@')　

｢移行｣とは、どのような操作を想定しておられるのでしょうか　?
CPYF　や　CPYSRCF　ではメンバーそのものの変更日付は
当然、CPYF,　CPYSRCF　を行ったときの日付／時刻に変更されてしまいます。
ただしソース・メンバー内のレコードの変更日付／時刻は元のソース・メンバーの
ままで維持されています。
一方、SAVLIB,　SAVOBJ　-->　RSTLIB,　RSTOBJ　であってもファイルそのものの
変更日付／時刻は復元されたときの日付／時刻が更新されてしまいます。
ただしメンバーの変更日付／時刻は、元のとおりに維持されます。
このあたりは簡単にテストができますのでお試しください。

また、ソースの保守を検討されるのであれば、このサイトの
｢Tools｣　にある｢CHGOBJSRC｣　が参考になります。
コマンド　CHGOBJSRC　は変更のあったソース・メンバーだけを抽出するコマンドです。
たとえばあるユーザーの現地で開発を行って、帰社するときに
変更のあったソースを抽出することができます。
　
ソースを二元性に保守することは危険を伴いますが
どうしてもというのであれば、CHGOBJSRC　のようにできるだけプログラムなどによって
人的判断が加わらないようにして検索する手段を採る必要があると思われます。

少し余談になりますが弊社では累積PTF　を作成するのには
プログラムによって日付を指定して、その日付以降に変更のあったオブジェクトを
機械的に抽出するようにしています。
人的判断が加わらないようにしておかないと、人手による操作ではどうしても
漏れやミスがつきものになってしまうからです。

ODBCドライバーのサーバー・デーモンも　SBS:　QSYSWRK　の配下に
いるはずですから、ひとつひとつWRKACTJOB　で調べて
｢5=処理｣で｢10.　ジョブ・ログの表示｣で　F10キーを押して
ローレベル・メッセージを調べれば真のエラー原因が特定できると
思います。
しかし単に　Excel　にデータをダウンロードされたいのであれば
Chicago　の試供版を導入すれば無償で　14日間使用することが
できます。
PCOMM　や　C/A　でも　Excel　に　BIFFファイルとしてダウンロードすることは
できますが　15000件の制限があります。

ＩＫＤ　さん　

早速の返信ありがとうございます。ご指示のとおり、JOBを調べてみたのですが、
「QSYSのサブシステムQUSRWRKのジョブ214398/QUSER/QZRCSRVSがXXXXに開始された。ジョブXXXXに
システムにいられました。
クライアントからのユーザーQSECOFRがサーバに接続された。スレッド　X'0000000000000001’のASP
グループは*NONEに設定されました。」

というメッセージが表示されました。
当方には全く意味がわかりません。。。そもそもAS400はODBCでの接続をできる
端末をサーバ側で制御しているのでしょうか？そのあたりが確認できればと考えております。

そんなに難しい仕組みではないと思います。
まだ最初に、RCVMSG　コマンドは自分のメッセージだけでなく
他の任意のメッセージ待ち行列を監視することができます。
次にすべてのメッセージ待ち行列は　ライブラリー　QSYS　に
配置されています。
このことからすべてのメッセージ待ち行列の中で
活動中のものを　LOOP　で検索して　待機時間*MAX　で　RCVMSG　によって監視する
CLP　を次々とバッチ投入すれば目的の処理は可能です。
ただソフトウェア製品となると、ひとつのプログラムの中で
マルチスレッドで監視用スレッドを立ち上げるようにしないと
不細工であり、管理が面倒になります。

簡単な例で考えるとバッチ投入した　JOB　を別の対話式JOB　で
RCVMSG　*MAX　で監視するプログラムなら簡単に作れます。
これの複数のケースですから、これくらいの監視システムなら
簡単に自作できると思います。
例えば　MSGW　になったJOB　が発生した場合、あなたの　PCに
Windows　ダイアログのメッセージを送るようにすれば
明確に目立った処置となります。

ＩＫＤさん　

RCVMSGを使用すればよろしいのですね。
早速試させていただきます。

ありがとうございました。

｢ActiveXコンポーネントはオブジェクトを作成できません｣という
エラー・メッセージは，そのメソッドの基となる　OLEコントロールが
存在していない、つまりはレジストリに正しく登録されていないことを
意味しています。
エラー行のOLEコントロールがそのPC　に正しく登録されているか
ご確認ください。
極端な場合ですが、OLEコントロールを使用するモジュール(EXE,　LIB,　OCX,　...)
をインストーラを使わずにファイル・コピーだけで導入した場合はレジストリへの登録が
行われませんので、このようなエラーが発生します。
インストーラは　OLEコントロールをレジストリに登録も行いますので
インストーラによる正しい導入が必要となります。
Windows　　がOLEコントロールをレジストリに探しに行ったところ
登録が見つからないので上記のエラーとなっています。
Office　の再導入によって解決するとは断定することはできません。
エラー行で指定している　OLEコントロール(ActiveX　など)　を
お調べください。

ＩＫＤさん、レスありがとうございます。

＞エラー行で指定している　OLEコントロール(ActiveX　など)

というのは、今回の場合だと、“ADODB.Recordset”になるのでしょうか？

ちなみに、このことを指しているのだとすると、レジストリ内を検索した結果が以下のようになると解釈し
てもよろしいのでしょうか？

　・正常に動作する端末　…　参照設定で指定したVersionのものが見つかる
　・エラーになる端末　　…　見つからない（若しくは違うVersionのは見つかる）

また、MDACの最新版のインストールで解決する可能性があるのではないかと思ったのですが、可能性はない
でしょうか？

何れにしても、エラーが発生しているのは客先の端末ですので、調査は月曜日になるのですが…。

EnterpriseServer　に限らず　Webサーバー側から
WinPCコマンドを実行できるコマンドはありません。
もし、それが一般的に可能であったとするとWindows　の
セキュリティ・ホールとなってしまうからです。

■　STRPCCMD　について
　　　STRPCCMD　は　5250エミュレータのクライアント・モジュール上で
　　　C/Sモデルとして実行されていますので、一般のWebでは使用することは
　できません。

■　RUNRMTCMD　について
　　　STRPCCMD　に代わるコマンドとして　RUNRMTCMD　がありますが
　　　RUNRMTCMD　は、

　　　・WinPCのユーザー，パスワードを必要とするが、Windows　のユーザー，
　　　パスワードは　HTTPプロコルでは取得できない。

　　　・RUNRMTCMD　のユーザー名は　10バイト以下の制限がある。

　　の理由により実用的ではありません。

■その他の解決方法について
　しかしWeb化にあたり、STRPCCMD　が業務に組み込まれているユーザー様が　
　あるのも事実です。ActiveXコントロール(OCX)　を使えば容易に実現できますが
　　この場合、ActiveX　のダウンロードを促すダイアログが表示されてしまいます。
　Webでダイアログによる判定が必要となると多くのユーザーは不安を感じますので
　別の方法を現在、調査しいております。
　しばらくお待ちくださいますようお願い申し上げます。

どのような障害の解決においてもエラーになるというだけでは、
原因を特定することはできません。
エラー・ダイアログが表示されているのであれば
ディバッグ・ボタンを押せば原因の追求の手助けになりますが
どのような操作をして、どのようなエラーになるのか
詳細をお知らせください。

また、Excelへのダウンロードであれば　Chicago　が非常に
操作も簡単です。弊社の立場としまして　Chicago　の無償試供版を
お試しになることをお勧め致します。

http://www.officequattro.com/jpn/chicago.html

結論から申しますとありません。
　WRKUSRPRF　の　｢3=コピー｣を選択しても｢ユーザーのコピー｣という表題には
コマンド名が示されていないことから、この機能はコマンドではないことがわかります。
次に　CRTDUPOBJ　でもオブジェクト・タイプ　*USRPRF　は許可されていません。
OS400　V5R4M0　API　にも　SECURITY　の領域にはユーザー・プロフィールのコピーという
機能は見つかりませんでした。
また米国サイトの質問コーナーにも、これに関する質問やテクニックは
見つかりませんでした。
機能を限定するのであれば　API　を使ってコピー元のユーザー・プロフィールの設定値を
検索して　CRTUSRPRF　を内部で実行するような　CLP　を作成することは可能ですが
大量でなければWRKUSRPRF　のコピー機能を使われたほうが早いのではないかと思います。

一旦、作業ファイルへ出力するようにして、そのときに
0F0E　が見つかればスペースに変換するようにしてはいかがでしょうか　?
例えば、次のような記述となります。

-----------------------------------------------------------------------------
D　AR　　　　　　　　　　　　　　S　　　　　　　　　　　　　　1　　　　DIM(80)　　　　　　　　　　　　　　　　　　　　　　　　　　　
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
C　　　　　X'0F0E'　　　　　　　SCAN　　　　　　DATA:1　　　　　　　　N　　　　　　　　　　　　　　　　　4　0　　　　50　
C　　　　　*IN50　　　　　　　　　IFEQ　　　　　　*ON　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
C　　　　　　　　　　　　　　　　　　　MOVEA　　　　　DATA　　　　　　　　　　AR　　　　　　　　　　　　　　　　　　　　　　　　　　
C　　　　　　　　　　　　　　　　　　　MOVEA　　　　　'　　'　　　　　　　　　　AR(N)　　　　　　　　　　　　　　　　　　　　　　　
C　　　　　　　　　　　　　　　　　　　MOVEA　　　　　AR　　　　　　　　　　　　DATA　　　　　　　　　　　　　　　　　　　　　　　　
C　　　　　　　　　　　　　　　　　　　END　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
-----------------------------------------------------------------------------

IBM　HTTP　Server　powerd　by　Apache　にネットワークだけの
接続でログイン　=　Basic認証　を実現するのは難しいと
思います。

Basic認証とは　HTTPサーバーがブラウザの要求に対して

HTTP/1.1　401　Authorization　Requird　

という応答を返すことによって
ブラウザがログイン・ダイアログを表示するという仕組みです。
ログインを使えば、サイン・オンの代わりとして
そのユーザー・プロフィールで　CGI　を開始することができ、
オブジェクトへのアクセス権限も　5250エミュレータのときと
同じユーザー環境で動作させることができるからです。
この仕組みのためにはログインしたユーザー・プロフィールによって
仮想的なユーザー環境をユーザーAPIによって生成する必要が
ありますが、残念ながら　IBM　Apache　には、そこまでの
機能はないと予想されます。
これは　HTTP　Server　powerd　by　Apache　が単に　Apache　を
OS400　に　PORTING　しただけに過ぎないからです。
弊社　HTTP　サーバー　:　Alaska　のように、Basic認証によって
仮想ユーザー環境を生成しようとすると、HTTPサーバー開発者が
相当、OS400　に精通していなければできません。
　
一般の　Apache　では独自のパスワード・ファイルを作成することによって
Basic認証が可能となります。
ご存知のように　IBM　Apache　では　*ADMIN　の接続であれば
Basic認証のログイン・ダイアログが表示されます。
ご質問を受けて　IFS　の権限を変更することによって
Basic認証させることが可能かどうか実験してみましたが
IFS　に権限を設定しても、ほとんどが無視されてしまい
*EXCLUDE　が効いていないことがわかりました。
これは不思議であるとともに非常に危険な状態であると思います。
ローカル・アクセスでは　IFS　の機密保護は効果を発揮しますが
肝心の　Webアクセスでは　*EXCLUDE　でもアクセスできてしまい、
これは　Alaska　でも同じ現象でした。

Alaska　では至急に　*PUBLIC　*EXCLUDE　の場合は
IFS　の権限ユーザーのみのアクセスに制限し、
Basic認証を要求するように改訂致します。
このようにすればIFSを設定するだけで、任意の静的な　IFS　を
ホーム・ページとしてアクセスするだけで
ログインが使用可能になるからです。

IBM　Apache　に関しては新たな情報がわかれば
お知らせ致します。
　

なるほど、CGI　での　CSVをダウンロードさせようとすると
そのような手順になると思います。
EnterpriseServer　であれば、SENDSTMF　というプロシージャーが
用意されていますので、CGI　のレスボンスとして

　CHARSET("Shift_JIS")
　CONTENT_TYPE("CSV")
　SENDSTMF("MYFILE")　　<---(保管したCSVを直接、送信)

　という手順で、ユーザーがダウンロードのために
　クリックする手順を無くすことができます。
　ただし現状では　CPYFRMIMPF　を行うプロシージャーは用意されて
　いませんので、CPYFRMIMPF　も行うプロシージャーとして

　DWNLOAD　プロシージャーなるものを　Ver5.0　に追加しておきたいと
　思います。
　良いヒントをありがとうございました。

　　　　　　　　　　　　　　　　　　　　|　　　　DDM　ファイル　　　　　　　　　　|　　　　　　　　　FTP
=========================================================================================
　受信速度　　　　　　　　　　　　　　　|　速い　　　　　　　　　　　　　　　　　　　　　　|　　　速い
　ログ　　　　　　　　　　　　　　　　　　　|　ジャーナル　　　　　　　　　　　　　　　　|　ジャーナルまたは出口プログラム
　信頼性　　　　　　　　　　　　　　　　　|　高い　　　　　　　　　　　　　　　　　　　　　　|　高いとは言えない場合もある
-----------------------------------------------------------------------------------------

　速度はいずれもベースとなる通信に依存することになります。
　また対象となる　D/B　が数多くある場合は　DDM　を常駐させておくと
　D/B　への入出力のパフォーマンスが低下する要因となります。
　(その都度、DDMを作成するのであれば、この問題はありません。)
　FTP　では、文字コードが正しく伝わるか疑問がある場合も考えられます。
　BACKUP　や同期を取りたいのであれば　DDM　が非常に簡単で信頼性も高く、お勧めすることが
　できます。

現存するすべての　HTTPサーバーには、ダウンロードの機能は
ありますが、アップロードの機能はありません。
HTTPサーバーが簡単にアップロードをサポートしているとなると
それは重大なセキュリティ・ホールとなってしまうからです。
原理的には，専用の　CGI　を開発すればアップロードに
耐用することもできますが、HTTPプロトコルを理解した上で
CGI　側での工夫が必要となります。
Alaska　自身もやはりアップロードの機能はありませんが
別製品、HitPack　によってアップロードが可能となります。

ILE　の場合は関数(プロシージャー)　も、スタックのひとつになります。
スタック上、プログラムとスタックの区別はありません。
従ってILE　の場合は、すべてのスタックを検索する必要があります。

ADDJOBSCDE　や　SBMJOB　等によってバッチ投入したJOB　の結果は
QSYSOPR　に報告するのが最も簡単です。
下記をご参照ください。

http://www.as400-net.com/cl.html
5.　バッチジョブでも対話式でもメッセージを正しく通知するには？

>　プログラム内で実行中の端末ID情報を知るには？

RPG/ILEでは
DNAME+++++++++++ETDSFROM+++TO/L+++IDC.KEYWORDS++++
D　　　　　　　　　　　　　　　　SDS　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
D　　PGMNAME　　　　　　　　　　*PROC
D　　WSID　　　　　　　　　　　　　　　　　244　　　　253
D　　USER　　　　　　　　　　　　　　　　　254　　　　263
D　　JOBNBR　　　　　　　　　　　　　　　264　　　　269

CLでは
DCL　　　　　　　　VAR(&WSID)　　　TYPE(*CHAR)　LEN(10)
DCL　　　　　　　　VAR(&USER)　　　TYPE(*CHAR)　LEN(10)
DCL　　　　　　　　VAR(&JOBNBR)　TYPE(*CHAR)　LEN(6)　
RTVJOBA　　　　JOB(&WSID)　　　USER(&USER)　NBR(&JOBNBR)

iMagagine　をご覧頂きましてありがとうございます。

AJX002　は　EnterpriseServer　の　RPGエンジン(RPGENGINE5)　というサービス・プログラム(*SRVPGM)　を
バインドしているサンプルです。
これは読者に実行原理をよりシンプルにわかりやすくするためです。
一般に　CGI　をコンパイルするときは　CRTBNDRPG　ではなく
CRTRPGMOD　+　CRTPGM　でサービス・プログラム(*SRVPGM)　をバインドします。
RPGSEND　は　RPGエンジン内に定義されているプロシージャーです。
また　CRTPGM　では　ACTGRP(*NEW)　でコンパイルしなければなりません。
サービス・プログラムとは　Windows　の　DLL　に相当するもので
RPGエンジンではなく　System　i　のみで　CGI　を開発するのであれば
QHTTPSVR/QTMHCGI　という　*SRVPGM　をバインドする必要がありますが
QTMHCGI　では　HTML　からの変数を読み取るためのデコードやパースといった機能は
ありませんので、独力で　CGI　を開発するとなると、特に漢字の入力等には
莫大な労力を必要とします。
このため　IBM　は　(米国では)　CGIDEV2　というフリーの　*SRVPGM　を公開しており
多くのユーザーがこれを利用しています。
原理を学習だけであれば　QTMHCGI　を利用して非常に簡単なサンプル　CGI　を開発することが
できると思います。
Ajax　は　CGI　や　Web開発のさらにその先にある技術です。
簡単に言えば　Ajax　とは　対話式の　HTMLインターフェースを実装する技術です。
Ajax　の登場によってＣ／Ｓ型の製品は不要となってしまうでしょう。
Web開発の基礎はまだまだ　System　i　のユーザーによって理解されていない部分が
多いようですので機会があれば、ご紹介したいと思います。

http://www.as400-net.com/database.html　にある、

19.　データ・ベースをCSV形式に変換して共有フォルダーにコピーするには？

を参考になさってください。
IFS　と　DB2/400　のあいだの移行には、まだ問題があります。
直接、C/400関数を　RPG　から起動したほうが確実で安全です。
近日中に　RPG　による　IFSファイル　の処理を記述致します。

ルーターを再起動しましたので現在は　PING　も
通りますし、ご使用になれます。
申し訳ございませんでした。

RCVMSG　で　RMV(*YES)　を指定することになると思います。

http://www.as400-net.com/cl.html

｢14.　不要なメッセージ・ログを出さないようにするには？｣
を参考にしてください。

残念ながらIBM　によって今では廃止されてしまっています。
｢適用業務画面プログラミング｣の手引きは　V3R2M0　が
最後です。CDを入手して頂くしか方法はありません。
他のマニュアルもそうですが　OS400　API　等の詳細なマニュアルが
日本語化されていたのは　V3R2M0/V3R7M0　が最後です。
実は日本IBM　でも公開されているマニュアルは一部であり
米国IBM　のサイトであれば、すべてのマニュアルが揃っています。

日本語で*PNLGRP　の仕様を参照する手段は現在ありませんので
今後このサイトで紹介していきたいと思います。

作ったことがあります。
けっこう、難しい。普通は、組めません。
CALL_XXXXX
PARM
PARM

すみません。自己解決しました。

>　例えば、「WRKSPLF」コマンドにてオプション「２」を入れて実行ボタンを押すと、パラメータ画
面
>　が表示されますが、通常「F１０」を押さないと出てこないパラメータ（例：印刷装置）まで、既
に
>　表示されています。
>　
>　この機能をパネルグループで実現したいのですが、可能でしょうか。CHGPLFAコマンドをパネルグ
ル
>　ープ内で起動し、同じようなプロンプト画面をだしたいのですが、、、。
>　
>　どなたかご存知のかたいらっしゃいましたら、ご教示ください。
>　
>　支離滅裂な文章ですみません、、、。

某社の研修はハードを売るためです。
まともに信じると、一気にＤＩＳＫ使用率が上がります。
----------------------------------------------------
逆に言えば、ＤＩＳＫ使用率を下げる事がなりより優先します。
理由は省略します。
裏技探しは、やめたほうが良い。

EnterpriseServer　では　TODIGIT　という名前のサブルーチンが
提供されています。
AutoWeb　や　TONAKAI　では通常の　CGI　のように文字−＞数字の変換を
全く考慮する必要はありませんが、CGI　では確かに必要となります。
以下の　TODIGIT　のソースを示します。
プロシージャーにすれば関数のように利用することもできます。


ソースは　http://218.44.135.18/QSYS.LIB/PGMRLIB.LIB/QRPGLESRC.FILE/TODIGIT.MBR


0001.00　C******************************************************　　　　　　　　　　　　　　　
0002.00　C　　　　　TODIGIT　　　　　　　BEGSR　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
0003.00　C******************************************************　　　　　　　　　　　　　　　
0004.00　C*　　文字　CHR30　の値を数字の　DIGIT　(30,5)　に置換えます。　　　　　　　　　　　　　　　
0005.00　C*ﾗ　例　ﾝ　----------------------------------------------　　　　　　　　　　　　　　　
0006.00　C*　　　　　　　　　　　　　　　　　　MOVEL　　　　　MYCHR　　　　　　　　　CHR30　　　　　　　　　　　　　　　　　　　　　
0007.00　C*　　　　　　　　　　　　　　　　　　EXSR　　　　　　TODIGIT　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
0008.00　C*　　　　　　　　　　　　　　　　　　Z-ADD　　　　　DIGIT　　　　　　　　　MYDIGIT　　　　　　　　　　　　　　　　　　　
0009.00　C*-----------------------------------------------------　　　　　　　　　　　　　　　
0010.00　CSR　　　　　　　　　　　　　　　　　MOVE　　　　　　*BLANKS　　　　　　　FGO　　　　　　　　　　　　　　　1　　　　　　　
0011.00　CSR　　　　　　　　　　　　　　　　　Z-ADD　　　　　0　　　　　　　　　　　　　DIGIT　　　　　　　　　　　　3005　　　　　
0012.00　CSR　　　'　'　　　　　　　　　　　CHECKR　　　　CHR30　　　　　　　　　SIZE#　　　　　　　　　　　　　4　0　　　　　
0013.00　CSR　　　SIZE#　　　　　　　　　IFGT　　　　　　0　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
0014.00　CSR　　　1　　　　　　　　　　　　　DO　　　　　　　　SIZE#　　　　　　　　　CNT　　　　　　　　　　　　　　　4　0　　　　　
0015.00　CSR　　　1　　　　　　　　　　　　　SUBST　　　　　CHR30:CNT　　　　　FLD1　　　　　　　　　　　　　　1　　　　　　　
0016.00　CSR　　　FLD1　　　　　　　　　　IFGE　　　　　　'0'　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
0017.00　CSR　　　FLD1　　　　　　　　　　ANDLE　　　　　'9'　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
0018.00　CSR　　　　　　　　　　　　　　　　　MOVE　　　　　　FLD1　　　　　　　　　　DG01　　　　　　　　　　　　　　1　0　　　　　
0019.00　CSR　　　　　　　　　　　　　　　　　MULT　　　　　　10　　　　　　　　　　　　DIGIT　　　　　　　　　　　　　　　　　　　　　
0020.00　CSR　　　　　　　　　　　　　　　　　ADD　　　　　　　DG01　　　　　　　　　　DIGIT　　　　　　　　　　　　　　　　　　　　　
0021.00　CSR　　　　　　　　　　　　　　　　　ELSE　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
0022.00　CSR　　　FLD1　　　　　　　　　　IFEQ　　　　　　'-'　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
0023.00　CSR　　　　　　　　　　　　　　　　　MOVE　　　　　　FLD1　　　　　　　　　　FGO　　　　　　　　　　　　　　　1　　　　
0024.00　CSR　　　　　　　　　　　　　　　　　END　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
0025.00　CSR　　　　　　　　　　　　　　　　　END　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
0026.00　CSR　　　　　　　　　　　　　　　　　END　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
0027.00　CSR　　　　　　　　　　　　　　　　　END　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
0028.00　CSR　　　FGO　　　　　　　　　　　IFEQ　　　　　　'-'　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
0029.00　CSR　　　　　　　　　　　　　　　　　Z-SUB　　　　　DIGIT　　　　　　　　　DIGIT　　　　　　　　　　　　　　　　　　
0030.00　CSR　　　　　　　　　　　　　　　　　END　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
0031.00　CSR　　　　　　　　　　　　　　　　　MOVE　　　　　　*BLANKS　　　　　　　CHR30　　　　　　　　　　　　30　　　　
0032.00　CSR　　　　　　　　　　　　　　　　　ENDSR　　　　　

残念ながらできません。

一般の　HTTPサーバー(Apache　も含めて)　では、CGI　がどのプロセスで
起動されるかは、全く、不定です。
従って動作させてみて初めて、起動プロセスのJOB番号を知ることができます。
IBM　解説書では　JOB番号を予め特定するためには
子プロセスの数を　1個だけに限定して　HTTPサーバーを起動するように
解説されていますが、これは次の理由によって適切ではありません。

　・本稼動の子プロセスを一個だけに絞ることは実用上できない。
　・ブラウザは、必ずしも1対1　で子プロセスと会話するのではなく、
　　フレームや画像ファイルが含まれている場合は、複数(2個)　の
　　Socket　を使って、複数(2個)　の子プロセスと通信する仕様となっている。

上記のように、この解説者はブラウザや　HTTPプロトコルの仕様を理解できて
いません。

しかしAlaska　では、この問題は解決されています。
開発者は、JOB番号を特定することなく、いつでも任意にソース・ディバッガーを
使用することもできます。
また仮想端末として起動しているJOB　もディバッグすることができます。
これは　Alaska　に、その機能を持たせているからです。
ただし一般のHTTPサーバーのユーザーでも、この問題には非常に不便を
感じているはずですので何らかの方法を現在、検討しているところです。
とり急ぎの回避策としては　CGI　に　DSPLY　命令を入れるのも，ひとつの手です。
CGI　はバッチとして動作していますので　DSPLY　命令は　QSYSOPR　に表示されます。
この方法もお試しください。

EXTENTERおよびEXTPROMPTは、拡張処置項目（項目見出しのすぐ下に表示されるところ）に対しての
指定です。

ご指摘のとおりです。
従来の　CGI　の実行が遅いと評価されるのは
CGI　での　EBCDIC/ASCII　変換に大量のオーバー・ヘツドを
生じているからです。

　・HTML　ソースを　RPG　の中で記述している。
　　・HTML　ソースを　ソース・ファイルやデータ・ペースとして記述している。

...　このような場合は、実行時間の　80　〜　90　%　は、EBCDIC/ASCII　に変換に
　　時間を取られてしまいます。

これに対して、ご提案のように　HTML　を　ASCII　コードで　IFS　に保存しておいて
データ部分のみを　EBCDIC/ASCII　変換して　HTMLに埋め込んで送出するようにすれば
最小のオーバー・ヘッドで済み、パフォーマンスを劇的に改善させることができます。
Web　は、パフォーマンスこそ命ですので、是非とも　IFS　に　HTML　を保存することを
お勧め致します。(EnterpriseServer　も当然、この手法です。)

ご質問の趣旨であるRPG　による　IFS　ストリーム・ファイルの処理の方法にさきましては
このサイトの下記の記事がご参考になります。
　
http://www.as400-net.com/rpg.html

136.　RPG　でストリーム・ファイルを読み取るには

残念ながら下記の例外を除いては削除レコードを
復活させる方法はありません。

・S/36　環境で実行している。
・ジャーナルに書き込んでいる。

GO　LICPGM　で

5722SS1　　*COMPATIBLE　　　ディジタル証明書マネージャー　
5722SS1　　*COMPATIBLE　　CCA　暗号サービス・プロバイダー

の両方が導入されていることが必要ですが
エラー・メッセージは｢CCA　暗号サービス・プロバイダー｣が
導入されていないことを示しています。
SSL　設定は｢アイマガジン誌｣(　http://www.midrangeserver.co.jp　)の　
VOL.2　に詳細を紹介していますので
ご一読ください。(　SSLの設定は結構、タフです。)

可能です。

HTML　ではカーソル位置の検出は不可能に思えますが
AutoWeb　では　INFDS　を使ってのカーソル位置を検出して
POPUP　などの子プログラムの起動を行うこともできます。
また　HTML生成後に、そのフィールドをどのような位置にデザインを
変更したとしても元のカーソル位置が仮想端末API　に渡されます。

さらに出力フィールドのカーソル位置の検出を行うこともできます。
HTML　の場合、カーソルは入力フィールドにしか位置づけることは
できませんが、マウスポインターを出力フィールドの位置に
セットして、機能キーを押せば、その出力フィールドの行・桁が
取得されます。

ただしカーソルが位置づけられていたカーソル内での桁位置までの
検出はできません。(そのフィールド内のうちの何桁めに位置づけられて
いるかの情報)

SQL0305　は確かに　NULL値をセットする変数が存在しないという旨のエラーですが
逆にこのエラー・メッセージを読み代えると、対象レコードが存在しないのに
FETCH　が実行されているということになります。
つまり、FETCH　の直前に実行されている　SELECT　文での選択レコードが
何もなかったのに、その判断が成されずに　FETCH　が実行されたということです。
単にNULL値のレコードが見つかったという訳ではないと思われます。
SELECT　後にレコードが見つからなかった場合の判断を追加してみてください。

文字化け無しとの事ですが、上記のエラーはシフトコードが欠けている場合等に起こります。
QUERYなどでデータを見ただけでは文字化けは見つけられ無いケースがあります。再度、データのご
確認をしてみては。

おおまかな手順は以下のとおりになります。
かなり、ややこしくて慣れが必要となります。

�@　通信構成を作成する。
　　CRTDEVAPPC　(装置記述の作成)　によって
　　相手方への通信構成を作成します。
　　既に通信構成があるかどうかは
　　　　WRKCFGSTS　CFGTYPE(*CTL)　CFGD(*CMN)　によって
　　　　確認してください。
　　通信構成が存在していて　*VRYON　になっていれば
　　　　構成の作成は不要です。　
　　
�A　CFGDSTSRV　コマンド　(配布サービス構成)　によって
　
　1.　配布待ち行列　を作成して、
　2.　経路指定テーブル　を作成します。

�B　WRKDIRE　によってディレクトリー項目を登録します。

�C　CRTDDMF　を作成する。

http://www.as400-net.com/database.html

の「22.　DDMファイルを作成するには?」

>　また、そもそもなぜ27x132の画面サイズがこれほど世に普及していないのでしょうか？

世の中で使われているディスプレイがまだ４：３サイズだというのが大きいでしょうね。
もしハイビジョン（１６：９）サイズだったら画面の収まりもいいのでしょうけど、
まだまだオフィスには普及していません。

もうひとつ
ダム端やＤＯＳ−ＰＣでは右側と下側が表示されないという問題があります。
スクロールするのは億劫だと思いますよ。

EnterpriseServer　Ver5.0　の　AutoWeb　は
27　*　132　画面にも対応しています。
AutoWeb　では　80　*　24画面と　27　*　132画面が混在していても
同時に利用することができます。

RTVMBRD　FILE(*LIBL/ファイルID）NBRCURRCD(変数)
でレコード件数が取得できます。

QUPSDLYTIM　補助電源機構の遅延時間　のことでしょうか　?
この値は　200秒が初期値ですが古いリリースから変わっていません。

UNPACKAGEはQUSRTOOLのライブラリにあるＣＬのIDです。
試していないので良くわかりませんが、
CALL　QUSRTOOL/UNPACKAGE　PARM('*ALL'　X'001F')
で実行してみたらどうでしょうか？

こちらこそ、お世話になります。
プロシージャーの戻り値を複数定義することはできません。
しかし、現実はご指摘のように結果として　TRUE　または　FALSE　を
戻して、TRUE　であれば、初めて戻り値を取得したい、というような
処理の必要性があります。
これを解決するにはプロシージャーのパラメータにポインターを
定義することです。
ポインターをパラメータとして渡して、渡されたプロシージャー側で
そのポインターを基底とする変数を更新してやれば元の変数の実体を変更することが
できます。
この手法は他の言語でもよく使用されている方法です。
下記にそのサンプルをご紹介します。
この例では品種名　HNSNAM　のポインターをパラメータ値として渡しています。
このようなテクニックは　EnterpriseServer　Ver5.1　のヘルプでも
詳細な解説を予定しています。

Source:　http://218.44.135.18/QSYS.LIB/PGMRLIB.LIB/QRPGLESRC.FILE/TESTPTR.MBR

0001.00　H　DFTNAME(TESTPTR)　DATEDIT(*YMD/)　DFTACTGRP(*NO)　　　　　　　　　　　　　　　　　　　　　　　
0002.00　F**********　　品種マスターの照会　***************************************
0003.00　FHINSHU　　　　IF　　　E　　　　　　　　　　　K　DISK　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
0004.00　F**********************************************************************
0005.00　D　GET_HINSHU　　　　　　PR　　　　　　　　　　　　　4S　0　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
0006.00　D　　HNSCOD　　　　　　　　　　　　　　　　　　　　　　　　4A　　　VALUE　　　　　　　　　　　　　　　　　　　　　　　　　　　　
0007.00　D　　HNSNAM_P　　　　　　　　　　　　　　　　　　　　　　　*　　　VALUE　　　　　　　　　　　　　　　　　　　　　　　　　　　　
0008.00　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
0009.00　D　RES　　　　　　　　　　　　　S　　　　　　　　　　　　　　4S　0　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
0010.00　D　TRUE　　　　　　　　　　　　S　　　　　　　　　　　　　　4S　0　INZ(0)　　　　　　　　　　　　　　　　　　　　　　　　　　　
0011.00　D　FALSE　　　　　　　　　　　S　　　　　　　　　　　　　　4S　0　INZ(-1)　　　　　　　　　　　　　　　　　　　　　　　　　　
0012.00　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
0013.00　C　　　　　　　　　　　　　　　　　　　MOVEL　　　　　'0001'　　　　　　　　HNSCOD　　　　　　　　　　　　　　　　　　　　　
0014.00　C　　　　　　　　　　　　　　　　　　　EVAL　　　　　　RES　=　GET_HINSHU(HNSCOD:　%ADDR(HNSNAM))　　
0015.00　C　　　　　　　　　　　　　　　　　　　IF　　　　　　　　RES　=　TRUE　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
0016.00　C*　　(　取得成功　！　)　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
0017.00　C　　　　　'HNSNAM='　　　　　CAT(P)　　　　HNSNAM:0　　　　　　DSP40　　　　　　　　　　　　40　　　　　　　　
0018.00　C　　　　　DSP40　　　　　　　　　DSPLY　　　　　　　　　　　　　　　　　　　ANS　　　　　　　　　　　　　　　1　　　　　　　　
0019.00　C　　　　　　　　　　　　　　　　　　　ELSE　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
0020.00　C*　　(　取得失敗　！　)　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
0021.00　C　　　　　'FAILED'　　　　　　DSPLY　　　　　　　　　　　　　　　　　　　ANS　　　　　　　　　　　　　　　　　　　　　　
0022.00　C　　　　　　　　　　　　　　　　　　　END　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
0023.00　C　　　　　　　　　　　　　　　　　　　SETON　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　LR　　
0024.00　C******************************************************　　　　　　　　　　　　　　
0025.00　　*　　　GET_HINSHU　:　　　品種名の取得　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
0026.00　C******************************************************　　　　　　　　　　　　　　
0027.00　P　GET_HINSHU　　　　　　B　　　　　　　　　　　　　　　　　　　EXPORT　　　　　　　　　　　　　　　　　　　　　　　　　
0028.00　D　　　　　　　　　　　　　　　　　PI　　　　　　　　　　　　　4S　0　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
0029.00　D　　HNSCOD　　　　　　　　　　　　　　　　　　　　　　　　4A　　　VALUE　　　　　　　　　　　　　　　　　　　　　　　　　　
0030.00　D　　HNSNAM_P　　　　　　　　　　　　　　　　　　　　　　　*　　　VALUE　　　　　　　　　　　　　　　　　　　　　　　　　　
0031.00　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
0032.00　D　　RTNNAME　　　　　　　　S　　　　　　　　　　　　　14　　　　BASED(HNSNAM_P)　　　　　　　　　　　　　　　　
0033.00　C　　　　　　　　　　　　　　　　　　　SETOFF　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　99　　
0034.00　C　　　　　HNSCOD　　　　　　　　CHAIN　　　　　HINSHU　　　　　　　　　　　　　　　　　　　　　　　　　　　　　99　　
0035.00　C　　　　　*IN99　　　　　　　　　IFEQ　　　　　　*OFF　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
0036.00　C　　　　　　　　　　　　　　　　　　　MOVEL　　　　　HNSNAM　　　　　　　　RTNNAME　　　　　　　　　　　　　　　　　　
0037.00　C　　　　　　　　　　　　　　　　　　　RETURN　　　　TRUE　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
0038.00　C　　　　　　　　　　　　　　　　　　　ELSE　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
0039.00　C　　　　　　　　　　　　　　　　　　　RETURN　　　　FALSE　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
0040.00　C　　　　　　　　　　　　　　　　　　　END　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
0041.00　P　　　　　　　　　　　　　　　　　E　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　

実用的かはわかりませんが、以下の手順はどうでしょうか？

1.WRKSPLFで*OUTPUTを*PRINT指定して現在のスプールリストを印刷
2.結果をCPYSPLFでPFに落とす。
3.結果ファイルを読込み該当する用紙タイプのとき、CPYSPLFを実行

　ユーザー・スペースを作成してから、
構成リストAPI　:　QDCLCFGD　を使って、ユーザー・スペースを
検索して、ご使用中のCLP　を実行するようにすれば可能ですが
すべての　DEVD　に　Ftp送信してよいのかを、まず
WRKDEVD　*DSP　で確認してください。

何故WSID毎にFTP転送記述を持つ必要があるのか
文面から読取れませんでしたが、
FTP転送記述の内容を物理ファイルに持って、
転送記述をメンバーに書出すプログラムを用意して、
転送の度に毎回作成してあげたらどうでしょうか。
（上記の場合ですとTESTLB/QFTPIN(FTPCMDXXX)のメンバーを
物理ファイルを読込んで、作成してからFTP転送を行う感じです。）

弊社でも定期的にＰＣサーバへあるファイルをFTP転送していますが
転送先のファイル名に日付を変えて累積させている為、少々面倒ですが
記載の様な事を行っております。
的外れでしたらすみません。

解決しました。

AS/400のTCP/IP経路の設定に誤りがあり修正したら繋がりました。

　（修正前）“次のホップ”がルーター機能を持たせていないモデムに設定してあった

　（修正後）“次のホップ”をルーター機能を持たせているモデムに設定した


>　社内ネットワーク上にあるAS/400（インターネット接続はしていません）に、社外のＰＣから接続可能に
>　したいのですが、上手くいきません。
>　
>　これまでにした設定・確認の作業は、以下の通りです。
>　
>　　　１．ルーターのNAT設定に、23,449,8470-8479のポートをAS/400のプライベートIPを設定。
>　
>　　　　　　　===>　社外ＰＣから、グローバルIP指定のPINGは通らず。
>　
>　　　２．ルーター内の設定で、"Flets　ADSL"側からのアクセスを許可。
>　
>　　　　　　　===>　社外ＰＣから、グローバルIP指定のPINGが通った。
>　
>　　　３．社外ＰＣから、"CWBPING"コマンドでグローバルIP指定でアクセスチェック。
>　
>　　　　　　　===>　全てNG。（CWBCO1003,CWBCO1006,CWBCO1011,CWBCO1008が出力される）
>　
>　この状態で立ち往生しています。
>　
>　確認や設定しなければならない事がありましたら教えてください。

何か良いリンク先を調べたのですが適当な所が見つかりませんでしたので．．．
作成手順としては、物理ファイルを作成してから論理ファイルを作成します。

■データベース・ファイル作成手順
1.　データ項目の選定及び属性の決定
2.　データベース設計
3.　DDSの入力
4.　データベース・ファイルの作成（物理ファイル、論理ファイル）
　(1)物理ファイルの場合：CRTPF
　(2)論理ファイルｎ場合：CRTLF
5.　データの入力．．．

■物理ファイル、論理ファイルの特徴
1.　物理ファイルの特徴
　(1)実データを格納
　(2)１つの物理ファイルは１つのレコード様式をもつ
2.論理ファイルの特徴
　(1)１つ以上の物理ファイルを基礎として作成される。
　　（１つ又は複数のレコード様式を持つ）
　(2)データの並び順の情報やファイルでアクセスできるデータ項目の情報を管理
　(3)実際のデータは対応する物理ファイルから取り出す。

書き忘れましたが、
列にではなく、行に表示指定順を持たせたいのです。

QTEMP上の索引ファイルに落とす。
キーを選択できるようにすれば、実現可能です。推奨５通り程度。
---------------------------------------------------------
問題はCLRPFM　CRTPF　OVRDBF　などの　CMD実行のタイミングです。

（方法１）
ＯＶＲＰＲＴＦ　ＱＳＹＳＰＲＴ　ＨＯＬＤ（＊ＹＥＳ）
ＣＡＬＬ　　　　ＤＥＮＰＹＯ
ＤＬＴＯＶＲ　　ＱＳＹＳＰＲＴ

（方法２）
ＣＲＴＯＵＴＱ　ＱＵＳＲＳＹＳ／ＨＬＤＯＵＴＱ　※これはオペレーションにて一回だけ

ＣＨＧＯＵＴＱ　ＨＬＤＯＵＴＱ
ＣＡＬＬ　　　　ＤＥＮＰＹＯ
ＣＨＧＯＵＴＱ　ＱＰＲＩＮＴ

ユーザーが　QUERY/400　で作成したオブジェクトは　*QRYDFN　という定義ファイルです。
このオブジェクトの存在を確認したり　API　を使って中身の詳細を調べることは
できますが機能そのものを変更することはできません。
QUERY/400　を変更したいという目的が、たとえばレコード選択条件を指定したいと
いうようなものであれば　QUERY/400　から　QUERY　のソースとなる　QMQRY　を抽出して
*QMQRY　を作成すると動的に外部より選択条件を与えることができるようになります。
詳細はこのサイトの　DFU,　Query,　SQL　の章にいくつか解説があります。

ご返事ありがとうございます。
目的はまさにレコード条件の変更です。
このサイトの　DFU,　Query,　SQL　の章の解説、参考にさせて頂きます。
ありがとうございました。

できます。
システム値　QRMTIPL　を　1　に設定しておくと電話回線による
電源を投入することができます。
ただし詳細は不明で利用しているという事例はあまり聞いたことが
ありません。
最近では遠隔地のシステム・センターに　System　i　を預けるという
ケースが多いのでニーズがあるかもしれませんが
多くの使用例ではタイマー・スケジュール　(GO　POWER)　による
自動電源投入です。

>　'　ああ　'　　SCAN　TESTF　　　　　　　　50

このままですと、漢字シフト文字を含んだ文字列をＳＣＡＮしますので

I　　　　　　　　　　　　DS　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
I　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　1　　　6　AA　　
I　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　2　　　5　AAAA
C*　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
C　　　　　　　　　　　　　　　　　　　　　MOVE　'　ああ　'　　AA　　　　　　　　　　　　　　　
C　　　　　　　　　　　AAAA　　　　　　SCAN　TESTF　　　　　　　　50

とするのがよろしいかと

CLP　では　DIV　は　/　ですが　MVR　に相当するものはありません。
下記に割り算と余りを計算するCLPを示します。
ソースは　http://218.44.135.18/QSYS,LIB/PGMRLIB.LIB/QCLSRC.FILE/DIVCL.MBR

0001.00　　　　　　　　　　　　　　PGM　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
0002.00　　　　　　　　　　　　　　DCL　　　　　　　　VAR(&SU_A)　TYPE(*DEC)　LEN(4　0)　　　　　　　　　　　　　
0003.00　　　　　　　　　　　　　　DCL　　　　　　　　VAR(&SU_B)　TYPE(*DEC)　LEN(4　0)　　　　　　　　　　　　　
0004.00　　　　　　　　　　　　　　DCL　　　　　　　　VAR(&SHO)　TYPE(*DEC)　LEN(4　0)　　　　　　　　　　　　　　
0005.00　　　　　　　　　　　　　　DCL　　　　　　　　VAR(&AMARI)　TYPE(*DEC)　LEN(4　0)　　　　　　　　　　　　
0006.00　　　　　　　　　　　　　　DCL　　　　　　　　VAR(&CHAR4)　TYPE(*CHAR)　LEN(4)　　　　　　　　　　　　　
0007.00　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
0008.00　　　/*(　10/2　の割り算　)*/　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
0009.00　　　　　　　　　　　　　　CHGVAR　　　　　&SU_A　　　10　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
0010.00　　　　　　　　　　　　　　CHGVAR　　　　　&SU_B　　　　2　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
0011.00　　　　　　　　　　　　　　CHGVAR　　　　　VAR(&SHO)　VALUE(&SU_A　/　&SU_B)　　　　　　　　　　　　　
0012.00　　　　　　　　　　　　　　CHGVAR　　　　　VAR(&CHAR4)　VALUE(&SHO)　　　　　　　　　　　　　　　　　　　　
0013.00　　　　　　　　　　　　　　SNDPGMMSG　　MSG('10　/　2　=　'　*CAT　&CHAR4)　MSGTYPE(*DIAG)
0014.00　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
0015.00　　　/*(　8/3　の割り算の余り　)*/　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
0016.00　　　　　　　　　　　　　　CHGVAR　　　　　&SU_A　　　　8　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
0017.00　　　　　　　　　　　　　　CHGVAR　　　　　&SU_B　　　　3　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
0018.00　　　　　　　　　　　　　　CHGVAR　　　　　VAR(&SHO)　VALUE(&SU_A　/　&SU_B)　　　　　　　　　　　　　
0019.00　　　　　　　　　　　　　　CHGVAR　　　　　&AMARI　　VALUE(&SU_A　-　(&SU_B　*　&SHO))　　　　　　
0020.00　　　　　　　　　　　　　　CHGVAR　　　　　VAR(&CHAR4)　VALUE(&AMARI)　
0021.00　　　　　　　　　　　　　　SNDPGMMSG　　MSG('8　%　3　=　'　*CAT　&CHAR4)　MSGTYPE(*DIAG)
0022.00　　　　　　　　　　　　　　ENDPGM　　　　　　　

CCSID　5035　の環境で画面の最下部の　F4=プロンプト　が正しく表示されていれば
それは　5026環境の状態であり、文字化けしていれば　5035　環境です。
必要であれば　Ctrl　+　F3キーで切り替えてください。

ご質問の趣旨につきまして下記のとおり回答申し上げます。

�@APW　罫線および倍角印字には対応していますがバーコードや
　会社のロゴ等には対応しておりません。

�Aカラー化のPDF　は静的にサンプルとして　HTML　から作成されたもので
　　CGI　でカラー出力することはできません。
　　実際に　CGI　で出力する例はワークショップの「商品明細の印刷」で
　お試し頂くことができます。

�BSpoolライターのPCクライアント・モジュールで操作する場合には
　　フリー・クライアントまでは必要なく、どのクライアント数のご契約であっても
　動作致します。
　しかし　System　i　サーバー側で　CVTSPLF　コマンド　というコマンドを
　使って　Web上で　PDF　表示したり、別のPCサーバーにバッチ転送するのであれば
　　フリー・クライアントのご契約が必要です。
　Spoolライターは機能に比べてコスト・パフォーマンスが圧倒的に優れていますので
　今ではほとんどのユーザー様がフリー・クライアントでご契約されております。
　手前味噌になりますが　Spoolライターは非常に人気の高い商品で
　国内で最もユーザー数が多いのではないかと自負しております。
　ほぼ毎月にし数本のご注文がございます。

■製品に関するご質問は恐れ入りますが

　　　info@officequattro.com　　までメールでお願い致します。

１．サブファイルレコードをチェックする時、読み込んだレコードを配列にセット。
２．次レコードを読み込んだらLOKUPで配列検索。
３．あったらエラー。なければ配列セット。

以上を繰り返せば重複チェックが出来ます。

ありません。
RPG　に組み込みSQLPKG　であれば自分で
RPG　で　+1　すればよいだけです。
ただしレコード番号を表示するのであれば
RRN　関数を使用することができます。

　　下記のようにオーバーフロー行を明示的に指定してください。


　FQPRINT　　　　O　　　　F　　132　　　　　　　　PRINTER　OFLIND(*INOF)
　F　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　FORMLEN(86)　　
　F　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　FORMOFL(84)　　　　　　　　　　　　　

http://www.e-bellnet.com/technical/hint/0902/hint_0902_01.html
を参考にしてみて下さい。

ＰＣをＦＴＰサーバーに見立てるだけです。
ＡＳからＰＣへログインする為の、ＩＤとパスワードは設定していますか？
「IIS設定」で検索して手順を確認してみてください。

追って公開を追加致しますが取り急ぎ下記よりソースを
入手ください。

　　http://218.44.135.18/QSYS.LIB/PGMRLIB.LIB/QRPGSRC.FILE/CRTMIPGMR.MBR

System　i　から他のPCサーバーへの　Ftp接続は
ASCII　でログインする必要がありますので
System　i　に用意されている　FTP　コマンドでは
できない場合がほとんどです。

そこでこのサイトの　Tools　に　SNDFTP　コマンドが
公開されています。
ただし　QUOTE　は使用できませんがソースを
改造すればできると思います。

他の方法では　RUNRMTCMD　を検討してください。

RUNRMTCMDがオーソドックスですかね。

大分前の事ですが、転送先のPC側フォルダーに監視用のフリーソフトを置いて、
データ送信後にダミーのファイルを送る事で送信完了を認識させて制御した事があります。

FTPをオンラインでおこなうのであれば
AS→PCのFTPとその後に実行したいPC側の処理のバッチファイル(.BAT)を用意しておいて
STRPCO、STRPCCDMでPC側からキックでもよいかと。

>　ASとPCサーバー間でFTPを使ってファイルのやりとりをしたいと考えてます
>　PC側からはPUTでファイルを送った後、QUOTE　RCMD　ASコマンド　でASのプログラムを処理するように
考え
>　てます
>　
>　問題はAS側からPUTでPC側にファイルを送った後、PC側のバッチを実行させたいのですが、ASから相手PC
サ
>　ーバーのバッチを実行させるFTPコマンドはあるのでしょうか？
>　
>　またFTPじゃない方法があればアドバイス下さい、よろしくお願いします

CHGVAR　　　　　VAR(&STMF)　VALUE('/HOME/AAADIR/'　*CAT　&DAT　*TCAT　'.CSV')

CPYTOIMPF　
FROMFILE(QGPL/AAAFIL00)　+　　　　　　　　　　　　　　　　　　　
TOSTMF(&STMF)　+　　　　　　　　　　
MBROPT(*REPLACE)　STMFCODPAG(943)　+　　　　　　　　
RCDDLM(*CRLF)　DTAFMT(*DLM)　STRDLM(*NONE)

これでどうでしょう。

大変参考になりました

「満杯です」とは　CPA5305　であると思いますが
CPA5305　は　MONMSG　することはできません。
しかし　CHGMSGD　で　CPA5305　の省略時の応答を変更したり
CPA5305　に応答プログラムをユーザーで定義したりすると
他の適用業務の運用に重大な支障を起こしてしまいます。
コピー先のファイルを　CHGPF　コマンドによって
メンパー・サイズを十分な大きさに変更しておくのが
最も安全で確実な方法としてお勧めします。

わかりました、ＰＦの方で十分なメンバーサイズに変更する事にします

パスワードの変更要求が来ているのは
システム値　QPWDEXPITV　(パスワード有効期間)　が　*NOMAX　では
なく一定の期間が指定されており、その期間を既に経過しているからです。
テープ復元の前に　QSECOFR　でサインオンしてから
WRKSYSVAL　　*ALL　　+　[実行]　して　QPWDEXPITV　を　*NOMAX　に変更してから
やり直してみてください。
失礼ですが　Model　150　で、そこまでの機密保護を強化してしまい
ご担当者でも不明になってしまうのでは　QPWDEXPITV　を　*NOMAX　以外に
設定している意味があまりないように思えます。
いずれにせよシステム管理者が最寄りの特約店にご相談になられることを
お勧め致します。

ご指導有難う御座います。どうにかPWのほうはうまく出来ました。しかしながら、Pcomm接続の端末
が、接続していないようすです(サインオン画面にならない、コンソールはOK)。システムの復元は出
来ていると思われますが、わかりません。
スポットで出来る方がいらっしゃいましたら御願いしたいのですが？