Navigator User Guide

10.5.4
- 10.5.5
- 10.5.3
- 10.5.2
- 10.5.1
- 10.5
- 10.4.1
- 10.4.0 HotFix 1
- 10.4.0

Back Next

CL Program Linkage - Example

The following code shows an example of CL program linkage:

PGM PARM(&NBRFLDS &RC &MSGBUFF &MSGBUFFSZ &TEXT &TEXTLEN &NUM &NUMLEN)
/*----------------------------------------------------------------*/
/* ARGUMENTS                                                      */
/*----------------------------------------------------------------*/
             DCL        VAR(&NBRFLDS) TYPE(*CHAR) LEN(4)
             DCL        VAR(&RC) TYPE(*CHAR) LEN(4)
             DCL        VAR(&MSGBUFF) TYPE(*CHAR) LEN(128)
             DCL        VAR(&MSGBUFFSZ) TYPE(*CHAR) LEN(4)
             DCL        VAR(&TEXT) TYPE(*CHAR) LEN(15)
             DCL        VAR(&TEXTLEN) TYPE(*CHAR) LEN(4)
             DCL        VAR(&NUM) TYPE(*CHAR) LEN(4)
             DCL        VAR(&NUMLEN) TYPE(*CHAR) LEN(4)

In the example program, two fields are passed to the CL program.

The first field is called TEXT that has a fixed length of 15. Data can be moved to it and from it using the 5th argument &TEXT. If it is not a fixed-length CHAR field, then the data length must be used to determine the actual length, such as field &TEXTLEN.

Unfortunately, the CL language does not support integers directly. To get the numeric value, the contents of &TEXTLEN must be moved to a packed decimal using a statement like:

CHGVAR     VAR(&DECTEXTLEN) VALUE(%BIN(&TEXTLEN 1 4))

If the length is changed by the program then the new length has to be moved into the TEXTLEN field using a statement like:

CHGVAR     VAR(%BINARY(&TEXTLEN)) VALUE(&DECTEXTLEN)

Rename Saved Search

Table of Contents

Navigator User Guide

Navigator User Guide

CL Program Linkage - Example

CL Program Linkage - Example