*DECK SSJCALL 
          IDENT  SSJCALL
          ENTRY  SSJCALL
          ENTRY  SSJ= 
 SSJCALL  EQU    10 
 SSJ=     EQU    400000B
          END 
