Search found 43 matches

by skolusu
Wed Nov 20, 2013 11:49 pm
Forum: DFSORT , ICETOOL & Utilities
Topic: DFSORT - update count in multiple trailers of same dataset
Replies: 4
Views: 4509

nachiyappan, Use the following DFSORT JCL which will give you the desired results. I assumed that your input has LRECL=80 and RECFM=FB //STEP0100 EXEC PGM=SORT //SYSOUT DD SYSOUT=* //SORTIN DD * 01 FILER HEADER 02 BATCH HEADER 1 10 DETAIL RECORD 10 DETAIL RECORD 10 DETAIL RECORD 20 000002 BATCH TRAI...
by skolusu
Thu Jan 03, 2013 11:55 pm
Forum: DFSORT , ICETOOL & Utilities
Topic: DFSORT - Get the sorted data based on Julian Date Condition.
Replies: 1
Views: 2672

krunal7878, Use the following DFSORT JCL which will give you the desired results. Step0100 will build dynamic control cards when the current date is 2nd of every month and it will build cards with prior months, begin and end dates. Step0200 will run using the control cards created above. If the run ...
by skolusu
Tue Sep 18, 2012 4:56 am
Forum: DFSORT , ICETOOL & Utilities
Topic: How to Split the record in two part and remove the duplicate
Replies: 6
Views: 6096

William Collins, Unless I am missing something isn't it a simple case of finding MIN and MAX for each key? Assuming the data is already sorted on the Key (1,5) , the following DFSORT JCL will give you the desired results. //STEP0100 EXEC PGM=SORT //SYSOUT DD SYSOUT=* //SORTIN DD * 019520000000001000...
by skolusu
Tue Jul 10, 2012 12:36 am
Forum: DFSORT , ICETOOL & Utilities
Topic: SORTCARD help
Replies: 6
Views: 7277

Use the following DFSORT JCL which will give you the desired results in a single pass of data //STEP0100 EXEC PGM=SORT //SYSOUT DD SYSOUT=* //SORTIN DD DSN=Your Input VB File,DISP=SHR //SORTOUT DD SYSOUT=* //SYSIN DD * INCLUDE COND=(5,2,CH,EQ,C'40') INREC IFTHEN=(WHEN=INIT,BUILD=(1,4...
by skolusu
Thu Nov 18, 2010 9:41 pm
Forum: DFSORT , ICETOOL & Utilities
Topic: DFSORT: Reformat data
Replies: 3
Views: 4414

simo78, use the following DFSORT control cards. I just changed your OUTFIL statement //SYSIN DD * INREC IFTHEN=(WHEN=INIT,OVERLAY=(81:C'4')), IFTHEN=(WHEN=(1,5,CH,EQ,C'DATE:'), OVERLAY=(81:C'1')), IFTHEN=(WHEN=(26,10,CH,EQ,C'MYCOMMENT1'), OVERLAY=&...
by skolusu
Sat Oct 30, 2010 1:12 am
Forum: DFSORT , ICETOOL & Utilities
Topic: Sort on date
Replies: 6
Views: 8662

Jairam_baju, With z/OS DFSORT V1R10 PTF UK90025 or z/OS DFSORT V1R12 PTF UK90026 (Oct, 2010), DFSORT can now add days to a given date quite easily like shown below. //STEP0100 EXEC PGM=SORT //SYSOUT DD SYSOUT=* //SORTIN DD * ----+----1----+----2----+----3----+----4----+----5 20101029 //SORTOUT DD SY...
by skolusu
Wed Jul 07, 2010 9:14 pm
Forum: DFSORT , ICETOOL & Utilities
Topic: Reformatting and calculating time and date values
Replies: 3
Views: 8714

Hello Skolusu, One correction I have to add, but maybe that happened because of the short time of your answer. The difference in runtime between 02000268 and 02000310 is not 1.42 secs, as your solution presents, but only 0.42 secs. You calculated the difference between the hhmmss-part of the timest...
by skolusu
Wed Jul 07, 2010 1:18 am
Forum: DFSORT , ICETOOL & Utilities
Topic: Reformatting and calculating time and date values
Replies: 3
Views: 8714

