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
 

 

Add numeric 1 at the end of the dataset

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

Moderator


Joined: 14 Oct 2005
Posts: 1187
Location: Bangalore,India

PostPosted: Mon Dec 04, 2006 10:35 am    Post subject: Add numeric 1 at the end of the dataset
Reply with quote

Hi All,

Please tell me how to insert numeric 1 at the end of record.

I/P file length 80

I tried this

INREC FIELDS= (1,80,C'1')

but in this case it is treating 1 as a character & I m not able to do SUM operation on 81st byte.
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: Mon Dec 04, 2006 9:58 pm    Post subject:
Reply with quote

What do you mean by "numeric 1"? C'1' is X'F1' which is a valid ZD value of +1. You can SUM that as a ZD value. If you mean something else by "numeric 1" other than a ZD +1, tell us what you mean. Or explain what you mean by "I'm not able to do SUM operation on 81st byte".
Back to top
View user's profile Send private message
guptae

Moderator


Joined: 14 Oct 2005
Posts: 1187
Location: Bangalore,India

PostPosted: Tue Dec 05, 2006 9:40 am    Post subject:
Reply with quote

Hi Frank,

Sorry for not making my prev post clear l

INREC FIELDS=(1,80,C'1')
SORT FIELDS=(10,3,CH,A)
SUM FIELDS=(80,1,ZD)

It is giving me SOC7 in that case.
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 Dec 05, 2006 9:30 pm    Post subject:
Reply with quote

You have 1,80,C'1' for INREC which puts the '1' (X'F1') in position 81, but you have 80,1,ZD for SUM which is summing on position 80 rather than position 81. You need 81,1,ZD for SUM:

Code:

  INREC FIELDS=(1,80,C'1') 
  SORT FIELDS=(10,3,CH,A)   
  SUM FIELDS=(81,1,ZD)     


Note that if you want to ensure that the SUM in 81 is printable, you should also use:

Code:

   OPTION ZDPRINT
Back to top
View user's profile Send private message
guptae

Moderator


Joined: 14 Oct 2005
Posts: 1187
Location: Bangalore,India

PostPosted: Tue Dec 05, 2006 9:32 pm    Post subject:
Reply with quote

HI Frank,

Thanks alot my mistake..
Sorry to bug u so much
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 FTP - JCL failed while passing FTP co... Suneetha1612 JCL & VSAM 12 Wed Nov 16, 2016 7:33 pm
No new posts Sort records based on numeric field. Alks SYNCSORT 2 Wed Oct 19, 2016 10:14 pm
No new posts To trim spaces in a pipe delimited da... Nish84 COBOL Programming 16 Mon Oct 10, 2016 1:54 pm
No new posts Allocate dataset withour BLKSIZE Susanta CLIST & REXX 2 Thu Sep 22, 2016 11:51 am
No new posts Casting a Binary Number to Numeric in... Bob Steinkraus Java & MQSeries 6 Tue Aug 09, 2016 5:58 pm


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