IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

Signed decimal sum using DFSORT
IBM Mainframe Forums -> DFSORT/ICETOOL
Post new topic   Reply to topic Quick References
View previous topic :: View next topic  
Author Message
Aaru

Senior Member


Joined: 03 Jul 2007
Posts: 1287
Location: Chennai, India
PostPosted: Tue Aug 07, 2007 8:49 am
 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
 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: 1287
Location: Chennai, India
PostPosted: Tue Aug 07, 2007 10:24 am
 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 Developer


Joined: 15 Feb 2005
Posts: 7129
Location: San Jose, CA
PostPosted: Tue Aug 07, 2007 8:25 pm
 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: 1287
Location: Chennai, India
PostPosted: Wed Aug 08, 2007 9:39 am
 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 Developer


Joined: 15 Feb 2005
Posts: 7129
Location: San Jose, CA
PostPosted: Wed Aug 08, 2007 7:46 pm
 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: 1287
Location: Chennai, India
PostPosted: Fri Aug 10, 2007 10:26 am
 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
 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
 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: 2481
Location: @my desk
PostPosted: Fri Aug 21, 2009 12:48 pm
 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
 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: 2481
Location: @my desk
PostPosted: Fri Aug 21, 2009 2:13 pm
 Reply with quote
shanmugapriya j,

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

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 View Bookmarks
All times are GMT + 6 Hours
Forum Index -> DFSORT/ICETOOL

 

Similar Topics
Topic Forum Replies
No new posts Issues Converting From ZD to Signed N... DFSORT/ICETOOL 4
No new posts Extracting Variable decimal numbers f... DFSORT/ICETOOL 17
No new posts Modifying Date Format Using DFSORT DFSORT/ICETOOL 9
No new posts Replace Multiple Field values to Othe... DFSORT/ICETOOL 12
No new posts Calling DFSORT from Cobol, using OUTF... DFSORT/ICETOOL 5
Search our Forums:

Back to Top
IBMMainframes.com is not an official and/or affiliated with IBM® in anyway
Board Rules | FAQ | Downloads | Wiki | SiteMap | Contact Us