FCB Source

         MACRO                                                          00001000
&LABEL   FCB   &NAME,&AREA                                              00002000
&LABEL   DS    0D                                                       00003000
         DC    CL8'        '                                            00004000
         DC    CL8'&NAME(1) '                                           00005000
         DC    CL8'&NAME(2) '                                           00006000
         DC    CL2'A1'                                                  00007000
         DC    H'0'                                                     00008000
         DC    A(&AREA)                                                 00009000
         DC    F'80'                                                    00010000
         DC    CL2'F'                                                   00011000
         DC    H'1'                                                     00012000
         DC    F'0'                                                     00013000
S&LABEL DC    CL8'STATE'                                                00014000
         DC    CL8'&NAME(1) '                                           00015000
         DC    CL8'&NAME(2) '                                           00016000
         DC    CL2'A1'                                                  00017000
         DC    H'0'                                                     00018000
         DC    F'0'                                                     00019000
         MEND                                                           00020000