William, I don't know if you are familiar with API's but we use these to list then delete all spooled files GT 7 days old. The two API's are QUSLSPL (list spooled files) and QUSRSPLA (retrieve spooled file attributes). You can list all or selected spooled files on the system. Hope this helps. Regards, Alan Bell
Unconfigured Ad Widget
Collapse
Announcement
Collapse
No announcement yet.
copy splfile
Collapse
X
-
copy splfile
Alan, No I have not used API's in the past. Two things: 1) can you email or list an example of how you use these two API's. 2) Where would I find information on API's. Thanks, Willie.. wjmoore@calfinewire.com
-
copy splfile
The following is how I process an outq and remove spool files for a prior day. The outq is output to a db file. Use CRTPF and create a 133 byte file. headings are defined to allow for bypassing. You can use the substring to define where in the 133 byte data to find report name. Hope this gives you a start. Larry L. Swain /* ************************************************** *********** */ /* CLEAR OUTQ PASSED AS PARAMETER LEAVING CURRENT DAYS SPOOL FILES */ /* ************************************************** *********** */ PGM PARMOUTQ) DCL VAR(&OUTQ) TYPE(*CHAR) LEN(10) DCL VAR(&JOB) TYPE(*CHAR) LEN(10) DCL VAR(&USER) TYPE(*CHAR) LEN(10) DCL VAR(&NBR) TYPE(*CHAR) LEN(10) DCL VAR(&QDATE) TYPE(*CHAR) LEN(6) DCL VAR(&CJUL) TYPE(*CHAR) LEN(5) /* VARIABLES USED TO MANIPULATE SPOOL FILES */ DCL VAR(&VARA) TYPE(*CHAR) LEN(22) VALUE(' ') DCL VAR(&VARB) TYPE(*CHAR) LEN(19) VALUE(' ') DCL VAR(&VARC) TYPE(*CHAR) LEN(27) VALUE(' ') DCL VAR(&VARD) TYPE(*CHAR) LEN(23) VALUE(' ') DCL VAR(&VAR1) TYPE(*CHAR) LEN(22) + VALUE('Work With Output Queue') DCL VAR(&VAR2) TYPE(*CHAR) LEN(19) + VALUE('Status Pages Copies') DCL VAR(&VAR3) TYPE(*CHAR) LEN(27) + VALUE('E N D O F L I S T I N G') DCL VAR(&VAR4) TYPE(*CHAR) LEN(23) + VALUE('No spooled output files') DCL VAR(&SPLJOB) TYPE(*CHAR) LEN(10) DCL VAR(&SPLUSER) TYPE(*CHAR) LEN(10) DCL VAR(&SPLNBR) TYPE(*CHAR) LEN(06) DCL VAR(&SPLFILE) TYPE(*CHAR) LEN(10) DCL VAR(&SPLFILE#) TYPE(*CHAR) LEN(4) DCL VAR(&SPLFILE#N) TYPE(*DEC) LEN(4 0) DCL VAR(&SPLDATE) TYPE(*CHAR) LEN(8) DCL VAR(&SPLDATEW) TYPE(*CHAR) LEN(5) DCL VAR(&SPLDATEN) TYPE(*DEC) LEN(6 0) DCLF FILE(WF133OUTQ) RTVJOBA JOB(&JOB) USER(&USER) NBR(&NBR) RTVSYSVAL SYSVAL(QDATE) RTNVAR(&QDATE) CVTDAT DATE(&QDATE) TOVAR(&CJUL) FROMFMT(*MDY) + TOFMT(*JUL) TOSEP(*NONE) CONTINUE: WRKOUTQ OUTQ(&OUTQ) OUTPUT(*PRINT) CLRPFM FILE(WF133OUTQ) MONMSG MSGID(CPF0000) CPYSPLF FILE(QPRTSPLQ) TOFILE(WF133OUTQ) + JOB(&NBR/&USER/&JOB) SPLNBR(*LAST) + CTLCHAR(*NONE) READF: RCVF RCDFMT(QPRTSPLQ) MONMSG MSGID(CPF0864) EXEC(GOTO CMDLBL(EXIT)) CHGVAR VAR(&VARA) VALUE(%SST(&DTA133 36 22)) CHGVAR VAR(&VARB) VALUE(%SST(&DTA133 35 19)) CHGVAR VAR(&VARC) VALUE(%SST(&DTA133 22 27)) CHGVAR VAR(&VARD) VALUE(%SST(&DTA133 07 23)) IF COND(&VARA *EQ &VAR1 *OR + &VARB *EQ &VAR2 *OR + &VARC *EQ &VAR3 *OR + &VARD *EQ &VAR4) THEN(DO) GOTO CMDLBL(READF) ENDDO /* SPOOL FILE */ CHGVAR VAR(&SPLFILE) VALUE(%SST(&DTA133 2 10)) /* SPOOL USER */ CHGVAR VAR(&SPLUSER) VALUE(%SST(&DTA133 13 10)) /* SPOOL FILE NUMBER */ CHGVAR VAR(&SPLFILE#) VALUE(%SST(&DTA133 73 4)) CHGVAR VAR(&SPLFILE#N) VALUE(&SPLFILE#) /* SPOOL JOB */ CHGVAR VAR(&SPLJOB) VALUE(%SST(&DTA133 82 10)) /* SPOOL NUMBER */ CHGVAR VAR(&SPLNBR) VALUE(%SST(&DTA133 93 6)) /* SPOOL DATE */ CHGVAR AR(&SPLDATE) VALUE(%SST(&DTA133 100 8)) CVTDAT DATE(&SPLDATE) TOVAR(&SPLDATEW) + FROMFMT(*SYSVAL) TOFMT(*JUL) TOSEP(*NONE) IF COND(&SPLDATEW *GE &CJUL) THEN(DO) GOTO CMDLBL(NEXT) ENDDO DLTSPLF FILE(&SPLFILE) JOB(&SPLNBR/&SPLUSER/&SPLJOB) + SPLNBR(&SPLFILE#N) NEXT: GOTO CMDLBL(READF) EXIT: DLTOVR FILE(*ALL) CLRPFM FILE(WF133OUTQ) DLTSPLF FILE(QPRTSPLQ) JOB(&NBR/&USER/&JOB) + SPLNBR(*LAST) QUIT: ENDPGM
Comment
-
copy splfile
Hi, We recently purchased a set of tools, they will allow you to do these kind of things they are shareware, check them out at: http://www.bvstools.com Gary segalgary@hotmail.com
Comment
Comment