sysLib.purge

La función del sistema sysLib.purge suprime una cola de almacenamiento temporal CICS.


Diagrama de sintaxis de sysLib.purge
nombreCola
Un literal o un elemento de tipo CHAR (de 1 a 8 bytes). nombreCola es necesario y contiene el nombre de una sola cola de almacenamiento temporal.

Si utiliza sysLib.purge como el nombre de función en una sentencia de invocación de función, el programa ejecuta el mandato ENQ CICS con la opción NOSUSPEND para poner en cola el nombre de recurso EZETEMP-nombreCola. El programa ejecuta el mandato DEQ de CICS para sacar de cola una vez suprimida la cola de almacenamiento temporal. Si se produce un error, el primer byte de EIBFN se coloca en los primeros 2 caracteres de sysVar.errorCode y los bytes de 0 a 2 de EIBRCODE se sitúan en los últimos 6 caracteres de sysVar.errorCode.

Ejemplo

Lo siguiente suprime la cola de almacenamiento temporal CICS asociada el valor actual de resourceAssociation para el registro ABC (donde micola es un nombre de elemento):

  micola = abc.resourceAssociation;
  sysLib.purge(micola);

Lo siguiente suprime la cola de almacenamiento temporal CICS asociada con el destino XYZ:

  sysLib.purge("XYZ");
Condiciones de uso | Comentarios
(C) Copyright IBM Corporation 2000, 2005. Reservados todos los derechos.