IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

Combination of two Ids in a group in VB file format
IBM Mainframe Forums -> DFSORT/ICETOOL
Post new topic   Reply to topic Quick References
View previous topic :: View next topic  
Author Message
D Rishi

New User


Joined: 01 Mar 2010
Posts: 21
Location: India
PostPosted: Fri Oct 21, 2011 1:46 am
 Reply with quote
I have one file with RECFM=VB & Record Length is 1504 with different types of data with Header record as record type '1' Detail '2' & trailer '3' @ position 37.

There is an X ID from 23rd column for 9 bytes which has all these 3 types of record i.e. 1 or 2 or 3 type.

All the record starts with a Y ID for first 5 bytes which would be same for a same set of X ID records.

Now I need to make the 2 output files.

1. will contain only those records whose first 5 bytes or Y ID is a value say '77777' and also the 751 th column upto 3 Bytes of Detail record i.e record type '2' is having numeric value as 888 Or 999 or 000. While writing this file the group of records should be on the basis of X ID.

2. The rest of the file..

Code:
I/p example..

----+----1----+----2----+----3----+----4----+----5----+
********************************* Top of Data *********
77777056072124201110195600218960000112011100320111003A1 .. Header rec
7777705607212420111019560021896000022  395608N492810860 .. Detail Rec .. @751 value is 999 as numeric
7777705607212420111019560021896000033000010000002862B00 .. Trailer Rec
88888056072124201110197001720290000112011100520111005A1
8888805607212420111019700172029000022  599746N597623721 .. Detail rec @751 value is 001
8888805607212420111019700172029000032  800351N001210775 .. Detail rec @751 value is 001 these wud be same
8888805607212420111019700172029000073000050000000976F00
88888056072124201110197001721100000112011100520111005A1
8888805607212420111019700172110000022  953911N540920191 .. Detail rec @751 value is 000
8888805607212420111019700172110000032  762815N003952775 .. Detail rec @751 value is 000 
8888805607212420111019700172110000042  614406N000245800 .. Detail rec @751 value is 000
8888805607212420111019700172110000052  065255N495020500 .. Detail rec @751 value is 000
8888805607212420111019700172110000075000050000017994D00



E.g: here Y Id s are 77777 & 88888 with X ID s starting from 23rd column of 9 bytes i.e. 560021896 or 700172029 or 700172110 that have data type '1' '2' or '3'.

And in the Data type '2' there could be multiple entries but 751 th column wud be same for a specific X ID; wud be either '000' or '888' & '999' etc.

Note: The first file would be written only when Y ID = '77777' & 751 th column is among '000' / '888' / '999'.


So Output 1 will be :

Code:
77777056072124201110195600218960000112011100320111003A1 ..
7777705607212420111019560021896000022  395608N492810860 ..
7777705607212420111019560021896000033000010000002862B00 ..


Output 2 will contain rest of the unsatisfying records..


& Output 2 will be:

Code:
88888056072124201110197001721100000112011100520111005A1
8888805607212420111019700172110000022  953911N540920191 ..
8888805607212420111019700172110000032  762815N003952775 ..
8888805607212420111019700172110000042  614406N000245800 ..
8888805607212420111019700172110000052  065255N495020500 ..
8888805607212420111019700172110000075000050000017994D00
88888056072124201110197001720290000112011100520111005A1
8888805607212420111019700172029000022  599746N597623721 ..
8888805607212420111019700172029000032  800351N001210775 ..
8888805607212420111019700172029000073000050000000976F00
Back to top
View user's profile Send private message
Frank Yaeger

DFSORT Developer


Joined: 15 Feb 2005
Posts: 7129
Location: San Jose, CA
PostPosted: Fri Oct 21, 2011 3:00 am
 Reply with quote
Quote:
1. will contain only those records whose first 5 bytes or Y ID is a
value say '77777' and also the 751 th column upto 3 Bytes of Detail
record i.e record type '2' is having numeric value as 888 Or 999 or 000.


I'm not clear on all of the variations you want to handle. Perhaps a more extensive example of input and output would help.

Specifically:

