T9ALLOC1

             PGM

/* Create a lock and delay. Called by T9ALLOCMNY        */

             ALCOBJ     OBJ((lennons1/qclsrc *FILE *SHRRD)) WAIT(0)
             DLYJOB     DLY(180)
             ENDPGM