01 text-data pic x(100).
move 'xyzdbfrjjg u' to text-data.
how to find the value of last index of text-data?
Answer Posted / 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 View All Answers
In COBOL, what is the different between index and subscript?
What are declaratives and what are their uses in cobol?
State the various causes of s0c1, s0c5 and s0c7.
How do you reference the fixed block file formats from cobol programs
Write a program to explain size error.
Which mode is used to operate the sequential file?
I have File 1 occurs 5 times with Employee-ID,Employee-Name,Employee-Dept (EEE and MECH). I have File 2 occurs 10 times with Employee-ID,Employee-Name,Employee-Dept (EEE,CIVIL,CHEMICAL and MECH). In FIle 1 and FIle 2 , for matching Employee-DEPT (Only MECH) , we need to move entire records from file1 to file 2. We should not use 2D array. Your help is needed here.
What is the LINKAGE SECTION used in COBOL?
How to change size of Initial number of records to *NOMAX for ALL PF files from perticular library, how can I do that
) How do u handle errors in BMS macro
Why occurs cannot be used in 01 level in COBOL?
) How do u handle errors in BMS macro?
I have program P1 which calls file F1 which has 100 records and following structure 001 .................. 002 .................. 003 .................. 098 .................... 099 ................... 100 .................... Now I want to read these files and write these records in file F2 in following manner. 001 ...... 051 ..... 002 ...... 052 ..... 003 ...... 053 ..... .......... ....... .......... ....... .......... ....... 048 ........ 098 ...... 049 .......... 099 ....... 050 .... 100 ......
Write a program to enter and display the names of students in a class using the occurs clause.
How arrays can be defined in COBOL?