Charles,
You can use RESIZE operator to break a large record into small records. I
assumed that each record starts with X'5B' ($) and each record has a max
length of 200 bytes and you have a max of 10 records in a single large FB
record.
//STEP0100 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//IN DD *
$AAAAAAAAAAAAAAAAAAA$BBBBBBB$CCCCCC$DDD
//OUT DD SYSOUT=*
//TOOLIN DD *
RESIZE FROM(IN) TO(OUT) TOLEN(200) USING(CTL1)
//*
//CTL1CNTL DD *
OPTION COPY
INREC PARSE=(%01=(ABSPOS=2,ENDBEFR=C'$',FIXLEN=199),
%02=(ENDBEFR=X'5B',FIXLEN=199),
%03=(ENDBEFR=X'5B',FIXLEN=199),
%04=(ENDBEFR=X'5B',FIXLEN=199),
%05=(ENDBEFR=X'5B',FIXLEN=199),
%06=(ENDBEFR=X'5B',FIXLEN=199),
%07=(ENDBEFR=X'5B',FIXLEN=199),
%08=(ENDBEFR=X'5B',FIXLEN=199),
%09=(ENDBEFR=X'5B',FIXLEN=199),
%10=(ENDBEFR=X'5B',FIXLEN=199)),
BUILD=(X'5B',%01,X'5B',%02,X'5B',%03,X'5B',%04,X'5B',%05,
X'5B',%06,X'5B',%07,X'5B',%08,X'5B',%09,X'5B',%10)
OUTFIL FTOV,VLTRIM=C' ',OMIT=(2,199,CH,EQ,C' ')
//*
The output from this job is
$AAAAAAAAAAAAAAAAAAA
$BBBBBBB
$CCCCCC
$DDD
Check this link which explains in detail about RESIZE operator.
http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/ICE1CA60/7.13
If that is not what you want please show us a sample data and desired
output along with DCB properties of both input and output..
Thanks,
Sri Hari Kolusu
DFSORT Development
IBM Mainframe Discussion List <[email protected]> wrote on
01/15/2013 09:04:30 AM:
> From: Charles Mills <[email protected]>
> To: [email protected],
> Date: 01/15/2013 09:11 AM
> Subject: Break a dataset into new record boundaries?
> Sent by: IBM Mainframe Discussion List <[email protected]>
>
> I've got a dataset that has been mangled through some misguided efforts
such
> that original record boundaries have been lost. It used to be RECFM=V
and
> now it is RECFM=F
>
> As luck would have it, every original record begins with the same hex
value.
> Can anyone suggest a simple tool -- z/OS, USS, or Windows -- that would
> reformat the records breaking on every occurrence of a particular byte
> value?
>
> Yes, I know I will get some false positives, but it's test data, not
> production data, and I can probably live with that. It would be an
> improvement on what I have -- that's for sure.
>
> I believe I have access to ICETOOL but I am embarrassed to admit I have
> never used it. I glanced at the doc just now but did not see anything
that
> looked relevant -- but perhaps I missed something.
>
> Thanks all!
>
> Charles
>
> ----------------------------------------------------------------------
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to [email protected] with the message: INFO IBM-MAIN
>
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
