Home      Mainframe Forum      Mainfarme Tutorials      IBM Manuals      Mainframe Interview Questions      Mainframe Books      IT News     SiteMap     Downloads


     
 
MAINFRAME - TIP OF THE DAY : All available storage is assigned to the job or jobstep, If REGION is coded 0K or 0M

Google
 
Web mainframegurukul.com

Need help in JCL string search

 
Post new topic   Reply to topic    mainframegurukul.com Forum Index -> JCL
  View previous topic :: View next topic  
Author Message
varad.raikar
Member


Joined: 06 Oct 2015
Posts: 5

Answer was approved by Question owner.
Useful Post
0 votes
Not an useful post
Greate Post!! Salute Author
0 salutes

PostPosted: Thu Nov 26, 2015 1:44 pm    Post subject: Need help in JCL string search Reply with quote

I have a file with following data. Lrecl -50
Key1 | capgemini 02013-7654
Key2 | morgan stanley 02156-8954

I need output as
Key1 | 02013-7654
Key2 | 02156-8954

Please help me out
Back to top
View user's profile Send private message
Click here, If this post answer your question. <-- Click on right mark icon. If this post answer your question.

William Collins
Active Member


Joined: 24 May 2012
Posts: 714

Answer was approved by Question owner.
Useful Post
0 votes
Not an useful post
Greate Post!! Salute Author
0 salutes

PostPosted: Thu Nov 26, 2015 7:03 pm    Post subject: Reply with quote

The first part of your data is in a fixed position, the thing is to get the final part also in a fixed position. You can use JFY with SHIFT=RIGHT to do that. Once you've got all the data you want in fixed positions, it is simple with BUILD.

Code:
  OPTION COPY
                                                       
  INREC IFTHEN=(WHEN=INIT,
                 OVERLAY=(51:7,44,JFY=(SHIFT=RIGHT))),
        IFTHEN=(WHEN=INIT,
                 BUILD=(1,7,86,9))
Back to top
View user's profile Send private message
Click here, If this post answer your question. <-- Click on right mark icon. If this post answer your question.
varad.raikar
Member


Joined: 06 Oct 2015
Posts: 5

Answer was approved by Question owner.
Useful Post
0 votes
Not an useful post
Greate Post!! Salute Author
0 salutes

PostPosted: Thu Nov 26, 2015 11:29 pm    Post subject: Reply with quote

That worked!!. Thanks william.

Wat if the scenario is
Input
Key1 | capgemini 02013-7654 india01
Key2 | morgan stanley 02156-8954 ny01

how do i get the output as
Key1 | 02013-7654
Key2 | 02156-8954
Back to top
View user's profile Send private message
Click here, If this post answer your question. <-- Click on right mark icon. If this post answer your question.
William Collins
Active Member


Joined: 24 May 2012
Posts: 714

Answer was approved by Question owner.
Useful Post
0 votes
Not an useful post
Greate Post!! Salute Author
0 salutes

PostPosted: Fri Nov 27, 2015 7:41 pm    Post subject: Reply with quote

The you use PARSE, to find the "-" and pick up that and the four characters after it, and then set the parse-pointer back 10 and pick up the first five characters.

This assumes that you don't have a "-" anywhere else prior to that. Not always true for a name.

Code:
  OPTION COPY
  INREC PARSE=(%01=(STARTAT=C'-',FIXLEN=5),
               %02=(SUBPOS=10,FIXLEN=5)),
        BUILD=(1,7,%02,%01)



Is there anything common in that last item? Always ending in 01?
Back to top
View user's profile Send private message
Click here, If this post answer your question. <-- Click on right mark icon. If this post answer your question.
varad.raikar
Member


Joined: 06 Oct 2015
Posts: 5

Answer was approved by Question owner.
Useful Post
0 votes
Not an useful post
Greate Post!! Salute Author
0 salutes

PostPosted: Fri Nov 27, 2015 10:45 pm    Post subject: Reply with quote

No. It doesn't always end with 01. And key1 and key2 that i have mentioned is actually time stamp. so there are "-" elsewhere too.Only thing that is common in all the records is that the output i need contains "00000-0000" i.e, first five bytes and last four bytes are always numbers. So is there anything that could trace this pattern and get me output along with key1(timestamp).
Back to top
View user's profile Send private message
Click here, If this post answer your question. <-- Click on right mark icon. If this post answer your question.
William Collins
Active Member


Joined: 24 May 2012
Posts: 714

Answer was approved by Question owner.
Useful Post
0 votes
Not an useful post
Greate Post!! Salute Author
0 salutes

