Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref

Author Message

New User

Joined: 25 Apr 2007
Posts: 11
Location: Germany

 Posted: Fri Aug 31, 2007 5:47 pm    Post subject: Sort-problem special sequence Hello ! Sorry, I don't know to describe the problem in the subject. The input-File is: AAAAA 1 BBBBB AAAAA 1 BBBBB AAAAA 1 BBBBB AAAAA 2 BBBBB AAAAA 2 BBBBB AAAAA 2 BBBBB I want to get this sort-result: AAAAA 1 BBBBB AAAAA 2 BBBBB AAAAA 1 BBBBB AAAAA 2 BBBBB AAAAA 1 BBBBB AAAAA 2 BBBBB Is this possible ? Greetings Axel

CICS Guy

Senior Member

Joined: 18 Jul 2007
Posts: 2150
Location: At my coffee table

 Posted: Fri Aug 31, 2007 5:59 pm    Post subject: If you could tag the 1s with a seqnum starting at 1 and incrementing by 2 and tag the 2s with a seqnum starting at 2 and incrementing by 2, then sorting on the seqnum would put them in the seq you want.... I wonder if the IFTHEN will allow that?
ParagChouguley

Active User

Joined: 03 Feb 2007
Posts: 175
Location: PUNE(INDIA)

Posted: Fri Aug 31, 2007 6:11 pm    Post subject:

 Code: //S1      EXEC PGM=ICETOOL                  //TOOLMSG DD SYSOUT=*                        //DFSMSG  DD SYSOUT=*                        //IN1     DD *                              AAAAA 1 BBBBB                                AAAAA 1 BBBBB                                AAAAA 1 BBBBB                                AAAAA 2 BBBBB                                AAAAA 2 BBBBB                                AAAAA 2 BBBBB                                /*                                          //*                                          //OUT1    DD SYSOUT=*                        //*                                                    //TEMP1   DD DSN=&&TEMP1,DISP=(MOD,PASS),              //      DSORG=PS,RECFM=FB                              //TOOLIN  DD *                                              COPY FROM(IN1) TO(TEMP1) USING(SRT1)                    SORT FROM(TEMP1) TO(OUT1) USING(SRT2)              /*                                                      //*                                                    //SRT1CNTL DD *                                            OPTION COPY                                            OUTREC IFTHEN=(WHEN=(7,1,CH,EQ,C'1'),                                 BUILD=(SEQNUM,10,ZD,1,13)),                     IFTHEN=(WHEN=(7,1,CH,EQ,C'2'),                                 BUILD=(SEQNUM,10,ZD,1,13))          /*                                                      //SRT2CNTL DD *                                    SORT FIELDS=(1,10,ZD,A,17,1,CH,A)              OUTREC FIELDS=(11,13)                      /*

Output :
 Code: AAAAA 1 BBBBB    AAAAA 2 BBBBB    AAAAA 1 BBBBB    AAAAA 2 BBBBB    AAAAA 1 BBBBB    AAAAA 2 BBBBB

--Parag
krisprems

Active Member

Joined: 27 Nov 2006
Posts: 649
Location: India

Posted: Fri Aug 31, 2007 7:39 pm    Post subject:

Here is a DFSORT JCL that does what's needed in a single pass!
 Code: //S1    EXEC  PGM=ICEMAN                                                //SYSOUT    DD  SYSOUT=*                                                //SORTIN DD *                                                            AAAAA 1 BBBBB                                                            AAAAA 1 BBBBB                                                            AAAAA 1 BBBBB                                                            AAAAA 2 BBBBB                                                            AAAAA 2 BBBBB                                                            AAAAA 2 BBBBB                                                            /*                                                                      //SORTOUT DD SYSOUT=*                                                    //SYSIN    DD    *                                                        INREC  IFTHEN=(WHEN=INIT,OVERLAY=(81:SEQNUM,8,ZD,RESTART=(7,1)))        SORT FIELDS=(1,5,CH,A,81,8,ZD,A),EQUALS                  OUTREC BUILD=(1,80)                                                  /*

New User

Joined: 25 Apr 2007
Posts: 11
Location: Germany

 Posted: Mon Sep 03, 2007 11:38 am    Post subject: It works great ! Thank you very much! Greetings Axel
 All times are GMT + 6 Hours
 Page 1 of 1

Search our Forum:

 Topic Author Forum Replies Posted Similar Topics To remove spaces from a VB file using... Selvarajars DFSORT/ICETOOL 5 Thu Jun 21, 2018 6:57 pm CICS startup problem John Poulakos CICS 3 Tue Jun 12, 2018 9:08 pm Question about dataset sequence numbe... harisukumaran JCL & VSAM 23 Tue May 29, 2018 9:31 am Sort numeric fields with trailing spaces sancraig16 SYNCSORT 7 Tue Apr 03, 2018 1:21 am Find & Replace string in CA-SORT mrgnndhmk CA Products 1 Fri Mar 30, 2018 12:58 am

 © 2003-2017 IBM MAINFRAME Software Support Division
 Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us