*DECK SETLOAD 
PROC SETLOAD (SETNUMBER,EADDR); 
BEGIN 
CONTROL FTNCALL;
ITEM SETNUMBER; 
ITEM EADDR; 
ARRAY [1:7] S(1); 
ITEM OVERLAYNAME
      = [O"03170240343534000000",     #COB5121# 
         O"03170240343535000000",     #COB5122# 
         O"03170240343536000000",     #COB5123# 
         O"03170240343537000000",     #COB5124# 
         O"03170240343540000000",     #COB5125# 
         O"03170240343541000000",     #COB5126# 
         O"03170240343542000000"];    #COB5127# 
XREF PROC LOVER;
LOVER(OVERLAYNAME[SETNUMBER],EADDR);
RETURN; 
END 
TERM
