IBM Mainframe Forum

Hi,
//step01 DD DSN=TCLAST15.B836.AUSTRCLR.ISIN.COPY13,
// DISP=(NEW,CATLG),SPACE=(CYL,(1,1),RLSE),
// DCB=(RECFM=VB,LRECL=200,BLKSIZE=28800)

My requirement is that if the length of record is exceed then 200 then the record won't be truncated but it should come on next line as shown below :-

Command ===> Scroll ===> CSR
=COLS> ----+----1----+----2----+----3----+----4----+----5----+----6----+----7--
****** ***************************** Top of Data ******************************
000001 HEADER 30072010 18:40PM PBAAUST
000002 2025193,,RWHF,RWHF01,000019000000.00,82,RWH FINANCE,BND 26MAR2021,260320

Then my output would be :-


Command ===> Scroll ===> CSR
=COLS> ----+----1----+----2----+----3----+----4----+----5
****** ***************************** Top of Data ******************************
000001 HEADER 30072010 18:40PM PBAAUST
000002 2025193,,RWHF,RWHF01,000019000000.00,82,
000003 ,RWH FINANCE,BND 26MAR2021,260320


Is it possible to do through any utility ?

You could do it through batch ISPF edit. I am not sure whether one of the sort products could do it without a specific 'marker' to split at. Or just write a quick rexx exec to do it.

Hello,

Why is there a want/need to split a single record into multiple records? They would have to be combined again to actually be used. . .

What should happen if the original record is more than 400 bytes?

Can the split be anywhere or is there some logic/rule about where the split may occur?