PPT Slide
Can dramatically improve performance accessing data!
...
CALL "RXVSAM" "OPEN FILE(FILE1) SEQ"
/* Open file */
/* ONLY RETRIEVE THE RECORD THAT ARE TYPE 1 OR TYPE 2 */
/* RECORD TYPE IS IN POSITION 10 */
DO UNTIL VSAMCODE<ɬ
RC= RXVSAM ("READNEXT FILE(FILE1)INTO(RCD)", "WHERE(10,EQ,'1',OR,10,EQ,'2')")
IF RC<ɬ THEN DO
...
END