MACRO , 00001000 &LABEL $RA &CHAR,&X,&Y 00002000 AIF ( '&CHAR' EQ '' ).NOCHAR 00003000 &LABEL DC X'3C' ORDER CODE 00004000 $ADDRESS &X,&Y 00005000 DC CL1&CHAR CHARACTER TO BE REPEATED 00006000 MEXIT , 00007000 .NOCHAR MNOTE 8,'NO CHARACTER SPECIFIED TO BE REPEATED' 00008000 MEND , 00009000