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
 

 

can this be acheived without using icetool?

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

Active User


Joined: 05 Oct 2006
Posts: 141

PostPosted: Thu Apr 28, 2011 4:05 pm    Post subject: can this be acheived without using icetool?
Reply with quote

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?
Back to top
View user's profile Send private message

vasanthz

Global Moderator


Joined: 28 Aug 2007
Posts: 1445
Location: Azeroth

PostPosted: Thu Apr 28, 2011 4:19 pm    Post subject:
Reply with quote

Quote:
without using icetool?

Do you want to do it in some other programming language like COBOL REXX or SAS?
Back to top
View user's profile Send private message
Escapa

Senior Member


Joined: 16 Feb 2007
Posts: 1399
Location: IL, USA

PostPosted: Thu Apr 28, 2011 4:22 pm    Post subject: Re: can this be acheived without using icetool?
Reply with quote

useit wrote:

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

Yes. Thats the answer..

You need to tell us your dfsort level to get appropriate solution which will work for you.
Use this post http://www.ibmmainframes.com/viewtopic.php?t=33389 to find out your DFSORT level and LET FORUM KNOW..
Back to top
View user's profile Send private message
useit

Active User


Joined: 05 Oct 2006
Posts: 141

PostPosted: Thu Apr 28, 2011 4:33 pm    Post subject:
Reply with quote

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
Back to top
View user's profile Send private message
Escapa

Senior Member


Joined: 16 Feb 2007
Posts: 1399
Location: IL, USA

PostPosted: Thu Apr 28, 2011 4:49 pm    Post subject:
Reply with quote

Use this post http://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...
Back to top
View user's profile Send private message
useit

Active User


Joined: 05 Oct 2006
Posts: 141

PostPosted: Thu Apr 28, 2011 4:54 pm    Post subject:
Reply with quote

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 http://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
*******************************
Back to top
View user's profile Send private message
dbzTHEdinosauer

Global Moderator


Joined: 20 Oct 2006
Posts: 6966
Location: porcelain throne

PostPosted: Thu Apr 28, 2011 4:54 pm    Post subject:
Reply with quote

Quote:
You need to tell us your dfsort level to get appropriate solution which will work for you.
Back to top
View user's profile Send private message
dbzTHEdinosauer

Global Moderator


Joined: 20 Oct 2006
Posts: 6966
Location: porcelain throne

PostPosted: Thu Apr 28, 2011 5:00 pm    Post subject:
Reply with quote

useit,
go to this thread:
http://ibmmainframes.com/viewtopic.php?p=250955&highlight=symname#250955
it has a solution for you
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: Thu Apr 28, 2011 10:40 pm    Post subject:
Reply with quote

Quote:
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


I don't know what you mean by "EVEN JOINKEYS (syncsort) IT DOESNT SUPPORT". Your level of DFSORT DOES support JOINKEYS.
Back to top
View user's profile Send private message
useit

Active User


Joined: 05 Oct 2006
Posts: 141

PostPosted: Fri Apr 29, 2011 8:56 am    Post subject:
Reply with quote

dbzTHEdinosauer,

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

Code:

//STEP0100 EXEC PGM=SORT                   
//SYSOUT   DD SYSOUT=*                     
//SORTIN   DD DSN=in. file,DISP=SHR   
//SORTOUT  DD DSN=OUT.file,DISP=SHR 
//SYMNAMES DD *                             
DATA1,'2010-04-29'                         
//SYSIN    DD *                             
  INREC OVERLAY=(21:DATA1)                 
  SORT FIELDS=COPY 


but in my case i wont be knowing the exact date. date will change everyday. so whatever date from the input file(position 1, 10) i have to append it.

regds,
useit
Back to top
View user's profile Send private message
gcicchet

Senior Member


Joined: 28 Jul 2006
Posts: 1703
Location: Australia

PostPosted: Fri Apr 29, 2011 9:26 am    Post subject:
Reply with quote

Hi,

try this
Code:
//S1       EXEC PGM=SORT                                           
//SYSOUT   DD SYSOUT=*                                             
//SORTIN   DD *      INPUT FILE1                                   
2010-10-10                                                         
/*                                                                 
//SORTOUT DD DSN=&&S1,UNIT=SYSDA,SPACE=(TRK,(1,1)),DISP=(,PASS)     
//SYSIN    DD    *                                                 
  OPTION COPY                                                       
  INREC BUILD=(C'NDATE,''',1,10,C'''',80:X)                         
/*                                                                 
//S2       EXEC  PGM=SORT                                           
//SYSOUT   DD SYSOUT=*                                             
//SYMNAMES DD DSN=&&S1,DISP=(OLD,PASS)                             
//SYMNOUT  DD SYSOUT=*                                             
//SORTIN   DD *      INPUT FILE2                                   
11111111119999999999                                               
22222222228888888888                                               
//SORTOUT  DD SYSOUT=*                                             
//SYSIN    DD *                                                     
  OPTION COPY                                                       
 OUTREC BUILD=(1,20,NDATE)   
/*                                     


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

Active User


Joined: 05 Oct 2006
Posts: 141

PostPosted: Fri Apr 29, 2011 1:21 pm    Post subject:
Reply with quote

gcicchet,

have tried that jcl and its working fine:)

thanxx a lot gcicchet:)

regds,
useit
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 How to delete second instance from Fl... Gunapala CN DFSORT/ICETOOL 6 Tue Oct 18, 2016 11:42 pm
No new posts ICETOOL/SYNCSORT - SYSPRINT output nartcr DFSORT/ICETOOL 17 Wed Oct 05, 2016 10:46 pm
No new posts Icetool or Joinkeys example to compar... ishant chauhan DFSORT/ICETOOL 21 Sat Aug 20, 2016 2:40 am
No new posts ICETOOL higher option Anshul Das DFSORT/ICETOOL 14 Thu Apr 14, 2016 8:00 am
No new posts Compare Files and extract matching re... vimalravi83 DFSORT/ICETOOL 3 Wed Jan 06, 2016 2:42 pm


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