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


     
 
MAINFRAME - TIP OF THE DAY : When you specified V for RECFM parameter, LRECL value is largest record in the file plus 4 bytes. These four bytes contain the actual length of each variable length record in the file

Google
 
Web mainframegurukul.com

equivalent file-manager command of file-aid command COPYBACK

 
Post new topic   Reply to topic    mainframegurukul.com Forum Index -> DFSORT , ICETOOL & Utilities
  View previous topic :: View next topic  
Author Message
dgarg7
Member


Joined: 14 Nov 2013
Posts: 6
Location: hyderabad

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

PostPosted: Fri Nov 15, 2013 8:03 am    Post subject: equivalent file-manager command of file-aid command COPYBACK Reply with quote

My client is stopping use of file-aid, now they want us to use file-manager. We have been using following command in JCL for copying the last 5 records from input file, when the number of records in input file was unknown. Please see the below piece of code in file-aid:
//FILEAID1 EXEC PGM=FILEAID,REGION=1M,COND=(7,GE,CHKFILE)
//SYSPRINT DD SYSOUT=*
//SYSLIST DD SYSOUT=*
//DD01 DD DSN=ABC.TEMP,DISP=SHR
//DD01O DD DSN=&&TEST3,
// UNIT=TSTDA,SPACE=(CYL,(5,5),RLSE),DISP=(,PASS),
// DCB=*.DD01
//SYSIN DD *
$$DD01 COPYBACK OUT=05
/*

If anybody uses filemanager in jobs, Please help me. I tried to google, but to no avail Sad
Back to top
View user's profile Send private message Yahoo Messenger
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: 732

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

PostPosted: Fri Nov 15, 2013 12:31 pm    Post subject: Reply with quote

Well, from the forum you've posted in, look at ICETOOL's SELECT operator with LAST ( 5 ).
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.
dgarg7
Member


Joined: 14 Nov 2013
Posts: 6
Location: hyderabad

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

PostPosted: Fri Nov 15, 2013 2:20 pm    Post subject: Reply with quote

Sorry to say but they dont use ICETOOL either Sad
Back to top
View user's profile Send private message Yahoo Messenger
Click here, If this post answer your question. <-- Click on right mark icon. If this post answer your question.
NicC
Active Member


Joined: 24 Jul 2011
Posts: 650
Location: Down on the pig farm

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

PostPosted: Fri Nov 15, 2013 7:40 pm    Post subject: Reply with quote

Which sort product DO they use?
_________________
Regards
Nic
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.
DikDude
Moderator


Joined: 22 Jul 2011
Posts: 1001
Location: usa

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

PostPosted: Sat Nov 16, 2013 12:45 am    Post subject: Reply with quote

Quote:

Sorry to say but they dont use ICETOOL either
Does this mean they are simply unwilling to use it or that there is no ICETOOL on their system?
_________________
Have a good one
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.
dgarg7
Member


Joined: 14 Nov 2013
Posts: 6
Location: hyderabad

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

PostPosted: Mon Nov 18, 2013 9:05 am    Post subject: Reply with quote

Yeah, they don't have ICETOOL.
They are using DFSORT.
Back to top
View user's profile Send private message Yahoo Messenger
Click here, If this post answer your question. <-- Click on right mark icon. If this post answer your question.
dgarg7
Member


Joined: 14 Nov 2013
Posts: 6
Location: hyderabad

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

PostPosted: Mon Nov 18, 2013 10:00 am    Post subject: Reply with quote

One more tool, which I forgot to mention earlier is ICEMAN..
Back to top
View user's profile Send private message Yahoo Messenger
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: 732

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

PostPosted: Mon Nov 18, 2013 12:17 pm    Post subject: Reply with quote

ICETOOL is part of DFSORT (also ICEMAN is an ALIAS for SORT - or rather the other way around).

So you do have ICETOOL. Consult the documentation, look to Chapter 7, and the SELECT operator.
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.
dgarg7
Member


Joined: 14 Nov 2013
Posts: 6
Location: hyderabad

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

PostPosted: Mon Nov 18, 2013 2:53 pm    Post subject: Reply with quote

Hi Guys.. Thanks for all your help!!

I used below control card and it worked :

//TOOLIN DD *
SUBSET FROM(IN) TO(OUT) KEEP INPUT LAST(5) USING(CTL1)
//CTL1CNTL DD *
SORT FIELDS=(4,1,BI,D)
SUM FIELDS=NONE

It may help someone..
Back to top
View user's profile Send private message Yahoo Messenger
Click here, If this post answer your question. <-- Click on right mark icon. If this post answer your question.
Velu
Member


Joined: 19 Nov 2013
Posts: 2
Location: Chennai

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

PostPosted: Tue Nov 19, 2013 2:47 pm    Post subject: FINDREP in sort Reply with quote

Hi All,

Please help me on the below issue.

Requirements:

In a file it has 4 fields. In these fields we may have special character’s like “ä, ö, ü and ß”. So we need to convert these special characters into “AU,OE,UE and SS”. Here we need to replace a single character with 2 character.
If we replace these, it should use the remaining spaces of the corresponding fields.

For an example:

Here the special character “ä” has to be changed as “AU”. This special character might come anywhere in the below fields. So We need to replace this without any displacement in the other fields. Since it should use the spaces which are available in the corresponding fields.it should not change the starting position of other fields.

Since every field is having some extra spaces, so OUTREC FINDREP should use these extra spaces while replacing it. Please help me on this.


Dept User id Name Area code
Code (10-35 length) (36-55 length) (56-69 length)
(1-9 length)

01 816 2138201656011656IM FANG IM FANG FR1 83320
01 817 2138101656001656JAUN JAUN FR1 83319
01 818 843201657001657ABLäNDSCHEN ABLäNDSCHEN BE1 83320
01 818 843201657001657ABLAUNDSCHEN ABLAUNDSCHEN BE1 83320
01 818 843201657001657ABLAUNDSCHEN ABLAUNDSCHEN BE1 83320
01 819 2126201654001654CERNIAT FR CERNIAT FR FR2 83320

Sort condition which I used:

//SYSIN DD *
SORT FIELDS=COPY
OUTREC FINDREP=(INOUT=(C'ä',C'AE',C'ö',C'OE',
C'ü',C'UE',C'ß',C'SS'))
/*
_________________
Thanks
Velu.
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.
NicC
Active Member


Joined: 24 Jul 2011
Posts: 650
Location: Down on the pig farm

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

PostPosted: Tue Nov 19, 2013 7:16 pm    Post subject: Reply with quote

Why have you tagged this onto the end of a completely different topic? New subject = new topic.

Which sort product are you using and what are the dataset characteristics?
_________________
Regards
Nic
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: 732

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

PostPosted: Tue Nov 19, 2013 8:29 pm    Post subject: Reply with quote

Have a loiok at the documentation of FINDREP. You can limit the bytes it looks at, and specify whether data will be shifted during a replacement. However, I don't know if it will work for you, as you are extending bytes which have data following the single source byte. If not, you'll have to relocate each field, where depends on your RECFM, FINDREP the field there, and then put the amended field back where it came from and remember to revert to the original record-lenght by dropping the extended data.
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: Mon Jan 25, 2016 9:43 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 -> DFSORT , ICETOOL & Utilities 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


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-7346.html