I bet the rules are as simple as "non-space non-cobol-valid character".
Doug's example using not ?? not () but ^: blew me away.
> -----Original Message-----
> From: Shahan, Ray [mailto:[log in to unmask]]
> Sent: Tuesday, March 26, 2002 12:39 PM
> To: [log in to unmask]
> Subject: Re: Cobol COPY REPLACING (was: $Include vs. COPY)
>
>
> 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 *
>
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
|