Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

How to format input rec by add single quotes using sort

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM
View previous topic :: :: View next topic  
Author Message
ranjithmainframe

New User


Joined: 21 Jan 2008
Posts: 39
Location: chennai

PostPosted: Sun Apr 06, 2008 4:41 pm    Post subject: How to format input rec by add single quotes using sort
Reply with quote

Hi,

Could anyone help me on this...

I need to format a field from a input file to an output file as follows

input record ( length is 14);

00073330113421
00073330128654

output should be

'00073330113421',
'00073330128654',

that is output field should have single quotes inserted at the beginning as well as at the end along with comma.

I know how to add comma but I am not sure of adding single quotes..

Could you please suggest how to add single quote while writing into output file

Thanks,

Regards,
Ranjith
Back to top
View user's profile Send private message

ranjithmainframe

New User


Joined: 21 Jan 2008
Posts: 39
Location: chennai

PostPosted: Sun Apr 06, 2008 5:01 pm    Post subject: Got the answer for my first part
Reply with quote

Hi,

I got the answer using ICEMAN similar as follows,

SORT FIELDS=COPY
INREC BUILD=(C'''',2:74,14,C'''',17:C',')

Anyway thanks...

But I need to know how to add bracket at the last record nstead of comma along with above solution..

like

'00073330113421',
'00073330128654',
'00073330113455',
'00073330128666')

Thanks,

Regards,
Ranith
Back to top
View user's profile Send private message
Frank Yaeger

DFSORT Moderator


Joined: 15 Feb 2005
Posts: 7130
Location: San Jose, CA

PostPosted: Mon Apr 07, 2008 2:26 am    Post subject:
Reply with quote

Here's a DFSORT job that will do what you asked for:

Code:

//S1    EXEC  PGM=ICEMAN
//SYSOUT    DD  SYSOUT=*
//SORTIN DD DSN=...  input file
//SORTOUT DD DSN=&&S1,UNIT=SYSDA,SPACE=(TRK,(1,1)),DISP=(,PASS)
//SYSIN    DD    *
  OPTION COPY
  OUTFIL REMOVECC,NODETAIL,
    BUILD=(80X),
    TRAILER1=('LASTREC,+',COUNT=(TO=ZD))
/*
//S2    EXEC  PGM=ICEMAN
//SYSOUT    DD  SYSOUT=*
//SYMNAMES DD DSN=&&S1,DISP=(OLD,PASS)
//SORTIN DD DSN=...  input file
//SORTOUT DD DSN=...  output file
//SYSIN    DD    *
  OPTION COPY
  INREC IFOUTLEN=17,
    IFTHEN=(WHEN=INIT,
      BUILD=(C'''',2:74,14,C'''',17:C',',18:SEQNUM,8,ZD)),
    IFTHEN=(WHEN=(18,8,ZD,EQ,LASTREC),OVERLAY=(17:C')'))
/*
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts SORT to unpack a feild shr_amar DFSORT/ICETOOL 7 Fri Jul 07, 2017 4:32 am
No new posts How to write Specific Fields from Mul... Padhu SYNCSORT 6 Thu Jul 06, 2017 10:26 am
No new posts How to generate a new unique Input fi... for1ranjith CLIST & REXX 11 Sat Jul 01, 2017 12:09 pm
No new posts Optimize sort inrec parse vishwakotin DFSORT/ICETOOL 6 Mon Jun 26, 2017 11:15 pm
No new posts Reduce CPU Times for Join Sort santoshn SYNCSORT 12 Sat Jun 10, 2017 1:40 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us