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 How to Clear all TSQs during CICS sta... Hooman24 CICS 10 Mon Jun 26, 2017 9:46 pm
No new posts CICS Transaction attach count of supp... lind sh CICS 1 Wed Jun 21, 2017 1:33 pm
No new posts Running an REXX EXEC implicitly sho7hills CLIST & REXX 3 Thu Apr 20, 2017 8:14 am
No new posts CICS Transaction Timeout Hooman24 CICS 2 Sun Apr 16, 2017 2:16 pm
No new posts Date and time format in CICS Chandru3183 CICS 2 Sat Mar 18, 2017 12:46 pm


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