PARM LC_NRECS, LC_FCODE

# FILENAME: LISTCOD2.XEQ - Joe Geiser

# PARSE LISTF INTO A FILE & DISPLAY FILES
# WITH THE SPECIFIED FILECODE

SETVAR LC_LC_FCODELEN,LEN("!LC_FCODE")
SETVAR LC_CNTR,5
INPUT LC_REC
INPUT LC_REC
INPUT LC_REC
ECHO !LC_REC
INPUT LC_REC
INPUT LC_REC
WHILE !LC_CNTR < !LC_NRECS
  INPUT LC_REC
  IF "![STR("!LC_REC",11,!LC_LC_FCODELEN)]" = "!LC_FCODE"
    ECHO !LC_REC
  ENDIF
  SETVAR LC_CNTR,!LC_CNTR+1
ENDWHILE
ECHO *************** END OF FILE LIST &
*******************************************