Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

Replacement of EXEC CICS BIF DEEDIT Command

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

New User


Joined: 12 Sep 2007
Posts: 4
Location: Chennai

PostPosted: Tue Oct 09, 2007 7:02 pm    Post subject: Replacement of EXEC CICS BIF DEEDIT Command
Reply with quote

Hi,

We are trying to make our Application Threadsafe and since EXEC CICS BIF DEEDIT is a non Threadsafe Command has anyone tried replacing it with Simple COBOL Code. If so can you please post the Code.

Has anyone had difficulties in doing the same.
Back to top
View user's profile Send private message

CICS Guy

Senior Member


Joined: 18 Jul 2007
Posts: 2150
Location: At my coffee table

PostPosted: Tue Oct 09, 2007 9:05 pm    Post subject:
Reply with quote

It shouldn't be too hard to loop through a field.....Why don't you give it a try...
Back to top
View user's profile Send private message
mahesh_ra

New User


Joined: 12 Sep 2007
Posts: 4
Location: Chennai

PostPosted: Wed Oct 10, 2007 12:31 pm    Post subject:
Reply with quote

I am able to Loop Through and remove the Non Numeric Charachters but the Trouble comes only when we have a X'A' thru X'F' in the last Postion....How do we take care of that and the Negative Values.
Back to top
View user's profile Send private message
mahesh_ra

New User


Joined: 12 Sep 2007
Posts: 4
Location: Chennai

PostPosted: Wed Oct 10, 2007 12:44 pm    Post subject: Comparison of EBCDIC Values
Reply with quote

Hi,

I would like to check if a Particular Charachter in COBOL x(??) Variable is between the Following the X('A0') and x('F0'). Has any one done the same in COBOL.
Back to top
View user's profile Send private message
CICS Guy

Senior Member


Joined: 18 Jul 2007
Posts: 2150
Location: At my coffee table

PostPosted: Wed Oct 10, 2007 2:46 pm    Post subject:
Reply with quote

You need to split the last byte and examine each half separately....
The left half needs to be in the range of A thru F while the right half needs to be in the range of 0 thru 9....
A little redefinition and a binary to display conversion will ease the splitting of the last digit.
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 CICS to Webservices safexc CICS 1 Sun Jan 22, 2017 5:49 pm
No new posts Fail to change physical VSAM filename... jacobdng CICS 6 Fri Jan 20, 2017 12:36 pm
No new posts CICS transaction slow response time vasanthz All Other Mainframe Topics 2 Thu Jan 19, 2017 1:31 am
No new posts INDEPENDENT CICS TS 4.1 MRO REGION UP... Kyle Carroll CICS 0 Wed Dec 14, 2016 6:55 pm
No new posts CICS START AND CANCEL blayek CICS 1 Wed Dec 07, 2016 3:27 am


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us