Comments on: How to delete spool files of specific user and job http://itknowledgeexchange.techtarget.com/itanswers/how-to-delete-spool-files-of-specific-user-and-job/ Wed, 19 Jun 2013 19:19:38 +0000 hourly 1 By: TomLiotta http://itknowledgeexchange.techtarget.com/itanswers/how-to-delete-spool-files-of-specific-user-and-job/#comment-114312 TomLiotta Sun, 16 Dec 2012 22:31:42 +0000 http://itknowledgeexchange.techtarget.com/itanswers/how-to-delete-spool-files-of-specific-user-and-job/#comment-114312 It’s true; DLTSPLF doesn’t select by status. My question is related to the number of spooled files that will have status that is not HLD or RDY. Do you have those often? What status do those have? How often will you run your program when spooled files are not HLD or RDY? Why do you have those spooled files? — Tom

]]> By: 6r http://itknowledgeexchange.techtarget.com/itanswers/how-to-delete-spool-files-of-specific-user-and-job/#comment-114310 6r Sun, 16 Dec 2012 18:29:01 +0000 http://itknowledgeexchange.techtarget.com/itanswers/how-to-delete-spool-files-of-specific-user-and-job/#comment-114310 I have written this program since i hwanted only those spooled files to be deleted whose status is either HLD
OR RLS.
and I don’t think without a program this could have been possible.
following command will delete all spool files for user JKJK
DLTSPLF FILE(*SELECT) SELECT(JKJK)

but what if i want to
delete only those whose staus is either HLD or RDY.

Please correct me if this could also have been done in other way or in other programming approach or through some other
logic without creation of Logical file and flat file or even some simpler method.

Thanks

]]> By: TomLiotta http://itknowledgeexchange.techtarget.com/itanswers/how-to-delete-spool-files-of-specific-user-and-job/#comment-114307 TomLiotta Sun, 16 Dec 2012 13:05:42 +0000 http://itknowledgeexchange.techtarget.com/itanswers/how-to-delete-spool-files-of-specific-user-and-job/#comment-114307 Now that your program works, why can’t you just run this way:
 
DLTSPLF FILE(*SELECT) SELECT(JKJK)
 
Tom

]]> By: TomLiotta http://itknowledgeexchange.techtarget.com/itanswers/how-to-delete-spool-files-of-specific-user-and-job/#comment-114306 TomLiotta Sun, 16 Dec 2012 12:57:30 +0000 http://itknowledgeexchange.techtarget.com/itanswers/how-to-delete-spool-files-of-specific-user-and-job/#comment-114306 First, you can check for two users, but you need to check this way:
 
IF COND( (&USER *EQ JKJK *or &USER *EQ ABC) *AND +(&STS *EQ HLD *OR &STS *EQ RDY)) THEN(DO)
 
You need the *OR test for &USER, and that test needs its own set of parentheses.
 
Your WRKSPLF needs to be this way:
 
WRKSPLF OUTPUT(*PRINT)
 
The command works in batch because it defaults to *PRINT in batch. It defaults to the display when run interactively, so you need to tell it to print. (There is no display in batch.)
 
I remember that the spool file name had an extra blank when I ran my test, but forgot to mention it. It’s better that you found it on your own, though. It shows that you are learning how to debug and how to find the smallest details. Good job.
 
Tom

]]> By: 6r http://itknowledgeexchange.techtarget.com/itanswers/how-to-delete-spool-files-of-specific-user-and-job/#comment-114302 6r Sun, 16 Dec 2012 10:42:26 +0000 http://itknowledgeexchange.techtarget.com/itanswers/how-to-delete-spool-files-of-specific-user-and-job/#comment-114302 On very carefully seeing file name was incorrect it was having one extra leading blank in &SFILE. Thats why it was not deleting the spool file.Thanks for pinpointing the possible errors.

Now the corrected DDS of logical file Myfile 4 is as following:-

0001.00 R REC1 PFILE(JKJK1/N12)
0002.00 FILE I SST(N12 2 10)
0003.00 USER I SST(N12 13 8)
0003.01 SPNO I SST(N12 103 4)
0003.02 JOB I SST(N12 108 10)
0003.03 JNO I SST(N12 119 6)
0004.00 STS I SST(N12 46 3)

and I have made some more modifications in my previous program CSPOOL -for deleting the spool files for specific user JKJK in order to avoid manually issuing CPYSPLF command from the output of QORTSPLF(which comes as a output of fWRKSPLF).Now this program is deleting all the spool files for user JKJK except the followingones:-

