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

Sort Utility that uses Copybook field names

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


Joined: 07 Jul 2015
Posts: 6

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

PostPosted: Thu Apr 06, 2017 2:12 am    Post subject: Sort Utility that uses Copybook field names Reply with quote

Not sure if anyone would find the useful,
But I created a menu based proc that does commonly used sort functions by Copybook field names as opposed to specificing the field length and positions of each record.

I work with these files a lot, and when layouts change, its a pain to have to change the record positions and lengths all the time... also, its easier to use since the proc will figure out the postions and lengths for you.


You just set the fieldname you want to the do the sort function on, and the flag setting for which sort function you want to use based on menu I provided below the proc name.

If there is a lot of interenst I can share the proc code.



Code:
//**********************************************************************
//* SORT UTILITY BASED ON COPYBOOK FIELD NAME AND FLAG SETTING         
//* SET INPUT AND OUTPUT DATASET NAMES BELOW                           
//**********************************************************************
//*                                                                     
// INCLUDE MEMBER=CV#SRTCC ; CONTROL CARDS FOR DEFAULT SET STATEMENTS   
// SET CBLIB=TEST          ; CPYBOOK LIB LOCATION(TEST,PROD)
//*                                                                     
// SET FILEIN=TEST.INPUT.FILE                     
// SET OUTPUT=TEST.OUTPUT.FILE               
//* BELOW DATASET IS ONLY POPULATED IF FLAG 09 OR 10 ARE USED (DUPS)   
// SET OUTDUP=TEST.OUTPUT.DUPS               
//*                                                                     
//**********************************************************************
//* SET FIELD NAME, COPYBOOK AND FLAG SETTING BELOW                     
//**********************************************************************
// SET FIELDNM=COPYBK1-FIELD1                                           
// SET CPYBOOK=COPYBK1    ; CPYBOOK= TEST.COPY(COPYBK1)         
//*                                                                     
//* TEST.CNTRLCDS(#SORTFLG) ; SEE HERE FOR FLAG SETTINGS       
//*                                                                     
// SET FLAG=00 ; SET FLAG ACCORDING TO OPTIONS ABOVE                   
//*                                                                     
//SRT01F00   EXEC PROC=CV#SRTV1                                         


***************************** Top of Data ******************************
             00 = SORT FIELD (ASCENDING ORDER)                         
             01 = SORT FIELD (DECENDING ORDER)                         
             02 = ADD LEADING ZEROES                                   
             03 = REMOVE LEADING ZEROS (LEFT JUSTIFY)                   
             04 = LEFT JUSTIFY                                         
             05 = RIGHT JUSTIFY                                         
             06 = LOWER TO UPPER CASE                                   
             07 = UPPER TO LOWER CASE                                   
             08 = REMOVE LOW VALUES FROM FILE (FIELDNM CAN BE DUMMY)   
             09 = SORT OFF DUPLICATES KEEP 1                           
             10 = SORT OFF ALL DUPLICATES                               
             XX = UNPACK (FUTURE NOT USED YET)                         
             XX = PACK   (FUTURE NOT USED YET)                         
[/code]
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.

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

Related topics
 Topics   Replies   Author   Views   Last Post 
No new posts to copy dynamic files to a gdg 0 sam2303 71 Sat May 13, 2017 11:10 pm
sam2303 View latest post
No new posts Count number of Input files of a certain naming convention 0 nishant.bunny 385 Thu Apr 06, 2017 5:45 pm
nishant.bunny View latest post
No new posts JCL SORT to get the count in conjunction with outrec 0 curious 260 Mon Mar 13, 2017 8:42 pm
curious View latest post
No new posts sort files with record count !!! 0 balaryan 514 Fri Mar 10, 2017 2:30 am
balaryan View latest post
No new posts compare vsam file with data from flat file as reference 0 Nag849 650 Wed Feb 22, 2017 9:32 pm
Nag849 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-8397.html