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
 

 

Signed decimal sum using DFSORT

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

Senior Member


Joined: 03 Jul 2007
Posts: 1288
Location: Chennai, India

PostPosted: Tue Aug 07, 2007 8:49 am    Post subject: Signed decimal sum using DFSORT
Reply with quote

the reqt is to do a signed decimal sum using DFSORT. pls find below the sort card that i have used for the same.

Code:
//SYSIN    DD    *                                                 

 INREC OVERLAY=(5:5,10,SFF,TO=ZD,LENGTH=10)                         

 SORT FIELDS=(1,3,CH,A)                                             

 SUM FIELDS=(5,10,ZD)                                               

 OUTREC OVERLAY=(5:5,10,ZD,EDIT=(STTTTTT.TT),SIGNS=(,-))           

/*     


i ran the JCL and it worked fine in my shop. And when my friend who uses a different shop executed the same, it resulted in a JCL error saying positional parameter not supported. wat positional parameter are they referring to? but she is able to run JCL's with all other SORT cards.

Is it something to do with SFF? Shd she ask her system programmer to install any specific DFSORT version? Please advise !
Back to top
View user's profile Send private message

saiprasadh

Active User


Joined: 20 Sep 2006
Posts: 154
Location: US

PostPosted: Tue Aug 07, 2007 9:26 am    Post subject:
Reply with quote

Hi Aaru,

Can you post the error you got while executing the above card.


Thanks
Sai
Back to top
View user's profile Send private message
Aaru

Senior Member


Joined: 03 Jul 2007
Posts: 1288
Location: Chennai, India

PostPosted: Tue Aug 07, 2007 10:24 am    Post subject: Re: Signed decimal sum using DFSORT
Reply with quote

i ran the JCL and it worked fine in my shop. The issue is that my friend is not able to execute the same JCL in her shop.

the description says "positional parameter not supported" . Is it something to do with SFF?
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: Tue Aug 07, 2007 8:25 pm    Post subject:
Reply with quote

DFSORT does NOT issue that message. Perhaps your friend is using another sort product? DFSORT issues ICExxxs messages. Syncsort issues WERxxxs messages. CA-SORT issues CASxxxs messages. Which one is the message your friend gets prefixed with?
Back to top
View user's profile Send private message
Aaru

Senior Member


Joined: 03 Jul 2007
Posts: 1288
Location: Chennai, India

PostPosted: Wed Aug 08, 2007 9:39 am    Post subject: Re: Signed decimal sum using DFSORT
Reply with quote

Frank

Code:
//S1    EXEC  PGM=ICEMAN                                         
//SYSOUT    DD  SYSOUT=*                                         
//SORTIN DD DSN=AV5875.BSEUA.OUTPUT,DISP=SHR                     
//SORTOUT DD DSN=AV5875.SIGSUM.OUTPU8,DISP=(,CATLG,DELETE)       
//SYSIN    DD    *                                               
 INREC OVERLAY=(5:5,10,SFF,TO=ZD,LENGTH=10)                       
 SORT FIELDS=(1,3,CH,A)                                           
 SUM FIELDS=(5,10,ZD)                                             
 OUTREC OVERLAY=(5:5,10,ZD,EDIT=(STTTTTT.TT),SIGNS=(,-))         
/* 


I am not sure of the prefix but the error is thrown as the result of executing ICEMAN.
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 Aug 08, 2007 7:46 pm    Post subject:
Reply with quote

Aaru,

That's the job. I asked for the error message your friend got, but you're not showing it. PGM=ICEMAN just invokes the sort product in use at the site - that could be DFSORT, Syncsort or CA-SORT. The messages your friend received would be in //SYSOUT. If you want help, you're going to have to show the messages.

When I execute your job with DFSORT, it runs fine and I don't get any error messages. Here are some of the informational messages I do get in //SYSOUT with DFSORT, just to show you what messages look like:

Code:

ICE143I 0 BLOCKSET     SORT  TECHNIQUE SELECTED
ICE250I 0 VISIT http://www.ibm.com/storage/dfsort FOR DFSORT PAPERS, EXAMPLES  ...
ICE000I 1 - CONTROL STATEMENTS FOR 5694-A01, Z/OS DFSORT V1R5 - 07:11 ON WED ...
           INREC OVERLAY=(5:5,10,SFF,TO=ZD,LENGTH=10)
           SORT FIELDS=(1,3,CH,A)
           SUM FIELDS=(5,10,ZD)
           OUTREC OVERLAY=(5:5,10,ZD,EDIT=(STTTTTT.TT),SIGNS=(,-))
ICE201I E RECORD TYPE IS F - DATA STARTS IN POSITION 1
ICE751I 0 C5-K26318 C6-K90007 C7-K90000 C8-K23476 E9-K90007 C9-BASE   E5-K24705
ICE193I 0 ICEAM1 ENVIRONMENT IN EFFECT - ICEAM1 INSTALLATION MODULE SELECTED
ICE088I 1 TESTX   .S1      .        , INPUT LRECL = 80, BLKSIZE = 80, TYPE = FB
ICE093I 0 MAIN STORAGE = (MAX,6291456,6278238)
ICE156I 0 MAIN STORAGE ABOVE 16MB = (6182896,6182896)
...
Back to top
View user's profile Send private message
Aaru

Senior Member


Joined: 03 Jul 2007
Posts: 1288
Location: Chennai, India

PostPosted: Fri Aug 10, 2007 10:26 am    Post subject: Re: Signed decimal sum using DFSORT
Reply with quote

Thanks frank for the details ! was not able to get the SYSOUT information from my friend ! shall post once i get the details !
Back to top
View user's profile Send private message
Jeyanthi M

New User


Joined: 21 Mar 2008
Posts: 5
Location: India

PostPosted: Wed Apr 16, 2008 10:30 am    Post subject: Reply to: Signed decimal sum using DFSORT
Reply with quote

Hi Frank,
When I did a Jscan for the JCL using this sort card I got the error message given below:
E1 8 DSS10065E PARAMETER 'OVERLAY' IS UNIDENTIFIED.

But when I submitted the job ignoring the error message, it ran fine and I was able to get the desired output.

Thanks a lot Aru, Frank.
Back to top
View user's profile Send private message
shanmugapriya j

New User


Joined: 28 Dec 2006
Posts: 9
Location: chennai

PostPosted: Fri Aug 21, 2009 12:31 pm    Post subject: Reply to: Signed decimal sum using DFSORT
Reply with quote

When I use the EDIT for the decimal values
SORT FIELDS=Copy
OUTREC OVERLAY=(1:5,5,PD,EDIT=(STTTT.TT),SIGNS=(,-))
/*

The decimal value (0.30) is displaying as (30). Can anyone help on this.
Back to top
View user's profile Send private message
Arun Raj

Moderator


Joined: 17 Oct 2006
Posts: 2276
Location: @my desk

PostPosted: Fri Aug 21, 2009 12:48 pm    Post subject:
Reply with quote

shanmugapriya j,

Welcome to the forums.

If you have a new problem,it's better to start a new topic rather than replying to an old topic.
BTW, Can you show the HEX ON form of your 5 byte PD field?
Back to top
View user's profile Send private message
shanmugapriya j

New User


Joined: 28 Dec 2006
Posts: 9
Location: chennai

PostPosted: Fri Aug 21, 2009 2:04 pm    Post subject:
Reply with quote

The hex on value is
00000
0003C
Back to top
View user's profile Send private message
Arun Raj

Moderator


Joined: 17 Oct 2006
Posts: 2276
Location: @my desk

PostPosted: Fri Aug 21, 2009 2:13 pm    Post subject:
Reply with quote

shanmugapriya j,

Your topic is available here. Please follow up this new topic.

http://ibmmainframes.com/viewtopic.php?t=43268
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 DFSORT - Overriding default option TU... Steve Ironmonger DFSORT/ICETOOL 3 Tue Apr 04, 2017 3:54 pm
No new posts DFSORT MUL FIELDS tspr52 DFSORT/ICETOOL 16 Fri Mar 03, 2017 11:53 pm
No new posts Joinkeys with decimal scdinesh DFSORT/ICETOOL 3 Fri Feb 10, 2017 4:46 am
No new posts Converting decimal to numeric using I... Balaryan DFSORT/ICETOOL 4 Thu Feb 02, 2017 11:27 pm
No new posts How to get the remainder and quotient... vnktrrd DFSORT/ICETOOL 2 Mon Oct 31, 2016 10:59 am


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