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
 

 

Date gap check using sort or ICETOOL

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

New User


Joined: 09 Jun 2015
Posts: 4
Location: INDIA

PostPosted: Thu Jul 16, 2015 8:33 am    Post subject: Date gap check using sort or ICETOOL
Reply with quote

Hi All,

I am stuck up the following requirement need expert advice,

Input file:

First 3 bytes account number next 10 bytes date

1212014-12-31----
1212014-11-30----
1212014-10-31----
1212014-09-30----
1212014-08-31----
1212014-07-31----
1212014-06-30----
1212014-05-31----
1212014-04-30----
1212014-03-31----
1212014-02-28----
1212014-01-31----
1212013-12-31----
1212013-11-30----
.
.
.
2013 complete data
.
.
.
2012 incomplete data (not 12 months)
.
.
.
2011 complete data
1222014-12-31----
1222014-11-30----


Expected output:

Complete data until first gap.

(i.e)

For 121 account 2014,2013 -> should omit from 2012 onwards even though 2011 has complete data.



I tried the following sort card in ICETOOL,

SELECT FROM(IN) TO(OUT) ON(1,7,CH) EQUALS(12) USING(CTL1)

CTL1 -> SORT FIELDS = COPY

but the output has all accounts having 12 months data not sure how to check the gap using sort.
Back to top
View user's profile Send private message

Bill Woodger

DFSORT Moderator


Joined: 09 Mar 2011
Posts: 7223

PostPosted: Thu Jul 16, 2015 5:33 pm    Post subject: Reply to: Date gap check using sort or ICETOOL
Reply with quote

Just do a simple SORT with a COPY operation and have an INCLUDE for the years that you want. As far as I can tell. Otherwise, more explanation of what the problem is and sample of expected output.
Back to top
View user's profile Send private message
Terry Heinze

JCL Moderator


Joined: 14 Jul 2008
Posts: 1238
Location: Richfield, MN, USA

PostPosted: Thu Jul 16, 2015 6:48 pm    Post subject:
Reply with quote

N.NIRMALRAJ,
In the future, please learn to use Code tags to make your data more readable.
Back to top
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10201
Location: italy

PostPosted: Thu Jul 16, 2015 6:56 pm    Post subject: Reply to: Date gap check using sort or ICETOOL
Reply with quote

the description might be foggy due to the language barrier...
but the problem seems clear enough to me

unless also the seniors members want to be spoon fed to the last bit with the requirement description icon_cool.gif

the TS has a dataset with some groups of end of month data

the TS wants to copy all the complete 12 months groups until an incomplete group is found
Back to top
View user's profile Send private message
magesh23586

Active User


Joined: 06 Jul 2009
Posts: 158
Location: Chennai

PostPosted: Thu Jul 16, 2015 9:00 pm    Post subject: Reply to: Date gap check using sort or ICETOOL
Reply with quote

Couple of assumption
1. LRECL = 80
2. Maximum number of records 99999999

Here is the code of for you. The trick here is to use same input file in INA and INB
Code:

//STEP0100 EXEC PGM=SORT 
//SYSOUT   DD SYSOUT=*   
//INB  DD  DSN=FILE1,DISP=SHR
//INA  DD  DSN=FILE1,DISP=SHR
//SORTOUT DD SYSOUT=*                                             
//SYSIN DD *                                                     
  JOINKEYS F1=INA,FIELDS=(1,7,D,81,2,A),SORTED,NOSEQCK           
  JOINKEYS F2=INB,FIELDS=(1,7,D,81,2,A),SORTED,NOSEQCK           
  REFORMAT FIELDS=(F1:1,80)                                       
  OPTION COPY                                                     
//JNF2CNTL  DD *                                                 
  INREC IFTHEN=(WHEN=INIT,OVERLAY=(81:SEQNUM,2,ZD,RESTART=(1,7), 
                                   83:SEQNUM,8,ZD,C'A')),         
        IFTHEN=(WHEN=INIT,OVERLAY=(93:83,8,ZD,MOD,81,2,ZD,       
                                   EDIT=(TTTTTTTT))),             
        IFTHEN=(WHEN=GROUP,                                       
        BEGIN=(81,2,ZD,EQ,12,AND,93,8,ZD,NE,0),                   
        PUSH=(81:91,1))                                           
//JNF1CNTL  DD *                                                 
  INREC OVERLAY=(81:C'12')                                       
Back to top
View user's profile Send private message
N.NIRMALRAJ

New User


Joined: 09 Jun 2015
Posts: 4
Location: INDIA

