Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
Calculate SUM TOTAL for a PIC(X) field

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

New User


Joined: 12 Nov 2010
Posts: 2
Location: bangalore

PostPosted: Fri Nov 12, 2010 10:59 am    Post subject: Calculate SUM TOTAL for a PIC(X) field
Reply with quote

Hi

I am new to this forum and to mainframes for that matter. Hoping to get the neede help and support.

My query is as follows:

I need to calculate the sum total of an alphanumeric field in my input file. I came up with:

SORT FIELDS=COPY
OUTFIL FNAMES=SORTOUT,NODETAIL,REMOVECC,
TRAILER1=(C'000010010', *XMIT-FILE-ID
COUNT=(PD,LENGTH=06), *XMIT-REC-CT INTEGER
TOT=(72,16,C))

Will this work or the fields need to be compulsarily PD or ZD??
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 Nov 12, 2010 11:37 pm    Post subject:
Reply with quote

It's not clear from your description what you're trying to do.

Please show an example of the records in your input file (relevant fields only) and what you expect for output. Explain the "rules" for getting from input to output. Give the starting position, length and format of each relevant field. Give the RECFM and LRECL of the input files.
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 sort records based on length exceeds ... maxsubrat DFSORT/ICETOOL 7 Wed Oct 04, 2017 4:48 pm
No new posts Partial color change of a field in CI... waseem0424 CICS 5 Fri Sep 29, 2017 7:56 pm
No new posts Remove leading spaces from numeric field rexx77 SYNCSORT 6 Wed Sep 06, 2017 2:15 am
No new posts JES2 job size field matching Windows ... SRICOBSAS All Other Mainframe Topics 4 Tue Sep 05, 2017 5:49 pm
No new posts Wanted to calculate TRK when i have B... Balu5491 JCL & VSAM 10 Wed Jul 19, 2017 5:43 pm

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