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
 

 

Equivalent code in SORT

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> All Other Mainframe Topics
View previous topic :: :: View next topic  
Author Message
ramsri

Active User


Joined: 18 Oct 2008
Posts: 380
Location: India

PostPosted: Thu Nov 13, 2008 4:35 pm    Post subject: Equivalent code in SORT
Reply with quote

Hi,

We have the below ASSEMBLER code in our production for which the customer demand to be replaced by SORT !

Code:

*                                     
         MVC   00(10,RZ),=C'0000000000'
*                                     
*                                     
10       CLC   00(02,RX),=C'01'       
         BNE   15                     
         CLC   05(10,RX),00(RZ)       
         BE    15                     
*                                     
*                                     
         AP    TALLY1,=P'1'           
         MVC   00(10,RZ),05(RX)       
*                                     
15       BAL   DELETE(RX)             
         B     10                     
*                                     
19       MVC   00(10,RZ),=C'0000000000'
*                                     
*                               
20       CLC   00(02,RY),=C'01'
         BNE   25               
         CLC   05(10,RY),00(RZ)
         BE    25               
*                               
*                               
         AP    TALLY2,=P'1'     
         MVC   00(10,RZ),05(RY)
*                               
25       BAL   DELETE(RY)       
         B     20               
*                               
EOFX     CLC   COUNT0,=H'00'   
         BE    EOF             
*                               
         B     19               
*                               
*                           
EOFY     CP    TALLY1,TALLY2
         BE    EOF           
*                           
         LA    RV,1001       
         BAL   SETRC(RV)     
         B     EOF           
*                           
         END                 


Would you please help me with an equivalent SORT card for this?

Many thanks to you in advance.
Back to top
View user's profile Send private message

enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10274
Location: italy

PostPosted: Thu Nov 13, 2008 4:39 pm    Post subject: Reply to: Equivalent code in SORT
Reply with quote

that' s NOT assembler!
assembler will flag as errors numeric labels

please post the logic, not the code
Back to top
View user's profile Send private message
ramsri

Active User


Joined: 18 Oct 2008
Posts: 380
Location: India

PostPosted: Thu Nov 13, 2008 6:11 pm    Post subject: Reply to: Equivalent code in SORT
Reply with quote

enrico-sorichetti,

These are not errors. This is code I assumed as ASSEMBLER. This is what I found in the SYSIN member used by our PROD JCL. I don't know what exactly I should be supplying here.

Thanks.
Back to top
View user's profile Send private message
Aaru

Senior Member


Joined: 03 Jul 2007
Posts: 1288
Location: Chennai, India

PostPosted: Thu Nov 13, 2008 6:19 pm    Post subject: Reply to: Equivalent code in SORT
Reply with quote

E.S,

Quote:
that' s NOT assembler!


why? Aren't they (MVC and CLC ) assembler commands?
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8117
Location: East Dubuque, Illinois, USA

PostPosted: Thu Nov 13, 2008 6:28 pm    Post subject:
Reply with quote

Some of the instructions are assembler instructions but this is by no means an assembler program. Assembler definitely doesn't support numbers to begin labels. Look at the beginning code through the B 10 -- there's no way out of that loop if it is assembler.
Back to top
View user's profile Send private message
Arun Raj

Moderator


Joined: 17 Oct 2006
Posts: 2284
Location: @my desk

PostPosted: Thu Nov 13, 2008 6:31 pm    Post subject:
Reply with quote

Ramsri,

If you post here what exactly you want to do , somebody may be able to help. As suggested above, post the logic involved in the above piece of code.
Unfortunaltely we dont have a whatever-language to sort converter. icon_smile.gif
Back to top
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10274
Location: italy

PostPosted: Thu Nov 13, 2008 6:33 pm    Post subject: Reply to: Equivalent code in SORT
Reply with quote

Quote:
These are not errors. This is code I assumed as ASSEMBLER. This is what I found in the SYSIN member used by our PROD JCL. I don't know what exactly I should be supplying here.

here is what I wrote
Quote:
that' s NOT assembler!
assembler will flag as errors numeric labels


did I say they were errors ???
I simply wrote, and confirm, that the lines You posted are not assembler
in different words are not supposed to be processed by assembler

the syntax looks like, but it' s not assembler ( I posted also the reason )
those are control statements for the WAAPDSUT utility, which EDS used

what' s the name of the program being executed that reads those records?
not certainly asma90

the syntax as is tells nothing,
it makes some comparisons
increments some counters
and based on some condition deletes something

You should supply, in words and/or sample records the logic of Your process
Back to top
View user's profile Send private message
Aaru

Senior Member


Joined: 03 Jul 2007
Posts: 1288
Location: Chennai, India

PostPosted: Thu Nov 13, 2008 6:37 pm    Post subject: Reply to: Equivalent code in SORT
Reply with quote

Robert,

Quote:
Some of the instructions are assembler instructions but this is by no means an assembler program. Assembler definitely doesn't support numbers to begin labels. Look at the beginning code through the B 10 -- there's no way out of that loop if it is assembler.


Informative. Thanks.
Back to top
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10274
Location: italy

PostPosted: Thu Nov 13, 2008 6:39 pm    Post subject: Reply to: Equivalent code in SORT
Reply with quote

Aaru
in my first post I gave the reason why
even if the thing walked like a duck it was not a duck icon_biggrin.gif

edited to explain the origin ( one of the many sources )
one hunter shot a friend and the excuse was,
that he had seen something walking like a duck
Back to top
View user's profile Send private message
ramsri

Active User


Joined: 18 Oct 2008
Posts: 380
Location: India

PostPosted: Thu Nov 13, 2008 7:02 pm    Post subject: Reply to: Equivalent code in SORT
Reply with quote

Ok. Thank you everyone.

From the step description (where this code is used) I got these lines that says what this step does !

Quote:

VERIFY RECORDS COME FROM SERVER AGAINST THE RECORDS THAT WERE SENT OUT BY JOB DAYS0108. IF THE RECORD COUNT MISMATCHES BETWEEN FILES THEN SET RETURUN CODE 1001.
IF FILE A & FILE B HAVE MULTIPLE 01 TYPE RECORDS FOR SAME SECTION NUMBER THEN COUNT IT ONLY ONCE.


Thank you.
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 -> All Other Mainframe Topics All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts UNIT=AFF for Easytrieve code gandikk JCL & VSAM 7 Wed Jul 12, 2017 11:42 pm
No new posts SORT to unpack a feild shr_amar DFSORT/ICETOOL 7 Fri Jul 07, 2017 4:32 am
No new posts How to write Specific Fields from Mul... Padhu SYNCSORT 6 Thu Jul 06, 2017 10:26 am
No new posts Optimize sort inrec parse vishwakotin DFSORT/ICETOOL 6 Mon Jun 26, 2017 11:15 pm
No new posts Reduce CPU Times for Join Sort santoshn SYNCSORT 12 Sat Jun 10, 2017 1:40 pm


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