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 will u pass dadta to cobol+db2 program...?
how do you define single dimensional array and multidimensional array in your cobol?
is it possible to declare index in cobol program? if it is not why its tell me pls
State the various causes of s0c1, s0c5 and s0c7.
What is the file organization clause ?
How you can read the file from bottom?
How many types of sorts are there in cobol?
If i initialize the 01 level variable in array, will it initialize all the array elements (occurs)?
hi is there any means of deletin a record from a ps usin cobol not using jcl?eg if i am reading a record and if some condition is matched tat particular record must be deletd fom the ps
HOw can I get the negative sign while deduct high value from low value
How to fetch 1000 error records from VSAM file(Eg: 1000000 records present) while getting SOC7 abend ?
How do you define a sort file in JCL that runs the COBOL program?