Re: ODBC exit point removed; by whom?

[Jeff Crosby <jlcrosby@xxxxxxxxxxxxxxxx>]

After I went through all the malarkey a couple of years ago, repeatedly 
losing exit points (due to an IBM API bug), I wrote the following CL 
program:

  PGM

  DCL        VAR(&YYYYMMDD) +
             TYPE(*CHAR) +
             LEN(8)
  DCL        VAR(&SAVF) +
             TYPE(*CHAR) +
             LEN(10)

  RTVDAT     CCYYMMDD(&YYYYMMDD)

  CHGVAR     VAR(&SAVF) +
             VALUE('EP' *CAT &YYYYMMDD)

  CRTSAVF    FILE(JEFF/&SAVF) +
             TEXT('Save of QUSRSYS/QUSEXRGOBJ  *EXITRG')

  SAVOBJ     OBJ(QUSEXRGOBJ) +
               LIB(QUSRSYS) +
               DEV(*SAVF) +
               OBJTYPE(*EXITRG) +
               SAVF(JEFF/&SAVF) +
               DTACPR(*MEDIUM)

  ENDPGM

It simply creates a save file (EPyyyymmdd) in my private test library 
and saves the exit points there.  The job scheduler runs it every 
Thursday at 9am.  Since I'm continually in that library, I regularly 
notice these and delete all but the last couple of them.

Since writing this program, I've never lost the exit points.  Murphy 
lives. <g>