smijoss
Active User
Joined: 30 Aug 2007 Posts: 114 Location: pune
|
|
|
|
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 !! |
|