|
View previous topic :: View next topic
|
| Author |
Message |
mahesh_ra
New User
Joined: 12 Sep 2007
Posts: 4
Location: Chennai
|
|
|
|
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 |
|
 |
CICS Guy
Senior Member
Joined: 18 Jul 2007
Posts: 2146
Location: At my coffee table
|
|
|
|
| It shouldn't be too hard to loop through a field.....Why don't you give it a try... |
|
| Back to top |
|
|
mahesh_ra
New User
Joined: 12 Sep 2007
Posts: 4
Location: Chennai
|
|
|
|
| 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 |
|
|
mahesh_ra
New User
Joined: 12 Sep 2007
Posts: 4
Location: Chennai
|
|
|
|
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 |
|
|
CICS Guy
Senior Member
Joined: 18 Jul 2007
Posts: 2146
Location: At my coffee table
|
|
|
|
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 |
|
|
|
|
