01 text-data pic x(100). move 'xyzdbfrjjg u' to text-data. how to f

01 text-data pic x(100).
move 'xyzdbfrjjg u' to text-data.
how to find the value of last index of text-data?

Question Posted / app

3 Answers
8377 Views
Mind Tree, I also Faced
E-Mail Answers

Answers were Sorted based on User's Feedback

01 text-data pic x(100). move 'xyzdbfrjjg u' to text-data. how to find the value of las..

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

01 text-data pic x(100). move 'xyzdbfrjjg u' to text-data. how to find the value of las..

Answer / krishna chaitanya

cana ny one post a code for that ,

thanks in advance

krishna

Is This Answer Correct ?

0 Yes

0 No

01 text-data pic x(100). move 'xyzdbfrjjg u' to text-data. how to find the value of las..

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

Post New Answer

More COBOL Interview Questions

What is the Purpose of POINTER Phrase in STRING command

3 Answers

given the following: 77 A PIC 9V9 VALUE 9.5 77 B PIC 9 VALUE 9. 77 C PIC V9 VALUE 0.8 77 D PIC 9 77 E PIC 9 77 F PIC 9V999 what are the contenta of D E nad F after the following statements are executed: COMPUTE F ROUNDED=A+C/B MULTIPLY A BY C GIVING E ADD B C A GIVING D ROUNDED a.F=9.589 E=8 D=1 b.F=9.589 E=8 D=9 c.F=9.589 E=7 D=9 d.F=9.589 E=7 D=1

5 Answers Broadridge, TCS,

Explain the configuration section of a cobol program with examples of syntax.

0 Answers

What is Static,Dynamic linking ?

2 Answers

is it possible to declare index in cobol program? if it is not why its tell me pls

3 Answers

I want ALL jcl ERROR cods

1 Answers

What is the file organization clause ?

2 Answers

How do you compile cobol program..?

1 Answers

I have a table with 3 dimensions like this : 01 ws-table 04 ws-page occurs 3 08 ws-column occurs 2. 12 ws-record occurs 20 pic x(40). How to code with PERFORM varying with 3 dimension...I forgot..

2 Answers EDS,

I have a field with data type X(10). I want to perform arithmetic operation on this field? I tried doing it by moving the value into a numeric field. but it didn't work out. I am getting a S0C7 abend. Pls let me know if there is any way of getting this done?

1 Answers

In an EVALUTE statement is the order of the WHEN clauses significant?

4 Answers

What is the meaning of 'Eject' verb in cobol?

2 Answers TCS, Wipro,

For more COBOL Interview Questions Click Here