Writing an edit routine in COBOL for CMS with language environment (LE)

The QMF edit exit interface of COBOL in CMS consists of these parts:

Interface control block, which is shipped with QMF as DXEECSC
Control program, which is shipped with QMF as DSQUXILE
Your edit exit program, which is named DSQUXDT
LE Preinitialization Service program, which is named CEEPIPI

Figure 176 shows the program structure of a COBOL edit exit routine in CMS.

Figure 176. Program structure of a COBOL edit exit routine in CMS with LE

QMF Main Module DSQQMF points to QMF Edit Exit Module DSQUEDIT Entry: DBQUXILE
via Call. QMF Edit Exit Module which contains IBM-supplied QMF Control Program
DSQUXILE and DEEPIPI User Edit Exit program DSQUXDT via Standard call to
LE points to QMF Main Module via Return.

The edit control block DXEECSC and the sample COBOL program DSQUXCTC, as distributed by QMF, use quotes (") to delimit literals. If your installation or program uses apostrophes (') instead, you have to change DXEECSC or copy the structure to your program, changing quotes to apostrophes.

Generating your COBOL program for LE in CMS

Before you can create the module file, ensure that you can access the IBM-supplied control module (DSQUXILE). DSQUXILE is located on the QMF production disk. You need to access this disk prior to creating the module file.

To create the DSQUEDIT module file , use the CMS LOAD and GENMOD commands as follows:

Load the text files that make up the DSQUEDIT module. The DSQUEDIT module must be relocatable To be relocatable, the module must be loaded with RLD entries. You do this by specifying the RLDSAVE option on the CMS/LOAD command. The entry point to the DSQUEDIT module must be DSQUXILE. LE text libraries must be made available by issuing a CMS GLOBAL TXTLIB command. Issue the following CMS command:
```
GLOBAL TXTLIB SCEELKED
LOAD DSQUXILE DSQUXDT ( RLDSAVE RESET DSQUXILE
```
You can run your edit routine in either 24-bit or 31-bit addressing mode. QMF manages address switching as required. You can specify 31-bit addressing on the CMS LOAD command. For example:
```
GLOBAL TXTLIB SCEELKED
LOAD DSQUXILE DSQUXDT ( RLDSAVE RESET DSQUXILE AMODE 31 RMODE ANY
```
Generate the DSQUEDIT module.
Issue the CMS GENMOD command to generate the DSQUEDIT module from the text files just loaded by the CMS LOAD command:
```
GENMOD DSQUEDIT
```

[ Previous Page | Next Page | Contents | Index ]