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
