Gee, and I was going to suggest that he should change "THIS IS A TEST" to "HELLO WORLD!" ;-D Patrick "hehehe" (tm Art Bahrs) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Patrick Santucci HP e3000 Systems Administrator Cornerstone Brands, Inc. > -----Original Message----- > From: DASS,JOHN (Non-A-Singapore,ex1) [SMTP:[log in to unmask]] > Sent: Thursday, June 21, 2001 10:31 am > To: [log in to unmask] > Subject: Re: [HP3000-L] Help Starting COBOL > Importance: High > > Hello, > > Thank you very much for all your help from > the list members. You are overwheming - I got > stuck with this for 2 days and now I just send > an email to the list and within minutes, I got > my first COBOL program running on MPE. WOW! > > Thanks all of you, thanks very very much. Peter, > Leonard, Jeff, Dave, Gergory and Curt - thanks for > your sample programs and all the info. > > With your kind help, I did a SET LANG=COBX and > then REN within QEDIT. Changed my code to the > following then saved the file using K(eep) command. > Then I compiled the source using command > COBOLIIGO TEST1. Then SAVE $OLDPASS,TESTP1 and > ran the NMPRG TESTP1 and it worked. > > I also left 2 blank spaces on each line and left the > first line blank (in the source file) as follows : > > 000100 > 001000 IDENTIFICATION DIVISION. > 001100 PROGRAM-ID. A. > 001110 ENVIRONMENT DIVISION. > 001120 DATA DIVISION. > 001200 PROCEDURE DIVISION. > 001300 BEGIN. > 001400 DISPLAY "THIS IS A TEST". > 001410 STOP RUN. > > I love you guys! ... Thanks again! :) > > Cheers! > John > > > > -----Original Message----- > From: DASS,JOHN (Non-A-Singapore,ex1) > Sent: Thursday, June 21, 2001 9:42 PM > To: [log in to unmask] > Subject: Help Starting COBOL > Importance: High > > > > Hello, > > I am pretty new to HP3K and just starting to write > some programs in C and now I would like to try COBOL. > I have downloaded the COBOL II reference manual from > docs.hp but just can't seem to get running. > > I write a simple program as follows to display a > text and the compiler does not compile it. Here is > the sample code : > > IDENTIFICATION DIVISION. > PROGRAM-ID. A. > PROCEDURE DIVISION. > BEGIN. > DISPLAY "THIS IS A TEST". > END PROGRAM A. > > I compiled it using the command COBOLIIGO like this : > > :COBOLIIGO TEST1 > > but it throw me error like this : > > ========================== > > <snip> > > 00009 COBCNTL 000900*CONTROL NOVALIDATE,OPTIMIZE=0 > 00010 COBCNTL 001000* > 00011 COBCNTL 001100* For any other options, redirect COBCNTL.PUB.SYS by > usi > > ng > 00012 COBCNTL 001200* a file equation. > 00013 COBCNTL 001300* > 00014 IDENTIFICATION DIVISION. > > PAGE 0002/COBTEXT COBOL > > > > > COBOL ERRORS: > > > LINE # SEQ # COL ERROR SVRTY TEXT OF MESSAGE > ------ ----- --- ----- ----- --------------- > > > 00014 IDENTI 07 001 W ILLEGAL CHARACTER IN COLUMN 7. > 00014 IDENTI 15 043 W ILLEGAL IDENTIFICATION DIVISION PARAGRAPH. > 00015 IDENTI 15 460 D MISSING IDENTIFICATION DIVISION, COMPILATION > TERMINATED. > > > > 1 ERROR(s), 0 QUESTIONABLE, 2 WARNING(s) > > > *** DISASTROUS ERROR NEAR LINE 00015 *** > *** COMPILATION TERMINATED *** > Symbolic stack marker trace > > 35.102 = ERROR.ABNORMAL'TERMIN+102 > 35.1546 = ERROR.ERROR+1305 > 46.3045 = MAIN'SUB.OB'ERROR+117 > 47.4234 = MAIN.ID'DIV'PRCSSR+1334 > 47.11616 = MAIN.DO'PASS'0+31 > 47.13657 = MAIN.COBOLII+111 > > CHECKED SYNTAX ONLY. > CPU TIME = 0:00:00. WALL TIME = 0:00:00. > > Program terminated in an error state. (CIERR 976) > ======================= > > Can someone please kindly help me to get started > on this Cobol. I have done Cobol on other machines > before (long before) and now I am like a novice. > > Thank you so much in advance, > John > > * To join/leave the list, search archives, change list settings, * > * etc., please visit http://raven.utc.edu/archives/hp3000-l.html * * To join/leave the list, search archives, change list settings, * * etc., please visit http://raven.utc.edu/archives/hp3000-l.html *