*DECK DBDIAG
          PROC  DBDIAG(SEV, NUM, LIN, COL); 
  
#**       DBDIAG -  PRINT THE DIAGNOSTIC FOR DEBUG                     #
#                                                                      #
#     GIVEN-                                                           #
#         SEV = SEVERITY   (IGNORED).                                  #
#         NUM = ERROR NUMBER.                                          #
#         LIN = LINE NUMBER.                                           #
#         COL = COLUMN NUMBER.                                         #
#                                                                      #
#     DOES-                                                            #
#         IMMEDIATELY PRINTS THE PARAMETERS NUM, LIN + COL.            #
  
  
          BEGIN 
          ITEM  SEV          I;        # SEVERITY (IGNORED)            #
          ITEM  NUM          I;        # ERROR NUMBER                  #
          ITEM  LIN          I;        # LINE NUMBER                   #
          ITEM  COL          I;        # COLUMN NUMBER                 #
  
  
*CALL BUG020C$
  
*CALL LISTCTL 
  
          XREF
              BEGIN 
              PROC  CBLIST;            # COBOL LISTER                  #
              FUNC  DEC      C(10);    # DECIMAL DISPLAY VALUE         #
              END 
  
          $BEGIN
          ITEM  C10          C(10);    # SCRATCH                       #
          ITEM  LINE         C(30);    # DEBUG PRINT LINE              #
  
          IF BUG020C$CPY
           OR BUG020C$TKN  THEN 
              BEGIN 
              LINE = "*** DIAGNOS(SEV,9999,99999,99)";
              C10 = DEC(NUM); 
              C<16,4>LINE = C<0,4>C10;
              C10 = DEC(LIN); 
              C<21,5>LINE = C<0,5>C10;
              C10 = DEC(COL); 
              C<27,2>LINE = C<0,2>C10;
              CBLIST(LISTCTL"LINE", LINE, 30);
              END 
          $END # OF DBDIAG #
          END 
          TERM
