1 | |
2 | 14.53.08 JOB 703 IEF196I IEF237I 1A2 ALLOCATED TO IEF0PDS0 |
3 | 14.53.08 JOB 703 IEF196I IEF285I HERC01.KICKSSYS.V1R5M0.PROCLIB KEPT |
4 | 14.53.08 JOB 703 IEF196I IEF285I VOL SER NOS= KICKS2. |
5 | 14.53.08 JOB 703 $HASP373 DFXXP00A STARTED - INIT 3 - CLASS C - SYS BSP1 |
6 | 14.53.08 JOB 703 IEF403I DFXXP00A- STARTED - TIME=14.53.08 |
7 | 14.53.08 JOB 703 IEFACTRT - Stepname Procstep Program Retcode |
8 | 14.53.08 JOB 703 DFXXP00A DFXXP00A COPY IEBGENER RC= 0000 |
9 | 14.53.08 JOB 703 DFXXP00A DFXXP00A PP1 KIKPPCOB RC= 0000 |
10 | 14.53.09 JOB 703 DFXXP00A DFXXP00A COB1 IKFCBL00 RC= 0000 |
11 | 14.53.09 JOB 703 DFXXP00A DFXXP00A PP2 KIKPPCOB RC= 0000 |
12 | 14.53.09 JOB 703 DFXXP00A DFXXP00A COB2 IKFCBL00 RC= 0000 |
13 | 14.53.09 JOB 703 DFXXP00A DFXXP00A LKED IEWL RC= 0000 |
14 | 14.53.09 JOB 703 IEF404I DFXXP00A- ENDED - TIME=14.53.09 |
15 | 14.53.09 JOB 703 $HASP395 DFXXP00A ENDED |
16 | |
17 | |
18 | ------ JES2 JOB STATISTICS ------ |
19 | |
20 | |
21 | 30 OCT 14 JOB EXECUTION DATE |
22 | |
23 | |
24 | 13 CARDS READ |
25 | |
26 | |
27 | 980 SYSOUT PRINT RECORDS |
28 | |
29 | |
30 | 0 SYSOUT PUNCH RECORDS |
31 | |
32 | |
33 | 0.01 MINUTES EXECUTION TIME |
34 | 1 //DFXXP00A JOB CLASS=C,MSGCLASS=A,MSGLEVEL=(1,1),REGION=2048K JOB 703 |
35 | *** |
36 | 2 //JOBPROC DD DSN=HERC01.KICKSSYS.V1R5M0.PROCLIB,DISP=SHR |
37 | *** |
38 | *** PROGRAMS FROM MURACH'S 'CICS FOR THE COBOL PROGRAMMER' |
39 | *** |
40 | 3 //DFXXP00A EXEC K2KCOBCL |
41 | 4 XXK2KCOBCL PROC SOUT='*',ZOUT='Z', |
42 | XX UNT=SYSDA, |
43 | XX KICKSYS='HERC01.KICKSSYS', |
44 | XX KIKSUSR='HERC01.KICKS', |
45 | XX VER=V1R5M0, |
46 | XX CBLPARM='SUPMAP,DMAP,CLIST' |
47 | *** |
48 | *** PROC FOR MVT ANSI COBOL |
49 | *** AS INSTALLED ON MVS38J TURNKEY |
50 | *** NON-LE COMPILER -- RUNS TWICE FOR 'LENGTH OF'... |
51 | *** WORKS WITH KICKS |
52 | *** |
53 | *** - copy input for pp1 & pp2 |
54 | 5 XXCOPY EXEC PGM=IEBGENER |
55 | 6 XXSYSPRINT DD SYSOUT=&ZOUT |
56 | 7 XXSYSIN DD DUMMY |
57 | 8 XXSYSUT2 DD DSN=&&PPIN,DISP=(,PASS),UNIT=SYSDA, |
58 | XX SPACE=(TRK,(90,15),RLSE) |
59 | 9 //COPY.SYSUT1 DD DISP=SHR,DSN=HERC01.KICKS.V1R5M0.COB(DFXXP00A) |
60 | X/SYSUT1 DD DSN=&KIKSUSR..&VER..COBCOPY(&VER),DISP=SHR |
61 | *** |
62 | *** - first pp, make input for first cob |
63 | 10 XXPP1 EXEC PGM=KIKPPCOB, |
64 | XX PARM='-v -t -dmapin1' |
65 | 11 XXSTEPLIB DD DSN=&KICKSYS..&VER..SKIKLOAD,DISP=SHR |
66 | 12 XXSYSPRINT DD DISP=(,PASS),UNIT=&UNT,SPACE=(800,(500,100),RLSE), |
67 | XX DCB=(RECFM=FB,LRECL=80,BLKSIZE=800) |
68 | 13 XXSYSTERM DD SYSOUT=&SOUT,DCB=(BLKSIZE=120,RECFM=F) |
69 | 14 XXSYSUDUMP DD SYSOUT=&SOUT |
70 | 15 XXSYSLIB DD DISP=SHR,DSN=&KIKSUSR..&VER..COBCOPY |
71 | 16 XX DD DISP=SHR,DSN=&KICKSYS..&VER..COBCOPY |
72 | 17 XXSYSIN DD DSN=&&PPIN,DISP=(OLD,PASS) |
73 | *** |
74 | *** - first cob, generate dmap |
75 | 18 XXCOB1 EXEC PGM=IKFCBL00, |
76 | XX REGION=4096K, |
77 | XX COND=(5,LT), |
78 | XX PARM='DMAP,SOURCE,NOCLIST,NODECK,NOLOAD,SIZE=2048K,BUF=1024K,LIB' |
79 | 19 XXSYSPRINT DD DISP=(,PASS),UNIT=&UNT,SPACE=(1210,(500,100),RLSE), |
80 | XX DCB=(RECFM=FB,LRECL=121,BLKSIZE=1210) |
81 | 20 XXSYSPUNCH DD DUMMY |
82 | 21 XXSYSLIB DD DISP=SHR,DSN=&KIKSUSR..&VER..COBCOPY |
83 | 22 XX DD DISP=SHR,DSN=&KICKSYS..&VER..COBCOPY |
84 | 23 XXSYSLIN DD UNIT=&UNT,SPACE=(80,(250,100)),DISP=(MOD,DELETE) |
85 | 24 XXSYSUT1 DD UNIT=&UNT,SPACE=(460,(350,100)) |
86 | 25 XXSYSUT2 DD UNIT=&UNT,SPACE=(460,(350,100)) |
87 | 26 XXSYSUT3 DD UNIT=&UNT,SPACE=(460,(350,100)) |
88 | 27 XXSYSUT4 DD UNIT=&UNT,SPACE=(460,(350,100)) |
89 | 28 XXSYSIN DD DISP=(OLD,DELETE),DSN=*.PP1.SYSPRINT |
90 | *** |
91 | *** - 2nd pp, use dmap for LENGTH's, make input to 2nd cob |
92 | 29 XXPP2 EXEC PGM=KIKPPCOB,COND=((5,LT,PP1),(12,LT,COB1)), |
93 | XX PARM='-t -dmapin2' |
94 | 30 XXSTEPLIB DD DSN=&KICKSYS..&VER..SKIKLOAD,DISP=SHR |
95 | 31 XXSYSPRINT DD DISP=(,PASS),UNIT=&UNT,SPACE=(800,(500,100),RLSE), |
96 | XX DCB=(RECFM=FB,LRECL=80,BLKSIZE=800) |
97 | 32 XXSYSTERM DD SYSOUT=&SOUT,DCB=(BLKSIZE=120,RECFM=F) |
98 | 33 XXSYSUDUMP DD SYSOUT=&SOUT |
99 | 34 XXSYSLIB DD DISP=SHR,DSN=&KIKSUSR..&VER..COBCOPY |
100 | 35 XX DD DISP=SHR,DSN=&KICKSYS..&VER..COBCOPY |
101 | 36 XXDMAPIN DD DISP=(OLD,DELETE),DSN=*.COB1.SYSPRINT |
102 | 37 XXSYSIN DD DSN=&&PPIN,DISP=(OLD,DELETE) |
103 | *** |
104 | *** - 2nd cob, make object deck for linker |
105 | 38 XXCOB2 EXEC PGM=IKFCBL00, |
106 | XX REGION=4096K, |
107 | XX COND=(5,LT), |
108 | XX PARM='NODECK,LOAD,SIZE=2048K,BUF=1024K,&CBLPARM,LIB' |
109 | 39 XXSYSPRINT DD SYSOUT=&SOUT |
110 | 40 XXSYSPUNCH DD DUMMY |
111 | 41 XXSYSLIB DD DISP=SHR,DSN=&KIKSUSR..&VER..COBCOPY |
112 | 42 XX DD DISP=SHR,DSN=&KICKSYS..&VER..COBCOPY |
113 | 43 XXSYSLIN DD UNIT=&UNT,SPACE=(80,(250,100)),DISP=(MOD,PASS) |
114 | 44 XXSYSUT1 DD UNIT=&UNT,SPACE=(460,(350,100)) |
115 | 45 XXSYSUT2 DD UNIT=&UNT,SPACE=(460,(350,100)) |
116 | 46 XXSYSUT3 DD UNIT=&UNT,SPACE=(460,(350,100)) |
117 | 47 XXSYSUT4 DD UNIT=&UNT,SPACE=(460,(350,100)) |
118 | 48 XXSYSIN DD DISP=(OLD,DELETE),DSN=*.PP2.SYSPRINT |
119 | *** |
120 | 49 XXLKED EXEC PGM=IEWL, |
121 | XX COND=(5,LT), |
122 | XX PARM='XREF,LIST,LET,MAP' |
123 | 50 XXSYSPRINT DD SYSOUT=&SOUT |
124 | 51 XXSYSLIB DD DISP=SHR,DSN=SYS1.COBLIB |
125 | 52 XXSYSLMOD DD DISP=SHR,DSN=&KIKSUSR..&VER..KIKRPL |
126 | 53 XXSYSLIN DD DISP=(OLD,DELETE),DSN=*.COB2.SYSLIN |
127 | 54 XX DD DDNAME=SYSIN |
128 | 55 XXSYSUT1 DD UNIT=(SYSDA,SEP=(SYSLMOD,SYSLIN)), |
129 | XX SPACE=(1024,(200,20)) |
130 | 56 XXSKIKLOAD DD DISP=SHR,DSN=&KICKSYS..&VER..SKIKLOAD |
131 | 57 XXKIKRPL DD DISP=SHR,DSN=&KICKSYS..&VER..KIKRPL |
132 | 58 //LKED.SYSIN DD * |
133 | X/SYSIN DD DUMMY |
134 | STMT NO. MESSAGE |
135 | - |
136 | 6 IEF653I SUBSTITUTION JCL - SYSOUT=Z |
137 | 9 IEF653I SUBSTITUTION JCL - DSN=HERC01.KICKS.V1R5M0.COBCOPY(V1R5M0),DISP=SHR |
138 | 11 IEF653I SUBSTITUTION JCL - DSN=HERC01.KICKSSYS.V1R5M0.SKIKLOAD,DISP=SHR |
139 | 12 IEF653I SUBSTITUTION JCL - DISP=(,PASS),UNIT=SYSDA,SPACE=(800,(500,100),RLSE), |
140 | 13 IEF653I SUBSTITUTION JCL - SYSOUT=*,DCB=(BLKSIZE=120,RECFM=F) |
141 | 14 IEF653I SUBSTITUTION JCL - SYSOUT=* |
142 | 15 IEF653I SUBSTITUTION JCL - DISP=SHR,DSN=HERC01.KICKS.V1R5M0.COBCOPY |
143 | 16 IEF653I SUBSTITUTION JCL - DISP=SHR,DSN=HERC01.KICKSSYS.V1R5M0.COBCOPY |
144 | 19 IEF653I SUBSTITUTION JCL - DISP=(,PASS),UNIT=SYSDA,SPACE=(1210,(500,100),RLSE), |
145 | 21 IEF653I SUBSTITUTION JCL - DISP=SHR,DSN=HERC01.KICKS.V1R5M0.COBCOPY |
146 | 22 IEF653I SUBSTITUTION JCL - DISP=SHR,DSN=HERC01.KICKSSYS.V1R5M0.COBCOPY |
147 | 23 IEF653I SUBSTITUTION JCL - UNIT=SYSDA,SPACE=(80,(250,100)),DISP=(MOD,DELETE) |
148 | 24 IEF653I SUBSTITUTION JCL - UNIT=SYSDA,SPACE=(460,(350,100)) |
149 | 25 IEF653I SUBSTITUTION JCL - UNIT=SYSDA,SPACE=(460,(350,100)) |
150 | 26 IEF653I SUBSTITUTION JCL - UNIT=SYSDA,SPACE=(460,(350,100)) |
151 | 27 IEF653I SUBSTITUTION JCL - UNIT=SYSDA,SPACE=(460,(350,100)) |
152 | 30 IEF653I SUBSTITUTION JCL - DSN=HERC01.KICKSSYS.V1R5M0.SKIKLOAD,DISP=SHR |
153 | 31 IEF653I SUBSTITUTION JCL - DISP=(,PASS),UNIT=SYSDA,SPACE=(800,(500,100),RLSE), |
154 | 32 IEF653I SUBSTITUTION JCL - SYSOUT=*,DCB=(BLKSIZE=120,RECFM=F) |
155 | 33 IEF653I SUBSTITUTION JCL - SYSOUT=* |
156 | 34 IEF653I SUBSTITUTION JCL - DISP=SHR,DSN=HERC01.KICKS.V1R5M0.COBCOPY |
157 | 35 IEF653I SUBSTITUTION JCL - DISP=SHR,DSN=HERC01.KICKSSYS.V1R5M0.COBCOPY |
158 | 38 IEF653I SUBSTITUTION JCL - PARM='NODECK,LOAD,SIZE=2048K,BUF=1024K,SUPMAP,DMAP,CLIST,LIB' |
159 | 39 IEF653I SUBSTITUTION JCL - SYSOUT=* |
160 | 41 IEF653I SUBSTITUTION JCL - DISP=SHR,DSN=HERC01.KICKS.V1R5M0.COBCOPY |
161 | 42 IEF653I SUBSTITUTION JCL - DISP=SHR,DSN=HERC01.KICKSSYS.V1R5M0.COBCOPY |
162 | 43 IEF653I SUBSTITUTION JCL - UNIT=SYSDA,SPACE=(80,(250,100)),DISP=(MOD,PASS) |
163 | 44 IEF653I SUBSTITUTION JCL - UNIT=SYSDA,SPACE=(460,(350,100)) |
164 | 45 IEF653I SUBSTITUTION JCL - UNIT=SYSDA,SPACE=(460,(350,100)) |
165 | 46 IEF653I SUBSTITUTION JCL - UNIT=SYSDA,SPACE=(460,(350,100)) |
166 | 47 IEF653I SUBSTITUTION JCL - UNIT=SYSDA,SPACE=(460,(350,100)) |
167 | 50 IEF653I SUBSTITUTION JCL - SYSOUT=* |
168 | 52 IEF653I SUBSTITUTION JCL - DISP=SHR,DSN=HERC01.KICKS.V1R5M0.KIKRPL |
169 | 56 IEF653I SUBSTITUTION JCL - DISP=SHR,DSN=HERC01.KICKSSYS.V1R5M0.SKIKLOAD |
170 | 57 IEF653I SUBSTITUTION JCL - DISP=SHR,DSN=HERC01.KICKSSYS.V1R5M0.KIKRPL |
171 | IEF236I ALLOC. FOR DFXXP00ACOPY DFXXP00A |
172 | IEF237I JES2 ALLOCATED TO SYSPRINT |
173 | IEF237I DMY ALLOCATED TO SYSIN |
174 | IEF237I 1A7 ALLOCATED TO SYSUT2 |
175 | IEF237I 1A2 ALLOCATED TO SYSUT1 |
176 | IEF237I 240 ALLOCATED TO SYS00596 |
177 | IEF142I DFXXP00ACOPY DFXXP00A - STEP WAS EXECUTED - COND CODE 0000 |
178 | IEF285I JES2.JOB00703.SO0102 SYSOUT |
179 | IEF285I SYS14303.T145308.RA000.MURPGMS.PPIN PASSED *--------4 |
180 | IEF285I VOL SER NOS= WORK04. |
181 | IEF285I HERC01.KICKS.V1R5M0.COB KEPT *--------5 |
182 | IEF285I VOL SER NOS= KICKS2. |
183 | IEF285I SYS1.UCAT.TSO KEPT *--------0 |
184 | IEF285I VOL SER NOS= PUB000. |
185 | IEF373I STEP /COPY / START 14303.1453 |
186 | IEF374I STEP /COPY / STOP 14303.1453 CPU 0MIN 00.01SEC SRB 0MIN 00.00SEC VIRT 48K SYS 204K |
187 | ************************************************************************************************************************************ |
188 | * 1. Jobstep of job: DFXXP00A Stepname: COPY Program name: IEBGENER Executed on 30.10.14 from 14.53.08 to 14.53.08 * |
189 | * elapsed time 00:00:00,05 CPU-Identifier: BSP1 Page-in: 0 * |
190 | * CPU time 00:00:00,01 Virtual Storage used: 48K Page-out: 0 * |
191 | * I/O Operation * |
192 | * Number of records read via DD * or DD DATA: 0 * |
193 | * DMY.......0 DMY.......0 1A7.......4 1A2.......5 240.......0 * |
194 | * * |
195 | * Charge for step (w/o SYSOUT): 0,01 * |
196 | ************************************************************************************************************************************ |
197 | IEF236I ALLOC. FOR DFXXP00APP1 DFXXP00A |
198 | IEF237I 1A2 ALLOCATED TO STEPLIB |
199 | IEF237I 240 ALLOCATED TO SYS00598 |
200 | IEF237I 1A0 ALLOCATED TO SYSPRINT |
201 | IEF237I JES2 ALLOCATED TO SYSTERM |
202 | IEF237I JES2 ALLOCATED TO SYSUDUMP |
203 | IEF237I 1A2 ALLOCATED TO SYSLIB |
204 | IEF237I 1A2 ALLOCATED TO |
205 | IEF237I 1A7 ALLOCATED TO SYSIN |
206 | IEF142I DFXXP00APP1 DFXXP00A - STEP WAS EXECUTED - COND CODE 0000 |
207 | IEF285I HERC01.KICKSSYS.V1R5M0.SKIKLOAD KEPT *--------0 |
208 | IEF285I VOL SER NOS= KICKS2. |
209 | IEF285I SYS1.UCAT.TSO KEPT *--------0 |
210 | IEF285I VOL SER NOS= PUB000. |
211 | IEF285I SYS14303.T145308.RA000.MURPGMS.R0000001 PASSED *-------39 |
212 | IEF285I VOL SER NOS= WORK02. |
213 | IEF285I JES2.JOB00703.SO0103 SYSOUT |
214 | IEF285I JES2.JOB00703.SO0104 SYSOUT |
215 | IEF285I HERC01.KICKS.V1R5M0.COBCOPY KEPT *-------10 |
216 | IEF285I VOL SER NOS= KICKS2. |
217 | IEF285I HERC01.KICKSSYS.V1R5M0.COBCOPY KEPT *--------0 |
218 | IEF285I VOL SER NOS= KICKS2. |
219 | IEF285I SYS14303.T145308.RA000.MURPGMS.PPIN PASSED *--------5 |
220 | IEF285I VOL SER NOS= WORK04. |
221 | IEF373I STEP /PP1 / START 14303.1453 |
222 | IEF374I STEP /PP1 / STOP 14303.1453 CPU 0MIN 00.17SEC SRB 0MIN 00.01SEC VIRT 720K SYS 208K |
223 | ************************************************************************************************************************************ |
224 | * 2. Jobstep of job: DFXXP00A Stepname: PP1 Program name: KIKPPCOB Executed on 30.10.14 from 14.53.08 to 14.53.08 * |
225 | * elapsed time 00:00:00,22 CPU-Identifier: BSP1 Page-in: 0 * |
226 | * CPU time 00:00:00,18 Virtual Storage used: 720K Page-out: 0 * |
227 | * I/O Operation * |
228 | * Number of records read via DD * or DD DATA: 0 * |
229 | * 1A2.......0 240.......0 1A0......39 DMY.......0 DMY.......0 1A2......10 1A2.......0 1A7.......5 * |
230 | * * |
231 | * Charge for step (w/o SYSOUT): 0,30 * |
232 | ************************************************************************************************************************************ |
233 | IEF236I ALLOC. FOR DFXXP00ACOB1 DFXXP00A |
234 | IEF237I 1A7 ALLOCATED TO SYSPRINT |
235 | IEF237I DMY ALLOCATED TO SYSPUNCH |
236 | IEF237I 1A2 ALLOCATED TO SYSLIB |
237 | IEF237I 1A2 ALLOCATED TO |
238 | IEF237I 240 ALLOCATED TO SYS00600 |
239 | IEF237I 170 ALLOCATED TO SYSLIN |
240 | IEF237I 1B0 ALLOCATED TO SYSUT1 |
241 | IEF237I 152 ALLOCATED TO SYSUT2 |
242 | IEF237I 140 ALLOCATED TO SYSUT3 |
243 | IEF237I 170 ALLOCATED TO SYSUT4 |
244 | IEF237I 1A0 ALLOCATED TO SYSIN |
245 | IEF142I DFXXP00ACOB1 DFXXP00A - STEP WAS EXECUTED - COND CODE 0000 |
246 | IEF285I SYS14303.T145308.RA000.MURPGMS.R0000002 PASSED *-------54 |
247 | IEF285I VOL SER NOS= WORK04. |
248 | IEF285I HERC01.KICKS.V1R5M0.COBCOPY KEPT *--------0 |
249 | IEF285I VOL SER NOS= KICKS2. |
250 | IEF285I HERC01.KICKSSYS.V1R5M0.COBCOPY KEPT *--------0 |
251 | IEF285I VOL SER NOS= KICKS2. |
252 | IEF285I SYS1.UCAT.TSO KEPT *--------0 |
253 | IEF285I VOL SER NOS= PUB000. |
254 | IEF285I SYS14303.T145308.RA000.MURPGMS.R0000003 DELETED *--------0 |
255 | IEF285I VOL SER NOS= WORK01. |
256 | IEF285I SYS14303.T145308.RA000.MURPGMS.R0000004 DELETED *--------4 |
257 | IEF285I VOL SER NOS= WORK03. |
258 | IEF285I SYS14303.T145308.RA000.MURPGMS.R0000005 DELETED *--------6 |
259 | IEF285I VOL SER NOS= HASP00. |
260 | IEF285I SYS14303.T145308.RA000.MURPGMS.R0000006 DELETED *--------7 |
261 | IEF285I VOL SER NOS= WORK00. |
262 | IEF285I SYS14303.T145308.RA000.MURPGMS.R0000007 DELETED *--------6 |
263 | IEF285I VOL SER NOS= WORK01. |
264 | IEF285I SYS14303.T145308.RA000.MURPGMS.R0000001 DELETED *-------40 |
265 | IEF285I VOL SER NOS= WORK02. |
266 | IEF373I STEP /COB1 / START 14303.1453 |
267 | IEF374I STEP /COB1 / STOP 14303.1453 CPU 0MIN 00.07SEC SRB 0MIN 00.02SEC VIRT 2076K SYS 204K |
268 | ************************************************************************************************************************************ |
269 | * 3. Jobstep of job: DFXXP00A Stepname: COB1 Program name: IKFCBL00 Executed on 30.10.14 from 14.53.08 to 14.53.09 * |
270 | * elapsed time 00:00:00,22 CPU-Identifier: BSP1 Page-in: 0 * |
271 | * CPU time 00:00:00,09 Virtual Storage used: 2076K Page-out: 0 * |
272 | * I/O Operation * |
273 | * Number of records read via DD * or DD DATA: 0 * |
274 | * 1A7......54 DMY.......0 1A2.......0 1A2.......0 240.......0 170.......0 1B0.......4 152.......6 140.......7 170.......6 * |
275 | * 1A0......40 * |
276 | * * |
277 | * Charge for step (w/o SYSOUT): 0,15 * |
278 | ************************************************************************************************************************************ |
279 | IEF236I ALLOC. FOR DFXXP00APP2 DFXXP00A |
280 | IEF237I 1A2 ALLOCATED TO STEPLIB |
281 | IEF237I 240 ALLOCATED TO SYS00602 |
282 | IEF237I 1A0 ALLOCATED TO SYSPRINT |
283 | IEF237I JES2 ALLOCATED TO SYSTERM |
284 | IEF237I JES2 ALLOCATED TO SYSUDUMP |
285 | IEF237I 1A2 ALLOCATED TO SYSLIB |
286 | IEF237I 1A2 ALLOCATED TO |
287 | IEF237I 1A7 ALLOCATED TO DMAPIN |
288 | IEF237I 1A7 ALLOCATED TO SYSIN |
289 | IEF142I DFXXP00APP2 DFXXP00A - STEP WAS EXECUTED - COND CODE 0000 |
290 | IEF285I HERC01.KICKSSYS.V1R5M0.SKIKLOAD KEPT *--------0 |
291 | IEF285I VOL SER NOS= KICKS2. |
292 | IEF285I SYS1.UCAT.TSO KEPT *--------0 |
293 | IEF285I VOL SER NOS= PUB000. |
294 | IEF285I SYS14303.T145308.RA000.MURPGMS.R0000008 PASSED *-------39 |
295 | IEF285I VOL SER NOS= WORK02. |
296 | IEF285I JES2.JOB00703.SO0105 SYSOUT |
297 | IEF285I JES2.JOB00703.SO0106 SYSOUT |
298 | IEF285I HERC01.KICKS.V1R5M0.COBCOPY KEPT *-------10 |
299 | IEF285I VOL SER NOS= KICKS2. |
300 | IEF285I HERC01.KICKSSYS.V1R5M0.COBCOPY KEPT *--------0 |
301 | IEF285I VOL SER NOS= KICKS2. |
302 | IEF285I SYS14303.T145308.RA000.MURPGMS.R0000002 DELETED *------110 |
303 | IEF285I VOL SER NOS= WORK04. |
304 | IEF285I SYS14303.T145308.RA000.MURPGMS.PPIN DELETED *--------5 |
305 | IEF285I VOL SER NOS= WORK04. |
306 | IEF373I STEP /PP2 / START 14303.1453 |
307 | IEF374I STEP /PP2 / STOP 14303.1453 CPU 0MIN 00.33SEC SRB 0MIN 00.01SEC VIRT 720K SYS 212K |
308 | ************************************************************************************************************************************ |
309 | * 4. Jobstep of job: DFXXP00A Stepname: PP2 Program name: KIKPPCOB Executed on 30.10.14 from 14.53.09 to 14.53.09 * |
310 | * elapsed time 00:00:00,38 CPU-Identifier: BSP1 Page-in: 0 * |
311 | * CPU time 00:00:00,34 Virtual Storage used: 720K Page-out: 0 * |
312 | * I/O Operation * |
313 | * Number of records read via DD * or DD DATA: 0 * |
314 | * 1A2.......0 240.......0 1A0......39 DMY.......0 DMY.......0 1A2......10 1A2.......0 1A7.....110 1A7.......5 * |
315 | * * |
316 | * Charge for step (w/o SYSOUT): 0,56 * |
317 | ************************************************************************************************************************************ |
318 | IEF236I ALLOC. FOR DFXXP00ACOB2 DFXXP00A |
319 | IEF237I JES2 ALLOCATED TO SYSPRINT |
320 | IEF237I DMY ALLOCATED TO SYSPUNCH |
321 | IEF237I 1A2 ALLOCATED TO SYSLIB |
322 | IEF237I 1A2 ALLOCATED TO |
323 | IEF237I 240 ALLOCATED TO SYS00604 |
324 | IEF237I 1A7 ALLOCATED TO SYSLIN |
325 | IEF237I 170 ALLOCATED TO SYSUT1 |
326 | IEF237I 152 ALLOCATED TO SYSUT2 |
327 | IEF237I 140 ALLOCATED TO SYSUT3 |
328 | IEF237I 1B0 ALLOCATED TO SYSUT4 |
329 | IEF237I 1A0 ALLOCATED TO SYSIN |
330 | IEF142I DFXXP00ACOB2 DFXXP00A - STEP WAS EXECUTED - COND CODE 0000 |
331 | IEF285I JES2.JOB00703.SO0107 SYSOUT |
332 | IEF285I HERC01.KICKS.V1R5M0.COBCOPY KEPT *--------0 |
333 | IEF285I VOL SER NOS= KICKS2. |
334 | IEF285I HERC01.KICKSSYS.V1R5M0.COBCOPY KEPT *--------0 |
335 | IEF285I VOL SER NOS= KICKS2. |
336 | IEF285I SYS1.UCAT.TSO KEPT *--------0 |
337 | IEF285I VOL SER NOS= PUB000. |
338 | IEF285I SYS14303.T145308.RA000.MURPGMS.R0000009 PASSED *-------78 |
339 | IEF285I VOL SER NOS= WORK04. |
340 | IEF285I SYS14303.T145308.RA000.MURPGMS.R0000010 DELETED *--------6 |
341 | IEF285I VOL SER NOS= WORK01. |
342 | IEF285I SYS14303.T145308.RA000.MURPGMS.R0000011 DELETED *--------6 |
343 | IEF285I VOL SER NOS= HASP00. |
344 | IEF285I SYS14303.T145308.RA000.MURPGMS.R0000012 DELETED *--------9 |
345 | IEF285I VOL SER NOS= WORK00. |
346 | IEF285I SYS14303.T145308.RA000.MURPGMS.R0000013 DELETED *--------8 |
347 | IEF285I VOL SER NOS= WORK03. |
348 | IEF285I SYS14303.T145308.RA000.MURPGMS.R0000008 DELETED *-------40 |
349 | IEF285I VOL SER NOS= WORK02. |
350 | IEF373I STEP /COB2 / START 14303.1453 |
351 | IEF374I STEP /COB2 / STOP 14303.1453 CPU 0MIN 00.08SEC SRB 0MIN 00.02SEC VIRT 2076K SYS 220K |
352 | ************************************************************************************************************************************ |
353 | * 5. Jobstep of job: DFXXP00A Stepname: COB2 Program name: IKFCBL00 Executed on 30.10.14 from 14.53.09 to 14.53.09 * |
354 | * elapsed time 00:00:00,16 CPU-Identifier: BSP1 Page-in: 0 * |
355 | * CPU time 00:00:00,10 Virtual Storage used: 2076K Page-out: 0 * |
356 | * I/O Operation * |
357 | * Number of records read via DD * or DD DATA: 0 * |
358 | * DMY.......0 DMY.......0 1A2.......0 1A2.......0 240.......0 1A7......78 170.......6 152.......6 140.......9 1B0.......8 * |
359 | * 1A0......40 * |
360 | * * |
361 | * Charge for step (w/o SYSOUT): 0,16 * |
362 | ************************************************************************************************************************************ |
363 | IEF236I ALLOC. FOR DFXXP00ALKED DFXXP00A |
364 | IEF237I JES2 ALLOCATED TO SYSPRINT |
365 | IEF237I 148 ALLOCATED TO SYSLIB |
366 | IEF237I 1A2 ALLOCATED TO SYSLMOD |
367 | IEF237I 240 ALLOCATED TO SYS00606 |
368 | IEF237I 1A7 ALLOCATED TO SYSLIN |
369 | IEF237I JES2 ALLOCATED TO |
370 | IEF237I 1A0 ALLOCATED TO SYSUT1 |
371 | IEF237I 1A2 ALLOCATED TO SKIKLOAD |
372 | IEF237I 1A2 ALLOCATED TO KIKRPL |
373 | IEF142I DFXXP00ALKED DFXXP00A - STEP WAS EXECUTED - COND CODE 0000 |
374 | IEF285I JES2.JOB00703.SO0108 SYSOUT |
375 | IEF285I SYS1.COBLIB KEPT *--------7 |
376 | IEF285I VOL SER NOS= MVSRES. |
377 | IEF285I HERC01.KICKS.V1R5M0.KIKRPL KEPT *-------19 |
378 | IEF285I VOL SER NOS= KICKS2. |
379 | IEF285I SYS1.UCAT.TSO KEPT *--------0 |
380 | IEF285I VOL SER NOS= PUB000. |
381 | IEF285I SYS14303.T145308.RA000.MURPGMS.R0000009 DELETED *-------79 |
382 | IEF285I VOL SER NOS= WORK04. |
383 | IEF285I JES2.JOB00703.SI0101 SYSIN |
384 | IEF285I SYS14303.T145308.RA000.MURPGMS.R0000014 DELETED *--------0 |
385 | IEF285I VOL SER NOS= WORK02. |
386 | IEF285I HERC01.KICKSSYS.V1R5M0.SKIKLOAD KEPT *-------16 |
387 | IEF285I VOL SER NOS= KICKS2. |
388 | IEF285I HERC01.KICKSSYS.V1R5M0.KIKRPL KEPT *--------0 |
389 | IEF285I VOL SER NOS= KICKS2. |
390 | IEF373I STEP /LKED / START 14303.1453 |
391 | IEF374I STEP /LKED / STOP 14303.1453 CPU 0MIN 00.03SEC SRB 0MIN 00.00SEC VIRT 196K SYS 224K |
392 | ************************************************************************************************************************************ |
393 | * 6. Jobstep of job: DFXXP00A Stepname: LKED Program name: IEWL Executed on 30.10.14 from 14.53.09 to 14.53.09 * |
394 | * elapsed time 00:00:00,07 CPU-Identifier: BSP1 Page-in: 0 * |
395 | * CPU time 00:00:00,03 Virtual Storage used: 196K Page-out: 0 * |
396 | * I/O Operation * |
397 | * Number of records read via DD * or DD DATA: 3 * |
398 | * DMY.......0 148.......7 1A2......19 240.......0 1A7......79 DMY.......0 1A0.......0 1A2......16 1A2.......0 * |
399 | * * |
400 | * Charge for step (w/o SYSOUT): 0,05 * |
401 | ************************************************************************************************************************************ |
402 | IEF375I JOB /DFXXP00A/ START 14303.1453 |
403 | IEF376I JOB /DFXXP00A/ STOP 14303.1453 CPU 0MIN 00.69SEC SRB 0MIN 00.06SEC |
404 | KIKCOBPP version V1R5M0(0) |
405 | CB545 V2 LVL78 01MAY72 IBM OS AMERICAN NATIONAL STANDARD COBOL DATE OCT 30,2014 |
406 | |
407 | |
408 | 1 |
409 | |
410 | |
411 | 00001 IDENTIFICATION DIVISION. |
412 | 00002 |
413 | 00003 PROGRAM-ID. DFXXP00A. |
414 | 00004 |
415 | 00005 ENVIRONMENT DIVISION. |
416 | 00006 |
417 | 00007 DATA DIVISION. |
418 | 00008 |
419 | 00009 WORKING-STORAGE SECTION. |
420 | 00010 |
421 | 00011 01 WORK-FIELDS. |
422 | 00012 |
423 | 00013 05 PACKED-FIELD-1 PIC S9(07)V99 COMP-3. |
424 | 00014 05 PACKED-FIELD-2 PIC S9(07)V99 COMP-3. |
425 | 00015 05 ALPHA-FIELD-2 REDEFINES PACKED-FIELD-2 |
426 | 00016 PIC X(05). |
427 | 00017 |
428 | 00018 01 I-O-AREA PIC X(100). |
429 | 00019 |
430 | 00020 01 START-UP-MESSAGE. |
431 | 00021 |
432 | 00022 05 FILLER PIC X(30) VALUE 'ABEND TESTER '. |
433 | 00023 05 FILLER PIC X(49) VALUE SPACE. |
434 | 00024 05 FILLER PIC X(79) VALUE SPACE. |
435 | 00025 05 FILLER PIC X(30) VALUE 'Press a PF key to force one of'. |
436 | 00026 05 FILLER PIC X(49) VALUE ' the following abends:'. |
437 | 00027 05 FILLER PIC X(79) VALUE SPACE. |
438 | 00028 05 FILLER PIC X(30) VALUE 'PF1 = ASRA (Data Exception) '. |
439 | 00029 05 FILLER PIC X(49) VALUE SPACE. |
440 | 00030 05 FILLER PIC X(30) VALUE 'PF2 = ASRA (Decimal Divide Exc'. |
441 | 00031 05 FILLER PIC X(49) VALUE 'eption)'. |
442 | 00032 05 FILLER PIC X(30) VALUE 'PF3 = ASRA (Protection Excepti'. |
443 | 00033 05 FILLER PIC X(49) VALUE 'on)'. |
444 | 00034 05 FILLER PIC X(30) VALUE 'PF4 = ABM0 (Missing Map) '. |
445 | 00035 05 FILLER PIC X(49) VALUE SPACE. |
446 | 00036 05 FILLER PIC X(30) VALUE 'PF5 = AEIO (PGMIDERR) '. |
447 | 00037 05 FILLER PIC X(49) VALUE SPACE. |
448 | 00038 05 FILLER PIC X(30) VALUE 'PF6 = AEIL (DSIDERR) '. |
449 | 00039 05 FILLER PIC X(49) VALUE SPACE. |
450 | 00040 05 FILLER PIC X(30) VALUE 'PF7 = AICA (Run away task) '. |
451 | 00041 05 FILLER PIC X(49) VALUE SPACE. |
452 | 00042 05 FILLER PIC X(79) VALUE SPACE. |
453 | 00043 05 FILLER PIC X(79) VALUE SPACE. |
454 | 00044 05 FILLER PIC X(30) VALUE 'Or press Enter to exit without'. |
455 | 00045 05 FILLER PIC X(49) VALUE ' abending.'. |
456 | 00046 |
457 | 00047 01 TERMINATION-MESSAGE. |
458 | 00048 |
459 | 00049 05 FILLER PIC X(09) VALUE 'Good Bye.'. |
460 | 00050 |
461 | 00051 01 COMMUNICATION-AREA PIC X(01). |
462 | 00052 |
463 | 00053 *COPY KIKAID. |
464 | 00054 */////////////////////////////////////////////////////////////// |
465 | 00055 * KICKS is an enhancement for TSO that lets you run your CICS |
466 | 00056 * applications directly in TSO instead of having to 'install' |
467 | 00057 * those apps in CICS. |
468 | 00058 * You don't even need CICS itself installed on your machine! |
469 | 00059 * |
470 | 00060 * KICKS for TSO |
471 | 00061 * © Copyright 2008-2014, Michael Noel, All Rights Reserved. |
472 | 00062 * |
473 | 00063 * Usage of 'KICKS for TSO' is in all cases subject to license. |
474 | 00064 * See http://www.kicksfortso.com |
475 | 00065 * for most current information regarding licensing options. |
476 | 00066 *//1/////////2/////////3/////////4/////////5/////////6/////////7 |
477 | 00067 |
478 | 00068 * 3270 aid byte values, usually used in examining eibaid |
479 | 00069 * to determine what user pressed... |
480 | 00070 |
481 | 00071 01 KIKAID. |
482 | 00072 * 05 KIKENTER PIC X VALUE X'7D'. |
483 | 00073 05 KIKENTER PIC X VALUE QUOTE. |
484 | 00074 * 05 KIKCLEAR PIC X VALUE X'6D'. |
485 | 00075 05 KIKCLEAR PIC X VALUE '_'. |
486 | 00076 |
487 | 00077 * 05 KIKNULL PIC X VALUE X'00'. |
488 | 00078 05 KIKNULL PIC X VALUE LOW-VALUES. |
489 | 00079 |
490 | 00080 * 05 KIKPA1 PIC X VALUE X'6C'. |
491 | 00081 05 KIKPA1 PIC X VALUE '%'. |
492 | 00082 * 05 KIKPA2 PIC X VALUE X'6E'. |
493 | 00083 05 KIKPA2 PIC X VALUE '>'. |
494 | 00084 * 05 KIKPA3 PIC X VALUE X'6B'. |
495 | 00085 05 KIKPA3 PIC X VALUE ','. |
496 | 00086 |
497 | 00087 * 05 KIKPF1 PIC X VALUE X'F1'. |
498 | 00088 05 KIKPF1 PIC X VALUE '1'. |
499 | 00089 * 05 KIKPF2 PIC X VALUE X'F2'. |
500 | 00090 05 KIKPF2 PIC X VALUE '2'. |
501 | 00091 * 05 KIKPF3 PIC X VALUE X'F3'. |
502 | 00092 05 KIKPF3 PIC X VALUE '3'. |
503 | 00093 * 05 KIKPF4 PIC X VALUE X'F4'. |
504 | 00094 05 KIKPF4 PIC X VALUE '4'. |
505 | 00095 * 05 KIKPF5 PIC X VALUE X'F5'. |
506 | 00096 05 KIKPF5 PIC X VALUE '5'. |
507 | 00097 * 05 KIKPF6 PIC X VALUE X'F6'. |
508 | 00098 05 KIKPF6 PIC X VALUE '6'. |
509 | 00099 * 05 KIKPF7 PIC X VALUE X'F7'. |
510 | 00100 05 KIKPF7 PIC X VALUE '7'. |
511 | 00101 * 05 KIKPF8 PIC X VALUE X'F8'. |
512 | 00102 05 KIKPF8 PIC X VALUE '8'. |
513 | 00103 * 05 KIKPF9 PIC X VALUE X'F9'. |
514 | 00104 05 KIKPF9 PIC X VALUE '9'. |
515 | 00105 * 05 KIKPF10 PIC X VALUE X'7A'. |
516 | 00106 05 KIKPF10 PIC X VALUE ':'. |
517 | 00107 * 05 KIKPF11 PIC X VALUE X'7B'. |
518 | 00108 05 KIKPF11 PIC X VALUE '#'. |
519 | 00109 * 05 KIKPF12 PIC X VALUE X'7C'. |
520 | 00110 05 KIKPF12 PIC X VALUE '@'. |
521 | 00111 * 05 KIKPF13 PIC X VALUE X'C1'. |
522 | 00112 05 KIKPF13 PIC X VALUE 'A'. |
523 | 00113 * 05 KIKPF14 PIC X VALUE X'C2'. |
524 | 00114 05 KIKPF14 PIC X VALUE 'B'. |
525 | 00115 * 05 KIKPF15 PIC X VALUE X'C3'. |
526 | 00116 05 KIKPF15 PIC X VALUE 'C'. |
527 | 00117 * 05 KIKPF16 PIC X VALUE X'C4'. |
528 | 00118 05 KIKPF16 PIC X VALUE 'D'. |
529 | 00119 * 05 KIKPF17 PIC X VALUE X'C5'. |
530 | 00120 05 KIKPF17 PIC X VALUE 'E'. |
531 | 00121 * 05 KIKPF18 PIC X VALUE X'C6'. |
532 | 00122 05 KIKPF18 PIC X VALUE 'F'. |
533 | 00123 * 05 KIKPF19 PIC X VALUE X'C7'. |
534 | 00124 05 KIKPF19 PIC X VALUE 'G'. |
535 | 00125 * 05 KIKPF20 PIC X VALUE X'C8'. |
536 | 00126 05 KIKPF20 PIC X VALUE 'H'. |
537 | 00127 * 05 KIKPF21 PIC X VALUE X'C9'. |
538 | 00128 05 KIKPF21 PIC X VALUE 'I'. |
539 | 00129 * 05 KIKPF22 PIC X VALUE X'4A'. |
540 | 00130 05 KIKPF22 PIC X VALUE '¢'. |
541 | 00131 * 05 KIKPF23 PIC X VALUE X'4B'. |
542 | 00132 05 KIKPF23 PIC X VALUE '.'. |
543 | 00133 * 05 KIKPF24 PIC X VALUE X'4C'. |
544 | 00134 05 KIKPF24 PIC X VALUE '<'. |
545 | 00135 |
546 | 00136 |
547 | 00137 * VALUES USED IN EXEC-KICKS CALLS |
548 | 00138 |
549 | 00139 01 KIK-MSG PIC X(80). |
550 | 00140 01 KIK-MAPSETNAME PIC X(8). |
551 | 00141 01 KIK-MAPNAME PIC X(8). |
552 | 00142 01 KIK-QUEUENAME. |
553 | 00143 05 KIK-FILENAME PIC X(8). |
554 | 00144 05 KIK-PROGRAM PIC X(8). |
555 | 00145 01 KIK-TRAN PIC X(4). |
556 | 00146 01 KIK-ABND PIC X(4). |
557 | 00147 01 KIK-LEN PIC S9(4) COMP. |
558 | 00148 01 KIK-ITEM PIC S9(4) COMP. |
559 | 00149 01 KIK-ITEMSIZE PIC S9(4) COMP. |
560 | 00150 01 KIK-NUMITEMS PIC S9(4) COMP. |
561 | 00151 01 KIK-FLEN PIC S9(8) COMP. |
562 | 00152 01 KIK-KEYLEN PIC S9(4) COMP. |
563 | 00153 01 KIK-NUMREC PIC S9(4) COMP. |
564 | 00154 01 KIK-REQID PIC S9(4) COMP. |
565 | 00155 01 KIK-FLAGS PIC S9(8) COMP. |
566 | 00156 01 KIK-GOTOVAR PIC S9(4) COMP. |
567 | 00157 01 KIK-NUM-GOTO PIC S9(8) COMP. |
568 | 00158 01 KIK-AIDS1 PIC S9(8) COMP. |
569 | 00159 01 KIK-AIDS2 PIC S9(8) COMP. |
570 | 00160 01 KIK-AIDS3 PIC S9(8) COMP. |
571 | 00161 01 KIK-AIDS4 PIC S9(8) COMP. |
572 | 00162 |
573 | 00163 * due to compiler bug (in ANSI MVT COBOL compiler) |
574 | 00164 * we can't have versions in value clause because |
575 | 00165 * the compiler doesn't like really big (but valid) numbers |
576 | 00166 * in value clauses. they seem ok in moves, computes, ... |
577 | 00167 01 KIK-V1 PIC S9(8) COMP VALUE +0. |
578 | 00168 01 KIK-V2 PIC S9(8) COMP VALUE +0. |
579 | 00169 |
580 | 00170 01 KIK-NULL PIC S9(8) COMP VALUE +0. |
581 | 00171 |
582 | 00172 LINKAGE SECTION. |
583 | 00173 |
584 | 00174 *COPY KIKEIB. |
585 | 00175 */////////////////////////////////////////////////////////////// |
586 | 00176 * KICKS is an enhancement for TSO that lets you run your CICS |
587 | 00177 * applications directly in TSO instead of having to 'install' |
588 | 00178 * those apps in CICS. |
589 | 00179 * You don't even need CICS itself installed on your machine! |
590 | 00180 * |
591 | 00181 * KICKS for TSO |
592 | 00182 * © Copyright 2008-2014, Michael Noel, All Rights Reserved. |
593 | 00183 * |
594 | 00184 * Usage of 'KICKS for TSO' is in all cases subject to license. |
595 | 00185 * See http://www.kicksfortso.com |
596 | 00186 * for most current information regarding licensing options. |
597 | 00187 *//1/////////2/////////3/////////4/////////5/////////6/////////7 |
598 | 00188 |
599 | 00189 01 KIKEIB. |
600 | 00190 05 EIBTASKN PIC S9(8) COMP SYNC. |
601 | 00191 05 EIBCALEN PIC S9(4) COMP SYNC. |
602 | 00192 05 EIBCPOSN PIC S9(4) COMP SYNC. |
603 | 00193 05 EIBDATE PIC S9(7) COMP-3. |
604 | 00194 05 EIBTIME PIC S9(7) COMP-3. |
605 | 00195 05 EIBRESP PIC S9(8) COMP SYNC. |
606 | 00196 05 EIBRESP2 PIC S9(8) COMP SYNC. |
607 | 00197 05 EIBRSRCE PIC X(8). |
608 | 00198 05 EIBDS PIC X(8). |
609 | 00199 05 EIBFN PIC X(2). |
610 | 00200 05 EIBFN-2 REDEFINES EIBFN PIC S9(4) COMP. |
611 | 00201 05 EIBRCODE PIC X(6). |
612 | 00202 05 EIBTRMID PIC X(4). |
613 | 00203 05 EIBTRNID PIC X(4). |
614 | 00204 05 EIBAID PIC X. |
615 | 00205 05 EIBOPID PIC X(3). |
616 | 00206 05 EIBUSRID PIC X(8). |
617 | 00207 05 EIBSYSID PIC X(8). |
618 | 00208 05 EIBNETID PIC X(8). |
619 | 00209 05 EIBPGMID PIC X(8). |
620 | 00210 * following three added to PRO for source trace |
621 | 00211 05 EIBLINE PIC S9(8) COMP SYNC. |
622 | 00212 05 EIBPROG PIC X(8). |
623 | 00213 05 EIBWC PIC X(20). |
624 | 00214 * |
625 | 00215 |
626 | 00216 |
627 | 00217 01 KIKCOMMAREA PIC X(01). |
628 | 00218 |
629 | 00219 01 MORE-ARGS. |
630 | 00220 05 FILLER PIC S9(8) COMP. |
631 | 00221 05 CWA-BLL PIC S9(8) COMP. |
632 | 00222 |
633 | 00223 01 COMMON-WORK-AREA. |
634 | 00224 |
635 | 00225 05 CWA-DATE PIC 9(06). |
636 | 00226 |
637 | 00227 PROCEDURE DIVISION USING |
638 | 00228 KIKEIB, |
639 | 00229 KIKCOMMAREA, |
640 | 00230 MORE-ARGS, |
641 | 00231 COMMON-WORK-AREA. |
642 | 00232 |
643 | 00233 * Set up MORE-ARGS as BLL-CELLS |
644 | 00234 CALL 'KIKBLLIN' USING MORE-ARGS. |
645 | 00235 |
646 | 00236 * Set up KIK-V1/V2 as x'01050000' - V1R5M0(0) |
647 | 00237 MOVE 17104896 TO KIK-V1. |
648 | 00238 MULTIPLY KIK-V1 BY -1 GIVING KIK-V2. |
649 | 00239 |
650 | 00240 * Fill in EIB source trace fields even if not source tracing |
651 | 00241 MOVE 'DFXXP00A' TO EIBPROG. |
652 | 00242 MOVE '14:53:09OCT 30, 2014' TO EIBWC. |
653 | 00243 MOVE 0 TO EIBLINE. |
654 | 00244 |
655 | 00245 * Set up initial entry, final return |
656 | 00246 MOVE 0 TO EIBFN-2. MOVE -1 TO KIK-LEN. |
657 | 00247 CALL 'KIKCOBGL' USING KIKEIB, KIK-V1, |
658 | 00248 KIK-LEN. |
659 | 00249 IF KIK-LEN > 0 |
660 | 00250 GOBACK. |
661 | 00251 |
662 | 00252 0000-FORCE-USER-ABEND. |
663 | 00253 |
664 | 00254 * EVALUATE TRUE |
665 | 00255 * WHEN EIBCALEN = ZERO |
666 | 00256 IF EIBCALEN = ZERO |
667 | 00257 * EXEC KICKS |
668 | 00258 * SEND TEXT FROM(START-UP-MESSAGE) |
669 | 00259 * ERASE |
670 | 00260 * FREEKB |
671 | 00261 * END-EXEC |
672 | 00262 MOVE 83886154 TO EIBLINE |
673 | 00263 MOVE 6150 TO EIBFN-2 |
674 | 00264 * MOVE LENGTH OF START-UP-MESSAGE TO KIK-FLEN |
675 | 00265 MOVE 1106 TO KIK-FLEN |
676 | 00266 MOVE 193792 TO KIK-FLAGS |
677 | 00267 CALL 'KIKCOBGL' USING KIKEIB, |
678 | 00268 KIK-V1, |
679 | 00269 START-UP-MESSAGE, KIK-FLEN, KIK-NULL, |
680 | 00270 KIK-NULL, KIK-FLAGS |
681 | 00271 * WHEN EIBAID = KIKPF1 |
682 | 00272 ELSE |
683 | 00273 IF EIBAID = KIKPF1 |
684 | 00274 MOVE SPACE TO ALPHA-FIELD-2 |
685 | 00275 MOVE 100 TO PACKED-FIELD-1 |
686 | 00276 MULTIPLY PACKED-FIELD-1 BY PACKED-FIELD-2 |
687 | 00277 * WHEN EIBAID = KIKPF2 |
688 | 00278 ELSE |
689 | 00279 IF EIBAID = KIKPF2 |
690 | 00280 MOVE 100 TO PACKED-FIELD-1 |
691 | 00281 MOVE ZERO TO PACKED-FIELD-2 |
692 | 00282 DIVIDE PACKED-FIELD-2 INTO PACKED-FIELD-1 |
693 | 00283 * WHEN EIBAID = KIKPF3 |
694 | 00284 ELSE |
695 | 00285 IF EIBAID = KIKPF3 |
696 | 00286 * SET ADDRESS OF COMMON-WORK-AREA TO NULL |
697 | 00287 MOVE 0 TO CWA-BLL |
698 | 00288 MOVE ZERO TO CWA-DATE |
699 | 00289 * WHEN EIBAID = KIKPF4 |
700 | 00290 ELSE |
701 | 00291 IF EIBAID = KIKPF4 |
702 | 00292 * EXEC KICKS |
703 | 00293 * SEND MAP('NOMAP1') |
704 | 00294 * MAPSET('NOSET1') |
705 | 00295 * FROM(I-O-AREA) |
706 | 00296 * ERASE |
707 | 00297 * END-EXEC |
708 | 00298 MOVE 100663396 TO EIBLINE |
709 | 00299 MOVE 6148 TO EIBFN-2 |
710 | 00300 MOVE 'NOMAP1' TO KIK-MAPNAME |
711 | 00301 MOVE 'NOSET1' TO KIK-MAPSETNAME |
712 | 00302 MOVE 62720 TO KIK-FLAGS |
713 | 00303 CALL 'KIKCOBGL' USING KIKEIB, |
714 | 00304 KIK-V1, |
715 | 00305 KIK-MAPSETNAME, KIK-MAPNAME, I-O-AREA |
716 | 00306 KIK-NULL, KIK-FLAGS |
717 | 00307 * WHEN EIBAID = KIKPF5 |
718 | 00308 ELSE |
719 | 00309 IF EIBAID = KIKPF5 |
720 | 00310 * EXEC KICKS |
721 | 00311 * XCTL PROGRAM('NOPGM1') |
722 | 00312 * END-EXEC |
723 | 00313 MOVE 50331757 TO EIBLINE |
724 | 00314 MOVE 3588 TO EIBFN-2 |
725 | 00315 MOVE 'NOPGM1' TO KIK-PROGRAM |
726 | 00316 MOVE 0 TO KIK-FLEN |
727 | 00317 CALL 'KIKCOBGL' USING KIKEIB, |
728 | 00318 KIK-V1, |
729 | 00319 KIK-PROGRAM, KIK-NULL, KIK-FLEN |
730 | 00320 * WHEN EIBAID = KIKPF6 |
731 | 00321 ELSE |
732 | 00322 IF EIBAID = KIKPF6 |
733 | 00323 * EXEC KICKS |
734 | 00324 * READ DATASET('NOFILE') |
735 | 00325 * INTO(I-O-AREA) |
736 | 00326 * RIDFLD(ALPHA-FIELD-2) |
737 | 00327 * END-EXEC |
738 | 00328 MOVE 83886195 TO EIBLINE |
739 | 00329 MOVE 1538 TO EIBFN-2 |
740 | 00330 MOVE 'NOFILE' TO KIK-FILENAME |
741 | 00331 MOVE 0 TO KIK-FLAGS |
742 | 00332 MOVE -1 TO KIK-LEN |
743 | 00333 MOVE -1 TO KIK-KEYLEN |
744 | 00334 CALL 'KIKCOBGL' USING KIKEIB, |
745 | 00335 KIK-V1, |
746 | 00336 KIK-FILENAME, |
747 | 00337 KIK-FLAGS, |
748 | 00338 I-O-AREA, |
749 | 00339 KIK-LEN, |
750 | 00340 ALPHA-FIELD-2, |
751 | 00341 KIK-KEYLEN |
752 | 00342 * WHEN EIBAID = KIKPF7 |
753 | 00343 ELSE |
754 | 00344 IF EIBAID = KIKPF7 |
755 | 00345 PERFORM LOOP-FOREVER |
756 | 00346 * WHEN EIBAID = KIKENTER OR KIKCLEAR |
757 | 00347 ELSE |
758 | 00348 IF EIBAID = KIKENTER OR KIKCLEAR |
759 | 00349 * EXEC KICKS |
760 | 00350 * SEND TEXT FROM(TERMINATION-MESSAGE) |
761 | 00351 * ERASE |
762 | 00352 * FREEKB |
763 | 00353 * END-EXEC |
764 | 00354 MOVE 83886207 TO EIBLINE |
765 | 00355 MOVE 6150 TO EIBFN-2 |
766 | 00356 * MOVE LENGTH OF TERMINATION-MESSAGE TO KIK-FLEN |
767 | 00357 MOVE 9 TO KIK-FLEN |
768 | 00358 MOVE 193792 TO KIK-FLAGS |
769 | 00359 CALL 'KIKCOBGL' USING KIKEIB, |
770 | 00360 KIK-V1, |
771 | 00361 TERMINATION-MESSAGE, KIK-FLEN, KIK-NULL, |
772 | 00362 KIK-NULL, KIK-FLAGS |
773 | 00363 * EXEC KICKS |
774 | 00364 * RETURN |
775 | 00365 * END-EXEC. |
776 | 00366 MOVE 50331780 TO EIBLINE |
777 | 00367 MOVE 3592 TO EIBFN-2 |
778 | 00368 MOVE LOW-VALUES TO KIK-TRAN |
779 | 00369 MOVE 0 TO KIK-FLEN |
780 | 00370 CALL 'KIKCOBGL' USING KIKEIB, |
781 | 00371 KIK-V1, |
782 | 00372 KIK-TRAN, KIK-NULL, KIK-FLEN. |
783 | 00373 * END-EVALUATE. |
784 | 00374 * EXEC KICKS |
785 | 00375 * RETURN TRANSID('DFXX') |
786 | 00376 * COMMAREA(COMMUNICATION-AREA) |
787 | 00377 * END-EXEC. |
788 | 00378 MOVE 67109000 TO EIBLINE |
789 | 00379 MOVE 3592 TO EIBFN-2 |
790 | 00380 MOVE 'DFXX' TO KIK-TRAN |
791 | 00381 * MOVE LENGTH OF COMMUNICATION-AREA TO KIK-FLEN |
792 | 00382 MOVE 1 TO KIK-FLEN |
793 | 00383 CALL 'KIKCOBGL' USING KIKEIB, |
794 | 00384 KIK-V1, |
795 | 00385 KIK-TRAN, COMMUNICATION-AREA, KIK-FLEN. |
796 | 00386 * |
797 | 00387 LOOP-FOREVER. |
798 | 00388 GO TO LOOP-FOREVER. |
799 | 00389 * |
800 | |
801 | INTRNL NAME LVL SOURCE NAME BASE DISPL INTRNL NAME DEFINITION USAGE R O Q M |
802 | DNM=1-079 01 WORK-FIELDS BL=1 000 DNM=1-079 DS 0CL10 GROUP |
803 | DNM=1-103 02 PACKED-FIELD-1 BL=1 000 DNM=1-103 DS 5P COMP-3 |
804 | DNM=1-127 02 PACKED-FIELD-2 BL=1 005 DNM=1-127 DS 5P COMP-3 |
805 | DNM=1-151 02 ALPHA-FIELD-2 BL=1 005 DNM=1-151 DS 5C DISP R |
806 | DNM=1-174 01 I-O-AREA BL=1 010 DNM=1-174 DS 100C DISP |
807 | DNM=1-192 01 START-UP-MESSAGE BL=1 078 DNM=1-192 DS 0CL1106 GROUP |
808 | DNM=1-221 02 FILLER BL=1 078 DNM=1-221 DS 30C DISP |
809 | DNM=1-237 02 FILLER BL=1 096 DNM=1-237 DS 49C DISP |
810 | DNM=1-256 02 FILLER BL=1 0C7 DNM=1-256 DS 79C DISP |
811 | DNM=1-275 02 FILLER BL=1 116 DNM=1-275 DS 30C DISP |
812 | DNM=1-294 02 FILLER BL=1 134 DNM=1-294 DS 49C DISP |
813 | DNM=1-313 02 FILLER BL=1 165 DNM=1-313 DS 79C DISP |
814 | DNM=1-332 02 FILLER BL=1 1B4 DNM=1-332 DS 30C DISP |
815 | DNM=1-351 02 FILLER BL=1 1D2 DNM=1-351 DS 49C DISP |
816 | DNM=1-370 02 FILLER BL=1 203 DNM=1-370 DS 30C DISP |
817 | DNM=1-389 02 FILLER BL=1 221 DNM=1-389 DS 49C DISP |
818 | DNM=1-408 02 FILLER BL=1 252 DNM=1-408 DS 30C DISP |
819 | DNM=1-427 02 FILLER BL=1 270 DNM=1-427 DS 49C DISP |
820 | DNM=1-446 02 FILLER BL=1 2A1 DNM=1-446 DS 30C DISP |
821 | DNM=1-465 02 FILLER BL=1 2BF DNM=1-465 DS 49C DISP |
822 | DNM=1-484 02 FILLER BL=1 2F0 DNM=1-484 DS 30C DISP |
823 | DNM=2-000 02 FILLER BL=1 30E DNM=2-000 DS 49C DISP |
824 | DNM=2-019 02 FILLER BL=1 33F DNM=2-019 DS 30C DISP |
825 | DNM=2-038 02 FILLER BL=1 35D DNM=2-038 DS 49C DISP |
826 | DNM=2-057 02 FILLER BL=1 38E DNM=2-057 DS 30C DISP |
827 | DNM=2-076 02 FILLER BL=1 3AC DNM=2-076 DS 49C DISP |
828 | DNM=2-095 02 FILLER BL=1 3DD DNM=2-095 DS 79C DISP |
829 | DNM=2-114 02 FILLER BL=1 42C DNM=2-114 DS 79C DISP |
830 | DNM=2-133 02 FILLER BL=1 47B DNM=2-133 DS 30C DISP |
831 | DNM=2-152 02 FILLER BL=1 499 DNM=2-152 DS 49C DISP |
832 | DNM=2-171 01 TERMINATION-MESSAGE BL=1 4D0 DNM=2-171 DS 0CL9 GROUP |
833 | DNM=2-203 02 FILLER BL=1 4D0 DNM=2-203 DS 9C DISP |
834 | DNM=2-222 01 COMMUNICATION-AREA BL=1 4E0 DNM=2-222 DS 1C DISP |
835 | DNM=2-250 01 KIKAID BL=1 4E8 DNM=2-250 DS 0CL30 GROUP |
836 | DNM=2-269 02 KIKENTER BL=1 4E8 DNM=2-269 DS 1C DISP |
837 | DNM=2-287 02 KIKCLEAR BL=1 4E9 DNM=2-287 DS 1C DISP |
838 | DNM=2-305 02 KIKNULL BL=1 4EA DNM=2-305 DS 1C DISP |
839 | DNM=2-322 02 KIKPA1 BL=1 4EB DNM=2-322 DS 1C DISP |
840 | DNM=2-338 02 KIKPA2 BL=1 4EC DNM=2-338 DS 1C DISP |
841 | DNM=2-354 02 KIKPA3 BL=1 4ED DNM=2-354 DS 1C DISP |
842 | DNM=2-370 02 KIKPF1 BL=1 4EE DNM=2-370 DS 1C DISP |
843 | DNM=2-386 02 KIKPF2 BL=1 4EF DNM=2-386 DS 1C DISP |
844 | DNM=2-402 02 KIKPF3 BL=1 4F0 DNM=2-402 DS 1C DISP |
845 | DNM=2-418 02 KIKPF4 BL=1 4F1 DNM=2-418 DS 1C DISP |
846 | DNM=2-434 02 KIKPF5 BL=1 4F2 DNM=2-434 DS 1C DISP |
847 | DNM=2-450 02 KIKPF6 BL=1 4F3 DNM=2-450 DS 1C DISP |
848 | DNM=2-466 02 KIKPF7 BL=1 4F4 DNM=2-466 DS 1C DISP |
849 | DNM=2-482 02 KIKPF8 BL=1 4F5 DNM=2-482 DS 1C DISP |
850 | DNM=3-000 02 KIKPF9 BL=1 4F6 DNM=3-000 DS 1C DISP |
851 | DNM=3-016 02 KIKPF10 BL=1 4F7 DNM=3-016 DS 1C DISP |
852 | DNM=3-033 02 KIKPF11 BL=1 4F8 DNM=3-033 DS 1C DISP |
853 | DNM=3-050 02 KIKPF12 BL=1 4F9 DNM=3-050 DS 1C DISP |
854 | DNM=3-070 02 KIKPF13 BL=1 4FA DNM=3-070 DS 1C DISP |
855 | DNM=3-087 02 KIKPF14 BL=1 4FB DNM=3-087 DS 1C DISP |
856 | DNM=3-104 02 KIKPF15 BL=1 4FC DNM=3-104 DS 1C DISP |
857 | DNM=3-121 02 KIKPF16 BL=1 4FD DNM=3-121 DS 1C DISP |
858 | DNM=3-138 02 KIKPF17 BL=1 4FE DNM=3-138 DS 1C DISP |
859 | DNM=3-155 02 KIKPF18 BL=1 4FF DNM=3-155 DS 1C DISP |
860 | DNM=3-172 02 KIKPF19 BL=1 500 DNM=3-172 DS 1C DISP |
861 | DNM=3-189 02 KIKPF20 BL=1 501 DNM=3-189 DS 1C DISP |
862 | DNM=3-209 02 KIKPF21 BL=1 502 DNM=3-209 DS 1C DISP |
863 | DNM=3-226 02 KIKPF22 BL=1 503 DNM=3-226 DS 1C DISP |
864 | DNM=3-243 02 KIKPF23 BL=1 504 DNM=3-243 DS 1C DISP |
865 | DNM=3-260 02 KIKPF24 BL=1 505 DNM=3-260 DS 1C DISP |
866 | DNM=3-277 01 KIK-MSG BL=1 508 DNM=3-277 DS 80C DISP |
867 | DNM=3-294 01 KIK-MAPSETNAME BL=1 558 DNM=3-294 DS 8C DISP |
868 | DNM=3-318 01 KIK-MAPNAME BL=1 560 DNM=3-318 DS 8C DISP |
869 | DNM=3-339 01 KIK-QUEUENAME BL=1 568 DNM=3-339 DS 0CL16 GROUP |
870 | DNM=3-365 02 KIK-FILENAME BL=1 568 DNM=3-365 DS 8C DISP |
871 | DNM=3-387 02 KIK-PROGRAM BL=1 570 DNM=3-387 DS 8C DISP |
872 | DNM=3-408 01 KIK-TRAN BL=1 578 DNM=3-408 DS 4C DISP |
873 | DNM=3-429 01 KIK-ABND BL=1 580 DNM=3-429 DS 4C DISP |
874 | DNM=3-447 01 KIK-LEN BL=1 588 DNM=3-447 DS 2C COMP |
875 | DNM=3-464 01 KIK-ITEM BL=1 590 DNM=3-464 DS 2C COMP |
876 | DNM=3-482 01 KIK-ITEMSIZE BL=1 598 DNM=3-482 DS 2C COMP |
877 | DNM=4-000 01 KIK-NUMITEMS BL=1 5A0 DNM=4-000 DS 2C COMP |
878 | DNM=4-022 01 KIK-FLEN BL=1 5A8 DNM=4-022 DS 4C COMP |
879 | DNM=4-040 01 KIK-KEYLEN BL=1 5B0 DNM=4-040 DS 2C COMP |
880 | DNM=4-060 01 KIK-NUMREC BL=1 5B8 DNM=4-060 DS 2C COMP |
881 | DNM=4-080 01 KIK-REQID BL=1 5C0 DNM=4-080 DS 2C COMP |
882 | DNM=4-099 01 KIK-FLAGS BL=1 5C8 DNM=4-099 DS 4C COMP |
883 | DNM=4-121 01 KIK-GOTOVAR BL=1 5D0 DNM=4-121 DS 2C COMP |
884 | DNM=4-142 01 KIK-NUM-GOTO BL=1 5D8 DNM=4-142 DS 4C COMP |
885 | DNM=4-164 01 KIK-AIDS1 BL=1 5E0 DNM=4-164 DS 4C COMP |
886 | DNM=4-183 01 KIK-AIDS2 BL=1 5E8 DNM=4-183 DS 4C COMP |
887 | DNM=4-202 01 KIK-AIDS3 BL=1 5F0 DNM=4-202 DS 4C COMP |
888 | DNM=4-221 01 KIK-AIDS4 BL=1 5F8 DNM=4-221 DS 4C COMP |
889 | DNM=4-243 01 KIK-V1 BL=1 600 DNM=4-243 DS 4C COMP |
890 | DNM=4-259 01 KIK-V2 BL=1 608 DNM=4-259 DS 4C COMP |
891 | DNM=4-275 01 KIK-NULL BL=1 610 DNM=4-275 DS 4C COMP |
892 | DNM=4-296 01 KIKEIB BLL=3 000 DNM=4-296 DS 0CL124 GROUP |
893 | DNM=4-315 02 EIBTASKN BLL=3 000 DNM=4-315 DS 1F COMP |
894 | DNM=4-333 02 EIBCALEN BLL=3 004 DNM=4-333 DS 1H COMP |
895 | DNM=4-351 02 EIBCPOSN BLL=3 006 DNM=4-351 DS 1H COMP |
896 | DNM=4-369 02 EIBDATE BLL=3 008 DNM=4-369 DS 4P COMP-3 |
897 | DNM=4-386 02 EIBTIME BLL=3 00C DNM=4-386 DS 4P COMP-3 |
898 | DNM=4-403 02 EIBRESP BLL=3 010 DNM=4-403 DS 1F COMP |
899 | DNM=4-420 02 EIBRESP2 BLL=3 014 DNM=4-420 DS 1F COMP |
900 | DNM=4-438 02 EIBRSRCE BLL=3 018 DNM=4-438 DS 8C DISP |
901 | DNM=4-456 02 EIBDS BLL=3 020 DNM=4-456 DS 8C DISP |
902 | DNM=4-471 02 EIBFN BLL=3 028 DNM=4-471 DS 2C DISP |
903 | DNM=4-486 02 EIBFN-2 BLL=3 028 DNM=4-486 DS 2C COMP R |
904 | DNM=5-000 02 EIBRCODE BLL=3 02A DNM=5-000 DS 6C DISP |
905 | DNM=5-018 02 EIBTRMID BLL=3 030 DNM=5-018 DS 4C DISP |
906 | DNM=5-036 02 EIBTRNID BLL=3 034 DNM=5-036 DS 4C DISP |
907 | DNM=5-054 02 EIBAID BLL=3 038 DNM=5-054 DS 1C DISP |
908 | DNM=5-070 02 EIBOPID BLL=3 039 DNM=5-070 DS 3C DISP |
909 | DNM=5-087 02 EIBUSRID BLL=3 03C DNM=5-087 DS 8C DISP |
910 | DNM=5-105 02 EIBSYSID BLL=3 044 DNM=5-105 DS 8C DISP |
911 | DNM=5-123 02 EIBNETID BLL=3 04C DNM=5-123 DS 8C DISP |
912 | DNM=5-144 02 EIBPGMID BLL=3 054 DNM=5-144 DS 8C DISP |
913 | DNM=5-162 02 EIBLINE BLL=3 05C DNM=5-162 DS 1F COMP |
914 | DNM=5-182 02 EIBPROG BLL=3 060 DNM=5-182 DS 8C DISP |
915 | DNM=5-199 02 EIBWC BLL=3 068 DNM=5-199 DS 20C DISP |
916 | DNM=5-214 01 KIKCOMMAREA BLL=4 000 DNM=5-214 DS 1C DISP |
917 | DNM=5-235 01 MORE-ARGS BLL=5 000 DNM=5-235 DS 0CL8 GROUP |
918 | DNM=5-257 02 FILLER BLL=5 000 DNM=5-257 DS 4C COMP |
919 | DNM=5-276 02 CWA-BLL BLL=5 004 DNM=5-276 DS 4C COMP |
920 | DNM=5-293 01 COMMON-WORK-AREA BLL=6 000 DNM=5-293 DS 0CL6 GROUP |
921 | DNM=5-322 02 CWA-DATE BLL=6 000 DNM=5-322 DS 6C DISP-NM |
922 | |
923 | |
924 | |
925 | CONDENSED LISTING |
926 | |
927 | 227 ENTRY 0009AA 234 CALL 0009D4 237 MOVE 0009F2 |
928 | 238 MULTIPLY 0009F8 241 MOVE 000A10 242 MOVE 000A1A |
929 | 243 MOVE 000A20 246 MOVE 000A26 246 MOVE 000A2C |
930 | 247 CALL 000A32 249 IF 000A5C 250 GOBACK 000A70 |
931 | 256 IF 000A9E 262 MOVE 000AB0 263 MOVE 000AB6 |
932 | 265 MOVE 000ABC 266 MOVE 000AC2 267 CALL 000AC8 |
933 | 273 ELSE 000B12 273 IF 000B18 274 MOVE 000B28 |
934 | 275 MOVE 000B32 276 MULTIPLY 000B38 279 ELSE 000B56 |
935 | 279 IF 000B5C 280 MOVE 000B6C 281 MOVE 000B72 |
936 | 282 DIVIDE 000B78 285 ELSE 000B9C 285 IF 000BA2 |
937 | 287 MOVE 000BB2 288 MOVE 000BBC 291 ELSE 000BC6 |
938 | 291 IF 000BCC 298 MOVE 000BDC 299 MOVE 000BE2 |
939 | 300 MOVE 000BE8 301 MOVE 000BF8 302 MOVE 000C08 |
940 | 303 CALL 000C0E 309 ELSE 000C58 309 IF 000C5E |
941 | 313 MOVE 000C6E 314 MOVE 000C74 315 MOVE 000C7A |
942 | 316 MOVE 000C8A 317 CALL 000C90 322 ELSE 000CCA |
943 | 322 IF 000CD0 328 MOVE 000CE0 329 MOVE 000CE6 |
944 | 330 MOVE 000CEC 331 MOVE 000CFC 332 MOVE 000D02 |
945 | 333 MOVE 000D08 334 CALL 000D0E 344 ELSE 000D60 |
946 | 344 IF 000D66 345 PERFORM 000D76 348 ELSE 000D94 |
947 | 348 IF 000D9A 354 MOVE 000DB6 355 MOVE 000DC0 |
948 | 357 MOVE 000DC6 358 MOVE 000DCC 359 CALL 000DD2 |
949 | 366 MOVE 000E1C 367 MOVE 000E26 368 MOVE 000E2C |
950 | 369 MOVE 000E36 370 CALL 000E3C 378 MOVE 000E76 |
951 | 379 MOVE 000E80 380 MOVE 000E86 382 MOVE 000E8C |
952 | 383 CALL 000E92 388 GO 000ECC |
953 | |
954 | |
955 | |
956 | *STATISTICS* SOURCE RECORDS = 388 DATA DIVISION STATEMENTS = 120 PROCEDURE DIVISION STATEMENTS = 76 |
957 | *OPTIONS IN EFFECT* SIZE = 2097152 BUF = 1048576 LINECNT = 57 SPACE1, FLAGW, SEQ, SOURCE |
958 | *OPTIONS IN EFFECT* DMAP, NOPMAP, CLIST, SUPMAP, NOXREF, LOAD, NODECK, APOST, NOTRUNC, LIB, VERB |
959 | *OPTIONS IN EFFECT* ZWB |
960 | |
961 | F64-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED XREF,LIST,LET,MAP |
962 | DEFAULT OPTION(S) USED - SIZE=(165888,55296) |
963 | IEW0000 INCLUDE SKIKLOAD(KIKCOBGL) |
964 | IEW0000 ENTRY DFXXP00A |
965 | IEW0000 NAME DFXXP00A(R) |
966 | |
967 | |
968 | |
969 | CROSS REFERENCE TABLE |
970 | |
971 | |
972 | CONTROL SECTION ENTRY |
973 | |
974 | NAME ORIGIN LENGTH NAME LOCATION NAME LOCATION NAME LOCATION NAME LOCATION |
975 | DFXXP00A 00 F8A |
976 | KIKBLLIN F90 46 |
977 | $PRIVATE FD8 5B20 |
978 | KIKCOBGL 3990 KIKCOBGZ 6830 |
979 | ILBOSTP0* 6AF8 35 |
980 | ILBOSTP1 6B0E |
981 | |
982 | |
983 | |
984 | LOCATION REFERS TO SYMBOL IN CONTROL SECTION LOCATION REFERS TO SYMBOL IN CONTROL SECTION |
985 | 8D0 ILBOSTP0 ILBOSTP0 8D4 KIKBLLIN KIKBLLIN |
986 | 8D8 KIKCOBGL 8DC ILBOSTP1 ILBOSTP0 |
987 | 3D3C KCEEHDLR $UNRESOLVED(W) |
988 | ENTRY ADDRESS 00 |
989 | |
990 | TOTAL LENGTH 6B30 |
991 | ****DFXXP00A NOW REPLACED IN DATA SET |
992 | AUTHORIZATION CODE IS 0. |
993 | |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| KICKS is Copyright © Mike Noel, 2008-2014 |
| |