だめもとで。
JOBD　より　USRPRF　が　優先します。
DLVRY　　　*NOTIFY　になってますか。


　

モニターできない別のメッセージが出ているはずなので、
それをジョブログで調べてください。

>　基本的には　NG　さんの言われるようにPF　に変換して調べることに
>　なりますが　API　を使ってもよいというのであればと
>　いうことで調べてみました。
>　
>　米国サイトでは下記のようなCLP　でベージ・カウント・プログラムを作っ
ている人が
>　いました。
>　
>　
>
http://iprodeveloper.com/rpg-programming/retrieve-spooled-file-page-count
>　
>　PGM
>　
>　　　　　　DCL　VAR(&STRPAGE)　TYPE(*DEC)　LEN(5　0)
>　　　　　　DCL　VAR(&ENDPAGE)　TYPE(*DEC)　LEN(5　0)
>　
>　　　　　　OVRPRTF　FILE(PRINTER)　HOLD(*YES)
>　　　　　　CALL　　　　PGM(<i>mylib/myrpgpgm</i>)
>　　　　　　DLTOVR　　FILE(PRINTER)
>　
>　　<font　color="blue">　　　　PAGCNT　　COUNT(&ENDPAGE)
>　　　　　　CHGVAR　　VAR(&STRPAGE)　VALUE(&ENDPAGE　-　1)
>　
>　　　　　　CHGSPLFA　FILE(PRINTER)　SPLNBR(*LAST)　+
>　　　　　　　　　　　　　　　PAGERANGE(&STRPAGE　&ENDPAGE)</font>
>　
>　　　　　　RLSSPLF　　FILE(PRINTER)　SPLNBR(*LAST)
>　
>　　ENDPGM
>　
>　
>　プログラムは
>　
>
http://www.pentontech.com/IBMContent/Documents/article/55320_274_PagCnt.zip
>　
>　からダウンロードできるとありました。
>　これをダウンロードして解凍したところ上記に含まれているCLPソースは次
のとおりです。
>　
>　
>
---------------------------------------------------------------------------
>　----
>　PGM　　　　　PARM(&NUMPAGES)
>　
>　　　　　DCL　VAR(&NUMPAGES)　　TYPE(*DEC)　　LEN(5　0)
>　　　　　DCL　VAR(&RCVVAR)　　　　TYPE(*CHAR)　LEN(2048)
>　　　　　DCL　VAR(&RCVVARLEN)　TYPE(*CHAR)　LEN(4)
>　　　　　DCL　VAR(&SPLFNAME)　　TYPE(*CHAR)　LEN(10)
>　　　　　DCL　VAR(&JOBNAME)　　　TYPE(*CHAR)　LEN(26)
>　　　　　DCL　VAR(&SPLFNBR)　　　TYPE(*CHAR)　LEN(4)
>　　　　　DCL　VAR(&PAGECHAR)　　TYPE(*CHAR)　LEN(4)
>　
>　　　　　CHGVAR　VAR(%BIN(&RCVVARLEN))　VALUE(2048)
>　
>　　　　　/**********************************************************+
>　　　　　　*　DETERMINE　THE　LAST　SPOOLED　FILE　CREATED　IN　THIS
　JOB　　　　*+
>　　　　　　**********************************************************/
>　
>　　　　　CALL　PGM(QSPRILSP)　PARM(&RCVVAR　　　　　　　　　　　　　+
>　　　　　　　　　　　　　　　　　　　　　　　　　　　　　&RCVVARLEN　
　　　　　　　　　+
>　　　　　　　　　　　　　　　　　　　　　　　　　　　　　'SPRL0100'　
　　　　　　　　　+
>　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
X'0000000000000000'　)
>　
>　　　　　CHGVAR　VAR(&SPLFNAME)　VALUE(%SST(&RCVVAR　　9　10))
>　　　　　CHGVAR　VAR(&JOBNAME)　　VALUE(%SST(&RCVVAR　19　26))
>　　　　　CHGVAR　VAR(&SPLFNBR)　　VALUE(%SST(&RCVVAR　45　　4))
>　
>　
>　　　　　/**********************************************************+
>　　　　　　*　RETRIEVE　THE　SPOOLED　FILE　ATTRIBUTES　　　　　　　
　　　　　　　　　　　　*+
>　　　　　　**********************************************************/
>　
>　　　　　CALL　PGM(QUSRSPLA)　PARM(&RCVVAR　　　　　　　　　　　　　+
>　　　　　　　　　　　　　　　　　　　　　　　　　　　　　&RCVVARLEN　
　　　　　　　　　+
>　　　　　　　　　　　　　　　　　　　　　　　　　　　　　'SPLA0100'　
　　　　　　　　　+
>　　　　　　　　　　　　　　　　　　　　　　　　　　　　　&JOBNAME　　
　　　　　　　　　　+
>　　　　　　　　　　　　　　　　　　　　　　　　　　　　　'　'　　　　
　　　　　　　　　　　　　+
>　　　　　　　　　　　　　　　　　　　　　　　　　　　　　'　'　　　　
　　　　　　　　　　　　　+
>　　　　　　　　　　　　　　　　　　　　　　　　　　　　　&SPLFNAME　
　　　　　　　　　　+
>　　　　　　　　　　　　　　　　　　　　　　　　　　　　　&SPLFNBR　　
　　　　　　　　　　+
>　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
X'0000000000000000'　)
>　
>　　　　　CHGVAR　VAR(&PAGECHAR)　VALUE(%SST(&RCVVAR　141　4))
>　　　　　CHGVAR　VAR(&NUMPAGES)　VALUE(%BIN(&PAGECHAR))
>　
>　ENDPGM
>
---------------------------------------------------------------------------
>　----
>　
>　[解説]
>　つまり　スプール・ファイル名,　ジョブ名,　スプール番号がわかれば
>　API　:　QUSRSPLA　だけで
>　　　　　CALL　PGM(QUSRSPLA)　PARM(&RCVVAR　　　　　　　　　　　　　+
>　　　　　　　　　　　　　　　　　　　　　　　　　　　　　&RCVVARLEN　
　　　　　　　　　+
>　　　　　　　　　　　　　　　　　　　　　　　　　　　　　'SPLA0100'　
　　　　　　　　　+
>　　　　　　　　　　　　　　　　　　　　　　　　　　　　　&JOBNAME　　
　　　　　　　　　　+
>　　　　　　　　　　　　　　　　　　　　　　　　　　　　　'　'　　　　
　　　　　　　　　　　　　+
>　　　　　　　　　　　　　　　　　　　　　　　　　　　　　'　'　　　　
　　　　　　　　　　　　　+
>　　　　　　　　　　　　　　　　　　　　　　　　　　　　　&SPLFNAME　
　　　　　　　　　　+
>　　　　　　　　　　　　　　　　　　　　　　　　　　　　　&SPLFNBR　　
　　　　　　　　　　+
>　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
X'0000000000000000'　)
>　
>　　　　　CHGVAR　VAR(&PAGECHAR)　VALUE(%SST(&RCVVAR　141　4))
>　　　　　CHGVAR　VAR(&NUMPAGES)　VALUE(%BIN(&PAGECHAR))
>　
>　のようにすればページ数　&NUMPAGES　が取得できるというものです。
>　意外と簡単ですね。
>　
>　
ありがとうございます。
なるほど・・うまくできました！！