Device or Total Cur
Opt File User Queue User Data Sts Pages Page Copy
QPRTSPLF JKJK JKJK RDY 1 1
QPJOBLOG JKJK QEZJOBLOG MYJOB8 RDY 4 1

I think this should be fine since qprtsplf is getting created because of WRKSPLF command in my modified program and QPJOBLOG seems nothing more than job log of my submiited job in QBATCH to call this modified program.
However I have question here that why this program is not being successfully being called from comand line.IF i directly call using C against program name than

1) due to WRKSPLF command screen comes displaying all the spool files.

2) Then after that if i press enter than following error appears:-

Job 548715/JKJK/QPADEV00DN changed by JOBMANAGER.
Job 548715/JKJK/QPADEV00DN changed by JOBMANAGER.
Job 548715/JKJK/QPADEV00DN changed by JOBMANAGER.
Job 548715/JKJK/QPADEV00DN changed by JOBMANAGER.
Job 548715/JKJK/QPADEV00DN changed by JOBMANAGER.
Job 548715/JKJK/QPADEV00DN changed by JOBMANAGER.
Job 548715/JKJK/QPADEV00DN changed by JOBMANAGER.
Job 548715/JKJK/QPADEV00DN changed by JOBMANAGER.
Job 548715/JKJK/QPADEV00DN changed by JOBMANAGER.
Job 548715/JKJK/QPADEV00DN changed by JOBMANAGER.
Job 548715/JKJK/QPADEV00DN changed by JOBMANAGER.
Job 548715/JKJK/QPADEV00DN changed by JOBMANAGER.
Job 548715/JKJK/QPADEV00DN changed by JOBMANAGER.
Job 548715/JKJK/QPADEV00DN changed by JOBMANAGER.
CPF3303 received by procedure CSPOOL1. (C D I R)

Type reply, press Enter.
Reply . . .

F3=Exit F12=Cancel

3) If I press F1 on CPF3303 received by procedure CSPOOL1. (C D I R) to know
the reason behind this message than:-

following detailed screen appears:-

Message ID . . . . . . : CPA0702 Severity . . . . . . . : 99
Message type . . . . . : Inquiry
Date sent . . . . . . : 12/16/12 Time sent . . . . . . : 10:58:43

Message . . . . : CPF3303 received by procedure CSPOOL1. (C D I R)
Cause . . . . . : ILE Control language (CL) procedure CSPOOL1 in module
CSPOOL1 in program CSPOOL1 in library JKJK1 detected an error at statement
number 0000000102. Message text for CPF3303 is: File QPRTSPLF not found in
job 548715/JKJK/QPADEV00DN. Use F10 (if available) or the Display Job Log
(DSPJOBLOG) command to see the messages in the job log for a more complete
description of what caused the error. If you still are unable to solve the
problem, please contact your technical support person.
Recovery . . . : This inquiry message can be avoided by changing the
procedure. Monitor for the error (MONMSG command) and perform error recovery
within the procedure. To continue, choose a reply value.
Possible choices for replying to message . . . . . . . . . . . . . . . :
More…
Press Enter to continue.

Message ID . . . . . . : CPA0702 Severity . . . . . . . : 99
Message type . . . . . : Inquiry

C — Cancel the CL procedure.
D — Dump the CL procedure variables and cancel the procedure.
I — Ignore the failing command.
R — Try the failing command again.

Bottom
Press Enter to continue.

F3=Exit F6=Print F9=Display message details
F10=Display messages in job log F12=Cancel F21=Select assistance level

F3=Exit F6=Print F9=Display message details
F10=Display messages in job log F12=Cancel F21=Select assistance level
it seems here prgram not detecting QPRTSPLF the same program recognize QPRTSPLF if i submit it using CALL PGM(CSPOOL1) in SBMJOB command
than job not only gets sumbitted successfully but also gets completed normally.
Not sure what causes this behaviour of CL program.
However I tried giving all the 4 options C,D,I,R one by one by calling the same CSPOOL1 program from command line but it doesnot work.It does work properly as said if i submit it in job using call pgm(cpspool1).

4) I have one more question here like if i need to delete the spool files of some other user along with JKJK (let’s say another user is ‘ABC’ Then will the followinf if condition will be correct?

IF COND(&USER *EQ JKJK *AND &USER *EQ ABC *AND +
(&STS *EQ HLD *OR &STS *EQ RDY)) THEN(DO)
DLTSPLF FILE(&FILE) JOB(&JNO/&USER/&JOB) SPLNBR(&SPNO)

also in my program i am selecting all the spool files using WRKSPLF command
then copying those files from QPRTSPLF to N12(Flat file).
But in actual if i want only the spool files of only two users as mentioned above
1)JKJK 2) ABC
then apart from above mentioned if condition is there any alternative way to achieve that target?

