Example 2: Different data formats

Define three variables (FVAR, CVAR, and DVAR) with data formats of FIXED, CHAR, and DBCS, and with lengths of 4, 5, and 20, respectively.

DECLARE

 1 VARS,
   3 FVAR     FIXED BIN(31),
   3 CVAR     CHAR(5),
   3 DVAR     CHAR(20),
 FARR(3) CHAR(8),
 LARR(3) FIXED BIN(31);

FARR(1) = 'FIXED';
FARR(2) = 'CHAR';
FARR(3) = 'DBCS';
LARR(1) = 4;
LARR(2) = 5;
LARR(3) = 20;

CALL ISPLINK ('VDEFINE ','(FVAR CVAR DVAR)',
               VARS,FARR,LARR,'LIST    ');