*COMDECK PAKDEF 
          CONTROL NOLIST;    #PAKDEF# 
      DEF   ZTREPK  # # ; 
      DEF   STLEPK  # I (0,12, 6) #;
      DEF   STIXPK  # I (0, 0,12) #;
      DEF   IMPLPK  # I (0, 0,12) #;
      DEF   INUSPK  # I (0,42,18) #;
      DEF   CNSTPK  # I (0,42,18) #;
      DEF   ZIMPPK  # # ; 
      DEF   ZSKNPK  # P(2)# ; 
      DEF   XBITPK  # (0) # ; 
      DEF   YBITPK  # (1) # ; 
      DEF   ZRULPK  # # ; 
 DEF DHIFPK # U (0,40,1)  #;
 DEF RTYPPK # U (0,41,2)  #;
 DEF DTPEPK # U (0,40,3)  #;
 DEF SCCIPK # U (0,43,3)  #;
 DEF DLRXPK # U (0,46,4)  #;
 DEF RCONPK # U (0,50,10)  #; 
DEF RTIXPK # U(0,46,14) #;
 DEF FTIXPK #RCONPK#; 
 DEF RTRIPK # U (0,39,1)  #;
 DEF RCNSPK # U (0,30,9)  #;
   DEF VECTPK # U (0,0,26)   #; 
 DEF RTSXPK # I (0,0,18)  #;
DEF RTLEPK # U (0,18,8)  #; 
      DEF   ZDLRPK  # # ; 
      DEF   LOMBPK  # I (0, 0,18) #;
      DEF   ROMBPK  # I (0,18,18) #;
      DEF   DTMPPK  # I (0,42,18) #;
      DEF   ZFUNPK  # # ; 
      DEF   FCNDPK  # B (0, 0, 1) #;
DEF FVLEPK#(0,0,18)#; 
      DEF   FIMPPK  # I (0,42,18) #;
DEF SCONPK  #(0,42,18),SCVL(0,18,18),PCTP S:QPCTP(0,0,18),SCCN S:CLIST( 
0,42,18)#;
      DEF   ZCNVPK  # # ; 
          CONTROL LIST;      #PAKDEF# 
