Hi Kolusu-san, I have sent JOB JCLs and executed output to DFSORT helpline.
Thank you, Minoru Massaki - (M*M) 2015-06-10 2:43 GMT+09:00 Sri h Kolusu <skol...@us.ibm.com>: > Minoru Massaki, > > I did not test out Norbert Friemel solution as it involves 2 passes of > data along with joinkeys which is not required. However I would like to > diagnose the error you are getting when you used his JCL. Can you send me > the complete sysout and JCL you used and if possible send the input file > to our hotline ? > > Thanks, > Sri Hari Kolusu > DFSORT Development > IBM Corporation > > IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> wrote on > 06/09/2015 10:37:49 AM: > > > From: Minoru Massaki <mmass...@gmail.com> > > To: IBM-MAIN@LISTSERV.UA.EDU > > Date: 06/09/2015 10:38 AM > > Subject: Re: DFSORT - How to select last 8 bytes in variable length > records > > Sent by: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> > > > > Hello Friemel-san, > > > > Thank you for your DFSORT JCL. > > > > In our z/OS V2.1 system, your JCL didn't work correctly. > > (output looked like all blank) > > > > After changing VLTRAIL parameter from two characters '<|' to > > three characters such as C'<|>', it does work fine. > > > > Thank you! > > > > Minoru Massaki - (M*M) > > > > > > 2015-06-08 22:06 GMT+09:00 Norbert Friemel <nf.ibmm...@web.de>: > > > > > On Mon, 8 Jun 2015 17:14:33 +0900, Minoru Massaki wrote: > > > > > > >Hello Kolusu-san, > > > > > > > >Thank you very much for giving the answer by using DFSORT. > > > >That is what the customer wants to. > > > > > > > >I have additional questions. > > > >If the 8 bytes key is binary data and some records include x'40' of > the > > > >last byte of the key, > > > > (ex. if the key is binary number 64 --> x'0000000000000040') > > > >Does the shifting to right (JFY=(SHIFT=RIGHT)) work as I expected? > > > > > > > >In case of the last and the first byte of the records contain x'40', > > > >what should I modify the DFSORT control statements you gave me. > > > > > > > > > > On z/OS 2.1 (VLTRAIL is new in 2.1) try: > > > > > > //* > > > //STEP1 EXEC PGM=ICETOOL > > > //* > > > //TOOLMSG DD SYSOUT=* > > > //DFSMSG DD SYSOUT=* > > > //IN DD DISP=OLD,DSN=VB-INPUT-DS > > > //TEMP1 DD SPACE=(TRK,(75,75),RLSE) > > > //TEMP2 DD SPACE=(TRK,(150,150),RLSE) > > > //OUT DD DISP=(NEW,CATLG,DELETE), > > > // SPACE=(TRK,(75,75),RLSE), > > > // DSN=VB-OUTPUT-DS > > > //CTL1CNTL DD * > > > OUTFIL FNAMES=TEMP1,BUILD=(1,4,SEQNUM,4,BI,C' ',5) > > > OUTFIL FNAMES=TEMP2,BUILD=(1,4,SEQNUM,4,BI,5,HEX),VLTRAIL=C'<|' > > > /* > > > //CTL2CNTL DD * > > > JOINKEYS F1=TEMP1,FIELDS=(5,4,A),TASKID=T1,SORTED > > > JOINKEYS F2=TEMP2,FIELDS=(5,4,A),TASKID=T1,SORTED > > > REFORMAT FIELDS=(F1:1,4,F2:9,8,F1:9,1,F1:10) > > > /* > > > //T1F1CNTL DD * > > > /* > > > //T1F2CNTL DD * > > > INREC PARSE=(%00=(STARTAFT=C'<',FIXLEN=1), > > > %01=(SUBPOS=18,FIXLEN=16)), > > > BUILD=(1,4,5,4,%01,TRAN=UNHEX) > > > /* > > > //TOOLIN DD * > > > COPY FROM(IN) USING(CTL1) > > > COPY JKFROM TO(OUT) USING(CTL2) > > > /* > > > > > > Norbert Friemel > > > > > > ---------------------------------------------------------------------- > > > For IBM-MAIN subscribe / signoff / archive access instructions, > > > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN > > > > > > > > > > > -- > > > > 全先 実 - Minoru Massaki (M*M) > > E-mail: mmass...@gmail.com > > > > ---------------------------------------------------------------------- > > For IBM-MAIN subscribe / signoff / archive access instructions, > > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN > > > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN > -- 全先 実 - Minoru Massaki (M*M) E-mail: mmass...@gmail.com ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
