*DECK SSICSSI 
          IDENT  SSICSSI
*CALL COPYRITE
          ENTRY  SSICSSI
          SST 
          SYSCOM B1 
 OPL      XTEXT  COMSSSD
 OPL      XTEXT  COMCMAC
          B1=1
          TITLE  SSICSSI - CHECK SUBSYSTEM IDENTIFIER.
          COMMENT  SSICSSI - CHECK SUBSYSTEM IDENTIFIER.
          COMMENT COPYRIGHT CONTROL DATA SYSTEMS, INC. 1994.
          SPACE  4,10 
**        SSICSSI - CHECK SUBSYSTEM IDENTIFIER. 
* 
*         SSICSSI 
* 
*         ENTRY 
* 
*         EXIT   (X6) = 0 IF NOT INITIATED PROPERLY, WRONG SSID.
*                (X6) = ATF'S SUBSYSTEM IDENTIFIER. 
* 
*         USES   X - 1, 2, 6. 
*                A - 1. 
*                B - 0. 
* 
*         MACROS GETSSID
          SPACE  4,10 
 SSICSSI  SUBR                         ENTRY/EXIT 
          GETSSID CSSIA                GET JOB SUBSYSTEM IDENTIFIER 
          SA1    CSSIA
          SX6    ATSI                  ATF SUBSYSTEM IDENTIFIER 
          IX2    X6-X1                 SUBSYSTEM IDS MATCH? 
          ZR     X2,SSICSSIX           JOB HAS THE ACTF ID
          SX6    B0                    RETURN 0, NOT ACTF SUBSYSTEM 
          EQ     SSICSSIX              RETURN 
  
 CSSIA    BSSZ   1                     SUBSYSTEM IDENTIFIER 
  
          END 
