*DECK SYSEQAL 
          IDENT     SYSEQAL 
          TITLE  SYSEQAL - PROVIDE SYS= PROCESSING FOR SCOPE 2
          COMMENT  SYSEQAL - PROVIDE SYS= PROCESSING FOR SCOPE 2
          SST 
          LIST   F,-R 
          SPACE  4
*         THIS MODULE EXISTS TO GENERATE AN ENDRUN FOR SCOPE 2.0 WHO
*         (POOR THING) DOESNT HAVE A SYS= OF HIS OWN. FIRST WE CHECK
*         THAT WE ONLY HAVE AN END TO DO... AS YET THATS ALL WE CAN 
*         HANDLE. 
*         INPUT PARAMETER IS IN X6
* 
          SPACE  4
 #OS      IFEQ   SYSNAME,2
 SYS=     ENTRY. ** 
+         SA1       ENDCAL
          BX1       X1-X6 
          NZ        X1,NOTEND 
          ENDRUN
          SPACE  4
*         HOLD YOUR HAND OUT - NAUGHTY BOY........
  
 NOTEND   MESSAGE  (=L*BAD CALL TO SYS=*),,R
          ABORT 
          SPACE  4
 ENDCAL   VFD       18/3HEND,2/1,40/0         .END WITH RECALL
 #OS      ENDIF 
          END 