Qは　システムで予約されてるので、使ってはならない。

CRTPRTF　　LIST198　　ファイルを作成。

OVRPRTF　で　固有名（ファイル名　と　名前は　別）を付ける。

ジョブはマルチで動いてるから、最後のQPRINTなど、当てにならない。



　

ずるい方法が、あります。
行番号　CRLF　桁番号　CRLF　　内容　CRLF　　
以下繰り返す。
こんなファイルで　受け渡しをする。
　　　

>　>　>　お世話になっております。
>　>　>　現在excelからAS/400にODBCでデータ接続しています。
>　>　>　WIN-XP+iAccessV5.4.0＋excel2010で問題のない小数以下の表示が
>　>　>　WIN7+iAccessV7.1.0+excel2010で小数以下がゼロ表示されてしまいます。
>　>　>　対処法をご教授ください。
>　>　>　よろしくお願いします。
>　>　
>　>　EXCELの抽出SQL部の記述を直したら現象回避しました。
>　>　バージョンアップしたら対応していない記述だったようです。お騒がせしました。
>　
>　同じ症状かわかりませんが、WindowsServer2008　+　SQLServer2005に
>　AS400をiAccess7.1のODBC経由リンクサーバーとして接続しています。
>　
>　SQLでデータを取り出したところ、同じように小数点以下が切り捨てされて
>　データができてしまい困っています。
>　
>　どのようなSQLで回避出来たのか教えてただけたら幸いです。
>　
>　私の場合は
>　SELECT
>　　TANKA
>　FROM　[AS400].[*****].[ライブラリ名][TANKAMAS];
>　
>　でSQLを実行すると
>　
>　98.53　が　98.00
>　6.28　が　6
>　となっていまいます。
>

