Hi Friemel-san, I have tested you new DFSORT JCL in our z/OS V2.1 system. It has worked fine.
Thank you!! Minoru Massaki - (M*M) 2015-06-10 4:00 GMT+09:00 Norbert Friemel <nf.ibmm...@web.de>: > On Wed, 10 Jun 2015 02:37:49 +0900, Minoru Massaki wrote: > > >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. > > > > I can't test this now but I guess OPTION VLSHRT is missing. > Another error: INREC PARSE should start at position 9 (after the sequence > number) > INREC PARSE=(%00=(ABSPOS=9,STARTAFT=C'<',FIXLEN=1), ... > > Complete job (with minor modifications, *untested*): > > //* > //STEP1 EXEC PGM=ICETOOL > //* > //TOOLMSG DD SYSOUT=* > //DFSMSG DD SYSOUT=* > //IN DD DISP=OLD,DSN=VB-INPUT-DS > //TEMP1 DD SPACE=(TRK,(150,150),RLSE) > //TEMP2 DD SPACE=(TRK,(150,150),RLSE) > //SHORT DD DISP=(NEW,CATLG,DELETE), > // SPACE=(TRK,(150,150),RLSE), > // DSN=VB-SHORTREC > //OUT DD DISP=(NEW,CATLG,DELETE), > // SPACE=(TRK,(150,150),RLSE), > // DSN=VB-OUTPUT-DS > //CTL1CNTL DD * > OUTFIL FNAMES=TEMP1,BUILD=(1,4,SEQNUM,4,BI,5), > INCLUDE=(1,2,BI,GE,12) > OUTFIL FNAMES=TEMP2,BUILD=(1,4,SEQNUM,4,BI,5,HEX), > INCLUDE=(1,2,BI,GE,12),VLTRAIL=C'< ' > OUTFIL FNAMES=SHORT,SAVE > /* > //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,9,F1:9) > /* > //T1F1CNTL DD * > /* > //T1F2CNTL DD * > OPTION VLSHRT > INREC PARSE=(%00=(ABSPOS=9,STARTAFT=C'<',FIXLEN=1), > %01=(SUBPOS=18,FIXLEN=16)), > BUILD=(1,4,5,4,%01,TRAN=UNHEX,%00) > /* > //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