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
 

 

Need to be in bttom of the file after last record

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM
View previous topic :: :: View next topic  
Author Message
mosinjamadar

New User


Joined: 26 Sep 2007
Posts: 42
Location: pune

PostPosted: Wed May 19, 2010 3:36 pm    Post subject: Need to be in bttom of the file after last record
Reply with quote

Hi following is records format in the file
Code:
 OFFICE  ACCOUNT  DATE      DEPOSIT      AMOUNT      DAYS    AMOUNT

----------------------------------------------------------------------------------
 234     090692  2010-05-19    A          $3,440.00   6           $4,90
 234     090692  2010-05-19    A          $3,440.00   6           $5,00
 234     090694  2010-05-19    A          $3,500.00   6           $7,00
 234     090693  2010-05-19    A          $3,500.00   6           $7,55
*************************************************************
I am sorting using date filed using below sort card
SORT FIELDS=(19,10,CH,A) but I want to exclude ******* while sorting but want to be display in the file
after srorting my file looks like below
Code:
 OFFICE  ACCOUNT  DATE      DEPOSIT      AMOUNT      DAYS    AMOUNT

----------------------------------------------------------------------------------
*************************************************************
 234     090692  2010-05-19    A          $3,440.00   6           $4,90
 234     090692  2010-05-19    A          $3,440.00   6           $5,00
 234     090694  2010-05-19    A          $3,500.00   6           $7,00
 234     090693  2010-05-19    A          $3,500.00   6           $7,55
but I need to be in bttom of the file after last record

Kindly help me on this issue

Mosin
Back to top
View user's profile Send private message

expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8593
Location: Back in jolly old England

PostPosted: Wed May 19, 2010 3:54 pm    Post subject:
Reply with quote

Which sort product are you using.

If you are not sure, then by running a simple sort step shown below, you will be able to find out for yourself.

If the messages start with ICE then your product is DFSORT and the topic will be moved to the correct forum. Please also post the output of the complete line which has a message code ICE201I, as this will enable our DFSORT experts to determine which release of DFSORT that you have installed. This may also affect the solution offered.

If the messages start with WER or SYT then the product is SYNCSORT and the topic will remain in the JCL forum. Please also post the information telling which version of SYNCSORT is installed, as this may also affect the solution offered.

Thank you for taking your time to ensure that the valuable time of others is not wasted by offering inappropriate solutions which are not relevant due to the sort product being used and/or the release that is installed in your site.

Code:
//SORTSTEP EXEC PGM=SORT
//SYSOUT   DD SYSOUT=*
//SORTIN   DD *
ABC
//SORTOUT  DD SYSOUT=*
//SYSIN    DD *
  SORT     FIELDS=COPY
Back to top
View user's profile Send private message
mosinjamadar

New User


Joined: 26 Sep 2007
Posts: 42
Location: pune

PostPosted: Wed May 19, 2010 5:21 pm    Post subject: Reply to: problem in sort
Reply with quote

Hi

Thx for your reply

Its sync sort following are the message produced in spool

******************************** TOP OF DATA **********************************
SYNCSORT FOR Z/OS 1.3.2.1R U.S. PATENTS: 4210961, 5117495 (C) 2007 SYNCSO
z/OS 1.10.0
SYSIN :
SORT FIELDS=(154,8,CH,A) 0037002
WER276B SYSDIAG= 556881, 2258074, 2258074, 2415750
WER164B 2,788K BYTES OF VIRTUAL STORAGE AVAILABLE, MAX REQUESTED,
WER164B 0 BYTES RESERVE REQUESTED, 2,016K BYTES USED
WER146B 32K BYTES OF EMERGENCY SPACE ALLOCATED
WER108I SORTIN : RECFM=FBA ; LRECL= 180; BLKSIZE= 27900
WER110I SORTOUT : RECFM=FBA ; LRECL= 180; BLKSIZE= 27900
WER410B 1,760K BYTES OF VIRTUAL STORAGE AVAILABLE ABOVE THE 16MEG LINE,
WER410B 0 BYTES RESERVE REQUESTED, 1,748K BYTES USED
WER036B G=620
WER177I TURNAROUND SORT PERFORMED
WER045C END SORT PHASE
WER211B SYNCSMF CALLED BY SYNCSORT; RC=0000
WER416B SORTIN : EXCP'S=1,UNIT=3390,DEV=B30F,CHP=(91939795A0A2,1),VOL=TSOC88


Kindly help
Back to top
View user's profile Send private message
Anuj Dhawan

Senior Member


