HP3000 Manuals

COBEDIT Commands [ HP COBOL II/XL Reference Manual ]

HP COBOL II/XL Reference Manual

COBEDIT Commands 

There are 10 commands in the COBEDIT program.  Each is listed in Table
G-1  and discussed on the following pages.  Note that user input is
underlined in each example of the commands.

          Table G-1.  COBEDIT Commands 

---------------------------------------------------------------------------
|                   |                                                     |
|      Command      |                       Meaning                       |
|                   |                                                     |
---------------------------------------------------------------------------
|                   |                                                     |
| BUILD             | Build a COPYLIB file.                               |
|                   |                                                     |
| COPY              | Copy modules into the library as in the BUILD       |
|                   | command.                                            |
|                   |                                                     |
| EDIT              | Create or edit a module to add to a COPYLIB file.   |
|                   |                                                     |
| EXIT              | Leave the COBEDIT program.                          |
|                   |                                                     |
| HELP              | List all COBEDIT commands.                          |
|                   |                                                     |
| KEEP              | Add a module to the currently active COPYLIB file.  |
|                   |                                                     |
| LIBRARY           | Activate an already existing COPYLIB file.          |
|                   |                                                     |
| LIST              | List text-names or one or more modules of the       |
|                   | currently active COPYLIB file.                      |
|                   |                                                     |
| PURGE             | Purge a module of the currently active library or   |
|                   | purge the library itself.                           |
|                   |                                                     |
| SHOW              | Show the name of the current library, its key file  |
|                   | and the latest module to be accessed.               |
|                   |                                                     |
---------------------------------------------------------------------------

BUILD Command 

The BUILD command allows you to build a new KSAM file to be used as a
library file.  Once this library file is built, it remains open and
available for use until you exit the COBEDIT program, or specify a new
library by issuing another BUILD command or a LIBRARY command.

Syntax.   

     BUILD [ file-name ] [ ,maxrecs ]

Parameters.   

file-name             any name you wish to give your new library file,
                      subject to the naming conventions for any MPE file.
                      The file-name may be from one to eight alphanumeric
                      characters, the first of which must be alphabetic.

maxrecs               if specified, must be greater than 0.  It specifies
                      the maximum number of records that may be placed in
                      the file being built.  If no value is specified for
                      maxrecs, the default is 2500.

Description.   

If a file name is not specified, COBEDIT prompts you for one.  After you
are prompted for a name, a second chance to provide a file name is given
if RETURN is pressed.  If RETURN is pressed again, the BUILD command is
terminated and no library file is created.

If you name a file in the BUILD command, or if a name is specified when
COBEDIT prompts you for one, you are next prompted for a name to be used
as the key file for the library file being created.

The restrictions on the key file name are the same as for file-name.

If RETURN is pressed, an MPE file system error message is listed,
followed by an error message from COBEDIT. Then, the BUILD command is
terminated.

Once a library file and an associated key file have been named, the
COBEDIT program attempts to create a KSAM file using the specified names.
If this attempt fails, an MPE error message is generated.  Otherwise, you
are given the opportunity to copy a file into your newly created library
file.  When the file name prompt is given and, if you respond with a
carriage return, the BUILD command is terminated.  To copy a file into
the library file, the name of the file must be typed in response to the
prompt.  This name can be fully qualified and specified in the form
filename.group.account.

You must have the capability to access files in a group or account other
than your own.  One of the ways this is accomplished is by using the MPE
RELEASE command.  See the MPE XL Commands Reference Manual for details.
Also, see the Account Structure and Security Reference Manual for details
on file security and access.

If you do not have access to the specified file, the following message is
returned:

     SECURITY VIOLATION (FSERR 93)
     BUILD TERMINATED

After the file has been specified, you are asked if the file is in
COPYLIB format.  This is equivalent to asking you if the file to be
copied has text-names in columns 73 through 80.

If you respond with Y for YES, COBEDIT attempts to copy the requested
file.  Note that if the text-name is blank, the COBEDIT program copies
the records into your library and assigns a default text-name, BOO-BOO.

If a negative response is given, COBEDIT asks you for a text-name to be
used for the copied records.  This text-name must be from one to eight
characters long.

After a file has been copied into your library, you are asked if there
are more files to be copied.  A negative response terminates the BUILD
command.  A positive response causes the COBEDIT program to repeat the
questions and actions described in the preceding three paragraphs.


