*DECK     CCLIFES 
          IDENT  CCLIFES     IFE/ELSE/ENDIF AND SKIP MODULE 
          SST 
          COMMENT CYBER CONTROL LANGUAGE (L560) IFE,ELSE,SKIP 
          TITLE  CCL- CYBER CONTROL LANGUAGE - CCLIFES - IFE/ELSE/ENDIF/
,SKIP 
**        CCLIFES - IFE/ELSE/ENDIF AND SKIP MODULE
* 
*         PROCESS VERBS INDICATED ABOVE 
* 
*         NOTE - SEE BEGINNING OF CCLBRWE FOR A COMPLETE DESCRIPTION
*                OF CCL MODULE PROCESSORS AND A LIST OF COMMON DECKS. 
* 
  
          USE    0
*CALL     CCL 
 PB.EXP   EQU    0           NO PROC BODY EXPRESSIONS 
*CALL     COMALL
*CALL     COMBLNK 
*CALL     MSGCSC
*CALL     MSGIF 
*CALL     MSGEXP
*CALL     MSGSTR
*CALL     CSP 
*CALL     CCLASV
*CALL     CCLCCF
*CALL     CCLCCN
*CALL     CCLCVT
*CALL     CCLDSB
*CALL     CCLEVX
*CALL     CCLGNP
*CALL     CCLLAB
*CALL     CCLPRS
*CALL     CCLSNV
*CALL     CCLSCS
*CALL     CCLXSS
*CALL     CSTRCCL 
*CALL     CIOCCL
*CALL     IOFIL 
 OSNOSX   IFEQ   HOST,NOS 
 OSNOSX   ENDIF 
          LIST   F,X
          TITLE  CCLIFES - IFE/ELSE/ENDIF, SKIP MODULE
          USE    0
 OSNOSBE  IFNE   HOST,SC2 
          LDSET  EPT=IFE/IF/ELSE/ENDIF/ELSEIF/SKIP
*CALL     COMLDS
 OSNOSBE  ENDIF 
 VERBS    BSS 
          CON    0LIFE+IF2
          CON    0LIF+IF2 
          CON    0LELSE+ELSE1 
          CON    0LELSEIF+ELSEIF1 
          CON    0LENDIF+ENDIF1 
          CON    0LSKIP+SKIP1 
 VERBSL   EQU    *-VERBS
  
          ENTRY  IFE
          ENTRY  IF 
          ENTRY  ELSE 
          ENTRY  ENDIF
          ENTRY  ELSEIF 
          ENTRY  SKIP 
*CALL     COMENT
 IFE      BSS 
 IF       BSS 
 ELSE     BSS 
 ENDIF    BSS 
 ELSEIF   BSS 
 SKIP     BSS 
  
*CALL     COMINIT 
*CALL     IF
*CALL     SKIPEE
*CALL     EXIT
          END    IFE
*WEOR 
