Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist 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 Difference in SORT & ICETOOL Mohan Kothakota DFSORT/ICETOOL 5 Fri Sep 22, 2017 4:56 pm
No new posts Fetch Previous month & year in MM... girishb2 DFSORT/ICETOOL 3 Thu Sep 21, 2017 9:54 pm
No new posts More than 1 Include criteria for sing... Roy Ware SYNCSORT 6 Wed Sep 13, 2017 11:45 pm
No new posts OC4 in SORT Mohan Kothakota DFSORT/ICETOOL 2 Tue Sep 12, 2017 6:30 pm
No new posts Convert rows and column into JSON for... Dinesh Manivannan DB2 2 Sun Sep 03, 2017 6:50 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us