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 *