Re: deleting QPADEV* devices

On Mar 18, 2025, at 1:36 PM, Steve McKay <samckay1@xxxxxxxxx> wrote:

No danger but your CL will probably failed if it runs into a QPADEV device
that IS varied on.

Thanks,

Steve McKay
(205) 585-8424
samckay1@xxxxxxxxx

On Tue, Mar 18, 2025 at 1:30 PM Jerry Draper <midrangel@xxxxxxxxxxxxx>
wrote:

We have thousands of QPADEVnnnn devices varied off.

Any danger in doing this?

Jerry

/* Loop thru list of *devd objects ODLBNM, ODOBNM, ODOBTP */

LOOP:
RCVF
MONMSG MSGID(CPF0864) EXEC(GOTO CMDLBL(ENDPGM))

IF (%SST(&ODOBNM 1 6) *EQ 'QPADEV') THEN(DO)

SNDMSG MSG(&ODOBNM) TOUSR(JDRAPER)

/* DLTOBJ OBJ(&ODLBNM/&ODOBNM) OBJTYPE(*DEVD) */

ENDDO

/* Loop until end of file */

GOTO CMDLBL(LOOP)


--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives
at https://archive.midrange.com/midrange-l.

Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related
questions.

--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives
at https://archive.midrange.com/midrange-l.

Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related questions.