01 text-data pic x(100).
move 'xyzdbfrjjg u' to text-data.
how to find the value of last index of text-data?
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 |
how can we get current dat and time thru cobol pgm
How include time & date in the report generation in cobol programing?
What divisions, sections and paragraphs are mandatory for a COBOL program?
I want to declare a field with data type Double in my COBOL program. how shall i do that ?
What is the default value of DISP for temp datasets
what are the paramater we cannot use in procedure?how many instream we can write in single jcl?can we call instream to catalog and ctalog to instream?
Why we should use cursor ?
When and how can we use index & subscript ?
Which is the best IBM mainframe Training Institute in Ameerpet, Hyderabad
how we rectify soc7 and soc4 errors in project?
Write a program that uses move corresponding.
What is the difference between performing a SECTION and a PARAGRAPH?