Sample user-replacement modules

The sample user-replacement module procedures are:

Assembler language
Figure 57. Sample JCL for replacement module for Assembler language
//APPLPROG  EXEC EYUEITAL,
//             OUTC=*,
//             CPSMHLQ='CPSM230',
//             CICSHLQ='CICS630',
//             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/370 language
Figure 58. Sample JCL for replacement module for C language
//APPLPROG  EXEC EYUEITDL,
//             OUTC=*,
//             CPSMHLQ='CPSM230',
//             CICSHLQ='CICS630',
//             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/370™ 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.
PLI language
Figure 59. Sample JCL for replacement module for PLI language
//APPLPROG  EXEC EYUEITPL,
//             OUTC=*,
//             CPSMHLQ='CPSM230',
//             CICSHLQ='CICS630',
//             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 II language
Figure 60. Sample JCL for replacement module for COBOL language
//APPLPROG  EXEC EYUEITVL,
//             OUTC=*,
//             CPSMHLQ='CPSM230',
//             CICSHLQ='CICS630',
//             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)
/*

Related reference
Sample calling sequence
[[ Contents Previous Page | Next Page Index ]]