Is it possibile to do it with DFSORT?

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

Is it possibile to do it with DFSORT?

Post by simo78 » Mon Dec 12, 2011 6:07 pm

Hi all,

is it possible to "concatenate" strings with different lengths?

My input:

ab_dd99_rjiedc
ab_dd88_nshe
ab_dd33_mandh
ab_dd33_majfzr


My output should be:

ab_dd99_rjiedc_&LYR4&LMON&LDAY.txt
ab_dd88_nshe_&LYR4&LMON&LDAY.txt
ab_dd33_mandh_&LYR4&LMON&LDAY.txt
ab_dd33_majfzr_&LYR4&LMON&LDAY.txt


Please give me an advice how to do that!
Thanks in advance.

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 13, 2011 12:22 am

You can use a DFSORT job like the following to do what you asked for. I assumed your input file has RECFM=FB and LRECL=80, but the job can be changed appropriately for other attributes.

Code: Select all

//S1 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD *
ab_dd99_rjiedc
ab_dd88_nshe
ab_dd33_mandh
ab_dd33_majfzr
//SORTOUT DD SYSOUT=*
//SYSIN DD *
  OPTION COPY
  INREC BUILD=(1,80,JFY=(SHIFT=LEFT,
    TRAIL=(C'_&LYR4&LMON&LDAY.txt')))
/*
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 » Tue Dec 13, 2011 1:27 pm

Hi Frank,

thanks again for your quick reply!

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