View previous topic :: View next topic
|
Author |
Message |
ramsri
Active User
Joined: 18 Oct 2008 Posts: 380 Location: India
|
|
|
|
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 |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007 Posts: 10873 Location: italy
|
|
|
|
that' s NOT assembler!
assembler will flag as errors numeric labels
please post the logic, not the code |
|
Back to top |
|
|
ramsri
Active User
Joined: 18 Oct 2008 Posts: 380 Location: India
|
|
|
|
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 |
|
|
Aaru
Senior Member
Joined: 03 Jul 2007 Posts: 1287 Location: Chennai, India
|
|
|
|
E.S,
Quote: |
that' s NOT assembler! |
why? Aren't they (MVC and CLC ) assembler commands? |
|
Back to top |
|
|
Robert Sample
Global Moderator
Joined: 06 Jun 2008 Posts: 8696 Location: Dubuque, Iowa, USA
|
|
|
|
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 |
|
|
Arun Raj
Moderator
Joined: 17 Oct 2006 Posts: 2481 Location: @my desk
|
|
|
|
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. |
|
Back to top |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007 Posts: 10873 Location: italy
|
|
|
|
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 |
|
|
Aaru
Senior Member
Joined: 03 Jul 2007 Posts: 1287 Location: Chennai, India
|
|
|
|
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 |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007 Posts: 10873 Location: italy
|
|
|
|
Aaru
in my first post I gave the reason why
even if the thing walked like a duck it was not a duck
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 |
|
|
ramsri
Active User
Joined: 18 Oct 2008 Posts: 380 Location: India
|
|
|
|
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 |
|
|
|