【转】谈谈CICS ENQ,DEQ的使用_REDEMPTION_百度空间

 

在CICS中对于需要序列化访问的资源, 比如流水号分配等, 都可以使用ENQ, DEQ来保证顺序化访问, 对于ENQ, DEQ之间的代码, 只有一个TASK能够占有, 当这个TASK通过ENQ 资源, 其他TASK ENQ时都会返回ENQBUSY, 一直等待直到HOLD资源的TASK DEQ资源(除非程序handle ENQBUSY或者指定NOSUSPEND). ENQ, DEQ..

.

     在CICS中对于需要序列化访问的资源, 比如流水号分配等, 都可以使用ENQ, DEQ来保证顺序化访问, 对于ENQ, DEQ之间的代码, 只有一个TASK能够占有, 当这个TASK通过ENQ 资源, 其他TASK ENQ时都会返回ENQBUSY, 一直等待直到HOLD资源的TASK DEQ资源(除非程序handle ENQBUSY或者指定NOSUSPEND).

ENQ, DEQ是enqueue, dequeue的缩写. 语法如下:

________________________________________________________________________ |                                                                         |
|                                                                         |
| >>__ENQ__RESOURCE(data-area)__ ____________________ _________________> |
|                               |_LENGTH(data-value)_|                   |
|                                                                         |
|     _UOW_______________                                                 |
| >__|___________________|___ ___________ ___><                           |
|     |_MAXLIFETIME(cvda)_|   |_NOSUSPEND_|                               |
|     |_TASK______________|                                               |
| Conditions: ENQBUSY, INVREQ, LENGERR                                   |
|                                                                         |
|________________________________________________________________________|

________________________________________________________________________
|                                                                         |
|                                                                         |
| >>__DEQ__RESOURCE(data-area)__ ____________________ _________________> |
|                               |_LENGTH(data-value)_|                   |
|                                                                         |
|     _UOW_______________                                                 |
| >__|___________________|__><                                           |
|     |_MAXLIFETIME(cvda)_|                                               |
|     |_TASK______________|                                               |
| Conditions: INVREQ, LENGERR                                             |
|                                                                         |
| This command is threadsafe.                                             |
|                                                                         |
|________________________________________________________________________|

ENQ,DEQ的使用方法,

对于资源, 我们可以区分成两种, 使用ENQ,DEQ的语法也不同:

1,说明数据区的地址代表资源, 资源是在内存中的地址, 而不是内容, 比如CWA中的变量.

2,说明数据区的内容代表资源, 资源是他的内容, 而不是地址. 比如在WORKING-STORAGE的变量. 这种的使用,必须指定LENGTH option, 告诉CICS需要ENQ,DEQ是数据变量的内容.

eg, 比如你define jnl-seq在CWA中,则流水号分配的伪代码如下:

EXEC CICS ENQ RESOURCE(JNL-SEQ) END-EXEC

ADD 1 TO JNL-SEQ

EXEC CICS DEQ RESOURCE(JNL-SEQ) END-EXEC

   如果你只是deinfe jnl-seq在working-storage, 则流水号分配的伪代码如下:

EXEC CICS ENQ RESOURCE(JNL-SEQ) LENGTH(LENGTH OF JNL-SEQ) END-EXEC

ADD 1 TO JNL-SEQ

EXEC CICS DEQ RESOURCE(JNL-SEQ) LENGTH(LENGTH OF JNL-SEQ) END-EXEC.  

【转】谈谈CICS ENQ,DEQ的使用_REDEMPTION_百度空间