HP3000-L Archives

May 2002, Week 5

HP3000-L@RAVEN.UTC.EDU
Options: Use Monospaced Font
Show Text Part by Default
Show All Mail Headers

Message: [<< First] [< Prev] [Next >] [Last >>]
Topic: [<< First] [< Prev] [Next >] [Last >>]
Author: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Subject:
Re: COBOL MPE to ??? language syntax and feature comparison.
From:
Michael Berkowitz <[log in to unmask]>
Reply To:
Michael Berkowitz <[log in to unmask]>
Date:
Thu, 30 May 2002 11:10:29 -0700
Content-Type:
text/plain
Parts/Attachments:
text/plain (69 lines) 
David Darnell writes


Where can I find a cross-reference between HP's COBOL languages and COBOL
compilers available on Unixen, to determine which HP COBOL features,
keywords, etc. must be changed?
--------------------------------------------------------
Use the $CONTROL STDWARN=HIGH or other options as necessary.

:COB85XL TESTSTDS

PAGE 0001  COBOL II/iX HP31500A.04.20  [85] Copyright Hewlett-Packard CO.
1987

 00001 COBCNTL  000100*  The following are defaults for Compatibility mode
compiler.
 00002 COBCNTL  000200*CONTROL
LIST,SOURCE,NOCODE,NOCROSSREF,ERRORS=100,NOVERBS,WARN
 00003 COBCNTL  000300*CONTROL
LINES=60,NOMAP,MIXED,QUOTE=",NOSTDWARN,SYNC16,INDEX16
 00004 COBCNTL  000400*
 00005 COBCNTL  000500*  The following are defaults for Native compiler.
 00006 COBCNTL  000600*
 00007 COBCNTL  000700*CONTROL
LIST,SOURCE,NOCODE,NOCROSSREF,ERRORS=100,NOVERBS,WARN
 00008 COBCNTL  000800*CONTROL
LINES=60,NOMAP,MIXED,QUOTE=",NOSTDWARN,SYNC32,INDEX32
 00009 COBCNTL  000900*CONTROL NOVALIDATE,OPTIMIZE=0
 00010 COBCNTL  001000*
 00011 COBCNTL  001100*   For any other options, redirect COBCNTL.PUB.SYS by
using
 00012 COBCNTL  001200*   a file equation.
 00013 COBCNTL  001300*
 00014          001000$CONTROL STDWARN=HIGH
 00015          001100 IDENTIFICATION DIVISION.
 00016          001200 PROGRAM-ID. TESTSTD.
 00017          001300 PROCEDURE DIVISION.
 00018          001400 000-MAIN.
 00019          001500     CALL INTRINSIC "TERMINATE".

PAGE 0002/COBTEXT  TESTSTD         COBOL ERRORS and WARNINGS


USAGE OF NONSTANDARD COBOL:


LINE #   SEQ #  COL  ERROR  SEV   TEXT OF MESSAGE
------  ------  ---  -----  ---   ---------------


 00019  001500  12    517    N    CALL INTRINSIC or GIVING is nonconforming
                                  nonstandard (HP extension).


0 ERROR(s), 0 QUESTIONABLE, 0 WARNING(s), 1 USE(s) OF NONSTANDARD COBOL

    DATA AREA IS       28 BYTES.
    CPU TIME = 0:00:00.  WALL TIME = 0:00:01.

END OF PROGRAM
END OF COMPILE
:

Mike Berkowitz
Guess? Inc.

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *

ATOM RSS1 RSS2