Sample user-replacement modules

Use these code examples to compile the EYU9WRAM module. When you replace the default CPSM router access module, EYU9WRAM, with your own module, use one of these code samples to compile it depending on the language of your module.

The sample user-replacement module procedures are:

Assembler language

Figure 1. Sample JCL for replacement module for Assembler language

//APPLPROG  EXEC EYUEITAL,
//             OUTC=*,
//             CPSMHLQ='CPSM540',
//             CICSHLQ='CICS710',
//             LMODDSN='user.load.library',
//             TRNPARM=('NOPROLOG,NOEPILOG'),
//             LNKPARM=('RENT,REUS,AMODE=31,RMODE=ANY,XREF,MAP,LIST')
//TRN.SYSIN  DD DISP=SHR,DSN=user.source.library(EYU9WRAM)
//LKED.SYSIN DD *
 INCLUDE SYSLIB(EYU9WAPI)
 NAME EYU9WRAM(R)
/*

C language

Figure 2. Sample JCL for replacement module for C language

//APPLPROG  EXEC EYUEITDL,
//             OUTC=*,
//             CPSMHLQ='CPSM540',
//             CICSHLQ='CICS710',
//             EDCHLQ='SYS1',
//             COMHLQ='SYS1',
//             LMODDSN='user.load.library',
//             CPARM=('RENT,SOURCE,SHOWINC,TERM',
//             'AGGREGATE,LIST,OFFSET'),
//             LNKPARM=('RENT,REUS,AMODE=31,RMODE=ANY,XREF,MAP,LIST')
//TRN.SYSIN  DD DISP=SHR,DSN=user.source.library(EYU9WRAM)
//LKED.SYSIN DD *
 INCLUDE  SYSLIB(EYU9WAPI)
 NAME   EYU9WRAM(R)
/*

Note: When the C EYU9WRAM sample is compiled using Version 1.0 of the IBM® C/370 compiler, EDC0244 warning message will occur because the compiler truncates some of the field names.

PL/I language

Figure 3. Sample JCL for replacement module for PL/I language

//APPLPROG  EXEC EYUEITPL,
//             OUTC=*,
//             CPSMHLQ='CPSM540',
//             CICSHLQ='CICS710',
//             PLIHLQ='SYS1.IBMSYS.SYS',
//             LMODDSN='user.load.library',
//             PLIPARM=('OBJECT,NODECK,INCLUDE,SYNTAX,LIST,MAP',
//             'STORAGE,OFFSET,XREF',
//             'LANGLVL(OS,SPROG),SYSTEM(CICS)'),
//             LNKPARM=('RENT,REUS,AMODE=31,RMODE=ANY,XREF,MAP,LIST')
//TRN.SYSIN  DD DISP=SHR,DSN=user.source.library(EYU9WRAM)
//LKED.SYSIN DD *
 INCLUDE  SYSLIB(EYU9WAPI)
 NAME   EYU9WRAM(R)
/*

COBOL language

Figure 4. Sample JCL for replacement module for COBOL language

//APPLPROG  EXEC EYUEITVL,
//             OUTC=*,
//             CPSMHLQ='CPSM540',
//             CICSHLQ='CICS710',
//             LMODDSN='user.load.library',
//             COBPARM=('LIB,OBJECT,RENT,RES',
//             'APOST,MAP,XREF,TRUNC(BIN)'),
//             LNKPARM=('RENT,REUS,AMODE=31,RMODE=ANY,XREF,MAP,LIST')
//TRN.SYSIN  DD DISP=SHR,DSN=user.SOURCE.library(EYU9WRAM)
//LKED.SYSIN DD *
 INCLUDE  SYSLIB(EYU9WAPI)
 NAME   EYU9WRAM(R)
/*