Why do you need to test it at all? Use an EQU for the length and then
it will not make a difference if it is numeric or not. Also, if an EQU
is used, if you the change the length of the work area the length to
clear will automatically change. I'm picturing something like the following:
VSAMWORK DS XL2700
VSAMWORKL EQU *-VSAMWORK
ACLEAR A=VSAMWORK,L=VSAMWORKL
Are you setting the padding/initialization character correctly?
MVCL requires it to be in the high order 8 bits of the register and you
are placing it in the low order bits. The last instruction should be:
LA R1,X'&I' Set pad
SLL R1,24 Move pad to high order 8 bits
Ken G.
On 2012-08-04 09:53, [email protected] wrote:
MACRO
ACLEAR &L=256,&A=VSAMWORK,&I=00
LA R15,&L Number of Bytes to clera
LA R14,&A Target Address to clear
LR R0,R14 Sourece Address to clear
LA R1,X'&I' INITIALIZATION CHARACTER
MVCL R14,R0 Initialize Work Area
*
MEXIT
MEND
