Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

Unstring by DFSORT

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL
View previous topic :: :: View next topic  
Author Message
technut

New User


Joined: 27 Dec 2007
Posts: 73
Location: India

PostPosted: Wed Apr 21, 2010 12:11 pm    Post subject: Unstring by DFSORT
Reply with quote

Hi,

I have the input file like below
Code:

DEPT_I IN (1,12,100,200,312);


I need the output to be comma delimited as below
Code:

1
12
100
200
312


Is this posible using SORT? I know that this is pretty easy with COBOL but I dont want to go for a program for this if its possible using SORT.

I did a search and did not find an exact same sceario as mentioned above, hence posting for help.
Back to top
View user's profile Send private message

Escapa

Senior Member


Joined: 16 Feb 2007
Posts: 1399
Location: IL, USA

PostPosted: Wed Apr 21, 2010 3:19 pm    Post subject:
Reply with quote

there are 5 values you have shown here.
Will there be always 5 values in the query?
Back to top
View user's profile Send private message
Frank Yaeger

DFSORT Moderator


Joined: 15 Feb 2005
Posts: 7130
Location: San Jose, CA

PostPosted: Wed Apr 21, 2010 11:25 pm    Post subject:
Reply with quote

Quote:
I need the output to be comma delimited as below

1
12
100
200
312


How is that comma delimited? There aren't any commas.

Quote:
Is this posible using SORT?


You need to do a better job of explaining the "rules" for getting from input to output.

Also, what is the RECFM and LRECL of the input file? What is the layout of the input record or records? What do you want for the output records (you say it's comma delimited but you don't show any commas), etc.

I'm sure it can do done with DFSORT, but I can't show you how until you tell me exactly what it is you want to do.
Back to top
View user's profile Send private message
technut

New User


Joined: 27 Dec 2007
Posts: 73
Location: India

PostPosted: Thu Apr 22, 2010 10:49 am    Post subject:
Reply with quote

Hi Frank.

To clarify things again, here goes the answers to your questions.

Quote:

How is that comma delimited? There aren't any commas.


As you can see the input file is having commas between the dept-id's.
DEPT_I IN (1,12,100,200,312);
This is what I meant by comma delimited. I phrased as 'Output should be comma delimited' above which is wrong - My mistake.

To clarify, the output file should be having those departments - Each one in a new row. Exactly as how I showed it in my first post.

Quote:

Also, what is the RECFM and LRECL of the input file?


This was just a thought which came to my mind when I came across this scenario. I havent decided on the RECFM and LRECL but to be specific let it be FB and 80.

Quote:

What is the layout of the input record or records?


No predefined layout as such. This is part of a DB2 query and for the example I have pasted only 5 dept-id's. There can be 50 depts id's there and all seperated by commas.

Escapa, To answer your question, the departments may vary. its not a constant. Thanks!
Back to top
View user's profile Send private message
gcicchet

Senior Member


Joined: 28 Jul 2006
Posts: 1703
Location: Australia

PostPosted: Thu Apr 22, 2010 11:53 am    Post subject:
Reply with quote

Hi,

this may assist but will create blank lines for variables with value of spaces.

I have allowed 3 bytes for Dept Id

You can run another step to drop these lines
Code:
//STEP0100 EXEC PGM=SORT                                               
//SYSOUT   DD SYSOUT=*                                                 
//SORTIN   DD *                                                       
DEPT_I IN (1,12,100,200,312);                                         
//SORTOUT  DD SYSOUT=*                                                 
//SYSIN    DD *                                                       
 SORT FIELDS=COPY                                                     
 INREC PARSE=(%00=(ENDAT=C'(',FIXLEN=11),                             
              %01=(ENDBEFR=C',',FIXLEN=3),                             
              %02=(ENDBEFR=C',',FIXLEN=3),                             
              %03=(ENDBEFR=C',',FIXLEN=3),                             
              %04=(ENDBEFR=C',',FIXLEN=3),                             
              %05=(ENDBEFR=C',',FIXLEN=3),                             
              %06=(ENDBEFR=C',',FIXLEN=3),                             
              %07=(ENDBEFR=C',',FIXLEN=3),                             
              %08=(ENDBEFR=C',',FIXLEN=3)),                           
        BUILD=(%01,%02,%03,%04,%05,%06,%07)                           
 OUTFIL BUILD=(1,3,/,4,3,/,7,3,/10,3,/13,3,/16,3,/19,3)               