自己解決しました。

iAccessのサービスパックを当てることにより
ODBCドライバーのバージョンが13.00.08.00に上がり
上記不具合は修正されました。

単純なバグだったですね。

>　Tools　を使わない方法はありませんか？？？

1.
DSPPGMREF　PGM(LIB/*ALL)　OUTPUT(*OUTFILE)　OBJTYPE(*ALL)　OUTFILE(QTEMP/REF)
※LIBには、コンパイルされたオブジェクトが入っているライブラリを指定してください。

上記のコマンドでプログラムが参照しているファイルやプログラムの一覧がQTEMP/REFに落ちます
。※「参照オブジェクト」というフィールドです。
オブジェクトタイプを*FILEで絞れば、参照しているファイルが選択できると思います。

2.
DSPOBJD　OBJ(LIB/*ALL)　OBJTYPE(*PGM)　OUTPUT(*OUTFILE)　OUTFILE(QTEMP/OBJ)
この中の「最終使用日」「使用日数カウント」が該当すると思いますが、
コンパイルすると初期化されるので注意が必要です。

ＡＳ４００のＱＴＥＭＰ.ＬＩＢなら　ローカルのディレクトリーです。
PCのＣドライブは、ＡＳ４００からは見えません。

ＰＣにＦＴＰサーバーを入れて、ＡＳ４００　から送信する以外に方法は無い。
（あっても　サポートが終わってる）

専用アプリ（動的ＦＴＰ）を組んで、メニューから起動する事で、ほぼ目的は、たっしられるが
お勧めしない。
　　




　
　

私は次のステップに必ず進んでいると思います。

PCオーガナイザーの内部の動作

　　1.PCコマンドを非表示で埋め込んだ<
　　5250ストリーム画面がエミュレータに送信されます。

　2.エミュレータはPCコマンドを　Windows　で実行して
　　　　5250ストリームに実行キーで応答します。
　　　　
　　3.ユーザーには　PCコマンドの実行結果が表示されますが
　　　　そのときには　System　i　のオーガナイザーのステップは
　　　　既に終了しています。

　　(なぜこれがわかるかと言うと5250ストリームの内部を解析した結果です。)

===>　ポイントは上記の2.　の部分であり、エミュレータが
　　　　　Windows　に　PCコマンドの実行を指示しても
　　　　　終了するのを待つわけではありません。
　　　　　(　Windows　には　CALL　に相当する同一スタックでの実行命令がありません。
　　　　　　　CALL　とよく似た動作をさせることはできますが別のプロセスでの実行となります。　)
　　　　　
　　　　　System　i　の　CALL命令では　CALL　したプログラムの終了を
　　　　　待機するのが普通ですが　Windows　では新たなプログラムの呼び出しは
　　　　　別のプロセスで実行し、CALL　命令のように完了を待機することはありません。
　　　　　Windows　での実行は　CALL　ではなく　SBMJOB　する、というイメージです。

　　　　　従ってPCコマンドが正しく実行されているのであれば
　　　　　System　i　上では必ず次のステップに進んでいます。
　　　　　これは実際に　PCオーガナイザーを動作させて別のジョブから実行スタックを
　　　　　監視した結果も、上記のような動作となっていることを確認しました。
　　
　　　PCオーガナイザーに問題はないと思います。
　　　別の原因をお探しください。

>　別件ですが、CPYTOIMPFコマンドで作成したファイルをPC上で見ると、ブラ
ンクフィールドに半角
>　空白文字が入ってしまいます。
>　これを抜くことはできるのでしょうか。

http://www-01.ibm.com/support/docview.wss?uid=nas8N1011149
上記サイトを見ると次のコマンドでデータエリアQSYS/QCPNOBLANKを作成して
空白文字を除去できるかも知れませんね。
CRTDTAARA　DTAARA(QSYS/QCPNOBLANK)　TYPE(*CHAR)　LEN(3)　VALUE('YES')　
（OSのバージョンによっては有効ではないようです）

ライブラリー変更、たしかに分かります。しかしＩＦＳのディレクトリーに
接続させ、固定させたいのです。どうすればよろしいですか？

>　>　ユーザープロフィールの現行ライブラリーを変更してください。
>　>　
>　>　
>　>　>　外部サーバーからAS400にFTP接続してputしようとしてます。それ専用に
>　ﾕｰｻﾞｰ
>　>　>　ﾌﾟﾛﾌｧｲﾙを作成しました。接続した段階の初期ﾃﾞｨﾚｸﾄﾘは、特定の１
ﾃﾞｨﾚｸﾄﾘと
>　>　>　し、且つそのﾃﾞｨﾚｸﾄﾘ以外にはcdさせたくありません。しかし初期ﾃﾞｨ
ﾚｸﾄﾘは
>　>　>　QGPLとなってしまいます。ﾕｰｻﾞｰﾌﾟﾛﾌｧｲﾙのﾎｰﾑﾃﾞｨﾚｸﾄﾘの値を変更して
>　も、初期
>　>　>　ﾃﾞｨﾚｸﾄﾘはいつもQGPLです。
>　>　>　AS400側でどこの何を設定すれば良いのか教えてください。

logonパスの権限から変えないと、その設定まで変更できないみたいですね。
まめたろぅ　さん、初歩的な部分でした、すみません。
その後はおっしゃるとおりに操作できるようになり、制限できるようになり
ました！ありがとうございました。

>　画面右側にチェックボックスがありましたがこれには気づきませんでした･･･。
>　でも言われてる”カスタマイズ”ボタンがありません･･･。
>　ＯＫ、キャンセルしかありません。
>　そのチェックボックスを変更しようとしてもできませんでした。
>　QSECO権限で接続してみても同じでした。
>　権限なのか、V6.1だからでしょうか。
>　バージョンは何ですか？
>　
>　>　鍵マークが付いていても設定は可能なので
>　>　例えば「ファイルの削除」を選択して
>　>　右下の「カスタマイズ」ボタンを押します。
>　>　「デフォルト・アクセス」と
>　>　「全オブジェクト・システム特権を持つユーザー」の
>　>　チェックを外せば、そのサブコマンドは使用不可の設定にできます。
>　>　

kinさんコマンドありがとうございます。
system　i　ナビゲーターからは接続ホストのネットワーク→サーバーから確認で
きました。もしよろしければコマンドから自動で開始されるかではなく、開始
されているかの一覧を見る方法を教えてもらえませんでしょうか。

>　>　>　v6.1を使用してます。起動中のサービスとその開始状況を確認したい
と考えて
>　>　>　ます。windowsみたいに管理→サービスから表示されるような画面がな
いでしょ
>　>　>　うか。
>　TCP/IP系のサービスが自動的な開始されるかは、次のコマンドで判ります。
>　runqry　*n　qatocstart

>　>　PDF化製品で最も普及しているものは　Spoolライター　です。
>　>　
>　>　Hats　と組み合わせているか、どうかは別として
>　>　印刷スプールのPDF化では試供版で今すぐ使えて価格も
>　>　最も低価格です。
>　>　
>　>　ただし「ないものネダリ」はおやめください。
>　>　仕様はご自分で確認して動作検証も自己責任の世界です。
>　>　
>　>　高機能・低価格ですので。
>　>
間違って空返事を送信してしまいました。
ありがとうございました。早速調べてみます。　

文字の大きさは自動的にきまります。
大きくしたら、字が　かさなる　直前の大きさです。

もし　文字がまめつぶなら、WINDOWSの問題です。
ＰＣＯＭＭのバージョンが　ＷＩＮＤＯＷＳに合ってない。

PCOMM6　は　数種類ありＰＴＦもある。詳細なＰＴＦレベルも必要。
ＷＩＮＤＯＷＳも　現場レベルでは、ＳＰまで気にしてる。　

そもそも　ＣＡ５．３　の　サポート　は　ＸＰまで　です。
SI30707　が　でてます。　

>　ただCPYFは元のファイルにレコードが無いとエラーになるので、

MBROPT(*REPLACE)　ではコピー元ファイルにレコードが無いとエラーになりますが
MBROPT(*ADD)　ならエラーになりません。

CRTDSPF　が　落ちてるとか。

>　申し訳ありません。
>　AS400用のフリーのメールツールです。
>　DBTOMAILとSRCTOMAILとあり、PFを添付して送れたり、ソースの内容を送れた
>　りします。
>　このコマンドと配信先のSMTPサーバーさえ意識していればそういったことが出
>　来るものです。
>　
>　質問としては、このコマンドでなくて良いのです。
>　メールにPFを添付してCSVメール送信、しかも項目名TEXTも一番最初の行に付
>　与されて送る
>　ことは可能なのでしょうか、その方法はどういった方法でしょうか、という内
>　容です。
>　
>　説明が不明確で申し訳ありません。お願い致します。

>　>　コマンドとＲＰＧとで、ＣＬを組み立てます。
ASD様
コマンドは何で、RPGとCLではどのようなことをするのですか？

いや、申し訳ありません。
回答していただいたことに対してまず、お礼でした...。
深く反省しました。
今後質問する際は注意致します。
回答いただいて本当にありがとうございました。
また宜しくお願い致します。

ASをFTPサーバーにして、インターネットに接続すれば、簡単にできる。

FTPに　DLTF　DLTLIB　などが　入っていると、システムが破壊される。

セキュリティーとのバランスを取っています。

値の中には、未定義　無限大　無限小　などが　あるかも知れない。
表現は、世界共通ではない。

-12.34E-2　
Eの前と後ろに　文字をわける。
％ＤＥＣ　関数で　それぞれ　数値にする。
-------------------------------------
トレッキーなテクニックを　希望されてるようですが、
なまける方法にすぎません。

返信が遅くなっってしましまして、すみせん、
ご助言頂きましてありがとうございました。

自身でももう少し調べます。

すみません、文面が不十分で下記、返信をしてしまいました。
返信記事を削除して再返信しようとしたのですが、
記事が削除できません。

すみませんが、

返信が遅くなってしまいまして、すみせん。
ご助言頂きましてありがとうございました。
　
自身でももう少し調べます。

で返信として頂けませんでしょうか。

よろしくお願いいたします。

FTPは　PUTしたら、GETして、ベリファイする。
文字化けしてたら、再転送を試みる。

データの確認は、１６進で行う。
当然、検証用プログラムは、開発する。

(1)「パソコンの仕組みからの転送」
　　　-->　意味がわかりません。Windows　の　DOS　コマンド・プロンプトのことですか　?
　　　　　　　それとも他の意味であればアプリの名前をお教えください。

(2)　AS400のﾗｲﾌﾞﾗﾘｰです。FTPでデータを授受するﾗｲﾌﾞﾗﾘｰを用意しています。
　　-->　Ftpのアップロード先がライブラリー・システムのファイルであれば
　　　　　　　後続の回答の「CPYFRMIMPFで　MSGW　のエラーとなる」との回答と矛盾しています。
　　　　　　　アップロード先が　ライブラリー・システムのファイルであれば
　　　　CPYFRMIMPF　を使う必要はありませんから。

(3)　おそらくですが無変換です。
　　-->　これもアップロード先がライブラリー・システムのファイルであれば
　　　　ASCII/EBCDIC　変換が必要であるはずなので意味不明です。
　　　　　　　「おそらくですが」も意味不明
　　　　　　　IFS　に対してアップロードしているのではないでしょうか　?

(4)AS400でCPYFRMIMPFが実行されると異常終了（MSGW）になります。
　--->　これも意味不明です。CPYFRMIMPF　で　MSGW　になったからといって
　　　　　　　なぜ　"　の欠落が原因であると判断されたのでしょうか　?
　　　　　　　IFS　またはライブラリー・システムのファイルのダンプを確認されたのでしょうか　?

　　　　　　　またせっかく　MSGW　のエラーが発生しているのであれば
　　　　　　　そのエラー・メッセージは何でしょうか　?
　　　　　　　それがエラーの原因でありエラー・メッセージはまさにその原因を
　　　　　　　教えてくれているはずです。
　　　　エラー・メッセージの内容は何となっていますか　?

仕事なら　日本オフィスシステムに　問い合わせたらどうですか。
２００万円は、かからないと、思うが、保証はしない。

WINDOWS-XP　か　IME　か　CA　のどれかを　交換する事になるが、
あまりにも、異常な設定だから、解決しないかも。　

これは　AS400本体のPTFです。

CAのバージョンとFIXはHELP画面の日付で見ます。

5.9なるバージョンはありません。CA6.1かな。

FIXを知らない事から、たぶんFIXが、当たってない。

(エミュレーターのPTFを　IBMでは、FIXと呼ぶ)

CA6.1　は　WINDOWS7　には　対応してない。　　　

>　
>　>　新規で記載しようとしたときに自動的にブラウザが表示したハンドルネームだったのですが、
>　>　何がどう不適切でしたでしょうか。
>　
>　自動的に表示されるのがＩＤなのでダメなのでしょう。
>　ここの掲示板の仕様なのか？使いづらいですね。変更する方法あるのでしょうか・・。

そうだったんですね。理解しました。ありがとうございます。

　レコード様式レベルの検査　てないですか　?

　それくらいはご自分で考えてください。
　想像すればわかるはずです。

　RPGソースの印刷は　20年以上、必要と感じたこともありません。
　何の不便もありません。印刷はいつでもできますが
　何のために　?

表示を　27Ｘ120　に　変える。　

セオリーに従って、下から組み立てます。

１.　コード変換と送信にFTPを使うのが、楽です。
　　　PC側に　FTPサーバーを立てる

２.　PTPは　OE　OF　を無視するので、直前に桁合わせのバッチプログラムを挿入する。
　　　定番のプログラムです。内部記述で組みます。
　　
３.　RPGで　出力イメージを作る。OE　OF　の問題は　ここでは考えない。