Martin,
I see the difference, but it's not applicable to my situation. Of
course, I am sure there is a better way to do it anyway.
I am generating branch labels that are numbers such as:
ABEND_0001 DS 0H
MVC ABEND_NUMBER,=H'1'
B CANCEL_MSG
ABEND_0002 DS 0H
MVC ABEND_NUMBER,=H'2'
B ABEND_MSG
.... and so on
and I need all the labels to have exactly 4 digits in the suffix.
Forcing the suffix to 4 digits is where I needed the K' code.
My macro is simply:
MACRO
&NAME XXXXXXXX &CANCELS=0
&CMAX SETA &CANCELS
&N SETA 1
.CLOOP ANOP
AIF ('&N' GT '&CMAX').CMAXED
&NX4 SETC '000&N'
&L SETA K'&NX4-3
&NX4 SETC '&NX4'(&L,4)
ABEND_&NX4 DS 0H
MVC ABEND_NUMBER,=H'&N'
B ABEND_MSG
&N SETA &N+1
AGO .CLOOP
.CMAXED ANOP
(I always hate to post code that I know that there must be a better way.)
Tony Thigpen
-----Original Message -----
From: Martin Truebner
Sent: 02/12/2014 11:05 AM
Tony,
judge for yourself
1 MACRO
2 X &A
3 &LA SETA K'&A
4 MNOTE 'LENGTH OF A IS &LA'
5 MEND
6 X PARAMETER
7+LENGTH OF A IS 9
8 X 'ABC''XC'
9+LENGTH OF A IS 9
10 X PARA&&METER
11+LENGTH OF A IS 11
--
Martin
Pi_cap_CPU - all you ever need around MWLC/SCRT/CMT in z/VSE
more at http://www.picapcpu.de
