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 |
we can use set true for condition names.. similarly can we code set to false in cobol pgm? will it work?
How will 128 be saved in s9 (3) comp-3 How will 12 be saved in s9 (2) comp
How can you add a particular field/coloumn in copybook?
why we are using picture clause in the cobol programs?
How you can delete a record from a ps file in cobol?
How you can read the file from bottom?
how many divisions are there in cobol
Difference between lrecl, blksize among PS, PDS issues? i.e in jcl at dcb
In COBOL programming, what is PERFORM? What is VARYING?
How many types of sorts are there in cobol?
HOW WE WILL SORT THE ARRAY WHICH IS GOING TO USE FOR SEARCH ALL?
how to crack cts interview apps? NOVEMBER 21 2010