Will you only be selecting on a single value of the X ID (e.g. 77777) or could you select on multiple values of the X ID (e.g. 77777 and 99999 and 00000)?

Can you select more than one X ID/Y ID group? For example, could you have

77777 group with YID1 and 999
77777 group with YID2 and 666
77777 group with YID3 and 888
77777 group with YID4 and 000

Would you want the groups for 77777 YID1, YID2 and YID4 in output1?
Back to top
View user's profile Send private message
D Rishi

New User


Joined: 01 Mar 2010
Posts: 21
Location: India
PostPosted: Fri Oct 21, 2011 8:57 am
 Reply with quote
Hi Frank,

Actually I need only for a single value of YID and that is '77777' under which group would be on the basis of a single X ID with its detail value as 999/000/888.

each XID will be either with 999 or 000 or 888 but the Detail line i.e. '2' occurrence could be multiple

such that...

YID1 with XID1 Header i.e. record type '1'
YID1 with XID1 Detail i.e. record type '2' with 000
YID1 with XID1 Detail i.e. record type '2' with 000
YID1 with XID1 Detail i.e. record type '2' with 000
YID1 with XID1 Trailer i.e. record type '3'


But the Output file would be

first file:

77777 group with XID1 with value 000/999/888
77777 group with XID2 with value 000/999/888
77777 group with XID6 with value 000/999/888

second file could be :

77777 group with XID3 with value other than 000/999/888
88888 group with XID4 with value other than 000/999/888
99999 group with XID5 with value other than 000/999/888
77777 group with XID7 with value like 111/222 i.e. anything other than 000/999/888

please let me know if its still not comprehending..

Thanks in advance..

D Rishi
Back to top
View user's profile Send private message
Frank Yaeger

DFSORT Developer


Joined: 15 Feb 2005
Posts: 7129
Location: San Jose, CA
PostPosted: Sat Oct 22, 2011 2:25 am
 Reply with quote
If I understand correctly what you want to do, then you can use a DFSORT/ICETOOL job like this:

Code:

//S1 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//IN DD DSN=...  input file (VB/1504)
//T1 DD DSN=&&T1,UNIT=SYSDA,SPACE=(CYL,(5,5)),DISP=(,PASS)
//OUT1 DD DSN=...  output file1 (VB/1504)
//OUT2 DD DSN=...  output file2 (VB/1504)
//TOOLIN DD *
COPY FROM(IN) USING(CTL1)
COPY JKFROM USING(CTL2)
//CTL1CNTL DD *
  OPTION VLSCMP
  INREC IFTHEN=(WHEN=INIT,BUILD=(1,4,5:16X,21:5)),
        IFTHEN=(WHEN=GROUP,BEGIN=(57,1,CH,EQ,C'1'),
          PUSH=(5:ID=8,13:SEQ=8))
  OUTFIL FNAMES=T1,
   INCLUDE=(13,8,ZD,EQ,2,AND,21,5,CH,EQ,C'77777',AND,
     771,3,SS,EQ,C'000,999,888'),
    VTOF,BUILD=(5,8)
//CTL2CNTL DD *
  JOINKEYS F1=T1,FIELDS=(1,8,A)
  JOINKEYS F2=IN,FIELDS=(5,8,A)
  JOIN UNPAIRED,F2
  REFORMAT FIELDS=(F2:1,4,?,F2:13)
  OPTION COPY
  OUTFIL FNAMES=OUT1,INCLUDE=(5,1,CH,EQ,C'B'),BUILD=(1,4,6)
  OUTFIL FNAMES=OUT2,INCLUDE=(5,1,CH,EQ,C'2'),BUILD=(1,4,6)
//JNF2CNTL DD *
  INREC IFTHEN=(WHEN=INIT,BUILD=(1,4,5:8X,13:5)),
        IFTHEN=(WHEN=GROUP,BEGIN=(49,1,CH,EQ,C'1'),
          PUSH=(5:ID=8))
