Compiling the programs

GDDM V3R2 Base Application Programming Guide

Compiling the programs

GDDM V3R2 Base Application Programming Guide
SC33-0867-01

The source programs do not need to be modified except for:

Optional changes to the FSINIT call, as noted under "Link-editing the programs" in topic A.6.2.
Replacing the STOP RUN statements in the COBOL programs if they are to run under CICS. The statements should be replaced with GO BACK or EXEC CICS RETURN.
Modifying ADMUSP3 if it is to be run on a device with less than 32 rows.

The programs must be compiled by a compiler appropriate to the source language and target subsystem (for example VS COBOL II, VS FORTRAN, PL/I Optimizing Compiler, or C/370). Note that CICS does not support programs written in FORTRAN.

The PARM options RESIDENT and DYNAMIC must be explicitly set to NORESIDENT and NODYNAMIC.

ADMUSP1, ADMUSP3, and ADMUSP4 use the supplied files of GDDM PL/I entry declarations. The members (containing PL/I declarations for nonreentrant base functions) must be available to the compiler in a source statement library under DOS/VSE, by means of SYSLIB specification under MVS, or by means of a GLOBAL MACLIB command under VM/CMS. The compilation of ADMUSP1, ADMUSP3, and ADMUSP4 must be performed with the MACRO option. No errors should result from the compilation steps.

ADMUSP3 is written to run on a device with at least 32 rows. However, because it is only the initial menu panel that requires more than the 24 rows available on an IBM 3278/3279 Model 2, the program can be run on this and other devices if the following change is made:

Amend the initial value in the second column of "FIELD_DEF" to:


         (2,3,4,6,8,10,12,14,16,18,20,24,1,22,5)

Change the initial value in the second column of "PRINT_DEF" to:
```
         (2,5,7,7,24)
```

For information on the ADMUTMT/V sample programs, see "Compiling and link-editing sample program 8 under TSO" in topic A.5.1, and "Compiling sample program 8 under VM/CMS" in topic A.5.3.

Notices | Terms of use | Support | Contact z/OS