La función del sistema sysLib.purge suprime una cola de almacenamiento temporal CICS.
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.
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");
Consulta relacionada
Consideraciones relacionadas con CICS
Biblioteca SysLib de EGL