/*
Back to top
View user's profile Send private message
sqlcode1

Active Member


Joined: 08 Apr 2010
Posts: 577
Location: USA
PostPosted: Sat Oct 22, 2011 3:46 am
 Reply with quote
D Rishi,
See if below works...

Because your positions match sample input data shown and because your input is VB, I have added 4 bytes for RDW. If that's not the case you need to re-adjust positions. If your input file already sorted on key fields then add SORTED,NOSEQCK in your joinkey to save extra processing.

Frank,
I might have completely misunderstood OP's requirement. Below is just an attempt for the alternate solution.
Code:
//STEP0001     EXEC PGM=SORT                                     
//SYSOUT   DD SYSOUT=*                                           
//SORTJNF1 DD DISP=SHR,DSN=INPUT.VB1504                         
//SORTJNF2 DD DISP=SHR,DSN=INPUT.VB1504                         
//MATCHED  DD  DSN=OUTPUT.MATCHED.VB1504,                       
//             DISP=(,CATLG,DELETE),                             
//             UNIT=SYSDA                                       
//DROPPED  DD  DSN=OUTPUT.DROPPED.VB1504,                       
//             DISP=(,CATLG,DELETE),                             
//             UNIT=SYSDA                                       
//SYSIN    DD  *                                                 
  JOINKEYS FILES=F1,FIELDS=(5,5,A,27,9,A)                       
  JOINKEYS FILES=F2,FIELDS=(5,5,A,27,9,A)                       
  JOIN UNPAIRED,F1                                               
  REFORMAT FIELDS=(F1:1,4,F2:755,3,F1:5)                         
  SORT FIELDS=COPY                                               
  OUTFIL FNAMES=MATCHED,INCLUDE=(5,3,SS,EQ,C'888,999,000'),     
                        BUILD=(1,4,8)                           
  OUTFIL FNAMES=DROPPED,SAVE,BUILD=(1,4,8)                       
/*                                                               
//JNF2CNTL DD *                                                 
 OPTION VLSCMP                                                   
 INCLUDE COND=(05,05,CH,EQ,C'77777',AND,41,01,CH,EQ,C'2',AND,   
              755,03,SS,EQ,C'888,999,000')                       
 SUM FIELDS=NONE                                                 
/*                                                               


Thanks,
Back to top
View user's profile Send private message
D Rishi

New User


Joined: 01 Mar 2010
Posts: 21
Location: India
PostPosted: Mon Oct 24, 2011 8:25 am
 Reply with quote
hello Sqlcode1,

I tried with u r code but giving the error like..

Code:

ICE143I 0 BLOCKSET     COPY  TECHNIQUE SELECTED                                 
ICE250I 0 VISIT http://www.ibm.com/storage/dfsort FOR DFSORT PAPERS, EXAMPLES AN
ICE000I 1 - CONTROL STATEMENTS FOR 5694-A01, Z/OS DFSORT V1R5 - 20:03 ON SUN OCT
            JOINKEYS FILES=F1,FIELDS=(5,5,A,27,9,A)                             
            $                                                                   
ICE005A 0 STATEMENT DEFINER ERROR                                               


Seemingly Join is not working.. and my question is when this code will be moved to production am I suppose to give two Inputs of same file?

Thanks D Rishi
Back to top
View user's profile Send private message
D Rishi

New User


Joined: 01 Mar 2010
Posts: 21
Location: India
PostPosted: Mon Oct 24, 2011 9:12 am
 Reply with quote
Hi Frank,

I tried also with your code & it is giving Maxcc = 12 & the error..

Code:

ICE632I 0 SOURCE FOR ICETOOL STATEMENTS:  TOOLIN                               
                                                                               
ICE630I 0 MODE IN EFFECT:  STOP                                                 
                                                                               
          COPY FROM(IN) USING(CTL1)                                             
ICE606I 0 DFSORT CALL 0001 FOR COPY FROM IN       TO OUTFIL   USING CTL1CNTL COM
ICE602I 0 OPERATION RETURN CODE:  00                                           
                                                                               
          COPY JKFROM USING(CTL2)                                               
               $                                                               
ICE604A 0 ERROR IN KEYWORD, PARAMETER, OR DELIMITER                             
ICE602I 0 OPERATION RETURN CODE:  12 


(Note: '$' is in below to J of JKFROM)

do I need to change anything in place of '?' in below

Code:

  REFORMAT FIELDS=(F2:1,4,?,F2:13)                         


Thanks, D Rishi
Back to top
View user's profile Send private message
gcicchet

Senior Member


Joined: 28 Jul 2006
Posts: 1702
Location: Australia
PostPosted: Mon Oct 24, 2011 10:13 am
 Reply with quote
Hi,

also you need ICE201I message to be at least ICE201I G or higher for JOINKEYS to function, it appears from the errors you are getting you do not have the correct Level of DFSORT.


Gerry
Back to top
View user's profile Send private message
gcicchet

Senior Member


Joined: 28 Jul 2006
Posts: 1702
Location: Australia
PostPosted: Mon Oct 24, 2011 11:19 am
 Reply with quote
Quote:
Using JOINKEYS with ICETOOL SORT and COPY
You can use a JOINKEYS application with a COPY or SORT operator of ICETOOL, but not with any of the other
ICETOOL operators. A new JKFROM operand can be used instead of a FROM(indd) operand for the SORT and
COPY operators to tell DFSORT you will provide a JOINKEYS statement with F1=ddname1 for the F1 file and a
JOINKEYS statement with F2=ddname2 for the F2 file, as well as JOIN and REFORMAT statements as needed.
With JKFROM, ICETOOL will use 'JOINKEYS' in the ICE606I message instead of the FROM ddname and will
terminate if a JOINKEYS application is not specified correctly.
For multiple JOINKEYS applications within a single ICETOOL step:
 You can reference different JOINKEYS F1 and F2 input files for the different SORT and/or COPY operators
by using F1=ddname and F2=ddname on the various JOINKEYS statements as appropriate
User Guide


Gerry
Back to top
View user's profile Send private message
D Rishi

New User


Joined: 01 Mar 2010
Posts: 21
Location: India
PostPosted: Mon Oct 24, 2011 4:41 pm
 Reply with quote
Hi Dick & gcichet,

I personally regard Frank the SORT GURU.. I also want to update my knowledge in ICETOOL a bit.. can you please suggest any tutorial for basics..

I am getting maxcc 16 as i changed the JKFROM with
COPY FROM(T1) USING(CTL2)..

COPY FROM(T1) USING(CTL2)
ICE606I 0 DFSORT CALL 0002 FOR COPY FROM T1 TO OUTFIL USING CTL2CNTL TE
ICE602I 0 OPERATION RETURN CODE: 16


ICE601I 0 DFSORT ICETOOL UTILITY RUN ENDED - RETURN CODE: 16


Thank you also for guiding me..

D Rishi
Back to top
View user's profile Send private message
dick scherrer

Moderator Emeritus


Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix
PostPosted: Mon Oct 24, 2011 8:41 pm
 Reply with quote
Hi Jerry,

I didn't doubt Frank's code, but every once in a while a typo creaps in icon_smile.gif

No DFSORT here, so i couldn't run a simple test and as it was weekend, thought i'd participate anyway.

I expect Frank will clean out most of this icon_wink.gif

Not only is Frank the guru, he is the author of much of the product. . .

d
Back to top
View user's profile Send private message
Frank Yaeger

DFSORT Developer


Joined: 15 Feb 2005
Posts: 7129
Location: San Jose, CA
PostPosted: Mon Oct 24, 2011 11:42 pm
 Reply with quote
Quote:
ICE000I 1 - CONTROL STATEMENTS FOR 5694-A01, Z/OS DFSORT V1R5 - 20:03 ON SUN OCT


This message indicates you are using z/OS DFSORT V1R5, an unsupported release of DFSORT on an unsupported release of z/OS. And you're using a downlevel version of that DFSORT release which doesn't support JOINKEYS.

The supported versions are z/OS DFSORT V1R10 for z/OS 1.10-1.11 and z/OS DFSORT V1R12 for z/OS 1.12-1.13. You really need to move to a supported version of DFSORT before I can help you.

Ask your System Programmer why your site is running on an unsupported z/OS release and when you will be moving to a supported release.
Back to top
View user's profile Send private message
Frank Yaeger

DFSORT Developer


Joined: 15 Feb 2005
Posts: 7129
Location: San Jose, CA
PostPosted: Mon Oct 24, 2011 11:49 pm
 Reply with quote
Quote:
I also want to update my knowledge in ICETOOL a bit.. can you please suggest any tutorial for basics.


If you're not familiar with DFSORT and DFSORT's ICETOOL, I'd suggest reading through "z/OS DFSORT: Getting Started". It's an excellent tutorial, with lots of examples, that will show you how to use DFSORT, DFSORT's ICETOOL and DFSORT Symbols. You can access it online, along with all of the other DFSORT books, from:

www.ibm.com/support/docview.wss?rs=114&uid=isg3T7000080
Back to top
View user's profile Send private message
gcicchet

Senior Member


Joined: 28 Jul 2006
Posts: 1702
Location: Australia
PostPosted: Tue Oct 25, 2011 2:49 am
 Reply with quote
Hi,

unfortunately for me we are still on ICE201I E level of DFSORT (April 2006 )


Gerry
Back to top
View user's profile Send private message
Frank Yaeger

DFSORT Developer


Joined: 15 Feb 2005
Posts: 7129
Location: San Jose, CA
PostPosted: Tue Oct 25, 2011 3:37 am
 Reply with quote
Wow, that is really downlevel. Might I ask why?
Back to top
View user's profile Send private message
gcicchet

Senior Member


Joined: 28 Jul 2006
Posts: 1702
Location: Australia
PostPosted: Tue Oct 25, 2011 4:30 am
 Reply with quote
Trying to get anything changed here is like pushing shit up a hill. (pardon the expression)
Back to top
View user's profile Send private message
Frank Yaeger

DFSORT Developer


Joined: 15 Feb 2005
Posts: 7129
Location: San Jose, CA
PostPosted: Tue Oct 25, 2011 4:48 am
 Reply with quote
Just out of curiosity - what release of z/OS is your site using (or are you still using OS/390 or MVS/ESA)? icon_wink.gif
Back to top
View user's profile Send private message
gcicchet

Senior Member


Joined: 28 Jul 2006
Posts: 1702
Location: Australia
PostPosted: Tue Oct 25, 2011 4:53 am
 Reply with quote
z/OS 1.9
Back to top
View user's profile Send private message
Frank Yaeger

DFSORT Developer


Joined: 15 Feb 2005
Posts: 7129
Location: San Jose, CA
PostPosted: Tue Oct 25, 2011 5:30 am
 Reply with quote
Hey, that's not as bad as I thought. Only one z/OS release away from being supported.

Hopefully you'll get to a supported release of z/OS one of these days (that would be z/OS 1.10 and above as of this writing) and get the updated DFSORT release that goes with it.
Back to top
View user's profile Send private message
gcicchet

Senior Member


Joined: 28 Jul 2006
Posts: 1702
Location: Australia
PostPosted: Tue Oct 25, 2011 5:41 am
 Reply with quote
Actually we are going to z/OS 1.11 in the next couple of months.

Looking forward to playing with some of new DFSORT functions which are unvailable to me at the moment icon_biggrin.gif
Back to top
View user's profile Send private message
D Rishi

New User


Joined: 01 Mar 2010
Posts: 21
Location: India
PostPosted: Thu Oct 27, 2011 6:13 pm
 Reply with quote
Frank,

Thanks for your help.. I have started the workaround for this problem through Cobol program. Lets see how it works..

Sorry for late reply.. was on Holiday leave for Diwali..

Happy Diwali to all of you..

Regards, D Rishi
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> DFSORT/ICETOOL

 

Similar Topics
Topic Forum Replies
No new posts Compare 2 files and retrive records f... DFSORT/ICETOOL 2
No new posts FTP VB File from Mainframe retaining ... JCL & VSAM 8
No new posts Extract the file name from another fi... DFSORT/ICETOOL 6
No new posts How to split large record length file... DFSORT/ICETOOL 10
No new posts Populate last day of the Month in MMD... SYNCSORT 2
Search our Forums:

Back to Top
IBMMainframes.com is not an official and/or affiliated with IBM® in anyway
Board Rules | FAQ | Downloads | Wiki | SiteMap | Contact Us