*DECK SSJ                         03NOV81 
          IDENT  SSJ
          ENTRY  SSJ
          ENTRY  SSJ= 
          ENTRY  SSJ1 
  
**        DEFINE THE SSJ= BLOCK TO BE USED BY QTFI. 
* 
**T,       12/0, 24/TL, 12/CP, 12/0 
**T,       60/0 
**T,       60/0 
**T,       60/0 
**T,       60/0 
* 
*         TL - TIME LIMIT (UNLIMITED) 
*         CP - CPU PRIORITY 
  
  
          USE    /SSJ/
 SSJ      BSS    0
  
 SSJ=     CON    0
 SSJ1     VFD    42/0,18/377777B
          BSSZ   3
          USE    *
  
          END 
