IDENTIFICATION DIVISION.
	PROGRAM-ID. SCRCREAT.
      *This program is a general create program that needs to be
      *modified to meet the specifications for creating the label
      *file.  Need to change the output fields and file and the
      *accompanying screen fields to accomodate the specifications for
      *the label program.
	ENVIRONMENT DIVISION.
	INPUT-OUTPUT SECTION.
	FILE-CONTROL.
        SELECT OUTPUT-FILE
            ASSIGN TO "C:\MFCOBOL\SOURCEPG\C12FIRST.DAT".
	DATA DIVISION.
	FILE SECTION.
        FD  OUTPUT-FILE
            DATA RECORD IS OUTPUT-REC.
        01  OUTPUT-REC.
            05  FIELD1     PIC XXXX.
            05  FIELD2     PIC X(20).
            05  FIELD3     PIC X(20).
            05  FIELD4     PIC X(15).
            05  FIELD5     PIC XX.
            05  FIELD6     PIC XXXXX.
            05  FILLER     PIC X(10).
       WORKING-STORAGE SECTION.
       01 RESPONSES.
	     05	 TERMINATE-ANS	 PIC X	      VALUE SPACES.
       SCREEN SECTION.
       01  DATA-ENTRY-SCREEN.
	   05  VALUE "DATA ENTRY SCREEN"      BLANK SCREEN
					      LINE 01 COL 30.
           05  VALUE "FIELD1: "               LINE 03 COL 05.
           05  FIELD1-IN                      LINE 03 COL 15
                   PIC XXXX         TO FIELD1.
           05  VALUE "FIELD2:"                LINE 04 COL 05.
           05  FIELD2-IN                      LINE 04 COL 15
                   PIC X(20)      TO FIELD2.
           05  VALUE "FIELD3:"                LINE 05 COL 05.
           05  FIELD3-IN                      LINE 05 COL 15
                   PIC X(20)       TO FIELD3.
           05  VALUE "FIELD4:"                LINE 06 COL 05.
           05  FIELD4-IN                      LINE 06 COL 15
                   PIC X(15)       TO FIELD4.
           05  VALUE "FIELD5:"                LINE 07 COL 05.
           05  FIELD5-IN                      LINE 07 COL 15
                   PIC XX        TO FIELD5.
           05  VALUE "FIELD6:"                LINE 08 COL 05.
           05  FIELD6-IN                      LINE 08 COL 15
                   PIC XXXXX     TO FIELD6.
	   05  VALUE "C - TO CONTINUE"	      LINE 16 COL 30.
	   05  VALUE "Q - TO QUIT"	      LINE 17 COL 30.
	   05  VALUE "ENTER CHOICE:"	      LINE 19 COL 30.
	   05  RESPONSE-SCR		      LINE 19 COL 45
		   PIC X     TO TERMINATE-ANS.
       PROCEDURE DIVISION.
       MAINLINE.
            PERFORM A-100-SETUP.
            PERFORM B-100-PROCESS.
            PERFORM C-100-WRAPUP.
            STOP RUN.
       A-100-SETUP.
            OPEN OUTPUT OUTPUT-FILE.
       B-100-PROCESS.
            MOVE SPACES TO OUTPUT-REC.
	    DISPLAY DATA-ENTRY-SCREEN.
	    ACCEPT DATA-ENTRY-SCREEN.
            PERFORM B-200-LOOP
               UNTIL TERMINATE-ANS = "Q".
       B-200-LOOP.
	    IF TERMINATE-ANS = "C"
                WRITE OUTPUT-REC
            MOVE SPACES TO OUTPUT-REC.
	    DISPLAY DATA-ENTRY-SCREEN.
            ACCEPT DATA-ENTRY-SCREEN.
       C-100-WRAPUP.
            CLOSE OUTPUT-FILE.