Interested to Buy Any Domain ? << Click Here >> for more details...
01 text-data pic x(100).
move 'xyzdbfrjjg u' to text-data.
how to find the value of last index of text-data?
- 3 Answers
- 8240 Views
- Mind Tree, I also Faced
- E-Mail Answers
Answers were Sorted based on User's Feedback
Answer / billyboyo
Presumably you mean the last character? Redefine the field
as OCCURS 100 PIC X. Start your subscript/index at
the "end" and work backwards to find the first non-blank
character. Careful if the whole field is blank, or if there
are no blanks.
| Is This Answer Correct ? | 3 Yes | 0 No |
cana ny one post a code for that ,
thanks in advance
krishna
| Is This Answer Correct ? | 0 Yes | 0 No |
Answer / kumar
By using UNSTRING Verb we can do
UNSTRING text-data DELIMITED BY ' ' INTO ws-f1 (o/p varible)
| Is This Answer Correct ? | 0 Yes | 1 No |
If there are two files one with 100 records and other with 101 records. we have to find out the one record that is the odd man out . What are the steps to do it
What are the pertinent COBOL
What is the difference between Structured COBOL Programming and Object Oriented COBOL ?
RENAME clause takes new SPACE in memory.TRUE or FALSE? a)TRUE 2)FALSE
1.give the details about WHEN OTHER. 2. how many form are available in evaluate.
There are two flat files one having 10 records and other having 5 records. write a cobol pgm to find the duplicate records(matching records)from both files.
How many divisions we have in Cobol ?
I have to write to a outfile where the number of records in that file should be the header of that file using IMS.. can anyone help me in this issue
What are the ways you can generate a copybook?
What is the use of intialize verb?
How can we increase the size of an existing PDS to include more no. of modules. I tried the answer posted by Jagan(TSO PDS 'pds name') but did not find it working. The answer posted by kamal i know very well. Please suggest me a answer so that we don't need to delete the existing PDS and still we can change the size as well.
What is COMP-1? COMP-2?
COBOL 
