Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups 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 )SEL and )ENDSEL usage cvnlynn TSO/ISPF 4 Thu Jun 15, 2017 1:15 am
No new posts Fileaid Update Replace with null string descann Compuware & Other Tools 4 Mon May 15, 2017 3:00 pm
No new posts Need inputs on Space requirement and... ashek15 IMS DB/DC 0 Sat Apr 01, 2017 8:26 am
No new posts Replacing same string with different ... vickey_dw DFSORT/ICETOOL 6 Wed Feb 22, 2017 10:44 pm
No new posts Count Trailing Spaces in variable str... Virendra Shambharkar SYNCSORT 10 Thu Feb 02, 2017 12:23 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us