Problem:
LCLA &L
*
&L SETA 00
.LOOP1 ANOP
&L SETA &L 1
*
DFHMDF POS=(&L,01),LENGTH=24, X
ATTRB=PROT, X
INITIAL=' '
*
AIF (&L LT 21).LOOP1
*
=====================================================
BMS command line compilation utility. Version NX_6-0-98
BMSCH1014E Unexpected verb AMPERSAND found, remainder of macro discarded : D:\\TEST\\BMSMAPS\\TEST.BMS(1163)
BMSCH1011E Unexpected scanning error on .LOOP1 ANOP
BMSCH1014E Unexpected verb ERROR_TOKEN found, remainder of macro discarded : D:\\TEST\\BMSMAPS\\TEST.BMS(1164)
BMSCH1014E Unexpected verb AMPERSAND found, remainder of macro discarded : D:\\TEST\\BMSMAPS\\TEST.BMS(1165)
BMSCH1020E INTEGER was expected but found AMPERSAND : D:\\TEST\\BMSMAPS\\TEST.BMS(1167)
BMSCH1014E Unexpected verb COMMA found, remainder of macro discarded : D:\\TEST\\BMSMAPS\\TEST.BMS(1167)
Resolution:
Directive PREPASM did not resolve the customer  issue.
To manually run through Assembler you can do the following.
Go to the Net Express command prompt and run the following:
run mm370asm "C:\\Documents and Settings\\user\\My Documents\\testmap.bms" nodfhgen bal noasm sysparm(DSECT)
Where "C:\\Documents and Settings\\user\\My Documents\\testmap.bms" 
is the path where your testmap.bms exists.
This will generate a testmap.bal which you can then rename to a .bms and use.
Additionally, LANG=COBOL2 is not correct.
This is based on the following:
So change to LANG=COBOL and then this was successful.

