Retro1.org codex

*DECK LFGRDSR 
USETEXT LFGFET,LFGIOD 
      PROC LFGRDSR(FET,STATIS); 
      BEGIN 
*IF DEF,IMS 
# 
**    LFGRDSR - READ SEQUENTIAL RECORD. 
* 
*     M. E. VATCHER  81/02/23 
* 
*     LFGRDSR READS FROM THE CURRENT POSITION OF THE CURRENT INPUT
*     FILE. 
* 
*     PROC LFGRDSR(FET,STATIS)
* 
*     ENTRY FET       FIRST WORD ADDRESS OF FET 
* 
*     EXIT  STATIS    STATUS RETURNED BY READ 
* 
*     METHOD
* 
*     SET FET IN AND OUT POINTERS AND DO THE READ.
* 
# 
*ENDIF
 
# 
****  PROC LFGRDSR - XREF LIST BEGIN. 
# 
 
      XREF
        BEGIN 
        PROC READ;           # READ A RECORD                           #
        PROC RECALL;         # CHECK COMPLETION BIT                    #
        END 
 
# 
****
# 
 
 
      ITEM FET U; 
      ITEM STATIS U;
 
      P<SIOFET> = FET;
      FETIN = FETFST; 
      FETOUT = FETFST;
      READ(SIOFET); 
      RECALL(SIOFET); 
      STATIS = FETSTAT; 
      END TERM