|
|
| Author |
Message |
ajay krishna raj
New User
Joined: 23 Apr 2008
Posts: 2
Location: kolkata
|
|
|
|
How do we count records present in an input ps and then overwrite that COUNT into an output ps present beforehand?
The COUNT should be overwritten on some specific columns only rest of the record of the output ps remains the same. |
|
| Back to top |
|
 |
References
|
 Posted: Fri Apr 25, 2008 11:31 am Post subject: Re: Count records present in an input ps and OVERWRITE O/P PS? |
|
|
|
|
saiprasadh
Active User
Joined: 20 Sep 2006
Posts: 86
Location: India
|
|
|
|
Hi Ajay,
Can you provide an example .
Thanks
Sai |
|
| Back to top |
|
|
ajay krishna raj
New User
Joined: 23 Apr 2008
Posts: 2
Location: kolkata
|
|
|
|
output ps is like...
2008376366 12345abcdefjkl
now I want to count the number of records in the input ps, and then replace '12345' in the output ps with the count calculated. |
|
| Back to top |
|
|
Frank Yaeger
DFSORT Moderator
Joined: 15 Feb 2005
Posts: 3900
Location: San Jose, CA
|
|
|
|
You can use a DFSORT job like the following to do what you asked for:
| Code: |
//S1 EXEC PGM=ICEMAN
//SYSOUT DD SYSOUT=*
//SORTIN DD * input file
RECORD 01
RECORD 02
RECORD 03
/*
//SORTOUT DD DSN=&&S1,UNIT=SYSDA,SPACE=(TRK,(1,1)),DISP=(,PASS)
//SYSIN DD *
OPTION COPY
OUTFIL REMOVECC,NODETAIL,
BUILD=(80X),
TRAILER1=('TCOUNT,''',COUNT=(M11,LENGTH=5),'''')
/*
//S2 EXEC PGM=ICEMAN
//SYSOUT DD SYSOUT=*
//SYMNAMES DD DSN=&&S1,DISP=(OLD,PASS)
//SORTIN DD * original output file
2008376366 12345abcdefjkl
/*
//SORTOUT DD DSN=... modified output file
//SYSIN DD *
OPTION COPY
INREC OVERLAY=(13:TCOUNT)
/*
|
|
|
| Back to top |
|
|
|
|
