Comments on: I need to create a job to delete PFs based on create date or a variable w/in the name http://itknowledgeexchange.techtarget.com/itanswers/i-need-to-create-a-job-to-delete-pfs-based-on-create-date-or-a-variable-win-the-name/ Mon, 09 Nov 2009 11:24:04 +0000 http://wordpress.org/?v=2.6.2 By: Mars808 http://itknowledgeexchange.techtarget.com/itanswers/i-need-to-create-a-job-to-delete-pfs-based-on-create-date-or-a-variable-win-the-name/#comment-57971 Mars808 Fri, 21 Nov 2008 18:03:29 +0000 #comment-57971 Aloha- Thank you so much for your time, I really appreciate it. I actually came up w/ something really simple (maybe too much so!) Here's mine, maybe if anyone sees anything glaringly 'wrong' you could be so kind as to let me know- PGM DCL VAR(&MO) TYPE(*CHAR) LEN(2) DCL VAR(&DLTUB) TYPE(*CHAR) LEN(9) DCL VAR(&DLTHF) TYPE(*CHAR) LEN(9) RTVSYSVAL SYSVAL(QMONTH) RTNVAR(&MO) CHGVAR VAR(&DLTUB) VALUE('ECPAU4' *CAT &MO *CAT '*') CHGVAR VAR(&DLTHF) VALUE('ECPAH4' *CAT &MO *CAT '*') DLTF FILE(HS#FTST/&DLTUB) MONMSG MSGID(CPF2125) DLTF FILE(HS#FTST/&DLTHF) MONMSG MSGID(CPF2125) ENDPGM Aloha- Thank you so much for your time, I really appreciate it.
I actually came up w/ something really simple (maybe too much so!)
Here’s mine, maybe if anyone sees anything glaringly ‘wrong’ you could be so kind as to let me know-
PGM
DCL VAR(&MO) TYPE(*CHAR) LEN(2)
DCL VAR(&DLTUB) TYPE(*CHAR) LEN(9)
DCL VAR(&DLTHF) TYPE(*CHAR) LEN(9)

RTVSYSVAL SYSVAL(QMONTH) RTNVAR(&MO)

CHGVAR VAR(&DLTUB) VALUE(’ECPAU4′ *CAT &MO *CAT ‘*’)
CHGVAR VAR(&DLTHF) VALUE(’ECPAH4′ *CAT &MO *CAT ‘*’)

DLTF FILE(HS#FTST/&DLTUB)
MONMSG MSGID(CPF2125)
DLTF FILE(HS#FTST/&DLTHF)
MONMSG MSGID(CPF2125)
ENDPGM

]]>