|
View previous topic :: View next topic
|
| Author |
Message |
muthupandi.
New User
Joined: 24 Jul 2012
Posts: 5
Location: india
|
|
|
|
my requirements below
input;
01
02
03
04
05
06
07
08
09
10
11
12
i need my output :
output:
01,02,03,04,05,06,07,08,09,10,11,12
how to format that above record
plz help me |
|
| Back to top |
|
 |
vasanthz
Global Moderator
Joined: 28 Aug 2007
Posts: 1742
Location: Tirupur, India
|
|
| Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix
|
|
|
|
Hello,
Are you looking for a database solution or a sort solution?
The answer is not "both". . . |
|
| Back to top |
|
|
Skolusu
Senior Member
Joined: 07 Dec 2007
Posts: 2205
Location: San Jose
|
|
|
|
Assuming you want to club every 12 records into a single, use the following DFSORT/ICETOOL JCL which will give you the desired results
| Code: |
//STEP0100 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//IN DD *
01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
//OUT DD SYSOUT=*
//TOOLIN DD *
RESIZE FROM(IN) TO(OUT) TOLEN(36) USING(CTL1)
//CTL1CNTL DD *
INREC IFOUTLEN=3,IFTHEN=(WHEN=INIT,OVERLAY=(3:C',')),
IFTHEN=(WHEN=GROUP,RECORDS=12,PUSH=(5:SEQ=8)),
IFTHEN=(WHEN=INIT,OVERLAY=(14:5,8,ZD,MOD,+12,EDIT=(TT))),
IFTHEN=(WHEN=(14,2,ZD,EQ,0),OVERLAY=(3:X))
//* |
|
|
| Back to top |
|
|
|
|
|
