*DECK RM$BLPA 
          IDENT  RM$BLPX
          COMMENT   BUFFER ALLOCATION FOR RM$BLP
          TITLE     RM$BLPA - BUFFER ALLOCATION FOR RM$BLP
          LIST   F
          ENTRY  EOP
          ENTRY  RA0AA
*CALL MACRO 
          LIST   -L          *CALL NUMOPT FOLLOWS 
*CALL NUMOPT
          LIST   *
          LOC    0
EOP       BSS    0
RA0AA     BSS    0
          LOC    *O 
RM$BLPA   BSS    0
F1        FILE   FO=SQ,RT=S,BT=C
,BFS=257
,WSA=BUF1 
TVAL      EQU    *-F1 
F2        FILE   FO=SQ,RT=S,BT=C
,BFS=257
,WSA=BUF2 
F3        FILE   FO=SQ,RT=S,BT=C
,BFS=257
,WSA=BUF3 
F4        FILE   FO=SQ,RT=S,BT=C,BFS=257,WSA=BUF1 
F5        FILE   FO=SQ,RT=S,BT=C,BFS=257,WSA=BUF2 
          ENTRY  RM$BLPB
RM$BLPB   BSS    0
BUF1      BSS    100
BUF2      BSS    100
BUF3      BSS    100
BUF4      BSS    100
BUF5      BSS    100
          ENTRY  RM$BLPA
          ENTRY  BLP$WSI
          ENTRY  BLP$FWS
BLP$WSI   BSS    BLPWSA      INTERNAL WORK AREA 
BLP$FWS   BSS    BLPBUF      BIG FILE BUFFER
          END 
