Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Forum Index
 
Register
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
need assistance on a sort

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> SYNCSORT
View previous topic :: :: View next topic  
Author Message
rajiv rengasamy

New User


Joined: 24 Sep 2008
Posts: 27
Location: Chennai

PostPosted: Fri Jul 26, 2019 8:19 pm    Post subject: need assistance on a sort
Reply with quote

I have a file with each record of length 4 characters.
• All the records are left justified
• The record can be a string or a whole number or a decimal number
• There is no sign, the numbers are always positive

This file needs to sorted such that
The records with value string are at the top
followed by numerical values sorted in ascending order.

The below is the sample input

8999
bbbb
aaaa
cccc
299
abcc
abcd
0.1
0.7
9999
0.9
cefd
1
1.9
1.7
baed

---------

Desired output

aaaa
abcc
abcd
baed
bbbb
cccc
Cefd
0.1
0.7
0.9
1
1.7
1.9
299
8999
9999

Can you please guide/assist how this can be archived using sort utility.

Thank you
Rajiv R
Back to top
View user's profile Send private message

Rohit Umarjikar

Senior Member


Joined: 21 Sep 2010
Posts: 2299
Location: NY,USA

PostPosted: Fri Jul 26, 2019 9:54 pm    Post subject:
Reply with quote

Can you explain why this did not work unless not tried?
Code:
//SYSIN    DD    *       
 SORT FIELDS=(1,4,CH,A)   
//*                       
Back to top
View user's profile Send private message
Marso

REXX Moderator


Joined: 13 Mar 2006
Posts: 1330
Location: Israel

PostPosted: Mon Jul 29, 2019 6:01 pm    Post subject:
Reply with quote

The sample data provided does not show the problem:

The below is the sample input

8999
bbbb
299
abcc
92 <===
0.1
5.7 <===
9999
cefd
1
1.9

output with (1,4,CH,A)

abcc
bbbb
Cefd
0.1
1
1.9
299
5.7 <===
8999
92 <===
9999

Desired output

abcc
abcd
bbbb
Cefd
0.1
1
1.9
5.7<===
92 <===
299
8999
9999
Back to top
View user's profile Send private message
sergeyken

Active Member


Joined: 29 Apr 2008
Posts: 609
Location: Maryland

PostPosted: Mon Jul 29, 2019 9:46 pm    Post subject:
Reply with quote

Marso wrote:
The sample data provided does not show the problem:

The below is the sample input

8999
bbbb
299
abcc
92 <===
0.1
5.7 <===
9999
cefd
1
1.9

output with (1,4,CH,A)

abcc
bbbb
Cefd
0.1
1
1.9
299
5.7 <===
8999
92 <===
9999

Desired output

abcc
abcd
bbbb
Cefd
0.1
1
1.9
5.7<===
92 <===
299
8999
9999

A sophisticated PARSE is needed.

There is no option in SORT to automatically recognize free-text decimal fractioned values, or left-aligned numeric values in the manner TS wants it. Formats like UFF etc. do not recognize decimal points, and ignore them. Formats like CH do consider numeric values as simple characters. Formats like ZD do not accept anything except digits '0'-'9'.

Some time ago I've posted a related example: how to parse unaligned decimal fractioned values using SORT tools.
But I suggest the TS to try something by himself using given hints, before giving him a ready-to-use solution.
Back to top
View user's profile Send private message
sergeyken

Active Member


Joined: 29 Apr 2008
Posts: 609
Location: Maryland

PostPosted: Wed Jul 31, 2019 7:14 pm    Post subject:
Reply with quote

Looks like the most part of topic starters here are not interested neither in learning, nor in trying something by themselves, isn't it?
They are waiting for a ready-to-use solution OF THEIR JOB to be presented to them FREE OF CHARGE?


Code:
//*==================================================================
//* PROCESS FREE TEXT                                               
//*==================================================================
//FREETEXT EXEC PGM=SYNCSORT                                         
//*                                                                 
//SYSOUT   DD  SYSOUT=*                                             
//*                                                                 
//SORTIN   DD  *                                                     
8999                                                                 
bbbb                                                                 
299                                                                 
abcc                                                                 
92         <===                                                     
0.1                                                                 
 5.7       <===                                                     
