View previous topic :: :: View next topic
|
Author |
Message |
jagadeshdvn
New User
Joined: 27 Jun 2005 Posts: 12 Location: East Hartford
|
|
|
|
Hi,
Please let me know, How to find the length of a string in COBOL? Appreciate if you can explain the syntax with an example. |
|
Back to top |
|
 |
|
|
thanooz
New User
Joined: 28 Jun 2005 Posts: 99
|
|
|
|
hi
there is interensic function
function length(variablename).
thanooz |
|
Back to top |
|
 |
jagadeshdvn
New User
Joined: 27 Jun 2005 Posts: 12 Location: East Hartford
|
|
|
|
Thanks Thanooz. It nice of u buddy!!
Just to add for reference
Finding the length of data items
You can use the LENGTH function in many contexts (including numeric data and tables) to determine the length of string items.
The following COBOL statement demonstrates moving a data item into that field in a record that holds customer names:
Move Customer-name To Customer-record(1:Function Length(Customer-name))
You could also use the LENGTH OF special register. Coding either Function
Length(Customer-Name) or LENGTH OF Customer-Name returns the same result: the length of Customer-Name in bytes.
You can use the LENGTH function only where arithmetic expressions are allowed. However, you can use the LENGTH OF special register in a greater variety of contexts. For example, you can use the LENGTH OF special register as an argument to an intrinsic function that allows integer arguments. (You cannot use an intrinsic function as an operand to the LENGTH OF special register.) You can also use the LENGTH OF special register as a parameter in a CALL statement. |
|
Back to top |
|
 |
mmwife
Super Moderator
Joined: 30 May 2003 Posts: 1592
|
|
|
|
Here's another take on the question.
Code: |
01 TEXT1 PIC X(40) VALUE 'THIS IS THE STRING'.
INSPECT FUNCTION REVERSE(TEXT1) TALLYING L FOR LEADING SPACES
COMPUTE L = LENGTH OF TEXT1 - L
|
L will contain the length of the string in TEST1. |
|
Back to top |
|
 |
Rameshs
New User
Joined: 15 Jun 2005 Posts: 53 Location: India, Chennai
|
|
|
|
"Length of dataname" is working But if i use Function Reverse(dataname) i am getting the error as follows
GYPS2121-S "FUNCTION" was not defined as a data-name. |
|
Back to top |
|
 |
pruthvi
New User
Joined: 05 Mar 2005 Posts: 4
|
|
|
|
hi,
for me the above code is working fine and i got the correct output.
i tested the code in visual age ccobol |
|
Back to top |
|
 |
Rameshs
New User
Joined: 15 Jun 2005 Posts: 53 Location: India, Chennai
|
|
|
|
Hai pruthvi,
I am coding on mainframe environment using IGYWCL cobol compiler |
|
Back to top |
|
 |
mmwife
Super Moderator
Joined: 30 May 2003 Posts: 1592
|
|
|
|
Intrinsic functions were introduced to mainframe COBOL with COBOLII. |
|
Back to top |
|
 |
Anurag Singh
New User
Joined: 20 Jan 2008 Posts: 25 Location: India
|
|
|
|
Hi,
How to use the interensic function
function length(variablename).
where it will give the length of the variable?? |
|
Back to top |
|
 |
dick scherrer
Site Director
Joined: 23 Nov 2006 Posts: 19254 Location: Inside the Matrix
|
|
|
|
Hello,
It will "give the length" into whatever field you tell it to. . . What you posted is only part of the code needed to retrieve the length.
Code: |
compute lth-of-fld = function length(variablename). |
or
Code: |
compute lth-of-fld = length of variablename. |
Keep in mind that this will give the length of the field, not the length of the data in the field. If the field is defined pic x(10) and the content is 'AAA', the length returned by the function is 10.
If you want the length of the content, you need more code. There are several examples in the COBOL section of the forum, so pick one that works for you. |
|
Back to top |
|
 |
Bill O'Boyle
CICS Moderator
Joined: 14 Jan 2008 Posts: 2504 Location: Atlanta, Georgia, USA
|
|
|
|
mmwife wrote: |
Intrinsic functions were introduced to mainframe COBOL with COBOLII. |
Jack,
A slight correction.
COBOL/370 (the successor to COBOL2) is the version/release where FUNCTIONS were first introduced.
Regards,
Bill |
|
Back to top |
|
 |
