C Integer*4 EDT$M_RECOVER,EDT$M_COMMAND,EDT$M_NOJOURNAL C Integer*4 EDT$M_NOOUTPUT,EDT$M_NOCOMMAND,EDT$M_NOCREATE Parameter EDT$M_RECOVER = 1 ! recover this edit Parameter EDT$M_COMMAND = 2 ! read command file Parameter EDT$M_NOJOURNAL = 4 ! do not open journal Parameter EDT$M_NOOUTPUT = 8 ! do not write output Parameter EDT$M_NOCOMMAND = 16 ! do not read cmd file Parameter EDT$M_NOCREATE = 32 ! do not create C Integer*4 EDT$_INPFILNEX,EDT$_NONSTDFIL Parameter EDT$_INPFILNEX = 8749384 ! input file non-exis Parameter EDT$_NONSTDFIL = 8749395 ! non standard file C Integer*4 EDT$K_OPEN_INPUT, EDT$K_OPEN_OUTPUT_SEQ C Integer*4 EDT$K_OPEN_OUTPUT_NOSEQ,EDT$K_OPEN_IN_OUT,EDT$K_GET C Integer*4 EDT$K_PUT,EDT$K_CLOSE_DEL,EDT$K_CLOSE Parameter EDT$K_OPEN_INPUT = 1 ! open file for read Parameter EDT$K_OPEN_OUTPUT_SEQ = 2 ! open sequenced/write Parameter EDT$K_OPEN_OUTPUT_NOSEQ = 3 ! open nosequenc/write Parameter EDT$K_OPEN_IN_OUT = 4 ! open for read/write Parameter EDT$K_GET = 5 ! read a record Parameter EDT$K_PUT = 6 ! write a record Parameter EDT$K_CLOSE_DEL = 7 ! close and delete Parameter EDT$K_CLOSE = 8 ! close C Integer*4 EDT$K_COMMAND_FILE,EDT$K_INPUT_FILE,EDT$K_INCLUDE_FILE C Integer*4 EDT$K_JOURNAL_FILE,EDT$K_OUTPUT_FILE,EDT$K_WRITE_FILE Parameter EDT$K_COMMAND_FILE = 1 ! stream /command Parameter EDT$K_INPUT_FILE = 2 ! stream for read Parameter EDT$K_INCLUDE_FILE = 3 ! stream on "include" Parameter EDT$K_JOURNAL_FILE = 4 ! stream of journal Parameter EDT$K_OUTPUT_FILE = 5 ! stream of output Parameter EDT$K_WRITE_FILE = 6 ! stream on "write"