Re: deleting QPADEV* devices

[Steve McKay <samckay1@xxxxxxxxx>]

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.