|
|
| Author |
Message |
expat
Global Moderator
Joined: 14 Mar 2007 Posts: 3509 Location: Brussels once more ...
|
|
|
|
I would speak to your peers and see which job classes allow more CPU resource.
And if possible - perform some check to verify that the step is not looping before attempting to add TIME parameters in the JCL. |
|
| Back to top |
|
 |
References
|
|
 |
vidyaa
New User
Joined: 02 May 2008 Posts: 36 Location: chennai
|
|
|
|
| yes ..let me try that |
|
| Back to top |
|
 |
Garry Carroll
Active User
Joined: 08 May 2006 Posts: 166 Location: Dublin, Ireland
|
|
| Back to top |
|
 |
vidyaa
New User
Joined: 02 May 2008 Posts: 36 Location: chennai
|
|
|
|
yes the input is delimted by % . am parsing those variables read the copybook to find the length of the varibale and if the length is same as specified in the copybook then writing it as it is else pad the difference in the length of the field and the copybook and fill it the remaining length with spaces and write to the output file.
my concerns is this runs fine online when i try with 50 to 100 records but am not able to run the same for 50,000 recordds and more. i tried with both online and batch it is taking hours and hours so wanted to make it fast |
|
| Back to top |
|
 |
Garry Carroll
Active User
Joined: 08 May 2006 Posts: 166 Location: Dublin, Ireland
|
|
|
|
Try the following DFSORT batch job, I believe it will do what you want much more efficiently than REXX, and it's probably easier to maintain.
I assumed padding on the right for both fields (JUSTIFY=LEFT). You could alternatively specify JUSTIFY=RIGHT
| Code: |
//STEP01 EXEC PGM=ICEMAN
//SYSOUT DD SYSOUT=*
//SORTIN DD *
123%rf%
1234%refgg%
//SORTOUT DD SYSOUT=*
//SYSIN DD *
*
OPTION COPY
INREC PARSE=(%01=(ENDBEFR=C'%',FIXLEN=10),
%02=(ENDBEFR=C'%',FIXLEN=5)),
BUILD=(%01,JFY=(SHIFT=LEFT),
%02,JFY=(SHIFT=LEFT))
* |
Regards,
Garry. |
|
| Back to top |
|
 |
vidyaa
New User
Joined: 02 May 2008 Posts: 36 Location: chennai
|
|
|
|
| am getting S000 U0016 on running this please advice also i have 3lakhs records like 123|~rf|~ etc.(actually its a |~ seperator not %) then how do i run this and get this formated into an output file |
|
| Back to top |
|
 |
expat
Global Moderator
Joined: 14 Mar 2007 Posts: 3509 Location: Brussels once more ...
|
|
|
|
| Post the output showing the error |
|
| Back to top |
|
 |
vidyaa
New User
Joined: 02 May 2008 Posts: 36 Location: chennai
|
|
|
|
I ran the same jcl what is posted above The erro messaage
05.51.53 J0008571 NE1034RN ENDED AT HTF1 - ABENDED S000 U0016 CN(INTER
AL)
WER268A INREC STATEMENT : SYNTAX ERROR
WER211B SYNCSMF CALLED BY SYNCSORT; RC=0000 |
|
| Back to top |
|
 |
expat
Global Moderator
Joined: 14 Mar 2007 Posts: 3509 Location: Brussels once more ...
|
|
|
|
| Aaaaaaaaah, Garry give you syntax for DFSORT, you execute SYNCSORT |
|
| Back to top |
|
 |
vidyaa
New User
Joined: 02 May 2008 Posts: 36 Location: chennai
|
|
|
|
//STEP01 EXEC PGM=ICEMAN is what i used .
am not getting what is to be done on this regard |
|
| Back to top |
|
 |
Garry Carroll
Active User
Joined: 08 May 2006 Posts: 166 Location: Dublin, Ireland
|
|
|
|
ICEMAN is DFSORT by another name. I'm not familiar with SYNCSORT, but it likely has similar function.
SYNCSORT questions are handled in the JCL forum.
Garry. |
|
| Back to top |
|
 |
vidyaa
New User
Joined: 02 May 2008 Posts: 36 Location: chennai
|
|
|
|
| Then how do we execute this |
|
| Back to top |
|
 |
Garry Carroll
Active User
Joined: 08 May 2006 Posts: 166 Location: Dublin, Ireland
|
|
|
|
Suggest you look in JCL FORUM and search for PARSE. Check that you have a release of SYNCSORT that supports PARSE.
Example shown for SYNCSORT with PARSE looks very much the same as the code I gave for ICEMAN but instead of OPTION COPY has SORT FIELDS=COPY
Garry.  |
|
| Back to top |
|
 |
Anuj D.
Global Moderator
Joined: 22 Apr 2006 Posts: 2159 Location: Phoenix, AZ
|
|
|
|
Hi,
PARSE is supported in SyncSort for z/OS 1.3.0.0 or later.
Based on the message Code:
| Code: |
| WER268A INREC STATEMENT : SYNTAX ERROR |
I suspect that Vidya is not running the current SyncSort version.
However, I think both of these - OPTION COPY & SORT FIELDS=COPY does the same, whether DFSORT or SyncSort..? I re-think.. |
|
| Back to top |
|
 |
vidyaa
New User
Joined: 02 May 2008 Posts: 36 Location: chennai
|
|
|
|
| so is there any other way of obtaining the result |
|
| Back to top |
|
 |
|
|