*COMDECK AWRT 
          CONTROL NOLIST;    #AWRT# 
  CONTROL EJECT;
  COMMON AWRTCOMM;
  
  
  
  BASED 
      ARRAY AWRT [0:249    ] S(4);
        BEGIN                                                           00
          ITEM AWR1ST10CHAR C(0,0,10);                                  10
          ITEM AWR2ND10CHAR C(1,0,10);                                  20
          ITEM AWR3RD10CHAR C(2,0,10);                                  30
          ITEM AWRTINFO     U(3,0,60);                                  40
          ITEM AWRTQUALIF   U(3,0,1);                                   50
          ITEM AWRTCODE     U(3,1,11);                                  60
          ITEM AWRTIMMED    U(3,12,15);                                 70
          ITEM AWRTSREG     U(3,27,4);                                  80
         ITEM AWRTLINE      U(3,44,16); 
        END                                                             0 
  
 #     VALUES FOR AWRT CODE FIELD  #
DEF AWRTPNREF #1#;
DEF AWRTDNREF #2#;
DEF AWRTSPECREG #3#;
DEF AWRTPNORDN #4#; 
DEF AWRTCORRITEM #5#; 
          CONTROL LIST;      #AWRT# 
