Yes ... And it will speed up the process involved in starting up subsystem QINTER too !
Here is what I use ....
SOURCE FILE . . . . . . . SYSADMSRC/QPGMSRC
MEMBER . . . . . . . . . DLTVD
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+...
100 /* ************************************************************** */
200 /* PROGRAM DESCRIPTION : */
300 /* */
400 /* THIS PROGRAM DELETES UNUSED VIRTUAL DEVICES */
500 /* */
600 /* SPECIAL COMPILE OPTIONS: */
700 /* */
800 /* WRITTEN BY: KEN GRAAP 08/28/98 */
900 /* UPDATED BY: 01/26/01 ADD QPACTL03 */
1000 /* UPDATED BY: KENNETH 07/18/06 ADD ADDITIONAL DSPOBJD*/
1100 /* COMMANDS */
1200 /* */
1300 /* ************************************************************** */
1400 PGM
1500 /* ************************************************************** */
1600 /* */
1700 /* DECLARE PROGRAM VARIABLES */
1800 /* */
1900 /* ************************************************************** */
2000 DCL &ERRORSW *LGL /* Std err */
2100 DCL &MSGID *CHAR LEN(7) /* Std err */
2200 DCL &MSGDTA *CHAR LEN(100) /* Std err */
2300 DCL &MSGF *CHAR LEN(10) /* Std err */
2400 DCL &MSGFLIB *CHAR LEN(10) /* Std err */
2500 DCLF FILE(KENNETH/DSPOBJWRKF) RCDFMT(QLIDOBJD)
2600 /* ************************************************************** */
2700 /* */
2800 /* GLOBAL MESSAGE MONITOR */
2900 /* */
3000 /* ************************************************************** */
3100 MONMSG MSGID(CPF0000) EXEC(GOTO CMDLBL(STDERR1))
3200 /* ************************************************************** */
3300 /* */
3400 /* VARY OFF ANY VRT *DEVD'S NOT IN USE */
3500 /* GET NAMES OF ALL THE QPADEV* *DEVD'S */
3600 /* DELETE THE QPADEV* *DEVD'S THAT CAN BE DELETED. */
3700 /* */
3800 /* ************************************************************** */
3900
4000 VRYCFG CFGOBJ(QPACTL01) CFGTYPE(*CTL) STATUS(*OFF) +
4100 RANGE(*NET) ASCVRYOFF(*YES)
4200 MONMSG MSGID(CPF2659) /* Ignore "Incomplete" +
4300 message */
4400 VRYCFG CFGOBJ(QPACTL02) CFGTYPE(*CTL) STATUS(*OFF) +
4500 RANGE(*NET) ASCVRYOFF(*YES)
4600 MONMSG MSGID(CPF2659) /* Ignore "Incomplete" +
4700 message */
4800 VRYCFG CFGOBJ(QPACTL03) CFGTYPE(*CTL) STATUS(*OFF) +
4900 RANGE(*NET) ASCVRYOFF(*YES)
5000 MONMSG MSGID(CPF2659) /* Ignore "Incomplete" +
5100 message */
5200
5300 OVRDBF FILE(DSPOBJWRKF) TOFILE(QTEMP/DSPOBJWRKF) +
5400 MBR(DSPOBJWRKF)
5500
5600 DSPOBJD OBJ(QSYS/QPADEV*) OBJTYPE(*DEVD) +
5700 OUTPUT(*OUTFILE) +
5800 OUTFILE(QTEMP/DSPOBJWRKF) OUTMBR(*FIRST +
5900 *REPLACE)
6000 MONMSG MSGID(CPF0000)
6100 DSPOBJD OBJ(QSYS/PC1*) OBJTYPE(*DEVD) +
6200 OUTPUT(*OUTFILE) +
6300 OUTFILE(QTEMP/DSPOBJWRKF) OUTMBR(*FIRST *ADD)
6400 MONMSG MSGID(CPF0000)
6500 DSPOBJD OBJ(QSYS/HHC*) OBJTYPE(*DEVD) +
6600 OUTPUT(*OUTFILE) +
6700 OUTFILE(QTEMP/DSPOBJWRKF) OUTMBR(*FIRST *ADD)
6800 MONMSG MSGID(CPF0000)
6900
7000 READ: RCVF
7100 MONMSG MSGID(CPF0864) EXEC(GOTO CMDLBL(END))
7200 DLTDEVD DEVD(&ODOBNM)
7300 MONMSG MSGID(CPF2615 CPF2616) /* Ignore "In Use" & +
7400 "Last Dev" messages */
7500 GOTO CMDLBL(READ)
7600 /* ************************************************************** */
7700 /* */
7800 /* NORMAL END OF PROGRAM */
7900 /* */
8000 /* ************************************************************** */
8100 END: RETURN
8200 /* ************************************************************** */
8300 /* */
8400 /* STANDARD ERROR PROCESSING */
8500 /* */
8600 /* ************************************************************** */
8700 STDERR1: /* Standard error handling routine */
8800 IF &ERRORSW SNDPGMMSG MSGID(CPF9999) +
8900 MSGF(QCPFMSG) MSGTYPE(*ESCAPE) /* Func chk */
9000 CHGVAR &ERRORSW '1' /* Set to fail ir error occurs */
9100 STDERR2: RCVMSG MSGTYPE(*DIAG) MSGDTA(&MSGDTA) MSGID(&MSGID) +
9200 MSGF(&MSGF) MSGFLIB(&MSGFLIB)
9300 IF (&MSGID *EQ ' ') GOTO STDERR3
9400 SNDPGMMSG MSGID(&MSGID) MSGF(&MSGFLIB/&MSGF) +
9500 MSGDTA(&MSGDTA) MSGTYPE(*DIAG)
9600 GOTO STDERR2 /* Loop back for addl diagnostics */
9700 STDERR3: RCVMSG MSGTYPE(*EXCP) MSGDTA(&MSGDTA) MSGID(&MSGID) +
9800 MSGF(&MSGF) MSGFLIB(&MSGFLIB)
9900 SNDPGMMSG MSGID(&MSGID) MSGF(&MSGFLIB/&MSGF) +
10000 MSGDTA(&MSGDTA) MSGTYPE(*ESCAPE)
10100 ENDPGM
Kenneth
Kenneth E. Graap
http://www.linkedin.com/in/kennethgraap
-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx [mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of John Rusling
Sent: Friday, December 17, 2010 9:18 AM
To: midrange-l@xxxxxxxxxxxx
Subject: Deleting client access 'auto-created' display devices.
When our sys admin does the following command
WRKCFGSTS *DEV IS*
she sees a bunch of devices and she would like to delete the ones with a status of 'VARIED OFF'.
In order to keep things cleaned up.
Is there an easy way to do this?
(other than by hand, ie taking option 8 then option 4)
tiafah,
John B
--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list To post a message email: MIDRANGE-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change list options,
visit:
http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx Before posting, please take a moment to review the archives at
http://archive.midrange.com/midrange-l.
midrange.com
