DSREWIND: PROC(VAP);
    /* 'REWIND' A TEXT FILE TREATED AS A DATA SECTION
        CALL DSREWIND(VAP);
	 VAP (PTR) ->DATASECT CONTROL BLOCK, RETURNED FROM DSOPEN..
    	T DOW 6/17/82
    *******************************/
    DCL VAP PTR;
    DCL 1 DS_CONTROL BASED(VAP),
    	2 LO_ADDR PTR,
    	2 HI_ADDR PTR,
    	2 NEXT_REC PTR;
    NEXT_REC = LO_ADDR;
  END DSREWIND;