Portal | IBM Manuals | Downloads | Products | Refer | Info | Programs | JCLs | Forum Rules*| Site Map | Mainframe CD 
IBMMAINFRAMES.com - IBM Mainframe Support Forums Index
 
Register
 
IBMMAINFRAMES.com - IBM Mainframe Support Forums Index FAQ Search Memberlist Usergroups Profile Log in to check your private messages Log in
 
To execute REXX faster
Goto page Previous  1, 2, 3  Next
 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CLIST & REXX
Author Message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 3509
Location: Brussels once more ...

PostPosted: Fri Jul 25, 2008 12:19 pm    Post subject:
Reply with quote

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
View user's profile Send private message
References
vidyaa

New User


Joined: 02 May 2008
Posts: 36
Location: chennai

PostPosted: Fri Jul 25, 2008 12:21 pm    Post subject:
Reply with quote

yes ..let me try that
Back to top
View user's profile Send private message
Garry Carroll

Active User


Joined: 08 May 2006
Posts: 166
Location: Dublin, Ireland

PostPosted: Fri Jul 25, 2008 1:14 pm    Post subject:
Reply with quote

Just spotted this thread....

Curious - the files looks to me like a .CSV type file, delimited by percent signs?

DFSORT using PARSE and JFY might be the way to go....

https://www-304.ibm.com/systems/support/storage/software/sort/mvs/tricks/pdf/sorttrck.pdf

Garry.
Back to top
View user's profile Send private message
vidyaa

New User


Joined: 02 May 2008
Posts: 36
Location: chennai

PostPosted: Fri Jul 25, 2008 2:11 pm    Post subject:
Reply with quote

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
View user's profile Send private message
Garry Carroll

Active User


Joined: 08 May 2006
Posts: 166
Location: Dublin, Ireland

PostPosted: Fri Jul 25, 2008 2:37 pm    Post subject:
Reply with quote

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
View user's profile Send private message
vidyaa

New User


Joined: 02 May 2008
Posts: 36
Location: chennai

PostPosted: Fri Jul 25, 2008 3:16 pm    Post subject:
Reply with quote

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
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 3509
Location: Brussels once more ...

PostPosted: Fri Jul 25, 2008 3:18 pm    Post subject:
Reply with quote

Post the output showing the error
Back to top
View user's profile Send private message
vidyaa

New User


Joined: 02 May 2008
Posts: 36
Location: chennai

PostPosted: Fri Jul 25, 2008 3:23 pm    Post subject:
Reply with quote

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
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 3509
Location: Brussels once more ...

PostPosted: Fri Jul 25, 2008 3:25 pm    Post subject:
Reply with quote

Aaaaaaaaah, Garry give you syntax for DFSORT, you execute SYNCSORT
Back to top
View user's profile Send private message
vidyaa

New User


Joined: 02 May 2008
Posts: 36
Location: chennai

PostPosted: Fri Jul 25, 2008 3:27 pm    Post subject:
Reply with quote

//STEP01 EXEC PGM=ICEMAN is what i used .
am not getting what is to be done on this regard
Back to top
View user's profile Send private message
Garry Carroll

Active User


Joined: 08 May 2006
Posts: 166
Location: Dublin, Ireland

PostPosted: Fri Jul 25, 2008 3:35 pm    Post subject:
Reply with quote

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
View user's profile Send private message
vidyaa

New User


Joined: 02 May 2008
Posts: 36
Location: chennai

PostPosted: Fri Jul 25, 2008 3:58 pm    Post subject:
Reply with quote

Then how do we execute this
Back to top
View user's profile Send private message
Garry Carroll

Active User


Joined: 08 May 2006
Posts: 166
Location: Dublin, Ireland

PostPosted: Fri Jul 25, 2008 4:15 pm    Post subject:
Reply with quote

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. icon_rolleyes.gif
Back to top
View user's profile Send private message
Anuj D.

Global Moderator


Joined: 22 Apr 2006
Posts: 2159
Location: Phoenix, AZ

PostPosted: Fri Jul 25, 2008 4:42 pm    Post subject:
Reply with quote

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
View user's profile Send private message
vidyaa

New User


Joined: 02 May 2008
Posts: 36
Location: chennai

PostPosted: Fri Jul 25, 2008 5:16 pm    Post subject:
Reply with quote

so is there any other way of obtaining the result
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CLIST & REXX All times are GMT + 6 HoursGoto page Previous  1, 2, 3  Next
Page 2 of 3