PROC MIKESEDITFE (MEDFE) IS (
        LITERAL             INPUTFILE,
        LITERAL             OUTPUTFILE = "",
        LITERAL             TYPE       = "C",
        RESPONSE (RESPONSE) RESP       = RESULT)

BEGIN
 
   STRING PHASE,
          OUTFILE
 
   INT    EDITFILE,
          FLAG
 
   WHENEVER FLAG < 0 THEN
      SMSG("WARNINGS WHEN " + PHASE)
      SRSMSG(FLAG)
      FLAG :- 0
   FI
 
   WHENEVER FLAG > 0 THEN
      SMSG("ERROR WHEN " + PHASE)
      RETURN
   FI
 
   PHASE := "CREATING TEMP EDIT FILE"
 
   CRF(LNA = EDITFILE,
       RES = FLAG)
 
 
   PHASE := "WRITING TEMP EDIT FILE"
 
   IF TYPE STARTSWITH "C" THEN
      WRF(NAM = *EDITFILE,
          REC =
"-E("&
"(C/!CLS/"&
"   T./!CLS/,P.E,I/FILLER                                  /,H"&
"   T.40,P.E,I/PIC 1(8) COMP-5 VALUE IS 12./'"&
" C/!STPRF/"&
"   T./!STPRF/,P.E,I/FILLER                                  /,H"&
"   T.40,P.E,I/PIC 1(8) COMP-5 VALUE IS 18./'"&
" C/!STPR/"&
"   T./!STPR/,P.E,I/FILLER                                  /,H"&
"   T.40,P.E,I/PIC 1(8) COMP-5 VALUE IS 17./'"&
" C/!STUNF/"&
"   T./!STUNF/,P.E,I/FILLER                                  /,H"&
"   T.40,P.E,I/PIC 1(8) COMP-5 VALUE IS 19./'"&
" C/!STUN/"&
"   T./!STUN/,P.E,I/FILLER                                  /,H"&
"   T.40,P.E,I/PIC 1(8) COMP-5 VALUE IS 60./'"&
" C/!BELL/"&
"   T./!BELL/,P.E,I/FILLER                                  /,H"&
"   T.40,P.E,I/PIC 1(8) COMP-5 VALUE IS 47./'"&
" C/!NL/"&
"   T./!NL/,P.E,I/FILLER                                  /,H"&
"   T.40,P.E,I/PIC 1(8) COMP-5 VALUE IS 21./'"&
" C/!MSP/"&
"   T./!MSP/,P.E,I/FILLER                                  /,H"&
"   T.40,P.E,I/PIC 1(8) COMP-5 VALUE IS 32./,G,P-1"&
"   T./!MSP/,P./ /,I/FILLER                          VALUE IS/,H"&
"   T.40,P./VALUE/,I/PIC 1(8) COMP-5 /,T.E'"&
" C/!MNL/"&
"   T./!MNL/,P.E,I/FILLER                                  /,H"&
"   T.40,P.E,I/PIC 1(8) COMP-5 VALUE IS 33./,G,P-1"&
"   T./!MNL/,P./ /,I/FILLER                          VALUE IS/,H"&
"   T.40,P./VALUE/,I/PIC 1(8) COMP-5 /,T.E'"&
" C/!VP/"&
"   T./!VP/,P.E,I/FILLER                                  /,H"&
"   T.40,P.E,I/PIC 1(8) COMP-5 VALUE IS 34./,G,P-1"&
"   T./!VP/,P./ /,I/FILLER                          VALUE IS/,H"&
"   T.40,P./VALUE/,I/PIC 1(8) COMP-5 /,T.E'"&
" C/!HP/"&
"   T./!HP/,P.E,I/FILLER                                  /,H"&
"   T.40,P.E,I/PIC 1(8) COMP-5 VALUE IS 35./,G,P-1"&
"   T./!HP/,P./ /,I/FILLER                          VALUE IS/,H"&
"   T.40,P./VALUE/,I/PIC 1(8) COMP-5 /,T.E'"&
" C/!SOM/"&
"   T./!SOM/,P.E,I/FILLER                                  /,H"&
"   T.40,P.E,I/PIC 1(16) COMP-5 VALUE IS 9990./'"&
" C/!CURSOR/"&
"   T./!CURSOR/,P.E,I/FILLER                                  /,H"&
"   T.40,P.E,I/PIC 1(16) COMP-5 VALUE IS 9991./'"&
"),G),E",
          RES = FLAG)
   ELSF TYPE STARTSWITH "S" THEN
      WRF(NAM = *EDITFILE,
          REC =
"-E("&
"   -CX/!/"&
"      ("&
"          (T./!/"&
"             (F/!CLS/"&
"                R/!CLS/0C/'"&
"              F/!STPRF/"&
"                R/!STPRF/12/'"&
"              F/!STPR/"&
"                R/!STPR/11/'"&
"              F/!STUNF/"&
"                R/!STUNF/13/'"&
"              F/!STUN/"&
"                R/!STUN/3C/'"&
"              F/!BELL/"&
"                R/!BELL/2F/'"&
"              F/!MSP/"&
"                R/!MSP/20/"&
"              F/!MNL/"&
"                R/!MNL/21/'"&
"              F/!VP/"&
"                R/!VP/22/'"&
"              F/!HP/"&
"                R/!HP/23/'"&
"              F/!SOM/"&
"                R/!SOM/2706/'"&
"              F/!CURSOR/"&
"                R/!CURSOR/2707/'"&
"              T.+1"&
"          )'G"&
"       )"&
"    ),G"&
"),E",
          RES = FLAG)
   ELSE
      SMSG("TYPE MUST BE 'C'OBOL OR 'S'CL")
      RETURN
   FI
 
   IF OUTPUTFILE = "" THEN
      OUTFILE := INPUTFILE + "EXP"
   ELSE
      OUTFILE := OUTPUTFILE
   FI
 
 
   PHASE := "EDITING INPUTFILE TO OUTPUTFILE"
 
   ED(OLD = VAL INPUTFILE,
      NEW = VAL OUTFILE,
      EDI = *EDITFILE,
      RES = FLAG)
 
END