IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

How can you we use DFHRESP (NOTFOUND)
IBM Mainframe Forums -> CICS
Post new topic   Reply to topic Quick References
View previous topic :: View next topic  
Author Message
Husna

New User


Joined: 02 Jun 2006
Posts: 49
PostPosted: Mon Jun 05, 2006 12:05 pm
 Reply with quote
Hi,

While reading a record?How can you we use DFHRESP (NOTFOUND). Could you please clarify the same?

Awaiting your reply.
Back to top
View user's profile Send private message
gskulkarni

New User


Joined: 01 Mar 2006
Posts: 70
PostPosted: Mon Jun 05, 2006 2:21 pm
 Reply with quote
e.g
Code:
EXEC CICS STARTBR DATASET('file_Name')
          RIDFLD (data_field)
          GENERIC
          KEYLENGTH (LENGTH OF data_field)
          EQUAL
          RESP (resp_data_field)
END-EXEC.

IF resp_data_field = DFHRESP(NORMAL)
   SET SUCCESS-STARBR    TO TRUE
ELSE
   SET FAILED-STARTBR   TO TRUE
   IF resp_data_field = DFHRESP(NOTFND)
      MOVE 'Y'              TO EXIT-LOOP
   ELSE
      MOVE 'N'              TO PROCESSING-SW
Back to top
View user's profile Send private message
Husna

New User


Joined: 02 Jun 2006
Posts: 49
PostPosted: Mon Jun 05, 2006 3:23 pm
 Reply with quote
Hi Kulkarni,

Thanks a lot.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> CICS

 

Similar Topics
Topic Forum Replies
No new posts dfhresp(12) is coming CICS 12
No new posts DFHRESP 00000013 while CICS DOCUMENT ... CICS 2
No new posts how resolve DFHRESP = 16 ( INVREQ) in... CICS 4
No new posts Difference between DFHRESP and DFHRESP2 CICS 4
Search our Forums:

Back to Top
IBMMainframes.com is not an official and/or affiliated with IBM® in anyway
Board Rules | FAQ | Downloads | Wiki | SiteMap | Contact Us