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 *