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

Author Message
ram_vizag

Active User

Joined: 21 Aug 2008
Posts: 112
Location: hyd

Posted: Tue Sep 27, 2016 12:50 am    Post subject: SORT- outrec

Hi All,

My i/p file looks like this

 Code: 28ZZ248021  1

O/P file should be like this

 Code: 28ZZ248021811

Code'd

Bill Woodger

DFSORT Moderator

Joined: 09 Mar 2011
Posts: 7312

 Posted: Tue Sep 27, 2016 1:02 am    Post subject: Reply to: SORT- outrec Why don't you just use INREC to OVERLAY C'81' at the relevant column?
Rohit Umarjikar

Senior Member

Joined: 21 Sep 2010
Posts: 2443
Location: NY,USA

 Posted: Tue Sep 27, 2016 1:10 am    Post subject: By now, you should know this belongs to DFSORT/ICETOOL Moved to DFSORT/ICETOOL.
RahulG31

Active User

Joined: 20 Dec 2014
Posts: 447
Location: USA

 Posted: Tue Sep 27, 2016 1:15 am    Post subject: Reply to: SORT- outrec Multiply the digit at column 1 by 160,000 and add the digit at colum 2, then subtract 4 times the digit at column 5, then add 2 times the digit at coumn 6, then subtract the digit at column 7, then divide by 80,000 then add the sum of digits at column 5 and column 6 to get the digit at column 11. Once you get the digit at column 11, take the square root of that digit and multiply by 9. Multiply the number with itself and divide by 8. Divide this number by 3 and add the digits left. Subtract this sum by what you had got at column 11 and that makes column 12. Print using keyboard numeric pad. .
Kerry Ropar

New User

Joined: 14 Sep 2016
Posts: 25
Location: Australia

 Posted: Tue Sep 27, 2016 7:08 am    Post subject: RahulG31, may be I am still not awake enough, but is there really some logic behind the long mathematics you just mentioned, or the solution is just as simple as OVERLAY for this query with 81?
dneufarth

Active User

Joined: 27 Apr 2005
Posts: 313
Location: Inside the SPEW (Cincinnati OH USA)

 Posted: Tue Sep 27, 2016 7:27 am    Post subject: Kerry, Probably a tongue in cheek response. I think it was unnecessary, but perhaps another point was being made. Dave
Kerry Ropar

New User

Joined: 14 Sep 2016
Posts: 25
Location: Australia

 Posted: Tue Sep 27, 2016 7:48 am    Post subject: ahhh and I ended up thinking more about RahulG31's response more than ram_vizag's query ..
Nic Clouston

Global Moderator

Joined: 10 May 2007
Posts: 2378
Location: Hampshire, UK

Posted: Tue Sep 27, 2016 5:26 pm    Post subject:

 Quote: more than ram_vizag's query

which did not explain where the '81' was from and someone who has been a member for 8 years should know how to post. He deserved to have his post deleted.
Terry Heinze

JCL Moderator

Joined: 14 Jul 2008
Posts: 1249
Location: Richfield, MN, USA

 Posted: Tue Sep 27, 2016 6:59 pm    Post subject: Ram, In addition to using code tags where appropriate, one of the attributes of a good post is not only the input and desired output, but also the RULE defining how you get from input to desired output. You left out that last rule.
sergeyken

Active Member

Joined: 29 Apr 2008
Posts: 810
Location: Maryland

Posted: Wed Sep 28, 2016 1:21 am    Post subject: Re: Reply to: SORT- outrec

 RahulG31 wrote: Multiply the digit at column 1 by 160,000 and add the digit at colum 2, then subtract 4 times the digit at column 5, then add 2 times the digit at coumn 6, then subtract the digit at column 7, then divide by 80,000 then add the sum of digits at column 5 and column 6 to get the digit at column 11. Once you get the digit at column 11, take the square root of that digit and multiply by 9. Multiply the number with itself and divide by 8. Divide this number by 3 and add the digits left. Subtract this sum by what you had got at column 11 and that makes column 12. Print using keyboard numeric pad. .

The original idea invented by Lewis Carroll:
How to calculate (2 + 1)?

 Quote: "Two added to one--if that could but be done," It said, "with one's fingers and thumbs!" Recollecting with tears how, in earlier years, It had taken no pains with its sums. "The thing can be done," said the Butcher, "I think. The thing must be done, I am sure. The thing shall be done! Bring me paper and ink, The best there is time to procure." The Beaver brought paper, portfolio, pens, And ink in unfailing supplies: While strange creepy creatures came out of their dens, And watched them with wondering eyes. So engrossed was the Butcher, he heeded them not, As he wrote with a pen in each hand, And explained all the while in a popular style Which the Beaver could well understand. "Taking Three as the subject to reason about-- A convenient number to state-- We add Seven, and Ten, and then multiply out By One Thousand diminished by Eight. "The result we proceed to divide, as you see, By Nine Hundred and Ninety Two: Then subtract Seventeen, and the answer must be Exactly and perfectly true. "The method employed I would gladly explain, While I have it so clear in my head, If I had but the time and you had but the brain-- But much yet remains to be said. "In one moment I've seen what has hitherto been Enveloped in absolute mystery, And without extra charge I will give you at large A Lesson in Natural History." In his genial way he proceeded to say (Forgetting all laws of propriety, And that giving instruction, without introduction, Would have caused quite a thrill in Society),

You can check yourself:
(2 + 1) = (3 + 7 + 10) * (1000 - 8) / 992 - 17 = 3
RahulG31

Active User

Joined: 20 Dec 2014
Posts: 447
Location: USA

 Posted: Wed Sep 28, 2016 3:02 am    Post subject: Reply to: SORT- outrec I didn't know that. But, as they say, 'Great Minds Think Alike'. .
 All times are GMT + 6 Hours
 Page 1 of 1

Search our Forum:

 Topic Author Forum Replies Posted Similar Topics Problem while trying to manipulate re... amitc23 DFSORT/ICETOOL 3 Tue Jun 30, 2020 1:19 pm SEQNUM with TRA=ETOA in OUTREC juares castro SYNCSORT 5 Sat May 30, 2020 5:40 am Sort on different fields, removing du... MOHIT KUMAR GUPTA SYNCSORT 8 Thu Apr 16, 2020 5:54 pm Please help - SORT with SUM fields an... clearskynot DFSORT/ICETOOL 6 Thu Apr 09, 2020 11:01 am Outrec IFTHEN builds data in wrong po... saikarthik94 DFSORT/ICETOOL 6 Sun Mar 01, 2020 2:14 pm

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