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
 
Help in Unstring Verb

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

New User


Joined: 11 Oct 2008
Posts: 74
Location: Chicago, IL

PostPosted: Fri Sep 11, 2009 6:42 pm    Post subject: Help in Unstring Verb
Reply with quote

Hello All,
I am facing some complexity in unstring the following example.
I/P:
ECDC.BASE.COPYLIB UID(CH11001755) READ(A) WRITE(A) ALLOC(A)
Or
UID(CH11001755) ALLOW
I need to change the "CH11001755" with some new ID.

The format is like
Tk1_UID(<Some id>)_<Access>

Tk1 is not necessary, it may come and depends on runtime.

I need to take

TK1 UID(
<uid>
) <access>

in 3 tokens.

The problem i am facing is that i can use DELIMITED BY "("
so that everu thing before ( can be in token 1,
now i want to use next DELIMITOR at ")"
and then next DELIMITED BY SIZE.

but how to ppreform that....????

Thanks in Advance
Gaurav
Back to top
View user's profile Send private message

GauravKudesiya
Warnings : 1

New User


Joined: 11 Oct 2008
Posts: 74
Location: Chicago, IL

PostPosted: Fri Sep 11, 2009 9:09 pm    Post subject:
Reply with quote

Its done now.......... icon_smile.gif
Back to top
View user's profile Send private message
Terry Heinze

JCL Moderator


Joined: 14 Jul 2008
Posts: 1249
Location: Richfield, MN, USA

PostPosted: Fri Sep 11, 2009 9:10 pm    Post subject:
Reply with quote

Please share your solution for the benefit of others.
Back to top
View user's profile Send private message
GauravKudesiya
Warnings : 1

New User


Joined: 11 Oct 2008
Posts: 74
Location: Chicago, IL

PostPosted: Fri Sep 11, 2009 9:17 pm    Post subject:
Reply with quote

sure...

i used
WS-D1 PIC X(1) VALUE '('
WS-D2 PIC X(1) VALUE ')'
.
.
.

UNSTRING OLD-REC DELIMITED BY "(" OR ")" INTO
OLD-1 DELIMITER IN WS-D1,
OLD-2 DELIMITER IN WS-D2,
OLD-3 DELIMITER IN SIZE.


EXPLAINATION:

OLD-REC = ECDC.BASE.COPYLIB UID(CH11001755) READ(A) WRITE(A) ALLOC(A)

OLD-1 = ECDC.BASE.COPYLIB UID
OLD-2 = CH11001755
OLD-3 = READ(A) WRITE(A) ALLOC(A)

SO ITS SOLVED....
Back to top
View user's profile Send private message
dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Fri Sep 11, 2009 9:47 pm    Post subject: Reply to: Help in Unstring Verb
Reply with quote

Good to hear it is working - thanks for letting us know and posting your solution icon_smile.gif

d
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 Unstring list of values into an array. Roshnii COBOL Programming 8 Mon Jun 27, 2016 6:25 pm
No new posts Problem with UNSTRING of CSV data Bill Woodger COBOL Programming 14 Tue Dec 15, 2015 5:32 pm
No new posts Logic of START verb with Read next sandeep kumar302 COBOL Programming 6 Tue Feb 04, 2014 12:21 pm
No new posts Unstring in Cobol Govardhana krishna COBOL Programming 7 Thu Oct 17, 2013 8:52 pm
No new posts Unstring the message d katkuri COBOL Programming 13 Wed Aug 14, 2013 12:28 pm

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