*DECK CTLDLBL 
          IDENT     CTL$LBL 
          COMMENT   CRM CONTROLLER - LABEL PROCESSING.
          TITLE     CTL$LBL - LABELS CONTROLLER 
          TITLE     CTL$LBL - LABELS CONTROLLER 
          SST 
          B1=1
* CALL /PASSLOC/
*CALL /PASSLOC/ 
*#
*1DC  CTL$LBL 
*0D   PURPOSE 
*0        ENTRY POINTS CLL$RM,  GTL$RM,  PTL$RM,  WMK$RM,  CLOV$RM
*#
          ECHO      ,NTRY=(CLL,GTL,PTL,WMK),FLAG=(B1+B1,B0,B1,-B1),GO=(C
,MN,GP,GP,CMN)
          ENTRY     NTRY$RM 
 NTRY$RM  SB3       FLAG
          EQ        GO
          ENDD
  
 GP       SA4       B6-B1 
          LX4       59-25 
          PL        X4,PAR.LA 
          SET.RM    LBL,X3,7,1,713 LBL
 PAR.LA   LX1       1 
          PL        X4,CMN
          SET.RM    LA,X2,7,1,712  LA 
  
 CMN      ENTRY$    ,NOENTRY
          SX6       115B           OUTSTANDING FATAL ERROR
          ON.RM     FNF,=XERR$RM
          LGO.RM    PL.LBL,FO=SQ
 CLOV$RM  SPACE     4,8 
 CLOV$RM  ENTRY$
  
          NE.RM     FOC,#OPE#,=XRM$FOC,B2 
          LGO.RM    PL.CSV,FO=SQ
  
          END 