//*                                                                   



Gerry
Back to top
View user's profile Send private message
technut

New User


Joined: 27 Dec 2007
Posts: 73
Location: India

PostPosted: Thu Apr 22, 2010 2:49 pm    Post subject: Reply to: Unstring by DFSORT
Reply with quote

Hi Gerry,

Thanks, but I guess your code would always write 7 records to output irrespective of the no:of depts in the input.

The issue is that I dont know how many departments might be there in the input.

Is it possible to write the output based on the departments in the input file?

Regs!
Back to top
View user's profile Send private message
Alexis Sebastian

New User


Joined: 04 Mar 2010
Posts: 38
Location: DC

PostPosted: Thu Apr 22, 2010 6:30 pm    Post subject:
Reply with quote

Hi gcicchet,
Quote:
this may assist but will create blank lines for variables with value of spaces.

I have used the above code and it worked fine. But i didnt see any blank lines. Output is shown below.
Code:

***

12
100
200
312
***
.
Please explain me if i am wrong?
Back to top
View user's profile Send private message
technut

New User


Joined: 27 Dec 2007
Posts: 73
Location: India

PostPosted: Fri Apr 23, 2010 11:39 am    Post subject: Reply to: Unstring by DFSORT
Reply with quote

Hi Frank,
Quote:

I'm sure it can do done with DFSORT, but I can't show you how until you tell me exactly what it is you want to do.


Hope the questions are answered. It would be great if you can throw your valuable sugesstions on this post

Regs!
Back to top
View user's profile Send private message
gcicchet

Senior Member


Joined: 28 Jul 2006
Posts: 1703
Location: Australia

PostPosted: Fri Apr 23, 2010 11:48 am    Post subject:
Reply with quote

Hi,

you mentioned there could be up to 50 depts id's, so you need to set up 50 variables and then adjust the other parameters.


Gerry
Back to top
View user's profile Send private message
technut

New User


Joined: 27 Dec 2007
Posts: 73
Location: India

PostPosted: Fri Apr 23, 2010 11:58 am    Post subject: Reply to: Unstring by DFSORT
Reply with quote

Hi Gerry,
Thanks.

There is no guarentee for the number of depts. On a given day there can be any number.

If I have no idea as to how many departments are there, is there any way where in we can do this using SORT? Can we bring in some logic into the SORT by which I could perform same logic until I encounter the end braces or the last comma or something like that?

Regs!
Back to top
View user's profile Send private message
Frank Yaeger

DFSORT Moderator


Joined: 15 Feb 2005
Posts: 7130
Location: San Jose, CA

PostPosted: Fri Apr 23, 2010 9:45 pm    Post subject:
Reply with quote

Quote:
No predefined layout as such. This is part of a DB2 query and for the example I have pasted only 5 dept-id's. There can be 50 depts id's there and all seperated by commas.


Your description of the input is too vague for a general solution. I don't know if the input will always be just one record, or can be spread across multiple records, e.g.

Code:

DEPT_I IN (1,12,100,200,312,
   650,652,653,
   850)


Obviously, if there are 50 dept-ids and each is 3 characters, that won't fit in one 80 byte line.

I don't know the maximum length of a dept-id.

Unless you can do a better job of describing the possible input formats, RECFM, LRECL, etc. I don't see how anyone can give you a general solution.
Back to top
View user's profile Send private message
dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Fri Apr 23, 2010 10:05 pm    Post subject:
Reply with quote

Hello,

Quote:
This is part of a DB2 query and for the example I have pasted only 5 dept-id's. There can be 50 depts id's there and all seperated by commas.
Once "unstrung" how will these values be used?

How will changing the query be prevented (which would cause the "unstring" to fail)?

Might it be possible to store the values externally/individually and then dynamically use the values in the query (rather than trying to decompose the query)?
Back to top
View user's profile Send private message
technut

New User


Joined: 27 Dec 2007
Posts: 73
Location: India

PostPosted: Mon Apr 26, 2010 11:32 am    Post subject:
Reply with quote

Hi Frank,
Thanks for your response.

There can be 50 or 100 or 200 departments or even more.
The maximum length of DEPT is 4 (9999 is the max possible value).

