*DECK TLCHECK 
USETEXT TXSTD 
      PROC TLCHECK; 
  
#----------------------------------------------------------------------#
#                                                                      #
#  THE FOLLOWING PROCS ARE XDEF"D WITHIN THIS DECK:                    #
#                                                                      #
#     TLCHECK                      CHECKS CATALOG TL WITH MAX TRANS LG #
#                                                                      #
#----------------------------------------------------------------------#
  
      BEGIN 
  
      XREF ITEM MXTRNLG      I;    # MAXIMUM TRANSMISSION LENGTH       #
  
  
  
  
#----------------------------------------------------------------------#
  
  
  
  
# BEGINNING OF EXECUTABLE CODE FOR   T L C H E C K                     #
      BEGIN 
      IF VERSTL LS MXTRNLG THEN    # IF CATALOG TL LESS THAN TL        #
        BEGIN 
        STDNO;                     # NO... CANNOT RECORD               #
        END 
      STDYES;                      # YES... CAN RECORD                 #
      END 
  
  
  
  
#----------------------------------------------------------------------#
  
  
      END 
      TERM
