*DECK SYMABTL                                                            NEWDECK
#----------------------------------------------------------------------# NEWDECK
#                                                                      # NEWDECK
#     P R O C   S Y M A B T L                                          # NEWDECK
#                                                                      # NEWDECK
#     PURPOSE - CONVERT LINE NUMBER TO DISLAY CODE AND PLACE IT IN     # NEWDECK
#               MESSAGE TEXT, THEN CALL SYMABT                         # NEWDECK
#                                                                      # NEWDECK
#     CALLING SEQUENCE -                                               # NEWDECK
#               SYMABTL(NUM,MES,NCHR,LINENR)                           # NEWDECK
#               WHERE NUM  = ERROR NUMBER                              # NEWDECK
#                     MES  = MESSAGE TEXT IN FORM..                    # NEWDECK
#                       SYMABT MESSAGE TEXT LINE XXXXX                 # NEWDECK
#                     THE XS WILL BE REPLACED BY LINE NUMBER           # NEWDECK
#                     NCHR = EXACT NUMBER OF CHARACTERS IN TEST INCL.  # NEWDECK
#                            LINE XXXXX                                # NEWDECK
#                     LINENR = LINE NUMBER                             # NEWDECK
#                                                                      # NEWDECK
#----------------------------------------------------------------------# NEWDECK
      PROC SYMABTL(NUM,MES,NCHR,LINENR);                                 NEWDECK
      BEGIN  # SYMABTL #                                                 NEWDECK
      XREF PROC SYMABT;                                                  NEWDECK
      XREF PROC BINDEC;                                                  NEWDECK
                                                                         NEWDECK
      DEF BYTWD # 10 #;                                                  NEWDECK
                                                                         NEWDECK
      ITEM LINENR         I;       # ERROR NUMBER                      # NEWDECK
      ITEM NCHR           I;       # NUMBER OF CHARACTERS IN MESSAGE   # NEWDECK
      ITEM NUM            I;       # ERROR NUMBER                      # NEWDECK
      ARRAY MES[0] S(1);           # ERROR MESSAGE                     # NEWDECK
        BEGIN                                                            NEWDECK
        ITEM MESS           C(00,00,BYTWD);                              NEWDECK
        END                                                              NEWDECK
      BINDEC(MES,NCHR-4,LINENR,5); # CONVERT LINE NUMBER TO BCD        # NEWDECK
      SYMABT(NUM,MES,NCHR);                                              NEWDECK
      END    # SYMABTL #                                                 NEWDECK
      TERM                                                               NEWDECK
