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
 

 

DFSORT Copy using user exit to change record.

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> PL/I & Assembler
View previous topic :: :: View next topic  
Author Message
Mansik Kim

New User


Joined: 15 Dec 2006
Posts: 29
Location: Korea

PostPosted: Tue Mar 19, 2013 3:09 pm    Post subject: DFSORT Copy using user exit to change record.
Reply with quote

Hi All,

I want to copy file with changed by my user exit program.

Ex). Source record :

Code:
'123 456 789 abcdefghijklmnopqrstuvwxyz'

Chanfed record :
Code:
'123 456 2367 abcdefghijklmnopqrstuvwxyz'

2367 = 789 * 3

Please let have a sample JCL and Assembly Program.

MODS E35=(ALTREC,11032,MODLIB)

ALTREC Assembly sample program

Thanks,
Mansik.

Code'd
Back to top
View user's profile Send private message

enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10202
Location: italy

PostPosted: Tue Mar 19, 2013 3:23 pm    Post subject: Reply to: DFSORT Copy using user exit to change record.
Reply with quote

Quote:
Please let have a sample JCL and Assembly Program.


what is that You do not understand when You are told
Quote:
this is a help forum ... not a give me what I want


the DFSORT libraries contains quite a few examples of EXITS, and of the relative JCLS
Back to top
View user's profile Send private message
Bill Woodger

DFSORT Moderator


Joined: 09 Mar 2011
Posts: 7225

PostPosted: Tue Mar 19, 2013 4:38 pm    Post subject: Reply to: DFSORT Copy using user exit to change record.
Reply with quote

With the information that you have so far provided, it is absurdly simple with standard DFSORT Control Cards, choosing an EXIT for the task would be enormous "overkill".

Please post the RECFM and LRECL of your input and output.

Also, please run this step and post the full sysout including all the message references.

Code:
//S1 EXEC PGM=SORT
//SYSOUT   DD SYSOUT=*
//SORTIN DD *
RECORD
/*
//SORTOUT DD DUMMY
//SYSIN   DD   *
  OPTION COPY
/*
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 7908
Location: Bellevue, IA

PostPosted: Tue Mar 19, 2013 4:49 pm    Post subject:
Reply with quote

Quote:
Please let have a sample JCL and Assembly Program.
When you say something like this, you need to be prepared to pay the going rate (typically 500 to 1000 US dollars per day) to professionals for their work product -- which is what you are asking for. Someone may voluntarily provide you code, but if you ask for it then you need to expect to pay for it.
Back to top
View user's profile Send private message
Mansik Kim

New User


Joined: 15 Dec 2006
Posts: 29
Location: Korea

PostPosted: Tue Mar 19, 2013 5:19 pm    Post subject: DFSORT User Exit Sample.
Reply with quote

1. Assembly Exit Sample
2. How to interface beteen DFSORT JCL and Exit Program
3. How long length allow exit program

Please let me have a sample.

Thanks,
Mansik
Back to top
View user's profile Send private message
Bill Woodger

DFSORT Moderator


Joined: 09 Mar 2011
Posts: 7225

PostPosted: Tue Mar 19, 2013 5:27 pm    Post subject: Reply to: DFSORT Copy using user exit to change record.
Reply with quote

If you insist on doing it in such a weird way, you'll find everything you need in Chapter 5 of the DFSORT Application Programming Guide. I don't think you need more than that, and your researches, but bear in mind that for what you have shown it, an EXIT, is the wrong way to go.
Back to top
View user's profile Send private message
prino

Active Member


Joined: 07 Feb 2009
Posts: 982
Location: Oostende, Belgium

PostPosted: Tue Mar 19, 2013 5:27 pm    Post subject: Re: DFSORT User Exit Sample.
Reply with quote

Mansik Kim wrote:
1. Assembly Exit Sample
2. How to interface beteen DFSORT JCL and Exit Program
3. How long length allow exit program

Telling you to go (expletive self-censored) yourself would probably get me banned, but you really deserve to be booted out, or banned for a couple of years.
Back to top
View user's profile Send private message
PeterHolland

Global Moderator


Joined: 27 Oct 2009
Posts: 2422
Location: Netherlands, Amstelveen

PostPosted: Tue Mar 19, 2013 5:36 pm    Post subject:
Reply with quote

I have to agree with Prino here. This is not the first time the TS wants code.
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 7908
Location: Bellevue, IA

PostPosted: Tue Mar 19, 2013 5:38 pm    Post subject:
Reply with quote

Quote:
1. Assembly Exit Sample
2. How to interface beteen DFSORT JCL and Exit Program
3. How long length allow exit program

Please let me have a sample.

PM me with how you are going to pay the $1000 I'll charge and I'll PM the code back to you once I receive payment.
Back to top
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10202
Location: italy

PostPosted: Tue Mar 19, 2013 5:46 pm    Post subject: Reply to: DFSORT Copy using user exit to change record.
Reply with quote

from the TS profile
Quote:
Occupation: Software Consualtant


the gentleman apart the technical skills seems to lack also the methodological ones icon_cool.gif

completely unwilling to look at the manuals
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 -> PL/I & Assembler All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts syncsort: copy lines after the keyword shreya19 SYNCSORT 3 Fri Dec 02, 2016 9:47 am
No new posts How to update a portion of text in a ... Bill Woodger DFSORT/ICETOOL 25 Wed Nov 09, 2016 9:41 pm
No new posts How to get the remainder and quotient... vnktrrd DFSORT/ICETOOL 2 Mon Oct 31, 2016 10:59 am
No new posts Single COPY CICS TS datasets and when... Kyle Carroll CICS 2 Tue Oct 11, 2016 9:47 pm
No new posts How to display value of an exit param... lind sh CICS 2 Sun Oct 09, 2016 12:28 pm


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