PostPosted: Mon Nov 30, 2015 5:34 pm    Post subject: Reply with quote

With a variable number of variable-length data items (you could have A E I O U Incorporated, you could have dashes, numbers) and with variable-length data following what you want to extract, it is not going to be convenient.

SORT has no loop-constructs. Although your field is second-from-the-end, that, as a PARSEd field, could be number 10, or number 81.

What is the maximum length of that final field, and how many fields may precede the data you want to extract such that the minimum data-lengths would add up to that length? Then you JFY right, chop off enough to guarantee having your data, and "manually" (coded-out) PARSE to find which field is second-from-last (field after last would be blank).

It's the penalty of not having delimiters, or fixed-length fields or a fixed number of items. Basically a design fault. Although "languages" can find the second-to-last in this case, in others you'd have trouble if the final field contained "words".
Back to top
View user's profile Send private message
Click here, If this post answer your question. <-- Click on right mark icon. If this post answer your question.
academyindia4
Guest





Answer was approved by Question owner.
Useful Post
0 votes
Not an useful post
Greate Post!! Salute Author
0 salutes

PostPosted: Tue Jan 19, 2016 7:15 pm    Post subject: Topic deleted by Admin Reply with quote

<< Content deleted By Admin >>
Back to top
Click here, If this post answer your question. <-- Click on right mark icon. If this post answer your question.
Display posts from previous:   
Post new topic   Reply to topic    mainframegurukul.com Forum Index -> JCL All times are GMT + 5 Hours
Page 1 of 1



 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum

Related topics
 Topics   Replies   Author   Views   Last Post 
No new posts Search Batch file-aid help 14 frenchman 31561 Mon Feb 01, 2016 10:23 pm
academyindia4 View latest post
No new posts File-Aid Help 3 Nicholas 21374 Mon Feb 01, 2016 10:22 pm
academyindia4 View latest post
No new posts Hi plz help me out 7 Guest 21197 Mon Feb 01, 2016 10:14 pm
academyindia4 View latest post
No new posts Need urgent HELP 4 Sulagna 12528 Mon Feb 01, 2016 1:39 am
academyindia4 View latest post
This topic is locked: you cannot edit posts or make replies. executing java program thru JCL 6 Guest 24809 Tue Feb 12, 2013 1:56 pm
Anuj Dhawan View latest post
 


Cobol Tutorial
This cobol tutorial covers most of the important topics like STRING, UNSTRING, COMP, COMP-3.....
DB2 Tutorial
DB2 Tutorial focuses on DB2 COBOL Programming. Explains in simple language. Some Chapters are locked, Forum members have free access to these chapters
CICS Tutorial
This CICS tutorial covers CICS concepts and CICS Basics, CICS COBOL Programming...
JCL Tutorial
This is most popular JCL tutorial from mainframegurukul. It does contain important jcl ....
SORT Tutorial
This Tutorial covers all important aspects of DFSORT. Has more SORT examples
INTERVIEW Questions
This page covers important interview questions
Mainframe Jobs
Mainframe Jobs posted by members of mainframegurukul forum
FaceBook Page
MainframeGurukul FaceBook Page
LinkedIn Page
MainframeGurkul Linkedin Page

This widget requires Flash Player 9 or better







Go to top of the page
 

Online ABEND Reference ||  JCL References ||  COBOL References ||  VSAM References ||  Tutorials by Drona Series ||  SQL tutorial ||  BOOKS  ||  DB2 INTERVIEW QUESTIONS ||  COBOL INTERVIEW QUESTIONS  ||  JCL INTERVIEW QUESTIONS ||  JCL2 INTERVIEW QUESTIONS ||  VSAM INTERVIEW QUESTIONS ||  CICS INTERVIEW QUESTIONS  ||  Online tutorials ||  Online ABEND Reference ||  JCL References ||  COBOL References ||  VSAM References ||  Tutorials by Drona Series ||  SQL tutorial ||  BOOKS  ||  SiteMap  ||  Expeditor Tutorial  ||  FILE-AID Tutorial  ||  Changeman Tutorial  ||  COBOL   ||  DB2   ||  JCL  ||  CICS  ||  VSAM  ||  DB2 Interview Questions ( 110 )   || Simple JCL Tutorials  || JCL Tutorial from MainframeGurukul.com   || Simple JCL Tutorial - Chapter1 ;|| Mainframe Forum - Tutorials  || Mainframe Tutorials || Mainframe CICS tutorial|| Mainframe COBOL Tutorial

Drona Educational Forums - Mainframe Cobol DB2 CICS Board
Powered by phpBB

mainframetopic-7966.html