sábado, 19 de diciembre de 2009

Biblioteca de trabajo TEMP

Para poder crear objetos de trabajo es muy recomendable utilizar la biblioteca QTEMP, que el sistema crea solo para nuestro trabajo automáticamente. Pero si los objetos creados en esa biblioteca deben ser usados en mas de un trabajo, o sesión, o accedidos por odbc, bajados por ftp, o tenerlos en el sistema durante unos días, es muy conveniente tener una biblioteca que no desaparezca y que pueda ser compartida por mas de un trabajo, para ello nada mejor que crear la biblioteca TEMP (o como queráis llamarle), con autorización *PUBLIC *ALL. Para ello ejecutar los mandatos:
  • CRTLIB LIB(TEMP) TYPE(*TEST) TEXT('Temporary library (cleared weekly automatically)')
  • CHGOBJOWN OBJ(TEMP) OBJTYPE(*LIB) NEWOWN(QPGMR)
Con la misma idea podemos crear el directorio /home/temp:
  • CRTDIR DIR('/home/temp') DTAAUT(*RWX) OBJAUT(*ALL)
  • CHGOWN OBJ('/home/temp') NEWOWN(QPGMR)  
Para que esta biblioteca y directorio, no se conviertan en un contenedor de basura es muy recomendable realizar una limpieza periódica de su contenido.
Los objetos que se crean en esta biblioteca y directorio se podrían  eliminar automáticamente todos los domingos a las 06:00h (por ejemplo), con el trabajo planificado CLRTEMP.

Mandato para planificar dicho trabajo:
ADDJOBSCDE JOB(CLRTEMP) CMD(CALL PGM(MYLIB/CLRTEMP)) FRQ(*WEEKLY) SCDDATE(*NONE) SCDDAY(*SUN) SCDTIME(060000)
JOBQ(QUSRNOMAX) TEXT('Clear library TEMP and /home/temp')

Código del programa CLRTEMP

No hay comentarios: