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
 
Does SORT provide LRECL in programming?

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

New User


Joined: 27 Aug 2006
Posts: 49
Location: Taiwan

PostPosted: Fri Mar 20, 2015 12:50 pm    Post subject: Does SORT provide LRECL in programming?
Reply with quote

Using WHEN=GROUP in PARSE function, eventually we have to insert SEQ,ID or a field in certain position of the orignal record, just as the following sample:


Code:

 OUTFIL IFTHEN=(WHEN=GROUP,
             BEGIN=(1,5,CH,EQ,C’DATE:’),
             PUSH=(15:ID=3,31:21,8))


If we specify an item that extends the output record beyond the end of the input record, we have to manually identify the value of LRECL, which brings the JCL subject to change whenever LRECL is differed.

Does DFSORT provide a system variable or function to identify the value of LRECL in programming?
Back to top
View user's profile Send private message

Bill Woodger

DFSORT Moderator


Joined: 09 Mar 2011
Posts: 7314

PostPosted: Fri Mar 20, 2015 1:19 pm    Post subject: Reply to: Does SORT provide LRECL in programming?
Reply with quote

If you simply remove the LRECL from the output dataset in the JCL, then DFSORT will take care of it and you'll only have one place to maintain it.

If your control cards are giving you the wrong LRECL, correct them.
Back to top
View user's profile Send private message
jacobdng

New User


Joined: 27 Aug 2006
Posts: 49
Location: Taiwan

PostPosted: Fri Mar 20, 2015 1:32 pm    Post subject:
Reply with quote

Bill,
I am not sure what you said is the answer to my question.
I may have misunderstood your meaning since English is not my native.

I am instereted in how to specify the output position to be overlaid.

Syntax of PUSH function

PUSH=(c:item,...)

It is "c" that I hope to make it abstract instead of typing the literal number.

Jacob
Back to top
View user's profile Send private message
Bill Woodger

DFSORT Moderator


Joined: 09 Mar 2011
Posts: 7314

PostPosted: Fri Mar 20, 2015 5:48 pm    Post subject: Reply to: Does SORT provide LRECL in programming?
Reply with quote

So, you want to extend your fixed-length record an instead of specifying literalvalue: you want to specify somethingfancythatDFSORTsupplies:

No.

Quote:
c: Specifies the output position (column) to be overlaid. If you do not
specify c: for the first item, it defaults to 1:. If you do not specify c:
for any other item, it starts after the previous item. You can specify
items in any order and overlap output columns. c can be 1 to
32752.


If you can describe a bit more about the problem this causes you, there may be suggestions to work around it.
Back to top
View user's profile Send private message
jacobdng

New User


Joined: 27 Aug 2006
Posts: 49
Location: Taiwan

PostPosted: Fri Mar 20, 2015 9:28 pm    Post subject:
Reply with quote

Bill,
Thanks for your response.

I'll gather the info of the real problem when I get back to the office next Monday.

Jacob
Back to top
View user's profile Send private message
jacobdng

New User


Joined: 27 Aug 2006
Posts: 49
Location: Taiwan

PostPosted: Mon Mar 23, 2015 7:49 am    Post subject:
Reply with quote

Bill,

In a second thought, I can live with the literal value anyway.

So, I am not pressing on this topic any longer .

Thanks.

Jacob
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 Extract record for change in combinat... Trinadh DFSORT/ICETOOL 5 Thu Nov 23, 2017 3:32 pm
No new posts JOINKEYS Paired and Unpaired Sort on ... MFwhiz DFSORT/ICETOOL 7 Tue Nov 07, 2017 2:46 am
No new posts Subtract the ZD fields to provide neg... Balaryan DFSORT/ICETOOL 4 Wed Oct 11, 2017 10:51 pm
No new posts sort records based on length exceeds ... maxsubrat DFSORT/ICETOOL 7 Wed Oct 04, 2017 4:48 pm
No new posts JOINKEYS Paired and Unpaired Sort MFwhiz DFSORT/ICETOOL 4 Fri Sep 29, 2017 1:48 am

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