Cause . . . . . : More than one export block is declared to be the 'current' export block. Only one current export may exist in a binder language source file. This warning occurred while compiling line &4 of binder language source &3 in file &1 in library &2 while attempting to create service program &5 in library &6. Recovery . . . : No recovery required. The subsequent export blocks are assumed to be 'previous' export blocks. Technical description . . . . . . . . : The first export block in the source file that is declared to be current or that is defaulted to be current will be the actual current export block.