can this be acheived without using icetool?

useit · Active User Joined: 05 Oct 2006 Posts: 152

i have two files. in first file position 1,10 i have date field.

second file 1-20 i have store/tpn number.

i want to overlay date form the first file at the end of each record of the second file

file 1:(lrecl 10)
2010-10-10

file 2: (lrecl 20)
11111111119999999999
22222222228888888888

output should be:
111111111199999999992010-10-10
222222222288888888882010-10-10

i know thru splice (icetool) we can achieve this.but can this be achieved without using icetool?

vasanthz · Posted: Thu Apr 28, 2011 4:19 pm

Escapa · Posted: Thu Apr 28, 2011 4:22 pm

useit · Active User Joined: 05 Oct 2006 Posts: 152

vasanth/escapa

i want this to be acheived using DFSORT.

(ICETOOL IS NOT PREFERRED IN OUR PROJECT. (EVEN JOINKEYS(syncsort) IT DOESNT SUPPORT.

please help me regarding the same

regds,
useit

Escapa · Posted: Thu Apr 28, 2011 4:49 pm

Use this post www.ibmmainframes.com/viewtopic.php?t=33389 to find out your DFSORT level and [b]LET FORUM KNOW..[/b]
Just CAPS ON didn't work.. so bolding it...

useit · Active User Joined: 05 Oct 2006 Posts: 152

escapa,

please find the sysout results:

Display Filter View Print Options Help
-------------------------------------------------------------------------------
SDSF OUTPUT DISPLAY XK00F JOB02889 DSID 103 LINE 0 COLUMNS 01- 80
COMMAND INPUT ===> SCROLL ===> CSR
********************************* TOP OF DATA **********************************
1ICE805I 1 JOBNAME: XK00F , STEPNAME: S1
ICE802I 0 BLOCKSET TECHNIQUE IN CONTROL
ICE201I G RECORD TYPE IS F - DATA STARTS IN POSITION 1
ICE751I 0 C5-K51707 C6-K51707 C7-K54603 C8-K51707 E9-K51707 C9-BASE E5-K55337
ICE143I 0 BLOCKSET COPY TECHNIQUE SELECTED
ICE250I 0 VISIT www.ibm.com/storage/dfsort FOR DFSORT PAPERS, EXAMPLES A
ICE000I 1 - CONTROL STATEMENTS FOR 5694-A01, Z/OS DFSORT V1R10 - 08:33 ON FRI J
0 OPTION COPY
ICE201I G RECORD TYPE IS F - DATA STARTS IN POSITION 1
ICE751I 0 C5-K51707 C6-K51707 C7-K54603 C8-K51707 E9-K51707 C9-BASE E5-K55337
ICE142I 0 SRTMSGE NOT FOUND - SYSOUT USED
ICE193I 0 ICEAM1 INVOCATION ENVIRONMENT IN EFFECT - ICEAM1 ENVIRONMENT SELECTED
ICE088I 0 XK00F .S1 . , INPUT LRECL = 80, BLKSIZE = 80, TYPE = FB
ICE093I 0 MAIN STORAGE = (MAX,6291456,6278910)
ICE156I 0 MAIN STORAGE ABOVE 16MB = (6200798,6200798)
ICE127I 0 OPTIONS: OVFLO=RC0 ,PAD=RC0 ,TRUNC=RC0 ,SPANINC=RC16,VLSCMP=N,SZERO=Y
ICE127I 0 OPTIONS: OVFLO=RC0 ,PAD=RC0 ,TRUNC=RC0 ,SPANINC=RC16,VLSCMP=N,SZERO=Y
ICE128I 0 OPTIONS: SIZE=6291456,MAXLIM=1048576,MINLIM=450560,EQUALS=N,LIST=Y,ER
ICE129I 0 OPTIONS: VIO=N,RESDNT=ALL ,SMF=FULL ,WRKSEC=Y,OUTSEC=Y,VERIFY=N,CHALT
ICE130I 0 OPTIONS: RESALL=4096,RESINV=0,SVC=109 ,CHECK=Y,WRKREL=Y,OUTREL=Y,CKPT
ICE131I 0 OPTIONS: TMAXLIM=6291456,ARESALL=0,ARESINV=0,OVERRGN=65536,CINV=Y,CFW
ICE132I 0 OPTIONS: VLSHRT=N,ZDPRINT=Y,IEXIT=Y,TEXIT=Y,LISTX=N,EFS=NONE ,EXIT
ICE133I 0 OPTIONS: HIPRMAX=OPTIMAL,DSPSIZE=60 ,ODMAXBF=0,SOLRF=Y,VLLONG=N,VSAM
ICE235I 0 OPTIONS: NULLOUT=RC0
ICE084I 0 BSAM ACCESS METHOD USED FOR SORTOUT
ICE084I 0 BSAM ACCESS METHOD USED FOR SORTIN
ICE889I 0 CT=MAX , SB=4, L=0, D=0000, CCW=1MAM
ICE902I 0 O AZ00 I AZ00
ICE751I 1 EF-K49535 F0-K49038 E8-K51707
ICE900I 0 CON=1,MUV=0,VOL=1,ENU=0,SBK=0,SRC=0,VEM=0
ICE090I 0 OUTPUT LRECL = 80, BLKSIZE = 80, TYPE = FB
ICE055I 0 INSERT 0, DELETE 0
ICE054I 0 RECORDS - IN: 1, OUT: 1
ICE891I 1 6270432 WMAIN, 8472 CMAIN, MAX CALLOC, N SCN, B BA, 0 AZ, 0 BZ, YY QC
ICE892I 1 80 RIN 80 BLI 80 BLO 78 RUN 0 BUN 2094 CPU 00 CVC
ICE893I 1 0 XIN 0 WIN 0 GIN NDEN PFP B6D CM000 CIX UPTH LMD VS RUX
ICE052I 0 END OF DFSORT
*******************************

dbzTHEdinosauer · Posted: Thu Apr 28, 2011 4:54 pm

dbzTHEdinosauer · Posted: Thu Apr 28, 2011 5:00 pm

useit,
go to this thread:
ibmmainframes.com/viewtopic.php?p=250955&highlight=symname#250955
it has a solution for you

Frank Yaeger · Posted: Thu Apr 28, 2011 10:40 pm

useit · Active User Joined: 05 Oct 2006 Posts: 152

dbzTHEdinosauer,

if i know the exat value then i can append using below sort card.

gcicchet · Posted: Fri Apr 29, 2011 9:26 am

Hi,

try this

useit · Active User Joined: 05 Oct 2006 Posts: 152

gcicchet,

have tried that jcl and its working fine:)

thanxx a lot gcicchet:)

regds,
useit