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 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
No new posts Sort Card to Remove Duplicate records... raj4neo SYNCSORT 2 Wed Jan 25, 2017 4:44 am
No new posts SQZ pipe delimited file with 1 column... Rick Silvers DFSORT/ICETOOL 6 Sun Nov 06, 2016 8:11 pm
No new posts To trim spaces in a pipe delimited da... Nish84 COBOL Programming 16 Mon Oct 10, 2016 1:54 pm


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