View previous topic :: View next topic
|
Author |
Message |
ranjithmainframe
New User
Joined: 21 Jan 2008 Posts: 39 Location: chennai
|
|
|
|
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 |
|
|
ranjithmainframe
New User
Joined: 21 Jan 2008 Posts: 39 Location: chennai
|
|
|
|
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 |
|
|
Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005 Posts: 7129 Location: San Jose, CA
|
|
|
|
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 |
|
|
|
|