Quote:

Unless you can do a better job of describing the possible input formats, RECFM, LRECL, etc

As explained in my posts before. I assume LRECL of 80 and RECFM of FB.

The input format would be like below,
Code:

DEPT_I IN  (1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,
                24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,
                45,46.4.48,49,50,51,52,53,53)                               


As you would have already known, I am a beginner when it comes to advanced concepts of DFSORT and for the same reason, I am not aware of the all the details that you might require for this solution.
I would be happy to help with more info, if required.

Thanks![/quote]
Back to top
View user's profile Send private message
technut

New User


Joined: 27 Dec 2007
Posts: 73
Location: India

PostPosted: Mon Apr 26, 2010 11:40 am    Post subject:
Reply with quote

Hi Dick,

I am planning to prepare one driver file with all the departments listed each in a new row. The departments from this driver file will be used by many programs in my application.
The cursors defined in these programs will be retrieving data from the database based on these departments.

I can defenitely write a single cobol program to unstring and develop a file in my erquired format but I just want to understand as to how to do this using DFSORT.

Hope I have answered you.

Sorry but I dont understand the below question.
"How will changing the query be prevented (which would cause the "unstring" to fail)?"

[/quote]
Back to top
View user's profile Send private message
technut

New User


Joined: 27 Dec 2007
Posts: 73
Location: India

PostPosted: Mon Apr 26, 2010 11:43 am    Post subject:
Reply with quote

Hi Frank,

The input format pasted above is wrong, the format got changed when I tried to edit it here.

Please see the correct one for below.
Code:

DEPT_I IN  (1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,
            24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,
            45,46.4.48,49,50,51,52,53,53)           


Thanks!
Back to top
View user's profile Send private message
dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Mon Apr 26, 2010 12:25 pm    Post subject:
Reply with quote

Hello,

Quote:
"How will changing the query be prevented (which would cause the "unstring" to fail)?"
If a DFSORT solution is developed that depends on the "sameness"of the query, and the query is modified, it may fine for sql but will fail in the sort solution.

To repeat - why not store the values in this file you are trying to create file and then generate the IN from the external file? This way you do not need to decompose the query to get the list of depts - you use the list of depts to generate the query.
Back to top
View user's profile Send private message
technut

New User


Joined: 27 Dec 2007
Posts: 73
Location: India

PostPosted: Mon Apr 26, 2010 12:44 pm    Post subject:
Reply with quote

Quote:

To repeat - why not store the values in this file you are trying to create file and then generate the IN from the external file? This way you do not need to decompose the query to get the list of depts - you use the list of depts to generate the query.


Yes. that is a good idea.. I can do that!

Regarding your first thought, whenever the query is modified it will be only pertaining to the departments and nothing else.

All the processing is based on the departments and hence I dont foresee any other changes to the query.

Thanks!

[/quote]
Back to top
View user's profile Send private message
dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Mon Apr 26, 2010 12:48 pm    Post subject:
Reply with quote

Hello,

Quote:
All the processing is based on the departments and hence I dont foresee any other changes to the query.
It is the wide variety of ways that the sql could be written to specify the depts that could "break" the "unstring" process. This would get even more problematic if there were ever other value lists (for something other than dept) in the sql code.
Back to top
View user's profile Send private message
technut

New User


Joined: 27 Dec 2007
Posts: 73
Location: India

PostPosted: Mon Apr 26, 2010 1:53 pm    Post subject:
Reply with quote

Hi Dick,

Oh yes. That is right.. I get it now..

Regs!
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 -> DFSORT/ICETOOL All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts How to get the remainder and quotient... vnktrrd DFSORT/ICETOOL 2 Mon Oct 31, 2016 10:59 am
No new posts Change date (DD/MM/YY) in 2nd record ... uday kiran DFSORT/ICETOOL 12 Wed Sep 07, 2016 10:57 pm
No new posts DFSORT sorting only specific records akodakka DFSORT/ICETOOL 4 Thu Aug 04, 2016 11:24 am
No new posts Unstring list of values into an array. Roshnii COBOL Programming 8 Mon Jun 27, 2016 6:25 pm
No new posts Symbolic Parameters in SYSIN DD state... madishpa DFSORT/ICETOOL 3 Mon Jun 27, 2016 6:23 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us