mmwife
Super Moderator
Joined: 30 May 2003 Posts: 1592
|
|
|
|
Thanx Bill. My bad. |
|
Back to top |
|
 |
Aji
New User
Joined: 03 Feb 2006 Posts: 53 Location: Mumbai
|
|
|
|
Hi
This method is without using 'Function'.
Inspect Text1 Tallying L For Trailing Spaces.
Lenght = Length of Text1 - L.
Aji |
|
Back to top |
|
 |
meen
New User
Joined: 23 Jun 2008 Posts: 15 Location: bangalore
|
|
|
|
Hi I tried implementing this:
Inspect Text1 Tallying L For Trailing Spaces.
Lenght = Length of Text1 - L.
But it is giving Maxxcc12 "TRAILING" was found in the "INSPECT" statement. The statement was discarded.
|
|
Back to top |
|
 |
dick scherrer
Site Director
Joined: 23 Nov 2006 Posts: 19254 Location: Inside the Matrix
|
|
|
|
Hello,
Yup, you are not allowed to make up your own syntax. . .
At the top of the page is a link to "IBM Manuals" among which are the COBOL Language Reference and Programming Guide.
You might find REVERSE of interest. . . |
|
Back to top |
|
 |
meen
New User
Joined: 23 Jun 2008 Posts: 15 Location: bangalore
|
|
|
|
I Tried REVERSE also
INSPECT FUNCTION REVERSE(TEXT1) TALLYING L FOR LEADING SPACES
COMPUTE L = LENGTH OF TEXT1 - L
Again getting MAXCC12
"FUNCTION" was specified as an informational word in the current reserved word table. The reserved word table used may be different from the IBM-supplied default. Refer to VS COBOL II Application Programming Language
"FUNCTION" was not defined as a data-name.
|
|
Back to top |
|
 |
dick scherrer
Site Director
Joined: 23 Nov 2006 Posts: 19254 Location: Inside the Matrix
|
|
|
|
Hello,
Quote: |
Refer to VS COBOL II |
The compiler being used is too old. . .
Another way to get the answer is to use a loop and count the spaces 1 by 1 from the end of the field until the first non-blank. |
|
Back to top |
|
 |
Bill O'Boyle
CICS Moderator
Joined: 14 Jan 2008 Posts: 2504 Location: Atlanta, Georgia, USA
|
|
|
|
Use reference-modification in an IN-LINE PERFORM, starting at the last byte of the STRING and proceed backwards, until the SUB is less than 1.
Define two WS fields, such as WS-SUB and WS-POS, as PIC 9(08) COMP fields, setting WS-SUB to THE LENGTH OF THE STRING and setting WS-POS to zero.
As you proceed backwards, when you find the position with the SPACE, move WS-SUB to WS-POS and MOVE zero to WS-SUB, which will terminate the PERFORM early.
After you come out of the PERFORM, WS-POS will equal zero (no SPACES found) or it will be non-zero, which will contain the position of first SPACE found beginning at the end of the STRING, proceeding backwards.
This is actually very rudimentary....
Bill |
|
Back to top |
|
 |
Craq Giegerich
Senior Member
Joined: 19 May 2007 Posts: 1512 Location: Virginia, USA
|
|
|
|
Use reference-modification in an IN-LINE PERFORM, starting at the last byte of the STRING and proceed backwards, until the SUB is less than 1.
Define two WS fields, such as WS-SUB and WS-POS, as PIC 9(08) COMP fields, setting WS-SUB to THE LENGTH OF THE STRING and setting WS-POS to ZERO.
As you proceed backwards, IF THE CHARACTER IS NOT = SPACE MOVE WS-SUB TO WS-POS AND MOVE zero to WS-SUB, which will terminate the PERFORM early.
After you come out of the PERFORM, WS-POS WILL BE CONTAIN THE LENGTH OF STRING EXCLUDING ANY TRAILING SPACES. |
|
Back to top |
|
 |
Bill O'Boyle
CICS Moderator
Joined: 14 Jan 2008 Posts: 2504 Location: Atlanta, Georgia, USA
|
|
|
|
Craig,
Oops! Logic was bass-ackwards!
Thanks for the correction. |
|
Back to top |
|
 |
|