So, another example of the manual being less than complete/accurate? I
don't have time to check our compiler (assuming a diff version), but your
example appears to work...cool.
Ray S.
> -----Original Message-----
> From: Doug Werth [SMTP:[log in to unmask]]
> Sent: Tuesday, March 26, 2002 2:10 PM
> To: Shahan, Ray; [log in to unmask]
> Subject: Re: Cobol COPY REPLACING (was: $Include vs. COPY)
>
> Ray writes:
>
> > Iv'e tried other delimiters, but had no success...the parenteses work as
> > stated in the dicumentation.
>
> Here is an example of using another delimiter.
>
> :cobedit
> HP32233A.02.02 COPYLIB EDITOR - COBEDIT TUE, MAR 26, 2002, 2:55 PM
> (C) HEWLETT-PACKARD CO. 1986
>
> TYPE "HELP" FOR A LIST OF COMMANDS.
> >lib copylib
> >list activ
>
> Text-name ACTIV
>
> 001000
> 001100 01 ACTIVITY-RECORD.
> 001200 05 ?AC-?VEH-OR-UNIT.
> 001300 10 ?AC-?UNIT-TYPE.
> 001400 15 ?AC-?VEH-NO PIC 9(4).
> 001500 15 PIC X(4).
> 001600 10 ?AC-?UNIT-SER-NO PIC X(10).
> 001700 05 ?AC-?ACT-CODE PIC X(6).
> 001800 05 ?AC-?COMPL-CODE PIC XX.
> 001900 05 ?AC-?ROAD-CALL PIC XX.
> >exit
> :cob85xl copyt
>
>
> PAGE 0001 COBOL II/iX HP31500A.04.19 [85] Copyright Hewlett-Packard CO.
> 1987
>
>
> 00001 COBCNTL 000100* The following are defaults for Compatibility mode
> compi
>
> ler.
> 00002 COBCNTL 000200*CONTROL
> LIST,SOURCE,NOCODE,NOCROSSREF,ERRORS=100,NOVERBS,
>
> WARN
> 00003 COBCNTL 000300*CONTROL
> LINES=60,NOMAP,MIXED,QUOTE=",NOSTDWARN,SYNC16,IND
>
> EX16
> 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,IND
>
> EX32
> 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 001000$CONTROL USLINIT,BOUNDS,POST85
> 00015 001100 IDENTIFICATION DIVISION.
> 00016 001200 PROGRAM-ID. COPYT.
> 00017 001300 ENVIRONMENT DIVISION.
> 00018 001400 CONFIGURATION SECTION.
> 00019 001500 SPECIAL-NAMES.
> 00020 001600 CONDITION-CODE IS C-C.
> 00021 001700 INPUT-OUTPUT SECTION.
> 00022 001800
> 00023 002100 I-O-CONTROL.
> 00024 002200 DATA DIVISION.
> 00025 002700 WORKING-STORAGE SECTION.
> 00026 002800
> 00027 002900 COPY ACTIV
> 00028 003000 REPLACING ==?AC-?== BY ==XC-==.
> 00028 ACTIV 001000
> 00029 ACTIV 001100 01 ACTIVITY-RECORD.
> 00030 ACTIV 001200 05 XC-VEH-OR-UNIT.
> 00031 ACTIV 001300 10 XC-UNIT-TYPE.
> 00032 ACTIV 001400 15 XC-VEH-NO PIC 9(4).
> 00033 ACTIV 001500 15 PIC X(4).
> 00034 ACTIV 001600 10 XC-UNIT-SER-NO PIC X(10).
> 00035 ACTIV 001700 05 XC-ACT-CODE PIC X(6).
> 00036 ACTIV 001800 05 XC-COMPL-CODE PIC XX.
> 00037 ACTIV 001900 05 XC-ROAD-CALL PIC XX.
> 00038 003100
> 00039 003200 01 PROGRAM-NAME PIC X(26) VALUE SPACES.
> 00040 003300 01 FSTAT PIC XX.
> 00041 003400
> 00042 003700 PROCEDURE DIVISION.
> 00043 003800 0000-CONTROL-PROCESS.
> 00044 003900
> 00045 004000 STOP RUN.
>
>
> 0 ERROR(s), 0 QUESTIONABLE, 0 WARNING(s)
>
> DATA AREA IS 64 BYTES.
> CPU TIME = 0:00:00. WALL TIME = 0:00:00.
>
> END OF PROGRAM
> END OF COMPILE
> :
>
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
|