9999                                                                 
cefd                                                                 
1                                                                   
1.9                                                                 
//*                                                                 
//SORTOUT  DD  SYSOUT=*                                             
//*                                                                 
//SYSIN    DD  *                                                     
* Add control fields based on three categories of input records       
* CASE 1: no digits; consider simple string                           
 INREC IFTHEN=(WHEN=(1,4,SS,NE,L(C'0',   |                             
                                 C'1',   | none                       
                                 C'2',   |                             
                                 C'3',   | of any digit               
                                 C'4',   |                             
                                 C'5',   | present?                   
                                 C'6',   |                             
                                 C'7',   |                             
                                 C'8',   |                             
                                 C'9')), |                             
               BUILD=(1,80,              original record               
                      4X,                blank whole digit part       
                      4X,                blank fractional part         
                      1,4)),             non-digit, character value   
* CASE 2: some digits, and decimal point: consider non-whole number   
       IFTHEN=(WHEN=(1,4,SS,EQ,C'.'),    decimal point present?       
               PARSE=(%1=(ENDBEFR=C'.',FIXLEN=4),      whole part     
                      %2=(ENDBEFR=BLANKS,FIXLEN=4)),   fraction part   
               BUILD=(1,80,              original record               
                      %1,JFY=(SHIFT=RIGHT),  right-aligned whole part 
                      %2,JFY=(SHIFT=LEFT),   left-aligned fraction part
                      4X)),              blank character value         
* CASE 3: some digits, no decimal point: consider whole number         
       IFTHEN=(WHEN=NONE,                otherwise: whole number       
               BUILD=(1,80,              original record               
                      1,4,JFY=(SHIFT=RIGHT), right-alighned whole part
                      4X,                blank fraction part           
                      4X))               blank character value         
*                                                                     
* re-order on created control fields                                   
 SORT FIELDS=(81,4,CH,A,       whole number, if present               
              85,4,CH,A,       fractional part, if present             
              89,4,CH,A)       character part, if non-numeric         
*                                                                     
 OUTREC BUILD=(1,80)           restore original record                 
*                                                                     
 END                                                                   

//*


Code:
********************************* TOP OF DATA *********
abcc                                                   
bbbb                                                   
cefd                                                   
0.1                                                   
1                                                     
1.9                                                   
 5.7       <===                                       
92         <===                                       
299                                                   
8999                                                   
9999                                                   
******************************** BOTTOM OF DATA *******
Back to top
View user's profile Send private message
sergeyken

Active Member


Joined: 29 Apr 2008
Posts: 609
Location: Maryland

PostPosted: Wed Jul 31, 2019 10:34 pm    Post subject:
Reply with quote

Clarification to the previous example.

This is how the intermediate records look like after SORT by control field, but before the original record is restored.
Code:
----+----1----+----2----+----3 . . . . 8----+----9----+
abcc                                            abcc                           
bbbb                                            bbbb                           
cefd                                            cefd                           
0.1                                        01                                 
1                                          1                                   
1.9                                        19                                 
 5.7       <===                            57                                 
92         <===                           92                                   
299                                      299                                   
8999                                    8999                                   
9999                                    9999                                   
Back to top
View user's profile Send private message
sergeyken

Active Member


Joined: 29 Apr 2008
Posts: 609
Location: Maryland

PostPosted: Thu Aug 01, 2019 12:36 am    Post subject:
Reply with quote

