Sorry, forgot to put this in the other e-mail. If you want the CVT address all 
you need is:
L     Rxx,16(0,0)

Since the CVT is always at this same position.

Regards,
Leonardo Vaz

-----Original Message-----
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Leonardo Vaz
Sent: Wednesday, February 20, 2013 9:15 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Problem with SYSEVENT QVS

I am by no means an assembler expert, but are you sure you should use the word 
CVT? It is pointing to the DSECT, right?

I think that if the problem was with the expansion of the macro, the ASMA044E 
would happen in the previous line (as CVTPTR is part of the macro):
374 58F0 0010            00010   319+         L     15,CVTPTR(,0)

Leonardo Vaz

-----Original Message-----
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of jan de decker
Sent: Wednesday, February 20, 2013 7:48 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Problem with SYSEVENT QVS

Hi List,


I am struggling with the SYSEVENT QVS macro.


Coding:

        MVC   QVSLEN,=AL4(QVS_LEN)
        LA    R1,QVS
       SYSEVENT QVS

Bottom of the program

          IRAQVS QVS=YES,                               +
                DSECT=NO


And included the CVT macro

         CVT     DSECT=YES,LIST=YES


The assembly returns CC 12, error:

366 D203 BBEC BEA0 01BEC 01EA0   315          MVC   QVSLEN,=AL4(QVS_LEN
36C 4110 BBEC            01BEC   316          LA    R1,QVS
                                 317          SYSEVENT QVS
370 4100 0077            00077   318+         LA    0,119(0,0)
374 58F0 0010            00010   319+         L     15,CVTPTR(,0)
378 0000 0000            00000   320+         L     15,CVTSRM-CVT(,15)
ASMA044E Undefined symbol - CVT


Any help would greatly appreciated,



jan

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Reply via email to