>>>Here's my question. If (can) sort insert records into its output on a break in key? If so, why not sort the input file and, on each key break, generate an IEBUPDTE add control card and the write the record that belong to that card until the next key break. Do this for each key break and the resulting output file would be an IEUPDTE input stream that would then be fed into an IEBUPDTE job step that allocates a new PDS(e) and populates the members.
Chuck, DFSORT is quite capable of generating the IEBUPDTE cards on key break. My sample JCL is doing a similar thing but generating the DFSORT OUTFIL control cards based on the key break. If you want I can show you how to generate the IEBUPDTE sysin cards or for that matter any IBM utility control cards using DFSORT. Send me an email and we can discuss it offline. Thanks, Kolusu DFSORT Development IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> wrote on 08/21/2014 09:28:51 AM: > From: "Hardee, Chuck" <chuck.har...@thermofisher.com> > To: IBM-MAIN@LISTSERV.UA.EDU > Date: 08/21/2014 09:29 AM > Subject: Re: DF/SORT question (challenge?) > Sent by: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> > > Okay, let me say up front, I know nothing about the abilities of > SORT other than simple sort this file on these keys and give me the > output in this file. Okay, we're good? > > Here's my question. If (can) sort insert records into its output on > a break in key? > If so, why not sort the input file and, on each key break, generate > an IEBUPDTE add control card and the write the record that belong to > that card until the next key break. Do this for each key break and > the resulting output file would be an IEUPDTE input stream that > would then be fed into an IEBUPDTE job step that allocates a new PDS > (e) and populates the members. > > No need to dynamically create a dataset/member for every key break, > just a single PS type output file, in key sequence, with control > cards as needed. > > Admittedly the control cards needed may be a bit more than a simple > add/insert (don't recall what terminology IEBUPDTE uses, haven't > used it in a while), and then there's the termination signal for > each member, but if the idea has merit, well, it's worth a try. > > Of course, all bets are off if the OP needs a unique PS type file > for each key versus a member in a PDS(e) for each key. > > Thanks for entertaining this idea. > > Chuck > > Charles (Chuck) Hardee > Senior Systems Engineer/Database Administration > CCG Information Technology > > Thermo Fisher Scientific > 300 Industry Drive | Pittsburgh, PA 15275 > Phone +1 (724) 517-2633 | Mobile +1 (412) 877-2809 | FAX: +1 (412) 490-9230 > chuck.har...@thermofisher.com | www.thermofisher.com > > WORLDWIDE CONFIDENTIALITY NOTE: Dissemination, distribution or > copying of this e-mail or the information herein by anyone other > than the intended recipient, or an employee or agent of a system > responsible for delivering the message to the intended recipient, is > prohibited. If you are not the intended recipient, please inform the > sender and delete all copies. > > -----Original Message----- > From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU > ] On Behalf Of TonyIcloud-OPERA > Sent: Thursday, August 21, 2014 12:19 PM > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: Re: DF/SORT question (challenge?) > > Before I tried the solution cited below (TYVM BTW), I set up a test > manually with some interesting results. The input file is not sorted, and > I'm only doing SORT FIELDS=COPY. All I want to do is to break up the file > into a bunch of little files. > > Test #1. Read my input file, 229,762 records, lrecl=200/27800 FB , 310 DD > statements, 310 OUTFIL INCLUDE statements. RC=0, 310 members created, all > the data checks out. > > Test #2. Read the same input file, 321 DD statements, 321 OUTFIL INCLUDE > statements, abends: > > 10.09.26 JOB08830 IEC036I 002-B4,IGC0005E,IDSXSB7A,AA,VS09610,4BB9,SHRE16, > 452 > 452 IDSX00S.IDSXSB7.SYSE.FIDX03.PDSE > > ICE185A 0 AN S002 ABEND WAS ISSUED BY DFSORT, ANOTHER PROGRAM OR AN EXIT > (PHASE C 3) > Quickref provides: > B4 - Unable to create a system buffer required for PDSE processing. > > I retried with regions of 16M, 32M, 0M, same result. Not sure if our > local storage police exit chokes off my attempt at 0M. > > > Interestingly, even though the abend occurred the output PDSE was > populated with all 321 members however the last 8 members contain 0 > records. Looks like DF/SORT was tripped up at the 313 mark by some system > limitation. I'm going to consult with my sysprogs before we go to IBM for > help. > > P.S. My old successful attempt at writing 1,000 members occurred at a > different company, a much smaller shop, oddly enough. > > > > > > > On Wed, 20 Aug 2014 12:01:00 -0500, Sri h Kolusu <skol...@us.ibm.com> > wrote: > > > 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 <IBM-MAIN@LISTSERV.UA.EDU> wrote on > > 08/20/2014 07:34:48 AM: > > > >> From: TonyIcloud-OPERA <tonybabo...@icloud.com> > >> To: IBM-MAIN@LISTSERV.UA.EDU > >> Date: 08/20/2014 07:35 AM > >> Subject: DF/SORT question (challenge?) > >> Sent by: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> > >> > >> 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 lists...@listserv.ua.edu with the message: INFO IBM-MAIN > >> > > > > ---------------------------------------------------------------------- > > For IBM-MAIN subscribe / signoff / archive access instructions, > > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN > > > -- > Using Opera's mail client: http://www.opera.com/mail/ > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN > ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
