MACRO                                                          00050000
&N       BLSRROTB  &FROM,&TO,&COL                                       00100000
         GBLC  &B1,&B2             TRANSLATED ADDRESSES FROM BLSRCVTA   00150000
         LCLA  &A                  COUNTER                              00200000
         LCLC  &STRING             HOLDS ADDRESSES DURING BLSRCVTA LOOP 00250000
&A       SETA  &FROM               INITIAL ROW VALUE                    00300000
.L       AIF   (&A GT &TO).OUT     DON'T DO TO MUCH                     00350000
         BLSRCVTA &A,&COL          GET THIS ADDRESS                     00400000
&STRING  SETC  '&STRING&B1&B2'     CATENATE PREVIOUS STRING W/NEW ADDR  00450000
&A       SETA  &A+1                UPDATE ROW VALUE                     00500000
         AGO   .L                  CHECK FOR OUT OF LOOP                00550000
.OUT     ANOP                      &STRING IS NOW COMPLETE              00600000
&N       DC    X'&STRING'                                               00650000
         MEND                                                           00700000