Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref

Author Message
guptae

Moderator

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

 Posted: Mon Dec 04, 2006 10:35 am    Post subject: Add numeric 1 at the end of the dataset 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.

Frank Yaeger

DFSORT Moderator

Joined: 15 Feb 2005
Posts: 7130
Location: San Jose, CA

 Posted: Mon Dec 04, 2006 9:58 pm    Post subject: 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".
guptae

Moderator

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

 Posted: Tue Dec 05, 2006 9:40 am    Post subject: 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.
Frank Yaeger

DFSORT Moderator

Joined: 15 Feb 2005
Posts: 7130
Location: San Jose, CA

Posted: Tue Dec 05, 2006 9:30 pm    Post subject:

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
guptae

Moderator

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

 Posted: Tue Dec 05, 2006 9:32 pm    Post subject: HI Frank, Thanks alot my mistake.. Sorry to bug u so much
 All times are GMT + 6 Hours
 Page 1 of 1

Search our Forum:

 Topic Author Forum Replies Posted Similar Topics Sort numeric fields with trailing spaces sancraig16 SYNCSORT 7 Tue Apr 03, 2018 1:21 am How could i share my personal dataset... James Halley TSO/ISPF 1 Fri Mar 23, 2018 9:41 pm How could i share my personal dataset... samenxia163 TSO/ISPF 1 Fri Mar 09, 2018 12:18 pm Where to get sample for processing RM... vice_versa PL/I & Assembler 2 Tue Jan 16, 2018 2:03 pm VSAM dataset not found abdulrafi JCL & VSAM 5 Fri Jan 12, 2018 11:19 am

 © 2003-2017 IBM MAINFRAME Software Support Division
 Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us