|
View previous topic :: View next topic
|
| Author |
Message |
jacobdng
New User
Joined: 27 Aug 2006
Posts: 51
Location: Taiwan
|
|
|
|
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 |
|
 |
Bill Woodger
Moderator Emeritus
Joined: 09 Mar 2011
Posts: 7309
Location: Inside the Matrix
|
|
|
|
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 |
|
|
jacobdng
New User
Joined: 27 Aug 2006
Posts: 51
Location: Taiwan
|
|
|
|
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 |
|
|
Bill Woodger
Moderator Emeritus
Joined: 09 Mar 2011
Posts: 7309
Location: Inside the Matrix
|
|
|
|
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 |
|
|
jacobdng
New User
Joined: 27 Aug 2006
Posts: 51
Location: Taiwan
|
|
|
|
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 |
|
|
jacobdng
New User
Joined: 27 Aug 2006
Posts: 51
Location: Taiwan
|
|
|
|
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 |
|
|
|
|
