ID #1103

集信で正常終了したらファイルIDを表示したい。

集信管理情報で正常時ジョブIDを指定し、以下のCLを起動するようにしてください。

PGM PARM(&HOST &FILEID &LIBNM &FILENM &MBRNM &COUNT &STATUS)           
    DCL VAR(&HOST)      TYPE(*CHAR) LEN(8)                             
    DCL VAR(&FILEID)    TYPE(*CHAR) LEN(8)                             
    DCL VAR(&LIBNM)     TYPE(*CHAR) LEN(10)                            
    DCL VAR(&FILENM)    TYPE(*CHAR) LEN(10)                            
    DCL VAR(&MBRNM)     TYPE(*CHAR) LEN(10)                            
    DCL VAR(&COUNT)     TYPE(*DEC)  LEN(15 5)                          
    DCL VAR(&STATUS)    TYPE(*DEC)  LEN(15 5)                          
    DCL VAR(&M)         TYPE(*CHAR) LEN(17)                            
    SNDPGMMSG  MSGID(CPF9898) MSGF(*LIBL/QCPFMSG) +                    
                      MSGDTA('FILEID=' *CAT &FILEID *CAT &NULL +   
                      *CAT ' 正常終了しました。 ') +               
                      TOMSGQ(*SYSOPR) MSGTYPE(*INFO)                                       
ENDPGM

                           << ジョブ起動情報変更 >>                          
                                                                             
 ジョブID:  HULOK                                                        
 ジョブ記述:  QGPL/QBATCH                                                   
                                                                             
===>  CALL xxxx/HULOK PARM(&HOST &FILEID &LIBNM &FILENM &MBRNM &COUNT &STATUS)                                                                   
                                                               

タグ: HULFT

関連エントリー: -

最終更新: 2011-10-26 15:41
製作者:
改訂: 1.2

Digg it! Share on Facebook このレコードを印刷する 友達に教える PDF ファイルで表示する
Propose a translation for Propose a translation for
この FAQ を評価してください:

評価点数: 0 (0 件の投票)

完全に役に立たない 1 2 3 4 5 最も価値がある

このエントリーにコメントできません。