Tony,
It is quite easy to split the group of records into multiple members. Here
is a sample JCL which will give you the desired results of splitting the
first 999 groups of records into a PDSE each containing the group of
records. I also assumed your Input is already sorted on the field you want
to split. I assumed that the split field is 44 bytes in length. If it is
different then you can change it in ALL the places referred by KEYBEGIN.
This job creates a dynamic JCL which will then be submitted via INTRDR.
Take a look at the output from Step0200 and then if everything looks ok
then change the statement
//SORTOUT DD SYSOUT=* to //SORTOUT DD SYSOUT=(*,INTRDR),RECFM=FB
If you have more than 999 groups of records we will copy the rest of the
records into another file which will then be used as input file to further
split. I will show you how to build the dynamic JCL's based on that. I
chose the split to be 999 groups as the maximum number of DD statements
per job step is 3273, based on the number of single DD statements allowed
for a TIOT (task input output table) control block size of 64K. This limit
can be different depending on the installation defined TIOT size. The
IBM-supplied default TIOT size is 32K.
//*********************************************************************
//* BUILD DYNAMIC OUTFIL CARDS AND DDNAMES FOR EACH GROUP OF RECORDS *
//*********************************************************************
//STEP0100 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD DISP=SHR,DSN=Your Input FB 100 Byte file
//*
//OFCARDS DD DSN=&&C,DISP=(,PASS),SPACE=(CYL,(20,20),RLSE)
//DDNAMES DD DSN=&&D,DISP=(,PASS),SPACE=(CYL,(20,20),RLSE)
//SORTOUT DD DUMMY
//SYSIN DD *
OPTION COPY,NULLOUT=RC4
OUTREC IFTHEN=(WHEN=GROUP,KEYBEGIN=(1,44),PUSH=(101:ID=4))
OUTFIL FNAMES=OFCARDS,REMOVECC,NODETAIL,BUILD=(80X),
INCLUDE=(101,4,ZD,LT,1000),
SECTIONS=(101,4,
TRAILER3=(3:'OUTFIL FNAMES=OUTF',101,4,',BUILD=(1,100),',
C'INCLUDE=(101,4,ZD,EQ,',101,4,')')),
TRAILER1=(3:'OUTFIL FNAMES=NGRP',101,4,',SAVE')
OUTFIL FNAMES=DDNAMES,REMOVECC,NODETAIL,BUILD=(80X),
INCLUDE=(101,4,ZD,LT,1000),
SECTIONS=(101,4,
TRAILER3=('//OUTF',101,4,' DD ',
'DISP=SHR,DSN=Your.Split.PDSE(OUTF',101,4,')')),
TRAILER1=('//NGRP',101,4,' DD ',
'DSN=HLQ.TONYCLD.NGRP',101,4,','/,
'//',15:'DISP=(NEW,CATLG,DELETE),',/,
'//',15:'SPACE=(CYL,(100,40),RLSE)',/,
'//*')
//*
//*********************************************************************
//* SUBMIT THE SPLIT JOB TO INTRDR WITH THE ABOVE OUTPUT *
//*********************************************************************
//STEP0200 EXEC PGM=SORT,COND=(4,EQ,STEP0100)
//SYSOUT DD SYSOUT=*
//SYSIN DD *
OPTION COPY
//*SORTOUT DD SYSOUT=(*,INTRDR),RECFM=FB
//SORTOUT DD SYSOUT=*
//SORTIN DD DATA,DLM=$$
//SPLTTONY JOB (DA26,001,098,J69),'TONY',
// CLASS=A,
// MSGCLASS=H,
// MSGLEVEL=(1,1),
// TIME=(,15),
// NOTIFY=USERID
//*
//SPLTSTEP EXEC PGM=SORT,REGION=0M
//SYSOUT DD SYSOUT=*
//SORTIN DD DISP=SHR,DSN=Your Input FB 100 Byte file
$$
// DD DSN=&D,DISP=(OLD,PASS)
// DD DATA,DLM=$$
//SYSIN DD *
OPTION COPY,ODMAXBF=100K
OUTREC IFTHEN=(WHEN=GROUP,KEYBEGIN=(1,44),PUSH=(101:ID=4))
$$
// DD DSN=&C,DISP=(OLD,PASS)
//*
Further if you have any questions please let me know
Thanks,
Kolusu
DFSORT Development
IBM Corporation
IBM Mainframe Discussion List <[email protected]> wrote on
08/20/2014 07:34:48 AM:
> From: TonyIcloud-OPERA <[email protected]>
> To: [email protected]
> Date: 08/20/2014 07:35 AM
> Subject: DF/SORT question (challenge?)
> Sent by: IBM Mainframe Discussion List <[email protected]>
>
> I have a dataset that contains records with a field, by which I need to
> create a separate dataset that would contain all occurrences of that
> field. For example the file, FB100, looks like
>
> value1 other data.....
> value1 other data.....
> value1 other data.....
> value2 other data.....
> value2 other data.....
> value2 other data.....
> value3 other data.....
> value3 other data.....
> value3 other data.....
> value4 other data.....
> value4 other data.....
> value4 other data.....
>
> My final product must be a series of datasets:
>
> hlq.value1.records
> hlq.value2.records
> hlq.value3.records
> hlq.value4.records
>
> There may be hundreds/thousands of possible values, hence
> hundreds/thousands of datasets. I have accomplished this in 3 phases,
> first pass reads the data, uses ICETOOL OCCUR to list the values, second
> phase reads the OUTPUT and formats DD statements and OUTFIL OUTREC
> statements, the third phase reads the original data to create the
numerous
> output files. I used a newly created PDSE as the output file whereupon
> the third phase created several thousand members.
>
> It works, after a fashion, but I'd like a more simple solution.
>
>
> ----------------------------------------------------------------------
> 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
