Function SET193D: Deallocate Data Queue from Pool
********** COMMENT(=======================================================);
********** COMMENT();
********** COMMENT(Process ........: SET_193);
********** COMMENT(Function .......: SET193D);
********** COMMENT(Created on .....: 11th October 2000);
********** COMMENT(Description ....: Deallocate data queue from pool);
********** COMMENT(Version.........: 1);
********** COMMENT();
********** COMMENT(Full Description: This function deallocates a);
********** COMMENT( data queue name from the pool.);
********** COMMENT();
********** COMMENT(Disclaimer: The following material is supplied as);
********** COMMENT( example material only. No warranty concerning the);
********** COMMENT( material or its use in any way whatsoever is);
********** COMMENT( expressed or implied.);
********** COMMENT();
********** COMMENT(Minimum Release of LANSA Required : 8.0);
********** COMMENT();
********** COMMENT(=======================================================);
FUNCTION OPTIONS(*DIRECT *HEAVYUSAGE *MLOPTIMISE *NOMESSAGES);
********** COMMENT();
********** COMMENT(Local Definitions);
********** COMMENT();
DEFINE FIELD(#S_193DAV) TYPE(*CHAR) LENGTH(256) DESC('Data Area Value');
DEFINE FIELD(#SS) REFFLD(#STD_NUM) DESC('Array Index');
DEF_ARRAY NAME(#DAV) INDEXES(#SS) OVERLAYING(#S_193DAV) TYPE(*CHAR) TOT_ENTRY(0256) ENTRY_LEN(001);
DEFINE FIELD(#S_193DQX) LENGTH(004) DECIMALS(0) REFFLD(#DATE) EDIT_CODE(4) DEFAULT(0) TO_OVERLAY(#S_193DQN 007);
********** COMMENT();
********** COMMENT(Get data queue pool data area with a lock);
********** COMMENT();
USE BUILTIN(GET_CHAR_AREA) WITH_ARGS(#S_193DAN #S_193DAL Y) TO_GET(#S_193DAV);
********** COMMENT();
********** COMMENT(If name is supplied, decode to get);
********** COMMENT(the pool index. If the index is in);
********** COMMENT(range, set pool status to E (Exists));
********** COMMENT();
IF COND('#S_193DQN *NE *BLANKS');
CHANGE FIELD(#SS) TO(#S_193DQX);
IF COND('(#SS >= 1) AND (#SS <= 256)');
CHANGE FIELD(#DAV#SS) TO(E);
ENDIF;
ENDIF;
********** COMMENT();
********** COMMENT(Update and release the pool data area);
********** COMMENT();
USE BUILTIN(PUT_CHAR_AREA) WITH_ARGS(#S_193DAV #S_193DAN #S_193DAL Y);
RETURN;
********** COMMENT(=======================================================);
********** COMMENT();
********** COMMENT(Process ........: SET_193);
********** COMMENT(Function .......: SET193D);
********** COMMENT(Created on .....: 11th October 2000);
********** COMMENT(Description ....: Deallocate data queue from pool);
********** COMMENT(Version.........: 1);
********** COMMENT();
********** COMMENT(Full Description: This function deallocates a);
********** COMMENT( data queue name from the pool.);
********** COMMENT();
********** COMMENT(Disclaimer: The following material is supplied as);
********** COMMENT( example material only. No warranty concerning the);
********** COMMENT( material or its use in any way whatsoever is);
********** COMMENT( expressed or implied.);
********** COMMENT();
********** COMMENT(Minimum Release of LANSA Required : 8.0);
********** COMMENT();
********** COMMENT(=======================================================);
FUNCTION OPTIONS(*DIRECT *HEAVYUSAGE *MLOPTIMISE *NOMESSAGES);
********** COMMENT();
********** COMMENT(Local Definitions);
********** COMMENT();
DEFINE FIELD(#S_193DAV) TYPE(*CHAR) LENGTH(256) DESC('Data Area Value');
DEFINE FIELD(#SS) REFFLD(#STD_NUM) DESC('Array Index');
DEF_ARRAY NAME(#DAV) INDEXES(#SS) OVERLAYING(#S_193DAV) TYPE(*CHAR) TOT_ENTRY(0256) ENTRY_LEN(001);
DEFINE FIELD(#S_193DQX) LENGTH(004) DECIMALS(0) REFFLD(#DATE) EDIT_CODE(4) DEFAULT(0) TO_OVERLAY(#S_193DQN 007);
********** COMMENT();
********** COMMENT(Get data queue pool data area with a lock);
********** COMMENT();
USE BUILTIN(GET_CHAR_AREA) WITH_ARGS(#S_193DAN #S_193DAL Y) TO_GET(#S_193DAV);
********** COMMENT();
********** COMMENT(If name is supplied, decode to get);
********** COMMENT(the pool index. If the index is in);
********** COMMENT(range, set pool status to E (Exists));
********** COMMENT();
IF COND('#S_193DQN *NE *BLANKS');
CHANGE FIELD(#SS) TO(#S_193DQX);
IF COND('(#SS >= 1) AND (#SS <= 256)');
CHANGE FIELD(#DAV#SS) TO(E);
ENDIF;
ENDIF;
********** COMMENT();
********** COMMENT(Update and release the pool data area);
********** COMMENT();
USE BUILTIN(PUT_CHAR_AREA) WITH_ARGS(#S_193DAV #S_193DAN #S_193DAL Y);
RETURN;