MVSFORUMS.com Forum Index MVSFORUMS.com
A Community of and for MVS Professionals
 
 FAQFAQ   SearchSearch   Quick Manuals   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

soc7 for sum for sign leading for VB file

 
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Utilities
View previous topic :: View next topic  
Author Message
gans79
Beginner


Joined: 31 Aug 2005
Posts: 51
Topics: 27

PostPosted: Tue Jul 14, 2009 4:31 am    Post subject: soc7 for sum for sign leading for VB file Reply with quote

Hi,
Getting a soc7 for the below VB file with 2 fields
can someone help me this pls


X(19) S9(14).9(5) sign leading seperate
AAAAAAAAAAAAAAAAAAA-0000000006643635000
AAAAAAAAAAAAAAAAAAA-0000000002051150000

//SYSIN DD *
SORT FIELDS=(5,19,CH,A)
SUM FIELDS=(24,20,ZD)
/*
Back to top
View user's profile Send private message
dbzTHEdinosauer
Supermod


Joined: 20 Oct 2006
Posts: 1411
Topics: 26
Location: germany

PostPosted: Tue Jul 14, 2009 4:34 am    Post subject: Reply with quote

this link may help.
_________________
Dick Brenholtz
American living in Varel, Germany
Back to top
View user's profile Send private message
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12378
Topics: 75
Location: San Jose

PostPosted: Tue Jul 14, 2009 6:51 am    Post subject: Reply with quote

gans79,

You have sign leading numbers which cannot be summed using ZD format. You need to use SFF format . Check this link for example

http://mvsforums.com/helpboards/viewtopic.php?p=27375#27375
_________________
Kolusu
www.linkedin.com/in/kolusu
Back to top
View user's profile Send private message Send e-mail Visit poster's website
gans79
Beginner


Joined: 31 Aug 2005
Posts: 51
Topics: 27

PostPosted: Tue Jul 14, 2009 7:31 am    Post subject: Reply with quote

SSF does not work with syncsort , is there any workaround ?
Back to top
View user's profile Send private message
Brian Wood
Beginner


Joined: 14 Jan 2009
Posts: 37
Topics: 0
Location: USA

PostPosted: Tue Jul 14, 2009 10:16 am    Post subject: Reply with quote

gans79: You can use INREC to convert the SFF data to ZD. You can then SUM on the ZD data. Please refer to pages 2.127 through 2.132 in the SyncSort for z/OS 1.3 Programmer's Guide for information on the topic "Converting Numeric Data". Also refer to the example on page 2.172.
Code:
//STEPnn   EXEC PGM=SORT
//SORTIN    DD DSN=your.input.data.set,DISP=SHR
//SORTOUT   DD DSN=your.output.data.set
//SYSOUT    DD SYSOUT=*                                   
//SYSIN     DD *
  INREC FIELDS=(5,19,24,20,SFF,ZD)                                         
  SORT FIELDS=(5,19,CH,A)                                 
  SUM FIELDS=(24,20,ZD)

Please let me know if you require further assistance.
_________________
Brian Wood
SyncSort Mainframe Product Services
201-930-8260
zos_tech@syncsort.com
Back to top
View user's profile Send private message Send e-mail
Brian Wood
Beginner


Joined: 14 Jan 2009
Posts: 37
Topics: 0
Location: USA

PostPosted: Tue Jul 14, 2009 12:05 pm    Post subject: Reply with quote

gans79: Please also note, in the previously provided coding example, that the results of the SUM processing are in ZD format. You could then use OUTREC with an EDIT mask to display the data in printable format if so desired (see pages 2.142 through 2.148 in the SyncSort for z/OS 1.3 Programmer's Guide).
_________________
Brian Wood
SyncSort Mainframe Product Services
201-930-8260
zos_tech@syncsort.com
Back to top
View user's profile Send private message Send e-mail
gans79
Beginner


Joined: 31 Aug 2005
Posts: 51
Topics: 27

PostPosted: Tue Jul 14, 2009 9:18 pm    Post subject: Reply with quote

Brian,
can you pls modify the sort card with Outrec , edit
i tried going thru the manual, but could not understand much

Thanks
Ganesh
Back to top
View user's profile Send private message
Brian Wood
Beginner


Joined: 14 Jan 2009
Posts: 37
Topics: 0
Location: USA

PostPosted: Wed Jul 15, 2009 9:24 am    Post subject: Reply with quote

Ganesh:
The following code
Code:
//SYSIN     DD *
   SORT FIELDS=(5,19,CH,A)
   SUM FIELDS=(24,20,ZD)
   OUTREC FIELDS=(1,4,5,19,24,20,ZD,
          EDIT=(STTTTTTTTTTTTTTTTTTT),
          SIGNS=(,-,,))

produces the following result:

AAAAAAAAAAAAAAAAAAA-0000000008694785000

(RDW not displayed)

Please let me know if I may be of further assistance.
_________________
Brian Wood
SyncSort Mainframe Product Services
201-930-8260
zos_tech@syncsort.com
Back to top
View user's profile Send private message Send e-mail
Display posts from previous:   
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Utilities All times are GMT - 5 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


MVSFORUMS
Powered by phpBB © 2001, 2005 phpBB Group