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/ Wed, 22 May 2013 17:18:54 +0000 hourly 1 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

]]>