Retro1.org codex

*DECK LFGSKIP 
USETEXT LFGIOD
      PROC LFGSKIP; 
      BEGIN                  # SKIP TRAILER RECORDS                    #
*IF DEF,IMS 
# 
**    LFGSKIP - SKIP TRAILER RECORDS. 
* 
*     M. E. VATCHER  81/02/23 
* 
*     LFGSKIP SKIPS TRAILER RECORDS ON THE CURRENT INPUT FILE.
* 
*     PROC LFGSKIP
* 
*     ENTRY NONE. 
* 
*     EXIT  NONE. 
* 
*     METHOD
* 
*     DO READS UNTIL AN EOF OR EOI IS ENCOUNTERED.
* 
# 
*ENDIF
 
# 
****  PROC LFGSKIP - XREF LIST BEGIN. 
# 
 
      XREF
        BEGIN 
        ITEM IFET;           # INPUT FILE FET ADDRESS                  #
        PROC LFGRDSR;        # READ SEQUENTIAL RECORD                  #
        END 
 
# 
****
# 
 
 
      ITEM DONE B;           # LOOP END INDICATOR                      #
      ITEM I U;              # LOOP INDEX                              #
      ITEM STATIS U;         # STATUS FROM READ                        #
 
      DONE = FALSE; 
      FOR I = 1 STEP 1 WHILE NOT DONE DO
        BEGIN 
        LFGRDSR(LOC(IFET),STATIS); # READ A RECORD                     #
        IF STATIS EQ RDEOF OR STATIS EQ RDEOI 
        THEN                 # THIS IS THE END OF A PARTITION          #
          BEGIN 
          DONE = TRUE;
          TEST I; 
 
          END 
        END                  # GET NEXT RECORD                         #
      END TERM