Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups 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: 1491
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 Adding big TEXT lines to each record ... bshkris SYNCSORT 4 Sat May 06, 2017 1:40 am
This topic is locked: you cannot edit posts or make replies. Merge two files and update Trailer re... Yashashri JCL & VSAM 1 Thu May 04, 2017 12:54 pm
No new posts Sort Large record length cmsmoon DFSORT/ICETOOL 14 Tue Apr 11, 2017 5:49 pm
No new posts Format record to remove Leading zeroes Learncoholic DFSORT/ICETOOL 14 Wed Apr 05, 2017 2:43 pm
No new posts Record Not found in AlX but record re... mukun264 COBOL Programming 7 Fri Mar 24, 2017 9:28 am


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us