*DECK COPYDAT 
          PROC  COPYDAT;
  
#**       COPYDAT -  DATA FOR COPY/SSCANNER ROUTINES                   #
#                                                                      #
#         CONTAINS VARIOUS DATA AND VARIABLES.                         #
  
  
          XDEF               # DESCRIPTION OF CURRENT TOKEN            #
              BEGIN 
              ITEM  CLACOLUMN    I;    # TOKEN COLUMN NUMBER           #
              ITEM  CLACOMMENT   B;    # IF ONLY FOR MATCHING          #
              ITEM  CLALCOLUMN   I;    # COLUMN WITH LAST CHARACTER    #
              ITEM  CLALINE      I;    # TOKEN LINE NUMBER             #
              ITEM  CLALVLN      I;    # V.L.N WITH LAST CHARACTER    # 
              ITEM  CLAMOD       B;    # TRUE IFF TOKEN WAS MODIFIED   #
              ITEM  CLATYPE      I;    # TOKEN TYPE                    #
              ITEM  CLAVALUE     I;    # TOKEN VALUE                   #
              ITEM  CLAVLN       I;    # TOKEN VIRTUAL LINE NUMBER     #
              ARRAY STRINGAREA [0:25];
                  ITEM  SAREA        C(0, 0,10); # TOKEN CHARACTERS    #
              ITEM  SAREALENGTH  I;    # NUMBER OF TOKEN CHARACTERS    #
              ITEM  SIGNSW       B;    # TRUE IFF STRING IS SIGNED     #
              END 
  
          XDEF               # VARIABLES ACCESSIBLE BY COMPASS         #
              BEGIN 
              ITEM  CURRVLN      I;    # V.L.N. OF CURRENT LINE        #
              ITEM  ACHR         I;    # VALUE OF A.CHR IN GETSTR      #
              ITEM  ADDRLIN      I;    # ADDRESS OF CURRENT LINE       #
              ITEM  CSTATE       I;    # CURRENT STATE                 #
              ITEM  ENDCHRS      B;    # ALL CHRS HAVE BEEN PROCESSED  #
              ITEM  EODFLAG      B;    # END-OF-DATA FLAG              #
              ITEM  ERROR        B;    # INDICATES USER ERROR          #
              ITEM  EXCEPT       I=0;  # GETSTR EXCEPTIONAL SITUATION  #
                                       # 2 = END-OF-DATA               #
                                       # 3 = NUMALP3 IN GETSTR         #
              ITEM  LINENO       I;    # LINE NO. OF CURRENT LINE      #
              ITEM  LN       I=0;      # LAST ASSIGNED USER LINE NO.   #
              ITEM  NEWCOL7      I;    # NEXT LINE-S COLUMN 7 CHARACTER#
              ITEM  RADDR        I;    # ADD COLUMNS FOR REPLACE       #
              ITEM  READLIB      B;    # TRUE IFF READING FROM LIBRARY #
  
              ARRAY  CPYLINE [0:0] S(69); 
                  BEGIN 
                  ITEM  CPYLINE$CHAR U(0, 0,60);
                                     # 0 IS POSSIBLE BACKUP CHARACTER  #
                                     # 1-65 ARE COLUMNS 8-72           #
                                     # 66 IS BLANK COLUMN 73           #
                                     # 67 PROVIDES ROOM FOR TRAILING
                                                       BLANK SEPARATOR #
                                     # 68 IS FINAL TERMINATOR          #
                  END 
  
              ARRAY  SRCLINE [0:0] S(69); 
                  BEGIN 
                  ITEM  SRCLINE$CHAR U(0, 0,60);
                  END 
              END 
  
  
          BEGIN 
          END 
          TERM
