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 the record

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL
View previous topic :: :: View next topic  
Author Message
muthupandi.

New User


Joined: 24 Jul 2012
Posts: 5
Location: india

PostPosted: Mon Aug 06, 2012 3:31 pm    Post subject: how to format the record
Reply with quote

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
View user's profile Send private message

vasanthz

Global Moderator


Joined: 28 Aug 2007
Posts: 1522
Location: Chennai

PostPosted: Mon Aug 06, 2012 3:42 pm    Post subject:
Reply with quote

http://ibmmainframes.com/about51950.html
http://ibmmainframes.com/about40081.html
Back to top
View user's profile Send private message
dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Mon Aug 06, 2012 7:00 pm    Post subject:
Reply with quote

Hello,

Are you looking for a database solution or a sort solution?

The answer is not "both". . .
Back to top
View user's profile Send private message
Skolusu

Senior Member


Joined: 07 Dec 2007
Posts: 2205
Location: San Jose

PostPosted: Mon Aug 06, 2012 11:15 pm    Post subject:
Reply with quote

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
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Copy 4 byte of data from the last rec... arunsoods DFSORT/ICETOOL 9 Fri Oct 06, 2017 12:15 pm
No new posts Fetch Previous month & year in MM... girishb2 DFSORT/ICETOOL 3 Thu Sep 21, 2017 9:54 pm
No new posts Convert rows and column into JSON for... Dinesh Manivannan DB2 2 Sun Sep 03, 2017 6:50 pm
No new posts Updating the Trailer count in variabl... satheshbabur DFSORT/ICETOOL 6 Wed Aug 30, 2017 9:49 pm
No new posts Repeat part of record multiple times Learncoholic DFSORT/ICETOOL 4 Tue Aug 29, 2017 11:33 am

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