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 Duplicate entries

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

New User


Joined: 23 Apr 2008
Posts: 39
Location: Hyderabad

PostPosted: Tue Dec 02, 2008 4:52 pm    Post subject: Need Duplicate entries
Reply with quote

Hi All,

I am stuck with the production issue.

I have the two i/p files. The i/p file one contains data like this
Code:
 
INPUT 1(has two variables)
**********************
C 8249032544
D 1101646578
D 00000000030256200
D 00000000300953874
C 3138299197
D 00000000095618996
D 00000006020170210
C 3623170671
D 00000001500011018
C 6528627877
D 00000000003365018
C 3163818150
D 00000003130789502
D 9892511511



Code:

Input 2
**********
3623170671
3163818150



The logic should write two out put file
like the matching records with type 'c' should write the succesive 'D' records in o/p

Code:

OUTPUT 1(MATCHED RECORDS)
**************
C 3623170671
D 00000001500011018
C 3163818150
D 00000003130789502
D 9892511511



Code:

OUTPUT 2(Unmatched records)
C 8249032544
D 1101646578
D 00000000030256200
D 00000000300953874
C 3138299197
D 00000000095618996
D 00000006020170210
C 6528627877
D 00000000003365018



This is just the sample i/p files i have 150000000(i/p 1) records
to match 235000(i/p2) reords.
i didnot know how to explain this in words so given the example i/p and o/p.

Any help would greatly be appreciated
Back to top
View user's profile Send private message

Frank Yaeger

DFSORT Moderator


Joined: 15 Feb 2005
Posts: 7130
Location: San Jose, CA

PostPosted: Tue Dec 02, 2008 11:32 pm    Post subject:
Reply with quote

