/***********************************************************************
* IMOD: BG53ACNV Written by Ken Meyer on 07/22/03
*
* This IMOD deletes all BIM-GSS members whose names were changed
* after the 5.2C release.
*
***********************************************************************/
filei = 'MON:$BEEPDSK.OAt'
call pdsdel
filei = 'MON:$CPRCMD.OAt'
call pdsdel
filei = 'MON:CPRAUDR1.OAt'
call pdsdel
filei = 'MON:CPRMENAU.OAt'
call pdsdel
filei = 'VIO:CPRMENU0.HLP'
call pdsdel
filei = 'VIO:CPRMENU0.SDT'
call pdsdel
filei = 'VIO:CPRMENU1.HLP'
call pdsdel
filei = 'VIO:CPRMENU1.SDT'
call pdsdel
filei = 'VIO:CPRMENU2.HLP'
call pdsdel
filei = 'VIO:CPRMENU2.SDT'
call pdsdel
filei = 'VIO:CPRMENU3.HLP'
call pdsdel
filei = 'VIO:CPRMENU3.SDT'
call pdsdel
filei = 'VIO:CPRMENU4.HLP'
call pdsdel
filei = 'VIO:CPRMENU4.SDT'
call pdsdel
filei = 'VIO:CPRMENU5.HLP'
call pdsdel
filei = 'VIO:CPRMENU5.SDT'
call pdsdel
filei = 'VIO:CPRMENU6.HLP'
call pdsdel
filei = 'VIO:CPRMENU6.SDT'
call pdsdel
filei = 'VIO:CPRMENU7.HLP'
call pdsdel
filei = 'VIO:CPRMENU7.SDT'
call pdsdel
filei = 'VIO:CPRMEN1A.SDT'
call pdsdel
filei = 'VIO:CPRMEN2B.SDT'
call pdsdel
filei = 'VIO:CPRMEN4C.SDT'
call pdsdel
filei = 'VIO:CPRMEN5D.SDT'
call pdsdel
filei = 'VIO:CPRMEN6E.SDT'
call pdsdel
filei = 'VIO:CPRMEN7F.SDT'
call pdsdel
filei = 'MON:CPRPCNV.OAt'
call pdsdel
filei = 'MON:CPRPCNV1.OAt'
call pdsdel
filei = 'MON:CPRTOBIM.OAt'
call pdsdel
filei = 'VIO:DCMHELP.SDT'
call pdsdel
filei = 'VIO:DCMQUIT.SDT'
call pdsdel
filei = 'VIO:DCMTDRVB.SDT'
call pdsdel
filei = 'VIO:DCMTDRVI.SDT'
call pdsdel
filei = 'VIO:DCMTDRV0.SDT'
call pdsdel
filei = 'VIO:EDITOR.HLP'
call pdsdel
filei = 'MON:FLOOD.OAt'
call pdsdel
filei = 'VIO:GREXCMER.SDT'
call pdsdel
filei = 'VIO:GREXHCON.SDT'
call pdsdel
filei = 'VIO:GREXHFNC.HLP'
call pdsdel
filei = 'MON:GREXHFNC.OAt'
call pdsdel
filei = 'VIO:GREXHFNC.SDT'
call pdsdel
filei = 'VIO:GSEDITH0.SDT'
call pdsdel
filei = 'VIO:GSSHELP.SDT'
call pdsdel
filei = 'VIO:GSSHELP0.HLP'
call pdsdel
filei = 'VIO:GSSHELP0.SDT'
call pdsdel
filei = 'VIO:GSSIMOD0.HLP'
call pdsdel
filei = 'VIO:GSSIMOD0.SDT'
call pdsdel
filei = 'MON:GSSJFMT.OAt'
call pdsdel
filei = 'VIO:GSSMENU0.SDT'
call pdsdel
filei = 'VIO:GSSPOWER.SDT'
call pdsdel
filei = 'MON:GSSYNTAX.OAt'
call pdsdel
filei = 'MON:HELPDESK.OAt'
call pdsdel
filei = 'VIO:MSHPONLN.SDT'
call pdsdel
filei = 'VIO:MSHPPTF.SDT'
call pdsdel
filei = 'MON:PING.OAt'
call pdsdel
filei = 'MON:USERHFNC.OAt'
call pdsdel
exit 0
 
pdsdel:
address pds 'DELL' filei   /* delete the PDS member */
if arc <> 0 then do
   say 'rc='arc 'from del'
   signal PDSCLOS
end
else say filei 'member deleted'
return
 
PDSCLOS:
exit