*COMDECK REPLBLK
CONTROL NOLIST;            # REPLBLK - REPLACE COMMUNICATIONS INFO     #
  
          COMMON  REPLBLK;
          BEGIN 
  
  
#     -COMMON- ITEM DECLARATIONS                                       #
  
#     REPLACE ACTUAL PARAMETER  (RAP$)  DECLARATIONS FOR REPLACE STMT  #
  
          BASED ARRAY RAPARAY [1:1] S(2); 
              BEGIN 
              ITEM  RAP$CO       I(0, 0, 5);     # CHARACTER OFFSET    #
              ITEM  RAP$COL      I(1,51, 9);     # DESIRED COLUMN      #
              ITEM  RAP$IFCOL    B(1, 0, 1);     # IF COL DESIRED      #
              ITEM  RAP$L        I(0, 5, 9);     # LENGTH OF TOKEN     #
              ITEM  RAP$SIGNSW   B(0,14, 1);     # WHETHER SIGNED      #
              ITEM  RAP$TYPE     I(0,15, 5);     # TYPE OF TOKEN       #
              ITEM  RAP$VALUE    I(0,20,18);     # CLAVALUE            #
              ITEM  RAP$WO       I(0,38,18);     # WORD OFFSET OF STR  #
              END 
  
          BASED ARRAY RAPNTKS [1:1];
              BEGIN 
              ITEM  RAP$INDEX    I(0, 0,42);     # PAIR INDX TO RAPARAY#
              ITEM  RAP$NTKNS    I(0,42,18);     # NO. RAP TKNS FOR PR #
              END 
  
          BASED ARRAY RAPSTRNG [0:0] S(1);
              ITEM  RAP$STRING   C(0, 0,240);    # ACTUAL PARAM STRING #
  
          ITEM  RAPI$MAXARAY I;  #MAXIMUM VALUE FOR RAPI$NXTARAY       #
          ITEM  RAPI$NXTARAY I;  #INDX TO NXT AVAIL. ENTRY IN RAPARAY  #
          ITEM  RAPI$MXSTRGW I;  #MAX SAFE VALUE FOR RAPI$NXSTRGW      #
          ITEM  RAPI$NXSTRGW I;  #INDX TO NXT AVAIL. WORD IN RAPSTRING #
          ITEM  RAPI$NXSTRGC I;  #INDX TO NXT AVAIL. CHR IN ABOVE WORD #
  
  
#     REPLACE FORMAL PARAMETERS (RFP$)  DECLARATIONS                   #
  
          BASED ARRAY RFPARAY [1:1] S(1); 
              BEGIN 
              ITEM  RFP$MAYBEPIC B(0, 0, 1);     # TKN MAY BE PIC      #
              ITEM  RFP$L        U(0, 1, 8);     # LENGTH OF TOKEN     #
              ITEM  RFP$WO       I(0, 9,18);     # WORD OFFSET OF STR  #
              ITEM  RFP$CO       I(0,27,18);     # CHARACTER OFFSET    #
              END 
  
          BASED ARRAY RFPNTKS [1:1];
              BEGIN 
              ITEM  RFP$INDEX    I(0, 0,42);     # PAIR INDX TO RFPARAY#
              ITEM  RFP$NTKNS    I(0,42,18);     # NO. RFP TKNS FOR PR #
              END 
  
          BASED ARRAY RFPSTRNG [0:0] S(1);
              ITEM  RFP$STRING   C(0, 0,240); 
  
          ITEM  RFPI$MAXARAY I;  #MAXIMUM VALUE FOR RFPI$NXTARAY       #
          ITEM  RFPI$NXTARAY I;  #INDX TO NXT AVAIL. ENTRY IN RAPARAY  #
          ITEM  RFPI$MXSTRGW I;  #MAX SAFE VALUE FOR RAPI$NXTSTRGW     #
          ITEM  RFPI$NXSTRGW I;  #INDX TO NXT AVAIL. WORD IN RAPSTRING #
          ITEM  RFPI$NXSTRGC I;  #INDX TO NXT AVAIL. CHR IN ABOVE WORD #
  
  
#     REPLACE TARGET (RT$)  DECLARATIONS                               #
  
          BASED ARRAY RTARRAY [1:1] S(2); 
              BEGIN 
              ITEM  RT$MOD       B(0, 0, 1);     # DIAG. MODIFIED TKN  #
              ITEM  RT$CO        U(0, 1, 4);     # CHARACTER OFFSET    #
              ITEM  RT$COLUMN    U(0, 5, 7);     # COLUMN OF 1ST CHAR  #
              ITEM  RT$COMMENT   B(0,45, 1);     # CLACOMMENT          #
              ITEM  RT$L         U(0,12, 8);     # LENGTH IN CHARACTERS#
              ITEM  RT$LCOLUMN   U(0,20, 7);     # COLUMN OF LAST CHAR #
              ITEM  RT$LINE      U(0,27,18);     # USER LINE NUMBER    #
              ITEM  RT$LVLN      U(1, 6,18);     # V.L.N. OF LAST LINE #
              ITEM  RT$SIGNSW    B(1, 0, 1);     # LIT WAS SIGNED      #
              ITEM  RT$TYPE      U(1, 1, 5);     # TYPE                #
              ITEM  RT$VALUE     U(1,24,18);     # AUXILIARY VALUE     #
              ITEM  RT$VLN       U(1,42,18);     # VIRTUAL LINE NUMBER #
              ITEM  RT$WO        U(0,46,14);     # RT$SRING WORD OFFSET#
              ITEM  RT$WORD0     U(0, 0,60);     # WORD 0 OF RT$ ENTRY #
              ITEM  RT$WORD1     U(1, 0,60);     # WORD 1 OF RT$ ENTRY #
              END 
  
          BASED ARRAY RTSTRNG [0:0] S(1); 
              ITEM  RT$STRING  C(0,  0,240);
  
          ITEM  RTI$MAXARRAY I;  #MAX VALUE FOR RTI$NXTARRAY           #
          ITEM  RTI$NXTARRAY I;  #INDX TO NXT AVAIL. ENTRY IN RTARRAY  #
          ITEM  RTI$MAXSTRGW I;  #MAX SAFE VALUE FOR RTI$NXTSTRGW      #
          ITEM  RTI$NXTSTRGW I;  #INDX TO NXT AVAIL. WORD IN RAPSTRING #
          ITEM  RTI$NXTSTRGC I;  #INDX TO NXT AVAIL. CHR IN ABOVE WORD #
          ITEM  RT$LSTRING   I;  #NO. OF CHARACTERS IN T$STRING        #
  
  
          END  # OF COMMON BLOCK REPLBLK #
  
          DEF FREE$CMMBLKS
               #IF RPLGRPNOTFRE THEN BEGIN CMM$FGR(RGROUP$REPL); P<RAPNT
KS> = 0; P<RAPARAY> = 0; P<RAPSTRNG> = 0; P<RFPNTKS> = 0; P<RFPARAY> = 0
; P<RFPSTRNG> = 0; P<RTARRAY> = 0; P<RTSTRNG> = 0; RPLGRPNOTFRE = FALSE;
END #;
  
          CONTROL LIST;    # END REPLBLK                               #
