PARM LC_RECS

# FILENAME: LISTCMD2.XEQ - Joe Geiser
#
# PARSE LISTF INTO A FILE & DISPLAY COMMAND FILES
# WITH A FILECODE = 1

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_RECS
  INPUT LC_REC
  IF "![STR("!LC_REC",11,4)]" = "1   " THEN
    ECHO !LC_REC
  ENDIF
  SETVAR LC_CNTR,!LC_CNTR+1
ENDWHILE
ECHO ************* END OF COMMAND FILE LIST &
********************************