Willy I need the SETC
João Reginato (61) 9911-55500 Em ter., 14 de nov. de 2023 às 18:02, João Reginato <jb.regin...@gmail.com> escreveu: > Lloyd > I've already sent a try with a label and the same error occurred > > João Reginato > (61) 9911-55500 > > > Em ter., 14 de nov. de 2023 às 17:58, João Reginato <jb.regin...@gmail.com> > escreveu: > >> Gil >> >> I know it works in the way you've proposed but I need to use the SETC in >> a very bigger macro. >> >> João Reginato >> (61) 9911-55500 >> >> >> Em ter., 14 de nov. de 2023 às 17:49, João Reginato < >> jb.regin...@gmail.com> escreveu: >> >>> now with LCLC and CSECT. Same error >>> >>> João Reginato >>> (61) 9911-55500 >>> >>> Symbol Type Id Address Length Owner Id Flags Alias-of >>> HLASM R6.0 2023/11/14 17.46 >>> XYZ SD 00000001 00000000 00000000 00 >>> >>> >>> >>> >>> Page 3 >>> Active Usings: None >>> >>> Loc Object Code Addr1 Addr2 Stmt Source Statement >>> HLASM R6.0 2023/11/14 17.46 >>> 1 MACRO >>> >>> 2 ZERO &N >>> >>> 3 LCLC &REST >>> >>> 4 &REST SETC 'SR &N,&N' >>> >>> 5 &REST >>> >>> 6 MEND >>> >>> 000000 00000 00000 7 XYZ CSECT >>> >>> 8 ZERO 15 >>> >>> 9+ SR 15,15 >>> 01-00005 >>> ** ASMA057E Undefined operation code - 00005/SR 15,15 >>> >>> ** ASMA435I Record 5 in JOAO.QWASM.JOB09578.D0000101.? on volume: >>> >>> 10 END >>> >>> >>> Em ter., 14 de nov. de 2023 às 17:46, Paul Gilmartin < >>> 00000014e0e4a59b-dmarc-requ...@listserv.uga.edu> escreveu: >>> >>>> On 11/14/23 13:28:09, João Reginato wrote: >>>> > hi >>>> > I can't see the error on this simple code. >>>> > Can anyone help me pls? >>>> > >>>> > TIA >>>> > João Reginato >>>> > (+55 61) 9911-55500 >>>> > >>>> > >>>> > Active Usings: None >>>> > >>>> > Loc Object Code Addr1 Addr2 Stmt Source Statement >>>> > HLASM R6.0 2023/11/14 16.58 >>>> > 1 MACRO >>>> > 2 ZERO &N >>>> > 3 &REST SETC 'SR &N,&N' >>>> > 4 &REST >>>> > 5 MEND >>>> > 6 ZERO 15 >>>> > 7+ SR 15,15 >>>> > 01-00004 >>>> > ** ASMA057E Undefined operation code - 00004/SR 15,15 >>>> > ** ASMA435I Record 4 in JOAO.QWASM.JOB09574.D0000101.? on volume: >>>> >. >>>> I believe the SETC is unnecessary. How a bout just: >>>> MACRO >>>> &REST ZERO &N >>>> &REST SR &N,&N >>>> MEND >>>> >>>> START >>>> L ZERO 15 >>>> END >>>> >>>> -- >>>> gil >>>> >>>