It is not recommended to code the statements (in any language) in this "compacted" style.
If you do so to save 5 minutes today, then hard time in the future is guaranteed.
Code:
 SORT FIELDS=(81,12,CH,A)                                           
 OUTREC BUILD=(1,80)                                               
 INREC IFTHEN=(WHEN=(1,4,SS,NE,L(C'0',C'1',C'2',C'3',C'4',C'5',     
 C'6',C'7',C'8',C'9')),BUILD=(1,80,4X,4X,1,4)),                     
 IFTHEN=(WHEN=(1,4,SS,EQ,C'.'),PARSE=(%1=(ENDBEFR=C'.',FIXLEN=4),   
 %2=(ENDBEFR=BLANKS,FIXLEN=4)),BUILD=(1,80,%1,JFY=(SHIFT=RIGHT),   
 %2,JFY=(SHIFT=LEFT),4X)),IFTHEN=(WHEN=NONE,BUILD=(1,80,           
 1,4,JFY=(SHIFT=RIGHT),4X,4X))                                     
Back to top
View user's profile Send private message
Rohit Umarjikar

Senior Member


Joined: 21 Sep 2010
Posts: 2299
Location: NY,USA

PostPosted: Fri Aug 02, 2019 1:26 am    Post subject:
Reply with quote

Marso, Got it. Thanks.
This is my though assuming that Dec(2,2) for Decimals for size of 4 bytes record.

Code:
//SYMNAMES DD *                                             
 NUME,'0123456789'                                           
 DECM,'.'                                                   
//SYSOUT   DD  SYSOUT=*                                     
//SORTLIST DD  SYSOUT=*                                     
//SORTIN   DD  *                                             
8999                                                         
bbbb                                                         
299                                                         
abcc                                                         
92                                                           
0.1                                                         
5.7                                                         
9999                                                         
cefd                                                         
1                                                           
1.9                                                         
0.11                                                         
//SORTOUT  DD  SYSOUT=*                                     
//SYSIN    DD    *                                           
 SORT FIELDS=(21,1,ZD,D,41,4,ZD,A,1,4,CH,A)                 
 INREC IFTHEN=(WHEN=INIT,OVERLAY=(41:1,4,SQZ=(SHIFT=RIGHT))),
       IFTHEN=(WHEN=INIT,                                   
              FINDREP=(STARTPOS=41,IN=C' ',OUT=C'0')),       
       IFTHEN=(WHEN=INIT,                                   
              FINDREP=(STARTPOS=41,IN=C'.',OUT=C'0')),       
       IFTHEN=(WHEN=(2,1,CH,EQ,DECM),OVERLAY=(21:C'8')),     
       IFTHEN=(WHEN=(1,1,SS,EQ,L(NUME)),OVERLAY=(21:C'7')), 
      IFTHEN=(WHEN=NONE,OVERLAY=(21:C'9'))
OUTFIL BUILD=(1,4)                         

Output :
Code:
abcc
bbbb
cefd
0.1
0.11
1.9
5.7
1   
92 
299
8999
9999
Back to top
View user's profile Send private message
Rohit Umarjikar

Senior Member


Joined: 21 Sep 2010
Posts: 2299
Location: NY,USA

PostPosted: Fri Aug 02, 2019 6:30 am    Post subject:
Reply with quote

I realized , One part is missing, I shall look into it to get it fixed...
Back to top
View user's profile Send private message
Rohit Umarjikar

Senior Member


Joined: 21 Sep 2010
Posts: 2299
Location: NY,USA

PostPosted: Fri Aug 02, 2019 5:36 pm    Post subject:
Reply with quote

Try this..
Code:

//SYMNAMES DD *         
 NUME,'0123456789'     
//SYSOUT   DD  SYSOUT=*
//SORTLIST DD  SYSOUT=*
//SORTIN   DD  *       
8999                   
bbbb                   
299                     
abcc                   
92                     
0.1                     
5.7                     
9999                   
cefd                   
1                       
1.9                     
0.11                   
9999                   
//SYSIN    DD    *
//SORTOUT  DD  SYSOUT=*                                             
 //SYSIN    DD    *                                             
 SORT FIELDS=(21,1,ZD,D,41,4,ZD,A,1,4,CH,A)                   
 INREC IFTHEN=(WHEN=(2,1,CH,EQ,C'.',AND,1,1,CH,NE,C'0'),       
           OVERLAY=(21:C'7',41:1,4,UFF,MUL,+100,ZD,LENGTH=5)),
       IFTHEN=(WHEN=(2,1,CH,EQ,C' ',AND,1,1,SS,EQ,L(NUME)),   
           OVERLAY=(21:C'7',41:1,4,UFF,MUL,+100,ZD,LENGTH=5)),
       IFTHEN=(WHEN=(1,1,CH,EQ,C'0',AND,2,1,CH,EQ,C'.'),       
           OVERLAY=(21:C'8',41:1,4,UFF,MUL,+100,ZD,LENGTH=5)),
       IFTHEN=(WHEN=(1,1,SS,EQ,L(NUME)),                       
           OVERLAY=(21:C'6',41:1,4,UFF,MUL,+100,ZD,LENGTH=5)),
       IFTHEN=(WHEN=NONE,OVERLAY=(21:C'9'))                   
  OUTFIL BUILD=(1,4,76X)

