|
midrange.com
I opened up a pmr on this. You're right, it did require the use of QRYDST.
But you have to remember that QRYDST is pretty limited to the current user.
However IBM's suggestion really did the trick. Took 3 programs.
PGM
DCLF FILE(QSYS/QAOSDIRO) RCDFMT(OSDIRE)
DSPDIRE OUTPUT(*OUTFILE) OUTFILE(QTEMP/DIRLIST) +
DETAIL(*FULL)
OVRDBF FILE(QAOSDIRO) TOFILE(QTEMP/DIRLIST)
LOOP: RCVF RCDFMT(OSDIRE)
MONMSG MSGID(CPF0864) EXEC(GOTO CMDLBL(DONE))
IF COND((&WOSDUSRP *NE ' ') *AND +
(%SST(&WOSDUSRP 1 1) *NE 'Q')) THEN(DO)
SBMJOB CMD(CALL PGM(CLN400MIN)) JOB(&WOSDUSRP) +
USER(&WOSDUSRP)
SBMJOB CMD(CALL PGM(CLN400MOUT)) JOB(&WOSDUSRP) +
USER(&WOSDUSRP)
ENDDO
GOTO CMDLBL(LOOP)
DONE: ENDPGM
PGM
DCLF FILE(QSYS/QAOSILIN) RCDFMT(OSLIN)
QRYDST OPTION(*IN) USRID(*CURRENT) OUTFILE(QTEMP/IN)
OVRDBF FILE(QAOSILIN) TOFILE(QTEMP/IN)
LOOP: RCVF RCDFMT(OSLIN)
MONMSG MSGID(CPF0864) EXEC(GOTO CMDLBL(DONE))
DLTDST DSTID(&LINDID) OPTION(*IN) USRID(*CURRENT) +
DSTIDEXN(&LINDEX)
MONMSG MSGID(CPF0000)
GOTO CMDLBL(LOOP)
DONE: ENDPGM
PGM
DCLF FILE(QSYS/QAOSILOT) RCDFMT(OSLOUT)
QRYDST OPTION(*OUT) USRID(*CURRENT) OUTFILE(QTEMP/OUT)
OVRDBF FILE(QAOSILOT) TOFILE(QTEMP/OUT)
LOOP: RCVF RCDFMT(OSLOUT)
MONMSG MSGID(CPF0864) EXEC(GOTO CMDLBL(DONE))
DLTDST DSTID(&OUTDID) OPTION(*OUT) USRID(*CURRENT) +
DSTIDEXN(&OUTDEX)
MONMSG MSGID(CPF0000)
GOTO CMDLBL(LOOP)
DONE: ENDPGM
To test run the following before and after. And check the spool file for
saved distributions. They will be at the beginning.
SAVDLO DLO(*ALL) DEV(TAP02) OUTPUT(*PRINT)
I did have to clean up our directory a little. I also had to clean up
several user profiles who had bad job descriptions. I guess I just don't
like generic MONMSG's.
Rob Berendt
==================
Remember the Cole!
bdietz@3x.com
Sent by: To: MIDRANGE-L@midrange.com
owner-midrange-l@mi cc:
drange.com Subject: Re: Deleting
distributions
05/15/01 08:20 PM
Please respond to
MIDRANGE-L
Rob, You are going to need to look into the following commands
QRYDST OPTION(*IN) & (*OUT)
Output it to an outfile look into the file you will need the distribution
ID to use the DLTDST command
It's been a loong time since I used it but it doees work.
If you still need help I may be able to get in the "way-back machine" and
find some code samples.
Bryan Dietz
rob@dekko.com
Sent by: owner-midrange-l@midrange.com
05/14/01 03:16 PM
Please respond to MIDRANGE-L
To: MIDRANGE-L@midrange.com
cc:
Subject: Deleting distributions
I am getting to remove OV/400 from one machine. I just ran a SAVDLO. The
printout started with:
5769SS1 V4R5M0 000526 Save Document Library Object
Device . . . . . . . . : TAP02
Target release . . . . : V4R5M0 Save while active . : No
Data compressed . . . : No Data compacted . . . : Yes
Expiration date . . . : None
File label ID . . . . : QDOC
File sequence . . . . : 0000000001
ASP . . . . . . . . . : 0001
Save date/time . . . . : 05/14/01 11:42:25
Distributions
------ from ------ Date
User ID Address Description Sent
AMYC GDIHQ Dianne, I just wanted to let you know that
06/25/92
BEV GDIHQ I am testing the system to see if sending me
10/19/93
BEV GDIHQ testing
10/20/93
BEV GDIHQ testing
10/20/93
DONITA GDIHQ L. S. Cleaning Service is C-11341. I will f
11/16/93
DONITA GDIHQ If you have any of the HRS brochures with a
07/06/94
DONITA GDIHQ The Managers Meeting will not be at Richards
08/02/94
...
How do I delete all of these distributions?
Rob Berendt
==================
Remember the Cole!
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to
MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator:
david@midrange.com
+---
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to
MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator:
david@midrange.com
+---
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2025 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.
