-
Notifications
You must be signed in to change notification settings - Fork 2
/
base64.jcl
198 lines (198 loc) · 6.25 KB
/
base64.jcl
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
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
//BASE64 JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1),NOTIFY=&SYSUID,
// REGION=0M,MEMLIMIT=1G
//*
//* (C) Copyright IBM Corp. 2021
//*
// SET HLQ=userid
//*
// SET ASM=&HLQ..SRC.ASM
// SET C=&HLQ..SRC.C
// SET COBOL=&HLQ..SRC.COBOL
// SET PLI=&HLQ..SRC.PLI
//*
// SET DEST=&HLQ..SRC.PROGLOAD
//*
// SET CEE=PP.ADLE370.ZOS204
// SET CCOMP=PP.CBC.ZOS204
// SET COBCOMP=PP.COBOL390.V630
// SET PLICOMP=PP.VAPLI.V530
//*
//********************************************************************
//* Procedure to compile an assembly application
//********************************************************************
//ASM PROC
//COMPILE EXEC PGM=ASMA90
//SYSLIB DD DISP=SHR,DSN=SYS1.MACLIB
// DD DISP=SHR,DSN=SYS1.MODGEN
//SYSIN DD DISP=SHR,DSN=&ASM(&MEMBER)
//SYSLIN DD DISP=(OLD,PASS),DSN=&&OBJECT(&MEMBER)
//SYSPRINT DD SYSOUT=*
//ASMAOPT DD *
LIST(133)
OPTABLE(ZS5)
RENT
/*
// PEND
//*
//********************************************************************
//* Procedure to compile a COBOL application
//********************************************************************
//COBOL PROC
//COMPILE EXEC PGM=IGYCRCTL,PARM='OPTFILE'
//STEPLIB DD DISP=SHR,DSN=&COBCOMP..SIGYCOMP
//SYSUT1 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1))
//SYSUT2 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1))
//SYSUT3 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1))
//SYSUT4 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1))
//SYSUT5 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1))
//SYSUT6 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1))
//SYSUT7 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1))
//SYSUT8 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1))
//SYSUT9 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1))
//SYSUT10 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1))
//SYSUT11 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1))
//SYSUT12 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1))
//SYSUT13 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1))
//SYSUT14 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1))
//SYSUT15 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1))
//SYSMDECK DD UNIT=SYSALLDA,SPACE=(CYL,(1,1))
//SYSIN DD DISP=SHR,DSN=&COBOL(&MEMBER)
//SYSLIN DD DISP=(OLD,PASS),DSN=&&OBJECT(&MEMBER)
//SYSPRINT DD SYSOUT=*
//SYSOPTF DD *
ARCH(11)
MAP
OPTIMIZE(2)
RENT
/*
// PEND
//*
//********************************************************************
//* Procedure to compile a C application
//********************************************************************
//C PROC
//COMPILE EXEC PGM=CCNDRVR,PARM='OPTFILE'
//STEPLIB DD DISP=SHR,DSN=&CCOMP..SCCNCMP
//SYSUT5 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1))
//SYSUT6 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1))
//SYSUT7 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1))
//SYSUT8 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1))
//SYSUT9 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1))
//SYSUT14 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1))
//SYSUT16 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1))
//SYSUT17 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1))
//SYSIN DD DISP=SHR,DSN=&C(&MEMBER)
//SYSLIN DD DISP=(OLD,PASS),DSN=&&OBJECT(&MEMBER)
//SYSLIB DD DISP=SHR,DSN=&CEE..SCEEH.H
// DD DISP=SHR,DSN=&CEE..SCEEH.SYS.H
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSCPRT DD SYSOUT=*
//SYSOPTF DD *
ARCH(11)
NOMARGINS
OPTIMIZE(2)
RENT
NOSEQUENCE
SOURCE
/*
// PEND
//*
//********************************************************************
//* Procedure to compile a PL/I application
//********************************************************************
//PLI PROC
//COMPILE EXEC PGM=IBMZPLI,PARM='+DD:OPTIONS'
//STEPLIB DD DISP=SHR,DSN=&PLICOMP..SIBMZCMP
//SYSUT1 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1))
//SYSIN DD DISP=SHR,DSN=&PLI(&MEMBER)
//SYSLIN DD DISP=(OLD,PASS),DSN=&&OBJECT(&MEMBER)
//SYSPRINT DD SYSOUT=*
//OPTIONS DD *
ARCH(11)
MAP
OPTIMIZE(2)
OPTIONS
RENT
SOURCE
XREF
/*
// PEND
//*
//********************************************************************
//* Procedure to linkedit an application
//********************************************************************
//LINKEDIT PROC
//BINDER EXEC PGM=IEWL
//SYSLMOD DD DISP=SHR,DSN=&DEST
//OBJLIB DD DISP=(OLD,PASS),DSN=&&OBJECT
//SYSLIB DD DISP=SHR,DSN=&CEE..SCEELKED
// DD DISP=SHR,DSN=SYS1.LINKLIB
//SYSPRINT DD SYSOUT=*
//IEWPARMS DD *
AMODE=31
MAP
REUS=RENT
RMODE=31
/*
// PEND
//*
//********************************************************************
//* Procedure to run an application
//********************************************************************
//RUN PROC
//GO EXEC PGM=&MEMBER
//STEPLIB DD DISP=SHR,DSN=&DEST
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
// PEND
//*
//********************************************************************
//* Establish a temporary PDSE
//********************************************************************
//DEFINE EXEC PGM=IEFBR14
//OBJECT DD DISP=(NEW,PASS),DSN=&&OBJECT,
// UNIT=SYSALLDA,SPACE=(CYL,(1,1,1)),
// DSORG=PO,DSNTYPE=LIBRARY,RECFM=FB,LRECL=80,BLKSIZE=0
//*
//********************************************************************
//* Compile the programs
//********************************************************************
//BASE64E EXEC PROC=ASM,MEMBER=BASE64E,COND=(4,LE)
//BASE64D EXEC PROC=ASM,MEMBER=BASE64D,COND=(4,LE)
//BASE64O EXEC PROC=COBOL,MEMBER=BASE64O,COND=(4,LE)
//BASE64P EXEC PROC=PLI,MEMBER=BASE64P,COND=(4,LE)
//BASE64C EXEC PROC=C,MEMBER=BASE64C,COND=(4,LE)
//*
//********************************************************************
//* Linkedit the applications
//********************************************************************
//COBOL EXEC PROC=LINKEDIT,COND=(4,LE)
//BINDER.SYSLIN DD *
INCLUDE OBJLIB(BASE64O)
INCLUDE OBJLIB(BASE64E)
INCLUDE OBJLIB(BASE64D)
NAME BASE64O(R)
/*
//PLI EXEC PROC=LINKEDIT,COND=(4,LE)
//BINDER.SYSLIN DD *
INCLUDE OBJLIB(BASE64P)
INCLUDE OBJLIB(BASE64E)
INCLUDE OBJLIB(BASE64D)
NAME BASE64P(R)
/*
//C EXEC PROC=LINKEDIT,COND=(4,LE)
//BINDER.SYSLIN DD *
INCLUDE OBJLIB(BASE64C)
INCLUDE OBJLIB(BASE64E)
INCLUDE OBJLIB(BASE64D)
NAME BASE64C(R)
/*
//*
//********************************************************************
//* Run the applications
//********************************************************************
//COBOL EXEC PROC=RUN,MEMBER=BASE64O,COND=(4,LE)
//PLI EXEC PROC=RUN,MEMBER=BASE64P,COND=(4,LE)
//C EXEC PROC=RUN,MEMBER=BASE64C,COND=(4,LE)
//