This is the code:
DAIR9900 DS 0H
DITTRACE ID=EXIT TRACE
L R13,4(R13) RESTORE REGISTER 13
ASE01670
LM R14,R12,12(R13) RESTORE ALL OTHER REGISTERS
ASE01680
SR R15,R15 GIVE GOOD RETURN CODE
ASE01690
BR R14 RETURN TO CALLER
ASE01700
Bob Pelletier
Connecticut Student Loan Foundation
Rocky Hill, Ct.
-----Original Message-----
From: Thompson, Steve [mailto:[EMAIL PROTECTED]
Sent: Friday, September 14, 2007 3:11 PM
To: IBM-MAIN@BAMA.UA.EDU
Subject: Re: ASMA142E Operation code not complete on first record
It looks like data wrap. Verify that the source basically lines up in CC
1, 10, & 16.
If the data starts look
ing like th
is then you have a dat
a wrap problem.
Regards,
Steve Thompson
-----Original Message-----
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On
Behalf Of Robert Pelletier
Sent: Friday, September 14, 2007 2:07 PM
To: IBM-MAIN@BAMA.UA.EDU
Subject: ASMA142E Operation code not complete on first record
Can someone with more experience in assembler than I have fix this:
000BDE 58DD 0004 00004 1019 L R13,4(R13)
RESTO
1020 ASE01670
** ASMA142E Operation code not complete on first record
Active Usings: PSA(X'1000'),R0 S99RB(X'1000'),R1 IOB(X'1000'),R3
IHADCB(X'1
DYNBLOK(X'1000'),R6 DEB(X'1000'),R7 DAIRBLOK(X'1000'),R10
DITTCOMM(X'1000')
MSGDSECT(X'1000'),R14
Loc Object Code Addr1 Addr2 Stmt Source Statement
** ASMA435I Record 645 in TECH.DITTO.SRCLIB(DITTDAIR) on volume: SOFT03
000BE2 98EC D00C 0000C 1021 LM R14,R12,12(R13)
RESTO
1022 ASE01680
** ASMA142E Operation code not complete on first record
** ASMA435I Record 647 in TECH.DITTO.SRCLIB(DITTDAIR) on volume: SOFT03
000BE6 1BFF 1023 SR R15,R15
GIVE
1024 ASE01690
** ASMA142E Operation code not complete on first record
** ASMA435I Record 649 in TECH.DITTO.SRCLIB(DITTDAIR) on volume: SOFT03
000BE8 07FE 1025 BR R14
RETUR
1026 ASE01700
** ASMA142E Operation code not complete on first record
** ASMA435I Record 651 in TECH.DITTO.SRCLIB(DITTDAIR) on volume: SOFT03
Thanks all I got the utility to start to assemble. Is this a bug on the
CBT TAPE?
Have a Nice Day !
Bob Pelletier
Connecticut Student Loan Foundation
Rocky Hill, Ct.
Confidentiality Notice
Unless expressly stated otherwise, this message is confidential and may
be privileged. It is intended for the addressee(s) only. Access to
this e-mail by anyone else is unauthorized. If you are not an addressee,
any disclosure or copying of the contents of this e-mail or any action
taken (or not taken) in reliance on it is unauthorized and may be
unlawful. If you are not an addressee, please inform the sender
immediately and delete this message from your system.
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions, send
email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search
the archives at http://bama.ua.edu/archives/ibm-main.html
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions, send
email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search
the archives at http://bama.ua.edu/archives/ibm-main.html
Confidentiality Notice
Unless expressly stated otherwise, this message is confidential and may be
privileged. It is intended for the addressee(s) only. Access to this e-mail
by anyone else is unauthorized. If you are not an addressee, any disclosure or
copying of the contents of this e-mail or any action taken (or not taken) in
reliance on it is unauthorized and may be unlawful. If you are not an
addressee, please inform the sender immediately and delete this message from
your system.
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
