forked from WASdev/sample.wola
-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathbboacplt.jclsamp
127 lines (126 loc) · 3.7 KB
/
bboacplt.jclsamp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
//OLAPLT JOB (),'ME',
// MSGCLASS=H,NOTIFY=&SYSUID
//*
//* BUILD SAMPLE PLTPI MODULE FOR TESTING OLA
//*
//* Copyright IBM Corporation 2010,2014
//*
//* LICENSE: Apache License
//* Version 2.0, January 2004
//* http://www.apache.org/licenses/
//*
//KIXPROC JCLLIB ORDER=<CICS.SDFHPROC>
//*
//CMP1 EXEC DFHEITAL,INDEX='<CICSTSxx.CICS>',
// DSCTLIB='<CICS.SDFHMAC>'
//TRN.SYSIN DD *
*ASM XOPTS(CICS,SP,NOPROLOG,NOEPILOG)
TITLE 'BBOACPLT - WAS Optimized Local Adapters CICS PLTPI'
*/*START OF SPECIFICATIONS ********************************************
*
* DESCRIPTIVE-NAME: WAS z/OS Optimized Adapters CICS PLT Init program
*
* CSECT NAME: BBOACPLT
*
* FUNCTION: Run as CICS PLTPI program and complete BBOC requests -
* activate the WAS OLA CICS TRUE during CICS startup.
*
*END OF SPECIFICATIONS ***********************************************/
*
DFHREGS ,
BBOACPLT AMODE 31
BBOACPLT RMODE ANY
BBOACPLT CSECT
*
DFHEIENT CODEREG=11,EIBREG=10
*
WTO 'XXXXXXX1I WAS z/OS OLA CICS PLT init start.'
*
*---------------------------------------------------------------------
* Address the EIB.
* This is needed, because EIBREG above is giving us the USER EIB
* but we are compiled to use the SYSTEM EIB.
*---------------------------------------------------------------------
EXEC CICS ADDRESS EIB(DFHEIBR)
*
EXEC CICS INQUIRE SYSTEM RELEASE(CICS_Release)
*
CLC CICS_Release,=CL4'0660'
* CC 1 indicates current release is below 0660 - or CICS TS 4.1
BO CICS_REL_WARN
B CICS_REL_OK
*
CICS_REL_WARN DS 0H
WTO 'XXXXXXX1W Invalid CICS release. Requires CICS TS 4.1+'
*
CICS_REL_OK DS 0H
MVC TRUE_P1,Clear50
MVC TRUE_P2,Clear50
MVC TRUE_P3,Clear50
MVC TRUE_P4,Clear50
MVC TRUE_P5,Clear50
MVC TRUE_P6,=CL6' '
MVC TRUE_Parms+0(15),=CL16'BBOC START_TRUE '
LA R2,256
STH R2,TRUE_Parms_L
*
EXEC CICS LINK PROGRAM('BBOACNTL') X
COMMAREA(TRUE_Parms) X
LENGTH(TRUE_Parms_L) NOHANDLE
*
CLC EIBRESP,=F'0'
BE TRUE_Start_CkNext
WTO 'XXXXXXX1E Error in OLA Start TRUE request. Check BBOQ.'
B Return
TRUE_Start_CkNext DS 0H
CLC TRUE_Parms(9),=CL9'BBOA8099E'
BNE TRUE_Start_Ok
WTO 'XXXXXXX2E Error in OLA Start TRUE request. Check BBOQ.'
B Return
*
TRUE_Start_Ok DS 0H
WTO 'XXXXXXX2I WAS z/OS OLA CICS TRUE enabled.'
*
* --------------------------------------------------------------------
*
* Return: Exit program
*
* --------------------------------------------------------------------
Return_OK DS 0H
WTO 'XXXXXXX23 WAS z/OS OLA CICS PLT init ending.'
*
Return DS 0H
DFHEIRET
*
* ---------------------------------------------------------------------
*
* Constants/Literals/Variables/Data definitions
*
* ---------------------------------------------------------------------
DS 0F
Clear50 DC CL50' '
DS 0F
*
DFHEISTG DSECT
DS 0F
DFHEISTG EXTENDED SAVE AREA FOR CICS
TRUE_Parms DS 0D
TRUE_P1 DS CL50
TRUE_P2 DS CL50
TRUE_P3 DS CL50
TRUE_P4 DS CL50
TRUE_P5 DS CL50
TRUE_P6 DS CL6
DS 0F
TRUE_Parms_L DS H
CICS_Release DS CL4
*
EISTGLEN EQU *-DFHEISTG
*
DFHEIEND
*
END BBOACPLT
//LKED.SYSLMOD DD DSN=<TARGET.LMOD.DSN>,DISP=SHR
//LKED.SYSIN DD *
MODE AMODE(31),RMODE(ANY)
NAME BBOACPLT(R)