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
