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 <[email protected]>: > 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 [email protected] with the message: INFO IBM-MAIN > -- 全先 実 - Minoru Massaki (M*M) E-mail: [email protected] ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
