Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
What is DFHVALUE in CICS and what is the Use of it

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CICS
View previous topic :: :: View next topic  
Author Message
srrao_kilari

New User


Joined: 28 Nov 2005
Posts: 12
Location: New Delhi

PostPosted: Tue May 23, 2006 12:07 pm    Post subject: What is DFHVALUE in CICS and what is the Use of it
Reply with quote

Can anybody please expalain DFHVALUE in CICS and what is the practical purpose of it.
Back to top
View user's profile Send private message

Marso

REXX Moderator


Joined: 13 Mar 2006
Posts: 1243
Location: Israel

PostPosted: Tue May 23, 2006 2:32 pm    Post subject:
Reply with quote

In COBOL/CICS, some options and codes are stored as fullword binary values.
For example:
Code:
EXEC CICS INQUIRE FILE(FILE-NAME)
    OPENSTATUS(FILE-STAT)
    RESP(INQ-RESP)
END-EXEC

The value received in FILE-STAT is just a number. In order to safely check its value, use DFHVALUE:
Code:
IF FILE-STAT = DFHVALUE(CLOSED) THEN


It is very similar to DFHRESP. Using the same example:
Code:
IF INQ-RESP = DFHRESP(FILENOTFOUND) THEN


In both cases, the sentence is replaced by a valid COBOL value during the CICS precompile.
Back to top
View user's profile Send private message
gskulkarni

New User


Joined: 01 Mar 2006
Posts: 70

PostPosted: Tue May 23, 2006 2:51 pm    Post subject:
Reply with quote

DFHVALUE is a translator routine used by CICS. There are options on a number of commands that describe or define a resource. CICS supplies, in CICS-value data areas, the values associated with these options. The options are shown in the syntax of the commands with the term ?cvda? in parentheses. You pass a cvda value in two different ways: v You can assign a cvda value with the translator routine DFHVALUE. This allows you to change a cvda value in the program as the result of other run-time factors. For example:

Code:
MOVE DFHVALUE(NOTPURGEABLE) TO AREA-A.
EXEC CICS WAIT EXTERNAL ECBLIST() NUMEVENTS() PURGEABILITY(AREA-A)


If the required action is always the same, you can declare the value directly. For example:

Code:
EXEC CICS WAITCICS ECBLIST() NUMEVENTS() PURGEABLE


You receive a cvda value by defining a fullword binary data area and then testing the returned value with the translator routine DFHVALUE. For example:

Code:
EXEC CICS CONNECT PROCESS .... STATE(AREA-
IF AREA-A = DFHVALUE(ALLOCATED) ....
IF AREA-A = DFHVALUE(CONFFREE) ....
Back to top
View user's profile Send private message
avelayudhan

New User


Joined: 30 Nov 2005
Posts: 26

PostPosted: Fri Nov 17, 2006 8:29 pm    Post subject: Re: What is DFHVALUE
Reply with quote

Do anyone know what are the possible values of DFHRESP? like NORMAL, NTFND..etc?
Back to top
View user's profile Send private message
Marso

REXX Moderator


Joined: 13 Mar 2006
Posts: 1243
Location: Israel

PostPosted: Sun Nov 19, 2006 9:34 pm    Post subject:
Reply with quote

Each EXEC CICS command have its own conditions.
If you want to know exactly, you have to look at the book.
Here are some example:
RECEIVE MAP have the following conditions: EOC, EODS, INVMPSZ, INVPARTN, INVREQ, MAPFAIL, PARTNFAIL, RDATT, UNEXPIN
WRITEQ TS have the following conditions: INVREQ, IOERR, ISCINVREQ, ITEMERR, LENGERR, LOCKED, NOSPACE, NOTAUTH, QIDERR, SYSIDERR
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CICS All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Identifying Interfaces in CICS/mainframe Ashishpanpaliya CICS 5 Fri Oct 13, 2017 3:21 pm
No new posts Accessing CICS tran with map from JCL... navdeepaggarwal CICS 5 Tue Oct 03, 2017 6:15 pm
No new posts Partial color change of a field in CI... waseem0424 CICS 5 Fri Sep 29, 2017 7:56 pm
No new posts FUSE - IBM MQ - CICS integration error Kevin Vaz CICS 1 Mon Sep 18, 2017 4:31 pm
No new posts Julian Date to CICS ABSTTIME blayek CICS 3 Wed Aug 30, 2017 11:15 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us