[bevz]

what does continuation character expected. End of literal assumed means?

This post has been edited by bevz: 13 July 2011 - 08:19 AM

[bevz]

 IDENTIFICATION DIVISION.
 PROGRAM-ID. MYMCH01.
 AUTHOR. BEVERLY ENCARGUEZ TURIANA.
 INSTALLATION. N21.
 DATE-WRITTEN. 09-JUL-2011. 
 DATE-COMPILED. 
 SECURITY. N21.
 
 ENVIRONMENT DIVISION.
 CONFIGURATION SECTION.
 SOURCE-COMPUTER. ACER-4750G.
 OBJECT-COMPUTER. ACER-4750G.
 
 INPUT-OUTPUT SECTION.
 FILE-CONTROL.  
     SELECT MYMCH01-IN-FILE ASSIGN TO "MYMCH01.IN"
            ORGANIZATION IS LINE SEQUENTIAL.
            
     SELECT MYMCH01-OUT-FILE ASSIGN TO "MYMCH01.RPT".
   
 DATA DIVISION.
 FILE SECTION.
 FD  MYMCH01-IN-FILE.
 01  MY-INPUT-RECORD.
     02 EMPLOYEE-NO                 PIC X(8).
     02 EMPLOYEE-NAME.
         03 EMPLOYEE-LASTNAME         PIC X(15).
         03 EMPLOYEE-FIRSTNAME        PIC X(15).
         03 EMPLOYEE-MIDDLENAME       PIC X(15).
     02 EMPLOYEE-ADDRESS.
         03 HOUSE-NO				  PIC X(15).
         03 HOUSE-STREET              PIC X(15).
         03 CITY-MUNICIPALITY         PIC X(15).
         03 EMPLOYEE-PROVINCE         PIC X(15).
         03 ZIP-CODE                  PIC 9(4).
     02 BIRTH-DATE.
         03 BIRTH-YYYY				  PIC 9(4).
         03 BIRTH-MM				  PIC 9(2).
         03 BIRTH-DD				  PIC 9(2).
     02 GENDER	   			          PIC X.
         88 MALE					  VALUE "M".
         88 FEMALE					  VALUE "F".   
         
 FD  MYMCH01-OUT-FILE.
 01  MY-OUTPUT-RECORD  PIC X(80).   

 WORKING-STORAGE SECTION.
 01  HEADER-LINE1.
     02 FILLER 		  PIC X(2)	  VALUE "MM".
     02 FILLER		  PIC X       VALUE "/".
     02 FILLER 		  PIC X(2)    VALUE "DD".
     02 FILLER		  PIC X       VALUE "/".
     02 FILLER 		  PIC X(2)	  VALUE "MM".
     02 FILLER		  PIC X	      VALUE "/".
     02 FILLER		  PIC X(4)    VALUE "YYYY".
     02 FILLER 		  PIC X(13)   VALUE SPACES.
     02 FILLER 		  PIC X(22)   VALUE "EMPLOYEE STATUS REPORT".
     02 FILLER		  PIC X(13)   VALUE SPACES.
     02 FILLER        PIC X(7)    VALUE "PAGE Z9".
     
 01 DETAIL-LABEL.
     02 FILLER 		PIC X(8) 	VALUE "EMP-NO".
     02 FILLER		PIC X	 	VALUE SPACE.
     02 FILLER 		PIC X(15)	VALUE "FIRST NAME".
     02 FILLER 		PIC X		VALUE SPACE.
     02 FILLER		PIC X(15)	VALUE "MIDDLE NAME".
     02 FILLER		PIC X		VALUE SPACE.
     02 FILLER		PIC X(15)	VALUE "LAST NAME".
     02 FILLER		PIC X		VALUE SPACE.
     02 FILLER		PIC X(8) 	VALUE "POSITION".
     02 FILLER		PIC X		VALUE SPACE.
     02 FILLER		PIC X(3)	VALUE "STS".
     02 FILLER		PIC X		VALUE SPACE.
     02 FILLER		PIC X(10)	VALUE "ENTRY-DATE".
     
 01 DETAIL-LINE1.
     02 DL1-EMPLOYEE-NO		PIC X(8)	VALUE "EEEEEEEE".
     02 FILLER		PIC X		VALUE SPACE.
     02 DL1-EMPLOYEE-FIRSTNAME		PIC X(15)	VALUE "FFFFFFFFFFFFFFF".
     02 FILLER		PIC X		VALUE SPACE.
     02 DL3-EMPLOYEE-MIDDLENAME		PIC X(15)	VALUE "MMMMMMMMMMMMMMM".
     02 FILLER		PIC X		VALUE SPACE.
     02 DL1-EMPLOYEE-LASTNAME		PIC X(15)	VALUE "LLLLLLLLLLLLLLL".
     02 FILLER		PIC X		VALUE SPACE.
     02 DL1-POSITION		PIC X(3)		VALUE "PPP".
     02 FILLER		PIC X		VALUE SPACE.
     02 DL1-STS			PIC X		VALUE "1".
     02 FILLER		PIC X VALUE SPACE.
     02 DL1-ENTRY-DATE.
     	03 DL1-ENTRY-DATE-YYYY		PIC X(4)		VALUE "YYYY".
     	03 FILLER 	PIC X		VALUE "-".
     	03 DL1-ENTRY-DATE-MM		PIC X(2)		VALUE "MM".
     	03 FILLER	PIC X		VALUE "-".
     	03 DL1-ENTRY-DATE-DD		PIC X(2)		VALUE "DD".
     	
     	
 PROCEDURE DIVISION.
 100-MAIN-RTN.
 	 DISPLAY  HEADER-LINE1.
 	 DISPLAY DETAIL-LABEL.
 	 DISPLAY DETAIL-LINE1.
 	 STOP RUN.

This post has been edited by JackOfAllTrades: 15 July 2011 - 05:08 PM
Reason for edit:: Added code tags

[tlhIn`toq]

Please don't open second threads for hte same topic.
Can somone with priviledges please merge these threads?
http://www.dreaminco...lem-with-cobol/
http://www.dreaminco...-please-helpme/

How to do a good search that will get you targeted answers.

[tlhIn`toq]

Please don't open second threads for hte same topic.
Can somone with priviledges please merge these threads?
http://www.dreaminco...lem-with-cobol/
http://www.dreaminco...-please-helpme/

How to do a good search that will get you targeted answers.