NOTE If the file to be copied is in copylib format and has duplicate copies of one or more modules, COBEDIT gives an error message.
Examples. To illustrate the BUILD command, user input is underlined: >BUILD What is the name of your library file? MYLIB Name a key file to be used with MYLIB: KMYLIB To copy a file into MYLIB now, enter the file name. File name? COBCOPY Is the file in copylib format? NO Text-name for library module? MODULE1 5 records copied to library file. Do you wish to copy more files? Respond YES or NO: NO Library file created; requested file(s) copied. > >BUILD MYLIB Name a key file to be used with MYLIB: MYLIBKEY Unable to create KSAM file DUPLICATE PERMANENT FILE NAME (FSERR 100) > Note that if you name a file to be copied into your library file and the library file does not have a sufficient amount of free space to contain the records of the file being copied, no records are copied and the BUILD command is terminated. A library file that is too small to contain the records from a specified file is used to illustrate this. >BUILD ATLAS, 3 Name a key file to be used with ATLAS: KEYATLAS To copy a file into ATLAS now, enter the file name. File name? COBCOPY NOT ENOUGH ROOM FOR FILE COBCOPY 0 records copied to library file. BUILD TERMINATED > [REV BEG] If you are building a KSAM/XL COPY library, the name of the key file is ignored because KSAM/XL files do not use a key file. When the BUILD command prompts you for a key file name, press the RETURN key. Example. To create a KSAM/XL copy file: :FILE MYLIB;KSAMXL :COBEDIT >BUILD *MYLIB Name a key file to be used with *MYLIB: <RETURN> : Library file created. [REV END] COPY Command The COPY command allows you to copy additional modules into a library that was created previously using the BUILD command. To use COPY, the library must be the current library or it must be activated by using the LIBRARY command. COPY prompts and executes in a way similar to the BUILD command. Syntax. COPY Example. :RUN COBEDIT.PUB.SYS HP32233A.02.00 COPYLIB EDITOR - COBEDIT MON, MAR 26, 1991, 10:12 AM (C) HEWLETT-PACKARD CO. 1986 TYPE "HELP" FOR A LIST OF COMMANDS. >COPY No library is open. >LIB MYLIB >COPY To copy a file into MYLIB now, enter the file name. File name? COBCOPY Is the file in copylib format? NO Text-name for Library module? MOD2 13 records copied to library file. Do you wish to copy more files? Respond YES or NO: NO Requested file(s) copied. >EXIT END OF PROGRAM EDIT Command The EDIT command calls the EDIT/3000 subsystem, and optionally allows you to name a module from the currently active library to be edited. Syntax. EDIT [ text-name ] Parameters. text-name the name of a module in the currently active library. Description. EDTXT is created by COBEDIT as a permanent file when required for edit operations. EDTXT is purged by COBEDIT when no longer required. Thus, only one user per logon group can be editing any library file. EDTXT is the name of the temporary text file used as the interface between COBEDIT and EDIT/3000. If you name a module to be edited, a copy of the module, excluding the text-name in columns 73 through 80, is moved into EDTXT. If a module is not named, a single blank record with a record number of .001 is moved into EDTXT. This blank record is placed in EDTXT in order to place the EDIT/3000 work file in COBOL format. If you do not want to use the blank record, delete it. Once you have entered the EDIT/3000 subsystem, any of its features, except two can be used to perform any editing task. The two features you cannot use are the TEXT and KEEP commands. The TEXT command cannot be used since EDTXT is automatically used as the TEXT file when you enter the EDIT command. However, you can use the JOIN command to append ASCII files to EDTXT. The KEEP command cannot be used for the same reason. An automatic KEEP is issued, naming EDTXT as the KEEP file. Example 1. >EDIT HP32201A.07.20 EDIT/3000 TUE, MAR 26, 1991, 10:15 AM (C) HEWLETT-PACKARD CO. 1990 NOTE: FORMAT=COBOL VALUES SET FOR LENGTH,RIGHT,FROM,DELTA,FRONT /L ALL .001 /D .001 *** WARNING *** WORK FILE IS EMPTY. /A 1 $CONTROL SUBPROGRAM 1.1 PROGRAM-ID. FRESHTEST. 1.2 AUTHOR. JAMES FISH. 1.3 // ... /KEEP MINE INVALID COMMAND /E EDTXT ALREADY EXISTS - RESPOND YES TO PURGE OLD AND KEEP NEW PURGE OLD?Y > In the example above, note the error message, INVALID COMMAND, which follows a KEEP command attempted while in the EDIT/3000 text editor. You can not use the EDIT/3000 KEEP command to keep the file MINE because an automatic KEEP is issued, naming EDTXT as the KEEP file. However, to keep the data entered in EDTXT in your copylib, you must use the COBEDIT KEEP command. The COBEDIT KEEP command is fully explained later. Example 2. >EDIT MODULE1 Previous Edit text was not saved. OK to clear? (Y/N) Y HP32201A.07.20 EDIT/3000 TUE, MAR 26, 1991, 10:18 AM (C) HEWLETT-PACKARD CO. 1990 NOTE: FORMAT=COBOL VALUES SET FOR LENGTH,RIGHT,FROM,DELTA,FRONT /L ALL 1. SORT-PARA. 1.1 SORT SORTFL ON ASCENDING KEY FIRST-KEY 1.2 INPUT PROCEDURE IS INP-SECTION 1.3 OUTPUT PROCEDURE IS OUTP-SECTION 1.4 THROUGH OUTP-END-SECTION. /ADD 1.5 INP_SECTION. 1.6 OPEN INPUT FILE-IN 1.7 IF IN-REC IS ALPHABETIC 1.8 THEN RELEASE IN-REC 1.9 ELSE NEXT SENTENCE. 2.0 CLOSE FILE-IN. 2.1 OUTP-SECTION. 2.2 OPEN OUTPUT FILE-OUT. 2.3 IF SORT-REC IS NOT NUMERIC 2.4 THEN RETURN SORTFL RECORD INTO FOR-WRITE 2.5 WRITE REC-OUT FROM FOR-WRITE; 2.6 ELSE NEXT SENTENCE. 2.7 OUTP-END-SECTION. 2.8 CLOSE FILE-OUT. 2.9 // ... /E EDTXT ALREADY EXISTS - RESPOND YES TO PURGE OLD AND KEEP NEW PURGE OLD?Y > In the example above, when the EDIT command is issued, the module named MODULE1 is specified. Note the message immediately following the EDIT command above. This message is issued because the data stored in EDTXT was not kept to the library file before the EDIT command was issued. Since the response to the CLEAR question is Y (yes), EDTXT is cleared, and the records of MODULE1 are copied into it. Also, although records have been copied from MODULE1, the records of MODULE1 are still in the library file. These are kept in the library file by issuing a KEEP command for the records in EDTXT, using a different text-name, or the same name. Example 3. As a final illustration of using the EDIT command, a file created outside of the COBEDIT program is joined to the work space associated with EDTXT. >EDIT Previous Edit text was not saved. OK to clear? (Y/N) N > >KEEP MODULE4 >EDIT HP32201A.07.20 EDIT/3000 TUE, MAR 26, 1991, 10:21 AM (C) HEWLETT-PACKARD CO. 1990 NOTE: FORMAT=COBOL VALUES SET FOR LENGTH,RIGHT,FROM,DELTA,FRONT /L ALL .001 /M MODIFY .001 R* THIS MODULE IS CREATED BY JOINING THE FILE, FROMEDIT, * THIS MODULE IS CREATED BY JOINING THE FILE, FROMEDIT /A .101* TO THE CURRENT WORK FILE. .201// ... /JOINQ FROMEDIT NUMBER OF LINES JOINED =2 /L ALL .001* THIS MODULE IS CREATED BY JOINING THE FILE, FROMEDIT, .101* TO THE CURRENT WORKFILE. .201* THIS LINE AND THE FOLLOWING WERE JOINED TO THE WORK .301* FILE FROM THE FILE, FROMEDIT. /E EDTXT ALREADY EXISTS - RESPOND YES TO PURGE OLD AND KEEP NEW PURGE OLD? Y > EXIT Command The EXIT command is used to exit the COBEDIT program. Syntax. E[XIT] Description. To exit COBEDIT, type EXIT or E. If you have used the EDIT command, and no KEEP command was issued before the EXIT command is executed, the following message is displayed: Edit text not empty. OK to clear? If you respond with anything except Y or YES, the EXIT command terminates, and COBEDIT remains active. A Y or YES response causes COBEDIT to clear EDTXT, close the currently active library, and cease execution. If a KEEP command has been performed for the current contents of EDTXT, or if the EDIT command was not used during the current execution of the COBEDIT program, then when the EXIT command is executed, COBEDIT ceases execution with no warning message. Example 1. >EDIT HP32201A.07.20 EDIT/3000 TUE, MAR 26, 1991, 10:25 AM (C) HEWLETT-PACKARD CO. 1990 NOTE: FORMAT=COBOL VALUES SET FOR LENGTH,RIGHT,FROM,DELTA,FRONT /L ALL .001 /E EDTXT ALREADY EXISTS - RESPOND YES TO PURGE OLD AND KEEP NEW PURGE OLD? Y >EXIT Edit text not empty. OK to clear? Y END OF PROGRAM : Example 2. :RUN COBEDIT.PUB.SYS HP32233A.02.00 COPYLIB EDITOR - COBEDIT MON, MAR 26, 1991, 10:26 AM (C) HEWLETT-PACKARD CO. 1986 TYPE "HELP" FOR A LIST OF COMMANDS. >E END OF PROGRAM : Example 3. :RUN COBEDIT.PUB.SYS HP32233A.02.00 COPYLIB EDITOR - COBEDIT MON, MAR 26, 1991, 10:27 AM (C) HEWLETT-PACKARD CO. 1986 TYPE "HELP" FOR A LIST OF COMMANDS. >LIB MYLIB >LIST ALL Text-name MODULE1 001000$CONTROL SUBPROGRAM 001100 IDENTIFICATION DIVISION. 001200 PROGRAM-ID. DUMMY-SUB. Text-name MODULE2 005100 WORKING-STORAGE SECTION. 005200 01 UNIV-TOTALER PIC 9(8) COMP-3. 005300 01 UNIV-ACCUM PIC 9(8) COMP-3. Text-name MODULE3 008000 PERFORM TEST-IT. 008100 IF RESULTANT IS LESS THAN 2 008200 PERFORM TEST-FAILED; 008300 ELSE NEXT SENTENCE. >EDIT HP32201A.07.20 EDIT/3000 TUE, MAR 26, 1991, 10:28 AM (C) HEWLETT-PACKARD CO. 1990 NOTE: FORMAT=COBOL VALUES SET FOR LENGTH,RIGHT,FROM,DELTA,FRONT /L ALL .001 /A .101* THIS IS TO SHOW WHAT HAPPENS WHEN A KEEP COMMAND .201* IS ISSUED BEFORE THE EXIT COMMAND IS USED. .301// ... /E EDTXT ALREADY EXISTS - RESPOND YES TO PURGE OLD AND KEEP NEW PURGE OLD? Y >KEEP MOD4 >E END OF PROGRAM : HELP Command The HELP command lists and gives a brief description of all commands available in the COBEDIT program. Syntax. HELP Example. > HELP The following is a list of COBEDIT commands: BUILD library-name [ , filesize ] Create a new library file with name "library-name". COPY Copy modules into library, as in Build command. EDIT [ text-name ] Activate EDIT/3000 and text in that module of the current library which contains "text-name" in the id field. EXIT Exit the COBEDIT program. HELP Display a list of COBEDIT commands. KEEP [ text-name ] Insert an (edited) module in the current library. LIBRARY library-name Designate "library-name" as the current library. LIST [ text-name ] [ ALL ] Display all or part of the current library on $STDLIST. With no parameter, will list the text-names of the current library. PURGE { text-name } { ALL } Delete a module from the current library. The ALL option will purge the entire library. SHOW Display an information block for the current library. :{ MPE Command } Certain MPE commands may be executed from COBEDIT. KEEP Command The KEEP command allows you to add a module to the currently active library, or replace an already existing module. Syntax. KEEP [ text-name ] Parameters. text-name is the name to be used for the module being kept. Description. If the module to be kept is one that already exists on the file, and you named that module in a previous EDIT command, you do not have to specify a text-name in the KEEP command. In this case, you are asked if you want to replace the module in the library. Example 1. >LIST MYLIB >LIST ALL Text-name MODULE1 001000$CONTROL SUBPROGRAM 001100 IDENTIFICATION DIVISION. 001200 PROGRAM-ID. DUMMY-SUB. Text-name MODULE2 005100 WORKING-STORAGE SECTION. 005200 01 UNIV-TOTALER PIC 9(8) COMP-3. 005300 01 UNIV-ACCUM PIC 9(8) COMP-3. Text-name MODULE3 008000 PERFORM TEST-IT. 008100 IF RESULTANT IS LESS THAN 2 008200 PERFORM TEST-FAILED; 008300 ELSE NEXT SENTENCE. Text-name MOD4 000101* THIS IS TO SHOW WHAT HAPPENS WHEN A KEEP COMMAND 000201* IS ISSUED BEFORE THE EXIT COMMAND IS USED. >EDIT MODULE1 HP32201A.07.20 EDIT/3000 TUE, MAR 26, 1991, 10:32 AM (C) HEWLETT-PACKARD CO. 1990 NOTE: FORMAT=COBOL VALUES SET FOR LENGTH,RIGHT,FROM,DELTA,FRONT /L ALL 1. $CONTROL SUBPROGRAM 1.1 IDENTIFICATION DIVISION. 1.2 PROGRAM-ID. DUMMY-SUB. /M 1.2 MODIFY 1.2 PROGRAM-ID. DUMMY-SUB. RTEST-KEEP. PROGRAM-ID. TEST-KEEP. /A 1.3 AUTHOR. MYSELF. 1.4// ... /E EDTXT ALREADY EXISTS - RESPOND YES TO PURGE OLD AND KEEP NEW PURGE OLD? Y >KEEP "MODULE1 " already exists on Library MYLIB. OK to clear? Y >LIST ALL Text-name MODULE1 001000$CONTROL SUBPROGRAM 001100 IDENTIFICATION DIVISION. 001200 PROGRAM-ID. TEST-KEEP. 001300 AUTHOR. MYSELF. Text-name MODULE2 005100 WORKING-STORAGE SECTION. 005200 01 UNIV-TOTALER PIC 9(8) COMP-3. 005300 01 UNIV-ACCUM PIC 9(8) COMP-3. Text-name MODULE3 008000 PERFORM TEST-IT. 008100 IF RESULTANT IS LESS THAN 2 008200 PERFORM TEST-FAILED; 008300 ELSE NEXT SENTENCE. Text-name MOD4 000101* THIS IS TO SHOW WHAT HAPPENS WHEN A KEEP COMMAND 000201* IS ISSUED BEFORE THE EXIT COMMAND IS USED. Example 2. >EDIT HP32201A.07.20 EDIT/3000 TUE, MAR 26, 1991, 10:36 AM (C) HEWLETT-PACKARD CO. 1990 NOTE: FORMAT=COBOL VALUES SET FOR LENGTH,RIGHT,FROM,DELTA,FRONT /MODIFY MODIFY .001 I*THIS MODULE WILL BE ADDED TO MYLIB BY *THIS MODULE WILL BE ADDED TO MYLIB BY /A .002*USING A TEXT NAME IN THE KEEP COMMAND .003// ... /E EDTXT ALREADY EXISTS - RESPOND YES TO PURGE OLD AND KEEP NEW PURGE OLD?Y >KEEP MOD5 >LIST ALL Text-name MODULE1 001000$CONTROL SUBPROGRAM 001100 IDENTIFICATION DIVISION. 001200 PROGRAM-ID. TEST-KEEP. 001300 AUTHOR. MYSELF. Text-name MODULE2 005100 WORKING-STORAGE SECTION. 005200 01 UNIV-TOTALER PIC 9(8) COMP-3. 005300 01 UNIV-ACCUM PIC 9(8) COMP-3. Text-name MODULE3 008000 PERFORM TEST-IT. 008100 IF RESULTANT IS LESS THAN 2 008200 PERFORM TEST-FAILED; 008300 ELSE NEXT SENTENCE. Text-name MOD4 000101* THIS IS TO SHOW WHAT HAPPENS WHEN A KEEP COMMAND 000201* IS ISSUED BEFORE THE EXIT COMMAND IS USED. Text-name MOD5 000101* THIS MODULE WILL BE ADDED TO MYLIB BY 000201* USING A TEXT NAME IN THE KEEP COMMAND. Note that if you use the KEEP command without a text-name, and the data in EDTXT was not entered by using text from an already existing module, the message Invalid text-name is returned. Also, if the KEEP command is issued, and you have issued no EDIT command since, then when another KEEP command is issued, the message Edit file is empty is returned. LIBRARY Command The LIBRARY command allows you to select the library that you wish to access. When you issue this command, the currently active library is closed, and the specified library is opened and made available. Syntax. LIBRARY library-name Parameters. library-name is the name of the library file you want to access. Description. It can be in any group and account. Note that only one user at a time can be editing a particular library file. COBEDIT opens the library file exclusively. The fully qualified form of a library name is the same as for all MPE files. Note that you can specify the name of the currently active library, even though it is already open. This has no effect on the COBEDIT program. If no library name is specified in the LIBRARY command, COBEDIT prompts you for one. When the LIBRARY command executes, it checks to make sure that the file named is a valid library file. If it is not, an appropriate error message is generated by the MPE file system, and a COBEDIT error message occurs in the following two cases. The two cases are: when no file of the specified name exists, and when an error occurs while trying to open the file. Example. >LIB Library name? MYLIB >SHOW ************************************************ Library file: MYLIB.MANAGERS.USERS Text-name: Key file: KMYLIB ************************************************ >LIB COPYLIB >SHOW ************************************************ Library file: COPYLIB.MANAGERS.USERS Text-name: Key file: KCOPYLIB ************************************************ >LIB CLIB.PUB.USERS SECURITY VIOLATION (FSERR 93) FILE CLIB.PUB.USERS NOT OPENED. >:TELL WENDY.USERS; PLEASE RELEASE FILE CLIB FOR UPDATE FROM /S21 WENDY.USERS/ IT'S RELEASED NOW >:TELL WENDY.USERS; THANKS >LIB CLIB.PUB.USERS >SHOW ************************************************ Library file; CLIB.PUB.USERS Text-name: Key file: CLIBKEY.KING.USERS ************************************************ In the previous examples, the LIBRARY command is used to obtain access to three different files. The first use of the command specified no library. COBEDIT therefore prompted for one. The third attempt to use the LIBRARY command failed, since the desired library, CLIB, resides in a group other than the logon group, MANAGERS. The availability of MPE commands in COBEDIT make it easy to request that the file be released. Once the file is released, obtaining access to it presents no problem. The SHOW command is used to show which library file is currently open and available. As a final example of the LIBRARY command, an attempt to open a non-existent file is made: >LIBRARY FROTH NONEXISTENT PERMANENT FILE (FSERR 52) FILE FROTH NOT OPENED. LIST Command The LIST command allows you to list information about your currently active library. The information available is a list of all module names within the library, or a list of all or one of the modules in the library. A control Y terminates the listing. If no library is open (you have not built one, or used the LIBRARY command to name one, or purged the latest one, and have not opened another), the response to executing a LIST command with or without parameters is No library file is open. Syntax. LIST [text-name] [ALL ] Parameters. text-name is the name of a module in the currently active library. ALL indicates that all modules in the library are to be listed, beginning with the first module on the file, and proceeding to the last. Description. If neither text-name nor the word ALL is used in the LIST command, only the names of the modules in the library are returned.
NOTE The listing is directed to the $STDLIST device. If you wish to obtain a "hard copy" listing, the $STDLIST device can be redirected by using the :RUN command or by executing COBEDIT in a batch job.
The following examples illustrate the use of redirection and batch jobs. Example of Redirection. :FILE PRINT; DEV=LP :RUN COBEDIT.PUB.SYS;STDLIST=*PRINT HP32233A.02.00 COPYLIB EDITOR - COBEDIT MON, MAR 26, 1991, 10:43 AM (C) HEWLETT-PACKARD CO. 1986 TYPE "HELP" FOR A LIST OF COMMANDS. >LIB COPYLIB >SHOW >LIST ALL >EXIT Example of Batch Job. :JOB LIBPRINT,USER.ACCOUNT :RUN COBEDIT.PUB.SYS LIB COPYLIB SHOW LIST ALL EXIT :EOJ Example. >LIBRARY MYLIB >LIST Text-names of modules in MYLIB: MODULE1 MODULE2 MODULE3 MOD4 MOD5 >LIST MODULE2 Text-name MODULE2 005100 WORKING-STORAGE SECTION. 005200 01 UNIV-TOTALER PIC 9(8) COMP-3. 005300 01 UNIV-ACCUM PIC 9(8) COMP-3. >LIST ALL Text-name MODULE1 001000$CONTROL SUBPROGRAM 001100 IDENTIFICATION DIVISION. 001200 PROGRAM-ID. TEST-KEEP. 001300 AUTHOR. MYSELF. Text-name MODULE2 005100 WORKING-STORAGE SECTION. 005200 01 UNIV-TOTALER PIC 9(8) COMP-3. 005300 01 UNIV-ACCUM PIC 9(8) COMP-3. Text-name MODULE3 008000 PERFORM TEST-IT. 008100 IF RESULTANT IS LESS THAN 2 008200 PERFORM TEST-FAILED; 008300 ELSE NEXT SENTENCE. Text-name MOD4 000101* THIS IS TO SHOW WHAT HAPPENS WHEN A KEEP COMMAND 000201* IS ISSUED BEFORE THE EXIT COMMAND IS USED. Text-name MOD5 000101* THIS MODULE WILL BE ADDED TO MYLIB BY 000201* USING A TEXT NAME IN THE KEEP COMMAND. PURGE Command The PURGE command allows you to purge either a single module from your currently active library, or the entire library. If you choose to purge the entire library, it no longer exists after successful execution of the PURGE command. Syntax. PURGE {text-name} {ALL } Parameters. text-name is the name of a module to be purged from the currently active library. This is the module to be purged. ALL indicates that you want the entire library, including its key file, to be purged. Description. If you specify ALL in the PURGE command, COBEDIT double checks to be sure that you want the entire library file purged. COBEDIT displays the following message where library-name is the name of your currently active library: Is it OK to purge library library-name? If the response is not Y or YES, purging does not occur and the current library file remains active. If an affirmative response is not given, the following message is returned: COBOL library file library-name purged. Example. To illustrate the PURGE command, a file called MESSEDUP is used. This library contains only two modules. The first is a module copied into it at the time MESSEDUP was created. This module has no text-name associated with it. Thus, it is accessed with the default text-name assigned by COBEDIT that is BOO-BOO. >LIB MESSEDUP >LIST ALL Text-name BOO-BOO 000101* THESE RECORDS WERE COPIED INTO MESSEDUP FROM AN ASCII 000201* FILE, AND SINCE THE COBEDIT PROGRAM THOUGHT IT WAS IN 000301* COPYLIB FORMAT, IT ASSIGNED THE DEFAULT TEXT-NAME, BOO-BOO. Text-name M1 001000$CONTROL USLINIT 002000 IDENTIFICATION DIVISION. 003000 DATA DIVISION. 004000 PROCEDURE DIVISION. >PURGE M1 >LIST ALL Text-name BOO-BOO 000101* THESE RECORDS WERE COPIED INTO MESSEDUP FROM AN ASCII 000201* FILE, AND SINCE THE COBEDIT PROGRAM THOUGHT IT WAS IN 000301* COPYLIB FORMAT, IT ASSIGNED THE DEFAULT TEXT-NAME, BOO-BOO. >PURGE ALL Is it OK to purge library MESSEDUP? YES COBOL Library file MESSEDUP purged. >LIST ALL No library file is open. SHOW Command The SHOW command is used to find out the name of the currently active library, its key file, and the name of the module that was most recently accessed by COBEDIT. If no library is open, the message No library is open occurs. Syntax. SHOW Example. :RUN COBEDIT.PUB.SYS HP32233A.02.00 COPYLIB EDITOR - COBEDIT MON, MAR 26, 1991, 11:03 AM (C) HEWLETT-PACKARD CO. 1986 TYPE "HELP" FOR A LIST OF COMMANDS. >SHOW No library is open. >LIB MYLIB >SHOW ************************************************ Library name: MYLIB.USERS.MANAGERS Text-name: Key file: KMYLIB ************************************************ >EDIT MOD5 HP32201A.07.20 EDIT/3000 TUE, MAR 26, 1991, 11:04 AM (C) HEWLETT-PACKARD CO. 1990 NOTE: FORMAT=COBOL VALUES SET FOR LENGTH,RIGHT,FROM,DELTA,FRONT /L ALL .101*THIS MODULE WILL BE ADDED TO MYLIB BY .201*USING A TEXT NAME IN THE KEEP COMMAND /A .301*THIS LINE IS ADDED TO SHOW THE EFFECT OF USING .401*THE SHOW COMMAND WHEN A MODULE HAS BEEN ACCESSED. .501// ... /E EDTXT ALREADY EXISTS - RESPOND YES TO PURGE OLD AND KEEP NEW PURGE OLD? Y >SHOW ************************************************ Library name: MYLIB.USERS.MANAGERS Text-name: MODS Key file: KMYLIB ************************************************ >KEEP MOD6 >EXIT END OF PROGRAM :