Martin, The following DFSORT JCL will give you the desired results. I assumed that your input is FB recfm and 80 byte LRECL and the time difference can only span over 24 hours. //STEP0100 EXEC PGM=SORT //SYSOUT DD SYSOUT=* //SORTIN DD * ----+----1----+----2----+----3----+----4----+----5----+----6---...
by skolusu
Wed Apr 14, 2010 9:27 pm
Forum: DFSORT , ICETOOL & Utilities
Topic: DFSORT: Reformat data
Replies: 2
Views: 3734

simo78, use the following DFSORT JCL //STEP0100 EXEC PGM=SORT //SYSOUT DD SYSOUT=* //SORTIN DD DATA,DLM=$$ //AC01 EXEC AB13C1231 //AB01 EXEC AB88P001 //AB02 EXEC AB88P002,P1=AB //UNCAT EXEC PGM=IDCAMS //ABZ EXEC A345B105,P1=AB,M=Z //ABNH EXEC A345B105,P1=AB,M=NH //ABGBH EXEC A345B105,P1=AB,M=GBH //A...
by skolusu
Tue Mar 30, 2010 9:24 pm
Forum: DFSORT , ICETOOL & Utilities
Topic: Sort jcl - report writer queries using OUTREC
Replies: 5
Views: 12085

jathampy , Here is a job which would convert the date into a month name and write it on the header2 //SYSIN DD * SORT FIELDS=COPY OUTREC OVERLAY=(132:DATE1, 136,2,CHANGE=(3,C'01',C'JAN',C'02',C'FEB', C'03',C'MAR',C'04',C'APR', C'05',C'MAY',C'06',C'JUN', C'07',C'JUL',C'08',C'AUG', C'09',C'SE...
by skolusu
Tue Mar 30, 2010 9:11 pm
Forum: DFSORT , ICETOOL & Utilities
Topic: Query for an utility to copy records on condition
Replies: 3
Views: 4854

nagesh divvela,

First of all you canNOT have a DSN name with numeric as the first qualifier. so your dataset names are not even valid

ABCD.ABCDEF.ABCDEF.032410

Look up ADRDSSU which lets you delete the datasets with wild cards and creation dates
by skolusu
Tue Mar 16, 2010 8:38 pm
Forum: DFSORT , ICETOOL & Utilities
Topic: Need Help about SYNCTOOL
Replies: 12
Views: 20887

Thank you skolusu for your quick answer, but i didnt succeed to adapt your sample to my real script. i gave you wrong informations because i thought it was easier to understand for you and also for me. the real files are FB LRECL=3941, with an ID of 9 digits. This is the result i got : ABEND=S000 U...
by skolusu
Mon Mar 15, 2010 9:03 pm
Forum: DFSORT , ICETOOL & Utilities
Topic: Need Help about SYNCTOOL
Replies: 12
Views: 20887

zouzoucoiffure, The following DFSORT JCL will give you the desired results. Since both files are of the same lrecl and recfm we concatenate them with a header record $$$ which will differentiate the records from each file. //STEP0100 EXEC PGM=SORT //SYSOUT DD SYSOUT=* //SORTIN DD * $$$ // DD DSN=You...
by skolusu
Thu Mar 11, 2010 9:44 pm
Forum: DFSORT , ICETOOL & Utilities
Topic: Sorting groups with several headers
Replies: 1
Views: 2790

Martin.G,

Look at the smart DFSORT Trick "Sort groups of records" here


http://www.ibm.com/support/docview.wss? ... g3T7000094
by skolusu
Thu Feb 25, 2010 10:55 pm
Forum: DFSORT , ICETOOL & Utilities
Topic: Two different record length files
Replies: 5
Views: 8726

I have to do this in a single step of SORT. I don't understand the fascination for doing everything in a single step which in this case can turn out to be quite inefficient. Even though it is a single step , it would actually require 3 passes of data to get the desired results. But using 2 steps it...