You can use a DFSORT/ICETOOL job like the following to do what you asked for. I assumed your input files have RECFM=FB and LRECL=80, but the job can be changed appropriately for other attributes. The job uses DFSORT's new WHEN=GROUP function available with z/OS DFSORT V1R5 PTF UK90013 (July, 2008). If you don't have that PTF, ask your System Programmer to install it (it's free).

Code:

//S1   EXEC  PGM=ICETOOL
//TOOLMSG   DD  SYSOUT=*
//DFSMSG    DD  SYSOUT=*
//IN1 DD DSN=...  input file1 (FB/80)
//IN2 DD DSN=...  input file2 (FB/80)
//T1 DD DSN=&&T1,UNIT=SYSDA,SPACE=(CYL,(5,5)),DISP=(MOD,PASS)
//T2 DD DSN=&&T2,UNIT=SYSDA,SPACE=(CYL,(5,5)),DISP=(,PASS)
//OUT1 DD DSN=...  output file1 (FB/80)
//OUT2 DD DSN=...  output file2 (FB/80)
//TOOLIN DD *
COPY FROM(IN2) TO(T1) USING(CTL1)
COPY FROM(IN1) TO(T1) USING(CTL2)
SPLICE FROM(T1) TO(T2) ON(83,10,CH) KEEPNODUPS KEEPBASE -
  WITHALL WITH(1,81) WITH(93,8)
SORT FROM(T2) USING(CTL3)
/*
//CTL1CNTL DD *
  INREC OVERLAY=(81:C'BB',83:1,10,93:8X)
/*
//CTL2CNTL DD *
  INREC IFTHEN=(WHEN=INIT,OVERLAY=(81:C'VV')),
    IFTHEN=(WHEN=GROUP,BEGIN=(1,1,CH,EQ,C'C'),
      PUSH=(83:3,10,93:ID=8))
/*
//CTL3CNTL DD *
  OPTION EQUALS
  SORT FIELDS=(93,8,ZD,A)
  OUTFIL FNAMES=OUT1,INCLUDE=(81,2,CH,EQ,C'VB'),
    BUILD=(1,80)
  OUTFIL FNAMES=OUT2,INCLUDE=(81,2,CH,EQ,C'VV'),
    BUILD=(1,80)
/*
Back to top
View user's profile Send private message
Naraismha Reddy

New User


Joined: 23 Apr 2008
Posts: 39
Location: Hyderabad

PostPosted: Wed Dec 03, 2008 12:04 pm    Post subject: Reply to: Need Duplicate entries
Reply with quote

Thanks for the reply.

Can you please let me know about the 2lines mentioned below if you have availablity

Code:

SPLICE FROM(T1) TO(T2) ON(83,10,CH) KEEPNODUPS KEEPBASE -
  WITHALL WITH(1,81) WITH(93,8)
Back to top
View user's profile Send private message
Aaru

Senior Member


Joined: 03 Jul 2007
Posts: 1288
Location: Chennai, India

PostPosted: Wed Dec 03, 2008 3:22 pm    Post subject: Reply to: Need Duplicate entries
Reply with quote

Narasimha,

Quote:
Can you please let me know about the 2lines mentioned below if you have availablity


Why don't you give it a try. Check the manuals and try understanding it.

Quote:
SPLICE FROM(T1) TO(T2) ON(83,10,CH) KEEPNODUPS KEEPBASE -
WITHALL WITH(1,81) WITH(93,8)


SPLICE - Operator

FROM(T1) - Tells DFSORT that input to the splice operation is T1 dataset which contains the reformated records from file1.

KEEPNODUPS - Tells DFSORT to keep records that are not spliced.

TO - for the destination dataset

ON(83,10,CH) - 10 bytes starting from position 83 is used for matching. The first record for each matching ON field will act as the base record to which the second record is spliced.

WITH - Fields specified here would be spliced.

WITHALL - tells SPLICE to splice the first record with every other record for which the ON fields match. Without withall, only the first and last are spliced.
Back to top
View user's profile Send private message
Aaru

Senior Member


Joined: 03 Jul 2007
Posts: 1288
Location: Chennai, India

PostPosted: Wed Dec 03, 2008 3:24 pm    Post subject: Reply to: Need Duplicate entries
Reply with quote

Narasimha,

I have just given a generic explanation of what the command does and not specific to your requirement. You will have to probe further to get the exact logic or wait for FRANK.
Back to top
View user's profile Send private message
Naraismha Reddy

New User


Joined: 23 Apr 2008
Posts: 39
Location: Hyderabad

PostPosted: Wed Dec 03, 2008 4:34 pm    Post subject: Reply to: Need Duplicate entries
Reply with quote

The logical record length of IN1 is 43 and
the account number length in IN1 is 17 at position 27,
the 'C' type filed is at positio 23

The logical record lenght of IN2 is 17 (only account numbers)
Back to top
View user's profile Send private message
Naraismha Reddy

New User


Joined: 23 Apr 2008
Posts: 39
Location: Hyderabad

PostPosted: Wed Dec 03, 2008 5:26 pm    Post subject: Reply to: Need Duplicate entries
Reply with quote

Hi I am getting the following error code in DFSMSG

Code:

ICE200I 0 IDENTIFIER FROM CALLING PROGRAM IS 0001
ICE143I 0 BLOCKSET     COPY  TECHNIQUE SELECTED
ICE250I 0 VISIT http://www.ibm.com/storage/dfsort FOR DFSORT PAPERS, EXAMPLES AN
ICE000I 0 - CONTROL STATEMENTS FOR 5694-A01, Z/OS DFSORT V1R5 - 05:44 ON WED DEC
            INREC OVERLAY=(44:C'BB',46:1,17,63:8X)
ICE146I 0 END OF STATEMENTS FROM CTL1CNTL - PARAMETER LIST STATEMENTS FOLLOW
          DEBUG NOABEND,ESTAE
          OPTION MSGDDN=DFSMSG,LIST,MSGPRT=ALL,RESINV=0,SORTDD=CTL1,SORTIN=IN2,S
                         RTOUT=T1,DYNALLOC
          SORT FIELDS=COPY
ICE201I F RECORD TYPE IS F - DATA STARTS IN POSITION 1
ICE751I 0 C5-K90013 C6-K90013 C7-K90000 C8-K90013 E9-K90013 C9-BASE   E5-K35433
ICE193I 0 ICEAM2 ENVIRONMENT IN EFFECT - ICETD2 INSTALLATION MODULE SELECTED
ICE088I 0 R1493TPT.JS0010  .        , INPUT LRECL = 17, BLKSIZE = 27982, TYPE =
ICE093I 0 MAIN STORAGE = (MAX,16777216,16777216)
ICE156I 0 MAIN STORAGE ABOVE 16MB = (16769008,16719856)
ICE127I 0 OPTIONS: OVFLO=RC0 ,PAD=RC0 ,TRUNC=RC0 ,SPANINC=RC16,VLSCMP=N,SZERO=Y,
ICE128I 0 OPTIONS: SIZE=16777216,MAXLIM=1048576,MINLIM=262144,EQUALS=N,LIST=Y,ER
ICE129I 0 OPTIONS: VIO=N,RESDNT=ALL ,SMF=SHORT,WRKSEC=Y,OUTSEC=Y,VERIFY=N,CHALT=
ICE130I 0 OPTIONS: RESALL=12288,RESINV=0,SVC=109 ,CHECK=N,WRKREL=N,OUTREL=N,CKPT
ICE131I 0 OPTIONS: TMAXLIM=16777216,ARESALL=12288,ARESINV=36864,OVERRGN=0,CINV=Y
ICE132I 0 OPTIONS: VLSHRT=N,ZDPRINT=Y,IEXIT=Y,TEXIT=N,LISTX=N,EFS=NONE    ,EXITC
ICE133I 0 OPTIONS: HIPRMAX=OPTIMAL,DSPSIZE=MAX ,ODMAXBF=0,SOLRF=Y,VLLONG=N,VSAMI
ICE235I 0 OPTIONS: NULLOUT=RC0
ICE084I 0 EXCP ACCESS METHOD USED FOR T1
ICE084I 0 EXCP ACCESS METHOD USED FOR IN2
ICE751I 1 EF-K10929 F0-K30362 E8-K90013
ICE090I 0 OUTPUT LRECL = 70, BLKSIZE = 27930, TYPE = FB   (SDB)
ICE171I 0 SORTOUT LRECL OF 70 IS DIFFERENT FROM SORTIN(NN) LRECL OF 17 - RC=0
ICE055I 0 INSERT 0, DELETE 0
ICE054I 0 RECORDS - IN: 239943, OUT: 239943
ICE052I 0 END OF DFSORT
ICE200I 0 IDENTIFIER FROM CALLING PROGRAM IS 0002
ICE143I 0 BLOCKSET     COPY  TECHNIQUE SELECTED
ICE250I 0 VISIT http://www.ibm.com/storage/dfsort FOR DFSORT PAPERS, EXAMPLES AN
ICE000I 0 - CONTROL STATEMENTS FOR 5694-A01, Z/OS DFSORT V1R5 - 05:44 ON WED DEC
            INREC IFTHEN=(WHEN=INIT,OVERLAY=(44:C'VV')),
              IFTHEN=(WHEN=GROUP,BEGIN=(23,1,CH,EQ,C'C'),
                PUSH=(46:27,17,63:ID=8))
ICE146I 0 END OF STATEMENTS FROM CTL2CNTL - PARAMETER LIST STATEMENTS FOLLOW
          DEBUG NOABEND,ESTAE
          OPTION MSGDDN=DFSMSG,LIST,MSGPRT=ALL,RESINV=0,SORTDD=CTL2,SORTIN=IN1,S
                         RTOUT=T1,DYNALLOC
          SORT FIELDS=COPY
ICE201I F RECORD TYPE IS F - DATA STARTS IN POSITION 1
ICE751I 0 C5-K90013 C6-K90013 C7-K90000 C8-K90013 E9-K90013 C9-BASE   E5-K35433
ICE193I 0 ICEAM2 ENVIRONMENT IN EFFECT - ICETD2 INSTALLATION MODULE SELECTED
ICE088I 0 R1493TPT.JS0010  .        , INPUT LRECL = 43, BLKSIZE = 27993, TYPE =
ICE093I 0 MAIN STORAGE = (MAX,16777216,16777216)
ICE156I 0 MAIN STORAGE ABOVE 16MB = (16769008,16719856)
ICE127I 0 OPTIONS: OVFLO=RC0 ,PAD=RC0 ,TRUNC=RC0 ,SPANINC=RC16,VLSCMP=N,SZERO=Y,
ICE128I 0 OPTIONS: SIZE=16777216,MAXLIM=1048576,MINLIM=262144,EQUALS=N,LIST=Y,ER
ICE129I 0 OPTIONS: VIO=N,RESDNT=ALL ,SMF=SHORT,WRKSEC=Y,OUTSEC=Y,VERIFY=N,CHALT=
ICE130I 0 OPTIONS: RESALL=12288,RESINV=0,SVC=109 ,CHECK=N,WRKREL=N,OUTREL=N,CKPT
ICE131I 0 OPTIONS: TMAXLIM=16777216,ARESALL=12288,ARESINV=36864,OVERRGN=0,CINV=Y
ICE132I 0 OPTIONS: VLSHRT=N,ZDPRINT=Y,IEXIT=Y,TEXIT=N,LISTX=N,EFS=NONE    ,EXITC
ICE133I 0 OPTIONS: HIPRMAX=OPTIMAL,DSPSIZE=MAX ,ODMAXBF=0,SOLRF=Y,VLLONG=N,VSAMI
ICE235I 0 OPTIONS: NULLOUT=RC0
ICE084I 0 EXCP ACCESS METHOD USED FOR T1
ICE084I 0 EXCP ACCESS METHOD USED FOR IN1
ICE751I 1 EF-K10929 F0-K30362 E8-K90013
ICE090I 0 OUTPUT LRECL = 70, BLKSIZE = 27930, TYPE = FB
ICE171I 0 SORTOUT LRECL OF 70 IS DIFFERENT FROM SORTIN(NN) LRECL OF 43 - RC=0
ICE055I 0 INSERT 0, DELETE 0
ICE054I 0 RECORDS - IN: 18862182, OUT: 18862182
ICE052I 0 END OF DFSORT
ICE200I 0 IDENTIFIER FROM CALLING PROGRAM IS 0003
ICE143I 0 BLOCKSET     SORT  TECHNIQUE SELECTED
ICE250I 0 VISIT http://www.ibm.com/storage/dfsort FOR DFSORT PAPERS, EXAMPLES AN
ICE000I 0 - CONTROL STATEMENTS FOR 5694-A01, Z/OS DFSORT V1R5 - 05:45 ON WED DEC
          DEBUG NOABEND,ESTAE
          OPTION MSGDDN=DFSMSG,LIST,MSGPRT=ALL,RESINV=0,SORTIN=T1,SORTOUT=T2,DYN
                         LLOC,SZERO,EQUALS,NOVLSHRT,LOCALE=NONE,NOCHECK
          SORT FIELDS=(46,17,CH,A)
          MODS E35=(ICE35DU,12288)
ICE201I F RECORD TYPE IS F - DATA STARTS IN POSITION 1
ICE751I 0 C5-K90013 C6-K90013 C7-K90000 C8-K90013 E4-K90007 C9-BASE   E5-K35433
ICE193I 0 ICEAM2 ENVIRONMENT IN EFFECT - ICETD2 INSTALLATION MODULE SELECTED
ICE088I 1 R1493TPT.JS0010  .        , INPUT LRECL = 70, BLKSIZE = 27930, TYPE =
ICE093I 0 MAIN STORAGE = (MAX,16777216,16777216)
ICE156I 0 MAIN STORAGE ABOVE 16MB = (15794176,15728640)
ICE127I 0 OPTIONS: OVFLO=RC0 ,PAD=RC0 ,TRUNC=RC0 ,SPANINC=RC16,VLSCMP=N,SZERO=Y,
ICE128I 0 OPTIONS: SIZE=16777216,MAXLIM=1048576,MINLIM=262144,EQUALS=Y,LIST=Y,ER
ICE129I 0 OPTIONS: VIO=N,RESDNT=ALL ,SMF=SHORT,WRKSEC=Y,OUTSEC=Y,VERIFY=N,CHALT=
ICE130I 0 OPTIONS: RESALL=12288,RESINV=0,SVC=109 ,CHECK=N,WRKREL=N,OUTREL=N,CKPT
ICE131I 0 OPTIONS: TMAXLIM=16777216,ARESALL=12288,ARESINV=36864,OVERRGN=0,CINV=Y
ICE132I 0 OPTIONS: VLSHRT=N,ZDPRINT=Y,IEXIT=Y,TEXIT=N,LISTX=N,EFS=NONE    ,EXITC
ICE133I 0 OPTIONS: HIPRMAX=OPTIMAL,DSPSIZE=MAX ,ODMAXBF=0,SOLRF=Y,VLLONG=N,VSAMI
ICE235I 0 OPTIONS: NULLOUT=RC0
ICE084I 0 EXCP ACCESS METHOD USED FOR T2
ICE084I 0 EXCP ACCESS METHOD USED FOR T1
ICE750I 0 DC 1337176680 TC 0 CS DSVVV KSZ 21 VSZ 21
ICE752I 0 FSZ=19102524 RC  IGN=0 E  AVG=76 0  WSP=1885628 C  DYN=2905 53216
ICE751I 1 DE-K24705 D5-K24705 D3-K24705 D7-K24705 E8-K90013
ICE090I 0 OUTPUT LRECL = 70, BLKSIZE = 27930, TYPE = FB   (SDB)
ICE055I 0 INSERT 2168497, DELETE 2168497
ICE054I 0 RECORDS - IN: 19102125, OUT: 19102125
ICE134I 0 NUMBER OF BYTES SORTED: 1337148750
ICE165I 0 TOTAL WORK DATA SET TRACKS ALLOCATED: 2940 , TRACKS USED: 0
ICE199I 0 MEMORY OBJECT STORAGE USED = 0M BYTES
ICE180I 0 HIPERSPACE STORAGE USED = 1426040K BYTES
ICE188I 0 DATA SPACE STORAGE USED = 0K BYTES
ICE052I 0 END OF DFSORT
ICE200I 0 IDENTIFIER FROM CALLING PROGRAM IS 0004
ICE000I 0 - CONTROL STATEMENTS FOR 5694-A01, Z/OS DFSORT V1R5 - 05:47 ON WED DEC
            OPTION EQUALS
            OUTFIL FNAMES=OUT1,INCLUDE=(44,2,CH,EQ,C'VB'),
              BUILD=(1,43)
            OUTFIL FNAMES=OUT2,INCLUDE=(44,2,CH,EQ,C'VV'),
              BUILD=(1,43)
ICE146I 0 END OF STATEMENTS FROM CTL3CNTL - PARAMETER LIST STATEMENTS FOLLOW
          DEBUG NOABEND,ESTAE
          OPTION MSGDDN=DFSMSG,LIST,MSGPRT=ALL,RESINV=0,SORTDD=CTL3,SORTIN=T2,DY
                         ALLOC
ICE010A 0 NO SORT OR MERGE CONTROL STATEMENT
ICE751I 0 C5-K90013 C6-K90013 E7-K24705
ICE052I 3 END OF DFSORT
Back to top
View user's profile Send private message
Frank Yaeger

DFSORT Moderator


Joined: 15 Feb 2005
Posts: 7130
Location: San Jose, CA

PostPosted: Wed Dec 03, 2008 11:01 pm    Post subject:
Reply with quote

You are missing the following statement in CTL3CNTL:

Code:

  SORT FIELDS=(63,8,ZD,A)


Here's the complete DFSORT/ICETOOL job:

Code:

//S1   EXEC  PGM=ICETOOL
//TOOLMSG   DD  SYSOUT=*
//DFSMSG    DD  SYSOUT=*
//IN1 DD DSN=...  input file1
//IN2 DD DSN=...  input file2
//T1 DD DSN=&&T1,UNIT=SYSDA,SPACE=(CYL,(5,5)),DISP=(MOD,PASS)
//T2 DD DSN=&&T2,UNIT=SYSDA,SPACE=(CYL,(5,5)),DISP=(,PASS)
//OUT1 DD DSN=...  output file1
//OUT2 DD DSN=...  output file2
//TOOLIN DD *
COPY FROM(IN2) TO(T1) USING(CTL1)
COPY FROM(IN1) TO(T1) USING(CTL2)
SPLICE FROM(T1) TO(T2) ON(46,17,CH) KEEPNODUPS KEEPBASE -
  WITHALL WITH(1,44) WITH(63,8)
SORT FROM(T2) USING(CTL3)
/*
//CTL1CNTL DD *
  INREC OVERLAY=(44:C'BB',46:1,17,63:8X)
/*
//CTL2CNTL DD *
  INREC IFTHEN=(WHEN=INIT,OVERLAY=(44:C'VV')),
    IFTHEN=(WHEN=GROUP,BEGIN=(23,1,CH,EQ,C'C'),
      PUSH=(46:27,17,63:ID=8))
/*
//CTL3CNTL DD *
  OPTION EQUALS
  SORT FIELDS=(63,8,ZD,A)
  OUTFIL FNAMES=OUT1,INCLUDE=(44,2,CH,EQ,C'VB'),
    BUILD=(1,43)
  OUTFIL FNAMES=OUT2,INCLUDE=(44,2,CH,EQ,C'VV'),
    BUILD=(1,43)
/*
Back to top
View user's profile Send private message
Frank Yaeger

DFSORT Moderator


Joined: 15 Feb 2005
Posts: 7130
Location: San Jose, CA

PostPosted: Wed Dec 03, 2008 11:05 pm    Post subject:
Reply with quote

For complete details on DFSORT's SPLICE operator and all of its operands with examples, see:

http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/ICE1CA30/6.13?DT=20080528171007
Back to top
View user's profile Send private message
Naraismha Reddy

New User


Joined: 23 Apr 2008
Posts: 39
Location: Hyderabad

PostPosted: Thu Dec 04, 2008 9:18 am    Post subject: Reply to: Need Duplicate entries
Reply with quote

Hi Frank,

I am geting the 2 output files but they are giving the o/p
for all items that are matcing the account number with 'D' Type also

I am giving the exmaple of i/p and output here

Input (IN1)
Code:

C 8249032544
D 1101646578
D 00000000030256200
D 00000000300953874
C 3138299197
D 9892511514
D 9892511521
D 00000000095618996
D 00000006020170210
C 3623170671
D 00000001500011018
C 6528627877
D 00000000003365018
C 3163818150
D 00000003130789502
D 9892511511


Input (IN2)
Code:

3623170671
3163818150
9892511511
9892511514


Output(OUT1 Matched)
D 9892511514
C 3623170671
C 3163818150
D 9892511511

Output(OUT2 Unmatched)
Code:

C 8249032544
D 1101646578
D 00000000030256200
D 00000000300953874
C 3138299197
D 9892511521
D 00000000095618996
D 00000006020170210
D 00000001500011018
C 6528627877
D 00000000003365018
D 00000003130789502
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: Thu Dec 04, 2008 10:03 am    Post subject:
Reply with quote

Hello,

This output looks like the required sample data posted icon_confused.gif Both have Cs and Ds - so what is the problem with the actual run versus the sample?

Possibly there are rules not yet posted or maybe i am misunderstanding something.
Back to top
View user's profile Send private message
Naraismha Reddy

New User


Joined: 23 Apr 2008
Posts: 39
Location: Hyderabad

PostPosted: Thu Dec 04, 2008 10:31 am    Post subject: Reply to: Need Duplicate entries
Reply with quote

Hi Frank,

Actually I have misplaced the WITH statement

Quote:

SPLICE FROM(T1) TO(T2) ON(46,17,CH) KEEPNODUPS KEEPBASE -
WITHALL WITH(1,46) WITH(63,8)



This was giving error. But i changed it to
Quote:

SPLICE FROM(T1) TO(T2) ON(46,17,CH) KEEPNODUPS KEEPBASE -
WITHALL WITH(1,44) WITH(63,8)


Now it works fine.

I got the required output .

Thanks for all your support. This wouldn't have possible without your help.
Thanks Once again.


Thanks,
Narasimha
Back to top
View user's profile Send private message
Naraismha Reddy

New User


Joined: 23 Apr 2008
Posts: 39
Location: Hyderabad

PostPosted: Fri Dec 05, 2008 11:48 am    Post subject: Reply to: Need Duplicate entries
Reply with quote

Hi Frank,

The previous task is completed and i have been given a new task repeting the similar way.

Here is the explanation.

With the ouput i got for previous task (OUT2 i.e., the non matched items) I have to seperate the account numbers greater than 10 digit to seperate file (should not miss the pericular debits for that account )

Here is the example i/p
INPUT
Code:

C 8249032544
D 1101646578
D 00000000030256200
D 00000000300953874
C 003138299197
D 9892511514
D 9892511521
D 00000000095618996
D 00000006020170210
C 3623170671
D 00000001500011018
C 006528627877
D 00000000003365018
C 3163818150
D 00000003130789502
D 9892511511


OUTPUT file1(WTIH ACCOUNT NUMBER <= 10DIGITS)

Code:

C 8249032544
D 1101646578
D 00000000030256200
D 00000000300953874
C 3623170671
D 00000001500011018
C 3163818150
D 00000003130789502
D 9892511511


OUTPUT file2(WTIH ACCOUNT NUMBER > 10DIGITS)
Code:

C 003138299197
D 9892511514
D 9892511521
D 00000000095618996
D 00000006020170210
C 006528627877
D 00000000003365018
Back to top
View user's profile Send private message
Frank Yaeger

DFSORT Moderator


Joined: 15 Feb 2005
Posts: 7130
Location: San Jose, CA

PostPosted: Fri Dec 05, 2008 10:33 pm    Post subject:
Reply with quote

Here's a DFSORT/ICETOOL job that will do what you asked for:

Code:

//S1   EXEC  PGM=ICETOOL
//TOOLMSG  DD  SYSOUT=*
//DFSMSG  DD  SYSOUT=*
//IN DD DSN=...  input file (FB/43)
//OUT1 DD DSN=...  output file1 (FB/43)
//OUT2 DD DSN=...  output file2 (FB/43)
//TOOLIN DD *
COPY FROM(IN) USING(CTL1)
/*
//CTL1CNTL DD *
  INREC IFTHEN=(WHEN=GROUP,BEGIN=(23,1,CH,EQ,C'C'),
    PUSH=(44:27,11))
  OUTFIL FNAMES=OUT1,INCLUDE=(54,1,CH,EQ,C' '),
    BUILD=(1,43)
  OUTFIL FNAMES=OUT2,SAVE,BUILD=(1,43)
/*
Back to top
View user's profile Send private message
Naraismha Reddy

New User


Joined: 23 Apr 2008
Posts: 39
Location: Hyderabad

PostPosted: Sat Dec 06, 2008 2:20 pm    Post subject: Reply to: Need Duplicate entries
Reply with quote

Hi Frank,

sorry i have misplced the task. Actually i need to seperate the account numbers of lenght = 11 ( 'C' type followed by debits'D' type) into one file and other account numbers may be of lenght 10 or >11 to one file.

The above code is working fine for previously mentiond one but little confused with specific account numbers with lenght = 11

Please suggest the idea.

Thanks,
Narasiha
Back to top
View user's profile Send private message
Naraismha Reddy

New User


Joined: 23 Apr 2008
Posts: 39
Location: Hyderabad

PostPosted: Sat Dec 06, 2008 3:57 pm    Post subject: Reply to: Need Duplicate entries
Reply with quote

Hi Frank,

I have used three steps to write account number with lenght 11 into seperate file.

step:1 - used the code and seperated the file into 2 with account number lenght =10 in one file and account number length > 10 to 2 nd file

step:2 - used the 2nd output file of the above and seperated the account number lenght =11 to one file and account number lenght > 11 to other file

Step:3 - merged the file of account number lenght (10 and >11) to one file .

In the step2 i got the output file required .

Is there any other method we can do it more easy.
Back to top
View user's profile Send private message
Frank Yaeger

DFSORT Moderator


Joined: 15 Feb 2005
Posts: 7130
Location: San Jose, CA

PostPosted: Sun Dec 07, 2008 6:08 am    Post subject:
Reply with quote

You don't need three steps to do that. You can do it in one pass with a slight modification to the job I posted previously like this:

Code:

//S2   EXEC  PGM=ICETOOL
//TOOLMSG  DD  SYSOUT=*
//DFSMSG  DD  SYSOUT=*
//IN DD DSN=...  input file (FB/43)
//OUT1 DD DSN=...  output file1 (FB/43)
//OUT2 DD DSN=...  output file2 (FB/43)
//TOOLIN DD *
COPY FROM(IN) USING(CTL1)
/*
//CTL1CNTL DD *
  INREC IFTHEN=(WHEN=GROUP,BEGIN=(23,1,CH,EQ,C'C'),
    PUSH=(44:27,12))
  OUTFIL FNAMES=OUT1,
    INCLUDE=(54,1,CH,NE,C' ',AND,55,1,CH,EQ,C' '),
    BUILD=(1,43)
  OUTFIL FNAMES=OUT2,SAVE,BUILD=(1,43)
/*


If IN had these records:

Code:

                      C   8249032544             
                      D   1101646578             
                      D   00000000030256200     
                      D   00000000300953874     
                      C   003138299197           
                      D   9892511514             
                      D   9892511521             
                      D   00000000095618996     
                      D   00000006020170210     
                      C   3623170671             
                      D   00000001500011018     
                      C   006528627877           
                      D   00000000003365018     
                      C   3163818150             
                      D   00000003130789502     
                      D   9892511511             
                      C   11111111111           
                      D   00000000000000001     
                      C   22222222222           
                      D   00000000000000002     
                      D   0000000003             


OUT1 would have:

Code:

                      C   11111111111           
                      D   00000000000000001     
                      C   22222222222           
                      D   00000000000000002     
                      D   0000000003           


OUT2 would have:

Code:

                      C   8249032544                 
                      D   1101646578                 
                      D   00000000030256200           
                      D   00000000300953874           
                      C   003138299197               
                      D   9892511514                 
                      D   9892511521                 
                      D   00000000095618996           
                      D   00000006020170210           
                      C   3623170671                 
                      D   00000001500011018           
                      C   006528627877               
                      D   00000000003365018           
                      C   3163818150                 
                      D   00000003130789502           
                      D   9892511511                 
Back to top
View user's profile Send private message
Naraismha Reddy

New User


Joined: 23 Apr 2008
Posts: 39
Location: Hyderabad

PostPosted: Sun Dec 07, 2008 8:43 pm    Post subject: Reply to: Need Duplicate entries
Reply with quote

Hi Frank,

Thanks for the reply.
This code is working fine. Thanks once again.

Thanks,
Narasimha
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 how to find the duplicate list RAVIGUPTA1990 DB2 6 Wed Mar 30, 2016 12:11 am
No new posts Finding out consecutive date entries ... bhavya_sha DFSORT/ICETOOL 10 Fri Nov 20, 2015 3:24 pm
No new posts Duplicate component install allowed i... kratos86 CA Products 2 Fri Oct 03, 2014 12:08 am
No new posts duplicate removal wiprov SYNCSORT 10 Fri Sep 26, 2014 11:26 pm


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