Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref

Author Message
rohit_k21

New User

Joined: 06 Jun 2005
Posts: 2
Location: India-Pune

 Posted: Mon Jun 06, 2005 2:36 pm    Post subject: How to calculate length of a string Folks I have requirement 01 WK-CIRCUIT-DATA PIC X(43) User Data : 1000104104 T3X-13 HRFRCT03K16 HRFRCT03W01 Length of the user data is 41 (including 3 blank spaces between the data) Kindly suggest me a method where by I can compute the length of the user data including spaces between the data (3 in the above eg) and excluding trailing spaces(2 in the above eg) I should get 41 as the ans. Thanks in advance Rohit

priya

Moderator

Joined: 24 Jul 2003
Posts: 568
Location: Bangalore

 Posted: Tue Jun 07, 2005 8:34 pm    Post subject: Try INSPECT verb.
lucky

New User

Joined: 01 Jun 2005
Posts: 12
Location: Croatia

 Posted: Wed Jun 08, 2005 12:49 pm    Post subject: Re: How to calculate length of a string I'm a C programmer, so I can't write you the COBOL code, but I would do this: 1.) Get the total length of the string (in your case 43) 2.) Loop through the string from the end backwards, and get the value of each character (I believe it's POSITION statement in COBOL). 3.) If the character is a space, decrease the variable from step 1 by 1. 4.) Break on first non-space character. As I said, I'm a C programmer, so I don't knoe if there is a better way in COBOL.
sivatechdrive

Active User

Joined: 17 Oct 2004
Posts: 190
Location: hyderabad

 Posted: Wed Jun 08, 2005 3:45 pm    Post subject: Re: How to calculate length of a string Hi rohit try the below code PERFORM VARYING WS-SUB-NAME FROM LENGTH OF WS-VAR BY -1 UNTIL END-FOUND OR WS-SUB-NAME = 0 IF WS-NAME-CHK(WS-SUB-NAME:1) NOT EQUAL TO SPACE MOVE 'Y' TO WS-END-OF-FIELD DISPLAY 'LENGTH ' WS-SUB-NAME END-IF END-PERFORM Regards siva
 All times are GMT + 6 Hours
 Page 1 of 1

Search our Forum:

 Topic Author Forum Replies Posted Similar Topics line 52: Name or string > 250 char... Ashishpanpaliya CLIST & REXX 5 Sat Oct 14, 2017 2:29 am sort records based on length exceeds ... maxsubrat DFSORT/ICETOOL 7 Wed Oct 04, 2017 4:48 pm Search for a string in many PDS KARTHIGADEVI CLIST & REXX 5 Fri Sep 08, 2017 2:32 pm Selecting two copybooks of different ... Vignesh Sid COBOL Programming 8 Tue Sep 05, 2017 7:28 pm How to change a string containing the... chong.zhou TSO/ISPF 6 Tue Aug 29, 2017 4:54 pm

 © 2003-2017 IBM MAINFRAME Software Support Division
 Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us