定時刪除SPOOLFILE的程式

goodbilly

(1)        先用CRTPF創建一個200長度的PF文件（名稱為：PRTSPLF）
(2)        寫一個CL，代碼如下：
（可參考附件裡的TXT文件）
在此CL裡面，會有如下兩個地方要注意：
(2.1)RUNQRY     QRY(ITJLLI/QRYPRTSPLF)
此處的QRYPRTSPLF是一個QRY來的：
QRY裡的Specify file selections：ITJLLI/PRTSPLF
QRY裡的Define result fields：
USER       SUBSTR(PRTSPLF,14,10)
NBR         SUBSTR(PRTSPLF,104,4)
JOBNAM      SUBSTR(PRTSPLF,109,10)
JOB         SUBSTR(PRTSPLF,120,7)
CRTDTE      SUBSTR(PRTSPLF,84,
FILENAM     SUBSTR(PRTSPLF,3,10)
QRY裡的Select and sequence fields：
10  FILENAM          SUBSTR(PRTSPLF,3,10)                           
20  NBR               SUBSTR(PRTSPLF,104,4)                           
30  USER              SUBSTR(PRTSPLF,14,10)                          
40  JOBNAM           SUBSTR(PRTSPLF,109,10)                        
50  JOB               SUBSTR(PRTSPLF,120,7)                           
60  CRTDTE            SUBSTR(PRTSPLF,84,                           
QRY裡的Select records：
       　NBR               NE     ''   
AND    NBR               NE     'Nbr'
AND    NBR               NE     'File'
QRY裡的Select sort fields：
10  A   CRTDTE
20  A   NBR   
QRY裡的Select output type and output form：
把QRY所得到的結果保存為一個databasefile,名稱為QRYPRTSPLF

(2.2)CALL       PGM(DSPLF01) PARM(&CRTDTE &FLAG)
此處的DSPLF01程式是自己寫的一個日期差程式，返回一個值是否要刪除SPLF，以下代碼只提供參考：
（可參考附件裡的TXT文件）
定時刪除SPLF程式.rar (6.69 KB, 下载次数: 62)

2010-04-11 16:24 上传

点击文件名下载附件

qwinds321

非常感谢！！

tomroom

谢谢分享 有个要注意到， 不同的操作系统版本 QRY裡的Define result fields 的中 USER        
NBR        
JOBNAM       的位置 不一定一样 可能需要调整

kelvenlee_cu

系统有自带的清理工具的， go clean  好像是这个

fusl520

好东西，几时用到时过来取精

wht196503933

过来学习一下，谢谢大神啦