My modified program that seems to be working fine for deleting the spool file of single user JKJK :-

PGM
DCLF FILE(JKJK1/MYFILE4)
wrksplf
CPYSPLF FILE(QPRTSPLF) TOFILE(N12)
READ: RCVF
MONMSG MSGID(CPF0864) EXEC(GOTO CMDLBL(END))
IF COND(%SST(&SPNO 1 1) *EQ ‘ ‘) THEN(CHGVAR +
VAR(%SST(&SPNO 1 1)) VALUE(’0′))
IF COND(%SST(&SPNO 2 1) *EQ ‘ ‘) THEN(CHGVAR +
VAR(%SST(&SPNO 2 1)) VALUE(’0′))
IF COND(%SST(&SPNO 3 1) *EQ ‘ ‘) THEN(CHGVAR +
VAR(%SST(&SPNO 3 1)) VALUE(’0′))
IF COND(&USER *EQ JKJK *AND (&STS *EQ HLD *OR +
&STS *EQ RDY)) THEN(DO)
DLTSPLF FILE(&FILE) JOB(&JNO/&USER/&JOB) SPLNBR(&SPNO)
MONMSG MSGID(CPF0000)
ENDDO
GOTO CMDLBL(READ)
END: ENDPGM

Thanks .

]]> By: philpl1jb http://itknowledgeexchange.techtarget.com/itanswers/how-to-delete-spool-files-of-specific-user-and-job/#comment-114268 philpl1jb Fri, 14 Dec 2012 02:43:11 +0000 http://itknowledgeexchange.techtarget.com/itanswers/how-to-delete-spool-files-of-specific-user-and-job/#comment-114268 Of course the job log will capture the message is set properly but removing the MONMSG might expose the issue.

]]> By: TomLiotta http://itknowledgeexchange.techtarget.com/itanswers/how-to-delete-spool-files-of-specific-user-and-job/#comment-114265 TomLiotta Fri, 14 Dec 2012 00:49:28 +0000 http://itknowledgeexchange.techtarget.com/itanswers/how-to-delete-spool-files-of-specific-user-and-job/#comment-114265 The values might be correct and DLTSPLF is failing anyway. E.g., no *SPLCTL or no authority to *ALLOBJ user or various problems. With the MONMSG set for CPF0000, the program has essentially been told to ignore any problems and continue as if nothing went wrong. It might be useful to put some code into the MONMSG to see if it’s going through that path. (The check for CPF0000 with no action shouldn’t be there anyway.) — Tom

]]> By: philpl1jb http://itknowledgeexchange.techtarget.com/itanswers/how-to-delete-spool-files-of-specific-user-and-job/#comment-114257 philpl1jb Thu, 13 Dec 2012 16:10:43 +0000 http://itknowledgeexchange.techtarget.com/itanswers/how-to-delete-spool-files-of-specific-user-and-job/#comment-114257 I’m sorry, obviously when you reach the If and DLTSPLF commands one of the file variables values isn’t correct.  In Debug you can check all of the values.
&JNO  &USER &JOB, &STS, &FILE, or &SPNO aren’t current or correct values.  You can check all of these during debug. 
 

]]> By: 6r http://itknowledgeexchange.techtarget.com/itanswers/how-to-delete-spool-files-of-specific-user-and-job/#comment-114255 6r Thu, 13 Dec 2012 14:56:47 +0000 http://itknowledgeexchange.techtarget.com/itanswers/how-to-delete-spool-files-of-specific-user-and-job/#comment-114255 ..
So it does performDLTSPLF during debug mode when i forcefully assign those parameters using EVAL command. but it does read all the recods from myfile4 and now spool file numbers are coming correctly after giving the lenghth of 4 to my spool file number field in Myfile4 .But still not sure why this program is not working in desired way.

]]> By: 6r http://itknowledgeexchange.techtarget.com/itanswers/how-to-delete-spool-files-of-specific-user-and-job/#comment-114254 6r Thu, 13 Dec 2012 14:52:51 +0000 http://itknowledgeexchange.techtarget.com/itanswers/how-to-delete-spool-files-of-specific-user-and-job/#comment-114254 I have debuggged it many times and can see all the job no,job name user name and spool file name comes correctly after first 2-3 garbage recods but program does not perform dltsplf command,but it does perform when i forcefully assign
the job no,jobname,username and spool file name during debug by using EVAL
command for example just before the DLTSPLF i set break point and do EVAL &USER=’JKJK’ &JNO=123456′ ,&JOBNAME =’QPAD…’ (just for expalining my point n

]]>