View previous topic :: View next topic
|
Author |
Message |
Lord.of.Wind
New User
Joined: 17 Nov 2005 Posts: 60
|
|
|
|
Code: |
...
005 CLC 0(5,RX),=C' ' BLANK PER UNIT?
BE 007 YES, GO WRITE REJECT
CLC 5(10,RX),=C' ' BLANK EMPLOYEE ID?
BNE 010 NO, PROCESS
007 BAL SYSUT3(RX) ELSE WRITE TO REJECT FILE
BAL DELETE(RX) GET NEXT RECORD
B 005 AND CONTINUE
*
010 MVC 0(15,RZ),0(RX) START OF RECORD
MVC 15(1,RZ),=C'1' SET DEMOGRAPHIC RECORD FLAG
MVC 16(118,RZ),15(RX) REST OF RECORD
MVC 134(10,RZ),=C' ' ADD 10 SPACES
MVC 144(3,RZ),=C'USA' ADD COUNTRY
020 BAL SYSUT2(RZ) WRITE
BAL DELETE(RX) GET NEXT RECORD
B 005 AND CONTINUE
END
...
|
Can anybody tell me what reference or manual should I use to understand the above codes?
Many thanks! |
|
Back to top |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007 Posts: 10873 Location: italy
|
|
|
|
the overall look is assembler, but the format of the statements
Code: |
007 BAL SYSUT3(RX) ELSE WRITE TO REJECT FILE
BAL DELETE(RX) GET NEXT RECORD
.............
020 BAL SYSUT2(RZ) WRITE
BAL DELETE(RX) GET NEXT RECORD |
and numeric labels hint something else
the best thing is to ask Your peers
here is a link to a similar/same issue
http://ibmmainframes.com/viewtopic.php?t=30889&highlight=bal+sysut2 |
|
Back to top |
|
|
Lord.of.Wind
New User
Joined: 17 Nov 2005 Posts: 60
|
|
|
|
thanks!
But I am just wanting to know CLC, BE, BNE, BAL, B, such commands' definination and usague in some manual.
I looked them up in 'High Level Assembler for MVS & VM & VSE Programmer’s Guide Release 4' the IBM document, but found no such details. |
|
Back to top |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007 Posts: 10873 Location: italy
|
|
Back to top |
|
|
Lord.of.Wind
New User
Joined: 17 Nov 2005 Posts: 60
|
|
|
|
THANK YOU! |
|
Back to top |
|
|
|