*DECK RELPLIN 
USETEXT SSTEXT
          PROC  RELPLINDEX(PLINDEX);
  
#**       RELPLINDEX -  RELEASE PRINT LINE INDEXED ENTRY               #
#                                                                      #
#     CALLING SEQUENCE-                                                #
#         RELPLINDEX(I):                                               #
#                                                                      #
#     DOES-                                                            #
#         ADDS THE ENTRY TO THE LIST OF UNUSED PRINT LINE ENTRIES.     #
  
  
          BEGIN 
          ITEM  PLINDEX      I; 
  
  
  
          XREF
              BEGIN 
              PROC  ABORTSS;           # ABORT SOURCE SCANNER          #
              END 
  
  
          $BEGIN
          IF PLINDEX EQ 0  THEN 
              ABORTSS("RELPLIN-1"); 
          $END
          PL$NEXT[PLINDEX] = PLI$UNUSED;
          PLI$UNUSED = PLINDEX; 
          PLN$UNUSED = PLN$UNUSED + 1;
          PLN$USED = PLN$USED - 1;
          $BEGIN
          IF PLN$USED LS 0  THEN
              ABORTSS("RELPLIN-2"); 
          $END
  
          END # OF RELPLINDEX # 
          TERM