Output:
Code:
abcc
bbbb
cefd
0.1 
0.11
1   
1.9 
5.7 
92   
299 
8999
9999
9999
Back to top
View user's profile Send private message
sergeyken

Active Member


Joined: 29 Apr 2008
Posts: 609
Location: Maryland

PostPosted: Fri Aug 02, 2019 6:15 pm    Post subject:
Reply with quote

Code:
8999                 
bbbb                 
299                 
abcc                 
92         <===     
0.1                 
 5.7       <===     
9999                 
cefd                 
1                   
1.9


Code:
 5.7       
abcc       
bbbb       
cefd       
0.1         
1.9         
1           
92         
299         
8999       
9999
Back to top
View user's profile Send private message
Rohit Umarjikar

Senior Member


Joined: 21 Sep 2010
Posts: 2299
Location: NY,USA

PostPosted: Fri Aug 02, 2019 6:29 pm    Post subject:
Reply with quote

TS requirements in the very first post states this clearly, so what you said will not be a possible option and even if it is possible then TS can add SQZ=(SHIFT=LEFT) as first INREC statement and I assumed it to be Dec(3,2).
Quote:
• All the records are left justified


This will take care of that but not need if they are already LEFT justified.
Code:
SORT FIELDS=(21,1,ZD,D,41,4,ZD,A,1,4,CH,A)                     
 INREC IFTHEN=(WHEN=INIT,OVERLAY=(1:1,4,SQZ=(SHIFT=LEFT))),   
       IFTHEN=(WHEN=(2,1,CH,EQ,C'.',AND,1,1,CH,NE,C'0'),       
           OVERLAY=(21:C'7',41:1,4,UFF,MUL,+100,ZD,LENGTH=5)),
       IFTHEN=(WHEN=(2,1,CH,EQ,C' ',AND,1,1,SS,EQ,L(NUME)),   
           OVERLAY=(21:C'7',41:1,4,UFF,MUL,+100,ZD,LENGTH=5)),
       IFTHEN=(WHEN=(1,1,CH,EQ,C'0',AND,2,1,CH,EQ,C'.'),       
           OVERLAY=(21:C'8',41:1,4,UFF,MUL,+100,ZD,LENGTH=5)),
       IFTHEN=(WHEN=(1,1,SS,EQ,L(NUME)),                       
           OVERLAY=(21:C'6',41:1,4,UFF,MUL,+100,ZD,LENGTH=5)),
       IFTHEN=(WHEN=NONE,OVERLAY=(21:C'9',41:C'0000'))         
  OUTFIL BUILD=(1,4,76X) 
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> SYNCSORT All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Sort to construct single record from ... Deepti_R SYNCSORT 3 Wed Nov 13, 2019 12:14 am
No new posts Capture DSN names through SORT / IDCAMS reach2abhinavtyagi DFSORT/ICETOOL 8 Tue Nov 05, 2019 7:33 pm
No new posts Convert mainframe data to .csv format... karan_reddy DFSORT/ICETOOL 10 Sat Nov 02, 2019 2:09 am
No new posts One-One matching using SORT dearlux SYNCSORT 14 Fri Oct 11, 2019 12:11 am
No new posts Create Dynamic Sort card with Omit co... balaji81_k DFSORT/ICETOOL 9 Thu Sep 26, 2019 10:06 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us