*DECK DMPCSNR                                                              NOV04
USETEXT   TSOURCE 
USETEXT   TSYMCNS 
USETEXT   TCEXECQ 
USETEXT   TSYMC5Q 
USETEXT   TCEXEC
USETEXT   TSYMC5
USETEXT   TSTABLE 
      PROC DMPCSNR((N));                                                 NOV04
#----------------------------------------------------------------------# NOV04
#                                                                      # NOV04
#     P R O C  D M P C S N R                                           # NOV04
#                                                                      # NOV04
#     DUMP THE CONSTRUCT STRING                                        # NOV04
#                                                                      # NOV04
#     INPUT PARAMETER                                                  # NOV04
#     N, A 10 CHARACTER ITEM, CONTAINS CALLING PROC NAME LEFT ADJUST.  # NOV04
#     WITH TRAILING PERIODS TO FILL OUT THE WORD. EXAMPLE(ANZS......)  # NOV04
#                                                                      # NOV04
#     DMPCSNR PRINTS THE CONSTRUCT INDICES IN THE LOGICAL CONSTRUCT    # NOV04
#     STRING.  IT THEN PRINTS THE CALLING PROC NAME FOLLOWED BY THE    # NOV04
#     SYMBOLIC NAME OF EACH CONSTRUCT.                                 # NOV04
#                                                                      # NOV04
#----------------------------------------------------------------------# NOV04
      BEGIN                                                              NOV04
      ITEM N C(10);                # CALLING PROC NAME                 # NOV04
                                                                         NOV04
      $BEGIN                                                             NOV04
*CALL COMEX 
*CALL CONSTR                                                             NOV04
                                                                         NOV04
      ITEM I;                      # FOR LOOP INDUCTION VARIABLE       # NOV04
      ITEM J;                      # FORWARD LINK INDEX                # NOV04
      ITEM K;                      # NECESSARY BECAUSE OF PRINT BUG    # NOV04
                                                                         NOV04
      IF DMPFLG EQ 0               # NOT *=0                           # NOV04
      THEN                                                               NOV04
        BEGIN                                                            NOV04
        RETURN;                                                          NOV04
        END                                                              NOV04
                                                                         NOV04
#     PRINT THE CONSTRUCT STRING FORWARD LINKS                         # NOV04
      J = FLNK[FCON];                                                    NOV04
      FOR I = I WHILE J NQ ARG DO                                        NOV04
        BEGIN                                                            NOV04
        PRINT("(25X,O4,6X,O4,6X,O4,6X,O4,6X,O4,6X,O4,6X,O4,6X,O4,6X,     NOV04
                    O4,6X,O4,6X)");                                      NOV04
        K = 1;                                                           NOV04
        FOR I = I WHILE J NQ ARG AND K LS 11 DO                          NOV04
          BEGIN                                                          NOV04
          LIST(J);                                                       NOV04
          J=FLNK[J];                                                     NOV04
          K = K+1;                                                       NOV04
          END                                                            NOV04
        ENDL;                                                            NOV04
      END                                                                NOV04
                                                                         NOV04
#     PRINT THE CONSTRUCT STRING                                       # NOV04
      J = FLNK[FCON];              # INDEX TO FIRST LOGICAL CONSTRUCT  # NOV04
      FOR I = I WHILE J NQ ARG DO                                        NOV04
        BEGIN                                                            NOV04
        PRINT("(15X,A10,A10,A10,A10,A10,A10,A10,A10,A10,A10,A10)");      NOV04
        K=1;                                                             NOV04
        LIST(N);                                                         NOV04
        N = "          ";          # BLANK CALLING PROC NAME           # NOV04
        FOR I = I WHILE J NQ ARG AND K LS 11 DO                          NOV04
          BEGIN                                                          NOV04
          LIST(CONSTRNAME[CSNR[J]]);                                     NOV04
          J=FLNK[J];                                                     NOV04
          K=K+1;                                                         NOV04
          END                                                            NOV04
        ENDL;                                                            NOV04
        END                                                              NOV04
                                                                         NOV04
      $END                                                               NOV04
      END                                                                NOV04
      TERM                                                               NOV04
