Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
Joinkeys in DFSORT

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

Active User


Joined: 30 Aug 2007
Posts: 114
Location: pune

PostPosted: Fri Jan 29, 2010 12:03 pm    Post subject: Joinkeys in DFSORT
Reply with quote

i got this jcl in IBM DFSORT website ..
User Guide for DFSORT PTFs UK51706 and UK51707

how ever it doesnt seem to work .
(i have attached JCL too )

Code:
//JKE1 EXEC PGM=SORT               
//SYSOUT DD SYSOUT=*               
//SORTJNF1 DD *                         
ROSES          03   RED             
DAISIES        06   ORANGE         
ROSES          04   PINK           
DAISIES        02   YELLOW         
ROSES          06   YELLOW         
DAISIES        12   LILAC           
ROSES          09   BLUE           
/*                                 
//SORTJNF2  DD *                       
RED      LILIES          INSTOCK   
RED      ROSES           INSTOCK   
ORANGE   DAISIES         SOLDOUT   
PINK     ROSES           SOLDOUT   
YELLOW   DAISIES         INSTOCK   
YELLOW   ROSES           ORDERED   
LILAC    DAISIES         SOLDOUT   
WHITE    DAISIES         INSTOCK                           
/*                                                           
//SORTOUT DD SYSOUT=*                                       
//SYSIN DD *                                                 
* CONTROL STATEMENTS FOR JOINKEYS APPLICATION               
  JOINKEYS FILE=F1,FIELDS=(1,15,A,20,8,A)                   
  JOINKEYS FILE=F2,FIELDS=(10,15,A,1,8,A)                   
  REFORMAT FIELDS=(F1:20,8,1,15,F2:26,10,F1:16,2)           
* CONTROL STATEMENTS FOR MAIN TASK (JOINED RECORDS)         
  OPTION COPY                                               
  OUTFIL REMOVECC,                                           
  HEADER2=(1:'COLOR',11:'FLOWER',26:'STATUS',36:'PER POT',/,
  1:7'-',11:14'-',26:7'-',36:7'-'),                         
  BUILD=(1:1,8,11:9,15,26:24,10,                             
  36:34,2,ZD,M10,LENGTH=7)                                   
/*                                                         




ICE143I 0 BLOCKSET     COPY  TECHNIQUE SELECTED                                               
ICE250I 0 VISIT http://www.ibm.com/storage/dfsort FOR DFSORT PAPERS, EXAMPLES AND MORE       
ICE000I 1 - CONTROL STATEMENTS FOR 5694-A01, Z/OS DFSORT V1R10 - 01:29 ON FRI JAN 29, 2010 - 
          * CONTROL STATEMENTS FOR JOINKEYS APPLICATION                                       
            JOINKEYS FILE=F1,FIELDS=(1,15,A,20,8,A)                                           
            $                                                                                 
ICE005A 0 BLANK NEEDED IN COLUMN 1 OR OPERATION NOT DEFINED CORRECTLY                         
            JOINKEYS FILE=F2,FIELDS=(10,15,A,1,8,A)                                           
            $                                                                                 
ICE005A 0 BLANK NEEDED IN COLUMN 1 OR OPERATION NOT DEFINED CORRECTLY                         
            REFORMAT FIELDS=(F1:20,8,1,15,F2:26,10,F1:16,2)                                   
            $                                                                                 
ICE005A 0 BLANK NEEDED IN COLUMN 1 OR OPERATION NOT DEFINED CORRECTLY                         
          * CONTROL STATEMENTS FOR MAIN TASK (JOINED RECORDS)                                 
            OPTION COPY                                                                       
            OUTFIL REMOVECC,                                                                 
            HEADER2=(1:'COLOR',11:'FLOWER',26:'STATUS',36:'PER POT',/,                       
            1:7'-',11:14'-',26:7'-',36:7'-'),                                                 
            BUILD=(1:1,8,11:9,15,26:24,10,                                                   
            36:34,2,ZD,M10,LENGTH=7)                                                         
ICE056A 0 SORTIN   NOT DEFINED                             
ICE751I 0 C5-K47561 C6-K90014 C7-K45047 C8-K46331 E7-K44564
ICE052I 3 END OF DFSORT


i have give a space in column 1 yet it doesnt seem to work

Please guide !!
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 Jan 29, 2010 9:39 pm    Post subject:
Reply with quote

As the title "User Guide for DFSORT PTFs UK51706 and UK51707" implies, you need the appropriate PTF in order to use these functions. You don't have that PTF installed. Ask your System Programmer to install z/OS DFSORT V1R10 PTF UK51707 (Nov, 2009). Once you have that PTF installed, you can use JOINKEYS and the other new functions.
Back to top
View user's profile Send private message
smijoss

Active User


Joined: 30 Aug 2007
Posts: 114
Location: pune

PostPosted: Mon Feb 01, 2010 1:46 pm    Post subject:
Reply with quote

thanks buddy
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 Join records from 2 files with No Dup... Poha Eater DFSORT/ICETOOL 21 Sun Aug 27, 2017 10:35 pm
No new posts getting three output files out of JOI... migusd SYNCSORT 7 Mon Jun 05, 2017 11:30 pm
No new posts DFSORT - Overriding default option TU... Steve Ironmonger DFSORT/ICETOOL 3 Tue Apr 04, 2017 3:54 pm
No new posts DFSORT MUL FIELDS tspr52 DFSORT/ICETOOL 16 Fri Mar 03, 2017 11:53 pm
No new posts Joinkeys with condition scdinesh DFSORT/ICETOOL 10 Tue Feb 14, 2017 12:20 am

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us