DFSORT: Reformat data

In this Mainframe Forum - You can post your queries on DFSORT, ICETOOL , SyncSort & JCL Utilities

Moderators: Frank Yaeger, Moderator Group

Post Reply
simo78
Member
Posts: 35
Joined: Tue Aug 11, 2009 12:20 am
Location: Munich

DFSORT: Reformat data

Post by simo78 » Tue Dec 06, 2011 6:39 pm

Hi,

I want to use only one job for these four different input datasets:

AAA.BBBBB.DDDDDD.EE.IN01.CDEASE.GxxxxV00
AAA.BBBBB.DDDDDD.EE.IN02.ZUEW.GxxxxV00
AAA.BBBBB.DDDDDD.EE.IN03.BHDGS.GxxxxV00
AAA.BBBBB.DDDDDD.EE.IN04.EJEOWO.GxxxxV00

and get these outputs:

ee_in01_cdease
ee_in02_zuew
ee_in03_bhdgs
ee_in04_ejeowo

Also, I need to take everything beetween AAA.BBBBB.DDDDDD. and .GxxxxV00 then I've to replace the . with _ and
finally convert all in lowercase.

Can anbody suggest me how to do it?

Thanks

User avatar
Frank Yaeger
Moderator
Posts: 812
Joined: Sat Feb 18, 2006 5:45 am
Location: San Jose, CA
Contact:

Post by Frank Yaeger » Tue Dec 06, 2011 11:19 pm

You can use a DFSORT job like the following to produce the output you requested from the input you show.

Code: Select all

//S1 EXEC PGM=SORT                                       
//SYSOUT DD SYSOUT=*                                     
//SORTIN DD *                                            
AAA.BBBBB.DDDDDD.EE.IN01.CDEASE.GxxxxV00                 
AAA.BBBBB.DDDDDD.EE.IN02.ZUEW.GxxxxV00                   
AAA.BBBBB.DDDDDD.EE.IN03.BHDGS.GxxxxV00                  
AAA.BBBBB.DDDDDD.EE.IN04.EJEOWO.GxxxxV00                 
//SORTOUT DD SYSOUT=*                                    
//SYSIN DD *                                             
  OPTION COPY                                            
  INREC IFTHEN=(WHEN=INIT,                               
    PARSE=(%01=(ABSPOS=18,ENDBEFR=C'.G',FIXLEN=80)),     
    BUILD=(%01,TRAN=UTOL)),                              
   IFTHEN=(WHEN=INIT,FINDREP=(IN=C'.',OUT=C'_'))         
If you're not familiar with DFSORT and DFSORT's ICETOOL, I'd suggest reading through "z/OS DFSORT: Getting Started". It's an excellent tutorial, with lots of examples, that will show you how to use DFSORT, DFSORT's ICETOOL and DFSORT Symbols. You can access it online, along with all of the other DFSORT books, from:

http://www.ibm.com/support/docview.wss? ... g3T7000080
Frank Yaeger - DFSORT Development Team (IBM) - yaeger@us.ibm.com
Specialties: JOINKEYS, FINDREP, WHEN=GROUP, ICETOOL, Symbols, Migration
=> DFSORT/MVS is on the Web at http://www.ibm.com/storage/dfsort

simo78
Member
Posts: 35
Joined: Tue Aug 11, 2009 12:20 am
Location: Munich

Post by simo78 » Thu Dec 08, 2011 5:09 pm

THANK YOU VERY MUCH FRANK!!!!

Post Reply

FREE TUTORIALS

Tutorials
Free tutorials from mainframegurukul
  • JCL Tutorial
    Covers all important JCL concepts.
  • Cobol Tutorial
    This tutorials covers all Cobol Topics from STRING to COMP-3.
  • DB2 Tutorial
    DB2 Tutorial focuses on DB2 COBOL Programming.
  • SORT Tutorial
    This Tutorial covers all important aspects of DFSORT with examples
  • CICS Tutorial
    This CICS tutorial covers CICS concepts and CICS Basics, CICS COBOL Programming.
Interview
Mainframe Interview questions



Other References
Mainframe Tools and others