PostPosted: Thu Jul 16, 2015 11:24 pm    Post subject: Reply to: Date gap check using sort or ICETOOL
Reply with quote

Requirement:

Need to copy all the accounts having complete 12 months data until first gap found.
Trying to achieve this in sort or icetool.

Eg:


acc date
---**********
1212014-12-31 /\
1212014-11-30
1212014-10-31 ||
1212014-09-30
1212014-08-31 ||
1212014-07-31
1212014-06-30 c
1212014-05-31 o
1212014-04-30 p
1212014-03-31 y
1212014-02-28
1212014-01-31 t
1212013-12-31 h
1212013-11-30 i
1212013-10-31 s
1212013-09-30
1212013-08-31 r
1212013-07-31 a
1212013-06-30 n
1212013-05-31 g
1212013-04-30 e
1212013-03-31
1212013-02-28 ||
1212013-01-31 \/
1212012-12-31
1212012-11-30
1212012-10-31
1212012-09-30
1212012-08-31\
1212012-06-30/ date gap
1212012-05-31
1212012-04-30
1212012-03-31
1212012-02-28
1212012-01-31
1212011-12-31
1212011-11-30
1212011-10-31
1212011-09-30
1212011-08-31
1212011-07-31
1212011-06-30
1212011-05-31
1212011-04-30
1212011-03-31
1212011-02-28
1212012-01-31

2014,2013 -> should omit from 2012 onwards even though 2011 has complete data.

Thanks Mahesh will try your approach.
Back to top
View user's profile Send private message
Bill Woodger

DFSORT Moderator


Joined: 09 Mar 2011
Posts: 7223

PostPosted: Fri Jul 17, 2015 1:04 am    Post subject: Reply to: Date gap check using sort or ICETOOL
Reply with quote

Is there only one account?
Back to top
View user's profile Send private message
RahulG31

Active User


Joined: 20 Dec 2014
Posts: 331
Location: USA

PostPosted: Fri Jul 17, 2015 1:25 am    Post subject: Reply to: Date gap check using sort or ICETOOL
Reply with quote

Are the months always in order, even for imcomplete set?

I mean that the incomplete set can consist of months 12,11,10,9,8,7,6 (rest from 5 are not present) OR it can be like 12,10,7,3,1. That is months are missing in between.

.
Back to top
View user's profile Send private message
N.NIRMALRAJ

New User


Joined: 09 Jun 2015
Posts: 4
Location: INDIA

PostPosted: Fri Jul 17, 2015 12:37 pm    Post subject: Reply to: Date gap check using sort or ICETOOL
Reply with quote

Files can have multiple accounts and the data is sorted as Account (ascending) and mont end dates (descending).

Mahesh,

Tried your sord card it only copied one account..trying to change your logic.
Back to top
View user's profile Send private message
Bill Woodger

DFSORT Moderator


Joined: 09 Mar 2011
Posts: 7223

PostPosted: Fri Jul 17, 2015 2:00 pm    Post subject: Reply to: Date gap check using sort or ICETOOL
Reply with quote

N.NIRMALRAJ,

Yes, that's why we asked. Your data showed something different.

You also should address RaghulG31's question about what is missing when something is missing. Can the entire year be missing? Can there be "gaps" within data which is present. Where there is data but it is busted, is it still in descending date sequence.

You'll need to change the key on Maghesh's contribution (1,3,A,4,4,D instead of 1,7,D) and then you'll need to "reset" the "don't use any more records" flag for the first record of a new account (not the first record of a new account/year).
Back to top
View user's profile Send private message
N.NIRMALRAJ

New User


Joined: 09 Jun 2015
Posts: 4
Location: INDIA

PostPosted: Fri Jul 17, 2015 7:11 pm    Post subject: Reply to: Date gap check using sort or ICETOOL
Reply with quote

Thanks Mahesh & Bill..Just changed few things in sort card accordingly and it worked like gem..Hats off to you people..
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 Limit duplicate records in the SORT pshongal SYNCSORT 6 Mon Nov 21, 2016 12:54 pm
No new posts What is the command to check MODE of ... rohanthengal CLIST & REXX 6 Fri Nov 18, 2016 1:48 pm
No new posts How to convert the VBM file to VB or... Sulabh Agrawal JCL & VSAM 4 Fri Nov 18, 2016 1:04 pm
No new posts TOT & DATE parameter in ICEMAN hemanthj642 DFSORT/ICETOOL 4 Mon Nov 14, 2016 5:19 am
No new posts Check System time(Minute) Using TIME1... balaji81_k DFSORT/ICETOOL 5 Fri Nov 11, 2016 10:53 am


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