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 |
i WANT ALL ERROR codes IN CICS and DB2
I want ALL ERROR codes in VSAM
3 Answers American Express, TCS,
I want ALL jcl ERROR cods
how to resolve the file status 47.......
What is the figurative constant in cobol?
How many times the loop runs here 01 a pic 9(2) value 10. perform para1 a times stop run. para1: move 20 to a.
How do you differentiate between cobol and cobol-ii?
Whtz the specialty of 77 level number ?
What will happen if you code GO BACK instead of STOP RUN in a stand-alone COBOL program i.e. a program which is not calling any other program ?
In the JCL, how do you define the files referred to in a subroutine ?
how to access vsam files in cobol and how to differentiate that this is ESDS file
What is the difference between a binary search and a sequential search what are the pertinent cobol?