3 Replies - 883 Views - Last Post: 13 July 2011 - 11:41 AM Rate Topic: -----

#1 bevz  Icon User is offline

  • New D.I.C Head

Reputation: 0
  • View blog
  • Posts: 6
  • Joined: 13-July 11

problem with cobol

Posted 13 July 2011 - 08:17 AM

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

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

Is This A Good Question/Topic? 0
  • +

Replies To: problem with cobol

#2 bevz  Icon User is offline

  • New D.I.C Head

Reputation: 0
  • View blog
  • Posts: 6
  • Joined: 13-July 11

Re: problem with cobol

Posted 13 July 2011 - 09:20 AM

:helpsmilie:

 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

Was This Post Helpful? 0
  • +
  • -

#3 tlhIn`toq  Icon User is offline

  • Please show what you have already tried when asking a question.
  • member icon

Reputation: 5436
  • View blog
  • Posts: 11,656
  • Joined: 02-June 10

Re: problem with cobol

Posted 13 July 2011 - 11:41 AM

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.
Was This Post Helpful? 1
  • +
  • -

#4 tlhIn`toq  Icon User is offline

  • Please show what you have already tried when asking a question.
  • member icon

Reputation: 5436
  • View blog
  • Posts: 11,656
  • Joined: 02-June 10

Re: problem with cobol

Posted 13 July 2011 - 11:41 AM

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.
Was This Post Helpful? 2
  • +
  • -

Page 1 of 1