Joined: 22 Apr 2006
Posts: 6258
Location: Mumbai, India

PostPosted: Wed May 19, 2010 10:02 pm    Post subject:
Reply with quote

Try this:
Code:
//S1 EXEC PGM=ICETOOL                                                   
//TOOLMSG DD SYSOUT=*                                                   
//DFSMSG DD SYSOUT=*                                                   
//IN DD *                                                               
OFFICE  ACCOUNT  DATE      DEPOSIT      AMOUNT      DAYS    AMOUNT     
------------------------------------------------------------------------
----------                                                             
 234     090692  2010-05-19    A          $3,440.00   6           $4,90
 234     090692  2010-05-19    A          $3,440.00   6           $5,00
 234     090694  2010-05-19    A          $3,500.00   6           $7,00
 234     090693  2010-05-19    A          $3,500.00   6           $7,55
*************************************************************           
/*                                                                     
//OUT DD SYSOUT=*                                                       
//TOOLIN DD *                                                           
  DATASORT FROM(IN) TO(OUT) HEADER TRAILER USING(CTL1)                 
//CTL1CNTL DD *                                                         
  SORT FIELDS=(18,10,CH,A)                                             
/*                                                                     
By the way, per the input from your example, date field starts from column 18 not 19. And all the dates are same...icon_smile.gif
Back to top
View user's profile Send private message
William Thompson

Global Moderator


Joined: 18 Nov 2006
Posts: 3158
Location: Tucson AZ

PostPosted: Wed May 19, 2010 10:07 pm    Post subject:
Reply with quote

Quote:
By the way, per the input from your example, date field starts from column 18 not 19. And all the dates are same...
Unless the format is FBA..... icon_wink.gif
Back to top
View user's profile Send private message
Escapa

Senior Member


Joined: 16 Feb 2007
Posts: 1399
Location: IL, USA

PostPosted: Wed May 19, 2010 10:38 pm    Post subject:
Reply with quote

Anuj,
Is DATASORT is available with SYNCSORT?
Back to top
View user's profile Send private message
mosinjamadar

New User


Joined: 26 Sep 2007
Posts: 42
Location: pune

PostPosted: Thu May 20, 2010 11:11 am    Post subject: Reply to: Need to be in bttom of the file after last record
Reply with quote

Thanks a lot for your reply.Its working fine using ICeTOOL
Back to top
View user's profile Send private message
Anuj Dhawan

Senior Member


Joined: 22 Apr 2006
Posts: 6258
Location: Mumbai, India

PostPosted: Thu May 20, 2010 3:53 pm    Post subject:
Reply with quote

William Thompson wrote:
Quote:
By the way, per the input from your example, date field starts from column 18 not 19. And all the dates are same...
Unless the format is FBA..... icon_wink.gif
icon_smile.gif, yes that's correct William but I've used the "in stream data" as input for the job I show, which would be equivalent to FB/80 - so I had to change the positions in the sort control statements.
Back to top
View user's profile Send private message
Anuj Dhawan

Senior Member


Joined: 22 Apr 2006
Posts: 6258
Location: Mumbai, India

PostPosted: Thu May 20, 2010 3:57 pm    Post subject:
Reply with quote

Escapa wrote:
Is DATASORT is available with SYNCSORT?
Support for DATASORT was included in SYNCTOOL 1.6.2, which shipped with SyncSort for z/OS 1.3.2. And as the post from OP says he is using
Code:
SYNCSORT FOR Z/OS 1.3.2.1R
so DATASORT parameter should work for him.
Back to top
View user's profile Send private message
Anuj Dhawan

Senior Member


Joined: 22 Apr 2006
Posts: 6258
Location: Mumbai, India

PostPosted: Thu May 20, 2010 4:49 pm    Post subject: Re: Reply to: Need to be in bttom of the file after last rec
Reply with quote

mosinjamadar wrote:
Thanks a lot for your reply.Its working fine using ICeTOOL
Glad to hear that! icon_smile.gif
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 -> JCL & VSAM All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Converting Variable block file to Fix... bhavana yalavarthi DFSORT/ICETOOL 10 Tue May 16, 2017 2:20 pm
No new posts Adding big TEXT lines to each record ... bshkris SYNCSORT 4 Sat May 06, 2017 1:40 am
No new posts Getting error while opening a variabl... apandey1 COBOL Programming 5 Fri May 05, 2017 12:22 pm
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 Issue with NDM process to transmit ES... chetanambi All Other Mainframe Topics 6 Wed May 03, 2017 10:52 am


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