now I've added a label. Still the 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.50
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.50
1 MACRO
2 &NAME ZERO &N
3 LCLC &REST
4 &REST SETC 'SR &N,&N'
5 &NAME &REST
6 MEND
000000 00000 00000 7 XYZ CSECT
8 ABC ZERO 15
9+ABC SR 15,15
01-00005
** ASMA057E Undefined operation code - 00005/SR 15,15
** ASMA435I Record 5 in JOAO.QWASM.JOB09579.D0000101.? on volume:
10 END
Em ter., 14 de nov. de 2023 às 17:49, João Reginato <[email protected]>
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 <
> [email protected]> 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
>>
>
