I seem to remember years ago (and that's damn hard for me), that you didn't
have to use delimiters, the compiler would truly replace old-string by
new-string.
Ray S.
> -----Original Message-----
> From: Tracy Pierce [SMTP:[log in to unmask]]
> Sent: Tuesday, March 26, 2002 3:30 PM
> To: 'Shahan, Ray'; [log in to unmask]
> Subject: RE: Cobol COPY REPLACING (was: $Include vs. COPY)
>
> 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 *
|
