*DECK             CLABL 
USETEXT   TSOURCE 
USETEXT   TSYMCNS 
USETEXT   TCEXECQ 
USETEXT   TCOM37Q 
USETEXT   TCOM39Q 
USETEXT   TCOM78Q 
USETEXT   TCEXEC
USETEXT   TC7DECS 
USETEXT   TCOM39
FUNC CLABL;                             # CODE FILE LABEL GENERATION #
BEGIN 
  
  
  
  
*CALL COMEX 
  
  
  
    ITEM I; 
    XREF PROC CODE; 
    XREF FUNC PLABL;
    XREF PROC POST; 
    I=PLABL;
    ASEQ[LENT[CSLC]]=I; 
    LOCN[I]=SSIZ[CSLC]; 
    LENT[CSLC]=I; 
    CF00[CFIX]=0; 
    CFOP[CFIX]=QCFOP"LABL"; 
    CFST[CFIX]=I; 
    CODE; 
    CLABL=I;
END 
TERM
