Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
STRING DELIMITED BY verb usage

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> COBOL Programming
View previous topic :: :: View next topic  
Author Message
bamohan

New User


Joined: 29 Jan 2007
Posts: 33
Location: chennai

PostPosted: Thu Nov 20, 2008 1:40 pm    Post subject: STRING DELIMITED BY verb usage
Reply with quote

PLease find below the declaration and STRING verb command.

Is WS-EDIT-PHRASE variable can be used as delimiter in the below string syntax ? Here WS-EDIT-PHRASE can hold the value dynamically based on the external conditions ( say a= b or a=c as shown below).

Please help. Thanks.


01 WS-EDIT-PHRASE PIC X(20) VALUE SPACES.
88 88-NME-CHG-TO VALUE 'NAME CHANGED TO'.
88 88-MERG-INTO VALUE 'MERGE INTO'.
88 88-ACQU-BY VALUE 'ACQUIRED BY'.
88 88-REORG-AS VALUE 'REORGANIZED AS'.

IF a=b
set 88-REGORG-AS TO TRUE
END-IF

If a = c
set 88-nme-chg-to TO TRUE
END-IF

STRING WS-ISSUER-STRING1,
WS-ISSUER-STRING2,
WS-ISSUER-STRING3
DELIMITED BY WS-EDIT-PHRASE INTO WS-ISSUER-STRING.
Back to top
View user's profile Send private message

Escapa

Senior Member


Joined: 16 Feb 2007
Posts: 1399
Location: IL, USA

PostPosted: Thu Nov 20, 2008 2:19 pm    Post subject:
Reply with quote

Quote:
Is WS-EDIT-PHRASE variable can be used as delimiter in the below string syntax ?

Yes it can be used.
Code:

STRING WS-ISSUER-STRING1,
WS-ISSUER-STRING2,
WS-ISSUER-STRING3
DELIMITED BY WS-EDIT-PHRASE INTO WS-ISSUER-STRING.

But remember in your above code WS-EDIT-PHRASE is a delimiter and will be 20 byte delimiter regardless of what value you set remaining will be padded with spaces.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> COBOL Programming All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts line 52: Name or string > 250 char... Ashishpanpaliya CLIST & REXX 5 Sat Oct 14, 2017 2:29 am
No new posts Search for a string in many PDS KARTHIGADEVI CLIST & REXX 5 Fri Sep 08, 2017 2:32 pm
No new posts How to change a string containing the... chong.zhou TSO/ISPF 6 Tue Aug 29, 2017 4:54 pm
No new posts String after '.' (period) is not copy... balaji81_k SYNCSORT 6 Wed Aug 23, 2017 9:35 pm
No new posts change string before sertan string anatol DFSORT/ICETOOL 8 Tue Aug 15, 2017 5:43 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us