CL

1. CLでジョブ属性やユーザー、今日の日付を取得するには？

コマンド RTVJOBA を使えば現在のジョブ情報を取得できる。

ソ−スコード 
0001.00              DCL        VAR(&WSID) TYPE(*CHAR) LEN(10) 
0002.00              DCL        VAR(&USER) TYPE(*CHAR) LEN(10) 
0003.00              DCL        VAR(&OUTQ) TYPE(*CHAR) LEN(10) 
0004.00              DCL        VAR(&OUTQLIB) TYPE(*CHAR) LEN(10) 
0005.00              DCL        VAR(&UDATE) TYPE(*CHAR) LEN(6)  
0006.00                                                               
0007.00              RTVJOBA    JOB(&WSID) USER(&USER) OUTQ(&OUTQ) +  
0008.00                           OUTQLIB(&OUTQLIB) DATE(&UDATE)